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]Se não estiver na lista

    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 06/02/2020

    [Resolvido]Se não estiver na lista Empty [Resolvido]Se não estiver na lista

    Mensagem  Luiz antônio 8/11/2022, 02:36

    Boa noite, pessoal.

    No formulário frm_RegistroFuncionário quando digito o nome de um funcionário que não está na combox o código abre a MsgBox "Deseja incluir?". Respondendo sim, ele abre o frm_CadastroFuncionário para que eu procedimento a adição do registro novo. Entretanto, quando fecho esse frm_CadastroFuncionário após o registro novo efetuado, a mesma MsgBox "Deseja incluir?" reaparece, parece que num loop indefinido.
    Estou anexando o BD.
    Será que podem me ajudar?
    Anexos
    [Resolvido]Se não estiver na lista AttachmentFLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (207 Kb) Baixado 13 vez(es)
    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    Registrado : 07/01/2016

    [Resolvido]Se não estiver na lista Empty Re: [Resolvido]Se não estiver na lista

    Mensagem  fcamara 8/11/2022, 11:00

    bom dia

    Código:
    Private Sub IDStakeholder_NotInList(NewData As String, Response As Integer)
        If MsgBox("O Funcionário " & UCase(NewData) & " não está cadastrado. Deseja cadastrar?", _
            vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
            Me!ID_Stakeholder.SetFocus ' Põe o foco no próprio campo
            Exit Sub
        End If
            DoCmd.OpenForm "frm_CadastroFuncionário", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre form de cadastro de funcionário
            [color=#ff3333]'Me!IDStakeholder.SetFocus ' Volta ao campo para confirmação[/color]
            Response = acDataErrAdded ' Atualiza a caixa de combinação
    End Sub

    tenta tirando essa linha
    avatar
    Luiz antônio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 06/02/2020

    [Resolvido]Se não estiver na lista Empty Se não estiver na lista

    Mensagem  Luiz antônio 8/11/2022, 14:42

    fcamara, funcionou sim. Ficou bacana.

    Não entendi porque em alguns casos vinha funcionando com essa linha e, nesse especificamente, não deu.

    Valeu muito. Obrigado e um grande abraço.
    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 144
    Registrado : 07/01/2016

    [Resolvido]Se não estiver na lista Empty Re: [Resolvido]Se não estiver na lista

    Mensagem  fcamara 8/11/2022, 14:48

    Sucesso ai, não esquece de colocar o topico como resolvido

    Conteúdo patrocinado


    [Resolvido]Se não estiver na lista Empty Re: [Resolvido]Se não estiver na lista

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 17:33