bonjour

je souhaite teste une requete si elle est vide mais sa ne marche pas quel est le probleme??

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Dim rs As DAO.Recordset
Dim strSql As String, blnRequeteVide As Boolean
strSql = "SELECT ENTREPRISE_AVENANT.DATE_AVENANT, ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS, ENTREPRISE_SOLLICITE.NUM_ENTREPRISE, ENTREPRISE_SOLLICITE.NUM_AO, ENTREPRISE_SOLLICITE.NUM_OPERATION, OPERATION.NOM_OPERATION, OPERATION.ADRESSE_OPERATION, OPERATION.ADRESSEBIS_OPERATION, OPERATION.VILLE_OPERATION, OPERATION.CP_OPERATION, OPERATION.PROGRAMME, [POUC_TVA]*100 AS POUC_TVA1, SOCIETE.VILLE3D, ESTIM_OPE.NUM_LOT, ENTREPRISE_SOLLICITE.DEVIS_RETENUE, ENTREPRISE.NOM_ENTREPRISE, IIf([SIEGE_SOCIAL]=Yes,[SSADRESSE_ENTREPRISE],[ADRESSE_ENTREPRISE]) AS adresse, IIf([SIEGE_SOCIAL]=Yes,[SSADRESSEBIS_ENTREPRISE],[ADRESSEBIS_ENTREPRISE]) AS ADRESSEBIS, IIf([SIEGE_SOCIAL]=Yes," & _
" [SSVILLE_ENTREPRISE],[VILLE_ENTREPRISE]) AS VILLE, IIf([SIEGE_SOCIAL]=Yes,[SSCP_ENTREPRISE],[CP_ENTREPRISE]) AS CP, ENTREPRISE.RCS, ENTREPRISE.RCS_VILLE, ENTREPRISE_CONTACT.NOM_ENTRE_CONTACT, INTERVENANT_EXT_CONTACT.NOM_INTERVENANT_CONTACT, CORPS_ETATS.NOM_CORPS_ETATS, ENTREPRISE_SOLLICITE.MONTANT_MARCHE, Round([MONTANT_MARCHE]*[POUC_TVA],2) AS MONTANT_TVA, [MONTANT_MARCHE]+[MONTANT_TVA] AS MONTANT_MARCHETTC, ENTREPRISE_SOLLICITE.NBJOURSPAIEMENT, ENTREPRISE_SOLLICITE.DATE_PAIEMENT, ENTREPRISE_SOLLICITE.SPECIALE_PAIEMENT, ENTREPRISE_SOLLICITE.POURC_SPE_COMMANDE, ENTREPRISE_SOLLICITE.POURC_SPE_LIVRAI_MAT, ENTREPRISE_SOLLICITE.POURC_SPE_POSE, ENTREPRISE_SOLLICITE.POURC_SPE_LIVRAISON, OPERATION.NB_LOGE, INTERVENANT_EXT.NOM_INTERVENANT_EXT, INTERVENANT_EXT.VILLE_INTERVENANT_EXT" & _
" FROM SOCIETE INNER JOIN (((INTERVENANT_EXT_CONTACT INNER JOIN (OPERATION INNER JOIN INTERVENANT_EXT_CONTACT_OPE ON (OPERATION.NUM_OPERATION = INTERVENANT_EXT_CONTACT_OPE.NUM_OPERATION) AND (OPERATION.NUM_INTERV_PROMOTEUR = INTERVENANT_EXT_CONTACT_OPE.NUM_INTERVENANT_EXT)) ON (INTERVENANT_EXT_CONTACT.NUM_INTERVENANT_CONTACT = INTERVENANT_EXT_CONTACT_OPE.NUM_INTERVENANT_CONTACT) AND (INTERVENANT_EXT_CONTACT.NUM_INTERVENANT_EXT = INTERVENANT_EXT_CONTACT_OPE.NUM_INTERVENANT_EXT))" & _
" INNER JOIN ((CORPS_ETATS INNER JOIN ESTIM_OPE ON CORPS_ETATS.NUM_CORPS_ETATS = ESTIM_OPE.NUM_CORPS_ETATS) INNER JOIN ((ENTREPRISE_CONTACT INNER JOIN ((ENTREPRISE INNER JOIN ENTREPRISE_SOLLICITE ON ENTREPRISE.NUM_ENTREPRISE = ENTREPRISE_SOLLICITE.NUM_ENTREPRISE) INNER JOIN ENTREPRISE_CONTACT_OPE ON (ENTREPRISE_SOLLICITE.NUM_ENTREPRISE = ENTREPRISE_CONTACT_OPE.NUM_ENTREPRISE) AND (ENTREPRISE_SOLLICITE.NUM_OPERATION = ENTREPRISE_CONTACT_OPE.NUM_OPERATION)) ON (ENTREPRISE_CONTACT.NUM_ENTRE_CONTACT = ENTREPRISE_CONTACT_OPE.NUM_ENTRE_CONTACT)" & _
" AND (ENTREPRISE_CONTACT.NUM_ENTREPRISE = ENTREPRISE_CONTACT_OPE.NUM_ENTREPRISE)) INNER JOIN ENTREPRISE_AVENANT ON (ENTREPRISE_SOLLICITE.NUM_AO = ENTREPRISE_AVENANT.NUM_AO) AND (ENTREPRISE_SOLLICITE.NUM_OPERATION = ENTREPRISE_AVENANT.NUM_OPERATION) AND (ENTREPRISE_SOLLICITE.NUM_ENTREPRISE = ENTREPRISE_AVENANT.NUM_ENTREPRISE) AND (ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS = ENTREPRISE_AVENANT.NUM_CORPS_ETATS)) ON (ESTIM_OPE.NUM_CORPS_ETATS = ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS) AND (ESTIM_OPE.NUM_OPERATION = ENTREPRISE_SOLLICITE.NUM_OPERATION))" & _
" ON OPERATION.NUM_OPERATION = ESTIM_OPE.NUM_OPERATION) INNER JOIN (INTERVENANT_EXT_OPE INNER JOIN INTERVENANT_EXT ON INTERVENANT_EXT_OPE.NUM_INTERVENANT_EXT = INTERVENANT_EXT.NUM_INTERVENANT_EXT) ON OPERATION.NUM_OPERATION = INTERVENANT_EXT_OPE.NUM_OPERATION) ON SOCIETE.NUM_SOCIETE_3D = OPERATION.NUM_SOCIETE_3D" & _
" WHERE (((ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS)=[Forms]![Fiche Marché]![NUM_CORPS_ETATS]) AND ((ENTREPRISE_SOLLICITE.NUM_ENTREPRISE)=[Forms]![Fiche Marché]![NUM_ENTREPRISE]) AND ((ENTREPRISE_SOLLICITE.NUM_AO)=[Forms]![Fiche Marché]![NUM_AO]) AND ((ENTREPRISE_SOLLICITE.NUM_OPERATION)=[Forms]![Fiche Marché]![NUM_OPERATION]) AND ((ENTREPRISE_SOLLICITE.DEVIS_RETENUE)=Yes) AND ((ENTREPRISE_AVENANT.NUM_AVENANT)=1) AND ((ENTREPRISE_AVENANT.TYPE)='os') AND ((ENTREPRISE_CONTACT.SIGNATURE_MARCHER)=Yes) AND ((INTERVENANT_EXT_CONTACT.SIGNATURE_MARCHERMO)=Yes) AND ((INTERVENANT_EXT_OPE.NUM_CORPS_ETATS)=7));"
Set rs = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
blnRequeteVide = False
If rs.EOF Then blnRequeteVide = True
rs.Close
 
 If blnRequeteVide = True Then
    MsgBox "Merci de renseigné pour l'entreprise ou le promoteur une personne signature de AO"
Else
.........