• 締切済み

ACCESS VBA DAOからSQLに変更

ACCESS DAOのシステムをSQL版に修正しています。 修正元でDMAX等を使っているところの修正で、カレントデータベースで ないデータベースの参照があります。どのように修正したら良いか教えて ください。 (1)Me.行 = Nz(DMax("[行]", "W_売上伝票"), 0) + 1              ↓ (2)Me.行 = Nz(DMax("[行]", "WORK..W_売上伝票"), 0) + 1  もともと、(1)をW_売上伝票(テーブル)はWORKと言うデータベースに存在 するので(2)のように修正しましたが、エラーになります。 とは言え、下のように修正するには、面倒なので(2)をどのように修正したら 良いか教えて下さい。 Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset sql = "SELECT MAX(行) as M_行 FROM WORK..W_売上伝票"" rs.Open sql, cn if not rs.EOF me.行=rs!M_行+1 end if rs.Close 宜しくお願いします

みんなの回答

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.1

単純にWORKのW_売上伝票をカレントデータベースに リンクして、(1)をそのまま使えばいいのでは。

kirin4247
質問者

補足

piroin654さん 回答ありがとうございます。 カレントデータベースへリンクすると言う方法がよくわかりません。よろしければ詳しく教えて頂けませんか? あと、W_売上伝票ですがパソコンごとのワークファイルなので、実際はW_売上伝票+IPアドレスで 売上入力を立ち上げるたびに、WORKデーベースの中に、CREATE TABLE 終了時にDROPするように扱いにしています。 SQLのカレントデータベースは、ACCESS2003「ファイルの接続」で指定しています。 よくわからず質問していますが、宜しくお願いします。

関連するQ&A