البحث عن اسم جدول

[محمدفتاح]

السلام عليكم كل عام وانتم بخير بمناسبة عيد الاضحى المبارك

عندي مشكلة وارجو المساعدة اقوم بعمل استعلام انشاء جدول ويقوم علي هذا الجدول عمليات متتالية اريد في حالة عدم انشاء الجدول تعود لي رسالة بأن الجدول لم يتم انشاؤه بعد وشكرا

[kanory]

وعليكم السلام ورحمة الله ..... قبل الحدث أكتب التالي :

On Error GoTo m

وفي نهاية الحدث ضع هذا المسج

m:
MsgBox "تم إنشاء هذا الجدول من قبل", vbInformation, "مبروك"

 

[محمدفتاح]

معذرة ممكن ايضاح اكثر

 

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

في وحدة نمطية جديدة ضع هذا الكود:

Public Function ObjExist(ObjName As String) As Boolean
    ObjExist = False
    If DCount("[Name]", "MSysObjects", "[Name] = '" & ObjName & "'") = 1 Then
        ObjExist = True
    End If
End Function

 

وتحت زر امر انشاء الجدول الخاص بك ضع:

 

 If ObjExist("اسم جدولك") Then
 '==== هنا شرط وجود الجدول
 MsgBox ("الجدول موجود")
 Else
 '==== هنا شرط بناء الجدول الخاص بك في حال عدم وجوده
 MsgBox ("تم انشاء الجدول")
 End If

 

[محمدفتاح]

باختصار قمت بحمد الله عمل قاعدة بيانات لكنترول المدرسة والموضوع يوجد جزء من القاعدة يخص الدور الثاني فاقوم بانشاء جدول الدور الثاني ثم اكمل العمليات الخاصة به من شهادات وشيت وخلافه اريد عند الضغط علي زر تكوين الجدول والجدول موجود مسبقا تظهر رسالة تفيد بان الجدول قد اعد من قبل وعند الضغط علي زر الشيت مثلا قبل اعداد الجدول تظهر رسالة بان الجدول غير موجود ويجب تكوينه اولا بعدا عن رسائل الويندوز التي تفيد وجود خطأ بمعنى آخر اريد التحكم الكامل في الرسائل وجزاكم الله خيرا وقد ارسلت نموذج مصغر لقاعدة بيانات لعلها توضح المقصود وشكرا

 

db1.mdb

[AlwaZeeR]

تفضل عزيزي بنفس الطريقة التي ذكرتها لك سابقا

اضغط تكوين يتم تكوين جدولك

وعند وجوده تظهر لك رسالة تخبرك ان الجدول موجود وتم تكوينه

واذا كان غير موجود وضغطت الشيت يخبرك بان الجدول غير موجود ويجب تكوينه 

 

 

 

 

db100.rar

[محمدفتاح]

جزاكم الله خيرا وزادك من علمه وفضله

عندي طلب اخير اريد تعلم الوحدات النمطية دلني علي افضل طريقة لتعلمها وشكرا

[محمدفتاح]

بدأت والحمد لله التعامل مع الوحدات النمطية وانشاء الاحداث عن طريق الاكواد ولكن يوجد مشكلة مثلا يوجد مربع نص واريد حذف النص المكتوب داخل هذا المربع من خلال الضغط علي زر امر ولكن تظهر رسالة "لا يمكنك تخصيص مرجع او تعيين خاصية لعنصر تحكم ما لم يكن التركيز في هذا العنصر" فما حل هذه المشكلة وشكرا