Vba excel Incluir el valor de un textbox en un select

Tengo un form donde incluyo varios textbox de los cuales recuperaré los valores para incluirlos en un Select. Estos textbox son Txtano -  Txtmesdesde -  Txtmeshasta

Si el select lo hago de esta forma me funciona:

cadena = "select * from tabla where ano = " & CInt(Txtano.Value)

Si lo hago de esta también lo hace correctamente:

cadena = "select * from tabla where mes between " & Txtmesdesde.Text & " And " & Txtmeshasta.Text

Lo que quiero es incluir el txtano en esta segunda cadena

¿Como sería el código?

1 Respuesta

Respuesta
1

cadena = "select * from tabla where ano=" & CInt(Txtano.Value) &" And mes between " & Txtmesdesde.Text & " And " & Txtmeshasta.Text

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

¿Cómo hacer una copia del libro activo en Excel VBA?

Quiero una macro para crear una copia del libro activo con otro nombre en la misma ruta y con diferente nombre, cuando haga la copia (sera un libro .xlsm" ) habilitado para macros. Una vez hecha la copia (no se abre) y mi libro original que cierre...
1 respuesta

Filtrar un Formulario con vba para un único valor

Necesito filtrar en vba un form para un solo numero o números. Busco extraer los valores que necesito unicamente cuando los solicite en Campos numéricos pero solo los que contengan unicamente el valor solicitado. Encontrar los valores que sen igual a...
2 respuestas

Poner una x cuando doy click en una label y si doy otro click quitar la x

Tengo varias labels en un formulario: estoy usando este código pero seria mucho código. Private Sub Label31_Click() If Label31 = "" Then Label31.Caption = "X" Else Label31.Caption = "" End If End Sub Como hacerle para mejorar el código
1 respuesta

ACCESS: Crear campo tipo combo con codigo vba en tabla

Tengo qu hacer una importacion y en access creo una tabla y un campo necsitaria que sea tipo combo, porque correspode a un valor con id y nombre.. ¿Se entiende? El campo lo creo asi: Set campo = tabla.CreateField("PROVEEDOR", dbText) Tabla. Fields....
2 respuestas

Bloquear celdas al escribir y poder actualizar solo por medio de Formulario VBA

Profesionales me dirijo hacia ustedes con el motivo que deseo bloquear varias hojas de un libro, que la información solo se pueda ingresar por medio del formulario y la actualización de los datos sea por el mismo formulario.
1 respuesta

Varias opciones en AutoFilter de VBA EXCEL

Estoy intentado seleccionar varias opciones en un mismo AutoFilter en VBA EXCEL pero con Array solo consigo 2, alguien sabe como hacer más opciones. El código que utilizo es : Range("A1").AutoFilter FIELD:=1, Criteria1:=Array("Pantalones" & "*",...
2 respuestas

Pegar datos de una celda de Excel a otra celda, creando un ciclo for.

Necesito un ciclo que copie los datos de la celda G41 y los pegue en la celda D11, luego los datos de la celda G72 a la celda D42 y así sucesivamente hasta la celda 2000, se van incrementando de a 31 celdas.
3 respuestas

Correcto formato para Buscar Fechas con VLookup en Excel VBA

Estimados Expertos Muy cordiales saludos. Me encuentro entrampado en algo muy simple, pero que no había tocado, búsqueda de fecha usando application. Worksheetfunction. Vlookup Me propuse un cuadro simple, para buscar fechas, para tratar de ser más...
3 respuestas