Duplicar dados de um Formulário de Consulta

Pessoal,

Tenho um Formulário utilizado para consulta. Neste Form tenho vários campos, o que permite uma busca mais avançada.
Após eu conseguir efetuar uma busca, baseada nos campos que preenchi, gostaria de copiar estes dados (deste campo) para um novo Registro, como duplicar a partir deste campo.
Como eu faço isso neste Formulário?

Gostaria de selecionar a linha (por exemplo) do resultado e após selecionar esta linha, clicar neste Botão de copiar para um novo Registro.

Olá, vinnycassis

No evento Ao clicar do botão de comando, insira o código, evidentemente com as devidas substituições:


Dim strSQL as string

strSQL = "INSERT INTO NomeDaTabela ( Campo1, Campo2, Campo3 ) SELECT NomeDaTabela.Campo1, NomeDaTabela.Campo2, NomeDaTabela.Campo3 FROM (NomeDaTabela WHERE (((NomeDaTabela.ChavePrimária)=[Forms]![NomeDoForm]![CampoChave]));"

DoCmd.OpenQuery strSQL



Espero ter ajudado.

Abs.

Ok, Jair.

Vou testar e posto aqui se resolveu.
Obrigado!

Jair,

Veja por favor se consegue me ajudar....

Coloquei o meu exemplo (CCR.zip) neste link >> https://we.tl/NwQYuFE80r

Usuário: administrador
Senha: 123456

Na Página Inicial, tem um botão para o Form Front Page....
Neste Form, eu tenho as opções de adicionar, excluir, salvar, editar, atualizar e copiar a partir de um outro registro.
Então, quando eu seleciono a última opção, eu consigo copiar o registro atual e entrar no modo de edição do registro "novo" copiado.... Isso para que eu entre com as novas opções, de acordo com o que o usuário quer alterar ou inserir.... Neste Form está tudo ok....

Porém quando entro no Form de Pesquisa (lupa).... abre-se outro Form, possibilitado ao usuário de fazer uma pesquisa mais avançada... Após eu fz a pesquisa, eu clicando duas vezes sobre o registro que eu quero, ele volta pro Form anterior.... Nest Form, eu consigo alterar as informações de cada campo.... Salvar e inclusive excluir o registro... Mas não consigo criar outro a partir deste.... abre uma caixa de texto "Inserir valor do parâmetro"

Gostaria de ser possível a cópia nesta etapa...
Obrigado mais uma vez!



Att,
Vinícius.

Alguém conseguiria me ajudar???


Obg!

Vou ver com calma, vinnycassis.

Assim que tiver alguma resposta consistente eu posto.

Abs.

Olá, vinnycassis.

O parâmetro que está sendo solicitado no procedimento de salvar o registro é a lista de produtos do form FPesqFrontPage. Isto acontece porque você inseriu no procedimento do DblClick a lista como filtro do form a ser aberto. Este filtro permanece nas propriedades do form FFrontPage. E em seguida, você inseriu um comando para fechar o form FPesqFrontPage. Notei que é criado um novo registro, mas quando você dá um Requery no form, o filtro ainda está ativo e, como o form citado no parâmetro está fechado, surge a mensagem de erro.
Recomendo que, em vez de atribuir um filtro, abra o form FFrontPage determinando um critério, em vez de um filtro.

Eu não testei. Mas faça o teste aí e diga se deu certo, ok?


Abs.

Oi Jair,

Desculpe, mas não tenho tanto conhecimento em Access... O que fiz até agora foi com muito custo e muita pesquisa....
Não sei fazer como você sugeriu...
Consegue me ajudar, por favor?

Obrigado!

Olá, vinnycassis.

No procedimento do evento Ao Clicar Duas Vezes, substitua a linha

DoCmd.OpenForm "FFrontPage", acNormal, "", "[code]=[Forms]![FPesqFrontPage]![lstFrontPage]", , acNormal

Por estas 3 linhas:

Dim strCriteria As String
strCriteria = "[code] = " & Me.lstFrontPage
DoCmd.OpenForm "FFrontPage", , , strCriteria

Salve o form e faça o teste.

Abs.

Oi Jair,

Obrigado.


Acabei de testar... A duplicação dá certo, mas o usuário só consegue editar o registro que foi duplicado fechando o Form FFrontPage, abrindo-o novamente e indo para o último registro que é o que foi duplicado....
Gostaria de que já entrasse no modo de edição para o usuário fazer as alterações e salvar... sem ter que fechar o Form... Isso é possível?

Sem abrir o Formulário de Pesquisa, ou seja, no Form FFrontPage, a duplicação ocorre de forma correta e já entra no modo de edição, permitindo ao usuário que faça as devidas alterações e salve o registro.


Conseguiria me dar esse help?

Obrigado!

Jair,

Conseguiu entender o problema? Ou ficou confuso?


Obrigado!

Prezados,

Alguém conseguiria me ajudar com isso???

Caso necessitem, segue neste link a db >> https://we.tl/xdFCp0yWZD

Usuário do programa: administrador
Senha: 123456


