Bonjour,

alors voilà: j'ai une BDD qui gère des prets/retours de clé. Un formulaire (formgestioncle) avec un subformHistoclesite qui me donne une liste de prets clés; si je clic sur un bouton, j'ouvre un autre formulaire qui me permet de preter une clé. Mon premier code sur ce bouton, n’empêchait pas de prêter des clés qui étaient déjà prêtées (champ Pret_DateRet vide). Le code suivant affiche une msgbox "clé pas rendue" si la clé n'est pas revenue (si la clé est revenue, ça m'envoie vers le formulaire de prêt comme souhaité).Cependant, j'ai le problème suivant: si aucun pret n'a été effectué, le champ du sous formulaire n'existe pas et ça bloque.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommPretCle_Click()
    If (Nz(Me.subformHistoCleSite.Form.Pret_DateRet, "") = "") Then
    MsgBox ("Cette clé n'a pas été rendue")
    Else
    DoCmd.OpenForm "formPreterCleSite", , , , acFormAdd
    Forms!formPreterCleSite![Trou_Id] = Me.Trou_Id
    Forms!formPreterCleSite![Pret_DateDep] = Date
    End If
End Sub
Auriez vous une piste?