🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#21

Post by snasui » Tue Oct 10, 2017 6:08 am

:D ต้องกำหนดหัวข้อเข้าไปเองหรืออ้างอิงจากที่มีอยู่แล้ว ลองเขียนมาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#22

Post by Benmore » Tue Oct 10, 2017 10:06 am

snasui wrote::D ต้องกำหนดหัวข้อเข้าไปเองหรืออ้างอิงจากที่มีอยู่แล้ว ลองเขียนมาเองก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ
ลองแก้โค้ดเองได้แล้วค่ะ แต่คือติดปัญหาตรงที่ไม่ต้องการเอาหัวข้อไปแสดงที่ชีทต้องแก้ตรงไหนค่ะแล้วก็เอาข้อมูลใน textbox3 ไปแสดงในชีท excel ไม่ได้ค่ะ (Userform1)

Code: Select all

 'ค้นหา
Private Sub btsearch_Click()
    Dim txt As String
    On Error Resume Next
    'Err.Clear
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If Err.Number = 91 Then
        TextBox1.RowSource = "txtsearch.Text"
          MsgBox "ไม่มีข้อมูล"
    End If
    txt = "Emp_ID :" & Cells(nRow, 1) & "Name :" & vbCrLf & Cells(nRow, 2) & "Section :" & vbCrLf & Cells(nRow, 8) _
        & "Uniform_No :" & vbCrLf & Cells(nRow, 13)
    TextBox1.Value = txt
End Sub
code save

Code: Select all

'Save
Private Sub btsave_Click()
  Dim emptyRow As Integer
