Incrementation sous vb6
nadine
-
nadium -
nadium -
bonjour
dans une table access , j ai entre autres un champ appelé "rang"type integer , qui concerne un numero qui change chaque mois , j ai 320 enregistrements , et chaque mois je suis obligée de saisir 320 numeros qui se suivent à partir d un nombre qu on me precise , par exemple ce mois en m a donné comme 1er nombre 120 alors je parcours chaque enregistrement et je saisi pour le premier 120 , le deuxieme 121 le 3eme 122 ...etc jesqu au 320eme enregistrements :-( je voudrais svp , un code vb6 qui me demanderait par exemple le 1er numero et il incremente automatiquement pour les autres , j ajoute que le champ "rang " n est pas une clé il est ordinaire !
merci pour toute tentative d aide
dans une table access , j ai entre autres un champ appelé "rang"type integer , qui concerne un numero qui change chaque mois , j ai 320 enregistrements , et chaque mois je suis obligée de saisir 320 numeros qui se suivent à partir d un nombre qu on me precise , par exemple ce mois en m a donné comme 1er nombre 120 alors je parcours chaque enregistrement et je saisi pour le premier 120 , le deuxieme 121 le 3eme 122 ...etc jesqu au 320eme enregistrements :-( je voudrais svp , un code vb6 qui me demanderait par exemple le 1er numero et il incremente automatiquement pour les autres , j ajoute que le champ "rang " n est pas une clé il est ordinaire !
merci pour toute tentative d aide
A voir également:
- Incrementation sous vb6
- Vb6 - Télécharger - Divers Utilitaires
- Incrémentation excel ne fonctionne pas ✓ - Forum Excel
- Vb6 portable - Forum VB / VBA
- Souci d'incrémentation automatique sur EXCEL ✓ - Forum Excel
- Incrémentation automatique ne fonctionne pas - Forum Excel
9 réponses
Bonjour , y'a pleins de possibilités,
il faut faire un formulaire sous vb6 , par exemple la variable "numero" qui correspond au numero du "1er enregistrement" dans le champ rang de ta table access et ensuite de faire une recherche (une requete) dans ta table en utilisant par exemple Ado , ou autre . et apres tu fait une chtite boucle pour mettre a jour les enregistrement que t'aura incrementé .
bon c bien jolie la theorie , si tu veux plus d'infos bnadium@voila.fr
envoie moi ta table access , j'pourai te faire un exemple concret
il faut faire un formulaire sous vb6 , par exemple la variable "numero" qui correspond au numero du "1er enregistrement" dans le champ rang de ta table access et ensuite de faire une recherche (une requete) dans ta table en utilisant par exemple Ado , ou autre . et apres tu fait une chtite boucle pour mettre a jour les enregistrement que t'aura incrementé .
bon c bien jolie la theorie , si tu veux plus d'infos bnadium@voila.fr
envoie moi ta table access , j'pourai te faire un exemple concret
merci ++ ma table est constituée de 3 champs :
codepers type integer 6 octets (la clé prim)
nom prenom caractère 35
rang integer
merci encore
codepers type integer 6 octets (la clé prim)
nom prenom caractère 35
rang integer
merci encore
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
si ça ne marche pas , c peut etre a cause du chemin de ta base , donc il faut redeterminer le cheminde la base dans les controles Adodc1 et de Nombre_Enregistrement ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;Persist Security Info=False
a la place de "C:\base.mdb" , met le chemin de ta base...
voili voilà , @+ si tu veux d'autres info chuis là
@plouche
a la place de "C:\base.mdb" , met le chemin de ta base...
voili voilà , @+ si tu veux d'autres info chuis là
@plouche
voilà le code pour les controles voir dans le zip !
'Hello nadine
'j'espere que ça te convient comme prgm
':O)
'Nadium®2003
Private Sub Command1_Click()
'ouverture
Set rsMiseAJour = New ADODB.Recordset
'requete
rsMiseAJour.Open "SELECT rang FROM Table1", Cnx, adOpenDynamic, adLockOptimistic
'lecture
rsMiseAJour.MoveFirst
Var = Trim(numero.Text) - 1
Do While Not rsMiseAJour.EOF
Var = Var + 1
'mise à jour de l'enregistrement en cours..
rsMiseAJour!rang = Var
'suivant
rsMiseAJour.MoveNext
Loop
'fermeture de la connexion
rsMiseAJour.Close
MsgBox "cliker sur actualiser ! pour visualiser les modifications!"
End Sub
Private Sub Command2_Click()
'fermer
Unload Me
End Sub
Private Sub Command3_Click()
'rafraichir
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
'Connnexion a la base base.mdb
Set Cnx = New ADODB.Connection
Cnx.Provider = "Microsoft.jet.Oledb.4.0"
Cnx.ConnectionString = App.Path & "\base.mdb"
Cnx.Open
End Sub
