กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
264 1
URL.หัวข้อ /
URL
copying .mdb to a CD enables "read-only". How to avoid?
ถามไว้ที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&postid=152418#post152418
เมื่อเราเขียนไฟล์ db ลง CD เมื่อนำไปลงเครื่องฯ อื่น ถ้าไม่มีการเอา Read-Only ของไฟล์ออก เมื่อเราเปิด db เข้ามา เราจะเจอข้อความฟ้องว่า ไฟล์ db นี้ จะเปิดแบบ Read-Only เท่านั้น เราจะไม่สามารถเพิ่มเติมหรือแก้ไขได้
ผมแนะนำให้เขาใส่โค้ดข้างล่างนี้ไว้ในฟอร์มที่ใช้เปิดทุกครั้งเมื่อเปิด db ตัวนี้ เพื่อตรวจหาว่าไฟล์นี้เป็น Read-Only หรือไม่ ถ้าเป็น ให้เปลี่ยนแล้วเปิดเข้ามาใหม่ ดังนี้
Private Sub Form_Open(Cancel As Integer)
Dim strPath As String, Result As Long
If GetAttr(CurrentDb.Name) And vbReadOnly = 1 Then
SetAttr CurrentDb.Name, vbNormal
strPath = SysCmd(acSysCmdAccessDir) & "MSAccess.exe " & CurrentDb.Name
Call Shell(strPath, vbMaximizedFocus)
DoCmd.Quit
End If
End Sub
*** Edited by Supap Chaiya *** 12/4/2546 0:23:55
เมื่อเราเขียนไฟล์ db ลง CD เมื่อนำไปลงเครื่องฯ อื่น ถ้าไม่มีการเอา Read-Only ของไฟล์ออก เมื่อเราเปิด db เข้ามา เราจะเจอข้อความฟ้องว่า ไฟล์ db นี้ จะเปิดแบบ Read-Only เท่านั้น เราจะไม่สามารถเพิ่มเติมหรือแก้ไขได้
ผมแนะนำให้เขาใส่โค้ดข้างล่างนี้ไว้ในฟอร์มที่ใช้เปิดทุกครั้งเมื่อเปิด db ตัวนี้ เพื่อตรวจหาว่าไฟล์นี้เป็น Read-Only หรือไม่ ถ้าเป็น ให้เปลี่ยนแล้วเปิดเข้ามาใหม่ ดังนี้
Private Sub Form_Open(Cancel As Integer)
Dim strPath As String, Result As Long
If GetAttr(CurrentDb.Name) And vbReadOnly = 1 Then
SetAttr CurrentDb.Name, vbNormal
strPath = SysCmd(acSysCmdAccessDir) & "MSAccess.exe " & CurrentDb.Name
Call Shell(strPath, vbMaximizedFocus)
DoCmd.Quit
End If
End Sub
*** Edited by Supap Chaiya *** 12/4/2546 0:23:55
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01787
ขอบคุณมากครับ อ.สุภาพ ผมคงได้นำไปใช้ประโยชน์แน่ๆ...
Time: 0.1081s