[URGENT] Gros gros problème Access (VBA)

Gros gros problème Access (VBA) [URGENT] - VB/VBA/VBS - Programmation

Marsh Posté le 19-06-2003 à 10:43:24    

Je devais montrer mon application a mon responsable de stage, une partie de l'application doit importer des données a partir de fichiers Excel ou CSV, j'ai 3 formulaire pour importer 3 fichiers differents.
 
Mon patron ouvre le premier formulaire, importe, ca marche.
Il ouvre le deuxieme formulaire, et paf erreur!!!
 
Ca marche sur mon pc (win98, access 2000), mais pas sur le sien (win2000, access 2000). C'est incompréhensible!!!!!
 
Voici le message d'erreur :

Citation :

L'expression sur clic entrée sur parametre de la prorpieté de type évenement est à l'origine d'une erreur.
L'objet ou la classe ne gère pas le jeu d'evenement.


 
 
Aidez-moi!!!
Faut que j'arrive a le faire marcher, je suis vraiment dans la merde pour mon stage sinon!!!!!!! :(  
 
 
Merci d'avance
Harrysauce

Reply

Marsh Posté le 19-06-2003 à 10:43:24   

Reply

Marsh Posté le 19-06-2003 à 10:49:46    

Poste le code incriminé stp


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 19-06-2003 à 10:52:15    

Harkonnen a écrit :

Poste le code incriminé stp

Oki
 

Code :
  1. Option Compare Database
  2. Option Explicit
  4. Private Sub import_empl_Click()
  5. On Error Resume Next
  6.     Me.import_fic_conso = ChoixDuFichier
  7.     If Me.import_fic_conso = "" Then
  8.         MsgBox "Il faut choisir un fichier", , "choix d'un fichier"
  9.     Else
  10.         Me.suivant.Enabled = True
  11.     End If
  12. End Sub
  13. Private Sub Form_Load()
  14.     DoCmd.Restore
  15. End Sub
  16. Public Function ChoixDuFichier() As String
  17.     ChoixDuFichier = ""
  18.     On Error GoTo ChoixDuFichier_Err
  19.     Dim Dialogue    As Object
  20.     Set Dialogue = Me.Ctl_Dialogue_conso_empl
  21.     Dialogue.ShowOpen
  22.     ChoixDuFichier = Dialogue.FileName
  23.     Exit Function
  24. ChoixDuFichier_Err:
  25.     If Err.Number <> 32755 Then
  26.         MsgBox Err.Number & ": " & Err.Description
  27.     End If
  28. End Function
  30. Private Sub annuler_Click()
  31. On Error GoTo Err_annuler_Click
  34.     DoCmd.Close
  35.    
  36.     'On reouvre le formulaire d'importations
  37.     Dim stDocName As String
  38.     Dim stLinkCriteria As String
  39.    
  40.     stDocName = "F_import"
  41.     DoCmd.OpenForm stDocName, , , stLinkCriteria
  43. Exit_annuler_Click:
  44.     Exit Sub
  46. Err_annuler_Click:
  47.     MsgBox Err.Description
  48.     Resume Exit_annuler_Click
  49.    
  50. End Sub
  52. Private Sub suivant_Click()
  53.     LitDonnee Me.import_fic_conso
  54. End Sub
  56. Public Sub LitDonnee(strChemFich As String)
  58.     'Variables de parcours de fichier
  59.      Dim f As Integer
  60.      Dim cpt As Integer
  61.      Dim strLigne As String
  62.      Dim pos As Integer
  63.      Dim pos_crt As Integer
  64.      Dim nblignes As Integer
  65.    
  66.      'Variable temp pour stocker les infos issus du fichier
  67.      Dim codeempl As Integer
  68.      Dim nom As String
  69.      Dim sect As Integer
  70.      Dim tache As String
  71.      Dim Mois As Integer
  72.      Dim tps As String
  73.      Dim lib_tache As String
  74.      Dim sect_m As Integer
  75.      Dim statut As String
  76.      Dim cdact As Integer
  77.    
  78.      Dim today
  79.    
  80.      'Variable pour l'ajout à la BDD
  81.      Dim larequette As String
  82.    
  83.      'On créé les objets destinés a stocker les infos avant de les enregistrer dans la table
  84.    
  85.      Me.CtlActiveX0 = 3
  86.      Me.avancement.Caption = "AVANCEMENT 0/" & nblignes
  87.      Me.Repaint
  88.    
  89.      cpt = 0
  90.      pos = 1
  91.      pos_crt = 1
  92.      nblignes = 0
  93.    
  94.      f = FreeFile
  95.      Open strChemFich For Input As #f 'On ouvre en lecture et on parcours
  96.      While Not EOF(f)
  97.         Line Input #f, strLigne 'On lit la ligne afin de faire descendre la position de la ligne
  98.         nblignes = nblignes + 1 'On compte le nombre de lignes
  99.      Wend
  100.    
  101.      Me.CtlActiveX0 = 6
  102.    
  103.      f = FreeFile '1er numéro libre
  104.      Open strChemFich For Input As #f 'ouvert en lecture
  105.    
  106.      'On efface la table conso
  107.     DoCmd.RunSQL "DELETE * FROM T_conso"
  108.     DoCmd.Requery
  109.      While Not EOF(f)
  110.           Line Input #f, strLigne 'lit la ligne entière et l'attribue à la variable strLigne
  111.           'MsgBox strLigne
  112.           If cpt > 0 Then 'On ne rentre pas ici pour la premiere ligne => ligne de titres
  113.             'On va décomposer la ligne afin de récupérer les valeurs
  114.             pos = 1
  115.             pos_crt = 1
  116.            
  117.             'Mid$(Ma_Chaine,A_Partir_Du_Caractère_Numéro,Nb_Caractères)
  118.            
  119.             pos = InStr(pos_crt, strLigne, ";" )
  120.             'On recupere le premier champ
  121.             codeempl = Mid$(strLigne, 1, pos - 1)
  122.            
  123.             pos_crt = pos + 1
  124.             pos = InStr(pos_crt, strLigne, ";" )
  125.             'On recupere le 2eme champ
  126.             nom = Mid$(strLigne, pos_crt, pos - pos_crt)
  127.            
  128.             pos_crt = pos + 1
  129.             pos = InStr(pos_crt, strLigne, ";" )
  130.             'On recupere le 3eme champ
  131.             sect = Mid$(strLigne, pos_crt, pos - pos_crt)
  132.            
  133.             pos_crt = pos + 1
  134.             pos = InStr(pos_crt, strLigne, ";" )
  135.             'On recupere le 4eme champ
  136.             tache = Mid$(strLigne, pos_crt, pos - pos_crt)
  137.            
  138.             pos_crt = pos + 1
  139.             pos = InStr(pos_crt, strLigne, ";" )
  140.             'On recupere le 5eme champ
  141.             Mois = Mid$(strLigne, pos_crt, pos - pos_crt)
  142.            
  143.             pos_crt = pos + 1
  144.             pos = InStr(pos_crt, strLigne, ";" )
  145.             'On recupere le 6eme champ
  146.             tps = Mid$(strLigne, pos_crt, pos - pos_crt)
  147.            
  148.            
  149.             pos_crt = pos + 1
  150.             pos = InStr(pos_crt, strLigne, ";" )
  151.             'On recupere le 7eme champ
  152.             lib_tache = Mid$(strLigne, pos_crt, pos - pos_crt)
  153.            
  154.             pos_crt = pos + 1
  155.             pos = InStr(pos_crt, strLigne, ";" )
  156.             'On recupere le 8eme champ
  157.             sect_m = Mid$(strLigne, pos_crt, pos - pos_crt)
  158.            
  159.             pos_crt = pos + 1
  160.             pos = InStr(pos_crt, strLigne, ";" )
  161.             'On recupere le 9eme champ
  162.             If pos = 0 Then
  163.                 statut = ""
  164.                 cdact = 0
  165.             Else
  166.               statut = Mid$(strLigne, pos_crt, pos - pos_crt)
  167.            
  168.               pos_crt = pos + 1
  169.               'On recupere le 10eme champ
  170.               If pos = Len(strLigne) Then
  171.                   cdact = 0
  172.               Else
  173.                   cdact = Mid$(strLigne, pos_crt, Len(strLigne) - pos_crt + 1)
  174.               End If
  175.             End If
  176.            
  177.             'On remplace les quotes par des espaces dans les champs nom prenom et commentaires
  178.             nom = Replace(nom, "'", " " )
  179.             tache = Replace(tache, "'", " " )
  180.             lib_tache = Replace(lib_tache, "'", " " )
  181.             tps = Replace(tps, ",", "." )
  182.            
  183.            
  184.             'On place les guillemets ou en remplace par null
  185.             If nom <> "" Then
  186.                 nom = "'" & nom & "'"
  187.             Else
  188.                 nom = "NULL"
  189.             End If
  190.            
  191.             If tache <> "" Then
  192.                 tache = "'" & tache & "'"
  193.             Else
  194.                 tache = "NULL"
  195.             End If
  196.            
  197.             If lib_tache <> "" Then
  198.                 lib_tache = "'" & lib_tache & "'"
  199.             Else
  200.                 lib_tache = "NULL"
  201.             End If
  202.            
  203.             If statut <> "" Then
  204.                 statut = "'" & statut & "'"
  205.             Else
  206.                 statut = "NULL"
  207.             End If
  208.          
  209.          
  210.           'On créé la requette
  211.           larequette = "INSERT INTO T_conso VALUES (" & cpt & ", " & codeempl & ", " & nom & ", " & sect & ", " & tache & ", " & Mois & ", " & tps & ", " & lib_tache & ", " & sect_m & ", " & statut & ", " & cdact & " );"
  212.           'MsgBox larequette
  213.           DoCmd.RunSQL larequette
  214.          
  215.           End If
  216.           cpt = cpt + 1
  217.           Me.avancement.Caption = "AVANCEMENT : " & cpt & "/" & nblignes
  218.           Me.Repaint
  219.          
  220.           Me.CtlActiveX0 = (cpt / nblignes) * 94 + 6
  221.          
  222.      Wend
  223.      Close #f
  224.    
  225.     'On informe l'utilisateur que l'import des données est terminé
  226.     MsgBox "L'opération d'import des données est désormais terminée", vbInformation, "Importation des employés"
  227.    
  228.     'On ferme le formulaire courant
  229.     DoCmd.Close
  230.    
  231.     'On change la date de dernier import
  232.     today = Now
  233.     larequette = "UPDATE T_date_import SET ladate='" & today & "' WHERE fic='consos';"
  234.     DoCmd.RunSQL (larequette)
  235.  
  236.    'On reouvre le formulaire d'importations
  237.     Dim stDocName As String
  238.     Dim stLinkCriteria As String
  239.    
  240.     stDocName = "F_import"
  241.     DoCmd.OpenForm stDocName, , , stLinkCriteria
  242.    
  243. End Sub


