Условие на VBA для проверки логического типа данных, ошибка

@vikusechk · Регистрация: 16.03.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте! У меня в форме есть логический флажок, называется он [Принята]. Мне нужно, чтобы когда он был включен - поле ДатаВозврКн автоматически проставила дату сегодняшнего дня. КОгда отключен - убирала. Я прописываю в событие флажка AfterUpdate следующий код

Visual Basic

Private Sub Принята_AfterUpdate()
If [Forms]![ВыдачаКниг1]![Принята] = "-1" Then [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Date
Else: [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Null
End Sub

Ошибка, пишет что "Else without If". Буду благодарна помощи

@AntikBantik · 15.12.2014, 14:43

Сообщение от vikusechk

Private Sub Принята_AfterUpdate()
If [Forms]![ВыдачаКниг1]![Принята] = "-1" Then [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Date
Else: [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Null
End Sub

SQL

Private Sub Принята_AfterUpdate()
    IF [Forms]![ВыдачаКниг1]![Принята] = TRUE THEN 
        [Forms]![ВыдачаКниг1]![ДатаВозврКн] = DATE
        ELSE
            [Forms]![ВыдачаКниг1]![ДатаВозврКн] = NULL
    END IF
END Sub

mobile · 15.12.2014, 14:53

В такой форме IF надо в первой строке задать символ продолжения строки. Во второй двоеточие необязательно

Visual Basic

Private Sub Принята_AfterUpdate()
If [Forms]![ВыдачаКниг1]![Принята] = "-1" Then [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Date _  '<==
Else [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Null
End Sub

@ltv_1953 · 15.12.2014, 14:54

Сообщение от vikusechk

Else:

Не по теме:

С трудом вспомнил откуда этот синтаксис - PHP

@AntikBantik · 15.12.2014, 14:59

Сообщение от mobile

Else [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Null
End Sub

А End If не обизателен?

Сообщение от vikusechk

"Else without If"

он же ругается что IF не закрыт?!

@ltv_1953 17535 / 7287 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	15.12.2014, 14:54	4
	Сообщение от vikusechk Else: Не по теме: С трудом вспомнил откуда этот синтаксис - PHP 0

@AntikBantik 83 / 60 / 21 Регистрация: 03.12.2014 Сообщений: 232
	15.12.2014, 14:59	5
	Сообщение от mobile Else [Forms]![ВыдачаКниг1]![ДатаВозврКн] = Null End Sub А End If не обизателен? Сообщение от vikusechk "Else without If" он же ругается что IF не закрыт?! 0

Условие на VBA для проверки логического типа данных, ошибка

Решение