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 ?
Voilà, j'aurais souhaité pouvoir rajouter une colonne de la table "visite médicale".
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
Merci beaucoup !
Partager