[VB6] errore "Oggetto non valido o non impostato"

[roby1483]

Salve a tutti, oggi mentre portavo avanti un programmetto mi sono imbattuto in questo spiacevole errore. Premetto che sul sito Microsoft ho trovato che la causa di questo errore è Microsoft Jet 4.0 e dicevano appunto di aggiornarlo alla versione Service Pack 6. L'ho aggiornato, adesso la versione della libreria che ho è la 4.0.8618.0 e quella del SP6 è 4.0.6807.0 quindi è ultra aggiornato ma il problema persiste.
Praticamente ho un form con un controllo DBCombo che prende le ragioni sociali dal DB. Al Change di questo DBCombo parte la sub associata che fa una query con il valore inserito nel DBCombo e se trova qualcosa riempie i campi del form. La cosa funziona perfettamente se scrivo da tastiera il valore nel DBCombo, ma se seleziono il valore cliccandoci, a seconda del valore selezionato, salta fuori l'errore in oggetto. L'errore lo da sul controllo data che accede al DB ma la cosa strana è che l'errore non salta fuori al primo riferimento al controllo data, ma dopo che ha già scorso buona parte le recordset. A questo, punto dirrete voi, starò tentando di fare riferimento a qualcosa che nel DB non c'è ma non è così perchè se io metto un break point in un qualsiasi punto della sub funziona tutto alla perfezione !
Chiedo aiuto a voi, sperando di essere riuscito a spiegarmi, perchè una cosa del genere non mi era mai accaduta e non so più cosa fare!

Grazie a tutti

[Argosoft]

anche io ci ho per una settimana

Non so se può funzionare anche per te, ma... il database chiudilo ALLA FINE dopo che hai fatto tutte le operazioni sul recordset

spero che sia d'aiuto

[roby1483]

Mi sono dimenticato di dirvi una cosa abbastanza importante, credo. I dati che il controllo data va a tirar fuori dal DB comprendono 3 campi con valore vero/falso e 3 campi di testo così che se il primo dei tre campi vero/falso è vero nel form viene inserito il valore del campo testo corrispondente. Detto questo il problema si presenta in un caso particolare, quando dopo aver selezionato un cliente che ha tutti e tre i campi vero/falso impostati su falso, vado a selezionare un cliente che ha almeno uno di questi tre campi impostato a vero. Nello specifico il problema si presenta non al momento del controllo se il campo è vero o falso, ma quando prendo dal controllo data il valore del campo associato a quello impostato a vero. La cosa strana è che quel valore sul DB c'è, come ho detto prima se metto un break point in un qualsiasi punto del codice funziona tutto.

[roby1483]

Originariamente inviato da Argosoft
anche io ci ho per una settimana

Non so se può funzionare anche per te, ma... il database chiudilo ALLA FINE dopo che hai fatto tutte le operazioni sul recordset

spero che sia d'aiuto

Non posso chiudere il DB perchè uso il controllo data, però chiudo il recordset così: nomeControlloData.Recordset.Close
Dici che mi conviene crearmi tutto da codice? Uso i controlli data perchè mi semplificano abbastanza la vita

[roby1483]

Ho provato anche a chiudere la connessione al DB tramite il controllo data ma fa uguale. Vi riporto il codice anche se è scritto alla mia maniera e magari non rispecchia le regole di buona stesura del codice

