Msgbox-Combo

[wickedjc]

I have a database that will be inactivated shortly however in the interim some of the users will need to be denied earlier, so I need to create a pop-up msgbox when they select their segment from a drop down. Sounded simple enough but I have had no luck so far. I've tried

Private Sub Form_frmRequest

If cboSegment.Value = "name of dept" then
msgbox "message to be displayed"
End If

I also tried..
Public Function Redirect()


With Form_frmRequest
If .cboSegment.Value = "name of dept" Then
MsgBox "message to be displayed Thank you.", vbOKOnly, "Redirect Issue
modPublicFunctions.ClearForm
End If
End With


End Function

[ranman256]

in the DEPT table, add a column MSG
set the message in this col. you want for each dept, (or none)

so when the user picks the combo, show msg

sub cboBox_afterupdate()
   if not isnull(cboBox.column(1) ) then
      msgbox cboBox.column(1)
  endif
end sub

'NOTE remember in code, column numbers start with 1, so col 1, is cboBox.column(0), etc.
you also must set the property of the combo , COLUMNS = 2

[wickedjc]

Thank you, I finally was able to get it to work the way I needed it to! I was putting the code in the wrong area and needed to continue with the
AfterUpdate that was already in place, thanks again!