ابو ياسين المشولي

شوف اخي هو يعطيك نفس النتيجه ادخل الارقام وقارن الان طبقتها لك بنفس الاكسل النتيجه: [A2]-1+[B2] شوف الصورة 11 (1) (2).rar

اتفضل اخي هذا حسب طلبك 11 (1).rar

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

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

الرسالة اللي تواجه فيها مشكلة تح حلها اللي بعدها ما فهمتها ممكن الاخوان بيفهمو هذا كود الرسالة الاولى Dim x As Boolean x = Me.T2 If Me.tr > x Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else

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

بارك الله فيك ونور الله بصرك

ابدا والله والله ماعندي اي مشكلة نجن في الخدمه بقد مانستطيع بس حبيت واضح لك الامر

اخي بارك الله فيك انت عامل الجدولين بنفس النموذج الفرعي والرئيسي مايحتاج كود الحاق في حال لم يكون مصدر النموذج نفس الجدول يكون هكذا DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO newentryhead (entryno,entype,endate,endetail) VALUES (entryno,entype,endate,endetail)" DoCmd.SetWarnings True

اضف هذا قبل الا لحاق If IsNull(age) Then MsgBox " فـضـلاً قم بتعبيه الحقل ", vbInformation, "تنبية : خـطـاء " age.SetFocus Undo Exit Sub Else End If

انت هنا اخي لم تحدد ماتريد لحاقه وماهو الجدول وما هي الحقول وانا لا اعرف ماتريدة بالضبط

العفو اخي بارك الله فيك

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

اتفضل هذا حسب فهمي لطلبك برنامج 0.5 %.rar

اتفضل اخي هذا في الفورم الرئيسي اذا احتجته If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.Sales_Invoice_sub_Subform![اسعار الجملة بالدولار] = Me.Sales_Invoice_sub_Subform![سعر الجمله $] وهذا في الفرعي If Forms![حركة فاتورة البيع 2]!Payment_Method = "cash" Then Me.[اسعار الجملة بالدولار] = Me.[cash price] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "credit" Then Me.[اسعار الجملة بالدولار] = Me.[two month] End If If Forms![حركة فاتورة البيع 2]!Payment_Method = "one month" Then Me.[اسعار الجملة بالدولار] = Me.[سعر الجمله $] End If

ما فهمت كيف يسمعو

اخي والله من كثر الحقول ما فهمت طلبك لكن انا ببسط لك الامر وانت بتفه الشرط بيكون هكذا If Me.Payment_Method = "cash" Then Me.Text101 = Me.[cash price] End If وهكذا في بقه الحقول

بارك الله فيك اخي Shivan Rekany وفيت وكيفت تسلم الله يحفظك

اخي ارفق مثال واشرح المطلوب كل واحد وله طريقه حتى تستفيد من طرق اخرى

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

اتفضل هذا حسب فهمي لطلبك برنامج 0.5 %.rar

اتفضل هذا حسب طلبك 123.accdb

بالتوفيق اخي

شوف هل هذا ماتريد حذفتها حسب طلبك شو اخي ضع هذا الكود عند الحفظ DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO user (phone,uid,uname) VALUES (phone,uid,uname)" DoCmd.SetWarnings True وهذا قبل او بعد الحدث في اي حقل تريده Me.uid.Value = Nz(DMax("[uid]", "user") + 1, 1) وفبل هذا اجعل الرقم بدل ترقيم تلقايل اجعله رقم تحياتي

صدقت اخي Shivan Rekany الاسم يدل على المسمى ولكن اخونا عمل الاسم غير والقصد غير