Originally Posted by
ruthib4
Hello All,
I need your help, i have the following code:
Private Sub Summary()
Dim Rst As ADODB.Recordset
Dim strQuery As String
Dim Temp As Variant
Dim N As Long
dim fecha2 as Date
fecha2 = Forms!Apertura!cmdFecha
Set Rst = New ADODB.Recordset
strQuery = "SELECT [Itaca Cards].País, Sum(TCpaises![Cambio Medio]*[Itaca Cards]![Real OK]/1000000), " & _
"Sum(TCpaises![Cambio Medio]*[Itaca Cards]![Presupuestado OK]/1000000)" & _
"FROM [Itaca Cards] INNER JOIN TCpaises ON [Itaca Cards].País = TCpaises.[País Tipo de Cambio] " & _
"WHERE ((([Itaca Cards].Descripción) = 'Orex fraude' And " & _
"(([Itaca Cards].Fecha) >= #1/1/2011# And ([Itaca Cards].Fecha) <= " & fecha2 & ") " & _
"And (([Itaca Cards].Negocio) = 'ecr' Or ([Itaca Cards].Negocio) = 'edb'))) GROUP BY [Itaca Cards].País;"
Rst.Open strQuery, CurrentProject.Connection, adOpenStatic, adLockOptimistic
Temp = Rst.GetRows
With Me
.ar1 = Temp(0, N)
.ar2 = Temp(1, N)
.ar3 = Temp(2, N)
.ar4 = Temp(3, N)
.ar5 = Temp(4, N)
.ar6 = Temp(5, N)
.ar7 = Temp(6, N)
End With
Rst.Close
Set Rst = Nothing
End Sub
I am getting an error '3021'. "Either BOF or EOF is true, or the current record has been deleted. Requested operation requires a record"
What is wrong here?
Thanks in advance