Discussion :

[Invité]

bonjour à tous
un petit souci dans ce code :

Code :

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

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.

[Jean-Philippe André]

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

Code :

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

CurrentDb.OpenRecordSet(SQL)

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

[Invité]

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

[Jean-Philippe André]

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

Code :

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

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

[Invité]

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.

[Jean-Philippe André]

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.