CodeVB สำหรับมือใหม่ เลือก จังหวัด อำเภอ ตำบล รหัส
กระทู้เก่าบอร์ด อ.Yeadram

 1,242   1
URL.หัวข้อ / URL CodeVB สำหรับมือใหม่ เลือก จังหวัด อำเภอ ตำบล รหัส

สามารถเอาไปดัดแปลงใช้แบบอื่นก็ได้นะครับ ผมเอาไปดัดแปลงใช้ในการเลือกสินค้าหมวดใหญ่ แล้วไล่ลงมาหมวดรอง แล้วไล่ลงมาเป็นชื่อสินค้า
สะดวกทำให้เราไม่ต้องมาพิมพ์และไม่มีการผิดพลาดด้วยครับ แล้วแต่ละช่องก็ให้บันทึกไปที่ฟิลเทเบิลที่ต้องการครับ



นำโค๊ดนี้มาใส่ตรงช่อง เหตุการณ์ หรือ Even นะครับ

ดรอปเมนูที่ 1 (หรือจังหวัด)
=============================================================
ที่ช่อง AfterUpdate

Private Sub ชื่อช่องดรอป1_AfterUpdate()
     Dim sManagerSource As String
     sManagerSource = "SELECT distinct [ชื่อเทเบิล].[ฟิลที่จะดรอป2]" & _
              "FROM ชื่อเทเบิล " & _
              "WHERE (((ชื่อเทเบิล.ฟิลที่จะดรอป1)=[Form].[ชื่อช่องดรอป1].[value]));"
    Form.ชื่อช่องดรอป2.RowSource = sManagerSource
    Form.ชื่อช่องดรอป2.Requery
End Sub

ที่ช่อง Click หรือ เมื่อคลิก

Private Sub ชื่อช่องดรอป1_Click()
ชื่อช่องดรอป2.Value = ""
ชื่อช่องดรอป3.Value = ""
ชื่อช่อง4.Value = ""
End Sub


ดรอปเมนูที่ 2 (หรืออำเภอ)
=============================================================
ที่ช่อง AfterUpdate

Private Sub ชื่อช่องดรอป2_AfterUpdate()
    Dim sManagerSource As String
     sManagerSource = "SELECT distinct [ชื่อเทเบิล].[ฟิลที่จะดรอป3]" & _
              "FROM ชื่อเทเบิล " & _
              "WHERE (((ชื่อเทเบิล.ฟิลที่จะดรอป1)=[Form].[ชื่อช่องดรอป1].[value]) and ((ชื่อเทเบิล.ฟิลที่จะดรอป3)=[Form].[ชื่อช่องดรอป2].[value]) );"
    Form.ชื่อช่องดรอป3.RowSource = sManagerSource
    Form.ชื่อช่องดรอป3.Requery
End Sub

ที่ช่อง Click หรือ เมื่อคลิก

Private Sub ชื่อช่องดรอป2_Click()
ชื่อช่องดรอป3.Value = ""
End Sub


ดรอปเมนูที่ 3 (หรือตำบล)
=============================================================
ที่ช่อง AfterUpdate

Private Sub ชื่อช่องดรอป3_AfterUpdate()
'      Dim sManagerSource As String
'    sManagerSource = "SELECT distinct [PostCode].[postcode]" & _
              "FROM Postcode " & _
              "WHERE (((Postcode.Province)=[Form].[Province].[value]) and ((Postcode.district)=[Form].[Aumpur].[value]) and ((Postcode.tumbol)=[Form].[Tambon].[value]) );"
       
' List92.RowSource = sManagerSource
   ' List92.Requery
    Me.ชื่อช่องใส่ข้อมูล4 = DLookup("ชื่อฟิลที่4", "QPostCode")
    'ZipCode = List92.Column(0, 0)   'OK!!
'       ZipCode.ControlSource = sManagerSource
'      ZipCode.SetFocus
   '     ZipCode.Text = Text20.ControlSource
    '    ZipCode.Requery
End Sub


เมนูที่ 4 (หรือรหัสไปรษณีย์)
=============================================================

สร้างแบบสอบถาม
1 - เทเบิลที่ใช้งาน
2 - เลือกฟิลที่จะนำมาใช้ 4 ฟิล (3.ตำบล 2.อำเภอ 1.จังหวัด 4.รหัสไปรษณีย์
3 - ตรงช่องเกณฑ์ หรือช่อง Critical ให้ใส่ตามชื่อช่องใครช่องมันตามนี้
ฟิลที่1 ใส่ (เอาเครื่องหมายถูกออก)
[Form].[ชื่อช่องดรอบ1].[value]
ฟิลที่2 ใส่ (เอาเครื่องหมายถูกออก)
[Form].[ชื่อช่องดรอบ2].[value]
ฟิลที่3 ใส่ (เอาเครื่องหมายถูกออก)
[Form].[ชื่อช่องดรอบ3].[value]
ฟิลที่4 ไม่ต้องใส่ แต่ติ๊กเครื่องหมายถูกเอาไว้

การเลือกต้องเลือกจาก จังหวัด อำเภอ ตำบล ส่วนรหัสไปรษณีย์จะแสดงออกมาเองครับ


นำไปแจกจ่ายกรุณาให้เครดิตเขาด้วยนะครับ ^^

เครดิต Ittiphol Live
ขอบคุณครับ

โดย: โอ๋ เมื่อ: 27 ก.พ. 2558 , 12:08

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20141
ขอบคุณครับ
โดย: TTT เมื่อ: 28 ก.พ. 2558 , 14:23
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2861s