Data has been entered notification!

Z

Zack Mayo

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,
 
A

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,
Click to expand...
hide the button
 
Z

Zack Mayo

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

Thanks,
 
A

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,
Click to expand...

what is your addRecord-button?

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

Andi Mayer..

On Click = Save
Click to expand...
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
 
Z

Zack Mayo

You have been wonderful!

Andi Mayer.. said:
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
Click to expand...
 
Top