Discussion :

[DomDI]

Bonjour

J'ai créé une base de gestion de comptes personnel.
J'ai créé en autre ce code qui fonctionne très bien

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

Il me permet de me proposer le numéro de chèque suivant et de le pointer comme quoi il a servi

Là où j'ai un problème, c'est sur celui-ci (le code n'est pas finit, il est en cours de construction :

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

En fait mon code bogue à cette ligne

Code :

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

Set rst = Base.OpenRecordset("SELECT * From TabOp?ration where TaOpNumCompte =" & CompteActuel, dbOpenTable)

et je ne vois pas de différence (mise à part mon tableau et variable bien-sûr) avec le premier code

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...

[User]

Bonjour et bienvenue,

Pouvez-vous nous donner le message d'erreur qui s'affiche sur cette ligne ?

Sinon, c'est normal ce nom "TabOp?ration" pour votre table ?

Cordialement,

[tee_grandbois]

bonjour,
l'option dbOpenTable du paramètre Type de la commande OpenRecordSet n'est utilisable qu'avec le nom d'une table:

Code :

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

Set rst = Base.OpenRecordset("TabCheque", dbOpenTable)

donc pas de sélection possible, sauf si on utilise la commande Seek pour trouver l'enregistrement sélectionné, mais cela implique l'utilisation d'un index, donc si Numcheque fait partie des index de la table, c'est possible:

Code :

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

1
2
3
4
5
6
7
rst.Index = "Numcheque"
rst.Seek "=", NumChec
If rst.NoMatch Then 
    MsgBox " pas trouvé"
Else
'...
End If

Sinon il faut utiliser dbOpenSnapShot:

Code :

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

Set rst = Base.OpenRecordset("SELECT * From TabCheque where NumCheque = " & NumChec, dbOpenSnapShot)

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 ?

non, ce n'est pas le problème, on peut même utiliser RecordSetClone qui est la copie conforme du Recordset du formulaire

[DomDI]

Bonjour à vous

pour User, voici le message



Pour tee_grandbois, le premier code fonctionne très bien. C'est le deuxième code qui ne fonctionne pas

[User]

En fait comme le dit teegrandbois, il te faut utiliser le parametre dbopensnapshot à la place de dbopentable, car là il attend une table et pas un sql ou une requête :

Code :

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

Set rst = Base.OpenRecordset("SELECT * From TabOp?ration where TaOpNumCompte =" & CompteActuel, dbOpenSnapshot)

Cdlt,

[DomDI]

mais effectivement,

Code :

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

Set rst = Base.OpenRecordset("SELECT * From TabOperation where TaOpNumCompte =" & CompteActuel, dbOpenSnapshot)

avec dbOpenSnapshot cela fonctionne

Merci et bonne soirée

[tee_grandbois]

Pour tee_grandbois, le premier code fonctionne très bien. C'est le deuxième code qui ne fonctionne pas

oui effectivement, j'aurai dû prendre le code qui posait problème pour mes exemples