MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 17/8/2011, 23:47

    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.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 17/8/2011, 23:50

    Amigo, acho melhor ir começando a ver sobre relacionamentos, normalização... O amigo Dilson, disponibilizou uma um material muito bom sobre relacionamentos, vou procurar e ja passo o link...


    .................................................................................
    [Resolvido]Um Formulario adicionar dados a várias tabelas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Um Formulario adicionar dados a várias tabelas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Um Formulario adicionar dados a várias tabelas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Um Formulario adicionar dados a várias tabelas Marcel11
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 17/8/2011, 23:50

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 17/8/2011, 23:53

    Aqui está:

    http://maximoaccess.forumeiros.com/t3847-discutindo-relacoes-entre-tabelas

    Parece que postamos ao mesmo tempo Harysohn, rs


    .................................................................................
    [Resolvido]Um Formulario adicionar dados a várias tabelas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Um Formulario adicionar dados a várias tabelas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Um Formulario adicionar dados a várias tabelas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Um Formulario adicionar dados a várias tabelas Marcel11
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 19/8/2011, 23:10

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 19/8/2011, 23:22

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

    Boa noite
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 20/8/2011, 00:26

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 20/8/2011, 11:22

    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


    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 20/8/2011, 14:15

    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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 20/8/2011, 14:54

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

    Saudações
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 21/8/2011, 08:50

    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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 21/8/2011, 12:03

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 21/8/2011, 12:13

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 21/8/2011, 12:23

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


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


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

    Mensagem  Convidado 21/8/2011, 17:56

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

    Saudações
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 21/8/2011, 19:27

    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


    Última edição por nelsonmpg em 21/8/2011, 20:19, editado 1 vez(es)
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 21/8/2011, 19:36

    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
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 21/8/2011, 20:17

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 21/8/2011, 20:41

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

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

    Saudações
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 21/8/2011, 20:47

    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
    avatar
    nelsonmpg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 22
    Registrado : 31/07/2011

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

    Mensagem  nelsonmpg 21/8/2011, 21:12

    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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:01