Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.
Course Of The Month
7 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
VBA & SQL: Passing strings in the Where clause
Posted on 2004-10-15
I need to add an additional statement to the where clause depending on whether the user checks a box or not.
The additional statement is as follows:
AND scripts.PriorAuth_PAMC IS NOT NULL
I am having problems passing the "IS NOT NULL" any hints will be greatly appreciated.
==========================
Dim mydb As Database, myqd As QueryDef, strSQL As String
Dim strScripts As String, dtBegDate As String, dtEndDate As String, sClass As String
Dim ChrRet As String, dbLocScriptMbr As String, sSQL As String, myrs As Recordset
Dim qdReportSet As QueryDef, qSelectedNabp As Recordset
Dim DocName As String
Dim bAnd As Boolean
Dim myRecSet As Recordset
Dim sPriorAuth As String
strScripts = "Scripts_" & [Forms]![frmzClient]![strC
dtBegDate = [Forms]![frmGetMonthlyRepo
dtEndDate = [Forms]![frmGetMonthlyRepo
dbLocScriptMbr = [Forms]![frmzClient]![txtd
sClass = "Instore"
ChrRet = Chr$(13) & Chr$(10)
Set mydb = CurrentDb()
sSQL = "SET NOCOUNT ON" + ChrRet
sSQL = sSQL + "SET ANSI_WARNINGS OFF" + ChrRet
sSQL = sSQL & "DECLARE @ClientId Char(2) , @dtBegDate datetime, @dtEndDate datetime, @strNabp Char(7), @strClass Char(7), @strPriorAuth Char(11) " + ChrRet
sSQL = sSQL & "SET @ClientId = '" + [Forms]![frmzClient]![strC
sSQL = sSQL & "SET @dtBegDate = '" + dtBegDate + "'" + ChrRet
sSQL = sSQL & "SET @dtEndDate = '" + dtEndDate + "'" + ChrRet
sSQL = sSQL & "SET @strClass = '" + sClass + "'" + ChrRet
sSQL = sSQL + ChrRet
sSQL = sSQL & "SELECT DISTINCT scripts.Nabp, scripts.RxNum, scripts.RxDate, drug.PackageSize, drug.DrugName, scripts.Qty," + ChrRet
sSQL = sSQL & " scripts.DaySupply, scripts.PriorAuth_PAMC, scripts.DAW, scripts.IngrCostS, scripts.AmtDue, scripts.Account," + ChrRet
sSQL = sSQL & " scripts.PlanNum, scripts.Pat_ID, scripts.Person_Code, scripts.Ndc_Mfg, scripts.Ndc_Prod, scripts.Ndc_Pkg," + ChrRet
sSQL = sSQL & " scripts.CostBasis, scripts.Phy_ID, scripts.AuditFlag, scripts.Cost_Ind, scripts.Refill_Code, " + ChrRet
sSQL = sSQL & " AuditRequestData.Code, AuditRequestData.lngCounte
sSQL = sSQL & " scripts.Counter, scripts.PriorAuthFlag, Pharmacy.Name AS PName, Pharmacy.Store_Nbr, Pharmacy.Address1," + ChrRet
sSQL = sSQL & " Pharmacy.Address2, Pharmacy.City, Pharmacy.State," + ChrRet
sSQL = sSQL & " CASE When Len(LTrim(RTrim(ZipCode)))
sSQL = sSQL & " When Len(LTrim(RTrim(ZipCode)))
sSQL = sSQL & " '(' + Left(Phone_Nbr,3) + ') ' + Substring(Phone_Nbr,4,3) + '-' + Right(RTrim(Phone_Nbr),4) AS Phone" + ChrRet
sSQL = sSQL & " FROM " + dbLocScriptMbr & strScripts + " AS scripts " + ChrRet
sSQL = sSQL & " LEFT JOIN FDB_drugs As drug" + ChrRet
sSQL = sSQL & " ON scripts.Ndc_Mfg = drug.NDC_Mfg" + ChrRet
sSQL = sSQL & " AND scripts.Ndc_Prod = drug.NDC_Prod" + ChrRet
sSQL = sSQL & " AND scripts.Ndc_Pkg = drug.NDC_Pkg" + ChrRet
sSQL = sSQL & " LEFT JOIN Pharmacy" + ChrRet
sSQL = sSQL & " ON scripts.Nabp = Pharmacy.Nabp" + ChrRet
sSQL = sSQL & " LEFT JOIN AuditRequestData" + ChrRet
sSQL = sSQL & " ON scripts.Counter = AuditRequestData.lngCounte
sSQL = sSQL & " AND scripts.ClientId = AuditRequestData.ClientID"
sSQL = sSQL & " AND AuditRequestData.AuditClas
sSQL = sSQL & " WHERE scripts.RxDate Between @dtBegDate And @dtEndDate " + ChrRet
sSQL = sSQL & " AND scripts.BalanceOut = 0 " + ChrRet
sSQL = sSQL & " AND scripts.ClientId = @ClientId " + ChrRet
The additional statement is as follows:
AND scripts.PriorAuth_PAMC IS NOT NULL
I am having problems passing the "IS NOT NULL" any hints will be greatly appreciated.
==========================
Dim mydb As Database, myqd As QueryDef, strSQL As String
Dim strScripts As String, dtBegDate As String, dtEndDate As String, sClass As String
Dim ChrRet As String, dbLocScriptMbr As String, sSQL As String, myrs As Recordset
Dim qdReportSet As QueryDef, qSelectedNabp As Recordset
Dim DocName As String
Dim bAnd As Boolean
Dim myRecSet As Recordset
Dim sPriorAuth As String
strScripts = "Scripts_" & [Forms]![frmzClient]![strC
dtBegDate = [Forms]![frmGetMonthlyRepo
dtEndDate = [Forms]![frmGetMonthlyRepo
dbLocScriptMbr = [Forms]![frmzClient]![txtd
sClass = "Instore"
ChrRet = Chr$(13) & Chr$(10)
Set mydb = CurrentDb()
sSQL = "SET NOCOUNT ON" + ChrRet
sSQL = sSQL + "SET ANSI_WARNINGS OFF" + ChrRet
sSQL = sSQL & "DECLARE @ClientId Char(2) , @dtBegDate datetime, @dtEndDate datetime, @strNabp Char(7), @strClass Char(7), @strPriorAuth Char(11) " + ChrRet
sSQL = sSQL & "SET @ClientId = '" + [Forms]![frmzClient]
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
2-
2
- +1
7 Comments
Let me explain a little bit more. I want this statement to be included if the user checks the 'chkPriorAuth' check box so how can I control that. Make it come on and off. So your suggestion will not work. Thanks for your input.
sSQL = sSQL & " scripts.PriorAuth_PAMC IS NOT NULL" + ChrRet
sSQL = sSQL & " scripts.PriorAuth_PAMC IS NOT NULL" + ChrRet
... all previous code
If Me.chkPriorAuth.Value = True Then
sSQL = sSQL & " scripts.PriorAuth_PAMC IS NOT NULL" + ChrRet
End If
Steve
If Me.chkPriorAuth.Value = True Then
sSQL = sSQL & " scripts.PriorAuth_PAMC IS NOT NULL" + ChrRet
End If
Steve
at the end of your code:
sSQL = sSQL & " AND scripts.ClientId = AuditRequestData.ClientID"
sSQL = sSQL & " AND AuditRequestData.AuditClas
sSQL = sSQL & " WHERE scripts.RxDate Between @dtBegDate And @dtEndDate " + ChrRet
sSQL = sSQL & " AND scripts.BalanceOut = 0 " + ChrRet
sSQL = sSQL & " AND scripts.ClientId = @ClientId " + ChrRet
add this:
If chkPriorAuth.Value = True then
' check box IS CHecked
sSQL = sSQL & "AND scripts.PriorAuth_PAMC Is Not Null"
End if
AW
sSQL = sSQL & " AND scripts.ClientId = AuditRequestData.ClientID"
sSQL = sSQL & " AND AuditRequestData.AuditClas
sSQL = sSQL & " WHERE scripts.RxDate Between @dtBegDate And @dtEndDate " + ChrRet
sSQL = sSQL & " AND scripts.BalanceOut = 0 " + ChrRet
sSQL = sSQL & " AND scripts.ClientId = @ClientId " + ChrRet
add this:
If chkPriorAuth.Value = True then
' check box IS CHecked
sSQL = sSQL & "AND scripts.PriorAuth_PAMC Is Not Null"
End if
AW
Featured Post
June’s Course of the Month is now available! Experts Exchange’s Premium Members, Team Accounts, and Qualified Experts have access to a complimentary course each month as part of their membership—an extra way to sharpen your skills and increase training.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents. The steps to find the Templates folder path are …
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
Learn how to number pages in an Access report over each group.
Activate two pass printing by referencing the pages property:
Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string.
Specify the first argument, which is the expression to be returned:
Specify the second argument, which …
Suggested Courses
Course of the Month7 days, 3 hours left to enroll
726 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.