N
NeoSimvolist
Я пробовал следующим образом
query$ ="SELECT Form = ""Person"" & FirstName=""" + FirstName$ +"""" + " & LastName=""" + LastName$ + """" + " & MiddleInitial=""" + MiddleName$ + """"
Set Coll = AddressBook.Search(query$, DateTime, 0)
Set PersonDoc = coll.GetFirstDocument
If Not (PersonDoc Is Nothing) Then
Set item = PersonDoc.GetFirstItem( "$File" )
Call item.CopyItemToDocument(curDoc, "user_idfile" )
Call curDoc.Save(False, False)
end if
Система пишет, что нельзя так делать)
query$ ="SELECT Form = ""Person"" & FirstName=""" + FirstName$ +"""" + " & LastName=""" + LastName$ + """" + " & MiddleInitial=""" + MiddleName$ + """"
Set Coll = AddressBook.Search(query$, DateTime, 0)
Set PersonDoc = coll.GetFirstDocument
If Not (PersonDoc Is Nothing) Then
Set item = PersonDoc.GetFirstItem( "$File" )
Call item.CopyItemToDocument(curDoc, "user_idfile" )
Call curDoc.Save(False, False)
end if
Система пишет, что нельзя так делать)