Form won't open

[hbaf208]

I have a form that I am unable to open. I had the form set to open on startup. It now will not open, even in design mode. I tried creating a form with a command button to open the form and it gives me an error code, "You canceled the previous operation." I tried copying the form and exporting the form. Neither work. All of the code for the form is still in the module. Any suggestions on how I open the form?

Thanks,
Jason

[NeoPa]

Try tracing the code of the form. Use Alt-F11 to switch to the debugger, then put a breakpoint in the code before trying to open the form normally. Trace through till you see why it is closing. See Debugging in VBA for detailed instructions.

[hbaf208]

I tried debugging. I also tried erasing all of the code in the form module. The form will still not open. I exported the entire database to another database but this form doesn't export and I cannot copy it.

Any other suggestions?

Thanks, Jason

[NeoPa]

Sorry Jason. It sound like you have an unrecoverably corrupted form.

If you attach a copy (<= A2003 format) then I'll check it over for you, but my guess is that it's gone.

[hbaf208]

I've attached the database. One other thing that I noticed before this happened, my c drive was full and I was unable to save another word doc. I now have plenty of space on my hard drive but I'm wondering if this caused the issue.

[missinglinq]

Apparently not, assuming that I'm correct in thinking that the form named 1 is the one you're referring to.

I can do nothing with it; cannot open it, cannot go into Design View, and cannot import it into another database.

I'm afraid that NeoPa's guess is correct, and that the form is gone!

Sorry!

Welcome to Bytes!

Linq ;0)>

[Jim Doherty]

@missinglinq
Same here:- compaction, decompilation and even running it through the Application.SaveAsText routine gave the 'reserved' error meaning it cannot write out the forms structure as text to an external file.

It is lost!

[NeoPa]

I would be very confident that the lack of available space caused the corruption Jason. Unfortunately, if these boys have already found it beyond recovery, then my attempts are likely to find the same. I'll give it a go just because I promised to, but don't hold your breath. This is a dead parrot!

[NeoPa]

Assuming the form referred to is 1 as Linq says, the code is not lost. I don't have it working of course, but hopefully the code is something to start with.

Option Compare Database
 
Private Sub abc_click()
    Me.CustList = Null
    Me.CustList.Requery
    Me.CustList = Me.CustList.ItemData(0)
    Me.quotelist = Null
    Me.quotelist.Requery
    Me.quotelist = Me.quotelist.ItemData(1)
    Me.ContactList = Null
    Me.ContactList.Requery
    Me.ContactList = Me.ContactList.ItemData(1)
End Sub
 
 
Private Sub Command80_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "Update product names, customer numbers, add HAL personnel, etc..."
End Sub
 
Private Sub Command91_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "View reports on quotes, call reports, opportunites, contacts, etc..."
End Sub
 
Private Sub custlist_AfterUpdate()
    Me.quotelist = Null
    Me.quotelist.Requery
    Me.quotelist = Me.quotelist.ItemData(1)
    Me.ContactList = Null
    Me.ContactList.Requery
    Me.ContactList = Me.ContactList.ItemData(1)
    Me.SalesPersonList = Null
    Me.SalesPersonList.Requery
    Me.SalesPersonList = Me.SalesPersonList.ItemData(1)
    Me.CallReportList = Null
    Me.CallReportList.Requery
    Me.CallReportList = Me.CallReportList.ItemData(1)
 
 
End Sub
 
Private Sub NewCallReportCmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "These include phone conversations, office visits and are designed to share information."
End Sub
 
Private Sub NewContactCmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "Add a new contact. The company name must be entered prior to adding a contact for the company."
End Sub
 
Private Sub NewCustomerCmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "Add a new customer. You cannot add a quote or contact if the customer is not listed above."
End Sub
 
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = False
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = False
End Sub
 
Private Sub Form_Open(Cancel As Integer)
If IsNull([Text69]) Then
[Option56].Visible = False
Else: [Option56].Visible = True
End If
 
If IsNull([Text94]) Then
[Option54].Visible = False
Else: [Option54].Visible = True
End If
 
If IsNull([Text93]) Then
[Option58].Visible = False
Else: [Option58].Visible = True
End If
 
If IsNull([Text102]) Then
[Option100].Visible = False
Else: [Option100].Visible = True
End If
 
If IsNull([Text103]) Then
[Option104].Visible = False
Else: [Option104].Visible = True
End If
 
DoCmd.OpenQuery "notactiveupdate"
 
End Sub
 
 
 
Private Sub NewQuote_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
[Help].Visible = True
[Help] = "Enter a new quote. Customers and contacts must be in the system prior to adding them to a quote."
End Sub
 
Private Sub origin1_click()
    Me.quotelist = Null
    Me.quotelist.Requery
    Me.quotelist = Me.quotelist.ItemData(1)
 
End Sub
Private Sub activity_click()
    Me.quotelist = Null
    Me.quotelist.Requery
    Me.quotelist = Me.quotelist.ItemData(1)
 
End Sub
 
 
Private Sub PreviewReport_Click()
 
 
On Error GoTo Err_PreviewReport_Click
 
    Dim stDocName As String
 
    stDocName = "quotes"
 
    If IsNull(forms![1]![QLnum]) Then
    MsgBox "You must select a quote to view the report."
    Else
    DoCmd.OpenReport stDocName, acPreview
 
    End If
Exit_PreviewReport_Click:
    Exit Sub
 
