Escrevi um código q esta colocado dentro do evento click da dbgrid.

Só q o evento só dispara depois q eu dou o segundo click na DBgrig

 

O código é o seguinte:

 

On Error GoTo DBGrid1_Click_ERR

Dim TB_TEMP_FOTO As Recordset

Set TB_TEMP_FOTO = MASTER.OpenRecordset("Select FOTOS from PRODUTOS where CODIGO =" & DBGrid1.Columns("Código"))

If Not TB_TEMP_FOTO.EOF And Not TB_TEMP_FOTO.BOF Then
Call Redimencionar(Image1, Picture1, TB_TEMP_FOTO!FOTOS)
End If

TB_TEMP_FOTO.Close
Set tb_temp_fotos = Nothing

DBGrid1_Click_ERR:

If Err = 94 Then
    Resume Next
End If

 

Alguem pode me ajudar???

 

Agradeço desde já

 

Fala companheiro Knight,

Coloque seu codigo dentro da private abaixo :

 

Private Sub DBGrid1_Click()

 

end sub

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS

 

É nesse evento q esta.

BOM DIA !!!

 

Desative o On Error, pois deve estar gerando algum erro diferente de 94 consequentemente voce não percebe, achando que não entra na rotina !!!

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS