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 !