vttman2 a écrit :
J'aurais codé comme ça ...
If CodeBar.Text <> "" Then
DateEmprunt.Value = Date
If IsNull(Me![DateEmprunt]) Then
MsgBox "Vous empruntez un soft"
Else
MsgBox "Vous rendez un soft"
end if
MsgBox "Fin du test de DateEmprunt"
End If
|
En bon français: Si CodeBar.Text est différent alors mettre la date d'aujourd'hui dans le champ DateEmprunt et ensuite, Si DateEmprunt est null, mettre le mess "Vous empruntez un soft".
Ma question/remarque: rien qu'en changeant le champs codeBar, il inscrit dérectement la date actuelle dans le champ DateEmprunt et après il va tester ce mm champ pour savoir s'il est null(pas possible vu qu'il vient d'y mettre la date actuelle)... il y a un hic là, non?
Ne pas oubler que si le champ DateEmprunt n'est PAS Null, la base doit mettre la date actuelle dans le champ DateRetour(pour montrer qu'il est donc retourné au centre de prêt)...
---------------
Le bien ou le mal, l'homme ou l'animal, on ne voit jamais l'un sans l'autre