erro de sintaxe / compilação

[misaig]

:huh: SOCORRO!!!... Gente, por favor me ajudem!!

Segui passo a passo os procedimentos citados para fazer com que o meu banco de dados preencha automaticamente alguns campos,mas quando eu inseri um código no Visual basic:

Private Sub cmbClientes_AfterUpdate()

* *

* * Dim Banco As Database, Cliente As Recordset, Sql As String

* *

* * Sql = "SELECT Endereco, Cidade, Estado, Telefone " & _

* * * * * "FROM tabClientes " & _

* * * * * "WHERE Nome='" & cmbClientes.Text & "';"

* *

* * Set Banco = CurrentDb

* * Set Cliente = Banco.OpenRecordset(Sql)

* *

* * If Not Cliente.RecordCount = 0 Then

* * * * txtEndereco = IIf(IsNull(Cliente!Endereco), "", Cliente!Endereco)

* * * * txtCidade = IIf(IsNull(Cliente!Cidade), "", Cliente!Cidade)

* * * * txtEstado = IIf(IsNull(Cliente!Estado), "", Cliente!Estado)

* * * * txtTelefone = IIf(IsNull(Cliente!Telefone), "", Cliente!Telefone)

* * Else

* * * * MsgBox "Não existem dados para o cliente selecionado.", vbExclamation, "Erro"

* * End If

* *

* * Set Banco = Nothing* *

* * Set Cliente = Nothing*

End Sub

deu um erro de sintaxe e de compilação na primeira linha:

Private Sub cmbClientes_AfterUpdate()

e eu estou doidinha, pois preciso dessa ferramenta urgente e sou quase totalmente tosca em códigos!!

Alguém pode me ajudar???

[MrMALJ]

Amigo utilize a função DLOOKUP(), existem vários exemplos dela aqui no forum (utilize a busca).

[Iceguy]

sei que é antigo o tópico, mas...

Tenta isso:

Private Sub cmbClientes_AfterUpdate()

    Dim Banco As Database
    Dim Cliente As Recordset
    Dim Sql As String
    
    Sql = "SELECT Endereco, Cidade, Estado, Telefone " & _
        "FROM tabClientes " & _
        "WHERE Nome='" & cmbClientes.Value & "'"

    Set Cliente = Banco.OpenRecordset(Sql)

    If Not Cliente.RecordCount = 0 Then
        Cliente.MoveFirst
        
        txtEndereco = Cliente("Endereco")
        txtCidade = Cliente("Cidade")
        txtEstado = Cliente("Estado")
        txtTelefone = Cliente("Telefone")
    Else
        MsgBox "Não existem dados para o cliente selecionado.", vbExclamation, "Erro"
    End If

    Cliente.Close
    Set Cliente = Nothing
    
    Banco.Close
    Set Banco = Nothing

End Sub