Excel Forum

Posted: **Wed Feb 06, 2013 11:34 am**

คือว่าผมได้สร้าง From Product ได้สร้าง text box 3 box ซึ่งปะกอบไปด้วย เลขที่ใบสั่งจอง เลขที่ใบสั่งขาย เลยที่ใบเิบิก
แล้วผมได้สร้าง Form ย่อยชื่อ Add_Product ฟอร์มย่อยให้ใส่ชื่อสินค้า และสถานะ เช่น ถ้าสถานนะจองก็จะดึงค่าจาก textbox ใบสั่งจอง ถ้าสินค้าตัวที่สองเป็นสถานะสั่งขาย ก็จะดึงค่าจาก textbox ใบสั่งขาย

และได้นำโค้ด VBA มาให้ช่วยดูด้วยครับ ปัญหาคือ
1 เวลาเลือกสถานะเลขที่เอกสารมันจะเป็น 0
2 ถ้ามีสินค้ามากกว่า 1 ตัวเช่นมี 2 ตัวเวลาเลือกสถานะของสินค้าตัวใดตัวหญิง สถานะของสินค้าทุกตัวจะเป็นเป็นสถานะที่ได้เลือกเพียงสถานะเดียว

Option Compare Database

Private Sub Combo58_AfterUpdate()
If Not IsNull(Combo58.Value) Then
Select Case Combo58.Value
Case "ãºàºÔ¡"
MsgBox "1"
txtDescription = Val(Description1)
Case "ãºÊÑè§¨Í§"
MsgBox "2"
txtDescription = Val(Description2)
Case "ãºÊÑè§¢ÒÂ"
MsgBox "3"
txtDescription = Val(Description3)
End Select
End If
End Sub

Private Sub Form_Load()
Combo58.RowSourceType = "Value List"
Combo58.AddItem ("1")
Combo58.AddItem ("2")
Combo58.AddItem ("3")
End Sub

Posted: **Wed Feb 06, 2013 11:38 am**

ลองแนบตัวอย่างไฟล์มาดูกันครับ

การวาง Code ให้แสดงเป็น Code เพื่อให้ง่ายต่อการอ่านและ Copy ไปทดสอบดูที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=1187

Posted: **Wed Feb 06, 2013 1:14 pm**

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

Posted: **Wed Feb 06, 2013 2:04 pm**

ลองปรับ Code เป็นตามด้านล่าง

Code ไหนไม่ใช้ มีชื่อซ้ำกัน ให้ลบทิ้ง เพราะจะเป็นปัญหากับการ Run Code

Code: Select all

Option Compare Database

Private Sub Combo0_AfterUpdate()
    If Not IsNull(Combo0Value) Then
        Select Case Combo0.Value
            Case "เลขที่ใบเบิก"
                MsgBox "1"
                txtDescription = Val(Text0)
            Case "เลขที่ใบสั่งจอง"
                MsgBox "2"
                txtDescription = Val(Text1)
            Case "ลขที่ใบสั่งขาย"
                MsgBox "3"
                txtDescription = Val(Text2)
        End Select
    End If
End Sub


Private Sub Form_Load()
    Combo0.RowSourceType = "Value List"
    Combo0.AddItem ("เลขที่ใบเบิก")
    Combo0.AddItem ("เลขที่ใบสั่งจอง")
    Combo0.AddItem ("เลขที่ใบสั่งขาย")
End Sub

Posted: **Wed Feb 06, 2013 2:42 pm**

1 เวลาเลือกสถานะเลขที่เอกสารมันจะเป็น 0
2 ถ้ามีสินค้ามากกว่า 1 ตัวเช่นมี 2 ตัวเวลาเลือกสถานะของสินค้าตัวใดตัวหนึ่ง สถานะของสินค้าทุกตัวจะเป็นสถานะที่ได้เลือก

Posted: **Wed Feb 06, 2013 4:36 pm**

ลองดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Option Compare Database


Private Sub Combo0_AfterUpdate()
    Dim fVal As Form_Form2
    Set fVal = New Form_Form2
    On Error Resume Next
    If Not IsNull(Combo0Value) Then
        Select Case Combo0.Value
            Case "เลขที่ใบเบิก"
                MsgBox "1"
                Text4 = Val(fVal.Text0)
            Case "เลขที่ใบสั่งจอง"
                MsgBox "2"
                Text4 = Val(fVal.Text1)
            Case "เลขที่ใบสั่งขาย"
                MsgBox "3"
                Text4 = Val(fVal.Text2)
        End Select
    End If
End Sub

Private Sub Form_Load()
    Combo0.RowSourceType = "Value List"
    Combo0.AddItem ("เลขที่ใบเบิก")
    Combo0.AddItem ("เลขที่ใบสั่งจอง")
    Combo0.AddItem ("เลขที่ใบสั่งขาย")
End Sub

Posted: **Thu Feb 07, 2013 9:08 am**

มันยังมีปัญหาตรงที่
1 ลิสใน combobox จะมีใบเบิก ใบสั่งจอง ใบสั่งขาย ซ้ำกันอย่างละ 3
2 ถ้าเลือก cobbobox รายการที่สองเป็นรายการไหน รายการหนึ่งจะเปลี่ยนตาม

Posted: **Thu Feb 07, 2013 10:28 am**

ลองแก้ไขมาเองก่อนครับ โพสต์ Code ที่ลองแก้เองแล้วด้วย จะได้ช่วยดูกันต่อครับ

Excel Forum

ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox

Re: ถามการดึงค่าจาก TextBox โดยใช้ Bombobox