From Evernote:

[ACCESS]ACCESS97/2000→ACCESS2.0用のVBA変換

フツウの人はまずナイと思うけど

ACCESS97/2000用に書いたVBAをACCESS2.0で実行させることに。

その際、色々記述方法が変わるのでその対比表。

---

●Dim FlgTest As Boolean　

Boolean型は使えない。Integer等に変換。

---

●Set db = CurrentDb　　

　CurrentDbの記述NG。

  '---------------------------------------

　Set db = DBEngine.WorkSpaces(0).Databases(0)　

  '---------------------------------------

  または　

  '---------------------------------------

  Set db = DBEngine(0)(0)

  '---------------------------------------

　と書く。

---

●For Each tb In db.TableDefs

ForEach分がダメみたいなので、この場合は

  '---------------------------------------

     For i = 1 To db.TableDefs.Count    

          Set tb = db.TableDefs(i - 1)

  '---------------------------------------

となる。

---

●Dim db As DAO.Database, tb As DAO.TableDef

  ACCESS2.0に関してはDAOも何もないので？

  '---------------------------------------

Dim db As Database, tb As TableDef

  '---------------------------------------

に。

---