กระทู้เก่าบอร์ด อ.Yeadram
2,945 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 ซึ่งไม่ทราบว่าจะให้ผลตามที่ต้องการหรือไม่ และก็ไม่ทราบว่าใช้อย่างไร
หากฟังชั่นนี้ใช้ไม่ได้ แล้วมีวิธีอื่นไหมคะ ขอความกรุณาด้วยค่ะ
ในฟอร์มที่หนูสร้างไว้จะมีช่องให้ใส่รหัสสินค้าอยู่ค่ะ
รูปแบบของรหัสสินค้าก็คือ 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
2 @R03618
สมมุติเท็กบ็อกซ์ชื่อ Text0
Private Sub Text0_KeyPress(KeyAscii As Integer)
KeyAscii = AscW(UCase(ChrW(KeyAscii)))
End Sub
Private Sub Text0_KeyPress(KeyAscii As Integer)
KeyAscii = AscW(UCase(ChrW(KeyAscii)))
End Sub
3 @R03627
ทำได้แล้วค่ะ..
ใช้โค้ดตามท่ีอาจารย์สันติสุขแนะนำค่ะ
ขอขอบพระคุณเป็นอย่างยิ่งค่ะอาจารย์
กรณีย์ศึกษา..สำหรับคำแนะนำของอาจารย์ sorn นั้น หนูไม่ทราบวิธีใช้ค่ะอาจารย์ ว่าโค้ดนี้เราต้องใส่ไว้ตรงไหน เพราะฟิลด์มันผูกกับเทเบิ้ลอยู่ค่ะ
ใช้โค้ดตามท่ีอาจารย์สันติสุขแนะนำค่ะ
ขอขอบพระคุณเป็นอย่างยิ่งค่ะอาจารย์
กรณีย์ศึกษา..สำหรับคำแนะนำของอาจารย์ sorn นั้น หนูไม่ทราบวิธีใช้ค่ะอาจารย์ ว่าโค้ดนี้เราต้องใส่ไว้ตรงไหน เพราะฟิลด์มันผูกกับเทเบิ้ลอยู่ค่ะ
4 @R03631
ขอเพิ่มเติม
การใช้ UCase
สมมุติเท็กบ็อกซ์ ใส่รหัสสินค้า ชื่อ Text1
Private Sub Text1_AfterUpdate()
Text1=UCase(Text1)
End Sub
การใช้ 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 หรือย้ายไปช่องอื่นค่ะ
สรุปคือทั้งสองอย่างสามารถเปลี่ยนเป็นตัวใหญ่ได้เหมือนกันค่ะ
ขอขอบคุณทุกๆท่านที่กรุณาแบ่งปันความรู้ดีๆอย่างนี้นะคะ
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 หรือย้ายไปช่องอื่นค่ะ
สรุปคือทั้งสองอย่างสามารถเปลี่ยนเป็นตัวใหญ่ได้เหมือนกันค่ะ
ขอขอบคุณทุกๆท่านที่กรุณาแบ่งปันความรู้ดีๆอย่างนี้นะคะ
Time: 0.3339s
ใส่ชื่อฟิลด์ลงไปก็น่าจะใช้ได้แล้ว