Err_PreviewReport_Click:
    MsgBox Err.Description
    Resume Exit_PreviewReport_Click
 
End Sub
 
 
Private Sub quotelist_DblClick(Cancel As Integer)
DoCmd.Close acReport, "quotes"
DoCmd.OpenReport "quotes", acPreview
End Sub
Private Sub EditQuote_Click()
On Error GoTo Err_EditQuote_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Quotes Form"
 
    stLinkCriteria = "[Quote Number]=" & Me![QLnum]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_EditQuote_Click:
    Exit Sub
 
Err_EditQuote_Click:
    MsgBox Err.Description
    Resume Exit_EditQuote_Click
 
End Sub
Private Sub EditContact_Click()
On Error GoTo Err_EditContact_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Contacts Form"
 
    stLinkCriteria = "[ContactID]=" & Me![ContactList]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_EditContact_Click:
    Exit Sub
 
Err_EditContact_Click:
    MsgBox Err.Description
    Resume Exit_EditContact_Click
 
End Sub
Private Sub NewQuote_Click()
On Error GoTo Err_NewQuote_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Quotes Form"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
 
 
Exit_NewQuote_Click:
    Exit Sub
 
Err_NewQuote_Click:
    MsgBox Err.Description
    Resume Exit_NewQuote_Click
 
End Sub
Private Sub NewContactCmd_Click()
On Error GoTo Err_NewContactCmd_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Contacts Form"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
 
Exit_NewContactCmd_Click:
    Exit Sub
 
Err_NewContactCmd_Click:
    MsgBox Err.Description
    Resume Exit_NewContactCmd_Click
 
End Sub
Private Sub NewCustomerCmd_Click()
On Error GoTo Err_NewCustomerCmd_Click
 
    Dim stDocName As String
    Dim stdocname2 As String
    Dim stLinkCriteria As String
 
    stDocName = "NewCustomer Form"
    stdocname2 = "1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, stdocname2, acSaveYes
 
Exit_NewCustomerCmd_Click:
    Exit Sub
 
Err_NewCustomerCmd_Click:
    MsgBox Err.Description
    Resume Exit_NewCustomerCmd_Click
 
End Sub
Private Sub AddContact3_Click()
On Error GoTo Err_AddContact3_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Contacts Form"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
 
Exit_AddContact3_Click:
    Exit Sub
 
Err_AddContact3_Click:
    MsgBox Err.Description
    Resume Exit_AddContact3_Click
 
End Sub
Private Sub NewCallReportCmd_Click()
On Error GoTo Err_NewCallReportCmd_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "CallReportForm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
 
Exit_NewCallReportCmd_Click:
    Exit Sub
 
Err_NewCallReportCmd_Click:
    MsgBox Err.Description
    Resume Exit_NewCallReportCmd_Click
 
End Sub
 
Private Sub TimeFrameOption_AfterUpdate()
Dim MySQL As String
Dim MyCriteria As String
MySQL = "SELECT CallReport.ID, CallReport.Numbername, CallReport.Date, CallReport.CallType, CallReport.EnteredBy, CallReport.CustomerContact, CallReport.OtherPersonnelAttending, CallReport.IssueDiscussed, CallReport.RequiresFollowUp, CallReport.FollowUpAssignedTo, CallReport.TypeOfFollowUpRequired FROM CallReport WHERE " & MyCriteria
 
Select Case Me!TimeFrameOption
Case Is = 1
MyCriteria = "[callreport].[numbername]=[custlist] and [CallReport].[Date] Between Date()-9999999999 And Date()ORDER BY CallReport.Date DESC"
Case Is = 2
MyCriteria = "[callreport].[numbername]=[custlist] and [CallReport].[Date] Between Date()-180 And Date()ORDER BY CallReport.Date DESC"
Case Is = 3
MyCriteria = "[callreport].[numbername]=[custlist] and [CallReport].[Date] Between Date()-365 And Date()ORDER BY CallReport.Date DESC"
End Select
 
Me!CallReportList.RowSource = MySQL & MyCriteria
 
End Sub
 
Private Sub CallReportEditCmd_Click()
On Error GoTo Err_CallReportEditCmd_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "CallReportForm"
 
    stLinkCriteria = "[ID]=" & Me![CallReportList]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_CallReportEditCmd_Click:
    Exit Sub
 
Err_CallReportEditCmd_Click:
    MsgBox Err.Description
    Resume Exit_CallReportEditCmd_Click
 
End Sub
Private Sub ViewCallReportCmd_Click()
On Error GoTo Err_ViewCallReportCmd_Click
 
    Dim stDocName As String
 
    stDocName = "CallReportReport"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_ViewCallReportCmd_Click:
    Exit Sub
 
Err_ViewCallReportCmd_Click:
    MsgBox Err.Description
    Resume Exit_ViewCallReportCmd_Click
 
End Sub

[NeoPa]

I find I can do no more to recover anything I'm afraid.

[NeoPa]

Some more advice for working in Access. I developed this for posting guidelines, but it's sound advice for working generally too :

1. Ensure you have Option Explicit set (See Require Variable Declaration).
2. Try to compile it. If it doesn't compile for any reason please explain that clearly - including the error message and which line of your code it appears on. Compilation is done from the Visual Basic Editor menu - Debug \ Compile Project (Where Project is the actual name of your project).

These should help you find any problems earlier in the process. Good luck.