محمد احمد لطفى قام بنشر فبراير 22, 2019 مشاركة قام بنشر فبراير 22, 2019 السلام عليكم ورحمة الله و بركاته قبل التحديث فى النموذج الفرعى اذا كان اسم العامل لا يوجد فى الجدول الرئيسى يتم اضافته به لكى يسمح بالاضافة فى النموذج الفرعى وجزاكم الله خيرا Worker.rar رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 23, 2019 الكاتب مشاركة قام بنشر فبراير 23, 2019 للرفع رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 23, 2019 الكاتب مشاركة قام بنشر فبراير 23, 2019 للرفع On Error Resume Next Set rs = Me.RecordsetClone rs.FindFirst "Worker=""" & Me.Worker & """" If Not rs.NoMatch Then End If يعنى فى حدث قبل التحديث نستخدم كود معرفة التكرار و لكن على الجدول اذا لم يكن موجود العامل فى الجدول الرئيسي يتم اضافته وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 24, 2019 الكاتب مشاركة قام بنشر فبراير 24, 2019 (معدل) 19 ساعات مضت, محمد احمد لطفى said: للرفع On Error Resume Next Set rs = Me.RecordsetClone rs.FindFirst "Worker=""" & Me.Worker & """" If Not rs.NoMatch Then End If يعنى فى حدث قبل التحديث نستخدم كود معرفة التكرار و لكن على الجدول اذا لم يكن موجود العامل فى الجدول الرئيسي يتم اضافته وجزاكم الله خيرا تم تعديل فبراير 24, 2019 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 25, 2019 الكاتب مشاركة قام بنشر فبراير 25, 2019 للرفع رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 26, 2019 الكاتب مشاركة قام بنشر فبراير 26, 2019 للرفع رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 26, 2019 الكاتب مشاركة قام بنشر فبراير 26, 2019 (معدل) أريد اضافة اسم العامل فى الجدول الرئيسى فقط Worker.rar تم معرفة ان العامل غير موجود فى الجدول الرئيسى أرجو اضافته تم تعديل فبراير 26, 2019 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 26, 2019 مشاركة قام بنشر فبراير 26, 2019 وعليكم السلام 🙂 لا يوجد نموذج فرعي في مرفقك!! على العموم ، هذا تصحيح للكود الموجود في نموذجك: Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim strSQL As String Dim intHow_Many As Integer strSQL = "[Worker]='" & Me.Worker & "'" intHow_Many = DCount("*", "Workermain", strSQL) If intHow_Many > 0 Then MsgBox "لقد تم تسجيل هذا الموظف مسبقا" cancel=true me.Undo Exit Sub End If End Sub جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 26, 2019 الكاتب مشاركة قام بنشر فبراير 26, 2019 أستاذى @jjafferr هل نستطيع اضافة العامل غير الموجود الى الجدول الرئيسى اذا كان غير موجود فى النموذج الفرعى مباشرة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 26, 2019 مشاركة قام بنشر فبراير 26, 2019 26 دقائق مضت, jjafferr said: لا يوجد نموذج فرعي في مرفقك!! 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 26, 2019 الكاتب مشاركة قام بنشر فبراير 26, 2019 3 دقائق مضت, jjafferr said: أستاذى النموذج الحالى فى المرفق هو الفرعى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 26, 2019 الكاتب مشاركة قام بنشر فبراير 26, 2019 شكرا استاذى @jjafferr تم عمل استعلام الحاق On Error Resume Next Dim strSQL As String Dim intHow_Many As Integer strSQL = "[Worker]='" & Me.Worker & "'" intHow_Many = DCount("*", "Workermain", strSQL) If intHow_Many > 0 Then Else DoCmd.SetWarnings False DoCmd.RunSQL "insert into Workermain (Worker) values (Worker)" DoCmd.SetWarnings True Exit Sub End If 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان