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

    [Resolvido]Valores duplicados

    avatar
    andre.santana
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/07/2011

    [Resolvido]Valores duplicados Empty Valores duplicados

    Mensagem  andre.santana 23/8/2011, 19:47

    Boa tarde,

    Access 2010.

    Tenho uma tabela com um campo que não permite valroes duplicados. No respectivo formulário, a mensagem de erro padrão do access aperece apenas quando tenta-se salvar o registro.

    Gostaria de saber se tem como aparecer uma mensagem personalizada e que esta mensagem apareça no momento em que o campo for preenchido e não apenas quando o registro for salvo.

    Obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  Convidad 23/8/2011, 19:52

    http://maximoaccess.forumeiros.com/t458-resolvidomensagem-para-tratamento-de-erro
    avatar
    andre.santana
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/07/2011

    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  andre.santana 23/8/2011, 20:34

    Obrigado pela ajuda Ricardo.

    Mas como detectar o erro imediatamente após preencher o campo em questão e não apenas ao terminar de preencher o formulário?

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  vieirasoft 26/8/2011, 11:38

    Faça o tratamento de erro para o próprio campo, assim:

    Private Sub Comando147_Click()
    On Error GoTo Err_Comando147_Click


    DoCmd.GoToRecord , , acFirst

    Exit_Comando147_Click:
    Exit Sub

    Err_Comando147_Click:
    MsgBox Err.Description
    Resume Exit_Comando147_Click


    End Sub


    Esta é a forma mais básica que o próprio assistente faz, agora estude a forma mais elaborada que foi-lhe passada acima.

    Qualquer dúvida apite.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  vieirasoft 26/8/2011, 11:43

    Eis aqui um exemplo de dados a inserir e que já existem no sistema

    Private Sub NomeCampo_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[NomeCampo]", "Tabela", _
    "[NomeCampo] ='" & Me!NomeCampo & "'"))) Then
    MsgBox "O Cliente já está cadastrado no sistema..." & NomeCampo.Text, _
    vbInformation, "xxxxxx"
    Cancel = True 'cancela o evento.
    Me!NomeCampo.Undo 'desfaz a digitação.
    End If
    End Sub
    avatar
    andre.santana
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/07/2011

    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  andre.santana 29/8/2011, 19:41

    Boa tarde Vieira

    Este último código funcionou perfeitamente.

    Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]Valores duplicados Empty Re: [Resolvido]Valores duplicados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 17:38