MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    caixa de combinação com código

    ANSELMOTERRA
    ANSELMOTERRA
    Novato
    Novato


    Respeito às regras : 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 3/12/2020, 00: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 : Respeito às Regras 100%

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

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

    Mensagem  ANTONILDO CORDEIRO 3/12/2020, 03: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: 6/10/2022, 08:00