人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Microsoft Office Access機能
フォームに抽出条件の年度と記録Noを入力してボタンをクリックすると、選択クエリでレコード抽出を行い、csv出力されるvbaを書いたのですが、
どこかが間違っており、出力されません。
恐縮ですがもし原因がお分かりでしたらお教え願います

Private Sub 出力ボタン_Click()

'宣言
On Error Resume Next
Dim zdb As DAO.QueryDef
Dim zrs As DAO.Recordset
Dim tdty As String
Dim tdtm As String

'年度、記録Noの取得
tdty = Me.年度
tdtm = Me.記録No

'クエリにパラメータを渡す
Set zdb = CurrentDb.QueryDefs("クエリ1")
zdb.Parameters("年度") = tdty
zdb.Parameters("記録No") = tdtm
Set zrs = zdb.OpenRecordset(dbOpenDynaset)

'csv出力
DoCmd.TransferText acExportDelim, , zrs, _
"C:\結果.csv", True, ""
DoCmd.DeleteObject acQuery, zrs

End Sub

●質問者: keisuke738
●カテゴリ:コンピュータ インターネット
✍キーワード:access as CSV Microsoft Office NeXT
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