MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    caixa de combinação com código

    ANSELMOTERRA
    ANSELMOTERRA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 08/11/2020

    caixa de combinação com código Empty caixa de combinação com código

    Mensagem  ANSELMOTERRA em Qua 2 Dez - 17:13

    Boa noite, esse BD (anexo) tem um formulário (1-unidirregtermo) que quando se digitam valores, pode aparecer a msgbox padrão por já ter sido digitado em outro formulário       (4-solicitacaodebv), já que a tabela principal que fornece valores diferentes para os dois formulários diferentes, tem uma chave primária para os dois na tabela principal (1-unidirreg).
    Então eu criei uma cx de combinação(Combinação298) que se procura o  registro, se ele já foi digitado no outro formulário só tenho que digitar os outros valores passando para os outros campos, mas se não foi, tenho que ir para a cx de texto do registro(codigo postal) para digitar ele e depois os outros valores.
    Quero saber se podem facilitar, mostrando um código nessa caixa de texto (codigo postal) que procure se o registro já existe na tabela (1-unidirreg). E se ele existir, que possa abrir msgbox avisando que já existe o registro (codigo postal) e ao dar ok nela, ele deixa o registro vidente e pule para o próximo campo para se digitar os outros valores.
    E quando não existir o registro ele deve se manter na caixa de texto (codigo postal) para digitar o novo.
    Podem ajudar? Grato desde já.


    .................................................................................
    AnselmoTerra
    ANTONILDO CORDEIRO
    ANTONILDO CORDEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 02/04/2019

    caixa de combinação com código Empty Re: caixa de combinação com código

    Mensagem  ANTONILDO CORDEIRO em Qua 2 Dez - 20:02

    Boa noite Anselmo!!!

    eu uso assim
    If (Eval("DLookUp(""[NOMECLIENTE]"",""[CLIENTE]"",""[NOMECLIENTE] = Form.[ASSOCIADO] "") Is NOT Null")) Then
    Me.SEXO = Me.ASSOCIADO.Column(1)
    Me.CPF = Me.ASSOCIADO.Column(2)
    Me.RG = Me.ASSOCIADO.Column(3)
    Me.DATANASC = Me.ASSOCIADO.Column(4)
    Me.END = Me.ASSOCIADO.Column(5)
    Me.Nº = Me.ASSOCIADO.Column(6)
    Me.BAIRRO = Me.ASSOCIADO.Column(7)
    Me.CIDADE = Me.ASSOCIADO.Column(Cool
    Me.FONE = Me.ASSOCIADO.Column(9)
    Me.CONVENIO = Me.ASSOCIADO.Column(10)
    Me.CONVENIO.SetFocus
    Me.CONVENIO.Requery

    os campos sao naoacoplados ou naoassociado que recebem as informacoes da caixadecombinacao ASSOCIADO

    Se ele nao atualizar ai vc continua o cadastro normal ai vc precisa de um botao ou um campo para receber esse codigo

    Dim db As Database, RS As Recordset

    If (Eval("DLookUp(""[NOMECLIENTE]"",""[CLIENTE]"",""[NOMECLIENTE] = Form.[ASSOCIADO] "") Is Null")) Then
    Set db = CurrentDb()
    Set RS = db.OpenRecordset("CLIENTE") 'Abre tbl_Parcelas
    RS.AddNew
    RS("NOMECLIENTE") = Me.ASSOCIADO
    RS("ENDEREÇO") = Me.END
    RS("Nº") = Me.Nº
    RS("BAIRRO") = Me.BAIRRO
    RS("[DATA DE NASCIMENTO]") = Me.DATANASC
    RS("SEXO") = Me.SEXO
    RS("CONVENIO") = Me.CONVENIO
    RS("CIDADE") = Me.CIDADE
    RS("FONES") = Me.FONE
    RS("RG") = Me.RG
    RS("CPF") = Me.CPF
    RS.Update
    RS.Close
    db.Close

    End If


    espero lhe ajudar



      Data/hora atual: Qua 27 Jan - 12:11