Discussion :

[porcinet82]

Bonjour ou rebonjour,

J'ai a nouveau un petit problème.
J'utilise la fonction Dcount pour vérifier si un sujet existe deja dans ma base. Or, dans le code ci-dessous, je demande a access de verifier si mon individu existe dans la table TEdinburgh.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doublon = DCount("*", "TEdinburgh", "[NumSujet]=" & Num)

Or, je voudrais passer par une variable et non directement par le nom de ma table, ce qui donnerait un truc du genre (sachant que variable à au préalable recu le nom de la table) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doublon = DCount("*", variable, "[NumSujet]=" & Num)

Merci d'avance.

@+

[pgz]

Bonjour.

Si variable contient une chaîne de caractères représentant le nom d'une table, alors j'essaierais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim db as DAO.Database
...
set db = Application.CurrentDb
...
doublon = DCount("*",db.Tabledefs(variable).Name, "[NumSujet]=" & Num)

Bon courage,

PGZ

[porcinet82]

Salut,

Tout d'abord merci de ta rapidité.
Je viens de tester et il me met une erreur de compilation : Type défini par l'utilisateur non défini en me surlignant le declaration de varaible. Tu as une idée d'ou cela peut venir?

@+

[pgz]

Re.

cela pourrait être dû à l'absence d'une bibliothèque.
Sous éditeur VBA, menu Outils/Référence vérifier que
Microsoft DAO i.j Object library (i.j sont des entiers identifiant la version)
soit bien coché.

Si ce n'est pas cela ...

PGZ

[helas]

Texte ou nombre ?

Une petite fonction

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
 
 
Sub UneFonction
 
 doublon = nb("TEdinburgh","NomSujet",Num)
 
End Sub
 
Function nb(NomTable As String, NomChamp As String, valeur As Variant) As Long
 Dim s As String
 On Error GoTo erreur
 If IsNumeric(v) Then s = "[" & NomChamp  & "]=" & valeur  Else s = "[" & NomChamp  & "]='" & valeur  & "'"
 nb = DCount("*", NomTable , s)
 Exit Function
erreur:
 nb = 0
End Function

ou directement

pour du texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
doublon = DCount("*", "TEdinburgh", "[NumSujet]='" & Num & "'")

pour un nombre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
doublon = DCount("*", "TEdinburgh", "[NumSujet]=" & Num )

[porcinet82]

Bonjour,

Tout d'abord merci de vos reponses.
Pour pgz, je n'ai pas cette librairie, par contre, j'en ai une dont le nom ressemble (Microsoft DAO 3.6 Object Library), j'ai bien essayer de la cocher, malheureusement, ca ne fonctionne pas.

Pour helas, ce n'est pas au niveau de la valeur du champ que j'ai un soucis, mais au niveau de nom de la table, donc d'apres ce que j'ai compris de ta fonction, elle ne resoud pas mon soucis.

J'espere cependant qu l'un d'entre vous arrivera a me trouver ce petit bout de code qui me permettra de finir ce petit projet et de passer a autre chose...

@+

[pgz]

Bonjour,

j'en ai une dont le nom ressemble (Microsoft DAO 3.6 Object Library), j'ai bien essayer de la cocher, malheureusement, ca ne fonctionne pas.

C'est la bonne.
Tu veux dire qu'après avoir coché cette bibli tu as toujours la même erreur, ou que tu n'es pas arrivé à la cocher?

Tu peux aussi écrire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

doublon = DCount("*",CurrentDb.Tabledefs(variable).Name, "[NumSujet]=" & Num)

mais ce n'est pas très bon car une instance de la base peut être créée à chaque passage.

PGZ

[porcinet82]

Salut,

J'ai bien réussit a la cocher mais ca ne fonctionnait pas.
Par contre cette autre méthode a l'air de passer. Mais si tu dis que ca n'est pas tres bon, tant pis, je rajouterai quelques lignes de code pour faire autrement...

En tout cas merci de ton aide

@+

[pgz]

Bonjour.

J'ai bien réussit a la cocher mais ca ne fonctionnait pas.

Pourrais-tu montrer le code en précisant où ça plante?

PGZ

[porcinet82]

Salut,

Voici le code de mon bouton :

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
Private Sub Valider_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim doublon As Integer
    Dim k%
    Dim db As DAO.Database
    
    'on vérifie qu'un patient a ete choisi
    If IsNull(Me!IdentPatient) Then
        MsgBox "Veuillez choisir un numéro de patient", vbExclamation, "Attention"
        Exit Sub
    End If
    
    Select Case Me.Cadre8.Value
    Case 1
        Nom_formulaire = "FEdinburgh"
    Case 2
        Nom_formulaire = "FPDI"
    Case 3
        Nom_formulaire = "FFagerstrom"
    Case 4
        Nom_formulaire = "FCTQ"
    End Select
    
    Num = Me![IdentPatient]
    
    Set db = Application.CurrentDb
    doublon = DCount("*", db.Tabledefs(Nom_formulaire).Name, "[NumSujet]=" & Num) 
    If doublon = 0 Then
        stDocName = Nom_formulaire
        stLinkCriteria = "[numSujet]=" & Me![IdentPatient]
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        Forms(Nom_formulaire).numSujet = Num
        Forms(Nom_formulaire).ident1 = ident_1
        Forms(Nom_formulaire).ident2 = ident_2
        Forms(Nom_formulaire).ident3 = ident_3
        DoCmd.Close acForm, "Recherche"
    Else
        stDocName = Nom_formulaire
        stLinkCriteria = "[numSujet]=" & Me![IdentPatient]
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        Forms(Nom_formulaire).ident1 = ident_1
        Forms(Nom_formulaire).ident2 = ident_2
        Forms(Nom_formulaire).ident3 = ident_3
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.Close acForm, "Recherche"
    End If
End Sub

Le code plantait sur la ligne en gras avec le message d'erreur que j'avais mis dans l'un de mes precedents posts.

@+