ที่ 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 เท่านั้นนะครับ

ตามที่อาจารย์แนะนำ ผมลองทำดูแล้วก็ทำงานตามที่อาจารย์บอกครับ แต่ก็ยังไม่ได้ตรงตามจุดประสงค์ของผม แต่ไม่เป็นไรครับผมคงไม่ไป protectหรือ hide อะไรมากมายแล้วครับ