Tùy chọn
[Help] Tạo nút "save as" và nút "back up"
- [Help] Tạo nút "save as" và nút "back up"
-
[Help] Tạo nút "save as" và nút "back up"
Quochuy86 > 03-12-13, 04:33 PM
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
.
P/s: em dùng access 2007 ạ -
RE: [Help] Tạo nút "save as" và nút "back up"
quan_pc > 03-12-13, 06:58 PM
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
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 -
RE: [Help] Tạo nút "save as" và nút "back up"
Quochuy86 > 04-12-13, 10:53 AM
cảm ơn bác, để em thử xem sao.
-
RE: [Help] Tạo nút "save as" và nút "back up"
MTNQ > 05-12-13, 12:56 AM
(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
)
-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 String, strDestination As String
Dim strFiletype As String, strFolder 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
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 ) -
RE: [Help] Tạo nút "save as" và nút "back up"
Quochuy86 > 05-12-13, 11:40 AM
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ơn
-
RE: [Help] Tạo nút "save as" và nút "back up"
danhxetnghiem > 05-12-13, 05:20 PM
(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
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. -
RE: [Help] Tạo nút "save as" và nút "back up"
quan_pc > 06-12-13, 03:04 PM
(05-12-13, 05:20 PM)danhxetnghiem Đã viết:
Cái này thì mình bó tay.(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
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. -
RE: [Help] Tạo nút "save as" và nút "back up"
nguyenhungpm > 12-01-14, 08:03 PM
Bạn nào có file cho mình xem với.hi -
RE: [Help] Tạo nút "save as" và nút "back up"
quan_pc > 13-01-14, 12:12 AM
(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 -
RE: [Help] Tạo nút "save as" và nút "back up"
nguyenhungpm > 13-01-14, 10:45 AM
(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