Hi all
can anybody explain to me why I'm getting and invalid use of null with this code:
Code:
Private Sub Lst_TopNavigation_DblClick(Cancel As Integer)
On Error GoTo errHandler
Dim frm$
With Me
frm$ = .Lst_TopNavigation.Column(2)
Select Case .Lst_TopNavigation
Case 3
DoCmd.OpenForm frm$, acFormDS
Case Else
DoCmd.OpenForm frm$, acNormal
End Select
End With
procDone:
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "Error Opening Screen"
Resume procDone
End Sub
your help is warrmmmly received!!
Thanks,
Dan