مساعدة في تغير مصدر السجلات

[ازهر عبد العزيز]

السلام عليكم 

احتاج تغير مصدر السجلات في النموذج عند الفتح او التحميل  الى كود هذا هو مصدر السجلات 

SELECT Qbook_Reader.Readerm
FROM Qbook_Reader
WHERE (((Qbook_Reader.Num)=[Forms]![FReaderB]![FReaderSubB].[Form]![Num]));

 

[Foksh]

على حسب ما فهمت 😅

جرب هذا الكود عند الفتح :-

Private Sub Form_Open(Cancel As Integer)
    Me.RecordSource = "SELECT Qbook_Reader.Readerm FROM Qbook_Reader WHERE Qbook_Reader.Num = " & [Forms]![FReaderB]![FReaderSubB].[Form]![Num]
End Sub

أو هذا عند التحميل ، ولا فرق بينهما سوى وقت الحدث .

Private Sub Form_Load()
    Me.RecordSource = "SELECT Qbook_Reader.Readerm FROM Qbook_Reader WHERE Qbook_Reader.Num = " & [Forms]![FReaderB]![FReaderSubB].[Form]![Num]
End Sub

حيث Me تعني النموذج الحالي ، وأعتقد لا حاجة لشرح الباقي 😅