Как добавить дату из поля ввода, чтобы заполнить весь столбец в выбранной таблице доступа с помощью VBA - PullRequest
Новая
       16

Как добавить дату из поля ввода, чтобы заполнить весь столбец в выбранной таблице доступа с помощью VBA

0 голосов
/ 12 декабря 2018

Я хотел бы знать, как добавить дату (дд.мм.гггг) с использованием поля ввода для заполнения всего столбца в выбранной таблице доступа с использованием VBA.Как здесь:

Вставлено 12.07.2018 в поле ввода 

BNAME|CH_DATE
sdjfj|12.07.2018
sdjdf|12.07.2018

Спасибо!

Ответы [ 2 ]

0 голосов
/ 12 декабря 2018

Попробуйте что-то вроде этого: 

Dim sDate as String
sDate = InputBox("What is the date?")
Rem Here add code to make sure sDate is in expected format "dd.mm.yyyy"
DoCmd.RunSql "UPDATE [MyTableName] SET CH_DATE=#" & Mid(sDate,4,2) & "/" & Left(sDate,2) & "/" Right(sDate,4) & "#"
0 голосов
/ 12 декабря 2018 
Dim vbSql as string
vbSql = "UPDATE tbl SET column=#" & Format(textBox1.Value, "dd.mm.yyyy") & "#;"
DoCmd.RunSql vbSql

вставьте это в соответствующее событие.Очевидно, переименуйте tbl, column и textbox1, чтобы те объекты, которые вы фактически используете

редактировать для Эрика

...