Discussion :

[Kenshin86]

Bonsoir

J'ai un soucis , j'ai ce message d'erreur lorsque jveu valider mon formulaire :
"Cette opération n'est pas autorisé si l'objet est ouvert" et fermes mon application.

J'ai une fenetre ou l'utilisateur saisit un "ID" dans un textBox
Puis après , une fois qu'il valide avec le bouton , cela fonctionnes. Mais lors d'une 2e saisie , il est obligatoire de relancer l'application

Ca lui remplit d'autres textbox (nom , prenom , age , etc...) en fonction de l'ID trouvé dans la table (access 2007)

Donc le code du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Declaration d'un recordset
Dim rst As New ADODB.RecordSet
Dim strsql As String
 
'Chargement des données
strsql = "select ..."
rst.Open(strsql,db,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockOptimistic)
 
Do While Not rst.EOF 
TextBox1.Text=rst("nom champBD").Value
...
 
rst.MoveNext()
Loop

J'ai essayé le rst.Close() juste après le Loop . Rien à faire.

Du coup , une fois que j'ai effectué le chargement , je ne peut plus lancer mon autre bouton (qui lui va faire la modification dans la table)


Cordialement,

[SaumonAgile]

Vérifie en débogant que tu passes bien dans le Close.

[Kenshin86]

Donc il faut rajouter rst.Close() bien après le Loop donc ?

A noter que dans mon application , je peut faire qu'une opération (un ajout,une modification , etc... , dès que j'utilises la Base de données ACCESS en fait) à la fois. Si je veut en faire une autre , il m'affiche ce message et je suis obligé de la relancer.

[Kenshin86]

La solution consiste à ouvrir et fermer la base de données qu'une fois.

ouverture (lancement de l'app)
fermerture (fermeture de l'app)

Tandis que moi , à travers chaque action , j'ouvrais et fermais (comme en PHP)