Code VB modification enregistrement

**missd12** · 28/05/2008, 08h54

Bonjour,

Je travaille sous Access 2003, j'ai un formulaire qui me liste les Télephones qu'un employé posséde (ma table téléphone contient comme clé étrangére le n° de l'employé) et je veux que l'utilisateur puisse affecter un nouveau téléphonne à l'employé, pour cela j'ai créer un nouveau formulaire ou je demande le matricule et le N° de Téléphone( En faite l'utilisateur ne dois choisir que le N° de Télephone dans une liste déroulante, le matricule est est automatiquement inscrite) j'ai donc taper le code ci dessous pour réaliser la modification dans la table Téléphone:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set db = CurrentDb
strSQL = " Select * from Tel where Tel = ' " & Me!Liste8.Value & " ' "
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
While Not rs.EOF
rs.Edit
rs!Matricule = Me!Matricule
rs.Update
rs.MoveNext
Wend
rs.Close
db.Close
End Sub

Je probléme viens lorsque j'exécute le formulaire un message me disant "aucun enregistrement en cours" apparait. j'ai pourtant tester ma requête et elle fonctionnne, je suis donc un peu perdu par rapport à ce probléme alors si quelqu'un à une idée...

**stigma** · 28/05/2008, 09h34

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQL = "Select * from Tel where Tel = " & Me!Liste8 & "

**missd12** · 28/05/2008, 09h44

Merci de ton aide, mais ça marche toujours pas, cela dit il m'affiche une autre erreur: "Trop de paramétre. 1 attendu" en me disant que l'erreur porte sur la ligne;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set rs = db.OpenRecordset(strSQL)

**stigma** · 28/05/2008, 09h47

et ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = db.OpenRecordset("Select * from Tel where Tel = " & Me!Liste8 & "")

ou Me!Liste8.value, je ne connais pas la source de ta liste.
A condition que les valeurs de ta liste soient numériques, sinon il faudrait mettre & chr(34) & (si c'est un string)

**missd12** · 28/05/2008, 09h50

ça change pas j'ai tpujours le message trop peu de paramétre,
Liste8 est un menu déroulant texte

**stigma** · 28/05/2008, 09h56

Si c'est du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = db.OpenRecordset("Select * from Tel where Tel = " & chr(34) & Me!Liste8 & chr(34) & "")

Si ça ne marche pas, remplace Me!Liste8 par Me!Liste8.value

**missd12** · 28/05/2008, 11h54

ça marche tooujours pas même avec le Value, j'ai encore le message terop peu de paramétre.1 attendu
Je me suis peu être trompé dans le code peux tu regarder STP s'il ya une erreur, j'ai pas pu mettre les chr(34) il m'indiquer une erreur de syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from Tel where Tel = " & Me!Liste8.Value)
rs.MoveFirst
While Not rs.EOF
rs.Edit
rs!Matricule = Me!Matricule
rs.Update
rs.MoveNext
Wend
rs.Close
db.Close
End Sub

**stigma** · 28/05/2008, 11h57

Je te mets en exemple un code pour définir la source d'une liste modifiable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    cbo_Caisse.RowSource = "SELECT CaisseNumCaisse,CaisseDateLivraison FROM A_Caisses " _
    & "WHERE CaisseFournisseur = " & Chr(34) & cbo_Fournisseur & Chr(34) & "" _
    & " ORDER  BY CaisseNumCaisse"

**missd12** · 28/05/2008, 14h26

ok merci c'est plus claire les chr sont passées mais j'ai toujours le message d'erreur trop peu de paramétre je me demande si cela ne vient pas du fait que certaine de mes champs sont vide?