Dim myCurrentFormName As String, _
myCurrentForm As Access.Form, myCurrentIdField As Access.TextBox
...
myCurrentFormName = Access.CurrentObjectName
Set myCurrentForm = Access.Application.Forms(myCurrentFormName)
Set myCurrentIdField = myCurrentForm.Controls(accGisIdField)