Access.exe fatal error

  • Thread starter Rich via AccessMonster.com
  • Start date
R

Rich via AccessMonster.com

I am having a bit of trouble with a button. When I click on it it should open
a form in design mode, make a few changes then close and re-open the form.
However a message comes up and shuts Access down. The Message reads

-"MSACCESS.exe has generated errors and will be closed by windows. A
Log is beiing created"

My code that is running behind the button is...

Private Sub SerialGo_Click()
Dim Mynum As Integer
Me.SerList.Enabled = True
Me.SerList.Locked = False
Me.SerList.Selected(0) = True
Mynum = Me.SerList.Column(0)
Me.SerList.Selected(0) = False
Me.SerList = Nothing
Me.SerList.Selected(0) = False
Me.Help.SetFocus
Me.SerList.Locked = True
Me.SerList.Enabled = False
DoCmd.OpenForm "Checks", acDesign, , , , acHidden

Forms!checks!MyList.RowSource = "SELECT [Main].[ID], [Main].[Customer], [Main]
..[DATE IN], [Main].[SERIAL NUMBER], [Main].[RMA NUMBER], [Main].[PART NUMBER],
[Main].[CUSTOMER ADVISED FAILURE], [Main].[STATUS / AREA], [Main].[LIABILITY]
FROM Main WHERE (([Main].[SERIAL NUMBER]) = Forms!Main!SERIALNUMBERinput);"

Forms!checks!A.Caption = "The SERIAL ........"
DoCmd.Close acForm, "Checks", acSaveYes
DoCmd.OpenForm "Checks"
End Sub

Can anyone help?

Rich
 
Top