Problemita con inputbox

[TMERARIO]

Hola tengo un lijero problema.
Quiero hacer que al introducir un string en un inputbox segun si se preciones el boton Cancelar o Aceptar haga determinada accion por ejemplo: (Lo hago a medias lenguaje hombre y visual xD )

pidecedula=inputbox("ingrese su nº de ducumento")

if APRETO ACEPTAR then
'hago la consulta sql
end if

if APRETO CANSELAR then
'cierro el inputbox
end if


Si saben como hacer eso se los agradesco sino tambien xD.

[pkj]

Si aprietas cancelar se cierra el inputbox y la variable pidecelula queda en blanco.
Con mirar eso tienes suficiente.
Puedes incluso asegurarte de que la longitud del número es suficiente.
PideCelula debe ser un string. Si es una variable numérica puedes hacer esto:

Código :

Dim Respuesta As String
Respuesta = Trim$(inputbox("ingrese su nº de ducumento"))
If Len(Respuesta) > 0 Then
  PideCelula = Val(Respuesta)
  'haces la consulta
End If
 

[Judgement]

Saludos, aqui te muestro un ejemplo de vbnet.mvps.org:

Código vb:

Private Sub Command1_Click()
 
   Dim sInput As String
 
   sInput = InputBox("Go ahead ... abuse me", _
                     "Dreaded InputBox Demo", _
                     "Some default text goes here")
   
   If StrPtr(sInput) = 0 Then
   
      MsgBox "Cancel was pressed"
 
   Else
   
      If Len(sInput) = 0 Then
         MsgBox "OK pressed but nothing entered."
      Else
         MsgBox "OK pressed: value= " & sInput
      End If  'Len(sInput)
   
   End If  'StrPtr
 
End Sub
 

Como puedes ver aqui te muestra claramente como diferenciar si el usuario le dio cancel o simplemente no ingreso nada en el InputBox.

Espero que te sea de utilidad

[pkj]

Me lo apunto ;-D

[TMERARIO]

Gracias a todos.