Logo MurCode
Microsoft Access Новое сообщение

Проверка на пустой запрос!

tuzz
Дата: 20.11.2006 16:43:00
День добрый!
Поскажите, плиз, как сделать так если запрос пустой то выйти дальше?
Вот такой кусочек кода:


sql04 = "SELECT NumberDoc, NumberBlank, Surname, Name AS NameMan," _
        & " OtchName, MREV, DateProd, TimeProd, Brak,DateAkt, NumberAkt, adressMREV, Persona, Price"_
        & " FROM docAkt" _
        & " WHERE (((docAkt.MREV)=1104) AND (docAkt.word)=False)"

If sql04 = Nothing Then
Exit Sub
Else
       New_AKT_04
End If

Заранее спасибо!
Redrick
Дата: 20.11.2006 16:45:21
Что значит пустой запрос?
Это запрос который возвращает количество записей=0?
Тогда вам надо копать в сторону DCount
NikP
Дата: 20.11.2006 16:47:51
Ну я так думаю, что запрос рекордсетом открывается?
если да, то RecordCount расскажет тебе все о количестве записей в запросе
tuzz
Дата: 20.11.2006 16:48:08
Redrick
Что значит пустой запрос?
Это запрос который возвращает количество записей=0?
Тогда вам надо копать в сторону DCount

Да количество строк 0.
Как?
Redrick
Дата: 20.11.2006 16:49:52
tuzz
Redrick
Что значит пустой запрос?
Это запрос который возвращает количество записей=0?
Тогда вам надо копать в сторону DCount

Да количество строк 0.
Как?

Повторяю выше изложенное:

автор
Ну я так думаю, что запрос рекордсетом открывается?
если да, то RecordCount расскажет тебе все о количестве записей в запросе


или

автор
DCount
BULK INSERT
Дата: 20.11.2006 16:52:19
tuzz
Redrick
Что значит пустой запрос?
Это запрос который возвращает количество записей=0?
Тогда вам надо копать в сторону DCount

Да количество строк 0.
Как?


мдя...
tuzz
Дата: 20.11.2006 16:53:48
BULK INSERT
tuzz
Redrick
Что значит пустой запрос?
Это запрос который возвращает количество записей=0?
Тогда вам надо копать в сторону DCount

Да количество строк 0.
Как?


мдя...


есть время и на такие ответы!
NikP
Дата: 20.11.2006 16:54:00
вот простенький пример
    Set MyDb = CurrentDb
    MySQL = "SELECT [Zavod_Zavod] & ' тел:' & [Telephon] AS Zavod FROM tbl_Zavod WHERE (((tbl_Zavod.ID_Zavod)=" & Form_frm_Zakaz.V_Zavod & "))"
    Set TestTable = MyDb.OpenRecordset(MySQL)
    TestTable.MoveLast
    If (TestTable.RecordCount > 0) Then
а здесь все что тебе надо
    End If

    TestTable.Close
    MyDb.Close
tuzz
Дата: 20.11.2006 17:18:38
NikP
вот простенький пример
    Set MyDb = CurrentDb
    MySQL = "SELECT [Zavod_Zavod] & ' тел:' & [Telephon] AS Zavod FROM tbl_Zavod WHERE (((tbl_Zavod.ID_Zavod)=" & Form_frm_Zakaz.V_Zavod & "))"
    Set TestTable = MyDb.OpenRecordset(MySQL)
    TestTable.MoveLast
    If (TestTable.RecordCount > 0) Then
а здесь все что тебе надо
    End If

    TestTable.Close
    MyDb.Close


Огромное спасибо! Получилось!
Ёжик`
Дата: 20.11.2006 19:24:39
tuzz
NikP
вот простенький пример
    Set MyDb = CurrentDb
    MySQL = "SELECT [Zavod_Zavod] & ' тел:' & [Telephon] AS Zavod FROM tbl_Zavod WHERE (((tbl_Zavod.ID_Zavod)=" & Form_frm_Zakaz.V_Zavod & "))"
    Set TestTable = MyDb.OpenRecordset(MySQL)
    TestTable.MoveLast
    If (TestTable.RecordCount > 0) Then
а здесь все что тебе надо
    End If

    TestTable.Close
    MyDb.Close


Огромное спасибо! Получилось!

Ошибку поймать как нефиг делать
Dim sql as String, rs as RecordSet
sql = "SELECT .... ;" 'Тута сформированная строка запроса
Set rs = CurrentDB.OpenRecordset(sql)
If not rs.EOF Then
    а здесь все что тебе надо
End If
rs.Close
Set rs = Nothing