1
ห้อง MS Access / : สอบถามการปิดเมนูบาร์
« เมื่อ: 28 พ.ค. 64 , 15:39:26 »
ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
ใส่โค้ดว่าได้แล้วครับ ขอบคุณมากครับ
DoEvents
แล้วลองเปลี่ยนโค้ด เซฟดูครับว่าได้ไหม
DoEvents
DoCmd.save acForm, "Merchandiser Key Update"
ลองดูตัวอย่างนี้นะครับ น่าจะโอเคสุดละได้เลยครับ ขอบคุณมากๆเลยนะครับคุณปิ่นณรงค์ (คุณ Newbies เดิมหรือเปล่าครับ)
บน Moduleโค๊ด: [Select]Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With
Exit_RowNum:
Exit Function
Err_RowNum:
If Err.Number <> 3021& Then
Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function
ที่ textbox ชื่อ NO ใส่ =RowNum([Form])
ตัวอย่างด้านล่าง
ที่ Event: On mouse up ให้ใส่ Code นี้เข้าไปครับตามที่อาจารย์แนะนำ ผมลองทำดูแล้วก็ทำงานตามที่อาจารย์บอกครับ แต่ก็ยังไม่ได้ตรงตามจุดประสงค์ของผม แต่ไม่เป็นไรครับผมคงไม่ไป protectหรือ hide อะไรมากมายแล้วครับ
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 เท่านั้นนะครับ