Crear condición para ejecutar una instrucción según el valor de inputbox
Estoy intentando filtrar la ejecución de una instrucción según se coloque un valor numérico en un inputbox, si el valor no coincide con una serie de números no se ejecutaría el código.
Pero me da error, este es el código que estoy usando:
Private Sub Comando87_Click()
Dim DNI as Integer
DNI = InputBox("Introduzca DNI Emisor ", "DNI Emisor")
If DNI = "49625344" Or "39746647" Then
DoCmd.RunCommand acCmdRefresh
DoCmd.RunSavedImportExport "Exportación: Reclamaciones"
Else
MsgBox "DNI sin autorización de emisión"
Exit Sub
End If
Dim Abrir_Excel As Object
If Me.Clave = "" Then
Exit Sub
End If
1 respuesta
De entrada defines la variable DNI como integer y los datos integer solo llegan hasta el 32768. Declarala como long.
Por otro lado, la instrucción IF es
if dni="49...." or DNI="397..."
y por ultimo te aconsejaría
form.refresh
