problem with DoCmd.Quit

[xezekielx]

Hi! I have a little problem... I have a main form with a subform control that is used to display several subforms (there are buttons on the main form used to switch which subform is currently displayed). In order to save/cancel the changes made in the subform, I made a Save button (how original!) on the MAIN form. Here's the code I use in each subform:

In the subform's OnLoad event:

ReDim mvarFields(0 To (Me.Recordset.Fields.Count - 1))    
mblnError = False    
Call Save

In the subform's Save function:

Dim f As Field, i As Integer
i = 0
    
For Each f In Me.Recordset.Fields
   If f.Name <> "CustomerID" Then
      mvarFields(i) = f.Value
      i = i + 1
   End If
Next f

In the subform's OnUnload event:

Dim rs As Recordset
Set rs = Me.Recordset
rs.Edit
        
Dim f As Field, i As Integer
i = 0
For Each f In Me.Recordset.Fields
   If f.Name <> "CustomerID" Then
      f.Value = mvarFields(i)
      i = i + 1
   End If
Next f
        
rs.Update
Set rs = Nothing

In the MAIN FORM's Save button's click event:

'                 |   this is a custom
'                 v   validation function
If sfSubForm.Form.Validation = True Then
   Call sfSubForm.Form.Save
   MsgBox "Data saved with success!"
End If

Everything here works fine. I have a Quit button on my main form with this code:

DoCmd.Quit

The problem is that when I click this button, I get an error message saying "Incompatible type" (the error is called from the subform's OnUnload event). But when I click the X in the app's title bar, I don't get this error message... What's the problem? Any help would be much appreciated!

 

[smedvid]

I had a similar issue...
My solution was to remove the MS Access X to close the MS Access Window and the X on the Main Menu. The code the remove the application close was a little difficult, but luckily I found what I needed on the I*Net.

Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...

 

[xezekielx]

Well like I said in my first post, the X in the app's title bar doesn't cause any error so I don't see the point of removing it... I only get an error message when I use the Quit button on my main form

 

[Eupher]

xezekielx,

On which line does your code break?

Ken S.

 

[xezekielx]

it broke on this line in the subform's OnUnload event:

f.Value = mvarFields(i)

. while debugging, I realised that the array mvarFields was empty (for some reason), so I just put this in the sub:

If Not IsEmpty(mvarFields) Then
   [...]
End If

It seems to work now! Thanks to all of you for helping!