กระทู้เก่าบอร์ด อ.Yeadram
1,010 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 ด้วย
พอดีผมได้สร้างตารางไว้สำหรับในการตัด 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
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
.....
.....
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
Time: 0.6407s
- เป็นการข้ามคำสั่งแล้วกลับมา
ตอนที่ 18: ข้ามคำสั่งแบบมีเงื่อนไข On GoSub และ On GoTo : https://youtu.be/WqYnu8PKuUw?list=PLwQBrO41jGZybBHlt9SVyQFUBGmvC8sQY
- เป็นการข้ามคำสั่งตามเงื่อนไข
ลองดูครับว่าตรงกับการใช้งานป่าว