textbox ตรวจสอบจำนวนค่าที่กรอก แล้วขึ้น msg show



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

17 ก.ย. 63 , 10:51:56
อ่าน 64 ครั้ง

Jirawat Kamprow

  • สมาชิกไท.Access
  • กระทู้: 2

    • ดูรายละเอียด

รบกวนสอบถามพี่ๆ ครับ จำตรวจสแบจำนวนข้อมูลตัวอักษรใน textbox แล้วขึ้น msg โชว์ ว่า ครบจำนวน และ ไม่ครบจำนวน รบกวนพี่ๆ แนะนำ code ด้วยน่ะครับ

 

17 ก.ย. 63 , 10:59:23
ตอบกลับ #1

PNR

: textbox ตรวจสอบจำนวนค่าที่กรอก แล้วขึ้น msg show
« ตอบกลับ #1 เมื่อ: 17 ก.ย. 63 , 10:59:23 »
รบกวนสอบถามพี่ๆ ครับ จำตรวจสแบจำนวนข้อมูลตัวอักษรใน textbox แล้วขึ้น msg โชว์ ว่า ครบจำนวน และ ไม่ครบจำนวน รบกวนพี่ๆ แนะนำ code ด้วยน่ะครับ
สมมุติว่าตรวจสอบว่าครบ 10 ตัวอักษรหรือไม่
โดยตรวจสอบถาม textbox ชื่อ textboxName

IF Len(Me.textboxName) = "10" then
msgbox "ครบจำนวน"
elseIF Len(Me.textboxName) <10 then
msgbox "จำนวนน้อยเกินไป"
elseIF Len(Me.textboxName) >10 then
msgbox "เกินจำนวนที่กำหนด"
end if
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Jirawat Kamprow

17 ก.ย. 63 , 11:04:22
ตอบกลับ #2

Jirawat Kamprow

  • สมาชิกไท.Access
  • กระทู้: 2

    • ดูรายละเอียด

: textbox ตรวจสอบจำนวนค่าที่กรอก แล้วขึ้น msg show
« ตอบกลับ #2 เมื่อ: 17 ก.ย. 63 , 11:04:22 »
ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ

 

17 ก.ย. 63 , 11:07:54
ตอบกลับ #3

PNR

: textbox ตรวจสอบจำนวนค่าที่กรอก แล้วขึ้น msg show
« ตอบกลับ #3 เมื่อ: 17 ก.ย. 63 , 11:07:54 »
ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ
ใช้ .ForeColor ครับ
ส่วนการกำหนดค่าสีใช้ได้หลายแบบเช่น
Me.textboxName.ForeColor = RGB(0,0,0) 'สีดำ
Me.textboxName.ForeColor = RGB(255,0,0) 'สีแดง
Me.textboxName.ForeColor = RGB(0,255,0) 'สีเขียว
Me.textboxName.ForeColor = RGB(0,0,255) 'สีน้ำเงิน
Me.textboxName.ForeColor = RGB(255,255,0) 'สีเหลือง
ฯลฯ อยากได้สีอื่นๆ ลองค้นหาคำว่า RGB Color For VBA ในGoogleนะครับ

หรือใช้ Vb.... ตามด้วยชื่อสี
ตัวอย่าง

If Len(Me.textboxName) = "10" Then
MsgBox "ครบจำนวน"
Me.textboxName.ForeColor = vbBlack
ElseIf Len(Me.textboxName) < 10 Then
MsgBox "จำนวนน้อยเกินไป"
Me.textboxName.ForeColor = vbRed
ElseIf Len(Me.textboxName) > 10 Then
MsgBox "เกินจำนวนที่กำหนด"
Me.textboxName.ForeColor = RGB(255,0,0)
End If

« แก้ไขครั้งสุดท้าย: 17 ก.ย. 63 , 11:15:34 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Jirawat Kamprow


บอร์ดเรียนรู้ Access สำหรับคนไทย