Newsgroup: it.comp.appl.access
Titolo: Help: Pulsante di comando non funziona

Ho bisogno del vostro aiuto...
da poco ho iniziato a lavorare con Access 2000 in quanto sto cercando di
crearmi un archivio fotografico.
Ho creato una maschera con struttura a schede. Nella prima pagina ho cercato
di inserire i pulsanti di controllo tramite creazione guidata seguendo i
passaggi consigliati sul manuale Quick course Access -Mondadori.
    Purtroppo il pulsante non funziona quando faccio click sullo stesso e
compare questo messaggio "L'espressione SuClick immessa come impostazione
alla proprietà di evento  ha provocato il seguente errore: rilevato nome non
univoco: Trova_Record_Click... *l'espressione non corrisponde ad una macro,
di una funzione definita dall'utente oppur a [Routine Evento]....."
    Io non ho bisogno di una macro e da quanto dice il manuale, porei creare
un pulsante di controllo senza aprire una macro....tanto più che stamane ero
riuscito a far funzionare tutto....poi è successo qualcosa (di cui non mi
sono accorto) e non sono riuscito più a farlo funzionare.
Qualcuno mi può aiutare...????
Grazie
--
Claudio

Ho bisogno del vostro aiuto...
da poco ho iniziato a lavorare con Access 2000 in quanto sto cercando di
crearmi un archivio fotografico.
Ho creato una maschera con struttura a schede. Nella prima pagina ho voluto
creare un pannello di controllo ed ho provato ad inserire due pulsanti di
comando (Trova record, Aggiungi record) tramite la creazione guidata (ho
provato anche senza utilizzare una creazione guidata) seguendo i passaggi
consigliati da vari manuali tra cui Quick course Access - Mondadori.
    Purtroppo il pulsante di comando non funziona quando faccio click sullo
stesso e
compare questo messaggio "L'espressione SuClick immessa come impostazione
alla proprietà di evento  ha provocato il seguente errore: rilevato nome non
univoco: Trova_Record_Click... * l'espressione non corrisponde ad una macro,
di una funzione definita dall'utente oppure a [Routine Evento]....."
    Io non ho bisogno di una macro e da quanto dice il manuale, potrei
creare
un pulsante di controllo senza aprire una macro. Ho provato anche a creare
una macro ma non funziona nemmeno la macro...
Ma qui viene il "bello".... nei giorni scorsi ero riuscito a creare i
pulsanti di comando e tutto funzionava alla perfezione....!!!!....poi è
successo qualcosa...... (di cui non mi
sono accorto) e non sono riuscito più a farlo funzionare...ho fatto mille
tentativi....inutilmente!!!!.


 ha scritto nel messaggio
news:YEM87.19821$0Z1.7...@news.infostrada.it...

In visualizzazione struttura della maschera, seleziona il bottone e
visualizza le sue proprietà; poi guarda nella scheda "eventi" e controlla se
ci sono associate macro o codice vba associato all'evento "su click". Se
noti l'assenza potrebbe essere che hai cambiato nome al bottone
successivamente e le istruzioni che venivano eseguite fanno riferimento al
vecchio nome, quindi clicca sul generatore di codice (bottone con tre
puntini) a fianco dell'evento che ti serve ("su clic" in questo caso) e
ricrei il codice che manca. Via più breve; cancelli il bottone e lo ricrei
nominandolo subito...
Ciao.

 ha scritto nel messaggio
news:9k0ou1$bt2$1...@canarie.caspur.it...



Per favore scrivi il testo della risposta dopo il testo precedente, come
faccio io.
E nella [Routine evento] che c'é scritto? Come si chiama il pulsante?
Ciao.

 ha scritto nel messaggio
news:9k1a8f$nh4$1...@canarie.caspur.it...

