IF ใช้อย่างไรถึงจะรันได้
กระทู้เก่าบอร์ด อ.Yeadram

 854   2
URL.หัวข้อ / URL
IF ใช้อย่างไรถึงจะรันได้

ผมขอสอบทราบหน่อยครับ
พอดีผมได้สร้างตารางไว้สำหรับในการตัด stock

part name    in stock    safetystock
pp                   0                 2
oo                   3                 2
ii                     1                 2

   โดยผมได้สร้างฟอร์มในการกรอกจำนวนออร์เดอร์ที่ต้องการลงใน text
และดึงข้อมูลจากตารางมาลงใน text ด้วย
text 24 = in stock
text14= order
text 32 = safetystock
   ผมได้สร้างเงื่อนไขขึ้นมา 3 เงื่อนไข ตามที่เขียนโค้ดข้างล่าง มันจะคำนวณหาว่าควรสั่งออร์เดอร์เท่าไหร่ ถ้าต้องการให้มี safetystock คงที่
แต่ทั้งสามเงื่อนไขนี้จะแสดงผลที่ตรงตามต้องการก็ต่อเมื่อ จำนวนออร์เดอร์ > in stock

If Me.Text24 = 0 Then
sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text32 & " + " & Me.Text14 & " where [Part Name] = '" & Me.Text2 & "';"
CurrentProject.Connection.Execute sql
Else
If Me.Text24 > Me.Text32 Then
sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text14 & " - (" & Me.Text24 & " - " & Me.Text32 & ") where [Part Name] = '" & Me.Text2 & "';"
CurrentProject.Connection.Execute sql
Else
If Me.Text24 < Me.Text32 Then
sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text14 & " + (" & Me.Text32 & " - " & Me.Text24 & ") where [Part Name] = '" & Me.Text2 & "';"
CurrentProject.Connection.Execute sql
End If
End If
End If

สิ่งที่ต้องการทราบ
ถ้า order < in stock ผมอยากให้ นำ in stock - order ไปเลยโดยไม่สนใจเงื่อนไข 3 ข้อข้างบน ให้ข้ามมาที่คำสั่งนี้เลย เมือ order < in stock

ผมต้องเขียนประมาณไหนครับ พอดีผมพึ่งหัดใช้ ทำไม่ค่อยถูกไม่มีความรู้เรื่อง VB ด้วย

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R23837
ตอนที่ 17 : ข้ามคำสั่งด้วย GoSub และ GoTo : https://youtu.be/o7v5HqohFOQ?list=PLwQBrO41jGZybBHlt9SVyQFUBGmvC8sQY
- เป็นการข้ามคำสั่งแล้วกลับมา

ตอนที่ 18: ข้ามคำสั่งแบบมีเงื่อนไข On GoSub และ On GoTo : https://youtu.be/WqYnu8PKuUw?list=PLwQBrO41jGZybBHlt9SVyQFUBGmvC8sQY
- เป็นการข้ามคำสั่งตามเงื่อนไข

ลองดูครับว่าตรงกับการใช้งานป่าว
2 @R23839
If Me.Text14 < Me.Text24 Then
    .....
    .....
Else

     If Me.Text24 = 0 Then
          sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text32 & " + " & Me.Text14 & " where [Part Name] = '" & Me.Text2 & "';"
          CurrentProject.Connection.Execute sql
     Else
          If Me.Text24 > Me.Text32 Then
               sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text14 & " - (" & Me.Text24 & " - " & Me.Text32 & ") where [Part Name] = '" & Me.Text2 & "';"
               CurrentProject.Connection.Execute sql
          Else
               If Me.Text24 < Me.Text32 Then
                    sql = " Update tbl_TUBE Set [In Stock] = " & Me.Text14 & " + (" & Me.Text32 & " - " & Me.Text24 & ") where [Part Name] = '" & Me.Text2 & "';"
                    CurrentProject.Connection.Execute sql
               End If
          End If
     End If
End if
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3109s