اين جدول البيانات في هذا البرنامج

[عبدالله المجرب]

لم استطع رفع البرنامج من كمبيوتر العمل لذا اخذت منه تصوير ورفعته من كمبيوتر البيت

اتمنى ان اجد لديكم الحل اخوني الكرام

ولد المجرب.rar

[ابو ياسر]

اذا كنت تستطيع فتح النموذج على عرض التصميم فافتح الخصائص وافتح منها لسان التبويب : بيانات

ثم انظر الى القيمة الموجودة في مصدر عنصر التحكم ، طبعا هو اسم الجدول الذي تبحث عنه

[عبدالله المجرب]

اذا كنت تستطيع فتح النموذج على عرض التصميم فافتح الخصائص وافتح منها لسان التبويب : بيانات

ثم انظر الى القيمة الموجودة في مصدر عنصر التحكم ، طبعا هو اسم الجدول الذي تبحث عنه

شاهد المرفق اخي العزيز فانا لم اجد الملف المطلوب ((اذا كانت هذه الاجراءات سليمة)) ام ان هناك طريقة اخرى

اكسسس2.rar

[ابو ياسر]

اختر من مربع التحرير العلوي "نموذج" بدلا من "موقع العمل" الظاهر الآن

وستلاحظ ظهور اسم الجدول في الحقل الذي اسفل منه

تحياتي ،،

[عبدالله المجرب]

بالفعل وجدت هذا الاسم ((tblRequests)) ولكن اين اجد هذا الجدول حتى يتم ادراج البيانات فيه مباشرة وتحديث البيانات عند الحاجة

لانه في الجدول لم اجد الا ((tblDetail)) وفيه سجل الطلبات حسب التاريخ وجدول ((TblReTypes)) فيه جميع مواضيع الطلبات فاين اجد الجدول ((tblRequests)) الذي هو مصدر السجل

ولك جزيل الشكر والامتنان على تجاوبك معي اخي العزيز

[ابو ياسر]

قد يكون تم اخفاؤه

جرب هذا الكود اجعله في حدث زر أمر ( لاظهار الجداول المخفية )

Dim wrkSpace As Workspace

Dim tdf As TableDef

Dim dbs As Database


Set wrkSpace = DBEngine.Workspaces(0)

Set dbs = wrkSpace.OpenDatabase(txtDbName)

  For Each tdf In dbs.TableDefs

    If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _

    And tdf.Attributes = 1 Then

            tdf.Attributes = tdf.Attributes - dbHiddenObject

    End If

     Next tdf

   Set dbs = Nothing

[عبدالله المجرب]

قد يكون تم اخفاؤه

جرب هذا الكود اجعله في حدث زر أمر ( لاظهار الجداول المخفية )

Dim wrkSpace As Workspace

Dim tdf As TableDef

Dim dbs As Database


Set wrkSpace = DBEngine.Workspaces(0)

Set dbs = wrkSpace.OpenDatabase(txtDbName)

  For Each tdf In dbs.TableDefs

    If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _

    And tdf.Attributes = 1 Then

            tdf.Attributes = tdf.Attributes - dbHiddenObject

    End If

     Next tdf

   Set dbs = Nothing

استاذي العزيز Sabha شكراً على اهتمامك وعلى مساعدتك لي

سوالي هل اضع الكودالذي ارفقته في اى زر امر ام هو في زر معين