-1-
-2-
| مسلسل | اسم الملف | لينك | المدة ب الدقيقة |
|---|---|---|---|
| 1 | معرفة عدد الاحرف او الكلمات الموجودة في احد الحقول في اكسيس Dcount | https://youtu.be/WE0_of3cU0g | 12 |
| 2 | كيفية اخفاء شاشة الاكسس واظهار شاشة البرنامج مباشرة | https://youtu.be/ePZKCngCXhI | 3 |
| 3 | برنامج أدخل تاريخ ميلادك يعطيك عمرك بالسنة و الشهر و اليوم MS Access Skills | https://youtu.be/kuocx5KbRbk | 5 |
| 4 | مهارة تنسيق التاريخ فى اكسيس من خلال الدالة و format | https://youtu.be/ma1CJv2YFZQ | 10 |
| 5 | مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج1 | https://youtu.be/mBUP70LnOdk | 10 |
| 6 | مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج2 | https://youtu.be/_GZzAtDjTe0 | 17 |
| 7 | مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج3 | https://youtu.be/v_hXCFXO0gc | 17 |
| 8 | مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج4 | https://youtu.be/kD-bFyi3dVA | 10 |
| 9 | مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج5 | https://youtu.be/EPwSiIxkjvw | 9 |
| 10 | شرح بعض أوامر Docmd ج1 | https://youtu.be/UTL2MZc-u6Y | 13 |
| 11 | شرح بعض أوامر Docmd ج3 | https://youtu.be/SqwFND-10rI | 10 |
| 12 | شرح الامر DoCmd OutputTo لتصدير الملفات من اكسيس الى صيغ مختلفة acFormatPDF | https://youtu.be/zRHXr4UbZ-0 | 10 |
| 13 | شرح بعض أوامر Docmd DoCmd RunSQL | https://youtu.be/1Gu57sq2wQQ | 0 |
| 1000 | قائمة ملفات الكورس الاول -- تعلم اكسيس وقواعد بيانات MS Access | https://www.youtube.com/playlist?list=PLMmy9Ec9B98wxI2RWVrjjtyV2knTFoR1t | 0 |
| 2000 | Programming Access VBA قائمة ملفات الكورس الثانى-- البرمجة فى اكسيس | https://www.youtube.com/playlist?list=PLMmy9Ec9B98ymtXXOLw2FeolA904Z-OsH | 0 |
الاكواد والشرح فى الفيديو
Option Compare Database
Option Explicit
Private Sub btnAdd_Click()
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.txtUserName = " "
Me.AllowAdditions = False
End Sub
Private Sub btnBack_Click()
DoCmd.GoToRecord , , acPrevious
End Sub
Dim strsql
' DoCmd.Beep
' DoCmd.BrowseTo acBrowseToForm, "015 vv"
' DoCmd.OpenForm "015 vv"
' DoCmd.Close acForm, "015 vv"
'DoCmd.GoToControl "txtFirstName"
' DoCmd.GoToControl "txtWage"
' DoCmd.Hourglass False
' DoCmd.Maximize
' DoCmd.Minimize
' DoCmd.Restore
' DoCmd.OpenReport "Sales by Year", acViewPreview
' DoCmd.OutputTo acOutputReport, "COURSE", acFormatPDF, "c:\test\test.pdf", True
' DoCmd.OutputTo acOutputTable, "COURSE", acFormatXLS, "c:\test\test.xls", True
' DoCmd.OutputTo acOutputTable, "COURSE", acFormatTXT, "c:\test\test.txt", True
' DoCmd.OutputTo acOutputTable, "COURSE", acFormatRTF, "c:\test\test.rtf", True
' DoCmd.OutputTo acOutputTable, "COURSE", , "c:\test\test.rtf", True
' DoCmd.Quit
'DoCmd.RefreshRecord
' DoCmd.Requery Me.NAME
' DoCmd.Requery "txtFirstName"
strsql = " SELECT COURSE.COID, COURSE.CONAME, COURSE.PRICE INTO 0001 FROM COURSE "
DoCmd.RunSQL strsql
' DoCmd.RunCommand acCmdClose
' DoCmd.RunSQL "INSERT INTO tbl1Employees"
' DoCmd.Save
' DoCmd.SendObject acSendReport, "COURSE", acFormatPDF, "xipooo@gmail.com", , , "Test", "Test 1 2 3"
' DoCmd.ShowToolbar "Ribbon", acToolbarNo
' DoCmd.ShowToolbar "Ribbon", acToolbarYes
' DoCmd.TransferDatabase acExport, , "Database1.accdb"
End Sub
Private Sub btnForward_Click()
DoCmd.GoToRecord , , acNext
End Sub
DoCmd.Hourglass False
End Sub
-3-
-4-