Discussion :

[jpfor17]

J'ai une erreur 3251


Voici la Table prochainNoFacture qui a 2 champs

Champ no 1 : noProchainNoFacture ; c'est la clé primaire ayant la valeur 1 en numérique
Champ no 2 : prochainNoFacture ; il contient le prochain no de facture

Je veux additionner 1 au champ no 2; ce sera le prochain no de facture


L'erreur se produit sur la ligne en gras

merci de m'aider

voici le code qui permet de mettre à jour le prochain no de Facture

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
Private Sub boutonAutreCommande_Click()
Dim intProchainNo
Dim rstProchainNoFacture As ADODB.Recordset
Set rstProchainNoFacture = New ADODB.Recordset
Set rstProchainNoFacture.ActiveConnection = CurrentProject.Connection
rstProchainNoFacture.CursorType = adOpenDynaset
rstProchainNoFacture.Open ("prochainNoFacture")
 
rstProchainNoFacture.Find "noProchainNoFacture = 1"

intProchainNo = rstProchainNoFacture.Fields("prochainNoFacture")
intProchainNo = intProchainNo + 1

rstProchainNoFacture.Fields("prochainNoFacture") = intProchainNo

rstProchainNoFacture.Close
End Sub

[Jean-Philippe André]

salut,

une recherche avec le numéro d'erreur donne des pistes de résolution
http://www.developpez.net/forums/d27...r-type-dobjet/