Поиск по дате в другой БД

[San40S]

Я же написал с проверкой на пустоту.
Мне и вот эта часть

StartWork > [15.04.2009]

кажется сомнительной.
Или там железно задаётся в формате dd.mm.yyyy в независимости ни от чего?

там "железно", выбирается из календаря.

abbatik

отбирает! протупил немного... там надо вместо

EndWork <> ""

написать

EndWork = ""

- проверить, чтобы оно либо меньше даты, либо пустое.
Механичесски туплю

 

[Omh]

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

@Date(Yera; Month; Day)

, а не через

[xxxxxxx]

 

[San40S]

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

@Date(Yera; Month; Day)

, а не через

[xxxxxxx]

В своем коде я прописал стационарную дату, дабы проверить работоспособность формулы.

А вот теперь задача, как вместо стационарной даты, вписать в формулу, значение поля (тип Date/Time - Calendar/Time control)???

 

[abbatik]

там "железно", выбирается из календаря.

abbatik

отбирает! протупил немного... там надо вместо

EndWork <> ""

написать

EndWork = ""

- проверить, чтобы оно либо меньше даты, либо пустое.
Механичесски туплю

Ну да, это я и имел ввиду

 

[San40S]

Ну да, это я и имел ввиду

Как правильно записать в формулу вместо стационарной даты, значение поля (тип Date/Time - Calendar/Time control)???

 

[abbatik]

Как правильно записать в формулу вместо стационарной даты, значение поля (тип Date/Time - Calendar/Time control)???

формула.... бла-бла Date =[" + переменная с датой + "] бла-бла

 

[San40S]

формула.... бла-бла Date =[" + переменная с датой + "] бла-бла

Код такой:

sd = doc.GetItemValue("SerDate")
Set col = mdb.Search({Form = "WorkerCard" & StartWork > ["+sd+"] & (EndWork < ["+sd+"] | EndWork = "")}, Nothing, 0)

Вот что выдало
Notes error: Formula Error (Form = "WorkerCard" & StartWork > ["+sd+"] & (EndWork < ["+sd+"] | EndWork = ""))

Вопрос: переменная sd каког типа должна быть? У мну Вариант, мож из-за этого?

 

[Omh]

String должен быть.
Query - это String.

Я бы делал примерно так:

Dim DlgDoc As NotesDocument
Set DlgDoc = db.CreateDocument

If ws.DialogBox("Форма с двумя полями-датами",True, True, False, False, False, False, "Говнюк, выбери даты!", DlgDoc, True) Then
Dim StartDate As Variant
Dim EndDate As Variant
StartDate = dlgDoc.GetItemValue("FieldWithStartDate")(0)
EndDate = dlgDoc.GetItemValue("FieldWithEndDate")(0)

if Not isDate(StartDate) and Not isdate(EndDate) then
Messagebox "Ну я же просил выбрать даты!" + Chr(13) + "Теперь ты будешь убит!", 0 + 64, "Information"
Exit Sub
end if

dim Params(2) As String
Params(0) = {Form = "WorkerCard"}
if Isdate(StartDate) then Params(1) = {StartWork > @Date(} + Cstr(Year(StartDate)) + {;} + Cstr(Month(StartDate)) + {;} + Cstr(Day(StartDate)) + {)}
if Isdate(EndDate) then Params(2) = {@if(EndWork = ""; @True; EndWork > @Date(} + Cstr(Year(EndDate)) + {;} + Cstr(Month(EndDate)) + {;} + Cstr(Day(EndDate)) + {))}

Dim Query As String
Query = Implode(Fulltrim(Params); { & })

'Поиск
End If

Ошибки не исключаю, писал прям тут

И ставь обработчик ошибок, что бы знать какая ошибка.
Простейший:

Sub SubName
On Error Goto Errh

'тело процедуры

Exit Sub
errh:
Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
Exit Sub
End Sub