Перенос дат из пользовательской формы в базу данных (включая название дня) - PullRequest
0 голосов
/ 19 февраля 2020

Это может или не может быть возможно, но у меня есть два текстовых поля (textBox20 и Textbox21 ... да, я скоро поменяю их имена), и после того, как я нажму кнопку, третье текстовое поле отображает разницу между обеими датами в формате дней , (Пока все хорошо.) Я хочу иметь возможность вставлять в базу данных или ... в другое текстовое поле и затем отправлять его в ту же базу данных, название дня, которое соответствует каждому из них (textbox20 и textbox21), например, если день: 20.02.2020, в базе данных должно быть указано: четверг, 20.02.2020 или четверг, 20 февраля 2020 года . Если я делаю это в том же окне, я не могу использовать функцию datediff, и это беспорядок ... Я хочу что-то простое перенести в базу данных, чтобы позже я мог найти его и позже отобразить в другом текстовом поле. ... (я делаю небольшую базу данных)

Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'check date format
   With TextBox20
        If IsDate(TextBox20.Text) Then           'Format as desired.
            TextBox20.Text = Format(TextBox20.Text, "dd/mm/yyyy")

       Else
            TextBox20.Text = ""                  'Clear the TextBox
            MsgBox "Please use the following format: DD/MM/YYYY."
            Cancel = True
            Exit Sub
        End If

   End With
End Sub

Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'check date format
   With TextBox21
        If IsDate(TextBox21.Text) Then           'Format as desired.
            TextBox21.Text = Format(TextBox21.Text, "dd/mm/yyyy")

       Else
            TextBox21.Text = ""                  'Clear the TextBox
            MsgBox "Please use the following format: DD/MM/YYYY."
            Cancel = True
            Exit Sub
        End If

   End With
End Sub

Private Sub cmdCal_Click()

TextBox22.Value = DateDiff("d", (TextBox20.Text), (TextBox21.Text))

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...