MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Retornar para campo de formulário

    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    [Resolvido]Retornar para campo de formulário Empty [Resolvido]Retornar para campo de formulário

    Mensagem  Ccanastra 1/11/2022, 05:49

    Amigos,

    como faço para que o foco retorne para o campo, no caso de uma informação ter sido inserida incorretamente (fora da regra de validação)?

    Sei que eu poderia usar a Regra de Validação, mas daí o aviso que aparece é o padrão do sistema, o que eu não quero que aconteça.

    Creio que no arquivo em anexo eu consegui exemplificar bem o que eu desejo.

    Ao inserir os dados no formulário, se o ITEM_01 for um valor entre 10 e 20, OK!!
    Se o valor for diferente ( < 10 ou > 20 ), além de avisar, eu gostaria que o foco retornasse para o ITEM_01.

    Grato!

    Anexos
    [Resolvido]Retornar para campo de formulário AttachmentDUVIDA_IF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (149 Kb) Baixado 4 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 11/11/2009

    [Resolvido]Retornar para campo de formulário Empty Re: [Resolvido]Retornar para campo de formulário

    Mensagem  scandinavo 1/11/2022, 08:35

    Coloque o codigo no evento

    Antes de atualizar



    If Me.NUM_1 > 9 And Me.NUM_1 < 21 Then
    Else
    MsgBox "O ITEM_01 não foi informado corretamente.", vbExclamation, "Aviso"

    DoCmd.CancelEvent

    End If
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    [Resolvido]Retornar para campo de formulário Empty Re: [Resolvido]Retornar para campo de formulário

    Mensagem  Ccanastra 1/11/2022, 14:26

    Funcionou!

    Muito obrigado, Scandinavo!!
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    [Resolvido]Retornar para campo de formulário Empty EXEMPLO

    Mensagem  Ccanastra 2/11/2022, 16:25

    Scandinavo,

    se puder, dê uma olhada nesse DB.

    É uma atualização do anterior.

    Grato!!!
    Anexos
    [Resolvido]Retornar para campo de formulário AttachmentRESOLVIDO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (187 Kb) Baixado 9 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 11/11/2009

    [Resolvido]Retornar para campo de formulário Empty Re: [Resolvido]Retornar para campo de formulário

    Mensagem  scandinavo 3/11/2022, 23:39

    no formulario 1


    mude o codigo de "antes de atualizar" para "Apos atualizar"


    Voce precisa ir no botao que abre o menu no evento "Parada de tabulação"mudar de "sim" para "Não"

    Ai nao precisa ficar fechando e abrindo formulario.

    testa ai.




    If Me.NUM_1 < 2 And Me.NUM_1 > 3 Then

    GoTo RETORNA

    Else

    If Me.NUM_1 = "2" Then

    DoCmd.OpenForm "frm_02", , , , acFormAdd
    DoCmd.Close acForm, "frm_01", acSaveYes

    Else

    If Me.NUM_1 = "3" Then

    DoCmd.OpenForm "frm_03", , , , acFormAdd
    DoCmd.Close acForm, "frm_01", acSaveYes

    Else

    GoTo RETORNA

    End If

    End If

    GoTo EOF


    End If

    RETORNA:

    MsgBox "Opcao não encontrada!", vbExclamation, "Aviso"
    Me.NUM_1 = Null
    'DoCmd.Close acForm, "frm_01", acSaveYes
    'DoCmd.OpenForm "frm_01", , , , acFormAdd

    EOF:
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 08/10/2022

    [Resolvido]Retornar para campo de formulário Empty Re: [Resolvido]Retornar para campo de formulário

    Mensagem  Ccanastra 4/11/2022, 18:54

    Grato, Scandinavo!!!

      Data/hora atual: 27/1/2023, 05:45