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

erreur éxécution 2465, impossible de trouver le champ résultat. - VB/VBA/VBS - Programmation

Marsh Posté le 14-04-2010 à 17:47:16    

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

Reply

Marsh Posté le 14-04-2010 à 17:47:16   

Reply

Marsh Posté le 15-04-2010 à 08:57:06    

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=...
 

Reply

Marsh Posté le 15-04-2010 à 09:46:19    

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 !

Reply

Sujets relatifs:

Leave a Replay

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