Preenchi o índice de uma combo box da seguinte maneira :

 

  .ItemData(.NewIndex) = rstProdutos!Codigo

 

como faço para posiciona a combo em um determinado código.

 

Usado cboProdutos.listindex = rstprodutos!codigo não estou conseguindo.

 

Grato pela atenção,

 

Olá Edson, bom dia.

 

Utilize a propriedade ItemData para posicionar no codigo desejado.

Ex:

cboProdutos.ItemData(cboProdutos.ListIndex) = rstProdutos!Codigo

 

Vc pode criar um loop onde você testa todos os itens do seu combo comparando-os ao código desejado:

 

Dim n As Integer

For n=0 to cboProdutos.ListCount -1

    If cboProdutos.ItemData(n) = rstProdutos!Codigo Then

          cboProdutos.ListIndex = n

          Exit For

    End If

Next

 

Espero ter ajudado.

 

Alê, a segunda opção funcionou legal. A primeira deu erro de read-only.

Grato pela atenção,

Feliz Natal e bom ano-novo.

Que a paz de Deus esteja com voce e os seus.