次の方法で共有

ADO レコードセットにフォームを連結します

  • [アーティクル]

Access フォームをレコードセットに連結するには、開いている ADO Recordset オブジェクトをフォームの Recordset プロパティに設定する必要があります。 ADO レコードセットに連結されているときにフォームを更新可能にするには、フォームが 2 つの一般要件を満たしている必要があります。 その一般要件は次のとおりです。

  • 基になる ADO レコードセットを ADO 経由で更新できる必要があります。
  • テーブルの主キーなどの一意なインデックスを持つ 1 つ以上のフィールドがレコードセットに含まれている必要があります。
 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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。