شرح بعض أوامر DoCmd RunSQL











مهارات فى اكسيس

مسلسلاسم الملفلينكالمدة ب الدقيقة
1 معرفة عدد الاحرف او الكلمات الموجودة في احد الحقول في اكسيس Dcounthttps://youtu.be/WE0_of3cU0g12
2كيفية اخفاء شاشة الاكسس واظهار شاشة البرنامج مباشرةhttps://youtu.be/ePZKCngCXhI3
3برنامج أدخل تاريخ ميلادك يعطيك عمرك بالسنة و الشهر و اليوم MS Access Skillshttps://youtu.be/kuocx5KbRbk5
4مهارة تنسيق التاريخ فى اكسيس من خلال الدالة و formathttps://youtu.be/ma1CJv2YFZQ10
5مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج1https://youtu.be/mBUP70LnOdk10
6مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج2https://youtu.be/_GZzAtDjTe017
7مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج3https://youtu.be/v_hXCFXO0gc17
8مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج4https://youtu.be/kD-bFyi3dVA10
9مهارة تقسيم الإسماء دفعة واحدة فى اكسيس MS Access VBA ج5https://youtu.be/EPwSiIxkjvw9
10شرح بعض أوامر Docmd ج1https://youtu.be/UTL2MZc-u6Y13
11شرح بعض أوامر Docmd ج3https://youtu.be/SqwFND-10rI10
12شرح الامر DoCmd OutputTo لتصدير الملفات من اكسيس الى صيغ مختلفة acFormatPDFhttps://youtu.be/zRHXr4UbZ-010
13شرح بعض أوامر Docmd DoCmd RunSQLhttps://youtu.be/1Gu57sq2wQQ0
1000 قائمة ملفات الكورس الاول -- تعلم اكسيس وقواعد بيانات MS Accesshttps://www.youtube.com/playlist?list=PLMmy9Ec9B98wxI2RWVrjjtyV2knTFoR1t0
2000 Programming Access VBA قائمة ملفات الكورس الثانى-- البرمجة فى اكسيس https://www.youtube.com/playlist?list=PLMmy9Ec9B98ymtXXOLw2FeolA904Z-OsH0



الاكواد  والشرح  فى الفيديو


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



تعليقات

المشاركات الشائعة من هذه المدونة

نظام بيع وشراء ومخازن وفواتير

برنامج الفاتورة بالاكسيل قمة فى الروعة الطريقة الثانية لا يفوتك

010 MS Access VBA – Working with Arrays برمجة اكسيس المصفوفات