อยากให้ ปุ่ม Button ยังอยู่ในสภาพเมื่อมีการเปิด from ใหม่

[Eakaluk Sansila]

 :cry:มีเรื่องรบกวนอาจารย์ หลายๆท่านอีกแล้วครับ อธิบายยาก คือผมทำปุ่ม button ไว้ใช้งาน เมื่อกดใช้งานแล้วให้ขึ้น สถานะ lock แต่พอเปิด from ขึ้นมาใหม่ กลับไม่จำปุ่มที่มีสถานะ lock ไว้ จนกว่ามีการ update และเมื่อมีการ update แล้วให้กลับมาค่า default ก่อนกด ปุ่ม อธิบายเอง งง เอง ดูภาพประกอบเลยครับอาจารย์ 

[UnKnown]

จะให้จำสถานะเมื่อปิด-เปิดฟอร์มใหม่ก็เก็บบันทึกค่าใว้ในตารางครับ

เมื่อเปิดฟอร์ม > เช็คค่าสถานะ
เมื่อกดปุ่ม(ที่ต้องการล๊อค,ปลดล๊อค) > แก้สถานะปุ่ม(ใช้ Me.cb_no1.Enabled = False หรือ True ) & บันทึกสถานะลงตาราง

[Eakaluk Sansila]

 :cry:ไม่ได้เลยครับอาจารย์

*  & บันทึกสถานะลงตาราง* ไม่เข้าใจตรงนี้ครับอาจารย์

[UnKnown]

1.ท่านสั่งให้มันจำค่าต่างๆ(รหัส,วันที่สั่ง,...)ใว้ที่ Table ไหนก็ไปเพิ่มให้มันจำสถานะปุ่มใว้ด้วยนะ
2.เมื่อเปิดฟอร์มมาก็สั่งให้ตรวจสอบแล้วสั่งให้ปุ่มมีผลตามค่านั้น
ปล.ไม่รู้ว่าท่านสั่งให้ปุ่มชื่อ DM500 มาจากไหนอ่านะครับผมจึงสั่งให้ฟอร์มเป็นตัวกำหนด

โค๊ด: [Select]

Private Sub Form_Current()
    If Me.Check_cb_no1 = True Then
        Me.cb_no1.Caption = "DM500"
        Me.cb_no1.BackColor = vbYellow
        Me.cb_no1.Enabled = True
    Else
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
    End If
End Sub

Private Sub cb_no1_Click()
    If Me.cb_no1.Caption = "DM500" Then
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
        Me.Check_cb_no1 = False
    End If
End Sub

Private Sub cb_no2_Click()
    Me.cb_no1.Caption = "DM500"
    Me.cb_no1.BackColor = vbYellow
    Me.cb_no1.Enabled = True
    Me.Check_cb_no1 = True
End Sub

[Eakaluk Sansila]

อาจารย์ครับ หากผมต้องการ form Unlock ไว้ให้ admin ใช้ควรจะทำใงอีกครับ

[UnKnown]

คือยังไงครับ

ปกติท่านมีหน้าฟอร์มของ admin อยู่แล้วยังล่ะครับ  ถ้ายังไม่มีหาดูในบอร์ดเลยครับตัวอย่างของอ.สันติสุข โปรแกรมตัวอย่างการสร้างฟอร์มล็อคอินและเมนูที่เปลี่ยนไปตามผู้ใช้
ฟอร์มผู้ใช้มีแค่ปุ่ม DM500  /  ฟอร์มหัวหน้าถึงจะมีปุ่ม Unlock เป็นต้นครับ

[Eakaluk Sansila]

มีแล้วครับอาจารย์ ฟอร์ม Admin จะให้ไป unlock ปุ่ม DM500 ครับ

และอีกปัญหาครับอาจารย์ มันฟ้องให้แก้ไขตรง Check ตลอดเลยครับ

 

[UnKnown]

มีแล้วครับอาจารย์ ฟอร์ม Admin จะให้ไป unlock ปุ่ม DM500 ครับ

และอีกปัญหาครับอาจารย์ มันฟ้องให้แก้ไขตรง Check ตลอดเลยครับ

 

ฟอร์ม Admin ถอดชุดคำสั่งนี้ออกไป > เปลี่ยนเป็นแค่ทำ CheckBox ผูกใว้เพื่อแสดงสถานะ และที่ปุ่ม unlock ก็ใช้คำสั่งแค่ Me.Check_cb_no1 = True
หรือว่าท่านไม่ได้ทำ me.Check_cb_no1 by CheckBox เหมือนไฟล์ตัวอย่าง