Userform double click on listbox Error handling for invalid use of null

[dellehurley]

Hi
I am having trouble with this code below, the if isnull section. The code is to open the associated file after double clicking on the row. The issue arises when you miss double clicking the filename's row (generally by hitting the header row) an error "invalid use of null" displays. I simply wanted a message box to pop up saying that it was invalid and to try again or for nothing to happen you try again.
With the code below the message box opens after every doubleclick, regardless of if it is valid or not.

Private Sub lstDatabase_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim folderName As String
Dim FileName As String
Dim answer As VbMsgBoxResult
folderName = ThisWorkbook.Path & "\"

FileName = Me.lstDatabase.Value
    If IsNull(FileName) = False Then
        MsgBox "Invalid!" & vbCrLf & "Try Again", vbOKOnly
    End If

On Error GoTo NoFile
    answer = MsgBox("Would you like to open" & vbCrLf & FileName & "?", vbOKCancel, "Multi Media Database")
        If answer = vbYes Then
                    ThisWorkbook.FollowHyperlink folderName & FileName
                    Exit Sub
        End If
NoFile:
MsgBox "File " & FileName & vbCrLf & " is not found in Folder.", vbOKOnly + vbCritical, "File Not Found"
End Sub

NB. The "one error goto" is working correctly and is seperate from the Null issue.
Thanks for your help.
Dannielle

 

[Fluff]

How avout

Private Sub lstDatabase_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim folderName As String
Dim FileName As String
Dim answer As VbMsgBoxResult
folderName = ThisWorkbook.Path & "\"

FileName = Me.lstDatabase.Value
    If IsNull(FileName) = False Then
        MsgBox "Invalid!" & vbCrLf & "Try Again", vbOKOnly
        Exit Sub
    End If

On Error GoTo NoFile
    answer = MsgBox("Would you like to open" & vbCrLf & FileName & "?", vbOKCancel, "Multi Media Database")
        If answer = vbYes Then
                    ThisWorkbook.FollowHyperlink folderName & FileName
                    Exit Sub
        End If
Exit Sub
NoFile:
MsgBox "File " & FileName & vbCrLf & " is not found in Folder.", vbOKOnly + vbCritical, "File Not Found"
End Sub

 

[mikerickson]

Use Me.lstDatabase.Text rather than Value to avoid that error.

 

[dellehurley]

Use Me.lstDatabase.Text rather than Value to avoid that error.

perfect thanks

 

[dellehurley]

How avout

Private Sub lstDatabase_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim folderName As String
Dim FileName As String
Dim answer As VbMsgBoxResult
folderName = ThisWorkbook.Path & "\"

FileName = Me.lstDatabase.Value
    If IsNull(FileName) = False Then
        MsgBox "Invalid!" & vbCrLf & "Try Again", vbOKOnly
        Exit Sub
    End If

On Error GoTo NoFile
    answer = MsgBox("Would you like to open" & vbCrLf & FileName & "?", vbOKCancel, "Multi Media Database")
        If answer = vbYes Then
                    ThisWorkbook.FollowHyperlink folderName & FileName
                    Exit Sub
        End If
Exit Sub
NoFile:
MsgBox "File " & FileName & vbCrLf & " is not found in Folder.", vbOKOnly + vbCritical, "File Not Found"
End Sub

Thanks for your help. Unfortunately this caused every double click to come up with MsgBox "Invalid!" & vbCrLf & "Try Again", vbOKOnly. FileName = Me.lstDatabase.Text did the job.
Dannielle