كوداستدعاء اي قيمة من اي مكان ومن اي فترة زمنية

[طاهر الوليدي]

سؤال للمحترفي هل يوجد كود استدعاء اي قيمة مثل طريقة الفرقطة من مودل  ولاي فترة زمنية 

هذا العلومات طرحة في احدي المنتديات

 

Private Sub Form1_Open(Cancel As Integer)
Me.T1.SetFocus
End Sub
Private Sub Command100_Click()
Dim db As Database
Dim salstr As String
Dim rs As Recordset
Set db = CurrentDb()
sqlstr = "select * from tblEmp where empid = " & Me.T1 & ";"
Set rs = db.OpenRecordset(sqlstr)
If rs.RecordCount > 0 Then
rs.Edit
rs!EmpName = Me.T2
rs!EngEmpName = Me.T3
rs.Update
MsgBox "Êã ÊÚÏíá ÈíÇäÇÊ ÇáãæÙÝ"
Me.T1.SetFocus
Else
rs.AddNew
rs!EmpID = Me.T1
rs!EmpName = Me.T2
rs!EngEmpName = Me.T3
 
rs.Update
MsgBox "Êã ÇÖÇÝÉ ÈíÇäÇÊ ãæÙÝ ÌÏíÏ"
 
End If
 
End Sub

وكود مفتاح إلغاء الأمر باعتبار أن اسم المفتاح هو Command99 :

كود:

Private Sub Command99_Click()
Me.T1 = Null
Me.T2 = Null
Me.T3 = Null
 
Me.T1.SetFocus
End Sub

وكود استدعاء البيانات هو الجدول (tblEmp)هو 

كود:

Private Sub T1_AfterUpdate()
Dim db As Database
Dim salstr As String
Dim rs As Recordset
Set db = CurrentDb()
sqlstr = "select * from tblEmp where empid = " & Me.T1 & ";"
Set rs = db.OpenRecordset(sqlstr)
If rs.RecordCount > 0 Then
Me.T2 = rs!EmpName
Me.T3 = rs!EngEmpName
 
Else
MsgBox "åÐÇ ÇáãæÙÝ ÛíÑ ãæÌæÏ"
Me.T2.SetFocus
 
End If
 
 
End Sub

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

الملفات المرفقة

•