สอบถาม Code VB ในการเคลียห์ข้อความหน่อยนะครับ

[tum1717]

อ้างอิงตามเอกสารแนบนะครับ

เมื่อกดปุ่มบันทึกข้อมูลแล้ว ข้อความที่อยู่ใน TextBox1-5.Text จะยังคงอยู่ครับ
รบกวนสอบถามหน่อยว่าถ้าหากเรากดบันทุกข้อมูลแล้ว อยากให้เคลียห์ ข้อความทั้งหมดออกไป ต้องจัดโค้ดแบบไหนหรอครับ

หรือจะทำปุ่ม ลบ อีกปุ่มนึงเพื่อเคลียห์ข้อความที่เซฟไปแล้วดี

รบกวนสอบถามทุกท่านหน่อยนะครับ

ขอบคุณครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = TextBox1.Text
    Cells(r, 2) = TextBox2.Text
    Cells(r, 3) = TextBox3.Text
    Cells(r, 4) = TextBox4.Text
    Cells(r, 5) = TextBox5.Text
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
End Sub

[tum1717]

ได้แล้วครับ ขอบพระคุณมากครับ