โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข

[pirin]

ต้องการ 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

[UnKnown]

> ต้องการให้อัพเดทฟิวล์ studstatus ในทุกข้อมูลตาม rank ที่อยู่บนหน้าฟอร์มหรือตาม rank ที่อยู่เก็บอยู่ใน M1_GIF(เท่ากับว่าใน M1_GIF ต้องมีฟิวล์ studstatus,rank)
> M1_GIF.studstatus ใช้แค่ studstatus
> ลองถอดวงเล็บออกจากเป็น DoCmd.RunSQL sql ครับ

[chai]

Me.rank คืออะไรครับ​ รับค่าจาก​ TextBox​ หรือเปล่า
แล้วตัวแปร​ rank ประกาศเพื่ออะไร
ส่งรูปมาให้ดูดีกว่าครับ​ นึกภาพไม่ออก

[pirin]

[PNR]

ที่ปุ่มปรับโค๊ดเป็นแบบนี้นะครับ

โค๊ด: [Select]

Private Sub Command145_Click()
On Error Resume Next
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("M1_GIF", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
    rst.Edit
    If rst!Rank > 36 Then
    rst!Status = "2"
    ElseIf rst!Rank <= 36 Then
    rst!Status = "1"
    End If
    rst.Update
       rst.MoveNext
    Loop
   Me.Recalc
    rst.Close: Set rst = Nothing
End Sub


[pirin]

ที่ปุ่มปรับโค๊ดเป็นแบบนี้นะครับ

โค๊ด: [Select]

Private Sub Command145_Click()
On Error Resume Next
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("M1_GIF", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
    rst.Edit
    If rst!Rank > 36 Then
    rst!Status = "2"
    ElseIf rst!Rank <= 36 Then
    rst!Status = "1"
    End If
    rst.Update
       rst.MoveNext
    Loop
   Me.Recalc
    rst.Close: Set rst = Nothing
End Sub


[pirin]

ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ

[PNR]

ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ

ถ้าท่าน copy code นี้แล้วก็ไปวางแต่ไม่ได้กำหนดให้ปุ่มรับอีเว้นนี้เข้าไปมันก็จะไม่ทำงานครับ

ลองเช็คตามนี้นะครับกดที่ปุ่ม command botton ตรง event กดเข้าไปแล้วก็เลือกทำงานตามอีเว้นที่ใช้โค้ดนะครับกดเข้าไปแล้วก็เอาโค้ดที่ผมให้ไปลงไปวางแล้วลองดูใหม่อีกครั้งนะครับว่าได้หรือเปล่า

เพราะจากที่เช็คไม่น่าจะมีอะไรผิดพลาดครับ

[pirin]

ผมเลือกเหตุการณ์ เมื่อคลิก ครับ

[PNR]

อันนี้ตัวอย่างนะครับ
ถ้าของท่านไม่ได้และไฟล์นั้นสามารถส่งทางข้อความให้ตรวจสอบได้ก็คงง่ายขึ้น

[UnKnown]

ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ

ลองแก้ rst!Status เป็น rst!studstatus ครับ