الطباعه بالاكسس

وضاح النوبه · يناير 7, 2017

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

**Shivan Rekany** · يناير 8, 2017

17 ساعات مضت, وضاح النوبه said:

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

اهلا وسهلا بك في منتدى اوفيســـــــــ :fff: ـــــــ :fff: ـــــــــــ :fff: ــــــــــــ :fff: ــــــــنا

اعمل زر واكتب هذا في محرر فيجوال

Private Sub أمر14_Click()
If MsgBox("هل تريد طباعة الفاتورة؟", vbYesNo) = vbYes Then
  DoCmd.OpenReport "p", acViewNormal, , "[id]=forms!from_data!id"
DoCmd.Save
Else
Exit Sub
End If
End Sub

وضاح النوبه · يناير 8, 2017

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

Database5.rar

وضاح النوبه · يناير 8, 2017

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

اخواني الكرام في اخ جزاه الله خير ارسل لي الكود وانا كوني مبتد ممكن شرح الكود التالي

If MsgBox("هل تريد طباعة الفاتورة؟", vbYesNo) = vbYes Then DoCmd.OpenReport "p", acViewNormal, , "[id]=forms!from_data!id" DoCmd.Save Else Exit Sub End If End Sub

احتاج مساعدتكم اخواني.rar

تم تعديل يناير 8, 2017 بواسطه وضاح النوبه
للتوضيح

**Shivan Rekany** · يناير 9, 2017

19 ساعات مضت, وضاح النوبه said:

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

اخواني الكرام في اخ جزاه الله خير ارسل لي الكود وانا كوني مبتد ممكن شرح الكود التالي

If MsgBox("هل تريد طباعة الفاتورة؟", vbYesNo) = vbYes Then DoCmd.OpenReport "p", acViewNormal, , "[id]=forms!from_data!id" DoCmd.Save Else Exit Sub End If End Sub

احتاج مساعدتكم اخواني.rar

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

وضاح النوبه · يناير 9, 2017

2 ساعات مضت, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

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

جزاك الله خير اخي والله ما دريت كيف اشكرك

**Shivan Rekany** · يناير 10, 2017

اخي الكريم
راجع قاعده‌ بياناتك مجددا
اعمل تعديلات عليه

Database5 (1).rar

تم تعديل يناير 10, 2017 بواسطه Shivan Rekany

وضاح النوبه · يناير 10, 2017

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

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

والله ياخي ما دريت كيف اشكرك انك رجل طيب وقفت معائ وهذا من طيبك ربنا يخليك

وضاح النوبه · يناير 12, 2017

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

اخواني الكرام اريد كود بعد الحفظ التلقائئ بشرط بعدم ظهور رساله وأين اضع الكود بالخصائص

تم تعديل يناير 12, 2017 بواسطه وضاح النوبه

وضاح النوبه · يناير 19, 2017

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

**jjafferr** · فبراير 3, 2017

السلام عليكم :smile:

تفضل أخي :smile:

الكود اصبح:

Option Compare Database
Public Ok_to_Print As Integer

Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next

Beep
    If Ok_to_Print = 0 Then
        If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _
                  "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
                  vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
                  "تنبيـــه : تاكيد") = vbOK Then
    
            Ok_to_Print = 1
    
        Else
            Cancel = True
            Me.Undo
            'DoCmd.RunCommand acCmdUndo
        End If
    End If
    
End Sub

Private Sub أمر67_Click()

    Call Form_BeforeUpdate(True)
    
    If Ok_to_Print = 1 Then
    
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند]
        
        Ok_to_Print = 0
    End If
    
End Sub

جعفر

568.احتاج مساعدتكم اخواني.accdb.zip

وضاح النوبه · فبراير 8, 2017

شرح عمل التعديل على فاتوره بيع او شراء

وضاح النوبه · فبراير 8, 2017

مشكوووووووووووووووووررررررررررررررررر اخي

وضاح النوبه · فبراير 9, 2017

السلام عليكم :smile:

تفضل أخي :smile:

الكود اصبح:


Option Compare Database
Public Ok_to_Print As Integer

Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next

Beep
    If Ok_to_Print = 0 Then
        If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _
                  "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
                  vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
                  "تنبيـــه : تاكيد") = vbOK Then
    
            Ok_to_Print = 1
    
        Else
            Cancel = True
            Me.Undo
            'DoCmd.RunCommand acCmdUndo
        End If
    End If
    
End Sub

Private Sub أمر67_Click()

    Call Form_BeforeUpdate(True)
    
    If Ok_to_Print = 1 Then
    
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند]
        
        Ok_to_Print = 0
    End If
    
End Sub

جعفر

568.احتاج مساعدتكم اخواني.accdb.zip

شكرا اخ جعفر

وضاح النوبه · فبراير 9, 2017

ماهي طريقه فتح النماذج من الكيبورد بالارقام مثلا رقم 1 يفتح نموذج فاتوره ورقم2 يفتح مرتجع وهكذا وشكرا للقائمين على الموقع والمشاركين

السلام عليكم :smile:

تفضل أخي :smile:

الكود اصبح:


Option Compare Database
Public Ok_to_Print As Integer

Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next

Beep
    If Ok_to_Print = 0 Then
        If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _
                  "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
                  vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
                  "تنبيـــه : تاكيد") = vbOK Then
    
            Ok_to_Print = 1
    
        Else
            Cancel = True
            Me.Undo
            'DoCmd.RunCommand acCmdUndo
        End If
    End If
    
End Sub

Private Sub أمر67_Click()

    Call Form_BeforeUpdate(True)
    
    If Ok_to_Print = 1 Then
    
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند]
        
        Ok_to_Print = 0
    End If
    
End Sub

جعفر

568.احتاج مساعدتكم اخواني.accdb.zip

شكرا اخ جعفر

تسجيل الدخول

الطباعه بالاكسس

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

وضاح النوبه

Shivan Rekany

وضاح النوبه

وضاح النوبه

Shivan Rekany

وضاح النوبه

Shivan Rekany

وضاح النوبه

وضاح النوبه

وضاح النوبه

jjafferr

وضاح النوبه

وضاح النوبه

وضاح النوبه

وضاح النوبه

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information