タイトル : Re^4: MS-ACCESSの解放が出来ません 投稿日 : 2016/02/03(Wed) 16:41 投稿者 : SUZUKI
> > 実はVB2005への変換で、他にもいっぱいつまずいておりまして > 2005 化にあたり、「Option Strict On」でコンパイルできることを目指すと良いですよ。 最終的には「Option Strict On」にしたいと思います 現時点では、技量が無く収集がつかなくなり中止しています > > Dim tblDefs As Object > > Dim tblNew As Object > > Dim flds As Object > これらの型は、 > Dim tblDefs As DAO.TableDefs > Dim tblNew As DAO.TableDef > Dim flds As DAO.Fields > が適切かと。 > なるほど、勉強になります 最終形は下記のようになると思うのですが fld1 の定義ですがObjectでよろしいのでしょうか Object型も実はよくわかっておらずはずかしいです Dim DB As dao.Database Dim tblDefs As dao.TableDefs Dim tblNew As dao.TableDef Dim flds As dao.Fields Dim fld As dao.Field Dim fld1 As Object Dim CC As Short Dim CC1 As Short Dim fieldflag As Boolean DB = dbe.OpenDatabase(DbName) tblDefs = DB.TableDefs tblNew = tblDefs("DATABASE") flds = tblNew.fields cc1 = flds.COUNT - 1 For CC = 0 To cc1 fld = flds(CC) fld1 = fld.name If fld1.ToString = "A区分" Then fieldflag = True End If MRComObject(fld1) MRComObject(fld) Next |