Claymoreимеется таблица yeras.dbf в ней поля id_year1 и name_year1, допустим уже есть записи (2012, 2013, 2014) и при добавлении новой схожей записи, например 2013, он удалял удалял, либо не сохранял эту новую запись, прошу помогите с кодом и где лучше этот код записать???))) заранее благодарен)))

А зачем, собственно, добавлять НОВУЮ СХОЖУЮ запись. Если есть 2013, то зачем добавлять еще 2013 ????

ClaymoreIgorNG,

допустим пользователь блондинка)

Видимо, поэтому и не добавляется :):)

Claymore,

Ну мы ж не знаем, что у тебя висит на кнопках "Добавить", "Удалить", "Command3"

ClaymoreIgorNG,

в "добавить"

thisform.grid1.readonly = .F.
public lastnomer
select pn
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer

select years

APPEND BLANK
replace years.id_year1 with lastnomer


А почему в новую запись добавляется только id_year1 ?
А как насчет name_year1 ?

THISFORM.GRID1.column1.text1.style = 0
THISFORM.GRID1.SetFocus
THISFORM.REFRESH

кнопка "удалить"

PRIVATE n_Rec

select years

IF MESSAGEBOX ("Óäàëèòü ýòó çàïèñü?", 4 + 32 + 256) = 6
n_Rec=RECNO()
DELETE NEXT 1

ENDIF
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF

THISFORM.GRID1.SetFocus
THISFORM.REFRESH

кнопка "выход"

thisform.Release

кнопка command-я её удалю позже))) она не нужная))

ClaymoreIgorNG,

а там в таблице сам уже вписываешь год, тот который тебе нужен)

По кнопке "Добавить" сделай формочку с полем ввода нового года и проверяй наличие введенного в таблице годов. Если не найдено, тогда добавляй, а если уже существует - не добавляй.

ClaymoreIgorNG,

ээээмммм, прости не понял, а как будет выглядеть код?)

в форме с полем ввода года Text1 и кнопкой "Ок" в click которой что-то типа:

SELECT years
LOCATE FOR RTRIM(THISFORM.Text1.Value) = RTRIM(name_year1)
IF NOT FOUND()
select pn && я, правда, не знаю что это за таблица, но судя по коду это id_year
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer
INSERT INTO years VALUES (lastnomer, RTRIM(THISFORM.Text1.Value))
ENDIF
THISFORM.Release

ClaymoreIgorNG,

я написал код в форме с полем ввода года Text1, который ты мне скинул в процедуре "click" :

SELECT years
LOCATE FOR RTRIM(THISFORM.Text1.Value) = RTRIM(name_year1) && Поиск в таблице введенного года
IF NOT FOUND() && Не найден
select pn && я, правда, не знаю что это за таблица, но судя по коду это id_year
go top
lastnomer=pn.pn_year+1
replace pn.pn_year with lastnomer
INSERT INTO years VALUES (lastnomer, RTRIM(THISFORM.Text1.Value)) && Добавление года
ELSE && Год найден
MESSAGEBOX("Такой год в таблице уже существует")
ENDIF
THISFORM.Release


после ввода нажимаю на таблицу форма закрывается, а запись добавлена, или я неправильно тебя понял :(

Меня не надо понимать, понимать нужно код.
Я отсюда не вижу какую таблицу ты нажимаешь.

Claymore,

Ну, чудес не бывает. Либо действительно есть, либо что-то не так сделал.
из командного окна
открой таблицу years
set deleted off
browse
и посмотри что есть в поле name_year1

descent52Claymore, добавь в свою таблицу новое поле ID типа Integer (AutoInc). И потом хоть тыщчу одинаковых записей плоди, в этом поле автоматом будет счётчик меняться. При выборке цепляй и это поле тоже. И потом удаляй по условию where id=N(номер id). И всего то делов

ТСу как раз и нужно, чтоб не было одинаковых записей.