| |
▼Gin_II さん：
>> ＤＡＯを利用してＶＢＡでＳＱＬを書きそこで取得したテーブルｔのレコード数を
>> 変数ｈに格納しmsgbox(h)として表示させたいのですが。
>
>DAO にこだわる理由は？
>
>MsgBox DCount("*", "t")
>
>でも、レコード数を求めることはできますよ。
>
>
>Dim db As DAO.Database
>Dim rs As DAO.Recordset
>Dim h As Long
>
>Set db = Currentdb
>Set rs = db.OpenRecordset("SELECT COUNT(*) AS FLD FROM t", dbOpenSnapshot)
>
>h = rs!FLD
>
>MsgBox h
Gin_II さんありがとうございました。
無知な私にご指導いただきありがとうございます。
上記のコードをフォームｆ上のコマンドボタンに書きそのコマンドボタンを押した
時にメッセージボックスで表示させることができました。
ただそのフォームf上にあるテキストボックスtextに入力された値をaフィールドの抽出条件にする場合(テキストボックスに入力されたaフィールドの値だけをcountさせたい場合がＤｃｏｕｎｔではうまくいきませんでした。
また、おしえていただいたコードで
Set rs = db.OpenRecordset("SELECT COUNT(*) AS FLD FROM t where a = forms!f!text", dbOpenSnapshot)のようにするとエラーになります。
where a = forms!f!textの書き方が間違っていると思いますが。
フォーム上のテキストボックスに入力された値を集合計算のフィールド抽出条件にする場合はどのように書いたらよいのでしょうか。
よろしかったら教えていただけないでしょうか。
|
|
かめ
- 06/7/15(土) 10:43 -
