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

アクセス2000での月別オートナンバー

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

お礼率 100% (1/1)

アクセス2000で年別月別でのナンバリングは可能でしょうか?

例えば
平成13年12月に入力したものに
「1312001,1312002」と番号をふっていく。

よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル13

ベストアンサー率 46% (643/1383)

「テーブル1」の「ID」フィールドに連番を格納する際の方法です。
フォーム上でデータ入力を行ったときのみ有効。

1:フォームをデザインモードで開く
2:フォームの[更新前処理]を「イベントプロシージャ」にして、右の[…]をクリック
3:VBAの編集画面になるので、以下のように入力。

Private Sub Form_BeforeUpdate(Cancel As Integer)
 Dim SQL As String
 Dim RS As Recordset
 Dim MaxID As String
 If Me.NewRecord Then
  SQL = "SELECT Max(ID3) AS MaxID" _
    & " FROM テーブル1"
    & " WHERE ID3 Like '" & Format$(Date, "eemm") & "*';"
  Set RS = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)  
  MaxID = Format$(Date, "eemm") & Format$(Val(Right$(Nz(RS![MaxID]), 3)) + 1, "000")
  Me.ID3 = MaxID
 End If
End Sub

尚、このやり方では、複数のユーザが同時にレコードの更新を行ったときはダブった番号が入力されてしまうかもしれません。
もし複数のPCから同じデータベースを共有されているのでしたら、一旦レコードをロックして…云々ってな処理が必要ですね。
お礼コメント
beginner123

お礼率 100% (1/1)

ありがとうございます!
早速やってみます!助かりました!
投稿日時 - 2001-12-06 09:58:02
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

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

特集


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

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