Control Class Module
 

I haven't used class modules that much, but in revising some code, I
see I can probably save some memory by using creating one.

I have 77 textboxes all formatted as currency on afterupdate:


Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(Me.TextBox1.Value, "Currency")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2.Value = Format(Me.TextBox2.Value, "Currency")
End Sub
Private Sub TextBox3_AfterUpdate()
TextBox3.Value = Format(Me.TextBox3.Value, "Currency")
End Sub
..
..
..
..
Private Sub TextBox77_AfterUpdate()
TextBox77.Value = Format(Me.TextBox77.Value, "Currency")
End Sub


Help is greatly appreciated.

James

Control Class Module
 

Afraid that those events are not exposed to application events.

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"KD" wrote in message
ups.com...
I haven't used class modules that much, but in revising some code, I
see I can probably save some memory by using creating one.

I have 77 textboxes all formatted as currency on afterupdate:


Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(Me.TextBox1.Value, "Currency")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2.Value = Format(Me.TextBox2.Value, "Currency")
End Sub
Private Sub TextBox3_AfterUpdate()
TextBox3.Value = Format(Me.TextBox3.Value, "Currency")
End Sub
.
.
.
.
Private Sub TextBox77_AfterUpdate()
TextBox77.Value = Format(Me.TextBox77.Value, "Currency")
End Sub


Help is greatly appreciated.

James