كود انشاء حقل جديد في جدول نوعه نعم/لا

[محمد القدسي]

السلام عليكم

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

.Fields.Append .CreateField("الهاتف", dbInteger)

كيف تكون الصيغة لانشاء الحقل من نوع نعم/لا

وبارك الله فيكم جميعا

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    Dim db As DAO.Database
    Set db = CurrentDb
    
    Dim tField As DAO.TableDef
    Dim Fld As DAO.Field
    
    Set tField = db.TableDefs("Table1")
    Set Fld = tField.CreateField("Check1", dbBoolean)
    tField.Fields.Append Fld
    
    Fld.Properties.Append Fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))

تحياتي

[محمد القدسي]

سلمت يداك استاذي محمد وبارك فيك وفي علمك

هذا هو المطلوب