Listbox

[Graeme]

Hi
I have created by Issue # field to except text. The Issue # field is a primary key. With this primary key I have created a listbox. Now, through the listbox I would like to select the Issue # field and open the form (Issue-General) for only that Issue #.

Private Sub Command8_Click(
On Error GoTo Err_Command8_Clic

Dim stDocName As Strin
Dim stLinkCriteria As Strin

stDocName = "Issue - General

stLinkCriteria = "[Issue #]=" & Me![List6
DoCmd.OpenForm stDocName, , , stLinkCriteri

Exit_Command8_Click
Exit Su

Err_Command8_Click
MsgBox Err.Descriptio
Resume Exit_Command8_Clic

End Su

 

[Jeff Boyce]

What happens when you try the code you posted?

Regards

Jeff Boyce
Microsoft Access MVP

--
Disclaimer: This author may have received products and services mentioned
in this post. Mention and/or description of a product or service herein
does not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

 

[Jeff Boyce]

Why post twice?

Folks who help out here are primarily volunteering their time.

If you don't receive a response right away, it may be:
* no one knows the answer
* no one has the time
* no one is checking the newsgroup

If your need is urgent, you may need to seek paid assistance.

Regards

Jeff Boyce
Microsoft Access MVP

--
Disclaimer: This author may have received products and services mentioned
in this post. Mention and/or description of a product or service herein
does not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

 

[ð£ÔÒ ìÅÂÅÄÅ×]

Hi,
I have created by Issue # field to except text. The Issue # field is a
primary key. With this primary key I have created a listbox. Now, through
the listbox I would like to select the Issue # field and open the form
(Issue-General) for only that Issue #.

Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Issue - General"

stLinkCriteria = "[Issue #]=" & Me![List6]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub



---
frmsrcurl: http://msgroups.net/microsoft.public.access/

__________ Information from ESET Smart Security, version of virus
signature database 5012 (20100409) __________

The message was checked by ESET Smart Security.

http://www.esetnod32.ru

__________ Information from ESET Smart Security, version of virus signature database 5012 (20100409) __________

The message was checked by ESET Smart Security.

http://www.esetnod32.ru

 

[Graeme]

sorry I solved the problem I posted twice because there was a mistake in the frist post regards.