Access: How can I pass 2 values on the Forms

cindyl · October 4th, 2010, 03:27 PM

Hi everyone, please help me.
I want to pass 2 values from A Form to B Form, and B Form only shows the matching data. How can I put these 2 values togother? I tried to use "+" or "and" or "||", but they are wrong. Please help me! Thank you.

stLinkCriteria = "[IndexCode]=" & "'" & Me![IndexCode] & "'"
stLinkCriteriaa = "[ProjectName]=" & "'" & Me![ProjectName] & "'"

Private Sub ComOpenSelect_Click()
On Error GoTo Err_ComOpenSelect_Click
Dim stDocName As String
**
Dim stLinkCriteria As String
Dim stLinkCriteriaa As String
**
stDocName = "FRM_EditProjects"

**
stLinkCriteria = "[IndexCode]=" & "'" & Me![IndexCode] & "'"
stLinkCriteriaa = "[ProjectName]=" & "'" & Me![ProjectName] & "'"
** DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ComOpenSelect_Click:
Exit Sub

Err_ComOpenSelect_Click:
MsgBox Err.Description
Resume Exit_ComOpenSelect_Click

End Sub

Cindy

HiTechCoach · October 5th, 2010, 12:38 AM

Quote:

Originally Posted by cindyl

Hi everyone, please help me.
I want to pass 2 values from A Form to B Form, and B Form only shows the matching data. How can I put these 2 values togother? I tried to use "+" or "and" or "||", but they are wrong. Please help me! Thank you.

stLinkCriteria = "[IndexCode]=" & "'" & Me![IndexCode] & "'"
stLinkCriteriaa = "[ProjectName]=" & "'" & Me![ProjectName] & "'"

Private Sub ComOpenSelect_Click()
On Error GoTo Err_ComOpenSelect_Click
Dim stDocName As String
**
Dim stLinkCriteria As String
Dim stLinkCriteriaa As String
**
stDocName = "FRM_EditProjects"

**
stLinkCriteria = "[IndexCode]=" & "'" & Me![IndexCode] & "'"
stLinkCriteriaa = "[ProjectName]=" & "'" & Me![ProjectName] & "'"
** DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ComOpenSelect_Click:
Exit Sub

Err_ComOpenSelect_Click:
MsgBox Err.Description
Resume Exit_ComOpenSelect_Click

End Sub

Cindy

Cindy,

Try this:

Code:

Private Sub ComOpenSelect_Click()
On Error GoTo Err_ComOpenSelect_Click

Dim stDocName As String

Dim stLinkCriteria As String
Dim stLinkCriteriaa As String

stDocName = "FRM_EditProjects"


stLinkCriteria = "[IndexCode]= " & Chr(34) & Me![IndexCode] & Chr(34)

stLinkCriteria = stLinkCriteria &  " and  [ProjectName]=" & Chr(34)  & Me.[ProjectName] & Chr(34)

 DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ComOpenSelect_Click:
Exit Sub

Err_ComOpenSelect_Click:
MsgBox Err.Description
Resume Exit_ComOpenSelect_Click

End Sub

cindyl · October 5th, 2010, 10:19 AM

Thanks, but filter only got this, so I got no data show up(I don't have null value on ProjectName field):
***
[IndexCode]= "580878" and [ProjectName]=""
***

IndexCode is correct.

On the Form A, IndexCode is Combo box, and ProjectName is List box.

Please help me.

Many things,
Cindy

cindyl · October 6th, 2010, 08:28 PM

Thanks, HiTechCoach, your code is working.
Sorry I put bound column=2 before, so it wasn't working; After I change 2 to 1, it works.

Many Thanks,
Cindy

HiTechCoach · October 6th, 2010, 08:52 PM

Cindy,

You're welcome.

Glad to assist.