ابوآمنة
-
Posts
713 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابوآمنة
-
شكراً أبا جودى لمسات رائعة تشكر عليها . أشرت في ردك الأخير لموضوع ( احمل ملفاتك الهامة بقاعدة البيانات ) للأستاذ الجليل / جعفر هل أرفقت لنا الطريقة أو المشاركة كيف نستفيد منها ؟ وكذا زر "جديد" في النموذج لا يعمل . وأجدد شكري لك أخي أبا جودى وللزملاء الكرام.
-
هل يمكن تحويل الكود ليعمل في الاستعلام لكي لا اضطر إلى إنشاء عدة حقول في جدول أطراف الفاتورة "InvoiceHelperTab" والهدف من تحويل الكود للاستعلام لعمل كشف مشتريات للعميل Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Set rst = Me.InvoiceHelperTab.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To rst.RecordCount rst.Edit rst!Descount = rst!QtyOut * rst!Price * (1 - (Me.percentDescount / Me.Text64)) rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing DoCmd.RunCommand acCmdSaveRecord وهذا المطلوب ويكون في استعلام وهذا المرفق فيه الاستعلام (Q1 ) المطلوب توزيع الخصم من رأس الفاتورة إلى أطرافها آلياً من خلال الاستعلام .
-
بالنسبة لآلية الديون سأجعلها كما تفضلت لكن ألا يمكن تحويل الكود ليعمل في الاستعلام نفس الفكرة السابقة . وشكرا لكم
-
شكرا حبيبنا جعفر لسعة صدرك 😘
-
شكر على الإفادة أما ترى أن الصور الموظف ستكون كلها برقم واحد ألا يمكن وضع لكل صورة تقسيم 100-1 و 100-2 و 100-3
-
شكراً جزيلاً أستاذي ومعلمي جعفر ابدعت فأحسنت فبوركت . ما هو التعديل؟
-
بصراحة أبهرتني بالحل والكود الجميل Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Set rst = Me.InvoiceHelperTab.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To rst.RecordCount rst.Edit rst!Descount = rst!QtyOut * rst!Price * (1 - (Me.percentDescount / Me.Text64)) rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing DoCmd.RunCommand acCmdSaveRecord ممتاز جداً الحل لكن هل نستطيع أن نعمل ذلك في الاستعلام Q1 كما في المرفق . لأني أفكر عندي ديون بيع كيف يتأثر أيضا سداد الدين على الفاتورة والصنف بالأخص . هل هناك معادلة يتم وضعها في الاستعلام وتقوم بتوزيع الدين أو الخصم من رأس الفاتورة إلى أطرافها . اتمنى الفكرة وصلت test1(2).accdb
-
للرفع تكرماً ،،،
-
المثال بالمرفق وهل يتم ذلك عن طريق استعلام أو في الجدول test1.accdb
-
ما هو الطريقة الصحيحة لتوزيع الخصم العام على الأصناف دخال الفاتورة دون الزيادة على قيمة الصنف . على سبيل المثال : لدينا فاتورة بقيمة 100 تم الحسم العام على الفاتورة 11 فيها أصناف متعدده كالتالي: جبن بقيمة 7 الكمية 1 المجموعة = 7 قشطة بقيمة 3 الكمية 1 المجموع = 3 جبن حلوم بقيمة 10 الكمية 9 المجموع =90 المطلوب توزيع الخصم على الأصناف داخل الفاتورة بشرط عدم تجاوز قيمة الصنف وينتقل الفائضة من الصنف إلى الصنف الذي يليه وهكذا .😁
-
شكرا لك
-
ما شاء الله تبارك الله يعمل بنجاح أستاذي ابا جودى، اللهم كما رفعت ذكر اللغة العربية لغة اللقرآن اللهم ارفع ذكرك وخلده وعلي منزلتك في الدنيا والآخرة .- 22 replies
-
- 1
-
-
- الأرقام العربية
- وقت وتاريخ الواجهات بالعربية
- (و1 أكثر)
-
🌺 كل عام وأنتم بخير أستاذي الفاضل ابا جودى وجميع الأعضاء في المنتدى من العيدين والفايزين بالنسبة للمرفق إذا وصلت البيت بعطيك خبر وشكر لسرعة استجابتك وهداياك الرائعة . التي استفدت منها وادعو لك دائما بالتوفيق والسداد.
- 22 replies
-
- 1
-
-
- الأرقام العربية
- وقت وتاريخ الواجهات بالعربية
- (و1 أكثر)
-
ظهور رسالة خطأ رقم 13 الخطأ بدأ معي عند دخول اليوم الجديد 1 / شوال / 1440هـ الساعة 12:00ص يمكن الخطأ يتعلق بالوقت .
- 22 replies
-
- 1
-
-
- الأرقام العربية
- وقت وتاريخ الواجهات بالعربية
- (و1 أكثر)
-
السلام عليكم يا ابا جودى اليوم توقف البرنامج مدري ويش المشكلة نزل المرفق شوف بنفسك
-
' الحالات الشاذة myData = Replace(myData, " ( )", "") myData = Replace(myData, " ( )", "") myData = Replace(myData, " ", "") myData = Replace(myData, "( )", "") myData = Replace(myData, "()", "") myData = Replace(myData, " JIT", "(JIT)") myData = Replace(myData, " ( )", "") جميل جداً "لكل قاعدة شواذ" اعجبتني الفكرة .
-
دفع الله عنك الضر . وجعلنا الله وإياكم من المقبولين في هذا الشهر الفضيل بارك الله في علمك وعملك ،،، وختم الله بالصالحات أعمالك وبلغك ما ترد من خيري الدنيا والآخرة وجميع المسلمين. يا رب العالمين وصل اللهم على نبينا محمد وعلى اله وصحبه اجمعين
-
روعة شكراً لك اكتمل العقد
-
شكرا @ابا جودى تم حل المشكلة بإضافة في الاستلام Query2 الدالة التالية Arabic: LTrim(WinChrct([Arb])) English: RTrim(WinChrct([Eng])) بالمرفق التعديل EngArb5.accdb
-
ممتاز جزيت خيراً وقلت المسافات لكن ألاحظ الكلمات التي تحتوي على أقواس أو شرطة تكون بها فراغات بسيطة هل يمكن معالجته . سامحني كان أتعبتك معي ... بس القصد يسفيد منه الجميع
-
ما شاء الله تبارك الله جميل جداً واشكر صاحب الأنامل والأيادي التي صنعتها جعل الله في ميزان حسناتك لكن هناك مسافات على اليمين والشمال في الكلمات العربية الإنجليزية في الاستعلام رقم Query2 بانتظار التعديلات الأخيرة كما قلت ،،،
-
كود فصل النصوص الإنجليزية : Function StrToEng(txt As String) As String Dim x As Integer, c As String For x = 1 To Len(txt) c = Asc(Mid(txt, x, 1)) If c >= 47 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then StrToEng = StrToEng & Mid(txt, x, 1) Else End If Next x End Function كود فصل النصوص العربية : Function StrToArb(txt As String) As String Dim x As Integer, c As String For x = 1 To Len(txt) c = Asc(Mid(txt, x, 1)) If c >= 47 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then Else StrToArb = StrToArb & Mid(txt, x, 1) End If Next x End Function شكر الله سعيك @kanory هل بالإمكان التعديل على الكود لإضافة مسافة بين الكلمات الإنجليزية ؟ وشكراً لكم
-
للرفع
-
هناك ملاحظة عند فصل النصوص العربية عن الانجليزية الاحظ أن النصوص الإنجليزية حذفت منها جميع المسافات بين الكلمات. ما هو الحل ؟
-
جرب المرفق وهو من أحد المشاركات في المنتدى جراه الله خيراً فتح الكاشير.rar