Obrigado.

Olá, vinnycassis.

Entendi sim.

Foi você quem construiu esse sistema?
Pergunto porque muitos outros problemas vão surgir pelo que vi. Não apenas esse que você apontou.

Abs.

Oi Jair, entendi....

Na verdade, o Form FrontPage com as tabelas fui eu quem fiz.... baseado no que preciso....
O outros Forms adpatei-os no Sistema, através de exemplos que fui pesquisando.


Então, para o que eu preciso, não teria jeito?

Obrigado!

vinnycassis,

Pelo que vi no seu aplicativo, a restrição à edição não está sendo definida no evento que corrigimos.
Me parece que existem outros procedimentos que fazem isso.
Nesse caso, se você construiu o sistema assim, deve saber onde foi colocada essa restrição.
Agora, se você já pegou o sistema feito e fez apenas algumas adaptações e, como você mesmo afirmou, tem pouca experiência com Access, eu creio que o melhor seria reconstruí-lo do zero, dentro das regras corretas para atender à necessidade a que se destina.

Vamos ver se algum outro colega pode lhe ajudar.

Caso isso não aconteça, melhor começar um novo aplicativo (preservando os dados existentes, se necessário), porque o atual pode se tornar uma colcha de retalhos, com procedimentos que mais vão atrapalhar do que realmente cumprir algum objetivo definido.

Abs.

Entendi Jair.


Mas você não teria outra ideia de criar um registro a partir de outro (duplicar), após retornar o resultado de uma pesquisa?
Ou no Form de Consulta, eu conseguiria criar um registro a partir de um que eu selecione?

Por favor, veja se consegue me ajudar. Aceito qualquer ajuda.

Obrigado!

Prezados,
Boa tarde...

Alguém conseguiria me ajudar?



Obg!

Jair,
Boa noite...

vc tem skype? poderia me dar um help, de repente, pelo skype?
Se tiver, me add >> vinnycassis



Abs!

Bom tarde, vinnycassis.

Acho melhor compartilhar as dúvidas e possíveis soluções por aqui. Dessa forma, outros desenvolvedores também poderão se beneficiar.
Peço desculpas por não entrarmos em contato particularmente. A não ser que você queira se tornar meu cliente. Aí é outra história.

E aí, resolveu se vai recomeçar do zero?

Oi Jair,

Bom, na verdade não gostaria de recomeçar do zero não. Gostaria de aproveitar o que já foi feito.
Se não tiver jeito de resolver essa questão da duplicidade no Form de Consulta, paciência.....
Obrigado!

Pessoal,
Boa noite.

Teria jeito de eu fazer duplicidade de um resultado num Formulário de Consulta?
OBS: o Formulário de Consulta que tenho é semelhante ao deste link >> https://www.youtube.com/watch?v=jxCTcGrcSjM

Então, eu gostaria de após selecionar o registro da consulta, clicar em um botão e o mesmo retornar para um outro Formulário possibilitando a edição dos dados copiados, como se fosse uma espécie de função "Criar a partir deste..."
Entenderam a minha questão?


Poderiam me ajudar por favor? Alguém deste Fórum teria algum exemplo pronto para que eu pudesse verificar? Não sei como fazer isso.

Obrigado!


Vinícius.

Prezados,

Alguém daqui deste Fórum conseguiria me ajudar?
Obrigado!




Att,
Vinícius.

Bom dia, prezados deste Forum...

Alguém daqui conseguiria me ajudar?
Obrigado!

Vinny

Tentei baixar teu exemplo, mas já não estava disponível, procure deixar o exemplo

até o tópico ser solucionado, ok?


É essa imagem que postou?





Horrível, né?

Veja nesse post, na minha assinatura como colocar a imagem no post, assim como eu fiz,

é fácil, e mesmo que fosse um tanto trabalhoso, para quem quer ser programador, é

"A piece of Cake"

Tem duas maneiras de tirar ss ou print da tela, usando a tela PrintScreen (acima da tecla Insert, no desktop).

A outra, a que mais gosto e que vem com o Windows,  é a Ferramenta de captura, a qual pode-se selecionar a área

que se quer capturar.

Digite esse nome no executar do windows.

Bem, experimente isso em cada caixa de texto do formulário que deseja duplicar os dados no novo registro.

Me!NomeDacaixaDeTexto.DefaultValue = Me!NomeDacaixaDeTexto

Isso irá funcionar um formulário normal (não contínuo) e dependendo da consulta da fonte de registro dele.

Experimente,

Coloque em uma ou duas caixas de texto para testar.



[ ]'s

Vinny

Resolveu?

Oi Noobezinho...
Boa tarde.

Não testei ainda não... Vou verificar ainda.

E este Form que gostaria de replicar algum campo (quando selecionado) é o mesmo utilizado neste link (o que mudam são os valores das tabelas e as tabelas, mas a lógica é a mesma, pois quis que o campo de pesquisa funcionasse dessa fomra) >> https://www.youtube.com/watch?v=jxCTcGrcSjM


Segue print abaixo:










Obrigado!