Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Thai Access Webboard New Topic    Reply
IF ใช้อย่างไรถึงจะรันได้

Topic by Message Posted : on : 20/7/2560 11:32:48
pobtham  ผมขอสอบทราบหน่อยครับ
พอดีผมได้สร้างตารางไว้สำหรับในการตัด 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

Reply by Message on : 20/7/2560 12:23:00
TTT
(R23837)
ตอนที่ 17 : ข้ามคำสั่งด้วย GoSub และ GoTo : https://youtu.be/o7v5HqohFOQ?list=PLwQBrO41jGZybBHlt9SVyQFUBGmvC8sQY
- เป็นการข้ามคำสั่งแล้วกลับมา

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

ลองดูครับว่าตรงกับการใช้งานป่าว

Back to Top
Reply by Message on : 20/7/2560 14:03:38
pizza_p
(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
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++