TheSearcher
Registered User.
- Local time
- Today, 08:17
- Joined
- Jul 21, 2011
- Messages
- 385
I am trying to use a msgbox to debug a query I have written in VBA code. However, the msgbox is not large enough to display the whole query. Is there any way to expand the msgbox so that I can see the whole query?
Code:
sql1 = "SELECT tbl_Authorizations.ID, [tbl_Authorizations].[client_LName] & ', ' & [tbl_Authorizations].[client_FName] AS Client_Name, tbl_Authorizations.Auth_No, "
sql1 = sql1 & "tbl_Authorizations.Therapy, tbl_Authorizations.Auth_StartDate AS Auth_SDate, tbl_Authorizations.Auth_EndDate AS Auth_EDate, tbl_Authorizations.Payer, "
sql1 = sql1 & "tbl_Authorizations.Number_UnitsApproved AS Total_Units, Sum(tbl_Billing.Number_UnitsBilled) AS Billed, tbl_Authorizations.Units_PerWeek AS Units_PWeek, "
sql1 = sql1 & "tbl_Authorizations.Client_Id "
sql1 = sql1 & "FROM tbl_Authorizations INNER JOIN tbl_Billing ON (tbl_Authorizations.Auth_No = tbl_Billing.Auth_No) AND (tbl_Authorizations.Therapy = tbl_Billing.Therapy) "
sql1 = sql1 & "AND (tbl_Authorizations.Client_Id = tbl_Billing.Client_Id) "
sql1 = sql1 & "GROUP BY tbl_Authorizations.ID, [tbl_Authorizations].[client_LName] & ', ' & [tbl_Authorizations].[client_FName], tbl_Authorizations.Auth_No, "
sql1 = sql1 & "tbl_Authorizations.Therapy, tbl_Authorizations.Auth_StartDate, tbl_Authorizations.Auth_EndDate, tbl_Authorizations.Payer, tbl_Authorizations.Number_UnitsApproved, "
sql1 = sql1 & "tbl_Authorizations.Units_PerWeek, tbl_Authorizations.Client_Id "
sql1 = sql1 & "HAVING (((tbl_Authorizations.Auth_EndDate) > Date()) "
sql1 = sql1 & "AND " & Globals.glb_Whereclause_Hold & ""
sql1 = sql1 & " ORDER BY [tbl_Authorizations].[client_LName] & ', ' & [tbl_Authorizations].[client_FName], tbl_Authorizations.Auth_StartDate DESC;"
MsgBox sql1