VBA Access - Encontrando um registro específico

Não existe atividade mais repetitiva num banco de dados quanto a de encontrar um registro específico. Existem diversas formas de fazermos isso, abaixo segue código de uma dessas formas. Divirtam-se!

Dim strSQL As String
Dim rst As ADODB.RecordsetDim lngID As Long

Let strSQL = "SELECT Det.ID, Det.EntryDate, Det.UserEntry FROM UserEntrys WHERE Det.ID=" & EID
Set rst = New ADODB.Recordset
With rst

.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

Do While Not rst.EOF

Let idnumber = !ID

Let recdate = !EntryDate

Let recdata = !UserEntry

rst.MoveNext

Loop

.Close

End With

Set rst = Nothing 

Tags: Access, find, recordset, loop, while, ADODB, select, SQL

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com