Exit Command Button Not Saving

[Spec01]

When I click on the Exit Button that I placed in the Subform, it erases all of the information. But, when I enter the information a second time all the information stays.

This is very annoying because i have to enter all of the information twice before it saves itself. If someone knows any kind of solution for this problem please help.

 

[lupins46]

What is an 'Exit' button?

 

[PHV]

In the Click event procedure of the Exit button add the following code (before the Close call):
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[lupins46]

PHV
Assuming this is a bound form, under what circumstances would a save record command ever be NECESSARY in Access?
(I put SaveRecord buttons on my forms - but only to make the user comfortable, not because they are necessary to make the apploication work)

 

[Spec01]

This is still not working. Here is my command that i have right now. could you please tell me where it should go? maybe I'm putting the code in the wrong place.

Private Sub Exit_Click()
On Error GoTo Err_Exit_Click


DoCmd.Close

Exit_Exit_Click:
Exit Sub

Err_Exit_Click:
MsgBox Err.Description
Resume Exit_Exit_Click

End Sub

 

[lupins46]

Can you explain why you want to Close a subform?

 

[PHV]

And what about this ?
Private Sub Exit_Click()
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Spec01]

I have A main form where there is specific information and then i have 3 command boxes that link to 3 different forms that have more detailed information about the main form. now when i add a new record, i enter information in the Main form, then i click on the first command button to enter more information. When I'm finished entering the information into the sub form i click the exit button i placed in there to go back to the main form and then go to the next command button and so on. but when im finished typing the information on the first subform if i press the exit button i have and then i go back into it all of the information will be gone. but if i do it a second time then then information will be there. so basically i have to input the info twice b/4 it saves it self.

 

[PHV]

Have you tried my previous suggestion ?

 

[Spec01]

When i put that code in i get a runtime error "3201"
"You cannot add or change a record because a related record is required in table "computers

 

[lupins46]

SO these are not really subforms - they are just extra forms? Is that correct?
Are they based on the same table as the main form or are they bound to different tables?

 

[PHV]

i enter information in the Main form, then i click on the first command button
Are you sure the main record is saved at this time ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Spec01]

THey are Individual forms with their own tables but they are connected and recognized by the Computer ID which is in all of the forms. so i guess there not Subforms but they are linked forms sorry...

 

[PHV]

What is the Click event event procedure of your first command button ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Spec01]

This is the Event Procedure of the first command button:

Private Sub Exit_Click()
On Error GoTo Err_Exit_Click


DoCmd.Close

Exit_Exit_Click:
Exit Sub

Err_Exit_Click:
MsgBox Err.Description
Resume Exit_Exit_Click

End Sub

 

[lupins46]

PHV has already suggested what would have been my next step.

If these are separate forms, you do need to explicitly save the record in the main form before you can create related records.
So you need a command in the button code on the main form to save the record before opening the related form.

me.dirty = false
will do it.

 

[PHV]

So, same suggestion:
Private Sub Exit_Click()
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PaulCooper]

Depending which version of Access (mine is 2000) you are using look at tabbed pages. Try Create a form with multiple pages or tabs in the Access help.

I have this to keep multiple data linked to a core set and you simply have to hit the right tab to see it.

If you have set up pages create the tabs (as described in the help), make the design page small enough to see the forms directory then simply click-drag them into the tab. (You will have to set up the relationships). Paul

 

[Spec01]

Still not working but thanks for you time guys

 

[lupins46]

There must be something going on which you have not yet mentioned.

Can you show the code procedure where you open the second form from the main form.