البحث بواسطة الرقم

حاولت لكن هذا اللي طلع معي

BORDERS12.rar

اشتغلت المفاتيح لكن البحث يعود من السجل الاول

يمكنني تنفيذ المطلوب لكن اذا عدلت التموذج كاملاً

أحبائي الغاليين

مليون تحية طيبة وبعد ،،،،،،،،،،،،،،،

أشكركم أخواني الاحباء لمحاولتكم مساعدتي ، كما أشكر الاخ ناصر المصراوي على محاولته الطيبة ، ولكن الله هداني الى الحل هذا الصباح بعد صلاة الفجر ولذلك سأرفق لكم القاعدة بعد تعديل الكود.

Private Sub S1_AfterUpdate()

On Error GoTo ED

Dim ss As String

Set Q2 = CurrentDb.OpenRecordset("select * from emps;")

ss = "no_emp=" & S1

Q2.FindFirst ss

If Not Q2.NoMatch = True Then

'Set Q2 = CurrentDb.OpenRecordset("SELECT * from EMPS where no_emp = " & S1 & "")

'If Q2.RecordCount > 0 Then

S2 = Q2!Na_Emp

S3 = Q2!id

S4 = Q2!Tot

COM1 = Q2!Zon

S5 = Q2!Adr

S6 = Q2!TEL

S7 = Q2!JWL

Me.S.Caption = "ÊÚÜÜÜÜÏíÜá"

Else

S2 = Null

S3 = Null

S4 = Null

S5 = Null

S6 = Null

S7 = Null

COM1 = Null

Me.S.Caption = "ÊÎÜÜÜÜÜÒíä"

End If

AD:

Exit Sub

ED:

Resume AD

End Sub

وان شاء الله يكون هذا الكود مفيد للجميع

وتقبلوا مني الاحترام والتقدير

BORDERS111.rar

الله يرضى عليك "ناصر المصاروة" :lol:

استاذنا كمال النحال

بارك الله فيك

واعانك على طاعته

ويسر لك الامور كلها

امين امين امين

ما شاء الله عليك اخي كمال،

طريقة جميلة وافكارك دائما رائعة

أخواني الغاليين

ناصر المصاروة

ماهر بدوي

همام ابو عرقوم

مليون تحية طيبة وبعد ،،،،،،،،،،

أشكركم جميعاً على مروركم الطيب وبارك الله فيكم اللهم آمييييييييييييييييييين