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


3 participantes

    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle Empty Erro em tempo de Execução 2110 x Mover foco para controle

    Mensagem  vinicius.anna 2/4/2012, 13:53

    Bom dia

    Em emu sistema tenho um campo chamado GeraValorCons - tipo SIM/NÃO....., no evento Após atualizar, uso o seguinte código:

    Private Sub GeraValCons_AfterUpdate()
    On Error GoTo trataerro
    Me.subfrm_Convênios.Requery
    If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "NÃO" Then
    DoCmd.RunCommand acCmdSaveRecord
    Me.consValor.Value = Null
    Me.Lista_Recibo.Value = Null
    Me.consValor.Enabled = False
    Me.Lista_Recibo.Enabled = False
    Gravar.SetFocus
    Me.GeraValCons.Value = "NÃO"
    End If
    If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "SIM" Then
    If MsgBox("O Convênio do Paciente NÃO prevê Valor para a Consulta. Deseja Realmente Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
    DoCmd.RunCommand acCmdSaveRecord
    Me.consValor.Enabled = True
    Me.Lista_Recibo.Enabled = True
    Me.consValor.SetFocus
    Else
    Me.consValor.Value = Null
    Me.Lista_Recibo.Value = Null
    Me.consValor.Enabled = False
    Me.Lista_Recibo.Enabled = False
    Gravar.SetFocus
    Me.GeraValCons.Value = "NÃO"
    End If
    End If
    If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "NÃO" Then
    If MsgBox("O Convênio do Paciente prevê Valor para a Consulta. Deseja Realmente Agendar a Consulta SEM Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
    Me.consValor.Value = Null
    Me.Lista_Recibo.Value = Null
    Me.consValor.Enabled = False
    Me.Lista_Recibo.Enabled = False
    Gravar.SetFocus
    Me.GeraValCons.Value = "NÃO"
    Else
    Me.consValor.Enabled = True
    Me.Lista_Recibo.Enabled = True
    Me.consValor.SetFocus
    Me.GeraValCons.Value = "SIM"
    End If
    End If
    If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "SIM" Then
    Me.consValor.Enabled = True
    Me.Lista_Recibo.Enabled = True
    Me.consValor.SetFocus
    End If
    Exit_TrataErro:
    Exit Sub
    trataerro:
    MsgBox err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
    Resume
    End Sub

    Quando altero o valor deste campo, o sistema me apresenta a mensagem conforme o resultado do IF, porém, dá o erro 2110 ao mover o foco para o campo.....

    Alguém tem alguma dica de como resolver/tratar isto da melhor forma?

    Saudações
    O autor desta mensagem foi banido do fórum - Mostrar mensagem
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle Empty Re: [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle

    Mensagem  vinicius.anna 21/5/2012, 15:18

    Obrigado pela Atenção, problema resolvido.
    avatar
    lcsantos2019
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 24/04/2019

    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle Empty Qual foi a solução?

    Mensagem  lcsantos2019 21/7/2020, 14:49

    Qual foi a solução?

    Obrigado pela contribuição...
    avatar
    lcsantos2019
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 24/04/2019

    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle Empty Erro 2110 - Não pode mover o foco para o controle

    Mensagem  lcsantos2019 21/7/2020, 17:35

    Inserir:
    Exit Sub

    No meu código tinha uma MsgBox, alguns comando e a tentativa de fazer foco em uma Edit. Inseri o Exit Sub antes de chamar o SetFocus.
    Deu...

    Conteúdo patrocinado


    [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle Empty Re: [Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 23:33