أكسس وبس

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

الله يكرمك دنيا واخرى جارى التجريب

اين اضع السطر فى اى حدث

تفضل

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

اخى الكريم ابوخليل فى مشكلة حدثت عند الانتهاء من تعديل فاتورة مفروض بعد الحفظ او الطباعى للفاتورة التى تم التعديل فيها ان يتم الرجوع الى نافذة النموذج form1_item الرئيسية لتسجيل فواتير جديد ولكن الذى يحدث ان التبديل بين النموذج الفرعى لا يحدث مما يحدث مشكلة

اخوانى فى المرفق نموذج form1_item يوجد ارقام كيف اشغلها من لوحة المفاتيح الخاصة لوحة الارقام الالة الحاسبة اليوزر admin كلمة المرور 444 كاشير.rar

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

تسلم حبيبي جارى التحديث

اخى الكريم ابو خليل جزاك الله خيرا ولكن الملف لا يفتح حبيبي لو تكرمت احفظه على اوفيس 2007

تسلم جزاك الله خيرا

اليوزر : admin كلمة المرور : 444

اخوانى فى المرفق نموذج login وجدول TblUsers اريد جعل المستخدمين اثنين فقط اذا كان مدير تظهر شاشة نموذج Home بها كل المفاتيح اذا كان مستخدم تظهر شاشة نموذج Home بها مفتاحين ( تسجيل الاصناف - تسجيل فواتير ) اكرمكم الله كاشير.rar

ان شاء الله

المشكلة فى استعلامين الحذف هل من طريقة اخرى بحيث تخزين البيانات وفى نفس الوقت يكون نموذج form1_item فارغ من البيانات وجاهز لاستقبال بيانات

اخوانى فيه استعلامين للحذف delet لحذف بيانات الصنف والاخر delet_fatora لحذف الفاتورة واذا حبينا نعمل جرد لم اجد بيانات هل On Error Resume Next Dim Tabl2Counter As Integer Tabl2Counter = DCount("*", "tabl2") If Tabl2Counter > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO conform ( id, INAME, sal_price, Qty )SELECT tabl2.id, tabl2.INAME, tabl2.sal_price, tabl2.Qty FROM tabl2;" DoCmd.OpenQuery "ubdet_user" DoCmd.OpenQuery "delet" DoCmd.OpenQuery "delet_fatora" DoCmd.SetWarnings True fary1.Requery End If DoCmd.GoToRecord , , acNewRec Me.et = 0 End Sub

اخوانى حل المشكلة ايه ؟

اخوانى المرفق من عمل الاخوة فى هذا الصرح الكبير ( حسين العربى ، رمهان ، ابو عارف ) وانا ممنون لهم واستأذن منهم بالمساعدة فى تكملة هذا المشروع لصديق سورى والله النموذج form1_item خاص بتسجيل الفواتير للاصناف يوجد جهة اليمين 4 تبويبات عند الانتهاء من تسجيل الفاتورة وطباعتها لاستطيع العودة اليها مرة ولا اجدها فى الجدول tabl_fatora ولا يمكن حذف فاتورة او العود للفاتورة مرة اخرى للتعديل فيها اريد المساعد فى كيفية حفظ الفواتير وكذلك حذف فاتورة واستعلام لحساب كمية الاصناف بالقيم جزاكم الله خيرا Copy of 54Items.rar

اخوانى المشكلة فى كل استعلام يتم حساب الرصيد بشكل مختلف مع استعلام Kanory تم حساب الرصيد بطريقة سليمة ليظهر الرصيد 2212 فى نهاية عمود الرصيد كما فى الرصيد الفعلى اما استعلام ابراهيم ظهر الرصيد 2200 اعلى عمود الرصيد ارجو ان يكون المشكلة وضحت اريد ان يكون طريقة حساب الرصيد مثل استعلام Kanory

اريد المساعدة ان يكون الاستعلام زى الصورة التانية

اخوانى فى المرفق نموذج Account_Payable خاص بالموردين ويوجد 2 موردين ابراهيم ، Kanory عند اختيار اى منهما نضغط على مفتاح استعلام اجد الاستعلام الخاص بابراهيم يختلف فى حساب الرصيد عن Kanory والاستعلام مبنى على استعلام واحد INVOICE_SUP اريد حساب الرصيد بحرف Z جزاكم الله خيرا 1307.1.يومية مورد.rar

تمام الله يفتح عليك

اخوانى فى نموذج add للاستعلام عن رصيد الاصناف عند اختيار صنف خاص بالاسمنت مثلا يظهر مفتاح اسمنت ولكن عند الضغط عليه لفتح نموذج Item تظهر رسالة خطأ Root220.rar

تسلم بارك الله فيك

اخوانى عندى نموذج فيه مربع تحرير وسرد حدث بعد التحديث عملت Private Sub Combo1_AfterUpdate() If Me.Combo1.Value = "اسمنت " Then Me.R.Visible = True Me.S.Visible = False Me.T.Visible = False End If If Me.Combo1.Value = "حديد عز" Then Me.R.Visible = False Me.S.Visible = True Me.T.Visible = False End If If Me.Combo1.Value = "رمله" Then Me.R.Visible = False Me.S.Visible = False Me.T.Visible = True End If Me.Requery End Sub المشكلة فى الجزء الاول عند اربع انوع من الاسمنت ( اسمنت السويس - اسمنت اسيوط - اسمنت العسكرى - اسمنت شديد ) عاوز استخدم كلمة اسمنت فقط لتعبر على كل انوع الاسمنت بدل من كتابة كل انواع الاسمنت