Popup ข้อความ

[naekkhung]

มีฟิวส์ชื่อ Collection กำหนดให้คีย์ข้อมูลได้ 500 digit แต่จากรูปโดนบีบให้โชว์ข้อความไม่ถึง 500 digit คำถามคือ เมื่อนำเมาส์เลื่อนผ่านที่กล่องข้อความ ให้ Popup โชว์ข้อความทั้งหมด 500 digit ได้ไหมครับ

[OddyWriter]

กำหนด Properties ของ Text Box เป็น Can Growth = Yes ก็จะแสดงทั้งหมดได้

[naekkhung]

ขอบคุณ OddyWriter ครับแต่ที่ต้องการไม่ใช่แบบนี้ครับ อยากได้แบบเมาส์ลากผ่านแล้ว Popup โชว์ text ทั้งหมด 500 digit เลย แบบที่ OddyWriter ก็ใช้อยู่ครับ

[ปิ่นณรงค์]

ใช้ .ControlTipText แสดงข้อความเมื่อเม้าส์ไปโดนก็ได้นะคับ
มีตาราง Table1
มี Field ID , Comment

มี textbox ID กับ Comment

โค๊ด: [Select]

Private Sub Comment_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not IsNull(Me.Comment) And Not IsNull(Me.ID) Then
Me.Comment.ControlTipText = DLookup("Comment", "Table1", "ID =" & Me.ID & "")
Else
Me.Comment.ControlTipText = Null
End If
End Sub

[naekkhung]

อาจารย์ไท พอจะทำตัวอย่างให้ดูหน่อยได้ไหมครับ พอดีทำแล้ว error ครับ

[สันติสุข]

เท่าที่ลองหาตามเวป ถ้ามีจำนวนบรรทัดไม่เกิน 1 หน้าฟอร์ม อาจพอทำได้ ... แต่ถ้าเกิน คิดว่าไม่น่าจะทำได้ ยกเว้นว่าใครจะหาวิธีทำให้รู้ได้ว่าเรคอร์ดแรกที่อยู่บรรทัดติดขอบบนของฟอร์มตอนนี้ คือเรคอร์ดที่เท่าไหร่ ซึ่งอาจไม่ใช่เรคอร์ดที่ 1 ก็ได้ และอาจไม่ได้เป็น Current Record ด้วย