Ao executar o código abaixo da erro tipo incompatível:
- Código:
Private Sub Form_AfterInsert()
Dim DB As DAO.Database
Dim RsCaixa, RSCC As DAO.Recordset
Dim N As Long
Set DB = CurrentDb()
Set RsCaixa = DB.OpenRecordset("TbCaixa")
Set RSCC = DB.OpenRecordset("TbCaixCtrl")
Set RS = Me.RecordsetClone
With RSCC
.FindFirst "[PagoQuando]=#" & Date & "#" 'nesta linha apresenta erro
If .NoMatch Then
!Data = Date
End If
N = !CodCaixaCtrl
End With
RSCC.Close
Set RSCC = Nothing
With RsCaixa
.AddNew
!CodCaixCtrl = N
!Categoria = 2
!Documento = 4
!EntrSaid = 1
!Tipo = 5
Form_Form_AssistDet.[CodCaixaVinc] = !CodCaixa
.Update
End With
MsgBox Form_Form_AssistDet.Operacao & " Ordem de Serviço " & Format(Form_Form_AssistDet.[OS], "##,###") & Chr(13) & " lançado no Caixa com sucesso!"
'Limpa variáveis
RsCaixa.Close
Set RsCaixa = Nothing
DB.Close
Set DB = Nothing
N = 0
End Sub