[Resolvido]Um Formulario adicionar dados a várias tabelas

Boas amigos.
A minha duvisda é a seguinte. Eu pretendo atrazes de um formulário adicionar dados a várias tabelas diferentes ou seja, eu tenho um formulário para a introdução de dados onde todos os campos fazem parte e correspondem a este registo so que eu pretendia que esses dados fossem adicionados a várias tabelas onde vários campos são iguais e outros não. Eu sou novato em access, e eu não pretendo alterar a construção sdas tabelas pois elas foram fornecisdas pelo professor e eu pretendso manter essa construção.
Desde já um muito obrigado por toda a ajuda disponibilizada.

Conseguiras isto atraves do instrução INSERT INTO... podes aplica-la em um botão... No repositorio de VBA e SQL tem modelos da instrução..

Saudações

Boas amigos.
Eu vi o exemplo colocado aqui e achei que poderia funcionar bem para o que eu pretendo. So que não estou a conseguir culocalo a funcionar. Eu adaptei o codigo e ficou assim apenas estou a colocar a parte do insert into


DoCmd.SetWarnings False
str_faixas = "INSERT INTO faixas (faixa_id, caminho, artista,album,genero,ano,titulo,faixa_numero,disco_numero,bitrate,duracao,amostragem_taxa,ficheiro_tamanho,alteracao,criacao) values ('" & Me.txt_id_faixa & "', '" & Me.txt_id_caminho & "', '" & Me.txt_seleciona_artista & "', '" & Me.txt_seleciona_album & "', '" & Me.txt_seleciona_genero & "', '" & Me.txt_ano & "', '" & Me.txt_titulo_faixa & "', '" & Me.txt_n_faixa & "', '" & Me.txt_n_disco & "', '" & Me.txt_bitrate & "', '" & Me.txt_duracao & "', '" & Me.txt_amostra_taxa & "', '" & Me.txt_tamanho_file & "', '" & Me.txt_altera & "', '" & Me.txt_cria & "')"
DoCmd.RunSQL str_faixas
str_caminho = "INSERT INTO caminho (caminho_id, caminho_relativo,directoria,alteracao) values('" & Me.txt_id_caminho & "', " & Me.txt_caminho_relativo & ", " & Me.txt_directoria & ", " & Me.txt_alteracao & "')"
DoCmd.RunSQL str_caminho
str_letras = "INSERT INTO letras (letra_id, faixa , lyrics) values('" & Me.txt_id_letra & "', " & Me.txt_id_faixa & ", " & Me.txt_lyrics & "')"
DoCmd.RunSQL str_letras
str_fx_comp = "INSERT INTO fx_comp (compositor, faixa_id) values('" & Me.txt_compositor & "', " & Me.txt_id_faixa & "')"
DoCmd.RunSQL str_fx_comp
End If
DoCmd.SetWarnings True
MsgBox "Adicionado com Sucesso...", vbInformation


Este codigo encontra-se associado a um botão no evento de clikar.
Como esta dá-me erro DoCmd.RunSQL em todas as linhas exepto na primeira vex qem este comando aparece. Se eu retiar esse comando onde dá erro executa todo o proceso e aparece a informação de Sucesso so que não adiciona nenhum registo.
Obrigado Nelson Gomes

Envie-nos parte do BD amigão... Estou indo agora.. Amanha estou de volta..

Boa noite

Boas novamente.
Eu pesquisei mais um pouco e encontrei este codigo aqui no forum já o implenetei na minha bd, não dá erros so que não adicionar qualquer rejisto as minhas tabelas. Eu tenho muito poucos conhecimentos de vbasic, não sei poruqe é que não adiciona qualquer registo e eu tenho os campos preencgidos. Aqui fica o codigo que esta accisioado ao botão no evento de clicar:

Private Sub bt_adicionar_faixa_Click()
Dim BCO As Database
Dim T_faixas As Recordset
Dim T_caminho As Recordset
Dim T_letras As Recordset
Dim T_fx_comp As Recordset

Dim Resposta

Set BCO = CurrentDb()
Set T_faixas = BCO.OpenRecordset("faixas")
Set T_caminho = BCO.OpenRecordset("caminho")
Set T_letras = BCO.OpenRecordset("letras")
Set T_fx_comp = BCO.OpenRecordset("fx_comp")

Resposta = MsgBox("Confirma a entrada de novo registo?", vbYesNo + vbInformation + vbDefaultButton1, "Confirmação")

If Resposta = vbYes Then

If Not IsNull(DLookup("nome", "artista", "nome='" & Me.txt_id_caminho & "'")) Then
MsgBox "Já existe uma Album com esse nome", vbOKOnly + vbCritical, "Atenção"
Exit Sub

Else

DoCmd.SetWarnings False
If Me.txt_id_faixa > 0 Then
T_faixas.AddNew

T_faixas![faixa_id] = Me.txt_id_faixa
T_faixas![caminho] = Me.txt_id_caminho
T_faixas![artista] = Me.txt_seleciona_artista.Column(0)
T_faixas![album] = Me.txt_seleciona_album
T_faixas![genero] = Me.txt_seleciona_genero
T_faixas![ano] = Me.txt_ano
T_faixas![titulo] = Me.txt_titulo_faixa
T_faixas![faixa_numero] = Me.txt_n_faixa
T_faixas![disco_numero] = Me.txt_n_disco
T_faixas![bitrate] = Me.txt_bitrate
T_faixas![duracao] = Me.txt_duracao
T_faixas![amostragem_taxa] = Me.txt_amostra_taxa
T_faixas![ficheiro_tamanho] = Me.txt_tamanho_file
T_faixas![alteracao] = Me.txt_altera
T_faixas![criacao] = Me.txt_cria
End If

