Discussion :

[gravier3000]

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 :

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

[loufab]

Bonjour,

où est le conflit ?

cordialement,

[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

[loufab]

Premier ou second ?

Je n'en vois qu'un posté.

[gravier3000]

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 :

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

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 :

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

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 :

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

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

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

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 ?