Error en textbox al dejarlo en blanco
Buenas tardes expertos:
Estoy trabajando con vba.
Tengo un textbox dentro de un select y el problema me surge cuando lo dejo en blanco
Me da el siguiente error:
Se ha producido el error 13 en tiempo de ejecución:
No coinciden los tipos.
el código es el siguiente:
Private Sub CommandButton1_Click() Dim cadena As String cadena = "Select * from tgtrackercontabacum where ano=" & CInt(Txtano.Value) Call Ejecutar(cadena, "Hoja2") MsgBox "PROCESO FINALIZADO", vbOKOnly, "Información" End Sub
¿Podrían indicarme como solucionarlo?
Gracias
1 Respuesta
Respuesta
1
Podrías modificar tu código, como sigue:
Private Sub CommandButton1_Click() Dim cadena As String If Not IsNumeric(txtano.Value) Then msgBox "El año debe ser un valor numérico", vbOkOnly, "Error" Exit Sub End If cadena = "Select * from tgtrackercontabacum where ano=" & CInt(Txtano.Value) Call Ejecutar(cadena, "Hoja2") MsgBox "PROCESO FINALIZADO", vbOKOnly, "Información" End Sub