将用户形式的文本数据格式化为日期和货币格式

Question

我创建了一个用户窗体，用于将数据输入到大型数据库中。我希望日期格式（和货币$ xxx.xx）格式化为适当的默认值。

我希望日期条目显示为：mm / dd / yyyy

例如，如果用户输入的用户表格中输入3/16，则输入完整日期： 3/16/2019 插入数据库。

我需要一个变量吗？我尝试过的内容是“未定义变量”。

Answer 1

我想出了这个！！ ：^）确保将Txt名称更改为您的数据库...

货币：

Private Sub Txt_Estimate_Amt_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Estimate_Amt FORMAT
Me.Txt_Estimate_Amt = Format(Txt_Estimate_Amt, "$#,##0.00")
End Sub

电话：

Private Sub Txt_Client_Phone_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Txt_Client_Phone FORMAT
Me.Txt_Client_Phone = Format(Txt_Client_Phone, "###-###-####")
End Sub

日期：

Private Sub Txt_Invoiced_Date_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Invoice Date FORMAT
Me.Txt_Invoiced_Date = CDate(Me.Txt_Invoiced_Date)
End Sub

今天的日期：

Private Sub Txt_Date_Recvd_Change()
  Txt_Date_Recvd = Format(Now(), "Short Date")
End Sub