Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it L'avatar di jet
    Registrato dal
    Dec 2002
    residenza
    Chieti
    Messaggi
    869

    count da inserire in una casella di testo

    codice:
    strSql2 = "SELECT servizi.servizio, Count(clientiInSalone.ID) AS ConteggiodiID4 " _
    & "FROM clientiInSalone INNER JOIN servizi ON (clientiInSalone.prodotto6 = servizi.servizio) OR (clientiInSalone.prodotto2 = servizi.servizio) OR (clientiInSalone.prodotto1 = servizi.servizio) OR (clientiInSalone.prodotto4 = servizi.servizio) OR (clientiInSalone.prodotto4 = servizi.servizio) OR (clientiInSalone.prodotto5 = servizi.servizio) OR (clientiInSalone.prodotto3 = servizi.servizio) " _
    & "WHERE (((clientiInSalone.data_cliente) >= #" & stringDate1 & "# AND (clientiInSalone.data_cliente) <= #" & stringDate2 & "#)) " _
    & "GROUP BY servizi.servizio " _
    & "ORDER BY servizi.servizio ;"
    
    
    Me.RecordSource = (strSql2)
    
    
    '& "UNION " _
    '& "SELECT NULL&""TOTALE PRESENZE"", NULL, Count(clientiInSalone.ID) AS ConteggiodiID21 " _
    '& "From clientiInSalone " _
    '& "WHERE (((clientiInSalone.data_cliente) >= #" & stringDate1 & "# AND (clientiInSalone.data_cliente) <= #" & stringDate2 & "#)) ;"
    la query funziona perchè visualizza l'elenco dei servizi con i relativi numeri. come vedete ho peovato a unire le query per il ConteggiodiID21 da salvare nella casella di testo, ma non funziona, perchè recupera il primo count della prima query e non il totale delle presenze che mi serrve.

  2. #2
    Utente di HTML.it L'avatar di jet
    Registrato dal
    Dec 2002
    residenza
    Chieti
    Messaggi
    869
    Se inserisco due caselle di testo nella maschera che aggiorno con data_iniziale e data_finale dopo l’onclick e poi su “dopo aggiornamento della casella di testo” dove devo recuperare le presenze nel range, faccio semplicemente la select COUNT e nel range data prendo i dati delle due caselle del form, credo che possa funzionare, magari col setfocus.

  3. #3
    anche se fai union, ti riporta due count ConteggiodiID4 e ConteggiodiID21


    vedi se questo ti aiuta
    https://lnx.dicesare.com/sql/sql-come-aggregare-risultati-diversi-in-una-unica-riga-di-risultati/

  4. #4
    Utente di HTML.it L'avatar di jet
    Registrato dal
    Dec 2002
    residenza
    Chieti
    Messaggi
    869
    Grazie per il consiglio. Comunque con la UNION il totale il conteggiodiid21 va nell’elenco dei servizi. Proverò la mia soluzione oppure il tuo consiglio

  5. #5
    Utente di HTML.it L'avatar di jet
    Registrato dal
    Dec 2002
    residenza
    Chieti
    Messaggi
    869
    Grazie per il consiglio. Comunque con la UNION il totale il conteggiodiid21 va nell’elenco dei servizi. Proverò la mia soluzione oppure il tuo consiglio

  6. #6
    Utente di HTML.it L'avatar di jet
    Registrato dal
    Dec 2002
    residenza
    Chieti
    Messaggi
    869
    Ho risolto in questo modo
    codice:
    Private Sub Form_Current()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    stringDate1 = Format(Me!data_iniziale, "mm/dd/yyyy")
    stringDate2 = Format(Me!data_finale, "mm/dd/yyyy")
    If Not IsNull(Me!data_iniziale) And Not IsNull(Me!data_finale) Then
    
    Set db = CurrentDb
    strSQL = "SELECT Count(clientiinsalone.id) AS conteggiodiID21 FROM clientiinsalone WHERE (((clientiInSalone.data_cliente) >= #" & stringDate1 & "# AND (clientiInSalone.data_cliente) <= #" & stringDate2 & "#))"
    
    Set rs = db.OpenRecordset(strSQL)
    
    If Not rs.EOF Then
        Me.ConteggioPresenze = rs!ConteggiodiID21
    Else
        Me.ConteggioPresenze = Null
    End If
    
    rs.Close
    
    Set rs = Nothing
    
    Set db = Nothing
    End If
    End Sub
    
    Ultima modifica di jet; 12-04-2026 a 11:41

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.