Form da kayıt hatası

[KN0820822]

Hayırlı akşamlar üstadlarım - form arkadaşlarım,

Yapmış olduğum örneğimin neredeyse sonuna geldim. Tam anlamıyla bitirmeden önce birkaç test yapmak istedim ve şöyle bir olaya tanık oldum. Örneğimde verileri üst üste yazıyor yani örneğime bir kayıt giriyorum kaydet diyorum sonra kapatıyorum ve tekrar açıp yeni bir kayıt daha yapınca ilk yaptığım kayıtın üzerine kayıt yapıyor. Kod lara baktım ama işin içinden çıkamadım. Hatta yaklaşık 17 adet excele direk verileri girdim sonra formu kullanarak yeni bir kayıt daha girince 16ncı satırdaki verinin üzerine kayıt yaptı.
Nerede hata yapyıorum - kafayı yemek üzereyim.

Saygılarımla,
Şimdiden ellerinize sağlık...

 

[harziyan]

Kayıt yapılırken "F" "Depatman" sütunundaki son dolu hücreye göre yapılıyor. Sorun da bundan kaynaklanıyor. Bu sütunu her kayıtta boş geçilmeyen başka bir sütun ile değiştirin. Mesala "C" "Firma Adı Sütunu" gibi.
Bunun için de aşağıdaki satırı;

son = Cells(65536, "[COLOR="Red"]f[/COLOR]").End(xlUp).Row + 1

Bununla değiştirin;

son = Cells(65536, "[COLOR="Red"]C[/COLOR]").End(xlUp).Row + 1

 

[KN0820822]

Teşekkürler.....

Kayıt yapılırken "F" "Depatman" sütunundaki son dolu hücreye göre yapılıyor. Sorun da bundan kaynaklanıyor. Bu sütunu her kayıtta boş geçilmeyen başka bir sütun ile değiştirin. Mesala "C" "Firma Adı Sütunu" gibi.
Bunun için de aşağıdaki satırı;

son = Cells(65536, "[COLOR="Red"]f[/COLOR]").End(xlUp).Row + 1

Bununla değiştirin;

son = Cells(65536, "[COLOR="Red"]C[/COLOR]").End(xlUp).Row + 1

Sayın Harziyan,

ilginize çok çok teşekkür ederim. insanoğlu işte böyle ufak defek hatalar yapıyor sonra kafayı sıyrıyorsun. Allah tan burda diğer formlar daki gibi alakasız yardım elli uzatmayan arkadaşlar yok. Sana tekrar tekrar teşekküüürrrrllleeerriiiimmmmiiiii sunarım.
(Bir elin nesi var iki elin sesi var)


Tekrar tekrar ellerine sağlık...

 

[harziyan]

Emin olun yardım alabilmek ne kadar güzel bir duygu ise yardım edebilmek de bir o kadar güzel.
İyi geceler.

 

[KN0820822]

Çok doğru söylüyorsun harziyan - umarım bende kendimi geliştirerek burdaki arkadaşlara yardım edebilirim.