<!--QuoteBegin-Юлия+25:05:2006, 13:36 -->
<span class="vbquote">(Юлия @ 25:05:2006, 13:36 )</span><!--QuoteEBegin-->А из-за чего они появляются?
[snapback]36659" rel="nofollow" target="_blank[/snapback]
[/quote]
Из-за чего появляеются незнаю.
<!--QuoteBegin-Юлия+25:05:2006, 13:36 -->
<span class="vbquote">(Юлия @ 25:05:2006, 13:36 )</span><!--QuoteEBegin-->Когда возникает такая ошибка?
[snapback]36659" rel="nofollow" target="_blank[/snapback]
[/quote]
Отловить момент появления пока не удалось.
<!--QuoteBegin-Юлия+25:05:2006, 13:36 -->
<span class="vbquote">(Юлия @ 25:05:2006, 13:36 )</span><!--QuoteEBegin-->Почему вы уверены, что они появляются?
[snapback]36659" rel="nofollow" target="_blank[/snapback]
[/quote]
Потому что база запускается путой, а потом в ней вдруг оказывается дофига документов, открыть которые нельзя.
<!--QuoteBegin-Юлия+25:05:2006, 13:36 -->
<span class="vbquote">(Юлия @ 25:05:2006, 13:36 )</span><!--QuoteEBegin-->Что пишет при попытки открыть такой документ?
[snapback]36659" rel="nofollow" target="_blank[/snapback]
[/quote]
Немогу сейчас сказать так как щас они все удалены и снова пока не появлялись.
<!--QuoteBegin-Юлия+25:05:2006, 13:36 -->
<span class="vbquote">(Юлия @ 25:05:2006, 13:36 )</span><!--QuoteEBegin-->??? Уточните где меняется дата? Каким образом (код)? Каково значение поля, которое поменяли, и тип.
[snapback]36659" rel="nofollow" target="_blank[/snapback]
[/quote]
Дата меняется в ручную - поле типа Date/Time
Переделывая всё на LT столкнулся с той же проблемой запихнуть значение переменной в звпрос.
Код:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim da As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = doc.ParentDatabase
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet
Dim fRc As Integer
Dim strProductID As String
da = doc.GetItemValue("ch")
fRc = con.ConnectTo("uel","lotus","lotus01")
If fRc Then
Set qry.Connection = con
qry.SQL = "SELECT number_document FROM DBA.ISSUE_GOODS WHERE DATE(date_check)=?data?"
Set res.Query = qry
Call res.SetParameter("data","da")
fRc = res.Execute
If fRc Then
Do
res.NextRow
strProductID = res.GetValue("number_document")
'Add product to list
Messagebox strProductID
Loop Until res.IsEndOfData
Else
Messagebox "Unable to execute query."
End If
fRc = con.Disconnect
Else
Messagebox "Unable to connect."
End If
End Sub
Опять же если прописать в запросе дату - запрос выполняется, но передать её с помощью переменной не получается.
