ابو عارف

لان قيمة افتراضية ليست كقيمة مختارة من القائمة و يعتبر الكومبو فاضي حتى تختار له قيمة من القائمة و لجعلها كقيمة مختارة عليك مسح خانة قيمة افتراضية و وضع الكود Combo30 = 15 في حدث عند تحميل الفورم.

اكتب 15 او اكتب رقم عميل ما يقابلة اشرطة في جدول Customertفي ملف المرفق هو 15 و في ملف السابق 7

اكتب 7 في خانة قيمة افتراضي

تفضل اليك المثال Tst.accdb

السلام عليكم جرب احد الحلول Data.zip

السلام عليكم علبك اضافة أمر حفظ سجل في حدث زر طباعة و ذالك في سطر الاول، و اليك التعديل Database1.zip

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

و بارك الله فيك ايضا و كل عام و انتم بخير اخي الكود واضح و بسيط و غير معقد y = year_year y متغير و قيمته حقل year_year في نموذج pr = [product name] pr عبارة عن متغبر و قيمته حقل = [product name] في نموذج ايضا ثم نطلب من الاكسس اذا كان عدد صفوف في جدول Month target يساوي فيه ( السنة و اسم المنتوج مع السنة و اسم المنتوج في نموذج في نفس صف) اكثر من صفر، ينفذ امر Undo و و يعرض رسالة كذا كذا كذا و الا كمل شغله . على فكرة: لماذا اسم المنتج محاصر بين قوسين مربع و سنة لا؟ لان اسم المنتج يحوي على فاصلة و الافضل حصار كلا هما بن قوسين مربع [].

تفضل اخي Private Sub Main_Zoom_In_Click() On Error Resume Next Table1!Image1.Width = Table1!Image1.Width + 500 Table1!Image1.Height = Table1!Image1.Height + 500 End Sub Private Sub Main_Zoom_Out_Click() On Error Resume Next Table1!Image1.Width = Table1!Image1.Width - 500 Table1!Image1.Height = Table1!Image1.Height - 500 End Sub Test.rar

تفضل اخي حسين tast10.rar

