Bonjour,
Je souhaite extraire 25 observations de façon aléatoire du champ 'NUMERO' de ma table 'CONTROLE', dans une macro access, et je n'y arrive malheureusement pas...
Voici le code :
J'arrive malheureusement pas bien à faire le lien entre tout ca... :/
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Sub selection() Dim nbConsultChoisis, nbConsultTot, nbATirer, ligne, ouvreBase As Database 'nbConsultChoisis = les 25 consultants qui seront tirés aléatoirement 'nbConsultTot = le nb de consultants total du champ numéro 'nbATirer = le nb de consultant que l'on veut extraire 'ligne pour initialiser Set ouvreBase = OpenDatabase("CONTROLE") nbATirer = 25 nbConsultTot = ("NUMERO") For ligne = 0 To nbConsultTot nbConsultChoisis = Int(Rnd(1) * nbConsultTot) Next ligne End Sub J'ai le message d'erreur suivant : erreur d'exécution '3024', table non trouvée... pourtant cette table existe bel et bien dans ma base de donnée??? J'ai vu par ailleur qu'il fallait pour se connecter à une table écrire en VBA ce genre de chose : Dim myConnection As ADODB.Connection Set myConnection = CurrentProject.Connection Dim myRecordset As New ADODB.Recordset myRecordset.ActiveConnection = myConnection myRecordset.Open "CONTROLE", , adOpenStatic, adLockOptimistic...
Est-ce que quelqu'un pourrait m'aider ?
Partager