กระทู้เก่าบอร์ด อ.Yeadram
1,311 6
URL.หัวข้อ /
URL
ช่วยปรุงแต่งโค้ดนำเข้าข้อมูลในนี้ให้หน่อยค่ะ
หนูได้ใช้โค้ดนี้ตามที่ อ. สันติสุข ได้กรุณาแนะนำไว้เพื่อนำเข้าข้อมูลค่ะ
DoCmd.RunSQL "insert into tbl_family select * from tbl_family in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family2 select * from tbl_family2 in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family3 select * from tbl_family3 in ""C:\mydata\Access-1.mdb"""
End Sub
ปัญหาที่อยากขอความช่วยเหลือก็คือ ทุกครั้งที่เริ่มนำเข้าข้อมูล มันจะมีกรอบข้อความเตือนตามภาพตัวอย่างนี้ทุกๆ Teble เลยค่ะ
และยังมีเตือนตามภาพตัวอย่างที่ 2 (ในกระทู้ถัดไป) ด้วยค่ะ
DoCmd.RunSQL "insert into tbl_family select * from tbl_family in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family2 select * from tbl_family2 in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family3 select * from tbl_family3 in ""C:\mydata\Access-1.mdb"""
End Sub
ปัญหาที่อยากขอความช่วยเหลือก็คือ ทุกครั้งที่เริ่มนำเข้าข้อมูล มันจะมีกรอบข้อความเตือนตามภาพตัวอย่างนี้ทุกๆ Teble เลยค่ะ
และยังมีเตือนตามภาพตัวอย่างที่ 2 (ในกระทู้ถัดไป) ด้วยค่ะ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02806
ภาพตัวอย่างที่ 2 มันไม่ยอมขึ้นค่ะอาจารย์ ในภาพที่ 2 นี้หากผู้ใช้ ไปคลิกที่ปุ่ม NO (ไม่ใช่) มันก็จะไป error ที่โค้ดนั้นๆ ด้วยค่ะ
ความต้องการของหนูก็คือ ไม่อยากให้มันขึ้นข้อความเตือน โดยให้มันโหลดข้อมูลไปทั้งหมดได้เลยโดยไม่มีเงื่อนไขและไม่ต้องถาม เมื่อโหลดเสร็จแล้ว จึงค่อยให้มี msg box แจ้งว่า "การโหลดเสร็จแล้ว" อะไรทำนองนี้ค่ะ
รบกวนช่วยปรุงแต่งโค้ดให้หนูหน่อยนะคะ
(หากถาพที่2 ขึ้นได้หนูจะโพสใหม่ค่ะ)
ความต้องการของหนูก็คือ ไม่อยากให้มันขึ้นข้อความเตือน โดยให้มันโหลดข้อมูลไปทั้งหมดได้เลยโดยไม่มีเงื่อนไขและไม่ต้องถาม เมื่อโหลดเสร็จแล้ว จึงค่อยให้มี msg box แจ้งว่า "การโหลดเสร็จแล้ว" อะไรทำนองนี้ค่ะ
รบกวนช่วยปรุงแต่งโค้ดให้หนูหน่อยนะคะ
(หากถาพที่2 ขึ้นได้หนูจะโพสใหม่ค่ะ)
3 @R02807
หนูกำลังสาละวนอยู่กับปัญหาโพสภาพไม่ยอมขึ้นอยูพักใหญ่ อาจารย์แดนได้กรุณาตอบมาพอดี (เกือบเป็นเวลาเดียวกันเลย)
งั้นหนูขอเรียนถามต่อเลยว่า โค้ด
DoCmd.SetWarnings False
นี้หนูต้องนำไปใส่ไว้ช่วงไหนของโค้ดเดิมบ้างคะอาจารย์
งั้นหนูขอเรียนถามต่อเลยว่า โค้ด
DoCmd.SetWarnings False
นี้หนูต้องนำไปใส่ไว้ช่วงไหนของโค้ดเดิมบ้างคะอาจารย์
4 @R02809
docmd.setwarnings false
DoCmd.RunSQL "insert into tbl_family select * from tbl_family in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family2 select * from tbl_family2 in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family3 select * from tbl_family3 in ""C:\mydata\Access-1.mdb"""
docmd.setwarnings true
End Sub
http://www.thai-access.com/yeadram_view.php?topic_id=628
DoCmd.RunSQL "insert into tbl_family select * from tbl_family in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family2 select * from tbl_family2 in ""C:\mydata\Access-1.mdb"""
DoCmd.RunSQL "insert into tbl_family3 select * from tbl_family3 in ""C:\mydata\Access-1.mdb"""
docmd.setwarnings true
End Sub
http://www.thai-access.com/yeadram_view.php?topic_id=628
5 @R02812
ขอบคุณค่ะอาจารย์ yeadram ใช้ได้เรียบร้อยดีเลยค่ะอาจารย์
รบกวนอาจารย์อีกนิดนึงค่ะว่าตอนนี้ทำไมโพสรูปไม่ขึ้นคะ ไม่ทราบเป็นเพราะอะไรทุกครั้งเมื่อคลิก OK ที่ขั้นตอนสุดท้าย ก็จะมีโค้ดมาขึ้นที่บอร์ด แต่ตอนนี้มันไม่ขึ้นแล้วค่ะ
รบกวนอาจารย์อีกนิดนึงค่ะว่าตอนนี้ทำไมโพสรูปไม่ขึ้นคะ ไม่ทราบเป็นเพราะอะไรทุกครั้งเมื่อคลิก OK ที่ขั้นตอนสุดท้าย ก็จะมีโค้ดมาขึ้นที่บอร์ด แต่ตอนนี้มันไม่ขึ้นแล้วค่ะ
6 @R02817
ทดสอบแล้วครับ เห็นปัญหาดังกล่าวแล้ว
ขอบคุณครับที่แจ้ง
จะหาสาเหตุ และการแก้ไขในเร็วๆ นี้ครับ
ขอบคุณครับที่แจ้ง
จะหาสาเหตุ และการแก้ไขในเร็วๆ นี้ครับ
Time: 0.3555s
DoCmd.SetWarnings False
ถ้าอยากให้กลับมาเตือนเหมือนเดิมก็เปลี่ยนเป็น
DoCmd.SetWarnings True