No.1ベストアンサー
- 回答日時:
すでに入力されているものに続けて連番を振っていくということでいいいのですね
>CODE:数値型6桁
>その他何項目かのフィールドがありCODEの部分に000001~003000くらいまで入力がされ>ています。
前に0が付いていますが数値型で間違いないですね?
(前0は書式でつけているだけですね)
いろんな方法がありますが
規定値に次の番号を自動的に表示するようにしましょうか
フォームの開くとき、レコード挿入時、削除後確認に下のようなコードを書きます
Private Sub Form_AfterDelConfirm(Status As Integer)
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
End Sub
Private Sub Form_AfterInsert()
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.CODE.DefaultValue = DMax("CODE", "テーブル名")+ 1
End Sub
この回答への補足
早速のご回答ありがとうございます。
Private Sub Form_AfterDelConfirm(Status As Integer)
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
End Sub
↑削除後確認
Private Sub Form_AfterInsert()
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
End Sub
↑挿入後処理
Private Sub Form_Open(Cancel As Integer)
Me.CODE.DefaultValue = DMax("CODE", "テーブル名")+ 1
End Sub
↑開く時
上記三点をフォームのプロパティに入力しましたが、
コンパイルエラー
メソッドまたはデータメンバが見つかりません
とでてしまいました。
設定の仕方を間違えたのでしょうか??
No.2
- 回答日時:
どの行が黄色くなってます?
参照設定に参照不可のものはありませんか?
この回答への補足
度々すみません。
Private Sub Form_Open(Cancel As Integer)
この行が黄色くなっています。
No.3
- 回答日時:
>この行が黄色くなっています。
フォームのプロパティーのイベントタブから開く時を選び
そこに
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
を書き込んでみてください
この回答への補足
ご回答ありがとうございます。
Me.CODE.DefaultValue = DMax("CODE", "テーブル名") + 1
初めに教えていただいた時に入力済となっております。
何度もすみません・・・。
No.4
- 回答日時:
テキストボックスの「規定値」プロパティを以下のようにします。
=DCount("ID","T_商品") + 1
=DMax("CODE","T_商品") + 1
上は既存の数+1、下は最大値+1です。
他の方の回答のように、イベントで仕込んでも良いのでしょう。
失敗する原因は"テーブル名"を文字通り記述したからではないですか?
回答は"テーブル名"(の所は実際のテーブルの名前を書いてください)と言っているのです。
だから、"T_商品"にしないとエラーになってしまいます。
この回答への補足
ご回答ありがとうございます。
テーブル名はT_商品でやってまして、教えていただいたとおり
やってはいるのですが・・・。
規定値のプロパティはIDとCODEの二ヵ所に入力するするということ
でしょうか??
色々とご迷惑をお掛けいたしました。
上記ににも記載させていただきましたが、
テキストボックスの名前を変更したらうまくいきました!!
貴重なご意見ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) Accessフォームで複数条件でフィールドの値を表示する方法 4 2022/07/21 10:47
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) Accessのデータ型の日付/時刻型について 2 2023/02/14 07:40
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
Accessクエリでの、LIKE条件
-
2つのテーブルを比較して一致し...
-
Accessでテーブルからテーブル...
-
ACCESSで指定されたテーブルか...
-
Accessの追加クエリで既存のテ...
-
ACCESSに同時アクセス(編集)を...
-
リンクテーブルを CopyObject ...
-
Accessレコードの追加や変更が...
-
AccessをMDBファイルで使う場合...
-
SQLで日付を条件に削除したい
-
ODBCで接続するとDBに変更/追加...
-
ツリー構造をRDBで表現するには?
-
データ型の変更
-
Accessのフォームの並び替えを...
-
データベースで変更の多いテー...
-
DAOのTableDefs("TblName").Con...
-
3つの表を1つに縦に連結する
-
Access SELECT INTO に関する質...
-
AccessのDlookupの引数設定につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
ACCESSに同時アクセス(編集)を...
-
Accessでvlookupみたいなことは...
-
Accessでテーブルからテーブル...
-
Accessクエリでの、LIKE条件
-
Accessレコードの追加や変更が...
-
access テーブル内のレコード...
-
3つの表を1つに縦に連結する
-
SQLで日付を条件に削除したい
-
Accessの追加クエリで既存のテ...
-
SQLで条件指定結合をしたいがNU...
-
デザインビューで、連結式 を...
-
ツリー構造をRDBで表現するには?
-
ACCESSで指定されたテーブルか...
-
リンクテーブルを CopyObject ...
-
2つのテーブルを比較して一致し...
-
時間の足し算
-
ODBCで接続するとDBに変更/追加...
-
パススルークエリをテーブル作...
-
INSERT時にデータ登録とmaxの発...
おすすめ情報