Få fat i feltnavn, der er årsag til fejlmelding

Jeg har i min database et par felter der er sat til "required". Når en ny post forlades og feltet er tomt generes en fejlmeddelelse hvor bl.a. <tabel>.<feltnavn> er med . Denne fejlmeddelse erstatter jeg med min egen, men jeg kan ikke finde den tekststreng der hører til fejlmeddelelsen.
Når jeg benytter nedenstående kode er feltnavnet tomt, men i den efterfølgende systemmedelelse står feltnavnet.
Hvordan får jeg fat i det?

Min kode:

Function ErrorString(ByVal lngError As Long) As String
   
    Const conAppError = "Application-defined or " & _
            "object-defined error"

    On Error Resume Next
    Err.Raise lngError

    If Err.Description = conAppError Then
        ErrorString = AccessError(lngError)
    ElseIf Err.Description = vbNullString Then
        MsgBox "No error string associated with this number."
    Else
        ErrorString = Err.Description
    End If

End Function


Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conDuplicateKey = 3022 '3022 er duplicate indeks
    Const conEmptyField = 3314 '3014 er et tomt felt
    Dim strMsg As String
   
    If DataErr = conEmptyField Then
        Response = acDataErrDisplay
        strMsg = ErrorString(DataErr)
        MsgBox strMsg
    End If
   
   
    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "Kunden eksisterer allerede"
        MsgBox strMsg
    End If
End Sub