If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Listbox
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/ |
#2
|
|||
|
|||
Listbox
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. "Graeme" / wrote in message ... 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/ |
#3
|
|||
|
|||
Listbox
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. "Graeme" / wrote in message ... 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/ |
#4
|
|||
|
|||
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_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 |
#5
|
|||
|
|||
Listbox
sorry I solved the problem I posted twice because there was a mistake in the frist post regards.
--- frmsrcurl: http://msgroups.net/microsoft.public.access/Listbox |
Thread Tools | |
Display Modes | |
|
|