Data has been entered notification!

[Guest]

Hello,

Not a true wizard at access but need something to function. I have created
an easy form to track info. When I push the add record button I need
something to indicate that the record has been saved so people don't click it
numerous times. Any ideas on how to do this?

Thanks,

 

[Andi Mayer..]

On Fri, 18 Feb 2005 04:19:01 -0800, Zack Mayo <Zack

Hello,

Not a true wizard at access but need something to function. I have created
an easy form to track info. When I push the add record button I need
something to indicate that the record has been saved so people don't click it
numerous times. Any ideas on how to do this?

Thanks,

hide the button

 

[Guest]

Can that be done after the initial click? and will it return when the click
the add record button?

Thanks,

 

[Andi Mayer..]

On Fri, 18 Feb 2005 05:39:02 -0800, Zack Mayo <Zack

Can that be done after the initial click? and will it return when the click
the add record button?

Thanks,

what is your addRecord-button?

I assume that you have a commandbutton with an on-Click-event

 

[Guest]

On Fri, 18 Feb 2005 05:39:02 -0800, Zack Mayo <Zack


what is your addRecord-button?

I assume that you have a commandbutton with an on-Click-event

 

[Andi Mayer..]

On Click = Save

be a little bit more informativ if you want help

what is that?

is this a macro?

or something like this:

Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click


' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
'acMenuVer70
DoCmd.Save
Exit_Befehl1_Click:
Exit Sub

Err_Befehl1_Click:
MsgBox Err.Description
Resume Exit_Befehl1_Click

End Sub

then add after the docmd.save:
me.Befehl1.visible=false

and change .Befehl1 with your button name

 

[Guest]

You have been wonderful!

be a little bit more informativ if you want help

what is that?

is this a macro?

or something like this:

Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click


' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
'acMenuVer70
DoCmd.Save
Exit_Befehl1_Click:
Exit Sub

Err_Befehl1_Click:
MsgBox Err.Description
Resume Exit_Befehl1_Click

End Sub

then add after the docmd.save:
me.Befehl1.visible=false

and change .Befehl1 with your button name