Sujet Précédent Sujet Suivant

Sauvegarde de données de textbox

tahbre Messages postés 41 Date d'inscription mercredi 31 juillet 2002 Statut Membre Dernière intervention 15 septembre 2003 - 6 mars 2003 à 15:44
cs_Stratocaster Messages postés 1 Date d'inscription mercredi 3 septembre 2003 Statut Membre Dernière intervention 5 octobre 2003 - 5 oct. 2003 à 11:59

Hello tout le monde!!! :)

J'ai des textbox qui représentent le résultat de requêtes.

Je veux sauvgarder mes données lorsque les jours de la semaine défilent.
Je commence avec:weekday (datejour) 2Lundi

Si aujourd'hui est lundi,Les données apparaissent dans les textbox 53,59,65,71,77

Au jour suivant, les données de lundi disparaissent, et les données de mardi apparaissent...
Je veux que mes données soient sauvegardées au fur et à mesuere de l'avancement de la semaine pour avoir un tableau rempli.

Dim datejour As String

datejour = Format(Year(Date), "0000") & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")

If WeekDay(datejour) = 2 Then

TextBox53.Value = Sheets("test").Range("bl3").Value
TextBox59.Value = Sheets("test").Range("bo3").Value
TextBox65.Value = Sheets("test").Range("bp3").Value
TextBox71.Value = Sheets("test").Range("w3").Value
TextBox77.Value = Val(TextBox88.Value) + Val(TextBox87.Value)

End If
If WeekDay(datejour) = 3 Then

TextBox54.Value = Sheets("test").Range("bl3").Value
TextBox60.Value = Sheets("test").Range("bo3").Value
TextBox66.Value = Sheets("test").Range("bp3").Value
TextBox72.Value = Sheets("test").Range("w3").Value
TextBox78.Value = Val(TextBox88.Value) + Val(TextBox87.Value)

End If
If WeekDay(datejour) = 4 Then

TextBox55.Value = Sheets("test").Range("bl3").Value
TextBox61.Value = Sheets("test").Range("bo3").Value
TextBox67.Value = Sheets("test").Range("bp3").Value
TextBox73.Value = Sheets("test").Range("w3").Value
TextBox79.Value = Val(TextBox88.Value) + Val(TextBox87.Value)

End If
If WeekDay(datejour) = 5 Then

TextBox56.Value = Sheets("test").Range("bl3").Value
TextBox62.Value = Sheets("test").Range("bo3").Value
TextBox68.Value = Sheets("test").Range("bp3").Value
TextBox74.Value = Sheets("test").Range("w3").Value
TextBox80.Value = Val(TextBox88.Value) + Val(TextBox87.Value)

End If
If WeekDay(datejour) = 6 Then

TextBox57.Value = Sheets("test").Range("bl3").Value
TextBox63.Value = Sheets("test").Range("bo3").Value
TextBox69.Value = Sheets("test").Range("bp3").Value
TextBox75.Value = Sheets("test").Range("w3").Value
TextBox81.Value = Val(TextBox88.Value) + Val(TextBox87.Value)

End If

Bye,

Tahbre

A voir également:

Sauvegarde de données de textbox
Récupérer données json (javascript) - Conseils pratiques -Javascript
Base de données javascript - Conseils pratiques -Javascript
Nomenclature base de données - Conseils pratiques -PHP
Connexion base de données - Conseils pratiques -PHP
Ebp impossible de se connecter à la base de données ✓ - Forum SQL

1 réponse

Réponse 1 / 1

cs_Stratocaster Messages postés 1 Date d'inscription mercredi 3 septembre 2003 Statut Membre Dernière intervention 5 octobre 2003
5 oct. 2003 à 11:59

je suiçs une bite molle ;)

Discussions similaires

Comment réaliser une sauvegarde de base MS SQL via un raccourci sur le bureau

Sauvegarde automatique de ma base de données Oracle

Erreur de conversion du type de données varchar en numeric.

Prob de Restauration base de données

conception base de données e-commerce