เกิดอะไรขี้นกับโปรแกรมที่พัฒนาขึ้นมา

[kunlek]

ดู เก็บความรู้จากwebboardrมาเป็นเวลานานมากตั้งแต่ อ.สุภาพ หัดเขียนด้วย MS access ตั้งแต่ 2003 วันนี้เปลี่ยน notebook ใหม่ ลงoffice365 แต่เปิดโปรแกรมแล้วมีปัญหาตรงโมดูล ERROR ขึ้นเป็นแผง จะให้เราแก้อะไรครับ

[chai]

เปลี่ยนมาใช้​ office 32​ bit ครับ

[kunlek]

ใช้32 bitจึงได้ ขอบคุณครับ

[PNR]

ใช้32 bitจึงได้ ขอบคุณครับ

ถ้าท่านจะใช้ 64Bit ในอนาคต ที่โค๊ดท่านสามารถเพิ่ม
ptrsafe เพิ่มเข้าไปคำสั่งก็จะสามารถทำงานได้ปกติ
จากคำสั่ง
Declare Function

ให้เพิ่มเป็น Declare PtrSafe Function
ประมาณนี้นะครับ
ถ้าท่านจะสลับกันเพื่อให้คำสั่งสามารถใช้ได้กับ Window ทั้ง 64 และ 32
สามารถกำหนดเงื่อนไขประมาณนี้

โค๊ด: [Select]

#if Win64 then
   Declare PtrSafe Function MyFunc Lib "User32" (ByVal N As LongLong) As LongLong
#else 'ส่วนด้านล่างนี้จะใช้ 32Bit ครับ
   Declare Function MyFunc Lib "User32" (ByVal N As Long) As Long
#end if


[kunlek]

เพิ่มแค่นี้ ไม่ต้องแก่้ ได้เลยหรือครับ น่าสนใจจริง เพราะอยากจะอัปโปรแกรมเราใช้ 64bit เพราะ คอมพิวเตอร์ก็สเปคสูง windows ก็64 bit
ขอบคุณครับ

[kunlek]

code ที่แนะนำนี้ จะไปเพิ่ม ในโมดูลไหน หรือเพิ่มโมดูลใหม่

[PNR]

ใช้ในโค้ดเดิมนี้แหละครับ
แต่เราใช้ IF มาแยก ระหว่าง 32 และ 64 bit โดย
ถ้า64 Bit ให้มี PtrSafe ด้วยเช่น
#if Win64 then
   Declare PtrSafe Function .........................................
   .......................โค้ดประกาสตัวแปรทุกตัวต้องมี PtrSafe ด้วยทุกอัน..................

#else 'ส่วนด้านล่างนี้จะใช้ 32Bit ครับ อันล่างใช้โค้ดเดิมของท่านได้เลย ไม่ต้องมี PtrSafe

   Declare Function ................................
#end if