สมัครสมาชิก
 

สอบถามการใช้ combobox เพื่อ search ครับ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 มิ.ย. 62 , 12:07:17
อ่าน 81 ครั้ง

kpueng

สอบถามการใช้ combobox เพื่อ search ครับ
« เมื่อ: 10 มิ.ย. 62 , 12:07:17 »
จากตัวอย่างไฟล์แนบ

ที่ frm search

ใน Combobox จังหวัด ถ้าเลือกจังหวัดภูเก็ต -> Combobox อำเภอ จะแสดงให้เลือกเพียงอำเภอของจังหวัดภูเก็ต(อำเภอเมืองภูเก็ต อำเภอกะทู้ อำเภอถลาง)

แต่ถ้าไม่เลือก Combobox จังหวัด  -> Combobox อำเภอ จะแสดงข้อมูลอำเภอของทุกจังหวัด



ต้องเขียน code เพิ่มเติมอย่างไรครับ ขอบคุณครับ

 

10 มิ.ย. 62 , 13:55:49
ตอบกลับ #1

ปิ่นณรงค์

  • ผู้ชำนาญการไท.Access
  • *
  • กระทู้: 543
  • พลังขอบคุณ: 445

  • Programer สาย DIY (ไม่ใช่อาจารย์นะครับ)

    • ดูรายละเอียด

: สอบถามการใช้ combobox เพื่อ search ครับ
« ตอบกลับ #1 เมื่อ: 10 มิ.ย. 62 , 13:55:49 »
โค๊ด: [Select]
Option Compare Database

Private Sub SearchCombo()
Dim sql As String

sql = "SELECT * FROM tbldata WHERE [Province] like '" & Nz(Me.Combo1, "*") & "' and [District] like '" & Nz(Me.Combo2, "*") & "'"
    Forms!frmsearch!frmdata.Form.RecordSource = sql
    Forms!frmsearch!frmdata.Form.Requery
   
If Not IsNull(Me.Combo1) Then
Me.Combo2.RowSource = "SELECT DISTINCT tbldata.District, tbldata.Province FROM tbldata WHERE (((tbldata.Province)=[forms]![frmsearch]![Combo1]));"
Else
Me.Combo2.RowSource = "SELECT DISTINCT tbldata.District FROM tbldata GROUP BY tbldata.District;"
End If
End Sub
Private Sub Combo1_AfterUpdate()
    Me.Combo2 = Null
    SearchCombo
End Sub
Private Sub Combo2_AfterUpdate()
    SearchCombo
End Sub
Private Sub Combo2_GotFocus()
  SearchCombo
End Sub


สร้างเงื่อนไขในการกำหนด RowSource ครับลองดูครับ
« แก้ไขครั้งสุดท้าย: 10 มิ.ย. 62 , 15:47:48 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: apirak, kpueng

10 มิ.ย. 62 , 21:51:45
ตอบกลับ #2

kpueng

: สอบถามการใช้ combobox เพื่อ search ครับ
« ตอบกลับ #2 เมื่อ: 10 มิ.ย. 62 , 21:51:45 »
ขอบคุณครับผม

 


บอร์ดเรียนรู้ Access สำหรับคนไทย