Message édité par harrysauce le 19-06-2003 à 10:53:11
Reply

Marsh Posté le 19-06-2003 à 10:55:42    

je ne sais pas si ça a à voir, mais vérifie quand même les paramètres régionaux pour voir s'ils sont identiques sur la machine de l'un et de l'autre.  Il est possible que ton code fonctionne dans un cas et pas l'autre.  En particulier les séparateurs décimal et de milliers.
 
J'ai pas compris pourquoi ici on nous installe de nouvelles machines configurées avec les settings "French (Belgium)" et mettre délibérément le point comme séparateur décimal au lieu de la virgule (surtout qu'on doit absolument employer la virgule par rapport à notre appplication [:ddr555])


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2003 à 10:58:04    

drasche a écrit :

je ne sais pas si ça a à voir, mais vérifie quand même les paramètres régionaux pour voir s'ils sont identiques sur la machine de l'un et de l'autre.  Il est possible que ton code fonctionne dans un cas et pas l'autre.  En particulier les séparateurs décimal et de milliers.
 
J'ai pas compris pourquoi ici on nous installe de nouvelles machines configurées avec les settings "French (Belgium)" et mettre délibérément le point comme séparateur décimal au lieu de la virgule (surtout qu'on doit absolument employer la virgule par rapport à notre appplication [:ddr555])

