If colonne vide tableau (access vba)

[Résolu/Fermé]
Signaler
-
 Ana87 -
Bonjour,
voici mon code,
Dim rsreg As ADODB.Recordset
Dim rsintregreg As ADODB.Recordset


Set con = CurrentProject.Connection
Set rsreg = New ADODB.Recordset
Set rsintreg = New ADODB.Recordset
''
rsreg.Open "[TabIntervalEnqRegl]", con, 1, 3
rsintreg.Open "[tabRegTm]", con, 1, 3
'
Do While rsreg.EOF = False

N_Permis = rsreg("n_permis")
date_recp = rsreg("Date_Reception")
date_repo = rsreg("date_report")
date_real = rsreg("date_realisation")

If (date_repo) = "" And (date_real) = "" Then
date_recp = DateAdd("d", 10, [date_recp])

Else

If (date_repo) <> "" And (date_real) = "" Then
date_repo = DateAdd("d", 10, [date_repo])
End If

'Debug.Print date_recp
Debug.Print date_recp, "__", date_repo


normalement ce que je veux c'est:

- tant que la valeur ( date_repo) et (date_real) sont vide j'ajoute 10 jours à la valeur (date_recep).

- tant que la valeur (date_repo) <> = " et que (date_real) vide j'ajoute 10 jours à la valeur (date_recep).

Le code ne marche pas, SAUF dans le 2ème cas lorsque je retire la ligne:
If (date_repo) <> ""  Then
date_repo = DateAdd("d", 10, [date_repo])
End If


la date_repo affiche +10.

que dois je faire, j'ai utiliser le RS pour récupérer les champs de ma table afin de faire cette mise à jour, mais lorsque j'ajoute ses clauses ça ne marche, si je retire les clauses "if" ça marche.

???

1 réponse

Messages postés
15957
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 septembre 2021
1 534
Bonjour,

en commentaire votre code

    '---------------------------------------------------------
    'If (date_repo) = "" And (date_real) = "" Then
    '    date_recp = DateAdd("d", 10, [date_recp])
    'Else
    '    If (date_repo) <> "" And (date_real) = "" Then
    '        date_repo = DateAdd("d", 10, [date_repo])
    '    End If
    '---------------------------------------------------------
    If (date_real) = "" Then
        If (date_repo) = "" Then
            date_recp = DateAdd("d", 10, [date_recp])
        Else
            date_repo = DateAdd("d", 10, [date_repo])
        End If
    End If
merci ça marche.