الإشارة في الكود إلى قيمة حقل في النموذج الفرعي ونقل التركيز إليه

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

DoCmd.GoToControl "f1"

DoCmd.GoToControl "a"

حيث f1 هو اسم النموذج الفرعي

a اسم الحقل في النموذج الفرعي

فهل هناك طريقة أصح ؟

والإشكال الأول باقي

طريقة أخرى :

نموذج_فرعي.SetFocus
نموذج_فرعي![اسم مربع النص].SetFocus

حل المشكلة امسح كل الموجود في حدث نقر زر الأمر واكتب :

On Error GoTo Err_أمر6_Click
If f1.Form.RecordsetClone.RecordCount > 0 Then
If [f1]![a] = "اضطرارية" And [f1]! > 5 Then
MsgBox "الإجازة الاضطرارية لا تكون أكثر من 5 أيام"
'المطلوب أن يذهب التركيز إلى النموذج الفرعي حقل "a"
'docmd.GoToControl ""
Exit Sub
End If
End If
DoCmd.GoToRecord , , acNext

Exit_أمر6_Click:
    Exit Sub

Err_أمر6_Click:
    MsgBox "خطأ  " & Err.Number & vbCrLf _
    & Err.Description
    Resume Exit_أمر6_Click

ولك تحياتي

هذا هو المطلوب تماما .

فجزاك الله عنا كل خير .