VBA ( modif automatiq d'1 champ par code )

j'essaie de modifier automatiquement un champ de type oui/non d'un etable de la base courante Je l'ai fait par requete mise a jour mais j'un ble de ce type : type de donnees incompatible .
je le fais egalement en vba, mais j'ai toujours le bleme: incompatibilite detype, si quelqu'un peut m'aider. Voici le code vba:

Private Sub date_retour_reel_GotFocus()

Dim db As Database
Dim rs As Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("EXEMPLAIRE", dbOpenDynaset)
If (date_retour_reel.Value = 0 / 0 / 0) Then
rs.Fields("disponible").Value = 0
End If
rs.Close
Set rs = Nothing
Set db = Nothing

j'ai egalement le meme bleme pour la fonction qui fais l'inverse : voici ce code ::

Function disponible()
Dim rsem, rsex As Recordset
Dim db As Database
Set db = Application.CurrentDb
Set rsex = db.OpenRecordset("EXEMPLAIRE", dbOpenDynaset)
Set rsem = db.OpenRecordset("EMPRUNT", dbOpenTable, dbReadOnly)
If ((rsem.Fields("date_emprunt").Value = Date) And (rsem.Fields("n°exemplaire").Value = rsex.Fields("n°exemplaire").Value)) Then
rsex.Fields("disponible").Value = 1
End If
rsex.Close
rsem.Close
Set rsex = Nothing
Set rsem = Nothing
Set db = Nothing

End Function
End Sub