|
دوست من سلام
از مطلبي كه در لينك زير گذاشته بوديد ممنونم
http://www.rasekhoon.net/forum/threadshow-309515-1.aspx
بزرگوار در گزارش اكسس من از اين دستور استفاده كردم. سوالم اينه كه براي يك تكست باكس، كد زير جواب مي ده:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Text1
Case "محمد"
Me.Image1.Visible = True
Me.Image2.Visible = False
Case "علي"
Me.Image1.Visible = False
Me.Image2.Visible = True
End Select
End Sub
ولي اگه همين دستور براي يه تكست باكس ديگه بخوام استفاده كنم خطا مي گيريم:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Text1
Case "محمد"
Me.Image1.Visible = True
Me.Image2.Visible = False
Case "علي"
Me.Image1.Visible = False
Me.Image2.Visible = True
End Select
Select Case Text2
Case "رضا"
Me.Image3.Visible = True
Me.Image4.Visible = False
Case "احمد"
Me.Image3.Visible = False
Me.Image4.Visible = True
End Select
End Sub
ممنون مي شم راهنمايي بفرمائيد.
|