• Trang chủ click to expand contents 

  • 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]

  • RE: Convert Access 97 to Access 2010

    kieu manh > 08-05-21, 08:15 PM

    (08-05-21, 08:03 PM)ongke0711 Đã viết:
    (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]
    thấy rồi ... nó hide đi mới unhide mới thấy

  • 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