[VBA/EXCEL] Non vi sono indici di chiamata con il nome specificato

[marcotrumpet]

Salve!
ho creato un programma per la visualizzazione, midifica, aggiunta e ricerca nei database.Non ho avuto problemi tranne nel ricercare nel database di Excel quindi .xls
Mi viene generato un errore di Run-Time 3015 che dice che non ci sono indici chiamata con il nome che ho specificato.
chiedo un vostro aiuto....grazie!!!!





SAPERE AUDE!!!!

[MdE2005]

Ciao marcotrumpet, specifica quando, come e che tipo (già fatto) di errore ti ritorna. E soprattutto a quale riga di codice ti compare..quindi se posti il codice della sub con l'errore troveremo il problema più velocemente..

Ah, quasi dimenticavo: il LINGUAGGIO di programmazione nel TITOLO!!!!


ciao

[alka]

Originariamente inviato da MdE2005
Ah, quasi dimenticavo: il LINGUAGGIO di programmazione nel TITOLO!!!!

Il titolo di questa discussione l'ho corretto io.

Segnalo anche la lettura del Regolamento per conoscere tutte le norme da seguire in modo da usare correttamente il forum, soprattutto quest'area.

Ciao!

[MdE2005]

Ciao Alka, scusa ma quando ho visto il post il titolo non era stato ancora modificato..

ciao

[marcotrumpet]

L'errore di Run-Time 3015 è generato alla pressione del tasto per la ricerca è non mi riconosce alcun indice della tabella!
L'errore mi seleziona la stringa
Data1.Recordset.Index = "(qui immetto un indice che non mi viene riconosciuto)"

[MdE2005]

Data1.Recordset.Index = "(qui immetto un indice che non mi viene riconosciuto)"

Magari l'hai scritto solo per far capire, comunque essendo un valore numerico non deve essere chiuso tra virgolette, altrimenti viene interpretato come una stringa..

ciao

[mgmg]

Originariamente inviato da marcotrumpet
L'errore di Run-Time 3015 è generato alla pressione del tasto per la ricerca è non mi riconosce alcun indice della tabella!
L'errore mi seleziona la stringa
Data1.Recordset.Index = "(qui immetto un indice che non mi viene riconosciuto)"

Suppono che tu stia programmando in DAO,devi impostare:

        Valore = "Abc"
        With Data1.Recordset
            .Index = "NomeCampoTabella"
            .Seek "=", Valore
            If .NoMatch Then 
              'valore non trovato
            Else
              'valore trovato
            End If
        End With

[marcotrumpet]

il codice che immetto alla pressione del CommandButton di VB è:

Dim DaCercare As String
DaCercare = InputBox$("Immettere i dati da ricercare:", "Ricerca nel registro")
If DaCercare <> "" Then
Data1.Recordset.Index = ""
Data1.Recordset.Seek "=", DaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
MsgBox "Dato non trovato.", vbInformation, Me.Caption
End If
End If

Nella riga di codice:
Data1.Recordset.Index
non so che valore posso immettere dato che non posso scrivere il nome del campo della tabella Excel perchè posso scrivere solo numeri.


OGNI VOSTRO AIUTO SARA NECESSARIO

[MdE2005]

perchè posso scrivere solo numeri

Perchè?!
Ciò che ti ha postato mgmg è corretto..

Postato da MarcoTrumpet
OGNI VOSTRO AIUTO SARA NECESSARIO

?!?!?!?!?!?!?!? :master:

ciao

[marcotrumpet]

ho provato a immettere il codice mandatomi da mgmg ma non funziona perchè non sto programmando in DAO e inserendo questo codice non posso neanche far partire il programma. aiutatemi vi prego. potrebbe essere un errore di digitazione del codice?

    
Dim TargaDaCercare As String
    TargaDaCercare = InputBox$("Immettere i dati da ricercare:", "Ricerca nel registro")
        If TargaDaCercare <> "" Then
        Data1.Recordset.Index = "10"
        Data1.Recordset.Seek "=", TargaDaCercare
        If Data1.Recordset.NoMatch Then
            Data1.Recordset.MoveFirst
            Data1.Refresh
            MsgBox "Dato non trovato.", vbInformation, Me.Caption
        End If
    End If

grazie comunque del vostro aiuto.