ابوخليل

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

وجهة نظر صحيحة لا غبار عليها بارك الله فيك استاذنا ، حيث مستقبلا هو بحاجة الى تقرير يظهر العائلة كاملة بتفاصيلها ... والعلاقة يجب ان تكون بـــ 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

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

تمام .. انت صح ، وهي زيادة معلومة ان لم تنفع فلن تضر دعنا نفكر خارج الصندوق : اي فكرة منطقية حتما يوجد لها حل برمجي ، ونحن نبحث عن اسهل وايسر الحلول الذي أراه : 1- بيع ما ورد اولا المسؤول عنها الصيدلي نفسه .. بحيث يضع ما ورد اولا في مقدمة الرف .. او انه لا يضع على الرف اي صنف جديد حتى ينفد ما قبله 2- فكر !!!!! من هذه الفرضية .. ومن تاريخ الصلاحية المدرج .. مثلا : صنف عدد 50 ينتهي بتاريخ 1 نفس الصنف عدد 50 ينتهي بتاريخ 2 المجموع 100 من جدول المبيعات اذا تم بيع 50 قطعة فهذا يعني ان الصنف تاريخ 1 انتهى

استخدم دالتي Dmax و Dmin لجلب اكبر واصغر تاريخ من الاستعلام

وجدت لك مثالا يحتوي على اربع طرق للترقيم التلقائي داخل الاستعلام Sequence: DCount("AuID";"Authors";"AuID <=" & [AuID]) '..................................... Sequence: DCount("AuName";"Authors";"AUName <='" & [AuName] & "'") '.................................... Sequence: (Select Count(1) FROM Authors A WHERE A.AuID <=Authors.AuID) '.................................... Sequence: (Select Count(1) FROM Authors A WHERE A.AuName <=Authors.AuName) NumberedQuery2k.mdb