RunSQL メソッド (Access)DoCmd.RunSQL method (Access)

RunSQLメソッドは、Visual Basic で RunSQL アクションを実行します。The RunSQL method carries out the RunSQL action in Visual Basic.


RunSQL(SQLStatementUseTransaction)expression.RunSQL (SQLStatement, UseTransaction)

expression: DoCmd オブジェクトを表す変数。expression A variable that represents a DoCmd object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
SQLStatementSQLStatement 必須Required バリアント型Variant アクション クエリまたはデータ定義クエリのための有効な SQL ステートメントを文字列式で指定します。A string expression that's a valid SQL statement for an action query or a data-definition query. この文字列には、INSERT INTO、DELETE、SELECT...INTO、UPDATE、CREATE TABLE、ALTER TABLE、DROP TABLE、CREATE INDEX、または DROP INDEX ステートメントを使います。It uses an INSERT INTO, DELETE, SELECT...INTO, UPDATE, CREATE TABLE, ALTER TABLE, DROP TABLE, CREATE INDEX, or DROP INDEX statement. 他のデータベースにアクセスする場合は、IN 句を含めます。Include an IN clause if you want to access another database.
UseTransactionUseTransaction 省略可能Optional VariantVariant このクエリをトランザクションに含めるには、 True (1) を使用します。Use True (1) to include this query in a transaction. トランザクションを使わない場合は、False (0) を使います。Use False (0) if you don't want to use a transaction. この引数を指定しないと、True (既定値) が使われます。If you leave this argument blank, the default (True) is assumed.


Microsoft Access のアクション クエリを、そのアクションに対応する SQL ステートメントを使用して実行します。You can use the RunSQL action to run a Microsoft Access action query by using the corresponding SQL statement. また、データ定義クエリも実行できます。You can also run a data-definition query.

このメソッドは Access データベースにのみ適用されます。This method only applies to Access databases.

引数_SQLStatement_の最大長は32768文字です (マクロウィンドウの_SQLStatement_ action 引数とは異なり、最大長は256文字)。The maximum length of the SQLStatement argument is 32,768 characters (unlike the SQLStatement action argument in the Macro window, whose maximum length is 256 characters).


次の例では、 Employeesテーブルを更新して、各営業課長の役職を地域の営業課長に変更します。The following example updates the Employees table, changing each sales manager's title to Regional Sales Manager.

Public Sub DoSQL() 
    Dim SQL As String 
    SQL = "UPDATE Employees" & _ 
          "SET Employees.Title = 'Regional Sales Manager'" & _ 
          "WHERE Employees.Title = 'Sales Manager'" 
    DoCmd.RunSQL SQL 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.