أبا عمر

تفضل If ([x] >= 0 And [x] <= 100) Then MsgBox "الرقم محصور بين 0 و 100 " Else MsgBox "الرقم خارج نطاق 0 و 100 " End If مثال IF.rar

SetOption "Behavior entering field", 2 وهذا الكود أيضا في حدث عند التركيز يفي بالغرض ولإلغائه نستخدم SetOption "Behavior entering field", 0

الحمد _لله_

السلام عليكم ورحمة الله وبركاته بعد إذن أستاذي الحبيب أبو آدم جزاه الله خيرا تفضل أخي الحبيب أرجو أن أكون قد أحسنت الفهم A_اجتماعات.rar

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ S S M تفضل أستاذي SYLAR A_Tshgel.rar

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

If Me.xx.Text = "" Then MsgBox "عفواً لا يمكن ترك هذا الحقل فارغاً", vbCritical, "تحذير" Cancel = True End If في حدث عند الخروج من الحقل ضع الكود السابق حيث xx هو الحقل المراد إجبار المستخدم على عدم تركه فارغا وهذا كود للأستاذ الفاضل أبو آدم جزاه الله خيرا وأحسن الله إليه منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي وأرجو أن أكون قد أحسنت الفهم A_age.rar

وهذا طلبك الثاني A_3malh.rar وبخصوص العلاقات لا يوجد عندك إلا جدول واحد

السلام عليكم ورحمة الله وبركاته تفضل طلبك الأول وأرجو أن أكون قد أحسنت الفهم عنك A_3malh.rar

جزاك _الله_ عنا خيرا ورزقك ربي سعادة الأمد والأبد وودادة الوالد والولد ومن تحب ومن تخصهم بالدعاء

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

جزاكم _الله_ خيراً وأحسن إليك ومن تحب ومن تخصهم بالدعاء

جزاك _الله_ خيرا أخي الحبيب وهذا يقينا من طيب أصلك وأدبك وحسن خلقك

جزاكم _الله_ خيراً

أخي الحبيب أدخل البيانات عن طريق النماذج

نفس الفكرة التي استخدمتها انت مع اختلاف يسير أن الدالة DMAX ترجع أعلى قيمة موجود في حقل معين في الجدول Me.number_st =nz(DMax("[number_st]";"tab"))+1 & "/" & Year(Date) tab هو الجدول number_st هو حقل الترقيم

هل تدخل البيانات عن طريق الجدول ؟!

السلام عليكم ورحمة _الله_ وبركاته جرب هذه أرجو أن يكون فيها فائدة =nz(DMax("[id]";"tbl"))+1

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي جرب هذا البرنامج لأحد الفضلاء جزاه _الله_ خير الجزاء MasterKey1.rar

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب تفضل قمت باستيراد الوحدات النمطية وتقرير من المثال الموجود بالرابط الذي أشرت عليك به الى مثالك ويعمل الآن فقت قم بباقي التعديلات على التقرير بما يناسبك A_enderline_2.rar

جزاكم _الله_ خيرا

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