As variaveis estão setadas, pq esta dando esse erro????
Dim foto As Field
Call LETPICTURE(foto, Image1)
___________________________________________________________
Public Sub LETPICTURE(F As Field, PIC As Control)
Dim X() As Byte
Dim N As Long
Dim FF As Integer
Dim STRARQTEMP As String
FF = FreeFile
STRARQTEMP = "c:TESTE"
SavePicture Image1.Picture, STRARQTEMP
Open STRARQTEMP For Binary Access Read As FF
N = LOF(FF)
If N Then
ReDim X(N)
Get FF, , X()
F.AppendChunk X() --> Erro 91 Object variable or With block variable not set
Close FF
End If
Kill STRARQTEMP
End Sub
Agradeço desde já
