erreur éxécution

Question

bonjour, j ai un petit probl&#232;me mon projet marche tr&#232;s bien en simulation mais d&#232;s que je cr&#233;e l'&#233;x&#233;cutable alors j aii une erreur qui apparait

erreur d'&#233;x&#233;cution'-2147417848(80010108)':
la m&#233;thode '~' le l'objet'~' a &#233;chou&#233;

mon code est celui ci

Dim db As Database
Dim sEtatLoc As String


Private Sub Form_Load()


'D&#233;claration des variables
Dim DataBaseFile As String
Dim RstQuery As Recordset
Dim strsql As String
'Chemin de la base de donn&#233;es
  DataBaseFile = App.Path & "\gestion.mdb"
'On attribue une r&#233;f&#233;rence &#224; la variable DB
  Set db = OpenDatabase(DataBaseFile)
  
End Sub



Private Sub cmdSuiviRech_Click()


'd&#233;sactiver cmdSuiviInfo
    cmdSuiviInfo.Enabled = False


'on efface le contenu de la listindisponible
    ListIndisponible.Clear


'on veut chercher les films non disponibles donc on met
'l'&#233;tat de location &#224; "non"
    sEtatLoc = "non"
    strsql = ""


'Requ&#234;te SQL: on cherche tous les films qui ne sont pas disponibles dans la bbd dvd
    strsql = "SELECT [Titre du film] FROM dvd"    strsql strsql & " WHERE disponible '" & sEtatLoc & "'"
  Set RstQuery = db.OpenRecordset(strsql)
  If Not (RstQuery.BOF And RstQuery.EOF) Then
        Do While Not RstQuery.EOF
'On affiche les noms des titres de films dans ListIndisponible
            ListIndisponible.AddItem RstQuery.Fields("[Titre du film]").Value
            RstQuery.MoveNext
        Loop
    End If
   
  'si la liste est &#233;gale &#224; o alors on d&#233;sactive cmdSuiviInfo
    If (ListIndisponible.ListCount > 0) Then
        cmdSuiviInfo.Enabled = True
    Else
        cmdSuiviInfo.Enabled = False
        MsgBox "Tous les dvd sont disponibles", vbInformation, "Information"
    End If
    
End Sub


Private Sub cmdSuiviInfo_Click()
' On efface le contenu des labels
    lblRnom.Caption = ""
    lblRprenom.Caption = ""
    lblRtelephone.Caption = ""
    lblRville.Caption = ""
    lblRcodepost.Caption = ""
    lblRAdr.Caption = ""


' Requ&#234;te SQL: on s&#233;lectionne les informations sur le client dansla bdd loueur
'o&#249; le nom du film emprunt&#233; est celui s&#233;lectionn&#233; dans listIndisponible
    strsql = "SELECT Nom, Prenom, Telephone, Adresse, CodePostal, Ville FROM Loueur"    strsql strsql & " WHERE TitreEmprunte '" & ListIndisponible.Text & "'"
    Set RstQuery = db.OpenRecordset(strsql)
     If Not (RstQuery.BOF And RstQuery.EOF) Then
      Do While Not RstQuery.EOF
'On affiche les donn&#233;es sur le client s&#233;lectionn&#233; dans les diff&#233;rents labels
      lblRnom.Caption = RstQuery.Fields("Nom").Value
      lblRprenom.Caption = RstQuery.Fields("Prenom").Value
      lblRtelephone.Caption = RstQuery.Fields("Telephone").Value
      lblRville.Caption = RstQuery.Fields("Ville").Value
      lblRcodepost.Caption = RstQuery.Fields("CodePostal").Value
      lblRAdr.Caption = RstQuery.Fields("Adresse").Value
      RstQuery.MoveNext
    Loop
  End If
End Sub



Private Sub cmdSuiviRetour_Click()


    Unload Me
    Load frmAccueil
    frmAccueil.Show


End Sub

 l'erreur est dans la requ&#234;te sql mais je ne sais pas o&#249;!!!! Merci beaucoup pour votre aide

oooDieu · Answer

Je ne suis pas un expert, mais pourquoi mettre des crochet &#224; :



strsql = "SELECT [Titre du film] FROM dvd"

crenaud76 · Answer

oooDieu < Car son nom de champ contient des espaces... et si l'erreur venait de la, cela planterait en mode design

Est-ce que l'erreur apparait sur n'importe quelle machine ? As-tu bien empaqueter ton appli avant de l'isntaller sur un autre poste ? A quel moment du code se produit l'erreur ? Dans le load de la form, sur l'appui d'un bouton (si oui lequel ?) Je te propose une fois ces investigation faite de rajouter des ligne de trace (des Msgbox "Execution de la ligne bla bla bla ...") devrait suffire, dans l'EVT concern&#233; par l'erreur au niveau de toute les ligne qui cr&#233;e un objet :  entre autre toutes tes lignes avec un "Set machin = Bidule", cart ton msg vient du fait que Windows ne peut pas cr&#233;er un objet donn&#233;. Reste &#224; savoir lequel pour trouver quelle DLL ou quel OCX est en cause.

Christophe R

Erreur éxécution

2 réponses

Discussions similaires