Preventing user from opening wrong record in listbox

  • Thread starter Thread starter Mo
  • Start date Start date
M

Mo

In the double-click event of a list box I have the following code to allow
users to open another form and view a related record based on the selected
row in the list box. It's very standard VBA:

docname = "PatientDetails"
lkCriteria = " [id] = forms![SearchForm]![list_main] "
DoCmd.OpenForm docname, , , lkCriteria

I have noticed though that if a user does not first select the row, but
doubles-clicks in the list box but well away from any records, this opens up
the other form, but with an empty record. I have tried to prevent this with:

If Me.[list_main].RowSource = False Then

MsgBox ("You have not selected a row"), vbOKOnly
Exit Sub

End If

This portion of the code is not working. Can anyone point out what I'm doing
wrong. TIA for any help.

Mo
 
If no record is selected in a list box then it returns Null, so change the
code to:-

if isnull(Me.[list_main]) Then
....


hth
Chris
In the double-click event of a list box I have the following code to allow
users to open another form and view a related record based on the selected
row in the list box. It's very standard VBA:

docname = "PatientDetails"
lkCriteria = " [id] = forms![SearchForm]![list_main] "
DoCmd.OpenForm docname, , , lkCriteria

I have noticed though that if a user does not first select the row, but
doubles-clicks in the list box but well away from any records, this opens up
the other form, but with an empty record. I have tried to prevent this with:

If Me.[list_main].RowSource = False Then

MsgBox ("You have not selected a row"), vbOKOnly
Exit Sub

End If

This portion of the code is not working. Can anyone point out what I'm doing
wrong. TIA for any help.

Mo
Click to expand...
 
Back
Top