Discussion :

[emlakomy]

Bonjour,

Dans ma base de donnée j'arrive a inserer des valeurs dans une table saison. Ce que je voudrais est de savoir si ces valeurs sont déja présente afin des les insérer ou non.
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim db As DAO.Database
Set db = CurrentDb
 
 
Dim ssql  As String
    ssql = "INSERT INTO tSaisons (IdAdh,Saison) values (IdL,[Formulaires]![fAdherents]![Licencesf]![Saison])"
 
DoCmd.RunSQL ssql
Forms("fAdherents").Refresh

Merci d'avance pour votre aide.

[Invité]

Code :

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

1
2
INSERT INTO tSaisons (INSERT INTO tSaisons (IdAdh,Saison) values (IdL,[Formulaires]![fAdherents]![Licencesf]![Saison]) values (IdL,[Formulaires]![fAdherents]![Licencesf]![Saison]) from tsaison left join (select Idlt from tSason where  IdAdh=IdL,Saison=[Formulaires]![fAdherents]![Licencesf]![Saison]) as sais on sais.IdAdh= tSaison.IdAdh where Sais.IdAdh is null

[marot_r]

Bonjour.

Tu peux le faire ainsi :

Code :

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

1
2
3
4
5
dim nbInfo as long:dcount("Id", "tSaison", "[IdAdh]=" & IdL & " and [Saison]=" & [Forms]![fAdherents]![Licencesf].Form.[Saison])
 
if nbInfo=0 then
   'ici ton code d'ajout
end if

Et tu peux aussi laisser Access s'en occuper en définissant un index unique composé de [IdAdh] et [Saison].
Si l'enregistrement existe déjà Access ne le créera simplement pas.

aussi tu pourrais écrire :

call db.execute(sql) à la place du doCmd.RunSQL ce qui te dispense de neutraliser les alertes d'insertion de Access.

A+

[emlakomy]

Bonsoir,

Merci pour vos réponse je teste cela des que possible.
Eric

[emlakomy]

Rebonsoir,

Je viens de tester le code de dysorthographie. Il semble qu'il y a une erreur de synrtaxe car la ligne de code est en rouge et cela me donne une erreur 3431 erreur de syntaxe dans l'instruction insert into

Pour le code de marot_r j'ai aussi une erreur de syntaxe sur la ligne

Code :

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

1
2
3
 
 
dim nbInfo as long:dcount("Id", "tSaison", "[IdAdh]=" & IdL & " and [Saison]=" & [Forms]![fAdherents]![Licencesf].Form.[Saison])

[marot_r]

Oops !

Code :

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

1
2
 
dim nbInfo as long:nbInfo =dcount("Id", "tSaison", "[IdAdh]=" & IdL & " and [Saison]=" & [Forms]![fAdherents]![Licencesf].Form.[Saison])

Et il se peut que la syntaxe de "[IdAdh]=" & IdL & " and [Saison]=" & [Forms]![fAdherents]![Licencesf].Form.[Saison] ne soit pas parfaite car je ne connais pas ton appli.
L'idée est de vérifier le nombre d'éléments qui vont être mis à jour donc le critère doit être indentique à celui du INSERT.

A+

[emlakomy]

Bonjour,

Merci marot_r pour ta réponse je vais tester cela.

Mon appli est dispo sur une autre discussion ouverte sur la gestion des saisons club ping pong.
https://www.developpez.net/forums/d1...lub-ping-pong/

Eric

[emlakomy]

Bonjour,

J'ai résolu mon problème grâce au différents échanges.
Voici le code que j'ai mis.

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
 
Dim db As DAO.Database
Set db = CurrentDb
 
S = Me.Saison
Dim ssql  As String
 
 ' ===== déclaration des variables =====
    Dim strSQL As String
    Dim rst As DAO.Recordset
 
    ' ===== affectation =====
 
 
   strSQL = "SELECT tSaisons.Saison, tSaisons.IdAdh FROM tSaisons WHERE (tSaisons.Saison='" & S & "') and (IdAdh=" & IdL & ")"
 
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.RecordCount = 0 Then
 
           ssql = "INSERT INTO tSaisons (IdAdh,Saison) values (IdL,[Formulaires]![fAdherents]![Licencesf]![Saison])"
           DoCmd.RunSQL ssql
 
    Else
 
    End If
 
    ' ===== libération =====
    rst.Close
    Set rst = Nothing
 
 
Forms("fAdherents").Refresh
 
 
 
End Sub

Cela donne le résultat que j'attendais. Certains d'entre vous aurez peut être fait mieux, mais comme je ne suis pas calé cela me satisfait.
Merci pour votre aide.