ขอโค้ดบังคับเปลี่ยนอักษร (เป็นพิมพ์ใหญ่)
กระทู้เก่าบอร์ด อ.Yeadram

 2,827   5
URL.หัวข้อ / URL
ขอโค้ดบังคับเปลี่ยนอักษร (เป็นพิมพ์ใหญ่)

ขอเรียนถามดังนี้นะคะ
ในฟอร์มที่หนูสร้างไว้จะมีช่องให้ใส่รหัสสินค้าอยู่ค่ะ
รูปแบบของรหัสสินค้าก็คือ A-01-01-0001 (มีตัวอักษร Aพิมพ์ใหญ่ แล้วก็ตามด้วยตัวเลขอีกจำนวนหนึ่ง) ปัญหาก็คือว่าเวลาผู้ใช้คีย์ตัวอักษร แล้วมักจะลืมเปลี่ยนเป็นพิมพ์ใหญ่ ทำให้เใส่เป็นพิมพ์เล็กบ้างใหญ่บ้าง ซึ่งเวลาพิมพ์รายงานดูแล้วมันไม่สวยงาม แบบนี้ค่ะ
A-01-01-0001
a-02-01-0001
A-03-01-0001
a-04-01-0001
a-05-01-0001
หนูก็เลยอยากได้ว่า ทำอย่างไรจะให้ ไม่ว่าผู้ใช้จะใส่พิมพ์เล็กหรือพิมพ์ใหญ่ ก็ให้มันเปลี่ยนเป็นพิมพ์ใหญ่ทั้งหมดค่ะ
เคยอ่านเจอว่ามีฟังชั่น UCase ซึ่งไม่ทราบว่าจะให้ผลตามที่ต้องการหรือไม่ และก็ไม่ทราบว่าใช้อย่างไร
หากฟังชั่นนี้ใช้ไม่ได้ แล้วมีวิธีอื่นไหมคะ ขอความกรุณาด้วยค่ะ

5 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03616
=ucase([field name])
ใส่ชื่อฟิลด์ลงไปก็น่าจะใช้ได้แล้ว
2 @R03618
สมมุติเท็กบ็อกซ์ชื่อ Text0

Private Sub Text0_KeyPress(KeyAscii As Integer)
    KeyAscii = AscW(UCase(ChrW(KeyAscii)))
End Sub
3 @R03627
ทำได้แล้วค่ะ..
ใช้โค้ดตามท่ีอาจารย์สันติสุขแนะนำค่ะ
ขอขอบพระคุณเป็นอย่างยิ่งค่ะอาจารย์

กรณีย์ศึกษา..สำหรับคำแนะนำของอาจารย์ sorn นั้น หนูไม่ทราบวิธีใช้ค่ะอาจารย์ ว่าโค้ดนี้เราต้องใส่ไว้ตรงไหน เพราะฟิลด์มันผูกกับเทเบิ้ลอยู่ค่ะ
4 @R03631
ขอเพิ่มเติม
การใช้ UCase
สมมุติเท็กบ็อกซ์ ใส่รหัสสินค้า ชื่อ Text1

Private Sub Text1_AfterUpdate()
       Text1=UCase(Text1)
End Sub
5 @R03633
ขอบคุณมากค่ะ หนูได้ทดลองนำไปใช้แล้วผลออกมาแตกต่างกันเล็กน้อยดังนี้นะคะ

Private Sub Text0_KeyPress(KeyAscii As Integer)
    KeyAscii = AscW(UCase(ChrW(KeyAscii)))
End Sub

ของ อ.สันติสุขนั้น จะเปลี่ยนเป็นตัวใหญ่ทันทีในขณะที่เราคีย์ข้อมูลค่ะ

Private Sub Text1_AfterUpdate()
       Text1=UCase(Text1)
End Sub

ของ อ. Sorn + อ.Null นั้นจะเปลี่ยนเป็นตัวใหญ่ให้ หลังจากที่เราคีย์ข้อมูลเสร็จแล้ว Enter หรือย้ายไปช่องอื่นค่ะ

สรุปคือทั้งสองอย่างสามารถเปลี่ยนเป็นตัวใหญ่ได้เหมือนกันค่ะ
ขอขอบคุณทุกๆท่านที่กรุณาแบ่งปันความรู้ดีๆอย่างนี้นะคะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1764s