Metin kutusunun adı "mtn_metin1" ise ve denetim kaynağı "metin1" olacaksa

For Each ctl In Me

    If InStr(1, ctl.Tag, "yetki") <> 0 Then

        ctl.ControlSource = Mid(ctl.Name, InStr(1, ctl.Name, "_") + 1, Len(ctl.Name) - InStr(1, ctl.Name, "_") + 1)

    End If

Next ctl

koddaki "yetki" metin kutusunun im özelliğine eklenecek veri