زر امر للكتابة في اكثر من حقل

و عليكم السلام اخي

شاهد المرفق فيه جواب سؤالك ان شاء الله

db2.zip

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

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

بمعنى اخر

عند الوقوف على تكست معين و ضغط زر الامر تتم الكتابة في الحقل الذي كان عليه المؤشر

ورحم الله والديكم دنيا و اخرة

عند الضغط على الزر ستقوم بنقل التحكم من العنصر القديم الى العنصر الجديد

لذلك هناك امر

Screen.PreviousControl

و التي من خلاله يمكن معرفة خصائص العنصر السابق

مثال:

Screen.PreviousControl.Name

لجلب اسم العنصر السابق

و هذا هو الكود المستخدم في مثالك:

Private Sub Command7_Click()
Dim ct As Access.Control

If Screen.PreviousControl Is Nothing Then
    MsgBox "There is no focused control"
Else
    Set ct = Screen.PreviousControl
    ct.Value = ct.Name & " ZZ"
End If
End Sub

بالتوفيق ان شاء الله

db3.zip