[QUOTE]RUN-TIME ERROR 3704
Citação:Set RS = New ADODB.Recordset
Set rs5 = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open (cnSQL)
RS.Open [Ô]SELECT * FROM fechacaixa WHERE data_venda = #[Ô] & Date & [Ô]#[Ô], con, adOpenKeyset, adLockOptimistic
If RS.EOF <> True And RS.BOF <> True Then
With RS
.Fields([Ô]total_dia[Ô]) = RS.Fields([Ô]total_dia[Ô]) + CDbl(Me.txtvenda.Text)
.Update
.Close
End With
Set RS = Nothing
Set con = Nothing
Else
rs5.Open [Ô]Select * from fechacaixa[Ô], con, adOpenKeyset, adLockOptimistic
With rs5
.AddNew
.Fields([Ô]data_venda[Ô]) = Me.lbldate
.Fields([Ô]total_preço[Ô]) = Me.txtvenda
.Fields([Ô]total_dia[Ô]) = Me.txtvenda
.Update
.Close
End With
Set rs5 = Nothing
Set con = Nothing
End If
Unload Me
Unload frmvendas
Esse codigo funcionava muito bem ... até eu compilar o programa ... depois disso não soma mais ...da o erro:
Citação:Run-Time error [ô]3704[ô] :Operação não permedita qndo o objeto esta fechado
A linha que aponta o erro é a:
Citação:If RS.EOF <> True And RS.BOF <> True Then
Já até tentei :
Citação:If Not RS.EOF Then
Mas da o mesmo erro ..... por favor aguem m ajuda!!!!!!!
Desde Já Agradeço e Muiiiiiiiiiiitoooooooooo!!!!!!!!
Já resolvi esse problema para quem tiver a mesma dificuldade abaixo oque resolveu para mim ....
Citação:RS.Open [Ô]SELECT * FROM fechacaixa WHERE data_venda = #[Ô] & Date & [Ô]#[Ô], con, adOpenKeyset, adLockOptimistic
essa linha substitui por:
Citação:RS.Open [Ô]Select * from dinheiro where data= #[Ô] & Format(lbldate, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô], con, adOpenKeyset, adLockOptimistic
e essa:
Citação:If RS.EOF <> True And RS.BOF <> True Then
With RS
.Fields([Ô]total_dia[Ô]) = RS.Fields([Ô]total_dia[Ô]) + CDbl(Me.txtvenda.Text)
.Update
.Close
End With
Set RS = Nothing
Set con = Nothing
Por essa:
Citação:If RS.EOF <> True And RS.BOF <> True Then
RS.Fields([Ô]totaldia[Ô]) = RS.Fields([Ô]totaldia[Ô]) + CDbl(Me.txtvenda.Text)
RS.Update
RS.Close
End If
obrigada!!!!
Forte Abraço!!!!