Discussion :

[tAKAmAkA]

Bonjour à tous,

Voilà, j'ai une fonction pour créer un certain nombre de nouveaux enregistrements, déclenchée par un bouton et passant trois variables (un champ identificateur, une variable début(ProchainArticle) et un champ NbreArticle.
Ca fonctionne sauf si la table cible de l'INSERT est vide car alors le recordset est vide et ne peut pas calculer le prochain champ clé en numauto.

J'ai essayé différents tests (qui d'habitude me donnent satifaction) avec BOF ou EOF sans résultat, c'est curieux: je n'ai pas le debug print "coucou" dans le cas de la table cible vide alors que j'execute bien l'incrémentation du numauto dans le cas ou il existe déjà au moins un enregistrement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Function CreationArticle(ByVal VersementID As Long, ByVal NbreArticle As Integer, ByVal ProchainArticle As Integer) As String
 Dim valMax As Long
 Dim Renvoircd As Integer
 Renvoircd = 0
Dim rcd As DAO.Recordset
     'on récupère la valeur max
Dim boucle As Integer
On Error GoTo Fin
DoCmd.SetWarnings (False)
For boucle = ProchainArticle To (ProchainArticle + NbreArticle)
     Set rcd = CurrentDb.OpenRecordset("SELECT MAX(ArticleAVerserID) FROM tblArticleAVerser")
     If rcd.EOF Then  'Pas de record
        valMax = 1
    Debug.Print "coucou"
    Else
        valMax = rcd.Fields(0) + 1
    End If
        Debug.Print "valMax4 "; valMax
        rcd.Close
        'on l'insère
     CurrentDb.Execute "INSERT INTO tblArticleAVerser (ArticleAVerserID, VersementIDParent, NumeroArticle)" & _
                        "VALUES (" & "" & valMax & "" & "," & "" & VersementID & "" & "," & "" & ProchainArticle & "" & ")"
     'Compteur
     ProchainArticle = ProchainArticle + 1
     Renvoircd = Renvoircd + 1
     CreationArticle = Renvoircd
Next boucle
DoCmd.SetWarnings (True)
Fin:
 MsgBox ("Ca s'est mal passé...")
CreationArticle = Renvoircd

Ce code fonctionne seulement si il existe au moins un enregistrement, que puis-je mettre au lieu de < valMax = 1> (car le pb n'est probablement dans le test mais dans l'action)?

D'autre part , bien que je ne vois pas d'erreur (que mon insert se passe bien ou pas) le msgbox de Fin: est toujours activé. Pourquoi?

Merci pour votre attention.

[Dolphy35]

Salut,

je n'ai pas éplucher ton code mais pourquoi tu ne teste pas si il y a un enregistrement avec rcd.RecordCount qui te donne le nombre d'enregistrement de ton Recordset et en fonction tu triate différemment.

Dolphy

[Gary_Stoupy]

Alors juste en jetant un oeil rapide...
J'ai déjà un indice pour ton msgbox de Fin...

