✔ Programação GLOBAL®: VBA Access - Encontrando um registro...How to Find a Record Efficiently

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