Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Thai Access Webboard New Topic    Reply
การหารหัสไปรษณีย์ จากตำบล อำเภอ จังหวัด

Topic by Message Posted : on : 3/1/2560 13:43:24
Mhu  ผมคัดลอกการเขียนคำสั่งของ อ.ธัชชัย ที่ตอบคุณศรัญญา เมื่อปี 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

Reply by Message on : 3/1/2560 18:23:20
U&ME
(R22852)
คงไม่ได้ล่ะจ้า เนื่องจากชื่อตำบลเป็นคีย์ซ้ำ
นอกจากต้องระบุจังหวัดด้วย
Back to Top
Reply by Message on : 4/1/2560 7:24:05
ผ่านมา
(R22854)
โดยหลักการแล้ว ต้องหาจังหวัดก่อน ตามด้วยอำเภอ แล้วจึงหาตำบลเป็นลำดับสุดท้ายครับ
Back to Top
Reply by Message on : 4/1/2560 9:40:51
TTT
(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))
Back to Top
Reply by Message on : 9/1/2560 17:41:05
Mhu
(R22875)
เรียน อาจารย์ธัชชัย ที่เคารพ
   กราบขอบพระคุณคำแนะนำของอาจารย์มากครับ แก้ปัญหาได้หมดเลยครับ ทดลองดูแล้วถูกต้อง 100 %
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++