Access vba: atteindre un champ par variable
Résolu/Fermé
A voir également:
- Access vba: atteindre un champ par variable
- Find vba - Astuces et Solutions
- Access appdata - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
6 réponses
Utilisateur anonyme
7 juin 2012 à 23:35
7 juin 2012 à 23:35
Bonjour,
Voici un exemple type :
... j'ai laissé tous le code en commentaires que j'ai utilisé ...
Cdt
Lupin
Voici un exemple type :
... j'ai laissé tous le code en commentaires que j'ai utilisé ...
Option Compare Database Option Explicit ' Private Sub ExecuteInsertionNomChampDynamique() Dim DBCourant As Database Dim RecClone As Recordset Dim Message As String, NomChamp As String Dim Champ As Variant Dim Nombre As Long, Boucle As Long, Limite As Long Set DBCourant = CurrentDb() Set RecClone = DBCourant.OpenRecordset("Req_SelectionTous") ' For Each Champ In RecClone.Fields ' ' Capture nom du champ ' Message = Message & Champ.Name & vbCrLf ' Next ' ' MsgBox Message ' Message = "" ' RecClone.AddNew ' For Boucle = 2000 To Limite ' NomChamp = CStr(Boucle) ' RecClone.Fields(NomChamp).Value = Boucle ' Next Boucle ' RecClone.Update If (Not RecClone.EOF) Then RecClone.MoveLast RecClone.MoveFirst Nombre = RecClone.RecordCount End If Limite = 2012 RecClone.Edit For Boucle = 2000 To Limite NomChamp = CStr(Boucle) RecClone.Fields(NomChamp).Value = CStr(Boucle * 10) Next Boucle RecClone.Update RecClone.Close End Sub '
Cdt
Lupin
acid3max
Messages postés
37
Date d'inscription
jeudi 7 juin 2012
Statut
Membre
Dernière intervention
8 juin 2012
5
7 juin 2012 à 17:01
7 juin 2012 à 17:01
La connection à ta base de données fonctionne ????
acid3max
Messages postés
37
Date d'inscription
jeudi 7 juin 2012
Statut
Membre
Dernière intervention
8 juin 2012
5
7 juin 2012 à 17:08
7 juin 2012 à 17:08
Ah ! dsl j'ai mal lu tu travaille directement sous access !!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question