Message Box

[Perfac]

I am trying to fix my previous challenge in a much more complicated way, but please focus on what I am after here. I respect your time. You only need to have a look at form f01Agent and the code page on the attached DB.


a. If you select "SARS (Income Tax)" in the Combobox(yellow) Entity Feature, there must be a Message in the message box, "Entity Feature Already Used".
b. There is a text field on the form f01Agent named txtEntFea1. When the selection is made this text field will return a 1.
c. Look only at the first paragraph on my code. The message must appear as soon as txtEntFea1 = 1 and XXX = "Once".
d. I commented it out, but when on it gives an error message.
e. The only help I need here is for the message to show.

Thank you.

[davegri]

Remove that '=' after msgbox.

    If Me.txtEntFea1 = 1 And Me!XXX = "Once" Then
    MsgBox "Entity Feature Already Used"
 End If

[Perfac]

Thank you Dave. Look at the image, see the error message.

[Welshgasman]

You have not removed the = as suggested?

Why are you mixing Me. and Me! ?

[CJ_London]

looks to me like Dave has provided the correct solution - but you have not applied it

[Perfac]

Thanks all. It works well. My age is catching up, shame.

[xps35]

Thanks all. It works well.

I can't imagine it is working well.
You don't do anything with "me.YYY". That variable says whether the feature is already being used. I think the message box always pops up if the "AppearanceA" is equal to "once".
And if it appears, you still leave the chosen value.
You have also adjusted your requirements in the meantime. First (in your other post) you wanted to show where the chosen values ​​were used. Apparently that is no longer necessary.

Private Sub cboEntFea_AfterUpdate()
  Me!XXX = DLookup("AppearanceA", "q01EntityFeatures", "EntfeaID =" & Me.cboEntFea)
  
  If Me.txtEntFea1 = 1 Then
    Me!YYY = DLookup("EntityNameA", "q01CombinedEntities", "Entfea_IDa =" & Me.cboEntFea)
  Else
    Me!YYY = Null
  End If
    
  If Me.txtEntFea1 = 1 And Me!XXX = "Once" Then
    MsgBox "Entity Feature Already Used"
  End If
End Sub

[Perfac]

I thought it is right to use Me. when there is an unbounded field on the form, and Me! when it is bounded.

About YYY. The name of the entity which currently holds that EntityFeatureID appears in YYY. The message box message should therefore return "Entity Feature Already used by Sars (Income Tax).
I was kept busy here for a couple of hours, but I will try that now.
My immediate guess is MsgBox "Entity Feature Already Used by"&""&YYY. What do you think?

[xps35]

The "me" part is not the problem.
The problem is that in your last IF you do not look at the value of me.YYY. That means that regardless of whether me.YYY is null or not, the message box is displayed (in case of "once").

[Welshgasman]

I tend to use Me. until Access complains.
There is a subtle difference between each, but I always forget the differences.

See here for an explanation
https://www.access-programmers.co.uk.../#post-1750807