ابوآمنة

السلام عليكم ظهرت لي هذه الرسالة عند إدخال القيمة في أحد الحقول ما الحل بارك الله فيكم

وعليكم السلام إن شاء الله يكون هذا المطلوب DCount("[aljinsia]";"tb1";"[aljinsia]='سعودي'") أخوك صالح

هل تستطيع بناء الكود من جديد هذا هو المطلوب إذا كان حقلي If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then فارغين الأمر "حذف الفاتورة" والخروج إذا لم يكونا فارغين اعمل خروج بدون حذف . إذا كان حقل فارغ If IsNull(Me.Text15) Then احذف الفاتورة وعمل خروج إذا كان لم يكون فارغ اخرج رسالة هل تريد حفظ الفاتورة أم لا فقط . أنا حاولت لي فترة اعمل على الكود لم اخرج بنتيجة رجائي أن القى الحقل لديكم

شكراً لكم أخي جعفر لكن لم ينتقل الكود إلى الشرط الثاني If IsNull(Me.Text15) Then لم تظهر الرسالة هل تريد حفظ الفاتورة لحالية "بتاتاً . ما السبب ؟ الفواتير3.rar

السلام عليكم أريد من حضرتكم المساعدة في التعديل على كود الخروج من نموذج "فاتورة مبيعات" التالي : If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close Else DoCmd.Close End If If IsNull(Me.Text15) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close Else Dim Msg, style, title, result Msg = "هل تريد حفظ الفاتورة الحالية" style = vbYesNo title = " تنبيه" result = MsgBox(Msg, style, title) If result = vbYes Then [TotalAmount] = [Text17] [Descount] = [Text15] - [Text17] MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه" DoCmd.Close Else If result = vbNo Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة" DoCmd.Close End If End If End If الفواتير2.rar

من ثنايا قلب يحبكم في الله تخرج كلماتي معطرة بالحب والوفاء.. فلمثلكم ترق الكلمات , ولمثلكم تتهادى الدعوات , ولمثلكم يهتف الفؤاد قائلاً: اللهم سلمهم الى رمضان وسلم إليهم رمضان وتسلمه منهم متقبلآ ومتعهم ببركة أيامه ولياليه. وكُل عام وانتم بخير وكل عام وأنتم إلى الله أقرب

وعليكم السلام ورحمة الله وبركاته لا أتقدم عليك . تم إضافة بعض التحسينات على القاعدة . اجمالي.accdb مجرد أفكار

انظر المرفق وجدته من أحد المشاركات إدراج اكثر من قيمة حقل في الحقل.mdb

جرب هذا المرفق نفس الفكرة

هل أجد لدى الأخ الكريم آدم حل لهذه المشكلة علماً أني جلبت الإصدارات 2007 و 2010 و 2016 فلم يجدي معي .

لا أستطيع إرفاق القاعدة لوجود معلومات شخصية للعملاء . هل من حل آخر . أكون لكم من الشاكرين

وعليكم سلام الله ورحمته وبركاته لقد كفيت ووفيت . ذلك ما نعتقده هو ديدن طالب العلم فلا بد له من المعاهدة والمراجعة وإخلاص النية في أي علم يتعلمه ؛فزكاة العلم نشره وتعليمه . إني ألتمس في كلامك روعة الطابع الديني الجميل الذي يذكرنا بأن العلم بشتى صوره إنما هو من عند الله كما قالت الملائكة عليه السلام في في قول الله تعالى : اللهم لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم والسلام عليكم ورحمة الله وبركاته شكراً أبا آدم

طيب والحل علمنا مما علمك الله

مهم جدا ...

تحية طيبة على الجميع ظهرت لي رسالة نصها "لا يمكن التعرف على تنسيق قاعدة البيانات" عند فتح ملف الأكسس . آمل مساعدتكم لحل المشكلة ؟

SetOption "Confirm Action Queries", False ""ضع هذا الكود فقط قبل أمر تشغيل استعلامات الحذف أو الإلحاق أو التحديث . وذلك لتعطيل الرسائل الافتراضية التي تخرج تلقائياً في الأكسس ( أنت على وشك القيام بحذف ... ألخ )"" الحمدلله تم حل المشكلة بواسطة هذا الكود شكراً لكم

للرفع

data_saleh.rar بالمرفق مثال المشكلة في إضافة كود طباعة التقرير أما لو أزلته الأمور تمام أرجو من من لديه خبره أيفيدنا في حل المشكلة المرفق وجدته في أحد المشاركات أرجو المعذرة من صاحبه

'On Error Resume Next DoCmd.Beep DoCmd.SetWarnings False If MsgBox("سوف يتم حفظ الفاتورة بعد طباعتها. تريد بالفعل اكمال العملية ", vbYesNo + vbInformation + vbMsgBoxRight + vbDefaultButton1, "تنبيـــه") = vbNo Then DoCmd.RunCommand acCmdDeleteRecord SendKeys "{ESC}" MsgBox "لقد تم إلغاء عملية الطباعة والحفظ ", vbMsgBoxRight + vbInformation, "" Refresh DoCmd.Close ElseIf IsNull(Me.totalinvoice) Or IsNull(Me.itemcount) Then MsgBox "ادخل اصناف الفاتورة ", vbInformation, " " Me.F_ordersubform.SetFocus ElseIf (Me.totalinvoice) = 0 Then MsgBox "ادخل اصناف الفاتورة ", vbInformation, " " Me.F_ordersubform.SetFocus ElseIf IsNull([F_ordersubform]![Qty]) And ([F_ordersubform]![itemcode]) > 0 Then MsgBox "ادخل العدد ", vbInformation, " " Me.F_ordersubform.SetFocus [F_ordersubform]![Qty].SetFocus Else DoCmd.GoToRecord , , acNewRec If Me.orderno > 0 Then DoCmd.Close Exit Sub Else Refresh Call MyOutoNum F_ordersubform.SetFocus DoCmd.GoToControl "itemcode" Refresh End If End If Exit Sub أين أضع كود طباعة التقرير علماً أني أضفت الكود وخرجت لي رسالة خطأ أمل المساعدة في تحديد مكان كود طباعة التقرير DoCmd.OpenReport "SalInvoicecode", acViewNormal, "", "", acNormal

هل بالإمكان وضع شرح مصور لربط قاعدة البيانات ثم إضافة كلمة مرور على قاعدة الجداول

شكراً لقد استفدت منك كثيراً

للرفع

أخي الغالي شفان ملحوظة بعد إضافة الصنف بالباركود ينتقل التركيز إلى حقل الكمية . أما يدوياً فتمام لا يخرج عن حقل رقم الصنف . المطلب : أريد بعد إضافة الصنف بالباركود لا يخرج عن حقل "رقم الصنف" . هل هناك إضافة في الكود حتى يتم نقل التركيز إلى "رقم الصنف"

جزاك الله خيراً أخي شفان وأجزل الله لك العطاء وأضاء طريق وهداك إلى سواء السبيل . ويسر أمور كما يسرت أمور الناس .

شكرا لك أخي شفان لم انتبه للخطأ الآن بعد إضافة فاتورة جديدة وصنف جديد ثم صنف ثاني مختلف رقمه عن الأول في النموذج الفرعي يختفي من القائمة ينحذف لماذا !!!؟؟