Views

Histats

Vitrine

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


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




✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias