アクセスで社員番号を自動で発行する方法を教えてください。

質問

アクセスで社員番号を自動的に振る方法を教えてください。
アクセスは2003を使用しています。
社員番号の構成は７桁で、「1008001」このような番号が振られています。
頭２桁の「10」は固定です。次の２桁「08」は入社年度によって変わります。2008年5月1日以降2009年4月30日までの入社は「08」、2009年5月1日以降2010年4月30日までの入社は「09」というようになります。最後3桁は連番になります。ただ、「08」から「09」になったときはまた「000」からスタートになります。このような社員番号を入社年月日を入れたら自動的に発番される方法はないでしょうか？
下記のものをコピペしてみたところ、
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub 入社年月日_AfterUpDate()
Dim NO As Integer
Dim NOTOP As String
NOTOP = "10" & Format(DateAdd("m",-3,[入社年月日]),"yy")
'年度内社員数抽出
NO = DCOUNT("テーブル名","社員番号 Like '" & NOTOP & "*'")
'年度内最大社員番号抽出
If NO > 0 Then
NO = Cint(Right(DMAX("テーブル名","社員番号 Like '" & NOTOP & "*'"),3))
End If
'社員番号発行
If NO = 999 Then Goto OVF
[社員番号] = NOTOP & Format(NO + 1,"000")
End If
Exit Sub
'オーバーフロー
OVF:
NO = MsgBox("年度社員番号が999を超えています。",VbOkOnly,"社員番号発行")
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
年度内社員数抽出の
NO = DCOUNT("テーブル名","社員番号 Like '" & NOTOP & "*'")
社員番号Likeは見つかりませんでしたというエラーメッセージが
出てしまいました。
さらに、End Ifに対するIfがありませんともメッセージが出てしまいます。
ＶＢＡはまったくわからないので、どうかご教授お願い致します。

回答No.9

CHRONOS_0 · ベストアンサー

>Sub 入社年月日_AfterUpDate()
>Dim MaxNO As Integer
>Dim NOTOP As String
またまた見落としです
MaxNOはIntで宣言してありますね
これじゃオーバーフローして当然です
Longに代えてください
ところでこのコード本当にどこかから拾って来たの?
どこかに掲載してあったとしたらあまりにもミスが多すぎますよ
本当はあなたが書いたものじゃないの?

お礼

ありがとうございます！
できました！！何度も何度もありがとうございました。
またこのあとも作成をするのでわからないことがありましたら質問させて頂きますのでその時はまたよろしくお願い致します。

ちなみにこのコードはOKWAVEで、最初、社員番号を自動的に振るにはどうしたらいいですか？と質問したんです。そしたらこのコードの回答を頂いたのですが、エラーしてしまうんですとまた質問させて頂いたきりご返答頂けず、こちらに最初回答を頂いたコードをコピペして改めて質問させて頂いたんです。
本当にありがとうございました。

回答No.8

CHRONOS_0

社員番号のデータ型は?
整数型だと32768までしか格納できませんよ

補足

数値型の長整数型です。これではだめでしたでしょうか？？
今入っているデータは２００個くらいなんです。

回答No.7

CHRONOS_0

