Form Text Box Control Events

[PNGBill]

Hi forum, Access 2010 accdb

I have a form with an unbound Text Box Control.

The Control Source is defined by the Form On Open Event.
One option is for a string (function) to populate the Text Box Control and the other is for a Value to be placed in the control.

Both options result in automatic population of the control with a Currency value.

I would like a Command Button control to be Enabled - True or False depending on the value. as per the code below.

Dim LateFee As Currency
    LateFee = Me.txtLateFeesToBeCharged
    
    If LateFee = 0 Then
        Me.CmdChargeLateFee.Enabled = True
    End If

I have tried AfterUpdate and Dirty without success

Any other options or methods to get this to react ??

Appreciate any advice

 

[Poppa Smurf]

Remove the Me. as Me refers to the control that is used for data. for buttons etc use the name without the Me.

Assuming your text field is called txtLateFeesToBeCharged then you will need code similar to this

sub txtLateFeesToBeCharged_Afterupdate()
If Me.txtLateFeesToBeCharged=0 then
CmdChargeLateFee.Enabled = True
else
CmdChargeLateFee.Enabled = false
End If
 
end sub

You could replace Me.txtLateFeesToBeCharged with
Dim LateFee As Currency
LateFee = Me.txtLateFeesToBeCharged

If LateFee = 0 Then
etc.

 

[PNGBill]

I tried this

Private Sub txtLateFeesToBeCharged_AfterUpdate()
    
    Dim LateFee As Currency
    LateFee = Me.txtLateFeesToBeCharged
    
    If LateFee <> 0 Then
        CmdChargeLateFee.Enabled = True
    Else
        CmdChargeLateFee.Enabled = False
    End If
    
End Sub

But it isn't Kicking In.

I was playing earlier and this works

Private Sub Form_Timer()
    Dim LateFee As Currency
   On Error GoTo Form_Timer_Error
    LateFee = Nz(Me.txtLateFeesToBeCharged, 0)
    If LateFee <> 0 Then
        CmdChargeLateFee.Enabled = True
    End If
End Sub

Timer is set to 1000 but it doesn't appear to make a difference how long it takes for the function to load a value in the control but when it does, the command button is enabled.

Why is time working and after update doesn't ?

It appears timer waites for the function to complete ??

 

[Poppa Smurf]

Use this code

Sub Form_Open(Cancel As Integer)
Me!txtLateFeesToBeCharged = 0
check_late_fees
End Sub

Sub txtLateFeesToBeCharged_AfterUpdate()
check_late_fees
End Sub

Sub check_late_fees()
If Me!txtLateFeesToBeCharged = 0 Then
CmdChargeLateFee.Enabled = True
Else
CmdChargeLateFee.Enabled = False
End If
End Sub

The Open event triggers when the form opens and assigns a value of 0 to the text box, then the sub procedure check_late_fees is called and enables the button depending on the value of the text box as 0 is the value then the button is enabled. If 12 is entered in the text box then the button is not enabled. The sub procedure check_late_fees saves the duplication of coding for the textbox value.

 

[vbaInet]

Actually you should put the IF...ELSE code (provided by Poppa Smurf) in the Current event of the form and the After Update event of the control.