Olá, estou com problema no uso do combo, bom tenho um cadastro onde  utilizo para preencher automaticamente esta rotina abaixo que está dentro da sub preencher, meu problema é que quando passa na llinha cbprazo.ItemData(cbprazo.NewIndex) = Data2.Recordset!prazo onde trava me mostrando a mens. de type mismatch, porém esta rotina em outro programa funcionou normal e agora neste esta rotina nao funcionou. desde já agradeço a atenção.

 

            Data2.Recordset.MoveMin
            Do While Not Data2.Recordset.EOF
                cbprazo.AddItem Data2.Recordset!prazo
                cbprazo.ItemData(cbprazo.NewIndex) = Data2.Recordset!prazo
                Data2.Recordset.MoveNext
            Loop

o campo Data2.Recordset!prazo pode estar nulo

 

faça o seguinte

 

iif(isnull(Data2.Recordset!prazo),"0",Data2.Recordset!prazo

acho que resolver

Olá R3, bom dia.

 

Certifique-se de que o tipo de dado presente no campo "prazo" seja um número e que não esteja repetido dentro do seu cadastro. A propriedade ItemData tem como função principal indexar o conteúdo do seu combo, então, obrigatóriamente seu valor deve ser numérico e não pode conter valores repetidos.

No seu caso, vejo que está utilizando o mesmo campo que aparecerá na lista do combo para indexá-lo no ItemData, talvez o problema esteja aí. Por acaso, você não teria um campo codigo nesta tabela? Acredito que isto solucionaria o problema.

 

Espero ter ajudado.

 

Galera, obrigado foi falta de atenção minha, fiz na pressa ontem e fiquei quebrando a cabeça com algo óbvio. mesmo assim muitíssimo obrigado. fiz a compraração do código.