Recent content by calestra

Oh yes... shay... You forgot to mention to make sure your caption was named *Read-only* (ha, ha) :p

Success!! Don't understand why this happened? I made a copy of my form, deleted the original, re-named the new form to the old one, and no more code errors!! I tried your code shay... it's perfect for what I want! Work's a treat!..... Thanks to everyone for your time and effort! :)

Well nearly there...! I cleaned out ALL the code from my form, and any buttons etc.., and inserted your code into what is now a bare data entry form. The read only function works ok but has this error when I tick the checkbox Run-Time Error '438' - Object dosen't support this property or...

Thanks for your help pdx_man.... I can see that there is a lot of old bits and pieces of code laying around in this db. So I will do a copy and delete all the old stuff and see how I get on. Your code works just great on some of my other DB's, so thanks!

Thanks pdx_man... I'm away now for the weekend. I'll give it a try Monday morning and let you know then. I appreciate your help on this.... have a good one!

Oops! Just changed this..... If Me.Noed = True Then Still no go though!

This is what I have entered under 'on click' on my check box. I have right clicked it under 'design view' and clicked 'build event'. When I do so this is displayed in the code display.... Private Sub Noed_Click() Dim fld As Control If Me.Check1 = True Then For Each fld In...

Hello Pdx_Man.... I have tried all the example's so far and have been unable to get any working. Now... I know this is due to my lack of expeience! I have copied your instructions to the letter, but only get the error as shown earlier, when I tick the box.

Thanks for your advise everyone! Rich... I have tried your method but am stumped. I cannot find an 'On Enter' event anywhere on my original main form (now the sub form) in 'design view'. You deleted your post?

Is this really what I want? I'm begining to wonder! I just want an easy way to protect the data shown in a form ie: I can't accidentally delete or overwrite something, but I want to be able to switch it on and off if I want to add or edit etc... Thanks for your patience....

No... the "stoopid me" bit realised my errors... I used your code, and made sure the check-box was named Check_1 I got no errors but then no function either..... Private Sub Check1_Click() Dim fld As Control If Me.Check1 = True Then For Each fld In Me.Controls If...

Ok.... I see where the error was coming from! Stoopid me! However when I check the box I am still able to mess around with the data, and save the changes. Also when I close then re-open the form the check mark has gone and needs ticking again....

This is what I entered in 'design view' under 'on click' Private Sub Readonly_Click() Dim ctl As Control Dim iCnt As Integer For Each ctl In Me If ctl.ControlType <= 103 Then GoTo Skip2Next If ctl.ControlType >= 112 Then GoTo Skip2Next If ctl.Name = "txtHoldFocus" Then GoTo Skip2Next If...

Thanks for your replys.... I'm missing something here! I enter this code under 'on click'... and just get errors when I try it.

Hello..... I want to add a check box on a data entry form that will change the form to 'read only' when checked, and released when unchecked. Sorry... I'm new to this and have not found my answer anywhere! TIA Vince :)