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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

14 เม.ย. 64 , 15:56:39
อ่าน 701 ครั้ง

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

 
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

14 เม.ย. 64 , 22:12:45
ตอบกลับ #1

UnKnown

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #1 เมื่อ: 14 เม.ย. 64 , 22:12:45 »
> ต้องการให้อัพเดทฟิวล์ studstatus ในทุกข้อมูลตาม rank ที่อยู่บนหน้าฟอร์มหรือตาม rank ที่อยู่เก็บอยู่ใน M1_GIF(เท่ากับว่าใน M1_GIF ต้องมีฟิวล์ studstatus,rank)
> M1_GIF.studstatus ใช้แค่ studstatus
> ลองถอดวงเล็บออกจากเป็น DoCmd.RunSQL sql ครับ
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin

14 เม.ย. 64 , 22:15:03
ตอบกลับ #2

chai

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #2 เมื่อ: 14 เม.ย. 64 , 22:15:03 »
Me.rank คืออะไรครับ​ รับค่าจาก​ TextBox​ หรือเปล่า
แล้วตัวแปร​ rank ประกาศเพื่ออะไร
ส่งรูปมาให้ดูดีกว่าครับ​ นึกภาพไม่ออก

 
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, pirin

15 เม.ย. 64 , 22:03:36
ตอบกลับ #3

pirin

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #3 เมื่อ: 15 เม.ย. 64 , 22:03:36 »

 

16 เม.ย. 64 , 08:00:36
ตอบกลับ #4

PNR

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #4 เมื่อ: 16 เม.ย. 64 , 08:00:36 »
ที่ปุ่มปรับโค๊ดเป็นแบบนี้นะครับ
โค๊ด: [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
« แก้ไขครั้งสุดท้าย: 16 เม.ย. 64 , 10:36:15 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin

16 เม.ย. 64 , 17:42:15
ตอบกลับ #5

pirin

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #5 เมื่อ: 16 เม.ย. 64 , 17:42:15 »
ที่ปุ่มปรับโค๊ดเป็นแบบนี้นะครับ
โค๊ด: [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

 

16 เม.ย. 64 , 17:44:26
ตอบกลับ #6

pirin

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #6 เมื่อ: 16 เม.ย. 64 , 17:44:26 »
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ

 

16 เม.ย. 64 , 19:53:10
ตอบกลับ #7

PNR

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #7 เมื่อ: 16 เม.ย. 64 , 19:53:10 »
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ
ถ้าท่าน copy code นี้แล้วก็ไปวางแต่ไม่ได้กำหนดให้ปุ่มรับอีเว้นนี้เข้าไปมันก็จะไม่ทำงานครับ

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

เพราะจากที่เช็คไม่น่าจะมีอะไรผิดพลาดครับ
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin

16 เม.ย. 64 , 21:08:29
ตอบกลับ #8

pirin

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #8 เมื่อ: 16 เม.ย. 64 , 21:08:29 »
ผมเลือกเหตุการณ์ เมื่อคลิก ครับ


 

19 เม.ย. 64 , 08:11:46
ตอบกลับ #9

PNR

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #9 เมื่อ: 19 เม.ย. 64 , 08:11:46 »
อันนี้ตัวอย่างนะครับ
ถ้าของท่านไม่ได้และไฟล์นั้นสามารถส่งทางข้อความให้ตรวจสอบได้ก็คงง่ายขึ้น
« แก้ไขครั้งสุดท้าย: 19 เม.ย. 64 , 08:31:41 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin

19 เม.ย. 64 , 10:35:12
ตอบกลับ #10

UnKnown

: โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« ตอบกลับ #10 เมื่อ: 19 เม.ย. 64 , 10:35:12 »
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ
ลองแก้ rst!Status เป็น rst!studstatus ครับ
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5