رسالة تحذير في حال كون عدد السجلات في النموذج كبير

[ازهر عبد العزيز]

السلام عليكم 

احتاج كود رسالة تحذير في حال كون عدد السجلات في النموذج  اكثر من 30 سجل 

[ابوبسمله]

وعليكم السلام اخى ازهر

الان, ازهر عبد العزيز said:

السلام عليكم 

احتاج كود رسالة تحذير في حال كون عدد السجلات في النموذج  اكثر من 30 سجل 

اتفضل جرب الكود التالى

Private Sub Form_Current()
    If Me.RecordsetClone.RecordCount >= 30 Then MsgBox "ضع رسالتك كما تريد "
End Sub

بالتوفيق

[kha9009lid]

Dim x As Integer
x = DCount("*", "tbl_2")
If x > 30 Then
MsgBox "عدد السجلات اكبر من 30", , "تحذير"
End If


او 

If Me.RecordsetClone.recordcount > 30 Then
MsgBox "عدد السجلات اكبر من 30", , "تحذير"
Else
End If

اختر اي من الطريقتين

سبقتي استاذ احمد 🌹

[ازهر عبد العزيز]

الاساتذة @kha9009lid  @احمد الفلاحجي  جزاكم الله عني كل خير 

 طلب اخر لو سمحتم  احتاج ان تكون رسالة التحذير نعم او لا فلو كانت نعم يتم فتح النموذج A وبخلافة يتم الالغاء

[ابوبسمله]

جزاك الله خيرا اخى واستاذى العزيز خالد @kha9009lid بحاول اسبقكم لكى تصححوا لنا ان اخطات

بارك الله لنا فيكم وجزاكم عنا كل خير 💐

[kha9009lid]

Dim x As Integer
x = DCount("*", "tbl_img")
If x > 30 Then
If MsgBox("عدد السجلات اكثر من 30", vbYesNo, "تنبيه") = vbYes Then
DoCmd.OpenForm "frm_1"
Else
DoCmd.CancelEvent
End If
End If

 

[ابوبسمله]

الان, ازهر عبد العزيز said:

طلب اخر لو سمحتم  احتاج ان تكون رسالة التحذير نعم او لا فلو كانت نعم يتم فتح النموذج A وبخلافة يتم الالغاء

Private Sub Form_Current()
    If Me.RecordsetClone.RecordCount >= 30 Then
        If MsgBox("عددالسجلات", vbYesNo + vbMsgBoxRight) = vbYes Then
            DoCmd.OpenForm "a"
        End If
    End If
End Sub

 

[kha9009lid]

5 دقائق مضت, احمد الفلاحجي said:

جزاك الله خيرا اخى واستاذى العزيز خالد @kha9009lid بحاول اسبقكم لكى تصححوا لنا ان اخطات

بارك الله لنا فيكم وجزاكم عنا كل خير 💐

بل نكمل بعض ونتعلم من بعض

[ابوبسمله]

الان, kha9009lid said:

بل نكمل بعض ونتعلم من بعض

بالتاكيد اخى واستاذى بارك الله لنا فيكم ودمتم لنا سالمين

سبقتنى انت المره دى جزاك الله خيرا 💐

اخوك الصغير احمد

[ازهر عبد العزيز]

جعلكم الله واياي من الذين يسارعون في الخيرات جزيل الشكر

[ابوبسمله]

الان, ازهر عبد العزيز said:

جعلكم الله واياي من الذين يسارعون في الخيرات جزيل الشكر

اللهم آمين والشكر لله ثم لاخوانى واساتذتى جزاهم الله عنا كل خير

بالتوفيق اخى ازهر

اعذرونى رصيد الاعجاب عندى خلصان مش عارف اعمل اعجابات خالص

[kha9009lid]

21 دقائق مضت, ازهر عبد العزيز said:

جعلكم الله واياي من الذين يسارعون في الخيرات جزيل الشكر

امين اخي ازهر والشكر لله سبحانه

20 دقائق مضت, احمد الفلاحجي said:

اعذرونى رصيد الاعجاب عندى خلصان مش عارف اعمل اعجابات خالص

ولا يهمك اخي احمد حدد الموضوع وان شاء الله نشكر نيابة عنك 🌹

تم تعديل مايو 19, 2021 بواسطه kha9009lid

[ابوبسمله]

الان, kha9009lid said:

ولا يهمك اخي احمد حدد الموضوع وانشاء الله نشكر نيابة عنك

تسلم اخى ومعلمى العزيز

تنويه بسيط  :- ان شاء الله تكتب ان شاء الله وليس انشاء الله والله اعلى واعلم ولعلها من سرعه الكتابه

احبكم فالله

[kha9009lid]

4 دقائق مضت, احمد الفلاحجي said:

ان شاء الله تكتب ان شاء الله وليس انشاء الله والله اعلى واعلم ولعلها من سرعه الكتابه

احسنت اخي احمد وانا اكتبها هكذا ولكني اعاني من التصحيح التلقائي للوحة المفاتيح فكلما اوقفت التصحيح التلقائي اجده يعمل

المشكلة انني لا استطيع استخدم لوحة مفاتيح فيزيائية 😞

تم التصحيح وجزاك الله خيرا

احبكم الله الذي احببتمونا فيه

[ابوبسمله]

الان, kha9009lid said:

احسنت اخي احمد وانا اكتبها هكذا ولكني اعاني من التصحيح التلقائي للوحة المفاتيح فكلما اوقفت التصحيح التلقائي اجده يعمل

المشكلة انني لا استطيع استخدم لوحة مفاتيح فيزيائية 😞

تم التصحيح وجزاك الله خيرا

احسن الله اليك اخى خالد 💐

[jjafferr]

السلام عليكم 🙂

 

اخي ازهر ، رجاء تعطيني عنوان آخر للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، حتى اغيّر العنوان ولا يكون مخالف 🙂

 

جعفر

[ازهر عبد العزيز]

31 دقائق مضت, jjafferr said:

السلام عليكم 🙂

 

اخي ازهر ، رجاء تعطيني عنوان آخر للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، حتى اغيّر العنوان ولا يكون مخالف 🙂

 

جعفر

رسالة تحذير في حال كون عدد السجلات في النموذج  كبير

[jjafferr]

24 دقائق مضت, ازهر عبد العزيز said:

رسالة تحذير في حال كون عدد السجلات في النموذج  كبير

شكرا جزيلا 🙂

 

جعفر

[ازهر عبد العزيز]

12 ساعات مضت, jjafferr said:

شكرا جزيلا 🙂

 

جعفر