Hi, I have done this before, but can't duplicate it.
What I'd like to do is open a form based on the selection in a list box.
The list box displays escalations with ticket number and date. When double clicked, the escalation form should open for that customer & ticket number. Here's the code:
*********
Private Sub lstNorstarEsc_DblClick(Cancel As Integer)
On Error GoTo Err_lstNorstarEsc_DblClick
Dim strChooseEsc As String
strChooseEsc = "xRef = " & _
"'" & Forms!frmNorstar!ndx & "'" & _
" AND ITAStkt = " & "'" & Forms!frmNorstar!lstNorstarEsc.Column(1) & "'"
DoCmd.OpenForm "frmNorstarEsc", , , strChooseEsc, acFormEdit
Exit_lstNorstarEsc_DblClick:
Exit Sub
Err_lstNorstarEsc_DblClick:
MsgBox Err.Description
Resume Exit_lstNorstarEsc_DblClick
End Sub
*********
Thanks for any help...
LDS (TELUS)
What I'd like to do is open a form based on the selection in a list box.
The list box displays escalations with ticket number and date. When double clicked, the escalation form should open for that customer & ticket number. Here's the code:
*********
Private Sub lstNorstarEsc_DblClick(Cancel As Integer)
On Error GoTo Err_lstNorstarEsc_DblClick
Dim strChooseEsc As String
strChooseEsc = "xRef = " & _
"'" & Forms!frmNorstar!ndx & "'" & _
" AND ITAStkt = " & "'" & Forms!frmNorstar!lstNorstarEsc.Column(1) & "'"
DoCmd.OpenForm "frmNorstarEsc", , , strChooseEsc, acFormEdit
Exit_lstNorstarEsc_DblClick:
Exit Sub
Err_lstNorstarEsc_DblClick:
MsgBox Err.Description
Resume Exit_lstNorstarEsc_DblClick
End Sub
*********
Thanks for any help...
LDS (TELUS)