Ho provato a creare due comandi di controllo che hanno la seguente funzione:
1)Trova record e 2) Aggiungi record. Per entrambi se vado sulle proprietà
Evento SuClick ho cliccato sulla freccia e compare la frase: [Routine
evento]
Io l'ho lasciata così.....non sapevo cos'altro fare...
Ho provato ad aggiungere altri tipi di comandi ma il "risultato" non
cambia...
Grazie ancora per il vostro aiuto...
Claudio

 Claudio
Se clicchi sulla frase [Routine evento] appare un bottone con tre puntini;
se ci clicci sopra ti viene visualizzato il codice vba...
Ciao.

 ha scritto nel messaggio
news:9k3n5b$ee8$1...@canarie.caspur.it...

Ho provato...vedo delle scritte Visual Basic...ma scusa la mia grandissima
ignoranza...cosa devo fare...non so come interpretare quelle scritte....cosa
devo fare...?...e se devo scivere qualcosa cosa devo scrivere...?...e
dove...?
ho provato a leggere nei miei manuali ma non trovo niente..
Grazie,
Claudio

 ho provato a leggere nei miei manuali ma non trovo niente..
Prova a selezionare, parola x parola, ogni singolo termine che non conosci e
primi il tasto F1.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 Claudio
Oltre a "primere" (Eh! Eh!) il tasto F1, come ti ha suggerito Silvio, puoi
selezionare tutto il codice da Sub a End Sub, copiarlo e incollarlo nel
prossimo messaggio che invierai descrivendo, non in maniera stringata, cosa
vuoi fare...
Ciao.

 ha scritto nel messaggio
news:9k6nbq$h9q$1...@canarie.caspur.it...

Grazie per il suggerimento, cosě finalmente posso farvi vedere quello che
succede quando clicco sul tasto con tre puntini...
di fianco a Su click...
ho copiato TUTTO qui sotto quello
Ne capite qualcosa...? io no!
Grazie
Claudio
Option Compare Database
Private Sub Trova_Record_Click()
On Error GoTo Err_Trova_Record_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Trova_Record_Click:
    Exit Sub
Err_Trova_Record_Click:
    MsgBox Err.Description
    Resume Exit_Trova_Record_Click
End Sub
Private Sub Aggiungi_nuovo_record_Click()
On Error GoTo Err_Aggiungi_nuovo_record_Click
    DoCmd.GoToRecord , , acNewRec
Exit_Aggiungi_nuovo_record_Click:
    Exit Sub
Err_Aggiungi_nuovo_record_Click:
    MsgBox Err.Description
    Resume Exit_Aggiungi_nuovo_record_Click
End Sub
Private Sub Trova_Record_Click()
On Error GoTo Err_Trova_Record_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Trova_Record_Click:
    Exit Sub
Err_Trova_Record_Click:
    MsgBox Err.Description
    Resume Exit_Trova_Record_Click
End Sub
Private Sub Trova_Record_Click()
On Error GoTo Err_Trova_Record_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Trova_Record_Click:
    Exit Sub
Err_Trova_Record_Click:
    MsgBox Err.Description
    Resume Exit_Trova_Record_Click
End Sub
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
Private Sub AggiungiRecord_Click()
On Error GoTo Err_AggiungiRecord_Click
    DoCmd.GoToRecord , , acNewRec
Exit_AggiungiRecord_Click:
    Exit Sub
Err_AggiungiRecord_Click:
    MsgBox Err.Description
    Resume Exit_AggiungiRecord_Click
End Sub
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
Private Sub Comando109_Click()
On Error GoTo Err_Comando109_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Comando109_Click:
    Exit Sub
Err_Comando109_Click:
    MsgBox Err.Description
    Resume Exit_Comando109_Click
End Sub
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
Private Sub Comando111_Click()
On Error GoTo Err_Comando111_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Comando111_Click:
    Exit Sub
Err_Comando111_Click:
    MsgBox Err.Description
    Resume Exit_Comando111_Click
End Sub
Private Sub Comando112_Click()
End Sub

 ha scritto nel messaggio
