Отформатируйте пользовательские текстовые данные в формате даты и валюты

Question

Я создал форму пользователя для ввода данных в большую базу данных.Я хочу, чтобы формат даты (и валюта $ xxx.xx) соответствовал формату по умолчанию.

Я хочу, чтобы записи даты отображались как: мм / дд / гггг

Например, еслипользователь вводит 3/16 в пользовательской форме, введите полную дату: 3/16/2019 В базу данных.

Нужна ли переменная сверху?Вещи, которые я пробовал, говорили: «Переменная не определена».

Answer 1

Я понял это !! : ^) Обязательно измените Txt Names в вашей базе данных ...

ВАЛЮТА:

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