Correction....
That last code was the code for the Report itself.
The following is the code for the Form which calls the above report:
Function exec_report_qry_46()
Dim szSubs() As String
Dim Dummy As Integer
Dim Ret As Integer
'Dim db As Database
'Dim MyQuery As QueryDef
Dim MyRecord As Recordset
Dim account_type As String
Dim financial_year As Integer
Dim period As Integer
Set form_g = Screen.ActiveForm
report_type = form_g.[frm_rpt_name]
account_type = form_g.[frm_acct_type]
financial_year = form_g.[frm_fin_yr]
period = form_g.[frm_period]
DoCmd.Hourglass True
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyQuery = db.QueryDefs("DCA_account_detail"

MyQuery.Properties("sql"

= "Execute DCA_account_detail" & " " & financial_year & "," & Chr(34) & account_type & Chr(34) & "," & period
DoCmd.OpenQuery "DCA_account_detail", acViewNormal, acReadOnly
DoCmd.Hourglass False
End Function
Function exec_report_qry()
Dim szSubs() As String
Dim Dummy As Integer
Dim Ret As Integer
'Dim db As Database
'Dim MyQuery As QueryDef
Dim MyRecord As Recordset
Dim account_type As String
Dim financial_year As Integer
Dim period As Integer
Set form_g = Screen.ActiveForm
report_type = form_g.[frm_rpt_name]
account_type = form_g.[frm_acct_type]
financial_year = form_g.[frm_fin_yr]
period = form_g.[frm_period]
DoCmd.Hourglass True
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyQuery = db.QueryDefs("DCA_account_detail"

MyQuery.Properties("sql"

= "Execute DCA_account_detail" & " " & financial_year & "," & Chr(34) & account_type & Chr(34) & "," & period
DoCmd.OpenQuery "DCA_account_detail", acViewNormal, acReadOnly
If report_type = "RE 50" Then
Set MyQuery = db.QueryDefs("DCA_posted_jrnl_debit"

MyQuery.Properties("sql"

= "Execute DCA_posted_jrnl_debit_1" & " " & financial_year & "," & period
DoCmd.OpenQuery "DCA_posted_jrnl_debit", acViewNormal, acReadOnly
Set MyQuery = db.QueryDefs("DCA_posted_jrnl_credit"

MyQuery.Properties("sql"

= "Execute DCA_posted_jrnl_credit_1" & " " & financial_year & "," & period
DoCmd.OpenQuery "DCA_posted_jrnl_credit", acViewNormal, acReadOnly
End If
DoCmd.Hourglass False
End Function
Private Sub frm_fin_yr_AfterUpdate()
frm_period.Value = Null
frm_period.Requery
End Sub
Private Sub frm_preview_rpt_Click()
On Error GoTo Err_frm_preview_rpt_Click
Dim stDocName As String
stDocName = Forms![Report Parameters]![frm_rpt_name]
Call exec_report_qry
DoCmd.OpenReport stDocName, acPreview
Exit_frm_preview_rpt_Click:
Exit Sub
Err_frm_preview_rpt_Click:
MsgBox Err.Description
Resume Exit_frm_preview_rpt_Click
End Sub
Private Sub frm_prnt_rpt_Click()
On Error GoTo Err_frm_prnt_rpt_Click
Dim stDocName As String
Call exec_report_qry
stDocName = Forms![Report Parameters]![frm_rpt_name]
DoCmd.OpenReport stDocName, acNormal
Exit_frm_prnt_rpt_Click:
Exit Sub
Err_frm_prnt_rpt_Click:
MsgBox Err.Description
Resume Exit_frm_prnt_rpt_Click
End Sub
Private Sub frm_close_Click()
On Error GoTo Err_frm_close_Click
DoCmd.Quit
Exit_frm_close_Click:
Exit Sub
Err_frm_close_Click:
MsgBox Err.Description
Resume Exit_frm_close_Click
End Sub
Private Sub frm_refresh_Click()
On Error GoTo Err_frm_refresh_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_frm_refresh_Click:
Exit Sub
Err_frm_refresh_Click:
MsgBox Err.Description
Resume Exit_frm_refresh_Click
End Sub
Private Sub frm_rpt_name_Change()
frm_acct_type.Value = Null
frm_fin_yr.Value = Null
frm_period = Null
End Sub
Private Sub Close_Click()
On Error GoTo Err_Close_Click
DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click
End Sub
Thanks again guys...