السلام عليكم
لدي نموذج للموظفين اريد عندما ادخل /اسم الموظف/ اظهار جميع معلوماته في الفورم في حال كان الاسم موجود واذا كان الاسم غير موجود يقوم بتفريغ كل مربعات النص مع رسالة ان الاسم جديد وغير موجود
وجدت هنا في المنتدى البحث بدلالة رقم لكن لم اجد بدلالة نص
اريد على غرار هذا الكود
لكن يبحث بقيمة نص
Private Sub s5_AfterUpdate()
On Error GoTo ED
Dim ss As String
Dim QRY As String
Set dbs = CurrentDb()
QRY = "SELECT * from wer;"
Set Q = dbs.OpenRecordset(QRY)
ss = "التاريخ=" & s5
Q.FindFirst ss
If Not Q.NoMatch = True Then
s1 = Q!الرقم_الوظيفي
s2 = Q!التاريخ
s3 = Q!اليوم
s4 = Q!الوظيفة
's5 = Q!الاسم
s6 = Q!تاريخ_الالتحاق
s7 = Q!تاريخ_الاستقالة
s8 = Q!فترة_العمل
Else
Beep
MsgBox "هذا الموظف غير موجود في ملف الموظفين", , "المبرمج"
DoCmd.GoToRecord , , acNewRec
's1 = Null
's2 = Null
's3 = Null
's4 = Null
's5 = Null
's6 = Null
's7 = Null
's8 = Null
End If
AD:
Exit Sub
ED:
Resume AD
End Sub