Función if ten con inputbox si no se le asigna ningún valor a la variable, como es la sintaxis para que funcione la Macro?
Dim concepto As integre
Concepto=inputbox
Si al concepto no se le da ningún valor
Como es la sintaxis para que se ejecute una determina acción y no de error
1 Respuesta
Respuesta de Julián González Cabarcos
1
José, el Excel no es lo mío, pero por si te puede dar una idea. Si tengo un formulario donde pulso un botón
Al pulsarlo, aparece lo del inputbox
Si escribo algo, `por ejemplo el un 3 ejecuta una instrucción
Pero si lo dejo en blanco y pulso Aceptar
Yo le he puesto que muestre un mensaje, pero también se le podría decir que no ejecutara nada con Exit Sub, o lo que quieres que haga en caso de que lo deje en blanco. El código del evento Al hacer clic del botón, aunque podría ser en cualquier otro evento es
Private Sub Comando425_Click()
Dim concepto As Integer
concepto = Val(InputBox("Escribe algo, porfa", "Muchas gracias"))
If concepto > 0 Then
DoCmd.OpenForm "clientes", , , "idcliente=" & concepto & "", , acDialog
Else
MsgBox "No has escrito nada", vbOKOnly + vbExclamation, "Otra vez será"
End If
End Sub
