If Statement with MsgBox Help

[d9pierce1]

Hi all,


I am using a button to open a form to a specific set of records using the following code.

Private Sub CmdPrimaryFunction_Click()   
    DoCmd.OpenForm "PrimaryFunctionFrm"
    Forms!CompanyFunctionFrm!CboSelectRole.Column(0) = PrimaryRoleID
End Sub

I need to add before this code an If Statment with msgbox VB OK If there is not a selection in the listbox "CboSelectRole.Column(0)
Msg = "You must select a role from the Selected Role(s) List!"

So basically if i dont select (Click) on one of the items in the list box, it wont let me open form up! I have never done this with a listbox before!
Thanks
Dave

[Bob Fitz]

Try:

Private Sub CmdPrimaryFunction_Click() 
  If Nz(Me.CboSelectRole,0) = 0 Then
    Msgbox "You must select a role from the Selected Role(s) List!"
  Else 
    DoCmd.OpenForm "PrimaryFunctionFrm"
    Forms!CompanyFunctionFrm!CboSelectRole.Column(0) = PrimaryRoleID
  End If
End Sub

[d9pierce1]

Sweet, thanks so much...\
Dave

[d9pierce1]

I spoke to early,
This works for the message, however when i do select one of the items in the list, it doesnt recogonize it? I get the message to select....

Private Sub CmdFunction_Click()      
If Nz(Me.CboSelectRole, 0) = 0 Then
    MsgBox "You must select a role from the Selected Role(s) List!"
  Else
    DoCmd.OpenForm "PrimaryFunctionFrm"
    Forms!PrimaryFunctionFrm!CboPrimaryRole = CboSelectRole.Column(0)
    Forms!PrimaryFunctionFrm.Requery
  End If
    
End Sub

[June7]

Are you using a listbox or combobox?

You say "selection in the listbox" but control name indicates a combobox.

If this is an UNBOUND listbox, it will never be Null, it will have a string value and if no item is selected, an empty string.

[d9pierce1]

It is an Unbound List box.

[June7]

Then check for empty string. Deal with null or empty string:

If Me.CboSelectRole & "" = "" Then

[d9pierce1]

I tried this, same result? I only get the message box if select or not?

Private Sub CmdFunction_Click()
    If Me.CboSelectRole & "" = "" Then
        MsgBox "You must select a role from the Selected Role(s) List!"
  Else
    DoCmd.OpenForm "PrimaryFunctionFrm"
    Forms!PrimaryFunctionFrm!CboPrimaryRole = CboSelectRole.Column(0)
    Forms!PrimaryFunctionFrm.Requery
  End If
    
End Sub

[June7]

Okay, listboxes are kinda weird. I limit my use of them and prefer combobox whenever possible.

Me.CboSelectionRole.Column(0) & "" = ""

Now what I find is that once an item is selected, listbox will always have value. Even if I unselect items, it holds value of last item selected.

So try:

Me.CboSelectionRole.ItemsSelected.Count = 0

Might change control name to lbxSelectionRole.

[d9pierce1]

DBMeProfile - Copy22.zip

Hi,
That gave errors....
I have attached db to this. It will open to a form, then click on Manage Industry button and I put a button on that form called Add Functions.

[d9pierce1]

I found the problem....Some how it changed from SelectRole to SelectionRole so i did get it working...
Thank you all for the time and energy in assisting me with this....
Dave