Creation d'un message lors de l'ouverture d'un formulaire

Version imprimable

Bonjour,

J'ai sur un Formulaire, un bouton qui ouvre un autre formulaire sur les données concernant le périmètre que lequel j'etais positionné dans le 1er formulaire.

Il arrive que ces données ne soient pas saisi sur le second formulaire, actuellement il ouvre toujours sur le 1er enregistrement effectué sur le second formulaire, du coup je me suis inspiré du code que j'ai ailleurs pour l'adapter a ce cas, or quand je click sur le bouton j'ai le message d'erreur suivant :

Erreur d’exécution '438':
Proprieté ou methode non gerée par cet objet.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Commande25_Click() DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Nom Perimetres] = '" & Me.Commande25 & "'" If rs.NoMatch Then MsgBox "Perimetre inexistant! voulez vous le saisir" Else Me.Bookmark = rs.Bookmark End If End Sub
Si l'utilisateur click sur Ok le formulaire s'ouvre sur un nouvel enregistrement.
Merci.

Cordialement.

17/07/2017, 15h45
loufab

Bonjour,

Quand tu utilises "Me" tu t'attends à avoir quel objet formulaire ?

Cordialement,

Oui un formulaire, j'ai apporté une modification

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande25_Click()
 
 DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres
  Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom Perimetres] = '" & Me.[Nom Perimetres] & "'"
    If rs.NoMatch Then
        MsgBox "Perimetre inexistant! voulez vous le saisir"
    Else
        Me.Bookmark = rs.Bookmark
    End If
 
End Sub

Il ouvre le formulaire, mais sur le premier enregistrement et sans avoir de message.

17/07/2017, 15h59
loufab

la question c'était lequel ?
Celui que tu ouvres juste avant ?
17/07/2017, 16h03
adelion7015

Ouvrir un formulaire partir d'un autre formulaire et affiché certaines données qui sont sur le 1er formulaire, notamment le nom du perimetre, dans le cas ou sur le second formulaire il y a absence de ces données, un message nous l'indique et nous propose de saisir les données.

Si l'utilisateur accepte le formulaire s'ouvre sur un nouvel enregistrement.
17/07/2017, 16h11
loufab

Désolé ! Si tu ne réponds pas aux questions que je te pose on ne va pas s'en sortir.
17/07/2017, 16h14
adelion7015

Ah, desolé, je n'avais pas compris, j’étais pourtant sur que j'avais compris.

S'il vous plait, vous pouvez me reformuler la question.

Je comprend vite quand on m'explique beaucoup. :oops:

Cordialement.
17/07/2017, 16h16
loufab

Est-ce que dans ton code tu souhaites que "Me" désigne "frm_signalitique_superficiaire" ?
17/07/2017, 16h19
adelion7015

Oui c'est le nom du formulaire que je souhaite ouvrir avec dedans un champ qui s'appel [Nom Perimetres]
17/07/2017, 16h23
loufab

Tu ne peux pas utiliser Me en dehors de son périmètre.

Me ne fonctionne QUE dans le code du formulaire qu'il désigne.

N'utilise pas Me mais Forms(...) ou change de méthode. Mon tuto sur les appels formulaires t'aidera surement.

Par exemple :
Interroge la source du formulaire puis quand tu sais si la valeur existe tu ouvres le formulaire en conséquence.

j'ai fait ca, toujours rien, j'ai tout plein de messages d'erreur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande25_Click()
 
 DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres
  Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom Perimetres] = Forms(frm_signalitique_superficiaire)"
    If rs.NoMatch Then
        MsgBox "Perimetre inexistant! voulez vous le saisir"
    Else
        Me.Bookmark = rs.Bookmark
    End If
 
End Sub

Si tu essayes ça comme ça?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande25_Click()
 
 DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres
  Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom Perimetres] = " & Forms("frm_signalitique_superficiaire")!Commande25
    If rs.NoMatch Then
        MsgBox "Perimetre inexistant! voulez vous le saisir"
    Else
        Me.Bookmark = rs.Bookmark
    End If
 
End Sub

17/07/2017, 18h25
adelion7015

Bonjour syrald,

Merci pour la reponse, je n'ai pas actuellement la base sous les yeux, demain matin je ferais le test, en attendant, je ferais un tour sur le tuto de Loufab, histoire de comprendre comme que ca marche.

Merci.

Cordialement.
18/07/2017, 09h43
loufab

Bonjour,
@syrald : non plus.

Le problème vient de l'utilisation du Me pour désigner un formulaire extérieur.
Me désigne TOUJOURS l'objet (formulaire/état/classe) propriétaire du module dans lequel il est utilisé.

Ici ce n'est pas le cas. adelion7015 veut que Me désigne "frm_signalitique_superficiaire".

Soit on passe pas une syntaxe forms("frm_signalitique_superficiaire"). soit on instancie ce formulaire dans une variable Form.

A noter que

Code:

'" & Me.[Nom Perimetres] & "'"

est la seule partie valide dans ce code puisque c'est bien la valeur de ce contrôle qui doit être recherchée.

Cordialement,

Bonjour,

J'ai fait des essais en rentrant ce matin et ça ne marche toujours pas avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande25_Click()
 
 DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres
  Dim rs As Object
 
    Set rs = Me.Recordset.Clone
     rs.FindFirst "[Nom Perimetres] = " & Forms("frm_signalitique_superficiaire")![Nom Perimetres]
    If rs.NoMatch Then
        MsgBox "Perimetre inexistant! voulez vous le saisir"
    Else
        Me.Bookmark = rs.Bookmark
    End If
 
End Sub

j'ai le message suivant :

Erreur d'execution 3077:
Erreur de syntaxe (operateur absent) dans l'expression.

Cordialement.

Si tu postes une erreur il faut indiquer la ligne sur laquelle elle se produit. ;)

Une piste :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Commande25_Click() DoCmd.OpenForm "frm_signalitique_superficiaire", , , , , , Me.Nom_Perimetres Dim rs As dao.recordset Set rs = forms("frm_signalitique_superficiaire").RecordsetClone rs.FindFirst "[Nom Perimetres] = '" & Me.[Nom Perimetres] & "'" If rs.NoMatch Then MsgBox "Périmètre inexistant ! Voulez-vous le saisir ?" Else forms("frm_signalitique_superficiaire").Recordset.Bookmark = rs.Bookmark End If End Sub
Il y a d'autres méthodes pour arriver au résultat.
Rechercher l'existence avant d'ouvrir et ouvrir en conséquence. Ce qui serait plus logique et plus sécurisé.

Cordialement,

18/07/2017, 10h10
loufab

Adelion : Désolé d'insister mais je pense que tu devrais vraiment prendre connaissance de ce tuto :

http://loufab.developpez.com/tutorie...pelformulaire/
18/07/2017, 12h21
adelion7015

Bonjour,

Ca marche.

Loufab, je le ferais avec grand plaisir et intérêt, sachez que je m'inspire beaucoup de vos travaux, qui a mon sens, leurs utilités est presque infinie, c'est juste qu'a present, j'ai une petite urgence.

Merci et encore merci.

Cordialement.