One part VBA nullifying another?

[Perfac]

See attachment.
a. In my application on most VBA code pages the first Paragraph in red starts with the purpose that a user without permission cannot change existing info.
b. An enable button is set up and users with permission can click and they are allowed to edit and delete information. All work well.
c. Adding the Paragraph in blue, the experience is that opening the form existing info can be edited or deleted by a user without permission. Adding the blue, nullify the code in red?
d. I tried other "form events" which returned different errors? As always I know there is a solution, must just find it.
e. I will try to set up a small Access dbase that displays this issue and attach it.

[Welshgasman]

What is the point of the second If?
It is either Null or not?

I cannot see how that blue cancels out the red? Are you resetting the Allow back to not allowing?, else look elswhere for your code that allows amendments.
As always if you walk through your code, you can see what Allow options are still set at?

Start learning to debug your code at the basic level. That is what I have always done. It might be slower, but at least I get it right.

[Perfac]

Thanks. I tested it by process of elimination to find the error, battled a bit. It makes no sense to me. There are quite a bit other code on the code page, but as said. When I delete the code in blue the effect of the stuff in red is perfect. When I put the blue code back the red code doesn't work. I will now make time to put all in a small DB to attach here.

[Perfac]

Open attached little part of DB. Test001
a. Open first form f01EducationalInstit. First thing try to add a character at the end of Centurion Acadamy. It will allow it, it should not. Should after clicking enable.
b. Open f01EducatnlInstitType, first try adding any character at the end of "Type". It will not, that is correct.
c. If the blue code above is removed from code page of f01EducationalInstit, then it works.
d. Any solution will do.

[moke123]

Unless I'm doing something wrong, I can't reproduce your error. It appears to work for me.

[Perfac]

Some challenges get fixed when I reproduce exactly the same code or design. But I have done this over and over and it stays the same. The code in blue causes the error. I must do something different.

[Welshgasman]

Well I can replicate the issue, but those properties have not been amended?
I put a Debug.Print in Load and Current events, and what is displayed is shown below.

Current Deletions False
Current Edits False
Load Deletions False
Load Edits False
Current Deletions False
Current Edits False

[Welshgasman]

I can edit only on first entry.
When I go to the subform and then back to the main form, it is not editable?

[Welshgasman]

Unless I'm doing something wrong, I can't reproduce your error. It appears to work for me.

Moke, on first entry to form add a character to institution name.
I can do it, but if I click into the subform then back into mainform, it will not allow edits.

Blowed if I can see how he has done it?

Edit: I'll have to give up, I cannot see what you have done to make this happen. None of the code should affect those properties and the display confirms that.
Need an experienced person to work out what you have done.

You can add that code to the type form but comment out the image and that does not affect the type form? I cannot even see where that Me!Images_IDa is on the first form?

[Perfac]

I chose not to allow changes on most sub forms, it is locked in this case on the Data tab. As I said and may repeat.
a. The second form return the result I want.
b. The first form link to images which the second doesn't, therefore the blue code fetches the Image tables ID to store in Images_IDa.
c. I am not experienced enough to make sense here about the error, but I do have another solution, though still hoping to do it this way.
d. My app got about 250 forms. Tough to go through 150 to fix them 1 by 1.

[Welshgasman]

Yes, you appear to have created one form and just pretty much copied it for the others?
I am at a loss as to how you have done it.

Even if you set the properties to No in the form, on initial entry you can still edit, yet as soon as you click in the subform, you cannot edit in the main form?

I can only assume corruption unless someone else has a better idea?

[Perfac]

Thanks for your help.
The total different solution is actually so easy I am a little embarrassed.
In query q01EducationalInstit there is a field the primary key "EduinsID" which is now linked to "Coment_IDb" in query q01Images.
The code in blue is not needed, so the form result the way it is desired to.

[Welshgasman]

Thanks for your help.
The total different solution is actually so easy I am a little embarrassed.
In query q01EducationalInstit there is a field the primary key "EduinsID" which is now linked to "Coment_IDb" in query q01Images.
The code in blue is not needed, so the form result the way it is desired to.

That does not explain why it behaves as it does?

[Perfac]

Yes, it makes no sense and I didn't learn anything about the issue.

[moke123]

Odd.
I commented out a line of code and I get a .addnew or .update error for no obvious reason.
I searched the code for it but found no instances.

Private Sub txtEducationalInstitNameZZ_AfterUpdate()
    'Me.txtEducationalInstitNameA = Me.txtEducationalInstitNameZZ
End Sub

Why do you format all your fields in the table? It only disguises the true data?