Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(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!商品番号

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

投稿日時: 19/07/07 23:56:39
投稿者: あぴす

参照設定でチェックが足りないところがありました。
VBAのコード以前の問題であったのに質問してしまい申し訳ございません。
解決済とさせていただきます。