Tùy chọn
Convert Access 97 to Access 2010
- Convert Access 97 to Access 2010
-
Convert Access 97 to Access 2010
lmthu > 15-01-21, 09:43 AM
Mình có 1 file Access '97 mình muốn convert nó sang Access 2010, nhưng khi mở file để chuyển đổi thì Access báo lỗi:
"The current user account doesn't have permission to convert or enable this database"
Bạn nào biết cách khắc phục xin hướng dẫn -
RE: Convert Access 97 to Access 2010
tranthanhan1962 > 15-01-21, 11:40 AM
Đầu tên bạn phải convert từ access 97 sang access 2003 (sau khi convert phải xử lý lỗi nếu có). Sau đó mới convert từ mdb 2003 sang accbd. Trương hợp không convert được thì bạn tạo một tập tin accbd trống rồi import tất cả vào. Từ mbd 97 chuyển sang accdb khả năng lỗi rất cao. Vì vậy, khi quá cần thiết thì chuyển sang để làm nền xử lý lại chứa khả năng --> chuyển sang, chạy tốt rất thấp -
RE: Convert Access 97 to Access 2010
kieu manh > 08-05-21, 03:41 PM
(15-01-21, 09:43 AM)lmthu Đã viết: Mình có 1 file Access '97 mình muốn convert nó sang Access 2010, nhưng khi mở file để chuyển đổi thì Access báo lỗi:
"The current user account doesn't have permission to convert or enable this database"
Bạn nào biết cách khắc phục xin hướng dẫn
đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong -
RE: Convert Access 97 to Access 2010
ongke0711 > 08-05-21, 05:26 PM
(08-05-21, 03:41 PM)kieu manh Đã viết: đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong
Qúa dữ. Bác Kiều Mạnh comvert file này thử xem sao.
Link file: https://www.mediafire.com/file/3aoua9xnj...7.mdb/file -
RE: Convert Access 97 to Access 2010
kieu manh > 08-05-21, 07:53 PM
(08-05-21, 05:26 PM)ongke0711 Đã viết:
(08-05-21, 03:41 PM)kieu manh Đã viết: đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong
Qúa dữ. Bác Kiều Mạnh comvert file này thử xem sao.
Link file: https://www.mediafire.com/file/3aoua9xnj...7.mdb/file
Nó ẩn cả tableName mới Tìm ra -
RE: Convert Access 97 to Access 2010
ongke0711 > 08-05-21, 08:03 PM
(08-05-21, 07:53 PM)kieu manh Đã viết:
(08-05-21, 05:26 PM)ongke0711 Đã viết:
(08-05-21, 03:41 PM)kieu manh Đã viết: đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong
Qúa dữ. Bác Kiều Mạnh comvert file này thử xem sao.
Link file: https://www.mediafire.com/file/3aoua9xnj...7.mdb/file
trong đó là 1 file trống không
File đó có một đống Form, Module chứ có rỗng đâu. Convert ứng dụng Access đâu chỉ lấy Table không thôi bác.
![[Hình: TQ1jOvVl.png]](https://i.imgur.com/TQ1jOvVl.png)
-
RE: Convert Access 97 to Access 2010
kieu manh > 08-05-21, 08:15 PM
(08-05-21, 08:03 PM)ongke0711 Đã viết:
thấy rồi ... nó hide đi mới unhide mới thấy(08-05-21, 07:53 PM)kieu manh Đã viết:
(08-05-21, 05:26 PM)ongke0711 Đã viết:
(08-05-21, 03:41 PM)kieu manh Đã viết: đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong
Qúa dữ. Bác Kiều Mạnh comvert file này thử xem sao.
Link file: https://www.mediafire.com/file/3aoua9xnj...7.mdb/file
trong đó là 1 file trống không
File đó có một đống Form, Module chứ có rỗng đâu. Convert ứng dụng Access đâu chỉ lấy Table không thôi bác.
-
RE: Convert Access 97 to Access 2010
ongke0711 > 09-05-21, 11:27 AM
(08-05-21, 08:15 PM)kieu manh Đã viết:
(08-05-21, 03:41 PM)kieu manh Đã viết: đơn giản lắm ... như ăn kẹo mút ... Úp file + Pass ( nếu có lên ) tôi làm cho
Lúc nào rảnh tôi viết cho 1 hàm API xong cứ thế mà xài
trường hợp này tôi cũng đã bị và xử lý bên GPE xong
thấy rồi ... nó hide đi mới unhide mới thấy
Bạn lmthu nhờ cái tool của bạn Kiều Mạnh convert giùm nè, khỏi qua mấy bước làm thủ công. -
RE: Convert Access 97 to Access 2010
tranthanhan1962 > 09-05-21, 08:58 PM
Tôi thường không convert mà tạo một file mới với ver muốn sử dụng rồi import toàn bộ file có ver thấp vào file này (ngoại trừ access 95, thằng này sẽ không cho mở file ra để import, bắt buột phải convert lên 97 rồi mới làm gì thì làm). Thực ra table và quey thì không hề gì, kể cả report cũng không ảnh hưởng, Form thì một vài trường hợp điều khiển ít sử dụng giờ access không còn hổ trợ nữa. Phần mệt mõi nhất vẫn là code VBA. Thì cũng đành debug lỗi tới đâu xử lý tới đó. Nhưng import có cái lợi là toàn bộ các dòng mã VBA mình đã viết sẽ đươc giữ nguyên. Còn convert có khi bị mất mã nên việc dò tìm để sửa chữa có khi bị khó hơn nhiều. -
RE: Convert Access 97 to Access 2010
maidinhdan > 02-06-21, 03:53 AM
(08-05-21, 05:26 PM)ongke0711 Đã viết: Link file: https://www.mediafire.com/file/3aoua9xnj...7.mdb/file
Mới viết thêm 1 nút Add-In dùng để Backup/Restore All Access to file Txt và kết quả là: Đính kèm File
Ai cần thì phát triển code này:
Mã PHP:Attribute VB_Name = "modBackup_RestoreCodeVBA"
Option Compare Database
Public Sub BackupAll()
On Error GoTo Loi
Dim obj As AccessObject
Dim ctl As Control
Dim prp As Property
Dim Ten As String
Dim TenUngDung As String, TMForm As String, TMReport As String, TMMacro As String, TMModules As String
TenUngDung = "Test"
TMForm = "E:\VungLapTrinh\Backup\" & TenUngDung & "\AllForms\"
TMReport = "E:\VungLapTrinh\Backup\" & TenUngDung & "\AllReports\"
TMMacro = "E:\VungLapTrinh\Backup\" & TenUngDung & "\AllMacros\"
TMModules = "E:\VungLapTrinh\Backup\" & TenUngDung & "\AllModules\"
TaoThuMuc TMForm
TaoThuMuc TMReport
TaoThuMuc TMModules
TaoThuMuc TMMacro
'Backup AllForms
For Each obj In CurrentProject.AllForms
Ten = obj.Name
SaveAsText acForm, Ten, TMForm & Ten & ".txt"
Next
'Backup AllReports
For Each obj In CurrentProject.AllReports
Ten = obj.Name
SaveAsText acReport, Ten, TMReport & Ten & ".txt"
Next
'Backup AllMacros
For Each obj In CurrentProject.AllMacros
Ten = obj.Name
SaveAsText acMacro, Ten, TMMacro & Ten & ".txt"
Next
'Backup AllModules
For Each obj In CurrentProject.AllModules
Ten = obj.Name
SaveAsText acModule, Ten, TMModules & Ten & ".txt"
Next
Exit Sub
Loi:
Err.Clear
End Sub
'Ch?c nang hàm: abc
Public Function TaoThuMuc(path As String) As Boolean
On Error GoTo Loi
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Static Start, pos As Integer
Static directory As String
Static result As Boolean
result = True
If path = "" Then Err.Raise vbObjectError + 1
If Start = Empty Then
Start = 1
Else
Start = pos + 1
End If
' find "\" if the char exists
pos = InStr(Start, path, Chr$(92))
If (pos <> 0) Then
' not at the last directory in the path string...
directory = directory + Mid$(path, Start, pos - Start) + Chr$(92)
If InStr(1, Mid$(path, Start, pos - Start), Chr$(58)) = 0 And Dir(directory, vbDirectory) = "" Then
MkDir Mid$(directory, 1, Len(directory) - 1)
End If
' call itself
result = TaoThuMuc(path)
ElseIf (pos = 0) Then
' the last directory or the only in the path string
directory = directory + Mid$(path, Start, Len(path) - Start + 1)
MkDir Mid$(directory, 1, Len(directory))
directory = ""
End If
' success return true
TaoThuMuc = result
Exit_Loi:
Set FSO = Nothing
Exit Function
' if it gets here, an exception was thrown
' propogate the error to the calling function
Loi:
Err.Clear
If FSO.FolderExists(path) = False Then
MkDir path
Resume Exit_Loi:
End If
result = False
TaoThuMuc = result
End Function