En Access como crear un mensaje de error

[Taribo007]

Puedes, como te decia, comprobar con docunt, algo asi:

Private Sub SearchAcct_Click()

On Error GoTo Err_SearchAcct_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"
stLinkCriteria = "[Purchase]=" & "'" & Me![Acc] & "'"

If DCount("*", "NombreTabla", stLinkCriteria) = 0 Then
MsgBox "No existe el registro"
Else
DoCmd.Close acForm, "By_PO", acSaveNo
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_SearchAcct_Click:

Exit Sub

Err_SearchAcct_Click:

MsgBox Err.Description
Resume Exit_SearchAcct_Click

End Sub

Un saludo