العبيدي رعد

السلام عليكم لدي زر لحفظ السجلات كالتالي Private Sub Save_Click() 'On Error GoTo Err_Command17_Click Me.b_all.Requery Dim i, x As Integer هي تكست بوكس حقل رقمي يمثل رصيد الصندوق هنا يقع الخطأ ' x = Me.tr i = Me.td If Me.tm <> td Then MsgBox ("لايمكنك الحفظ !! القيد غير متوازن") Me.Undo Else If i > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else If MsgBox("في حال أردت المتابعة والحفظ اضغط نعم واذا أردت الإلغاء اضغط لا" & vbCrLf & "", vbYesNo, " تنبية ") = vbYes Then DoCmd.Save On Error GoTo BCC Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;") While Not Q.EOF Q.Edit Q!mz = True Q.Update Q.MoveNext Wend DoCmd.GoToRecord , , acNewRec no.SetFocus ACC: Exit Sub BCC: Resume ACC End If End If End If End Sub يظهر لي الخظأ المرفق في الصورة

شكرا جزيلا استاذ ابو خليل تم العمل والنتيجة صحيحة

العزيز الاستاذ ابو خليل المحترم كل شهر رمضان وأنت بالف خير أرفق هذه الصورة حيث استعلام البحث جلبته من استعلام qrs وعملت نموذج البحث وتكست اسمها t1 فأين الخطأ

السلام عليكم شكرا جزيلا استاذ خليفة ... لاأدري لماذا لايتم البحث عندي ....الاستعلام للبحث مأخوذ من استعلام اخر لان اريد البحث بجدولين بينهما علاقة وعندما اطبق نفس المعايير يظهر الحقل بإسم exp1

السلام عليكم استاذ قاسم ... جربت على مرفق لي للبحث ولم تظهر النتائج في فورم search5 هل يجب أن أدخل جميع الحقول الموجودة في الاستعلام ؟ ولماذا يظهر عندي exp

السلام عليكم الف شكر استاذي العزيز وتقبل الله اعمالكم في هذا الشهر الفضيل يظهر أن فكرتي لم تصل بالصورة المطلوبة أرفق صورة لتوضيح العملية الحسابية للرصيد التراكمي وبالنسبة للفورمات احتاجها حتى تكون الفوارز 55,500,750 هكذا

السلام عليكم وتقبل الله تعالى أعمالكم في هذا الشهر المبارك شهر رمضان في مشاركة من الاخ ابن فلسطين والحل من الاستاذ خليفة ماذا لو كان عندي استعلام واريد عمل نفس الاستعلام المرفق لكن الاسماء باللغة الانكليزية [ no , datee , daleel , notes , geha] كيف ستكون صيغة الاستعلام ... بمعنى كيف التفريق بين التسميات العربية أو اذا كانت بالانكليزية DD127.rar

السلام عليكم اخي العزيز تعبتك معي لكن نريد نتعلم منكم يا استاذ هذه معادلة الرصيد السابق في الاستعلام sab: Format(Nz(DSum("[madeen]-[daaen]";"tabel1";"[id]<=" & [id]);0);"#,###" & 0) لم تضبط معي وهذه معادلة الرصيد قبل تاريخ الاول (d1) = format(Nz(DSum("[madeen]-[daaen]";"tabel1";"[id]<" & [id]);0);"#,###" & 0)

السلام عليكم الف شكر استاذي العزيز لكن لم اجد الرصيد السابق والذي نوهت اليه في مشاركتي السابقة وكما ارفق لكم البرنامج

الاستاذ خليفه المحترم ماذا لو كانت البيانات بالانكليزي واستعلام البحث تكون معلوماته من استعلام بإسم qur اسماء الحقول المطلوبة مثلا ... no,type,datee,daleel,notes,mafeen,daaen

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

السلام عليكم الف شكر العزيز ماأريده كما موضح في الصورة المرفقة

