G
Grace
Hello, I have a form that contains a button I created
using the Command Button Wizard. The button opens a new
form and uses a filter to display data on the newly opened
form. The filtered field is [PIN].
Here is the code that the wizard generated on the "Add New
Ticket" button:
Private Sub New_Ticket_Click()
On Error GoTo Err_New_Ticket_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormHelpDeskLogCreate"
stLinkCriteria = "[PIN]=" & "'" & Me![PIN] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_New_Ticket_Click:
Exit Sub
Err_New_Ticket_Click:
MsgBox Err.Description
Resume Exit_New_Ticket_Click
End Sub
This WAS working fine but all of a sudden it stopped
working and will not carry over the [PIN] on the next
form???? HELP. What do you think could of caused it? Is
this another one of those Access bugs?
Thanks for your help in advance.
using the Command Button Wizard. The button opens a new
form and uses a filter to display data on the newly opened
form. The filtered field is [PIN].
Here is the code that the wizard generated on the "Add New
Ticket" button:
Private Sub New_Ticket_Click()
On Error GoTo Err_New_Ticket_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormHelpDeskLogCreate"
stLinkCriteria = "[PIN]=" & "'" & Me![PIN] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_New_Ticket_Click:
Exit Sub
Err_New_Ticket_Click:
MsgBox Err.Description
Resume Exit_New_Ticket_Click
End Sub
This WAS working fine but all of a sudden it stopped
working and will not carry over the [PIN] on the next
form???? HELP. What do you think could of caused it? Is
this another one of those Access bugs?
Thanks for your help in advance.