| |
|
|
| | запрос sql: SELECT DISTINCTROW Count(*) AS [C] FROM [ClassifAnalit]; (считает количество строк в запросе ClassifAnalit)
Необходимая работа процедуры: Если количество ктрок в запросе ClassifAnalit равно 0, то закрыть текущую форму, иначе открыть другую форму.
У меня почему-то q всегда больше 0, хотя точно знаю что в определенном случаи количество строк 0.
у меня следующая процедура (покрайне мере я так написала):
Dim q As String
Dim stDocName As String
Dim stLinkCriteria As String
q = "SELECT DISTINCTROW Count(*) AS [C] FROM [ClassifAnalit ];"
If q = 0 Then
DoCmd.Close
Else
stDocName = "название формы"
DoCmd.OpenForm stDocName, , , stLinkCriteria
end if | |
| |
| |
| |
|
|
| | строку SQL нужно выполнить, получить набор записей и взять из него значение нужного поля из нужной строки этого набора.
а так у вас переменной q присваивается строка, "SELECT DISTINCTROW Count(*) AS [C] FROM [ClassifAnalit ];" а потом эту строку вы сравниваете с 0
"SELECT DISTINCTROW Count(*) AS [C] FROM [ClassifAnalit ];" <> 0
Help по Dcount или DlookUp
а еще лучше по Recordset | |
| |
| |
| |
|
|
| |
Dim q As String
Dim stDocName As String
Dim stLinkCriteria As String
q = dcount("*","[ClassifAnalit]")
If q = 0 Then
DoCmd.Close
Else
stDocName = "название формы"
DoCmd.OpenForm stDocName, , , stLinkCriteria
end if
|
| |
| |
| |
