message box appears with event "click" but not with event "after Update"

[Rob66]

HI
in an access subform I have a field called "Contract_of_Reference" to which I applied this VBA code


"Private Sub Agreement_of_Reference_AfterUpdate()

If (Me.Contract_of_Reference <> "") Then

MsgBox "Warning! The Reference Contract field is not empty.", vbExclamation, "Warning"

End If


End Sub"

but it does not work.
But if I apply it to the "Click" event the message box appears.


Could someone help me understand why?


Thank you

[Minty]

You are looking at the code for
Agreement_of_Reference_AfterUpdate()

But are talking about code for a control called
Contract_of_Reference
So one or the other is wrong?

[Rob66]

sorry i used translator this is untranslated code



Private Sub Contratto_di_Riferim_AfterUpdate()
Me.[Ragione Sociale].SetFocus
If (Me.Contratto_di_Riferim <> Null) Then

MsgBox "Attenzione! Il campo Contratto di Riferim non è vuoto.", vbExclamation, "Attenzione"

End If
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub Contratto_di_Riferim_Click()

If (Me.Contratto_di_Riferim <> "") Then

MsgBox "Attenzione! Il campo Contratto di Riferim non è vuoto.", vbExclamation, "Attenzione"

End If
End Sub

the field is located in a submask called "Purchase Documents" and is in a "Movement Mask"

[orange]

Null and "" are very different things.

If (Me.Contratto_di_Riferim <> Null)

You could try:
If IsNull(Me.Contratto_di_Riferim) Or
Me.Contratto_di_Riferim = "" Then

[Rob66]

Thank you for your quick answer. but that doesn't work either. With the "click" event it works but not with Afterupdate

[Micron]

Are you sure the event even runs? Suggest you put a break point at the start of the code, or temporarily add this line at the top of it to check if it runs and if there is anything in the message:
MsgBox Len(Me.Contratto_di_Riferim)
Message should be 0 if you think the textbox should have no value.

[Minty]

So at the moment you have exactly the same code in both events and one works and one doesn't?

[Rob66]

now i changed the name of the field from "Contratto_di_Riferim" to "Contratto" and put this code on the form "Private Sub Form_Current()


If Me.Contract = "2270100831" Then
MsgBox "Attention! For this contract it is necessary to make an additional MAP IPGM equal to 8.9% of the actual XXX.", vbExclamation, "Attention"

End If
End Sub"


But the message box pops out 2 times

[Minty]

Take a step back, and tell us what you are trying to achieve.

Record validation should be in the Before Update event of the FORM, very rarely in a specific field.
There is an excellent article here https://www.access-programmers.co.uk...-and-2.324342/
which shows you the best way to do things and why.

[Micron]

Agree. Knowing what you are trying to achieve might eliminate guessing.

But the message box pops out 2 times

You are still using the Change event? That could be why. Change event is seldom the right event to use. In Access, it fires with every keystroke. IIRC, in Excel it only fires when you leave a textbox so is that why you used it in Access?

[Welshgasman]

now i changed the name of the field from "Contratto_di_Riferim" to "Contratto" and put this code on the form "Private Sub Form_Current()


If Me.Contract = "2270100831" Then
MsgBox "Attention! For this contract it is necessary to make an additional MAP IPGM equal to 8.9% of the actual XXX.", vbExclamation, "Attention"

End If
End Sub"


But the message box pops out 2 times

Likely it would. You would be suprised how many times the form current event fires.

[Rob66]

the message window opens 2 times because the "Purchase documents" form is a sub-form of the "navigation form"

[Minty]

The likely sequence of events is as follows;

1. Main form Opens
2. Sub form loads before anything else - SF Current event fires
3. Main Form now loads
4. Sub Form filters to the linked record, causing the Current event to fire again.

As I said the Forms Before_Update event is the only real place to perform field/ record validation.

[Micron]

Not quite wrt the order. Forgetting about the other events that might apply, such as Current or Activate, when user takes an action to load a form that contains a sub form, the order is
subform open > subform load > main form open> main form load
Activate or Deactivate events don't run for subforms.
EDIT - perhaps I should have included activate event since it is relevant to the rest of that post.

sub open>load>current then main form open>load>current.

[Rob66]

Thank you all
I try to explain myself better
Starting from the highest level to the lowest this is the sequence
The Main Mask is a "Movement mask"
By clicking in the body of the "Movement mask" in the properties window there is the name of another element called "UnderMaskMovement"
Inside the UnderMaskMovement there is a submask called "Purchase documents"
Which contains the field that I would like to insert the VBA code to is called “Contract” and its control source is called “Top Contract”
So
1. Mask: Navigation mask
2. Form: SubformMovement
3. Mask: Purchase documents
4. Field: Contract


I searched in this link: https://arrowdesign.ie/reference-sub...-in-ms-access/
But I didn't find or understand the solution
Thank you all