http://www.mvps.org/access/general/gen0020.htm

ขอบคุณคุณ yeadram มากครับ
แต่เสียใจจังเลยที่ทำไม่ได้ o:(

แหะ แหะ มันก็พอมีอยู่บ้าง ลองๆ มั่ว คิดขึ้นมาตะกี้นี้ น้อยใจ หนีจากเว็บไปยังเนี่ย อิอิ จะได้กลับมาเอาไปลองหรือเปล่าน๊า


Dim psw As String

Private Sub cmdPw_GotFocus()
txPw.SetFocus
End Sub

Private Sub cmdPw_KeyPress(KeyAscii As Integer)
'48-57 ตัวเลข (keyascii >=48 and keyascii <=57)
'65-90 พิมพ์ใหญ่ (keyascii >=65 and keyascii <=90)
'97-122 พิมพ์เล็ก (keyascii >=97 and keyascii <=122)

If (KeyAscii >= 48 And KeyAscii <= 57) Or _
KeyAscii >= 65 And KeyAscii <= 90 Or _
KeyAscii >= 97 And KeyAscii <= 122 Then
psw = psw & Chr(KeyAscii)
ElseIf KeyAscii = 27 Then
txPw = ""
psw = ""
Exit Sub
End If

Dim pw As String
pw = ""
For i = 1 To Len(psw)
pw = pw & Chr(42)
Next
txPw = pw
txPw.SetFocus

End Sub

Private Sub txPw_KeyPress(KeyAscii As Integer)
cmdPw_KeyPress KeyAscii
End Sub

Private Sub txPw_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text1 = psw
End Sub


- ตัวแปรนอก sub คือ psw นั่นคือ พาสเวอร์ด
- textbox 2 ตัว + command button 1 ตัว
- cmdPw   ทำให้โปร่ง
- txPw     ทำให้ลำดับของอินเด็กซ์ อยู่หลัง cmdPw
- text1   textbox ธรรมดา ไว้สำหรับทดสอบโค้ด แสดงผลพาสเวอร์ด พอใช้งานจริงก็ไม่ต้องมี เพราะพาสเวิร์ด มันอยู่ในตัวแปรชื่อ psw แล้ว

กำหนด InputMask ของ textbox เป็นคำว่า password   มันก็จะแสดงออกมาเป็นเตรื่องหมายดอกจันทร์ให้แล้วนะครับ ไม่ต้องเขียนโปรแกรมไม่ใช่หรือ ?

อ้าว ไม่รู้อ่ะครับ
เดี๋ยวลองหน่อย

5555
ไม่รู้ว่ามีรูปแบบนี้ครับ เออ คุณ song2vin ครับ อย่างที่อาจารย์สันติสุขบอกครับ เป๊ะเลย
ผมไม่เคยใช้จริงๆ นะครับ อิอิ ระบบที่ผมเคยทำ โปรแกรมที่ผมเคยเขียนไม่เคยยุ่งเลยกับพวก พาสเวอร์ด นะครับ อิอิ

" กำหนด InputMask ของ textbox เป็นคำว่า password "
ผมไม่เข้าใจความหมายครับว่าหมายถึง textbox หรือ InputBox ครับ (ผมต้องการ InputBox) แต่ไม่ทราบว่าเราสามารถสร้างฟังก์ชันเพื่อกำหนด format แบบ password เพื่อครอบฟังก์ชั่น InputBox(prompt [, title ] [, default ] [, xpos ] [, ypos ] [, helpfile ] [, context ] ) อีกทีหนึ่งได้หรือไม่
ส่วนวิธีของคุณ yeadram จะลองไปใช้ดูครับ แต่ดูแล้วเหมือนเป็น textbox หรือเปล่าน้าไม่แน่ใจ อิอิ

InputBox ไม่สามารถกำหนดรูปแบบของการป้อนได้ครับ ดังนั้นที่ผมและคุณ yeadram อธิบายไป หมายถึงให้คุณไปสร้างฟอร์มเอาเอง เลียนแบบ InputBox แล้วก็ใช้ Textbox เป็นตัวรับข้อมูลบนฟอร์มนั้น แล้วก็กำหนด InputMask ให้แก่ Textbox นั้นครับ

ขอบคุณคุณสันติสุขครับ