VB Font Size

[shart00]

Trying to write code in access 2003 to something of the effect:
Private Sub GroupFooter1_Print(Cancel As Integer, PrintCount As Integer)
If Me.Balance <= 0 Then
Me.Notes.FontSize = 6
Me.Notes.Visible = False
Me.Exhausted.Visible = True
Me.Text131.Visible = True
Else
Me.Exhausted.Visible = False
Me.Text131.Visible = False
Me.Notes.FontSize = 9
End If

End Sub


This would give the graphic "EXHAUSTED" enough room to display and allow everything in me.notes to be viewed.

 

[shart00]

The problem is that me.notes.fontsize=6 is not working. The font size is not changing under any circumstance. But the rest of the code is working.

 

[dhookom]

I don't see where you are setting the Notes text box back to visible.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[pbrown99]

I saw this post and perhaps someone can help me. I am looking to underline a field via code (but using Access 97)
Tried
Me.player.vbunderline = true
me.player.fontunderline = true
me.player.underline = true

But not having any luck...




Thank you for any and all help!

 

[dhookom]

Please show us your entire code. We don't know where your code is located and if there is any "If...Then" statement. I would think there must be a condition involved.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[pbrown99]

If Me.Captain = True Then
Me.Player__.FontBold = True
Me.Player__.VBunderline = True
Else
Me.Player__.FontBold = False
Me.Player__.VBunerline = False
End If


Thank you for any and all help!

 

[dhookom]

I'm not sure where you code is running (what event). Also, I have never seen VBunerline before. You should compile you code to find errors.

You might want to use:

   Me.Player__.FontUnderline = True

This assumes you have a control named Player__ in your report. I expect this started as [Player #]. As you can see, the use of spaces and symbols should be avoided.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]