Onclick in a check box = Text Size change

[pdavis27040]

Hi everyone just curious to know if anyone knows how to make text size change to a bigger font when particular check box has been clicked.

My other question is I have a date of membership field and an experation date filed. Is there anyway that when a date is inputted into the database the experation date automatically pops up w/ the date one year from now. I do appreciate it!!!!

 

[jfgambit]

1. Add the following to the After Update Event of the checkbox (change the name of the Checkbox to the appropriate name)

Private Sub CkFont_AfterUpdate()
Dim frm As Form
Dim ctl As Control

If Me.CkFont = True Then
Set frm = Screen.ActiveForm
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.FontSize = 14
End Select
Next ctl

Else
Set frm = Screen.ActiveForm
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.FontSize = 8
End Select
Next ctl
End If


2. Add the following to the After Update Event of the Membership date

me.ExpirationDate = me.membershipdate + 365

HTH

 

[WayneRyan]

pdavis,

In the AfterUpdate event of your checkbox:

If Me.MyCheckBox = True Then
   Me.MytxtBox.FontSize = 24
End If

For your other topic, see DateAdd in the Help files.

Wayne

 

[pdavis27040]

Thank You!!!

I do appreciate the help!!! Thank you VERY much!!!