إضافة جدول بالكود فيه حقل (نعم/لا) على شكل (خانة اختيار) وليس (مربع نص) مع قيمة افتراضية

[nssj]

الإخوة الكرام .. في الملف المرفق كود لإضافة جدول فيه حقلان من نوع (نعم/لا)

DoCmd.RunSQL "CREATE TABLE  .. .. .. .. .. ,Mult_mno yesno,NO_hno yesno

والمشكلة أنهما يظهران على شكل (مربع نص) والمطلوب أن يكونا على شكل (خانة اختيار)، مع قيمة افتراضية (لا)، وذلك من خلال الكود نفسه دون الحاجة لفتح الجدول في وضع التصميم وتعديله هناك

هل هذا ممكن ؟

YesNo.accdb

[jjafferr]

وعليكم السلام 🙂

 

هذا الموضوع فيه ما لذ وطاب من عمل قاعدة بيانات ، الى عمل الحقول ، وعمل نماذج وبها ازرار ، وعمل كود لكل زر ، وووو

 

.

وهنا افرد لك الجزئية التي تريدها:

    'DoCmd.RunSQL "CREATE TABLE [" & s & "] (ID AUTOINCREMENT primary key, ID_Shamela integer, Tno integer, Nass Memo, part integer, Page integer,Hno integer,Rm_Hno integer, Mno text (50),Mult_mno yesno,NO_hno yesno)"
    
    Dim dbsNew As DAO.Database
    Dim pr As DAO.Property
    
    Set dbsNew = CurrentDb  'OpenDatabase(Me.txt2)
    
    DoCmd.RunSQL "CREATE TABLE [" & s & "]          " & _
                 " (ID AUTOINCREMENT primary key,   " & _
                 "ID_Shamela integer,               " & _
                 "Tno integer,                      " & _
                 "Nass Memo,                        " & _
                 "part integer,                     " & _
                 "Page integer,                     " & _
                 "Hno integer,                      " & _
                 "Rm_Hno integer,                   " & _
                 "Mno text (50),                    " & _
                 "Mult_mno yesno,                   " & _
                 "NO_hno yesno)                     "
    'Mult_mno
    dbsNew.TableDefs(s).Fields("Mult_mno").DefaultValue = 0
    Set pr = dbsNew.TableDefs(s).Fields("Mult_mno").CreateProperty("Format", dbText, "True/False", True)
             dbsNew.TableDefs(s).Fields("Mult_mno").Properties.Append pr
    'make the Check Box look
    Set pr = dbsNew.TableDefs(s).Fields("Mult_mno").CreateProperty("DisplayControl", dbInteger, acCheckBox)
             dbsNew.TableDefs(s).Fields("Mult_mno").Properties.Append pr
             dbsNew.TableDefs(s).Fields("Mult_mno").Properties("DisplayControl") = acCheckBox

    'NO_hno
    dbsNew.TableDefs(s).Fields("NO_hno").DefaultValue = 0
    Set pr = dbsNew.TableDefs(s).Fields("NO_hno").CreateProperty("Format", dbText, "True/False", True)
             dbsNew.TableDefs(s).Fields("NO_hno").Properties.Append pr
    'make the Check Box look
    Set pr = dbsNew.TableDefs(s).Fields("NO_hno").CreateProperty("DisplayControl", dbInteger, acCheckBox)
             dbsNew.TableDefs(s).Fields("NO_hno").Properties.Append pr
             dbsNew.TableDefs(s).Fields("NO_hno").Properties("DisplayControl") = acCheckBox

 

جعفر

YesNo.zip

[nssj]

أهلا بعودتك أخي الكريم jjafferr

كما هي العادة - وكما لا يخفى عليك أخي الكريم 😁- أريد ان أجري عدة تجارب لأن لهذا الكود عندي أكثر من صيغة وأكثر من استخدام

وعندي الآن ما يشغلني .. وفي المساء بعون الله تبدأ التجارب 😀

ولكن كان لابد من التعجيل بالترحيب بك أخي الكريم 

[nssj]

أخي الكريم جعفر .. عندما حاولت تطبيق الكود على الملف الجديد والذي أدخلت فيه بعض التعديلات على الكود المرفق في هذه المشاركة، خرجت هذه الرسالة

 

وقلبت النظر أكثر من مرة لعلي أكتشف أين الخطأ فلم أعرف 🙄

YesNo 2.accdb

[jjafferr]

من النصائح الذهبية في الاكسس:

لا تبدأ اسم الكائن برقم ، وإلا ستحصل على اخطاء لا محل لها من الاعراب 😁

 

اجعل اسماء جداولك تبدأ بحرف 🙂

 

جعفر

[nssj]

أحسن الله إليك أخي الكريم جعفر .. تم المطلوب بحمد الله

وشكراً على هذه النصيحة الذهبية التي أفرحتني وأربكتني

أفرحتني لأن الخطأ الذي لم أكتشفه لم يكن ظاهراً - كما يحدث معي كثيراً  😐 - ولكنه كان لا محل له من الإعراب 😁

وأربكتني لأنها راح تلخبط حساباتي ومخططاتي .. لأنها كلها كانت مبنية على أن أسماء الجداول أرقام لسهولة فرزها واستدعائها، ولسهولة التعامل مع الأرقام من حيث معرفة رقم آخر جدول وإضافة رقم عليه للجدول الجديد باستخدام (DMax) .. لكن سأحاول التعامل مع الأمر

وبانتظار المزيد من النصائح الذهبية أخي الكريم 🙂