AccessのVBAはコピーではだめなのでしょうか

質問

度々お世話になります

先日よりAccessの連番の振り方をご教示いただき何とか振れるようになりました

そこで、同じAccess内に新たなフォームを作成し、同じように連番を振ろうとしました

しかし、最後のアルファベット部分が順番にならず、ずーっと同じになってしまいます
≪やりたいこと↓≫
同日の時はA～Zまで順番に振りたい(1日26件まで)、翌日はまたAから始まる

≪現状≫
ずーっと”A”

≪1番最初の質問≫
下記のような連番を振る方法を教えてください

"Eyymmdd A　"E"は固定で　yy(西暦2ケタ）mm(月）dd(日）A(Aから始め、同じ日だとB,C,…と最大26(Z)まで）振っていく。日が変わるとまたAから始まる

「テーブル名」連絡文書E
「クエリ名」連絡文書Eクエリ
「フォーム名」連絡文書E

「フィールド名」管理番号（テキスト型）
E110105 A
E110130 A
E110130 B
E110130 C
E110202 A…

と"E"を固定 yy(西暦2ケタ）mm(月）dd(日）Aから始まり、同日であればB,C～と
日が変わるとAからまた始まるという連番をふりたいです

≪ご教示いただいた回答≫
Function getNewSeq()
　　If Format(Date, "yymmdd") = Mid(DMax("管理番号", "連絡文書E"), 2, 6) Then
　　　　If Right(DMax("管理番号", "連絡文書E"), 1) = "Z" Then
　　　　　　MsgBox "Zまで一杯です"
　　　　　　Exit Function
　　　　End If
　　　　getNewSeq = "E" & Format(Date, "yymmdd") & " " & _
　　　　　　　　　　Chr(Asc(Right(DMax("管理番号", "連絡文書E"), 1)) + 1)
　　Else
　　　　getNewSeq = "E" & Format(Date, "yymmdd") & " " & "A"
　　End If
End Function

さらに、フォームでも
デザインビューでフォームのプロパティのイベントの、「レコード移動時」に
Private Sub Form_Current()
If Me.NewRecord Then
Me!管理番号 = getNewSeq
End If
End Sub

今回、VBAとフォームのプロパティはご教示いただいたもの(上記)をコピーしました

「テーブル名」一般文書D
「クエリ名」q_一般文書Dクエリ
「フォーム名」一般文書D2

「フィールド名」発行番号（テキスト型）
としたので、

”管理番号”を”発行番号”
”連絡文書E”を”一般文書D”
”E”を”D”
としてみました

新規レコードに移る度に”D111107（yymmdd)A”となります
”A”をB、C～となる方法をぜひご教示下さい

長々とすみません
何卒よろしくお願いいたします

回答No.1

ap_2 · ベストアンサー

コピペしたものを元にしても、変更内容が正しければ動きます。ただ、理解してる感じがしない意味で、コピーではダメ・・・ですね（－－；

ぱっと見その変更でよさそう。なぜAになるかな？
　1.If文が必ずElseルートに入っちゃうのか
　2.前の関数をコールしちゃってるのか
1ならたぶん修正漏れ。2だとしたら、getNewSeqを標準モジュールに定義していて、新しい関数は別名で作ったのにMe!管理番号=getNewSeqの部分変えてないとか・・・でしょうか。

MsgBoxでメッセージや値を簡単に表示できます。こんなの↓を要所に入れて確認に使ってください。
　MsgBox "○○の処理中"
　MsgBox DMax("管理番号", "連絡文書E")

また、VBE(VBAのエディタ)には、ブレイクポイントやステップ実行やローカルウィンドウなど便利な機能があります＠「VBA デバッグ」とかで検索。
あんま頼りきりだと怒られちゃうよ。少しずつお勉強を。

お礼

ありがとうございます
ご指摘の１、２、ともに該当していたようです
順を折って修正したところ動きました
理解がまだまだたりないので勉強させていただきます

回答No.2

30246kiku

> 先日よりAccessの連番の振り方をご教示いただき何とか振れるようになりました
> そこで、同じAccess内に新たなフォームを作成し、同じように連番を振ろうとしました
> しかし、最後のアルファベット部分が順番にならず、ずーっと同じになってしまいます

> ≪現状≫
> ずーっと”A”

> ”管理番号”を”発行番号”
> ”連絡文書E”を”一般文書D”
> ”E”を”D”
> としてみました

> 新規レコードに移る度に”D111107（yymmdd)A”となります

という事のようですが、
実際に記述したものを見ないで「何故」は誰もわからないと思います。
参考にしたものの記述ではなく、現象が起きた記述を提示すべきだと思いますが。

何をされているVBA記述であるか理解されていますか。
やりたいことは、VBA等でないとできないものと思います。

やっていることはほとんど同じですが、私だったらというものを以下に書いてみます。
標準モジュールに記述します。
（同じ関数名もあるので別のテスト環境でやってみてください）

Private Function GetNewSeq(dt As Date _
　　　　　　　　, sHead As String, sField As String, sTable As String) As String
　　Dim sS As String
　　Dim sW As String, s1 As String, s2 As String
　　Const sDEF As String = " @"
　　Const sLMT As String = "Z"

　　sS = sHead & Format(dt, "yymmdd")
　　sW = sField & " Like '" & sS & "*'"
　　sW = Nz(DMax("Right(" & sField & ",2)", sTable, sW), sDEF) '☆1
'　　sW = Nz(DMax(sField, sTable, sW), sDEF) '★1
'　　sW = Right(sW, 2) '★1
　　s1 = Left(sW, 1)
　　s2 = Right(sW, 1)
　　If (s2 = sLMT) Then
　　　　If (s1 = Left(sDEF, 1)) Then '☆2
　　　　　　s1 = Right(sDEF, 1) '☆2
　　　　End If '☆2
　　　　s1 = Chr(Asc(s1) + 1) '☆2
　　　　s2 = Right(sDEF, 1) '☆2
　　End If
　　GetNewSeq = sS & s1 & Chr(Asc(s2) + 1)
End Function

Public Function EgetNewSeq(Optional dt As Date) As String
　　EgetNewSeq = GetNewSeq(IIf(dt = 0, Date, dt) _
　　　　　　　　　　　　　　, "E", "[管理番号]", "[連絡文書E]")
End Function

Public Function DgetNewSeq(Optional dt As Date) As String
　　DgetNewSeq = GetNewSeq(IIf(dt = 0, Date, dt) _
　　　　　　　　　　　　　　, "D", "[発行番号]", "[一般文書D]")
End Function

採番の処理は同じなので、関数を１つにします。
違う部分を引数で渡すようにします。

いつのデータに、頭の文字は、採番するフィールド名は、対象のテーブル名は。

☆1 部分が嫌なら ☆1 をコメントにして ★1 を有効にしてください。
また、"Z" を越えようとした場合、
"E111107 Z" の次は "E111107AA" になるようにしています。（☆2 部分）
従来の処理がよければ、☆2 部分を変更してください。

指定された、頭の文字と日付から sS = "E111107" の基本部分を作成します。
DMax("Right([管理番号],2)", "[連絡文書E]", "[管理番号] Like 'E111107*'")
で最大の右２文字分を入手します。
ない場合は、初期文字列 " @" を設定しておきます。
（"A" の１つ前の文字は "@" なので）
s1 が1つ前の文字、s2 が最後の文字、s2 が "Z" なら、s1 を作り直して・・・・
最終的に s2 の文字を１つ進めて・・・・ってな処理・記述内容になります。
"A" を "B" にするには、Chr(Asc("A") + 1) とすればできます。

フォームへの記述は、従来のように新規レコードに移動した時に行っても良いですし、
以下のように挿入前処理で採番しても良いと思います。
また、タイミングをずらして更新前処理で新規レコードだったら・・・でも良いと思います。
採番のタイミングは、どのような操作をさせたいか、で変わってくると思います。

Private Sub Form_BeforeInsert(Cancel As Integer)
　　Me.管理番号 = EgetNewSeq
End Sub

とか

Private Sub Form_BeforeInsert(Cancel As Integer)
　　Me.発行番号 = DgetNewSeq
End Sub

上記では、今日の日付で採番します。
昨日のデータとして採番したい時には、以下のような感じで日付を指定します。

Private Sub Form_BeforeInsert(Cancel As Integer)
　　Me.管理番号 = EgetNewSeq(Date - 1)
End Sub

お礼

ありがとうございます
ご教授いただいたVBAも新規作成でやってみようと思っています
理解がまだまだ足りないので勉強させていただきます