Puantaj programı ile ilgili olarak direk sütun belirleyerek excelle aktarım yapıyorum fakat kayıt sayısı değişken olduğu için bu ay 70 kişi varsa 3 ay sonra 90 kişiye çıkabilir veya eksilebilir. Direk sütun belirleyerek
aktarmak bugünü kurtarsa da daha sonra sorun çıkaracak, tblimza ve buna bağlı frmimza olarak form oluşturdum. Resimde görülen örnek
Excel dosyasına son satırı baz alarak ilk kaydımı atıyorum.
Alıntı:Set Rs2 = CurrentDb.OpenRecordset("tblimza")
kodu ile yeni oluşturduğum tabloya tanımlama yaptım.
Alıntı:sonB = Cells(Rows.Count, "B").End(3).Row + 3
excl.Range("B2:B" & sonB).Find("", Range("B" & sonB), xlValues, xlByRows, xlPrevious).Select
kodu ile son satırı buldum. Altına
Alıntı:excl.Range("B" & sonB) = Rs2(0)
kodunu yazınca çalıştı, fakat
Alıntı:excl.Range("B" & sonB) = Rs2(2)
kodunu da ekleyince hiçbir veri getirmedi. Amacım son satırı bulup PUANTAJ programında yer alan kısaltmaları ekteki resimde görüldüğü gibi yazmak, hemen peşine tblimzadan verilerimi çekmek.
puantaj.rar
(Dosya Boyutu: 81,27 KB | İndirme Sayısı: 7)