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

السلام عليكم ورحمة الله وبركاته عندي برنامج في احد المؤسسات ويعمل تمام ، ولكنهم اضطروا لعمل فورمات للجهاز وتم تنصيب الوندوز العربي ، وقاموا بعمل مجلد جديد للبرنامج ، وتغيير اسم البرنامج الى اللغة العربية. عند تشغيل البرنامج ، بدأ كود الواجهة 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

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

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

شكرا استاذ دمت وكل القائمين على هذا الصرح موفقين

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

السّلام عليكم ورحمة الله وبركاته أخي محمد الورفلي جزاك الله خيرا

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

تم التعديل Sub Inqwayry() ' ‎26/08/2018 بواسطة ‎Zmn ' استخراج بيانات برقم الفاتورة Dim Q1, Q2, FR, TR Range("A11:L111").ClearContents Q1 = Range("C6").Value 'رقم الفاتور TR = 11 For Q2 = 1 To Sheets.Count If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3 With Sheets(Q2) For FR = 3 To 3333 If .Cells(FR, 14) = Q1 Then Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4) Cells(TR, 2) = .Cells(FR, 5) Cells(TR, 3) = .Cells(FR, 6) Cells(TR, 4) = .Cells(FR, 7) Cells(TR, 5) = Application.Sum(.Cells(FR, 8), .Cells(FR, 20)) Cells(TR, 6) = Application.Sum(.Cells(FR, 9), .Cells(FR, 21)) Cells(TR, 7) = Application.Sum(.Cells(FR, 10), .Cells(FR, 22)) Cells(TR, 8) = Application.Sum(.Cells(FR, 11), .Cells(FR, 23)) Cells(TR, 9) = Application.Sum(.Cells(FR, 12), .Cells(FR, 24)) Cells(TR, 10) = Application.Sum(.Cells(FR, 13), .Cells(FR, 25)) Cells(TR, 11) = .Cells(FR, 27) Cells(TR, 12) = .Cells(FR, 26) Cells(TR, 13) = Sheets(Q2).Name TR = TR + 1 End If Next FR End With 3 Next Q2 End Sub Testعمرضاحي.xls

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

كل سنة وانته طيب و بصة وعافية الله يسلمك المنتدى منور بكم و دام انته موجود في المنتدى فانت الخير والبركة واعمالك تشهد على ذلك جزاك الله خيرا

أحسنت استاذ أحمد كود ممتاز-كل عام وانتم بخير حمد على سلامة حضرتك لعله خير نورت منتداك من جديد

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

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

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

حرب هذا الكود 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

الله عليك مبدع بجد والله جميل يمكن تطوير العمل كما يلى 1/ عمل كشوب بالطلاب المتجاوزن لعدد محدد من ايام الغياب 2/ عمل انذار للغياب اول وثان 3/ عمل قرار فصل بعد عدد معين من الايام عمل تحليل للغياب لكل فصل عمل تقرير اجمالى للغياب

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

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

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

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

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

العلاقات ليس لها علاقة انت ما اعرفت تعمل استعلام حذف نزل القاعدة والكل رح يساعدك

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