ca plante pas que je lance l'importation, mais quand je lance le formulaire!!!!!
C'est pour ca que je comprends vraiment pas!!!

Reply

Marsh Posté le 19-06-2003 à 11:03:41    

je viens de tester sur un pc sous win2000 et ca marche, dc ca vient pas de windows!!!
 
Mais comment un patron peut-il vouloir utiliser access, un truc merde, qui fait même pas des projets compatibles entre 2 pc!!!

Reply

Marsh Posté le 19-06-2003 à 11:04:45    

harrysauce a écrit :

ca plante pas que je lance l'importation, mais quand je lance le formulaire!!!!!
C'est pour ca que je comprends vraiment pas!!!


j'ai pas dit que ça se passait pendant l'importation :o
 
Vérifie ces paramètres systèmes et corrige les sur la machine de ton boss puis relance toute ta procédure pour partir sur une base propre.  Si c'est pas ça, je vois pas trop ce que ça pourra être :/


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2003 à 11:07:17    

drasche a écrit :


j'ai pas dit que ça se passait pendant l'importation :o
 
Vérifie ces paramètres systèmes et corrige les sur la machine de ton boss puis relance toute ta procédure pour partir sur une base propre.  Si c'est pas ça, je vois pas trop ce que ça pourra être :/

c'est où ds win2000???
Parce que si je pars déranger mon boss, j'ai pas trop envie de passer 1/2h a les trouvers ces parametres à la con!
 
 
EDIT : et puis je vois comment ca pourrai être à cause de ca, en même temps avec Access je m'attends a tout!


Message édité par harrysauce le 19-06-2003 à 11:08:58
Reply

Marsh Posté le 19-06-2003 à 11:12:15    

j'ai squatté le poste d'une collegue partie en pause café, j'ai trouvé où c'est, j'ai plus qu'a aller voir sur le pc de mon boss....

Reply

Marsh Posté le 19-06-2003 à 11:14:13    

Bon ben c'est pas ca!
 
 
 
