غرّام العقول

وعليكم السلام ورحمة الله وبركاته استخدم هذا التعديل, واستدعه من النموذج مثل الدالة السابقة. Function MonthLoop() As String Dim MonthHold As Date Dim strSQL As String Dim i As Integer Dim N As Integer N = 5 strSQL = "" For i = -5 To N MonthHold = DateSerial(Yea…

وعليكم السلام ورحمة الله وبركاته نعم أخي يمكن ذلك عن طريق الذهاب إلى خصائص الحقل في النموذج ثم الذهاب إلى التبويب "تنسيق" ومنه الذهاب إلى خاصية أشكال رقمية وجعلها "دولي" لحقل الأرقام الهندية, أو جعله "اللغة العربية" إذا أردت الأرقام العربية. انظر المرفق التالي…

وعليكم السلام ورحمة الله وبركاته تم وضع هذا الكود في حدث عند فتح النموذج: Private Sub Form_Open(Cancel As Integer) Dim db1 As Database Dim rst As Recordset Set db1 = CurrentDb Set rst = db1.OpenRecordset("BasicList") rst.MoveFirst Do While Not rst.EOF rst.Edit…

شكراً لك أستاذنا أبو يوسف شكراً لك أستاذتنا زهرة من الرائع أن نشاهد تنوعاً في الإجابات والحلول, خاصة إذا كانت من أساتذتنا الكبار, لكن ماحزّ في نفسي أن يقوم أحدهم بالتقييم السلبي لمشاركة الأستاذة زهرة, لقد قمتُ بتعديل -1 إلى 0 . لي رجاء أوجهه لإدارة الموقع: لم …

وعليكم السلام ورحمة الله لمعرفة عدد السجلات في جدول ما, تحتاج إلى الدالة DCount DCount("id","Tble1") حيث Tble1هو الجدول المراد تعداد سجلاته, و id هو أي حقل في ذلك الجدول, ويمكنك استبدال اسم الحقل بالعلامة "*" ولتخزين عدد السجلات في متغير من نوع Integer ويفضل أ…

وعليكم السلام ورحمة الله إذن لن تحتاج إلا إلى دالة ()Fix لوحدها بحيث يصبح التعبير في مربع النص الذي يظهر التقريب كما يلي: = Fix([A])

بعد إذن أستاذتي القديرة زهرة أعتقد أخي فهد أن القوائم التي تتحدث عنها ما هي إلا "عناصر تحكم علامة جدولة" يمكن الوصول إليها من مربع أدوات تصميم النموذج كما في الصورة التالية:

بارك الله بكم أجمعين لو تلاحظون طلب صاحب الموضوع بأنه يريد إرجاع الكسر العشري إلى أقل عدد صحيح, وبالتالي فالدالة ()Round تحقق له نصف مطلبه فقط وهو إذا كان الرقم أقل من صفر, أما إذا كان الرقم أكبر من صفر فإن الدالة السابقة تعيد له أقرب عدد صحيح, وليس (أقل عدد ص…

السلام عليكم ورحمة الله هذا الحل لمشكلتك كنت قد وضعته في بداية طرح الموضوع , وقد تراجعت عن رفعه لاعتقادي بأن الإخوة الذين سبقوني بالجواب قد صححوا كل ما يمكن تصحيحه. تفضل أرجو أن تجد الحل في المرفقات m12003_UP.rar

وعليكم السلام ورحمة الله تفضل التعديل Database6.rar

تفضل التعديل combo_box1.rar

لقد أحسنت وأجدت بارك الله بك وأحسن إليك وقد أوحى لي اختصارك الأخير بأخذ رأيك في اختصار الدالة السابقة بهذا الشكل: Public Function DateOfWeek(ByVal ya As Integer, ByVal ww1 As Byte) As Date Dim Fw As Date Fw = DateSerial(ya, 1, (ww1 - 1) * 7 + 1) + 1 DateOfWeek…

بارك الله فيك أستاذتنا القديرة/ زهرة وهذه طريقة أخرى لاتعتمد على الكود وإنما على الاستعلام, كنت قد بدأت بها قبل أن أرى ردك الرائع, فأحببت أن أضعه لزيادة الفائدة. st&endWeeks.rar

يمكنك الاستغناء عن الاستعلامات إن أردت ذلك, فقط قم بتغيير الكود السابق إلى الكود التالي: Private Sub box_AfterUpdate() Dim strSQL As String If Me.box = "Çáßá" Then strSQL = "SELECT Table1.id, Table1.EName" & _ " FROM Table1;" DoCmd.OpenForm "frm1" Forms!frm1.R…

بعد إذن أستاذي القدير محمد صالح لعل المطلوب يكون في وحدة نمطية بهذا الشكل: Sub Gharram() Dim Omr As Byte Dim Categ As String, yrAge As String, Xx As Long, Nout As Long Dim Rst As Recordset Set Rst = CurrentDb.OpenRecordset("Table1") If Rst.RecordCount > 0 Then…

وعليكم السلام ورحمة الله وبركاته تم إضافة نموذج يقوم بعرض السجلات بعد تحديثها, والنموذج يأخذ بياناته من استعلام يتحسس رقم العميل الذي تقوم بإدخاله في النموذج. وعند النقر على الزر عرض ترقيم سجلات العميل وضعت هذا الكود الذي يقوم بترقيم السجلات ابتداءاً من الأقدم…

وعليكم السلام ورحمة الله وبركاته من الأفضل استخدام جملة الشرط في حدث بعد التحديث لمربع التحرير والسرد, مع عمل استعلام يعيد لك جميع القيم في حالة اختيار "الكل", أو يظهر لك الاستعلام المعياري في حالة اختيار حرف غير "الكل" فيكون الكود في حدث بعد التحديث لمربع الت…

تفضل التعديل List1.rar

تفضل التعديل 1234.rar

وعليكم السلام ورحمة الله وبركاته تفضل التعديل مثال1.rar