اضافة اسم العامل من النموذج الفرعى الى الجدول الرئيسي اذا كان غير موجود

[محمد احمد لطفى]

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

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

 

وجزاكم الله خيرا

 

Worker.rar

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

    On Error Resume Next
Set rs = Me.RecordsetClone

rs.FindFirst "Worker=""" & Me.Worker & """"
If Not rs.NoMatch Then



End If

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

وجزاكم الله خيرا

[محمد احمد لطفى]

19 ساعات مضت, محمد احمد لطفى said:

للرفع

    On Error Resume Next
Set rs = Me.RecordsetClone

rs.FindFirst "Worker=""" & Me.Worker & """"
If Not rs.NoMatch Then



End If

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

وجزاكم الله خيرا

 

تم تعديل فبراير 24, 2019 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

أريد اضافة اسم العامل فى الجدول الرئيسى فقط
 

Worker.rar

تم معرفة ان العامل غير موجود فى الجدول الرئيسى أرجو اضافته

تم تعديل فبراير 26, 2019 بواسطه محمد احمد لطفى

[jjafferr]

وعليكم السلام 🙂

 

لا يوجد نموذج فرعي في مرفقك!!

على العموم ، هذا تصحيح للكود الموجود في نموذجك:

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

 

جعفر

[محمد احمد لطفى]

أستاذى @jjafferr

هل نستطيع اضافة العامل غير الموجود الى الجدول الرئيسى اذا كان غير موجود فى النموذج الفرعى مباشرة

[jjafferr]

26 دقائق مضت, jjafferr said:

لا يوجد نموذج فرعي في مرفقك!!

 

[محمد احمد لطفى]

3 دقائق مضت, jjafferr said:

 

أستاذى النموذج الحالى فى المرفق هو الفرعى

[محمد احمد لطفى]

شكرا استاذى @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