Access 2000- Multiple Conditions on multiple fields

[Geneman]

I am using the current code to make a button visible.

Private Sub Form_Current()
If Me.related = "X" Then
Me.addinfo.Visible = True
Else
Me.addinfo.Visible = False
End If
End Sub

Works fine

I need to add a second condition to make a separate field trigger the same button to appear.

me.notes.isblank = false

In other words if there is anything in the notes field I also want the button to appear.

Another scenario I might want to code is if a certain piece of text appears in the notes field, I want the button to appear.

me.notes - "specific name" then make the button visible.

I'm not sure how to fit either code piece into what is currently working.

I tried....

Private Sub Form_Current()
If Me.related = "X" or me.notes.isblank = False Then
Me.addinfo.Visible = True
Else
Me.addinfo.Visible = False
End If
End Sub

It crashed

So did

Private Sub Form_Current()
If Me.related = "X" or Me.notes.isnull = False Then
Me.addinfo.Visible = True
Else
Me.addinfo.Visible = False
End If
End Sub

I know I am close but missing something simple.

[Rabbit]

It should be IsNull(Me.Notes) and equivalently IsBlank(Me.Notes).

[Geneman]

It should be IsNull(Me.Notes) and equivalently IsBlank(Me.Notes).

Ok, that works on ANY content in the field notes......
so for specific content would I use Me.Notes = "Specific Content"

What happens if that content is not the only thing in the field.
notes is a memo field and may contain a variety of entries.
I only want the button to show if a specific entry is part of those
entries.

Example:
Notes may include
Sources: Non-specific content, specific content, non specific content
or
Sources: Specific Content
or
Sources: Non Specific Content.

I only want the button to show on examples one and two but not on three.

And yes, I have thought about creating a separate entry field that triggers the
Additional Information button no matter what originating field triggers it.

Originally, the related field was the only field until I aquired other outside sources of additional information. Thus it expanded what could trigger the button.

[Rabbit]

Ok, that works on ANY content in the field notes......
so for specific content would I use Me.Notes = "Specific Content"

What happens if that content is not the only thing in the field.
notes is a memo field and may contain a variety of entries.
I only want the button to show if a specific entry is part of those
entries.

Example:
Notes may include
Sources: Non-specific content, specific content, non specific content
or
Sources: Specific Content
or
Sources: Non Specific Content.

I only want the button to show on examples one and two but not on three.

And yes, I have thought about creating a separate entry field that triggers the
Additional Information button no matter what originating field triggers it.

Originally, the related field was the only field until I aquired other outside sources of additional information. Thus it expanded what could trigger the button.

Are the values actually "Specific Content" and "Non Specific Content"? Or is that just a variable for something else.

[Geneman]

Are the values actually "Specific Content" and "Non Specific Content"? Or is that just a variable for something else.

I was using them as generic examples.

The content of the notes memo field could look like any of these.

Source: Joe Smith
Sources: Obituary, Funeral Home, Census
Source: Funeral Home, Ralph Jones, Census, Bible
Source: Obituary

If the field contains,either Obituary or Funeral Home as a listed source, I would want my Additional Information button to appear.
If either or both of those two are not listed as a source, the Additional information button would not be triggered by that field, but it could still be triggered by the related field.

So what I need is the code to correct this second line to make it work.


Private Sub Form_Current()
If Me.related = "X" Or Me.notes contains "Obituary" or "Funeral Home" Then
Me.addinfo.Visible = True
Else
Me.addinfo.Visible = False
End If
End Sub

[Rabbit]

To search for a substring within a string, use InStr(String, Substring). It returns the position that the substring starts.

string is zero-length = 0
string is Null = Null
substring is zero-length = 1
substring is Null = Null
substring is not found = 0
substring is found within string = Position at which match is found

[Geneman]

To search for a substring within a string, use InStr(String, Substring). It returns the position that the substring starts.

Here is what is working now, I'don't know if it is considered good or pure code or not.

Private Sub Form_Current()
If Me.related = "X" Or InStr(notes, "Funeral Home") Or InStr(notes, "Obituary") Then
Me.addinfo.Visible = True
Else
Me.addinfo.Visible = False
End If
End Sub

Is there any way to do multiple String pieces in one Instr command?
Something like this which did not work....
Instr(notes, "Obitary", "Funeral Home", "Bible")

I could have up to six or seven trigger words or more.

Eventually I want it coded so each trigger word shows a specific button or maybe a form with a price for that specific trigger item. That out to be fun, coding 6 buttons to view in the same place. I'm still thinking this one through.....

[Rabbit]

No, you can't use InStr that way.

However, you could have a table with one field whose records consists solely of the strings and then use the DCount function to see if it exists in the table. That way, if you want to get rid of something or add something you just have to edit the table instead of the code.

[Geneman]

Interesting, then I could have 100 trigger words and a heck of a lot less coding.
Thanks!

Now on to reading how to implement DCount.

[Rabbit]

Interesting, then I could have 100 trigger words and a heck of a lot less coding.
Thanks!

Now on to reading how to implement DCount.

Not a problem, let us know if you have any difficulty.