[Resolvido]Copiar registro do último form para um novo formulário.

Eloi 1/6/2011, 12:36

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº1

[Resolvido]Copiar registro do último form para um novo formulário.

Mensagem Eloi 1/6/2011, 12:36

Bom dia a todos.
Novamente estou precisando de ajuda de vocês. Fiz uma busca deste fórum e não consegui o que queria, a questão é : Tenho um formulário de castrado de imóveis, nele cadastro os tipos de paredes, pisos, cobertura etc... As vezes tem situação em que um novo imóvel possuem as mesmas características do último imóvel cadastrado, nesse caso queria colocar um botão no formulário para que o mesmo inserisse os dados do imóvel anterior.
Espero ter sido claro na minha discrição.
Fico a espera da ajuda de vocês,
Eloi

criquio 1/6/2011, 12:59

criquio

criquio: Moderador Global; Respeito às regras :

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

Mensagem nº2

Re: [Resolvido]Copiar registro do último form para um novo formulário.

Mensagem criquio 1/6/2011, 12:59

Me.Campo1 = DLookup("Campo1DaTabela", "NomeDaTabela", "Código=" & Me!Código)
Me.Campo2 = DLookup("Campo2DaTabela", "NomeDaTabela", "Código=" & Me!Código)
...

Acredito que seja por aí. Tente e retorne.

Última edição por criquio em 4/6/2011, 14:38, editado 1 vez(es)

.................................................................................

Meu novo site: www.vcssistemas.com.br

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.

Eloi 4/6/2011, 13:21

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº3

Copiar registro do último form para um novo formulário.

Mensagem Eloi 4/6/2011, 13:21

Criquio, bom dia.

Deculpa por não ter dado noticias antes. O código que vc enviou não deu certo para essa minha questão, ele é aplicado para duplicar registro na mesma tabela ou de uma tabela para outra?, os outros campos eu subistituir legal agora fiquei em dúvida sobre o seu campo CÒDIGO.tt.

Att.

Eloi

criquio 4/6/2011, 14:43

criquio

criquio: Moderador Global; Respeito às regras :

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

Mensagem nº4

Re: [Resolvido]Copiar registro do último form para um novo formulário.

Mensagem criquio 4/6/2011, 14:43

Acho que o que você quer é abrir um formulário e nele trazer os campos do formulário anterior, é isso mesmo? Vamos supor que você tenha os campos Nome, Telefone e CPF no formulário que já está aberto e vai abrir um formulário de nome frmNovoRegistro com os campos txtNome, txtTelefone e txtCPF:

DoCmd.OpenForm "frmNovoRegistro"
Forms!frmNovoRegistro!txtNome = Me.Nome
Forms!frmNovoRegistro!txtTelefone = Me.Telefone
Forms!frmNovoRegistro!txtCPF = Me.CPF

Acho que é isso mesmo.

.................................................................................

Meu novo site: www.vcssistemas.com.br

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.

Assis 4/6/2011, 15:02

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº5

Re: [Resolvido]Copiar registro do último form para um novo formulário.

Mensagem Assis 4/6/2011, 15:02

Eloi
Num click de um Botão

Me.NomeDoCampo a Repetir = Nz(DLast("NomeDoCampo a RepetirNaTabela", "NomedaTabela"))
Me.TipoEstampagem = Nz(DLast("tipoestampagem", "Produtos"))
Me.Cliente = Nz(DLast("cliente", "Produtos"))

E repete isto para todos os campos que quer repetir

.................................................................................
*** Só sei que nada sei ***

Eloi 5/6/2011, 15:13

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº6

Copiar registro do último form para um novo formulário.

Mensagem Eloi 5/6/2011, 15:13

Bom dia! a todos, principalmente a Criquio e Assis.
Agora estou sem tempo de apreciar os seus códigos, depois retonarei.

Abraços

Eloi

criquio 5/6/2011, 15:17

criquio

criquio: Moderador Global; Respeito às regras :

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

Mensagem nº7

Re: [Resolvido]Copiar registro do último form para um novo formulário.

Mensagem criquio 5/6/2011, 15:17

Certo. Aguardaremos.

.................................................................................

Meu novo site: www.vcssistemas.com.br

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.