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

السلام عليكم ورحمة الله وبركاته عندي برنامج في احد المؤسسات ويعمل تمام ، ولكنهم اضطروا لعمل فورمات للجهاز وتم تنصيب الوندوز العربي ، وقاموا بعمل مجلد جديد للبرنامج ، وتغيير اسم البرنامج الى اللغة العربية. عند تشغيل البرنامج ، بدأ كود الواجهة FE بعمل ربط مع برنامج الجداول BE ، وظهرت لهم نافذة اختيار مكان وجود برنامج الجداول BE : . وبعد اختيار المسار والبرنامج ، ظهرت هذه الرسالة: . ثم هذه الرسالة: . وبعد النظر في هذه الصور ، اتضح لي ان هناك شيء غريب في الصورة (لاحظ السهم الاحمر) : . لاحظت وجود علامة استفهام في اسم برنامج BE ، لذا طلب من الشباب ان يقوموا بحذف علامة الاستفهام من الاسم ، وعليه حصلوا على هذه الرساله: . السؤال كان ، من اين اتى هذا الاسم ، والجواب انه من جدول MSysObjects ، ولكن وكما نرى من الصورة ادناه ان اسم البرنامج والمسار في الجدول صحيحين: . لذا اردت التأكد ، واردت ان ارى ما يراه الكمبيوتر ، فنسخت بيانات الحقل والصقتها في Notepad : . ولم الحظ اي شيء غريب ، ولكن ، Notepad يعمل على unicode و ansi ، لذا الصقت البيانات في صفحة كود VBA ، وحصلت على النتيجة التالية: . هذا يعني ان الوندوز العربي اضاف بعض الرموز لإسم البرنامج ، وبذلك لم يوجد تطابق بين اسم البرنامج BE وبيانات المسار التي يتوقعها برنامج الاكسس !! الحل الاسهل كان بتغيير اسم برنامج الجداول BE الى اللغة الانجليزية ، وتم حل المشكلة (او حذف ربط الجداول ، واعادة الربط مرة ثانية) ------------------------------------------------------- اضافة بتاريخ 12/11/2020 والامر غير مقتصر على عملية ربط قاعدة البيانات ، فقد نحصل على رسالة الخطأ التالية ، والسبب هو كما اشرنا اليه اعلاه : جعفر

السلام عليكم ورحمة الله وبركاته إلى : الأخوة الزملاء ..................... وفقكم الله أقدم لكم هدية متواضعة عبارة عن ( سند قبض وصرف ) اقتطعتهما من أحد برامجي . ولا تنسو أن تدعو لأبي بالشفاء العاجل ولجميع المسلمين ،،، السندات 2.1.rar

السلام عليكم برنامج صغير لحساب المصروفات الشخصية مفتوح المصدر لامكانية التعديل عليه اتفضلوا يهمني سماع رأيكم مصروفات منزل.accdb

هذا هو الكود اللي تستخدمه Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String DoCmd.Close stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub غير مكان اغلاق النموذج اي غير الكود الى هذا Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, Me.Name Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub

جرب forms![سمي النموذج الفرعي].Refresh

تم شرح الطريقة في الفيديو

تفضل نموذج.xls

وعليكم السلام تفضل هذا الرابط به طريقة سهلة ، ولكن قم بتغيير الامر من Dlookup الى DCount جعفر

فعلا يمكنك استعمال النسخ ctrl+c واللصق ctrl+v بصورة طبيعية أو يمكنك استعمال نموذج مصمم لعمل آلة حاسبة وعند الضغط على إغلاق يتم نسخ النتيجة ولصقها في النموذج الآخر المطلوب

السلام عليكم تم عمل المطلوب في الملف المرفق... وأرجو أن يفي الغرض المطلوب... بن علية حاجي النسبة.xlsx

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

تم إضافة كشف رصيد الصندوقالسندات 1.1.rar

السلام عليكم غير هذا الجزء rng.Offset(0, 1).Value = y rng.Offset(0, 2).Value = x rng.Offset(0, 3).Value = ListFind.List(ListFind.ListIndex, 2) rng.Offset(0, 4).Value = z بهذا rng.Offset(0, 1).Value = y rng.Offset(0, 2).Value = x rng.Offset(0, 3).Value = z

تفضل .... test 5 500 (4).mdb

اجابة اخي الوزير افضل حل لك ... هل تحتاج رؤية بقية السجلات عند ادخال البيانات ....

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

بالتوفيق أخي الكريم

حياك الله .... أنظر الصورة .... الحمد لله رب العالمين

أسف أخي الكريم ..... ولكن ما الحكمة من وجود الصورة المطلوبة .... لأن معرفة السبب يجعلنا البحث عن طريقة لذك ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته أنظر المرفق ...... برنامج أدارة المتدربين.mdb

