Conflit de codes dans VBA

Version imprimable

Bonjour,

N'y connaissant rien au VBA, j'avance par essai-erreur... Mais là je ne vois pas comment je pourrais faire fonctionner ces deux codes qui semble devoir être placés au même endroit...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Current() If Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1) Then MsgBox ("Warning: you are moving to another record") End If If IsNull(Me.X) Then Me.Square.Locked = False Me.Grid.Locked = False Else Me.Square.Locked = True Me.Grid.Locked = True End If End Sub
Avec un seul code à la fois ca marche pourtant ! :?

Merci d'avance et bonne journée !

10/09/2010, 10h31
loufab

Bonjour,

où est le conflit ?

cordialement,
10/09/2010, 10h43
gravier3000

Bonjour,

Je ne sais pas si cela s'appelle vraiment un "conflit", mais ce que je remarque c'est que introduit de cette manière seul le premier code fonctionne, et pas le deuxième...
Faut il placer ce deuxième code dans une autre procédure que Form - Current ?

Merci
10/09/2010, 13h37
loufab

Premier ou second ? 8O

Je n'en vois qu'un posté.

Désolé, je n'utilise peut-être pas le bon vocabulaire, mais voici mon problème plus en détail.

Lorsque je place uniquement ceci :
Code:

1 2 3 4 5 6 7 Private Sub Form_Current() If Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1) Then MsgBox ("Warning: you are moving to another record") End If End Sub
mon message d'alerte s'affiche bien lorsque je change de numéro d'enregistrement dans le formulaire.

Lorsque je tape ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Form_Current() If IsNull(Me.X) Then Me.Square.Locked = False Me.Grid.Locked = False Else Me.Square.Locked = True Me.Grid.Locked = True End If End Sub
J'arrive bie na bloquer les champs "Square" et "Grid" si le champ "X" n'est pas nul.

Mais lorsque je tape ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Current() If Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1) Then MsgBox ("Warning: you are moving to another record") End If If IsNull(Me.X) Then Me.Square.Locked = False Me.Grid.Locked = False Else Me.Square.Locked = True Me.Grid.Locked = True End If End Sub
les champs "Square" et "Grid" ne se bloquent plus...

Je ne comprend pas...

10/09/2010, 16h01
loufab

Ok je comprends ce que tu veux dire.

Par contre je ne comprends pas non plus pourquoi. A part que X soit null.

Par contre que cherches-tu à faire avec cette syntaxe ?

Code:

Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1)

Traduction :
Si ID est inf ID le plus grand + 1
exemple :
Soit une série d'ID 1 à 10
que tu sois sur 1 ou 10 c'est toujours 11 qui sera retourné.

Cela se produira tout le temps.

Tu crée une base pour l'observation des papillons ?
12/09/2010, 15h14
mondev

Bonjour gravier3000, loufab,

J'ai déjà eu un problème similaire il y a longtemps, je vous propose d'aller y jeter un coup d'oeil et me dire ce que vous en pensez.

Je crois que l'évènement Current n'est pas fait pour ce genre de manip parce que -je crois- qu'il se déclenche "un peu trop" vite pour ça, je veux dire: avant le traitement et l'affichage des données.

Je parie que "X" est un champ calculé!?
A vous
15/09/2010, 18h33
gravier3000

Bonjour,

Loufab, ce code permet d'afficher un message d'alerte pour prévenir l'utilisateur qu'il change d'enregistrement (pour éviter d'encoder dans un mauvais enregistrement). Sans le +1, le message d'erreur n'appareit pas lorsqu'on passe d'un nouvel enregistrement (encore sans ID) à un enregistrement possédant un ID...

Code:

Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1)

Effectivement il s'agit d'une bdd pour des observations de papillons (pour le formulaire en question), mais également pour toute une série d'autres groupes d'espèces (dont les formulaires sont semblables). Naturaliste ?

Le champ X n'est pas calculé.

bonsoir ,

Je suis un peu comme loufab la ... ! J'ai un souci de compréhension sur ton :
Code:

1 2 If Me.ID < (DMax("ID", "OBS_Species_Rhopalocera") + 1) Then MsgBox ("Warning: you are moving to another record")
Citation:

ce code permet d'afficher un message d'alerte pour prévenir l'utilisateur qu'il change d'enregistrement (pour éviter d'encoder dans un mauvais enregistrement).

Ton If Me.ID < DMax = Tu es sur un ID qui es déjà rempli de donnée.
(1 ID = Une ligne = Un enregistrement)

Ton code devrais être :
Code:

