Keeping a list box default value

[erictheman]

I need some help. I have a list box field with two values in it. "Active" and "Deleted". I use code for the form on current property. [Jobstatus] = "Active" It works fine. Every record I go to it shows Active. But the problem is that if I choose Deleted on a record, when I come back to it, it changes to Active. How do I keep it default as Active but if I change it to Delete it will stay that way not turn back to Active? Thank you for your help!

 

[chiph]

In your form's code you need to be able to tell the difference between creating a new record, and editing an existing record. Use a Property to pass a flag in:

Public Property Let IsNew (RHS as boolean)
  m_bIsNew = RHS
End Property

Then, if it's a new record, you allow the control to use the default value (presumably the first item in the listbox).

If it's not a new record (i.e. you're editting an existing record), then you would set the ListIndex property to the value from the database. Note that ListIndex is zero-based, not one-based (setting it to 2 selects the third item). Also note that the ListIndex is a Long, not a string. If you want to find a value based on it's name, you'll need a function like this:

Private Sub SelectListByValue(byref TheList as ListBox, byval TheValue as string)

Dim i as long

   For i = 0 to TheList.ListCount
      If ucase$(trim$(TheList.List(i))) = ucase$(trim$(TheValue)) then
         TheList.ListIndex = i
         Exit For
      End If
   Next i
End Sub

And you'd call this sub for every listbox that needed being set.

Chip H.