Code vba : DCount

Version imprimable

Code vba : DCount

Bonjour !

Je souhaite faire un import d'Excel depuis access dans une table "CNP_Import", puis j'effectue un contrôle avec Dcount pour verifier que le dossier ( champ = N° de dossier) de la table "CNP_import" n'existe pas dans la table [COMITE ENGAGEMENT] (champ = Numdossier), si le dossier n'existe pas dans la table [COMITE ENGAGEMENT], je le tranfererais vers cette table puis effacerai les données de la table "CNP_Import".

Mon problème (pour l'instant... je suis pas trés doué en developpement...) c'est le message d'erreur :
Code:

1 2 Erreur d'execution '3075' Opérateur absent dans l'expression 'Count (N° de dossier)'
Voila où j'en suis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Commande28_Click() Dim Titre As String Dim Reponse As String Dim Nbr As Long Dim Message As String DoCmd.TransferSpreadsheet acImport, 8, "CNP_Import", "U:\DEFP\DFE\Dph\DPHR\CNP DPH REFONTE\Base CNP\ExportOpera.xls", True, "A2:GM3" Titre = "Les données OPERA ont été rapatriées" Reponse = MsgBox(Titre, vbInformation) Nbr = DCount("N° de dossier", "CNP_Import", "[N° de dossier]=" & "[COMITE D'ENGAGEMENT].NumDossier") If Nbr >= 1 Then Titre = "Le dossier " & [N° de dossier] & "Existe déja dans la base" Reponse = MsgBox(Message, vbExclamation, Titre) End If End Sub
Merci d'avance a vous !

18/09/2006, 20h54
LedZeppII
Bonsoir,

Dans le troisième argument de Dcount on ne peut pas mettre Champ = AutreTable.AutreChamp

Essaie avec
Code:

1 2 Nbr = DCount("*", "CNP_Import", _ "[N° de dossier] IN (SELECT DISTINCT NumDossier FROM [COMITE D'ENGAGEMENT])")
Ou alors utilise un recordset qui effectue une requête INNER JOIN entre les deux tables pour vérifier si elles retourne des enregistrements ou pas.

A+
19/09/2006, 10h47
mat75019

Merci ca marche !

Par contre j'ai d'autres problèmes...
VBA ne reconnait pas la partie & [N° de dossier] &

Code:

Titre = "Le dossier " & [N° de dossier] & "Existe déja dans la base"

Et savez-vous si l'on peut effectuer un Dcount sur un couple de champ, je voudrait verifié si le couple des champs [N° de dossier] et [N°de scénario] de la table "CNP_Import sont présents dans la table COMITE ENGAGEMENT (Champs NumDossier et NumScenario). Avez vous une solution ?

Encore merci !
19/09/2006, 11h39
mat75019

re bonjour !

Ca n'inspire personne... Sinon la solution de ledzeppII de passer par un recordset peut peut être marcher mais je ne connait pas du tt cette methode, si quelqu'un peut m'aider ca me dépanerais beaucoup... parce que vu mon niveau en vba, là je suis dans la m.....

Merci d'avance à vous !

Bonsoir,

Par recordset ça donnerai quelque chose comme ça

Code:

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
 
Private Sub Commande28_Click()
Dim Titre As String
Dim Reponse As String
Dim Nbr As Long
Dim Message As String
Dim db as DAO.Database, r as DAO.Recordset, strSQL as String
 
DoCmd.TransferSpreadsheet acImport, 8, "CNP_Import", "U:\DEFP\DFE\Dph\DPHR\CNP DPH REFONTE\Base CNP\ExportOpera.xls", True, "A2:GM3"
Titre = "Les données OPERA ont été rapatriées"
    Reponse = MsgBox(Titre, vbInformation)
 
strSQL = "SELECT DISTINCT CNP_Import.[N° de dossier] " & _
         "FROM CNP_Import INNER JOIN [COMITE D'ENGAGEMENT] " & _
         "  ON CNP_Import.[N° de dossier]=[COMITE D'ENGAGEMENT].NumDossier" 
 
Set db=CurrentDb
Set r=db.OpenRecordset(strSQL)
 
If Not r.EOF Then
   Do While Not r.EOF
      If Message<>"" then Message = Message & VbCrLf
      Message = Message & r![N° de dossier]
      r.MoveNext
   Loop
   Titre = "Le(s) dossier(s)suivant(s)Existe(nt) déja dans la base"
   Reponse = MsgBox(Message, vbExclamation, Titre)
End If
 
db.Close
End Sub

Pour le couple de champs, modifer strSQL comme suit:

Code:

1
2
3
4
5
strSQL = "SELECT DISTINCT CNP_Import.[N° de dossier] " & _
         "FROM CNP_Import INNER JOIN [COMITE D'ENGAGEMENT] " & _
         "  ON CNP_Import.[N° de dossier]=[COMITE D'ENGAGEMENT].NumDossier " & _
         " AND CNP_Import.[N°de scénario]=[COMITE D'ENGAGEMENT].[N°de scénario]"

N°de scénario à remplacer par le nom exact du champ, si différent.

Au lieu d'utiliser une instruction requête SQL (strSQL) on peut utiliser une requête sauvegardée.
Dans ce cas on ouvre le recordset comme ceci:

Code:

1
2
Set r=db.OpenRecordset("NomDeLaRequête")

Bon courage