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

جرب هذا فى حدث 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 مرات يجب

و نعلم أن وراء "يجب" تعليل إن شاء الله يكون مفيدا للجميع

طبعا القيمة الافتراضية ليست نفسها القيمة

القيمة تسجل

لكن القيمة الافتراضية مجرد اقتراح من أكسيس

بقى أن نعلم

سبب وضع الكود فى حدث الحالى

سبب وضع كود التحقق فى الحقل و ليس النموذج

مع أن الأخ شفان أوصى بعكس ذلك

وفقك الله و أعانك على الرد بإسهاب على أسئلتنا و أفادكم الله و زادكم علما

وقد استخدمت هذا الأسلوب قديما

لكن حبكة قاعدة البيانات و سد الثغرات

له نتائج طيبة فيما بعد

و يحد من الفوضى المتراكمة

3 دقائق مضت, أمير2008 said:

استعلام حذف  -مع بداية تشغيل البرنامج  أو اغلاقه - للسجلات المحتوية على اسم المدرسة فارغ

نعم

لكن منع حدوث ذلك من البداية

لا شك أنه أفضل

شكرا

الآن

نفذت الآتى

و أود التأكد من أن هذه أفضل طريقة

- الحقلان مطلوبان رقم و اسم المنطقة

كل الكود فى حدث قبل التحديث للنموذج

- إلغاء أزرار التنقل فلا يبقى أمام المستخدم إلا زر إغلاق أو إغلاق النموذج من أعلى "×"

الكود التالى

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

في ٥‏/٥‏/٢٠١٧ at 18:43, jjafferr said:

انا جمعت الطرق الثلاث مع بعض ، وبدون وجود سجل فاضي في جدول الدول

ونعم الجمع جمعك

الآن اكتمل الملف

هذا هو التطبيق باستخدام 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

والله هذا يكون اكتشافا جديدا

نجرب و نشوف

أى إصدار تستخدم

وفقكم الله

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

السلام عليكم

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

رد قيم للأستاذ جعفر

الان, jjafferr said:

شكرا أخي عبد الفتاح

 

ولكني لم اكن متوقع انك راح تفتح موضوع جديد له

 

جعفر

هكذا تعم الفائدة إن شاء الله

جعله الله فى ميزان حسناتك

هناك كنوز من الردود القيمة لأساتذة كبار

لكنها مخبئة فى شكل ردود و ليس موضوعات

لو قام المشرفون بهذه المهمة فلهم الشكر

ولو نبدأ من الآن

السلام عليكم

عندنا كمبوبوكس به أسماء

كيف نضيف خيار الكل

و فتح التقرير بهذا الخيار

رد للأستاذ جعفر

هنا

ردود الأستاذ جعفر

خسارة تضيع وسط الزحام

تحتاج أن يفرد لها موضوعات منفصلة

بعناوين معبرة عن المضمون

لفائدة الجميع

ولو عنوان موضوع

ويتضمن رابطا للموضوع

سأجرب ذلك

46 دقائق مضت, jjafferr said:

تفضل

 

تابع الارقام بالتسلسل ، مع البرنامج

.

جعفر

638.All.mdb.zip

إبداعات

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

لو كان هناك مرفق لفهمنا " جاية منين"؟

لكن الصيغة معروفة

افتح الريبورت اللى اسمه mab

فى وضع معاينة قبل الطباعة

بشرط

أن الحقل bookx فى مصدر بيانات التقرير (جدول أو استعلام)

يساوى قيمة الحقل الموجود فى النموذج المفتوح المسمى بنفس الاسم

أما إن كنت تسأل عن علامة التنصيص المفردة 

فتوضع مكان علامة التنصيص المزدوجة لتحديد نص 

لأننا لو وضعنا المزدوجة

لظن الأكسيس أن جملة الشرط انتهت

حيث يوضع الشرط أيضا بين علامتى تنصيص

لذلك لو كان هناك نص داخل نص 

يوضع الداخلى منهما بين علامتى تنصيص مفردتين

هذا جهد المقل

والله أعلم

شكرا لكم