Ａｃｃｅｓｓからデータを移動するには？ (ID:114125)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません。個人的にはDAOは使わず、ADOを使っているため詳しくない部分があるのでごめんなさい。 Set db = ws.OpenDatabase("店舗.mdb") だけではDBのファイルを開いただけで、レコードセットは開いていません。 ********************************************* Dim cn As DAO.Database, rs As DAO.Recordset Dim mySQL As String '*** 店名テーブルの店名フィールドのみを店名の順序で取り出すSQL文 mySQL = "SELECT 店名 " _ & "FROM 店名 " _ & "ORDER BY 店名 " '*** DBを開きます Set db = DBEngine.Workspaces(0).OpenDatabase("店舗.mdb") '*** レコードセットを開きます Set rs = db.OpenRecordset(mySQL, dbOpenDynaset) 'コンボボックスに書き込みます With cmb_mise .Visible=False .Clear rs.MoveFirst Do .AddItem rs("店名") rs.MoveNext Loop Until rs.EOF '*** ここでレコードセットとDBをとじます rs.Close db.Close '*** 後処理 .ListIndex = 0 .Visible=True End With ********************************************************** Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)のところがちょいとあやしいので動かなかったらごめんなさいです