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


    [Resolvido]Bloquear Registro Duplicado

    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Bloquear Registro Duplicado Empty Bloquear Registro Duplicado

    Mensagem  adriano944 1/2/2012, 18:21

    Pessoal
    Boa Tarde

    estou com a seguinte duvida.

    tenho uma tabela alimentada por um formulario, ate ai tudo bem. porem quando o usuario clicar na opção para localizar uma informação, preciso que o sistema consulte se as 3 informações passadas pelo formulario, existem no banco.. exemplo:

    Formulario
    __________________________________
    | |
    | Campo Numero: xxxxxxxx |
    | Data: xx/xx/xxxx |
    | Campo Linha: xxxxxxxxxx |
    | |
    | BtnLocalizar BtnSair |
    |__________________________________|

    o que preciso é realizar uma consulta tipo (select * from tabela1 where [campo numero] = formulario.[campo numero] and data = formulario.data and [campo linha] = formulario.[campo linha].
    nessa consulta vou informar pro usuario se existe algum registro com essas 3 informações.

    tentei com a instrução abaixo, sem sucesso:
    If Not dcount("Desenho", "REGISTRO FALTANTES", "DESENHO='" & Me.FrmConsultaTxtDesenho.Value & "' And DATA=#" & Me.lbdataconsulta.Caption & "# And LINHA='" & Me.cmbFrmPesadosConsultaLinha.Value & "'")>0 Then

    se alguem souber me dizer o que fiz de errado e/ou pude me indicar uma maneira mais facil de realizar essa consulta..

    desde ja agradeço e me coloco a disposição para eventuais esclarecimentos caso faça necessário.

    Atenciosamente

    Adriano Rocha
    avatar
    Convidad
    Convidado


    [Resolvido]Bloquear Registro Duplicado Empty Re: [Resolvido]Bloquear Registro Duplicado

    Mensagem  Convidad 3/2/2012, 00:53

    OLá

    Tente assim:

    If dcount("*", "REGISTRO FALTANTES", "DESENHO=" & Me.FrmConsultaTxtDesenho.Value & " And DATA=#" & Me.lbdataconsulta.Caption & "# And LINHA=" & Me.cmbFrmPesadosConsultaLinha.Value)>0 Then

    Tirei o Not porque Dcount retorna valor então você escolhe o que fazer quando for = 0 ou >0.
    Provavelmente a linha acima não funcione de imediato pois:

    - Se Me.FrmConsultaTxtDesenho.Value contém valor não recebe aspa simples (')
    - Creio ser melhor colocar a String do rótulo Dataconsulta numa variável e depois converter ela para tipo data (CDate(variavel)
    Use a janela imediata para ir testando os valores até chegar no pretendido
    Sugiro que faça isso em partes.
    Grande abraço
    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Bloquear Registro Duplicado Empty Re: [Resolvido]Bloquear Registro Duplicado

    Mensagem  adriano944 11/2/2012, 12:06

    Muito obrigado pelo seu retorno Balem.

    Tudo certo!
    avatar
    Convidad
    Convidado


    [Resolvido]Bloquear Registro Duplicado Empty Re: [Resolvido]Bloquear Registro Duplicado

    Mensagem  Convidad 11/2/2012, 13:30

    E eu agradeço teu retorno

    Boa sorte !!

    Conteúdo patrocinado


    [Resolvido]Bloquear Registro Duplicado Empty Re: [Resolvido]Bloquear Registro Duplicado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 20:50