Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Access 2007)
AddNewで追加したデータが変わる
投稿日時: 19/05/06 17:27:40
投稿者: あぴす

T_商品リストから参照した商品番号(10X)と商品名を入力用フォームに反映させ、購入情報を追加しAddNewでT_商品一覧へデータを追加しております。
そうするとT_商品リストでは「101」、入力用フォーム「101」なのにT_商品一覧では「001」になってしまいます。
( 商品名と購入情報は正しく追加できます)
 
Dim rst As DAO.Recordset
 
 Set rst = Current.Db.OpenRecordset("T_商品一覧" , dbOpenTable)
 With rst
   .AddNew
   .Fields("商品番号") = Me!商品番号
   .Fields("商品名") = Me!商品名
   .Fields("購入情報") = Me!購入情報
   .Update
 End With
  
 rst.Close
 Set rst = Nothing
 
尚、テーブル上ではそれぞれ以下にしております。
 
 フィールドサイズ 整数型
 書式 000
 
なぜ、数字が変更されてしまうのかどなたかご教示ください。
  

回答
投稿日時: 19/05/07 10:23:04
投稿者: sk

引用:
T_商品リストから参照した商品番号(10X)と商品名を入力用フォームに反映させ

(仮に[入力用フォーム]が非連結フォームであるとして)
その部分の操作/コードは具体的にどのような流れになっているのでしょうか。
 
引用:
.Fields("商品番号") = Me!商品番号

また、[入力用フォーム]上の[商品番号]のコントロールの種類は
何なのでしょうか。

トピックに返信