กระทู้เก่าบอร์ด อ.Yeadram
755 2
URL.หัวข้อ /
URL
ขอทราบวิธิฝากฝังไฟล์ PDF ไปกับตัวโปรแกรมค่ะ
หนูมีไฟล์ PDF สมมติตั้งชื่อไฟล์ว่า smile.pdf
ความต้องการของหนูก็คือ อยากให้ไฟล์ smile.pdf ติดไปกับตัวโปรแกรมของเราเสมอ
เช่นอาจให้ไฟล์ smile.pdf อยูในโฟลเดอร์เดียวกันกับตัวโปรแกรมของเรา
ไม่ว่าผู้ใช้จะเอาโฟลเดอร์โปรแกรมของเราไปเก็บที่ path ใดก็ตาม
เมื่อผู้ใช้กดปุ่ม smileopen ก็ให้พร้อมเรียกเปิดไฟล์ smile.pdf ได้ตลอดเวลา
โดยมีเงื่อนไขว่า หากไม่พบไฟล์ smile.pdf หรือมีเหตุอันไม่สามารถเปิดไฟล์ smile.pdf ได้
ก็ให้มีข้อความแจ้งให้ผู้ใช้ทราบ แล้วก็ข้ามไปผ่านเลยโดยไม่ต้องมี error ค่ะ
ไม่ทราบว่าแนวคิดนี้สามารถเป็นไปได้หรือไม่คะ
ขอคำแนะนำด้วยค่ะ
ความต้องการของหนูก็คือ อยากให้ไฟล์ smile.pdf ติดไปกับตัวโปรแกรมของเราเสมอ
เช่นอาจให้ไฟล์ smile.pdf อยูในโฟลเดอร์เดียวกันกับตัวโปรแกรมของเรา
ไม่ว่าผู้ใช้จะเอาโฟลเดอร์โปรแกรมของเราไปเก็บที่ path ใดก็ตาม
เมื่อผู้ใช้กดปุ่ม smileopen ก็ให้พร้อมเรียกเปิดไฟล์ smile.pdf ได้ตลอดเวลา
โดยมีเงื่อนไขว่า หากไม่พบไฟล์ smile.pdf หรือมีเหตุอันไม่สามารถเปิดไฟล์ smile.pdf ได้
ก็ให้มีข้อความแจ้งให้ผู้ใช้ทราบ แล้วก็ข้ามไปผ่านเลยโดยไม่ต้องมี error ค่ะ
ไม่ทราบว่าแนวคิดนี้สามารถเป็นไปได้หรือไม่คะ
ขอคำแนะนำด้วยค่ะ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23264
ขอบพระคุณอย่างยิ่งค่ะอาจารย์
พอจะได้แนวทางแล้วล่ะ
หนูจะลองทำตามที่ทา่นแนะนำดูนะคะ
พอจะได้แนวทางแล้วล่ะ
หนูจะลองทำตามที่ทา่นแนะนำดูนะคะ
Time: 0.3474s
- zip ไฟล์ทั้งหมดในโฟลเดอร์ เวลาเอาไปติดตั้งที่เครื่องอื่น ก็ให้ก็อปเอา zip ไฟล์ไป แล้ว unzip ทั้งหมดออกมาพร้อมๆกัน
- ในฟอร์มที่เปิดพร้อมกับระบบ เช่น ฟอร์มเมนู หรือฟอร์มล็อคอิน ให้สร้าง Unbound Object Frame โดยสร้างมาจากไฟล์ smile.pdf ตอนที่ Access ถามว่าจะสร้างมาจากไหนหรือเป็นลิงค์ไปยังไหน และกำหนดให้ .visible = false, enabled = false, locked = true เมื่อต้องการจะเปิด smile.pdf ขึ้นมา ก็เขียนโค้ดสั่งว่า Me.[ชื่อ Unboubd Object Frame].Action = acOLEActivate เท่านี้เองครับ แต่ข้อเสียของวิธีนี้คือ ถ้าไฟล์ smaile.pdf ใหญ่ถึงขนาดแย่งพื้นที่ไฟล์ .accdb, .mdb ไปจนเนื้อที่ที่เหลือของโปรแกรม มีไม่พอให้เราใช้งาน วิธีนี้ก็จะไม่เหมาะครับ
สำหรับการเช็คว่ามีไฟล์อยู่หรือไม่ ก็ใช้คำสั่ง
if dir(currentproject.path+"\smile.pdf") = "" then
msgbox "Not found smile.pdf"
end if