Aipoさんを使用させてもらっています。ありがとうございます。
Aipo 5.0系から6.1へバージョンアップでうまくいかなかったので覚書
うちの環境はApache別サーバー＆SSL必須にしているため
httpd.conf内が以下のようになっています。
（VHOSTの443内に記述）
<Location "/aipo"/>
ProxyPass "ajp://localhost:8009/aipo"
</Location/>
インストール直後にどうやら以下のファイル
vi /usr/local/aipo/tomcat/conf/server.xml
↓ここがコメント化されているので
<Connector port="8009" protocol="AJP/1.3" redirectPort="8443" />
↓コメントカットし、変更してあげる
<Connector port="8009" protocol="AJP/1.3" redirectPort="443" />
これでOK！
久しぶりにAccess触ったら嵌ったので・・・・
なんだこのVBA関数は・・・まともに動かん
'*******************************************************************************************
'注意！！！！！！！！！
'AccessのRound,Int,FIx関数はバグっているので、自ら作成する！
'*******************************************************************************************
'切り上げ
Public Function com_RoundUp(X As Currency, S As Integer) As Currency
Dim W As Currency
W = 10 ^ Abs(S)
If S > 0 Then
com_RoundUp = Int(X * W + 0.999) / W
Else
com_RoundUp = Int(X / W + 0.999) * W
End If
End Function
'切り捨て
Public Function com_RoundDown(X As Currency, S As Integer) As Currency
Dim W As Currency
W = 10 ^ Abs(S)
If S > 0 Then
com_RoundDown = Int(X * W) / W
Else
com_RoundDown = Int(X / W) * W
End If
End Function
'四捨五入
Public Function com_Round(X As Currency, S As Integer) As Currency
Dim t As Integer
t = 10 ^ Abs(S)
If S > 0 Then
com_Round = Int(X * t + 0.5) / t
Else
com_Round = Int(X / t + 0.5) * t
End If
End Function
MSからGetだけ。。。ど（＾＾；）