Private Sub dbcRagSoc_Change()
datControlloRagSoc.DatabaseName = App.Path & "\master.mdb"
datControlloRagSoc.RecordSource = "SELECT * FROM CLIENTI WHERE RAGIONE_SOCIALE='" & dbcRagSoc.Text & "' AND EFFETTIVO=true"
datControlloRagSoc.Refresh
txtCitta.Text = ""
txtCodFisc.Text = ""
txtEmail.Text = ""
txtFax.Text = ""
txtPiva.Text = ""
txtProvincia.Text = ""
txtReferente.Text = ""
txtTelefono.Text = ""
txtVia.Text = ""
txtWeb.Text = ""
txtCodice.Text = ""
txtnumcontratto.Text = ""
DTPicker1.Value = Date
chkOpz1.Value = 0
chkOpz2.Value = 0
chkOpz3.Value = 0
txtOpz1.Text = ""
txtOpz2.Text = ""
txtOpz3.Text = ""
optMensile.Value = False
optBimestrale.Value = False
optTrimestrale.Value = False
optSemestrale.Value = False
optLavoroEseguito.Value = False
cmbInizio.Text = "Inizio Fatturazione"
optRiba.Value = False
txtAbiriba.Text = ""
txtCabriba.Text = ""
optRid.Value = False
txtAbirid.Text = ""
txtCabrid.Text = ""
txtCcrid.Text = ""
txtCin.Text = ""
optDiretta.Value = False
lstCodici.ListItems.Clear
lstPrelievi.ListItems.Clear
chkModificato.Value = 0
abilitaModifica = False
indiceUnita = 0
unitaLegale = False
If datControlloRagSoc.Recordset.RecordCount = 0 Then
    'nessun riscontro
    txtCitta.Enabled = False
    txtCitta.BackColor = &H8000000F
    txtCodFisc.Enabled = False
    txtCodFisc.BackColor = &H8000000F
    txtEmail.Enabled = False
    txtEmail.BackColor = &H8000000F
    txtFax.Enabled = False
    txtFax.BackColor = &H8000000F
    txtPiva.Enabled = False
    txtPiva.BackColor = &H8000000F
    txtProvincia.Enabled = False
    txtProvincia.BackColor = &H8000000F
    txtReferente.Enabled = False
    txtReferente.BackColor = &H8000000F
    txtTelefono.Enabled = False
    txtTelefono.BackColor = &H8000000F
    txtVia.Enabled = False
    txtVia.BackColor = &H8000000F
    txtWeb.Enabled = False
    txtWeb.BackColor = &H8000000F
    txtCodice.Enabled = False
    txtCodice.BackColor = &H8000000F
    txtnumcontratto.Enabled = False
    txtnumcontratto.BackColor = &H8000000F
    DTPicker1.Enabled = False
    chkOpz1.Enabled = False
    chkOpz2.Enabled = False
    chkOpz3.Enabled = False
    txtOpz1.Enabled = False
    txtOpz1.BackColor = &H8000000F
    txtOpz2.Enabled = False
    txtOpz2.BackColor = &H8000000F
    txtOpz3.Enabled = False
    txtOpz3.BackColor = &H8000000F
    optMensile.Enabled = False
    optBimestrale.Enabled = False
    optTrimestrale.Enabled = False
    optSemestrale.Enabled = False
    optLavoroEseguito.Enabled = False
    cmbInizio.Enabled = False
    optRiba.Enabled = False
    txtAbiriba.Enabled = False
    txtAbiriba.BackColor = &H8000000F
    txtCabriba.Enabled = False
    txtCabriba.BackColor = &H8000000F
    optRid.Enabled = False
    txtAbirid.Enabled = False
    txtAbirid.BackColor = &H8000000F
    txtCabrid.Enabled = False
    txtCabrid.BackColor = &H8000000F
    txtCcrid.Enabled = False
    txtCcrid.BackColor = &H8000000F
    txtCin.Enabled = False
    txtCin.BackColor = &H8000000F
    optDiretta.Enabled = False
    cmdInserisciCodice.Enabled = False
    cmdInserisciPrelievo.Enabled = False
    cmdElimina.Enabled = False
