Public Function fAkpYearCheck (cAkpId As Long, fName As String)

Set FRM = Forms(fName)

If Not IsNull(cAkpId) Then
    If Year(DLookup("Akp_data", "Akp", "[akp_id] = " & cAkpId)) <> FRM.God Then 
        cAkpId.SetFocus 'тут функция должна установить фокус на поле-источник аргумента cAkpId. 
    End If
End If
End Function

If Not IsNull(cAkpId) Then
    If Year(DLookup("Akp_data", "Akp", "[akp_id] = " & cAkpId)) <> FRM.God Then 
        Then Screen.ActiveControl.SetFocus 
    End If
End If

Public Function fAkpYearCheck(AkpIdName As String, fName As String)

Set FRM = Forms(fName)
Dim cAkpId
cAkpId = FRM.Controls(AkpIdName).Value
If Not IsNull(cAkpId) Then
    If Year(DLookup("Akp_data", "Akp", "[akp_id] = " & cAkpId)) <> FRM.God Then FRM.Controls(AkpIdName).SetFocus
End If
End Function