2

私はaccess2010データベースに取り組んでおり、助けが必要です。

クエリを実行し、返されたレコードに基づいてテーブルを作成してデータを設定するvbaコードを作成しようとしています。次に、クエリの値（会社名）に基づいてテーブルの名前を変更します。

テーブルから個別の値を返すクエリを作成しましたが、結果に返される会社ごとに個別のテーブルを作成する必要があります。

ありとあらゆる提案を歓迎します。

4

1 に答える 1

1

会社ごとに異なるテーブルを作成することをお勧めしますか？私はそれをお勧めしません！

さて、フィールドCompanyNameを含み、すべてのレコードを含むQUERYという名前のクエリがあるとしましょう。次のようなものから始めることができます。

Sub Export_Query()
  Dim rs As Recordset

  Set rs = CurrentDb.OpenRecordset("select distinct CompanyName from QUERY")
  While Not rs.EOF
    On Error Resume Next
    CurrentDb.Execute "DROP TABLE [" & rs("CompanyName") & "]"
    CurrentDb.Execute "SELECT QUERY.* INTO [" & rs("CompanyName") & "] FROM QUERY WHERE CompanyName=""" & rs("CompanyName") & """;"
    On Error GoTo 0
    rs.MoveNext
  Wend

  rs.Close
  Set rs = Nothing
End Sub

これは単なるアイデアです...エラーチェックコードを追加する必要があります。また、会社名をエスケープするか、特殊文字が含まれていないことを確認する必要があります。

于 2012-10-23T19:41:12.390 に答える