Probleme avec addnew [Résolu]

abdo78 66 Messages postés mercredi 6 février 2008Date d'inscription 27 novembre 2015 Dernière intervention - 3 janv. 2012 à 16:01 - Dernière réponse : abdo78 66 Messages postés mercredi 6 février 2008Date d'inscription 27 novembre 2015 Dernière intervention
- 4 janv. 2012 à 10:18
salut
je voulais ajouter a la table nouveaumat les information sélectionnées de la table agent . voila mon code :
Private Sub Command1_Click()

Dim rec2 As Recordset
Dim rec3 As Recordset

Dim DBaseSté As Database



DBaseSté.Execute "Delete * From nouveaumat"

Set rec3 = DBaseSté.OpenRecordset(" select matricule ,cin,nom from agent order by matricule ")
If rec3.RecordCount > 0 Then

Set rec2 = DBaseSté.OpenRecordset("nouveaumat")

While Not rec3.EOF
rec2.AddNew
rec2!matricule = rec3!matricule
rec2!nouveaumat = rec3!cin
rec2!nom = rec3!nom

Wend
End If

rec2.Update
'rec3.MoveNext

End Sub

je ne sais pas pourquoi l’opération d'ajout ne se passe et le programme n' affiche pas aucun message d'erreur.
je travail avec vb6 sous access
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 3 janv. 2012 à 18:22
3
Merci
Salut

Si tu programmes avec le VB de Access, c'est du VBA, pas du VB6.

Quand tu colles du code, merci d'utiliser la coloration syntaxique (3eme icone à droite) = plus facile à relire et conserve l'indentation en tête de ligne.

Je pense qu'il faut que tu fasses un Update dans ta boucle, après avoir renseigné chaque champ, devant le Wend.

Actuellement, telle que ta boucle est programmée, tu dois tourner en rond et bloquer Access puisque tu ne fais pas de rec3.MoveNext dans ta boucle

Manque un éventuel rec3.MoveFirst avant de commencer ta boucle.

Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_Jack
abdo78 66 Messages postés mercredi 6 février 2008Date d'inscription 27 novembre 2015 Dernière intervention - 4 janv. 2012 à 10:18
0
Merci
merci de votre aide
Commenter la réponse de abdo78

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.