• Using Null in Listbox choice (A2k3, SP1)

    Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Using Null in Listbox choice (A2k3, SP1)

    Author
    Topic
    WSpbrodsky
    AskWoody Lounger
    March 16, 2005 at 3:05 pm #417149

    How about adding a check box (“allow null for agency”) to the form?

    Reply | Quote
    Viewing 1 reply thread
    Author
    Replies
    • WSgdrezek
      AskWoody Lounger
      March 16, 2005 at 3:16 pm #935174

      Thanks for the suggestion, but I have actually brought something like that up to the people I am doing this for and that didn’t fly with them. They are kinda “goofy” when it comes to things like this; i.e. extra keystrokes, “unnecessary” movement from using the keyboard to using the mouse, etc. So I said I’d try to make it part of the selection(s) from the listbox.
      Thanks again.

      gdr

      Reply | Quote
    • WSgdrezek
      AskWoody Lounger
      March 16, 2005 at 3:48 pm #935169

      (Edited by gdrezek on 16-Mar-05 10:48. strAuthSQL should have been strSQL throughout the example)

      Hi All,
      I trying to be able to include IsNull along with tangible values for a search string. Basically I wish to reproduce
      “WHERE NumberPKID = ” & lngCaseNumberPKID
      ” AND (AgencyPKID IN ” & “(” & strAgencies & “)”
      ” OR AgencyPKID IS NULL)”

      Following is an attempt at doing this:

      strSQL = "SELECT DISTINCT ["there are ten fields selected] "
strSQL = strSQL & "FROM qryFormCases "
strSQL = strSQL & "WHERE CaseNumberPKID = " & lngIGICaseNumberPKID
	
If Not ctl2.ItemsSelected(0) = 0 Then
    For Each itm2 In ctl2.ItemsSelected
        If Len(ctl2.ItemData(itm2))  0 Then
            strAgencies = strAgencies & ctl2.ItemData(itm2) & ", "
        Else
            strSQL = strSQL & " OR AgencyPKID Is Null"
        End If
    Next itm2
    strAgencies = Left(strAgencies, Len(strAgencies) - 2)
    strSQL = strSQL & " AND AgencyPKID IN " & "(" & strAgencies & ")"
Else
    'do nothing
