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...

@+