If Me.txt_id_caminho > 0 Then
T_caminho.AddNew

T_caminho![caminho_id] = Me.txt_id_caminho
T_caminho![caminho_relativo] = Me.txt_caminho_relativo
T_caminho![directoria] = Me.txt_directoria
T_caminho![alteracao] = Me.txt_alteracao
End If

If Me.txt_id_faixa > 0 Then
T_fx_comp.AddNew

T_fx_comp![compositor] = Me.txt_compositor
T_fx_comp![faixa_id] = Me.txt_id_faixa
End If

If Me.txt_id_letra > 0 Then
T_letras.AddNew

T_letras![letra_id] = Me.txt_id_letra
T_letras![faixa] = Me.txt_id_faixa
T_letras![lyrics] = Me.txt_lyrics
End If

End If

DoCmd.SetWarnings True
MsgBox "Adicionado com Sucesso...", vbInformation

Else

T_faixas.CancelUpdate
T_caminho.CancelUpdate
T_fx_comp.CancelUpdate
T_letras.CancelUpdate

End If

T_faixas.Close
T_caminho.Close
T_fx_comp.Close
T_letras.Close

End Sub

Desde já agradeço qualquer ajuda que possa ser disponibilizada

Tente antes de encerrar o if para cada recordset colocar:

If Me.txt_id_faixa > 0 Then
T_faixas.AddNew

T_faixas![faixa_id] = Me.txt_id_faixa
T_faixas![caminho] = Me.txt_id_caminho
T_faixas![artista] = Me.txt_seleciona_artista.Column(0)
T_faixas![album] = Me.txt_seleciona_album
T_faixas![genero] = Me.txt_seleciona_genero
T_faixas![ano] = Me.txt_ano
T_faixas![titulo] = Me.txt_titulo_faixa
T_faixas![faixa_numero] = Me.txt_n_faixa
T_faixas![disco_numero] = Me.txt_n_disco
T_faixas![bitrate] = Me.txt_bitrate
T_faixas![duracao] = Me.txt_duracao
T_faixas![amostragem_taxa] = Me.txt_amostra_taxa
T_faixas![ficheiro_tamanho] = Me.txt_tamanho_file
T_faixas![alteracao] = Me.txt_altera
T_faixas![criacao] = Me.txt_cria
T_Faixas.Update
End If

Boas amigo, eu testei o que me disse para fazer so que não funcionar pede para fazer eebug na linha que me pediu para adicionar no final do if.
Mais alguma ideia ou estarei a fazer alguma coias mal no codigo que eu introduzi ou seriá necessário algum modulo para fazer estas operação.
Obrigado por toda a ajuda disponibilizada.

Envie-no parte do BD se puder.. veremos com calma isto

Saudações

Boas amigos.
Tentei anexar o ficheiro so que não sonsegui porque diz que estou a ultrapassar o tamanho total do anexo. Seria possivel eu enviar o meu exemplo por mail, para algum dos membnros que me pretenda ajudar.
Obrigado por toda a ajuda prestada.

Mande para o meu email que eu coloco aqui. sergiovieirasoft@gmail.com

Já lhe enviei o ficheiro.
Qualquer ajuda fico agradecido.
Obrigado
Nelson

Aqui vai o ficheiro para quem puder ajudar. Infelizmente não tenho aqui accdb, só mdb.


http://dl.dropbox.com/u/8157744/exemplo1.rar

Versão 10... infelizmente não possuo.. poucos o tem.. converta e envie novamente.. assim mais pessoas poderão ajudar..

Saudações

Boas amigos.
Tal foi agora o meu espanto que quando consegui converter a base de dados eu fui testar e funcionou bem tal como eu queria. Acho que por agora seta resolvido qualquer cosa volto a postar aqui
Obrigado por toda a ajuda e dedicação prestada.Nelson

Como ficou o código que funcionou?

Poste para que demais colegas possam ver e caso tiverem a mesma dúvida o utilizar..

Saudações

agora estou com outro problema.
Eu pretendo criar um criterio que é se eu tentar adicionar um "Titulo da faixa" que já exista e que pretença ao mesmo artista e ao mesmo album que me informe que já existe essa faixa adicionada eu já tentei fazer isso so que não estou a conseguir.
Junto enviu o exemplo da minha bd com as varias maneiras que tenho tentado fazer so que sem sucesso.
Qualquer fica desde já agradecida.

Neste exemplo esta o codigo de como ficou.

Obrlgado Nelson

Exemplo da bd

Para nova Dúvida... Novo Tópico...

se este foi solucionado, coloque como resolvido e abra outro..

Saudações

Veja este código que busca por um CNPJ ja cadastrado


If (Not IsNull(DLookup("[CNPJ]", "tblCliente", "[CNPJ] ='" & Me!CNPJ & "'"))) Then 'Aqui checa se o CNPJ digitado ja existe na tabela


Else 'Caso não esteja após o else insere o procedimento que deseja
MsgBox "Cliente não cadastrado", vbInformation, "Atenção"

End If

Muito obrigado por tudo se for necessário eu abro outro topica para tentar ultrapassar o problema do qual eu falei ainda nete topico.
Nelson