Adicionar registros nas tabelas

olá pessoal.

estou tentando adicionar os valores dos registros do meu formulário numa respectiva tabela, mas não estou conseguindo. O código é esse:


Dim msg
msg = MsgBox("Confirma a inclusao dessa Proposta?", vbExclamation + vbDefaultButton2, "Adicionar Proposta")
If msg = vbYes Then Exit Sub
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset()
rs.AddNew

'rs.MoveFirst

rs("cd_prop") = Forms!tbl_PROPOSTAS!cd_prop
rs("tp_prop") = Forms!tbl_PROPOSTAS!tp_prop
rs("prop_seq") = Forms!tbl_PROPOSTAS!prop_seq
rs("prop_ano") = Forms!tbl_PROPOSTAS!prop_ano
rs("prop_rev") = Forms!tbl_PROPOSTAS!prop_rev
rs("status_prop") = Forms!tbl_PROPOSTAS!status_prop
rs("cd_colab_resp") = Forms!tbl_PROPOSTAS!cd_colab_resp
rs("nm_projeto") = Forms!tbl_PROPOSTAS!nm_projeto
rs("emp_oferta") = Forms!tbl_PROPOSTAS!emp_oferta
rs("tp_fat") = Forms!tbl_PROPOSTAS!tp_fat
rs("emp_fat") = Forms!tbl_PROPOSTAS!emp_fat
rs("tp_ent") = Forms!tbl_PROPOSTAS!tp_ent
rs("emp_ent") = Forms!tbl_PROPOSTAS!emp_ent
rs("tp_cob") = Forms!tbl_PROPOSTAS!tp_cob
rs("emp_cob") = Forms!tbl_PROPOSTAS!emp_cob
rs("ref_cli") = Forms!tbl_PROPOSTAS!ref_cli
rs("docs_cli") = Forms!tbl_PROPOSTAS!docs_cli
rs("chnc_proj") = Forms!tbl_PROPOSTAS!chnc_proj
rs("chnc_conc") = Forms!tbl_PROPOSTAS!chnc_conc
rs("cd_cnvds") = Forms!tbl_PROPOSTAS!cd_cnvds
rs("dt_solic_prop") = Forms!tbl_PROPOSTAS!dt_solic_prop
rs("dt_ent_solic_cli") = Forms!tbl_PROPOSTAS!dt_ent_solic_cli
rs("dt_ent_prom_cli") = Forms!tbl_PROPOSTAS!dt_ent_prom_cli
rs("dt_env_prop") = Forms!tbl_PROPOSTAS!dt_env_prop
rs("przo_obr_solic_cli") = Forms!tbl_PROPOSTAS!przo_obr_solic_cli
rs("przo_fact_obra") = Forms!tbl_PROPOSTAS!przo_fact_obra
rs("dt_estim_ped") = Forms!tbl_PROPOSTAS!dt_estim_ped
rs("dt_estim_pac") = Forms!tbl_PROPOSTAS!dt_estim_pac
rs("reprs") = Forms!tbl_PROPOSTAS!reprs
rs("cd_reprs") = Forms!tbl_PROPOSTAS!cd_reprs
rs("cd_opç_ent") = Forms!tbl_PROPOSTAS!cd_opç_ent
rs("uf_org") = Forms!tbl_PROPOSTAS!uf_org
rs("uf_dest") = Forms!tbl_PROPOSTAS!uf_dest
rs("coment_ent") = Forms!tbl_PROPOSTAS!coment_ent
rs("nr_atnd") = Forms!tbl_PROPOSTAS!nr_atnd
rs("pdr_atdn") = Forms!tbl_PROPOSTAS!pdr_atnd
rs("esc_disp") = Forms!tbl_PROPOSTAS!esc_disp
rs("tec_others") = Forms!tbl_PROPOSTAS!tec_others
rs("tec_coment") = Forms!tbl_PROPOSTAS!tec_coment
rs("prz_prop_ok") = Forms!tbl_PROPOSTAS!prz_prop_ok
rs("prç_viavel") = Forms!tbl_PROPOSTAS!prç_viavel
rs("mlt_viavel") = Forms!tbl_PROPOSTAS!mlt_viavel
rs("reg_ok") = Forms!tbl_PROPOSTAS!reg_ok
rs("com_others") = Forms!tbl_PROPOSTAS!com_others
rs("com_coment") = Forms!tbl_PROPOSTAS!com_coment
rs("coment_int") = Forms!tbl_PROPOSTAS!coment_int
rs("coment_cli") = Forms!tbl_PROPOSTAS!coment_cli
rs("desv_prop") = Forms!tbl_PROPOSTAS!desv_prop
rs("dt_reg") = Forms!tbl_PROPOSTAS!dt_reg
rs("dt_alt_reg") = Forms!tbl_PROPOSTAS!dt_alt_reg
rs.Update
rs.MoveNext

O que está errado nele?

qual recordset você está abrindo ????? o erro está ae

Set rs = CurrentDb.OpenRecordset(??????)

Set rs = CurrentDb.OpenRecordset("select * from tua tabela")

Set rs = CurrentDb.OpenRecordset()

Set rs = CurrentDb.OpenRecordset("CadêONOmeDaTabela?")

Não se esqueça tambem que tudo que você abrir tem que fechar, tudo que jogar na memória, tem que limpar depois:

Set db = CurrentDb() ' Instanciou um objeto colocando-o na memória.
Set rs = CurrentDb.OpenRecordset("NomeDeUmaTabela") ' Abriu uma tabela.
...
...
...
Set rs = Nothing ' Fecha a tabela que foi aberta no Set rs.
Set db = Nothing ' Tira o objeto da memória, ou seja, limpa-a.

Esqueci de colocar mesmo, mas mesmo assim ele informa outro erro dizendo:

"O ADMIN NÃO PODE LOCALIZAR O FORMULÁRIO...."

O QUE PODE SER...

O nome do formulário é tbl_PROPOSTAS mesmo? Se os campos estiverem no mesmo formulário, não precisa passar o nome dele, apenas dos campos:

rs("cd_prop") = Me.cd_prop
rs("tp_prop") = Me.tp_prop

Pessoal eu consegui fazer ele gravar os registros, porém ele apaga o anterior.

Ou seja, cada vez que eu mando ele salvar, o registro anterior é apagado.

O que eu faço?

Tire o rs.MoveFirst e o rs.MoveLast. Essas dependências são usadas quando estamos fazendo um Loop ou um For pelo Recordset.

Bom dia neto!

Na propriedade no evento ao clicar de um botão defina:

Private Sub Comando39_Click()
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("NomeTabela", dbOpenTable)

With rs1

.AddNew
![campo1] = Me.campo1
![campo2] = Me.campo2
![campo3] = Me.campo3
![campo4] = Me.campo4
![campo5] = Me.campo5
![campo6] = Me.campo6
.Update

End With

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

End If

End Sub

Tenta ai que funciona!

Abraço!

Veja seria assim?

Mastigado para você!

http://speedy.sh/XeCRs/Trans-Neto1986.zip

Não se esqueça do resolvido!