Access (VBA)

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

 
(Windows 10 Home : 指定なし)
0以下の数値をテーブルに表示
投稿日時: 21/09/09 15:29:35
投稿者: miyama2305

access2019
 
フォーム上のテキストボックス1
(書式は標準、小数点以下は自動)に
0.18の数値を表示しています
この数値をテーブル列(名称は単位, 数値型,倍制度浮動小数点型,書式は標準)に移動したいと思います
以下のコードで転送します。
Dim DB As Database, rst As Recordset
Dim strSQL As String
Set DB = CurrentDb
Set rst = DB.OpenRecordset("MT帳", dbOpenDynaset)
rst.AddNew
rst!単位 = Me!テキストボックス1
 
結果は180.00と表示されます。
0.18と表示したいのです。
ご指導お願いします
 
 
 
 

回答
投稿日時: 21/09/09 16:02:03
投稿者: Suzu

Debug.Print Me!テキストボックス1
 
とでもして、テキストボックス1 の Value プロパティーを確認しましょう。
 
小数点が入って見づらければ
 
Debug.Print Me!テキストボックス1 *100
とでもして、100を掛けてみましょう。

投稿日時: 21/09/09 16:24:13
投稿者: miyama2305

Suzu様 ありがとうございます
 
Me!テキストボックス1の数値ですが
Me.!テキストボックス1 = Me.比重値 * Me.数量
で計算した結果です。
以下のように変更したら
正しく表示されました
Me.!テキストボックス1 = Me.[比重値] * Me.[数量]
 
感謝します