Dim strTb1 As Variant
Dim strTb2 As Variant
emptyRow = WorksheetFunction.Count("B3:A1000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
  strTb2 = Split(TextBox3.Text, vbCrLf)
   Cells(emptyRow, 1).Value = strTb1(0)  'TextBox1.Value
   Cells(emptyRow, 2).Value = strTb1(1) 'TextBox1.Value
   Cells(emptyRow, 3).Value = strTb1(2) 'TextBox1.Value
   Cells(emptyRow, 4).Value = strTb1(3) 'TextBox1.Value
   Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   Cells(emptyRow, 6).Value = strTb2(6) 'TextBox3.Value
   MsgBox "บันทึกข้อมูลเรียบร้อย"
End If
End Sub
ไฟล์แนบค่ะ
Uniform_EGAS(Ex).xlsm
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#23

Post by snasui » Tue Oct 10, 2017 6:32 pm

:D ตัวอย่างการกำหนดตัวแปร txt ตามด้านล่างครับ

Code: Select all

'...Other code
txt = "Emp_ID :" & Cells(nRow, 1) & vbCrLf & _
    "Name :" & Cells(nRow, 2) & vbCrLf & _
    "Section :" & Cells(nRow, 8) & vbCrLf & _
    "Uniform_No :" & Cells(nRow, 13)
'...Other code
ตัวอย่างการ Code บางส่วนเมื่อกดปุ่ม Save ซึ่งเป็น Code ที่เกี่ยวกับการกำหนดค่าให้กับตัวแปร txt

Code: Select all

'...Other code
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
'...Other code
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#24

Post by Benmore » Thu Oct 12, 2017 3:45 pm

สอบถามเรื่องการค้นหาข้อมูลเพิ่มค่ะ อยากให้ค้นหาข้อมูลได้เฉพาะตัวเลข 3 ตัวหลังของรหัสพนักงานค่ะ ถ้าใส่ข้อมูลเป็นตัวหนังสือก็ให้แสดง msg ว่า "กรุณาใสข้อมูลเป็นตัวเลข" ใน user form 11

Code: Select all

'Search
Private Sub btsearch_Click()
On Error Resume Next
Dim nRow As String
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Err.Number = 91 Then

    ComboBox1.Value = " "
    TextBox1.Value = " "
     TextBox2.Value = " "
     TextBox3.Value = " "
     TextBox4.Value = " "
      ComboBox2.Value = " "
     TextBox5.Value = " "
     ComboBox3.Value = " "
     TextBox6.Value = " "
    ComboBox4.Value = " "
    TextBox7.Value = " "
     ComboBox5.Value = " "
     ComboBox6.Value = " "
        MsgBox "ไม่มีข้อมูล"
    End If
    ComboBox1.Value = Cells(nRow, 1)
    TextBox1.Value = Cells(nRow, 2)
    TextBox2.Value = Cells(nRow, 3)
    TextBox3.Value = Cells(nRow, 4)
    TextBox4.Value = Cells(nRow, 5)
     ComboBox2.Value = Cells(nRow, 6)
    TextBox5.Value = Cells(nRow, 7)
    ComboBox3.Value = Cells(nRow, 8)
     TextBox6.Value = Cells(nRow, 9)
     ComboBox4.Value = Cells(nRow, 10)
      TextBox7.Value = Cells(nRow, 11)
    ComboBox5.Value = Cells(nRow, 12)
    ComboBox6.Value = Cells(nRow, 13)
End Sub
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#25

Post by snasui » Thu Oct 12, 2017 6:34 pm

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

Code: Select all

'...Other code
On Error Resume Next
Dim nRow As String
If Not IsNumeric(vba.right(txtsearch.Text,3)) Then
    MsgBox "กรุณาใสข้อมูลเป็นตัวเลข"
    Exit Sub
End If
'...Other code
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#26

Post by Benmore » Mon Oct 16, 2017 9:16 am

ลองเอาโค้ดไปปรับแล้วก็ยังค้นหาเจอทั้งที่ไม่มีรหัสนี้อยู่ค่ะ

Code: Select all

Private Sub btsearch_Click()
On Error Resume Next
Dim nRow As String
If Not IsNumeric(VBA.Right(txtsearch.Text, 3)) Then
    MsgBox "¡ÃسÒãÊ¢éÍÁÙÅà»ç¹µÑÇàÅ¢"
    Exit Sub
End If
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Err.Number = 91 Then
    ComboBox1.Value = " "
    TextBox1.Value = " "
     TextBox2.Value = " "
     TextBox3.Value = " "
     TextBox4.Value = " "
      ComboBox2.Value = " "
     TextBox5.Value = " "
     ComboBox3.Value = " "
     TextBox6.Value = " "
    ComboBox4.Value = " "
    TextBox7.Value = " "
     ComboBox5.Value = " "
     ComboBox6.Value = " "
        MsgBox "äÁèÁÕ¢éÍÁÙÅ"
    End If
    ComboBox1.Value = Cells(nRow, 1)
    TextBox1.Value = Cells(nRow, 2)
    TextBox2.Value = Cells(nRow, 3)
    TextBox3.Value = Cells(nRow, 4)
    TextBox4.Value = Cells(nRow, 5)
     ComboBox2.Value = Cells(nRow, 6)
    TextBox5.Value = Cells(nRow, 7)
    ComboBox3.Value = Cells(nRow, 8)
     TextBox6.Value = Cells(nRow, 9)
     ComboBox4.Value = Cells(nRow, 10)
      TextBox7.Value = Cells(nRow, 11)
    ComboBox5.Value = Cells(nRow, 12)
    ComboBox6.Value = Cells(nRow, 13)
End Sub
You do not have the required permissions to view the files attached to this post.
Top
logic
Silver
Silver
Posts: 757
Joined: Thu Mar 18, 2010 1:57 pm

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#27

Post by logic » Mon Oct 16, 2017 1:48 pm

เท่าที่อ่านดูตรง nRow ผมว่ามันต้อง loop หาแทนการ search นะครับ

ลองเอาไปปรับดูครับ

Code: Select all

for each r in sheet6.columns(1).specialcells(xlcelltypeconstants)
	if right(r.value,3) = right(txtsearch.text,3) then
		nRow = r.row
		exit for
	end if
end if
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#28

Post by Benmore » Mon Oct 16, 2017 3:17 pm

logic wrote:เท่าที่อ่านดูตรง nRow ผมว่ามันต้อง loop หาแทนการ search นะครับ

ลองเอาไปปรับดูครับ

Code: Select all

for each r in sheet6.columns(1).specialcells(xlcelltypeconstants)
	if right(r.value,3) = right(txtsearch.text,3) then
		nRow = r.row
		exit for
	end if
end if
ลองปรับแล้วก็ยังไม่ได้ค่ะ ต้องปรับแบบไหนค่ะ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#29

Post by snasui » Mon Oct 16, 2017 6:34 pm

:D แนบไฟล์ล่าสุดที่ได้ปรับ Code ตามที่คุณ logic แจ้งไปมาด้วย จะได้ช่วยดูต่อไปจากนั้นครับ
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#30

Post by Benmore » Tue Oct 17, 2017 8:33 am

Uniform_EGAS(Ex).xlsm
snasui wrote::D แนบไฟล์ล่าสุดที่ได้ปรับ Code ตามที่คุณ logic แจ้งไปมาด้วย จะได้ช่วยดูต่อไปจากนั้นครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#31

Post by snasui » Tue Oct 17, 2017 8:33 pm

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

Code: Select all

Private Sub btsearch_Click()
    Dim found As Boolean
    On Error Resume Next
    Dim nRow As String
    For Each r In Sheet6.Columns(1).SpecialCells(xlCellTypeConstants)
        If Right(r.Value, 3) = Right(txtsearch.Text, 3) Then
            nRow = r.Row
            found = True
            Exit For
        End If
    Next r
    If found Then
        If Not IsNumeric(VBA.Right(txtsearch.Text, 3)) Then
            MsgBox "¡ÃسÒãÊ¢éÍÁÙÅà»ç¹µÑÇàÅ¢"
            Exit Sub
        End If
        If Err.Number = 91 Then
            ComboBox1.Value = " "
            TextBox1.Value = " "
            TextBox2.Value = " "
            TextBox3.Value = " "
            TextBox4.Value = " "
            ComboBox2.Value = " "
            TextBox5.Value = " "
            ComboBox3.Value = " "
            TextBox6.Value = " "
            ComboBox4.Value = " "
            TextBox7.Value = " "
            ComboBox5.Value = " "
            ComboBox6.Value = " "
            MsgBox "äÁèÁÕ¢éÍÁÙÅ"
        End If
            ComboBox1.Value = Cells(nRow, 1)
            TextBox1.Value = Cells(nRow, 2)
            TextBox2.Value = Cells(nRow, 3)
            TextBox3.Value = Cells(nRow, 4)
            TextBox4.Value = Cells(nRow, 5)
            ComboBox2.Value = Cells(nRow, 6)
            TextBox5.Value = Cells(nRow, 7)
            ComboBox3.Value = Cells(nRow, 8)
            TextBox6.Value = Cells(nRow, 9)
            ComboBox4.Value = Cells(nRow, 10)
            TextBox7.Value = Cells(nRow, 11)
            ComboBox5.Value = Cells(nRow, 12)
            ComboBox6.Value = Cells(nRow, 13)
            Exit Sub
    Else
        MsgBox "Not found."
    End If
End Sub
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#32

Post by Benmore » Wed Oct 18, 2017 10:09 am

- นำไปแก้ไขได้แล้วค่ะ แต่พอเอาโค้ดไปใส่ในฟอร์มอื่นก็ error ค่ะ เพราะอะไรทั้งๆที่เป็นโค้ดเดียวกัน ที่ userform1
error1.png
- ขอบสอบถามเพิ่มเติมนะค่ะ ทำอย่างไรให้ข้อมูลจำนวนที่เรากรอกขึ้นแค่อันเดียว
แล้วพอเราเลือกข้อมูลอันใหม่ทำให้ข้อมูลอันเก่าที่เคยเลือกหายไปต้องแก้ตรงไหนค่ะ
error.png
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#33

Post by snasui » Wed Oct 18, 2017 10:13 pm

:D กรณี Error ช่วยจับภาพหรือแจ้ง Error มาดูกัน หากบรรทัดบนสุดมีคำว่า Option Explicit จะต้องประกาศตัวแปรก่อนที่จะใช้ตัวแปรนั้นเสมอ เช่น Dim r As Range เป็นต้นครับ

ในส่วนของการเลือกข้อมูลใหม่ให้ช่องจำนวนหายไป ขึ้นอยู่กับ Code ในช่องที่เราเลือกว่าเขียนไว้อย่างไร ช่วยโพสต์หรือแจ้งไว้ด้วยจะได้เข้าถึงข้อมูลได้โดยไวครับ
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#34

Post by Benmore » Thu Oct 19, 2017 9:04 am

snasui wrote::D กรณี Error ช่วยจับภาพหรือแจ้ง Error มาดูกัน หากบรรทัดบนสุดมีคำว่า Option Explicit จะต้องประกาศตัวแปรก่อนที่จะใช้ตัวแปรนั้นเสมอ เช่น Dim r As Range เป็นต้นครับ

ในส่วนของการเลือกข้อมูลใหม่ให้ช่องจำนวนหายไป ขึ้นอยู่กับ Code ในช่องที่เราเลือกว่าเขียนไว้อย่างไร ช่วยโพสต์หรือแจ้งไว้ด้วยจะได้เข้าถึงข้อมูลได้โดยไวครับ
ค้นหาแก้ไขได้แล้วค่ะ แต่ติดตรงส่วนของการเลือกข้อมูลใหม่ให้ข้อมูลที่เลือกก่อนหน้าหายไป และก็ช่องจำนวนค่ะ พอพิมจำนวนสองตัวก็จะขึ้นข้อมูลสองครั้งค่ะ เช่น ถ้าพิม 1 จะขึ้น "จำนวน 1" ถ้าเพิ่ม 1 อีกตัวก็จะขึ้น "จำนวน 1" "จำนวน 11" แบบนี้ค่ะ

Code: Select all

 
Private Sub ComboBox1_Change()
If Combobox1.Value = "เสื้อแขนสั้น(Short Shirt)" Then
Combobox2.RowSource = "DATA!G2:G8"
End If
If Combobox1.Value = "เสื้อแขนยาว(Long Shirt)" Then
Combobox2.RowSource = "DATA!G2:G8"
End If
If Combobox1.Value = "กางเกง(Trousere)" Then
Combobox2.RowSource = "DATA!H2:H24"
Else
Combobox2.Value = ""
End If
If Combobox1.Value <> "" Then
TextBox3.Value = TextBox3.Value & vbCrLf & "" & Combobox1.Value
End If
End Sub
Private Sub ComboBox2_Change()
If Combobox2.Value <> "" Then
       TextBox3.Value = TextBox3.Value & vbCrLf & " ไซส์ " & Combobox2.Value
End If
End Sub



'จำนวน
Private Sub TextBox4_Change()
On Error Resume Next
If TextBox4.Value <> "" Then
        TextBox3.Value = TextBox3.Value & vbCrLf & " จำนวน " & TextBox4.Value
End If
End Sub
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#35

Post by snasui » Thu Oct 19, 2017 5:40 pm

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

Code: Select all

'Other code
If Combobox1.Value <> "" Then
    TextBox3.Value = ""
    TextBox3.Value = TextBox3.Value & vbCrLf & "" & Combobox1.Value
End If
'Other code
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#36

Post by Benmore » Tue Oct 24, 2017 10:34 am

snasui wrote::D ตัวอย่าง Code ครับ

Code: Select all

'Other code
If Combobox1.Value <> "" Then
    TextBox3.Value = ""
    TextBox3.Value = TextBox3.Value & vbCrLf & "" & Combobox1.Value
End If
'Other code
อันนี้คือโค้ดตรงส่วนไหนค่ะ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#37

Post by snasui » Tue Oct 24, 2017 10:41 am

:D โค้ดนั้นอยู่ใน Procedure ที่คุณ Benmore โพสต์มาครับ ตรวจสอบว่าบรรทัดใดเป็นการกำหนดค่าให้กับ TextBox3 ผมเพิ่มเข้าไปแค่บรรทัดเดียว น่าจะสังเกตได้ไม่ยากครับ
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#38

Post by Benmore » Tue Oct 24, 2017 11:58 am

snasui wrote::D โค้ดนั้นอยู่ใน Procedure ที่คุณ Benmore โพสต์มาครับ ตรวจสอบว่าบรรทัดใดเป็นการกำหนดค่าให้กับ TextBox3 ผมเพิ่มเข้าไปแค่บรรทัดเดียว น่าจะสังเกตได้ไม่ยากครับ
- พอดีอยากทราบว่าโค้ดตรงส่วนของการเลือกข้อมูลใหม่ให้ข้อมูลที่เลือกก่อนหน้าหายไป ต้องเพิ่มตรงไหนค่ะ
- ช่องจำนวน พอพิมจำนวนสองตัวก็จะขึ้นข้อมูลสองครั้งค่ะ เช่น ถ้าพิม 1 จะขึ้น "จำนวน 1" ถ้าเพิ่ม 1 อีกตัวก็จะขึ้น "จำนวน 1" "จำนวน 11" แบบนี้ค่ะ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 23215
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:
Contact snasui

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#39

Post by snasui » Tue Oct 24, 2017 1:26 pm

:D ผมตอบไปแล้วตามโพสต์ด้านบน ลองทดสอบกับทุก Code ที่เกียวข้องกับปัญหานี้ แล้วสังเกตดูผล

โปรดทราบว่าผมจะตอบด้วย Code ที่เกี่ยวข้องกับสิ่งที่ถามเสมอครับ กรณีทดสอบแล้วยังไม่ได้คำตอบให้แนบไฟล์ที่ปรับ Code เป็นล่าสุดมาแล้ว
Top
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#40

Post by Benmore » Tue Oct 24, 2017 2:14 pm

snasui wrote::D ผมตอบไปแล้วตามโพสต์ด้านบน ลองทดสอบกับทุก Code ที่เกียวข้องกับปัญหานี้ แล้วสังเกตดูผล

โปรดทราบว่าผมจะตอบด้วย Code ที่เกี่ยวข้องกับสิ่งที่ถามเสมอครับ กรณีทดสอบแล้วยังไม่ได้คำตอบให้แนบไฟล์ที่ปรับ Code เป็นล่าสุดมาแล้ว
ลองเอาโค้ดไปแก้ไขแล้วค่ะแต่คือข้อมูลใน combobox หายไปได้แต่ข้อมูลใน textbox ก็หายไปด้วย คืออยากให้แค่ข้อมูลใน combobox หายไปอย่างเดียวค่ะ
You do not have the required permissions to view the files attached to this post.
Top
Post Reply

Return to “Excel”