1
ห้อง MS Access / โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« เมื่อ: 14 เม.ย. 64 , 15:56:39 »
ต้องการ update ฟิลด์ studstatus ให้เป็น 1 โดยมีเงื่อนไขว่า ถ้า rank น้อยกว่าหรือเท่ากับ 36 แต่ถ้า rank > 36 ให้ update ฟิลด์ studstatus ให้เป็น 2
โดยเขียนคำสั่งโค้ดด้านล่าง จะได้ ฟิลด์ studstatus ให้เป็น 2 อย่างเดียว รบกวนอาจารย์ทุกท่าน จะแก้ไขคำสั่งอย่างไรครับ
Private Sub Command145_Click()
On Error Resume Next
Dim sql As String
Dim rank As Integer
If Me.rank <= 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 1"
DoCmd.RunSQL (sql)
Else
If Me.rank > 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 2"
DoCmd.RunSQL (sql)
End If
End If
End Sub
โดยเขียนคำสั่งโค้ดด้านล่าง จะได้ ฟิลด์ studstatus ให้เป็น 2 อย่างเดียว รบกวนอาจารย์ทุกท่าน จะแก้ไขคำสั่งอย่างไรครับ
Private Sub Command145_Click()
On Error Resume Next
Dim sql As String
Dim rank As Integer
If Me.rank <= 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 1"
DoCmd.RunSQL (sql)
Else
If Me.rank > 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 2"
DoCmd.RunSQL (sql)
End If
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit