زر معاينه وطباعة بنفس الوقت

[العوام]

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

اخواني الأعضاء والمستشارين.. 

مطلوب زر امر معاينه ثم طباعة بنفس الزر 

يعني امرين في زر واحد.. هل يمكن ذلك

وايضا إضافة سجل جديد وحفظ السجل الحالي.. 

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

تحياتي.. 

[Moosak]

تفضل أخي هذه أهم أوامر التعامل والتنقل بين السجلات والتعامل مع التقارير .. 🙂 

خذ منها ما تريده .. وادمج الأوامر التي تريدها في زر واحد :

أولا حذف السجل

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_PrintReportBtn_Click

    Dim stDocName As String

    stDocName = "ReportName"
    DoCmd.OpenReport stDocName, acViewPreview, , "ID=" & [ID]
    DoCmd.RunCommand acCmdPrint
    
Exit_PrintReportBtn_Click:
    Exit Sub

Err_PrintReportBtn_Click:
    MsgBox Err.Description
    Resume Exit_PrintReportBtn_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

 

تم تعديل يونيو 6, 2022 بواسطه Moosak

[abouelhassan]

رائع اخى موسى بارك. الله لك وبك

[العوام]

بارك الله فيك أخي موسى وفي ميزان حسناتك يارب.. رب يجزيك الجنه