Рубануть значение до запятой ?!?!

[morpheus]

точнне будет взять коллекцию у текущей базы
Set notesDocumentCollection = notesUIDatabase.Documents

и проядсь по этой коллекции поспрашивать у документов их формы notesDocument.Form

 

[Guest]

точнне будет взять коллекцию у текущей базы
Set notesDocumentCollection = notesUIDatabase.Documents

и проядсь по этой коллекции поспрашивать у документов их формы notesDocument.Form

Sorry, что достаю, я правильно понял:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim notesDocumentCollection As NotesDocumentCollection

Set notesDocumentCollection = Source.Documents

Forall notesDocument In notesDocumentCollection
If (notesDocument.Form = "StandardOperationForm") Then
' ...
End If
End Forall

End Sub

 

[morpheus]

If (notesDocument.Form(0) = "StandardOperationForm") Then

 

[Guest]

Sorry, что достаю, я правильно понял:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim notesDocumentCollection As NotesDocumentCollection

Set notesDocumentCollection = Source.Documents

Forall notesDocument In notesDocumentCollection
If (notesDocument.Form = "StandardOperationForm") Then
' ...
End If
End Forall

End Sub

Sorry, ошибка у меня не только тут На строчку: Forall notesDocument In notesDocumentCollection ругается, говорит мол Not an array, list

 

[morpheus]

правильно ругаеться

GetFirstDocument / GetNextDocument
Вот пример из хелпа

Set collection = db.FTSearch("Business", 10)
Set doc = collection.GetFirstDocument
If Not doc Is Nothing Then
Call doc.CopyToDatabase(db2)
Set doc = collection.GetNextDocument(doc)
End If

 

[Sandr]

Sorry, ошибка у меня не только тут На строчку: Forall notesDocument In notesDocumentCollection ругается, говорит мол Not an array, list

Используйте

set doc = notesDocumentCollection.geFirstDocument
while not doc is nothing
.....
set doc = notesDocumentCollection.getNextDocument(doc)
wend

Морфей опередил

 

[Guest]

Для: Денис Кириченко
У базы данных есть Event
QueryDocumentDelete сматреть в Others\DataBase Resources\Database Script

Не работает, при удалении даже не обращается к Querydocumentdelete :huh:

 

[morpheus]

Для: Денис Кириченко
Вы имейте в виду что я не даром сказал Event... и не даром у этого ивента стоит NotesUIDtaBase - это событие срабатывает в интерфейсе пользователя и это надо учитывать

 

[Omh]

Для: Денис Кириченко
QueryDocumentDelete работает только при удалении через UI.

 

[Guest]

Для: Денис Кириченко
QueryDocumentDelete работает только при удалении через UI.

А как можно удалять во View через UI. :huh:

 

[Sandr]

А как можно удалять во View через UI.

руками... пользователь выделяет документ и нажимает кнопку del

 

[Guest]

руками... пользователь выделяет документ и нажимает кнопку del

Мне помогли написать код для Querydocumentdelete, но теперь я хочу внести изменения, ну или хотя бы проследить как отрабатывает. Messagebox наставил после каждой строки, изменял значение переменной prompt. Ни чего не помогает, в чем прикол???

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim ws As New NotesUIWorkspace
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument, nextdoc As NotesDocument
Dim prompt As String
try:
On Error Goto catch
Continue = False
Set coll = Source.Documents
Set doc = coll.GetFirstDocument
If doc Is Nothing Then Exit Sub
If coll.Count = 1 Then
prompt = "Удалить выбранный документ?"
Else
prompt = "Удалить выбранные документы?"
End If

If Messagebox(prompt, 4+32, "Внимааааание") <> 6 Then
Messagebox "Hallo, I am an Exit"
Exit Sub
End If
While Not (doc Is Nothing)
Messagebox "I go forth"
Set nextdoc = coll.GetNextDocument(doc)
If Not doc.IsResponse Then
Call deleteAllResponce(doc)
Call doc.Remove(True)
End If
Set doc = nextdoc
Wend
Call ws.ViewRefresh
Exit Sub
catch:
Messagebox "Hear is error"
Print Err, Error, Erl
Exit Sub

End Sub

 

[Omh]

Для: Денис Кириченко
Прикол в том, что надо самому усиленно ковырять, дебажить, смотреть что к чему, а не нестись с каждой проблемой в форум.
Это я не со зла, просто слишком много вопросов, которые можно решить, посидев 10 минут с дебаггером.

 

[Guest]

Для: Денис Кириченко
Прикол в том, что надо самому усиленно ковырять, дебажить, смотреть что к чему, а не нестись с каждой проблемой в форум.
Это я не со зла, просто слишком много вопросов, которые можно решить, посидев 10 минут с дебаггером.

Ок, sorry, больше не буду

 

[Omh]

Да я не к тому, что больше не надо.
Просто видишь, вылетело "Object variable not set"
Посмотри в дебагере, что не определено, и, если непонятно, бомби вопросами.
Поможем без проблем

 

[morpheus]

Для: Денис Кириченко
Да и замечаие - пользуйтесь тегами
кода

NotesUIDatabase

 

[Guest]

Для: Денис Кириченко
Да и замечаие - пользуйтесь тегами
кода

NotesUIDatabase

Ок, ламер, шо с меня взять