Discussion :

[barbapapa2]

Bonjour à tous,

Je rencontre un problème de compilation sur une application MS Access

Je dois récupérer une variable dans une table, correspondant au dernier numéro d'enregistrement, ceci pour définir un nouveau numéro correspondant au 2 décimale de l'année en cours , récupérer les deux derniers digit du précédent enregistrement dans "Tbl_value" LastAnomalyRef incrémenté de +1 pour un nouvel enregistrement.

Voici le 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
 
Private Function getAnomalyID() As String
Dim vsQuery As String
    Dim vrstRecord As DAO.Recordset
 
    vsQuery = "SELECT ANOMALY_ID FROM ANOMALIES WHERE ANOMALY_REF LIKE '" & Format(Date, "yy") & "-*';"
    Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)
 
 
    If vrstRecord.RecordCount > 0 Then
 
        vsQuery = "SELECT Value FROM tbl_Values WHERE Field='LastAnomalyRef';"
        Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)
 
        DoCmd.RunSQL "UPDATE tbl_Values SET tbl_Values.Value='" & vrstRecord(0) + 1 & "' WHERE Field='LastAnomalyRef';"
 
        getAnomalyID = CStr(Format(Date, "yy") & "-" & Format(vrstRecord(0) + 1, "0000"))
 
 
    Else
        DoCmd.RunSQL "UPDATE tbl_Values SET tbl_Values.Value='1' WHERE Field='LastAnomalyRef';"
 
        getAnomalyID = CStr(Format(Date, "yy") & "-" & Format(1, "0000"))
    End If
 
 
End Function

Je cherche depuis des jours et ne trouve pas de solution

D'avance merci pour votre aide et conseils

Bonne journée et bon week-end

[tee_grandbois]

bonsoir,
c'est très bien de poster le code mais ce serait aussi bien de préciser sur quelle ligne l'erreur se produit
et ce n'est pas très prudent de redéfinir un Recordset en pleine lecture de ce dernier

Code :

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

1
2
3
4
5
6
7
    Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)             '<===  ici
 
 
    If vrstRecord.RecordCount > 0 Then
 
        vsQuery = "SELECT Value FROM tbl_Values WHERE Field='LastAnomalyRef';"
        Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)       '<=== puis là

[loufab]

Bonjour,

Déjà ça c'est une erreur typique de quelqu'un qui ne lit pas la documentation d'une instruction :

Code :

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

1
2
3
    Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)
 
    If vrstRecord.RecordCount > 0 Then

Un recordcount après une ouverture de recordset est TOUJOURS à 0.

Du coup tout le reste n'a aucune consistance.

Cordialement,

Conseil : Ne pas faire confiance ou ne pas faire une déduction de fonctionnement d'une instruction mais consulter la doc. Ensuite l'utiliser dans les bonnes conditions.

[tee_grandbois]

bonjour loufab,

Un recordcount après une ouverture de recordset est TOUJOURS à 0.

il me semble que non, c'est à 0 quand il n'y a pas d'enregistrement mais quand il y en a au moins 1, il est à 1.
Et pour connaitre le nombre exact, il faut faire un Movelast

[loufab]

En effet, je cours me cacher...

[tee_grandbois]

En effet, je cours me cacher...

tout le monde peut avoir une absence de temps en temps, je ne suis pas non plus irréprochable quelques (rares) fois

[deedolith]

Hello,

J'ajouterai que la valeur de RecordCount n'etant pas fiable, le seul moyen de savoir si un recordset contiens des données est de tester les propriétés BOF et EOF.
Si elles sont toutes les 2 à True (on est avant le début et après la fin), le recordset est vide:
Mais en pratique, quand on vient d'ouvrir un recordset, on se contente de tester EOF.

Code :

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

1
2
3
4
vsQuery = "SELECT ANOMALY_ID FROM ANOMALIES WHERE ANOMALY_REF LIKE '" & Format(Date, "yy") & "-*';"
Set vrstRecord = CurrentDb.OpenRecordset(vsQuery, dbOpenSnapshot)
 
If Not vrstRecord.EOF Then

[tee_grandbois]

bonjour,

J'ajouterai que la valeur de RecordCount n'etant pas fiable, le seul moyen de savoir si un recordset contienst des données est de tester les propriétés BOF et EOF.

Si on veut chipoter, c'est vrai qu'il est mieux de tester EOF, mai utiliser Recordcount > 0 est aussi fiable pour savoir si le Recordset n'est pas vide