Mettre à jour un fichier texte depuis un formulaire
3 réponses
Emilie
Bonjour à tous
J'ai un fichier texte C:\Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais
incrémenter de 1 valeur du fichier texte C:\Version.txt
Exemple :
* si le fichier texte contient la valeur 1 -> changer 1 en 2
...
* si le fichier texte contient la valeur 10 -> changer 10 en 11
...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé DUCARNE
Bonjour,
Un truc dans le genre :
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3 ...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
Merci à tous ceux qui pourront m'aider.
Corduialement.
Emilie
Bonjour,
Un truc dans le genre :
Dim chemin As Variant
Dim valeur As long
Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1
Input #1, valeur
Close
nouvelle_valeur = valeur + 1
Open chemin & "version.txt" For Output As #1
Write #1, nouvelle_valeur
Close
End If
"Emilie" <Emilie@discussions.microsoft.com> a écrit dans le message de
news:A4FCD353-0D28-409E-884B-F7380C804C2D@microsoft.com...
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais
incrémenter de 1 valeur du fichier texte C:Version.txt
Exemple :
* si le fichier texte contient la valeur 1 -> changer 1 en 2
...
* si le fichier texte contient la valeur 10 -> changer 10 en 11
...
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3 ...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
Merci à tous ceux qui pourront m'aider.
Corduialement.
Emilie
Hervé DUCARNE
Euh, saleté de copier coller !!!! ; > (
Le "end if" à la fin n'a rien à faire ici....
"Hervé DUCARNE" a écrit dans le message de news:uBuH$
Bonjour,
Un truc dans le genre :
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
Merci à tous ceux qui pourront m'aider.
Corduialement.
Emilie
Euh, saleté de copier coller !!!! ; > (
Le "end if" à la fin n'a rien à faire ici....
"Hervé DUCARNE" <lepontherve@wanadou.fr> a écrit dans le message de
news:uBuH$yQ5FHA.840@TK2MSFTNGP10.phx.gbl...
Bonjour,
Un truc dans le genre :
Dim chemin As Variant
Dim valeur As long
Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1
Input #1, valeur
Close
nouvelle_valeur = valeur + 1
Open chemin & "version.txt" For Output As #1
Write #1, nouvelle_valeur
Close
End If
"Emilie" <Emilie@discussions.microsoft.com> a écrit dans le message de
news:A4FCD353-0D28-409E-884B-F7380C804C2D@microsoft.com...
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou
3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais
incrémenter de 1 valeur du fichier texte C:Version.txt
Exemple :
* si le fichier texte contient la valeur 1 -> changer 1 en 2
...
* si le fichier texte contient la valeur 10 -> changer 10 en 11
...
"Hervé DUCARNE" a écrit dans le message de news:uBuH$
Bonjour,
Un truc dans le genre :
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
Merci à tous ceux qui pourront m'aider.
Corduialement.
Emilie
Emilie
Merci beaucoup
Emilie
Euh, saleté de copier coller !!!! ; > (
Le "end if" à la fin n'a rien à faire ici....
"Hervé DUCARNE" a écrit dans le message de news:uBuH$
Bonjour,
Un truc dans le genre :
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
Merci à tous ceux qui pourront m'aider.
Corduialement.
Emilie
Merci beaucoup
Emilie
Euh, saleté de copier coller !!!! ; > (
Le "end if" à la fin n'a rien à faire ici....
"Hervé DUCARNE" <lepontherve@wanadou.fr> a écrit dans le message de
news:uBuH$yQ5FHA.840@TK2MSFTNGP10.phx.gbl...
Bonjour,
Un truc dans le genre :
Dim chemin As Variant
Dim valeur As long
Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1
Input #1, valeur
Close
nouvelle_valeur = valeur + 1
Open chemin & "version.txt" For Output As #1
Write #1, nouvelle_valeur
Close
End If
"Emilie" <Emilie@discussions.microsoft.com> a écrit dans le message de
news:A4FCD353-0D28-409E-884B-F7380C804C2D@microsoft.com...
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou
3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais
incrémenter de 1 valeur du fichier texte C:Version.txt
Exemple :
* si le fichier texte contient la valeur 1 -> changer 1 en 2
...
* si le fichier texte contient la valeur 10 -> changer 10 en 11
...
"Hervé DUCARNE" a écrit dans le message de news:uBuH$
Bonjour,
Un truc dans le genre :
Dim chemin As Variant Dim valeur As long Dim nouvelle_valeur As long
chemin = "c:"
Open chemin & "version.txt" For Input As #1 Input #1, valeur Close nouvelle_valeur = valeur + 1 Open chemin & "version.txt" For Output As #1 Write #1, nouvelle_valeur Close End If
"Emilie" a écrit dans le message de news:
Bonjour à tous
J'ai un fichier texte C:Version.txt qui contient une valeur (1 ou 2 ou 3
...)
Depuis un formuliare Access 2000, en cliquant sur un bouton j'aimerais incrémenter de 1 valeur du fichier texte C:Version.txt Exemple : * si le fichier texte contient la valeur 1 -> changer 1 en 2 ... * si le fichier texte contient la valeur 10 -> changer 10 en 11 ...
