ปัญหา เกิดขึ้นเมื่อ กด บันทึกครับ โปรแกรมจะตัดสต๊อก แล้ววิ่งไป record ใหม่ พอเลื่อนกลับมา record เดิม ต้องการให้ปุ่มกด บันทึก กดไม่ได้ครับ บางทีก็ได้ครับ บางที ต้องเลื่อน record สลับไปมา 3-4 เที่ยว ถึงจะ enable เป็น False มันทำให้ บางที ตัดสต๊อกซ้ำกันสองเที่ยวเลยครับ รบกวนพี่ ๆ ช่วยครับ ( ปล.มือใหม่ Access ครับ แต่ตามเวบ อ.สุภาพมานานแล้วครับ )

Private Sub Form_Load()
Dim db As Database
Dim rs1 As Recordset
Set db = OpenDatabase("C:\DATA Test.mdb")
Set rs1 = db.OpenRecordset("Bills")
       rs1.Index = "ID_Bill"
               If IsNull(Me.ID_Bill) Then
                    Me.txtAdd.Enabled = True
                    Me.cmdOut.Enabled = True
                    Me.cmdUndo.Enabled = False
                    Me.txtBillNo.Enabled = True
                    Me.Date_serv.Enabled = True
                    Me.cboIDCar.Enabled = True
                    Me.Mile_NO.Enabled = True
                    Me.Pay_type.Enabled = True
                    Me.EmployeeID.Enabled = True
                    Me.Text50.Enabled = True
                    Me.Discount.Enabled = True
                    Me.Total.Enabled = True
                    Me.Remark.Enabled = True
              End If
End Sub

Private Sub Form_Current()
On Error GoTo Current_Click
Dim db As Database
Dim rs1 As Recordset
Set db = OpenDatabase("C:\DATA Test.mdb")
Set rs1 = db.OpenRecordset("Bills")
       rs1.Index = "ID_Bill"
       
               If IsNull(Me.ID_Bill) Then
                    Me.txtAdd.Enabled = True
                    Me.cmdOut.Enabled = True
                    Me.cmdUndo.Enabled = False
                    Me.txtBillNo.Enabled = True
                    Me.Date_serv.Enabled = True
                    Me.cboIDCar.Enabled = True
                    Me.Mile_NO.Enabled = True
                    Me.Pay_type.Enabled = True
                    Me.EmployeeID.Enabled = True
                    Me.Text50.Enabled = True
                    Me.Discount.Enabled = True
                    Me.Total.Enabled = True
                   Me.Remark.Enabled = True
                   
                   Else
                            rs1.Seek "=", Me.ID_Bill.Value
                      If rs1.Fields("CheckOut").Value = 1 Then
                            Call LockCtrl
                            Else
                            Call UnLockCtrl
                            End If
                            End If
                     
exit_Current_Click:
       Exit Sub
Current_Click:
       MsgBox ("à¾ÔèÁ¢éÍÁÙÅãËÁè")
       Resume exit_Current_Click
End Sub

บางทีมันก็ล๊อค บางทีก็ไม่ล๊อคปุ่มน่ะครับ