Rechercher : dans
Par :

Ouvrir Formulaire VBA Access

soleil_levant, le 17 jun 2009 à 10:57:25 
 Signaler ce message aux modérateurs

Bonjour,
J'ai un petit souci avec mon code, j'essaie d'ouvrir un formulaire à la fois à travers une liste de choix qui est liée à une requête (elle contient Id de deux tables). Cette requête cherche les enregistrement depuis 2 tables différentes.
Mon code est sensé ouvrir un formulaire à la fois selon la condition de la valeur de la liste de choix. Voici mon code:

Private Sub OuvrirFicheExistante2_Click()
' à partir du formulaire début, ouvre une fiche existante à partir
' du nom du dossier choisi dans la liste déroulante
On Error GoTo Err_OuvrirFicheExistante2_Click
If (IsNull(Me!SaisieNom1.Value)) Then
MsgBox "Veuillez d'abord selectionner une fiche"
Exit Sub
End If

Dim stDocName_1 As String
Dim StDocName_2 As String
Dim stLinkCriteria As String

stDocName_1 = "FICHE 1"
stLinkCriteria = "[Id]=" & Me![SaisieNom1]
DoCmd.OpenForm stDocName_1, , , stLinkCriteria

StDocName_2 = "FICHE 2"
stLinkCriteria = "[Id]=" & Me![SaisieNom1]
DoCmd.OpenForm StDocName_2, , , stLinkCriteria

' Je souhaite si mon formulaire ouvert sera vide, alors il ouvre celui qui n'est pas vide mais je n'arrive pas

Exit_OuvrirFicheExistante2_Click:
Exit Sub

Err_OuvrirFicheExistante2_Click:
MsgBox Err.Description
Resume Exit_OuvrirFicheExistante2_Click
End Sub


merci d'avance

Configuration: Windows XP
Firefox 3.0.3

Collection CommentÇaMarche.net