Foksh

إنا افتكرت انك بتحسد 😂 ، إذا كان كدة معلش 😇 انت الأروع صديقي فريد 🥰 . من غير ما تستأذني أخت حنان ، لكي الحرية المطلقة ، وسعيد برؤية إبداعاتك في التعديلات 😉 .

اذا كان النموذج له مصدر بيانات ( جدول ) ، فإنك عندما تذهب الى سجل جديد فسيتم حفظ البيانات في الجدول بشكل تلقائي. DoCmd.GoToRecord , , acNewRec

الحمد لله الذي علّمنا من علمه ، وما أوتينا من العلم إلا قليلا 🥰

تمام فهمتك ، يعني سيتم ادخال ايام العطل الرسمية بشكل يدوي عن طريق تحديد التواريخ من - إلى ، وعندما يكون تاريخ اليوم احد هذه التواريخ يتم الغاء تمكين زر محدد ؟؟؟ هل هذا صحيح ؟؟

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) قمت بتنفيذ فكرة لأنشاء الجداول بطريقة مختلفة عن الطريقة التقليدية التي نعرفها .. إلا أنها ما زالت قيد التطوير الفكرة تعتمد على نموذج واحد فقط يمكّن المستخدم من إنشاء جداوله والحقول التي تحتويها ونوع الحقول بشكل سهل وبسيط . أولاً انقر على الزر " أنشاء حقل جديد ... " ثانياً قم بملئ الحقول ( اسم الجدول ، اسم الحقل ، نوع الحقل ) ، عند اختيار نوع الحقل سيتم إضافة الحقل الجديد الى الـ List Box تسلسلاً حسب الإدخال . عند الإنتهاء من إدخال جميع الحقول وأنواعها ، انقر الزر " إنشاء الجدول ... " ، وهنا سيتظهر رسالة تفيد بأنه ( لابد من وجود حقل مفتاح أساسي ، هل ترغب بتعيين حقل مفتاح أساسي ؟ ) عند اختيار Yes - نعم سيتم تعيين أول حقل كمفتاح أساسي ؛ وإذا تم اختيار No - لا سيتم انشاء الجدول دون مفتاح أساسي . عند إنشاء الجدول سيتم تصحيح عدة نقاط بشكل تلقائي وهي :- إزالة المسافة من اسماء الجداول واستبدالها بـ " _ " . إضافة الجزء "_Tbl" الى اسم الجدول عند انشائه . أيضاً إزالة المسافة من أسماء الحقول واستبدالها بـ " _ " . الملف مفتوح المصدر TBL Maker.accdb بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb680 kB · 7 downloads تم إضافة نموذج لإنشاء العلاقات من خلال البرنامج بشكل بسيط بحيث :- يتم اختيار الجدول الأول ، ثم الحقل الذي نرغب بانشاء علاقة له ، ثم اختيار الجدول الثاني وكذلك الأمر اختيار الحقل الثاني الذي سيكون على علاقة مع الحقل السابق يتم التعرف على نوع بيانات الحقول التي تم اختيارها للتأكيد على انك كمستخدم تعرف أنواع البيانات في الحقلين . أيضاً يتم التعرف على الحقل ما إذا كان مقتاح أساسي أم لا . عند النقر على زر نوع العلاقة ، فسيتم اظهار نوع العلاقة المنطقية لهذين الحقلين . في الزر انشاء العلاقات سيتم انشاء العلاقة بشكل تلقائي بين الجدولين مع تفعيل تتالي الحذف والإضافة . لإختبار ما اذا كان هناك علاقة بين الجدولين ، من خلال الزر تحقق سيظهر لك نتيجة العلاقة إذا كانت موجودة ونوعها والحقول التي بينها علاقة في الجدولين . عند وجود علاقة سابقة بين الجدولين سيتم تنبيه المستخدم بوجود علاقة سابقة ، هل ترغب باستبدال العلاقة السابقة بعلاقة جديدة ؟؟ وفي حال الموافقة سيتم حذف العلاقة القديمة واستبدالها بالعلاقة الجديدة . طبعاً هنا يجب التنويه أن البرنامج لن يقوم بإنشاء أي علاقة غير صحيحة بين اي حقلين نهائياً . تم اضافة زر لحذف العلاقة بشكل اختياري بين اي جدولين بينهم علاقة . لإجراءاتكم بالتجربة وإفادتي بالنقاط التي قد أكون قد غفلت عنها . TBL Maker.accdb

امممم ، حسناً في بعض الأحيان لاحظت أن معظم إصدارات أوفيس التي يكون فيها خلل ناتج عن التحديث أو التحميل .... الخ تحتوي خطأ في VBA عند أكواد عشوائية ( حسب منطقة الخلل ) . على العموم جرب إكمال الجملة الشرطية بوضع Else If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation else DoCmd.CancelEvent End If

ارسل ملفك أخي الكريم ، ولكن جرب اعمل ضغط وإصلاح لقاعدة البيانات !!!! وهلا وضحت السطر التالي :

