Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"pag" | j'ai un ch'ti problème, comment faire pour continuer la lecture du code si | la valeur de x = rs.RecordCount est de null. | | J'ai mis rs.MoveLast avant, ca fonctionne très bien si il y a plusieurs | enregistrements, maisplante s'il y en a pas. | | Merci de votre aide. | | P.-A | | Voiçi mon code: | | Set db = CurrentDb | sSQL1 = "SELECT Tbl_VhcManif.CodeMbre, Count(Tbl_VhcManif.CodeManif) AS | CompteDeCodeManif " | sSQL2 = "FROM Tbl_VhcManif GROUP BY Tbl_VhcManif.CodeMbre " | sSQL3 = "HAVING Tbl_VhcManif.CodeMbre = " & Form_F_detailManif.CodeMbre | | sSQL = sSQL1 + sSQL2 + sSQL3
On concatène avec le signe "&" et non le signe "+"
| Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
if not rs.EOF Then rs.MoveLast nbrVHC = rs.recordcount else nbrVHC = 0 end if
"pag"
| j'ai un ch'ti problème, comment faire pour continuer la lecture du code si
| la valeur de x = rs.RecordCount est de null.
|
| J'ai mis rs.MoveLast avant, ca fonctionne très bien si il y a plusieurs
| enregistrements, maisplante s'il y en a pas.
|
| Merci de votre aide.
|
| P.-A
|
| Voiçi mon code:
|
| Set db = CurrentDb
| sSQL1 = "SELECT Tbl_VhcManif.CodeMbre, Count(Tbl_VhcManif.CodeManif) AS
| CompteDeCodeManif "
| sSQL2 = "FROM Tbl_VhcManif GROUP BY Tbl_VhcManif.CodeMbre "
| sSQL3 = "HAVING Tbl_VhcManif.CodeMbre = " & Form_F_detailManif.CodeMbre
|
| sSQL = sSQL1 + sSQL2 + sSQL3
On concatène avec le signe "&" et non le signe "+"
| Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
if not rs.EOF Then
rs.MoveLast
nbrVHC = rs.recordcount
else
nbrVHC = 0
end if
"pag" | j'ai un ch'ti problème, comment faire pour continuer la lecture du code si | la valeur de x = rs.RecordCount est de null. | | J'ai mis rs.MoveLast avant, ca fonctionne très bien si il y a plusieurs | enregistrements, maisplante s'il y en a pas. | | Merci de votre aide. | | P.-A | | Voiçi mon code: | | Set db = CurrentDb | sSQL1 = "SELECT Tbl_VhcManif.CodeMbre, Count(Tbl_VhcManif.CodeManif) AS | CompteDeCodeManif " | sSQL2 = "FROM Tbl_VhcManif GROUP BY Tbl_VhcManif.CodeMbre " | sSQL3 = "HAVING Tbl_VhcManif.CodeMbre = " & Form_F_detailManif.CodeMbre | | sSQL = sSQL1 + sSQL2 + sSQL3
On concatène avec le signe "&" et non le signe "+"
| Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
if not rs.EOF Then rs.MoveLast nbrVHC = rs.recordcount else nbrVHC = 0 end if