VBA access, criterios de consulta

Msgbox para access 2010

Dim response As MsgBoxResult
msg = "Do you want to continue?"   ' Define message.
style = MsgBoxStyle.DefaultButton2 Or _
   MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
title = "MsgBox Demonstration"   ' Define title.
' Display message.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then   ' User chose Yes.
   ' Perform some action.
Else
   ' Perform some other action.
End If

conocer el boton pulsado en vb , msgebox()

Private Sub Comando26_Click()
resultado = MsgBox("Es otro cliente", vbYesNo + vbExclamation, "Es otro")


If resultado = 6 Then

Else
    codigoclit = Texto39
    DoCmd.RefreshRecord
End If

informacion

resultado = MsgBox("Hola Mundo", vbAbortRetryIgnore + vbQuestion, "Mensaje especial")

Antes de continuar debo mencionar algo importante sobre esta instrucción ya que, a diferencia de las anteriores, en esta ocasión los argumentos de la función MsgBox están encerrados en paréntesis. Esto se debe a una regla de programación en VBA la cual indica que cuando se llama a una función que devolverá un valor el cual será asignado a una variable, su lista de argumentos deberá estar rodeada por paréntesis. Así que no podemos olvidar colocar los paréntesis si queremos conocer el botón pulsado por el usuario.

Ahora bien, la variable resultado guardará el valor devuelto por la función MsgBox el cual puede ser cualquiera de las siguientes opciones dependiendo los botones que hayamos decidido mostrar:

https://support.office.com/es-es/article/Ejemplos-de-criterios-de-consulta-3197228c-8684-4552-ac03-aba746fb29d8

////////////////////////////////////////////////////////

Buscar un campo de un registro con DLookup

















Con la función DLookup podemos buscar un campo de un registro determinado en una tabla específica en Microsoft Access.

Con la función DLookup podemos buscar un campo de un registro determinado en una tabla específica en Microsoft Access, con ésta función nos ahorramos usar engorrosos recordset y de una forma sencilla y eficaz podemos buscar registros.

Su uso en VBA es el siguiente:
DLookup("Nombre_Campo", "Nombre_Tabla", "Criterio_de_búsqueda")

Ejemplos
Buscar un campo numérico de un registro usando como criterio el dato de un cuadro de texto de un formulario, en éste caso buscamos el codigo de un cliente que coincida con el código de un cuadro de texto puesto en un formulario:

DLookup("CodigoCliente", "TablaClientes", "CodigoCliente = " & Me.CodigoCliente)

Buscar un campo de texto de un registro usando como criterio el dato de un cuadro de texto de un formulario, en éste caso buscamos la dirección de un cliente a partir del nombre del cliente que tenemos en un formulario:

DLookup("DireccionCliente", "NumeradoresSeries", "TxtSerie = '" & Me.NombreCliente & "'")

Observar que las comillas varían dependiendo de si buscamos un campo numérico o de texto.
Si el resultado son mas de un registro, se mostrará el primero que coincida con el criterio, de igual manera si no usamos ningún criterio, nos mostrará el primer campo de la tabla seleccionada.

Dejamos los comentarios abiertos por si hay alguna duda.