döngüde kayıt

[cebeser]

olay: veritabanımda deneme0_n den deneme15_n ye deneme0_a den deneme15_a ya kadar alan var. _n ile olanlar kaydedilecek numarayı _a ile olanlar da onun açıklamasını tutuyor.

edit1'e numara, edit2'ye açıklaması giriliyor.

sorun: hazırladığım döngü ile bulunan ilk boşluğa, edit1 dekini _n'ye, edit2'dekini de _a ya gelcek şekilde kaydetmek istedim. ve aşağıdaki kodu yazdım. kod çalışmıyor. aslında çalışıyor ama tuşa 2. defa basılınca çalışıor. acaba sebebi ne ola... hatam nerdedir? şimdiden teşekkürler...

for k := 0 to 15 do
if Table1.FieldByName('deneme'+IntToStr(k)+'_n').AsString = '' then
begin
Form3.Table1.Open;
Form3.Table1.edit;
Form3.Table1.FieldByName('deneme'+IntToStr(k)+'_n').text := Edit1.Text;
Form3.Table1.FieldByName('deneme'+IntToStr(k)+'_a').text := Edit2.Text;
Form3.Table1.UpdateRecord;
exit;
end;

[cebeser]

sorunu hallettim.

table1.updaterecord yerine table1.post yazdım ve sorun çözüldü.

ve tabii ki daha önce aklıma gelmediği için utandım, ne kolay bir sorundu...
forumu kirlettiğim için özür dilerim, sayın mod bu konuyu silsin ltf.