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

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

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

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

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

بداية كل عام وانتم والأمة العربيّة والاسلامية بخير طلب مني احد الأصقاء تنظيم الديون في محله لمعرفة كل زبون ما عليه بالاضافة الى جرد ديون زبون محدد (حسب الاختيار من قائمة منسدلة) فكان هذا الملف الذي عسى ان يستفيد منه اكبر عدد من الأعضاء ورقة العمل محمية لعدم العبث بالمعادلات عن طريق الخطأ في الملف (بدون باسبوورد) تستطيع الكتابة فقط في العامودين C & D حتى الصف رقم 100 و استخدام القائمة المنسدلة في الخلية F2 لتوسيع نطاق العمل يجب التعديل على المعادلات و هذا شيء بسيط لمن يريد نطاق أكبر للعمل الأسماء في جدول الجرد مرتبّة حسب قيمة الديون تنازلياً (وهنا المعادلات تلعب دورها) اذ انه ليس مجرد SumIfs القائمة المنسدلة في F2 "مطاطة" بمعنى انها: 1-تتجاهل الفراغات 2- لا تذكر الاسم المكرر الا مرة واحدة 3- تستجيب لاي تعديل او تغيير في الجدول الرئيسي Salim_Sum WITH PROTECTION.xlsx

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

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

تفضل اخى الكريم وهذا سوف يتم بالدالة المعرفة Reversestr وهى من أعمال استاذنا الكبير وخبيرا ومحللنا المالى الأستاذ محمد الريفى له منا كل المحبة والإحترام جزاه الله كل خير وجعل الله جميع اعماله فى ميزان حسناته مشكلة الكتابه المعكوسه.xlsm

هل هكذا كما تريد برنامج أدارة المتدربين.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

كل عام أنت بخير تفضل المطلوب Aziz1.rar

شكراً لك اخي عبداللطيف دائماً سباق

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

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

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

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

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل اضخل رقم الفاتورة ثم اضغط زر كل البيانات 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) = .Cells(FR, 8) Cells(TR, 6) = .Cells(FR, 9) Cells(TR, 7) = .Cells(FR, 10) Cells(TR, 8) = .Cells(FR, 11) Cells(TR, 9) = .Cells(FR, 12) Cells(TR, 10) = .Cells(FR, 13) 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

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

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

بارك الله فيك استاذى عبد اللطيف سلوم

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

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

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

انفضل اخي هذا كود يحذف كل الجداول الموجوده بالقاعده ماعليلك سوى تغير مسار القاعده وصيغتها مثلا انا عمامل mdb Dim x Beep x = MsgBox(" سـوف يـتـم حـذف كـل الـبـيـانـات الـمـسـجـلـة سـتـفـقـد كـل شـي هـل تـريـد الاسـتـمرار " & vbCrLf & "", vbYesNo, " بـرنـامـج الـخـيـاط ") Dim strSQL As String Dim tdf As TableDef Dim BackDB As DAO.Database Dim strPath As String strPath = CurrentProject.Path & "\data\tailor.mdb" Set BackDB = OpenDatabase(strPath) For Each tdf In BackDB.TableDefs If Not (Left(tdf.NAME, 4)) = "MSys" Then BackDB.Execute ("delete * from " & tdf.NAME) strSQL = "INSERT INTO " & tdf.NAME & " SELECT " & tdf.NAME & ".* FROM " & tdf.NAME & " IN '" & myfile & "';" BackDB.Execute (strSQL) End If Next DoCmd.Requery MsgBox " تـم حـذف كـل الـبـيـانـات الـمـسـجـلـة بـنـجـاح", vbInformation, " بـرنـامـج الـخـيـاط " BackDB.Close

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