19
ห้อง MS Access / : รบกวนขอตัวอย่างฟอร์มกำหนดสิทธิ์การใช้งานครับ
« เมื่อ: 03 ก.ย. 62 , 20:07:31 »
ไม่ทราบว่าต้องการเขียนแบบ VBA ไหมคะ ถ้า VBA เป้กำลังทำอยู่เลยค่ะใช้ฟังชันก์ VLOOKUP
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: 1 [2]
20
ห้อง MS Access / [VBA] ขอความช่วยเหลือ เรื่อง การนำ MS Access 64 bit ไปรันบนเครื่อง 32 bit
« เมื่อ: 03 ก.ย. 62 , 09:13:13 »
เนื่องจากคอมที่ทำ MS Access เป็น 64 bit ค่ะ แล้วคอมในบริษัทที่จะต้องเอาโปรแกรมไปใช้เป็น 32 bit อยากขอความช่วยเหลือในการเขียน vba เพื่อให้สามารถรันบนเครื่อง 32 bit ได้ค่ะ ขอบพระคุณล่วงหน้าค่ะ 
21
ห้อง MS Access / : เรื่องการรัน ACCDE 32bit บน 64bit
« เมื่อ: 26 ส.ค. 62 , 16:00:10 »
ขอสอบถามเพิ่มเติมนะคะ ว่าวิธีนี้สามารถใช้กับตัวโปรแกรม 64 บิต ไปรันในเครื่อง 32 บิตได้หรือไม่คะ ?
ผมเขียนด้วย 2003 32บิต รันใน 2013 64บิต
โค๊ดจะเพิ่มมาอีก เท่าตัวสำหรับการประกาศค่าตัวแปรที่จะให้เข้ากันได้
ไม่รู้ว่า 2010 32บิต จะเหมือน 2003 32บิต หรือป่าวนะครับ เช่น
#If VBA7 Then
Private Declare PtrSafe Function GetKeyboardLayout Lib "User32" (ByVal dwLayout As LongLong) As LongLong
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "User32" (ByVal HKL As LongLong, ByVal Flags As LongLong) As LongLong
Private Declare PtrSafe Function LoadKeyboardLayout Lib "User32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As LongLong) As LongLong
Dim res As LongLong
#Else
Private Declare Function GetKeyboardLayout Lib "User32" (ByVal dwLayout As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "User32" (ByVal HKL As Long, ByVal Flags As Long) As Long
Private Declare Function LoadKeyboardLayout Lib "User32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
Dim res As Long
#End If
หน้า: 1 [2]
