Access　VBA　データベースに格納されているkg表示の数字を、mt表示に変えてテキストボックスに反映させたい

よろしくお願いいたします。

データベースに格納されている文字列を、初めにMeフォームのテキストに取得します。
そのMeフォームのテキストの値を、フォーム1テキストに、ボタンで取り込むシステムを作りました。

今回取得するデータはキロ表示なので、500キロであれば、Meの方ではテキストボックスに500と表示されます。
フォーム1のテキストに反映させるときには、トン表示として表記したい為、0.500としたいのですが、
下記コードのように単純に1000で割り算という形で良いのでしょうか。

//something code
Dim intWeight As Integer
	intWeight = Me![テキスト2].Value 
	
Forms![フォーム1]![テキスト1] = intGrossweight / 1000
	//例） Me→500  フォーム1→0.500  と、変換して出力したい

//something code

何か換算ができる関数が無いのか調べたのですが、私の検索の仕方では今のところ見つかっておらず、
また、このように割り算で結果を出すとして、小数点の第三位まで取得したいのですが、方法がわかりません。

有職者の方々、お知恵をお貸しください。

行動規範の内容に同意します

回答2件

ベストアンサー

小数点以下の３桁までを表示した文字列にするには、Format関数を使い、フォーマットに"0.000"を指定します。
下記コードのように使います。

VBA
1Forms![フォーム1]![テキスト1] = Format(intGrossweight / 1000, "0.000")

表示を下2桁にしたければ"0.00"、 4桁にしたければ"0.0000"というように、フォーマットの小数点以下に書く0の数で桁数が調整できます。

投稿2016/03/18 08:54

coco_bauer

総合スコア6915

＞私の検索の仕方では今のところ見つかっておらず、
既に適切な回答が付いている様なので、
今回の件に関する検索ワード例
access 数値書式
あたりが、google検索で、Format関数にヒットしたりします。
’
ACCESS VBA 逆引き
で、検索がかかるような書籍を持っていない場合は、
一冊は持っていると、検索ワード用として
役にたったりします。
（中身が網羅的で、書いてある内容が簡略だったりするので、
辞書や、あんちょことして。）
書籍例：AccessVBA逆引き大全600の極意2013/2010/2007対応単行本 – 2014/6/27