กระทู้เก่าบอร์ด อ.Yeadram
        
           4,114   10		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        การใช้ select case บนฟอร์ม      
    
      หากเราต้องการเลือกแบบ select case
บนฟอร์มเราต้องดำเนินการอย่างไร
ขอบคุณครับ
    
  บนฟอร์มเราต้องดำเนินการอย่างไร
ขอบคุณครับ
				10 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R05884    
        
  
      ขอโทษอีกครั้งครับ
มีฟอร์มอยู่ฟอร์มหนึ่ง
ประกอบด้วย เลขที่
คะแนน
เกณฑ์
แล้วเราต้องการทราบว่าคะแนนทีได้อยู่ในเกณฑ์อะไร
เช่น คะแนนได้ 60 เกณฑ์ พอใช้
คะแนนได้ 70 เกณฑ์ ดี
คะแนนได้ 80 เกณฑ์ ดีมาก
โดยเราต้องการใช้ select case ที่ เกณฑ์เลือก
โดยเลือกจากคะแนน
ไม่ทราบพอนึกออกมั้ยครับ
    
  มีฟอร์มอยู่ฟอร์มหนึ่ง
ประกอบด้วย เลขที่
คะแนน
เกณฑ์
แล้วเราต้องการทราบว่าคะแนนทีได้อยู่ในเกณฑ์อะไร
เช่น คะแนนได้ 60 เกณฑ์ พอใช้
คะแนนได้ 70 เกณฑ์ ดี
คะแนนได้ 80 เกณฑ์ ดีมาก
โดยเราต้องการใช้ select case ที่ เกณฑ์เลือก
โดยเลือกจากคะแนน
ไม่ทราบพอนึกออกมั้ยครับ
        
    3 @R05885    
        
  
      Select Case คะแนน
Case คะแนน =80
เกณฑ์='ดีมาก'
Case คะแนน=70
เกณฑ์='ดี'
Case คะแนน=60
เกณฑ์='พอใช้'
case else
เกณฑ์='ปรับปรุง'
End Select
ลองดูท่านอื่นๆ ตอบอีกทีครับ
    
  Case คะแนน =80
เกณฑ์='ดีมาก'
Case คะแนน=70
เกณฑ์='ดี'
Case คะแนน=60
เกณฑ์='พอใช้'
case else
เกณฑ์='ปรับปรุง'
End Select
ลองดูท่านอื่นๆ ตอบอีกทีครับ
        
    4 @R05932    
        
  
      แล้วการเขียนโค๊ดดังกล่าว
บนฟอร์ม เราเขียนตรงใหนของฟอร์ม
เพื่อให้มีการเลือกดังกล่าว
แล้วแสดงผลออกมา
    
  บนฟอร์ม เราเขียนตรงใหนของฟอร์ม
เพื่อให้มีการเลือกดังกล่าว
แล้วแสดงผลออกมา
        
    5 @R05933    
        
  
      ฝังไว้ใน afterupdate ครับ
    
    
  
        
    6 @R05937    
        
  
      ผมลองหลายวิธีแล้ว
ฝังไว้ใน afterupdate ของฟอร์มก็แล้ว
ของกล่องข้อความ คะแนนก็แ้ล้ว
ของกล่องข้อความ เกณฑ์ก็แล้ว
ไม่แสดงผลการเลือกออกมา
แต่หากอยู่ในรายงาน
ไม่มีปัญหาในการแสดงผล
ไม่รู้ติดที่ตรงใหน
ส่วนโค๊ตน่าจะไม่ผิด เพราะลอกจากในรายงานมา
    
  ฝังไว้ใน afterupdate ของฟอร์มก็แล้ว
ของกล่องข้อความ คะแนนก็แ้ล้ว
ของกล่องข้อความ เกณฑ์ก็แล้ว
ไม่แสดงผลการเลือกออกมา
แต่หากอยู่ในรายงาน
ไม่มีปัญหาในการแสดงผล
ไม่รู้ติดที่ตรงใหน
ส่วนโค๊ตน่าจะไม่ผิด เพราะลอกจากในรายงานมา
        
    7 @R05962    
        
  
      ลองทำตามนี้ดู
