[VBA] Formulaire continu avec un recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Formulaire continu avec un recordset

Genuine

Bonjour à tous
Voilà j'ai un petit problème de conception.
Je dois créer sous Access un formulaire continu pour lequel les modifications n'altèrent pas la base de données. Les modifications ne doivent être prises en compte uniquement lors d'un clic d'un bouton.
Pour cela, j'avais donc décidé de créer un recordset sur l'action du load de mon formulaire car c'est à priori la façon de faire. J'arrive donc à créer mon recordset (à priori), mais je n'arrive pas du tout à afficher les informations dans mon formulaire. Je n'arrive pas du tout à savoir ce qu'il faut faire avant et après.
L'exemple suivant qui est "simpliste" doit être agrémenté, mais je ne vois pas trop ce que je dois faire de plus surtout au niveau du formulaire.

Code :

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("reqTest" )
Set Me.Recordset = rs
If Not rs.BOF And Not rs.EOF Then
rs.MoveFirst
While Not rs.EOF
DoCmd.GoToRecord , , acNewRec
Me.Nom = rs!Nom
rs.MoveNext
Wend
End If
rs.Close

Si vous pouviez m'aider, ca serait bien cool. Merci

Publicité

SuppotDeSaTante

Aka dje69r

Hello

Deja sous access (et Cie) on ne donne pas "Nom" pour un nom de champ, derriere ca fou le caca...

A titre perso je passe comme ca :

Code :

DoCmd.OpenForm "Formulaire2"
Set Rs = New ADODB.Recordset
Rs.Open "Select * From reqTest", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Forms("Formulaire2" ).Recordset = Rs

Dans la source on a bien une requete Select * From reqTest et donc nos controles TextBox etc. sont liés aux champs du recordset.

Message édité par SuppotDeSaTante le 02-07-2010 à 16:05:49

---------------
Soyez malin, louez entre voisins !

Genuine

D'accord, mais soit je me trompe de voie, soit j'ai pas capté un truc. Le recordset fonctionne. J'ai testé comme tu me l'as dit, et comme je l'avais fait un peu avant, mais le problème est que les champs restent liés à la BD (les changements faits se font directement sur la BD).

Donc en gros ce que je souhaite faire :
- Ce que mon recordset me renvoie, je l'affiche dans un formulaire continu
- Ces mêmes lignes sont modifiables par l'utilisateur, mais n'altèrent en aucun cas la BD (juste visuel)
- L'utilisateur peut valider ses modifications par l'appui d'un bouton. Seulement dans ce cas là, les modifications seront enregistrés dans la base de données. Cela induit le parcours du recordset modifié (ça aussi, je n'arrive pas trop à l'imaginer).

Merci pour votre aide

SuppotDeSaTante

Aka dje69r

Bah avec Access, si ce n'est passé par des tables temporaires, vides pour la création, alimentées pour la modification, il n'y a pas de solution a la connaissance...
Du moment que ton contrôle est lié a un champ, ça le modifie.
Sinon, passer par des contrôles indépendants et jouer avec des requêtes ajouts et mise a jour.

---------------
Soyez malin, louez entre voisins !

Genuine

Merci de m'aider dje69r.
Si je récapitule l'idée :
1. Créer une table
2. Mettre les infos que je veux afficher (dans mon formulaire) dans cette table
3. Mettre la source de mon formulaire sur cette table temporaire (comment faire ça ?)
4. Si le bouton est cliqué, je parcours la table temporaire en effectuant les update sur la table valide

C'est ça ?

Message édité par Genuine le 03-07-2010 à 12:17:17

Genuine

Pour ceux que ca intéresserait voilà à peu prêt le code brouillon auquel j'arrive. Il reste plus qu'à effectuer les update sur la vrai table à partir de la table temporaire (ça devrait pas poser de problèmes).

Code :

Private Sub Commande6_Click()
'Enregistrement de la table temporaire dans la "vrai" table
DoCmd.RunCommand acCmdSaveRecord
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnx = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM testbis", cnx
Dim Nom As String
Dim prenom As String
Do Until rst.EOF
MsgBox rst![Prénom]
rst.MoveNext
Loop
cnx.Close
End Sub
Private Sub Form_Load()
'Creation de la table temporaire qui va récupérer les informations lors des modifications
Dim cnx As New ADODB.Connection
Set cnx = CurrentProject.Connection
cnx.Execute "SELECT * INTO testbis FROM test where Prénom = 'Romain'"
Me.RecordSource = "testbis"
cnx.Close
End Sub

Merci, sans toi j'aurais mis du temps à trouver cette idée

SuppotDeSaTante

Aka dje69r

:jap:

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Formulaire continu avec un recordset

Sujets relatifs
vérifier les champs d'un formulaire contact	Création formulaire de recherche très simple depuis données excel
VBA et Excel aller chercher des données sur d'autres fichiers	Pourquoi ce formulaire n'est-il pas testé ?
Copie de lignes avec format dans VBA	Comment supprimer un bouton sur userfom avec du code VBA ?
VBA : Problème recherchev Vlookup	Macro pour formulaire
Depouillement sondage VBA	sécurité formulaire
Plus de sujets relatifs à : [VBA] Formulaire continu avec un recordset

Page générée en 0.048 secondes