Putain si ca marche pas, je suis vraiment dans la merde :(

Reply

Marsh Posté le 19-06-2003 à 11:14:13   

Reply

Marsh Posté le 19-06-2003 à 11:36:28    

Je suis en train de me demander comment cette saloperie d'access a pu être autorisée a etre vendue!!!
 
 
 
Tout a l'heure sur mes 3 formulaires d'importation, seul le premier marchait!
 
Mon patron a fait mumuse avec (sans toucher au code), et au bout d'un moment, par comme ca, le deuxieme s'est mis à marcher!!!!!!!!!
 
Y reste le 3eme, il a essayé de refaire ce qu'il avait fait avec l'autre (genre l'ouvrir, taper n'importe quoi dans un champ, le fermer, ouvir le formulaire index.....enfin rien qui pourrait le faire marcher :sarcastic: ), et ca n'a pas changé!

Reply

Marsh Posté le 19-06-2003 à 11:49:56    

:cry:  :cry:  :cry:  :cry:  :cry:  
 
Help, mon patron commence à s'impatienter  :fou:

Reply

Marsh Posté le 19-06-2003 à 13:18:07    

Y'en a bien un ici à qui c'est deja arrivé!!!!!

Reply

Marsh Posté le 19-06-2003 à 13:23:47    

ton application, elle utilise des données externes à la base (dans un autre fichier Access) ?  Si oui, vérifier que t'as bien accès aux tables depuis le PC de ton patron par exemple.
 
Vérifier aussi le niveau de gestion d'erreurs (break on unhandled errors, idéalement)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2003 à 13:26:50    

drasche a écrit :

ton application, elle utilise des données externes à la base (dans un autre fichier Access) ?  Si oui, vérifier que t'as bien accès aux tables depuis le PC de ton patron par exemple.
 
Vérifier aussi le niveau de gestion d'erreurs (break on unhandled errors, idéalement)


elle utilise des tables liées mais c'est le premier truc que j'ai fait : re-lier les tables, et puis de toute facon ca peut pas etre ca, le premier formulaire marche niquel, et maintenant le deuxieme a l'air de marcher aussi (comment? je sais pas).
Ah oui, et le fichier contenant les tables est sur le pc de mon patron, dc il y a acces.
 
 
 
 

Citation :

Vérifier aussi le niveau de gestion d'erreurs (break on unhandled errors, idéalement)


C'est quoi ca?

Reply

Marsh Posté le 19-06-2003 à 13:41:27    

harrysauce a écrit :

C'est quoi ca?


en fait c'est pour la partie VBA. S'il y a plantage et que ça arrive à l'écran sous forme d'une fenêtre qui propose Debug, End et Help, c'est probablement à cause de la gestion d'erreur positionnée par défaut.  Faut voir si t'as utilisé des clauses style On Error Goto ErrHandler dans ton code VBA par exemple.  Si t'as pas ce genre de chose, oublie cette remarque ;)
 
Ca se trouve dans les options, en 2000 je sais pas bien où. En 97 c'est dans l'onglet Advanced.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2003 à 13:45:26    

C'est "verouillage par défaut"?
 
j'ai :
 
 - aucun
 - general
 - enregistrement modifié
 
sur mon poste (ca marche) c'est aucune qui est selectionné
 
sur celui de mon boss, je sais pas, j'irai voir plus tard.....

Reply

Marsh Posté le 19-06-2003 à 14:03:30    

nooooooooon je parle de gestion d'erreur ;)  rien à voir avec le verrouillage des enregistrements :)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2003 à 14:10:26    

drasche a écrit :

nooooooooon je parle de gestion d'erreur ;)  rien à voir avec le verrouillage des enregistrements :)

ca peut pas venir de la : j'ai fait une nouvelle install d'access sur 2 pc sous win2000, celui de mon patron et celui d'une collegue, et y'a que sur celui de mon patron que ca marche pas :/
 
Dc je ne pense pas que ca vienne des options (sur le pc de mon patron et sur celui de ma collegue, y'a les mêmes options....)

Reply

Marsh Posté le 19-06-2003 à 14:50:38    

harrysauce a écrit :

ca peut pas venir de la : j'ai fait une nouvelle install d'access sur 2 pc sous win2000, celui de mon patron et celui d'une collegue, et y'a que sur celui de mon patron que ca marche pas :/
 
Dc je ne pense pas que ca vienne des options (sur le pc de mon patron et sur celui de ma collegue, y'a les mêmes options....)


 
J'espère que tu es sur de chez sur que ca ne vient pas des paramètres régionaux???

Reply

Marsh Posté le 19-06-2003 à 14:52:57    

Yoyo@ a écrit :


 
J'espère que tu es sur de chez sur que ca ne vient pas des paramètres régionaux???

ben oui, apres que drasche me l'ait dit je suis allé vérifier!!!
 
Et puis ca expliquerai pas pkoa 1 des formulaires marchait et pas les 2 autres, et pourquoi un de ceux qui marchait pas s'est mis à marcher tout seul :heink:

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed