ابوخليل

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

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

تفضل تعديل طفيف على الكود وعلى الحدث اتمنى ان يعمل عندك جمعية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

اذا صحيح تفضل هذه المحاولة Access Database Ruond2.rar

الشايب يقصد انه يتم القسمة على الـــــ 6 حقول سواء كانت فارغة او قيمتها 6 المهملة هل هذا صحيح ؟

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

حتى الآن لم اصل الى فهم المطلوب ... اعذرني شيبة دعنا من الدوال والاستعلام وايضا التقريب .. وخذنا من الاصل من البداية .. من الجدول المتوسط كفهم اولي هو عبارة عن جمع قيم الحقول ثم قسمتها على عدد الحقول نفسها مثلا لدي 6 حقول تحمل القيم من 1 الى 6 : مجموع القيم = 21 إذا 21 قسمة 6 = 3.5 سنعمل على سجل واحد : لديك في الجدول حقل Extension ويحمل قيمة وستة حقول تبدأ تسميتها من s19 وحتى s24 ما هي الحقول التي تريد استخراج المتوسط منها

لم افهم المطلوب بالضبط اذا تريد استثناء العمود رقم 6 في الاستعلام فيمكنك اخفاؤه .. ( في رأس العمود .. انقر بزر الفأرة الأيمن واختر اخفاء )

تفضل لم اغير شيئا فقط ادرجت آخر رقم سند قبض وتاريخه Aziz5.rar