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

السلام عليكم ورحمة الله وبركاته

اخي العزيز :

- اولا الافضل برمجة حدث الـ LostFocus بدلاً من الحدث Change .

- وهذا لأن من الممكن ان يكون رقم الموظف عباره عن 8 ارقام اذا سيتم تغير محتوى الـ Text بمعدل 8 مرات وبالتالي سينفذ هذا الكود 8 مرات طبعا مش عمليه ولا منطقيه .

اما بخصوص الكود :

فا سيتم البحث عن الرقم المدخل في الـ Text فا إن وجد يقوم بعرض حقل الـ Name في الـ Text الثانية .

ضع هذا الكود لحدث الـ LostFocus :

 

Private Sub Text1_LostFocus()
	If IsNumeric(Trim(Text1.Text)) = False Then Exit Sub

	rs1.MoveFirst
	rs1.Find "no=" & Trim(Text1.Text)

	If Not rs1.EOF Then
		Text2.Text = rs1("name")
	Else
		MsgBox "رقم الموظف هذا غير مسجل"
	End If
End Sub

بالتوفيق ,,,,,

A7med_prof

شكراً على التجاوب السريع وتم حل المشلكة بفضل المثال وكذلك طريقة لوست تكست افضل من اتشينج

لك جزيل الشكر والتقدير

وأنا على يقين بأنك اردت توضيح المثال بشكل عام ولكن ما كنت اقصده ان اقوم باستدعاء الاسم من جدول اخر

ومن باب الفائدة بالاعتماد على مثالك المرفقك حيث أني قمت ببعض التعديلات على الكود لجلب بيانات جدول اخر بالاعتماد على الرقم

Private Sub Text1_LostFocus()
rs1.Open "[empinf]", connn, adOpenStatic, adLockPessimistic

If IsNumeric(Trim(Text1.Text)) = False Then Exit Sub

	rs1.MoveFirst
	rs1.Find "no=" & Trim(Text1.Text)

	If Not rs1.EOF Then
		Text2.Text = rs1("name")
		 rs1.Close
	Else

MsgBox "رقم الموظف هذا غير مسجل"


		Text1.Text = ""
		Text2.Text = ""
		rs1.Close
		Exit Sub

	End If


End Sub