Discussion :

[charleshbo]

j'essaie d'aller chercher un enregistrement dans une requête avec un union comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
'Vérification que la loi ou le règlement existe toujours.
Dim rstExi As Recordset
Set rstExi = BD.OpenRecordset("rqtLoiRegle", dbOpenDynaset)
rstExi.FindFirst ("[NomLoi] = '" & nom & "'")
'S'il existe on poursuit.
If Not rstExi.NoMatch Then
    'On trouve l'enregistrement dans la table des lois pour commencer.
    Dim rst As Recordset

Lorsqu'il arrive sur le FindFirst, c'est la qu'il plante et me donne le message suivant :



Quelqu'un pourrait-il m'indiquer qu'est-ce que je ne fais pas de correct? Si vous avez besoin de plus d'infos, n'hésitez pas à le demander. Merci.

[Keuf95]

Je ne sais pas si cela peut t'aider mais j'ai du code qui ressemble au tien et quand j'utilise FindFirst avec un "recordset" ça ne fonctionne pas je suis obligé d'utiliser "objet" pour que cela fonctionne.

Code :

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

1
2
3
4
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.Findfirst "[NumPoste] = " & Str(Me![lst_RechercheAgent])
    Me.Bookmark = rs.Bookmark

[charleshbo]

ceci est un message a supprimé, il y a eu une erreur lors de l'ajout de mon message.

[charleshbo]

J'ai une autre erreur du genre avec un requête :



Voici ma requête au complet :

Code :

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

1
2
3
4
 
 
"delete * from tblLoisEtReglementsAspectImpact Where NomLoi='" & Me.lstLoisEtRegles.Value & "' 
And NoAspectImpact=" & Me.txtNumero.Value

Je ne comprends vraiment pas d'ou cette erreur peut provenir!!! Quelqu'un peut-il m'éclairer?

[Alexandre Sahli]

je pense qu'il faut mettre des () donc essaye ceci

"delete * from tblLoisEtReglementsAspectImpact Where ((( NomLoi)='" & Me![lstLoisEtRegles] & "') And ((NoAspectImpact)=" & Me![txtNumero]& "))"

A+

[charleshbo]

Il s'agissait d'un problème d'apostrophe. Merci de votre aide. Un replace suffisait.