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

Résolu
Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
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

2 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
salut Daniel
un grand merci
bonne soirée
petchy