كل الانشطه

كالعادة حبيبنا ،، أنت نزل البتاع وإحنا نجرب 😁.. والأخطاء أو النواقص بتطلع من نفسها 😇🖐️ وبهذي الطريقة بتكتمل التكة الباقية إن شاء الله .. صعب ندخل معاك عالخط من النهاية بعد ما قطعت شوط طويل من البحث والتجربة 🙃 (اطمن) إحنا بندعيلك بالتوفيق والتيسير 😅🤲

وعليكم السلام ورحمة الله وبركاته .. مشكلتك أخي الكريم في السطر :- rsFiltered.Close والذي يعنيه ان المتغير لم يتم تنفيذ الجملة :- Set rsFiltered = rs.OpenRecordset عليه في بعض الحالات ؛ وبالتالي بقيت قيمته = لا شيء = Nothing . ففي كودك وتحديداً ، إذا كان rs فارغاً ، فإنه لن يدخل في هذا الشرط :- If Not rs.BOF And Not rs.EOF Then وعليه ، فأني اقترح عليك استبدال هذا الجزء :- rsFiltered.Close rs.Close 'Sets objects to nothing Set rsFiltered = Nothing Set rs = Nothing Set db = Nothing الموجود في الدالة Private Sub LoadArray ، بهذا الجزء البسيط :- If Not rsFiltered Is Nothing Then rsFiltered.Close Set rsFiltered = Nothing End If If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Set db = Nothing ولكن الأفضل تعديل الحلقة أيضاً ، لأنك تقوم بإنشاء rsFiltered عدة مرات داخل الحلقة :- Set rsFiltered = rs.OpenRecordset وأعتقد أيضاً أن الأفضل إغلاقه بعد الانتهاء منه مباشرة ، وليس انتظار نهاية الإجراء . وبالتالي تعديلي على الدالة كاملة سيكون بهذا الشكل :- Private Sub LoadArray() '-------------------------------------------------------- '----------------- '--------------- '---------------- '---------------- '--------------- '--------------- '-------------------------------------------------------- '---------- 'This procedure loads text into the 3rd column of the array '-------------------------------------------------------- '-------------------------------------------------------- Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsFiltered As DAO.Recordset Dim strSQL As String Dim i As Integer strSQL = "SELECT tblData.ID, tblData.[No], tblData.Name, tblData.Stae, tblData.Day, tblData.Date, tblData.Phone, tblData.Village, tblData.Waitingplace, tblData.Subject,tblData.Presence,tblData.Notes " _ & "FROM tblData; " 'Debug.Print strSQL Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) 'This line ensures that the recordset is populated If Not rs.BOF And Not rs.EOF Then 'Loops through the array using dates for the filter For i = LBound(myArray) To UBound(myArray) 'Checks whether the 2nd element of the array = True If myArray(i, 1) Then 'Filter recordset with array dates rs.Filter = "[Date] = " & myArray(i, 0) 'Open up new recordset based on filter Set rsFiltered = rs.OpenRecordset 'Loop through new recordset Do While (Not rsFiltered.EOF) 'Adds text to the 3rd column of the array myArray(i, 2) = myArray(i, 2) & vbNewLine _ & rsFiltered!No & " / " _ & rsFiltered!Village & " / " _ & rsFiltered!Notes rsFiltered.MoveNext Loop rsFiltered.Close Set rsFiltered = Nothing End If 'Debug.Print myArray(i, 2) Next i End If If Not rs Is Nothing Then rs.Close Set rs = Nothing End If 'Sets objects to nothing Set db = Nothing End Sub وأيضاً كملاحظة مهمة . يوجد احتمال آخر يتعلق بالحقل [Date] وهو للعلم حقل مخالف لقواعد آكسيس حيث ان الإسم محجوز لآكسيس ، وبالتالي قد يسبب لك هذا مستقبلاً مشاكل كبيرة إذا كان يحتوي على وقت بالإضافة إلى التاريخ ؛ عندها المقارنة = قد لا تجد السجلات المتوقعة . ومثله اعتقد في الحقل Day .. حيث ان هذه الأسماء محجوزة لأوامر آكسيس . جرب هذه التعديلات بيدك ، وأخبرني بالنتيجة .

شرح فورم المحاماة ادراج ليبل وتكست وليست بوكس وتنسيفهم رقم3 شرح لفورم المحاماه1.rar

هل ممكن معرفة الخطأ وتعديله لما اضغط على زر ( حجز موعد ) يعطيني خطأ مرفق الملف في الرابط https://we.tl/t-TVrdRy2OBaQgihdG الرقم السري للبرنامج 1234

التكة دي قربت منها .. ولكن تحتاج بعض الوقت للأسف حتى أحكم الوضع كاملاً دون الوقوع في أي خطأ 😁 ولكن ليس معنى الحديث هو عدم مشاركتي الأفكار أخواني الأعزاء .. فلا تبخلوا ، فالمستفيدين سيكون كُثر 😇

