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]Inserir dados em uma tabela e popular um listbox

    avatar
    mncosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 12/07/2012

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Inserir dados em uma tabela e popular um listbox

    Mensagem  mncosta 16/7/2012, 20:14

    Boa tarde, sou nova aqui no forum e apesar de conhecer o básico de Access bem, não conheço VBA.
    No formulário de PROCESSOS, tenho um subformulário e preciso que ao selecionar um projeto (q é a entidade DEMANDA) em uma caixa de combinação, adicionar os dados a tabela desse subformulário e atualizar a caixa de listagem com os projetos relacionados.

    Como posso fazer isso de maneira mais eficiente com VBA? Usando as macros do Access nao está funcionando adequadamente.

    Segue o arquivo para facilitar a ajuda!

    Agradeço desde já!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  Alexandre Neves 16/7/2012, 21:39

    Boa noite, mncosta, e bem-vindo ao fórum

    Abri o formulário Processo e não vislumbro o que pretende que altere.
    Explique detalhadamente o que quer que faça e não faz
    avatar
    mncosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 12/07/2012

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  mncosta 17/7/2012, 13:27

    Bom dia Alexandre! Obrigada pelo retorno.

    Detalhando:
    No form de Processos tenho um botão chamado "Vincular Projeto", que pega os valores da listbox e do checkbox e insere na tabela "Demanda_Processo".
    Gostaria que:
    1- o listbox abaixo, chamado "Projetos_vinculados" fosse atualizado automaticamente após cada inclusão nessa tabela.
    2 - e, ao clicar em cada projeto vinculado neste list o mesmo fosse selecionado nos campos desse subformulário de "Demanda_Processo", que está inserido dentro do form Processo, para edição.

    Desde já agradeço!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  Alexandre Neves 17/7/2012, 16:50

    Boa tarde, mncosta

    Retirei a macro, pois não trabalho com macros e não aconselho, excepto casos excepcionais.
    O que pretende que faça o botão "Vincular Projeto"?
    avatar
    mncosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 12/07/2012

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  mncosta 17/7/2012, 17:55

    Oi Alexandre,

    O que desejo com o botão "Vincular Projeto" é adicionar o projeto selecionado na combo e o campo "Habilitado" na tabela "demanda_processo", onde estarei associando o projeto selecionado ao processo atual do formulário pai.

    Após adicionar na tabela quero que esse projeto apareça na caixa de listagem abaixo, chamada de "Projetos_Vinculados", onde é exibido todos os projetos associados ao processo selecionado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  Alexandre Neves 17/7/2012, 18:25

    Olá mncosta
    A dificuldade comum é não indicarem todos os detalhes. Assim, não conseguirão codificar o que pretendem.
    Quer acrescentar registo na tabela Demanda_Processo. Esta tabela tem os campos ID_Demanda, ID_Processo e Habilitado. Habilitado vem do controlo Habilitado (aconselho a designar VerHabilitado por de tratar de caixa de verificação). De onde vêm os campos ID_Processo e ID_Demanda?
    avatar
    mncosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 12/07/2012

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  mncosta 17/7/2012, 20:23

    Alexandre, boa tarde!

    Id_Demanda vem da caixa de combinação que está no subformulário Demanda_Processo
    Id_Processo vem do campo oculto Id_Processo no formulário de Processo

    Esse dois campos mais o campo "habilitado" eu quero acrescentar na tabela DEMANDA_PROCESSO e após essa inclusão quero que esse projeto apareça na caixa de listagem de "Projetos_vinculados".

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  Alexandre Neves 17/7/2012, 22:01

    Oh, mncosta

    Denome os controlos de acordo com o código seguinte

    Private Sub CmdVincularProjeto_Click()
    'verifica preenchimento
    If IsNull(Forms!processo!TxtIdProcesso) Or Forms!processo!TxtIdProcesso = "" Then
    MsgBox "Tem de preencher o Processo."
    ElseIf IsNull(CxcIdDemanda) Or CxcIdDemanda = "" Then
    MsgBox "Tem de preencher o Projeto."
    Else
    'Inserir os valores na tabela
    CurrentDb.Execute "INSERT INTO Demanda_Processo(ID_Demanda,ID_Processo,Habilitado) VALUES (" & CxcIdDemanda & "," & Forms!processo!TxtIdProcesso & "," & IIf(IsNull(VerHabilitado) Or VerHabilitado = False, 0, -1) & ");"
    'Refazer a query para popular a lista
    Forms!processo!Projetos_vinculados.Requery
    End If

    End Sub
    avatar
    mncosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 12/07/2012

    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  mncosta 18/7/2012, 14:47

    Alexandre, bom dia!

    Funcionou, muito obrigada!

    Conteúdo patrocinado


    [Resolvido]Inserir dados em uma tabela e popular um listbox Empty Re: [Resolvido]Inserir dados em uma tabela e popular um listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 19:20