Discussion :

[brankorri]

Bonjour,

D'après le Tutoriel indiqué ici, je suis censé avoir la solution entre les mains. Or, Access résiste impassiblement !

Voilà le matériel (avant le problème) :
* Table TSer
=> 4 Champs (CPser, Ser0, Ser1, Ser2)

* Requête RSer qui reprend tous les champs de TSer, me compte toutes les occurrences différentes en Ser2 et les listes.

*Formulaire FSer
=> 4 Champs correspondant à ceux de TSer
CPser, Ser0, Ser2 sont de type Texte.
Ser1 est de type Table/Requête

Cas :
Dans FSer je crée un nouvel enregistrement, donc un nouveau CPser.
J'indique d'abord mon nouveau texte dans le champ Ser2.
Puis je choisis une indication(alphabétique) dans le champ Ser1 : c'est une liste déroulante, appuyée sur RSer.
Enfin, une concaténation se génère automatiquement dans Ser0.

Remarque :
Par RSer, le champ-liste Ser1 me renvoie le Ser2 de tous les enregistrements déjà créés auparavant.

Problème (on y est) :
Par une action sur bouton, je souhaite que le formulaire FSer s'ouvre sur l'enregistrement dont le Ser2 correspond à mon Ser1.


D'après le Tuto :

Code :

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

1
2
3
Private sub Renvoi_Click() 
    Application.DoCmd.OpenForm "formLivres",,,,acFormAdd,,me.[N°Auteur] 
End Sub

Code :

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

1
2
3
4
5
If IsNull(Me.OpenArgs) Then 
    ' Rien à faire 
Else 
    Me.[N°Auteur]=Clng(Me.OpenArgs) 
End if

Je recommence par où, je corrige quoi, s'il vous plaît ?

Merci beaucoup,
Bk

[brankorri]

Une nouvelle pause air frais+boisson plus un petit coup de musique et la solution revient...
Il me manquait visiblement les sempiternelles guillemets pour texte...

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
Private Sub Bouton_Click()
On Error GoTo Err_Bouton_Click
 
Dim stDocName As String
Dim StLinkCriteriA As String
 
stDocName = "FSer"
StLinkCriteriA = "[Ser2]=" & "'" & Me![Ser1] & "'"
 
DoCmd.OpenForm stDocName, , , StLinkCriteriA
 
Exit_Bouton_Click:
    Exit Sub
 
Err_Bouton_Click:
    MsgBox Err.Description
    Resume Exit_Bouton_Click
 
End Sub

J'espère que cela aidera tout lecteur éperdu passant...

Bk