+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

Access 2010. Su report eliminare campo, se nullo

  1. #1
    peppe111 non è in linea Novello
    Ho un database che raccoglie i dati di corsi di formazione.
    Il report é basato su una query di selezione che dà, per ciascun partecipante, qualche dato del corso, comprese le date delle giornate in cui questo si é svolto (i corsi possono essere svolti in più giornate) e le ore di lezione di ciascuna giornata.
    Per ogni corso, la prima riga del report raccoglie tutti i dati del corso, la data e le ore della prima giornata, la seconda riga, la data e le ore della seconda giornata, la terza riga la data e le ore della terza giornata, e così via.
    Ovviamente, se il corso é composto da una sola giornata, vorrei che in automatico venissero cancellate le righe inutili (che ho fissato in un massimo di cinque).
    Per fare ciò, ho pensato di eliminare i campi vuoti (cioè quelli dove avrei dovuto scrivere la data e le ore delle giornate successive, se fossero state svolte) ponendo:
    1) altezza della casella di testo a zero;
    2) casella di testo espandibile e riducibile.
    Ma non funziona.

    Nel web ho trovato una soluzione con VBA e quindi ho rimesso:
    1) altezza 0,5 cm;
    2) non espandibile e no riducibile
    3) inserito questo codice:

    Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)

    If Len(AA) > 0 Then
    AA.Visible = True
    Else
    AA.Visible = False
    End If

    If Len(AB) > 0 Then
    AB.Visible = True
    Else
    AB.Visible = False
    End If

    If Len(AC) > 0 Then
    AC.Visible = True
    Else
    AC.Visible = False
    End If

    If Len(AD) > 0 Then
    AD.Visible = True
    Else
    AD.Visible = False
    End If

    If Len(AE) > 0 Then
    AE.Visible = True
    Else
    AE.Visible = False
    End If

    If Len(AF) > 0 Then
    AF.Visible = True
    Else
    AF.Visible = False
    End If
    End Sub


    dove [AA] il campo che riporto nel report.

    Ma non funziona! Cioé il campo è vuoto, ma il report non si riduce.
    Ringrazio chi può dirmi dove sbaglio.
    Cordiali saluti.

    Padova111

  2. #2
    L'avatar di Max.Riservo
    Max.Riservo non è in linea Scribacchino
    Benvenuto da queste parti ..... per il futuro impara ad inserire il codice dentro l' apposito tag (usa editor in modalità avanzata e utilizza il simbolo #)

    If Len(AA) > 0 Then
    AA.Visible = True
    Else
    AA.Visible = False
    End If
    
    diventa :
    If Len(nz(AA,"")) > 0 Then
         AA.Visible = True
    Else
         AA.Visible = False
    End If
    

  3. #3
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Io scriverei una cosa molto semplice...
    Me!AA.Visible=Len(Me!AA.Value & vbNullstring)>0
    Me!AB.Visible=Len(Me!AB.Value & vbNullstring)>0
    ....
    Me!AF.Visible=Len(Me!AF.Value & vbNullstring)>0
    
    ℹ️ Leggi di più su @Alex ...

  4. #4
    peppe111 non è in linea Novello
    Ringrazio per i messaggi; se non sbaglio, il problema sembrerebbe collegato alla presenza di campi nulli (mi sto chiedendo che succederebbe se, anziché nulli fossero zero ...)
    Studio, provo e verifico.
    Grazie ancora e cordiali saluti.
    Peppe

  5. #5
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Con il mio suggerimento contempli anche i campi a ZeroLenght che corrisponde a vbNullstring, infatti se vedi vado a Forzare il CASTING del dato eventuale NULL concatenandolo con un vbNullstring e controllandone il LEN(...).
    ℹ️ Leggi di più su @Alex ...

  6. #6
    peppe111 non è in linea Novello
    Andato tutto a posto!
    Grazie ad entrambi.
    Peppe

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Campo con valore Nullo
    Da Adis nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 12-03-2017, 13:03
  2. Ricerca di campo nullo o campo SI/NO
    Da Jocman nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 11-01-2017, 21:32
  3. Immettere campo non nullo
    Da dessert nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 05-03-2014, 11:30
  4. [Access]Campo data nullo
    Da Vanessa nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 16-05-2006, 16:48
  5. Fiter campo nullo
    Da SlowMarco nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 07-10-2005, 14:57