تحويل زر حفظ وجديد الى كود VBA

[naguib_3778]

ارغب فى كود VBA

لحفظ البيانات

و فتح سجل جديد

تم تعديل يونيو 24, 2023 بواسطه naguib_3778

[Moosak]

تفضل أخي العزيز .. ولزيادة الخير وضعت لك أكواد جميع الإجراءات الأساسية :

الإجراءات الإعتيادية للسجلات ( حفظ - جديد - حذف - إضافة - تكرار - التالي - السابق - الأول - الأخير  - .....)

'===================================== حفظ السجل والذهاب لسجل جديد
Private Sub SaveRecBtn_Click()
On Error GoTo Err_SaveRecBtn_Click


    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec

Exit_SaveRecBtn_Click:
    Exit Sub

Err_SaveRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_SaveRecBtn_Click
    
End Sub

'=====================================  حذف السجل

Private Sub DeleteBtn_Click()
On Error GoTo Err_DeleteBtn_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

Exit_DeleteBtn_Click:
    Exit Sub

Err_DeleteBtn_Click:
    MsgBox Err.Description
    Resume Exit_DeleteBtn_Click
    
End Sub

'===================================== إضافة سجل جديد
Private Sub AddNewBtn_Click()
On Error GoTo Err_AddNewBtn_Click


    DoCmd.GoToRecord , , acNewRec

Exit_AddNewBtn_Click:
    Exit Sub

Err_AddNewBtn_Click:
    MsgBox Err.Description
    Resume Exit_AddNewBtn_Click
    
End Sub

'===================================== السجل التالي
Private Sub NextBtn_Click()
On Error GoTo Err_NextBtn_Click


    DoCmd.GoToRecord , , acNext

Exit_NextBtn_Click:
    Exit Sub

Err_NextBtn_Click:
    MsgBox Err.Description
    Resume Exit_NextBtn_Click
    
End Sub

'===================================== السجل السابق
Private Sub PreviousBtn_Click()
On Error GoTo Err_PreviousBtn_Click


    DoCmd.GoToRecord , , acPrevious

Exit_PreviousBtn_Click:
    Exit Sub

Err_PreviousBtn_Click:
    MsgBox Err.Description
    Resume Exit_PreviousBtn_Click
    
End Sub

'===================================== السجل الأول
Private Sub FirstBtn_Click()
On Error GoTo Err_FirstBtn_Click


    DoCmd.GoToRecord , , acFirst

Exit_FirstBtn_Click:
    Exit Sub

Err_FirstBtn_Click:
    MsgBox Err.Description
    Resume Exit_FirstBtn_Click
    
End Sub

'===================================== السجل الأخير
Private Sub LastBtn_Click()
On Error GoTo Err_LastBtn_Click


    DoCmd.GoToRecord , , acLast

Exit_LastBtn_Click:
    Exit Sub

Err_LastBtn_Click:
    MsgBox Err.Description
    Resume Exit_LastBtn_Click
    
End Sub

'===================================== البحث عن سجل
Private Sub FinedRecBtn_Click()
On Error GoTo Err_FinedRecBtn_Click


    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind

Exit_FinedRecBtn_Click:
    Exit Sub

Err_FinedRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_FinedRecBtn_Click
    
End Sub


'===================================== تكرار السجل
Private Sub DublicateRecBtn_Click()
On Error GoTo Err_DublicateRecBtn_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste

Exit_DublicateRecBtn_Click:
    Exit Sub

Err_DublicateRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_DublicateRecBtn_Click
    
End Sub

'===================================== حفظ السجل
Private Sub SaveRecBtn_Click()
On Error GoTo Err_SaveRecBtn_Click


    DoCmd.RunCommand acCmdSaveRecord

Exit_SaveRecBtn_Click:
    Exit Sub

Err_SaveRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_SaveRecBtn_Click
    
End Sub

'===================================== طباعة السجل الحالي
Private Sub PrintRecBtn_Click()
On Error GoTo Err_PrintRecBtn_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.PrintOut acSelection

Exit_PrintRecBtn_Click:
    Exit Sub

Err_PrintRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_PrintRecBtn_Click
    
End Sub


'===================================== التراجع عن التسجيل
Private Sub UndoRecBtn_Click()
On Error GoTo Err_UndoRecBtn_Click


    DoCmd.RunCommand acCmdUndo

Exit_UndoRecBtn_Click:
    Exit Sub

Err_UndoRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_UndoRecBtn_Click
    
End Sub

'===================================== فتح التقرير وطباعة السجل المحدد بدلالة الرقم التسلسلي
Private Sub Print_Click()

On Error GoTo Err_OpenReportBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OpenReport stDocName, acViewReport, , "ID =" & Me.ID
    DoCmd.RunCommand acCmdPrintPreview
    DoCmd.RunCommand acCmdPrint
    
Exit_OpenReportBtn_Click:
    Exit Sub

Err_OpenReportBtn_Click:
    If Err.Number = 2501 Then Resume Exit_OpenReportBtn_Click 'print cancelled
    MsgBox Err.Number & vbCr & Err.Description
    Resume Exit_OpenReportBtn_Click

End Sub


'===================================== طباعة تقرير
Private Sub PrintReportBtn_Click()
On Error GoTo Err_PrintReportBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OpenReport stDocName, acNormal

Exit_PrintReportBtn_Click:
    Exit Sub

Err_PrintReportBtn_Click:
    MsgBox Err.Description
    Resume Exit_PrintReportBtn_Click
    
End Sub

'===================================== معاينة تقرير
Private Sub VeiwReportBtn_Click()
On Error GoTo Err_VeiwReportBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OpenReport stDocName, acPreview

Exit_VeiwReportBtn_Click:
    Exit Sub

Err_VeiwReportBtn_Click:
    MsgBox Err.Description
    Resume Exit_VeiwReportBtn_Click
    
End Sub

'===================================== فتح تقرير
Private Sub OpenReportBtn_Click()
On Error GoTo Err_OpenReportBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OpenReport stDocName, acViewReport

Exit_OpenReportBtn_Click:
    Exit Sub

Err_OpenReportBtn_Click:
    MsgBox Err.Description
    Resume Exit_OpenReportBtn_Click
    
End Sub

'===================================== حفظ تقرير بصيغة
Private Sub SendReportToBtn_Click()
On Error GoTo Err_SendReportToBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OutputTo acReport, stDocName

Exit_SendReportToBtn_Click:
    Exit Sub

Err_SendReportToBtn_Click:
    MsgBox Err.Description
    Resume Exit_SendReportToBtn_Click
    
End Sub

 

[شايب]

3 ساعات مضت, naguib_3778 said:

ارغب فى كود VBA

لحفظ البيانات

و فتح سجل جديد

اذا كان النموذج مرتبط بمصدر بيانات فلا حاجة لامر حفظ وبمجرد الانتقال لسجل جديد او سابق وخلافه يحفظ الاكسس البيانات

وهناك حالات معينة تكون اسنثناء

[naguib_3778]

منذ ساعه, شايب said:

اذا كان النموذج مرتبط بمصدر بيانات فلا حاجة لامر حفظ وبمجرد الانتقال لسجل جديد او سابق وخلافه يحفظ الاكسس البيانات

 

انا محتاج الكود علشان هزود عليه أوامر هتتنفذ بعد الحفظ او فتح سجل جديد

[شايب]

28 دقائق مضت, naguib_3778 said:

انا محتاج الكود علشان هزود عليه أوامر هتتنفذ بعد الحفظ او فتح سجل جديد

بعد حفظ السجل ممكن  والخاصية Dirty قد تغني

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

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