executerSQL necessite un argument consistant une instruction SQL

bonjour à tous
un petit souci dans ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Timer() Dim sql As String Dim Comptage As Integer sql = "SELECT Count(IndexCommune) AS CompteDeIndexCommune FROM InterventionCommune ;" DoCmd.RunSQL sql MsgBox (sql) 'Comptage = sql 'If Me.RecordsetClone.RecordCount < Comptage Then 'MsgBox "Nouvel enregistrement" 'End If End Sub

---

ça me dit : erreur d'execution 2342 une action executerSQL necessite un argument consistant une instruction SQL

Comprends pas l'instruction est bien là pourtant.

salut,
tu fais ici une requete de "selection simple",

Code:

---

CurrentDb.OpenRecordSet(SQL)

---

suffit amplement
RunSQL est utilisé pour manipuler des données (insert, update, select into, etc.)

Thanks JP ca ne beugue plus mais la msg box m'affiche le contentu (string) de la requete

oui,
pour avoir le résultat tu dois utiliser un RecordSet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_Timer() Dim RS as DAO.RecordSet Dim SQL as String   Dim Comptage As Integer SQL = "SELECT Count(IndexCommune) AS CompteDeIndexCommune FROM InterventionCommune ;" Set RS = CurrentDb.OpenRecordSet(SQL) MsgBox (RS!CompteDeIndexCommune) 'Comptage = sql 'If Me.RecordsetClone.RecordCount < Comptage Then 'MsgBox "Nouvel enregistrement" 'End If End Sub

---

effectivement ça marche mieux comme ça.
Mais pourquoi ai-je une incompatibilité de type avec comptage = sql puisque comptage est defini comme integer et que le resultat sql est un nombre ? là je ne pige pas.

attention, ne confonds pas code sql d'une requete, et résultat d'une requête.
tu as la question d'une part, la réponse de l'autre.

Euh... j'ai du mal a te suivre là ! en fait je veux faire une comparaison entre le nombre d'enregistrement de la table et le nombre d'enregistrement à l'affichage afin d'informer l'utilisateur qu'un nouvel enregistrement est entre par un autre utilisateur. Ca evite le rafraichissement auto initialement prevu, facile à mettre en place mais chiant à l'usage aux dires des utilisateurs.

Euh, là c'est moi qui ait du mal à te suivre. En fait, tu as plusieurs utilisateurs connectés à ton formulaire, et tu pouvoir prévenir l'utilisateur B que A a ajouté un enregistrement?

Absolument, t'a tout compris ! LOL
J'ai pensé à cette solution là, on peut sans doute faire un autre choix...

Salut,

Ok, et bien voila le code (c'est presque ce que tu as ^^):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Form_Timer() Dim RS as DAO.RecordSet Dim SQL as String   Dim comptage as integer SQL = "SELECT Count(IndexCommune) FROM InterventionCommune;" Set RS = CurrentDb.OpenRecordSet(SQL) 'RS contient à ce moment la le résultat de ta requête SQL, il te faut alors l'exploiter. Tu accède alors à chacun des champs par indice. Le premier attribut du select par RS(0), le second par RS(1)...Etc donc :   Comptage = RS(0) If Me.RecordsetClone.RecordCount < Comptage Then MsgBox "Nouvel enregistrement" End If End Sub

---

Yes ! ça fonctionne nickel. merci Talrashha ainsi quà JPCheck
sur l'idée en elle même, qu'est-ce que tu en penses ? verrais-tu une autre approche pour détecter un nouvel enregistrement ?

Salut,

Je crois que la seule chose qui est partagé dans une application Access est la base de données. Donc quoi qu'il en soit, tu dois utiliser un système de requête exécuté périodiquement (ou alors penser à une appli client-serveur, mais dans le cas présent c'est clairement hors de propos ^^).

Donc vu la tête du code, à moins que ta table soit vraiment composé d'une extrêmement grande quantité d'enregistrement, ta requête s'exécute déjà très vite ^^.

un peu plus de 20000 enregistrements actuellement, je vais garder le script tel quel et vérifier le bon fonctionnement en live. Je verrai plus tard pour limiter la requête sur la journée en cours.