Inserir dados de um formulário em uma outra tabela

Bom dia pessoal,

Eu tenho um formulário que exibe os dados de uma tabela. A partir de cada registro exibido, eu queria criar um botão para inserir o registro em uma outra tabela.

Tenho um formulário de pre-cadastro preenchido e preciso enviar esses dados pra uma tabela de matricula. Certamente, este botão deverá abrir o formulário de matrícula também, já no registro corrente para que o operador possa preencher outros campos.

Obrigado a todos!

Bom dia.....
use o comando abaixo...adapte-o conforme tuas necessidades....

Código:

Dim strsql As String
strsql = "INSERT INTO tblrecebevista (idOS,Idcliente,DataOS, Nomec,CPF, CNPJ, totalgeral) Values (" & Me.IdOS.Value & "," & Me.IdCliente.Value & ",'" & Me.DataOS.Value & "','" & Me.NomeC.Value & "','" & Me.CPF.Value & "','" & Me.CNPJ.Value & "','" & Me.TotalGeral.Value & "')"
   
    CurrentDb.Execute strsql

Bons estudos...e sucesso.

Silvio,

Como não tenho muita habilidade com programação, talvez eu tenha feito algo errado pois não deu certo...

O código ficou assim:

Código:

Option Compare Database

Forms("PreCadastro1").Controls("InteressesPreCad").MultiSelect = 2 ' Extended.

Private Sub Comando100_Click()

Dim strsql As String
strsql = "INSERT INTO Matricula (nomedoaluno, datadenascimento, endereco, complemento, bairro, cidade, portadordedeficiencia  ) Values (" & Me.NomePreCad.Value & "," & Me.DataNascPreCad.Value & ",'" & Me.EndPreCad.Value & "','" & Me.CompPreCad.Value & "','" & Me.BairroPreCad.Value & "','" & Me.CidadePreCad.Value & "','" & Me.TipoDeficienciaPreCad.Value & "')"
   
    CurrentDb.Execute strsql

End Sub

Private Sub DataPreCad_Click()

End Sub

O que há?

Option Compare Database
Option explicit


Private Sub Comando100_Click()

Dim strsql As String
strsql = "INSERT INTO Matricula (nomedoaluno, datadenascimento, endereco, complemento, bairro, cidade, portadordedeficiencia  ) Values (" & Me.NomePreCad.Value & "," & Me.DataNascPreCad.Value & ",'" & Me.EndPreCad.Value & "','" & Me.CompPreCad.Value & "','" & Me.BairroPreCad.Value & "','" & Me.CidadePreCad.Value & "','" & Me.TipoDeficienciaPreCad.Value & "')"
CurrentDb.Execute strsql

End Sub

note que há uma diferença entre...nomedoaluno e me.nomeprecad...os nomes dos campos tem que ser exatamente iguais. Os campos que vão receber dos dados tem que ter os mesmo valores dos campos da tabela de origem.

Silvio,

Fiz a alteração dos campos mas deu erro mesmo assim: "Inválido fora de procedimento"

Código:

Option Compare Database
Option Explicit

Forms("PreCadastro1").Controls("InteressesPreCad").MultiSelect = 2 ' Extended.

Private Sub Comando100_Click()

Dim strsql As String
strsql = "INSERT INTO Matricula (nomeprecad, datanascprecad, endprecad, compprecad, bairroprecad, cidadeprecad, tipodeficienciaprecad  ) Values (" & Me.NomePreCad.Value & "," & Me.DataNascPreCad.Value & ",'" & Me.EndPreCad.Value & "','" & Me.CompPreCad.Value & "','" & Me.BairroPreCad.Value & "','" & Me.CidadePreCad.Value & "','" & Me.TipoDeficienciaPreCad.Value & "')"
   
    CurrentDb.Execute strsql

End Sub

Private Sub DataPreCad_Click()

End Sub

Tardesss

Zipa parte do teu projeto ( tabelas, formulários...) onde está ocorrendo o problema...e poste ele aqui, para darmos uma olhada nele.

Grato.