Andy Cole - I'm back

[Helen]

I got called back, didn't get to stay long, had dinner,
then the boss called...

I added code

Code to un-protect the notes field - I've assumed Locked
Me.Notes.Locked = False
Thought it would be eaiser to use this box to edit from.
That works OK. (I even removed it and I have the same
problem)

Problem 1:

Me.Notes.Locked = False

Opens ALL of the Note fields, not just the current record.

Problem 2:

The record stays unlocked until I close the entire form.

How can I correct this?


Please help!

I really appreciate all of your help

Helen

PS Las Vegas - WOW , so many lights, so many people
just throwing money away like candy! Nice Casinos.

 

[Andy Cole]

Hey Helen

I Hope the boss has paid for everything (including the casinos!!). Let's
see ...travel, Dinner, hassle factor... Hummm, I'd say around $3000 should
do it!!

Anyway, here's a fix;

After the code,

Me.Notes.Locked = False
RunCommand acCmdZoomBox

Add,

If Me.Dirty Then Me.Dirty = False
Me.Notes.Locked = True

Now...where did I put those brochures on Hawaii...?

HTH

Andy

 

[Andy Cole]

Hey Helen

I Hope the boss has paid for everything (including the casinos!!). Let's
see ...travel, Dinner, hassle factor... Hummm, I'd say around $3000 should
do it!!

Anyway, here's a fix;

After the code,

Me.Notes.Locked = False
RunCommand acCmdZoomBox

Add,

If Me.Dirty Then Me.Dirty = False
Me.Notes.Locked = True

Now...where did I put those brochures on Hawaii...?

HTH

Andy

 

[Helen]

Oh yeah, of course, NOT.

Well once again, you were a tremendous help.
What does this mean, or do?


If Me.Dirty Then Me.Dirty = False
Me.Notes.Locked = True

Thank you again

Helen


Hawaii ? ? ? I would be afraid that the Volcano would blow
up the island. Anyway, on the map, looks to small for me.
I am going to take a plane in the AM and go back to my
vacation.
My fault, it compiled without any errors, and I just
assumed that it would work. I didn't test it, I was so
excited about going to Las Vegas! ! !

 

[Helen]

Oh yeah, of course, NOT.

Well once again, you were a tremendous help.
What does this mean, or do?


If Me.Dirty Then Me.Dirty = False
Me.Notes.Locked = True

Thank you again

Helen


Hawaii ? ? ? I would be afraid that the Volcano would blow
up the island. Anyway, on the map, looks to small for me.
I am going to take a plane in the AM and go back to my
vacation.
My fault, it compiled without any errors, and I just
assumed that it would work. I didn't test it, I was so
excited about going to Las Vegas! ! !

 

[Andy Cole]

Helen

If Me.Dirty Then Me.Dirty = False

This line checks if the record has been 'dirtied' (by the notes being
edited) and if so, forces the record to be saved. This is needed before the
next line;

Me.Notes.Locked = True

can be executed. Without saving the changed Notes, trying to lock the Notes
control would cause an error.

Now, if the boss wants to change his password, tell him its going to take me
*at least* a week (or more) to develop the routine!. Have a good break (and
switch off the cell phone etc)

Andy

 

[Andy Cole]

Helen

If Me.Dirty Then Me.Dirty = False

This line checks if the record has been 'dirtied' (by the notes being
edited) and if so, forces the record to be saved. This is needed before the
next line;

Me.Notes.Locked = True

can be executed. Without saving the changed Notes, trying to lock the Notes
control would cause an error.

Now, if the boss wants to change his password, tell him its going to take me
*at least* a week (or more) to develop the routine!. Have a good break (and
switch off the cell phone etc)

Andy

 

[Helen]

Well, I can get a flight until Monday. So I'm stuck. (I
know, where is the cheese to go with my whine)

I get a run time error 2046, if I open the note field a
second time to say correct the spelling. If I close the
form the re-open it, no error.

Also, If a note field doesn't have a user name and
password, or if it has a usernae and no password, it will
not allow me to edit the field. If the Name and password
field is empty, or just the password name is empty, I
should be allowed to edit the notes field.

My note field is Arial Font 11 point. When I bring up the
ZoomBox, it doesn't have the same font, and if I change it
in the ZoomBox with the font buttom, it doesn't retain the
setting. Can this be fixed?

I deleted the On_Click event to open the ZoomBox so that
the On_DblClick event would work, and created a Zoom
Command Button.

I turned off my cell phone and got different hotel
reservations so I can have my free time. . .
All I can say LAS VEGAS - WOW, What a place !
(I'm impressed with shiny things)

Have a great weekend, and thank you for your help

Helen

 

[Helen]

Well, I can get a flight until Monday. So I'm stuck. (I
know, where is the cheese to go with my whine)

I get a run time error 2046, if I open the note field a
second time to say correct the spelling. If I close the
form the re-open it, no error.

