3
« เมื่อ: 23 พ.ค. 62 , 17:35:34 »
เรียนอาจารย์ทุกท่านรบกวนช่วยดู Code ให้หน่อยครับว่าผมผิดตรงส่วนไหนครับ
คือ 1.ผมเขียน If เพื่อเช็คค่า TXUserID ถ้าเป้นคาว่างให้แจ้งเตือนแล้วปิดเปิด form ใหม่
2.ถ้าไม่ใช่ค่าว่าง ให้เช็คค่า TxItem ว่าในฐานข้อมูลมีค่าหรือเปล่า คือ strSQL>0 ให้ทำงาน
3.ถ้า strSQL <0 ให้เคลียค่า TxItem แล้วให้ setfocus ที่TxItem
ที่ติดตอนนี้คือครับ 1.ผมมี If 2 จุดแต่โปรแกรมทำไมให้ปิด End If จุดเดียวครับ
2.ค่า TXUserID เป็นค่าว่างแต่ทำไมไปทำงานตรงส่วน TxItem ได้ครับทั้งที่เช็คค่าว่างแล้ว
3.ค่า Else สุดท้าย TxItem.Value = Null ทำงานได้แต่ TxItem.SetFocus ทำไม Cursor ไปวิ่งไปที่กำหนดครับ
ขอขอบคุณอาจารย์ไว้ล่วงหน้าครับ
จากที่ผมเขียนครับ cODE ได้ตามนี้ครับ
Private Sub TxITEM_AfterUpdate()
Dim dbb As DAO.Database 'ÊÓËÃѺà¡çº Log
Dim rss As DAO.Recordset 'ÊÓËÃѺà¡çº Log
Dim strSQL As String
Dim strUserID As String
Dim strTxItem As String
On Error Resume Next
strTxItem = TxItem.Value
strUserID = TXUserID.Value
strSQL = DCount("Item", "QrItem")
Set dbb = CurrentDb
If strTxItem = "" Then
MsgBox "¡ÃسÒãÊè¼Ùéãªé§Ò¹¡è͹·Ø¡¤ÃÑ駤ÃѺ", vbOKOnly, "Warning!"
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmQR_T1"
ElseIf strSQL > 0 Then
Set dbb = CurrentDb
Set rss = db.OpenRecordset("LogUser", dbOpenDynaset) 'ºÑ¹·Ö¡ Log ¡ÒÃãªé§Ò¹Å§ã¹µÒÃÒ§
rss.AddNew
rss!UserID = strUserID ' ºÑ¹·Ö¡ Item User
rss!ITEM = strTxItem 'ºÑ¹·Ö¡ Item
rss!Login = Now() 'ºÑ¹·Ö¡·Ñé§ Çѹ·Õè áÅÐàÇÅһѨ¨ØºÑ¹
rss.Update
rss.Close: Set rss = Nothing
dbb.Close: Set dbb = Nothing
Me.Requery
Command9.SetFocus
Else
MsgBox "Item ¹ÕéäÁèÁÕã¹ÃкºËÃ×ÍÂѧäÁèä´éà¾ÔèÁà¢éÒä»ã¹Ãкº", vbOKOnly, "Warning!"
TxItem.Value = Null
TxItem.SetFocus
End If
'End If
End Sub
แสดงกระทู้
