Discussion :

[polianita]

Bonjour,
J'ai besoin de modifier une date existante dans une table ( champ: dateDebut)
qui correspond à un certain champs texte (ESI)
ça se présente comme ça:
sur un formulaire l'utilisateur saisi le ESI dans un textBox (ESI_Bail_TB)
puis clik sur un bouton qui affiche la date début dans un autre textBox (texte7)
--jusqu'au la tout marche bien--
l'utilisateur peut modifier cette date début affichée
et en clikant sur un autre bouton (commande9) cette date doit etre mise a jour dans la table et aussi mettre un autre champ avec d'autre criteres
donc j'ai crée deux requette Mise a jour et j'ai fais le code suivant :

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
 
Private Sub Commande9_Click()
On Error GoTo Err_Commande9_Click
Dim qda As DAO.QueryDef
Dim qdm As DAO.QueryDef
Dim rcs As DAO.Recordset
 
  'référence à la requête
Set qda = CurrentDb.QueryDefs("R_Date_Debut_Tacite_A")
Set qdm = CurrentDb.QueryDefs("R_DateDebu_Tacite_M")
qda.Execute
qdm.Execute
Set rcs = qda.OpenRecordset                 
  'libération de la référence
Set qda = Nothing
Set qdm = Nothing
Exit_Commande9_Click:
    Exit Sub
 
Err_Commande9_Click:
    MsgBox Err.Description
    Resume Exit_Commande9_Click
End Sub

mais à chaque fois que je clik sur bouton commande9 me dit : Element non trouvé dans cette collection
Vous avez une idée pour corriger ça?
Merci d'avance
poliana

[Arkham46]

slt,

vérifie les noms des requêtes :

R_Date_Debut_Tacite_A
R_DateDebu_Tacite_M

ça semble bizarre quand même la deuxième...

[polianita]

Merci bien
elle s'appelai plutot : R_DateDebuTacite_M
Mais Maintenant me dit : Trop peu de parametres, 2 attendu
Vous savez pourquoi?

[pgz]

Bonjour,

Mais Maintenant me dit : Trop peu de parametres, 2 attendu

Ca doit être dû aux requêtes elles-mêmes. Tu vas devoir montrer leurs SQL.

pgz

[polianita]

Oui c'est ce que je croyai
j'ai utiliser une autre méthode sans les requetes
et voilà ça marche

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
 
Dim rs As DAO.Recordset
Dim sql As String
Set db = CurrentDb
sql = "select * from Donnees_Ulis Where ESI_Bail = '" & Me.ESI_Bail_TB & "'"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
 
rs.Edit
If rs.Fields("DATE_DE_DEBUT") <> Me.Texte7 Then
rs.Fields("DATE_DE_DEBUT") = Me.Texte7
If (rs.Fields("UNITE_DUR") = "A") Then
rs.Fields("DATE_DE_FIN_PREVISION") = DateAdd("yyyy", rs.Fields("DUREE"), Me.Texte7)
MsgBox "Date de début bien enregistré et la date de fin était modifié automatiquement", , "Confirmaion"
End If
If (rs.Fields("UNITE_DUR") = "M") Then
rs.Fields("DATE_DE_FIN_PREVISION") = DateAdd("m", rs.Fields("DUREE"), Me.Texte7)
MsgBox "Date de début bien enregistré et la date de fin était modifié automatiquement", , "Confirmaion"
End If
End If
rs.Update
rs.Close

Merci beaucoup à tous