bitiş tarihi bugüne eşitse veri taşınır mı ?

[croww]

arkadaşlar access de bir abone veritabanı yapmam lazım bu konuda bir noktada aklım takıldı kaldı
ben abone bitiş tarihi geldiğinde abone tablosundan veriyi biten tablosuna taşıyacak ve abone tablosunda da artık gözükmeyecek bunu nasıl yaparım bana bi yol gösterseniz...
bu arada sitede her konu da ben ve benim gibi bir çok arkadaş ile ilgilenen ve yardımcı olan tüm dostlara teşekkür ederim
iyi ki varsınız...

 

[modalı]

Sayın croww,

Önce bir güncelleştirme sorgusuyla, kayıtları biten tablosuna taşıyın. Sonra bir silme sorgusuyla kayıtları abone tablosundan silin.

İyi çalışmalar

 

[croww]

sayın modalı basit bir örnek yollama şansınız var mı
yoksa ben şansımı mı zorluyorum

 

[modalı]

Bildiğiniz gibi örnekler sizden yapması bizden.

İyi çalişmalar

 

[croww]

basit bir örnek

Sayın modalı ilginize teşekkür ederim
örnek basit oldu ama anlamam için yeterli olacaktır

 

[beab05]

Merhaba;

Güncelleştirmeyle değil, ekleme sorgusuyla yapalım, formunuzda bir düğmenin click ya da formun güncelleştirme sonrasına alttaki kodu yazarsanız bitiş tarihi bugünden küçük ve eşit olanlar bitiş tablosuna taşınır ve diğer tablodan silinir..

If Me.ABONE_B&#304;T&#304;&#350;_TAR&#304;H&#304; <= Date Then
With DoCmd
.SetWarnings False
.RunSQL "insert into [ABONE B&#304;TEN] select * from [ABONE] where kimlik = forms!abone!kimlik"
.RunSQL "delete from abone where kimlik = forms!abone!kimlik"
.SetWarnings True
End With
Me.Requery
End If

 

[croww]

Merhaba;

Güncelleştirmeyle değil, ekleme sorgusuyla yapalım, formunuzda bir düğmenin click ya da formun güncelleştirme sonrasına alttaki kodu yazarsanız bitiş tarihi bugünden küçük ve eşit olanlar bitiş tablosuna taşınır ve diğer tablodan silinir..

If Me.ABONE_BİTİŞ_TARİHİ <= Date Then
With DoCmd
.SetWarnings False
.RunSQL "insert into [ABONE BİTEN] select * from [ABONE] where kimlik = forms!abone!kimlik"
.RunSQL "delete from abone where kimlik = forms!abone!kimlik"
.SetWarnings True
End With
Me.Requery
End If

Sayın beab05
ilginize ve yardımlarınıza teşekkür ederim ama bu kodlarda bir sorun var gibi geldi bana
kodu formun güncelleştirme sonrasına kopyaladım
kod veriyi taşıma işlemini tam istediğim gibi yapıyor ama gelmemiş günleri de taşıyor yani bugün 23.01.08 ben bitiş tarihini 25.01.08 yaptığımda bitene taşıyor bu neden kaynaklanıyor acaba

 

[beab05]

Ocak ayında değiliz Şubattayız 25.02 olursa taşımaz..

 

[croww]

haklısınız sayın beab05 çok fazla çalışmak yaramadı bana farkında değilim ocak ayı yaptığımın
fakat bir soru daha soracağım bu işlemde daha önce yazdığımız bir tarih bugüne eşit olunca taşımıyor yani 24.02 yapıyorum veritabanını kapatıyorum
sistem tarihini 26.02 yapıyorum veritabanı ve formu açtığımda abone içinde 24.02 taşınmamış olarak duruyor tarihi elle yeniden yazdığımda taşıyor

 

[beab05]

Kod güncelleştirme sonrasına göre çalıştığı için mutlaka bir değişklik arıyor.Kodu formun current (geçerli olduğuna )da ekleyin.

 

[croww]

şimdi oldu hemde tam istediğim gibi çok çok teşekkür ederim bana yardımcı olduğunuz için ve katlandığınız için sayın beab05
iyi ki varsınız...

 

[beab05]

Siz yine de bence formun açılışına ve güncelleştirme sonrasına alttaki kodu ekleyiniz..

Dim bb As ADODB.Connection
Set bb = CurrentProject.Connection
bb.Execute "insert into [ABONE B&#304;TEN] select * from [ABONE] where [ABONE B&#304;T&#304;&#350; TAR&#304;H&#304;] <= date() "
bb.Execute "delete from abone where [ABONE B&#304;T&#304;&#350; TAR&#304;H&#304;] <= date()"

Me.Requery
Set bb = Nothing

Böylece kayıtları gezmeden de ilgili veriler taşınır..

 

[croww]

diğer kodu iptal edip bu kodu eklediğimde yeni kayıt işlemine geçmiyor hep tarihi gelmemiş ilk kayıtta kalıyor

 

[beab05]

Yoo geçiyor başka bir sorun vardır..

 

[croww]

haklısınız kodu açılışa değil geçerli olduğunda kullanmışım açılışa alınca düzeldi
çok teşekkür ederim bana gösterdiğiniz sabrınız ve yardımlarınız için

 

[beab05]

Hatta koda
me.requery nin altına

DoCmd.GoToRecord , , acNewRec

yazarsanız yeni kayıtta açılır formunuz..