Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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.Recordset
Dim 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.




LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine