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]Erro em Caixa de lista

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 14/3/2023, 13:54

    Bom dia a todos.


    Estou tentando iniciar um projeto de controle de estudos técnicos preliminares referente a licitações.
    O que consiste:
    Determinada necessidade de material ou serviço por força de lei deve ser licitado.
    Antes a área que necessita deste material/serviço efetua um estudo.
    E ai o processo inicia-se nesta 01 etapa.
    Disponibilizei alguns campos dentro do que preciso.
    Ao efetuar o cadastro td bem.
    Ao criar a consulta tbm.
    Contudo, Não sei o porque, ao navegar pelo seletor de registro mostra os campos de forma certa.
    Ao utilizar a Caixa de listagem dá erro na linha comentada abaixo.


    Option Compare Database

    Private Sub Lista1_AfterUpdate()
    'Referente ao cadastro geral
    'Linha que dá erro
    '        Me.ID_Processo = Me.Lista1.Column(0)
           Me.Numero_Processo = Me.Lista1.Column(1)
           Me.Cadastro_Data_ETP = Me.Lista1.Column(2)
           Me.Assunto_ETP = Me.Lista1.Column(3)
           Me.ETP_Data_Determinacao = Me.Lista1.Column(4)
           Me.Prazo_ETP = Me.Lista1.Column(5)
    'Referente aos oficiais nomeados - 01
           Me.Posto_Profissional_Nomeado_01 = Me.Lista1.Column(6)
           Me.Quadro_Profissional_Nomeado_01 = Me.Lista1.Column(7)
    'Linha que dá erro
    '        Me.Ano_Profissional_Nomeado_01 = Me.Lista1.Column(Cool
           Me.Profissional_Nomeado_01 = Me.Lista1.Column(9)
           Me.RG_Profissional_Nomeado_01 = Me.Lista1.Column(10)
    'Referente aos oficiais nomeados - 02
           Me.Posto_Profissional_Nomeado_02 = Me.Lista1.Column(11)
           Me.Quadro_Profissional_Nomeado_02 = Me.Lista1.Column(12)
           Me.Ano_Profissional_Nomeado_02 = Me.Lista1.Column(13)
           Me.Profissional_Nomeado_02 = Me.Lista1.Column(14)
           Me.RG_Profissional_Nomeado_02 = Me.Lista1.Column(15)
    'Referente aos oficiais nomeados - 03
           Me.Posto_Profissional_Nomeado_03 = Me.Lista1.Column(16)
           Me.Quadro_Profissional_Nomeado_03 = Me.Lista1.Column(17)
           Me.Ano_Profissional_Nomeado_03 = Me.Lista1.Column(18)
           Me.Profissional_Nomeado_03 = Me.Lista1.Column(19)
           Me.RG_Profissional_Nomeado_03 = Me.Lista1.Column(20)
    End Sub

    Private Sub Form_Current()
    ' This statement synchronises the Go To record combo box with the form
       Me.Lista1.Value = Me.ID_Processo.Value
    End Sub

    Private Sub Lista1_LostFocus()
    '    DoCmd.RunCommand acCmdSaveRecord
       DoCmd.Requery "Lista1"
    End Sub


    Onde estou errando?
    Já fiz e refiz e tô deixando algo passar.


    Alguma dica?

    Obrigado.
    Anexos
    [Resolvido]Erro em Caixa de lista AttachmentControle ETP - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 7 vez(es)
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Cristian Souza 14/3/2023, 16:34

    Olá Mylton.

    Pelo que eu entendi, você quer selecionar um registro com base nos valores da lista, certo?

    Caso seja, este não é o melhor método a ser utilizado.

    Apague a instrução "Após alterar" da lista, e crie uma instrução no "Ao clicar" com o seguinte código:

    Código:

        strSql = "SELECT * FROM [Cns_Cadastro_ETP] WHERE [ID_Processo] = " & Me.Lista1.Column(0)
        Me.Form.RecordSource = strSql

    Segue arquivo em anexo para verificação.
    Anexos
    [Resolvido]Erro em Caixa de lista AttachmentControleETP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 12 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 14/3/2023, 18:51

    Oi
    Cris
    Tô no trabalho. Qdo chegar vejo e informo.
    Obrigado pela ajuda.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 15/3/2023, 22:49

    Cristian não esqueci. Meu plantão no trabalho terminou a pouco. Vou ver respondo.
    Obrigado
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 16/3/2023, 08:41

    Bom dia.

    Não rodou.
    Vou tentar mais .
    Obrigado.
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Cristian Souza 16/3/2023, 11:31

    Mylton, você baixou o arquivo que enviei em anexo para verificar se é isso mesmo que você deseja?
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 16/3/2023, 11:38

    Cristian
    Baixei
    Vinque vc incluiu inclusive um registro denominado como teste.
    Ao clicar na lista, não funcionou e modificou um registro da tabela.
    Mantendo funcionamento nos seletores de registro.
    Fato este que tbm e dúvida P mim nas dúvidas da tabela.
    Não sei se bug, erro meu, vírus ou ….. sei lá o que.
    Compactei. Reparei. Uso 365 V 32 bits, com Windows 11 e o Norton.
    Atualizei antivírus e deixei a máquina atualizando os programas.
    Qdo chegar do consultório logo mais, vou ver.

    E retorno
    Obrigado pela ajuda.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Mylton 18/3/2023, 13:13

    Resolvido com a seguinte instrucao

    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NomeSeuChavePrimaria] = " & Str(Nz(Me![NomeSuaListBox], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark


    Obrigado a todos

    Conteúdo patrocinado


    [Resolvido]Erro em Caixa de lista Empty Re: [Resolvido]Erro em Caixa de lista

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 02:40