كود حذف السجل الحالي وكود طباعة السجل الحالي

[ali1393]

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

 

اخواني الكرام الاساتذه الإعزاء

 

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

 

الله يوفقكم جميعا ويزيدكم من خيره ويزيدكم علما ووقارا وسعة في الرزق

أخوكم

 

الملف مرفق

طباعه.rar

[.Azhar]

مرحبا بك اخي في المنتدى 

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

Private Sub Command10_Click()

 Dim strReportName As String
    Dim strCriteria As String

    If NewRecord Then
        MsgBox "لايوجد قيد او سجل لغرض طباعته , الرجاء اختر سجل معين", vbInformation, "طباعة"
        Exit Sub
    Else
        strReportName = "هنا تكتب اسم التقرير"
        strCriteria = "[ID]= " & Me![id]
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

    End If
End Sub

لاحظ ان الكود يوضع في حدث عند النقر على الزر Command10 وان الرساله تظهر لك في حالة النموذج لا توجد به بيانات اي انه فارغ , كما ارجوا منك الانتباه الى اسم التقرير وحقل الــ ID في جدولك , بمعنى المفتاح الاساسي للسجل في الجدول . 

كما يجب ملاحظة السطر من الكود 

DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

والذي فيه عبارة acViewPreview وهي عرض التقرير في المعاينة قبل الطباعة . 

[.Azhar]

اما فيما يخص كود الحذف , يوجد هنالك طريقتين .

الاولى للحذف النهائي وهو هذا :-

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

Private Sub Command410_Click()
On Error GoTo Command410_Click_Err

    On Error Resume Next
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If


Command410_Click_Exit:
    Exit Sub

Command410_Click_Err:
    MsgBox Error$
    Resume Command410_Click_Exit

End Sub

[.Azhar]

وكذلك لغرض مشاهدة مثال لطباعة السجل الحالي في الفورم انظر هذا المثال .

http://www.officena.net/ib/index.php?showtopic=55827&hl=

[ali1393]

استاذي العزيز / ازهر حفظه الله ومتعه بالصحة والعافية

 

الله يوفقك ويسعدك على هذه الأكواد الجميله والرائعه

 

بالنسبه لطباعة السجل الحالي اللي يوجد فيه ارشيف الرابط ، فتحته ولكن للأسف الملف على اوفيس غير 2003 ولم يشتغل معي ولا استطيع الاطلاع على الكود فإذا كان على 2003 أكون لك من الشااكرين يا غالي

تم تعديل ديسمبر 19, 2014 بواسطه ali1393