1.คัดลอกคำสั่งนี้ไปวางที่โมดูล ชื่อโมดูลอะไรก็ได้
Option Compare Database
Option Explicit
Public Function rex(c As Integer) As String
On Error GoTo bpam
Select Case c
Case 60, 61, 62, 63, 64, 65, 66, 67, 68, 69
rex = "พอใช้"
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79
rex = "ดี"
Case 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 99, 100
rex = "ดีมาก"
Case Else
rex = "ปรับปรุง"
End Select
Exit Function
bpam:
Resume Next
End Function
2.สร้างกล่องข้อความขึ้นมา 1 textbox
แล้วใส่ =rex([ชื่อฟิลด์ที่ให้คะแนน])
3.ถ้าไม่ได้ทิ้งเมล์ไว้ครับ
    
    
  1.คัดลอกคำสั่งนี้ไปวางที่โมดูล ชื่อโมดูลอะไรก็ได้
Option Compare Database
Option Explicit
Public Function rex(c As Integer) As String
On Error GoTo bpam
Select Case c
Case 60, 61, 62, 63, 64, 65, 66, 67, 68, 69
rex = "พอใช้"
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79
rex = "ดี"
Case 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 99, 100
rex = "ดีมาก"
Case Else
rex = "ปรับปรุง"
End Select
Exit Function
bpam:
Resume Next
End Function
2.สร้างกล่องข้อความขึ้นมา 1 textbox
แล้วใส่ =rex([ชื่อฟิลด์ที่ให้คะแนน])
3.ถ้าไม่ได้ทิ้งเมล์ไว้ครับ
        
    8 @R05970    
        
  
      ขอบคุณครับ
ที่ช่วยแก้ปัญหาให้ครับ
    
  ที่ช่วยแก้ปัญหาให้ครับ
        
    9 @R07965    
        
  
      พอดีว่าง ๆ ก็เข้ามาอ่าน...ก็ดัดแปลงไปใช้กับ Textbox ใน Report
ขอบคุณครับ คุณ sorn ทำให้คิดได้....สร้างได้แต่ติดตรงเรียกใช้อย่างไรนี่ครับ
งมมาตั้งนาน (โดยเฉพาะคำตอบข้อ 2.สร้างกล่องข้อความขึ้นมา 1 textbox
แล้วใส่ =rex([ชื่อฟิลด์ที่ให้คะแนน]) )
    
  ขอบคุณครับ คุณ sorn ทำให้คิดได้....สร้างได้แต่ติดตรงเรียกใช้อย่างไรนี่ครับ
งมมาตั้งนาน (โดยเฉพาะคำตอบข้อ 2.สร้างกล่องข้อความขึ้นมา 1 textbox
แล้วใส่ =rex([ชื่อฟิลด์ที่ให้คะแนน]) )
        
    10 @R08595    
        
    
      ในข้อ2 เป็นแค่ textbox ทีได้จากการ select case เท่านั้น คิดว่าต้องมี อีก textbox 1 สำหรับใส่ต้วคะแนน    
    
  
      Time: 0.5094s
    
      
		
แล้วอย่าโกรธกันเลยนะครับ ถ้าจะบอกว่าโปรดอย่ากำหนดศัพท์ที่คุณคิดค้นขึ้นมาเอง เช่น "select case บนฟอร์ม" คนอื่นไม่เข้าใจ ผมอ่านคำถามนี้แล้ว เหมือน ... ถ้าคุณเป็นหมอ แล้วเจอคนไข้บอกว่า "หมอครับ ผมเป็นโรคหัวใจที่ผิวหนัง ช่วยผมด้วย" อารมณ์ความรู้สึก อย่างไรอย่างนั้นเลยครับ
คำว่า select case คือ VBA statement
ส่วน ฟอร์ม ก็คือ Access form object
แล้วที่คุณต้องการ คืออะัไร ?