MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Preencher campos automaticamente

    Compartilhe

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    [Resolvido]Preencher campos automaticamente

    Mensagem  smallville em Qua 03 Set 2014, 13:13

    Oi, bom dia. Tenho o bd em anexo e queria que ao digitar no campo CPF automaticamente os campos Proposto, Telefone, Aluno, RG e Email fossem preenchidos. Tentei com a função DLOOKUP mas fica dando um erro de sintaxe.
    Queria também que ao escolher no campo "Aluno" a opção Graduação, no campo "Unidade" fosse selecionado Unidade2.

    Desde já agradeço
    Anexos
    SCDP_BD2003.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (79 Kb) Baixado 29 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Preencher campos automaticamente

    Mensagem  JPaulo em Qua 03 Set 2014, 14:13

    Faça por Recordset;

    Código:
    Private Sub CPF_AfterUpdate()
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim strSQL As String
       
       
        Me.CPF.SetFocus
        If Me.CPF.Value > 0 Then
            strSQL = "SELECT * FROM PCDP WHERE CPF = '" & Me.CPF.Value & "'"
       
            Set db = CurrentDb
            Set rs = db.OpenRecordset(strSQL)
            If Not rs.BOF Then
                Me.Telefone = rs("Telefone")
                Me.Aluno = rs("Aluno")
                Me.Documentos = rs("Documentos")
                Me.Email = rs("Email")
                Me.Proposto = rs("Proposto")
                Me.Unidade = rs("Unidade")
            End If
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Preencher campos automaticamente

    Mensagem  smallville em Qua 03 Set 2014, 14:46

    Oi JPaulo, muito obrigado. Funcionou. Quanto à outra dúvida eu fiz assim e deu certo:

    Private Sub Aluno_BeforeUpdate(Cancel As Integer)
    If Me.Aluno = "Pós-Graduação" Then
    Me.Unidade.Value = 2
    Else
    Me.Unidade.Value = ""
    End If
    End Sub
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Preencher campos automaticamente

    Mensagem  JPaulo em Qua 03 Set 2014, 15:57

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 20 Nov 2017, 17:07