écrire dans une colonne d'une table suite a une condition.

Sub runtype()
Dim Jour As String
Dim db As Database
Dim rsdateres As DAO.Recordset
Dim rsrun1 As DAO.Recordset
Dim rsrun2 As DAO.Recordset
Dim rsrun3 As DAO.Recordset
Dim fld As DAO.Field
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String
'Dim i As long


'i = 1
Jour = date
MsgBox Jour

Set db = CurrentDb

    sSQL1 = "SELECT date_resil FROM Dossier"
    Set rsdateres = db.OpenRecordset(sSQL1, dbOpenForwardOnly, dbReadOnly) ' Ouverture du Recordset
    MsgBox rsdateres
    
    sSQL2 = "select Run1 FROM calendrier"
    Set rsrun1 = db.OpenRecordset(sSQL2, bOpenForwardOnly, dbReadOnly)
    MsgBox rsrun1
    
    sSQL3 = "select Run2 FROM calendrier"
    Set rsrun2 = db.OpenRecordset(sSQL3, bOpenForwardOnly, dbReadOnly)
    MsgBox rsrun2
   
    SSQL4 = "select Run3 FROM calendrier"
    Set rsrun3 = db.OpenRecordset(SSQL4, bOpenForwardOnly, dbReadOnly)
    MsgBox rsrun3
    '1
    
    If rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun1!Run1 Then
       .Fields("run") = Run1
       
       ElseIf rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun2!run2 And rsdateres!date_resil > rsrun1!Run1 Then
            'If rsdateres < Jour And rsdateres < rsrun2 And rsdateres > rsrun1 Then
                .Fields("run") = run2
        
                ElseIf rsdateres!date_resil < Jour And rsdateres!date_resil < rsrun3!run3 And rsdateres!date_resil > rsrun2!run2 Then
                    'If rsdateres < Jour And rsdateres < rsrun3 And rsdateres > rsrun2 Then
                        .Fields("run") = run3
        
                         ElseIf rsdateres!date_resil < Jour And rsdateres!date_resil > rsrun3!run3 Then
                            'If rsdateres < Jour And rsdateres > rsrun3 Then
                                .Fields("run") = pas - résilier
                             End If
                    End If
            End If
    End If
       
        
          
'rst.Close ' Fermeture du Recordset
'l = rst.RecordCount
End Sub