ไม่ Clear ค่าที่กรอกใน Txtbox

[sup]

เรียนถามอาจารย์ และท่านผู้รู้ครับ
วันนี้มีเรื่องรบกวนหน่อยครับ ผมได้เขียน Code VBA การใช้ UserName และ Password login จาก UserForm1 ไปยัง UserForm2 ตามตัวอย่างที่แนบมาครับ ซึ่งก็ทำได้ดังใจนะครับแต่ติดปัญหาอยู่นิดเดียวตรงที่ เมื่อเรา Key User และPassword ได้ถูกต้องเข้า UserForm2ได้แล้ว แต่ข้อมูลที่ใส่ลงไปใน Txtbox 1 และ 2 ไม่ยอม Clear ออกไปครับ ผมอยากให้ Clearออกไปครับไม่ทราบว่าจะต้องปรับปรุงแก้ไขตรงไหนอย่างไรครับ ขอคำแนะนำด้วยครับ ผมทดลองหลายรอบแล้วทำไม่ได้ครับ แต่หาก key ผิดถึงจะ Clearให้ครับ (Code ที่เขียนได้เอาของท่านอื่นมาปรับด้วยครับเพราะเพิ่งเริ่มศึกษาไม่น่ามานี้ยังไม่ค่อยเข้าใจนักครับ ต้องขอบคุณเจ้าของCodeไว้ณ ที่นี้ด้วยครับ)

ขอบคุณล่วงหน้าครับ

[snasui]

ลองปรับเป็นตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Do
    i = i + 1
    Loop Until Worksheets("Sheet1").Cells(i, 1) = ""
       Worksheets("Sheet1").Cells(i, 3) = TextBox1.Text
       Worksheets("Sheet1").Cells(i, 4) = TextBox2.Text
       Worksheets("Sheet1").Cells(i, 1) = Date
       Worksheets("Sheet1").Cells(i, 2) = Time()
    
    Dim username, password As String
    username = TextBox1.Text
    password = TextBox2.Text
    up = True
    If username = "abc" And password = "123" Then  'username และpassword ที่เข้าได้ หากมีเพิ่มให้เพิ่มส่วนนี้ต่อไปเรื่อยๆ
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide 'สุกัญญา
        UserForm2.Show
    ElseIf username = "def" And password = "456" Then
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide
        UserForm2.Show 'unload this form
    ElseIf username = "ghi" And password = "789" Then
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide
        UserForm2.Show  'unload this form
    Else
        MsgBox "UserName หรือ Password ไม่ถูกต้อง", vbCritical, "แจ้งเตือน"
        ThisWorkbook.Save
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
    End If
End Sub

[sup]

ขอบคุณครับอาจารย์ รวดเร็วมากครับ ผมลองทดลองได้แล้วครับ ได้ผลดีเลยครับ

ขอบคุณอีกครั้งครับ