Else
    'ho trovato un cliente potenziale corrispondente alla ragione sociale
    'devo caricare i dati dal DB
    txtCitta.Enabled = True
    txtCitta.BackColor = &H80000005
    txtCodFisc.Enabled = True
    txtCodFisc.BackColor = &H80000005
    txtEmail.Enabled = True
    txtEmail.BackColor = &H80000005
    txtFax.Enabled = True
    txtFax.BackColor = &H80000005
    txtPiva.Enabled = True
    txtPiva.BackColor = &H80000005
    txtProvincia.Enabled = True
    txtProvincia.BackColor = &H80000005
    txtReferente.Enabled = True
    txtReferente.BackColor = &H80000005
    txtTelefono.Enabled = True
    txtTelefono.BackColor = &H80000005
    txtVia.Enabled = True
    txtVia.BackColor = &H80000005
    txtWeb.Enabled = True
    txtWeb.BackColor = &H80000005
    txtCodice.Enabled = True
    txtCodice.BackColor = &H80000005
    txtnumcontratto.Enabled = True
    txtnumcontratto.BackColor = &H80000005
    DTPicker1.Enabled = True
    chkOpz1.Enabled = True
    chkOpz2.Enabled = True
    chkOpz3.Enabled = True
    optRiba.Enabled = True
    optRid.Enabled = True
    optDiretta.Enabled = True
    cmdInserisciCodice.Enabled = True
    cmdInserisciPrelievo.Enabled = True
    cmdElimina.Enabled = True
    'datControlloRagSoc.Recordset.MoveFirst
    'carico le informazioni del cliente
    With datControlloRagSoc
        If IsNull(.Recordset![CODICE_CLIENTE]) Then
            txtCodice.Text = ""
        Else
            txtCodice.Text = .Recordset![CODICE_CLIENTE]
        End If
        If IsNull(.Recordset![PARTITA_IVA]) Then
            txtPiva.Text = ""
        Else
            txtPiva.Text = .Recordset![PARTITA_IVA]
        End If
        If IsNull(.Recordset![COD_FISC]) Then
            txtCodFisc.Text = ""
        Else
            txtCodFisc.Text = .Recordset![COD_FISC]
        End If
        txtTelefono.Text = .Recordset![TELEFONO]
        If IsNull(.Recordset![FAX]) Then
            txtFax.Text = ""
        Else
            txtFax.Text = .Recordset![FAX]
        End If
        If IsNull(.Recordset![WEB]) Then
            txtWeb.Text = ""
        Else
            txtWeb.Text = .Recordset![WEB]
        End If
        If IsNull(.Recordset![E_MAIL]) Then
            txtEmail.Text = ""
        Else
            txtEmail.Text = .Recordset![E_MAIL]
        End If
        txtVia.Text = .Recordset![VIA]
        txtCitta.Text = .Recordset![CITTA]
        txtProvincia.Text = .Recordset![PROVINCIA]
        If IsNull(.Recordset![REFERENTE]) Then
            txtReferente.Text = ""
        Else
            txtReferente.Text = .Recordset![REFERENTE]
        End If
        txtnumcontratto.Text = .Recordset![NUMERO_CONTRATTO]
        DTPicker1.Value = .Recordset![DATA_CONTRATTO]
        If .Recordset![OPZIONE1] Then
            chkOpz1.Value = 1
            txtOpz1.Text = .Recordset![COSTO_OPZIONE1]         <- questi sono i punti in cui mi salta fuori l'errore
        End If
        If .Recordset![OPZIONE2] Then
            chkOpz2.Value = 1
            txtOpz2.Text = .Recordset![COSTO_OPZIONE2]         <- questi sono i punti in cui mi salta fuori l'errore
        End If
        If .Recordset![OPZIONE3] Then
            chkOpz3.Value = 1
            txtOpz3.Text = .Recordset![COSTO_OPZIONE3]         <- questi sono i punti in cui mi salta fuori l'errore
        End If
    End With
    'carico le unità locali del cliente
    Dim queryUnita, queryCodici As String
    queryUnita = "SELECT * FROM LUOGHI_RITIRO LR WHERE LR.ID_CLIENTE=" & datControlloRagSoc.Recordset![ID_CLIENTE]
    With datCercaUnitaCliente
        .RecordSource = queryUnita
        .Refresh
        If .Recordset.RecordCount <> 0 Then
            'se ci sono più luoghi di ritiro allora li mostro tutti nella lista
            .Recordset.MoveFirst
            Do While Not .Recordset.EOF
            lstPrelievi.ListItems.Add , , .Recordset![VIA_RITIRO]
            lstPrelievi.ListItems(lstPrelievi.ListItems.Count).SubItems(1) = .Recordset![CITTA_RITIRO]
            lstPrelievi.ListItems(lstPrelievi.ListItems.Count).SubItems(2) = .Recordset![PROVINCIA_RITIRO]
            If .Recordset![VIA_RITIRO] = txtVia.Text And .Recordset![CITTA_RITIRO] = txtCitta.Text And .Recordset![PROVINCIA_RITIRO] = txtProvincia.Text Then
                unitaLegale = True
                indiceUnita = lstPrelievi.ListItems.Count
            End If
            .Recordset.MoveNext
            Loop
        End If
    End With
    'carico i codici del cliente
    queryCodici = "SELECT C.ID_CODICE, C.CODICE_CER, CC.QUANTITA FROM CODICI_CLIENTE CC, CODICI C WHERE C.ID_CODICE=CC.ID_CODICE AND CC.ID_CLIENTE=" & datControlloRagSoc.Recordset![ID_CLIENTE]
    With datCercaCodCliente
        .RecordSource = queryCodici
        .Refresh
        .Recordset.MoveFirst
        Do While Not .Recordset.EOF
            lstCodici.ListItems.Add , , .Recordset![CODICE_CER]
            lstCodici.ListItems(lstCodici.ListItems.Count).Tag = .Recordset![ID_CODICE]
            lstCodici.ListItems(lstCodici.ListItems.Count).SubItems(1) = .Recordset![QUANTITA]
            .Recordset.MoveNext
        Loop
    End With
    chkModificato.Value = 0
    abilitaModifica = True
    datControlloRagSoc.Recordset.Close
    datControlloRagSoc.Database.Close
End If
End Sub

Quando mi vene fuori l'errore ed entro nel debug se mi posiziono sopra alla riga dell'errore con il mouse mi viene fuori ".Recordset![COSTO_OPZIONE3]=<oggetto non valido o non impostato>" ma la stessa cosa me la scrive su tutti i riferimenti al recordset.
Aiutatemi vi prego

[matpez]

Per intanto nn usare mai il controllo data, perchè è una merda, usa sempre i metodi manuali come da esempio!

E' un consiglio, ma te lo consiglio vivamente, anzi, stravivamente!!

ehehhehe

Dopo la pappa leggo tutta la pappardella

[matpez]

PS: sarebbe meglio che posti anche il database, altrimenti uno nn può fare le prove

[roby1483]

Ho risolto!
Il problema stava (non chiedetemi il perchè) nel DBCombo, l'ho sostituito con una ComboBox e funziona tutto perfettamente!
Ho tolto il controllo data ma con la DBCombo il problema persisteva anche se in maniera diversa.

Grazie per i consigli

[roby1483]

Cmq se vuoi fare delle prove il DB te lo allego