none
==>> Ajuda em botão de acréscimo com SQL <<== RRS feed

  • Pergunta

  •  

    Amigos estou com um proje

    to necessita de um botão de acréscimo,

    Sei que tem uma opção que faz isso na contulta de acréscimo porem a mesma só faz uma copia de toda tabela.

    ------------------------------------------------------------------


    Caracteristicas do banco
    2 tabelas / TBL_CENTRAL , TBL_VENDA .

    Amigos quero fazer um botão que ao clickar ele delete da TBL_CENTRAL o dado atual do formulario e copie o mesmo para TBL_VENDA ,
    A possibilidade de fazer isso sem que aparece aquelas mensagems de autorização.


    Eu consegui fazer um codigo sql no evento ao clicar mais ele só copia  da tabela atual o campo código,
    pretendo que ele copie mais como posso fazer isso???

     

     Comando298_Click()
    Dim
     sql As
     String
    
    
    sql = "INSERT INTO tbl_venda (Código) VALUES ("
    & Me
    .Código.Value & ");"
    
    CurrentDb.Execute sql
    End
    
     Sub
    
    
    
    
    

     

    Desde ja agradeço ajuda de todos.

    domingo, 6 de fevereiro de 2011 17:39

Respostas

  • Você precisa complementar a instrução SQL de acordo com o exemplo abaixo:

    sql = "INSERT INTO tbl_venda (Código, Campo2, Campo3) VALUES ("
    
    & Me
    .Código.Value & ", " & Me.Campo2.Value & ", " & Me.Campo3.Value & ");"

    Para inibir as mensagens, use o comando abaixo antes de executar a instrução SQL:

    DoCmd.SetWarnings False

    e após:

    DoCmd.SetWarnings True

    segunda-feira, 7 de fevereiro de 2011 12:08