สอบถามเรื่อง error code '13 ครับ

[jullathep]

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = ("MgO") And TextBox3.Text = ("Mn") And TextBox5.Text = ("Zn") Then
        Label1.Caption = ("MgO") & TextBox2.Text & " " And Label1.Caption = ("Mn") & TextBox4.Text & " " And Label1.Caption = ("Zn") & TextBox6.Text & " "
End If
End Sub

พอดีผมต้องการให้มัน แสดงผลต่อกันใน Label แต่เกิด Error รบกวนช่วยดู Code หน่อยครับ ขอบคุณมากครับ

[eyepop99]

แก้โค๊ดเป็น

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = ("MgO") And TextBox3.Text = ("Mn") And TextBox5.Text = ("Zn") Then
        Label1.Caption = ("MgO") & TextBox2.Text & " " & "Mn" & TextBox4.Text & " " & "Zn" & TextBox6.Text & " "
End If
End Sub

[jullathep]

แก้โค๊ดเป็น

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = ("MgO") And TextBox3.Text = ("Mn") And TextBox5.Text = ("Zn") Then
        Label1.Caption = ("MgO") & TextBox2.Text & " " & "Mn" & TextBox4.Text & " " & "Zn" & TextBox6.Text & " "
End If
End Sub

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

[puriwutpokin]

ุ้ถ้าที่ Label เปลี่ยนค่าควรใช้เป็นโค้ดนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then
        Label1.Caption = TextBox1.Text & TextBox2.Text & " " & TextBox3.Text & TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text
End If
End Sub
 

[jullathep]

ุ้ถ้าที่ Label เปลี่ยนค่าควรใช้เป็นโค้ดนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox5.Text <> "" Then
        Label1.Caption = TextBox1.Text & TextBox2.Text & " " & TextBox3.Text & TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text
End If
End Sub
 

ขอบคุณมากครับ พี่