Problema con tutorial "realizziamo un'agenda elettronica"

[Francesco_76]

Ciao a tutti
Ho un problema con il tutorial "Programmazione pratica: realizziamo un'agenda elettronica"



Quando clicco su "Trova" e provo a fare una ricerca mi dà "Errore di run-time '3015'" 'Nome' non è un0indice di questa tabella....
e se premo su "degug" mi evidenzia in giallo questo:

Database.Recordset.Index = "Nome"

Il problema e che "Nome" è un'indice di quella tabella anche perchè se invece di cliccare su trova clicco su "Aggiungi" funziona tutto

come posso fare??

Grazie mille

[Francesco_76]

up

[verodami]

Originariamente inviato da Francesco_76
up

Questa è la funxione "Tova" che ho fatto per la mia agenda elettronica: spero possa esserti utile ciao

'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "Nome"
Data1.Recordset.Seek "=", NomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If

[Francesco_76]

Grazie mille

Mi da errore 91

"Variabile oggeto o Variabile del blocco With non impostata"

e mi evidenzia questa riga

Data1.Recordset.Index = "Nome"

perche se il codice è identico al tuo??

[verodami]

Originariamente inviato da Francesco_76
Grazie mille

Mi da errore 91

"Variabile oggeto o Variabile del blocco With non impostata"

e mi evidenzia questa riga

Data1.Recordset.Index = "Nome"

perche se il codice è identico al tuo??

Perchè "Data1" tu non ce l'hai ..devi mettere il nome ..del tuo campo ..., immagino che questa agenda abbia una tebella di riferimento all' interno della quale sonoresgistrati Il "Nome", "Cognome" ecc.. (access??)

Io come proprietà di "Data1" ho inserito il tipo di connessione, nel mio caso Access2000
e come DataBaseName.. il percorso di registrazione del mio mdb
sono stata chiara?? se no chiedi pure ok???
ciao Verodami

[Francesco_76]

Allora io ho

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data.mdb"
End Sub

e al tasto

Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "Nome"
Data1.Recordset.Seek "=", NomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub

All'interno del database ho una tabella che si chiama "Anagrafico_clienti" e un campo "Nome"

e non capisco perchè non va???

[verodami]

Hai controllato le proprietà .. di Data1 all' interno del form???
che tipo di connessione hai??e il nome del percorso dove è salvata l'agenda è giusto???
E alla voce RecordSource che hai ???
Il problema è che non riconosce il nome del campo "Nome"
per qualche motivo non lo legge ....
Quando scrivi "Data1." te le trova le opzioni a tendina????

[Francesco_76]

Scusami tanto sono un principiante in vb l'errore era qui

> E alla voce RecordSource che hai ???

Un'altra domandina


Se premo aggiungi mi aggiunge un nuovo record al database e lo aggiunge vuoto perche non ho ancora specificato quali campi deve inviare
io ho un campo che si chiama "bNome" come faccio a dirgli di inviare questo campo dentro al database sotto la casella "Nome"??

Questo e il comando del testo Aggiungi

Private Sub Command2_Click()
If Command2.Caption = "Aggiungi" Then
'Attiva la funzione di aggiunta.
Data1.Recordset.AddNew
Command2.Caption = "Annulla"
Command6.Visible = True
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
Command6.Visible = False
Command2.Caption = "Aggiungi"
End If
End Sub


Grazie Mille

[verodami]

Scusami non ho capito bene dov ' era l'errore ...
non ti preoccupare anch' io sono una principiante

Adesso dò un 'occhiata al comando aggiungi e ti faccio sapere

[Francesco_76]

up