Online Reference

Home

Choose Function

VBA Function, สำหรับการเลือกและส่งออกค่าที่เลือกจากรายการอากิวเมนต์

ไวยากรณ์

Choose(index,choice-1[,choice-2,…[,choice-n]] )

ฟังก์ชัน Choose มีไวยากรณ์ของส่วน คือ

ลักษณะการประยุกต์

ฟังก์ชัน Choose ส่งออกค่าจากรายการของอากิวเมนต์ choice ตามค่าของอากิวเมนต์ index ถ้าค่าอากิวเมนต์ index เป็น 1 ฟังก์ชัน Choose จะเลือก choice แรก ถ้าค่าอากิวเมนต์ index เป็น 2 ฟังก์ชัน Choose จะเลือก choice ที่ 2 ตามลำดับ

ฟังก์ชัน Choose สามารถใช้ในหาค่าในรายการที่เป็นไปได้ เช่น ถ้าอากิวเมนต์ index หาค่าได้เป็น 3 และ อากิวเมนต์ choice-1 = “one”, choice-2 = “two”, และ choice-3 = “three” ฟังก์ชัน Choose จะส่งออกค่าเป็น “three” การทำงานในลักษณะนี้สามารถใช้ประโยชน์ได้ดีถ้าอากิวเมนต์ index ใช้หาค่าใน Option group

ฟังก์ชัน Choose จะหาค่า choice ทุกทางเลือกในรายการแต่จะส่งออกค่าเป็นค่าเดียว สำหรับเหตุผล ทำให้มีผลกระทบข้างเคียง เช่น การใช้ฟังก์ชัน MsgBox เป็นส่วนของ expression ในตัวเลือกทั้งหมด MsgBox จะแสดงค่าสำหรับแต่ละตัวเลือกที่หาค่าได้ แต่ฟังก์ชัน Choose จะส่งออกค่าเป็นค่าเดียว

ฟังก์ชัน Choose ส่งออกค่าว่างถ้าค่าอากิวเมนต์ index น้อยกว่า 1 หรือมากกว่าจำนวนอากิวเมนต์ choice ที่มี

ถ้าค่าของอากิวเมนต์ index ไม่เป็นจำนวนเต็ม จะได้รับการปรับให้เป็นจำนวนเต็มก่อนการหาค่า

ดูเพิ่มเติม

ฟังก์ชัน IIf, Select Case Statement, ฟังก์ชัน Switch

วิธีการประยุกต์ใน Access

ฟังก์ชัน Choose สามารถใช้ในตัว control บนฟอร์มหรือรายงานใน Microsoft Access ตัวอย่างเช่น การใช้ฟังก์ชัน Choose กำหนดค่าของตัว control เพื่อแสดค่าตามค่าของฟิลด์อื่น ให้ตั้งค่าคุณสมบัติ ControlSource ของตัว control ด้วย expression ของฟังก์ชัน Choose ตามตัวอย่างต่อไปนี้ ได้ใช้การกำหนด expression ในคุณสมบัติ ControlSource ของตัว control ตามค่าที่หาได้จากฟิลด์ ShipVia ใน Table ชื่อ Orders

=Choose([ShipVia], "Speedy", "United", "Federal")

สำหรับตัวอย่างข้างบน ถ้า ShipVia มีค่าเป็น 1 ฟังก์ชัน Choose จะส่งออกค่าเป็น “Speedy” ถ้า ShipVia มีค่าเป็น 2 ฟังก์ชัน Choose จะส่งออกค่าเป็น “United” เป็นต้น ถ้า ShipVia มีค่าเป็น 0 ฟังก์ชัน Choose จะส่งออกค่าเป็นค่าว่าง

ตัวอย่างต่อไปแสดงการกำหนด expression ที่ทำให้การส่งข้อความได้ถ้ามีฟิลด์เก็บค่า 0

=Choose([ShipVia] + 1, "none", "Speedy", "United", "Federal")

หมายเหตุ ในโมดูล Visual Basic สามารถใช้คำสั่ง Select Case เต็มรูปแบบในการส่งค่าออกจากกลุ่มของตัวเลือก (choice)

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Choose ในการแสดงชื่อตามค่าที่อากิวเมนต์ index ส่งมาไปใน procedure ในพารามิเตอร์ Ind

Function GetChoice(Ind As Integer)
  GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function

ตัวอย่างการประยุกต์ใน Access

ฟังก์ชัน Choose สามารถใช้ในการสร้างตัว control ที่ค่าหาได้โดยค่าของฟิลด์ใน Table ของฐานข้อมูล เช่น สมมติให้มี Table ชื่อ Shippers ที่มีฟิลด์ ShipperID ซึ่งสามารถสร้างตัว control แบบคำนวณบนฟอร์มในการแสดงข้อความของชื่อผู้ส่งตามค่าที่หาได้ในฟิลด์ ShipperID

=Choose([ShipperID], "Speedy", "United", "Federal")