Probléme automatisation d'un numéro de produit. [Résolu]

[Darkbabar]

Bonjour

Actuellement en BTS informatique , au cours de mon stage je dois effectuer une base de données sous Access 2007/vba.
J'ai un formulaire produit rattaché à une table produit , ce formulaire permet de se déplacer entre les enregistrements de la table produit, il possède plusieurs boutons 1 ajouter, 1 enregistrer, 1 supp, 1 quitter et ensuite deux boutons pour se déplacer entre les différents enregistrements qui sont stockés dans deux champs du formulaire. les boutons sont programmés en VBA. Dans ma table j'ai deux champs numprodet libellé qui sont dans le formulaire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub cmdajouter_Click()      
         Dim nummax As Integer
              flag = False
              rstprod.AddNew
               afficher
        Dim RSTMAX As Recordset
        Dim requete As String
         requete = "SELECT MAX(numprod) as maxi FROM Produit;"
        Set RSTMAX = CurrentDb().OpenRecordset(requete)
         If RSTMAX.EOF Then
            nummax =  1
        Else
            nummax = RSTMAX![maxi] + 1
        End If
            RSTMAX.Close
            txtnum.Value = nummax
            txtnom.SetFocus
 
            MsgBox "Aprés avoir complété les zones de texte, n'oubliez pas d'appuyer sur le bouton enregistrer", vbOKOnly, "Message"
            cmdenreg.Visible = True
End Sub

Alors voici mon problème, lorsque la table produit est vide et que j'appuie sur le bouton ajouter il me met une erreur de "NULL" au niveau de nummax = RSTMAX![maxi] + 1, et il ne prend pas en considération le fait qu'il n'y est rien dans la table et commencé par 1 , mais lorsque je rajoute directement un enregistrement dans la table la il incrémente. Est-ce que quelqu'un a une solution ?

[Nitromard]

Bonjour,

Je pense que le problème vient du fait que justement tu n'ai rien dans ta base, donc lorsque tu fais ta requête, tu ne sélectionne que NULL du coup tu stock rien dans RSTMAX.

Tu devrais faire un test avec Isnull et Dlookup sur ta table avant de lancer ton If.
Ou bien simplement un test sur RSTMAX avec Isnull du genre :

Code :

1
2
If Isnull(RSTMAX) then
RSTMAX = 0

Ou quelque chose comme ça, si tu ne vois vraiment pas ce que je veux dire, je pourrais encore t'apporter d'autres précisions.

[Darkbabar]

merci de ta réponse

Oui je veux bien des précisions. Parce que j'ai essayé en fessant un IS null mais cela me renvoie le même résultat. Il ne prend pas en considération le premier IF il passe directement au else ce qui provoque l'erreur du "null" et le nummax = 1 est censé remédier à ça. Le programme croit toujours qu'il y a quelque chose dans la table.

[Nitromard]

Essaye ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdajouter_Click()      
         Dim nummax As Integer
              flag = False
              rstprod.AddNew
               afficher
        Dim RSTMAX As Recordset
        Dim requete As String
         requete = "SELECT MAX(numprod) as maxi FROM Produit;"
        Set RSTMAX = CurrentDb().OpenRecordset(requete)
         If Isnull(Dlookup("[numprod]","Produit") then
            nummax =  1
        Else
            nummax = RSTMAX![maxi] + 1
        End If
            RSTMAX.Close
            txtnum.Value = nummax
            txtnom.SetFocus
 
            MsgBox "Aprés avoir complété les zones de texte, n'oubliez pas d'appuyer sur le bouton enregistrer", vbOKOnly, "Message"
            cmdenreg.Visible = True
End Sub

[Darkbabar]

Ah oui d'accord j'avais pas vu les choses comme ça

Je te remercie de ton aide.