Discussion :

[mnssylvain]

hello

avec ce code access me renvoie une erreur d'execution 3075 qui est apparement un pb de syntaxe.
Si quelqu'un vois ce qui ne va pas....

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
 
Private Sub Modifiable41_AfterUpdate()
 
 
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom] = '" & Me![Modifiable41] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
    Dim refelev As String
 
    refelev = Me.refeleves
 
    Forms![Elevegeneralt]![Elevesalpha sous-formulaire1].Form.RecordSource = "SELECT * from elevesalpha where [refeleves]= '" & Me.refeleves & "'"""
 
End Sub

le but c'est apres la mise a jour de ma liste modifiable c'est de selectionner uniquement l'enregistrement choisi...

Merci

[nicou50]

où est ce que ça plante dans ton code ? Lors du Debug, quelle ligne est surlignée en jaune ?
Merci pour les infos supplémentaires

[mnssylvain]

précisions:
ca plante sur cette ligne de code

Code :

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

Forms![Elevegeneralt]![Elevesalpha sous-formulaire1].Form.RecordSource = "SELECT * from elevesalpha where [refeleves]= '" & Me.refeleves & "'"""

je pense que c'est un problème au niveau de where.....
merci

[catoucat]

Et si tu essayes ca ca donne quoi?

Code :

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

   Forms![Elevegeneralt]![Elevesalpha sous-formulaire1].Form.RecordSource = "SELECT * from elevesalpha where [refeleves]= '" & Me.refeleves & "';"

et refeleves c'est de type texte?

[pc75]

Bonjour,

Dis nous ce que te renvoie cette ligne ?

Code :

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

1
2
 
MsgBox "SELECT * from elevesalpha where [refeleves]= '" & Me.refeleves & "'"""

[mnssylvain]

pour catoucat:
ca me donne une erreur : action annulé

pour pc 75

ta ligne me renvoie ce message

Code :

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

select * from elevesalpha where [refeleves]='48'"

c'est justement sur cette valeur que la selection doit se faire

ca marche pas encore mais je sens que c'est pas loin
merci les gars pour votre aide

[catoucat]

Enleve les simple quotes autour de " & Me.refeleves & " car avec les simple quotes il va l'interpreter comme du texte

[mnssylvain]

les gars vous etes trop fort...... ça marche niquel

[catoucat]

Je suis une fille