VBA Access Basic - Localizando um registro - Search Records in VBA

| Blog Office VBA | Blog Excel | Blog Access |

Não existe atividade mais repetitiva num banco de dados MS Access quanto a de encontrar um registro específico. 

Existem diversas formas de fazer isso, abaixo seguem algumas delas: 

1º EXEMPLO

Dim strSQL As String

Dim rst As ADODB.Recordset

Dim lngID As Long

   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

2º EXEMPLO

Dim cn As ADODB.Connection 

Dim Str As String 

Dim rs2 As ADODB.Recordset 

Set cn = CurrentProject.Connection 

Set rs2 = New ADODB.Recordset 

Str = "SELECT CustomerID FROM YourTable WHERE CustomerID ='N'" 

rs2.Open Str, cn, adOpenStatic 

If rs2.RecordCount <> 0 Then 

     ' Found it

End If 

rs2.Close 

Set rs2 = Nothing 

cn.Close 

3º EXEMPLO

DoCmd.FindRecord "Smith",, True,, True

Tags: VBA, Access, recordset, select, SQL, rst, record, registro, find