Access VBA質問箱 IV

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

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


5465 / 9994 ←次へ | 前へ→

【7749】Re:連結フォームのフィルターの結果をデー...
回答  小僧  - 06/4/22(土) 23:32 -

引用なし
パスワード
   ▼ymym さん:
こんばんは。

>WHERE句の取り方を教えていただけますか?

提示されている情報が少ないので必ずしもうまく行くとは限りませんが、
フォームのレコードソースがテーブル名(クエリ名)であれば
フォームヘッダにでもコマンドボタン「cmd出力」を配置して
コードを実行させて見てください。

Private Sub cmd出力_Click()
Const TName = "T_Temp"
Dim strSQL As String

  If DCount("*", "MsysObjects", "Name = '" & TName & "'") > 0 Then
    DoCmd.DeleteObject acTable, TName
  End If

  strSQL = "SELECT * " _
     & " INTO " & TName _
     & " FROM " & Me.RecordSource _
     & " WHERE " & Me.Filter

  DoCmd.RunSQL strSQL

End Sub


>その結果をデータとして出力したい

どこに出力したい(画面?印刷?Excel等他のアプリケーション?)にもよりますが、
殆どの場合はテーブルを作らなくてもクエリで解決できると思いますよ。

1,058 hits

【7742】フォーム上でのフィルターの結果を使いたい ymym 06/4/21(金) 18:14 質問
【7746】Re:フォーム上でのフィルターの結果を使い... 小僧 06/4/22(土) 1:43 回答
【7747】連結フォームのフィルターの結果をデータと... ymym 06/4/22(土) 11:18 質問
【7749】Re:連結フォームのフィルターの結果をデー... 小僧 06/4/22(土) 23:32 回答
【7750】DoCmd と ADO の関係 ??? ymym 06/4/23(日) 11:13 お礼
【7751】Re:DoCmd と ADO の関係 ??? 小僧 06/4/23(日) 22:15 回答
【7752】ありがとうございます。 ymym 06/4/24(月) 0:00 お礼

5465 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078229
(SS)C-BOARD v3.8 is Free