Discussion :

[AlainTech]

Non, je veux dire que tu dois chercher l'équivalent ADO du .Edit de DAO.

[jacma]

Non, je veux dire que tu dois chercher l'équivalent ADO du .Edit de DAO.

Bonjour
A ma connaissance, le mode Edit n'est pas formel. Toute modification d'un contenu d'un objet lié aux données est enregistrées automatiquement.

[AlainTech]

Exact, je viens de voir l'aide de ADO.

Le .Edit n'est plus nécessaire.

Tous les changements faits dans le RecordSet sont écrits dans la base lors de l'application de la méthode .Update.

C'est donc encore plus simple et me permet de confirmer que bb62 possède tous les éléments de programmation nécessaire.

[bb62]

Bon pour le update cela devrait aller mais il y a encore un problème :

lorsque je suis sur la ligne qui à l'index 3 et que je viens de voir qu'il y a une erreur sur la ligne d'index 0.

Je rappele qu'une ligne se compose de La Text1(i-1) qui correspond à l'heure de l'evenement, ensuite il y a la Text2(i-1) qui correspond au libellé de l'evenement et enfin le label1(i-1) qui est non visible par l'utilisateur qui correspond au code de l'evenement.

Une ligne correspond à un enregistrement de la table Evenement.

Donc si l'erreur est sur la Text2 d'index 0, Comment faire pour qu'on met à jour le champ Libellé_Ev qui a le code_Ev = Label1 du meme index que la Text1?

Merci d'avance.

[bb62]

J'ai un petit souci, lorsque je ferme mon formulaire il me met une erreur :

Vb6.exe - Erreur d'application

L'instruction à "0x77e2a5ae" amploie l'adresse mémoire "0x00000019". La mémoire ne peut pas être "read".

Cliquez sur OK pour terminer le programme.

Je crois que cela viens de mon code.

Pouvez-vous m'aider?

Merci d'avance.

[bb62]

C'est bon pour l'erreur j'avais oublié de décharger mes contrôles.

[bb62]

Donc j'ai reussi à faire quelquechose, 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
 
 
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
Dim nb1, nb2 As Integer
 
nb1 = Index
nb2 = Label1(Index).Index
 
If Me.TextWidth(Text2(i - 1).Text) >= Text2(i - 1).Width - 4125 Then
    Text2(i - 1).Height = 585
    Text2(i - 1).SelStart = Len(Text2(i - 1).Text)
End If
 
If KeyAscii = vbKeyTab Then
 
    If nb1 = nb2 And Label1(nb2).Caption <> "" Then
 
        With rstEvenementTampon
        .ActiveConnection = connexion
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "Select * from Evenement Where Code_Ev = " & Label1(nb2).Caption
 
        !Libellé_Ev = Text2(Index).Text
 
        .Update
        .Close
         End With
 
    Else
 
        With rstEvenementTampon
        .ActiveConnection = connexion
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "Evenement"
        .AddNew
 
        !Libellé_Ev = Text2(i - 1).Text
        !Heure_Ev = Text1(i - 1).Text
 
        .Update
 
        Label1(i - 1) = !Code_Ev
 
        .Close
        End With
 
    End If
 
    If mShift = 0 Then
        Text1(Index + 1).SetFocus
    Else
        Index = Text1.Count
        Text1(Index).SetFocus
    End If
 
End If
 
End Sub

Cela marche mais il y a juste un petit souci.

Je crois que lorsque par exemple je suis sur la Text2(i-1) et que je fais Tab donc je passe au text1(i) et bien je crois qu'il me fais un ecart (donc une tabulation) après avoir tapez du texte dans ma Text2(i-1).

Pouvez-vous m'aider?

Merci d'avance.

[bb62]

Ayé j'ai réussi à trouver comment défaire la tabulation en trop il fallait juste rajouter le code suivant dans l'evenement change de ma Text2 :

Code :

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

1
2
 
Text2(Index).Text = Replace(Text2(Index).Text, vbTab, "", 1)

Merci encore à tous.

Bye bye