Artistlover
New member
- Local time
- Today, 04:08
- Joined
- Mar 9, 2012
- Messages
- 3
I have a form that will not open in access 2010 64 bit version. It indicates access has to close when i try. The code looks as follows..
Private Sub Form_Open(Cancel As Integer)
Static MouseHook As Object
Set MouseHook = NewMouseHook(Me)
End Sub
Private Sub ShipperCode_AfterUpdate()
Me.CustID = Me.ShipperCode.Column(0)
Me.Shipper = Me.ShipperCode.Column(2)
End Sub
Private Sub ShipperCode_NotInList(NewData As String, Response As Integer)
Dim MsgStr As String
MsgStr = "'" & NewData & "' is not currently in the list. Do you want to add it?"
If vbYes = MsgBox(MsgStr, vbYesNo + vbQuestion, "Unknown Shipper Code...") Then
DoCmd.OpenForm "frmAddShipper", acNormal, , , acFormAdd, acDialog
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub
Private Sub cmdTempClose_Click()
On Error GoTo Err_cmdTempClose_Click
DoCmd.Close
Exit_cmdTempClose_Click:
Exit Sub
Err_cmdTempClose_Click:
MsgBox Err.Description
Resume Exit_cmdTempClose_Click
End Sub
Private Sub cmdAddNewLotNo_Click()
On Error GoTo Err_cmdAddNewLotNo_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdAddNewLotNo_Click:
Exit Sub
Err_cmdAddNewLotNo_Click:
MsgBox Err.Description
Resume Exit_cmdAddNewLotNo_Click
End Sub
Private Sub cmdViewAllLots_Click()
On Error GoTo Err_cmdViewAllLots_Click
cNextLot.Visible = True
cPreviousLot.Visible = True
' Me.FilterOn = False
Me.Filter = "[Shipper] = '" & Shipper & "'"
Me.OrderBy = "FINISHED, CustInvID DESC"
Me.OrderByOn = True
Exit_cmdViewAllLots_Click:
Exit Sub
Err_cmdViewAllLots_Click:
MsgBox Err.Description
Resume Exit_cmdViewAllLots_Click
End Sub
Private Sub cmdAttachDoc_Click()
On Error GoTo Err_cmdAttachDoc_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDocumentsLotNo"
stLinkCriteria = "[FDWLotNo]=" & "'" & Me![FDWLotNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms![frmDocumentsLotNo]!FDWLotNo.Value = Forms![frmCustomerInventory2]!FDWLotNo
Exit_cmdAttachDoc_Click:
Exit Sub
Err_cmdAttachDoc_Click:
MsgBox Err.Description
Resume Exit_cmdAttachDoc_Click
End Sub
Private Sub cmdViewDoc_Click()
On Error GoTo Err_cmdViewDoc_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDocumentsLotNo"
stLinkCriteria = "[FDWLotNo]=" & "'" & Me![FDWLotNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdViewDoc_Click:
Exit Sub
Err_cmdViewDoc_Click:
MsgBox Err.Description
Resume Exit_cmdViewDoc_Click
End Sub
Private Sub cNextLot_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNext
End Sub
Private Sub cPreviousLot_Click()
On Error Resume Next
DoCmd.GoToRecord , , acPrevious
End Sub
I cannot figure anything out on why this won't open.
Private Sub Form_Open(Cancel As Integer)
Static MouseHook As Object
Set MouseHook = NewMouseHook(Me)
End Sub
Private Sub ShipperCode_AfterUpdate()
Me.CustID = Me.ShipperCode.Column(0)
Me.Shipper = Me.ShipperCode.Column(2)
End Sub
Private Sub ShipperCode_NotInList(NewData As String, Response As Integer)
Dim MsgStr As String
MsgStr = "'" & NewData & "' is not currently in the list. Do you want to add it?"
If vbYes = MsgBox(MsgStr, vbYesNo + vbQuestion, "Unknown Shipper Code...") Then
DoCmd.OpenForm "frmAddShipper", acNormal, , , acFormAdd, acDialog
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub
Private Sub cmdTempClose_Click()
On Error GoTo Err_cmdTempClose_Click
DoCmd.Close
Exit_cmdTempClose_Click:
Exit Sub
Err_cmdTempClose_Click:
MsgBox Err.Description
Resume Exit_cmdTempClose_Click
End Sub
Private Sub cmdAddNewLotNo_Click()
On Error GoTo Err_cmdAddNewLotNo_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdAddNewLotNo_Click:
Exit Sub
Err_cmdAddNewLotNo_Click:
MsgBox Err.Description
Resume Exit_cmdAddNewLotNo_Click
End Sub
Private Sub cmdViewAllLots_Click()
On Error GoTo Err_cmdViewAllLots_Click
cNextLot.Visible = True
cPreviousLot.Visible = True
' Me.FilterOn = False
Me.Filter = "[Shipper] = '" & Shipper & "'"
Me.OrderBy = "FINISHED, CustInvID DESC"
Me.OrderByOn = True
Exit_cmdViewAllLots_Click:
Exit Sub
Err_cmdViewAllLots_Click:
MsgBox Err.Description
Resume Exit_cmdViewAllLots_Click
End Sub
Private Sub cmdAttachDoc_Click()
On Error GoTo Err_cmdAttachDoc_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDocumentsLotNo"
stLinkCriteria = "[FDWLotNo]=" & "'" & Me![FDWLotNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms![frmDocumentsLotNo]!FDWLotNo.Value = Forms![frmCustomerInventory2]!FDWLotNo
Exit_cmdAttachDoc_Click:
Exit Sub
Err_cmdAttachDoc_Click:
MsgBox Err.Description
Resume Exit_cmdAttachDoc_Click
End Sub
Private Sub cmdViewDoc_Click()
On Error GoTo Err_cmdViewDoc_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDocumentsLotNo"
stLinkCriteria = "[FDWLotNo]=" & "'" & Me![FDWLotNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdViewDoc_Click:
Exit Sub
Err_cmdViewDoc_Click:
MsgBox Err.Description
Resume Exit_cmdViewDoc_Click
End Sub
Private Sub cNextLot_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNext
End Sub
Private Sub cPreviousLot_Click()
On Error Resume Next
DoCmd.GoToRecord , , acPrevious
End Sub
I cannot figure anything out on why this won't open.