Arkadaşlar ekteki dosyada kitap2 isminde bir rapor var bu rapordaki kitap_adi alanını büyüyebilir yaptım satır ayrımı yapmak içinde alanların altına düz bir çizgi çektim dolayısı ile kitap adı sığmayınca çizgi aşağı kayıyor ancak kitap_adı alanını diğer alanlardan ayırmak için alanların arasına koyduğum dik düz çizgi büyümyor ve kötü bir görüntü oluşuyor bu sorunu nasıl çözebilirim.
Raporunun açıldığında yordamına;
Private Sub Report_Open(Cancel As Integer)
Çizgi23.Height = Me.kitap_adi.Height
End Sub
kodunu yaz
Arkadaşlar sorun devam etmekte büyüyebilir alan yapınca kötü bir görüntü oluşuyor.
Bütün alanların altına düz bir çizgi çekince, alan büyüdüğünde sadece büyüyen alanın olduğu satırdaki çizgi aşağı kayıyorda alanların arasına dik çizgi çekince niye olmuyor anlamadım gitti.
dik çizgide dediğiniz özellik olmuyor fakat kitap adını ayırmak için kitap adı denetimine şekil anahattından çizgiler ekleyebilirsiniz.
benimde böyle bir şeye ihtiyacım olmuştu. arkadaşlar daha önceden aşağıdaki çalışmayı yapmışlardı bende kendime uyarladım.
önce bir modül ekle ve modüle aşağıdaki kodu kopyala
Option Compare Database
Public Sub MakeBoxesGrow(ThisReport As Report)
Dim X1 As Single
Dim X2 As Single
Dim Y1 As Single
Dim Y2 As Single
Dim Offset As Single
Dim Color As Long
Dim ThisControl As Control
Dim MaxHeight As Single
For Each ThisControl In ThisReport.Section(acDetail).Controls
If ThisControl.Visible = True Then
If ThisControl.Height > MaxHeight Then
MaxHeight = ThisControl.Height
End If
End If
Next ThisControl
ThisReport.ScaleMode = 1
Offset = 0
ThisReport.DrawWidth = 3
Color = RGB(0, 0, 0) '
For Each ThisControl In ThisReport.Section(acDetail).Controls
If ThisControl.Visible = True Then
X1 = ThisControl.Left - Offset
Y1 = ThisControl.Top - Offset
X2 = ThisControl.Left + ThisControl.Width + Offset
Y2 = ThisControl.Top + MaxHeight + Offset
ThisReport.Line (X1, Y1)-(X2, Y2), Color, B
End If
Next ThisControl
Set ThisControl = Nothing
End Sub
sonra raporda ayrıntı kısmında yazıldığında yordamına aşağıdaki kodu ekle
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
MakeBoxesGrow Me
End Sub
tabi raporda alanların etrafındaki çerçeveleri kaldırman lazım.