OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ACCESSのモジュールで

  • 困ってます
  • 質問No.125479
  • 閲覧数200
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 87% (34/39)

おはようございます。
Access97で受注管理データベースを作成しています。
新規顧客コード作成の際、いくつかの条件でコードを分けています。
そのためSQLで抽出し、それに1を足して新規コードとしています。

たとえば下記のSQL文を書き、
mySQL="SELECT Max(顧客コード) AS 顧客コードの最大 FROM 顧客マスタ GROUP BY グループ HAVING (グループ='CB');"

その抽出結果を取得したいのですが、そのためにはレコードセットとみなさせるのかと思い、いろいろやってみたのですが、結局出来ません。(それからして怪しい)
VBAお勉強中で根本的に仕組みを理解できていないせいだと思うんですが、
数冊参考書を見ても分かりませんでした。

分かりにくい質問文ですみません。どなたか助けてください。よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル8

ベストアンサー率 40% (9/22)

Dim DB As Database
Dim RRS As Recordset
Dim SQL As String

Set DB = CurrentDb
SQL ="SELECT Max(顧客コード) AS 顧客コードの最大 FROM 顧客マスタ GROUP BY グループ HAVING (グループ='CB');"
Set RRS = DB.OpenRecordset(SQL, dbOpenSnapshot)
Me!顧客コード = RRS!顧客コードの最大 + 1
RRS.close

上記の方法でいかがでしょうか?
お礼コメント
kyoukorumi

お礼率 87% (34/39)

ありがとうございます!
あーだこーだやってたのに、あっけなくできました。
本当にどうもありがとうございました。
投稿日時 - 2001-08-28 11:13:01
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