G
g6k
Guest
Bonjour à tous,
J'aimerais obtenir de l'aide : J'ai une macro qui fait appel à une requete access paramétrée. Mon probleme c'est que le résultat de la requete peut être Null.
Je voudrais insérer dans ma macro une instruction qui me permettrait de rebondir sur une telle situation, mais je ne sais pas comment on "traduit" NULL en VBA (sur Excel). Mon exemple sera plus explicite :
Dim bd As DAO.Database
Dim rs As Recordset
Set bd = OpenDatabase("R:\DOP\ACH\INT\Reporting\Bases ACCESS\Copie_ACCESS-MAXPROD-ACHATS.mdb")
Set q = bd.QueryDefs("JD - CA par fournisseur (hors taxes)") 'nom de ma requête
n$ = Cells(i, 2)
q.Parameters("COMPANY ?") = n$
q.Parameters("Date début période ?") = d2
q.Parameters("Date fin période ?") = d1
Set rs = q.OpenRecordset
If résultat de la requete Null Then
Cells(i, 7) = "COMPANY non valide"
Else
Cells(i, 7).Value = rs.Fields("CA_hors_taxes")
Cells(i, 8) = Cells(i, 7) / Cells(i, 6)
End If
Si quelqu'un sait par quoi je dois remplacer ce qui est en rouge...??
Merci d'avance
g6k
J'aimerais obtenir de l'aide : J'ai une macro qui fait appel à une requete access paramétrée. Mon probleme c'est que le résultat de la requete peut être Null.
Je voudrais insérer dans ma macro une instruction qui me permettrait de rebondir sur une telle situation, mais je ne sais pas comment on "traduit" NULL en VBA (sur Excel). Mon exemple sera plus explicite :
Dim bd As DAO.Database
Dim rs As Recordset
Set bd = OpenDatabase("R:\DOP\ACH\INT\Reporting\Bases ACCESS\Copie_ACCESS-MAXPROD-ACHATS.mdb")
Set q = bd.QueryDefs("JD - CA par fournisseur (hors taxes)") 'nom de ma requête
n$ = Cells(i, 2)
q.Parameters("COMPANY ?") = n$
q.Parameters("Date début période ?") = d2
q.Parameters("Date fin période ?") = d1
Set rs = q.OpenRecordset
If résultat de la requete Null Then
Cells(i, 7) = "COMPANY non valide"
Else
Cells(i, 7).Value = rs.Fields("CA_hors_taxes")
Cells(i, 8) = Cells(i, 7) / Cells(i, 6)
End If
Si quelqu'un sait par quoi je dois remplacer ce qui est en rouge...??
Merci d'avance
g6k