عبد الفتاح كيرة

شكرا لك

الشرح يعمل هذا الكود فى حال كان العنوان ليس به علامة صح ثم نحاول وضع علامة صح فيه فى هذه الحالة افحص العنوان الأول إذا لم يكن فارغا أظهر رسالة أعد حالة العنوان إلى الحالة السابقة يعنى بدون صح

جرب هذا فى حدث beforeupdate ل titel2 Private Sub Title2_BeforeUpdate(Cancel As Integer) If Me.Title2 = True Then If Me.title <> "" And Not IsEmpty(Me.title) Then MsgBox "احذف العنوان أولا" Cancel = True DoCmd.CancelEvent End If End If End Sub

نفع الله بك يا أستاذ أبو إبراهيم

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

" And [Date_Enter] =format( #" & Date & ",'yyyy/mm/dd'#"

استخدم formate قبل حقل التاريخ

بارك الله فيك إجابتك أخى الفاضل أشبه بطريقة قياسية لمن يريد معرفة الطريقة الصحيحة فى إجابتك 3 مرات يجب و نعلم أن وراء "يجب" تعليل إن شاء الله يكون مفيدا للجميع طبعا القيمة الافتراضية ليست نفسها القيمة القيمة تسجل لكن القيمة الافتراضية مجرد اقتراح من أكسيس بقى أن نعلم سبب وضع الكود فى حدث الحالى سبب وضع كود التحقق فى الحقل و ليس النموذج مع أن الأخ شفان أوصى بعكس ذلك وفقك الله و أعانك على الرد بإسهاب على أسئلتنا و أفادكم الله و زادكم علما

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

نعم لكن منع حدوث ذلك من البداية لا شك أنه أفضل شكرا

الآن نفذت الآتى و أود التأكد من أن هذه أفضل طريقة - الحقلان مطلوبان رقم و اسم المنطقة كل الكود فى حدث قبل التحديث للنموذج - إلغاء أزرار التنقل فلا يبقى أمام المستخدم إلا زر إغلاق أو إغلاق النموذج من أعلى "×" الكود التالى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("eqama", "[tbleqama]", "[eqama]= '" & Me.TelName.Text & "'") > 0 Then MsgBox "محل إقامة موجود مسبقا....", , "تنبيه" Me.Undo Cancel = -1 Else 'الترقيم Me.TelID = DMax("[eqamaid]", "tbleqama") + 1 End If End Sub أخيرا المرفق و شكرا لتوجيهاتكم منع التكرار.rar

شكرا لكم جارى العمل و من ثم الرد جزاكم الله خيرا

السلام عليكم أستخدم حدث before update لمنع تكرار اسم مدرسة موجود سابقا و بما أن جدول أسماء المدارس يشتمل على حقلين الأول رقم المدرسة و الثانى اسم المدرسة فعند إضافة مدرسة موجودة سابقة يعمل الحدث لكن يتراكم بيانات فى حقل رقم المدرسة بدون أسماء مدارس يعنى أرقام فى الحقل الأساسى رقم المدرسة بدون أسماء مدارس مقابلة لها فى حقل اسم المدرسة فكيف يكون علاج ذلك إذا لم يقبل إدخال اسم المدرسة لا يسجل رقما فى حقل رقم المدرسة أفادكم الله الكود المستخدم فى حقل اسم المدرسة فى النموذج Private Sub TelName_BeforeUpdate(Cancel As Integer) If DCount("madrsa", "[tblmdaress]", "[madrsa]= '" & Me.TelName.Text & "'") > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = -1 Me.TelName.Undo End If End Sub أستخدم قيمة افتراضية لحقل رقم المدرسة لتسهيل الإدخال =DMax("[MadrsaId]";"tblmdaress")+1

ونعم الجمع جمعك الآن اكتمل الملف

هذا هو التطبيق باستخدام like frmmain2 باستخدام like.rar

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

بارك الله فيك أخانا الحلبى لكن هذا غير لاحظ أن سجلا اسمه all يظهر فى التقرير و هذا لايشير لأى دولة المطلوب أن يظهر كل السجلات all عند الأستاذ جعفر معناها كل السجلات بالجدول all عند حضرتك هى اسم إحدى الدول ليت الحل كان بمثل هذه السهولة جزاك الله خيرا مع هذا فهناك حل لإخفاء كلمة all بتعديل بسيط فى الكود If Me.z = "all" Then DoCmd.OpenReport "rpt_Country", acViewPreview, , "country<>'" & z & "'" Else DoCmd.OpenReport "rpt_Country", acViewPreview, , "country='" & z & "'" End If

والله هذا يكون اكتشافا جديدا نجرب و نشوف أى إصدار تستخدم

وفقكم الله

سر على بركة الله

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

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

السلام عليكم عندنا كمبوبوكس به أسماء كيف نضيف خيار الكل و فتح التقرير بهذا الخيار رد للأستاذ جعفر هنا

ردود الأستاذ جعفر خسارة تضيع وسط الزحام تحتاج أن يفرد لها موضوعات منفصلة بعناوين معبرة عن المضمون لفائدة الجميع ولو عنوان موضوع ويتضمن رابطا للموضوع سأجرب ذلك

إبداعات بارك الله فيك أستاذ جعفر