Lupércio- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011
Lupércio 22/11/2019, 09:40
Bom dia amigo.
Não recordo de quem é o código mas adapte.
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 TblCliente WHERE cliente='" & Me!cliente & "'")
intDias = 0
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
strData = rs!data
intDias = DateDiff("d", strData, Now())
If intDias > 30 Then
MsgBox "Esse cliente comprou a mais de 30 dias!", vbCritical
DoCmd.CancelEvent
Exit Sub
Else
End If
rs.MoveNext
Loop
db.Close: Set db = Nothing
rs.Close: Set rs = Nothing
End Sub
.................................................................................
Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.