1-) Aşağıdaki kodu Vba sayfasında en alta ekle

Public Function KontrolAdiBul() As String



Dim SecilenMetinKutusu As Control

Set SecilenMetinKutusu = Screen.ActiveControl



KontrolAdiBul = SecilenMetinKutusu.Name

MetinKutusuAdi = KontrolAdiBul



End Function

2-) Vba sayfasında en üstte bulunan,

option compare database

option explicit

kodunun hemen altına

Dim MetinKutusuAdi As String

kodu ekle

3-)butonun tıklandığında olayına aşağıdaki kodu ekle

Controls(MetinKutusuAdi) = "Ayhan"

4-) Vba sayfasını kaydet ve kapat,

5-) Metin Kutularının tıklandığında olayına

=KontrolAdiBul()

kodu ekle,