Compile database

[Ibrahim IQ]

السلام عليكم ......

DoCmd.RunCommand acCmdCompileAndSaveAllModules

اريد منكم المساعدة للتوضيح اكثر عن مهمة هذا الجملة وهل القاعدة البياناتي تحتاج الى هذا كود ؟؟؟؟؟ أو أي النوع من القاعدة البيانات تحتاج الى هذا ؟؟؟؟

مع تحياتى

 

 

[Shivan Rekany]

حسب فهمي لا يستخدم هذا الكود مفردا بل مع بعض اكود اخرى مثل هذا

Sub VSApplication() 
  Dim objGen As Object 
  Dim dbGen As Database 
  Dim gVar As Variant 
  Dim strMDB as String 

    On Error GoTo VSApplication_ERROR 
    strMDB = "c:\my documents\vststcmp.mdb" 
    Set objGen = CreateObject("Access.Application.8") 
    objGen.OpenCurrentDatabase (strMDB) 
    Set dbGen = DBEngine.Workspaces(0).OpenDatabase(strMDB, False, False, 
"") 

    gVar = dbGen.Containers("Modules").Documents(0).Name 
    If Not IsNull(gVar) Then 
        objGen.DoCmd.OpenModule CStr(gVar) 
        objGen.DoCmd.RunCommand acCmdCompileAndSaveAllModules 
    End If 

VSApplication_EXIT: 
    On Error Resume Next 
    objGen.CloseCurrentDatabase 
    objGen.Quit 
    Set objGen = Nothing 
    dbGen.Close 
    Set dbGen = Nothing 
    Exit Sub 
VSApplication_ERROR: 
    MsgBox Error$, 16, "VSApplication" 
    Resume VSApplication_EXIT 
End Sub 

هذا والله يعلم

تحياتي

[Ibrahim IQ]

7 دقائق مضت, Shivan Rekany said:

حسب فهمي لا يستخدم هذا الكود مفردا بل مع بعض اكود اخرى مثل هذا

Sub VSApplication() 
  Dim objGen As Object 
  Dim dbGen As Database 
  Dim gVar As Variant 
  Dim strMDB as String 

    On Error GoTo VSApplication_ERROR 
    strMDB = "c:\my documents\vststcmp.mdb" 
    Set objGen = CreateObject("Access.Application.8") 
    objGen.OpenCurrentDatabase (strMDB) 
    Set dbGen = DBEngine.Workspaces(0).OpenDatabase(strMDB, False, False, 
"") 

    gVar = dbGen.Containers("Modules").Documents(0).Name 
    If Not IsNull(gVar) Then 
        objGen.DoCmd.OpenModule CStr(gVar) 
        objGen.DoCmd.RunCommand acCmdCompileAndSaveAllModules 
    End If 

VSApplication_EXIT: 
    On Error Resume Next 
    objGen.CloseCurrentDatabase 
    objGen.Quit 
    Set objGen = Nothing 
    dbGen.Close 
    Set dbGen = Nothing 
    Exit Sub 
VSApplication_ERROR: 
    MsgBox Error$, 16, "VSApplication" 
    Resume VSApplication_EXIT 
End Sub 

هذا والله يعلم

تحياتي

ههههههه شكرا اخي شفان هذا كود لا يعمل . هل لازم تغير بعض الجملة مثلا (mdb) الى (accdb)

مع الشكر

تم تعديل أبريل 7, 2017 بواسطه Rebaz Bahram