إحساسي مايخيبش شكلك لقيت الحل وباقي على الحلو تكة وإحنا في الإنتظار

الجزء الأول من استفسارك هو ما قصدته تمااااماً ، نسخة واحدة Accde ( بغض النظر عن الحماية ..... إلخ ) هذا الكائن البرمجي لا أثق بإجابته حتى لو سألته 1 + 1 وأخبرني أن النتيجة = 2 😅 وللعلم ، أن هذا الجزء المقتبس ، كنت قد اشتغلت عليه بطريقة جعلتني أقترب من ترجمته وعكس هندسة التشفير الخاصة من مايكروسوفت ، فلست قلقاً منها .. وكنت قد أعددت العدة والعتاد وقد توصلت إلى خطوة جيدة لا بأس بها .. لكنها ما زالت قيد الإنشاء .. وموضوعي واستفساري هذا هو جمع أكبر قدر ممكن من المعلومات حول الفكرة للنقاط التي قد تكون فاتتني أو سهيت عنها ولم اذهب باتجاهها الصحيح .. بعض الأجزاء من الصورة تم إخفائها لحين اكتمال الفكرة

ارجو توضيح نقطة فعند إعادة قراءة الموضوع حصل عندي لبس في هذه النقطة فهل تقصد أنه بدل أن يكون عندك نسختين Accde يكون عندك ملف واحد Accdb مؤمن تأمين قوي جداً ؟ (لأن هذا مافهمته من كلامك) فإذا كان قصدك أن يكون الإمتداد Accde فبتأمين أو بدون تأمين من الصعب جداً إذا لم يكن من المستحيل تشغيل ملف Accde تم تشفيرة بإستخدام نواة مختلفة وهذا ما يؤكده الذكاء الصناعي ولكن إذا كنت تقصد أن يكون الملف بإمتداد Accdb ويتم تأمينه تأمين قوي ليصبح من الصعب جداً على أي شخص آخر الوصول إلى عرض التصميم أو التعليمات البرمجية الخاصة به فهذا الأمر ممكن لأن الإمتداد Accdb سيعمل في النواتين ويبقى التحدي في طريقة التأمين

لا أخي منتصر ،، ليس بعد 😇

لماذا عندي إحساس أن سؤالك هذا يبشر بأنك وجدت الحل لهذه المشكلة

السلام عليكم ورحمة الله وبركاته .. خطر ببالي سؤال غريب نوعاً ما ، يتعلق بصيغة قاعدة البيانات بعد التقفيل ACCDE . وهو هل يمكننا إنتاج ملف واحد بأكواد تعمل على النواتين 32 و 64 بشرط ❗❗❗ أن تكون صيغة الملف Accde مقفل ومحمي بكل الطرق التي تخطر على بال المصمم ( الغاء مفتاح الشيفت والمفاتيح الخاصة ، إخفاء إطار آكسيس والتبويبات ... إلخ ) . بدل ما يكون عندي كمطور نسختين من مشروعي ( واحدة 64 والثانية 32 ) مقفل ومحمي Accde ، يكون عندي نسخة واحد تعمل على النواتين 🙄 وبأي إصدار أوفيس طبعاً 🙄

اعرض الملف أداة البحث السريع {سلسلة الأدوات المساعدة المخصصة} أي شخص يتعامل مع برامج وتطبيقات قواعد البيانات لايمكن أن يستغني عن إستخدام أي وسيلة من وسائل البحث عن البيانات فمثلاً عندما تريد تصفية نموذج بيانات الموظفين لإستعراض بيانات موظف واحد فقط , أو كمثال آخر إذا كنت تعمل على شاشة المبيعات وتريد إدخال رقم الصنف فتقوم بفتح قائمة الأصناف والبحث عن الصنف المطلوب لإرجاع كود الصنف والإحتفاظ به في جدول المبيعات , والكثير من الأمثلة الأخرى المشكلة هنا هو أنك ستكون مضطر لإنشاء نموذج بحث لكل مكان ستحتاج فيه إلى البحث عن البيانات أو على الأقل نموذج واحد لكل نوع من أنواع البيانات ولحل هذه المشكلة أقدم لكم اليوم أداة جميلة وبسيطة تمنحكم إمكانية الحصول على أي عدد قد تحتاجونه من قوائم البحث وبإستخدام نموذج واحد فقط (بالأصخ نموذج رئيسي وآخر فرعي) وقد أسميت الأداة بإسم أداة البحث السريع لأنها بالفعل تقدم أسرع تجربة بحث قد تجدها سواء كنت تستخدم الماوس أو لوحة المفاتيح وكما هو موضح بالصورة المتحركة فلو رأينا سرعة الوصول لنتيجة البحث بإستخدام الماوس وقارناها مع مربع التحرير والسرد أو مربع القائمة سيكون الفارق كبير وكما تعودنا سأرفق لكم ملفي القالب والنسخة التوضيحية والتي ستجدون بداخلها أمثلة عملية لإستخدام الأداة مع ملاحظات وتعليمات أرجو قرائتها بعناية أرجو أن تجدوا في هذه الأداة الفائدة والعون في تسهيل أعمالكم تحياتي صاحب الملف منتصر الانسي تمت الاضافه 09/08/26 الاقسام قسم الأكسيس  

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

