| |
▼CHIKO さん：
こんにちは。
ADO ならびに ADOX を色々見ていたのですが当方の知識ではできなさそうでした。
代わりに DAO を使ったコードを提示してみます。
Sub DAOを使って()
Const QName = "INQRY"
Dim SQLST As String
Dim DB As DAO.Database
Dim QD As DAO.QueryDef
Dim FLD As DAO.Field
Dim Prp As DAO.Property
On Error Resume Next
DoCmd.DeleteObject acQuery, QName
On Error GoTo 0
SQLST = "SELECT A, Sum(B) AS 合計 FROM CTab GROUP BY A;"
Set DB = CurrentDb
Set QD = DB.CreateQueryDef(QName, SQLST)
Set FLD = QD.Fields("合計")
Set Prp = FLD.CreateProperty("Format", 10, "Standard")
FLD.Properties.Append Prp
Set Prp = FLD.CreateProperty("DecimalPlaces", 2, 0)
FLD.Properties.Append Prp
Set Prp = Nothing
Set FLD = Nothing
QD.Close: Set QD = Nothing
DB.Close: Set DB = Nothing
End Sub
さて、ここからが本題なのですが、
クエリに対して書式設定をする必要があるのでしょうか。
Accessにおいてテーブル(クエリ)はあくまでデータの入れ物であって
ユーザに見せるものではないですよね。
フォームやレポートの書式を設定してあげれば
テーブル 及び クエリ部に特別な事を行う必要はないと思うのですが…。
|
|
小僧
- 07/2/8(木) 11:01 -
