محمدنجار

:: هل قمت بتحديد "Text Box" ومن ثم ذهبت الى خصائصه وقمت باختيار اللغة العربية ؟!... عند ذلك يجب ان تكو ن لغة الكتابة الافتراضية هي العربي ... ::شكرا للاخ kanory

:: عليكم السلام تفضل من هذا الخيار يمكن تحديد اللغة الافتراضية لكل حقل .

:: عليكم السلام ... شكرا لك اخ سلوم على الرد والمعلومة :: لكن سؤالي هو كيفية استدعاء التقرير الذي يتضمن كشف الزيون وكشف المورد لنفس الشخص بأمر واحد ؟

السلام عليكم ... اخوتي الكرام ... واسعد الله اوقاتكم ::لدي حسابين لنفس الاسم وهما (رشيد مجيد دائن) هو اسم مورد رمزه 2604 ... و(رشيد مجيد مدين) نفس الشخص ولكنه زبون رمزه 1604 ... ومثله كثير زبون ومورد مثلا (حسن سعد دائن) و (حسن سعد مدين) في نفس الوقت. :: كيف يمكنني اختيار (رشيد مجيد) من كومبو ليضهر في التقرير كشف لكلا الاسمين (رشيد مجيد دائن) و (رشيد مجيد مدين). :: الشكر والامتنان للجميع .

:: تفضل . _UPالمجموع.rar

:: تفضل .. عسى ان يكون طلبك .. _UPالمجموع.rar

:: تفضل الكود ... مع بعض التعديلات Me.Rsedb = (Nz(DSum("[finaltotal]", "InvoiceHT", "[CustomerNum]=" & [CustomerNum]), 0)) - (Nz(DSum("[piad]", "AR", "[Custid]=" & [CustomerNum]), 0)) Invoice_UP.rar

:: للاسف لا يتوفر لدي مثال الان .... ضع انت المثال ليمكننا مساعدتك ..

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

:: تحية للأستاذ شيفان :: تفضل هل هذا يناسبك .....؟ db6_UP.rar

:: تفضل db5_UP.rar

:: موضوع جميل .... شكرا لك اخ شفان ..🙂

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

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

السلام عليكم ... اخوتي الكرام ... واسعد الله اوقاتكم :: كيف يمكن توزيع الكمية الكلية لمادة ما على الصندوق والدزينة ؟ حيث ان الصندوق يحتوي 8 دزينة اما الدزينة فتحتوي 12 قطعة .... حيث باقي قسمة الكمية على 8 هو عبارة عن كمية الدزينات :: اما باقي قسمة الدزينات على 12 فهو عبارة عن كمية القطع .. اي بمعنى اخر كيفية استخراج باقي القسمة في حقل مفرد . . :: وما الخطا في الدالة Box: mod([t_qty];8) :: استخدمت التعبير التالي ونجح معي Box: [t_qty] Mod 12 لكن الامر يحتاج تعديل وضبط (المرفق معدل) .... تحياتي Filling boxes.rar

السلام عليكم ... اخوتي الكرام ... :: هذا كود من الاخ @ابو ياسين المشولي (جزاه الله خيرا) ... لتحديث كميات الفاتورة دفعة واحدة وهو يعمل بشكل جيد ::لكنه بطيء نوعا ما عند اضافة شرط تعبئة المادة بعد السطر العاشر (صندوف , سيت , قطعة) 🙄 :: ارجوا منه او من احد الاساتذه الكرام التعديل عليه او استبداله بأخر ليصيح التحديث اكثر سرعة . مع كل التقدير On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!itname = Rs!itname Then 'تحريره RsEdit.Edit RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم " Exit Sub enderr: MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل" UPdate QTY.rar

UP 🏹

UP 🏹

:: السلام عليكم :: كما قال الاستاذ عبد الله تصميم الفاتورة خطا ؟! لكن تفضل الحل قد يساعدك في شيء ! database_item_buy_UP.rar

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

السلام عليكم ... اخواني الكرام ... :: هناك زر امر في النموذج لتشغيل ثلاث استعلامات تحديث وهي (Qry1 , Qry2 ,Qry2) :: السؤال كيف امنع تشغيل Qry2 مثلا فقط في حال كون قيمة في مربع نص =0 .... أو بمعنى اخر كيفية استخدام امر If Me.[text1]=0 then ....Goto :: الشكر والتقدير للجميع .

:: من بعد اذن الأستاذ عبد الله قدور والاخ ابو زاهر .... تفضل DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate],invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));" 177_UP.accdb

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

:: تفضل .... هل هذا ما تريد ؟ قاعدة البيانات 1.accdb