Supprimer un medecin donné
Eternal DREAM
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Eternal DREAM Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Eternal DREAM Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Supprimer un medecin donné
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Impossible de supprimer un fichier - Guide
- Supprimer pub youtube - Accueil - Streaming
- Comment supprimer un compte gmail - Guide
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
je l'a mis il me dit file is already open
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
(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