เพิ่มเติมครับ
คือกดEnter ครั้งแรก ประมาณว่าให้มันเช็คว่าเป็นค่าว่าง หรือไม่ได้ลงจริง แต่เคอเซอรืยังอยู่ที่เดิม(ProductID)
จึงกดEnterอีกทีให้มันย้ายไปที่ช่องใส่จำนวนเงินรับเลยครับ

dim entProduct as integer
form_load()
entProduct=0
end sub

productid_keydown()

if keycode=13 then
cmd1=cmd1+1
if productid="" and cmd1=1 then
productid.setfocus
else
forms("Form01").controls("txtCash").setfocus
end if
end if
end sub

อิอิ มั่วๆ เอา เผื่อจะตรงประเด็นบ้าง งานนี้มันแปลกๆ ดี หุหุ

ขอบคุณครับ เดี๋ยวเอาไปลองครับ เดี๋ยวมาแจ้งผลนะครับ

ลองดูแล้วก็ งงๆ น่ะครับ แล้วก็ทำไม่ได้ แหะๆ
เอาแบบนี้ได้มั๊ยครับ เอาแค่

ถ้า ProductID(ที่เป็นCombo) เมื่อมีค่าน้อยกว่า1 ก็ให้มันกดแล้วไม่ย้ายไปฟิล์ดต่อไป(Quantity)ก็ได้ครับ ให้มันแช่อยู่ตรงนั้น กดEnter กี่ที ก็ไม่ให้มันไปไหนอ่ะครับ
ขอบคุณครับ

ตอนนี้ผมใช้แบบนี้ก้ไม่ได้ครับ

Private Sub ProductID_Enter()
If ProductID < 1 Then
ProductID.SetFocus
End If
End Sub

อันบนไม่ผิดครับ ใช้อันนี้ครับ ที่ทำไม่ได้

Private Sub ProductID_Enter()
If ProductID < 1 Then
ProductID.SetFocus
End Sub

แก้ยังไงดีครับ

แบบนี้ มันใกล้เคียงผมไหมก็ไม่รู้ เดี๋ยวผมจะลองๆดูครับ แต่อยากให้อาจารย์ช่วยบอกทีครับ ว่าโค๊ตแนวๆนี้ พอจะแก้มาใช้ได้หรือเปล่าครับ

Procedure Behaves On Main Form, But Not On The SubForm
I have a form with a subform and on the form and also on the subform, I have three comboboxes or txtboxes and in the OnExit event I have a little procedure which makes sure that each have been filled in or it asks if you want to cancell and if yes, it setfocus on the cmdCancell and then I can canells the records, and the procedure looks like this:
Me!QCTypes_Label.ForeColor = 0 'Change Label Color to Black
Dim Response As VbMsgBoxResult
If Len(Nz(Me.QCTypes, "")) = 0 Then 'If QC Type is Blank
Response = MsgBox("No QC Type Was Entered," & vbCrLf & "Do You Want to Cancel QCA.", vbYesNo + vbDefaultButton2, "No?")
If Response = vbYes Then
Me.cmdCancell.SetFocus 'SetFocus on cmdCancell
Exit Sub 'Exit Immediately
Else
Me!QCTypes_Label.ForeColor = 33023 'Change Label Color to Orange
Cancel = True 'Re-Enter QC Type, same field
End If
End If
Now the main form works great, but the subform acts strange, when I select YES, instead of cancelling and closing like the main form, this one does each procedure for each of the other two procedures. Why does it work right on the main and not on the subform? Thank you in advance for any assistnace rendered. :eek:

      Private Sub Discount_Exit(Cancel As Integer)

      On Error Goto Error_Routine

      Dim RS As Recordset
      Set RS = Me.RecordsetClone
      RS.MoveLast
      If StrComp(Me.Bookmark, rs.Bookmark, 0) = 0 Then
        Forms![Orders]![Freight].SetFocus
        ' The following line may be removed in version 2.0
        Forms![Orders]![Orders Subform].Requery
      End If
      Exit Sub

      Error_Routine:
        MsgBox "You must be on a record with data"
      Exit Sub
      End Sub

โอย ใช้ตาม คห.9 นี่โฟกัสไป แล้วไปแล้วก็แอบดีใจ แต่พอคลิ๊กที่อื่นไม่ไปไหนเลย พรุ่งนี้จะลองใหม่ครับ