MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Como reconhecer o Cancel de uma inputbox

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    Como reconhecer o Cancel de uma inputbox Empty Como reconhecer o Cancel de uma inputbox

    Mensagem  JPaulo em 30/9/2013, 12:39

    Como reconhecer o Cancel de uma inputbox ?
    Se o usuário pressionar Enter com a inputbox vazia ela devolve "" e o mesmo acontece quando o usuário pressiona cancel, logicamente sem a existência de valores Padrão.

    Na realidade os valores não são iguals.
    Quando o usuário pressiona Enter é criada na memória, uma string vazia e a variável que recebe o resultado aponta para ela.

    Se o usuário pressionar cancel isso não acontece.
    Portanto quando usamos a função strPtr na variável que guarda o resultado da InputBox ele devolve 0 caso o usuário tenha pressionado o Cancel.

    Assim sendo, com o código a seguir pode-se identificar o Cancel efetuado pelo usuário:

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
       Dim strX
       strX = InputBox("Bom dia")
           If StrPtr(strX) > 0 Then MsgBox "Você pressionou Ok.": Exit Sub
           If StrPtr(strX) = 0 Then MsgBox "Você pressionou Cancel.": Exit Sub
    End Sub

    Com poucas linhas de código, usando a função interna strPtr, podemos (por exemplo) utilizar numa busca em qualquer parte no seu formulário;

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
      Dim strX
      strX = InputBox("Digite o que pretende filtrar", "Filtrar")
      'Se pressionar o Cancel, a instrução morre aqui
          If StrPtr(strX) = 0 Then Exit Sub
      'Se pressionar o Ok sem digitar valores morre aqui
         If strX = "" Then Exit Sub
      'se digitar algo e pressionar Ok, irá fazer uma busca em qualquer parte do seu formulário
      DoCmd.FindRecord strX, acAnywhere, False, , True, acAll, True
    End Sub

    Como reconhecer o Cancel de uma inputbox Vba_ac11


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Como reconhecer o Cancel de uma inputbox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Como reconhecer o Cancel de uma inputbox Folder_announce_new 102 Códigos VBA Gratuitos...
    Como reconhecer o Cancel de uma inputbox Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 29/11/2020, 17:07