news:SLD97.194$_07....@news.infostrada.it...

- cut -
miiiiiiiii, ma hai copiato tutto?
Ciao, Salvatore

 End Sub
Azz! Meno male che non ti avevo detto di ammazzare nessuno!
Allora a colpo d'occhio puoi notare che c'é qualcosa che non va; ci sono 13
subroutine con vari nomi: TrovaRecord, Trova_Record, AggiungiRecord,
Comando111... E tutte dovrebbero fare qualcosa; ma così non è, almeno pare.
Se vuoi ripartire da zero cancella tutte le subroutine (TrovaRecord,
Trova_Record, AggiungiRecord, Comando111... ) e i pulsanti che non
funzionano; poi riprova con uno solo e provalo prima di proseguire con la
creazione di altri bottoni.
Inizia così e vediamo che succede...
Ciao.

 ha scritto nel messaggio
news:9k8s9q$4mf$1...@canarie.caspur.it...

Scusatemi se chiedo una conferma ma non vorrei combinare un guaio...(non
l'ho mai fatto...e non so cosa sto facendo)
Devo canellare completamente "TUTTO" il testo che vi ho fatto vedere ...o
devo salvare qualcosa ....?
Grazie
Claudio

 Claudio
Tutte le routine che hai inviato fanno tutte le stesse cose solo per oggetti
con nomi o uguali o diversi, quindi un bel casino...
Cancella tutto tranne "Option Compare Database"...
Ciao.

 ha scritto nel messaggio
news:9kb9pc$n4s$1...@canarie.caspur.it...

Vado per ordine:
1) Ho cancellato tutti e due i pulsanti di comando che avevo "cercato" di
creare...ho cancellato il linguaggio  Visual Basi e poi
In visualizzazione struttura
2) ho attivato la creazione guidata del pulsante di comando:
    spostamento tra record    .... trova record....(avanti)
    ho scelto di scrivere sul pulsante quindi ho selezionato testo-Trova
record (avanti)
    nome da assegnare al comando ...TrovaRecord (fine)
3)Tasto destro del mouse: proprietą pulsante di comando
eventi...tasto con tre punti....compare la seguente scritta:
Option Compare Database
Private Sub TrovaRecord_Click()
On Error GoTo Err_TrovaRecord_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_TrovaRecord_Click:
    Exit Sub
Err_TrovaRecord_Click:
    MsgBox Err.Description
    Resume Exit_TrovaRecord_Click
End Sub
...........................
........Ho chiuso tutto...e ho provato a far funzionare il pulsante di
comando....sigh!sigh!
č tutto come prima....compare di nuovo la seguente scritta:messaggio
"L'espressione SuClick immessa come impostazione
alla proprietą di evento  ha provocato il seguente errore: rilevato nome non
univoco: Trova_Record_Click... * l'espressione non corrisponde ad una macro,
di una funzione definita dall'utente oppur a [Routine
Evento].....etc..etc.."
Sono di nuovo da capo....!
Claudio


Il messaggio di errore è chiaro; hai due controlli/subroutine con lo stesso
nome, cercali e cancellame uno. Il bottone che hai creato non centra nulla
con l'errore, tu hai creato un bottone che si chiama: TrovaRecord ma
l'errore è su un'altro doppio nome: Trova_Record...
Ciao.

 ha scritto nel messaggio
news:9klm2n$sl9$1...@canarie.caspur.it...

Dove devo cercarlo???? .....io ne ho creato solo uno......!
Grazie (....per non esserti ancora stancato...!)
Claudio


In visualizzazione struttura della maschera, in alto a sinistra dovresti
avere la casella di riepilogo con i nomi dei controlli creati (in quella
maschera); i nomi delle routine li trovi nella visualizzazione del codice
vba, lo puoi visualizzare con lo stesso metodo che ti ho illustrato qualche
messaggio indietro...
Ciao.