Discussion :

[xycoco]

Re Bonjour,

Le code suivant :

Code :

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

1
2
3
4
5
Private Sub concatener_DblClick(Cancel As Integer)
Dim MonCritère As String
MonCritère = "[ID vin] =" & Forms![Appellation].Form![vue appellation]![ID vin]
DoCmd.OpenForm "caractéristique appellation", acNormal, , MonCritère, , acWindowNormal
End Sub

Me permet d'ouvrir le formulaire "caractéristique appellation" et de rechercher un enregistrement voulu. Cependant j'ai intégré sur le formulaire des boutons de déplacement (suivant et précedent) mais ils ne marchent car le critère Filtre est occupé par [ID vin].
Comment puis-je faire pour qu'ils marchent?

merci de votre aide

[DonFelipe]

Slt,
Tu as ouvert ton forme sur une [ID Vin] donnée.
Au passage je te conseillerais d'éviter les espaces & caractéres spéciaux dans les noms...
Est-ce que dans les propriétés de ton form appellation tu n'aurais pas un soucy sur les propriétés liées aux opérations sur enregistrements ? Je veux dire par là qu'il se pourait que tu n'aies pas autorisé l'ajout et la modif de données, et dans ce cas tu restes sur l'enr en cours...
Sinon pour ton filtre tu peux aussi essayer un truc du genre :

Code :

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

1
2
3
4
    Dim stDocName, stLinkCriteria As String
    stLinkCriteria = "[NoPerso]=" & Me![NoPerso]
    stDocName = "E_FeuillePerso"
    DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

...à adapter...

[xycoco]

Salut Don Felipe,

Mon pb ne vient pas du formulaire---> ajout, modif,etc : Autorisé.
Le pb c'est que [ID vin] n'est pas un contrôle du formulaire mais un champ issu de requête.

Ce que je souhaite en gros c'est l'action suivante lorsque je double clic sur l'enregistrement voulu :

1. Ouvrir le formulaire "caractéristique appellation"
2. chercher l'enregistrement correspondant à ID vin sélectionné dans le formulaire n-1 : ce que me fais le code suivant :

Code :

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

1
2
3
4
5
Private Sub concatener_DblClick(Cancel As Integer) 
Dim MonCritère As String 
MonCritère = "[ID vin] =" & Forms![Appellation].Form![vue appellation]![ID vin] 
DoCmd.OpenForm "caractéristique appellation", acNormal, , MonCritère, , acWindowNormal 
End Sub

3. mais je souhaite me déplacer sur l'enregistrement suivant ou précédent : impossible car le filtre est pris

Merci

[FRED.G]

Code :

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

1
2
3
4
5
Private Sub concatener_DblClick(Cancel As Integer) 
Dim MonCritère As String 
MonCritère = "[ID vin] =" & Forms![Appellation].Form![vue appellation]![ID vin] 
DoCmd.OpenForm "caractéristique appellation", acNormal, , , , acWindowNormal, MonCritère
End Sub

Ensuite dans le module du formulaire "caractéristique appellation" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim rs as DAO.Recordset
 
If Nz(Me.Openargs,"") <> "" then 'Si un critère a été passé
set rs = Me.Recordsetclone
with rs
  .Findfirst Me.Openargs 'On cherche le premier record correspondant au critère
  if not .Nomatch then 'Si un enregistrement a été trouvé
    Me.Bookmark = .Bookmark 
  end if
end with
set rs = nothing
End if
End sub

Référence : librairie DAO

[xycoco]

Merci merci.