Discussion :

[fclus]

Bonjour à tous,
Je reçois un message incompréhensible à la compilation de mon code sur l'utilisation d'une liste déroulante en vba
C'est quelque chose que j'ai déjà fait des milliers de fois et je ne vois pas ce qui coince
Voici le code : voir 4ème ligne ==> me.CmbOT est le nom de la liste déroulante dans mon formulaire
La compilation ne donne pas de message sur ma 1ère ligne alors que je fais référence à me.CmbOT

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CmdC2_Click()
If Not IsNull(Me.CmbOT) Then
    If Not IsNull(Me.CtlDateC2) Then
        StrSql = "SELECT * FROM TblPointageEnt"
        StrCritere = " WHERE TblPointageEnt.ponumot =" & Me.CmbOT & " AND TblPointageEnt.podate=#" & Format(Me.CtlDate, "MM/DD/YYYY") & "#"
        pStrsql = StrSql & StrCritere
        'Vérifier si existante enregistrement
        Dim dbmadb As DAO.Database
        Set dbmadb = CurrentDb
        Dim Rec As DAO.Recordset
        Set Rec = dbmadb.OpenRecordset(StrSql)
        If Rec.EOF Then
            StrSqlI = "INSERT INTO TblPointageEnt ( ponumot, podate ) VALUES(" & Me.CmbC2 & ", #" & Format(Me.CtlDate, "MM/DD/YYYY") & "#)"
            DoCmd.SetWarnings False
            DoCmd.RunSQL StrSqlI
            DoCmd.SetWarnings True
        End If
        Rec.Close
        Set Rec = Nothing
        'MsgBox pStrsql
        DoCmd.Close
        DoCmd.OpenForm "FrmPointageEnt"
    Else
        MsgBox "Veuillez préciser la date !"
    End If
Else
MsgBox "Veuillez sélectionner un OT !"
End If
End Sub

Si quelqu'un a une idée, je suis preneur !

Merci

[fclus]

Pour être plus précis, à la compilation, je n'ai pas d'erreur sur la ligne 1 alors que je fais référence à me.CmbOT
Mais j'en ai une à la ligne 4 !

[fclus]

Le problème semble être plus général. J'ai la même erreur dans d'autres formulaires si j'ajoute de nouveaux contrôles !

[madefemere]

Bonjour,

Vérifie que tu n'as pas de références manquantes.
Sinon, ça peut être causé par un formulaire qui est corrompu à force de modifications.
Essaie un compactage de ta base. Sinon il faudrait reconstruire le formulaire.

Cordialement,

[fclus]

J'ai déjà vérifié mes références. Tout est ok
J'ai aussi créé un nouveau formulaire mais en copiant un formulaire existant sur lequel je n'avais pas de problèmes
J'ai déjà tenté le compactage
Je vais tenter de partir d'un formulaire vierge

Merci

[fclus]

Ca fonctionne à partir d'un nouveau formulaire vierge !
Discussion close

Merci