اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود الحذف لايعمل


husseinharby
إذهب إلى أفضل إجابة Solved by ابوآمنة,

الردود الموصى بها

السلام عليكم

في  نموذج sale

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

لكن الحذف لايعمل

عندما اقوم بحذف صف من النموذج الفرعي لا يظهر الحذف في جدول revesion

 

copy (1).rar

رابط هذا التعليق
شارك

احسنت اخى واستاذى صالح @ابوآمنة جزاك الله خيرا :fff:

اخى حسين @husseinharby لاتنسى بارك الله فيك👇

ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) :

Accept_Answer.gif.401f15a110006d0ce12ac147a6f7e481.gif

.

شكرا 🙂

رابط هذا التعليق
شارك

  • أفضل إجابة
48 دقائق مضت, husseinharby said:

عذرا استاذ صالح 

خطأ بالكود يظهر لي

Capture2.JPG

الكود بعد  وضع كود تجاوز الخطأ

جرب الآن

Sub AuditChanges(IDField As String, UserAction As String, UsedForm As Form)
  'كود تجاز الخطاء
   ' 
   On Error Resume Next
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim ctl As Control
    Dim datTimeCheck As Date
    Dim strUserID As String
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM revision", cnn, adOpenDynamic, adLockOptimistic
    datTimeCheck = Now()
    strUserID = Environ("USERNAME")
    
    Select Case UserAction
        Case "EDIT"
            For Each ctl In UsedForm.Controls
                If ctl.Tag = "Audit" Then
                    If Nz(ctl.Value) <> Nz(ctl.OldValue) Then
                        With rst
                            .AddNew
                            ![DateTime] = datTimeCheck
                            ![UserName] = strUserID
                            ![FormName] = UsedForm.name
                            ![Action] = UserAction
                            ![RecordID] = UsedForm.Controls(IDField).Value
                            ![FieldName] = ctl.ControlSource
                            ![OldValue] = ctl.OldValue
                            ![NewValue] = ctl.Value
                            .Update
                        End With
                    End If
                End If
            Next ctl
            
        Case "DELETE"
            For Each ctl In UsedForm.Controls
                If ctl.Tag = "Audit" Then

                        With rst
                            .AddNew
                            ![DateTime] = datTimeCheck
                            ![UserName] = strUserID
                            ![FormName] = UsedForm.name
                            ![Action] = UserAction
                            ![RecordID] = UsedForm.Controls(IDField).Value
                            ![FieldName] = ctl.ControlSource
                            ![OldValue] = ctl.Value
                            .Update
                        End With
                End If
            Next ctl

          Case Else
         For Each ctl In UsedForm.Controls
                 If ctl.Tag = "Audit" Then
                    If Nz(ctl.Value) <> Nz(ctl.OldValue) Then
            With rst
                .AddNew
                ![DateTime] = datTimeCheck
                ![UserName] = strUserID
                ![FormName] = UsedForm.name
                ![Action] = UserAction
                ![RecordID] = UsedForm.Controls(IDField).Value
                ![FieldName] = ctl.ControlSource
                ![NewValue] = ctl.Value
                .Update
            End With
          End If
      End If
             Next ctl
    End Select
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

End Sub

 

تم تعديل بواسطه ابوآمنة
  • Like 2
رابط هذا التعليق
شارك

@احمد الفلاحجي

شكرا استاذ احمد علي اهتمامك 

تم حل المشكلة من قبل اخينا الكريم استاذ صالح

@ابوآمنة

حاجة بسيطة يا استاذ صالح

Related image

تم تعديل بواسطه husseinharby
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information