1
ห้อง MS Access / msgbox แจ้งว่า กำลังทำการสำรองข้อมูล
« เมื่อ: 14 พ.ค. 62 , 11:00:28 »
ขณะสำรองข้อมูลอยากให้มี msgbox แจ้งว่าตอนนี้กำลังทำการสำรองข้อมูลอยู่
หลังจากสำรองข้อมูเสร็จ ก็อยากให้ขึ้นข้อความแจ้งว่า สำรองข้อมูลเสร็จแล้ว ตอนนี้ผมมีแจ้งแค่ตอนทำเสร็จแล้วเท่านั้นครับ
ไม่ทราบว่าต้องทำเช่นไรครับผม
Dim oFSO As Object
Dim strDestination As String
strDestination = "\\server\"
DBEngine.Idle
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile CurrentProject.Path & "Data1.accdb", strDestination
Set oFSO = Nothing
MsgBox ("สำรองข้อมูลเสร็จแล้ว"), vbOKOnly + vbInformation, "Process Completed"
หลังจากสำรองข้อมูเสร็จ ก็อยากให้ขึ้นข้อความแจ้งว่า สำรองข้อมูลเสร็จแล้ว ตอนนี้ผมมีแจ้งแค่ตอนทำเสร็จแล้วเท่านั้นครับ
ไม่ทราบว่าต้องทำเช่นไรครับผม

Dim oFSO As Object
Dim strDestination As String
strDestination = "\\server\"
DBEngine.Idle
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile CurrentProject.Path & "Data1.accdb", strDestination
Set oFSO = Nothing
MsgBox ("สำรองข้อมูลเสร็จแล้ว"), vbOKOnly + vbInformation, "Process Completed"
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี