Newsgroup: it.comp.appl.access
Titolo: Modificare Tasto Trova

ciao
ho creato in una maschera tramite il wizard il tasto trova
il wizard ha generato questo codice, ma vorrei fare sì che quando lo premo 
nella combo Cerca in: mi venga visualizzata la Tabella e non il nome del 
Campo in cui si strova il cursore e nella combo Confronta: venga 
visualizzato Parte del Campo. Cosa devo modificare?
Grazie 1000
cio
Private Sub Trova_Click()
On Error GoTo Err_Trova_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Trova_Click:
    Exit Sub
Err_Trova_Click:
    MsgBox Err.Description
    Resume Exit_Trova_Click
End Sub 

 End Sub
Vedi:
http://support.microsoft.com/kb/208923/en-us
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://support.microsoft.com/kb/208923/en-us
Ho provato a fare una macro che invia i tasti tab, pag su e pag giů ma non 
mi funziona
Mi dice
Per l'azione o il metodo č necessario l'argomento Nome macro
Io ho inserito questo codice
 DoCmd.RunMacro (MacroModificaTastoTrova)
qui dentro
 Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
    DoCmd.RunMacro (MacroModificaTastoTrova)
dove sto sbagliando? Nella macro ho messo cose tipo
InviaTasti
{TAB}
Attesa: No
InviaTasti
{UP}
Attesa: No
InviaTasti
{DOWN}
Attesa: No
ecc... mi sembrava di avere fatto bene tutto... ma mi sbaglio come posso 
fare?
Passo i tasti perchč nell'help di Microsoft non dice come cambiare la Combo 
Cerca in:
Qualche suggerimento??
Grazie 1000
cio 

 End Sub
Dopo aver richiamato il "Trova" devi utilizzare la SendKeys (vedi help) per 
simulare la pressione dei tasti...
Ciao.
-- 
Sergio MAZZA 

 cio
Sembra che tu non abbia letto attentamente quanto scritto nell'articolo
che ti ho suggerito....
Con questo codice sotto l'evento Click del tuo pulsante, apri la finestra
di dialogo Trova:
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind
    SendKeys "%tpippo%op", False 
Questo codice di permette di cercare la stringa "pippo" nel controllo che
ha il fuoco come Parte di campo.


 ha il fuoco come Parte di campo.
Non so se ho capito bene, perchè mi pare che non funzioni almeno come penso 
io...
Io vorrei che mi cercasse qualunque stringa in tutta la tabella come parte 
del campo come impostazione predefinita ovunque io sia col cursore in quel 
momento.
Ho provato come mi hai detto ma senza risultati, allora ho provato con 
questo
Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind
    SendKeys "{TAB}", False
    SendKeys "{DOWN}", False
    SendKeys "{TAB}", False
    SendKeys "{UP}", False
    SendKeys "{TAB}", False
    SendKeys "{TAB}", False
    SendKeys "{TAB}", False
    SendKeys "{TAB}", False
ma anche qui sembra fregarsene, io clicco e non succede niente, mi si apre 
normalmente come se nulla  fosse... Dove sbaglio?
devo lasciare o no questa stringa?
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Grazie 1000
cio 

 cio
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:f6iecl$t4g$1...@tdi.cu.mi.it...
come se nulla  fosse... Dove sbaglio?
ciao
sto facendo la figura dell'idiota, ma ancora non funziona.
ho scritto sotto l'evento Private Sub Trova_Click()
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
    SendKeys "%op%rm%t"
Salvo, eseguo la maschera ma tutto è come prima, non gli manda alcun 
comando... dove sbaglio? Ho provato a mano e i comandi sono corretti...
Ho provato a salvare, uscire e rientrare nel db, ricontrollo il codice, 
tutto ok, ma senza risultato per quanto riguarda l'efficacia del codice... 
Se clicco mi si ripresenta sempre il Trova impostato di default...
cio 

 cio
Ciao.
-- 
Sergio MAZZA 

 A fare tutto insieme.
Questo è il mio nuovo codice ma non funziona lo stesso... ci avevo già 
provato... non so più cosa fare...
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
SendKeys "%op"
SendKeys "%rm"
SendKeys "%t"
cio 

 SendKeys "%t"
Dunque se lascio così il codice mi fa la seguente cosa:
all'apertura lascia tutto così com'è, ci devo cliccare una seconda volta sul 
tasto trova per abilitare le modifiche che voglio mentre io vorrei le 
modifiche già attive subito, non appena clicco per aprirlo.
Perchè si comporta così secondo te? Eppure l'evento associato al bottone è 
corretto...
Cosa ne pensi?
cio 

 cio
Ma quando dici: "...all'apertura lascia tutto così com'è..." intendi 
all'apertura della tua maschera (quindi evento "su apertura") o all'apertura 
della finestra della ricerca?
Ciao.
-- 
Sergio MAZZA 


All'apertura della ricerca (quindi dopo che č avvenuto il primo clic) mi 
lascia tutto inalterato, alla seconda pressione dello stesso tasto di 
ricerca mi manda la combinazione di tasti...
Ho riprovato e ti confermo la cosa. il codice č questo:
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
SendKeys "%op"
SendKeys "%rm"
SendKeys "%t"
cio 

 cio
Prova con:
...
SendKeys "%op", true
SendKeys "%rm", true
SendKeys "%t", true
Ciao.
-- 
Sergio MAZZA 


nulla, neanche con il true. mi dovrò abituare a fare doppio clic sul 
pulsante!
cio 

 cio
Non è che sposti il fuoco su un altro controllo?
Ciao.
-- 
Sergio MAZZA 

 Non è che sposti il fuoco su un altro controllo?
Questo è il codice completo, mi sembra di no... ho tolto il True perchè non 
funzionava più neanche dopo il 2° clic...
Private Sub Trova_Click()
On Error GoTo Err_Trova_Click
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
    SendKeys "%op"
    SendKeys "%rm"
    SendKeys "%t"
Exit_Trova_Click:


 ha scritto nel messaggio news:f6iu9k$jrg$1...@aioe.org...

La "m" in questa istruzione:
SendKeys "%rm"
non esiste.
La "r" è "Cerca in" e la "m"?
Ciao.
-- 
Sergio MAZZA 

 La "r" è "Cerca in" e la "m"?
"m" è l'iniziale del nome della tabella. Ho provato anche a mettere, in 
alternativa:
SendKeys "%r"
SendKeys "{DOWN}"
ma il difetto del doppio clic rimane sempre e comunque...
cio 

 cio
A me funziona.
Non so che dirti.
Prova a crearti un'altra semplice maschera e provare il codice lě...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:f6j0a1$m06$1...@tdi.cu.mi.it...
ok comunque anche se devo fare il doppio click meglio di niente... proverò 
con un'altra maschera!
Sei stato gentilissimo!
Alla prossima (speriamo meno incasinata!)
Ciao
cio