عمل زر للتراجع في نموذجين

[محمد القدسي]

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

برنامج مراسلات.rar

[علي المصري]

جرب الامرالتالي

Private Sub cmdUndoChanges_Click()
    DoCmd.RunCommand acCmdUndo
End Sub

[محمد القدسي]

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

[.Azhar]

بعد اذن الاستاذ علي

اخي العزيز الاكسس بمجرد الانتقال من حقل الى اخر يقوم ذاتياً بحفظ السجل .

يجب عليك وضع زر تراجع في الفورم الرئيسي والفرعي

او اعتمد هذه الاكواد

Private Sub Form_Undo(Cancel As Integer)
    If bPreventClose Then
        Cancel = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)

    If bPreventClose = True Then
        Cancel = True
    End If
    bPreventClose = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    Dim UserResp As Integer
    UserResp = MsgBox("انقر نعم للتراجع او لا للحفظ ... سيتم التراجع عن التغيير", vbYesNoCancel)
    Select Case UserResp
        Case vbNo
            Cancel = True
            Me.Undo
            bPreventClose = False
            Exit Sub
        Case vbCancel
            bPreventClose = True
            Cancel = True
            Exit Sub
        Case Else
            bPreventClose = False
    End Select
End Sub

Private Sub Command13_Click()
On Error GoTo Command13_Click_Err

    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If


Command13_Click_Exit:
    Exit Sub

Command13_Click_Err:
    MsgBox Error$
    Resume Command13_Click_Exit

End Sub

تم تعديل سبتمبر 27, 2014 بواسطه .Azhar

[.Azhar]

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

هذا الكود تضعه في الفورم الرئيسي

Private Sub Command13_Click()
On Error GoTo Command13_Click_Err

    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If


Command13_Click_Exit:
    Exit Sub

Command13_Click_Err:
    MsgBox Error$
    Resume Command13_Click_Exit

End Sub

وهذان تضعهم في الفرعي والرئيسي / الاخذ بعين الاعتبار اسماء الازرار

Private Sub Form_Undo(Cancel As Integer)
    If bPreventClose Then
        Cancel = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)

    If bPreventClose = True Then
        Cancel = True
    End If
    bPreventClose = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    Dim UserResp As Integer
    UserResp = MsgBox("انقر نعم للتراجع او لا للحفظ ... سيتم التراجع عن التغيير", vbYesNoCancel)
    Select Case UserResp
        Case vbNo
            Cancel = True
            Me.Undo
            bPreventClose = False
            Exit Sub
        Case vbCancel
            bPreventClose = True
            Cancel = True
            Exit Sub
        Case Else
            bPreventClose = False
    End Select
End Sub

تم تعديل سبتمبر 27, 2014 بواسطه .Azhar

[علي المصري]

الاستاذ أزهر

بارك الله فيك وجزاك الله خيرا

 

انت تنور أي موضوع تشارك فيه

[محمد القدسي]

هل ممكن توضح لي اكثر

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

[محمد القدسي]

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

[محمد القدسي]

هل من مجيب اخواني

[محمد القدسي]

ارجو ان احظى منكم على الرد لان ظهور الرسالة اكثر من مرة سيكون شاق على المستخدم 

[.Azhar]

شكرا لك استاذ علي , على هذا الاطراء .

انشاء الله انزل مثال اخي محمد