|
■No30585 (ゆうたん さん) に返信 > 早速ですが、VBの処理でAccessにあるテーブルの文字列を検索して、該当する文字列が存在した場合に、ラベルに表示するにはどうすれば宜しいでしょうか。 Dim ws As DAO.Workspace, db As DAO.Database Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("C:\hoge\hoge.mdb")
Dim i As Integer
For i = 0 To db.TableDefs.Count - 1 If InStr(db.TableDefs(i).Name, "hoge") > 0 Then 'ラベルに表示 End If Next i db.Close Set db = Nothing ws.Close Set ws = Nothing
こんな感じ?
|