manque dossier !!!!!!!!!!!!!!!!!!!!!!!!!!Résolu

Question

bonjour pouvez me dire si il y à une erreur dans le code,car quand je lance mon programme,et que je click pour ouvrir la FORM contenant les données,il me marque qu'il ne trouve pas se dossier,mais pas à chaque fois Private Sub Form_Load() FileName = (App.Path & "\BD\Famille.ini") Open FileName For Input As #1 If Err <> 0 Then MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR" Exit Sub End If R = 0 c = 0 txt = "" Do Until EOF(1) Line Input #1, Data For i = 1 To Len(Data) Char = Mid(Data, i, 1) If Char = "," Then c = c + 1 txt = "" ElseIf i = Len(Data) Then If Char <> Chr(34) Then txt = txt & Char comb_famille.AddItem txt txt = "" ElseIf Char <> Chr(34) Then txt = txt & Char End If Next i c = 0 R = R + 1 Loop Close #1 comb_famille.AddItem "----" Call iniliste(0) Call Rafresh1("SELECT code_psa FROM Articles ORDER BY famille_psa") End Sub merci @ plus petchy

Gobillot · Accepted Answer

Bonsoir Pet

je me suis permis de modifier quelque peu ton code.









Private Sub Form_Load()

    Dim filename As String

    Dim Data As String

    Dim R As Long

    

    filename = App.Path & "\BD\Famille.ini"

    If Dir$(filename) = "" Then

       MsgBox "Introuvable : " & filename, vbCritical, "ERREUR"

       Exit Sub      'ou UnLoad Me ?

       End If

    Open filename For Input As #1

    R = 0

    Do Until EOF(1)

          Input #1, Data      'permet de lire les "data1","data2"

          comb_famille.AddItem Data

          R = R + 1

          Loop

    Close #1

    comb_famille.AddItem "----"

    Call iniliste(0)

    Call Rafresh1("SELECT code_psa FROM Articles ORDER BY famille_psa")

End Sub


Daniel

cs_petchy · Answer

salut Daniel
un grand merci
bonne soir&#233;e
petchy

Manque dossier !!!!!!!!!!!!!!!!!!!!!!!!!!

2 réponses

Discussions similaires