RE:como generar cuadros de mensaje (msgbox)
Este ejemplo está sacado de la Ayuda, seguro que te sirve
Victoria
El ejemplo siguiente utiliza la propiedad NoMatch para determinar si un proceso del método FindFirst ha tenido éxito:
Function EncontrarPaís() As Integer
Dim dbs As Database, rst As Recordset
Dim cadPaís As String
' Devolver referencia a la base de datos actual.
Set dbs = CurrentDb
' Crear el objeto Recordset de tipo Dynaset.
Set rst = dbs.OpenRecordset("Pedidos", dbOpenDynaset)
cadPaís = InputBox("Por favor, escriba el nombre del país.")
rst.FindFirst "PaísEnvío = '" & cadPaís & "'"
If rst.NoMatch Then
EncontrarPaís = False
Else
EncontrarPaís = True
Debug.Print rst!IdPedido
End If
rst.Close
Set dbs = Nothing
End Function