Private Sub example1_Click()
Dim rstEmployees As DAO.Recordset
Set rstEmployees = Me.Form.RecordsetClone
id = InputBox("ÃÏÎá ÑÞã ÇáãæÙÝ")
C = 0
MsgBox "ÚÏÏ ÇáãæÙÝíä " & rstEmployees.RecordCount
rstEmployees.MoveFirst
Do While Not rstEmployees.EOF
If rstEmployees!EmpHead = id Then C = C + 1
rstEmployees.MoveNext
Loop
If C = 0 Then
MsgBox "ÇáãæÙÝ ÕÇÍÈ ÇáÑÞã " & id & "áíÓ ãÓÆæáÇ Úä ÃÍÏ"
Else
MsgBox " åÐÇ ÇáãæÙÝ ãÓÄæáÇð Úä " & C
End If
rstEmployees.Close
End Sub
1- الكود يتعامل مع مجموعة السجلات في النموذج ولا يتعامل معها عبر الجداول
2- الكود في الرسالة الاولى يعد السجلات الموجودة ككل
3- الكود في الرسالة الثانية يعد الأسماء الموجودة في حقل المسؤول حسب الرقم المدخل لان حقل المسؤول في الاصل رقم وليس نص