ถ้าค่าใน textbox ว่าง ให้ปุ่มบันทึกไม่สามารถใช้งานได้

[piman]

สวัสดีครับ

ตอนรันโปรแกรมขึ้นมา ถ้าค่าใน textbox ของเลขที่ตำแหน่งเป็นค่าว่าง ให้ปุ่มบันทึกไม่สามารถทำงานได้ครับ

แต่พอรันโปรแกรมแล้ว ยังสามารถกดปุ่มบันทึกได้อยู่ครับ ด้านล่างคือ code ที่ผมเขียนไว้ในช่อง textbox รับค่าเลขที่ตำแหน่งครับ


ขอบคุณครับ

Code: Select all

 Private Sub txtNumber_Change()
If Me.EnableEvents = False Then Exit Sub
    If Me.txtNumber.Value = "" Then
        Me.cmdSave.Enabled = False
    Else
        Me.cmdSave.Enabled = True
End If
End Sub 

[piman]

ข้อมูลเพิ่มเติมคร้บ พอเราเลือกข้อมูลที่จะไปแก้ไขแล้ว เรากดปุ่มรีเซ็ทค่าใน textbox ทั้งหมด ปุ่มบันทึกกลับล็อกให้ไม่สามารถใช้งานได้ครับ

แต่ตอนรันโปรแกรมขึ้นมาเลย ปุ่มบันทึกกลับไม่ล็อกให้ครับ

[snasui]

สรุปว่าเช็ค เลขที่ หรือ เลขที่ตำแหน่ง ที่เขียนมาคือเช็ค เลขที่ ครับ

[piman]

เลขที่ตำแหน่งครับ txtNumber ชื่อของ textbox เลขที่ตำแหน่งครับ

วัตถุประสงค์เพื่อต้องการไม่ให้สามารถกดปุ่มบันทึกได้ครับ ถ้าหากยังกรอกข้อมูลที่กำหนดไว้ไม่ครบครับ

[snasui]

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

เมื่อเลือกรายการแล้วคลิกปุ่ม แก้ไข หาก TextBox เลขที่ตำแหน่งเป็นค่าว่างให้ปุ่ม ยันทึก ไม่ทำงาน

Code: Select all

Private Sub cmdEdit_Click()
    If selected_list = 0 Then
        MsgBox "กรุณาเลือกรายการที่ต้องการแก้ไข.", vbOKOnly + vbInformation, "แก้ไข"
        Exit Sub
    End If

    Me.txtRownumber.Value = Application.WorksheetFunction.Match(Me.lstData.List(Me.lstData.ListIndex, 0), ThisWorkbook.Sheets("Data").Range("A:A"), 0)
    'ข้อมูลส่วนตัว-------------
    Me.txtNumber.Value = Me.lstData.List(Me.lstData.ListIndex, 1)
    Me.txtNumberdep.Value = Me.lstData.List(Me.lstData.ListIndex, 2)
    If Me.txtNumberdep.Value = "" Then
        Me.cmdSave.Enabled = False
    Else
        Me.cmdSave.Enabled = True
    End If
'Other code

เมื่อแก้ไข TextBox เลขที่ตำแหน่งให้เป็นค่าว่างให้ปุ่ม บันทึก ไม่ทำงาน

Code: Select all

Private Sub txtNumberdep_Change()
    If Me.txtNumberdep.Value = "" Then
        Me.cmdSave.Enabled = False
    Else
       Me.cmdSave.Enabled = True
    End If
End Sub

[piman]

ขอบคุณครับผม

ผมขอสอบถามข้อมูลเพิ่มเติมครับ ผมทำการ Protect Sheet ทุก Sheet ที่มี แล้วใส่ code ปลดล็อกแล้วครับ

**แต่จะมี Sheet Searchdata ที่ใส่ code ปลดล็อกยังไงก็ไม่สามารถรันโปรแกรมได้ครับ ถ้าไม่ได้ทำการ Protect Sheet Searchdate สามารถรันได้ตามปกติครับ**

password protect sheet = "password"

แนบไฟล์ล่าสุดมาให้แล้วครับ

[piman]

แจ้งข้อมูลเพิ่มเติมครับ ลองกดปุ่มบันทึก ก็ขึ้น error เหมือนกันครับ

[logic]

เท่าดที่ดู เขียนเป็น ActiveSheet.Unprotect "password" คือปลดล็อคเฉพาะชีตที่ Active อยู่เท่านั้น

หากจะทำงานกับชีตที่ล็อคก็ตามไปปลดที่นั่นด้วยครับ

