سؤال للمحترفي هل يوجد كود استدعاء اي قيمة مثل طريقة الفرقطة من مودل ولاي فترة زمنية
هذا العلومات طرحة في احدي المنتديات
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
ولكن ماهو التعديل المطلوب في هذا الكود حتى أستطيع استدعاء بيانات الحقول من أكثر من جدول.... أرجو المساعدة من المشرفين الفضلاء المبجلين...
الملفات المرفقة