نجوم المشاركات

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

السلام عليكم ورحمة الله معادلة أخرى في الملف المرفق مع تنسيقات شرطية لتلوين الاختصارات.... بن علية حاجي Schedule template EXAMPLE.xlsx

جرب هذا الكود وإن شاء الله سيفلح معك Dim T As TableDef DoCmd.SetWarnings False For Each T In CurrentDb.TableDefs If T.Name Like "d2s_*" Then DoCmd.RunSQL "DELETE * FROM " & T.Name End If Next T DoCmd.SetWarnings True

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

السلام عليكم اخي الفاضل رغم الموضوع كان بيحكي عن ربط سعر البيع وتغير الي سوال اخر فالافضل كل سوال يكون في مشاركه لكن بعد اذن الاخوه انظر الي الصوره لعلا تاخذ الفكره تحياتي اليك

بارك الله فيك أستاذي وجزاك الله خيرا...

هناك احتمالان ولا اعرف ايهما تريد (لأن السؤال غير واضح) لذلك وضعت لك الاحتمالين (اختر ما تريد) Salimالجمع بشرط.xlsx

بالتوفيق أخي الكريم لا تحرمنا من إنجازك القريب إن شاء الله .

تفضل اخى الكريم معادلتك تعمل بدقة -ولكنها معادلة مصفوفات فبدلا ان تقوم بعمل enter بعد كتابة المعادلة لابد من الضغط على Ctrl+Shift+Enter جزاك الله كل خير غياب التلاميذ01.xlsx

شكرا لك اخي سوف اشوفه واعطيك خبر

خلال بحثي وجدت منشوراً حول سؤالك و لكن الطريقة كما ذكر المشاركون أنها تعتمد على تغيير إعدادات الجهاز بالكامل و لا يقتصر أثرها على التطبيق و أشار بعضهم إلى طريقة و من عيوبها إضافة إلى ما سبق أن الأمور ستعود إلى ما كانت عليه بمجرد تغيير التركيز بالرابط المرفق ستجد طريقة التفافية بعمل نموذج يغطي الشريط العلوي .. و يتم التحكم فيه بنوع و حجم و لون الخط بطبيعة الحال .. https://bytes.com/topic/access/answers/965987-change-font-forms-caption

الحمد لله و له الفضل و المنة لقد تم الأمر و سأضع النموذج بعد انتهاء معالجته إن شاء الله . لقد استحييت لشدة إلحاحي و لكن منكم سعة الصدر مشهودة . و السلام .

أضفت سعر البيع والشراء للأصناف داخل جدول الأصناف ثم عدلت الاجمالي داخل جدول الفاتورة

السلام عليكم ورحمة الله جرب هذه المعادلة =IFERROR(INDEX('1'!$B$2:$L$3;1;MATCH(B2;'1'!$B$3:$L$3;0));"")

وعليكم السلام اخى الكريم هل لغة جهازك مضبوطة مع اللغة العربية ام لا ؟

شكرا جزيلا يا محترم ربنا يجعلة في ميزان حسناتك

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

وعليكم السلام ورحمة الله وبركاته في وحدة نمطية جديدة ضع هذا الكود: Public Function ObjExist(ObjName As String) As Boolean ObjExist = False If DCount("[Name]", "MSysObjects", "[Name] = '" & ObjName & "'") = 1 Then ObjExist = True End If End Function وتحت زر امر انشاء الجدول الخاص بك ضع: If ObjExist("اسم جدولك") Then '==== هنا شرط وجود الجدول MsgBox ("الجدول موجود") Else '==== هنا شرط بناء الجدول الخاص بك في حال عدم وجوده MsgBox ("تم انشاء الجدول") End If

وهذه طريقة أخرى مشاركة في الموضوع Ka_1.rar

السلام عليكم اخ حمدي استخدم الدالة (Kh_Father_Name) بدل (getFaterFukkName) في الاستعلام ‫‫‫‫شئون طلاب الاول الابتدائى 2.rar

السلام عليكم راجع الملف المرفق لعل فيه ما تريد... ليس لي فكرة أخرى.. بن علية حاجي Book1.xlsx

السلام عليكم ورحمة الله أقدم لك الملف التالي بعد التعديل حيث نقوم باختيار عدد الفرق (16 على الأكثر) وعدد المجموعات (4 على الأكثر) بطريقة يدوية ثم نقوم بـ "اقتراح جدول للمباريات" بملء الجدول الخاص بذلك باستعمال الملاحظة الموجودة أعلى الجدول حسب عدد الفرق في كل مجموعة... أرجو أن يفي هذا لما تصبو إليه... بن علية حاجي عملية قرعة للفرق.rar

اعمل قاعدة بيانات جديدة وقم باستيراد جميع الكائنات من القاعدة القديمة .. او قم بعمل ضغط واصلاح للقاعدة القديمة

وعليكم السلام☺️ اخذ نسخه منه ، ثم اعمل له ضغط واصلاح. جعفر

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

تستطيع حسب حاجتك: ضع تحت زر امر مع تغيير مسمى الجداول بما يناسبك On Error GoTo Err_Handler With CurrentDb .Execute "DELETE * FROM Tbl1", dbFailOnError .Execute "DELETE * FROM Tbl2", dbFailOnError 'بنفس الطريقة تستطيع اضافة اي جدول سواء حذف او تحديث End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub Else 'MsgBox "All Deleted", vbInformation, "Deleted" End If

اخي الفاضل اعتدر عن تأخري في الرد الطلب الثاني لم اتمكن من تطبيقه بالرغم من المحاولات العديدة اما الطلب الاول فاعتقد تم الحل ربما يتدخل احد الاخوة ليضيف الى الكود طلبك الاول او يعمل كود جديد تحياتي اخي الفاضل -الملف الكامل.rar

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود Combopn_AfterUpdate : pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn") size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn") vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn") Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn") ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn") Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn") BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn") code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn") لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !! انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، وان الجداول BE ، ستكون في شبكة ، وان الواجهة FE ستكون لأكثر من مستخدم. لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE. لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ، فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه: Dim x() As String A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||") 'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة 'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة 'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة 'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9) جعفر