السلام عليكم و رحمة الله اخي زين المهندس بنسبة شق الاول من السؤال هناك مشكلة في جدول "غير متزوج" لان الحد الاعلى و الادنى مكرر ثلات مرات و مقدار ضريبة مختلفة في كل صف عليك ترك ثلاثة صفوف الاول و حذف الباقي لان غير متزوج ليس لديه اطفال و هذا سبب الخطاء و حول الجزء الثاني : If Not IsNull([الفئة]) Or [الفئة] <> "" Then هذا سطر يطلب من البرنامج تنفيذ الامر شرط اذا كان مربع الفئة غير فارغة لان: يتم تعين الراتب على حسب الرتبة و الفئة ،و الكود موجود في حدث بعد تحديث للفئة و الرتبة هذا الامر يمنع تعين الراتب اذا لم يتم اختيار الفئة و العكس الصحيح بنسبة الرتبة و للوضاحة اكثر: نطلب من البرنامج يرجع لنا راتب من الصف رتبة تساوي قيمة موجودة في مربع الرتبة في نموذج الواجهة و الفئة تساوي قيمة موجودة في مربع الفئة في نموذج الواجهة طيب ماذا الان ان كان احد مربعات فارغة؟ طبعا يرجع خطاء. و بنسبة الشق الثالث مثلا مقدار ضريبة مؤظف راتبه بين (1000000 و 950000) 2000 دينار، لتفترض مؤظف راتبه 951000 تطبق عليه ضريبة 2000 دينار ايضا الان انظر الفرق بين الاعلى و الادنى، كما شرحت دالة Dmax في مشاركة السابقة (يرجع باعلى قيمة ما اقل او تساوي الراتب(951000) الان في جدول الراتب في حقل الحد الاعلى لا يوجد 951000 و اول اقل قيمة من 951000 في جدول 949000 و ضريببة 949000 1999 دينار لا 2000 اما لو اخترنا الحد الادنى ، في حقل الحد الادنى ايضا لا يوجد 951000 ولكن اول اقل قيمة من 951000 هي 950000 و ضريبته 2000 دينار. هذا ما استطعت اشرح و لك مني اجمل تحية،،،

تفضل اخي ملفك بعد تعديل combo filter.rar

تفضل اخي علما بان تم تغير اسم جدول year الى yyear و كذالك اسماء حقول في جداول بهذالاسم لان year كلمة محجوزة في اكسس و اليك المرفق New Microsoft Access Database1.zip

و عليكم السلام و رحمة الله و بركاته طبعا تربط الواجهة مع جدول الرئيسي لان الاستعلام لعرض نتائج فقظ لايقبل تسجيل الجديد هناك ثلاثة خيارات متاحة 1) تخصيص الواجهة الحالية للتسجيل سجلات الجديدة فقط و انشاء نموذج مماثل للعرض و جعل مصدره الاستعلام . 2) انشاء استعلام تحديث و تشغيله بين حين و الآخر لتحديث الجدول الرئيسي وترك الواجهة كما هو 3) وضع اكواد في احداث مربعات الواجهة و ذالك لتحديث جدول و الواجهة مباشر دون حاجة للاستعلام انظر المرفق بعد تحديث مربع الدرجة او الفئة ايهما الاخير تحدث مربع "الراتب الاسمي" و مربع عدد الاطفال تحدث مربع "الضريبة" DLookup("[مقدار الضريبة]", ([الحالة]) بحث في حقل "مقدار الضريبة" في جدول ما هو مكتوب اسمه في حقل (الحالة) مثلا اذا اخترت في حقل الحالة متزوج و الزوجة ربة بيت ، يبحث القيم الموجودة في حقل "مقدار الضريبة "في نفس جدول و هكذا و الباقي كود لتحديد معايير القيمة يعني ارجاع اعلى قيمة أقل او يساوي الراتب الاسمي و عدد اطفال يساو ي عدد اطفال في الجدول الرئيسي اما الدالة Val لا حاجة لها في المرفق الجديد كتبتها في الاستعلام لقبول تنسيق العملة فقط بالتوفيق. Database1.rar

السلام عليكم اخي انظر التعديل حيث تم وضع كود في حدث قبل تحديث للقائمة Product name New Microsoft Access Database.rar

السلام عليكم و رحمة الله و بركاته اولا حمد لله على السلامة الاخ ابو آدم بعد غياب فترة طويلة ثانيا تجد في المرفق التعديل حسب فهمي من المطلوب علما بان تم اضافة حقل (عدد ابناء) في جدول "غير متزوج" و ذالك لضرورة مساواة عدد و الاسماء جداول الاربعة و قيمته صفر و ايضا تعديل في صفوف الاخيرة في جدول الراتب. Database1.rar

حاضر ولايهمك لنفترض اسم النموذج لديك Form1 اكتب الكود كذا If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then MsgBox "No" Else DoCmd.SelectObject acForm, "Form1" DoCmd.Maximize End If بالتوفيق

اخي السيد اولا شكرا جزيلا على التوضيح ثانيا كلام الاخ محمد صابر "بس مايشتغل" خلاني اجرب الكود في النموذج عندي في اوفيس 2007 في ويندوز سفن و اوفيس 2010 في ويندوز 10، و فعلا كلامه صحيح مايشتغل يعني عند اختيار نعم لايكبر النموذج، ثم اضطرت اضافة سطر لاعادة تحميل النموذج DoCmd.SelectObject acForm, "FormName" ثم عاد يشتغل

جرب هذا If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then MsgBox "No" Else DoCmd.SelectObject acForm, "FormName" DoCmd.Maximize End If غير FormName الى اسم نموذج لديك

عليكم السلام نحن كمسلمين و لله الحمد اجابتنا للرسالة "بسم الله الرحمن الرحيم","الله اكبر" دائماً نعم ولا مجال لخيار آخر. اما الموضوع الخاصة بنموذج ، الصق الكود التالي If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then MsgBox "No" Else DoCmd.Maximize End If

نعم استعلام اجرائي Database3.rar

السلام عليكم و رحمة الله و بركاته اخي انظر الاستعلام الحقل الاول يرجع تاريخ تقريبي من تاريخ الحالي كما تفضل الاخ ابو خليل و الآخر (1/1/سنة تاريخ الحالي ناقص Age) Database3.rar

السلام عليكم و رحمة الله و بركاته جرب الكود بعد تغير بسيط على الكود الاستاذ/ ELsayed الاول Private Sub أمر11_Click() If IsNull(fid) Then MsgBox "برجاء كتابة هوية العميل" Exit Sub End If If IsNull(PayMony) Then MsgBox "برجاء كتابة المبلغ المدفوع" Exit Sub End If If IsNull(monthfild) Then MsgBox "برجاء كتابة شهر الدفع" Exit Sub Else Dim Y As Date Y = Nz(DLookup("monthfild", "databace", "id=" & Me.fid & "And month(monthfild)=" & Month(monthtext)), 0) If Y <> 0 Then MsgBox "عفوا تم تسجيل هذا الشهر مسبقا لهذا العميل", vbInformation, "مكرر" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO databace " & "(id,monthfild,namee,WorkPlace,PayMony,Mountfild) VALUES " & "(fid, monthtext,fname, WorkPlace ,PayMony,Mountfild);" DoCmd.SetWarnings True MsgBox "تم سداد الشهر بنجاح" End If End If End Sub

السلام عليكم جرب هذا Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]='" & F_mobile & "'") و اذا كان تنسيق عمود تلفون رقما Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]=" & F_mobile)

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