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

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

اذا سوف تكون الرسالة بهذا الشكل If Me.tr > Me.T2 And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else

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

شوف اخي هو يعطيك نفس النتيجه ادخل الارقام وقارن الان طبقتها لك بنفس الاكسل النتيجه: [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