Deselecting in a list box after update...

[kalebson]

Hi all,

I use the following code to add items to my table:

Private Sub Command40_Click()
On Error GoTo Err_Command40_Click

Dim ctl As Control
Dim varItm As Variant
Dim myStr As String
Dim strSQL As String

Set ctl = DaysOffSelect

For Each varItm In ctl.ItemsSelected
myStr = myStr & ctl.ItemData(varItm) & ","
Next varItm
myStr = Left(myStr, Len(myStr) - 1)
Me.DaysOff = myStr

DoCmd.GoToRecord , , acNewRec

Exit_Command40_Click:
Exit Sub

Err_Command40_Click:
MsgBox Err.Description
Resume Exit_Command40_Click

End Sub

This works just fine..what I want to add is something that after I click and add the new record that the selections made in the list box go away and it be clear again..Ive tried setting the textbox to nothing and refreshing the form but that does not see to do it.. any ideas?

 

[kalebson]

ERR..I said textbox to nothing..that is actually LISTbox..sorry

 

[Eupher]

Hi, kalebson,

that the selections made in the list box go away and it be clear again

I'm not sure what you mean by this. Do you mean that the listbox should be empty? Or that you want the selected items to no longer be selected?

If it's the former, then after the [blue]DoCmd.GoToRecord[/blue] line:

ctl.RowSource = vbNullString

If it's the latter, then immediately above the [blue]Next varItm[/blue] line, insert this:

ctl.Selected(varItm) = False

HTH,

Ken S.

 

[kalebson]

It was the latter..worked PERFECT..thank you sir