AccessTr.neT - Altrapor

Sayfalar: 1 2

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.

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.

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.

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.

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.

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

Sayfalar: 1 2