codice:
ApriRecordSet ("SELECT * FROM tbl_prodvend WHERE Rs_IdFattura = " & CDbl(intidfattsel))
Do While Not RS.EOF
intidprodotto = RS!Rs_IdProdotto
Set ZX = DB.OpenRecordset("SELECT * FROM tbl_prodotti WHERE Id_prodotto = " & intidprodotto)
If ZX!Rs_Codice <> "" Then
list_codice.AddItem ZX!Rs_Codice
End If
If ZX!Rs_Nome <> "" Then
list_descrizione.AddItem ZX!Rs_Nome
End If
If RS!Rs_Quantita <> "" Then
list_qnt.AddItem RS!Rs_Quantita
End If
If RS!Rs_PrezzoKg <> "" Then
list_prezzo.AddItem RS!Rs_PrezzoKg
End If
If RS!Rs_PrezzoKg <> "" And RS!Rs_Quantita <> "" Then
list_importo.AddItem CDbl(RS!Rs_PrezzoKg) * CDbl(RS!Rs_Quantita)
End If
RS.MoveNext
Loop
l'errore lo segnala sulla riga:
codice:
If ZX!Rs_Codice <> "" Then
Chi mi sa aiutare?