بدايةً ارجو أن تقوم بإنشاء تقريرك الذي تريد ان يتم طباعته بين التاريخين .. ثانياً هل تريد البحث بين التاريخين لتاريخ ميلاد الطالب ، أو تاريخ التسجيل ؟؟ اذا كان لتاريخ التسجيل ، فإليك الخطوات دون ملف مرفق :- 1. انشئ استعلام وحدد الحقول التي تريد جلب قيمها من الجدول ومن ضمنها طبعاً الحقل Reg كحقل أساسي . 2. في الحقل Reg من داخل الإستعلام وفي جزء الـ Criteria - الشروط اكتب السطر التالي :- Between [Forms]![بيانات الدور الثاني]![n1] And [Forms]![بيانات الدور الثاني]![n2] 3. احفظ الإستعلام ، وانشئ تقريرك المبني على هذا الاستعلام .

وإياكم أخي العزيز ,, شكراً لك

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

حسناً ، جرب هذا التعديل لنفس الوظيفة بفكرة مختلفة ؟؟ Private Sub del_Click() On Error GoTo ErrorHandler Dim response As VbMsgBoxResult response = MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation End If Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء محاولة حذف السجل: " & Err.Description, vbCritical DoCmd.SetWarnings True End Sub

جرب هذا التعديل للمرفق الأخير :- 2.zip تم إضافة حقل جديد في الجدول Reg_Status من نوع Yes/No ، وإضافة حدث في الحالي لتحديث القيمة لـ check1 بناءً على قيمة Reg_Status ، وتعديل الكود السابق في المشاركة السابقة لتحديث هذا الحقل أيضاً .

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟ اعتذر منك ولكن فعلاً لم افهم المطلوب رغم قراءتي له أكثر من مرة

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

وعليكم السلام ورحمة الله وبركاته .. قمت بإضافة حقل Reg لأنك لم تقم بتحديد الحقل الذي تريد اضافة القيمة له في الجدول ,, تفضل هذا الكود :- Dim strSQL As String If Me.check1.Caption = "o" Then Me.check1.Caption = "‏" strSQL = "UPDATE [بيانات الدور الثاني] SET Reg = Date() WHERE [رقم جلوس] = " & Me.رقم_جلوس CurrentDb.Execute strSQL, dbFailOnError Else Me.check1.Caption = "o" strSQL = "UPDATE [بيانات الدور الثاني] SET Reg = Null WHERE [رقم جلوس] = " & Me.رقم_جلوس CurrentDb.Execute strSQL, dbFailOnError End If وهذا ملفك بعد التعديل :- 1.zip

على حد علمي ، جملة حذف السجل الحالي :- DoCmd.RunCommand acCmdDeleteRecord

مداخلة ليس لها علاقة بالحل ، على حد علمي انه تم اختيار أفضل إجابة للموضوع ، ولكن المشكلة ما زالت لم تنتهي 🤔

في حدث عند التركيز ، جرب الكود التالي :- If Me.TextBox.Value = 0 Then Me.TextBox.Value = "" End If

ولا يهمك استاذة @hanan_ms .. إن شاء الله قريباً ردي على افكارك ، ولكن ضيق الوقت في العمل ما يؤخرني 🤗

يسعدني وضع أول مشاركة أستاذ @أبو عبدالله الحلوانى ، حالياً اقوم بالتصفح من الجوال ، سألقي نظرة على فكرتك الجميلة .. وددت لو أرفقت لنا صور على الأقل لتكتمل الصورة 😉 .

ربي يبارك فيك استاذ @أبو عبدالله الحلوانى على تواضعك الجميل وأسلوبك الأجمل ،، بالعكس ، يسعدني أن أطلع على فكرتك 🤗 ومتأكد أنها جميلة گطيب أصلك 🥰

بعد كود فتح النموذج ، استخدم بدلاً من Me.SetFocus هذا الكود Docmd.SetFocus

شرح جميل وموفق اخي @ahmed draz 🤝🤗

عمل جميل ويستحق التجربة 🤗 . عندي استفسار بسيط ؛ من خلال الفيديو ما سبب ظهور الشاشة التي باللون الزهري عند النقر على صورة المركبة لتحديد مكان الحادث أو الضرر ( باعتبار أن الفكرة قد تستخدم في شركات التأمين على السيارات... ) . 💡لم اقم بتحميل الملف وتجربته وإنما من خلال الفيديو 💡

إضافة لما تفضل به أستاذنا @ابو جودي في حال عدم وجود سجل يطابق الشروط قد نستخدم نوع المتغير Variant بدلاً من Integer في المتغير 😉 Dim Omra As Boolean Dim OmraAnne As Integer Dim result As Variant Omra = IIf(DLookup("Haj", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") = -1, True, False) result = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") If Not IsNull(result) Then OmraAnne = result Else OmraAnne = 0 End If If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne Me.Undo Exit Sub End If من زمان ما استفزيتكش يا مان 😁