What does the message box say after executing the following code?
New lines are Blue.
Record count should be 0 or 1
Code:
Private Sub summary()
Dim Rst As ADODB.Recordset
Dim cn As ADODB.Connection
Dim strQuery As String
Dim Temp As Variant
Dim N As Long
Dim m As Integer
Fecha3 = SQLDate(reportdate1)
FechaDesde = SqlDate1(reportdate2)
Set Rst = New ADODB.Recordset
strQuery = "SELECT [itaca cards]!país, Sum(TCpaises![Cambio Medio]*[Itaca Cards]![Real OK]/-1000000) AS [Real OK TC],"
strQuery = strQuery & " Sum(TCpaises![Cambio Medio]*[Itaca Cards]![Presupuestado OK]/-1000000) AS [Presup OK TC]"
strQuery = strQuery & " FROM [Itaca Cards] INNER JOIN TCpaises ON [Itaca Cards].País = TCpaises.[País Tipo de Cambio]"
strQuery = strQuery & " WHERE ((([Itaca Cards].Descripción)=""orex fraude"")"
strQuery = strQuery & " AND (([Itaca Cards].Fecha) between " & FechaDesde & " And " & Fecha3 & ")"
strQuery = strQuery & " AND (([Itaca Cards].Negocio)= ""ecr"" Or ([Itaca Cards].Negocio)= ""edb""))"
strQuery = strQuery & " GROUP BY [Itaca Cards].País;"
Rst.Open strQuery, CurrentProject.Connection, adOpenStatic, adLockOptimistic
'----------------------
MsgBox "Record count = " & Rst.RecordCount 'comment out or delete after debugging
'----------------------
If (Rst.BOF And Rst.EOF) Then
MsgBox "No records"
Else
Temp = Rst.GetRows
With Me
.ar1 = Temp(1, N)
.ar2 = Temp(2, N)
.br1 = Temp(1, N + 1)
.br2 = Temp(2, N + 1)
.ch1 = Temp(1, N + 2)
.ch2 = Temp(2, N + 2)
.co1 = Temp(1, N + 3)
.co2 = Temp(2, N + 3)
.es1 = Temp(1, N + 4)
.es2 = Temp(2, N + 4)
.us1 = Temp(1, N + 5)
.us2 = Temp(2, N + 5)
.me1 = Temp(1, N + 6)
.me2 = Temp(2, N + 6)
.po1 = Temp(1, N + 8)
.po2 = Temp(2, N + 8)
.pol1 = Temp(1, N + 7)
.pol2 = Temp(2, N + 7)
.pu1 = Temp(1, N + 9)
.pu2 = Temp(2, N + 9)
.uk1 = Temp(1, N + 10)
.uk2 = Temp(2, N + 10)
End With
End If
Rst.Close
Set Rst = Nothing
End Sub