Associar um formulário a um Conjunto de Registros do ADO

Para associar um formulário do Access a um conjunto de registros, você deve definir o a propriedade Recordset do formulário a um objeto Recordset aberto do ADO. Um formulário deve atender a dois requisitos gerais do formulário para ser atualizado quando estiver associado a um conjunto de registros do ADO. Esses requisitos gerais são:

  • O conjunto de registros ADO de base deve ser atualizável via ADO.
  • O conjunto de registros deve conter um ou mais campos de índice exclusivo, como a chave primária de uma tabela.
 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.