[Resolvido] Transferir dados entre tabelas

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

Dá uma olhada neste exemplo do mestre JPaulo

Link

Sds

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

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é?

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.

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

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

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

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

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.

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

E cadê o arquivo anexado?

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.//

FAIL

Coloque em um servidor público como www.dropbox.com ou www.speedyshare.com

O arquivo está postado.

Instruçoes para localizar o arquivo:

Site: www.4shared.com
Arquivo: Bd para teste

Grato

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

Ok.
Arquivo enviado em 09/08/11.

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
:::::::::::::::::::::::::::::::::::::::::::::::::::
sergiovieirasoft@gmail.com
:::::::::::::::::::::::::::::::::::::::::::::::::::
Se mandarem os Reis embora, hão-de tornar a chama-los (Alexandre Herculano)

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


http://dl.dropbox.com/u/26441349/UMEI_10_08_11.rar

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

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 http://search.4shared.com/q/1/bd%20alterado

site: 4shared
nome: bd alterado

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

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

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

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

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?

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

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

Saudações

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

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

harysohn@hotmail.com

Providenciado!

Enviado para o email indicado

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

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.

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

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

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

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

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.

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?

Sobre adicionar usuário...

http://dl.dropbox.com/u/26441349/UMEI_02_09_11.rar

Veja e teste..

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

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!

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

Saudações

Ok Harysohn!!

Grato d+.

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,

Bom dia, estou com um problema parecido, agradeço se alguém puder me ajudar..
tenho duas tabela (uma Funcionários e outra Usurários), tenho um form com cadastro de Usuário.
Teria como neste procedimento dos colegas funcionar da seguinte maneira,
quando colocar os dados no form de Usuários fosse também para a tabela de funcionários?
------------------------------------------------------------------------------------------------------------------
Parte do código inserido no botão salvar do form usuário, o cadastro funciona normal porem só salva na tabela usuário.

Private Sub BtSalvar_Click()
'On Error GoTo BtSalvar_Click_Err
CurrentDb.Execute "INSERT INTO Funcionario(NmVendedor, Senha) VALUES('" & Me.login & "', '" & Me.Senha & "')"
   If IsNull(Trim(Me.login)) Then
       MsgBox "Entre com o nome do usuário...", vbInformation, "Aviso"
       Me.login.SetFocus
       'Exit Sub
    Else

Caros amigos,

Poderiam postar o BD depois de resolvido para nossos estudos?

Muito grato.