Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if shift = 1 then
Select Case KeyCode
    Case vbKeyF5
            Call Command56_Click
    Case vbKeyF3
            DoCmd.Close
   Case vbKeyShift + vbKeyF6
        Me.ÃËÑʺѭªÕ.Value = "111110"
   End Select
END IF
End Sub

ทำแล้วไม่ขึ้นอะไรเลยค่ะ

Select Case KeyCode
    Case vbKeyF5
            Call Command56_Click
    Case vbKeyF3
            DoCmd.Close
   Case vbKeyF6
             if Shift =1 then Me.ÃËÑʺѭªÕ.Value = "111110"
End Select

.. ในการตรวจสอบเงื่อนไขของ select case ตัวนี้ คุณสั่งให้มันตรวจสอบเฉพาะ ค่าของอาร์กิวเมนต์ keycode เท่านั้น .... สังเกตุจากบรรทัดบนสุดของ select
Select Case KeyCode

ดังนั้น ไม่มีโอกาสหรอกครับที่มันจะได้เคสที่ 3 อย่างที่คุณเขียน เพราะมันไม่มีหน้าที่ ไม่มีอำนาจ ไม่มีสิทธิ์ที่จะตรวจ อาร์กิวเมนต์ shift

ขอบคุณค่ะ แล้วถ้าเป็น Control ล่ะค่ะ
เช่น กด Ctrl+f6 ต้องเขียนยังไงค่ะ รบกวนอีกทีค่ะ

ค่าของ อากิวร์เมนต์ shift ครับ
ผมก็ไม่ค่อยแม่นเท่าไหร่

คือถ้ามันเป็น 0 หรือไม่มีค่า หมายถึงไม่ได้กด ครับ
ถ้าเป็น 1 แสดงว่า กด.....(Shift หรือ ctl หรือ alt)
ถ้าเป็น 2 แสดงว่า กด .....(Shift หรือ ctl หรือ alt)
ถ้าเป็น 3 แสดงว่า กด .....(Shift หรือ ctl หรือ alt)
เพราะฉะนั้น เราก็ใช้ if ได้เหมือนเดิมครับ

ไม่แม่นครับ จำไม่ได้ว่า ค่าเท่าไหร่เป็นของปุ่มอะไรครับ ที่ผมลองเขียนไปใน reply ก่อนนี้ นั่นคือ ดูมาจาก คำตอบของคุณ gaka ครับ ลองเปิด help ดูเพิ่มเติมนะครับ หรือไม่ก็ลองๆ ทดสอบหาเอาครับ หรืออาจจะมีท่านอื่นๆ มาช่วยตอบก็ได้ครับ

ขอบคุณค่ะ

ลอง
[code]Private Sub Command0_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode & "|" & Shift
End Sub[/code]

Key Down ต้ัองใช้กับปุ่ม หรือเปล่า ใช้กับฟอร์มยังไม่เคยเจอ