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 tabela

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Inserir dados em tabela Empty Inserir dados em tabela

    Mensagem  Ronaldo Costa 8/11/2012, 18:00

    Olá pessoal!

    Estou criando uma tela para o registro de vendas de produtos formada por um form e um subform. Insiro o código do produto diretamente no subform. me veio, porém uma ideia, então, crie 3 campos no form: "cód", "descrição" e "preço". ao digitar o código do produto no campo "cód" os outros dois campos são preenchidos automaticamente com informações captadas da "tbl_Produto". Criei também um botão "ok". gostaria de um código que inserisse na "tbl_VendaDet" o código do produto ao clicar o botão "ok".

    agradecido
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Inserir dados em tabela Empty Re: [Resolvido]Inserir dados em tabela

    Mensagem  Lupércio 8/11/2012, 19:55

    Ola companheiro, boa tarde!
    ao click do botão defina"

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

    If MsgBox("Confirma Transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

    Set db1 = CurrentDb

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

    With rs1

    .AddNew
    ![seucampo1] = Me.seucampo1
    ![seucampo2] = Me.seucampo2

    .Update

    End With

    MsgBox "Transferencia confirmada.", vbOKOnly + vbInformation, "Concluído"

    End If

    qualquer duvida poste parte do banco ai veremos no que podemos ajudar!
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Inserir dados em tabela Empty Re: [Resolvido]Inserir dados em tabela

    Mensagem  Ronaldo Costa 12/1/2013, 09:59

    Grato!
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Inserir dados em tabela Empty Re: [Resolvido]Inserir dados em tabela

    Mensagem  Lupércio 13/1/2013, 00:44

    O forum agradece!
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Inserir dados em tabela Empty Re: [Resolvido]Inserir dados em tabela

    Mensagem  Ronaldo Costa 19/1/2013, 09:30

    Perfeito!
    Exatamente o que eu queria!

    mui grato...

    Conteúdo patrocinado


    [Resolvido]Inserir dados em tabela Empty Re: [Resolvido]Inserir dados em tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:00