ที่ Event: On mouse up ให้ใส่ Code นี้เข้าไปครับ
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.ชื่อฟิลด์ที่ต้องการซ่อน.ColumnHidden = False Then
Me.ชื่อฟิลด์ที่ต้อกงารซ่อน.ColumnHidden = True
End If
End Sub
Unhide ได้แป๊บเดียว(ประมาณ 1-2 วินาที) ก็จะกลับไปซ่อนใหม่ทันที
ถ้ามีหลายฟิลด์ก็เหนื่อยหน่อยนะ
อ้อ! ใช้ได้เฉพาะ Datasheet View เท่านั้นนะครับ