سؤالك ملغوم 😇 . ولكن برأيي كنت قد أجبت عن هذا السؤال للقواعد الغير مشتركة على الشبكة 👆🏻، بأن تجعل مسار الربط التلقائي باعتماد مجلد محدد Data مثلاً، واسم قاعدة بيانات الجداول الخلفية .

معلمى الفاضل قمت بكل ماطلبتة منى والحمدللة اشتغل بصورة حيدة خالص الشكر انقر مفتاح الويندوز + R .. ألصق المسار التالي ، ثم انتر :- %LocalAppData%\Foksh Setup\

هل يمكن إضافة خيار : (ربط تلقائي للقاعدة الأمامية بالقاعدة الخلفية) ؟ أرسلته لك على الخاص .. وشكلك حليتها بكل سهولة ..

كبفية ادراج فورم وتشغيلة فيديو2 الملف بعد الاضافة شرح لفورم المحاماه1.rar

الاخ Foksh شكرا لك واليك الملف شرح لفورم المحاماه.rar

وعليكم السلام ورحمة الله وبركاته .. شرح جميل ، شكراً لك أستاذ مجدي .. وحبذا لو كنت أرفقت ملف العمل في المشاركة ، ليتمكن من يريد التطبيق من أن يرى الفكرة أمامه ليتوضح له العمل بشكل ملموس أكثر 🤗

أهلا بك أخي أبو الحسن ولمرورك الكريم لموضوعي المتواضع . دعني أوضح لك - ولمن يمر بهذا الرد - كيف نستخدم القاعدة المقسمة في أداة التثبيت هذه . لديك ملفين ( الواجهة الأمامية ، وقاعدة البيانات الخلفية للجداول ) . في التبويب الأول ستختار واجهتك الأمامية ولنفترض ( MyApp.accdb ، التي ستحولها إلى ACCDE ) . في التبويب الثاني :- * ستختار ملف قاعدة البيانات الخلفية ( إن وُجد ) . * في زر تحديد المسار لديك خيارين . إما التحديد لمجلد مخصص يتم تثبيت ملف القاعدة الخلفية فيه . أو تتركه فارغاً فيتم اعتماد ملف تلقائي باسم Data ويكون بجانب قاعدة البيانات الأمامية ليتم تثبيت ملف قاعدة البيانات الخلفية فيه . أو تختار مسار مخصصاً على الشبكة عندما يكون لديك أكثر مستخدم على الشبكة يستخدمون ملف قاعدة البيانات الخلفية هذا . الهدف الأسمى هنا هو تثبيت ملف البيانات في أول مرة فقط ، وعدم الكتابة عليه أو مسحه أبداً في أي تثبيت لاحق أو تحديث أو إلغاء تثبيت . طبعاً في مشروعك وعندما قمت بتصميمه ، كانت الجداول مرتبطة بالمسار الإفتراضي لك كمصمم ، وسيختلف المسار عند الجهاز الذي تم التثبيت عليه . وهنا يمكن ان نجعل المسار الإفتراضي لدالة الربط بأن يكون محدداً مثلاً Data/Tbl.Accde . وهذا يعني أنك لن تحتاج أن تحدد المسار عند اختيارك مسار تثبيت قاعدة البيانات الخلفية ( كجهاز منفرد ، بينما على الشبكة سيلزمك تحديد المكان بشكل يدوي بلا شك ) وسيكون قريباً تحديث جديد لإتاحة الفرصة باختيار البانر الجانبي والهيدر لملف التثبيت عند انشاءه بإذن الله . هل توضحت لك الفكرة بشكل جيد

اللهم امين اخ Ali Mohamed Ali شكرا لك

خالص الشكر والتقدير سؤالى اخى بالنسبة للقاعدة المقسمة

في ويندوز لديك :- انقر مفتاح الويندوز + R .. ألصق المسار التالي ، ثم انتر :- %LocalAppData%\Foksh Setup\ أرفق صورة للملفات الموجودة أو أي نتيجة تظهر لك أخي جو .

معلمى الفاضل عملت كل الخطوات ولكنة يعطى هذة الرسالة