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


    [Resolvido]Problema no foco!

    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº1

    [Resolvido]Problema no foco! Empty [Resolvido]Problema no foco!

    Mensagem  Lupércio 26/5/2012, 15:30

    Companheiros bom dia!
    Tenho um form com varios campos só que estou usando um código para obrigar os usuário preencher 2 campos:
    Campo "QtdeCargas" e campo "TpMaterial". o problema é o seguinte, é o foco.

    Quero que qual dos campos que estiver nulo o foco volta para ele, para o campo nulo.

    Estou usando este código:



    Private Sub Comando35_KeyPress(KeyAscii As Integer)
    If Isnull(QtdeCargas) Or IsNull(TpMaterial) then
    Msgbox "Preenchimento obrigatório dos campos", vbInformation, "ATENÇÃO!"
    DoCmd.Cancelevent
    End if
    End sub

    Alguem pode me ajudar
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº2

    [Resolvido]Problema no foco! Empty Re: [Resolvido]Problema no foco!

    Mensagem  Convidad 26/5/2012, 15:55


    Olá

    Só estou achando estranho este KeyPress...

    Private Sub Comando35_KeyPress(KeyAscii As Integer)
    If IsNull(Me.QtdeCargas) Then
    Me.QtdeCargas.SetFocus
    Msgbox "Preencha a quantidade", vbInformation, "ATENÇÃO!"
    ElseIf IsNull(Me.TpMaterial) Then
    Me.TpMaterial.SetFocus
    Msgbox "Preencha o tipo de material", vbInformation, "ATENÇÃO!"
    End If
    End Sub


    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº3

    [Resolvido]Problema no foco! Empty Re: [Resolvido]Problema no foco!

    Mensagem  Lupércio 26/5/2012, 16:13

    Olá Norberto, meu amigo Laughing Laughing
    Eu sabia que iria dizer do meu keyPress...
    Porque estou usando este código no evento ao clicar de um botão, preciso que seja no clicar do botão.

    Funcionou aqui grande Norberto, obrigado mais uma vez!

    Um abraço!

    Irmão Lupércio agradece! cheers cheers
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº4

    [Resolvido]Problema no foco! Empty Re: [Resolvido]Problema no foco!

    Mensagem  Convidad 26/5/2012, 16:22


    Pode usar o evento Click() do botão.
    Ou, se quiser interceptar o comando por algum motivo, pode usar o DoubleClick() que suporta o parâmetro Cancel. Aí permite um Cancel = True.

    Grato pelo retorno.

    Abraço!


    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Problema no foco! Empty Re: [Resolvido]Problema no foco!

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 08:31