Sporo izvršavanje kverija nad linkovanom tabelom

Code:
Parent.frmProdato.Form.RecordSource = "SELECT * FROM qryProdato WHERE [SIFRA] = '" & Me.[SIFRA] & "'"

Code:
SELECT '04534' AS SIFRAD, SIFRA_ART, SUM(KOL_RCN) AS SUMKOL, DATUM_RCN
FROM K15RCNZ INNER JOIN K15RACUNI ON (K15RCNZ.KUP_RCN = K15RACUNI.MAG) AND (K15RCNZ.BRRC_ZAG = K15RACUNI.BRRC_RCN)
GROUP BY SIFRA_ART, DATUM_RCN

UNION ALL
SELECT '04535' AS SIFRAD, SIFRA_ART, SUM(KOL_RCN) AS SUMKOL, DATUM_RCN
FROM K16RCNZ INNER JOIN K16RACUNI ON (K16RCNZ.KUP_RCN = K16RACUNI.MAG) AND (K16RCNZ.BRRC_ZAG = K16RACUNI.BRRC_RCN)
GROUP BY SIFRA_ART, DATUM_RCN

Code:
 
Private Sub cmdOpenQueryProdateFilter_Click()

Dim db As DAO.Database
Dim qDef As QueryDef

On Error GoTo ERROR_CODE:


SET db = GetCurrentDB
SET qdef = db.querydefs(qryProdatoFilter)

qdef.SQL = "SELECT * FROM qryProdato WHERE [SIFRA] = '" & Me.[SIFRA] & "'"

DoCmd.OpenQuery QueryNAme:=qryProdatoFilter

Exit_Here:
On Error Resume Next
Set db = Nothing
Set qDef = Nothing

ERROR_CODE:

Select Case Err.Number
    Case Else
        MsgBox "Error " & Err.Number & vbCrLf & Err.description, vbCritical, "cmdOpenQueryProdateFilter_Click()Error"
End Select
Resume Exit_Here


End Sub

Code:

Function ShowSchoolSummary_SQL(intProjectID As Integer, _
                            lngSchMident As Long, _
                            strLAng As String, _
                            strQueryName As String) As Boolean
                            
'Sample call: ? ShowSchoolSummary_SQL(51,14,"F","StudentSummary_Phase")
'               ? ShowSchoolSummary_SQL(51,19,"E","StudentSummary_Phase")

Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset

Const QUERY_NAME  As String = "qrySchool_Summary"
'qrySchool_Summary je pass thru, returns records = true


On Error GoTo ERROR_CODE:

'Ovako treba da izgleda strSQL
'Execute spSDC_ConstructStudentSummary
'            @ProjectID=52
'        ,   @SchMident=19
'        ,   @Lang='E'
'        ,   @QryName='StudentSummary_Phase'     --- 187


'Ajde da sagradimo strSQL:
strSQL = " Execute dbo.spSDC_ConstructStudentSummary " _
    & vbCrLf & " @ProjectID = " & intProjectID _
    & vbCrLf & ", @SchMident =" & lngSchMident _
    & vbCrLf & ", @Lang ='" & strLAng & "'" _
    & vbCrLf & ", @QryName ='" & strQueryName & "'"

'lepo je videti strSQL, da moze da se testira    
    Debug.Print
    Debug.Print strSQL
    Debug.Print
    
    'Update qdef - ovo moze da se uradi i u samoj funkciji, ovde
'Medjutim , ja koristim funkciju (imas je ispod)
    If Not UpdateQdef(strQdefNAme:=QUERY_NAME, strSQL:=strSQL) Then
        GoTo ERROR_CODE
    End If
 
'Pozovi pass thru kveri, ako hoces, ne more, moze da se veze i na formu ako hoces, ali POSLE izvrsenja ove funkcije   
    DoCmd.OpenQuery QueryName:=QUERY_NAME, view:=acViewNormal, datamode:=acReadOnly
    
    
ShowSchoolSummary_SQL = True

Exit_Here:

    On Error Resume Next
    Exit Function

ERROR_CODE:
    ShowSchoolSummary_SQL = False
    Select Case Err.Number
        Case Else
            MsgBox "Error " & Err.Number & vbCrLf & Err.description, vbCritical, "ShowSchoolSummary_SQL Error"
    End Select
    Resume Exit_Here
    
End Function

Code:

Function UpdateQdef(strQdefNAme As String, strSQL As String) As Boolean
'Purpose: set up pass through query

'
Dim db As DAO.Database
Dim qDef As QueryDef

On Error GoTo ERROR_CODE:

Set db = GetCurrentDB
Set qDef = db.QueryDefs(strQdefNAme)
qDef.sql = strSQL



Exit_Here:
On Error Resume Next
Set db = Nothing
Set qDef = Nothing

Exit Function

ERROR_CODE:
UpdateQdef = False
Select Case Err.Number
    Case Else
        MsgBox "Error " & Err.Number & vbCrLf & Err.description, vbCritical, "UpdateQdef Error"
End Select
Resume Exit_Here


End Function