MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Transferir dados entre tabelas

    Compartilhe

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Transferir dados entre tabelas

    Mensagem  UMEI em Qua 20 Jul 2011, 12:09

    Tenho duas tabelas como citado abaixo.
    Preciso que ao clicar no botão OKSAIDA do formulario FSAIDA que mostra o registro obtido por meio de uma consulta, se aplique o cód para transferir esse registro com todos os campos (cod, nome, dt nasc, funcao ) da Tab1ENTRADA para Tab2SAIDA, ou seja, que delete o registro da Tab1ENTRADA e o acrescente na Tab2SAIDA.

    Tab1ENTRADA
    cod
    nome
    dt nasc
    funcao

    Tab2Tab2SAIDA
    cod
    nome
    dt nasc
    funcao

    Obs.: Uso o acces 2000

    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  chsestrem em Qua 20 Jul 2011, 13:04

    Dá uma olhada neste exemplo do mestre JPaulo

    Link

    Sds


    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Tran

    Mensagem  UMEI em Qui 21 Jul 2011, 16:45

    Entrei no link, baixei o bd, extrai as informações, mas no entanto não consegui aplicar.
    Preciso de um cód que transfira os dados de uma tba para outra.
    Já fiz várias pesquisas mas por nao ter conhecimeto d VBA estou com dificuldades.

    Ainda preciso de ajuda.

    Obs.: Na verdade meu acces é 2003

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  criquio em Qui 21 Jul 2011, 16:59

    Será que precisa mesmo de duas tabelas com os mesmos campos? Não seria melhor adaptar para ficar em uma única tabela? Mas você pode conseguir o que deseja mais ou menos assim:

    CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES(" & Me.Código & ", '" & Me.Nome & "', #" & Me.Nascimento & #", '" & Me.Função & "')"

    Para não correr o risco de deletar o arquivo da tabela anterior sem tê-lo realmente acrescentado à nova tabela, vamos testar se ele está lá. Se estiver, deleta. Se não estiver, avisa:

    If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.Código) Then
    MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOkOnly + vbInformation, "Sucesso"
    CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.Código & ""
    Else
    MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOkOnly + vbCritical, "Erro"
    End If


    Nem precisa falar para testar isso em uma cópia do aplicativo, para o caso de algo sair errado, não danificar o original né?


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Ainda não consigo aplicar o cód

    Mensagem  UMEI em Seg 25 Jul 2011, 11:48

    Tentei inserir o cod no BotaoOK do meu formulario. Este formulário mostra o resultado de uma consulta em que eu visualizo o registro a ser transferido.

    Tentativa 01

    - Em modo design, fui em Propriedades do botao
    - Na aba Evento no item Ao pressionar a tecla usei o Construtor de cod.
    - Já no VBA o cod ficou como abaixo:

    Private Sub BotaoOK_KeyPress(KeyAscii As Integer)

    CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES(" & Me.Codigo & ", '" & Me.Nome & "', #" & Me.Nascimento & #", '" & Me.Função & )"

    End Sub

    Tentativa 02

    - Em modo design, fui em Propriedades do botao
    - Na aba Evento no item Ao pressionar a tecla usei colar o código sugerido.

    Por fim, de nenhuma das tentativas obtive sucesso.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Seg 01 Ago 2011, 09:06

    Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Moderador Global

    Mensagem  UMEI em Seg 01 Ago 2011, 16:42

    Eu não resolvi o problema ainda. Não obtive resposta após meu último post.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  criquio em Seg 01 Ago 2011, 16:47

    O amigo não informou que aconteceu quando fez as tentativas. Apareceu alguma mensagem de erro? De qualquer forma, tente novamente com pequenas alterações e se não der, informe o que se assucedeu:

    CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES('" & Me.Código & "', '" & Me.Nome & "', '" & Me.Nascimento & '", '" & Me.Função & "')"

    If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.Código) Then
    MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOkOnly + vbInformation, "Sucesso"
    CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.Código & ""
    Else
    MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOkOnly + vbCritical, "Erro"
    End If


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Erro de compilação

    Mensagem  UMEI em Qua 03 Ago 2011, 15:29

    Ao inserir o cód proposto dá o erro abaixo e faz referencia ao trecho // Me.Código //
    //Erro de compilação!
    Método ou membro de dados não encontrado//

    Private Sub BotaoOK_KeyPress(KeyAscii As Integer)

    CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES('" & Me.Código & "', '" & Me.Nome & "', '" & Me.Nascimento & '", '" & Me.Função & "')"

    If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.Código) Then
    MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOkOnly + vbInformation, "Sucesso"
    CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.Código & ""
    Else
    MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOkOnly + vbCritical, "Erro"
    End If

    End Sub

    Exite a opção de postar o Bd e o mesmo ser avaliado?

    Agradecido

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  criquio em Qua 03 Ago 2011, 15:33

    Os nomes de campos colocados são exemplos. Você precisa substituir pelos nomes corretos dos seus campos. Esse erro indica que o nome digitado não corresponde a nenhum nome de controle do elemento atual, no caso, de um formulário.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Anexo cópia do bd

    Mensagem  UMEI em Sex 05 Ago 2011, 16:47

    Lembro que é apenas necessário que a cópia do registro da TabENTRADA p/ TabSAIDA seja feita sem que isso seja comunicado ao usuario, quando o botão OK do formulário SAIDA for clicado.

    E também que em sequencia, seja deletado esse regitro da TabENTRADA, também sem ser avisado ao usuario, pois esse mesmo registro será inserido por várias vezes nessa tabela, assim, apenas na TabSAIDA haverá duplicidade de informações e, na verdade, futuramente eu precisarei da informação desses registros duplicados.

    Aguardo auxilio do colega criquio quanto ao arquivo anexado.

    Agradeço

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Sex 05 Ago 2011, 16:54

    E cadê o arquivo anexado?

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    erro ao anexar

    Mensagem  UMEI em Sex 05 Ago 2011, 19:40

    Depois de localizar o arquivo de nome Bdteste.rar de 29Kb, e clicar em Enviar consulta, dá o seguinte erro:

    //O arquivo adicionado não é valido: nome do arquivo incorreto.//



    Última edição por UMEI em Sex 05 Ago 2011, 19:46, editado 1 vez(es)

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  criquio em Sex 05 Ago 2011, 19:41

    FAIL

    Coloque em um servidor público como [Você precisa estar registrado e conectado para ver este link.] ou [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Postei o arquivo

    Mensagem  UMEI em Sex 05 Ago 2011, 20:56

    O arquivo está postado.

    Instruçoes para localizar o arquivo:

    Site: [Você precisa estar registrado e conectado para ver este link.]
    Arquivo: Bd para teste

    Grato

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Ter 09 Ago 2011, 11:27

    Assim ninguém vai ver o arquivo. Envie para o meu email que eu coloco ele aqui

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Enviado o bd

    Mensagem  UMEI em Qua 10 Ago 2011, 11:52

    Ok.
    Arquivo enviado em 09/08/11.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Qua 10 Ago 2011, 11:59

    Será que poderia enviar de novo, por favor.






    Por favor, leia as regras do Fórum antes de postar. Visite o repositório de exemplos e códigos SQL/BVA
    :::::::::::::::::::::::::::::::::::::::::::::::::::
    [Você precisa estar registrado e conectado para ver este link.]
    :::::::::::::::::::::::::::::::::::::::::::::::::::
    Se mandarem os Reis embora, hão-de tornar a chama-los (Alexandre Herculano)

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Qua 10 Ago 2011, 12:32

    Se ainda não resolveu partamos deste modelo teu que baixei e fiz algumas modificações

    1 - No form principal adicionei uma Cbo e uma caixa texto onde se escolhe o nome da pessoa, a caixa texto recebe o numP, que por sua ver foi inserida na consulta da seguinte forma: Como [FORMS]![F_1PRINC]![txtNumP]

    Assim ao clicar em saida no form principal não precisa digitar mais nada pois a consulta receberá o valor contido na caixa texto em vermelho..

    Ao abrir o form e clicar em sim para confirmar a saída.. está adicionando na tabela 2 normalmente e excluindo da tabela 1

    Qualquer dúvida ou modificações neste exemplo não hesite em postar..

    Saudações


    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Ter 16 Ago 2011, 18:20

    Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Funcionou em partes, deu msg de erro!!

    Mensagem  UMEI em Ter 16 Ago 2011, 21:42

    Harysohn
    Antes de mais nada, agradeço a ajuda e peço dsculpas pela demora da postagem, bem, dando sequencia;

    ALTERAÇÕES FEITAS.

    Observação 1 - Criei um novo campo no F_SAIDA ( usuario ) // nesse campo fica registrado o usuario responsável pela saida

    Observação 2 - ( sem inserir informações na caixa de texto "usuario" ) e ( sem alterar o código )
    Ao clicar em "SIM" do F_SAIDA, a msgbox é executada normalmente, a cópia do arquivo é feita, no entanto, quando se clica em "ok" dessa msgbox ela se fecha e
    a janela anterior,F_SAIDA, fica escrito nas caixas de textos " #Excluído " e o formulário continua aberto.
    Daí, caso se clica em "SIM" novamente, aparece uma mensagem de erro:
    Erro em tempo de execução '3075':
    Erro de sintaxe (operador faltando) na expressão de consulta'cod='.

    Observação 3 - ( inserindo informação na caixa de texto "usuario" ) e ( sem alterar o código )
    Para isso criei nas 2 tabelas (imagino que seja necessário) e na consulta o mesmo nome de registro ( usuário )
    Criei esse campo porque preciso registrar o usuario que for dar a saída,assim, quando isso for feito o usuário deverá ser obrigado a colocar o seu nome,
    a partir daí, todas as informações desse formulário deverão ir para a Tab2SAIDA.
    Mas,deu erro.

    Como não consegui mais uma vez postar o link pelo site, deixo o endereço abaixo:

    link [Você precisa estar registrado e conectado para ver este link.]

    site: 4shared
    nome: bd alterado

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Ter 16 Ago 2011, 21:51

    Primeiramente amigão... Observou o exemplo que postei?

    O aproveitou nesse seu teste acima?

    Coloque os problemas que estão a ocorrer na ordem cronológica dos mesmos..

    O exemplo que te enviei não serviu? pois estava a fazer o que queria na origem do topico....


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Sex 19 Ago 2011, 20:13

    Ok,..

    O cód funcionou sim,o que solicitei, que era copiar da TabENTRADA e transferir para TabSAIDA e deletar da TabENTRADA é executado, no entanto o programa da forma como mandou dá erro no final quando ao clicar em "SIM" do F_SAIDA, o formulario confirmando a copia é executado normalmente,no entanto, quando se clica em "ok" desse formulario ele se fecha e o formulario anterior o,F_SAIDA, fica aberto e escrito nas caixas de textos " #Excluído " .
    Dai ao clicar +1 vez em "SIM" dá a msg de erro abaixo:


    Erro em tempo de execução '3075':
    Erro de sintaxe (operador faltando) na expressão de consulta'cod='.



    Como não sei manipular código, não soube como solucionar.

    O no ultimo post que fiz, não alterei nada do cód sugerido por você, apenas alterei o formulário, tabela e consulta como citei anteriormente.



    Grato +1 vez

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Sex 19 Ago 2011, 20:20

    Quando clica em sim.. ele copia e exclui o registro ativo no form.. se clicar em sim novamente.. dá erro, pois como o registro foi excluido, o código que faz a copia (no botão sim) não encontra mais o registro gerando o erro.. isso acontece se clicar no botão 2 vezes seguida....

    Mas se clicar apenas uma, não dá erro..

    O que quer que aconteca depois que clica em sim.. fechar o form?

    Seja mais claro...


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Sex 19 Ago 2011, 20:22

    Para não correr o risco de clicar no botão SIM inadivertidamente por duas vezes seguida...


    Private Sub Comando11_Click()

    CurrentDb.Execute "INSERT INTO Tab2SAIDA(cod,nome,[dt nasc],funcao) VALUES('" & Me.NumP & "', '" & Me.txtNome & "', '" & Me.txtData & "', '" & Me.txtFuncao & "')"

    If Not IsNull(DLookup("cod", "Tab1ENTRADA", "cod=" & Me.NumP)) Then
    MsgBox "Dados copiados com sucesso. A seguir o registro da tabela anterior será excluído", vbOKOnly + vbInformation, "Sucesso"
    CurrentDb.Execute "DELETE * FROM Tab1ENTRADA WHERE cod=" & Me.NumP & ""
    DoCmd.Close
    Else
    MsgBox "Ocorreu algum erro na cópia do arquivo. O mesmo não foi copiado. Verifique.", vbOKOnly + vbCritical, "Erro"
    End If


    End Sub


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Qua 24 Ago 2011, 16:53

    Tem sido de grande proveito a sua ajuda, muito mesmo.

    Vou testar o cód ainda hoje! Grato!

    Mas ainda quanto ao mesmo Bd,tenho a seguinte dúvida:

    Ao criar um novo campo no F_SAIDA nome do campo: usuario, nesse campo fica registrado o usuario responsável pela saida, deu erro.Por que?

    Penso em além do campo citado, pretendo inserir outro também no F_SAIDA, campo: destino. O que muda no cód?

    Como solucionar esse problema?

    Pode me ajudar +1 vez?

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  vieirasoft em Seg 29 Ago 2011, 09:29

    Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Seg 29 Ago 2011, 12:27

    Envie-nos o BD com os novos campos que criou para vermos o que há de errado..

    Saudações


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Envio do arquivo com a alteração

    Mensagem  UMEI em Ter 30 Ago 2011, 14:24

    Saudações Harysohn!

    Como não consegui postar o link nem o arquivo segue a forma de localizá-lo.

    site: 4shared.com
    nome: Bd alterado

    Grato




    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Ter 30 Ago 2011, 14:44

    Envie-me no meu e-mail que posto aqui..

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn!

    Mensagem  UMEI em Qua 31 Ago 2011, 12:46

    Providenciado!

    Enviado para o email indicado

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Qua 31 Ago 2011, 13:14

    Vamos la... apartir deste exemplo.. explique o que deseja...


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Qua 31 Ago 2011, 14:57

    Necessito criar mais dois campos!

    Ao criar um novo campo no F_SAIDA nome do campo: usuario, nesse campo fica registrado o usuario responsável pela saida.

    Inserindo outro campo no F_SAIDA, o campo: destino para se localizar o possível doc.

    DÚVIDA:

    Inserindo os dois campos e tentando alterar o cód proposto não consegui fazer com que fossem registrados na TabSAIDA.


    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Qua 31 Ago 2011, 15:56

    E quem é o usuário?? onde fica esta informação?


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Qua 31 Ago 2011, 16:58

    O usuario é qualquer um que esteje operando o programa e que necessite dar baixa no registro.

    E o destino também não é definido.

    Os campos usuario e destino serão preenchidos no F_SAIDA e tanto o nome de quem preencheu como o destino descrito deverão ser transferidos juntamente com os dados obtidos pela consulta que já existe no Bd_alterado para a TabSAIDA.


    Grato

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Qua 31 Ago 2011, 17:00

    Amigão.. para isto voce tem que ter pronto o login do sistema para identificar o usuário...
    primeiro faça isto... ai depois poderemos inserir esta informação...

    Cumprimentos


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Qua 31 Ago 2011, 17:01

    Se colocar apenas uma caixa texto para o usuario aplicar o nome.. ja pensou que o mesmo podes aplicar outro nome...


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Sex 02 Set 2011, 12:24

    Ok! Entendo Harysohn !

    1 - No entanto, esse tipo de situação não é de relevância para na aplicação desse Bd, a rotatividade é grande de usuários que podem vir a usá-lo.

    O destino também pode ser vários, não há uma lista fixa assim como o campo citado acima.


    2 - Uma dúvida, qual seria outra opção de buscar o registro além da que vc sugeriu com a caixa de listagem no F_SAIDA, onde se escolhe o registro a ser transferido de tabela, pois a quantidade de registro será enorme, será acima de 1.000 e da forma como está acredito que com uma quantidade muito grande ficará estranho.






    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Sex 02 Set 2011, 12:51

    Se digitar o nome na caixa.. ela ja se auto completa.. não entendi esta forma de buscar... Não queria buscar o registro pelo nome?
    foi o que eu fiz não?


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Sex 02 Set 2011, 15:06

    Sobre adicionar usuário...

    [Você precisa estar registrado e conectado para ver este link.]

    Veja e teste..

    Quanto ao que falou sobre a pesquisa.. eu não entendi


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Harysohn

    Mensagem  UMEI em Seg 05 Set 2011, 12:51

    Harysohn!!

    Cumprimentos!!

    Conforme o solicitado no tópico após sua grande colaboração, o objetivo foi atingido.

    Quanto aos outros detalhes do Bd que criei postarei novamente em novos topicos.

    Grato Mestre!

    RESOLVIDO!

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  HARYSOHN em Seg 05 Set 2011, 16:13

    O Fórum agradece o retorno.. So faltou o resolvido nó tópico..

    Saudações


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    UMEI
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 50
    Registrado : 18/07/2011

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  UMEI em Ter 06 Set 2011, 11:36

    Ok Harysohn!!

    Grato d+.

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 461
    Registrado : 20/01/2014

    Re: [Resolvido] Transferir dados entre tabelas

    Mensagem  XPTOS em Seg 20 Jan 2014, 15:21

    Prezados, boa tarde,

    Estou com a mesma dúvida do UMEI, ou seja, sobre importação de dados entre tabelas. Alguem poderia me ajudar por gentileza. Pois, tentei fazer o exemplo que HARYSOHN postou mais não deu certo.

    Caso precise, posso anexar o banco no sem problemas...

    Grato,

      Data/hora atual: Sab 10 Dez 2016, 12:40