Snasui Excel Forum

Rem:àÅ×Í¡ÃÒ¡ÒÃã¹ Listbox ãËéáÊ´§¢éÍÁÙÅ㹿ÍÃìÁ
Private Sub lstSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
wsFormEdit.showRecord Sheet1.Range(lstSearch.Value)
Unload Me
FormAdd_Data.Hide
wsFormEdit.Activate
End Sub
Rem:¡´»ØèÁ Enter ã¹ Listbox ãËé»Ô´¿ÍÃìÁ¡ÅѺ价Õè¿ÍÃìÁ
Private Sub ...

สวัสดีครับอาจารย์ผมมีปัญหามารบกวนอีกแล้วครับผม
คือProject งานผมพอรันแล้ว ระบบแจ้ง Run-time error 380 ครับ
ผมรบกวนอาจารย์ช่วยแนะนำแก้ไขปัญหาให้ผมหน่อยครับ..
ผมได้แนบไฟล์ด้วยครับ..
ขอบคุณอาจารย์มากครับผม...
txtSearch.SetFocus
Else
txtSearch.Enabled = False
End If
End Sub
Private Sub OptionButton2 ...

อาจารย์กรุณายกตัวอย่างพอเป็นแนวทางให้ผมหน่อยนะครับ

ขอบคุณมากครับผม..ต้องลองคิดหาวิธิใหม่แทนครับผม

ผมได้แนบไฟล์ให้อาจารย์ครับผม...ขอบคุณครับ

สวัสดีครับอาจารย์ผมมีเรื่องรบกวนอาจารย์ครับ..
ผมอยากให้ข้อมูลในชีทdatabase แสดงที่ ชีท Report ด้วยค่าที่ใส่ใน textbox ของฟอร์มสอบถามครับผม..พยายามแล้วทำไม่ได้ครับผม...
รันโปรแกรมแล้วขึ้น Run-time error "1004":Application-defined or objact-defined error ครับ เกิดจากอะไรครับผม..
Option Explicit ...

ขอบคุณอาจารย์มากๆครับผม..ทำได้แล้วครับ..

สวัสดีครับอาจารย์ผมมีปัญหาสอบถามอาจารย์เรื่องการสอบถามข้อมูลลูกค้าในชีทงาน..
คีย์เงื่อนไขแล้วข้อมูลไม่แสดงข้อมูลครับ..
Option Explicit
Private Sub CommandButton1_Click()

Dim customer_data As String
Dim data_row As Single
Dim i As Single
Const db_sheet = "db_customers"
Const id_col = 1
Const sub_col ...