Raporda Yan Yana Yazdırma Ve Birlikte Tutma

1 2

Hayırlı akşamlar arkadaşlar. Ekteki örnekte "MUSTERILER2" formunda "Teklif Raporu" na tıklayınca yan yana yazdırmayı yaptım. Fakat grupları birlikte tutu bir türlü yapamadım. Bütün hepsini tek tek seçtim denedim ama maalesef yapamadım. Gruplar birlikte olması gerekiyor. Bir de grubu bir çizgi içine alabilirmiyiz.
Bir de raporun yüklendiğinde yordamına bir şeyler yazmaya çalıştım hata verdi. Ben acemice yazmaya çalıştım. Zaten yordamı görünce ne yapmaya çalıştığımı anlayacaksınız. Bu yordamı da nasıl yazmam lazım. Teşekkür ederim.

Not: Raporun yüklendiğinde yordam görünmüyor ama yordamı seçince görürsünüz.

Birlikte tutu sayfanın üst ve alt ölçüleri ile hallettim. Kod üzerinde uğraşıyorum.

Private Sub Report_Load()
If Me.URUNKODU = 1 Then
Me.Metin47 = "GÜBRE SERPME"
End If
If Me.URUNKODU = 2 Then
Me.Metin47 = "KEPÇE"
End If
If Me.URUNKODU = 3 Then
Me.Metin47 = "TESVİYE KÜREĞİ"
End If
If Me.URUNKODU = 4 Then
Me.Metin47 = "TAŞIMA SEPETİ"
End If
If Me.URUNKODU = 5 Then
Me.Metin47 = "MERDANE"
End If
If Me.URUNKODU = 6 Then
Me.Metin47 = "KÜLTİVATÖR"
End If
If Me.URUNKODU = 7 Then
Me.Metin47 = "KALDIRAÇ"
End If
End Sub

bu şekilde yazdım olmadı. maalesef Hepsine Gübre Serpme yazıyor

Kod yerine tabloya urungrp alanı oluşturup bu sorunu da hallettim.

Merhaba Sayın @hegu

Kodlamalarınızda genel itibarı ile yaptığınız bir hata var doğrudan hedefe yönelik kod geliştirmeye çalışıyorsunuz. if yapısında değerlendirmeniz gereken eğer şu ise şunu yap değilse şunu yap şeklinde kodlamalısınız. If ve ElseIf kullanımını da dikkatle incelemenizde fayda var.

sayın atoykan hocam ben kod ile değilde farklı bir yoldan hallettim. teşekkür ederim bilgi için Fakat bu dediğinize bilgi amaçlı deniyeceğim.

Sayın atoykan hocam kodu düzelterek yazabilirmisiniz. Denedim yapamadım. Örnek olması açısından yazarsanız bana yol gösterir bundan sonraki çalışmalarımda. Teşekkür ederim.

1 2