Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
747 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme incompatibilite données acces/VBA [résolu]

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Probleme incompatibilite données acces/VBA [résolu]

n°1409739
cocal
Posté le 19-07-2006 à 20:18:26  profilanswer
 

Bonjour a tous !  
 
mon pitit probleme : j'avais une macro sous acces qui fonctionnait tres bien merci. Bon. Et maintenant elle me dit  
"Type de données incompatibles avec l'expression des critères".  
 
Soit. Mais moi il me semble que tout mes criteres sont bien exprimés et que mes données sont sous le bon format (nom des champs sont bons, les années sont en texte mais ca ne posait pas de probleme jusqu'à présent)
 
Est ce qu'une ame charitable saurait de quel type d'incompatibilité on parle ? ca m'aiderait surement ...
 
merci bcp !
 
je vous ai mis mon bout de code des fois que vous ayez l'oeil plus vif que moi ...  
 
 
Dim RecordsetPFAC, MyRecordset As Recordset
Dim req, codeReport As String
Dim num_colonne As Integer
Dim nbdde As Long
Dim nbddetel As Long
Dim nbcourrier As Long
Dim nbcourrierm4j As Long
Dim i As Integer
 
 
fichier = "F:\Tableaux de Bord-Pilotage Statistique\Stats mensuelles activite\Procédure pour le reporting mensuel\maquettes Reporting\maquette_Synthese_PRU.xls"
TabExcel.Visible = True
 
With TabExcel
.Workbooks.Open (fichier)
.Worksheets("maquette synthese" ).Select
 
.Worksheets("maquette synthese" ).Copy after:=Worksheets("lancement" )
.Worksheets("maquette synthese (2)" ).Name = "TdB Synthese " & mois & " " & annee
.Worksheets("TdB Synthese " & mois & " " & annee).Select
.Cells(2, 5).Value = moisenlettre & " " & annee
'Requete sur TABLE_REPORT
 
'Recordset de la liste des PFAC
req = "select Code_Report, Num_colonne_Synthese FROM PFAC;"
Set RecordsetPFAC = MyDB.OpenRecordset(req, dbOpenDynaset)
 
' on fait dérouler la liste PFAC
Do Until RecordsetPFAC.EOF
  codeReport = RecordsetPFAC!Code_Report
  num_colonne = RecordsetPFAC!Num_Colonne_Synthese
 
 
 
 'nb courriers recus
 'mois
  req = "select TABLE_REPORT.VALEUR_INDICATEUR AS NBCOUR FROM TABLE_REPORT WHERE TABLE_REPORT.NOM_INDICATEUR ='COUREC'" _
  & " AND TABLE_REPORT.PFAC='" & codeReport & "' AND TABLE_REPORT.MOIS=" & mois & " AND TABLE_REPORT.ANNEE =" & annee & ";"
  Set MyRecordset = MyDB.OpenRecordset(req, dbOpenDynaset)
  .Cells(36, num_colonne).Value = MyRecordset!nbcour


Message édité par cocal le 20-07-2006 à 13:43:15
mood
Publicité
Posté le 19-07-2006 à 20:18:26  profilanswer
 

n°1409918
jpcheck
Pioupiou
Posté le 20-07-2006 à 09:20:10  profilanswer
 

as-tu une ligne indiquée où ca te jette?

n°1409945
cocal
Posté le 20-07-2006 à 09:46:16  profilanswer
 

oui l'avant dernière :  
 
Set MyRecordset = MyDB.OpenRecordset(req, dbOpenDynaset)  
 
mais je pense que mes critères au dessus sont bons, ma macro fonctionnait ... le problème doit plutôt venir des données mais elles me paraissent similaires à celles que j'utilisais avant (fichier texte importé)...

n°1410045
cocal
Posté le 20-07-2006 à 11:23:09  profilanswer
 

ah ba apparemment c bon : mes donnees années étaient enregistrées en texte au lieu d'etre en numerique ...  
 
merci quand meme bcp jpcheck :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme incompatibilite données acces/VBA [résolu]

 

Sujets relatifs
Base de données externe (sur un autre site)probleme compilation
[Resolu]choix d'une couleur dans un userform (VBA)[Résolu] Equivalent du LIKE en php
VBA +coloration syntaxique[resolu] [batch] recherche chaine avec findstr
probleme xsl/javascript 
Plus de sujets relatifs à : Probleme incompatibilite données acces/VBA [résolu]


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR