Sayın hocalarım; Raporun Rapor Alt Bilgi kısmına eklediğim altrapor kaynağını koşula göre değiştirmek istiyorum.
Örnegin
Rapordaki bir metin kutusundaki veriye göre
Diyelim ki metin kutusunun değeri 1 ise A raporunu altrapora alsın metin kutusunun değeri 2 ise B raporunu altrapora alsın.
Altrapor
sayın idrisy,
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte lütfen konunuza içeriğinde farazi gerçek dışı uydurma bilgiler olacak ve sonuçları da görebilmek adına birkaç veri barındıracak şekilde örnek uygulamanızı ekleyiniz.
bilginize...iyi çalışmalar,saygılar.
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte lütfen konunuza içeriğinde farazi gerçek dışı uydurma bilgiler olacak ve sonuçları da görebilmek adına birkaç veri barındıracak şekilde örnek uygulamanızı ekleyiniz.
bilginize...iyi çalışmalar,saygılar.
sayın idrisy,
örneğinizi eklemeden öncesinde;
ilgili bahsettiğiniz ana rapordaki alt raporun kaynağını ilgili denetimdeki değere göre IF Fonksiyonu veya Select...Case komutlarına göre değiştirmek sureti ile kullanmayı deneyebilirsiniz.
bir ihtimal,site arama sayfasında benzer veya yaklaşık nitelikte konular olabilir.araştırmak gerekir.
bilginize...iyi çalışmalar,saygılar.
örneğinizi eklemeden öncesinde;
ilgili bahsettiğiniz ana rapordaki alt raporun kaynağını ilgili denetimdeki değere göre IF Fonksiyonu veya Select...Case komutlarına göre değiştirmek sureti ile kullanmayı deneyebilirsiniz.
bir ihtimal,site arama sayfasında benzer veya yaklaşık nitelikte konular olabilir.araştırmak gerekir.
bilginize...iyi çalışmalar,saygılar.
Sayın; Atoz112 ilginiz için teşekkür ederim. Başta örnek ekleyeyim dedim fakat basittir örneğe ihtiyaç yoktur diye eklemedim. Eminim konunun çözümü basittir. Örneği ekliyorum.
Öğretmenler tablosunda Rehberlik öğretmeni sayısına göre Rapor Altbilgi bölümündeki Altraporun kaynağını değiştirmek istiyorum.
Örnekte bir şeyler yapmaya çalıştım fakat çözemedim. Eğer farklı bir çözüm öneriniz olursa onuda uygulayabilirim.
Öğretmenler tablosunda Rehberlik öğretmeni sayısına göre Rapor Altbilgi bölümündeki Altraporun kaynağını değiştirmek istiyorum.
Örnekte bir şeyler yapmaya çalıştım fakat çözemedim. Eğer farklı bir çözüm öneriniz olursa onuda uygulayabilirim.
Altrapor.rar
(Dosya Boyutu: 89,95 KB | İndirme Sayısı: 4)
sayın idrisy,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
son olarak;
aşağıda bağlantısı yazılı konuyu,tablo yapılandırmanız adına incelemeniz faydalı olacaktır kanısındayım.
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
bilginize...iyi çalışmalar,saygılar.
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
son olarak;
aşağıda bağlantısı yazılı konuyu,tablo yapılandırmanız adına incelemeniz faydalı olacaktır kanısındayım.
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
bilginize...iyi çalışmalar,saygılar.
Altrapor-ATOZ2.rar
(Dosya Boyutu: 88,7 KB | İndirme Sayısı: 7)
Sayın; atoz112 ilginiz için teşekkür ederim. Çözümünüz için teşekkür ederim. Belirttiğiniz konuda bahsedildiği gibi aslında konuyu daha basit çözmeye çalıştım fakat o şekilde çözemedim.
Metin kutularının konumlarını kod ile değiştirerek çözmeye çalıştım hep hata verdi. bende böyle bir çözüm bulmaya çalıştım onu da başaramadım.
Kodu eliyorum. Eğer buna bir öneriniz olursa bununla değiştirebilirim.
Metin kutularının konumlarını kod ile değiştirerek çözmeye çalıştım hep hata verdi. bende böyle bir çözüm bulmaya çalıştım onu da başaramadım.
Kodu eliyorum. Eğer buna bir öneriniz olursa bununla değiştirebilirim.
Kod:
Function RehberOgretmenAyarla()
Dim DugmeEskiUstMesafe1, DugmeEskiUstMesafe2, DugmeEskiUstMesafe3, DugmeEskiUstMesafe4, DugmeEskiUstMesafe5 As Integer
Dim DugmeYeniUstMesafe1, DugmeYeniUstMesafe2, DugmeYeniUstMesafe3, DugmeYeniUstMesafe4, DugmeYeniUstMesafe5 As Integer
Dim SolMesafe1, SolMesafe2, SolMesafe3, SolMesafe4, SolMesafe5 As Integer
Dim YeniSolMesafe1, YeniSolMesafe2, YeniSolMesafe3, YeniSolMesafe4, YeniSolMesafe5 As Integer
Dim EtiketSolMesafe1, EtiketSolMesafe2, EtiketSolMesafe3, EtiketSolMesafe4, EtiketSolMesafe5 As Integer
Dim curRehberlikSayisi As String
Dim rstRehberlik As New ADODB.Recordset
Dim strRehberlik As String
strRehberlik = "SELECT TabloKOgr.K_Adi FROM TabloKOgr WHERE (((TabloKOgr.K_Bransi)='Rehberlik'));"
rstRehberlik.Open strRehberlik, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
curRehberlikSayisi = rstRehberlik.RecordCount
'curRehberlikSayisi = Metin95 'Nz(DCount("K_Adi", "TabloKOgr", "[K_Bransi]= 'Rehberlik'"), 0)
Metin95 = Nz(DCount("K_Adi", "TabloKOgr", "[K_Bransi]= 'Rehberlik'"), 0)
DugmeEskiUstMesafe1 = Me.Öğretmen1.top
DugmeEskiUstMesafe2 = Me.Öğretmen2.top
DugmeEskiUstMesafe3 = Me.Öğretmen3.top
DugmeEskiUstMesafe4 = Me.Öğretmen4.top
DugmeEskiUstMesafe5 = Me.Öğretmen5.top
SolMesafe1 = Me.Öğretmen1.Left
SolMesafe2 = Me.Öğretmen2.Left
SolMesafe3 = Me.Öğretmen3.Left
SolMesafe4 = Me.Öğretmen4.Left
SolMesafe5 = Me.Öğretmen5.Left
EtiketSolMesafe1 = Me.Öğretmen11.Left
EtiketSolMesafe2 = Me.Öğretmen22.Left
EtiketSolMesafe3 = Me.Öğretmen33.Left
EtiketSolMesafe4 = Me.Öğretmen44.Left
EtiketSolMesafe5 = Me.Öğretmen55.Left
If curRehberlikSayisi = 1 Then
'Etiket107
Öğretmen2.Visible = False
Öğretmen3.Visible = False
Öğretmen4.Visible = False
Öğretmen5.Visible = False
Öğretmen22.Visible = False
Öğretmen33.Visible = False
Öğretmen44.Visible = False
Öğretmen55.Visible = False
Me.Metin8.Left = SolMesafe3
Me.Metin64.Left = EtiketSolMesafe3
Me.Metin8.top = DugmeEskiUstMesafe3
Me.Metin64.top = DugmeYeniUstMesafe
ElseIf curRehberlikSayisi = 2 Then
'Etiket107
Öğretmen2.Visible = False
Öğretmen3.Visible = False
Öğretmen4.Visible = False
Öğretmen22.Visible = False
Öğretmen33.Visible = False
Öğretmen44.Visible = False
DugmeEskiUstMesafe = Me.Öğretmen3.top
DugmeYeniUstMesafe = Me.Öğretmen33.top
SolMesafe5 = Me.Öğretmen3.Left
SolMesafe55 = Me.Öğretmen33.Left
Me.Öğretmen5.Left = SolMesafe5
Me.Öğretmen55.Left = SolMesafe55
Me.Öğretmen5.top = DugmeEskiUstMesafe
Me.Öğretmen55.top = DugmeYeniUstMesafe
ElseIf curRehberlikSayisi = 3 Then
Öğretmen2.Visible = False
Öğretmen4.Visible = False
Öğretmen22.Visible = False
Öğretmen44.Visible = False
DugmeEskiUstMesafe = Me.Öğretmen3.top
DugmeYeniUstMesafe = Me.Öğretmen33.top
SolMesafe3 = Me.Öğretmen2.Left
SolMesafe33 = Me.Öğretmen22.Left
SolMesafe5 = Me.Öğretmen3.Left
SolMesafe55 = Me.Öğretmen33.Left
Me.Öğretmen3.Left = SolMesafe3
Me.Öğretmen33.Left = SolMesafe33
Me.Öğretmen5.Left = SolMesafe5
Me.Öğretmen55.Left = SolMesafe55
Me.Öğretmen5.top = DugmeEskiUstMesafe
Me.Öğretmen55.top = DugmeYeniUstMesafe
ElseIf curRehberlikSayisi = 4 Then
Öğretmen5.Visible = False
Öğretmen55.Visible = False
End If
rstRehberlik.Close
Set rstRehberlik = Nothing
End Function
Konuyu Okuyanlar: 1 Ziyaretçi