あらら!とんでもないポカをしていましたね
修正したコードのDMaxの引数の順序が間違っているのに気がついてませんでした
(よく見るとDCountのほうもおかしいですね。かなりひどいコードですね）
失礼しました

MaxNO = Nz(DMax("社員番号","人事管理", "left(社員番号,4)='" & NOTOP & "'"), NOTOP & "000")

に変えてください

補足

度々、ありがとうございます！！
コピペさせて頂きました。
またエラーが出てしまいました・・。
今度は「実行時エラー6 オーバーフローしました」とメッセージが出てしまいました。でも今テーブルに入っている社員番号は1008022までなので、まだまだ空きがあるはずなのですが・・・。
そしてまた、MaxNO = Nz(DMax("社員番号","人事管理", "left(社員番号,4)='" & NOTOP & "'"), NOTOP & "000")この部分が黄色く塗りつぶされてしまいました。
度々申し訳ありませんがよろしくお願い致します。

回答No.6

CHRONOS_0

>でもやはり、エラーになり、直前の操作はキャンセル・・・というメッセージがでて、
>先ほどの所が黄色く塗りつぶされている状態になりました。
おかしいですね、なんかぴんとくるとことのないエラーですね
正確なエラーメッセージとエラー番号は何でしょう

それと社員番号フィールドのデータ型は何でしょう

補足

今日はまた前回のメッセージで、「実行時エラー3078」「入力テーブルまたはクエリ'社員番号’が見つかりませんでした。そのテーブルやクエリが存在していること、または名前が正しいことを確認してください。」とでて、
MaxNO = Nz(DMax("人事管理", "社員番号", "left(社員番号,4)='" & NOTOP & "'"), NOTOP & "000")の所が黄色く塗りつぶされました。
テーブル名はあっていますし、社員番号もテーブルの中に社員番号という名前で入れてあります。
社員番号は数値型で入れています。ちなみにテキスト型でも試してまいましたが同じでした。
今日は直前の操作はキャンセルされましたというメッセージは出ませんでした。
何度もすみませんが、よろしくお願い致します。

回答No.5

bonaron

「elseに対応するifがありません」と表示されます。
http://oshiete1.goo.ne.jp/qa4316690.html

補足

ありがとうございます。
頂きましたURLを参考に、最初に入れていたもので改行してみましたが、
'年度内社員数抽出
NO = DCOUNT("テーブル名","社員番号 Like '" & NOTOP & "*'")
の部分が黄色く塗りつぶされて、社員場号Like1008が見つかりませんでした。というエラーメッセージが出てしまいました。。。。

回答No.4

CHRONOS_0

アップしてあったコードを添削しただけだったので
見落としていましたが下のところもおかしいですね
>[社員番号] = MaxNO+1
社員番号の前にMeを付けてください

Me.[社員番号] = MaxNO+1

補足

ありがとうございます。
今、Me.[社員番号] = MaxNO+1に修正しました。
でもやはり、エラーになり、直前の操作はキャンセル・・・というメッセージがでて、先ほどの所が黄色く塗りつぶされている状態になりました。
社員番号をテキスト型とか数値型といろいろ書式を変えてみたりもしたのですが。。。
何度も何度もすみません。。

回答No.3

CHRONOS_0

まさかテーブル名のところもそのままじゃないでしょうね
そこにはあなたのテーブル名を入れるのですよ

補足

テーブル名は作成したテーブル名を入れています。
「人事管理」というテーブル名なので、人事管理と入れました。そこを間違えているのかなと思い、テーブルの名前をコピペして入れてみたのですが、それでもエラーになってしまいました。。。。

回答No.2

CHRONOS_0

失礼しました。間違ってますね
MaxNO = Nz(DMax("テーブル名","社員番号","left(社員番号,4)='" & NOTOP & "'"),NOTOP & "000")
に変えてください
=の後にシングルクォーテーションを追加しています

補足

度々ありがとうございます。
またコピペさせて頂いたのですが、またエラーが出てしまいました。
メッセージは、直前の操作はキャンセルされました。としかでないのですが、やはり「MaxNO = Nz(DMax("テーブル名","社員番号","left(社員番号,4)='" & NOTOP & "'"),NOTOP & "000")」の部分が黄色く塗りつぶされている状態になってしまいました。
もともとの私のアクセスの作り方が間違っているのでしょうか。
すみませんが再度教えていただけますか？
よろしくお願い致します。

回答No.1

CHRONOS_0

あまりいいプログラムじゃないですね
どこから持ってきたの？

NOなんて非常に危険な予約語を変数名に使うのは絶対にNGです

Sub 入社年月日_AfterUpDate()
Dim MaxNO As Integer
Dim NOTOP As String
NOTOP = "10" & Format(DateAdd("m",-3,[入社年月日]),"yy")
'年度内社員番号の最大抽出
MaxNO = Nz(DMax("テーブル名","社員番号","left(社員番号,4)=" & NOTOP & "'"),NOTOP & "000")

'社員番号発行
[社員番号] = MaxNO+1

End Sub

オーバーフローは考慮していません
オーバーフローする恐れがわずかでもあるのなら最初から桁数をもうひとつ増やしておくのが
データベース設計のやりかたです

補足

ありがとうございます！！
他のサイトで書かれていたのでそのままコピペさせてもらっちゃったんです。
ＮＯはＮＧということすら知りませんでした。。。
教えて頂いてありがとうございます。

CHRONOS_0さんのをコピペさせて頂いたところ、
MaxNO = Nz(DMax("テーブル名","社員番号","left(社員番号,4)=" & NOTOP & "'"),NOTOP & "000")
この部分で「'クエリ式left(社員番号,4)=1008"の構文エラーです。」と出てしまいました。
テーブルとフォームだけ作ってあって、フォームに入社年月日を入れたら出るようにと思い、フォームの入社年月日にコピペさせて頂いたのですが、違ったのでしょうか？
すみませんが、再度教えて頂けますか？
あとオーバーフローすることはないので大丈夫です。
よろしくお願いします。