Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Tạo nút "save as" và nút "back up"
#1
Chào các bác.

Em đang mới tập tành học Access nên nhờ các bác hướng dẫn giúp em việc sau:
Trong form em muốn:
+ tạo 1 button, khi bấm vào thì sẽ tương đương với việc "save as" file access
+ tạo 1 button, khi bấm vào thì sẽ tương đương với việc "Back up database"
Em mày mò mãi mà vẫn không được sad.
P/s: em dùng access 2007 ạ
Chữ ký của Quochuy86 Xin chào, mình là Quochuy86, Tham gia http://thuthuataccess.com/forum từ ngày 02-11 -13.
Reply
Những người đã cảm ơn
#2
Bạn tạo module rồi add đoạn code bên dưới vào, sau đó tại nút lệnh bạn gọi hàm fmakebackup() ở sự kiện click của button. Còn về save as thì chịu 015

Mã:
Function fMakeBackup() As Boolean

    Dim Source As String
    Dim Target As String
    Dim retval As Integer


    Source = CurrentDb.name

    Target = "d:\backup.accdb" 'd la o dia luu tru file bakup la ten file moi
    Target = Target & Format(Date, "mm-dd") & "   "
    Target = Target & Format(Time, "hh-mm") & ".accdb"

    ' create the backup
    retval = 0
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    retval = objFSO.CopyFile(Source, Target, True)
    Set objFSO = Nothing
    MsgBox "backup thanh cong", vbInformation, "Thong bao"
End Function
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn danhxetnghiem
#3
cảm ơn bác, để em thử xem sao. big green
Chữ ký của Quochuy86 Xin chào, mình là Quochuy86, Tham gia http://thuthuataccess.com/forum từ ngày 02-11 -13.
Reply
Những người đã cảm ơn
#4
(03-12-13, 04:33 PM)Quochuy86 Đã viết: + tạo 1 button, khi bấm vào thì sẽ tương đương với việc "save as" file access
P/s: em dùng access 2007 ạ

Với AC 2003 thì code cho nút Save As là:
Mã PHP:
Private Sub Command1_Click()
    
CommandBars("Menu Bar"). _
    Controls
("Tools"). _
    Controls
("Database utilities"). _
    Controls
("Bac&k Up Database..."). _
    accDoDefaultAction
End Sub 

Còn 2007 và mới hơn thì cách trên không dùng được. mình vừa mới nghĩ ra một thủ tục để thay tạm như sau:
(Chỉ là Back up còn Convert từ 2007 sang 2003... thì mình cũng chịu 016)
-Bạn tạo button tên cmdSaveAs và code cho Event On Click như sau:
Mã PHP:
Private Sub cmdSaveAs_Click()
    
Dim aFSO As Object
    Dim FdlgOpen  
As Object
    Dim strSourceFile 
As StringstrDestination As String
    Dim strFiletype 
As StringstrFolder As String
    
    strSourceFile 
CurrentDb.Name
    strFolder 
CurrentProject.Path "\"
    strFiletype = Mid(CurrentProject.Name, InStrRev(CurrentProject.Name, "
.") + 1)
    
    Set FdlgOpen = Application.FileDialog(msoFileDialogSaveAs)
    With FdlgOpen
        .AllowMultiSelect = False
        .Title = "
Save Backup As"
        .InitialFileName = strFolder
        
        If .Show = True Then
            strDestination = .SelectedItems(1)
            If Mid(Trim(strDestination), InStrRev(Trim(strDestination), "
.") + 1) <> strFiletype Then
                strDestination = strDestination & "
." & strFiletype
            End If
            Set aFSO = CreateObject("
Scripting.FileSystemObject")
            aFSO.CopyFile strSourceFile, strDestination, True
            MsgBox "
Save Complete" & Chr(13) & strDestination
        Else
            strDestination = ""
        End If
        
    End With
    Set FdlgOpen = Nothing

End Sub 

Nếu file của bạn là front-end, back-end (tách riêng ứng dụng và cơ sở dữ liệu) thì cách trên chỉ Back Up front-end thui, Không Back up CSDL 015

Bổ sung thêm: Bạn nhớ khai báo thư viện Microsoft Office 12.0 Object (ở cửa sổ VBA code chọn Tools > Reference )
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Quochuy86
#5
Cảm ơn các bác. nhìn phức tạp wue.
Trước em làm trong excel thì code đơn giản hơn040
Chữ ký của Quochuy86 Xin chào, mình là Quochuy86, Tham gia http://thuthuataccess.com/forum từ ngày 02-11 -13.
Reply
Những người đã cảm ơn
#6
(03-12-13, 06:58 PM)quan_pc Đã viết: Bạn tạo module rồi add đoạn code bên dưới vào, sau đó tại nút lệnh bạn gọi hàm fmakebackup() ở sự kiện click của button. Còn về save as thì chịu 015

Cái này rất hay: Nhưng mình muốn trong lúc lưu Backup tạo luôn một Pass cho backup đó thì làm sao vậy bạn. Mong bạn chỉ giáo! Xin cảm ơn.
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn Quochuy86
#7
(05-12-13, 05:20 PM)danhxetnghiem Đã viết:
(03-12-13, 06:58 PM)quan_pc Đã viết: Bạn tạo module rồi add đoạn code bên dưới vào, sau đó tại nút lệnh bạn gọi hàm fmakebackup() ở sự kiện click của button. Còn về save as thì chịu 015

Cái này rất hay: Nhưng mình muốn trong lúc lưu Backup tạo luôn một Pass cho backup đó thì làm sao vậy bạn. Mong bạn chỉ giáo! Xin cảm ơn.
Cái này thì mình bó tay.
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
Bạn nào có file cho mình xem với.hi
Chữ ký của nguyenhungpm Xin chào, mình là nguyenhungpm, Tham gia http://thuthuataccess.com/forum từ ngày 05-11 -13.
Reply
Những người đã cảm ơn
#9
(12-01-14, 08:03 PM)nguyenhungpm Đã viết: Bạn nào có file cho mình xem với.hi
Tham khảo nút backup
http://haiquan.id1945.com/up/file/_537_backup.rar
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nguyenhungpm
#10
(13-01-14, 12:12 AM)quan_pc Đã viết:
(12-01-14, 08:03 PM)nguyenhungpm Đã viết: Bạn nào có file cho mình xem với.hi
Tham khảo nút backup
http://haiquan.id1945.com/up/file/_537_backup.rar

Cám ơn bạn nhiều, tiện cho mình hỏi là có cách nào để mình đặt tên file backup theo ý mình được không?hi
Chữ ký của nguyenhungpm Xin chào, mình là nguyenhungpm, Tham gia http://thuthuataccess.com/forum từ ngày 05-11 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách thay đổi Back Color của control theo giá trị toancvp 15 756 16-07-16, 10:43 AM
Bài mới nhất: toancvp
  [Hỏi] Hướng dẩn chi tiết chia file access thành Back - End để chạy trên mạng LAN nội bộ thanhtruong 7 1,117 03-08-15, 10:21 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Đặt thuộc tính Back color và Fore Color cho form hanyoungmine 3 681 31-07-15, 09:12 AM
Bài mới nhất: thanh25k62
  tạo nút lệnh [save] từ form về table . mrchau911 2 2,575 14-12-10, 10:39 PM
Bài mới nhất: mrchau911

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