Private Sub txtTransactionAmount_AfterUpdate()
	If Not IsNull(Me!txtTransactionAmount) And _
		Not IsNull(Me!txtCommissionRate) Then
			Me!txtCommission = Me!txtTransactionAmount * Me!txtCommissionRate
	End If
End Sub