Error!

[dlowry]

When clicking a name in my list box i get the following....

Run time error 3075
Syntax Error (comma) in query expression 'contactID=williams, michael'.

Private Sub LstCName_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmcontacts"
stLinkCriteria = "ContactID=" & Me.LstCName

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

[NeoPa]

Try :-

stLinkCriteria = "ContactID='" & Me.LstCName & "'"

I added quotes around the string.

[dlowry]

Unfortunately this still doesnt pick any information up.... any other ideas ?

[NeoPa]

Unfortunately this still doesnt pick any information up.... any other ideas ?

Did that fix the error message?
If not then I need to know the current situation.
If it did and you're asking for further help, then perhaps you wouldn't mind explaining what the new situation is.
I AM psychic, but it's not THAT reliable.

[PEB]

Are you sure that contaqct Id has information about the names and isn't a number for exemple?

;)

[MMcCarthy]

When clicking a name in my list box i get the following....

Run time error 3075
Syntax Error (comma) in query expression 'contactID=williams, michael'.

Private Sub LstCName_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmcontacts"
stLinkCriteria = "ContactID=" & Me.LstCName

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

I would guess that your ContactID is an ID field and not the actual Name. In which case. Assuming your Name field is called ContactName.

 
Private Sub LstCName_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
 
  stDocName = "frmcontacts"
  stLinkCriteria = "[ContactName]='" & Me.LstCName & "'"
 
  DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub
 
 

[dlowry]

Right ok - I've now changed the values in tblcontacts. ContactID still exists with new entries.What was MJW is now changed to williams, michael. This now displays the form in full (frmcontacts). I would like to keep my ContactID as MJW. Any chance ?

[MMcCarthy]

Have two fields as follows:

tblContact
ContactID with a value like MJW
ContactName with a value like Williams, Michael

Set up your listbox properties as follows:

LstCName

Under the Data tab ...

Row Source Type "Value List"
Row Source "SELECT ContactID, ContactName FROM tblContact";
Bound Column 2

Under the Format tab ...

Column Count 2
Column Widths 1.5 cm; 4 cm (If you want to see ContactID)
OR
Column Widths 0 cm; 4 cm (If you want to hide ContactID)


This code should still work

 
Private Sub LstCName_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "frmcontacts"
stLinkCriteria = "[ContactName]='" & Me.LstCName & "'"
 
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub