オートナンバー型の設定について

いつもお世話になっております。

オートナンバー型で任意の桁数を表示するようにしたいのですが、
本を参考にして作成したのですが、エラーが発生してしまいました。
どうにも解読出来ず質問させていただきます。

【内容】
　エラーメッセージ
実行時エラー ２４４８
このオブジェクトには値を代入することはできません。

Private Sub Form_BeforeInsert(Cancel As Integer)

If DCount("受注ID", "受注伝票") = 0 Then
Me!受注ID = "000001"
Else
Me!受注ID = Format(DMax("受注ID", "受注伝票") + 1, "000000")⇐ここでエラー発生
End If

End Sub

受注IDは
　データ型：オートナンバー型
　フィールドサイズ：長整数型
　新規レコードの値：ランダム
　書式：００００００
　インデックス：重複なし
　文字配置：標準
テーブルは設定しております。

どなたかご伝授よろしくお願いいたします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2018/02/11 15:31

フォームでオートナンバーを６桁表示にするなら

フォームのデザインで、
そのテキストボックスの「書式」プロパティを「000000」にしておくだけですが。

テーブルでもオートナンバーのフィールドの値を手作業で書き換えることはできませんよね？
VBA でも 普通にはできません。

番号が抜けて困るということなら
オートナンバーをやめて 長整数型 あるいは テキスト型 にして
すべて自身で制御することになります。

この質問をするレベルなら、オートナンバーのままにすることをお勧めします。

この回答へのお礼

bonaronさん
まだまだですね。(私が・・・)
いつも適切なコメントありがとうございます。

お礼日時：2018/02/12 09:43