Discussion :

[biblion]

Bonjour;
Je suis en train d'essayer une petite application sous Access :
j'ai deux formulaires qui sont en relation ouvrage et auteur
via le champ nomauteur lorsque je suis sur le formulaire ouvrage.
Voulant ajouter un nouveau livre Access lance un message "vous ne pouvez ajouter..." alors je copie le nom de l'auteur et j'ai creé une macro qui ouvre le formulaire "auteur" sur le 1 er enregistrement puis je vais sur le dernier enregistrement et je colle le nom et j'ai creé une macro qui ferme ce dernier formulaire.
Le travail que je veux faire: ne plus copier et que le formulaire auteur s'ouvre sur le dernier enregistrement.
Merci pour votre aide

[Tradul]

Bonjour,

Je peux t'aider pour le deuxième point :

- Ouvrir le formulaire en mode création
- Clic droit -> propriété du formulaire
- Onglet données et tu remplis le champs "tri par" la case d'après te permet d'effectué ce tri au chargement il faut donc mettre "oui"

Pour ton histoire de copie/colle je ne suis pas sur d'avoir tout compris

[biblion]

Bonjour, Tradul

Merci pour l'effort mais je pense que je me suis mal exprimé
c'est pour cela que je vais reformuler :
j'ai deux formulaires ouvrage et auteur qui ont un champ en commun :
nom_auteur sujet de relation un à plusieurs lorsque je veux ajouter
un nouveau livre j'ouvre le formulaire ouvrage une fois que je saisie
un nom d' auteur qui ne figure pas dans la table auteur access lance
un message "vous ne pouvez ajouter ou modifier l'enregistrement car l'enregistrement associé est requis dans la table auteur alors comment
j'operais :sur le formulaire ouvrage j'ai crée une macro qui ouvre le formulaire auteur
une fois le message reçu je copiais le nom de l'auteur et j'excute la macro
le formulaire auteur s'ouvre je pars vers le dernier enregistrement et je copie le nom de l'auteur et je ferme tout ceci est long je veux le faire en un seul clic
même si vous proposer un code vba je pourrai assimiler :

[zoom61]

Salut,
Tes formulaires sont alimentés pas des tables ou des requêtes ?

@+.

[biblion]

Salut zoom61;
par des tables

[zoom61]

Salut,

Vu ce que je lis, cela me semble normal. Il faut que le champ auteur soit créé dans la table auteur pour pouvoir l'utiliser dans la table ouvrage.
Si cela ne te convient pas, il faut que tu revois ta façon de faire, car les deux formulaires fonctionnent à ce que j'ai lu correctement.


@+.

[biblion]

Salut zoom61 ;

moi aussi je suis sûr que ça fonctionne bien mais je veux que ça soit automatique comme j'ai indiqué dans ma question jai essayé ce code mais ça ne marche 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub nomuteur_NotInList(NewData As String, Response As Integer)
 Dim dbsgest As DAO.Database
   Dim rstaut As DAO.Recordset
   Dim intAnswer As Integer
 
 
   intAnswer = MsgBox("L'auteur - " & Me.nomauteur.Text & " - n'est pas dans la list voulez vous l'ajouter ?", _
      vbQuestion + vbYesNo, "Confirmation d'ajout d'auteur")
 
   If intAnswer = vbYes Then
 
      ' Add auteur stored in NewData argument to the auteur table.
      Set dbsgest = CurrentDb
      Set rstaut = dbsgest.OpenRecordset("nomauteur")
      rstaut.AddNew
      rstaut!nomauteur = NewData
      rstaut.Update
 
      Response = acDataErrAdded         ' Requery the combo box list.
 
 
 
   rstaut.Close
   dbsgest.Close
 
  Set rstaut = Nothing
   Set dbsgest = Nothing
 
 
    MsgBox "Auteur ajouté avec succes", vbInformation, "Confirmation"
 
    Else
 
         ' Require the user to select an existing nomauteur. et désactive le message pas dans liste
 
           Response = acDataErrContinue
 
    Exit Sub
 End If
Me.Requery
End Sub

[zoom61]

Salut,

Le code est correct, sauf sur cette ligne :

Code :

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

Set rstaut = dbsgest.OpenRecordset("nomauteur")

qui devrait avoir là forme suivante :

Code :

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

Set rstaut = dbsgest.OpenRecordset("insert into table values ('" & me.nomauteur.value & "', etc.)")

@+.

[Invité]

Bonjour

Plusieurs choses :

1 - Tu dis que ton code ne fonctionne pas, pourquoi ? Un message d'erreur, si oui sur quelle ligne ?
2 - Dans ton recordset tu mets nomauteur, hors c'est si je ne me trompe pas le nom du champ et non le nom de ta table, c'est ta table qui doit être la source de ton recordset, ou une requête de type Select.

@Zoom61

Pourquoi mettre une requête Insert dans un recordset ? Cela ne sert strictement à rien, car il y a les méthodes d'ajout ensuite.
Un recordset doit être alimenté par une requête de type Select.

Si tu veux utiliser une requête Insert, il faut la lancer directement sans Recordset avec un code du style.

Code :

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

CurrentDb.Execute "insert into table va...

Philippe

[zoom61]

@Zoom61

Pourquoi mettre une requête Insert dans un recordset ? Cela ne sert strictement à rien, car il y a les méthodes d'ajout ensuite.
Un recordset doit être alimenté par une requête de type Select.

J'ai juste repris son fonctionnement, et dans sa façon de faire il n'insérait que la donnée aucune indication sur la table.

@+.

[Invité]

Re

Sauf que tu as mélangé deux méthodes différentes.

Philippe

[zoom61]

Re

Sauf que tu as mélangé deux méthodes différentes.

Philippe

Exact tu as aussi :

Code :

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

DoCmd.RunSQL "insert into table values ('" & me.nomauteur.value & "', etc.)"

@+.

[Invité]

Tout à fait.

Sauf que le DoCmd.RunSQL implique la suppression des avertissements ("Vous allez ajouter etc...), et non la méthode CurrentDb.Execute.

Personnellement j'utilise la deuxième méthode, car plus pratique pour moi, car je l'utilise également en VB6 (avec un petit aménagement vers le CurrentDb).

Philippe