Databases Reference
In-Depth Information
DateStr = yc & mc & dc
End If
Else
If frmDateTime.OptionButton_OrderDMY = True Then
DateStr = dc & " " & mc & " " & yc
End If
If frmDateTime.OptionButton_OrderMDY = True Then
DateStr = mc & " " & dc & " " & yc
End If
If frmDateTime.OptionButton_OrderYMD = True Then
DateStr = yc & " " & mc & " " & dc
End If
End If
'DateStr = Format(Date, DateStr) This will add unwanted "/"'s
to
date!
If frmDateTime.OptionButton_SepUndscr = True Then
Preview$ = DateStr & "_" & TimeStr
Else
Preview$ = DateStr & "-" & TimeStr
End If
'Add Prefix if desired
If frmDateTime.CheckBox_Prefix = True Then
If frmDateTime.OptionButton_PrefixUndscr = True Then
Preview$ = frmDateTime.TextBox_Prefix & "_" & Preview$
Else
Preview$ = frmDateTime.TextBox_Prefix & "-" & Preview$
End If
End If
'Add Suffix if desired
If frmDateTime.CheckBox_Suffix = True Then
If frmDateTime.OptionButton_SuffixUndscr = True Then
Preview$ = Preview$ & "_" & frmDateTime.TextBox_Suffix
Else
Preview$ = Preview$ & "-" & frmDateTime.TextBox_Suffix
End If
End If
frmDateTime.TextBox_Preview = Preview$
End Sub
Private Sub UserForm_Initialize()
'Initialize Form Elements, must click option buttons to set
Format Components
Call OptionButton_DayLZ_Click
frmDateTime.OptionButton_DayLZ = True
Call OptionButton_TimeMil_Click
