[Resolvido]Objeto não Acoplado (Formulário) - Ao Clicar duas vezes

Boa tarde!

Tenho um formulário que realiza buscas em uma tabela chamada ESCC002.

Quando aparece os registros, preciso de que, quando clicar duas vezes, esse registro selecionado seja copiado e inserido na tabela ESCC002_RECEBIDO.

Se possível, peço ajuda de todos.

Poderia usar um insert tem como postar as duas tabelas e o form para eu dar uma olhada?

Dá uma olhada no meu banco de dados.

Na primeira consulta...Ao clicar duas vezes ele Copie os dados e insira na tabela ESCC002_Recebidos.

Se puder me ajudar, agradeço.

Fiz o primeiro como exemplo para vc completar o seu código.

Na ListaLocalizar ao clicar 2x coloque o código:

Código:

Dim Pim, NuMOrdem, NumPedido, DataEntrega As String

    If IsNull(ListaLocalizar.Column(0)) Then
        MsgBox ("Selecione Um produto"), vbInformation
        Exit Sub
    End If

Pim = ListaLocalizar.Column(0)
NuMOrdem = ListaLocalizar.Column(1)
NumPedido = ListaLocalizar.Column(2)
DataEntrega = ListaLocalizar.Column(3)

    If DCount("Pim", "ESCC002_PedidosRecebidos", "Pim =" & Pim) Then
        
                       MsgBox (" O Pim de Número '" & ListaLocalizar.Column(0) & "'") & "" & (" Já Está Cadastrado")
        Exit Sub
        
        Else
        
        CurrentDb.Execute "Insert Into ESCC002_PedidosRecebidos (Pim,NuMOrdem,NumPedido,DataEntrega) Values" _
        & "(""" & Pim & """,""" & NuMOrdem & """,""" & NumPedido & """,""" & DataEntrega & """)"
        ListadeItensRecebidos.Requery
              
        MsgBox (" O Pim de Número '" & ListaLocalizar.Column(0) & "'") & "" & (" Foi Cadastrado com Sucesso!"), vbInformation
    
    End If

End Sub


Dai é só ir seguindo com os outro campos.


Abraço.

Cara, ficou melhor que eu esperava e funcionou perfeitamente no que eu precisava.

Muito Obrigado!!

Coloco este tópico como resolvido!

O Fórum agradece o retorno.
Click em Legal para ajudar

Boa noite!

Só mais uma questão que nasceu:

Quando eu clicar "duas vezes", a data atual possa registrar na linha copiada e inserida na tabela ESCC0002_Recebidos....

Não estou conseguindo...

Obrigado.

Opa boa noite estou ainda no trampo e vou chegar na madruga dai dou uma olhada ok?
Vc quer inserir a data atual de onde e em qual campo da tabela?

Bom vou ler com calma quando chegar ok estou um pouco enrolado aqui
Abração amigo.

Boa noite!

A data atual do sistema, por exemplo: 25/02/2014 - 09:34.

Inserir num campo que eu criei na tabela EScc002_Recebidos, chamado - DataRecebimento.

Valew a Ajuda!!

Veja

Código:

Private Sub ListaLocalizar_DblClick(Cancel As Integer)

Dim Pim, NuMOrdem, NumPedido, DataEntrega As String
Dim data As String
data = Date
    If IsNull(ListaLocalizar.Column(0)) Then
        MsgBox ("Selecione Um produto"), vbInformation
        Exit Sub
    End If

Pim = ListaLocalizar.Column(0)
NuMOrdem = ListaLocalizar.Column(1)
NumPedido = ListaLocalizar.Column(2)
DataEntrega = ListaLocalizar.Column(3)

    If DCount("Pim", "ESCC002_PedidosRecebidos", "Pim =" & Pim) Then
        
        'MsgBox ("Pim Cadastrado"), vbInformation
                MsgBox (" O Pim de Número '" & ListaLocalizar.Column(0) & "'") & "" & (" Já Está Cadastrado")
        Exit Sub
        
        Else
        
        CurrentDb.Execute "Insert Into ESCC002_PedidosRecebidos (Pim,NuMOrdem,NumPedido,DataEntrega,DataRecebimento) Values" _
        & "(""" & Pim & """,""" & NuMOrdem & """,""" & NumPedido & """,""" & DataEntrega & """,""" & data & """)"
        ListadeItensRecebidos.Requery
              
        MsgBox (" O Pim de Número '" & ListaLocalizar.Column(0) & "'") & "" & (" Foi Cadastrado com Sucesso!"), vbInformation
    
    End If

End Sub


criei uma variável inseri a data do sistema Data = date e coloquei a váriavel no insert

Abraço

PS: data + Hora

data = Date & " " & Time

Simplesmente Perfeito!

Obrigado.


---

Tem como, em vez de recalcular e aparecer todos os registros RECEBIDOS, ele usar o critério na CAIXABUSCA?

Pra ficar selecionado o PIM inserido?

Acho que entendi o que quer.

Só listar na ListadeItensRecebidos os itens que estiverem marcado na tabela ESCC002_PedidosRecebidos.Recebido= true isso?

Por exemplo:

Quando digito a informação que eu quero que ele filtre, ele pesquisa e mostra as informações da duas tabelas nos objetivos não acoplados 1 e 2.

Quando eu clicar duas vezes no objeto não acoplado 1, ele vai executar meu código para copiar os dados (aquele que já fizemos) - quando ele termina a execução do código, o objeto não acoplado, "desfiltra", ou seja, não recebe filtro da informação desejada.

O que eu preciso, é que mesmo quando ele "recalcule" o objeto não acoplado 2, mantenha o filtro da informação digitada.

João Comece um novo tópico com esta questão e coloque as partes do bd em questão pois, perdi o que tinha aqui no notbook.

Abraço.

Ok.

Obrigado.