form üzerinde metin kutusu sıra noyu düzenli girmek

[subutayı]

if dcount("*","tabloadi","SiraNo< " & [SiraNo])>0 then
msgbox dmax("SiraNo","tabloadi") +1 & ". sırayı kayıt etmediniz"
cancel=-1
end if

yukarıdaki Taruz beyin yazdığı kodu metin kutunuzun güncelleştirme öncesinde olay yordamında yazdım. 500 kadar kayıt yapmışım. metin kutusuna 499 yazıyorum uyarı veriyor ok. 501 yazmadınız diyor. 502 yazıyorum 501 yazmadınız diyor bu da isteğim şey. amacım en son kayıdım 500 ise 501 yazmak. 501 in altını ve üstünü yazmak istediğimde uyarı versin. kod bu manada doğru çalışıyor. ama 500 den sonra 501 i yazmak istediğimde 501. sırayı kayıt etmediniz diyor. verileri girmeden nasıl kayıt edeyim. Amacım sıra atlamadan verilerimi kayıt edeyim. en son kayıdım 500 ise 501 i girip enter yapabileyim. doğru sıra noyu girdiysem uyarı vermesin. teşekkürler.

 

[akd]

Kayıt kodunuza dmax("SiraNo","tabloadi") +1 bunu yazın
kendisi otomatik olarak sıra numarasını versin

 

[subutayı]

sayın akd,
dediğiniz kodu metin kutusunun hangi özelliğine yazayım. konuya çok hakim değilim. teşekkürler.

 

[subutayı]

form üzerinde metin kutusu sıra noyu düzenli girmek

--------------------------------------------------------------------------------

if dcount("*","tabloadi","SiraNo< " & [SiraNo])>0 then
msgbox dmax("SiraNo","tabloadi") +1 & ". sırayı kayıt etmediniz"
cancel=-1
end if

yukarıdaki Taruz beyin yazdığı kodu metin kutunuzun güncelleştirme öncesinde olay yordamında yazdım. 500 kadar kayıt yapmışım. metin kutusuna 499 yazıyorum uyarı veriyor ok. 501 yazmadınız diyor. 502 yazıyorum 501 yazmadınız diyor bu da isteğim şey. amacım en son kayıdım 500 ise 501 yazmak. 501 in altını ve üstünü yazmak istediğimde uyarı versin. kod bu manada doğru çalışıyor. ama 500 den sonra 501 i yazmak istediğimde 501. sırayı kayıt etmediniz diyor. verileri girmeden nasıl kayıt edeyim. Amacım sıra atlamadan verilerimi kayıt edeyim. en son kayıdım 500 ise 501 i girip enter yapabileyim. doğru sıra noyu girdiysem uyarı vermesin. teşekkürler.
arkadaşlar bakabilir misiniz.

 

[akd]

Örnek dosyanızı gönderin, bir bakayım...