Discussion :

[zanou666]

j'ai un formulaire qui dépend d'une table, puis un bouton.
quand je clique dessus, j'ouvre un autre formulaire qui dépend d'une autre table mais je voudrais garder le numéro de l'enregistrement du 1er formulaire.

J'ai fait avec ce code :

Code :

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

DoCmd.OpenForm "Anomalie", acNormal, , "[NumDemande] = " & Me.Liste

j'ouvre le nouveau formulaire mais je n'ai pas la valeur NumDemande remplie.

Pourquoi ça ne veut pas marcher ?

[luz_negra]

je vois que tu as tapé me.liste

donc c'est une zone de liste ? si oui il faut dire la valeur de la colomne qui t'interesse.

par exemple si dans la 2 eme colome de ta ZDL tu as les categorie et que tu voudrais que ton formulaire s'ouvre en fonction de la valeur de la categorie tu dois taper

me.liste.colomn(1)


2eme colonne (1)

si c'est dans une autre colonne tu tape ces chiffre a la place

1er colomne--- (0)
3 eme colomne--- (2)

et ainsi de suite

donc le numero de ta colonne - 1.

et sa devrai marcher

[zanou666]

je ne pense pas que ça vienne de là parce que quand je fais un debug.print me.liste, j'obtiens la valeur que je souhaite.

Quelqu'un a une idée ?

[zanou666]

comme je n'arrive pas, je vais essayer de faire une requete qui va créer un nouvel enregistrement dans la table, mais la requete ne marche pas !

Code :

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

1
2
   SQL = "INSERT INTO Anomalie VALUES ( , " & Me.Liste & " , , , , , , , , )"
    DoCmd.RunSQL sSQL

[luz_negra]

voila une partie de mon code

pour le formulaire 1

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lstSousType_DblClick(Cancel As Integer)
 
Dim valeurcolumn As Integer
 
valeurcolumn = lstSousType.Column(0)
 
DoCmd.OpenForm "page titre type", acNormal, , , , , valeurcolumn
 
End Sub

et pour mon formulaire 2 qui depend de lavaleur du formulaire 1 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
Private Sub Form_Load()
 
valeurcolomn = Me.OpenArgs
 
 
lstTitreType.RowSource = "SELECT Recettes.id_sous_type, Versions.idversion, Categories.nom, SousCategories.[nom sous catégorie], Recettes.Titre FROM (Categories INNER JOIN (Recettes INNER JOIN Versions ON Recettes.id_nom_recette = Versions.id_nom_recette) ON Categories.idcategorie = Recettes.idcategorie) INNER JOIN SousCategories ON (SousCategories.id_sous_categorie = Recettes.id_sous_categorie) AND (Categories.idcategorie = SousCategories.idcategorie) WHERE Recettes.id_sous_type = " & OpenArgs & " ORDER BY Recettes.Titre"
 
'Rafraichit l'affichage de la liste
lstTitreType.Requery
 
 
 
End Sub

si tu remarque bien je suis sur la partie on load.

bon moi ce que j'avais c'est 2 liste deroulante l'autre etant dans le formulaire 2 et dependant de la valeur selectionné dans le formulaire 1

enfin bref.

j'ai remis

Code :

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

valeurcolomn = Me.OpenArgs

pour verifier que ma valeur est bien transferer d'un formulaire a l'autre en debug.

et regarde dans mon select comment j'ai ecris....

j'espere que sa va t'aider

a moins que je n'ai pas compris ton probleme

[p'tite Sandrine]

bonjour,

ton problème vient du fait que tu n'ouvre pas un nouvel enregistrement mais que tu tente de trouver un enregistrement qui n'existe pas encore....

Code :

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

1
2
3
 
DoCmd.OpenForm "Anomalie", acNormal,,,acFormAdd
Forms![Anomalie]![NumDemande] =   Me.Liste