pb access rs.edit

pb access rs.edit - VB/VBA/VBS - Programmation

Marsh Posté le 09-05-2006 à 14:16:48    

je dois mettre à jour des données dans une table
la mise à jour des données se fait directement dans un formulaire. Lorsque l'on clique sur le bouton toutes les informations doivent être mises à jour
j'ai écrit la requête suivante pour mon recordset:  
"select * from Transporteur where NumTransporteur=Me!NumTrans"
 
et ensuite j'affecte toutes les valeurs "zone de texte" de mon formulaire dans le recordset avec rs.edit
 
mais j'ai un message d'erreur indiquant que j'ai trop peu de paramètres et qu'il en manque un.
Que dois-he faire?  :(  
 

Reply

Marsh Posté le 09-05-2006 à 14:16:48   

Reply

Marsh Posté le 09-05-2006 à 14:29:39    

Voici le code exact :  
 
 
Option Compare Database
Option Explicit
Private Sub ValiderModifTrans_Click()
 
Dim rs As Recordset
Dim db As Database
Dim chainesql As String
 
 
Set db = CurrentDb
chainesql = "SELECT * FROM Transporteur WHERE NumTransporteur=Forms!VisualiserTransporteur!NumTrans"
Set rs = db.OpenRecordset(chainesql)
 
rs.MoveFirst
rs.Edit
 
    rs!NomTransporteur = Me!NomTrans
    rs!AdresseTransporteur = Me!AdresseTrans
    rs!CPTransporteur = Me!CPTrans
    rs!VilleTransporteur = Me!VilleTrans
    rs!TelephoneTransporteur = Me!TelephoneTrans
    rs!CommentaireTelephone = Me!CommTel
    rs!TelephoneBisTransporteur = Me!TelephoneBisTrans
    rs!CommentaireTelephoneBis = Me!CommTelBis
    rs!PortableTransporteur = Me!PortableTrans
    rs!FaxTransporteur = Me!FaxTrans
    rs!FaxBisTransporteur = Me!FaxBisTrans
    rs!EmailTransporteur = Me!EmailTrans
    rs!CommentaireTransporteur = Me!CommentaireTrans
rs.Update
rs.Close
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed