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

**adelion7015** · 17/07/2017, 15h35

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 :

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 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.

**loufab** · 17/07/2017, 15h45

Bonjour,

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

Cordialement,

**adelion7015** · 17/07/2017, 15h51

Oui un formulaire, j'ai apporté une modification

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 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.

**loufab** · 17/07/2017, 15h59

la question c'était lequel ?
Celui que tu ouvres juste avant ?

**adelion7015** · 17/07/2017, 16h03

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.

**loufab** · 17/07/2017, 16h11

Désolé ! Si tu ne réponds pas aux questions que je te pose on ne va pas s'en sortir.

**adelion7015** · 17/07/2017, 16h14

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.

Cordialement.

**loufab** · 17/07/2017, 16h16

Est-ce que dans ton code tu souhaites que "Me" désigne "frm_signalitique_superficiaire" ?

**adelion7015** · 17/07/2017, 16h19

Oui c'est le nom du formulaire que je souhaite ouvrir avec dedans un champ qui s'appel [Nom Perimetres]

**loufab** · 17/07/2017, 16h23

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.

**adelion7015** · 17/07/2017, 16h33

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

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 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

**syrald** · 17/07/2017, 16h43

Si tu essayes ça comme ça?

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 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

**adelion7015** · 17/07/2017, 18h25

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.

**loufab** · 18/07/2017, 09h43

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 :

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

'" & 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,

**adelion7015** · 18/07/2017, 09h50

Bonjour,

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

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 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.

**loufab** · 18/07/2017, 10h08

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

Une piste :

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
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,

**loufab** · 18/07/2017, 10h10

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

http://loufab.developpez.com/tutorie...pelformulaire/

**adelion7015** · 18/07/2017, 12h21

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.

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

IHM

Discussions similaires

Partager

Partager