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