como copiar um valor numerico de uma combobox para a outra utilizando codigo vba

Amigos boa noite!
Estou tentando copiar com o auxilio do vba uma coluna que está dentro de uma combobox para outra combobox.
O mesmo não me retorna o valor que preciso.


o Campo tblCardapio e IDPJ é uma combobox

O campo tblCardapio tem uma coluna oculta e a IDPJ não.

O sql está funcionando conforme esperado mais o restante não.


Este é o codigo que estou utilizando;


Option Compare Database

Private Sub ComPFPJ_AfterUpdate()

If Me.ComPFPJ <> "" Then
Me.tblCardapio = Me.IDPJ
Me.tblProdutos = Empty
Me.tblCardapio = Empty
End If
End Sub

Private Sub tblProdutos_AfterUpdate()

If Me.tblProdutos <> "" Then
Me.tblCardapio.RowSource = "SELECT tblCardapio.IDc, tblCardapio.IDPJC, tblCardapio.tblGrupo, tblCardapio.PJPF, tblCardapio.ValorUnitario, tblCardapio.DataUltCompra FROM tblCardapio WHERE tblCardapio.IDPJC =IDPJ and tblCardapio.tblGrupo=txtProdutoGrup and tblCardapio.PJPF=ComPFPJ ; "
End If

Me.tblCardapio.Column(1) = Me.IDPJ.Column(0)
End Sub



Desde já agradeço

Olá Marcio

Antes de tudo, seria bom dar uma olhadinha nas dicas para iniciantes (não só) ali na ultima linha da minha assinatura.
tblProdutos = é nome de uma tabela
cboProduto ou comProdutos = nome de uma combobox  de produto da tblProdutos.
É bom ver sobre isso , para não te confundir e nem a outros que irão ler teu código.




Private Sub ComPFPJ_AfterUpdate()

If Isnull(Me.ComPFPJ) or  Me.ComPFPJ <> "" Then '  Aspas duplas juntas = vazio(Empty) que é diferente de nulo (Null) e geralmente os campos sem dados são nulos.
   Me.tblCardapio = Me.IDPJ
   Me.tblProdutos = Null
   Me.tblCardapio = Null

End If
End Sub

Mas creio que somente isso não irá te ajudar.

O ideal é anexar os formulários e tabelas envolvidas para a gente poder analisar.
O fórum só aceita arquivos.zip como anexo, veja na minha assinatura como fazer esses arquivos com o winrar, caso não saiba.

Abraços

Noob

Olá Noobezinho, agradeço pela sua atenção.

Realmente eu não coloquei as referencias conforme sua explicação, pois este formulario é um teste para um formulário continuo que irei fazer.

dentro do que eu preciso solucionar é a relação entre os campos tblCardapio e IDPJ, onde ambos são campos combobox.

Eu preciso que o campo tblCardapio receba o valor contido no campo IDPJ logo apos o procedimento SQL.
a informação que eu tinha colocado no exemplo abaixo foi corrigido pois o campo não pode receber o valor apos o procedimento abaixo.

Option Compare Database

Private Sub ComPFPJ_AfterUpdate()

If Me.ComPFPJ <> "" Then
Me.tblCardapio = Me.IDPJ
Me.tblProdutos = Empty
Me.tblCardapio = Empty
End If
End Sub

Corrigido ficou assim

Option Compare Database

Private Sub ComPFPJ_AfterUpdate()

If Me.ComPFPJ <> "" Then
Me.tblProdutos = Empty
Me.tblCardapio = Empty
End If
End Sub

O procedimento que preciso que gere o resultado é este;

Private Sub tblProdutos_AfterUpdate()

If Me.tblProdutos <> "" Then
Me.tblCardapio.RowSource = "SELECT tblCardapio.IDc, tblCardapio.IDPJC, tblCardapio.tblGrupo, tblCardapio.PJPF, tblCardapio.ValorUnitario, tblCardapio.DataUltCompra FROM tblCardapio WHERE tblCardapio.IDPJC =IDPJ and tblCardapio.tblGrupo=txtProdutoGrup and tblCardapio.PJPF=ComPFPJ ; "
End If

Me.tblCardapio.Column(1) = Me.IDPJ.Column(0)

End Sub

Então é isso, espero que agora esteja bem apresentado.