Function GetXlData(InPath, InFile) As Boolean ' パス＆ファイル名のエクセルデータを丸ごと読み込んで ' データ変換後 Access に取り込む。 GetObject() 使用。 ' Access側の既にあるテーブルに全て文字列フィールドとして格納。 ' 参照設定：Microsoft …

DoCmd 実用例 http://www.tsware.jp/tips/tips_008.htm 'Accessダイアログ非表示 DoCmd.SetWarnings False DoCmd一覧 http://www.geocities.jp/cbc_vbnet/kisuhen/docmd.html

ゼロ埋め http://www.accessclub.jp/bbs/0020/beginers9266.html

Dim sSQL As String sSQL = "SELECT FUGA, 構造 FROM HOGE" sSQL = sSQL & " WHERE FUGA = '" & Range("C3").Value & "'" sSQL = sSQL & " AND MOFU like '%" & Range("D3").Value & "%'" sSQL = sSQL & " ORDER BY FUGA DESC;" これじゃ検索できない sSQL …