Добрый вечер!

Можно ли полю Дата/время в Таблицы
назначить Значение по умолчанию = Now()

У меня при сохранении таблицы выдается сообщение об ошибке компиляции.

И еще один вопрос : Можно ли функцию пользователя задать значением по умолчанию для какого-либо поля таблицы?

Заранее благодарна!

Нажимаю кнопку сохранить и помошник выдает сообщение об ошибке:Ошибка компиляции. В выражении условия на значение уровня таблицы.

Когда устанавливаю значение по умолчание не Now(), а пусто , то таблица
нормально сохраняется.

Повторяю при сохранении таблицы выдается вот такая фигна :

Да галка на Visual Basic стоит.

Попробовала создать новую БД и там таблицу, все хорошо работает

а в этой БД нет :(

Не пойму в чем дело....

В любую из таблиц пытаюсь в поле дата/время поставить значение по
умолчанию: date() и в результате появляется та же ошибка.

Во приехала .................!!!!!!!!111

Нашла в чем ошибка!!!

В одном из модулей написала два раза:

Option Compare Database

Option Compare Database


Можете объяснить почему такие последствия ... ??

НУ ладно, еще одна проблемка вызвать функцию пользователя:

В значении по умолчании пишу: ComputerName()
Почему он снова ругается (

Код модуля представляю как есть ниже:

Option Compare Database

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Public Function ComputerName() As String
Dim a As String * 40
Dim nSize As Long
nSize = 40
Call GetComputerName(a, nSize)
ComputerName = StrZ(a)
End Function
Public Function UserName() As String
Dim a As String * 40
Dim nSize As Long
nSize = 40
Call GetUserName(a, nSize)
UserName = StrZ(a)
End Function
Private Function StrZ(par As String) As String
Dim nSize As Long, i As Long, Rez As String
nSize = Len(par)
i = InStr(1, par, Chr(0)) - 1
If i > nSize Then i = nSize
If i < 0 Then i = nSize
StrZ = Mid(par, 1, i)
End Function

Я прихожу к выводу, что только встроенные функции можно поставить
в значение по умолчанию ;)

Спасибо всем! Ухожу домой ...