Before Update with Combo Boxes

[Banana]

Actuatlly, it seems that Lister had it right; he did indeed suggest that you create a command button to close the form.

I tripped over when he said that you could use close event, thinking he meant form close event.

 

[businessman]

why does it have to be a button? does it have to do with the way it saves to memory or is it a MS thing or does Access hate me?

 

[Lister]

Back

In my opinion; I use buttons for all my close events. It makes life simple, the user has finished updateing or viewing what ever and has chosen to close. So THEY click close, no writing another hundred lines of code just to cover all the possable way the form could be closed by an action or event calculation.

What is your logic for not using a button to close the form businessman?

 

[businessman]

My only reason for wanting to not use a button and to use the "X" on the window to close is simply that this database has been in use for the past few months. The users are now use to being able to just close the windown using that "X". I'm affraid that using a new button to close will not catch on very quickly and the records will not be updated correctly when a user is done with the record.

 

[Lister]

Easy, take the little red X off them and give 'em a close button.

 

[businessman]

how do you take away the Window's OS window red "X" off?

 

[Banana]

Set form's property "Close Button" to No. It's in the Format tab. You can also disable Min/Max as well.

 

[businessman]

can you default the frames to max or is that pushing it a little..lol

 

[Banana]

Yes. In open event,

Me.Maximize

(That was off the top of my head- Check VBA's help for proper syntax using Maximize.)

 

[businessman]

So does Access have a lot of limitation or can you pretty much get around the roadblocks to do what ever you want?

 

[Banana]

Hmmm. I'd phrase this way.

You can do anything you want given unlimited time and resources. (Yes, you can eventually figure out a mean to get Access to map the entire Human Genome Project if you are so inclined). However your time and resources are not unlimited, so you must make some sarcifices.

HTH.

 

[businessman]

good point. thanks for the help

 

[cross5900]

I have similar issue as businessman and I am getting the same error, also it is not a popup.

Private Sub AssociateInitialsBox_Dirty(Cancel As Integer)

Dim aEmp As Variant

aEmp = DLookup("RightsLevel", "Users", "UserID='" & Environ("username") & "'")

If aEmp = 10 Then
MsgBox "You Do Not Have Permission To Change This Field, Please See Your Supervisor If You Need To Reassign the Account"
DoCmd.RunCommand acUndo
End If