الف شكر اخي مهندس قاسم .... انا كان خطأئي ايضا بفرز الصندوق فتنبهت له وكتبت تسلسل الرقمي للصندوق السؤال هو أني اريد عمل كشف حساب للصندوق بين تاريخين وجلب الرصيد السابق قبل الفترة الاولى وكيف اتخلص من كتابة رقم تسلسل الصندوق فقد يضاف مثلا حساب اخر ويتخربط التسلسل الف الف شكر لجنابكم الكريم على الاستجابة

السلام عليكم المطلوب فرز الصندوق وعمل استعلام برصيد الصندوق وفق تسلسل التاريخ ماقبله يكون الافتتاح والرصيد = الرصيد السابق + دائن - مدين اعمل باكسس 2010 ... أود معرفة معيار فرز الصندوق في الاستعلام ايضا الصندوق.rar

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

السلام عليكم أخي ابا خليل المحترم وجد ت كود لطيف في موقع يخير مدخل البيانات في النموذج الفرعي حتى وإن كان نموذج مستمر في حدث قبل التحميل للنموذج On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property ' is set to true Display message to save the record If MsgBox("هل ترغب بحفظ هذا السجل والمتابعة? اضغط نعم لإتمام السند,بعد التأكد من ادخال كافة الحقول", _ vbYesNo + vbQuestion, "حفظ السجل") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit لبيان رأيكم وانقله للفائدة

السلام عليكم كل الود والاحترام لكم أخي الفاضل @ابوخليل لطالما استفدنا من ملاحظاتكم مدخل البيانات ليس له اطلاع برسائل الاكسس ... انا سوف اجبره على الادخال لكل حقل أردت فقط الن ينتبه قبل الحفظ التام مراجعة السند ففي حال يحصل تغيير سوف يغير بالسند والذي سيظهر لي لاحقا من تجربة جدول التغيير التي بعثتها مشكورا

هنا ادرج محاولة لألغاء الحفظ لكن يعطي بعدها خطأ في الكود أدناه مع انه يلغي الحفظ DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 ما معنى هذا الكود ؟ وهل يمكن الغاء الحدث عند غلق الفورم أو الاستعاضة عنه بدمجه مع زر الحفظ محاول الغاء الحفظ.rar

جاري التجربة استاذنا ابا خليل وماذا عن السؤال المتعلق بالغاء الحفظ التلقائي

السلام عليكم ارفق محاولة باضافة جدول باسماء المسؤولين وكذلك جدول للتغييرات وجدت محاولة قديمة للآستاذ ابو ادم مع ارفاق الموديل رقم 2 .... حقيقة جدول وكودات رائعة لكن أحاول أن أطبقها وانا بحاجة لمساعدتكم علما اضفت حقل اسم المحاسب الى جدول bills واضفت تكست بوك لظهور اسمه في نموذج sanadatسندات 3.rar سندات 3.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته الشكر والامتنان للأخ الاستاذ ابو خليل على مروره الكريم ماذا تقصد من هذه العبارة أدناه؟ فأغلب الحقول في جدول bills مطلوبة .... وبالنسبة للتغيير فسوف ارتب جدول حسب مااقترحتموه ايسر طريقة هو ان تجعل حقلا من حقول مصدر البيانات (الذي هو الجدول ) في خصائص الحقل : مطلوب= نعم ، ويتم تعبئته عند نقر زر الحفظ

السلام عليكم ارفق هذا البرنامج وواجهة الادخال فيه هو فورم sandat لم يفلح بالغاء الحفظ او التراجع عن الحفظ هذا أولا وثانيا كيف يمكن في حال تم التغيير في سند معين يظهر التغيير مثلا في جدول ومن ثم فورم لإظهار ماتم تغييره سندات 2.rar

الف شكر استاذي ابو خليل المحترم

احسنتم كثيرا

السلام عليكم هل تعمل البرامج المصممة في 2003 مع 2019 ؟