Pessoal, bom dia!
Já tentei de tudo, mas não conseguir resolver esse problema. O que eu quero é pegar a data mais antinga e excluir... vejam
dt = Format(DMin("AQInicial", "tblFeriasHorista", "RegistroF = " & Me.cboregistro), "dd/mm/yyyy") ' pega a data mais antiga.
If DCount("RegistroF", "tblferiashorista", "RegistroF = " & Me.cboregistro) = 5 Then ' conta se existe 5 registro do mesmo "RegistroF". caso sim, deleta a data mais antiga.
DoCmd.RunSQL "DELETE * FROM tblFeriasHorista WHERE (AQInicial) = " & dt & ";"
End If
e agora? Quem poderá me ajudar?!?! Obrigado!
Já tentei de tudo, mas não conseguir resolver esse problema. O que eu quero é pegar a data mais antinga e excluir... vejam
dt = Format(DMin("AQInicial", "tblFeriasHorista", "RegistroF = " & Me.cboregistro), "dd/mm/yyyy") ' pega a data mais antiga.
If DCount("RegistroF", "tblferiashorista", "RegistroF = " & Me.cboregistro) = 5 Then ' conta se existe 5 registro do mesmo "RegistroF". caso sim, deleta a data mais antiga.
DoCmd.RunSQL "DELETE * FROM tblFeriasHorista WHERE (AQInicial) = " & dt & ";"
End If
e agora? Quem poderá me ajudar?!?! Obrigado!