Blank Area of Listbox

[JamesJ]

Hi. I'm using the following code on the OnClick of
a list box.

DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

It opens frmDvdEdit on the DoubleClicked row in the listbox

I only want the DoCmd to run if I double click an occupied row of the
listbox.
If the doubleclick occurs on a blank row I want nothing to happen.
I'm not sure what I should be checking for but nothing seems to be working.
I've tried:

If Me!lstDvd.Value = "" Then

Else
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

End If

 

[tina]

try

If Not IsNull(Me!lstDvd) Then
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd
End If

hth

 

[JamesJ]

Nope. Same thing.

try

If Not IsNull(Me!lstDvd) Then
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd
End If

hth

Hi. I'm using the following code on the OnClick of
a list box.

DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

It opens frmDvdEdit on the DoubleClicked row in the listbox

I only want the DoCmd to run if I double click an occupied row of the
listbox.
If the doubleclick occurs on a blank row I want nothing to happen.
I'm not sure what I should be checking for but nothing seems to be working.
I've tried:

If Me!lstDvd.Value = "" Then

Else
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

End If

 

[tina]

did you put the VBA code in the Click event procedure, or the DoubleClick
event procedure?

hth

Nope. Same thing.

try

If Not IsNull(Me!lstDvd) Then
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd
End If

hth

Hi. I'm using the following code on the OnClick of
a list box.

DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

It opens frmDvdEdit on the DoubleClicked row in the listbox

I only want the DoCmd to run if I double click an occupied row of the
listbox.
If the doubleclick occurs on a blank row I want nothing to happen.
I'm not sure what I should be checking for but nothing seems to be working.
I've tried:

If Me!lstDvd.Value = "" Then

Else
DoCmd.OpenForm "frmDvdEdit", , , "[DvdMovieID]=" & Me!lstDvd

End If