Ага, это тоже здорово
Nov. 10th, 2002 10:13 pmSubject = note.Subject
If Subject(0) = "" Then
Subject(0) = Inputbox("Please enter a Title for this document.", "Document Library", "(Untitled)")
If Subject(0) = "" Then
Continue = False
Exit Sub
End If
End If
note.Subject = Subject(0)
А потом он смотрит - note менялся? Менялся. Значит бум сохранять....
If Subject(0) = "" Then
Subject(0) = Inputbox("Please enter a Title for this document.", "Document Library", "(Untitled)")
If Subject(0) = "" Then
Continue = False
Exit Sub
End If
End If
note.Subject = Subject(0)
А потом он смотрит - note менялся? Менялся. Значит бум сохранять....