Discussion :

[nellynew]

Je fais un select pour savoir si l'enregistrement que je recherche existe bien.
Si cet enregistrement n'existe pas, je le crée
Le select marche mais mon test "rs.NoMatch" ne semble pas marcher puisqu'on ne rentre pas dans la boucle : l'ajout ne se fait pas.

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
Dim strsql As String
    Dim rs As Recordset
    Set db = CurrentDb()
 
    strsql = "SELECT [Réclamation Départ].NIL FROM [Réclamation] WHERE  [Réclamation].Date = " & DateUS([Date].Value) & ";"
    Set rs = db.OpenRecordset(strsql, dbOpenDynaset)
    If rs.NoMatch Then
        Dim MaTable As Recordset
        Set MaTable = CurrentDb.OpenRecordset("Réclamation", DB_OPEN_TABLE)
        MaTable.AddNew
        MaTable("NIL") = NNIL.Value
        MaTable("Codif") = CODIF.Value
        MaTable("Date") = [Date].Value
        MaTable.Update
        MaTable.Close
    End If

[nellynew]

je pense avoir trouvé. NoMatch ne s'applique que si l'enregistrement a été trouvé par les méthodes seek ou find.
Dans ce cas il faut utiliser rs.EOF...
c'est ça?