Bonjour à toutes et à tous !

Je souhaite que ce qui est contenu dans une des cellules de ma table soit répercuté dans un formulaire qui synthétise un nombre de visite médicale,

Sauf que j'ai le message "erreur d'éxecution 9" qui s'affiche....

Je suppose qu'il faut que j'agrandisse la zone de recherche du tableau mais comment faire ?

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Compare Database
Dim montab As Variant
 
 
Private Sub Commande3_Click()
 
  Set oDb = CurrentDb
 
  Set Orst = oDb.OpenRecordset("Visite medicale", dbOpenTable)
 
  LngNbEnregistrement = Orst.RecordCount
  'Libération des objets
 
  Orst.Close
  oDb.Close
 
  Set Orst = Nothing
  Set oDb = Nothing
 
  Set Orst = Nothing
  Set oDb = Nothing
 
  Set oDb = CurrentDb
  Set Orst = oDb.OpenRecordset("Visite medicale", dbOpenForwardOnly, dbReadOnly)
 
  'Effectif
  ReDim montab(LngNbEnregistrement, 44)
  For i = 1 To LngNbEnregistrement
     For Y = 1 To 43
       If IsNull(Orst.Fields(Y - 1)) = False Then
         montab(i, Y) = Orst.Fields(Y - 1)
       End If
     Next Y
     Orst.MoveNext
  Next i
 
  Orst.Close
  oDb.Close
 
  Set Orst = Nothing
  Set oDb = Nothing
 
  Dim visimedSMR As Double
 
  For i = 1 To UBound(montab)
     If montab(i, 7) = "SMR" Then
       visimedSMR = visimedSMR + 1
    End If
 
    If montab(i, 7) = "Non SMR" Then
      visinonSMR = visinonSMR + 1
    End If
 
  Next i
  Me.PnonSMR.Value = visinonSMR
  Me.PSRM.Value = visimedSMR
 
End Sub
Voilà, j'aurais souhaité pouvoir rajouter une colonne de la table "visite médicale".

Merci beaucoup !