Consulta e Movimentação para Campo no Formulário

Pessoal,

Sou iniciante no Access e gostaria de ajuda.

Tenho um combo que vou selecionar uma opção e com essa opção selecionada desejo realizar um select em uma tabela para recuperar os campos A, B e C e movimentar esses campos para campos correspondentes na tela. Vou fazer isso via código "após atualizar" do combo.

Dim strSql As String
Dim strcampo As String

strcampo = Me!cbo_codigo

strSql = "SELECT campo A, campo B, campo C FROM tabela teste WHERE codigo ='" & strcampo & "'"

Os resultados retornados desses campos A, B e C preciso movimentar para os campos do formulario, como fazer isso:

Me!cp1 = ??? campo A
Me!cp2 = ??? campo B
Me!cp3 = ??? Campo C

Obrigado

Olá Rodrigo,

Seja bem-vindo ao forum.

É necessário criar um recordset para carregar os dados da instrução SQL e carregar os campos no form.

Copie e cole o codigo abaixo:

Código:



On Error GoTo trata_erro
Dim strSql      As String
Dim strcampo    As String

'-- Declarar recordset
Dim rs          As DAO.Recordset

    strcampo = Me!cbo_codigo
   
    strSql = "SELECT campo A, campo B, campo C FROM tabela teste WHERE codigo ='" & strcampo & "'"
   
    '-- Abre recordset com a instrução acima
    Set rs = CurrentDb.OpenRecordset(strSql)
   
    '-- Se não for o final do arquivo (End Of File), indica que existe registro
    '-- e carrega os campos
    If Not rs.EOF Then
        Me!cp1 = rs("campo A")
        Me!cp2 = rs("campo B")
        Me!cp3 = rs("campo C")
    '-- Se não houver registros, limpa os campos
    Else
        Me!cp1 = Empty
        Me!cp2 = Empty
        Me!cp3 = Empty
    End If
   
    '-- fecha recordset
    rs.Close
    '-- Limpa da memória
    Set rs = Nothing
   
    Exit Sub

'-- Tratamento de erro
trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub



É isso

Att,

Alexandre Fim

Muito Obrigado deu certo!

Boa noite
Faltou marcar o botão "Resolvido" que se encontra na zona inferior direita do fórum