Discussion :

[thunderpat]

bonjour,
j'ai un petit problème lors d'un ecrasement de donnée

ce que je faire :
dès que je la valeur demandé je l'enregistre mais si la valeur augmente je voudrais l'écraser cette valeur

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
'sauveguarde auto à la val max.
Dim valmax As Integer
If j = 0 Then
If LblAffichage.Caption > TxtTension.Text Then
    With Adojournal.Recordset
             .AddNew
             !Utilisateurs = CmbUtilisateurs.Text
             !numéro_de_commande = TxtNumComm.Text
             !Date = Date
             !Heure = Time
             !tension_desirée = TxtTension.Text
             !tension_obtenue = LblAffichage.Caption
             !Unité = CmbUnité.Text
          If txtremarques.Text = "" Then
                GoTo rienfaire
            Else
             !REMARQUES = txtremarques.Text
            End If
rienfaire:
          .Update
          .Save
          .Requery
 
    End With
   ' If FrmAffichage.Visible = True Then CmdAnnulation.SetFocus
 
    Timer3.Enabled = True
    j = 1
End If
End If
 
'si dans 2 sec la val de la force augmente, elle remplace l'ancienne valeur
 
If j = 1 And (i <> 0) And (i Mod 2 = 0) Then
    With Adojournal.Recordset
        .movelast
        valmax = !tension_obtenue
        j = 2
   End With
    If j = 2 Or LblAffichage.Caption > valmax Then
    With Adojournal.Recordset
        .movelast
        .Delete
        .AddNew
             !Utilisateurs = CmbUtilisateurs.Text
             !numéro_de_commande = TxtNumComm.Text
             !Date = Date
             !Heure = Time
             !tension_desirée = TxtTension.Text
             !tension_obtenue = LblAffichage.Caption
             !Unité = CmbUnité.Text
            If txtremarques.Text = "" Then
                GoTo rienfaire
            Else
             !REMARQUES = txtremarques.Text
            End If
rienfaire:
            .Update
            .Save
            .Requery
 
    End With
    j = 1
 End If
 
      If LblAffichage.Caption < TxtTension.Text Then j = 0
      End If
vide:
Timer1.Enabled = True
End Sub
 
Private Sub Timer3_Timer()
 i = i + 1
End Sub

[La Praline]

ce que je faire :
dès que je la valeur demandé je l'enregistre mais si la valeur augmente je voudrais l'écraser cette valeur

Traduction s'il te plait...

[thunderpat]

par exemple j'enregistre si c'est supérieur à 10 moi je prend 11
donc j'enregistre dans la base de donnée
mais si 11 devien 12 par exemple je veux que la ligne que j'ai enregistré avant soit supprimé puis réengistrer avec 12

[La Praline]

Okay d'accord.

Maintenant il va falloir expliquer quand estce que cet écrasement se produit. A travers quel control(textbox, label, listbox...) et ce qui arrive à ton programme quand tu essais de le faire(parce qu'avoir un problème, on aurait deviné mais ca reset assez vague ^^)


Si VB te retourne des erreurs, notes les et donnes les nous avec la ligne à laquelle il plante...

Cordialement

[thunderpat]

je n'ai pas d'erreur
mais le probleme c 'est qu'il prend que la premiere valeur
on dirait qu'il ne prend pas en compte la partie de programme ou il y a
if j=2

[La Praline]

Si j n'est pas égal à 2 ca se comprendrais...

Le mieux serait de mettre des points d'arrêt un peu partout, histoire de pouvoir suivre le cours de l'exécution de ton programme...
Ca s'appele à juste titre du debugage !

En faisant cela tu verras où ton programme passe, où il ne passe pas et en mettant ta souris sur une variable ou un objet lorsque ton programme est arrêté sur un point d'arrêt, tu verras s'afficher la valeur de cette variable ou l'état de cet objet...

Cordialement