Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Aylık ve Yıllık Rapor Yazdırma

tamyoltornistan
tamyoltornistan
Access Cevaplanmış Soruları
13
5659

Aylık ve Yıllık Rapor Yazdırma

Çözüldü #7
tamyoltornistan
Aktif Üye
tamyoltornistan
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 44
Konum: Kocaeli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 17/06/2020,16:03
Yorumları: 118
Konuları: 30
Kayıt Tarihi: 06/01/2009
Teşekkür Puanı: 0
Kod:
If Me("Etiket" & strNum).Caption = gun2 And rst!Bitti = True Then
     Me("Etiket" & strNum).BackColor = 255
[/quote]

bu kodun meali nedir acaba???

strNum ne demek? rst!Bitti ne demek?
Son Düzenleme: 15/12/2009, 00:58, Düzenleyen: tamyoltornistan.
Cevapla
Çözüldü #8
esrefigit
Aktif Üye
esrefigit
Bul
Aktif Üye
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/03/2024,17:22
Yorumları: 599
Konuları: 59
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 364
istediklerin yapıldı aylık ve senin ilk mesaja göre yıllık rapor eklendi
.rar aylık yıllık ders planı2.rar (Dosya Boyutu: 51,8 KB | İndirme Sayısı: 30)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #9
esrefigit
Aktif Üye
esrefigit
Bul
Aktif Üye
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/03/2024,17:22
Yorumları: 599
Konuları: 59
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 364
güncelleme
yıllıktaki kodu bununla değiştirirsen bir de kutulara X işareti koyar

Kod:
Option Compare Database
Dim i As Integer
Dim ay As Integer
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Me.m124.Value = Null
For i = 1 To 12 Step 1
If i = Month(Me.Tarih) Then
For ay = 1 To 4 Step 1
Me("m" & i & ay).Value = Null
Me("m" & i & ay).BackColor = 16777215
Next ay
End If
Next i
For i = 1 To 12 Step 1
If i = Month(Me.Tarih) Then
For ay = 1 To 4 Step 1
If Me.hafta = ay Then
Me("m" & i & ay).BackColor = 12632256
Me("m" & i & ay).Value = "X"
End If
Next ay
End If
Next i
End Sub
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 15/12/2009, 16:53, Düzenleyen: esrefigit.
Cevapla
Çözüldü #10
tamyoltornistan
Aktif Üye
tamyoltornistan
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 44
Konum: Kocaeli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 17/06/2020,16:03
Yorumları: 118
Konuları: 30
Kayıt Tarihi: 06/01/2009
Teşekkür Puanı: 0
hocam vallahi süpersiniz yaa..!!!Img-cray
beni o kadar büyük bir dertten kurtardınız ki anlatamam..!!

saygılar sevgiler hep sizinle olsun..!!!!Angel
Cevapla
Çözüldü #11
benremix
Onursal Üye
benremix
www Bul
Onursal Üye
Adı Soyadı: Ra.... So....
Yaşı: 58
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 04/01/2025,22:48
Yorumları: 4.446
Konuları: 127
Kayıt Tarihi: 17/05/2009
Teşekkür Puanı: 365
Mesleğiniz: Şirket Sahibi
Sn esrefigit katkı ve paylaşımlarınızdan dolayı teşekkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.

Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #12
esrefigit
Aktif Üye
esrefigit
Bul
Aktif Üye
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/03/2024,17:22
Yorumları: 599
Konuları: 59
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 364
örnekteki ve sonraki verdiğim kodda hatalar vardı ardarda gelen verilerde kutuları boşaltma yapmıyordu ondan dolayı elinizdeki kodu bununla değitirirn
Kod:
Option Compare Database
Dim i As Integer
Dim ay As Integer
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
For i = 1 To 12 Step 1
For ay = 1 To 4 Step 1
Me("m" & i & ay).BackColor = 16777215
Me("m" & i & ay).Value = Null
Next ay
Next i
For i = 1 To 12 Step 1
If i = Month(Me.Tarih) Then
For ay = 1 To 4 Step 1
If Me.hafta = ay Then
Me("m" & i & ay).BackColor = 12632256
Me("m" & i & ay).Value = "X"
End If
Next ay
End If
Next i
End Sub
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task