[Resolvido]Dlookup em campo Data

Boa tarde

Assim não avisa que a data já existe na tabela
If (Not IsNull(DLookup("[Data]", "Encomenda1", "[data] =" & Me!Data))) Then
MsgBox "Já Tem Um Registo de Produção Neste Dia.", vbInformation, "Produção"
Cancel = True 'cancela o evento.
Me.Operação.SetFocus
Me.Cliente = ""
Exit Sub
End If

Assim avisa sempre que a data já existe na tabela
If (Not IsNull(DLookup("[data]", "Encomenda1", "[data] ='" & Me.Data & "'"))) Then
MsgBox "Já Tem Um Registo de Produção Neste Dia.", vbInformation, "Produção"
Cancel = True 'cancela o evento.
Me.Operação.SetFocus
Me.Cliente = ""
Exit Sub
End If

Boas assis, estou no tablet.. mas veja este exemplo. Nele eu restrinjo a inserçao de novos registros levando em consideracao a data e mais um campo atraves do dlookup.

Espero que ajude.

http://maximoaccess.forumeiros.com/t3066-form-com-abertura-por-senha-em-imputbox-com-restricao-de-numero-de-registros

Cumprimentos

Boa noite Hary

Perfeito
Ficou assim, diferença marcadas a vermelho

If (Not IsNull(DLookup("[data]", "Encomenda1", "[data] =#" & Me.Data & "#"))) Then

Obrigado

O Fórum agradece o retorno. Bom trabalbo amigāo.

Hary
Boa tarde

Afinal falso alarme não funciona, deixa repetir registo com a mesma data.

Private Sub Data_AfterUpdate()
If (Not IsNull(DLookup("[Data]", "Encomenda1", "[Data] =#" & Me.Data & "#"))) Then
MsgBox "Já Tem Um Registo de Produção No Dia " & Data & "." & Chr(13) & "Abra Esse Documento e Adicione os dados em Falta em " & Chr(13) & "Produção Alterar", vbInformation, "Produção"
Cancel = True 'cancela o evento.
Me.Operação.SetFocus
Me.Operação = ""
Me.Cliente = ""
Me.Data = Forms!Menu!DataMenu
Exit Sub
End If

Aonde estará o erro ?

Assis creio que neste caso se utilizar o dcount ficaria melhor...

Dim x as integer

x = Dcount("[Data]", "Encomenda1", "[Data] =#" & Me.Data & "#")

If X > O then....


Apos o dcount coloque uma msgbox para vereificar o valor de x apenas enquanto testa o codigo

Msgbox x ....

Boa noite Hary

É igual ao DLookup

Assis, colocou uma msgbox para ver quantos registros retornou?


Tente assim

x = Dcount("[campoDaChavePrimaria]", "Encomenda1", "[Data] =#" & format(Me.Data, "dd/mm/yyyy") & "#")


So nao tenho como testar amigso, pois estou no tablet..

Talvez se formatar a data em mm/dd/yyyy possa ser que resolva.

Bom dia

Se puderem ajudar ... Obrigado

Funcionou aqui da seguinte maneira:

If DCount("*", "Encomenda1", "Data=#" & Format(Me.Data, "mm/dd/yyyy") & "#") > 0 Then
    MsgBox "Já existe essa data", vbCritical, "Atenção"
Else
    If MsgBox("Gravar Documento ? " & Chr(10) + Operação & Chr(10) + Cliente & Chr(10) + Chr(13) & "Documento " & Format(Encomenda, "0000000 "), vbYesNo + vbQuestion, "Aviso") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.GoToRecord , , acNewRec
        Me.Operação.SetFocus
    Else
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        Exit Sub
    End If
End If

Testei assim e deu certo tambem


Private Sub Data_Exit(Cancel As Integer)
On Error Resume Next
Dim x As Integer
x = DCount("[LN]", "Encomenda1", "[Data] =#" & Format(Me.Data, "mm/dd/yyyy") & "#")

If x = 1 Then
MsgBox "Já Tem Um Registo de Produção No Dia " & Data & "." & Chr(13) & "Abra Esse Documento e Adicione os dados em Falta em " & Chr(13) & "Produção Alterar", vbInformation, "Produção"
Cancel = True 'cancela o evento.
Me.Operação.SetFocus
Me.Operação = ""
Me.Cliente = ""
Me.Data = Forms!menu!DataMenu
End If

Me.Comando6.SetFocus
End Sub

Boa a tarde meus amigos

Criquio o seu exemplo funciona, mas como o formulario que enviei de exemplo não ia completo faltava-lhe o subformulario.
Como a função só ia funcior ao gravar o documento, acontecia que só depois de registar todos os dados nos dois forms, E o subform é um form de detalhes de artigos, é que ia gravar e detetar a data repetida.

Obrigado Criquio

Hary o seu exemplo está perfeito

Obrigado Hary

Não dá para por outro resolvido mas agora está mesmo

Bom domingo

O fórum agradece o retorno. Bom dmingo amigão.