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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur éxécution 2465, impossible de trouver le champ résultat.

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur éxécution 2465, impossible de trouver le champ résultat.

n°1984033
Edy360
Posté le 14-04-2010 à 17:47:16  profilanswer
 

salut,
 
J'effectue un import Excel vers Access par l'intermédiaire d'un bouton dans un formulaire, pour cela j'utilise un module (Module1) puis en VBA un bouton qui me lance directement la boite de diaaogiue pour aller chercher le fichier sur mon ordi.
 
L'import se fait dans un table PRC EXPRESS A. les données sont importées mais à la fin il me met l'erreur d'éxécution 2465.  
 
- Peut ton supprimer ce message ?
- Esct qu'on ne va pas dans mon code ?
 
Je tente mais n'arrive à  rien :
 
CODE MODULE 1 :
 
Option Compare Database
 
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
Function LaunchCD(ByRef strform As Form, ByRef nt As String, ByRef nf As String) As String
 
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = strform.Hwnd
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "F:\Stage Kévin\Bases\"
    OpenFile.lpstrTitle = "Choisir le PRC EXPRESS A de M"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
        If lReturn = 0 Then
            MsgBox "Choisir le PRC EXPRESS A de M", vbInformation, "Fichier non trouvé"
        Else
            LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "PRC EXPRESS A", LaunchCD, True,  
        End If
 
End Function
 
CODE BOUTON :
 
Private Sub Commande6_Click()
 
Dim NomTable As String
Dim NomFeuille As String
   
    NomFeuille = ListeTable
    NomTable = ListeTable
     
   Me!Résultat = LaunchCD(Me, NomTable, NomFeuille)
   Résultat = "PRC EXPRESS A"
         
End Sub
 
Tout marche mais il me met un message d'erreur, pas génial pour les utilisateurs.
 
Auriez vous une solution SVP ?
 
Edy360

mood
Publicité
Posté le 14-04-2010 à 17:47:16  profilanswer
 

n°1984144
Arcbitre
Bene fac vel noli facere
Posté le 15-04-2010 à 08:57:06  profilanswer
 

AMHA, c'est le me!Résultat qui pose problème.
 
Si Résultat est un controle dans ton formulaire, la syntaxe est: me.Résultat=...
 

n°1984164
Edy360
Posté le 15-04-2010 à 09:46:19  profilanswer
 

Effectivement hier, j'ai essayé de créer une étiquette de contrôle avec le nom résultat dans le formulaire et c'est ok. je n'avais pas compris que cela renvoyait à une zone de texte.
 
Merci pour ton aide en tout cas.
 
J'ai un autre souci :j'ai une requête simple avec un champ DATE:Date() mais quand le résultat de la requête est vide sans (enregistrements) il ne me remplie pas le champ. Il y a t'il un moyen pour qu'il me remplisse le première ligfne même sans enregistrement ? (Critères ? SQL ?)
 
Merci !


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

  erreur éxécution 2465, impossible de trouver le champ résultat.

 

Sujets relatifs
Comment afficher le resultat d'un recordSetErreur code VBA sur Excel2007
erreur d'éxécution 91Executer fonction oracle et récupérer résultat depuis perl (DBI)
[Proc Stock] comment récupérer le résultat d'une requête ?erreur application vb.net
Trouver l'adresse d'une méthode C++ en assembleurGestion unlink() erreur 404 alors que bon chemin
Plus de sujets relatifs à : erreur éxécution 2465, impossible de trouver le champ résultat.


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