مهارة التعامل مع CurrentDB لمعرفة محتويات قاعدة البيانات و انشاء وفتح وحذف استعلام ب CurrentDb.CreateQueryDef

-1-

-2-

مهارة التعامل  مع CurrentDB      لمعرفة محتويات قاعدة البيانات
  و انشاء وفتح وحذف  استعلام  ب CurrentDb.CreateQueryDef 

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

مسلسل	اسم الملف	لينك	المدة ب الدقيقة
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
14	شرح بعض أوامر Docmd جزء اخير	https://youtu.be/aypOAX7h4CE	0
15	كود استعاده اعدادت الاكسس هام جدااااا للمبرمج CurrentProject	https://youtu.be/R_xi0JePnBo	10
16	مهارة التعامل مع CurrentDB لمعرفة محتويات قاعدة البيانات و انشاء وفتح وحذف استعلام ب CurrentDb.CreateQueryDef	https://youtu.be/k3no0IfZZA0	12
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

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Private Sub btnContainers_Click()

    Stop

    Dim i As Integer

    Dim j As Integer

    For i = 0 To CurrentDb.Containers.Count - 1

        Debug.Print CurrentDb.Containers(i).NAME

        For j = 0 To CurrentDb.Containers(i).Documents.Count - 1

          Debug.Print "==" & CurrentDb.Containers(i).Documents(j).NAME

        Next j

    Next i

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Private Sub btnCreateQueryDef_Click()

    Stop

    CurrentDb.CreateQueryDef "xx", "SELECT * FROM COURSE"

    DoCmd.OpenQuery "xx"

    '''''''''''''''''' another

    Dim strsql As String

    strsql = "SELECT * FROM COURSE"

Set qdf = CurrentDb.CreateQueryDef("NewQuery", strsql)

DoCmd.OpenQuery qdf.NAME

    

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Private Sub btnCreateTableDef_Click()

    Stop

    Dim tdef As TableDef

    Set tdef = CurrentDb.CreateTableDef("tbl1Books")

    tdef.Fields.Append tdef.CreateField("ID", dbLong)

    tdef.Fields.Append tdef.CreateField("BookName", dbText, 100)

    tdef.Fields.Append tdef.CreateField("Author", dbText, 100)

    tdef.Fields("ID").Attributes = dbAutoIncrField

    CurrentDb.TableDefs.Append tdef

    CurrentDb.TableDefs.Refresh

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Private Sub btnQueryDefs_Click()

    Stop

    CurrentDb.QueryDefs.Delete "xx"

    Dim qdef As New QueryDef

    qdef.SQL = "SELECT *  FROM COURSE"

    qdef.NAME = "COURSE1"

    CurrentDb.QueryDefs.Append qdef

    DoCmd.OpenQuery "COURSE1"

    CurrentDb.QueryDefs.Delete "COURSE1"

    CurrentDb.QueryDefs.Delete "NewQuery"

    

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Private Sub btnRecordsAffected_Click()

    Stop

    Dim db As Database

    Set db = CurrentDb

    db.Execute "UPDATE tbl1Employees SET tbl1Employees.testfield = 'Added'"

   ' db.Execute "UPDATE tbl1Employees SET tbl1Employees.testfield = 'Edited'"

    Debug.Print "Affected Records: " & db.RecordsAffected

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

strSQL="SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID

Set qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL)
DoCmd.OpenQuery qdf.Name


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


Dim strSql As String 'as already in example
Dim qdf As QueryDef 'as already in example

strSql = "SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 'as already in example

On Error Resume Next
'Delete the query if it already exists
DoCmd.DeleteObject acQuery, "NewQuery"

Set qdf = CurrentDb.CreateQueryDef("NewQuery", strSql) 'as already in example
DoCmd.OpenQuery qdf.Name 'as already in example

'release memory
qdf.Close 'i changed qdef to qdf here and below
Set qdf = Nothing

-3-

-4-