Hide new record in form

[RasterImage]

Hello,

I have a form with multiple records. Many of the fields have default values, so when viewing the form, it's easy to mistake the 'new' record for a saved record.

Is there any way of making the new record invisible until the focus is moved to it, whether by clicking the 'new record' triangle in the status bar, or by tabbing to it, please?

Thanks.

[boblarson]

In the form's On Current Event set the form's Allow Additions property to False:

Me.AllowAdditons = False

Have a button on the form which says ADD NEW. Put this code behind it:

Me.AllowAdditions = True

[RasterImage]

Hey, that works alright. Thanks boblarson. No way of getting it to do it without the button? Or of hiding the new record without adding another button?

[boblarson]

You might be able to put it in the Form's After Update event (setting the allow additions to true).

[RasterImage]

Yes, I'm happy now. I'm sticking with the button, I've decided I like it, and set the form to dis-allow additions After Update. Thank you so much for your simple and elegant solution.
All I want now, for complete Access pleasure, is if clicking the 'ADD NEW' button could also move the focus to the first field of the new record? I'm sure that must be possible, but no idea how...

[boblarson]

All I want now, for complete Access pleasure, is if clicking the 'ADD NEW' button could also move the focus to the first field of the new record? I'm sure that must be possible, but no idea how...

In the code for that button you can use

Me.YourControlNameHere.SetFocus

[RasterImage]

I took your suggestion - I now have the following

 
Private Sub cmdAddNew_Click()
DoCmd.Save
Me.AllowAdditions = True
Me.NextDate.SetFocus
DoCmd.GoToRecord , "", acNewRec
End Sub

I found that without "DoCmd.Save", I'd get an error if I clicked the button when I'd updated a field but not saved it. "You can't go to the specified record."
But with the save, it saves the whole form, which takes time, two or three seconds.
It's never easy, is it? You sort me out, but other problems arise.

Is there another way of avoiding the error?

[boblarson]

Don't use

DoCmd.Save

That has NOTHING to do with Records. That has to do with DESIGN CHANGES to the form.

It should be

Private Sub cmdAddNew_Click()
   If Me.Dirty Then Me.Dirty True
   
   Me.AllowAdditions = True
   Me.NextDate.SetFocus
 
DoCmd.GoToRecord , "", acNewRec
 
End Sub

The above syntax will only attempt to save a record if there is something in need of saving.

[RasterImage]

Aargh, it still doesn't work.

The code you gave me just gives an error.
I substituted "Me.Dirty = True", instead of just "Me.Dirty True".

Now I sometimes get:

Run-time error '7768':
In order to change data through this form, the focus must be in a bound field that can be modified.

So sorry to keep pestering you with this. I didn't think it would be so tricky or I might not have started, but it would be really nice to get this right!

[boblarson]

Sorry, I guess I had a bad day (not the only messed up code I issued yesterday)

It should be:

If Me.Dirty Then Me.Dirty = False

with the equals sign, but FALSE not TRUE.

[RasterImage]

Yes! It works. It's everything I dreamed of. Thank you so much.

[jobrien4]

I am trying to use this code but am running into some problems.

I have frm_Parts with a button on it that launches frm_Bevel. frm_Bevel is the form I want to hide the New Record row, and it is a multiple items form that has a tabular layout.

So the OnCurrent for frm_Bevel info has the following code:
Me.AllowAdditions = False

I also have an AddButton where the OnClick:
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

The new record is hidden when the form loads, but when I hit the Add New button, nothing happens. The add button was working fine before I tried to hide the New Record. Any ideas?

[boblarson]

frm_Bevel isn't a subform (sitting on frm_Parts) is it?

What code are you using to open frm_Bevel if it isn't a subform?

[jobrien4]

DoCmd.OpenForm "frm_BevelInfo", , , "[PartNumber]=Forms![frm_PartDatabase].[PartNumber] AND [RevisionNumber]=Forms![frm_PartDatabase].[RevisionNumber] AND [CustomerNumber]=Forms![frm_PartDatabase].[CustomerNumber]"

[jobrien4]

Wait I think I figured it out.

From the DoCmd.OpenForm, I added the Forms("frm_BevelInfo").AllowAdditions = False

Then on the click button, I did:

Forms("frm_BevelInfo").AllowAdditions = True
DoCmd.RunCommand acCmdRecordsGoToNew
Forms("frm_BevelInfo").AllowAdditions = False

I'm not sure why that didn't work in the OnCurrent event, but whatever.