Simplifying the code for formatting all textboxes after update.

[Darranimo]

Is there a way to simplify this coding?

Private Sub txtAmount1_AfterUpdate()
    Dim txt As Object
    Set txt = Me.txtAmount1
        
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub
Private Sub txtAmount2_AfterUpdate()
    Dim txt As Object
    Set txt = Me.txtAmount2
        
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub
Private Sub txtAmount3_AfterUpdate()
    Dim txt As Object
    Set txt = Me.txtAmount3
        
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub
Private Sub txtAmount4_AfterUpdate()
    Dim txt As Object
    Set txt = Me.txtAmount4
        
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub
Private Sub txtAmount5_AfterUpdate()
    Dim txt As Object
    Set txt = Me.txtAmount5
        
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub

 

[iggydarsa]

I havent tested this but give it a try

Private Sub txtAmount1_AfterUpdate()
    FormatText Me.txtAmount1
End Sub
Private Sub txtAmount2_AfterUpdate()
    FormatText Me.txtAmount2
End Sub
Private Sub txtAmount3_AfterUpdate()
    FormatText Me.txtAmount3
End Sub
Private Sub txtAmount4_AfterUpdate()
    FormatText Me.txtAmount4
End Sub
Private Sub txtAmount5_AfterUpdate()
    FormatText Me.txtAmount5
End Sub

Private Sub FormatText(ByVal txt as Object)
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub

 

[Darranimo]

I havent tested this but give it a try

Private Sub txtAmount1_AfterUpdate()
    FormatText Me.txtAmount1
End Sub
Private Sub txtAmount2_AfterUpdate()
    FormatText Me.txtAmount2
End Sub
Private Sub txtAmount3_AfterUpdate()
    FormatText Me.txtAmount3
End Sub
Private Sub txtAmount4_AfterUpdate()
    FormatText Me.txtAmount4
End Sub
Private Sub txtAmount5_AfterUpdate()
    FormatText Me.txtAmount5
End Sub

Private Sub FormatText(ByVal txt as Object)
    With txt
        If IsNumeric(.Value) Then .Value = Format(.Value, "#,##0.00")
        If txt.Value = "" Then txt.Value = "0.00"
    End With
End Sub

Beautiful! Thank you!!!