[Résolu][Base]Codage d'une requête Count

[GMHB]

Bonjour,
J'ai besoin de savoir si une base contient des enregistrements. Pour cela j'ai pensé à utiliser la fonction "COUNT" dans une macro.
La macro incluse dans la petite base-test jointe coince à la ligne 9. Sans doute un problème de guillemets. J'ai fait mille changements pour améliorer cette ligne de code... mais rien n'y fait. Je suis sur les genoux !!!
Du coup, je ne sais pas si ma macro est bien codée.
Je vous remercie si vous parvenez à vaincre cette entêtée ligne 9.

[jeanmimi]

Bonjour,
Si tu fais une requête pour compter, elle devrait commencer par l'instruction SQL SELECT, de cette façon :

Code : Tout sélectionner

SELECT COUNT( "contenu" ) FROM "T_table1"

Le code final, en prenant celui que tu as rédigé, pourrait ressembler à :

Code : Tout sélectionner

REM  *****  BASIC  *****
Sub monCount
Dim maRequete As Object, strSQL As String, maConnexion As Object, monResultat as Object
Dim iNombre As Integer
	maConnexion = ThisDatabaseDocument.CurrentController.ActiveConnection
	strSQL ="SELECT COUNT( ""contenu"" ) FROM ""T_table1"""
	maRequete = maConnexion.createStatement()
	monResultat = maRequete.executeQuery(strSQL)
	if monResultat.next then
		monResultat = maRequete.executeQuery(strSQL)
		monResultat.next
		iNombre = monResultat.Columns.getByName("contenu").String
		msgBox (iNombre & " enregistrements")
	else
		msgbox ("Table vide")
	end if
maConnexion.close
maConnexion.dispose
End Sub

Je n'ai pas vu le contrôle, ou la Boite de dialogue, qui doit afficher le résultat sur le formulaire.

Ce tutoriel explique comment construire la Macro :
https://beaussier.com/sections/viewtopic.php?f=8&t=1577

[GMHB]

Merci à vous.
Je me bagarrais avec les guillemets alors que l'erreur était ailleurs ! Pas étonnant que j'ai lutté pendant des heures !
La macro devrait afficher le nombre d'enregistrements de la table à la ligne msgBox (iNombre & " enregistrements")
J'ai modifié ainsi :

Code : Tout sélectionner

Sub monCount
Dim maRequete As Object, strSQL As String, maConnexion As Object, monResultat as Object
Dim iNombre As Integer
	maConnexion = ThisDatabaseDocument.CurrentController.ActiveConnection
	strSQL ="SELECT COUNT( ""contenu"" ) FROM ""T_table1"""
	maRequete = maConnexion.createStatement()
	monResultat = maRequete.executeQuery(strSQL)
	if monResultat.next then
		msgBox ("La table contient des enregistrements")
	else
		msgbox ("Table vide")
	end if
maConnexion.close
maConnexion.dispose
End Sub

Mais je n'obtiens pas le nombre d'enregistrements présents dans la table comme souhaité.

[jeanmimi]

Mais je n'obtiens pas le nombre d'enregistrements présents dans la table comme souhaité.

Pourtant, c'est ton code, avec seulement le SELECT en début de la requête.
Ceci étant dit, tu peux avoir le résultat de la requête, sans Macro, en affichant son résultat dans un champ du formulaire.

[GMHB]

Je ne connais pas le code permettant de récupérer le nombre d'enregistrements de la table que la ligne SELECT COUNT est censée fournir.

[jeanmimi]

Je ne connais pas le code permettant de récupérer le nombre d'enregistrements de la table que la ligne SELECT COUNT est censée fournir.

Tu crées la requête et tu insères son résultat dans un contrôle du formulaire.

[GMHB]

Le problème c'est que j'ai besoin du nombre d'enregistrements pour une condition qui suivra dans la même macro.

[jeanmimi]

Le problème, c'est que j'ai besoin du nombre d'enregistrements pour une condition qui suivra dans la même macro.

Tu peux marquer ce fil comme Résolu, et tu en crées un autre avec cette nouvelle condition.

[GMHB]

Merci à vous et bonne nuit.

[GMHB]

Je ne trouve pas de macro liée au champ affiché dans le formulaire FORM_REQ_COUNT. Comment faites-vous cela ?