Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2836 / 9994

←次へ　｜　前へ→


	【10425】クエリーの設定

はるぽん - 08/6/19(木) 12:37 -


	引用なし

	パスワード

こんにちは。
ACCESS初心者のため、どうしてもわからないことがあります。

下記のソースで名前を付けて保存ダイアログを呼び出すことができたのですが、
このままではただ開くだけで保存も何もできません。
そこで、例えばsampleというクエリをcsv形式で保存をさせたくて調べた結果
DoCmd.TransferText acExportDelim, "", "sampleクエリ", strGetTransfer & "", True, ""
というのを組み入れたのですが、上手く動きません。
どこにどう組み入れたらいいのか、コマンドもこれであっているのか
それすらよくわからないので、どなたかご教授いただけないでしょうか。
宜しくお願いします。

-----------------------------------------------------------------
Private Sub 出力_Click()

　　Dim inf As OpenFileName2
　　Dim text As TextBox

　　With inf
　　　　.DefaultExt = "csv"
　　　　.DialogTitle = "保存するファイルを選択して下さい。"
'変更開始(00/07/01) Saveするファイル名を初期値として表示する
　　　　.FileName = "c:\Sample.csv"
　　　　.FilePath = vbNullString
　　　　.FileTitle = "Sample.csv"
'変更終了
　　　　.Filter = "ﾃｷｽﾄ(*.txt)|*.txt|csv(*.csv)|*.csv|全てのﾌｧｲﾙ(*.*)|*.*"
　　　　.FilterIndex = 2
　　　　.flags = OFN_HIDEREADONLY
　　　　.InitDir = "c:\"
　　　　.MaxFileSize = MAX_PATH
　　　　.OKFlg = 0
　　End With
　
　　inf = Y_GetSaveFileDialog(Me.hWnd, inf)
　
　　If inf.OKFlg = 0 Then
　　　　Call MsgBox("選択をキャンセルしました。")
　
　　End If
End Sub

689 hits

▼

【10425】クエリーの設定 はるぽん 08/6/19(木) 12:37