|
▼ichinose さん:
>具体的にAccessで↑になるコードを見せてください。
あまり参考になるかわかりませんが・・
Dim Ho As Double
Set MDb = DBEngine.Workspaces(0).OpenDatabase(Fldr & "\属性.mdb")
Set Rrst = MDb.OpenRecordset("SELECT * FROM 入力", dbOpenDynaset)
Set Crst = CDb.OpenRecordset("注記0", dbOpenDynaset)
If Rrst.RecordCount > 0 Then
If Rrst!率 <> 0 Then
Crst.AddNew
Ho = Rrst!報酬 / Rrst!会社
Crst!金額 = Int(Hoshu * Cur(1))
Crst.Update
End If
End If
というかんじなのですが。
たぶんロジックの問題というよりは、宣言のしかた・・?!
MDbテーブルで保有している数字は
rrst!報酬=0.2
rrst!会社=0.78
なのですが、VBA上でHo = Rrst!報酬 / Rrst!会社の変数の代わりに試しにHo=0.2/0.78で実行してみるとHoは正解になるので、この変数には実際には少数がまだ続いているということですかね・・?
数字の持ち方が悪いのでしょうか。。
すみません、これでご理解いただけますか??
うまく言葉にできなくて申し訳ありません。
宜しくお願いします。
|
|