Abrir Form com condição

Bom dia colegas.

Estou com a seguinte dificuldade.
Registrar entrada do produto e somente será permitido outra entrada do mesmo produto contado 60(sessenta) dias após.

Bom dia.
Insira um capo data na tabela de entrada para registrar o dia da entrada.
Em seguida outra para captar tipo: [Data_Registro]+60.
Assim ao tentar registrar outro produto no form ele faria a busca nesta segunda caixa.

Mais ou menos assim.

Bom dia Claudio. obrigado por responder.

Já havia feito o que sugere mas em consulta a qual a data com a do registro somado os 60 dias.
Mas ao registrar esse produto não pode estar na lista somente após 60 dias.

Quer dizer que este produto só pode aparecer na lista apos 60 dias?

Posta alguma coisa pra gente analisar se puder..

Cafpr, você resolve isso com Recordset, um exemplo:

Dim rs As Dao.Recordset
Dim db As Dao.Database
Dim str As String

str = "SELECT CodProduto, (Now()-DataEntrada) As QtdeDias FROM SuaTabela WHERE CodProduto=" & CampoComCodigo

Set db = CurrentDb()
Set rs = db.OpenRecordset(str)

If rs("QtdeDias") < 60 Then
MsgBox "Esse produto foim lançado a menos de 60 dias!"
Else
Exit Sub
End If

db.CLose
Set db = Nothing
rs.Close
Set rs = Nothing

Perfeito o que o amigo Leandro postou.
Funfa direitinho.

Esta dando erro

Cafpr, preciso do arquivo em formato access 2000 por favor.

Mas me diga qual erro está acontecendo?

ao lançar o "prod1" dá o erro 3061 . Parâmetros insuficientes: Set rs = db.OpenRecordset(str)

http://speedy.sh/zm4YF/cafpr2000.rar

Veja:

Erros:

String - você não informou corretamente o nome da tabela
Critério - você esqueceu de montar para busca de texto com as aspas simples
Combo - você não informou o nome da combo no critério

Melhoria:

Mudar o nome do campo "Data" da tabela, esse é um nome reservado a função do access.

Há como impedir para não salvar?

com Me.Undo desfaz a digitação e consequentemente não salva.
Obrigado Leandro.

Obrigado pelo retorno!!!

Leandro um instante...

Digitando data superior a 60 dias surge a mensagem e após desfaz a digitação.

O que pode ser?

Grande Leandro... parabéns!

Bom dia colegas.....

Digitando data superior a 60 dias emite mensagem e desfaz digitação.

Boa tarde, cafpr
Reabrir o tópico não é criar novo tópico. Abra-o e prima o botão "Resolvido", que passará a não resolvido e dê continuidade ao assunto
Sobre a sua dúvida, não sei o código todo que está a utilizar, mas adaptando o código do Amigo Leandro
If rs("QtdeDias") < 60 Then
MsgBox "Esse produto foim lançado a menos de 60 dias!"
'Else <- retira esta linha
'Exit Sub <- retira esta linha
End If

Para mim o correto é percorrer a tabela toda e procurar;

Private Sub data_AfterUpdate()
On Error Resume Next
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim intDias As Integer
Dim strData As Date

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT data, produto FROM tblProd WHERE produto='" & Me!Produto & "'")
intDias = 0

rs.MoveLast
rs.MoveFirst

 Do While Not rs.EOF
 strData = rs!data
 intDias = DateDiff("d", strData, Now())
 
        If intDias < 60 Then
           MsgBox "Esse produto foi lançado a menos de 60 dias!", vbCritical
        DoCmd.CancelEvent
        Exit Sub
        Else
        End If
            rs.MoveNext
        Loop
db.Close: Set db = Nothing
rs.Close: Set rs = Nothing
End Sub

Bom dia colegas.

Esta correto Alexandre.
Jpaulo, é pela data do sistema e não a da informada no form. é isso mesmo?

Precisamente, faça o teste.

Data do sistema.

Olá a todos,

Clóvis Fedrigo, como ficou a situação.
Os usuários do forum agradecem o retorno.

Caso esteja a situação esclarecida, não se esqueça do Resolvido.

Abraço