ปุ่ม CommandButton ใน userform ไปยัง Worksheets

[Jkan]

ขออนุญาติสอบถามครับ คือผม ได้สร้างปุ่ม CommandButton2 ใน userform เพื่อจะให้มันทำงานเมื่อ คลิ๊กปุ่ม CommandButton2 แล้วไปยัง Worksheets ที่ชื่อ record ใน File เดียวกัน
แต่พอเมื่อคลิ๊กที่ปุ่ม CommandButton2 แล้ว โปรแกรมจะปิดตลอดครับ

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

Code: Select all

Private Sub CommandButton2_Click()
Application.Goto Worksheets("record").Range("A1")
Homestaff.Hide
End Sub

เมืื่อกดปุ่ม CommandButton2 โปรแกรมจะถามปิดโปรแกรมครับ


ขอรบกวนชี้แนะด้วยคับ

[snasui]

ปุ่ม CommandButton2 มีการสร้างและเขียน Code เอาไว้แล้วตามภาพครับ

ดังนั้น หากต้องการเขียน Code ให้ทำงานอย่างอื่นจะต้องสร้างปุ่มใหม่ กำหนดชื่อให้แตกต่างกันไปครับ

กรุณาแจ้งข้อมูลเบื้องต้นเช่นชื่อ Form ที่ติดปัญหาตามกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อจะได้เข้าถึงปัญหาโดยไวและตรงตามตำแหน่งของคำถามครับ

[Jkan]

ปุ่ม CommandButton2 มีการสร้างและเขียน Code เอาไว้แล้วตามภาพครับ

ดังนั้น หากต้องการเขียน Code ให้ทำงานอย่างอื่นจะต้องสร้างปุ่มใหม่ กำหนดชื่อให้แตกต่างกันไปครับ

กรุณาแจ้งข้อมูลเบื้องต้นเช่นชื่อ Form ที่ติดปัญหาตามกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อจะได้เข้าถึงปัญหาโดยไวและตรงตามตำแหน่งของคำถามครับ

Form ที่ติดปัญหา คือ Form ชื่อ Homestaff ดังรูปครับ

[Jkan]

ขอเพิ่มเติมครับ เมื่อกด Run Macro (F5) โปรแกรมจะไม่ถามให้เราปิดครับ แต่เมื่อลอง เปิดโปรแกรมมาตั้งแต่ดับเบิ้ลคลิ๊กที่ตัว Fileเลย จะพบปัญหาครับ
รบกวนผู้รู้ชี้แนะด้วยครับ ขอบคุณครับ

[Jkan]

เพิ่มเติมครับ ผมพบว่า ถ้าผมลองปิดการทำงานของคำสั่งตามภาพที่แนบมานี้ ปรากฏว่าสามารถใช้งานได้ครับ แต่คำสั่งนี้จะอยู่ใน Form ชื่อ Login แต่ Form ที่พบปัญหาคือ Homestaff ครับ
ผมยังไม่เข้าใจว่ามันเกี่ยวเนื่องกันยังไงครับ ในเมื่อมันอยู่คนละ Form

[snasui]

เขียน stop ดักไว้ตามภาพแล้วทดสอบทำงานตามปกติ สังเกตดูว่ามันทำงานเกี่ยวข้องกันอย่างไร เมื่อทราบเหตุผลแล้วให้ปรับ Code ให้สอดคล้องกับสิ่งที่ต้องการ จากนั้นลบ stop ทิ้งไปครับ

Code: Select all

Private Sub CommandButton2_Click()
    Stop
    Dim x As Integer
    x = MsgBox("คุณต้องการออกจากโปรแกรมใช่หรือไม่ ?", vbOKCancel)
    If x = vbOK Then
        ActiveWorkbook.Save
        Application.Quit
    Else
    End If
End Sub

Private Sub UserForm_Terminate()
    Stop
    Application.Quit
End Sub

คำว่า Terminate แปลว่าสิ้นสุดการทำงาน มันสามารถเกี่ยวเนื่องมาจากกับการทำงานของ Form อื่น ๆ คำสั่งอื่น ๆ ได้ด้วยครับ