مشكلة في استعمال checklist

[AliAli47]

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

لدي جدول table2 فيه بيانات عندما افتح الفورم اريد ان تظهر البيانات الموجودة في الجدول محددة في checklist الموجودة في الفورم 

جربت استخدام loop لكن دون جدوى

 

 

checklist.accdb

تم تعديل أكتوبر 24, 2022 بواسطه AliAli47

[Moosak]

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

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

[AliAli47]

5 دقائق مضت, Moosak said:

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

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

لكن ما ابحث عنه هو انه البيانات المسجلة في table2 والموجودة في checklist ينعملها check فقط يعني في الجدول 2 هناك 3 سجلات 1 2 3 في checklist تظهر معلمة فقط 

وعند عمل ريكورد جديد اقوم بتفريغها عن طريق array() 

[ابوبسمله]

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

مشاركه مع اخوتى الافاضل جزاهم الله عنا كل خير

اتفضل اخى @AliAli47 ان شاء الله يكون ما تريد والحل مقتبس بعد البحث عنه من الرابط التالى

https://stackoverflow.com/a/57363752/12421451

Private Sub Form_Open(Cancel As Integer)
Dim cdb As DAO.Database ' Database
    Dim imt As DAO.Recordset ' Import Table
    Dim rst As DAO.Recordset2 ' Events Table
    Dim asp As DAO.Recordset ' Multi Value Field
    
    Set cdb = CurrentDb
    Set rst = cdb.OpenRecordset("Table1", dbOpenTable)
    Set imt = cdb.OpenRecordset("Table2", dbOpenTable)
    
    rst.AddNew  'Add new record to Events Table
    
    Set asp = rst!taypes.Value ' Set asp to the AssignedPersonnel Field Value for the new Events Table Record.
    
    Do While Not imt.EOF ' Cycle through the Import Table Records
        asp.AddNew ' Add a new record to the asp Recordset
        asp.Fields(0) = imt!ID
        asp.Update ' Commit the changes to the asp Recordset
        imt.MoveNext
    Loop
    
    rst.Update ' Commit the changes to the Events Table Recordset
    DoCmd.Requery
    DoCmd.GoToRecord , , acLast
End Sub

بالتوفيق

checklist_1.accdb