Access VBA listbox value

Hi again
I am hoping there is a quick easy solution to this.

I have a listbox and a textbox among several controls on my form. I have setup code to automatically populate the textbox but i want the value in the textbox to be checked or validated against values in a listbox and if the entry exists, display a message box and delete the textbox value and setfocus on it for the user to make another selection.

Due to the limited nature of VBA compared to VB i do not have all the options..

An example code would be

if me.textbox.value = me.listbox.item?? then
msgbox["This item already exists"]

me.textbox.value = ""
me.textbox.setfocus

else

end if
...

naturally the above code wont work in VBA and thats where I'm stuck. Can anyone help with this?

Is the list box's Multi-Select property set to NONE or One of the multi-select options?

Hi Bob
It's set to none

Then a single select listbox has a value [the multi-select does too but it is always NULL] which you can compare against the text box:

If Me.textbox = Me.listbox ...etc.

Hey Bob
i already tried comparing the Me.listbox.value to me.textbox.value and this hasnt worked both with the listbox multi select property set to simple or extended.

tt1611 said:

Hey Bob
i already tried comparing the Me.listbox.value to me.textbox.value and this hasnt worked both with the listbox multi select property set to simple or extended.

Click to expand...

I had said -

It works if the multi-select is set to NONE. If it is set to simple or extended, you can't use the value of the listbox because it is ALWAYS NULL, even if something is selected. To use with a multi-select listbox you would need to iterate through the selections to see if any selections matched and it would be something like this -

Thanks for your patience on this Bob. I actually did mean to say i had tried it both with None and Simple.

As of right now, the multi select property is set to simple and i have tried your code like below [forgive the namings - my textbox was previously a combo box]

Private Sub cmbstag_AfterUpdate[]
Me.cmbasset.Value = Me.cmbstag.Column[1]
Dim i As Integer
For i = 0 To Me.lstloan.ItemsSelected.Count
If Me.cmbasset.Value = Me.lstloan.ItemData[Me.ItemsSelected[i]] Then
MsgBox ["This laptop is already on loan"]
Me.cmbasset.Value = ""
Me.cmbstag.SetFocus
Else
End If
End Sub

The error I am getting when this is now called is 'Compile Error method or datamemeber not found" Error highlights If Me.cmbasset.Value = Me.lstloan.ItemData[Me.ItemsSelected[i]] Then...

You're missing part of it:

If Me.cmbasset.Value = Me.lstloan.ItemData[Me.lstloan.ItemsSelected[i]] Then

Also:

When using a For...Next loop, you need to have both the For and the Next. You neglected to add the Next part.

Scooterbug said:

When using a For...Next loop, you need to have both the For and the Next. You neglected to add the Next part.

Click to expand...

Good catch on that - I got part but missed that other part. Good tag team combo