アクセス：フォームの結果をテーブルに変換

Question

私は基本的な検索フォームを作成しました。このフォームには、入力フィールド、ボタン、結果を表示するエリアがあります。

キーワードを入力欄に入力し、「検索」ボタンをクリックすると結果が表示されます。

検索ボタンは、次のコードを持っています

Private Sub mySearchQuery_Click() 
Dim strSelect As String 
Dim strWhere As String 

If Len(Trim(Me!searchFirst.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND First_Name Like ""*" & Me!searchFirst.Value & "*""" 
End If 
If Len(Trim(Me!searchLast.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND Last_Name Like ""*" & Me!searchLast.Value & "*""" 
End If 
If Len(Trim(Me!searchState.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND State Like ""*" & Me!searchState.Value & "*""" 
End If 
If Len(Trim(Me!searchLIC.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND LIC Like ""*" & Me!searchLIC.Value & "*""" 
End If 
If Len(Trim(Me!searchNPN.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND NPN Like ""*" & Me!searchNPN.Value & "*""" 
End If 
If Len(Trim(Me!searchEmail.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND Email Like ""*" & Me!searchEmail.Value & "*""" 
End If 
If Len(Trim(Me!searchDateFrom.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND EXP >= #" & Me.searchDateFrom.Value & "#" 
End If 
If Len(Trim(Me!searchDateTo.Value) & vbNullString) > 0 Then 
    strWhere = strWhere & " AND EXP <= #" & Me.searchDateTo.Value & "#" 
End If 

strSelect = "SELECT * FROM MasterData" 
If Len(strWhere) > 0 Then 
strSelect = strSelect & " WHERE " & Mid(strWhere, 6) 
End If 

Me.RecordSource = strSelect 
' SubForm.Form.RecordSource = sql 
End Sub 

この検索ボタンを与えられた基準に基づいて項目を検索します。状態入力欄に「NY」と入力して検索ボタンを押すと、状態がNYに設定された結果が表示されます。

私の質問は、この返された結果をフォームからテーブルにエクスポートして保存するにはどうすればいいですか？もし私がそれをすることができればそれはいいだろう。

Answer 1

単純なSQLを使用してください。それほど難しくない。

DoCmd.RunSQL "SELECT * INTO MyTable FROM MasterData" & strWhere