compact + repair with VBA
กระทู้เก่าบอร์ด อ.Yeadram

 1,704   3
URL.หัวข้อ / URL compact + repair with VBA

แนะนำการเขียน code
กระชับและซ่อมแซม ฐานข้อมูล ด้วย VBA หน่อยครับ
โดย: gigg เมื่อ: 15 ม.ค. 2553 , 16:24

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04650


Access.Application.CompactRepair
โดย: คนไม่มีชื่อ เมื่อ: 15 ม.ค. 2553 , 21:37
2 @R04662
มันฟ้องตามนี้ครับ
compile error :
Argument not optional
โดย: gigg เมื่อ: 16 ม.ค. 2553 , 14:00
3 @R04666
   Sub CompacMDB()
   Dim dbNam As String
   dbNam = "\KORATORGANIZER.mdb"
   If Dir(CurrentProject.Path & "\h22.mdb") <> "" Then Kill CurrentProject.Path & "\h22.mdb"
    DBEngine.CompactDatabase CurrentProject.Path & dbNam, CurrentProject.Path & "\h22.mdb"
    Kill CurrentProject.Path & dbNam
    DBEngine.CompactDatabase CurrentProject.Path & "\h22.mdb", CurrentProject.Path & dbNam
    If Dir(CurrentProject.Path & "\h22.mdb") <> "" Then Kill CurrentProject.Path & "\h22.mdb"
   End Sub
โดย: yeadram เมื่อ: 16 ม.ค. 2553 , 16:21
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4327s