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]Verificar Registro já Existente - Validação de Dados

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Verificar Registro já Existente - Validação de Dados Empty [Resolvido]Verificar Registro já Existente - Validação de Dados

    Mensagem  rodrigosky 25/9/2017, 12:14

    Bom Dia, desde já agradeço mais uma vez o espaço e a todos, no momento estou com o seguinte problema, tenho um formulário onde é feito a inclusão de dados onde estou tentando fazer um código de validação de dados, por exemplo, antes da conclusão da inserção das informações ele deve verificar se o usuário e data de inclusão já existe, caso existindo trazer a mensagem de avisando, porem ele não está varrendo a tabela por completo, pois se um usuário inserir uma data que ele mesmo já incluiu anteriormente ele consegue, é como se o código localiza-se somente os últimos registros.

    Dim sql As String
    Dim nomeusuario As String
    Dim datainclusao As Date
    Dim rst As Recordset

    If Len(Me.Texto14 & vbNullString) = 0 Then
    MsgBox "O Preenchimento do Campo Data é Obrigatório, Gentileza Preenche-lo!", vbInformation, "Sistema!"
    Exit Sub

    Else

    nomeusuario = LCase([Forms]![frm_login]![txt_usuario])
    datainclusao = [Forms]![frm_menu_principal]![Texto14]

    Set mdb = CurrentDb
    Set rst = CurrentDb.OpenRecordset("SELECT data FROM tbl_dados WHERE usuario2 = '" & nomeusuario & "' AND data = #" & datainclusao & "# ")

    If rst.RecordCount > 0 Then
    MsgBox "Data Informada já Consta Cadastrada para o Usuário '" & nomeusuario & "'", vbInformation, "Sistema!"


    Else....
    (desta parte para baixo o código não apresenta falhas)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Verificar Registro já Existente - Validação de Dados Empty Re: [Resolvido]Verificar Registro já Existente - Validação de Dados

    Mensagem  thiagomcosta 25/9/2017, 12:49

    Datas em consultas SQL tem que ser sempre em formato americano.

    Tente alterar a linha abaixo, colocando a função format


    Set rst = CurrentDb.OpenRecordset("SELECT data FROM tbl_dados WHERE usuario2 = '" & nomeusuario & "' AND data = #" & format(datainclusao, "mm/dd/yyyy") & "# ")
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Verificar Registro já Existente - Validação de Dados Empty Re: [Resolvido]Verificar Registro já Existente - Validação de Dados

    Mensagem  rodrigosky 25/9/2017, 13:01

    Obrigado Thiago era exatamente este detalhe, muito obrigado.
    Valeu cheers cheers

    Conteúdo patrocinado


    [Resolvido]Verificar Registro já Existente - Validação de Dados Empty Re: [Resolvido]Verificar Registro já Existente - Validação de Dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 16:12