Discussion :

[Jean-Luc80]

Bonsoir
A l'aide d'un form lié à une table T1 je veux mettre à jour une table T2 d'une autre BDD
Voilà le bout de 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
Private Sub OK_Click()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = DBEngine.OpenDatabase("C:\access\DVDData.mdb")
Set oRst = oDb.OpenRecordset("Roles", dbOpenTable)
 
If (Eval("DLookUp(""[Film]"",""[Roles]"",""[Film]=forms![Saisie]![TitreFilm]"")is null") And (Eval("DLookUp(""[Acteur]"",""[Roles]"",""[Acteur]=forms![Saisie]![Acteur1]"")is null"))) Then
oRst.AddNew
oRst.Fields("Acteur").value = Acteur1
oRst.Fields("Role").value = Role1
oRst.Fields("Film").value = TitreFilm
oRst.Update
End If
If (Eval("DLookUp(""[Film]"",""[Roles]"",""[Film]=forms![Saisie]![TitreFilm]"")is null") And (Eval("DLookUp(""[Acteur]"",""[Roles]"",""[Acteur]=forms![Saisie]![Acteur2]"")is null"))) Then
oRst.AddNew
oRst.Fields("Acteur").value = Acteur2
oRst.Fields("Role").value = Role2
oRst.Fields("Film").value = TitreFilm
oRst.Update
End If

Mon Pb est le suivant
Quand je saisis Acteur1 et Acteur2 qui ne se trouvent pas encore dans Table 'Roles' je n'ai qu'un ligne ajoutée (la 1ère)
Et quand je saisis un Acteur1 ou 2 peu importe déja contenu dans la table Roles mais pour un film différent il ne se passe rien.
Je crois que ça vient de mes conditions If ... Then mais je tourne en rond !!
Si l'un de vous a une meilleure idée je suis preneur
Merci à tous

[loufab]

Bonjour,

Pour des mises à jour/ajout/suppression de masse utilise plutot SQL.

Le Eval("dlookup..") c'est super capilotracté (presque alambiqué) comme méthode.

Code :

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

(Eval("DLookUp(""[Film]"",""[Roles]"",""[Film]=forms![Saisie]![TitreFilm]"")is null")

Code :

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

isnull(DLookUp("[Film]","[Roles]","[Film]=" & forms![Saisie]![TitreFilm])) and ...

Eval() est très particulier est ne doit être utiliser que dans des cas extrème de pré-évaluation.

J'ai un peu de mal à comprendre ce que tu cherches à faire. Le If ne constitue pas un boucle donc il ne traite que le premier qu'il rencontre.

Cordialement,