kopyala yapıştır

[akd]

Merhaba arkadaşalar,
benim sorunum, form üzerindede göreceginiz gibi,
bir ayın ders kayıtlarını seçip, yandaki seçecegim ay ve yıla degiştirip kaydetmesi.
Yani 5.ayın derslerini seçecegim, aynı kayıtları ayını ve yılını degiştirip yeniden kaydetmek istiyorum.
Teşekkür ederim

 

[modalı]

Sayın akd,

Sayın gülsüm1 ekders puantaj uygulamasında tam sizin istediğiniz yöntemi kullanmış.

http://www.excel.web.tr/showthread.php?t=50213

İyi çalışmalar

 

[akd]

Merhaba sayın modalı,
Benim veri tabanımla onunki birbirini tutmuyor,
o günleri tek tek alan olarak veri tabanına sabitlemiş ve ay ile yıl içinde birer alan eklemiş,
ama benimkinde tarih alanı tek malesef.
Teşekkürler

 

[Taruz]

Merhaba..

Sorunuzun çözümünü karmaşıklaştıran bahsettiğiniz tarih alanının istediğiniz olaya uygun olmaması.. Yine de küçük hilelerle bu alanı kandırdım

Sorguları incelediğinizde göreceğiniz gibi; günü eski veriden ayı ve yılı da form üzerindeki istediğimiz tarihlerden belirliyoruz.. Sonra bunları birleştirip yeni tarih verisi olarak kaydediyoruz..:

yeni: Left([tarih];2) & "." & Formlar!BepKayitlari!yapAy
yen: Left([tarih];2)
trztar: [ye] & "." & Formlar!BepKayitlari!yapAy & "." & Formlar!BepKayitlari!yapYil

Burada en önemli ayrıntı her ayın aynı sayıda günden oluşmamasıydı.. Onuda yine sorgu üzerinden verdiğim şartla hallettim:

ye: (IIf([yeni]="31.06";30;IIf([yeni]="31.04";30;IIf([yeni]="31.09";30;IIf([yeni]="31.11";30;IIf([yeni]="29.02";28;IIf([yeni]="30.02";28;IIf([yeni]="31.02";28;[yen]))))))))

Tüm işlemleri asıl tabloyla aynı özelliklerde oluşturduğum Bep_temp tabosunda yapıyoruz.. Tüm işlemler bittiğinde bu tablo yeni işlemler için boşaltılıyor..

Bu yukarıda anlattıklarım tek düğme üzerinden yönetiliyor..:

With DoCmd
.SetWarnings False
.RunSQL "insert into bep_temp  select * from bep where month(tarih)= " & Forms!bepkayitlari!cmbMonth
.RunMacro "trz_mac"
.RunSQL "insert into bep (tarih,Ogrenci,Saat,Egt_sek,Ogretmen,Ogr_Brn,GrupNo,ogrID)  select tarih,Ogrenci,Saat,Egt_sek,Ogretmen,Ogr_Brn,GrupNo,ogrID from bep_temp "
.RunSQL "delete from bep_temp "
.SetWarnings True
End With

Selamlarımla..

 

[akd]

Çok Çok teşekkür ederim sayın taruz,
elleriniz dert görmesin,
allah sizden razı olsun.
İyi günler dilerim...