Question : Excel Format Text Box

Hi All,

I have an excel model that I am developing and it is a forms based application only with no cell referencing.

On my form, I have three text boxes.

Txt1 = DaysOfPicking
Txt2 = IssuesPalletsWeek
Txt3 = IssuesPalletsDay

On the change event of IssuesPalletsWeek, I am calculating the IssuesPalletsDay in my code and I then assign it to the IssuesPalletsDay finished value displays as 1234 instead of 1,234 etc.

Can someone please tell me how I can get it to display as 1,234?

My current code is as follows:

Private Sub IssuesPalletsWeek_AfterUpdate()
Dim vIssuesPltsDay as Integer, vIssuesPalletsWeek As Integer, vDaysOfPicking As Integer

vDaysOfPicking = Me.DaysOfPicking.Value
vIssuesPalletsWeek = Me.IssuesPalletsWeek.Value

If IsNull(vDaysOfPicking) Then
    MsgBox "Please select days of picking first", vbInformation
    Exit Sub
End If

If IsNumeric(vIssuesPalletsWeek) Then
    vIssuesPltsDay = vIssuesPalletsWeek / vDaysOfPicking
    Me.IssuesPltsDay = vIssuesPltsDay
Else
   MsgBox "Please enter numeric values only", vbInformation
End If

End Sub

Thanks in advance.

CF

Answer : Excel Format Text Box

This error message usually points to the email editor that you are using and is not set properly. Please do the following steps...

- Click Start, click Run, type regedit in the Open box, and then click OK.
- Locate and then click the following registry subkey:
HKEY_CURRENT_USER\Software\Microsoft\Shared Tools\Proofing Tools\Custom Dictionaries

- Set the value of CUSTOM.DIC to 1.
- Exit Registry Editor

Hope this helps~!