Supprimer un medecin donné
Eternal DREAM
Messages postés
4
Statut
Membre
-
Eternal DREAM Messages postés 4 Statut Membre -
Eternal DREAM Messages postés 4 Statut Membre -
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
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
-
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 -
bonjour ???
Merci ???
au revoir....
-
Message de la modération
-
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
