2013-05-22T08:31:33Z PunBB https://itpmr.ru/viewtopic.php?id=783 Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
   
    Set db = session.CurrentDatabase
    Set uidoc = workspace.CurrentDocument
   
    Set view = db.GetView("(townstreet)")
   
    quote = "FIELD Bmesto CONTAINS " & Source.FieldGetText("Bmesto") &" AND  FIELD Bstreet CONTAINS " & Source.FieldGetText("Bstreet")
    j = view.FTSearch(quote, 0 )
    If j >0 Then Messagebox "Такая улица уже есть ", MB_OK, "Внимание": Continue = False
End Sub

]]> https://itpmr.ru/profile.php?id=2 2013-05-22T08:31:33Z https://itpmr.ru/viewtopic.php?pid=123877#p123877