problème onmousemove sur etat

[rominous41]

bonjour

mon prblème est le suivant : lorsque je je bouge ma souris sur mon état j'ai l'erreur suivante qui s'affiche

impossible d'attribuer une valeure a cet objet

et voila mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Report_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim sql As Recordset
    Dim sql1 As Recordset
    Set sql = CurrentDb().OpenRecordset("select reso from adh_sal")
    Set sql1 = CurrentDb().OpenRecordset("select logo from GE  where nom = '" & sql!reso & "'")
    'Me.logo = sql1!logo
    sql.Close
    sql1.Close
    Set sql = Nothing
    Set sql1 = Nothing
    If Me.hebdo = 35 Then
        Me.niv1 = "H10%"
        Me.niv2 = "H20%"
    Else
        Me.niv1 = "H5%"
        Me.niv2 = "H25%"
    End If
End Sub

merci d'avance bonne journée a tous

[marot_r]

Code :

impossible d'attribuer une valeure a cet objet

sur quelle ligne de code se produit cette erreur ?

A+

[Philippe JOCHMANS]

Bonjour

Quel est le but de la manœuvre ?

Pourquoi vouloir changer des valeurs lors du passage de la souris sur un état

Tout cela peut-être fait directement dans les sources des contrôles niv1 et niv2 avec un VraiFaux.

Philippe