|
▼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等他のアプリケーション?)にもよりますが、
殆どの場合はテーブルを作らなくてもクエリで解決できると思いますよ。
|
|