Muchas gracias NEBIRE
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
SELECT Nombre, Apellidos FROM Usuarios WHERE Apellidos= ""
Private Sub btn_Usuario_Buscar_Click()
Dim consulta As String
If IsNull(Me.cmb_Apell_Nomb_busc) Then
MsgBox "Seleccione un usuario de la lista", vbExclamation, "Aviso"
Else
consulta = "SELECT Nombre, Apellidos FROM Usuarios WHERE Apellidos= '" & Me.cmb_Apell_Nomb_busc2 & "*'"
' MsgBox (consulta)
Me.Usu_Listar.RowSource = consulta
End If
End Sub