K
krisjuchau
I have a fairly large CRM application that is homegrown that I have
been asked to add to, the original developer is no longer with the
company and there isn't much in the way of comments or explanation. In
the main form customer I have a tab with a display list that display's
Cust_ID, CustName, Date, Type and DevID. I want the user to be able to
double click on a list item and populate a form with the information
from the orginal submitted form for editing purposes. Here is what i
have so far:
Private Sub ListDisplayDev_DblClick(Cancel As Integer)
If ListDisplayDev.ListIndex <> -1 Then
Dim stDocName As String
Dim stLinkCriteria As String
Dim stItem As String
stItem = "& Me.ListDisplayDev.Column(4) &"""
stDocName = "frmDeveloperSREdit"
DoCmd.OpenForm stDocName, , , "[txtDevID]='" & stItem & "'", ,
acWindowNormal, stItem
End If
End Sub
I'm able to pass the form, but doesn't seem to be passing the value
correctly and then when the form is open how to I populate the fields
in the new form?
been asked to add to, the original developer is no longer with the
company and there isn't much in the way of comments or explanation. In
the main form customer I have a tab with a display list that display's
Cust_ID, CustName, Date, Type and DevID. I want the user to be able to
double click on a list item and populate a form with the information
from the orginal submitted form for editing purposes. Here is what i
have so far:
Private Sub ListDisplayDev_DblClick(Cancel As Integer)
If ListDisplayDev.ListIndex <> -1 Then
Dim stDocName As String
Dim stLinkCriteria As String
Dim stItem As String
stItem = "& Me.ListDisplayDev.Column(4) &"""
stDocName = "frmDeveloperSREdit"
DoCmd.OpenForm stDocName, , , "[txtDevID]='" & stItem & "'", ,
acWindowNormal, stItem
End If
End Sub
I'm able to pass the form, but doesn't seem to be passing the value
correctly and then when the form is open how to I populate the fields
in the new form?