وضاح النوبه قام بنشر يناير 7, 2017 مشاركة قام بنشر يناير 7, 2017 اخواني الكرام عندي فاتوره بيع وارجو منكم الكود الذي يعطينه رساله هل تريد الطباعه بشرط يكون زر الطباعه والحفظ زر واحد بس تظهر الرساله بعد الحفظ هل تريد الطباعه وانا اختار نعم وأين اضع الكود كوني مبتدا وجزاكم الله خير رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 8, 2017 مشاركة قام بنشر يناير 8, 2017 17 ساعات مضت, وضاح النوبه said: اخواني الكرام عندي فاتوره بيع وارجو منكم الكود الذي يعطينه رساله هل تريد الطباعه بشرط يكون زر الطباعه والحفظ زر واحد بس تظهر الرساله بعد الحفظ هل تريد الطباعه وانا اختار نعم وأين اضع الكود كوني مبتدا وجزاكم الله خير اهلا وسهلا بك في منتدى اوفيســـــــــــــــــــــــــــــــــــــــــــــــنا اعمل زر واكتب هذا في محرر فيجوال 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 1 رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 8, 2017 الكاتب مشاركة قام بنشر يناير 8, 2017 اخي الله يجزيك خير حاولت ساعدنا الله يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير Database5.rar رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 8, 2017 الكاتب مشاركة قام بنشر يناير 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 بواسطه وضاح النوبه للتوضيح رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 9, 2017 مشاركة قام بنشر يناير 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 الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني 2 رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 9, 2017 الكاتب مشاركة قام بنشر يناير 9, 2017 2 ساعات مضت, Shivan Rekany said: الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني اخي الله يجزيك خير حاولت ساعدنا الله يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير جزاك الله خير اخي والله ما دريت كيف اشكرك رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 10, 2017 مشاركة قام بنشر يناير 10, 2017 (معدل) اخي الكريم راجع قاعده بياناتك مجددا اعمل تعديلات عليه Database5 (1).rar تم تعديل يناير 10, 2017 بواسطه Shivan Rekany 2 رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 10, 2017 الكاتب مشاركة قام بنشر يناير 10, 2017 في ١١/٠٤/١٤٣٨ at 17:23, Shivan Rekany said: الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني اخي الله يجزيك خير حاولت ساعدنا الله يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير والله ياخي ما دريت كيف اشكرك انك رجل طيب وقفت معائ وهذا من طيبك ربنا يخليك رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 12, 2017 الكاتب مشاركة قام بنشر يناير 12, 2017 (معدل) في ١١/٠٤/١٤٣٨ at 17:23, Shivan Rekany said: الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني اخواني الكرام اريد كود بعد الحفظ التلقائئ بشرط بعدم ظهور رساله وأين اضع الكود بالخصائص تم تعديل يناير 12, 2017 بواسطه وضاح النوبه رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر يناير 19, 2017 الكاتب مشاركة قام بنشر يناير 19, 2017 في ١١/٠٤/١٤٣٨ at 17:23, Shivan Rekany said: الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 3, 2017 مشاركة قام بنشر فبراير 3, 2017 السلام عليكم تفضل أخي الكود اصبح: 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 1 رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر فبراير 8, 2017 الكاتب مشاركة قام بنشر فبراير 8, 2017 شرح عمل التعديل على فاتوره بيع او شراء رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر فبراير 8, 2017 الكاتب مشاركة قام بنشر فبراير 8, 2017 مشكوووووووووووووووووررررررررررررررررر اخي رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر فبراير 9, 2017 الكاتب مشاركة قام بنشر فبراير 9, 2017 السلام عليكم تفضل أخي الكود اصبح: 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 شكرا اخ جعفر رابط هذا التعليق شارك More sharing options...
وضاح النوبه قام بنشر فبراير 9, 2017 الكاتب مشاركة قام بنشر فبراير 9, 2017 ماهي طريقه فتح النماذج من الكيبورد بالارقام مثلا رقم 1 يفتح نموذج فاتوره ورقم2 يفتح مرتجع وهكذا وشكرا للقائمين على الموقع والمشاركين السلام عليكم تفضل أخي الكود اصبح: 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 شكرا اخ جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.