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]Erro para identificar campo em duplicidade

    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 04/05/2012

    [Resolvido]Erro para identificar campo em duplicidade Empty [Resolvido]Erro para identificar campo em duplicidade

    Mensagem  messias.cadete 15/12/2015, 19:50

    Boa tarde pessoal,

    Preciso de uma pequena ajuda de vocês, estou usando esse code para identificar se tem algum registro em duplicidade e se eu desejo continuar, o problema é seguinte quando eu coloco sim ele funcionar perfeitamente, mais quando eu coloco não ele da uma mensagem de erro anexa, quando eu mando Depura e diz que o erro esta aqui strWhere.Text = "", o que eu faço para corrigir.  

    Código:
    Private Sub strWhere_BeforeUpdate(Cancel As Integer)
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    If IsNull(DLookup("sys", "CSample", "([sys] = '" & Forms![frmSample]![sys] & "')")) Then
    GoTo Saida
    End If
    If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbYes Then
        Else
        strWhere.Text = ""
    End If
     Exit Sub
    Saida:

        Exit Sub

    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Erro para identificar campo em duplicidade Empty Re: [Resolvido]Erro para identificar campo em duplicidade

    Mensagem  Noobezinho 15/12/2015, 20:12

    Messias

    Vendo o teu código:

    Private Sub strWhere_BeforeUpdate(Cancel As Integer)
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    If IsNull(DLookup("sys", "CSample", "[sys] = '" & Forms!frmSample!sys & "'" Then
      Exit sub
    End If

    If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbNo Then
          Me.strWhere = Null
    End If

    End sub


    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    messias.cadete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 04/05/2012

    [Resolvido]Erro para identificar campo em duplicidade Empty Re: [Resolvido]Erro para identificar campo em duplicidade

    Mensagem  messias.cadete 16/12/2015, 04:20

    Obrigado pela ajuda, de imediato apareceu o mesmo erro, mais após analisar o seu code consegui descobrir onde eu estava errando, como eu estava usando no evento antes de atualizar, acredito que era por que eu estava anulando um campo que já estava nulo, por isso que estava dando a mensagem de erro.

    Private Sub strWhere_BeforeUpdate(Cancel As Integer)
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    If IsNull(DLookup("sys", "CSample", "[sys] = '" & Forms!frmSample!sys & "'")) Then
     Exit sub
    End If

    If MsgBox("Aviso: " & UCase(Me.sys) & " Veículo já agendado nesta data!", vbYesNo + vbQuestion, "Atenção!...") = vbNo Then
         Me.strWhere = Null 'Substitui esse campo por outro, ficou perfeito'
    End If

    End sub

    Agradeço a esta equipe por esta sempre disposto a nos ajudar e Deus venha abençoando vocês cada vez mais.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Erro para identificar campo em duplicidade Empty Re: [Resolvido]Erro para identificar campo em duplicidade

    Mensagem  Noobezinho 16/12/2015, 09:37

    Ótimo que resolveu

    Valeu pelo retorno.

    Estaremos aguardando teu retorno, Messias! Razz

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Erro para identificar campo em duplicidade Empty Re: [Resolvido]Erro para identificar campo em duplicidade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:31