وعليكم السلام ورحمة الله جرب هذا .... items.accdb

https://www.youtube.com/watch?v=10qeBawgMMw

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

السلام عليكم برنامج صغير للديون الشخصية وسدادها مفتوح المصدر لامكانية التعديل عليه اتفضلوا يهمني سماع رأيكم الديون .accdb

متألق كعادتك،،، إلى الأمام

ولكي تظهر رسالة خطأ بعد التحقق من طول النص يمكن الذهاب للتبويب الأخير في المربع الحواري الخاص بالتحققمن صحة البيانات data validation كما بالصورة

استخدم استعلام تحديث

لا أعتقد انه يمكن ذلك و لكن تستطيع النسخ من الالة الحاسبة نفسها

غير كود أستاذى @Shivan Rekany الى Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command17_Click: Exit Sub DoCmd.Close acForm, Me.Name Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub

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

جزاك الله كل خير -همة ملحوظة الى الأمام دائما

بارك الله فيك استاذنا الكريم وجعله الله فى ميزان حسناتك

هل هكذا كما تريد برنامج أدارة المتدربين.mdb

السلام عليكم المطلوب كان إظهار رسالة بان القيم في تكيست1 اكبر من تكيست 2 فقط لاغير لم اطلب مسح التكيست في نهاية الكود للعلم وجد الحل وهو تغيير تنسيق التكيست Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1.Text, "00") End Sub Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2.Text, "00") End Sub وهذ الملف لتعم الفائدة تفيل كود اكبر من.rar

وعليكم السلام ورحمة الله وبركاته لماذا تريد تحديثها بما ان الحقول مذكورة في جدول help لا حاجة لنقلها للجدول الاخر فقط قم بعمل حقل ترقيم أساسي في help وليكن: Num_ID واجعله ترقيم تلقائي مع مفتاح اساسي وحقل أساسي في الجدول الاخر بنفس الاسم Num_ID واجعله رقم بدون مفتاح أساسي طبعا وقم بعمل علاقة راس باطراف بينهما وهكذا تستطيع الاستفادة من الجدولين في أي مكان في القاعدة لا حاجة لتكرار الحقول في الجدول الاخر

كل المحبة والاحترام

اليوور فورم ليس من اختصاصي و انا لا أرغب العمل به اذا اردت يمكن عمل ذلك بواسطة الماكرو

شكرا لك اخي دمت موفقا

لا لزوم له وضعته فقط للتأكد من البيانات

قمت بوضع هذا الملف لعلك تستفبد منه يجب فقط استكمال البيانات في الأعمدة الصف 15 (ليعمل يشكل صحيح) مراعاة المعادلات في الخلايا A1,D1,E1 و الجدول A16 :C22 اخفاء اعمدة استنادا لرقم_salim.xlsm

انظر الى هذه الصورة

حرب هذا الملف Salim الدنيا.xlsx

السلام عليكم ورحمة الله حل آخر بالمعادلات باستعمال الدالة OFFSET... بن علية حاجي Book1_1.xls

حرب هذا الكود Option Explicit Sub Salim_Transform() If ActiveSheet.Name <> "Data" Then Exit Sub Dim i%, k%: k = 3 Dim C%: C = 1 i = 1 Range("c3").CurrentRegion.Offset(1).ClearContents Do Until Range("A" & i) = vbNullString Cells(C + 1, k) = Range("A" & i) k = k + 1 If k = 6 Then C = C + 1: k = 3 i = i + 1 Loop End Sub الملف مرفق Salim_transforme.xlsm

أنا لست المبرمج ولكن ناقل للموضوع .... أدخل على الموضوع السابق وتواصل معه ...

اكثر من رائع احي بن علية\ بقي شيء واحد يجب اتمامه وهو حماية الخلايا غير الفارغة من الشيت المذكور لعدم التلاعب بالنتائج من قبل الفضوليين (اذ يجوز ان يقوم اجدهم بحذف الغياب لنفسه او لأحد اخر) او يمكن ان يتم ذلك عن طريق خطا غير مقصود من قبل المستخدم يمكن الاستعانة بالكود في مشاركتي على هذا العنوان https://www.officena.net/ib/topic/84508-حماية-الخلايا-غير-الفارغة-بواسطة-باسوورد/

ممكن ذلك شاهد هذا الملف (العملية تتم عند كبسة اليمين وليس دوبل كليك في نطاق محدد ) كله قابل للتغيير حسب المطلوب Right_Click.xlsm

الحمد لله رب العالمين

تفضل اخى الكريم لك ما طلبت اشعار1.xlsx

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