Salve ragazzi ho un problemino con un listview.Da un filtro di date prelevo da una tabella dei record e li visualizzo in una listview.Quando però incontro un campo vuoto la list view mi rilascia l' errore "Utilizzo non valido di Null.Come posso fare per visualizzare ugualmente i campi vuoti che sono nella tabella senza ottenere questo errore?Grazie.Questo è il codice che ho usato.
Private Sub XPButton1_Click()
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Storico where [O_F]= '" & XPCombo1.Text & "'"
Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set rs = DB.OpenRecordset(sQL)
If rs.RecordCount = 0 Then
MsgBox "Nessuna Chiamata trovata per questo Organismo Funzionale!", vbExclamation, "ATTENZIONE"
End If
Do Until rs.EOF
Set itmX = ListView1.ListItems.Add()
With rs
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("DataApertura")
itmX.SubItems(2) = .Fields("O_F")
itmX.SubItems(3) = .Fields("Piano")
itmX.SubItems(4) = .Fields("Stanza")
itmX.SubItems(5) = .Fields("Call_Center")
itmX.SubItems(6) = .Fields("Operatore_SIT")
itmX.SubItems(7) = .Fields("Motivo segnalazione")
itmX.SubItems(8) = .Fields("DataChiusura")
rs.MoveNext
End With
Loop
End Sub
il campo interessato è itmX.SubItems(7) = .Fields("Motivo segnalazione").Ciao
Rispondi quotando
