[Resolvidos]Uso do INSERT INTO para multiplas tabelas

Bom dia Amigos do Forum,

Estou criando um aplicativo que possui varias tabelas. Entre elas tenho por exemplo.
Clientes, Fornecedores, Transportadoras, Funcionarios.

Todas as tabelas acima terão em comum os campos de endereço, então decidi criar uma tabela Localidade, onde possuem os campos endereço, bairro, cidade, estado, e relacionar a chave ID_Localidade em todas as tabelas

Minha duvida é a seguinte:

Como posso ao cadastrar um cliente, o mesmo formulário inserir os registros de endereço na tabela Localidade, usando o comando INSERT.

Desde já agradeço pela Atenção

Sds,

Você pode usar o evento Se não estiver na lista de uma combo para inserir novos resgistros na tabela. Ou pode usar o recordset tambem para isso.

veja na sala de códigos qui mesmo no fórum;

SQL Insert Into

Bom dia Amigos, obrigado pelo retorno.

O que não estou realmente conseguindo é pegar

o id do endereço e salvar na tab clientes.

Ex. Tab Clientes id_cliente, nomecliente, id_endereço

Tab Endereços id_endereço, endereço, bairro, cidade, etc..

Consigo fazer a rotina pra salvar nas duas tabelas, mas

não estou conseguindo pegar o id_endereço para inserir na

Tab Clientes.Acredito que tenha que jogar essa id em uma

variável, mas não sei como fazer

Espero ter sido mais claro.

Sds,

Coloque um exemplo do seu banco em site publico para se ver o que está mal.

Bom dia JPaulo, Segue o link

Vc vai notar que salva nas duas tabs, mas não

relaciona uma com a outra. Não sei onde estou errando

http://www.easy-share.com/1910851357/bdtesterelacao.rar

O Formulário de exemplo é Formulário1

Desde já agradeço pela atenção

Sds,

Veja o simples;

http://dl.dropbox.com/u/771097/bdtesterelacao_OLD.rar

---

O conteúdo da solução contida no exemplo acima, encontra-se abaixo. Foi extraído e disponibilizado pela Moderação Global:

---

Option Compare Database
Option Explicit
Dim strsql, strsql2 As String

Public Sub AdicionaSeNaoExiste()

'ver se existe na 2ª tabela ?
If DCount("nome", "clientes", "nome= '" & Me.fnome & "'") > 0 Then
'se existe não adiciona
MsgBox "Registro já existe na Tabela Clientes, não foi adicionado...", vbCritical
Exit Sub
'se não existe adiciona
Else
DoCmd.SetWarnings False
strsql = "INSERT INTO tb_endereco (endereco, cidade, estado) values ('" & Me.fend & "', '" & Me.fcid & "', '" & Me.festado & "')"
DoCmd.RunSQL strsql
Me.fend.Requery
strsql2 = "INSERT INTO clientes (nome, id_endereco) values('" & Me.fnome & "', " & Me.fend.Column(0) & ")"
DoCmd.RunSQL strsql2
End If
DoCmd.SetWarnings True
MsgBox "Adicionado com Sucesso...", vbInformation
End Sub

Ao clicar de um botão chame a função com:

Call AdicionaSeNaoExiste

Jpaulo,

Quando vc escreve "Olhe o Simples ", é como

um puxão de orelha....Rssssss

Tava na minha cara e eu não via.

Muito obrigado mesmo, ja tava tava ficando

louco aqui.

Agradeço tb aos demais amigos que colaboraram.

Sds,

Valew amigo, precisando estamos ae.