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

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 28 janv. 2006 à 16:38
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 28 janv. 2006 à 19:04
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

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
28 janv. 2006 à 18:46
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
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 3
28 janv. 2006 à 19:04
salut Daniel
un grand merci
bonne soirée
petchy
0
Rejoignez-nous