MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Codigo para salvar Campos em outra Tabela

    Compartilhe

    danelPercoço
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 08/05/2018

    [Resolvido]Codigo para salvar Campos em outra Tabela

    Mensagem  danelPercoço em 25/5/2018, 05:15

    Galera preciso so uma ajuda aqui criei um Botão para salvar dados de uma formulário em outra Tabela deu tudo certo Só gostaria de Salva todos os campos de uma vez só clicando uma vez só tem como?
       
    Private Sub Comando254_Click()
    Dim bc As Database
    Dim Cat_H_Fase1 As Recordset
    Set bc = CurrentDb()
    Set Cat_H_Fase1 = bc.OpenRecordset("Cat_H_Fase1")
    Cat_H_Fase1.AddNew
    Cat_H_Fase1!CE = Me.CE
    Cat_H_Fase1!CD = Me.CD
    Cat_H_Fase1!PI = Me.PI
    Cat_H_Fase1!PD = Me.PD
    Cat_H_Fase1!PI1 = Me.PI1
    Cat_H_Fase1!PD1 = Me.PD1
    Cat_H_Fase1!PI2 = Me.PI2
    Cat_H_Fase1!PD2 = Me.PD2
    Cat_H_Fase1!PI3 = Me.PI3
    Cat_H_Fase1!PD3 = Me.PD3
    Cat_H_Fase1!PI4 = Me.PI4
    Cat_H_Fase1!PD4 = Me.PD4
    Cat_H_Fase1!PI5 = Me.PI5
    Cat_H_Fase1!PD5 = Me.PD5
    Cat_H_Fase1.Update
    End Sub


    Última edição por danelPercoço em 25/5/2018, 15:49, editado 1 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Codigo para salvar Campos em outra Tabela

    Mensagem  Silvio em 25/5/2018, 14:31

    Bom dia...

    Pode ser mais claro em tua duvida ? Pelo que vi, o código que postou está fazendo isso, salvando !!

    No aguardo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 17/7/2018, 01:20