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 de um mesmo formulário em tabelas diferentes.

    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 28/02/2012

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  clemerson 20/11/2012, 00:05

    Olá senhores,boa noite.
    Preciso da ajuda dos senhores.Uso o código abaixo para inserir dados de um formulário para uma tabela.Agora preciso inserir dados deste mesmo formulário em uma outra tabela.Pergunto aos senhores,como posso fazer isso ultizando este mesmo código?







    Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
    Dim confirma As Integer
    confirma = MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")
    Select Case confirma

    Case vbNo

    Exit Sub
    Me.produto.SetFocus

    Case vbYes

    Cancel = True

    Set db1 = CurrentDb


    Set rs1 = db1.OpenRecordset("memoprod", dbOpenTable)


    With rs1


    .AddNew
    ![produto] = Me.produto
    ![codigo] = Me.codigo



    .Update

    End With
    End Select
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4816
    Registrado : 20/04/2011

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Re: [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  Silvio 20/11/2012, 09:31

    Bom dia....pode ser feito assim..
    Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
    Dim confirma As Integer
    confirma = MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")
    Select Case confirma

    Case vbNo

    Exit Sub
    Me.produto.SetFocus

    Case vbYes

    Cancel = True

    Set db1 = CurrentDb

    set db2 = currentdb


    Set rs1 = db1.OpenRecordset("memoprod", dbOpenTable)
    set rs2 = db2.openrecordset ("2tabela",dbopentable)


    With rs1


    .AddNew
    ![produto] = Me.produto
    ![codigo] = Me.codigo

    with rs2

    .AddNew
    ![seucampo] = me.seucampo




    .Update

    End With
    End Select

    Teste e e nos informe !

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 28/02/2012

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Re: [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  clemerson 24/11/2012, 00:26

    Olá Silvio,boa noite.
    Infelizmente não está funcionando.A seguinte mensagen está aparecendo "end select sem select case".
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4816
    Registrado : 20/04/2011

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Re: [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  Silvio 24/11/2012, 10:04

    Tente assim....

    Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

    if MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")= yes then


    Cancel = True

    Set db1 = CurrentDb

    set db2 = currentdb


    Set rs1 = db1.OpenRecordset("memoprod", dbOpenTable)
    set rs2 = db2.openrecordset ("2tabela",dbopentable)


    With rs1


    .AddNew
    ![produto] = Me.produto
    ![codigo] = Me.codigo

    with rs2

    .AddNew
    ![seucampo] = me.seucampo



    .Update
    else
    Exit Sub
    Me.produto.SetFocus
    end if

    End With


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 28/02/2012

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Re: [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  clemerson 24/12/2012, 20:27

    Ok deu certo!!!!

    valeu.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4816
    Registrado : 20/04/2011

    [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes. Empty Re: [Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

    Mensagem  Silvio 26/12/2012, 11:32

    Bom dia e Feliz ano para ti.

    Que bom que deu certo.

    O fórum agradece o retorno.

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 21/1/2022, 04:18