مشكلة في الكود

أخي الكريم ما هو نوع المتحول الذي لم يتعرف عليه ؟؟

على أي حال إذا كان ما أظن جرب أن تغير هذا النوع إلى نوع object

الاخ مهند وضعت لك جزء من الكود و المشكلة التي تظهر هي في السطر الأحد

حيث تظهر رسالة variable not defaine :

Dim wrkDefault As Workspace

Dim dbsNew As Database

Dim mydb

Dim t As Variant

On Error GoTo LINE_1

LINE_2:

mydb = Dir("A:\data2.dat")

If mydb = "" Then

Set wrkDefault = DBEngine.Workspaces(0)

Set dbsNew = wrkDefault.CreateDatabase("A:\data2.dat", dbLangArabic)

DoCmd.RunMacro "data2"

GoTo LINE_3

Else

DoCmd.RunMacro "data2" ' ÊÔÛíá ÇáãßÑæ

GoTo LINE_3

End If

LINE_1:

t = MsgBox("ÏÓß ÑÞã 1 ÛíÑ ãæÌæÏ Ýí ÇáÏÑíÝ åá ÊÑíÏ ÇáÇÚÇÏå ", vbYesNo, "ÑÓÇáÉ ÊäÈíå")

If t = 6 Then

Resume

End If

LINE_3:

End Function

أخي الكريم مشكلتك تحل إما كما ذكرت لك سابقاً بتعرف النوع الذي يعطيك خطأ عنده من النوع Object

مثلاً استبدل هذا السطر :

Dim dbsNew As Database

بهذا السطر

Dim dbsNew As object

أو أن تضيف مرجع هو Microsoft DAO Object Library

قمت بتحويل المتحولات الى object ولكن لم تنجح مع الكل

ولكن كيف يمكن أن اضيف مرجع Microsoft DAO Object Library

أخي الكريم ،،، بالنسبة لإضافة مرجع :

Microsoft DAO Object Library

عليك بإتباع الخطوات التالية :

1 - من شريط القوائم ( ملف ، تحرير ، عرض ،إدراج ، أدوات ،،،،، إلخ )

2 - إختر قائمة ( أدوات ) .

3 - من قائمة ( أدوات ) ،،، أختر ( ماكرو ) .

4 - سوف تظهر لك نافذة ،،، إختر منها الاختيار الأول وهو ( محرر Visual Basic )

أو إضغط ( Alt+F11 ) ،،، لإظهار هذا القائمة .

5 - سوف يعرض لك شريط قوائم آخر فيه ( File , Edit ,,,,,,,,,,,,, Tools ) .

6 - إختر من هذا الشريط ( Tools ) ،،، سوف تفتح لك قائمة إختر منها ( References ) .

7 - سوف تظهر لك نافذة بها جميع المراجع .

8 - عن طريق الاسهم ،،، إبحث عن المرجع الذي تريده مثلا :

Microsoft DAO 3.6 Object Library

9 - ضع علامة ( صح ) على هذا المرجع ،،، ثم إضغط على زر ( OK ) .

هذا العملية بالتفصيل ،،،

مع خالص تحياتي : أبو عقيل

الاخ أبو عقيل

الطريقة نجحت في تثبيت المكتبة المطلوبة ونجحت العملية ولكن عندما وضعت الجداول في قاعدة بيانات والعناصر الاخرى في قاعدة بيانات ثانية

وقمت بتغيير الكود لجلب بيانات الجداول في القاعدة الأولى

لم تنجح العملية سأرفق لكم الملف

الاخ أبو عقيل

الطريقة نجحت في تثبيت المكتبة المطلوبة ونجحت العملية ولكن عندما وضعت الجداول في قاعدة بيانات والعناصر الاخرى في قاعدة بيانات ثانية

وقمت بتغيير الكود لجلب بيانات الجداول في القاعدة الأولى

لم تنجح العملية سأرفق لكم الملف

النسخ الاحتياطي.zip