Public Sub Sample() Dim myDB As Database Dim myRS As DAO.Recordset Dim myQuery As QueryDef Dim mySQL As String 'SQLステートメントを定義する mySQL = "SELECT * FROM 社員テーブル;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb '…

特殊な記号（$など）を含む名前の場合は、[]で囲む必要がある。"DROP TABLE " & テーブル名 ↓ "DROP TABLE [" & テーブル名 & "]"

あと本なんかには書いてないですが・・ADOとDAOを使う場合には 宣言では ConnectionやRecordSetの前にはADODB.を DatabaseやRecordSetの前にはDAO.をきちんとつけるようにした方がいいですね 思わぬ実行時エラーとなりかねませんのでhttp://www.accessclub.n…

Dim dirPath As String Dim excelFileName As String Dim objXap As Excel.Application Dim xlsbok As Excel.Workbook dirPath = CurrentProject.Path excelFileName = "Excelファイル名" Set objXap = CreateObject("Excel.Application") objXap.Applicatio…

AccessからExcelのリンクデータを修正、追加することはできるようですが削除だけはだめみたいです。 追加、変更はデータを書込むだけでいいのですが削除は行削除というエクセルの機能を使用しなければならないからでしょうか？ぐあ。まさしくそれがやりたい…

[オブジェクトのインポート]ウィンドウで[オプション]を押下し、[インポート/エクスポートの定義]にチェックを入れ、[OK]を押下

「キー違反のため０件のレコードデータが失われ○○件のレコードが削除されました。」 インポート先のテーブルで主キー設定をしているとエラーとなる。

テーブル右クリック→エクスポートクリック→テキスト形式を指定→テキスト形式でのエクスポートウィザードが表示される→詳細クリック定義クリックでエクスポート定義一覧から削除・開くが可能。保存クリックで設定したエクスポート定義が名前をつけて保存でき…

メニューバーに【表示】ボタンが表示されないので、データベースウィンドウが開けない。【ツール】ボタンも表示されないのでVBAエディタも開けない。まぁこれは既存のプロジェクトの仕様なんだろけども。 てなわけでデータベースウィンドウを開く方法。Shift…