CommonDialog

[coldcase 0]

Quero fazer um botão que quando clicado, abra o commondialog e o usuário indica uma foto. Feito isso o campo Foto recebe o caminho da foto selecionada.

 

Fiz assim:

Private Sub cmdModificar_Click()	CommonDialog1.InitDir = App.Path	CommonDialog1.DefaultExt = "*.*"	CommonDialog1.ShowOpen	Adodc1.Recordset(Foto) = CommonDialog1.FileName

Mas o erro acontece nessa linha:

 

Adodc1.Recordset(Foto) = CommonDialog1.FileName

 

o que está errado?

[luiz humberto 0]

Qual erro que retorna ?

[coldcase 0]

Run-Time Error '3265':O ítem não pode ser encontrado na coleção correspondente ao nome ou ao ordinal socilitado.O erro acontece tanto se eu selecionar uma foto, quanto se eu der cancel no commondialog.

[eriva_br 7]

o que você tem nesta variavel FotoAdodc1.Recordset(Foto) será que naum tem que ser assim:Adodc1.Recordset("Foto")

[luiz humberto 0]

O erro indica que não foi encontrado o campo em questão, faça da seguinte forma:

 

Adodc1.Recordset.Fields("Foto").Value = CommonDialog1.FileName

Também pode referenciar o campo, por sua ordem numérica na tabela.

[coldcase 0]

Deu certo!!!Muito obrigado mesmo amigo! Não sabe o quanto me ajudou...Se algum moderador quiser, pode fechar esse topico.[]´s