اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اظهار نتائج سجل معين حسب قيمة نصية


الردود الموصى بها

السلام عليكم 

لدي نموذج للموظفين اريد عندما ادخل /اسم الموظف/ اظهار جميع معلوماته في الفورم في حال كان الاسم موجود واذا كان الاسم غير موجود يقوم بتفريغ كل مربعات النص مع رسالة ان الاسم جديد وغير موجود 

وجدت هنا في المنتدى البحث بدلالة رقم لكن لم اجد بدلالة نص 

اريد على غرار هذا الكود 

 لكن يبحث بقيمة نص

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

 

تم تعديل بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة
رابط هذا التعليق
شارك

وعليكم السلام

مشاركه مع اخى واستاذى العزيز اوبمهاب @SEMO.Pa3x جزاه الله عنا كل خير

اتفضل التعديل

 

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 "هذا الموظف غير موجود في ملف الموظفين", , "المبرمج"
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

Private Sub أمر17_Click()
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 = "الرقم_الوظيفي=" & s1
Q.FindFirst ss

If IsNull(s1) Then
Beep
Exit Sub
End If
Q.Edit
Q!التاريخ = s2
Q!اليوم = s3
Q!الوظيفة = s4
Q!الاسم = s5
Q!تاريخ_الالتحاق = s6
Q!تاريخ_الاستقالة = s7
Q!فترة_العمل = s8
Q.Update
s1 = Null
s2 = Null
s3 = Null
s4 = Null
s5 = Null
s6 = Null
s7 = Null
s8 = Null
s1.SetFocus
AD:
Exit Sub
ED:
Beep
Resume AD

End Sub

 

بالتوفيق

موظفين مطلوب نفس الطريقة لكن عند كنابة اسم الموظف وليس الكود.mdb

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information