Sayın beab2005,
sorguda istedigim sonucu alamıyorum,
son tarihin kayıtlarını buluyor lakin o kayıtların kalanlarını yanlış getiriyor,
bu konuya birzahmet bakabilirmisiniz
selamlar...

Merhaba arkadaşlar,
sayın beab2005 arkadaşımın iş var galiba, cevap yazmadı,
diğer üstadlardan rica ediyorum,
Belgeyi yeniden düzenledim, formdaki aktar kodunda takıldım,
aktar deyince uyarı alıyorum, nedenini bulmadım,
iyi geceler...

Merhaba,

Komut38_Click() prosedüründeki bb.execute ile başlayan satırı aşağıdaki şekilde değiştir.

bb.Execute " insert into TelefonStok(Tarih,Cinsi,Devir,Giren,Cikan,kalan,Alanlar,Degeri) select date(),Cinsi,Kalan,0,0,0,0,0 from TelefonStok where TelefonStok.Tarih=#" & Mid$(Me!ttt, 4, 2) & "/" & Left$(Me!ttt, 2) & "/" & Right$(Me!ttt, 4) & "#"

Çok Çok teşekkür ederim sayın yeni54,
elinize sağlık,
TlfDeviri sorgusunu kulanmamışsınız anladığım kadarıyla,
lütfen kodun sonna eklediklerinizi anlatabilirmisiniz, anlamak istiyorum,
her gün kaydının başına bir tane boş satır ekliyor bunun sebebi ne olabilir acaba.
Selamlar...

Sizin eklediğiniz dosyadaki [TlfDeviri] yerine [TlfDeviri] sorgusunun içeriğini kullandım.
boş kayıt atma konusunu henüz ben de anlamadım, ancak sorgudan değil de formun hareketlerinden kaynaklı.

Çok teşekkür ederim sayın yeni54,
where TelefonStok.Tarih=#" & Mid$(Me!ttt, 4, 2) & "/" & Left$(Me!ttt, 2) & "/" & Right$(Me!ttt, 4) & "#"
bu kodu müsait bir zamanınızda anlatırsanız çok sevinirim.
İyi günler dilerim...