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

VBA Access - Encontrando um registro...How to Find a Record Efficiently

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 segue uma delas. 

Divirtam-se!

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

  15.01.2025 

Sub GetUserEntryDetails(EID As Long)
    ' Declaração das variáveis
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    Dim idnumber As Long
    Dim recdate As Date
    Dim recdata As String

    ' Monta a string SQL para consultar os dados baseados no EID
    strSQL = "SELECT Det.ID, Det.EntryDate, Det.UserEntry FROM UserEntrys Det WHERE Det.ID = " & EID

    ' Cria uma nova instância do Recordset
    Set rst = New ADODB.Recordset

    ' Abre o recordset com a consulta SQL
    With rst
        ' Abrindo o recordset com as opções adequadas
        .Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

        ' Verifica se o recordset contém dados
        If Not .EOF Then
            ' Itera sobre os registros encontrados
            Do While Not .EOF
                ' Atribui os valores dos campos para as variáveis
                idnumber = !ID
                recdate = !EntryDate
                recdata = !UserEntry

                ' Aqui você pode fazer o processamento desejado com os dados
                ' Por exemplo, exibir ou armazenar os valores recuperados

                ' Move para o próximo registro no recordset
                .MoveNext
            Loop
        Else
            ' Caso não haja registros, pode-se adicionar uma mensagem ou outra ação
            Debug.Print "Nenhum registro encontrado para o ID especificado."
        End If

        ' Fecha o recordset após o uso
        .Close
    End With

    ' Libera os recursos alocados pelo recordset
    Set rst = Nothing
End Sub

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT