حدث عند تنشيط اخر سجل في النموذج

[تامر خليفه]

مرحبا للجميع

ارجو سرعه الافاده يا جماعه

1- ما هو الكود الذي اعرف به ان التنشيط وصل الي اخر سجل في النموذج

 

2- وكيف انقل التنشيط من نموذج فرعي الي نموذج رئيسي

 

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

[AlwaZeeR]

1 ساعه مضت, تامر خليفه said:

ما هو الكود الذي اعرف به ان التنشيط وصل الي اخر سجل في النموذج

DoCmd.GoToRecord acForm, "FrmName", acLast

 

1 ساعه مضت, تامر خليفه said:

وكيف انقل التنشيط من نموذج فرعي الي نموذج رئيسي

Forms!frmName.textName.SetFocus

 

Me.Parent.Controls("CntrlName").SetFocus

واذا لم تنجح ارفق مثالاً ووضح فيه المطلوب وسوف تصل لمبتغاك

::

تحياتي

[تامر خليفه]

في ٤‏/٨‏/٢٠١٦ at 17:03, alwazeer said:

DoCmd.GoToRecord acForm, "FrmName", acLast

 

Forms!frmName.textName.SetFocus

 

Me.Parent.Controls("CntrlName").SetFocus

واذا لم تنجح ارفق مثالاً ووضح فيه المطلوب وسوف تصل لمبتغاك

::

تحياتي

بالنسبه للكود الاول هو يعمل علي نقل التنشيط الي اخر سجل وانا اريد بقاعده if لو كان التنشيط وصل للسجل الاخير انتقل الي النموذج الرئيسي

 

بالنسبه لباقي الاكواد تمام والف شكر اخي الفاضل

[AlwaZeeR]

 

السلام عليكم ورحمة الله وبركاته

ضع الكود في حدث الحالي (Form Current) للنموذج الرئيسي لديك

ثم غير (SubName) الى اسم النموذج الفرعي لديك

وايضا قم بتغيير (FieldName) الى اسم مربع النص الذي تريد نقل المؤشر اليه، طبعا الموجود في النموذج الرئيسي لديك

::

تحياتي

 

Private Sub Form_Current()
Dim rs As Dao.Recordset
Set rs = Me.SubName.Form.RecordsetClone
If rs.RecordCount = 0 Then
'Do Nothing
Else
rs.MoveLast
Me.FieldName.SetFocus
End If
Set rs = Nothing
End Sub