Когда я запускаю запрос sql, нет предупреждения

Question

Этот код вставляет запись в базовую без предупреждения.

CurrentDb.Execute _ 
"INSERT INTO basetable(clName,clId,clGender) VALUES('test','123','');" 

Я ожидал, что этот код должен появиться, потому что поле clGender установлено как обязательное, но без предупреждения. Не могли бы вы рассказать мне, где я был неправ.

Answer 1

Вы можете использовать:

DoCmd.RunSQL " Insert ... " 

, хотя это может быть слишком много.

Answer 2

Причина, по которой вы не получили предупреждение, состоит в том, что вы предоставили значение для clGender. В представлении табличного дизайна имеются два соответствующих свойства: Required и Allow zero length. Поле clGender имеет оба значения: true. Параметр Required означает, что вы не можете сохранить запись с этим полем как Null, но в вашем заявлении insert вы не указали Null, вы указали пустую строку, которая разрешена установкой Allow zero length.

[EDIT]

К сожалению, только сейчас понял, что происходит. Метод Execute не дает вам обратной связи напрямую. Однако вы можете использовать свойство RecordsAffected, чтобы узнать, выполнило ли оно то, что вы ожидали.

Dim db As DAO.Database 
Set db = CurrentDb() 
db.Execute "INSERT INTO basetable(clName,clId,clGender) VALUES('test','123','')" 
If db.RecordsAffected = 0 Then 
    MsgBox "Insert failed" 
End If 
Set db = Nothing