Avant la balise <Fin> il faut que tu lui dise soit de sortir (si c'est la fin de ta function ou de ton sub -> exit function ou exit sub.
Ou alors, comme ca a l'air d'etre le cas ici, il faut que tu lui fasse un goto...
juste avant fin, tu lui écris <goto suite> et juste après Fin tu lui met <suite>

Ca donne un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
DoCmd.SetWarnings (True)
GoTo suite
Fin:
 MsgBox ("Ca s'est mal passé...")
Suite :
CreationArticle = Renvoircd

Ainsi, si il n'y a pas d'erreur, il n'exécutera pas Fin...

Pour le reste, je regarde dès que j'ai de nouveau 2 minutes ^^

[giloo(94)]

tu peu en debut de code initialiser
valmax="0" et ensuite tester valmax
mais la solution de Dolphy35 est plus dans l'esprit d'un programmeur

bon courage

[tAKAmAkA]

Bonjour à tous,

Merci Gary pour

Avant la balise <Fin> il faut que tu lui dise soit de sortir (si c'est la fin de ta function ou de ton sub -> exit function ou exit sub.
Ou alors, comme ca a l'air d'etre le cas ici, il faut que tu lui fasse un goto...
juste avant fin, tu lui écris <goto suite> et juste après Fin tu lui met <suite>

Ca fonctionne

Merci Dolphy et Giloo mais tjrs pb. Voilà ce que donne le code après vos modif et après activation des SetWarnings

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Function CreationArticle(ByVal VersementID As Long, ByVal NbreArticle As Integer, ByVal ProchainArticle As Integer) As String
 Dim valMax As Long
 Dim Renvoircd As Integer
 Renvoircd = 0
Dim rcd As DAO.Recordset
Dim boucle As Integer
Dim trouve As Long
'On Error GoTo Fin
'DoCmd.SetWarnings (False)
DoCmd.SetWarnings (True)
For boucle = ProchainArticle To (ProchainArticle + NbreArticle)
'Cherche le plus grand des NumAuto
     Set rcd = CurrentDb.OpenRecordset("SELECT MAX(ArticleAVerserID) FROM tblArticleAVerser")
    Debug.Print "RecordCount "; rcd.RecordCount
    trouve = rcd.RecordCount
    If trouve > 0 Then
        valMax = rcd.Fields(0) + 1
    Else
        valMax = 1
        Debug.Print "coucou"
    End If
        Debug.Print "valMax6 "; valMax
        rcd.Close
     CurrentDb.Execute "INSERT INTO tblArticleAVerser (ArticleAVerserID, VersementIDParent, NumeroArticle)" & _
                        "VALUES (" & "" & valMax & "" & "," & "" & VersementID & "" & "," & "" & ProchainArticle & "" & ")"
     ProchainArticle = ProchainArticle + 1
     Renvoircd = Renvoircd + 1
     CreationArticle = Renvoircd
Next boucle
'DoCmd.SetWarnings (True)
GoTo Suite
Fin:
 MsgBox ("Ca s'est mal passé...")
Suite:
CreationArticle = Renvoircd

Utilisation incorrecte de null car Fields(0) est null, et trouve est = 1 alors que la table est vide!

Je m'y perds...

[ft035580]

Salut,

Et en essayant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If trouve = 0 Then

[soltani1]

Bonjour,

Pourquoi tu n'utilise pas un champ de type numAuto.

A+

[Kloun]

Je me suis permis de réécrire un peu ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Function CreationArticle(ByVal VersementID As Long, ByVal NbreArticle As Integer, ByVal ProchainArticle As Integer) As String
Dim valMax As Long
Dim Renvoircd As Integer
Renvoircd = 0
'Dim rcd As DAO.Recordset
Dim boucle As Integer
Dim trouve As Long
dim iStr_SQL as string
'On Error GoTo Fin
'DoCmd.SetWarnings (False)
DoCmd.SetWarnings (True)
For boucle = ProchainArticle To (ProchainArticle + NbreArticle)
'Cherche le plus grand des NumAuto
    'Set rcd = CurrentDb.OpenRecordset("SELECT MAX(ArticleAVerserID) FROM tblArticleAVerser")
    'Debug.Print "RecordCount "; rcd.RecordCount
    trouve = nz(dmax("ArticleAVerserID", "tblArticleAVerser"), -1)
    If trouve > 0 Then
        valMax = trouve + 1
    Else
        valMax = 1
        Debug.Print "coucou"
    End If
    Debug.Print "valMax6 "; valMax
    'rcd.Close
    iStr_SQL = "INSERT INTO tblArticleAVerser (ArticleAVerserID, VersementIDParent, NumeroArticle) " & _
               "VALUES (" & valMax & ", " & VersementID & ","  ProchainArticle & ")"
    CurrentDb.Execute istr_sql, dbfailonerror
    ProchainArticle = ProchainArticle + 1
    Renvoircd = Renvoircd + 1
    CreationArticle = Renvoircd
Next boucle
'DoCmd.SetWarnings (True)
GoTo Suite
Fin:
 MsgBox ("Ca s'est mal passé...")
Suite:
CreationArticle = Renvoircd
end function

[tAKAmAkA]

Bonjour ft35,

Je met trouve = 0 en début de fonction
et j'ai essayé ton idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    If trouve = 0 Then
        valMax = 1
        Debug.Print "coucou"
    Else
        valMax = rcd.Fields(0) + 1
    End If

Mais trouve est tjrs = 1!

[tAKAmAkA]

Bonjour soltani,

Pourquoi tu n'utilise pas un champ de type numAuto.

C'est un champ NumAuto

Bonjour Kloun,

Merci, ca marche.
Code final (je le mets car il y avait une erreur de syntaxe):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Function CreationArticle(ByVal VersementID As Long, ByVal NbreArticle As Integer, ByVal ProchainArticle As Integer) As String
Dim valMax As Long
Dim Renvoircd As Integer
Renvoircd = 0
Dim boucle As Integer
Dim trouve As Long
Dim iStr_SQL As String
On Error GoTo Fin
'DoCmd.SetWarnings (False)
DoCmd.SetWarnings (True)
For boucle = ProchainArticle To (ProchainArticle + NbreArticle)
    trouve = Nz(DMax("ArticleAVerserID", "tblArticleAVerser"), -1)
    If trouve > 0 Then
        valMax = trouve + 1
    Else
        valMax = 1
        Debug.Print "coucou"
    End If
    Debug.Print "valMax6 "; valMax
    iStr_SQL = "INSERT INTO tblArticleAVerser (ArticleAVerserID, VersementIDParent, NumeroArticle) " & _
               "VALUES (" & valMax & ", " & VersementID & "," & ProchainArticle & ")"
    CurrentDb.Execute iStr_SQL, dbFailOnError
    ProchainArticle = ProchainArticle + 1
    Renvoircd = Renvoircd + 1
    CreationArticle = Renvoircd
Next boucle
'DoCmd.SetWarnings (True)
GoTo Suite
Fin:
 MsgBox ("Ca s'est mal passé...")
Suite:
CreationArticle = Renvoircd
End Function

Ce genre de pb peut ne se poser qu'une fois dans la vie de la base, faut-il l'ignorer pour autant?
Encore merci à tous pour votre aide.
JC

[soltani1]

Bonjour,

Pourquoi alors lui faire un update avec pour valeur Valmax(si j'ai bien compris).

A+

[tAKAmAkA]

Soltani:

Pourquoi alors lui faire un update avec pour valeur Valmax(si j'ai bien compris).

Parce que j'ai du prendre cette solution sur le forum et ne pas trop me poser de question, ca a marché mais effectivement il y a surement plus simple.
A+

[tAKAmAkA]

Arkham46 a écrit ailleurs:

slt,

tu insères tes données sans préciser le numéro auto, access le gère tout seul

du coup il faut préciser la liste des champs (sans le numéro auto) dans la requête

CQFD