Foksh

مشاركه خارجية ،، Private Sub CountRecordsInTable() Dim tableName As String Dim fieldToCount As String Dim recordCount As Long Dim strSql As String ' تعيين اسم الجدول tableName = "اسم_الجدول" ' تعيين اسم الحقل الذي ترغب في حساب عدد سجلاته fieldToCount = "اسم_الحقل" ' بناء استعلام SQL لحساب عدد السجلات strSql = "SELECT Count(" & fieldToCount & ") AS RecordCount FROM " & tableName ' استخدام استعلام SQL لاحتساب النتيجة recordCount = DCount(fieldToCount, tableName) ' عرض النتيجة MsgBox "عدد السجلات في الجدول " & tableName & " هو: " & recordCount, vbInformation, "نتيجة العدد" End Sub جرب هذا الكود مع تغيير اسم الجدول والحقل.

أخي الكريم ، هل لك أن ترسل مرفق بسيط ؟ مع العلم أن التعديل هو فقط على الاستعلام الأول فقط

تم تعديل المرفق بالتعليق الأول

مرفق ملف نصي TXT يتضمن باقي التعديلات ، حسب ما تصورت طبعاً Union Query.zip تم تعديل الملف ، يحتوي الاستعلام الأول كتجربة ,,

تفضل هذا المرفق واعطيني النتيجة Give.accdb

هذه فكرة قد تجد فيها الحل ، New Microsoft Access Database.accdb

اخي الكريم من باب التوضيح ، هل تقصد بأنك مثلاً تريد البحث عن قيمة موجودة بين رقمين ( كفكرة البحث بين تاريخين ) ؟؟ فسر أكثر رحم الله والديك و والدينا 😊

لعدم توافر سيرفر عندي ، جرب هذا المرفق Server Connect.accdb

تفقد هذا الملف قد يفيدك في حل مشكلتك ، لكنه بطريقة غير التي اعتمدتها في مرفقك. Whatsapp Sender.accdb

هذا ملافق مثال ، تفضل vdata.accdb

If IsNull(TextBox.Value) Then MsgBox "يرجى تعبئة الحقل", vbExclamation, "" TextBox.SetFocus End If

اخي الكريم ، تم تصحيح الكود Private Sub kind_Res_AfterUpdate() If IsNull(DLookup("[txtdatay]", "Valueco", "[txtdatay] = '" & Me.kind_Res & "'")) Then MsgBox "تعبير غير صحيح", , "" End If End Sub

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

أستاذي ومعلمي @عمر ضاحى ، مداخلة Private Sub kind_Res_BeforeUpdate(Cancel As Integer) If Me.kind_Res <> DLookup("[txtdatay]", "[Valueco]", "[txtdatay]='" & Me.kind_Res & "'") Then MsgBox "تعبير غير صحيح" Cancel = True End If End Sub جرب هذا التعديل

توقيف هذا السطر ID = x(0)! واستبداله بهذا السطر [Forms]![visit_frm]![ID] = [ID]

بعد اذن استاذي @عمر ضاحى تفضل الملف بما قام به الأستاذ vdata.accdb

ارسل رابط او النسخة التجريبية من هذا البرنامج لتفقده 😅

بداية هل النسخة التجريبية قاعدة بيانات آكسيس ؟؟ وارسل النسخة التجريبية التي تتحدث عنها لتجربتها إن كانت هناك آلية لتعديلها ، مع العلم أن هناك بالمنتدى نسخة محدثة من الأخ والاستاذ @Moosak تجدها في هذا الرابط

تفضل اخي الكريم نسخة ١ نسخة ٢

يصبح الكود في الاستعلام هكذا Not Like "*السامري" and Not Like "*السامرى"

لا تنسى إغلاق الموضوع باختيار أفضل إجابة 😊

تصحيح خطأ كان عند النقر على أحد حقلي التاريخ Y1 + Y2 تقويم.accdb

هل قمت بتجربة الحل في هذا المرفق السابق ؟ أعلمني بالنتيجة 😊

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

'Me.Parent!ID = x(0)