[Resolvido]Atualizar Dados na Combinação não Acoplada

Estou precisando atualizar uma C.Combinação com os valores apenas de uma linha e pesquisei um monte mas não consegui encontrar no fórum um caso igual, a situação é a seguinte:

MinhaCombo tem duas colunas sendo visível somente a segunda, sendo a primeira o código do item e a segunda a descrição...
Vou buscar estes na base e tenho eles nas seguintes variáveis:

CodItem
DescItem

Pelo pouco que encontrei nas pesquisas eu tentei assim:
Me.MinhaCombo.Colunm(0) = CodItem
me.MinhaCombo.Colum(1) = DescItem

Mas não deu certo...

Acho que deve ser bem básico, mas não sei como fazer....

A sua combo está vinculada a uma tabela ou é lista de valores ?

Pelo que entendi, você quer atualizar na tabela para mostrar na combo, é isso ?

Olá JPaulo!
Primeiro muito obrigado pela ajuda!

Por opção eu não trabalho com tabelas vinculadas, como conheço meio pouco de VBA eu optei por carregar tudo com SQL, DLookup... e salvo, altero e deleto com SQL... pois quando tentei trabalhar com tabelas vinculadas não consegui resolver o problema de o usuário entrar em um campo e digitar qualquer coisa e ao sair e esta "alteração" já ficava gravada automáticamente... aí pequei um modelo pelo fórum e acabei seguindo este caminho, pois achei que é mais seguro para os dados do Back End...

Apenas algumas consultas que carregam combos ou listas eu vinculo para não ficar repedindo...

Então quando clico na opção Novo Item (cadastrar) o form traz pelas consultas (algumas vinculadas e outras não) e preenche este combo com as opções, porém tenho a opção de Alterar e neste caso o usuário seleciona um item através de uma lista e ao clicar executa a seguinte instrução:

Código:


Private Sub Comando40_Click()

    If Not IsNull(Me.Codigo) Then

        Dim seq As String, k
        seq = "[Codigo]  & '|' &  [Grupo]  & '|' &  [TipoProduto] "
        seq = DLookup(seq, "tbl_FornecedorTipoProduto", "Codigo=" & Me.Codigo & " ")
        k = Split(seq, "|")
            
            Parent.Codigo.Value = k(0)
            Parent.GrupoProd.Value = k(1)
            Parent.TipoProduto.Value = k(2)

            Call Bloquear
            Parent.bt_Alterar.Enabled = True

    End If
        
End Sub

 

Anexei a tela deste exemplo para vc ter uma idéia dos campos...
Neste caso ambas as combos estão vinculadas a consultas para carregar dos dados e a segunda (Tipo) pega o valor da primeira (Grupo) como filtro...

Ocorre que quando o campo é simples atualiza tranquilo, mas quando o campo é uma combo fica em branco...

Já que faz pelo VBA e faz um DLookup à tabela, use esse mesmo raciocinio e faça um Update à tabela com um Requery para atualizar a sua combobox.

Paulo, acho que devido ao meu baixo conhecimento em VBA não entendi muito bem o que fazer....
O que pude observar é que no form da tela que enviei a combo Grupo ele atualiza e este não tem filtro algum... já a combo Tipo de Produto que tem filtro por grupo ele não atualiza... fiz o teste e retirei o filtro de grupo, aí atualiza normalmente....

Mostre-nos como ficou depois de tirar o filtro.

Ou anexe aqui parte do seu banco, será mais facil.

Descobri o que tava pegado... como padronizei a consulta então eu criei um campo oculto GrupoCtrl e TipoCtrl em que quando eu estou gravando eu atualizo eles conforme vai sendo preenchido o Form, então antes de atualizar o campo TipoProduto que filtrado por grupo eu atualizei o campo como pode ver baixo Parent.GrupoCtrl = Parent.GrupoProd...
Agora deu certo!
Muito obrigado pela ajuda e paciência JPaulo!
Valeu!



Private Sub Comando40_Click()

   If Not IsNull(Me.Codigo) Then

       Dim seq As String, k
       seq = "[Codigo]  & '|' &  [Grupo]  & '|' &  [TipoProduto] "
       seq = DLookup(seq, "tbl_FornecedorTipoProduto", "Codigo=" & Me.Codigo & " ")
       k = Split(seq, "|")
           
           Parent.Codigo.Value = k(0)
           Parent.GrupoProd.Value = k(1)
          Parent.GrupoCtrl = Parent.GrupoProd
           Parent.TipoProduto.Value = k(2)

           Call Bloquear
           Parent.bt_Alterar.Enabled = True

   End If
 
End Sub

Valew;

Nesses ocultos a nossa bola de cristal não enxerga mesmo.