abenitez77
Registered User.
- Local time
- Today, 12:16
- Joined
- Apr 29, 2010
- Messages
- 141
I am creating a form on the fly and I am creating all the fields in the form as well by looping on each field and creating the field on the form. I want to format the textboxes to round on decimal 2. in SQL Server it is showing as .99 and in ms access it shows as 0. How can I format my form with decimal 2 and round it?
For counter = 1 To (rs.Fields.count)
ColumnType = Nz(DLookup("FieldType", "ReportManager_FieldTypes", "FieldName = '" + rs.Fields(counter - 1).Name + "'"), "TextBox")
Select Case ColumnType
Case "TextBox"
Set ctl = CreateControl(frm.Name, acTextBox, acDetail, , rs.Fields(counter - 1).Name)
Case "ComboBox"
Set ctl = CreateControl(frm.Name, acComboBox, acDetail, , rs.Fields(counter - 1).Name)
Case "CheckBox"
Set ctl = CreateControl(frm.Name, acCheckBox, acDetail, , rs.Fields(counter - 1).Name)
Case "HyperLink"
Set ctl = CreateControl(frm.Name, acTextBox, acDetail, , rs.Fields(counter - 1).Name)
End Select
Set ctlLabel = CreateControl(frm.Name, acLabel, , ctl.Name, rs.Fields(counter - 1).Name)
ctl.Name = rs.Fields(counter - 1).Name
ctl.TabIndex = counter - 1
'FieldComment = Nz(DLookup("FieldComment", "AuditTool_TableReportTracker_Table", "name='" + TableName + "' and fieldname='" + ctl.Name + "'"))
'If FieldComment > "" Then
' ctl.StatusBarText = Replace(Replace(Left(FieldComment, 255), Chr(13), " "), Chr(10), " ")
'End If
Next counter
For counter = 1 To (rs.Fields.count)
ColumnType = Nz(DLookup("FieldType", "ReportManager_FieldTypes", "FieldName = '" + rs.Fields(counter - 1).Name + "'"), "TextBox")
Select Case ColumnType
Case "TextBox"
Set ctl = CreateControl(frm.Name, acTextBox, acDetail, , rs.Fields(counter - 1).Name)
Case "ComboBox"
Set ctl = CreateControl(frm.Name, acComboBox, acDetail, , rs.Fields(counter - 1).Name)
Case "CheckBox"
Set ctl = CreateControl(frm.Name, acCheckBox, acDetail, , rs.Fields(counter - 1).Name)
Case "HyperLink"
Set ctl = CreateControl(frm.Name, acTextBox, acDetail, , rs.Fields(counter - 1).Name)
End Select
Set ctlLabel = CreateControl(frm.Name, acLabel, , ctl.Name, rs.Fields(counter - 1).Name)
ctl.Name = rs.Fields(counter - 1).Name
ctl.TabIndex = counter - 1
'FieldComment = Nz(DLookup("FieldComment", "AuditTool_TableReportTracker_Table", "name='" + TableName + "' and fieldname='" + ctl.Name + "'"))
'If FieldComment > "" Then
' ctl.StatusBarText = Replace(Replace(Left(FieldComment, 255), Chr(13), " "), Chr(10), " ")
'End If
Next counter