Accessで連番を振るには条件にあう行をカウントする為、dcount(*,テーブル 名,連番を振りたい条件)と言う感じで書くことになるが、連番の条件にidのようなユニーク（値が重複しない）なキーがなければ、そのようなキーを持つフィールドが必要になる。これがないと、連番を振りたい条件に合致する行が複数ある場合、順番に番号を振ることができない。
ここで一息のコーナー。超簡単な枝豆の作り方です。 まず、枝豆を洗う。 次にフライパンに枝豆＋水(枝豆２袋なら70cc)を入れてフタをして中火で7分ぐらい蒸す（ツマミぐして、食べ頃を見極めるのが肝要）。 時々、かき混ぜる。 余った水分を切り、最後に塩をツマミ振って、これで完成だ。
マイクロソフトはAccessで日時データを扱う時には#で挟むという「おまじない」を強制するので、忘れないようにするしかない。
Set objConn = CreateObject("ADO.Connection")
objConn.ConnectionString = "DSN=DSN1;UID=user1;PWD=password1;"
objConn.Open
SQLサーバのテーブルをリンクした、選択クエリを作成している場合、SQLサーバのテーブルへアクセスするのにログイン画面がでてくる。
そのログイン画面を出さないためには、Docmdを使った「簡単な」方法があるのだ。
以下のコードを標準モジュールのどこかに記述してやる。
DoCmd.DeleteObject Actable,"dbo_TBL-A" DoCmd.TransferDatabase acLInk,"ODBC Database", _ "ODBC;DSN=dsn_name;UID=user_id;PWD=pass_wd; _ & "DATABASE= database_name",acTable,"tabl_name","dbo.tbl_name"このテクニックのミソは、TransferDatabaseでSQLサーバのテーブルへのリンクをログイン画面をださすに接続できる、つまり、自動的にコード内で密かにログインしているところだ。そのためにTransferDatabase acLInkの後ろにDB接続情報を記述している。そこがミソなのだ。ちなみにこの文字列はACCESSのリンクテーブルにカーソルを持っていくと、ヌッと表示されるのだ。試してもらいたい。 そして、SQLのテーブルを参照した選択クエリを実行し、EXCELにエクスポートするという２つの操作を１つのDocmdで実現できてしまうのだ。実に効率がいいね。
Dim file1 As String Docmd TransferSpreadsheet acExport,acSpreadsheetTypeExcel12Xmi,"SELECT_QUERY_USING_SQLserversTable",file1,True