• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 209
  • Last Modified:

getting just a certain part from a listbox

I have a calendar control that fills out orders due on the date that the user clicks. Now what I need is to read just the order number (6 digits) from the list box once the user selects which one they want to use so I can fill out a different form.
0
doctorlove
Asked:
doctorlove
  • 3
  • 2
  • 2
1 Solution
 
Sage020999Commented:
what format is the information in?  Is it pipe delimited.  If so you can use the split statement to break up the list box into an array varible if you are using VB6.  If not you will have to parse the text.
0
 
wsh2Commented:
doctorlove writes: "from the list box once the user selects which one they want to use"

Once the user clicks on an item in a listbox, the listbox item is placed into the Text property. Eg.

Private Sub List1_Click()

   Dim strOrderNo as String
   strOrderNo = List1.Text

End Sub
0
 
doctorloveAuthor Commented:
Sage: Guess I'm confused as to what you mean by pipe delimited. :/

Here's my code right now:

    sPath = App.Path & "\clients.mdb"
    Set daoDB36 = DBEngine.OpenDatabase(sPath)
    Set rs = daoDB36.OpenRecordset("customers")
   
    List1.Clear
    rs.MoveFirst
    Do Until rs.EOF
        If rs![when needed] = Me!Calendar Then
            List1.AddItem (rs!Order & " " & _                        rs![sold/ship to])
        End If
        rs.MoveNext
    Loop

This puts in the order number thena space then the clients name. I just need the order number so I can do another seach to pull up all rest of the information.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
Sage020999Commented:
Private Sub List1_Click()

   Dim intPos as integer
   Dim strOrderNo as String

   'Look for the space which seperates the item from the sold/ship to
   intPos  = instr(List1.text," ")
   'If there is not a space, invalid procedure call will occur so if intPos = 0 set the order number to the entire string
   if intpos = 0 then
     strorderno = list1.text
   else
     strOrderNo = left(List1.Text,intpos-1)
    end if
End Sub
0
 
Sage020999Commented:
Private Sub List1_Click()

   Dim intPos as integer
   Dim strOrderNo as String

   'Look for the space which seperates the item from the sold/ship to
   intPos  = instr(List1.text," ")
   'If there is not a space, invalid procedure call will occur so if intPos = 0 set the order number to the entire string
   if intpos = 0 then
     strorderno = list1.text
   else
     strOrderNo = left(List1.Text,intpos-1)
    end if
End Sub
0
 
wsh2Commented:
A couple of thoughts here..

1. If you have VB6.. the Split command works very nicely in a parse situation.

  Dim strWork() as String
  strWork() = Split(List1.Text, " ")
  strOrderNo = strWork(0)
  strName = strWork(1)

2. You can make your Database Call MUCH more efficient (even bind it to a control) by using SQL functionality.

<----- Code Begin ----->

  sPath = App.Path & "\clients.mdb"
  Set daoDB36 = DBEngine.OpenDatabase(sPath)

  Dim strSQL as String
  strSQL = "SELECT [When Needed], [sold/ship to] " _
    & "FROM customers " _
    & "WHERE [When Needed] = " _
    & "#" & Format(Me!Calendar, "mm/dd/yyyy") & "#"
  Set rs = daoDB36.OpenRecordset(strSQL)
     
  List1.Clear
  Do Until rs.EOF
    List1.AddItem (rs!Order & " " & rs![sold/ship to])
    rs.MoveNext
  Loop

<----- Code End ----->

0
 
doctorloveAuthor Commented:
This worked out the best for me. Thanks!
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 3
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now