Discussion :

[mat75019]

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 :

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

1
2
Erreur d'execution  '3075'
Opérateur absent dans l'expression 'Count (N° de dossier)'

Voila où j'en suis :

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

[LedZeppII]

Bonsoir,

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

Essaie avec

Code :

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

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+

[mat75019]

Merci ca marche !

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

Code :

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

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 !

[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 !

[LedZeppII]

Bonsoir,

Par recordset ça donnerai quelque chose comme ça

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

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

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 :

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

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

Bon courage