ربط مربع نص باستعلام باستخدام دالة Dlookup

[Elsayed Bn Gemy]

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

 

اخوانى اريد ربط قيمة مربع نص باستعلام ولكن باستخدام دالة Dlookup 

بدون جعل مصدر النموذج - الذى يحتوى على مربع النص-  الاستعلام

 

اى يكون مربع النص غير منضم count student.rar

[jjafferr]

تفضل بطريقتين 

 

وهذا الكود للطريقتين:

Option Compare Database

Private Sub Form_Load()

'1
'--
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("student_count")
    
    Me.counter1 = rst!Count_name_
    
    rst.Close: Set rst = Nothing
    
    
'2
'--

    Me.counter2 = DLookup("[Count_name_]", "student_count")
    
    
End Sub

جعفر

18.count student.accdb.zip

[Elsayed Bn Gemy]

اخى الكريم شكرا لك وجعل الله ما نفعتنى به حجة لك يوم القيامة

[jjafferr]