1 2 3 4 If Me.ID <= (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Vous êtes sur la plage d'enregistrement") If Me.ID > (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Attention cette enregistrement n'existe pas")
Dmax = Ton nombre maximum d'enregistrement ... en gros si tu as 3enfants , tu ne peu pas te placer sur Enfant+1 ... tu n'as pas de 4eme enfant donc erreur ...

Ton +1 est très troublant .. o_o !

Cordialement,

Bonjour,

Expliqué comme cela c'est vrai que c'est louche, mais cela marche ! Cependant j'ai quand même remplacé le +1 par un <=.
Je ne comprend pas la deuxième partie du code que tu proposes, et ne parviens pas à la faire fonctionner (message d'erreur dans la fenêtre VBA " Compil error : block If without End If")
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Current() If Me.ID <= (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Vous êtes sur la plage d'enregistrement") If Me.ID > (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Attention cette enregistrement n'existe pas") End If End Sub
Comment le ID peut-il être supérieur à Dmax ?

Mais en fait le problème à la base de cette discussion était savoir pourquoi le code suivant ne marche pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Current() If Me.ID < (DMax("ID", "OBS_Species_Mollusca") + 1) Then MsgBox ("Warning: you are moving to another record") End If If IsNull(Me.X) Then Me.Square.Locked = False Me.Grid.Locked = False Else Me.Square.Locked = True Me.Grid.Locked = True End If End Sub
La première partie qui vise a faire apparaitre le message "Warning : you are..." fonctionne toujours, mais la suite pas.

Ce qui a donc été fait, c'est de laisser cette première partie de code dans l'évènement Current, et de remplacer la suite par ceci :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub X_GotFocus() If IsNull(Me.Square) And IsNull(Me.Grid) Then Me.X.Locked = False Else Me.X.Locked = True MsgBox ("You are not allowed to fill in the geographical coordinates and the grid system for the same record") End If End Sub
Explications : pour situer géographiquement l'observation d'une espèce, l'observateur à le choix entre donner une coordonnée exacte (geographical coordinates) ou donner le numéro d'un carré (grid system).

Ce code est adapté pour chaque champ de chacun des deux systèmes de référence géographique (X, Y,... pour le premier et Square, Grid pour le deuxième).
Donc si un des champ d'un des deux systeme de référence géographique est rempli, les champ de l'autre système de référence géographique est bloqué et le message apparait !

C'est donc RESOLU !

PS : un autre problème apparait, le message apparait dès que l'on sélectionne le champ bloqué. Serait il possible de faire apparaitre le message seulement lorsqu'on y introduit quelque chose ? Ceci fera l'objet d'une nouvelle discussion...

Merci

Oups ...
Deux if en entrée ... et un seul End if ... -_- ! FAIL
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Form_Current() If Me.ID <= (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Vous êtes sur la plage d'enregistrement") If Me.ID > (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Attention cette enregistrement n'existe pas") End If End If End Sub
Ou un peu mieux :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Current() If Me.ID <= (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Vous êtes sur la plage d'enregistrement") ElseIf Me.ID > (DMax("ID", "OBS_Species_Rhopalocera")) Then MsgBox ("Attention cette enregistrement n'existe pas") End If End Sub
Citation:

Comment le ID peut-il être supérieur à Dmax ?

Justement il ne le peu pas ,c'est pour cela que je te met un msgerr : cette enregistrement n'existe pas! Ce qui te sert de butté Supérieur si tu préfère.
Je ne connais pas ton programme en détail mais je pense que ici cela est dans le cadre d'un passage sur enregistrement du Style Next/Next/Next...
(Lapin, NEXT , Cheval , NEXT , coyotte , NEXT , MsgErreur Enregistrement inexistant on reste donc sur le Coyotte)

Ce qui j'apparenterais à ce que je fait pour les Dates (ici : http://www.developpez.net/forums/d96...-current-date/ )

Ce qui te donnerais au final un code plutôt du style :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Form_Current() Dim NextSpecies As Integer If Me.ID + 1 <= (DMax("ID", "OBS_Species_Rhopalocera")) Then 'affichage de l'espèce suivante Me.ID = Me.ID + 1 ElseIf Me.ID + 1 > (DMax("ID", "OBS_Species_Rhopalocera")) Then 'On dépasse le nombre d'enregistrement existant NextSpecies = MsgBox("Especes suivante Impossible a atteindre", vbOKOnly + vbExclamation + vbApplicationModal, "Espèce hors limite") End If End Sub
Cordialement à toi ,

EDIT : Oui au final on c'est peu être un peu perdu la dedans , ne comprenant pas cette parti de code de départ ! Sorry

16/09/2010, 11h19
mondev

Bonjour,

En fait, moi je crois qu'il veut tout simplement afficher un message lorsqu'on passe à un autre enregistrement et ne rien afficher s'il s'agit d'un nouvel enregistrement (ID inexistant) et justement l'évènement Current se produit à chaque fois que l'on change d'enregistrement.

Ca c'était concernant le "code louche" sinon pour le problème initial je vois que c'est "résolu" donc tant mieux.

Bonne continuation

@MisterS :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
 
    If Me.ID <= (DMax("ID", "OBS_Species_Rhopalocera")) Then
    MsgBox ("Vous êtes sur la plage d'enregistrement")
 
    ElseIf Me.ID > (DMax("ID", "OBS_Species_Rhopalocera")) Then
    MsgBox ("Attention cette enregistrement n'existe pas")
    End If
 
End Sub

A quoi sert le ElseIf ... Un Else suffit. Si ID n'est pas <= à Z, alors il y a fort à parier qu'il est forcément > Z non ?

19/09/2010, 11h59
Tofalu
Citation:

Envoyé par mondev

Bonjour,

En fait, moi je crois qu'il veut tout simplement afficher un message lorsqu'on passe à un autre enregistrement et ne rien afficher s'il s'agit d'un nouvel enregistrement (ID inexistant) et justement l'évènement Current se produit à chaque fois que l'on change d'enregistrement.

Ca c'était concernant le "code louche" sinon pour le problème initial je vois que c'est "résolu" donc tant mieux.

Bonne continuation

Dans ce cas, il y a plus propre :
Code:

1 2 3 4 5 6 7 Private Sub Form_Current() If Me.NewRecord Then MsgBox "Vous etes en mode création" Else MsgBox "Vous etes en mode visualisation" End If End Sub

Bonjour,
que se passe-t-il pour les champs Square et Grid lorsque l'utilisateur est sur un nouvel enregistrement ?
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
 
 Sub Form_Current()
  If Not Me.NewRecord Then
          MsgBox ("Warning: you are moving to another record")
          Me.Square.Locked=false
  Else
    Me.Square.Locked=(Not Isnull(Me.X))
  End if
 End sub
 Me.Grid.Locked=Me.Square.Locked