Access vba: atteindre un champ par variable
Résolu/Fermé
A voir également:
- Access vba: atteindre un champ par variable
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Vba range avec variable ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba selection plage variable ✓ - Forum VB / VBA
- Access denied - Forum Bbox Bouygues
6 réponses
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