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