Also, If a note field doesn't have a user name and
password, or if it has a usernae and no password, it will
not allow me to edit the field. If the Name and password
field is empty, or just the password name is empty, I
should be allowed to edit the notes field.

My note field is Arial Font 11 point. When I bring up the
ZoomBox, it doesn't have the same font, and if I change it
in the ZoomBox with the font buttom, it doesn't retain the
setting. Can this be fixed?

I deleted the On_Click event to open the ZoomBox so that
the On_DblClick event would work, and created a Zoom
Command Button.

I turned off my cell phone and got different hotel
reservations so I can have my free time. . .
All I can say LAS VEGAS - WOW, What a place !
(I'm impressed with shiny things)

Have a great weekend, and thank you for your help

Helen

 

[Helen]

Andy,
I think the problem lies in a timer event that I have to
update the screen with the current data when the data has
been changed on any workstation. Can we add ? Me.Refresh
when the Notes field closes, to the code you sent? That
may fix the problem.

I really appreciate your help, more than you can amagine.

Helen

PS I haven't figured out how to make the command button
open the Notes filed as a ZoomBox.

 

[Helen]

Andy,
I think the problem lies in a timer event that I have to
update the screen with the current data when the data has
been changed on any workstation. Can we add ? Me.Refresh
when the Notes field closes, to the code you sent? That
may fix the problem.

I really appreciate your help, more than you can amagine.

Helen

PS I haven't figured out how to make the command button
open the Notes filed as a ZoomBox.

 

[Andy Cole]

Helen

My suggested code opened the Zoombox in the On Doubleclick event. I did it
this way as;
a) we need to unlock the Notes field,
b) update the Notes (using the Zoombox which being Modal will prevent the
code carrying on until it closes)
c) lock the updated Notes field
d) save the changes

Would you prefer use a button to trigger the process rather than the double
click?

Can you post what's in the Timer event and what the Timer Interval is?

Andy

 

[Andy Cole]

Helen

My suggested code opened the Zoombox in the On Doubleclick event. I did it
this way as;
a) we need to unlock the Notes field,
b) update the Notes (using the Zoombox which being Modal will prevent the
code carrying on until it closes)
c) lock the updated Notes field
d) save the changes

Would you prefer use a button to trigger the process rather than the double
click?

Can you post what's in the Timer event and what the Timer Interval is?

Andy

 

[Helen]

I did post a reply, but I don't know where it went.

I replaced the lines you mentioned

I did removed the On_Click event

But I not sure how to make the command button work to Open
the Notes field, (ZoomBox).

I have no means to send this file. Our email strips all
out going attachments. We have no Floppy drives.

I think the problem might be, that the form has a timer
event that refreshes the table and screen so that any
changes from any workstation shows up.

Can we add a Me.Refresh in your previous code that after
the Notes field/ZoomBox closes it does a refresh? That
might fix this.

Thank you again

Helen

 

[Helen]

I did post a reply, but I don't know where it went.

I replaced the lines you mentioned

I did removed the On_Click event

But I not sure how to make the command button work to Open
the Notes field, (ZoomBox).

I have no means to send this file. Our email strips all
out going attachments. We have no Floppy drives.

I think the problem might be, that the form has a timer
event that refreshes the table and screen so that any
changes from any workstation shows up.

Can we add a Me.Refresh in your previous code that after
the Notes field/ZoomBox closes it does a refresh? That
might fix this.

Thank you again

Helen

 

[Dirk Goldgar]

PS I haven't figured out how to make the command button
open the Notes filed as a ZoomBox.

PMFJI, but if you're clicking a command button, but want to open a zoom
box on the Notes field (a different control), you'll have to set the
focus to that control first, before invoking the zoom box:

Me.Notes.SetFocus
RunCommand acCmdZoomBox

Have you omitted that SetFocus step?

 

[Dirk Goldgar]

PS I haven't figured out how to make the command button
open the Notes filed as a ZoomBox.

PMFJI, but if you're clicking a command button, but want to open a zoom
box on the Notes field (a different control), you'll have to set the
focus to that control first, before invoking the zoom box:

Me.Notes.SetFocus
RunCommand acCmdZoomBox

Have you omitted that SetFocus step?

 

[Helen]

That does work, and I don't get any errors on that part.
But, It does unprotect the field. I have the field
protected from editing unless they use a password. All I
want to ZoomBox Command button to do is Zoom but no
editing. I added this line before the ZoomBox, but that
didn't help.

Me.Notes.Locked = True

Thank you for your help

Helen

 

[Helen]

That does work, and I don't get any errors on that part.
But, It does unprotect the field. I have the field
protected from editing unless they use a password. All I
want to ZoomBox Command button to do is Zoom but no
editing. I added this line before the ZoomBox, but that
didn't help.

Me.Notes.Locked = True

Thank you for your help

Helen

 

[Helen]

Thank you again

That seem to fix the problem I had with Run Time Error 2046
in the note field, even though the "Me.Notes.SetFocus" is
attached to the command button.

Thank you again

Helen