tacieslik
Registered User.
- Local time
- Today, 21:00
- Joined
- May 2, 2001
- Messages
- 244
I'm using the following code to update a query and open a form.
Private Sub View_Inbound_History1_Click()
DoCmd.SetWarnings (False)
On Error GoTo Err_View_Inbound_History1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "InboundList Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "HistoryOfInboundData"
DoCmd.OpenForm stDocName, acEdit, , stLinkCriteria
Exit_View_Inbound_History1_Click:
Exit Sub
Err_View_Inbound_History1_Click:
MsgBox Err.Description
Resume Exit_View_Inbound_History1_Click
End Sub
The query update works and the form opens, but it opens as individual records and not in datasheet mode which is what I wan't!
Please help.
TAC
Private Sub View_Inbound_History1_Click()
DoCmd.SetWarnings (False)
On Error GoTo Err_View_Inbound_History1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "InboundList Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "HistoryOfInboundData"
DoCmd.OpenForm stDocName, acEdit, , stLinkCriteria
Exit_View_Inbound_History1_Click:
Exit Sub
Err_View_Inbound_History1_Click:
MsgBox Err.Description
Resume Exit_View_Inbound_History1_Click
End Sub
The query update works and the form opens, but it opens as individual records and not in datasheet mode which is what I wan't!
Please help.
TAC