Bom dia!
Gostaria de ajuda, criei um cadastro de cliente. Tenho que anexar frente e verso dos documentos.
Coloquei o seguinte código:
Private Sub Form_Current()
On Error GoTo Limpa
If IsNull(Me.Foto_DocFrente) = False Then
Me.Frente.Picture = Me.Foto_DocFrente
Else
Me.Frente.Picture = ""
End If
Sai:
Exit Sub
Limpa:
Me.Foto_DocFrente = Null
Me.Frente.Picture = ""
Resume Sai
On Error GoTo LimpaVerso
If IsNull(Me.Foto_DocVerso) = False Then
Me.Verso.Picture = Me.Foto_DocVerso
Else
Me.Verso.Picture = ""
End If
SaiVerso:
Exit Sub
LimpaVerso:
Me.Foto_DocVerso = Null
Me.Verso.Picture = ""
Resume SaiVerso
Me.Refresh
End Sub
Frente ok
Verso aparece em todos
Fiz um TB com dois campos ID, Frente e Verso
Gostaria de ajuda, criei um cadastro de cliente. Tenho que anexar frente e verso dos documentos.
Coloquei o seguinte código:
Private Sub Form_Current()
On Error GoTo Limpa
If IsNull(Me.Foto_DocFrente) = False Then
Me.Frente.Picture = Me.Foto_DocFrente
Else
Me.Frente.Picture = ""
End If
Sai:
Exit Sub
Limpa:
Me.Foto_DocFrente = Null
Me.Frente.Picture = ""
Resume Sai
On Error GoTo LimpaVerso
If IsNull(Me.Foto_DocVerso) = False Then
Me.Verso.Picture = Me.Foto_DocVerso
Else
Me.Verso.Picture = ""
End If
SaiVerso:
Exit Sub
LimpaVerso:
Me.Foto_DocVerso = Null
Me.Verso.Picture = ""
Resume SaiVerso
Me.Refresh
End Sub
Frente ok
Verso aparece em todos
Fiz um TB com dois campos ID, Frente e Verso