AlwaZeeR

Dim MyStr As String MyStr = Nz(Me.Text0.Text, "") If MyStr = "" Then Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض;" Else Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض" & " WHERE (((ج_العرض.رقم_الارض)=[text0]));" End If تفضل ضعه في حدث بعد التحديث لحقل البحث [Text0] واحذف الحدث عند التغيير في نفس الحقل يعمل البحث بعد الضغط على مفتاح الادخال Enter جرب ووافني بالنتيجة :: تحياتي

باستخدام دالة select case او دالة IF في حدث بعد التحديث للكومبو في النموذج الفرعي مثال: على دالة IF If Forms!cust!age > 30 Or sex = male Then Me.price = Me.food.Column(4) If Forms!cust!age < 30 Or sex = Female Then Me.price = Me.food.Column(5) :: تحياتي

استبدل الكود الموجود في حدث عند التغيير بهذا الكود Dim MyStr As String MyStr = Nz(Me.Text0.Text, "") If MyStr = "" Then Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض;" Else Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض" & " WHERE (((ج_العرض.رقم_الارض) Like '*' & '" & MyStr & "' ));" End If عن طريق تحديث الحقل في الجدول، لاحظ في حدث عند النقر المزدوج :: تحياتي

السلام عليكم ورحمة الله وبركاته غير الرقم 4 الى 6

تفضل اخي صالح ،،، Waz-FolderDir.rar

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

احسنت اخي احمد :: تحياتي

كل عام وانتم بخير من وجهة نظري: يتم زيادة حقل في الجدول الاساسي اسمه للمفضلة (نعم/لا) وعند اختيار صنف محدد يتم تعليمه باشارة صح: ويتم عمل استعلام بمعيار الحقل السابق فيصبح لديك استعلاما بالمفضلات وتستطيع التمييز بينها ايضا باضافة حقل اخر وليكن رقم وعند اختيار للمفضلة يطلب منك تحديد لاي قائمة مفضلات وهكذا :: تحياتي

وعليكم السلام ورحمة الله وبركاته ينقصها جدول اساسيات المدرسة، (الثوابت) وانا افضل ان تكون كل المسميات باللغة الانجليزية ولو انجليزي معرب - بيانات الطلاب: StuTbl > للربط يجب ان يحتوي على حقل مفتاح اساسي بترقيم تلقائي: رقم_الطالب وحقل class_id رقم. - الصفوف: classTbl > للربط يجب ان يحتوي على مفتاح اساسي رقم class_Id - المواد الدراسية : SubTbl > للربط يجب ان يحتوي على مفتاح اساسي رقم sub_id - ثوابت المدرسة: BasicTbl للربط يجب ان يحتوي على مفتاح اساسي رقم bas_id - علامات الطلاب: StuMArks للربط يجب ان يحتوي على حقل رقم_الطالب بتنسيق رقم بدون وليس شرطا ان يكون اساسي - واخيراً الجدول المؤقت: TempTbl هذا الحقل هو نسخة شاملة لكل البيانات التي سيتم استيرادها ولا يهم نأتي الى ربط الجداول: يتم ربط بيانات الطلاب مع العلامات. يتم ربط الصفوف في بيانات الطلاب. يتم ربط المواد الدراسية بالصفوف. :: دعنا نبدأ خطوة خطوة وسوف تحصل على برنامج يلبي كل احتياجاتك :: كل عام وانتم بخير ::

وعليكم السلام ورحمة الله وبركاته كل عام وانتم بخير وتقبل الله طاعاتكم

وعليكم السلام ورحمة الله وبركاته كل عام وانت بخير تفضل اخي الكريم،،، ملفك بعد التعديل ووافني بالنتيجة :: تحياتي Waz-JustTypeID.rar

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

كل عام وانتم بخير وتقبل الله طاعتكم تفضل اخي الكريم ملفك بعد التعديل جرب ووافني بالنتيجة :: تحياتي برنامج عروض waz-اعقار.rar

طبعا ممكن تفضل يتم نسخ الصورة المختارة على سطح المكتب باسم رقم الشخص انت على حسب عملك وحاجتك تستطيع التحكم بالاسم والمكان :: تحياتي waz-Img&Save.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي صالح كود الحفظ مطبق على ملف التصدير الخاص بك :: تحياتي EXportEmPSave.rar

احسنت اخي صالح لا حاجة للحقل (proffesseur) في استعلام sqstu وفقك الله واي استفسار انا في الخدمة :: تحياتي

وعليكم السلام ورحمة الله وبركاته في استعلام sqstu في معيار حقل proffesseur ضع الكود: [Forms]![التنقيط]![prof] كما تم التعديل على اسم الملف الناتج كي يكون باسم مربي الصف: curPath = DTPath & "\" & Forms![التنقيط]!prof.Column(0) & "-" & Format(Date, "mm-dd-yyyy") & ".xls" :: اي استفسار انا حاضر تحياتي Waz-استيراد و تصدير.rar

وعليكم السلام ورحمة الله وبركاته: عمل جدولين واحد للمعلومات الخاصة بالشخص والثاني لمسار الصورة عمل نموذج رئيسي ونموذج فرعي بتنسيق نماذج مستمرة عملت لك مثالاً بسيطا جربه ووافني بالنتيجة :: تحياتي waz-ImageDisplayer.rar

العفو اخي صالح ،،، لا شكر على واجب

ضع نفس الكود في حدث بعد التحديث لاي حقل تريد وسوف يقوم باظهار رسالة اذا ادخلت قيم مكررة أو: هل جربت في خصائص الحقل في الجدول؟ افتح الجدول في وضع التصميم ثم اختر الحقل الذي تريد منع التكرار فيه ثم اختر من الاسفل بجانب (مفهرس) نعم (التكرار غير مقبول) او ارفق مثالاً بسيطا بما تريد للتسهيل على من يريد المساعدة :: تحياتي duplicate-waz.rar

ضع الكود التالي في حدث بعد التحديث للحقل الخاص بك Dim Msgz As String DoCmd.SetWarnings False If DCount("*", "TblName", "[FldName]='" & Me.TxtName & "'") > 0 Then Msgz = MsgBox("... القيم مكررة ... ", vbOKOnly) Me.Undo DoCmd.SetWarnings True Else End If :: تحياتي

العفو اخي الكريم :: تحياتي

في المرفق عند الضغط على استيراد يتم استيراد جميع اوراق ملف اكسل وادراجها في جدول جديد يتم استخلاصه من الجدول الاساسي الخاص بك بعد ذلك تستطيع عمل زر الحاق بالسجل الرئيسي مع معيار رقم الصف :: تحياتي ImpExPortToEXCEl.rar

Private Sub food_Change() Me.Txt = Me.food.Text Txt.SetFocus 'food.Requery food.SetFocus Txt = "" End Sub حياك الله اخي محمد اوقف التحديث في حدث عند التغيير للكومبو Food

تفضل اخي الكريم ملفك بعد التعديل :: تحياتي Waz-بتنسيق 2007.rar