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


3 participantes

    [Resolvido]Registro duplicado

    avatar
    w_fabricio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/09/2010

    [Resolvido]Registro duplicado Empty [Resolvido]Registro duplicado

    Mensagem  w_fabricio 22/9/2010, 23:43

    Amigos boa noite

    tenho um sisteminha pra controle de internação, no lançamento, classifica por data, hospital, e tipo de internação, gostaria de quando fosse lançar um tipo de internação ja existente para o mesmo hospital e data o sistema avise.



    exemplo:
    Data: 21/09/2010
    Hospital: Ressucita
    Tipo internação: Clínica
    " se for lançar uma outra internação clínica com a mesma data e hospital, avise.


    até....
    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    [Resolvido]Registro duplicado Empty Re: [Resolvido]Registro duplicado

    Mensagem  Macedo 27/9/2010, 00:24

    por acaso esse sistema é pro UNIMED? APDD
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Registro duplicado Empty Re: [Resolvido]Registro duplicado

    Mensagem  vieirasoft 27/9/2010, 00:37

    Caro Amigo Modifique o código para os valores que pretende

    Private Sub sua caixa de texto_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[seucampo]", "nome da tabela", _
    "[seucampo] ='" & Me!seucampo & "'"))) Then
    MsgBox "O seu campo já está cadastrado no sistema..." & seu campo.Text, _
    vbInformation, "nome que deseja para o aviso"
    Cancel = True 'cancela o evento.
    Me!seucampo.Undo 'desfaz a digitação.
    End If
    End Sub
    avatar
    w_fabricio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/09/2010

    [Resolvido]Registro duplicado Empty Re: [Resolvido]Registro duplicado

    Mensagem  w_fabricio 2/10/2010, 02:05

    Valeu Vieira...

    Funcionou certinho.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Registro duplicado Empty Re: [Resolvido]Registro duplicado

    Mensagem  vieirasoft 2/10/2010, 10:16

    Abraço e bom trabalho amigão

    Obrigado pelo retorno

    Conteúdo patrocinado


    [Resolvido]Registro duplicado Empty Re: [Resolvido]Registro duplicado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:30