Re: flag notes on tab

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance



Thanks Damon, that helped a lot!

Everything worked great.

"Damon Heron" wrote:

Use pretty much the same code as you have, except for two labels in the form
Header. If you don't have a form header, it might be a good location for
the labels, if you have room. There are two labels because of your if
statements are separate. You know your data better than I, so I am guessing
both events could be true -in which case, only the second msg would display
unless you have two labels. When placing the labels in design mode, give
them some caption or they won't stay. After form is loaded, then they can
be blank.

Damon


Private Sub Form_Load()
If IsNull(DOCN) = False Or IsNull(ADN) = False Or IsNull(OTHN) = False Or
IsNull(SUPN) = False Then
me.Label1.caption="THERE ARE INTERNAL NOTES TO REVIEW"
Else
me.Label1.caption=""
End If

If IsNull(Note) = False Then
me.Label2.caption="THERE ARE CLIENT NOTES TO REVIEW"

Else
me.Label2.caption=""
End If
End Sub

"Jean-Francois Gauthier" <JeanFrancoisGauthier@xxxxxxxxxxxxxxxxxxxxxxxxx>
wrote in message news:5E3BCDFC-E77B-428A-B1FB-99C981D1BBE5@xxxxxxxxxxxxxxxx
Hi Damon and Chris,

Well I really like the idea of showing the picture, like a checkmark,
however I am wondering how to have this showing and how to code my
application so that it only shows if there is data in certain fields.

What I'd like to be able to do is that from the main tab (page 1), if
there
are notes in the internal notes tab (page 2), that the user sees either a
color change on tab page 2, or a picture, or a label, (I'm not picky with
this), but basically have something to tell them to go and look at page 2.
If the picture or label idea works for this, I would like to implement
this
instead of the msg box idea, as stated by Damon, requires an extra click
by
the user.

Thank you for your help and I look forward to hearing more from you.

"Damon Heron" wrote:

If a msg box is too intrusive, you could have a label above the page
controls, and set the label.caption to read what your msgbox would read.
The only problem I have with info msgboxes is the extra "click" the user
has
to go thru. A label would inform the user when the form is loaded.
"Jean-Francois Gauthier" <JeanFrancoisGauthier@xxxxxxxxxxxxxxxxxxxxxxxxx>
wrote in message
news:E6F6AD9C-ACD3-4092-9BC4-ED26D7206122@xxxxxxxxxxxxxxxx
Hi Damon,

I was able to somewhat "fix" my issue using a msgbox.

I used the following code:

Private Sub Form_Load()
If IsNull(DOCN) = False Or IsNull(ADN) = False Or IsNull(OTHN) = False
Or
IsNull(SUPN) = False Then
MsgBox ("THERE ARE INTERNAL NOTES TO REVIEW")
End If

If IsNull(Note) = False Then
MsgBox ("THERE ARE CLIENT NOTES TO REVIEW")
End If
End Sub

Thanks for your help on this.


"Damon Heron" wrote:

Without creating your own tab controls, I don't believe you can change
the
font color on a tab. How about this instead? make the tab invisible
if
there is nothing to see.
If all of your fields are empty, then in the on current event of the
form,
put code like this:

Private Sub Form_Current() ' use your own field names - mine are
AmtPaid,
AmtDue, and Datedue
If Me.AmtPaid = 0 and Me.AmtDue= 0 and Me.Datedue= 0 Then
Me.Page3.Visible = False
Else
Me.Page3.Visible = True
End If
End Sub

you may also have to account for null values, if that is a
possibility.
(like If isnull(Me.AmtPaid) or Me.AmtPaid=0....)

Damon

"Jean-Francois Gauthier"
<JeanFrancoisGauthier@xxxxxxxxxxxxxxxxxxxxxxxxx>
wrote in message
news:1236EEFD-73AB-4365-A0B5-0F9202B8EB01@xxxxxxxxxxxxxxxx
Hi,

I have a form frm_docinput and frm_docedit that contain the same 3
tabs.

On my 2nd and 3rd tabs, these are for notes. 2nd tab is for
internal
notes
and 3rd tab is for client notes (seen by the client).

On the 2nd tab (name intn) I have 4 fields with the names docn,
adn,
supn
and othn.

I would like to build a code that when the form loads, if there is
anything
entered in the docn, adn, supn and/or othn fileds, that the tab intn
is
in
a
color (lets say Blue) as to flag to say that there are notes to look
at.

Is this possible?












.



Relevant Pages

  • Re: Selecting a cell
    ... tab to the correct field and type the new number you want. ... > it into a custom label program to print price & description barcoded labels. ... > Dialogue, tab right 4 cells, type the number of labels - then CTRL-F etc. etc. ...
    (microsoft.public.excel.programming)
  • Re: How can I format label name as I loop through records?
    ... I'm using a tab control to ... > identify all the potential subform records, ... > I have created small 'marker' labels above each tab and want to make ...
    (microsoft.public.access.formscoding)
  • Re: Form "twitch" on label mouuse_over
    ... labels on the second tab and the third tab, then it really does seem odd. ... One last thing - are they actually labels, or are they text boxes that are ... are two subforms with labels, ... On the third tab (Case Appointments) there is a single subform for ...
    (microsoft.public.access.gettingstarted)
  • Re: flag notes on tab
    ... Use pretty much the same code as you have, except for two labels in the form ... Private Sub Form_Load ... What I'd like to be able to do is that from the main tab, ... I was able to somewhat "fix" my issue using a msgbox. ...
    (microsoft.public.access.formscoding)
  • Re: Form "twitch" on label mouuse_over
    ... The first tab contains only bound controls. ... are two subforms with labels, ... with these unattached "instruction" labels. ... On the third tab (Case Appointments) there is a single subform for ...
    (microsoft.public.access.gettingstarted)