Sujet Précédent Sujet Suivant

Supprimer un medecin donné

Fermé
Eternal DREAM Messages postés 4 Date d'inscription jeudi 9 mai 2013 Statut Membre Dernière intervention 10 mai 2013 - 9 mai 2013 à 15:23
Eternal DREAM Messages postés 4 Date d'inscription jeudi 9 mai 2013 Statut Membre Dernière intervention 10 mai 2013 - 10 mai 2013 à 17:06
pour supprimer un medecin donné :pourquoi il me dit bad file name or number ???
voici le code


Private Sub Command4_Click()
Dim ligne As String
Dim nom As String
Dim i As Integer
Dim j As Integer
num = FreeFile


Open "C:\medecins.doc" For Input As #num
Do While Not EOF(num)


Line Input #num, ligne
i = InStr(ligne, ",")
j = CSng(i) - 1
nom = Mid(ligne, 1, j)

If (nom = Text6.Text) Then

Open "C:\medecins.doc" For Append As #num

ligne = ""
Text1.Text = ligne & vbCrLf

Else
Text1.Text = Text1.Text & ligne & vbCrLf


End If
Loop
Close #num

4 réponses

Réponse 1 / 4
Eternal DREAM Messages postés 4 Date d'inscription jeudi 9 mai 2013 Statut Membre Dernière intervention 10 mai 2013
9 mai 2013 à 15:29
quand je supprime Open "C:\medecins.doc" For Append As #num il me dit bad file name or number et quand
je l'a mis il me dit file is already open
0
Réponse 2 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
10 mai 2013 à 07:25
bonjour ???

Merci ???

au revoir....
0
Réponse 3 / 4
choubaka Messages postés 39403 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 17 novembre 2024 2 102
10 mai 2013 à 08:15
Message de la modération


0
Réponse 4 / 4
Eternal DREAM Messages postés 4 Date d'inscription jeudi 9 mai 2013 Statut Membre Dernière intervention 10 mai 2013
10 mai 2013 à 17:06
salut je veux pourquoi ce code ne marche pas et l'instruction Close #num devient jaune
(ce programme sert a dispatcher les medecins contenus dans un premier ficher selon leur specialite dans un autre fichier

Private Sub Command9_Click()
Dim ligne As String
Dim i As Integer
Dim j As Integer
Dim specialite As String
num = FreeFile
fichier1 = FreeFile
Text1.Text = ""
Open "C:\medecins.doc" For Input As #num

Do While Not EOF(num)
Line Input #num, ligne

i = InStr(ligne, ",")
j = InStr((i + 1), ligne, ",")

specialite = Mid(ligne, i + 1, j - i - 1)

If (specialite = "cardiologue") Then

Open "C:\fich1.doc" For Append As #fichier1
Print #fichier1, ligne
Text1.Text = Text1.Text & ligne & vbrlf
Close #fichier1
End If
Loop
Close #num
et merci d'avance :p
0