ปิด textbox ในกรณีไม่ใส่ข้อมูล

[todunk85]

ผมอยากทราบว่าในกรณีที่ ยังไม่ต้องการใส่ข้อมูลใน textbox ยกตัวอย่างในไฟล์แนบของผม
ไม่ต้องการใส่ข้อมูลในรายการสินค้าออก ผมต้องใส่ code ใน optionbuttom ใช่หรือไม่ครับ
และต้องใส่ code ยังไงครับ ขอบคุณมากครับ

[snasui]

ทำ Option Button และเขียน Code มาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ

[todunk85]

ขอบคุณ ครูครับที่ใส่ใจเข้ามาดู หลังจากพยายามอยู่นานก็ทำได้ขึ้นมาอีก ระดับหนึ่ง
แต่ปัญหาก็ยังมีติดๆขัดๆ คือ ที่คลิกตรง option button มันไม่ค้างตลอดนะครับ
ต้องได้ คลิกใหม่ตลอด ทำให้ช้ากว่าเดิม และมีวิธีที่จะให้มันส่งข้อมูลไปลงที่ cell
โดยที่ไม่ต้องใช้ปุ่มส่งข้อมูลได้ไหมครับ enter แล้วให้ข้อมูลไปเลยไม่ต้องรอมากด
ปุ่มสุดท้ายอีก ขอบคุณครับ

[snasui]

เปลี่ยนจาก Option Button เป็น CheckBox แทนเพราะมีแค่เลือกกับไม่เลือก จากนั้นปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Me.TextBox3.Enabled = False
    Else
        Me.TextBox3.Enabled = True
    End If
End Sub

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value <> "" Then
        Dim irow As Long
        Dim ws As Worksheet
        Set ws = Worksheets("Sheet1")
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        'Find first empty row in database
        irow = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
        
        'Copy The Data To The Database
        ws.Cells(irow, 1).Value = Me.TextBox1.Value
        ws.Cells(irow, 2).Value = Me.TextBox2.Value
        ws.Cells(irow, 3).Value = Me.TextBox3.Value
        ws.Cells(irow, 1).Select
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox3 = ""
        Me.TextBox1.SetFocus
    Else
        MsgBox "no product", vbCritical
    End If
End Sub

กรณีต้องการจะ Enter เมื่อคีย์เสร็จแล้วให้กดแป้น Tab ไป 1 ครั้งเพื่อเลือกปุ่ม ส่งข้อมูล แล้วกด Enter หากต้องการจะ Enter เลยจะต้องปรับ Code มาเอง ติดตรงไหนค่อยถามกันต่อครับ

[todunk85]

ใช้ได้ดีอย่างที่ใจต้องการเลยครับคุณครู แต่พอผมกลับมาใส่ข้อมูลนำเข้า มันลบข้อมูลที่ลงไว้
ในสินค้าออก ผมจำเป็นต้องแนบแฟ้มที่เสร็จแล้วมาให้ครูดู อีกไหมครับ
ขอบคุณ ครู อย่างสูงครับ จะนำไปปรับปรุงครับกำลังหัด หลงรัก vba แล้วครับแต่ไม่มีพื้นฐานเลย
ที่เป็นรูปเป็นร่าง มาได้เท่านี้ เพราะแอบอ่านใน เวปบอร์ดของคุณครู นี่ล่ะครับ จะพยายามทำให้ดี
ยิ่งๆ ขึ้นไปครับ

[snasui]

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

ควรแนบไฟล์ที่ได้ Update ล่าสุดมาทุกครั้งหากมีคำถามต่อเนื่องจากเดิม อธิบายว่าปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร จะได้ปรับปรุงต่อไปจากนั้น ปกติผมไม่เก็บไฟล์ที่ตอบปัญหาไว้ในเครื่อง นอกจากนี้ผมใช้คอมพ์หลายเครื่องครับ

[belmont]