W
wowa
Подскажите, пожалуйста.
НА форме есть поле "Уникальное название". Документ сохраняется только тогда, когда это поле заполнено и название уникально.
Если я захожу в документ и редактирую его, а потом пытаюсь сохранить, то выдает сообщение, что такое уникальное имя уже существует. Т.е оно находит тот документ, который я редактирую и не сохраняет. подскажите как быть?
' проверка заполнено ли уникальное название
If stUnidNameDoc = "" Then
Msgbox "Необходимо заполнить поле ""Уникальное название"".",48 ,"Внимание!"
continue = False
Exit Sub
End If
'проверка на уникальность
While Not(vwentryA Is Nothing)
If Strcompare(stUnidNameDoc,vwentryA.ColumnValues(0),5)=0 Then
Msgbox "Такое уникальное имя уже существует",48 ,"Внимание!"
continue = False
Exit Sub
End If
Set vwentryA = vwnav.GetNext(vwentryA)
Wend
НА форме есть поле "Уникальное название". Документ сохраняется только тогда, когда это поле заполнено и название уникально.
Если я захожу в документ и редактирую его, а потом пытаюсь сохранить, то выдает сообщение, что такое уникальное имя уже существует. Т.е оно находит тот документ, который я редактирую и не сохраняет. подскажите как быть?
' проверка заполнено ли уникальное название
If stUnidNameDoc = "" Then
Msgbox "Необходимо заполнить поле ""Уникальное название"".",48 ,"Внимание!"
continue = False
Exit Sub
End If
'проверка на уникальность
While Not(vwentryA Is Nothing)
If Strcompare(stUnidNameDoc,vwentryA.ColumnValues(0),5)=0 Then
Msgbox "Такое уникальное имя уже существует",48 ,"Внимание!"
continue = False
Exit Sub
End If
Set vwentryA = vwnav.GetNext(vwentryA)
Wend