It and the detail section that is in have the can Grow property. ok now in this code
Expand|Select|Wrap|Line Numbers
- Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
- Dim strImagePath As String
- Dim strImagePath2 As String
- On Error Resume Next
- If (Me.Extra= -1) Then
- Me.ImageFrame.Visible = True
- Me.Pieces.Visible = True
- Me.Line112.Visible = True
- Me.Line133.Visible = True
- Me.Commentary.Visible = True
- Me.Desc_box.Visible = True
- Me.TDesc.Visible = True
- Me.TxtDesc.Visible = True
- Me.ImageFrame2.Visible = False
- strImagePath = Me.Imagen
- Me.ImageFrame.Picture = strImagePath
- strImagePath2 = (none)
- Me.ImageFrame2.Picture = strImagePath2
- Else
- Me.Pieces.Visible = False
- Me.Line112.Visible = False
- Me.Line133.Visible = False
- Me.Commentary.Visible = False
- Me.Desc_box.Visible = False
- Me.TDesc.Visible = False
- Me.TxtDesc.Visible = False
- Me.ImageFrame2.Visible = True
- strImagePath = (none)
- Me.ImageFrame.Picture = strImagePath
- strImagePath2 = Extra
- Me.ImageFrame2.Picture = strImagePath2
- End If
- If Me.Top < 0 Then
- MsgBox (Me.Top)
- End If
- End Sub
And everything else is not showing Imageframe1, tdesc, txtdesc etc.
is there any idea of wha i can do to make them show?