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

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