Bonjour
J'ai créé une base de gestion de comptes personnel.
J'ai créé en autre ce code qui fonctionne très bien
Il me permet de me proposer le numéro de chèque suivant et de le pointer comme quoi il a servi
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 Private Sub TaOpModePaiement_Exit(Cancel As Integer) If TaOpModePaiement = "Ch?que" Then Dim Base As DAO.Database Dim rst As Recordset Dim VarX As Variant Dim CompteActuel As Variant Dim NumChec As Variant Dim CheServ As String CompteActuel = Application.TempVars("Moncompte").Value VarX = DFirst("[NumCheque]", "Req_ListeCheque", "[NumCompte]= " & CompteActuel) NumChec = InputBox("Veuillez saisir le num?ro du ch?que : ", "N? de ch?que", VarX) TaOpNumCheque = NumChec Set Base = CurrentDb Set rst = Base.OpenRecordset("SELECT * From TabCheque where NumCheque = " & NumChec, dbOpenDynaset) CheServ = -1 rst.Edit rst.Fields("ChequeServi").Value = CheServ rst.Update rst.Close Set rst = Nothing Set Base = Nothing End If End Sub
Là où j'ai un problème, c'est sur celui-ci (le code n'est pas finit, il est en cours de construction :
En fait mon code bogue à cette ligne
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 Private Sub TaOpDebit_AfterUpdate() Form.Refresh Dim Base As DAO.Database Dim rst As Recordset Dim CompteActuel As Variant Dim Solde As Variant Dim Debit As Variant Dim Credit As Variant Dim NumChec As Variant: Dim NC As Variant Dim CheServ As String: Dim Cle As Variant Solde = 0 CompteActuel = Application.TempVars("Moncompte").Value MsgBox CompteActuel Set Base = CurrentDb Set rst = Base.OpenRecordset("SELECT * From TabOp?ration where TaOpNumCompte =" & CompteActuel, dbOpenTable) Do Debit = rst.Fields("TaOpDebit").Value Credit = rst.Fields("TaOpCredit").Value Solde = Solde + Credit - Debit rst.MoveNext Loop Until rst.EOF = True MsgBox Solde rst.Close Set rst = Nothing Set Base = Nothing End Sub
et je ne vois pas de différence (mise à part mon tableau et variable bien-sûr) avec le premier code
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set rst = Base.OpenRecordset("SELECT * From TabOp?ration where TaOpNumCompte =" & CompteActuel, dbOpenTable)
Première question, mon tableau est relié à mon formulaire qui est ouvert, est ce là le problème ? Peux t'on ouvrir la table par recordset dire que la table est déjà en service ?
Si quelqu'un à la solution...
Partager