End If

      Obviously I can’t seem to get this done correctly.
      How is it possible to do this?
      Thank you.

      gdr

      Reply | Quote
      • WScharlotte
        AskWoody Lounger
        March 16, 2005 at 3:35 pm #935182

        You can’t include Is Null in the list, you include it as part of the where condition.

        Remove it from here:

        strAuthSQL = strAuthSQL & " OR AgencyPKID Is Null"

        And add it like this:

        strAgencies = Left(strAgencies, Len(strAgencies) - 2)
        strAuthSQL = strAuthSQL & " AND AgencyPKID IN " & "(" & strAgencies & ") OR AgencyPKID Is Null"

        Reply | Quote
        • WSgdrezek
          AskWoody Lounger
          March 16, 2005 at 4:03 pm #935189

          Hi Charlotte,
          After reading your reply I looked at my original post and realized that I had typos in the strSQL string. strAuthSql should have been changed to strSQL. I edited that post.
          I am trying to add IsNull as a choice to the strSQL along with any Agency they may wish to search by. The IN() may have 3 Agencies as entries. They also may have (what I am trying for) 2 Agencies (or 1 as the case may be) to search by as well as “AgencyPKID Is Null”. It’s that part I’m having fun with.
          Since I made the correction edit, does that make my question more clear, rather than the “mud” I threw out in the original post? sorry
          Thank you.

          gdr

          Reply | Quote
      • WSHansV
        AskWoody Lounger
        March 16, 2005 at 3:48 pm #935186

        Does this do what you want?

        If Ctl2.ItemsSelected.Count > 0 Then
        For Each itm2 In Ctl2.ItemsSelected
        If Len(Ctl2.ItemData(itm2)) > 0 Then
        strAgencies = strAgencies & Ctl2.ItemData(itm2) & “, ”
        Else
        strAuthSQL = “AgencyPKID Is Null”
        End If
        Next itm2
        If Len(strAgencies) > 0 Then
        strAgencies = “AgencyPKID IN (” & left(strAgencies, Len(strAgencies) – 2) & “)”
        If Len(strAuthSQL) > 0 Then
        strAgencies = strAgencies & ” OR ” & strAuthSQL
        End If
        ElseIf Len(strAuthSQL) > 0 Then
        strAgencies = strAuthSQL
        End If
        If Len(strAgencies) > 0 Then
        strSQL = strSQL & ” AND (” & strAgencies & “)”
        End If
        End If

        Reply | Quote
        • WSgdrezek
          AskWoody Lounger
          March 16, 2005 at 4:09 pm #935192

          Hi Hans,
          re: my reply to Charlotte, I had made a copy/paste mistake in my original post and have edited it. sorry
          Will that “edit” your response? I got lost in your response because of my mis-direction in my original post.
          Thank you.

          gdr

          Reply | Quote
          • WSHansV
            AskWoody Lounger
            March 16, 2005 at 4:13 pm #935197

            The code as I posted it doesn’t have to be changed (including the strAuthSQL). Post back if it doesn’t work for you.

            Reply | Quote
            • WSgdrezek
              AskWoody Lounger
              March 16, 2005 at 5:03 pm #935207

              Hi Hans,
              Thanks!
              All I needed to do was to ensure the string values corresponded with my setup and
              added — strAgencyNotNull = “AgencyPKID IN ” & “(” & strAgencies & “)”
              to your work and here you go. The code I am using:

              strSQL = "SELECT DISTINCT [again, 10 fields listed here] "
strSQL = strSQL & "FROM qryFormCases "
strSQL = strSQL & "WHERE CaseNumberPKID = " & lngCaseNumberPKID
	
If Not ctl2.ItemsSelected(0) = 0 Then
    For Each itm2 In ctl2.ItemsSelected
        If Len(ctl2.ItemData(itm2))  0 Then
            strAgencies = strAgencies & ctl2.ItemData(itm2) & ", "
        Else
            strAgencyNull = "AgencyPKID Is Null"
        End If
    Next itm2
    If Len(strAgencies) > 0 Then
        strAgencies = Left(strAgencies, Len(strAgencies) - 2)
        strAgencyNotNull = "AgencyPKID IN " & "(" & strAgencies & ")"
        If Len(strAgencyNull) > 0 Then
            strAgencyNotNull = strAgencyNotNull & " OR " & strAgencyNull
        End If
    ElseIf Len(strAgencyNull) > 0 Then
        strAgencyNotNull = strAgencyNull
    End If
    If Len(strAgencyNotNull) > 0 Then
        strSQL = strSQL & " AND (" & strAgencyNotNull & ")"
    End If
Else
    'do nothing
End If

              So far it seems to work through all the various groupings I need.
              Thanks again.

              gdr

              Reply | Quote
    Viewing 1 reply thread
    Reply To: Using Null in Listbox choice (A2k3, SP1)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information:




DON'T MISS OUT!
Subscribe to the Free Newsletter
We promise not to spam you. Unsubscribe at any time.
Invalid email address

View the Forum

  • Recent Replies
  • My Replies
  • My Active Topics
  • New Posts in the Last day
  • Private Messages
  • Knowledge Base
  • How to use the Forums
  • All Forums

    • Recent Topics

    My Profile

    June 2025
    S M T W T F S
    1234567
    891011121314
    15161718192021
    22232425262728
    2930  

    Remembering Woody

     

    Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.

    Mastodon profile for DefConPatch
    Mastodon profile for AskWoody

     

    Home • About • FAQ • Posts & Privacy • Forums • My Account
    Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts

    Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.