Socorro - Clonar Registros

Bom dia cara

Me ajude novamente pois estou necessitando que a minha tabela que estou mandando o banco de dados em anexo (Tabela: Cadastro de LQ), ele faça o seguinte:

Trabalho com cadastrar de LQ e tem LQ que possui varios materiais e posições sendo assim a necessidade de clonar alguns dados para o novo cadastro.

To necessitando que quando eu digitar no novo cadastro o nr la LQ o sistema verifique se já exite alguma com essa nr se nao existir todos os campos continuaram em branco pq e cadastro novo, agora se eu ja cadastrei um produto com uma nr de LQ e for cadastrar outro produto da mesma nr da LQ o sistema ira clonar automaticamente para o novo cadastro ficando somente em branco para eu digitar os seguintes campo
* Posição
* Quant
*Peso Unit
*Peso Total
*Taga

O que é LQ? Não seria melhor você ter uma tabela para cadastrar LQ com seus respectivos atributos? Ficaria mais fácil você referenciar isso através de uma combo, DLookup, RecordSet ou SQL.

Car me passe seu e-mail para eu te mandar o banco de dados para que vc possa entender a tabela e ver o que pode ser feito para funcionar na forma que necessito.

Fico no aguardo

Criquio, melhor transferires o tópico para o local correcto pois está fora de órbita

Você pode fazer isso por aqui mesmo. Olha a dica na minha assinatura abaixo. Se compactar em zip e o arquivo ficar pequeno, pode postar como anexo na mensagem mesmo aqui no forum. Ou você pode tentar fazer o que quer tambem assim, no evento após atualizar do campo aonde vai digitar LQ:

If Not IsNull(DLookup("CampoLQ", "NomeTabela", "CampoLQ='" & Me!CampoLQdoForm & "'")) Then
Me.Campo1 = DLookup("Campo1", "NomeTabela", "CampoLQ='" & Me!CampoLQdoForm & "'")
Me.Campo2 = DLookup("Campo2", "NomeTabela", "CampoLQ='" & Me!CampoLQdoForm & "'")
Me.Campo3 = DLookup("Campo3", "NomeTabela", "CampoLQ='" & Me!CampoLQdoForm & "'")
Else
Exit Sub
End If

Verdade, amigo Vieira. Não tinha visto esse detalhe ainda. Tópico transferido para o local adequado.
Repositório de Exemplos se destina a postar apenas aplicativos de exemplo, não de dúvidas.

Favor me passe seu e-mail para eu mandar uma parte do banco de dados

ccsregistros@gmail.com

OBS.: Depois de resolvido, uma cópia será colocada aqui para consulta de outros membros que tiverem a mesma dúvida.

POr favor estou aguardando uma solução para o meu problema mas ate agora nada, por favor me ajudem

Amigo, estava aguardando uma posição sua, conforme mensagem que lhe enviei por email:

"É porque você mudou a fonte de origem do controle. Quando inserimos um valor dentro da caixa de texto, esse valor passa a ser a origem desse campo, desvinculando ele da tabela. Uma saída seria você colocar no Valor padrão do campo, na linha "Valor padrão" da aba "Detalhes" nas propriedades do campo. Mas nesse caso. talvez seja preciso ter uma condição para o valor padrão ser esse se já existir ele na tabela, pois ele precisa ser condicionado ao LM. Mas você pode tentar aí e ver no que resulta. Ainda estou envolvido com uns trabalhos aqui, mas se não conseguir aí, retorne."

Como você ainda não tinha retornado, imaginei que tinhas solucionado a questão. Só agora recebi seu novo email. Vou dar uma olhada aqui, OK?

Migo nao consegui seria bom se vc mesmo tenta-se ja que te mandei o banco de dados no e-mail anterior

Acabei de olhar aqui. Veja bem: está faltando algumas coisas essenciais em um banco de dados. Falta uma chave primária na sua tabela. Quando existem dados que podem ser comuns a vários registros, geralmente colocamos esses dados em uma tabela separada e linkamos essa tabela com a tabela principal, através da chave primária de uma e chave estranjeira da outra. A chave primária garante que cada registro seja único, evitando que uma consulta, por exemplo, retorne valores de um registro em outro. A chave primária pode ser auto numérica, pode ser um número próprio de cada registro, pode ser um número de cpf por exemplo. O importante é que cada registro tenha uma chave única para diferenciá-lo dos outros. Se você tiver uma tabela secundária que deve ser relacionada com a principal, essa tabela secundária tambem terá uma chave primária. A tabela principal terá, alem da chave primária, um outro campo chamado chave estranjeira. Esse campo é que será a ligação com a chave secundária e deve ser do mesmo tipo da chave primária da tabela secundária. Por exemplo, se a chave primária da tabela secundária for auto numeração, a cheve estranjeira da tabela principal que fará o link com aquele dado da secundária, deverá ser número. Procure ler alguma coisa sobre "Banco de dados relacional" e "Normalização de banco de dados". No google você encontra muita coisa sobre o assunto fácil fácil. Umas duas horas de estudo já lhe abrirá a mente para a forma correta de se montar um banco de dados.

Para o caso do seu aplicativo, você pode tentar o seguinte: deixe esse campo Nr da Lq que você tem oculto, crie um outro campo e coloque no lugar dele, de nome txtLM por exemplo. No evento "Após atualizar" desse campo, coloque assim:

If DCount("*", "[Cadastro de LQ]", "[Nr da LM]='" & Me!txtLM & "'") > 0 Then
Me.Nr_da_LM = Me.txtLM
Me.Campo1DoForm = DLookup("[Campo1DaTabela]", "[Cadastro de LQ]", "[Nr da LM]='" & Me!txtLM & "'")
Me.Campo2DoForm = DLookup("[Campo2DaTabela]", "[Cadastro de LQ]", "[Nr da LM]='" & Me!txtLM & "'")
Me.Campo3DoForm = DLookup("[Campo3DaTabela]", "[Cadastro de LQ]", "[Nr da LM]='" & Me!txtLM & "'")
End If

No exemplo acima, DCount irá contar o número de ocorrências de LM na tabela. Se for maior do que 0, preenherá os campos do form de acordo os campos do mesmo registro aonde ocorre a primeira LM igual ao digitado na caixa de texto que você criou. Campo1DaTabela deve ser substituído pelo campo da tabela que irá preencher o Campo1DoForm. Campo1DoForm será o campo preenchido pelo valor do Campo1DaTabela.
Mas reforço, melhor você dar uma estudada no que eu indiquei acima. Outra coisa, tente não colocar espaços nos nomes dos controles e elementos do seu banco de dados, para que não seja necessário colocá-los entre colchetes e nem preencher os espaços vazios com undeline(_), pois mesmo com esses procedimentos, poderá lhe causar dores de cabeça fururamente.