أخوانى قامت الأخت زهره بعمل برنامج يقوم بإظهار وإخفاء الجداول فى قاعده بيانات خارجية
المطلوب تحويل كود إظهار الجداول ليعمل على نفس القاعده ولكن عند الغلق
وهذا تحويل كود الإخفاء عند التحميل برجاء تحويل كود الإظهار بنفس الأسلوب
Private Sub Form_Load() Dim db As Database Dim obj As AccessObject, DBS As Object Dim tdf As TableDef Set DBS = Application.CurrentData Set db = CurrentDb For Each obj In DBS.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next Set tbl = Nothing db.close Set db = Nothing End Sub
و هذا الكود المراد تحويلة لإظهار الجداول عند الغلق
Function zEnabledTables() On Error GoTo MyErr Dim strPath As String strPath = Me.txtPath Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj Dim BackObj As TableDef, BackDB As Database Set BackDB = DBEngine.Workspaces(0).OpenDatabase(strPath, True, False) For Each BackObj In BackDB.TableDefs If Left(BackObj.Name, 4) <> "MSys" Then BackObj.Attributes = 0 End If Next BackObj Set FrontDB = Nothing Set BackDB = Nothing MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function
وهذا هو البرنامج فى المرفقات
خالص تحياتى
