ابوخليل

مشاركة مع اخي قاسم 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

بعد التجربة والمقارنة تاريخ ام القرى من ميكرو سوفت متطابق تماما وهنا ينطبق المثل .. قطعت جهيزة قول كل خطيب ولكن يتبقى العثور على الدوال التي تستخدم للتحويل .

اخي الكريم يجب الاهتمام بكتابة العنوان المناسب الذي يصف الموضوع

تمام وهذا بيت القصيد والمعاناة انتهت الآن لاعتماد التاريخ الميلادي رسميا في الدوائر والمؤسسات وتاريخ أم القرى ثانويا المعذرة ابا احمد لاني واحد ممن عانوا من هذه المشكلة .. ايهما اصح تاريخ ميكروسوفت الهجري ام تاريخ ام القرى ؟ الجواب _ ومن خلال تتبع فرضه علي عملي_ :أن ام القرى أصح ...فهو غالبا افضل وأقرب في التوافق مع رؤية الأهلة الشرعية استدراك : للعلم ميكروسوفت تدعم تاريخ ام القرى .. موجود ضمن اعدادات التاريخ .. ولكني لا اعلم هل هو نسخة طبق الأصل من التاريخ المعمول به ام لا

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

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

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

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