ใส่เวอร์ชันของเอ็กเซลในข้อมูลส่วนตัวด้วยครับ ดูวิธีที่ใต้โพสต์ของอาจารย์ ส่วนผมจัดการเรียบร้อยแล้ว

[piman]

ถ้าระบุชื่อชีทไปเลย

Code: Select all

 Sheets("searchdata").Unprotext "password" 

ตัวอย่าง code แบบนี้ถูกต้องหรือไม่ครับ

[logic]

แบบนั้นเลยครับ

[piman]

ขอบคุณมากครับ

[piman]

สอบถามเพิ่มเติมครับ

กรณีที่ใช้ข้อมูลจาก 2 sheet ผมลองเขียน code

Code: Select all

 Sheets("Data").Unprotect "password
Sheets("Searchdata").Unprotect "password" 

แต่ยังขึ้น error ครับ

สามารถเขียนปลดล็อก 2 sheet ด้วย วิธีใดได้บ้างครับ

ขอบคุณครับ

[snasui]

ที่เขียนมาก็ใช้ได้แล้วครับ

การปลด Lock จะต้องปลดทุกชีตที่เกี่ยวข้องกับ Code นั้น ๆ ถ้า Code ได้เปลี่ยนค่าใน 10 ชีตก็ต้องปลด Lock ทั้ง 10 ชีตเสียก่อนครับ

ทางที่ดีให้ Loop ปลด Lock ทุกชีตเสียก่อน ทำงานเสร็จค่อย Loop เพื่อ Lock เอาไว้เหมือนเดิม จะได้ไม่ต้องมานั่งเลือกว่าจะปลดและป้องกันชีตใดครับ

[piman]

ขอบคุณครับ ผมได้ตัวอย่าง code จากเพื่อนสมาชิกแล้วครับ

ทีนี้ผมลองรัน แล้วเจอ error 1 ตำแหน่งที่ code ด้านล่างครับ

Code: Select all

 Private Sub cmdDataemployee_Click()
Me.Hide
Userform1.Show
End Sub 

หลังจากรัน code จะแสดงหน้าของฟอร์ม frmmain มาก่อนครับ แล้วกดปุ่มข้อมูลพนักงาน เพื่อไปที่ฟอร์ม userform1 ครับ

จากนั้นขึ้น error ที่

Code: Select all

 Userform1.Show 

ครับ รบกวนด้วยครับ

[snasui]

ในขั้นตอนการเปิด Form มีการ Call Procedure ที่ชื่อว่า reset และใน Procedure นี้มีการ Clear ข้อมูลในชีต Searchdata ซึ่งจะทำให้เกิด Error เพราะยังไม่ได้ปลด Lock ก่อนที่จะ Clear

การใช้ Code จำเป็นต้องฝึก Debug ให้เป็น อย่างง่าย ๆ คือคลิกเข้าไปในยังแถบที่ลูกศรสีเหลืองชี้ในภาพ จะเกิดสัญญลักษณ์สีเลือดหมูเพื่อกำหนดว่าเมื่อทำการ Run Code มาแล้วให้ Code มาหยุด ณ ตำแหน่งนี้ จากนั้นกดแป้น F8 เพื่อที่จะรันไปทีละ Step เมื่อถึงบรรทัดใดที่ Code ไม่ทำตามคำสั่งก็หมายความว่าบรรทัดนั้นก่อให้เกิดปัญหาครับ

เมื่อจะยกเลิกการหยุด Code ก็ให้คลิกซ้ำในตำแหน่งเดิมเพื่อให้สัญญลักษณ์สีเลือดหมูหายไปครับ

[piman]

ขอบคุณมากครับผม สามารถรันได้แล้วครับ

เบื้องต้นผมใส่ Unprotect ทุกจุดที่มี Error เลยครับ

[zxczxcvzxcvb]

สอบถามข้อมูลเพิ่มเติมครับ
ถ้าสมมุติเรากำหนดให้ใส่ข้อมูลใน Textbox1 ได้สามตัวแล้ว
อยากให้เคอร์เซอร์เลื่อนไปอยู่ TextBox2 เอง
จะใช้ Code ไหนครับ

[logic]

สอบถามข้อมูลเพิ่มเติมครับ
ถ้าสมมุติเรากำหนดให้ใส่ข้อมูลใน Textbox1 ได้สามตัวแล้ว
อยากให้เคอร์เซอร์เลื่อนไปอยู่ TextBox2 เอง
จะใช้ Code ไหนครับ

น่าจะเป็นการ SetFocus ครับ ~~> https://www.snasui.com/viewtopic.php?f= ... cus#p26130