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

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

السلام عليكم 

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

[أبوبسمله]

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

  في 19‏/5‏/2021 at 21:22, ازهر عبد العزيز said:

السلام عليكم 

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

Expand  

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

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

 

[أبوبسمله]

  في 19‏/5‏/2021 at 21:43, ازهر عبد العزيز said:

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

Expand  

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]

  في 19‏/5‏/2021 at 21:44, احمد الفلاحجي said:

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

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

Expand  

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

[أبوبسمله]

  في 19‏/5‏/2021 at 21:50, kha9009lid said:

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

Expand  

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

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

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

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

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

[أبوبسمله]

  في 19‏/5‏/2021 at 21:55, ازهر عبد العزيز said:

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

Expand  

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

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

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

[kha9009lid]

  في 19‏/5‏/2021 at 21:55, ازهر عبد العزيز said:

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

Expand  

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

  في 19‏/5‏/2021 at 21:56, احمد الفلاحجي said:

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

Expand  

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

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

[أبوبسمله]

  في 19‏/5‏/2021 at 22:07, kha9009lid said:

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

Expand  

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

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

احبكم فالله

[kha9009lid]

  في 19‏/5‏/2021 at 22:12, احمد الفلاحجي said:

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

Expand  

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

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

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

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

[أبوبسمله]

  في 19‏/5‏/2021 at 22:16, kha9009lid said:

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

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

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

Expand  

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

[jjafferr]

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

 

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

 

جعفر

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

  في 20‏/5‏/2021 at 08:40, jjafferr said:

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

 

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

 

جعفر

Expand  

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

[jjafferr]

  في 20‏/5‏/2021 at 09:11, ازهر عبد العزيز said:

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

Expand  

شكرا جزيلا 🙂

 

جعفر

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

  في 20‏/5‏/2021 at 09:36, jjafferr said:

شكرا جزيلا 🙂

 

جعفر

Expand