Discussion :

[zetra]

bonjour
j'ai une erreur dans le code suivant (argument ou appel de procédure incorrect) que je n'arrive pas a détecter

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
30
31
32
33
34
Private Sub execute_Click()
 
Dim prmUserId As Long, prmDateDebut As Date, prmDateFin As Date, prmYUANYING As String
Dim db As DAO.Database: Set db = CurrentDb
Dim r As DAO.Recordset: Set r = db.OpenRecordset("USER_SPEDAY", dbOpenDynaset)
Const MyTime = #11:59:00 PM#
 
If Not (IsNull(Me.prUserId) Or IsNull(Me.prDateDebut) Or IsNull(Me.prDateFin) Or IsNull(Me.prYUANYING)) Then
         prmUserId = Forms("Formulaire1").Controls("prUserId").Value
         prmDateDebut = Forms("Formulaire1").Controls("prDateDebut").Value
         prmDateFin = Forms("Formulaire1").Controls("prDateFin").Value
        prmYUANYING = Forms("Formulaire1").Controls("prYUANYING").Value
 
Dim iDate As Date: For iDate = prmDateDebut To prmDateFin
 r.AddNew
 
       r![UserId] = prmUserId
       r![StartSpecDay] = iDate
       r![ENDSPECDAY] = iDate + MyTime
       r![DateId] = 2
       r![YUANYING] = prmYUANYING
       r![Date] = Now()
       r.Update
   Next iDate
 
 
       Else
          MsgBox "     Complétez toutes les zones SVP           ."
 
 End If
 
   r.Close: Set r = Nothing
   db.Close: Set db = Nothing
End Sub

a propos ce code fonctionne bien sous access 2013 (accdb) et avec message d'erreur sous access 2003 (MDB)
et merci pour votre aide

[marot_r]

Bonjour.

Sur quelle ligne l'erreur ?

A+

[zetra]

bjr,
sur la ligne 1 en surbrillance en jaune
j'ai des doutes que l'appel de procédure n'est pas le même en access 2003 et version 2013
A+

[marot_r]

Bonjour.

Quand tu parles de la 1ère ligne, c'est bien Private Sub execute_Click() ?

Si oui, essaye de mettre cette procédure totalement en commentaire et demande la compilation dans le menu Débogage de l'éditeur de code.
Le problème ne vient peut-être pas de là.

A+