كيف يمكن إيقاف زر التنقل التالي من فتح سجل جديد

[AboSaad17]

السلام عليكم ورحمة الله وبركاته
من المعلوم  أن  (   زر التنقل التالي )) بين السجلات يفتح سجل جديد
فهل هناك طريقة لإيقاف زر التنقل من فتح سجل جديد والوقوف عند أخر سجل محرر
وذلك بهدف إجبار المستخدم على استخدام زر الأمر لفتح سجل جديد

 

New Rec.mdb

[Shivan Rekany]

2 ساعات مضت, AboSaad17 said:

فهل هناك طريقة لإيقاف زر التنقل من فتح سجل جديد والوقوف عند أخر سجل محرر

اليك هذا

Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
If Me.CurrentRecord < RC Then
    DoCmd.GoToRecord , , acNext
End If

 

[ابوخليل]

ومشاركة مع الاستاذ العزيز شفان

ثلاث خطوات :

1- من خصائص النموذج اعدل الخصيصة :  السماح بالاضافة=لا

2- الصق السطر في اعلى كود زر جديد :

Me.AllowAdditions = True

3- الصق السطر في اعلى كود زر التالي :

Me.AllowAdditions = False

 

New Rec2.rar

[النجاشي]

1 ساعه مضت, ابوخليل said:

ومشاركة مع الاستاذ العزيز شفان

ثلاث خطوات :

1- من خصائص النموذج اعدل الخصيصة :  السماح بالاضافة=لا

2- الصق السطر في اعلى كود زر جديد :

Me.AllowAdditions = True

3- الصق السطر في اعلى كود زر التالي :

Me.AllowAdditions = False

 

بارك الله فيكم استاتذتي الكرام بو خليل وشفان ريكاني والسائل الذي حط السوال الذي كان ببالي  

سوالي استاتذتي الكرام كيف يكون الكود عندما يكون لديك نموذج ريسي وفرعي واريد تنفيذ الكود من نموذج اخر عند الاغلاق

شاكرين اليكم احبتي

مثال.accdb

تم تعديل يوليو 31, 2018 بواسطه ابو زاهر

[AboSaad17]

جزاكم الله خير
وزادكم علما ونورا 

..................................

[ابو ياسين المشولي]

1 ساعه مضت, ابو زاهر said:

بارك الله فيكم استاتذتي الكرام بو خليل وشفان ريكاني والسائل الذي حط السوال الذي كان ببالي  

سوالي استاتذتي الكرام كيف يكون الكود عندما يكون لديك نموذج ريسي وفرعي واريد تنفيذ الكود من نموذج اخر عند الاغلاق

شاكرين اليكم احبتي

مثال.accdb

جرب هذا

Forms.frmSales.AllowAdditions = False
DoCmd.Close
 

Forms.frmSales.AllowAdditions = False
Forms!frmSales!SubSales!نص4.SetFocus
DoCmd.Close

 

تم تعديل يوليو 31, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

11 دقائق مضت, ابو ياسين المشولي said:

جرب هذا

Forms.frmSales.AllowAdditions = False
DoCmd.Close
 

Forms.frmSales.AllowAdditions = False
DoCmd.Close

 

بارك الله فيك استاذنا الغالي ابو ياسين 

نورت المنتدي الحمدلله على سلامه الاسفار 

هو المطلوب الف شكر اليك يالحبيب 

تحياتي اليك

[ابو ياسين المشولي]

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

بالتوفيق اخي

[النجاشي]

34 دقائق مضت, ابو ياسين المشولي said:

جرب هذا

Forms.frmSales.AllowAdditions = False
DoCmd.Close
 

Forms.frmSales.AllowAdditions = False
DoCmd.Close

 

معذرتا استاذي لم يشتغل معي

انظر الي طريقتي راح تفهمني يالغالي

 

مثال.accdb

[محمدنجار]

في ٣١‏/٧‏/٢٠١٨ at 18:23, Shivan Rekany said:

اليك هذا:

:: شكرا أخي شفان .

[kaser906]

استخدم هذا الكود

Private Sub Next_Click()
 On Error GoTo Err_Next_Click
  AllowAdditions = False
DoCmd.GoToRecord , , acNext
Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox "هذا هو السجل الأخير لايوجد سجل تالي للذهاب إليه!"
    Resume Exit_Next_Click

End Sub

::بالتوفق::

تم تعديل أغسطس 3, 2018 بواسطه kaser906