อยากทราบคำสั่งคัดลอกฐานข้อมูล สำหรับAccess2016ครับ


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

14 พ.ย. 63 , 15:12:05
อ่าน 891 ครั้ง

ekppom

รบกวนสมาชิกในกลุ่มหน่อยนะครับ คือผมค้นหาวิธีการคัดลอกฐานข้อมูลจากโฟลเดอร์Aไปยังโฟล์เดอร์B คำสั่งที่ได้คือFCopy ซึ่งผมไม่สามารถใช้ในAccess2016 ได้ครับ เพราะคำสั่งนี้มันนานมากแล้ว เวลาคลิกที่ปุ่มมันจะError อยากทราบว่ามีคำสั่งอื่นที่สามารถใช้ได้หรือไม่ครับ
ขอบคุณครับ

 

16 พ.ย. 63 , 08:06:08
ตอบกลับ #1

PNR

ลองดูครับโค้ดทั้งหมดนี้ไปเปลี่ยนเฉพาะตำแหน่งของFloder ฐาน และ ตำแหน่งของ Floder ที่จะนำไปวาง

โค๊ด: [Select]
Private Sub CmbCopyFile_Click()
   Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim I As Long
    Dim FileInFromFolder As Object

    FromPath = "C:\FloderA\"  '<< ตำแหน่ง Floder ของข้อมูลฐานหลัก
    ToPath = "D:\FloderB"    '<< ตำแหน่งของ Floder ที่จะวางฐานที่ Copy มาลงแต่จะวางทับข้อมูลฐานหลักฐานอันเก่าที่เคย คัดลอกมา

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If
    If Right(ToPath, 1) <> "\" Then
        ToPath = ToPath & "\"
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " ไม่มีไฟล์ในตำแหน่งที่ระบุ"
        Exit Sub
    End If
    If FSO.FolderExists(ToPath) = False Then
         MsgBox " ไม่พบ Floder ปลายทาง"
        Exit Sub
    End If
    I = 0
    For Each FileInFromFolder In FSO.getfolder(FromPath).Files
            FileInFromFolder.Copy ToPath
            I = I + 1
    Next FileInFromFolder   
If I = 0 Then
     MsgBox "ไม่มีข้อมูลที่จะCopy ข้อมูลไปไว้ที่ > " & ToPath, vbOKOnly, "โปรแกรมเวชระเบียน"
Else
     MsgBox "Copy ข้อมูลไปไว้ที่ > " & ToPath & "จำนวน " & I, vbOKOnly, "โปรแกรมเวชระเบียน"
End If
End sub
« แก้ไขครั้งสุดท้าย: 16 พ.ย. 63 , 08:32:00 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: ekppom

16 พ.ย. 63 , 14:38:19
ตอบกลับ #2

ekppom

ทำได้ครับ ขอบคุณมากๆนะครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5