Amigos.. nesta expressão esta a dar este erro,.. se puderem me ajuda fico grato
Set rst = dbs.OpenRecordset("select * from Fotos_Detentos " & _
"IN '" & StrPath & "'" & _
"where IDFoto=" & Me!ID)
If EstaVazio(Me!ID) = False Then
If MsgBox("Tem certeza de que deseja excluir a(s) foto(s) do detento " & Me!NomeDetento & " ?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Exclusão de Foto de Detento") = vbYes Then
Select Case mFoto
Case 0
DelArq VerifApostrofe(rst!CaminhoFotoRosto)
dbs.Execute "update Fotos_Detentos " & _
"set caminhofotorosto=Null " & _
"Fotos_Detentos where IDFoto=" & Me!ID
Set rst = dbs.OpenRecordset("select * from Fotos_Detentos " & _
"IN '" & StrPath & "'" & _
"where IDFoto=" & Me!ID)
If EstaVazio(Me!ID) = False Then
If MsgBox("Tem certeza de que deseja excluir a(s) foto(s) do detento " & Me!NomeDetento & " ?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Exclusão de Foto de Detento") = vbYes Then
Select Case mFoto
Case 0
DelArq VerifApostrofe(rst!CaminhoFotoRosto)
dbs.Execute "update Fotos_Detentos " & _
"set caminhofotorosto=Null " & _
"Fotos_Detentos where IDFoto=" & Me!ID