กระทู้เก่าบอร์ด อ.Yeadram
        
           1,672   8		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        ตรวจสอบค่าใน text      
    
      ถ้าต้องการตรวจสอบค่าที่เข้ามาใน text box ให้รับแต่เฉพาะค่าที่เป็น number เท่านั้นต้องเขียน code อย่างไงค่ะ    
    
  
				8 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R10746    
        
  
      รบกวนสอบถามเพิ่มเติมค่ะ จะต้องไปใส่ค่าที่ไหนค่ะ    
    
  
        
    3 @R10747    
        
  
      เพิ่มเติมอีกหน่อยค่ะ เวลาใส่ค่าที่เป็น text ไปแล้วเราต้องการให้ msgbox ด้านบนขึ้นมาแทน warning ของระบบค่ะ เพื่อจะแจ้งให้ทราบว่าตอนนี้ใส่ข้อมูลผิดนะ เพราะของระบบ บางคนอาจจะไม่เข้าใจค่ะ
 
    
    
   
    
        
    4 @R10748    
        
  
      ที่คุณกำหนด fields มันเป็นแบบ number ดังนั้นพอป้อนค่าอื่นที่ไม่ใช่ ตัวเลขมันจึงขึ้นข้อความแบบที่เห็น ดังนั้นก็กำหนด fields เป็นแบบ text ซะ แล้วให้เอาโค้ดที่ให้ไปใส่ใน form บนปุ่มเลือก event after update    
    
  
        
    5 @R10752    
        
  
      เพิ่มเติมค่ะ ลองทำแล้วได้ค่ะ แต่ว่า fields นี้ยังยอมให้รับค่าและผ่านไปค่ะ แต่ที่ต้องการคือ เมื่อรับค่ามาเป็น text แล้วจะไม่ยอมให้ enter ผ่านค่ะ จนกว่าจะใส่ค่าที่ถูกต้องเท่านั้น และก็มี pop up บอกด้วยค่ะว่าคุณจะต้องใส่ค่านี้เป็นอะไร่ค่ะ    
    
  
        
    6 @R10754    
        
  
      If Not IsNumeric([ชื่อ textbox]) Then 
MsgBox "กรุณากรอกเฉพาะตัวเลขเท่านั้น !!", vbCritical, "แจ้งให้ทราบ"
Me.ชื่อ textbox=null
End If
    
    
  MsgBox "กรุณากรอกเฉพาะตัวเลขเท่านั้น !!", vbCritical, "แจ้งให้ทราบ"
Me.ชื่อ textbox=null
End If
        
    7 @R10755    
        
  
      ผมอาจจะอ่านโจทย์ไม่ละเอียดพอตอนแรกนึกว่าต้องการจะให้แสดงแต่ข้อความเท่านั้น 
If Not IsNumeric([ชื่อ textbox]) Then
MsgBox "กรุณากรอกเฉพาะตัวเลขเท่านั้น !!", vbCritical, "แจ้งให้ทราบ"
Me.ชื่อ textbox = null
Me.ชื่อ textbox.setfocus
End If
    
    
  If Not IsNumeric([ชื่อ textbox]) Then
MsgBox "กรุณากรอกเฉพาะตัวเลขเท่านั้น !!", vbCritical, "แจ้งให้ทราบ"
Me.ชื่อ textbox = null
Me.ชื่อ textbox.setfocus
End If
        
    8 @R10761    
        
    
      ได้แล้วครับ ขอบคุณมากครับ    
    
  
      Time: 0.0599s
    
      
		
MsgBox "กรุณากรอกเฉพาะตัวเลขเท่านั้น !!", vbCritical, "แจ้งให้ทราบ"
End If