Eğitim Planlama Programı - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Eğitim Planlama Programı (/konu-egitim-planlama-programi.html) |
Eğitim Planlama Programı - accessman - 22/01/2020 yabancı kaynaktan kurs için hazırlanmış teacher student falan filan güzel bir örnek Cvp: Eğitim Planlama Programı - accessman - 22/01/2020 form boyutlarını değiştirince control boyutlarının değiştiği bir kod eklemiştim o kodu buradaki forma uyarlamam lazım yardımcı olabilir misiniz kod ekle derseniz burayada ekleyeyim Cvp: Eğitim Planlama Programı - accessman - 22/01/2020 frmCalendar formunda her gün için textbox var bunlarda kurs alan kişilerin isimleri dersleri saatleri vs var bu textboxda geçen kelime içeriğine göre arka plan rengini değiştirebilir miyiz mesela içinde "UY" geçen textboxlar eğer seçili aya ait bir gün ise arkaplan rengi açıkmavi olsun gibi Cvp: Eğitim Planlama Programı - berduş - 22/01/2020 PrintArray fonksiyonunun kodunu aşağıdaki gibi düzenleyebilirmisiniz 'hy Satırları arasındaki kodlar eklenecek ben deneme amaçlı olarak kayıtlarda yer alan "BK2 AG" kullandım siz istediğinizi kullanırsınız
Cvp: Eğitim Planlama Programı - accessman - 22/01/2020 çok teşekkürler ellerinize sağlık bir de resize olayına bakabilir misiniz şu kodu bu forma uyarlamam lazım Public Sub SizeControls() Dim lFWidth As Single, lFHeight As Single Dim lLeft As Single, lTop As Single, lWidth As Single, lHeight As Single Dim lDayLeft As Single, lDayTop As Single, lDayWidth As Single, lDayHeight As Single Dim lWeekdayHeight As Single Dim i As Integer, X As Integer, iT As Integer Dim bAbbreviate As Boolean Dim UF As Form Const lPano As Single = 3000 On Error Resume Next DoEvents If bHaftaAcik Then lWeekdayHeight = lblkw1.Width Else lWeekdayHeight = 0 End If With Me .Painting = False lFWidth = .InsideWidth lFHeight = .InsideHeight - (.Section(acHeader).Height + .Section(acFooter).Height) lFHeight = lFHeight - 100 lLeft = 50 lTop = 50 lWidth = IIf(bNavigasyonPanosu, lFWidth - (lPano + 50), lFWidth - 100) lHeight = lFHeight .lblBaslik.Width = lFWidth If TakvimTipi = enHafta Then lDayLeft = lLeft lDayTop = lTop + 205 lDayHeight = lHeight - 250 lDayWidth = lWidth \ 6 For i = 1 To 42 With Me("altfrmGun" & i) Select Case i Case 1 To 5 .Left = lLeft .Top = lTop + 250 .Height = lDayHeight With Me("lblGun" & i) .Left = lLeft .Top = lTop .Width = lDayWidth .Height = 250 End With Case 6 .Left = lLeft .Top = lTop + 250 .Height = (lHeight \ 2) - 250 With Me("lblGun" & i) .Left = lLeft .Top = lTop .Width = lDayWidth .Height = 250 End With Case 7 .Left = Me("altfrmGun" & i - 1).Left .Top = (lTop + (lHeight \ 2)) + 250 .Height = (lHeight \ 2) - 250 With Me("lblGun" & i) .Left = Me("altfrmGun" & i).Left .Top = Me("altfrmGun" & i).Top - 250 .Width = lDayWidth .Height = 250 End With End Select .Width = lDayWidth .Visible = (i < 8) End With lLeft = lLeft + lDayWidth Next i Else lDayLeft = lLeft + lWeekdayHeight lDayTop = lTop + 250 lDayHeight = (lHeight - 250) / 6 lDayWidth = (lWidth - lWeekdayHeight) / 7 bAbbreviate = lDayWidth < 900 For i = 1 To 6 For X = 1 To 7 If i = 1 Then With Me("lblGun" & X) .Left = lDayLeft .Top = lTop .Width = lDayWidth .Height = 250 .Caption = WeekdayName(CLng(X), bAbbreviate) End With lDayLeft = lDayLeft + lDayWidth End If With Me("altfrmGun" & X + iT) .Width = lDayWidth .Left = Me("lblGun" & X).Left .Height = lDayHeight .Top = lDayTop On Error Resume Next Set UF = .Form Call FormBars(UF) .Visible = True End With Next X If bHaftaAcik Then With Me("lblkw" & i) .Left = lLeft + 10 .Top = lDayTop .Height = lDayHeight End With End If iT = iT + 7 lDayTop = lDayTop + lDayHeight Next i End If .altfrmPano.Move lFWidth - lPano, 50, lPano, lFHeight .altfrmPano.Visible = bNavigasyonPanosu .Painting = True .Repaint End With End Sub bundaki gereksizleri çıkarıp forma uydurmam gerekiyor |