ADO レコードセットにフォームを連結しますBind a form to an ADO Recordset

Access フォームをレコードセットに連結するには、開いている ADO Recordset オブジェクトをフォームの Recordset プロパティに設定する必要があります。To bind an Access form to a recordset, you must set the form's Recordset property to an open ADO Recordset object. ADO レコードセットに連結されているときにフォームを更新可能にするには、フォームが 2 つの一般要件を満たしている必要があります。A form must meet two general requirements for the form to be updatable when it is bound to an ADO recordset. その一般要件は次のとおりです。The general requirements are:

  • 基になる ADO レコードセットを ADO 経由で更新できる必要があります。The underlying ADO recordset must be updatable via ADO.
  • テーブルの主キーなどの一意なインデックスを持つ 1 つ以上のフィールドがレコードセットに含まれている必要があります。The recordset must contain one or more fields that are uniquely indexed, such as a table's primary key.
 Private Sub Form_Open(Cancel As Integer) 
 Dim cn As ADODB.Connection 
 Dim rs As ADODB.Recordset 
 
 'Use the ADO connection that Access uses 
 Set cn = CurrentProject.AccessConnection 
 'Create an instance of the ADO Recordset class, 
 'and set its properties 
 Set rs = New ADODB.Recordset 
 With rs 
 Set .ActiveConnection = cn 
 .Source = "SELECT * FROM Customers" 
 .LockType = adLockOptimistic 
 .CursorType = adOpenKeyset 
 .Open 
 End With 
 'Set the form's Recordset property to the ADO recordset 
 Set Me.Recordset = rs 
 Set rs = Nothing 
 Set cn = Nothing 
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.