AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Altrapor

1 2
12/06/2016, 03:36

idrisy

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.
12/06/2016, 09:49

atoz112

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.
12/06/2016, 10:05

atoz112

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.
12/06/2016, 16:27

idrisy

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.
13/06/2016, 22:13

atoz112

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.
14/06/2016, 01:33

idrisy

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.

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
1 2