ابوخليل

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

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

برنامجك بحاجة الى اعادة ترتتيب وضبط من حيث العلاقات في الجداول والارتباطات بين النماذج بحيث اذا وقفت على سجل في نموذج الآباء ثم ذهبت الى النماذج في التبويبات الفرعية لا يظهر لك الا البيانات المتعلقة بهذا السجل فقط ---------------------------------------------- بالنسبة للبحث عن الرقم القومي .. الافضل كل نموذج له مربع بحث يخصه اذا موجود يذهب اليه ويظهره والا يظهر تنبيه بعدم وجود الرقم لنفرض انك تبحث في نموذج الآباء ولم تجد الرقم .. رغم انه موجود في جدول الأبناء ، فحين تكتبه في مربع التسجيل سيرفض ويخبرك ان الرقم مكرر وموجود في جدول الابناء هذا رايي .. واعتقد انه منطقي وسهل

السلام عليكم الاول : لإلغاء رسائل التحذير التي تظهر عند تشغيل الاستعلام الثاني : لتفعيلها وارجاع المياه الى مجاريها .. لآنه تم تشغيل الاستعلام بصمت

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

وجهة نظر صحيحة لا غبار عليها بارك الله فيك استاذنا ، حيث مستقبلا هو بحاجة الى تقرير يظهر العائلة كاملة بتفاصيلها ... والعلاقة يجب ان تكون بـــ ID_R وليس الرقم القومي لانه لكل فرد رقم قومي يخصه الأخ الكريم @elmozy525 تم تعديل الاسم في الجداول الى fName و sName بدلا من Name لأن كلمة Name محجوزة في اكسس تم عمل المطلوب يمكنك رؤية الرسالة ومكان التكرار والاسم في النموذجين وايضا في حقل البحث جمعية5.rar

حاضر نكتفي بمربع البحث انتظرني ...

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

وهذا تنبيه عند التراجع اذا لم يحدث تغيير On Error GoTo ErrHandler DoCmd.RunCommand acCmdUndo MsgBox "تم التراجع", vbOKOnly, "تنبيه" ErrHandler: If Err.Number = 2046 Then MsgBox "لا يوجد تغيير للتراجع", vbOKOnly, "تنبيه" End If لايوجد سجل للحذف2.rar

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

افتح على خصائص مربع التحرير ، لسان التبويب : تنسيق .. وعدل كما في الصورة

غير خصائص العلاقة بين الجداول الثلاث داخل الاستعلام اكرر : التغيير في العلاقة يكون داخل الاستعلام

تفضل تعديل طفيف على الكود وعلى الحدث اتمنى ان يعمل عندك جمعية4.rar

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

المقارنة تتم عبر استعلام توحيد في الوحدة النمطية المثال يعمل لدي 100% .. انا اعمل على اكسس 2019 اذا لم يعمل عندك يمكننا الغاء الوحدة النمطية ونعمل استعلام توحيد ظاهر يضم الحقول الثلاث . ونستخدم اكواد الاستاذ قاسم للمقارنة من مصدر بيانات واحد الذي هو الاستعلام

المشكلة بسبب لما يكون الحقل فارغ استخدم الدالة NZ myQwmiNum = Nz(txt_Qawmi) من اجل لا يتمكن من مغادرة الحقل حتى يقوم بتعديل الرقم ،،، حيث undo لا تعمل الا من خلال سجلات النموذج ، والكود المسؤول عبارة عن وحدة نمطية جرب وحاول تغير الحدث الى ما يناسبك .. قبل التحديث او بعد التحديث .. جمعية3.rar

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

مشاركة مع اخي قاسم Public myQwmiNum As String Public Function funDublCate() Dim rs As dao.Recordset Dim strSql As String Set rs = CurrentDb.OpenRecordset("SELECT Show_Familys.Qawmi " & vbCrLf & _ "FROM Show_Familys; " & vbCrLf & _ "UNION SELECT Show_Familys.Qawmi2 " & vbCrLf & _ "FROM Show_Familys; " & vbCrLf & _ "UNION SELECT tbl_Sons.Qawmi " & vbCrLf & _ "FROM tbl_Sons") rs.MoveLast rs.MoveFirst Do Until rs.EOF If rs!Qawmi = myQwmiNum Then MsgBox " الرقم القومي مكرر ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" DoCmd.CancelEvent Exit Do End If rs.MoveNext Loop rs.Close End Function جمعية2.rar

انظر الى مصدر بيانات التقرير افتح التقرير على التصميم ، وفي الخصائص / لسان التبويب : بيانات ... في اول خصيصة من الأعلى (مصدر بيانات التقرير ) انقر على النقاط الثلاث سوف ينقلك اللى الاستعلام مصدر بيانات التقرير ستلاحظ ان الاستعلام عبارة عن استعلام توحيد .. وستظهر لك الجمل البرمجية يمكنك نسخها ولصقها في التقرير في برنامجك بشرط ان لا تختلف المسميات في برنامجك ( اسم الجدول ، اسماء الحقول)

انظر التقرير المرفق اتمنى يفي بحاجتك son2.rar

تفضل If i = 0 Then Label5.Caption = Format(Now(), "dddd") Label0.Caption = "اليوم" i = i + 1 ElseIf i = 1 Then Calendar = vbCalHijri Label5.Caption = Format(Now(), "yyyy/mm/dd") Label0.Caption = "التأريخ الهجري" i = i + 1 ElseIf i = 2 Then Calendar = CurrCal Label5.Caption = Format(Now(), "yyyy/mm/dd") Label0.Caption = "التأريخ الميلادي" i = i + 1 ElseIf i = 3 Then Calendar = CurrCal Label5.Caption = Format(Now(), "long time") Label0.Caption = "الوقت" i = 0 End If عداد الوقت تم ضبطه على 5000 والتي تعني 5 ثواني ، يمكنك تسريع العرض بانقاص الرقم Database3.accdb

😇

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

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

تفضل Private Sub cmdsave_Click() Dim c1, c2, c3, c4, c5, cc As String Dim numinfo As String cc = "00" If Me.chk1 = True Then c1 = "1" Else c1 = "0" If Me.chk2 = True Then c2 = "1" Else c2 = "0" If Me.chk3 = True Then c3 = "1" Else c3 = "0" If Me.chk4 = True Then c4 = "1" Else c4 = "0" If Me.chk5 = True Then c5 = "1" Else c5 = "0" If Not IsNull(Me.txtfasthrs) Then cc = Me.txtfasthrs Else cc = "00" numinfo = Format(c1 & c2 & c3 & c4 & c5 & cc, "0000000") Me.moreinfo = numinfo With rs .AddNew ![pname] = txtpname ![moreinfo] = numinfo .Update End With lstData.Requery End Sub ManyCheckboxValues3.rar