VB6 Access Mise a jour d'un champ

**getea85** · 24/08/2006, 11h17

Bonjour,

Je débute au niveau VB6-Access. J'ai fait un embryon d'application pour gérer mes comptes (oui c'est d'une banalité affligeante).

Donc j'ai une table Access avec mes crédits-débits et une requête qui permet de calculer le solde.

Dans l'appli VB6, j'ai des champs liés à mes crédits –débits et un champ lié à ma requête.

Problème, quand je modifie une valeur de crédit ou débit via l'appli (ou quand je rajoute), mon champ "solde" lui ne se met pas à jour sauf si je ferme et que je réouvre mon appli.

J'ai essayé de mettre à jour via un bouton (datRequete est donc le controle qui pointe qur ma requete):

Code :

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

1
2
3
4
5
 
Private Sub Mise_a_jour_solde_Click()
 datRequete.Recordset.Edit
 datRequete.Recordset.Update
End Sub

Pb : message d'erreur d'exécution 3027 – Impossible de mettre à jour. La base de données ou l'objet est en lecture seule.

Je ne vois pas quoi faire….

**Phifi** · 24/08/2006, 11h24

Bonjour,

datRequete est donc le controle qui pointe qur ma requete

Quel est ce contrôle ? Comment construis-tu le RecodSet ?
Peux-tu nous montrer le reste de ton code ?
Quelle est la version de la référence Jet utilisée ?

**Delbeke** · 24/08/2006, 11h29

peut être en utilisant

Code :

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

1
2
 
datRequete.Recordset.Refresh

**getea85** · 24/08/2006, 13h42

Le "Refresh" ne marche pas.

Le code complet :

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
 
Private Sub cmdAjouter_Click()
 datAuthors.Recordset.AddNew
 txtId.SetFocus
End Sub
 
 
Private Sub cmdDernier_Click()
 datAuthors.Recordset.MoveLast
End Sub
 
Private Sub cmdEffacer_Click()
 datAuthors.Recordset.Delete
 datAuthors.Recordset.MoveNext
End Sub
 
Private Sub cmdPrécédent_Click()
If Not datAuthors.Recordset.BOF Then
 datAuthors.Recordset.MovePrevious
End If
End Sub
 
Private Sub cmdPrem_Click()
 datAuthors.Recordset.MoveFirst
End Sub
 
Private Sub cmdRétablir_Click()
 datAuthors.UpdateControls
End Sub
 
Private Sub cmdSuivant_Click()
If Not datAuthors.Recordset.EOF Then
 datAuthors.Recordset.MoveNext
End If
End Sub
 
Private Sub CmdUpdate_Click()
 datAuthors.Recordset.Edit
 datAuthors.Recordset.Update
 
End Sub
 
Private Sub Command1_Click()
 'datRequete.Recordset.Edit
 'datRequete.Recordset.Update
End Sub
 
 
Private Sub txtRembours_Change()
If txtRembours.Text = "-1" Then
 Check1.Value = 1
Else
 Check1.Value = 0
End If
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
 txtRembours.Text = "-1"
 Else
 txtRembours.Text = "0"
 End If
End Sub
 
Private Sub txtTrouver_LostFocus()
Dim str As String
str = Trim(txtTrouver.Text) & "*"
str = "date like '" & str & "'"
If txtTrouver.Text <> "" Then
 datAuthors.Recordset.FindFirst str
 
End If
 
End Sub

datRequete est un controle data dont la propriété "Databasename" est défini comme étant l'emplacement de la base.

Le champ "solde" de la requete apparait dans une textbox dont le datasource=datRequete et datafield=solde

**Delbeke** · 24/08/2006, 13h54

la methode pour mettre un recordset c'est de faire une edit, la mofication, puis l'update. un edit suivi immediatement d'un update ne sert a rien

avec des controles liès, il suffit de passer a un autre enregistrment pour mettre à jour l'enregistrement en cours de modif