Ошибка в IF?

[alex shestov]

Помоги найти ошибку.
Нужно: В форме чтобы при выборе определенной записи из всплывающего списка показывались определенные поля или скрывались.
Условие: В сплывающий список данные подкачиваются из таблицы а условие по которому обрабатывается If качается из той же таблицы но из другого столбца.

Что я не правильно делаю, потому как IF все время True при любом ограничении выборки и ставь хоть 1 хоть 21 все время подсвечивает поля?

Код: Выделить всё


Private Sub Secur_AfterUpdate()
On Error Resume Next
Dim rs As DAO.Recordset
Dim strSql As String
strSql = ("SELECT Securities.VidSecur, Securities.EmitNameCondin " _
        & "FROM Securities WHERE (((Securities.EmitNameCondin)=[Forms]![Deal1]![Secur]));")
If rs.Fields("VidSecur") = "1" Then
    Forms!Deal1!All_Nomin.Visible = True
    Forms!Deal1!NKD.Visible = True
Else
    Forms!Deal1!All_Nomin.Visible = False
    Forms!Deal1!NKD.Visible = False
End If
End Sub


Спасибо.

[Sebas]

))))))))

ON Error Resume Next

убери))))

[alex shestov]

))))))))

ON Error Resume Next

убери))))

Убрал. но все равно не работает. Я правда еще немного код неправильно прописал

Код: Выделить всё


Dim rs As DAO.Recordset
Dim strSql As String
strSql = ("SELECT Securities.VidSecur, Securities.EmitNameCondin " _
        & "FROM Securities WHERE (((Securities.EmitNameCondin)=[Forms]![Deal1]![Secur]));")
Set rs = CurrentDb.OpenRecordset(strSql)

If rs.Fields("VidSecur").Value = "1" Then
    Forms!Deal1!All_Nomin.Visible = True
    Forms!Deal1!NKD.Visible = True
Else
    Forms!Deal1!All_Nomin.Visible = False
    Forms!Deal1!NKD.Visible = False
End If
End Sub


А сейчас в чем? РУгается на Set rs = CurrentDb.OpenRecordset(strSql)

[Sebas]

Ндя, чтото в "WHERE" у тя совсем плохо((( , даже не берусь раскрыть весь тайный смысл вложенный тобой в критерий отбора....

[alex shestov]

Ндя, чтото в "WHERE" у тя совсем плохо((( , даже не берусь раскрыть весь тайный смысл вложенный тобой в критерий отбора....

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

[Sebas]

[Forms]![Deal1]![Secur]

Вот это что?!?!??!

[alex shestov]

[Forms]![Deal1]![Secur]

Вот это что?!?!??!

Условие для отбора данных в таблице из формы с которой и работаю...

[alex shestov]

Вы считаете что ошибка в WHERE из-за нее некорректно работает?

[Sebas]

Какая форма?!??!?!? Бейсиковская?!?!?!?

[alex shestov]

Какая форма?!??!?!? Бейсиковская?!?!?!?

Access-кая форма

[Sebas]

Чёрт, в ВБА не силён, но не уверен что SQL в аксесе понимает что такое форма...

Подставь ему значение из формы

Код: Выделить всё

WHERE (((Securities.EmitNameCondin)=" & Forms!Deal1!Secur & "));")


это для чисел, если поле строковое, сответственно поставь кавычки...

[alex shestov]

Чёрт, в ВБА не силён, но не уверен что SQL в аксесе понимает что такое форма...

Подставь ему значение из формы

Код: Выделить всё

WHERE (((Securities.EmitNameCondin)=" & Forms!Deal1!Secur & "));")


это для чисел, если поле строковое, сответственно поставь кавычки...

А с чем может быть связано что на эту строку постоянно выдает ошибку что мало параметров. Требуется 1.

Код: Выделить всё

Set rs = CurrentDb.OpenRecordset(strSql)

[Sebas]

запрос неверный, гдето имя поля неправильно написал.

[alex shestov]

запрос неверный, гдето имя поля неправильно написал.

Формы понимает но нужно вот так прописать оказывается.

Код: Выделить всё


Private Sub Secur_AfterUpdate()
Dim rs As DAO.Recordset
Dim strSql, r1 As String
r1 = CStr([Forms]![Deal1]![Secur])
strSql = ("SELECT Securities.VidSecur, Securities.EmitNameCondin " _
        & "FROM Securities WHERE (((Securities.EmitNameCondin)='" & [r1] & "'));")
Set rs = CurrentDb.OpenRecordset(strSql)

If rs.Fields("VidSecur") = "1" Then
    Forms!Deal1!All_Nomin.Visible = False
    Forms!Deal1!NKD.Visible = False
Else
    Forms!Deal1!All_Nomin.Visible = True
    Forms!Deal1!NKD.Visible = True
End If
End Sub

Вот так все работает. Спасибо за помощь.