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]Clicar no botão e inserir...

    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Clicar no botão e inserir... Empty [Resolvido]Clicar no botão e inserir...

    Mensagem  ARJ 15/2/2023, 17:41

    Olá

    Uma boa tarde a todos.
    Amiguinhos preciso de uma ajuda vossa, será o seguinte. Preciso de ao clicar num botão este inseria o nome numa tabela, que se encontar num subform.
    Obrigado.

    Deixo exemplo.
    Neste exemplo se formos ao form lancamentos, ao clicar no  botão Anabela Sousa, inseria na tabela em Utentes. Se clicar na Fralda S, inseria no campo Fraldas da tabela tblLancamentos.

    Agradecida.
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  scandinavo 16/2/2023, 00:32

    coloque este codigo no botao btn_AnabelaSousa_Click()

    Dim bd As dao.Database
    Dim rst As dao.Recordset

    Set bd = CurrentDb()
    'abre a tabela para inserir os registros
    Set rst = bd.OpenRecordset("tblUTENTES")


    rst.AddNew
    'estes s?o campos que voce quer copiar
    rst!Utente = "Anabela Sousa"

    rst.Update

    MsgBox "Registros inserido!", vbInformation, "Registrado !"

    Set rst = Nothing



    este codigo no botao btnFRALDA_Click()

    Dim bd As dao.Database
    Dim rst As dao.Recordset

    Set bd = CurrentDb()
    'abre a tabela para inserir os registros
    Set rst = bd.OpenRecordset("tblLANCAMENTOS")


    rst.AddNew
    'estes s?o campos que voce quer copiar
    rst!Fraldas = "Fraldas S"

    rst.Update

    MsgBox "Registros inserido!", vbInformation, "Registrado !"

    Set rst = Nothing
    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  ARJ 16/2/2023, 09:26

    Amigo scandinavo, é isto mesmo. Só que eu não fui clara, acho eu. Ao clicar no botão ANABELA SOUSA este lança na tabela lançamentos, mas ao clicar no botão fraldas também terá de lançar na mesma linha, pois a ideia é associar o tipo de fralda que a Anabela utilizou. Entende ? Acha que consegui passar o pretendido ?

    Porque no pretendido será lançar o utente e a fralda que lhe foi colocada.

    Obrigado beijinhos.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  Alexandre Fim 16/2/2023, 12:52

    Olá Anabela,

    Baixei seu exemplo e verifiquei que são necessário alguns ajustes em tabelas e formulários também.
    Vou criar a rotina de lançamentos conforme pediu, e assim que eu terminar, já disponibilizo.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Clicar no botão e inserir... Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  ARJ 16/2/2023, 12:58

    Olá

    Alexandre Fim, fico agradecida. O meu muito obrigada.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  Alexandre Fim 16/2/2023, 15:01

    Anabela,

    Tomei a liberdade de fazer algumas alterações nas tabelas, para que o sistema tenha um funcionamento adequado.
    O formuláriode lançamentos ficou assim:
    [Resolvido]Clicar no botão e inserir... Lcto0010

    O sistema permite Incluir/Alterar/Excluir registros de forma segura.
    O sistema possui rotinas de validação de preenchimento dos campos também.

    PROCEDIMENTOS
    1 - Para criação de novo registro, clique no comando NOVO
    2 - Para alteração de dados de registros já cadastrados, clique na linha da lista e o sistema irá carregar os dados nos campos.
    3 - Para exclusão do registro, clique na linha da lista e pressione o comando Excluir. O sistema irá pedir confirmação de exclusão também, para que não ocorram exclusões acidentais.

    OBS: Pressione ALT+F11 para entrar no código, e verifique os comentários que fiz em cada rotina, para que você entenda o que cada uma delas executa.

    Segue versão atualizada do sistema.

    É isso.
    Boa sorte.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Clicar no botão e inserir... Attachmentdb_FRALDAS-LB_EX_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 27 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Clicar no botão e inserir... Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  ARJ 16/2/2023, 15:33

    Olá

    Alexandre Fim

    O meu muito obrigado. Obrigado mesmo.

    Irei seguir os seus pontos de forma a estudar como fez de forma a aprender. Uma vez mais o meu muito obrigado.
    Beijinhos Laughing
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  Alexandre Fim 16/2/2023, 15:34

    Boa sorte, Anabela.
    O forum agradece.

    Att,
    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Clicar no botão e inserir... Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Clicar no botão e inserir... Empty Re: [Resolvido]Clicar no botão e inserir...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 00:07