je me connect bien à ma base sous access mais quand je veux me connecter à
une table de la base j'ai le message "erreur d'execution 2147217900
instruction sql 'delet','insert','select' ou 'update' attendu.
mon code est:
Private Sub Form_Load()
'On Error GoTo ErrorRecup
'ConnectDB
Set Rs = SetRecordset("Articles")
Rs.MoveFirst
With Rs
Text1 = !articles
End With
End Sub
pour la connection j'utilise un module.
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Thierry
Elle fait quoi ta fonction SetRecordset ?
"Abdoul" a écrit dans le message de news:
Bonjour
je me connect bien à ma base sous access mais quand je veux me connecter à une table de la base j'ai le message "erreur d'execution 2147217900 instruction sql 'delet','insert','select' ou 'update' attendu. mon code est: Private Sub Form_Load() 'On Error GoTo ErrorRecup 'ConnectDB Set Rs = SetRecordset("Articles") Rs.MoveFirst With Rs Text1 = !articles End With
End Sub pour la connection j'utilise un module. merci
Elle fait quoi ta fonction SetRecordset ?
"Abdoul" <Abdoul@discussions.microsoft.com> a écrit dans le message de news:
008CC944-A715-4BED-9329-0DA3D994B287@microsoft.com...
Bonjour
je me connect bien à ma base sous access mais quand je veux me connecter à
une table de la base j'ai le message "erreur d'execution 2147217900
instruction sql 'delet','insert','select' ou 'update' attendu.
mon code est:
Private Sub Form_Load()
'On Error GoTo ErrorRecup
'ConnectDB
Set Rs = SetRecordset("Articles")
Rs.MoveFirst
With Rs
Text1 = !articles
End With
End Sub
pour la connection j'utilise un module.
merci
je me connect bien à ma base sous access mais quand je veux me connecter à une table de la base j'ai le message "erreur d'execution 2147217900 instruction sql 'delet','insert','select' ou 'update' attendu. mon code est: Private Sub Form_Load() 'On Error GoTo ErrorRecup 'ConnectDB Set Rs = SetRecordset("Articles") Rs.MoveFirst With Rs Text1 = !articles End With
End Sub pour la connection j'utilise un module. merci
