Hola, necesitaría que alguien me dijera que estoy cometiendo un error en este código ... todo funciona, pero el campo combinado que busca el campo sí / no ....... no funciona. ...
Sub privado buscar_Click ()
Dim misql como cadena
Dim inte como byte
inte = 0
Si no es IsNull (Me.Cuadro_combinado4.Value) Entonces
Si inte = 0 Entonces
misql = "clientes = '" & Me.Cuadro_combinado4.Value & "'"
Demás
misql = misql & "y clientes = '" & Me.Cuadro_combinado4.Value & "'"
Terminara si
inte = 1
Terminara si
Si No IsNull (Me.Cuadro_combinado11.Value) Entonces
Si inte = 0 Entonces
misql = "mes = '" & Me.Cuadro_combinado11.Value & "'"
Demás
misql = misql & "y Mes = '" & Me.Cuadro_combinado11.Value & "'"
Terminara si
inte = 1
Terminara si
Si no es IsNull (Me.Cuadro_combinado14.Value) Entonces
Si inte = 0 Entonces
misql = "año = '" & Me.Cuadro_combinado14.Value & "'"
Demás
misql = misql & "y año = '" & Me.Cuadro_combinado14.Value & "'"
Terminara si
inte = 1
Terminara si
Si no es IsNull (Me.Cuadro_combinado50.Value) Entonces
Si inte = 0 Entonces
misql = "Rubricado =" rubricado ""
Demás
misql = Me.subrubricas.Form.Filter = "Rubricado = True"
Terminara si
inte = 1
Terminara si
Si inte = 0 Entonces
MsgBox ("Ingresar datos para buscar")
Demás
Me.subrubricas.Visible = True
Me.subrubricas.Form.Filter = misql
Me.subrubricas.Form.FilterOn = True
Terminara si
End Sub
Cuadro_combinado50 es el que me da error
Sub privado buscar_Click ()
Dim misql como cadena
Dim inte como byte
inte = 0
Si no es IsNull (Me.Cuadro_combinado4.Value) Entonces
Si inte = 0 Entonces
misql = "clientes = '" & Me.Cuadro_combinado4.Value & "'"
Demás
misql = misql & "y clientes = '" & Me.Cuadro_combinado4.Value & "'"
Terminara si
inte = 1
Terminara si
Si No IsNull (Me.Cuadro_combinado11.Value) Entonces
Si inte = 0 Entonces
misql = "mes = '" & Me.Cuadro_combinado11.Value & "'"
Demás
misql = misql & "y Mes = '" & Me.Cuadro_combinado11.Value & "'"
Terminara si
inte = 1
Terminara si
Si no es IsNull (Me.Cuadro_combinado14.Value) Entonces
Si inte = 0 Entonces
misql = "año = '" & Me.Cuadro_combinado14.Value & "'"
Demás
misql = misql & "y año = '" & Me.Cuadro_combinado14.Value & "'"
Terminara si
inte = 1
Terminara si
Si no es IsNull (Me.Cuadro_combinado50.Value) Entonces
Si inte = 0 Entonces
misql = "Rubricado =" rubricado ""
Demás
misql = Me.subrubricas.Form.Filter = "Rubricado = True"
Terminara si
inte = 1
Terminara si
Si inte = 0 Entonces
MsgBox ("Ingresar datos para buscar")
Demás
Me.subrubricas.Visible = True
Me.subrubricas.Form.Filter = misql
Me.subrubricas.Form.FilterOn = True
Terminara si
End Sub
Cuadro_combinado50 es el que me da error