การหารหัสไปรษณีย์ จากตำบล อำเภอ จังหวัด
กระทู้เก่าบอร์ด อ.Yeadram

 1,226   4
URL.หัวข้อ / URL
การหารหัสไปรษณีย์ จากตำบล อำเภอ จังหวัด

ผมคัดลอกการเขียนคำสั่งของ อ.ธัชชัย ที่ตอบคุณศรัญญา เมื่อปี 2558 มาประกอบครับ

Private Sub cb_district_Change()
    Me.txt_zipcode = DLookup("post_code", "tb_district", "district_th = '" & Me.cb_district & "'")
End Sub
ผมได้นำตัวอย่างไฟล์ของอาจารย์ไปประกอบการใช้งานแล้วครับ ผมเจอปัญหานิดหนึ่ง คือ ชื่อตำบลในเมืองไทย มีชื่อซ้ำกัน โปรแกรมไปนำค่าแรกมาให้ ซึ่งไม่ตรงกับความจริง เช่น ต.หนองโสน มีในประเทศไทย 6 แห่ง ผมต้องการที่เพชรบุรี แต่โปรแกรมไปเอาของตราดมาแสดง จากคำสั่งที่อาจารย์ให้ไว้ ไม่ทราบว่าต้องเพิ่มเติมคำสั่งอะไรเข้าไปอีกครับ ขอคำแนะนำด้วยครับ ผมยังไม่เก่งเรื่องการเขียน VBA นัก
หรือจะแสดงวิธีทำให้ดูจะเป็นพระคุณยิ่งครับ

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

1 @R22852
คงไม่ได้ล่ะจ้า เนื่องจากชื่อตำบลเป็นคีย์ซ้ำ
นอกจากต้องระบุจังหวัดด้วย
2 @R22854
โดยหลักการแล้ว ต้องหาจังหวัดก่อน ตามด้วยอำเภอ แล้วจึงหาตำบลเป็นลำดับสุดท้ายครับ
3 @R22855
คุ้นๆ ว่าเป็นไฟล์ที่ผมทำนะ ถ้าใช่ก็ลองเพิ่มเงื่อนไขเป็นอย่างนี้ดูครับ

Me.txt_zipcode = DLookup("post_code", "tb_district", "district_th= '" & Me.cb_district & "' AND amphur_id = " & Me.cb_amphur.Column(0, Me.cb_amphur.ListIndex))
4 @R22875
เรียน อาจารย์ธัชชัย ที่เคารพ
   กราบขอบพระคุณคำแนะนำของอาจารย์มากครับ แก้ปัญหาได้หมดเลยครับ ทดลองดูแล้วถูกต้อง 100 %
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2715s