31/03/2010, 14:33
accessman
iyi günler
eklediğim örnekte form1 deki iki metin kutusunun
büyüyebilir özelliği evet
form1 sürekli form şeklinde
yapmak istediğim
metin1 ve metin2 kutularının içindeki verinin uzunluğuna göre büyüyebilmesi
ayrıntının yüksekliği metin1 veya metin2 nin hangisi daha fazla ise ona göre ayarlanması
aynı zamanda mesela
metin2 daha yüksekse hem metin1 hem de ayrıntı nın yüksekliği metin2 ye göre ayarlansın
tabiki bu her kayıt iççin ayrıntının yüksekliği değişecek demektir
nasıl yapabilirim
yardımlarınız için teşekkürler
Aşağıdaki kodda nasıl bir değişiklik yapabiliriz
____________________________________________
Private Sub Form_Current()
Dim height As Integer
height = Me.RTFControl.Object.RTFheight
If height > 0 Then
If height < 32000 Then
Me.RTFControl.height = height
End If
End If
Me.Section(acDetail).height = Me.RTFControl.height + Me.RTFControl.Top
If Me.RTFControl.Object.RTFheight > 0 Then
If Me.RTFControl.Object.RTFheight < 32000 Then
Me.RTFControl.height = Me.RTFControl.Object.RTFheight
End If
End If
End Sub
_____________________________________________________
eklediğim örnekte form1 deki iki metin kutusunun
büyüyebilir özelliği evet
form1 sürekli form şeklinde
yapmak istediğim
metin1 ve metin2 kutularının içindeki verinin uzunluğuna göre büyüyebilmesi
ayrıntının yüksekliği metin1 veya metin2 nin hangisi daha fazla ise ona göre ayarlanması
aynı zamanda mesela
metin2 daha yüksekse hem metin1 hem de ayrıntı nın yüksekliği metin2 ye göre ayarlansın
tabiki bu her kayıt iççin ayrıntının yüksekliği değişecek demektir
nasıl yapabilirim
yardımlarınız için teşekkürler
Aşağıdaki kodda nasıl bir değişiklik yapabiliriz
____________________________________________
Private Sub Form_Current()
Dim height As Integer
height = Me.RTFControl.Object.RTFheight
If height > 0 Then
If height < 32000 Then
Me.RTFControl.height = height
End If
End If
Me.Section(acDetail).height = Me.RTFControl.height + Me.RTFControl.Top
If Me.RTFControl.Object.RTFheight > 0 Then
If Me.RTFControl.Object.RTFheight < 32000 Then
Me.RTFControl.height = Me.RTFControl.Object.RTFheight
End If
End If
End Sub
_____________________________________________________