Newsgroup: it.comp.appl.access
Titolo: x Lorenzo Coronati e tutto il NG- Aiuto x query

Mi rifaccio vivo per riproporre il quesito di cui sopra :
Access 2000 : Ho una maschera con quattro controlli non associati formati da
caselle combinate che costituiscono i criteri di ricerca della query.
Il mio problema è che la casella combinata si presenta logicamente vuota con
la freccetta a dx : uno clicca sulla freccetta ed escono i valori da
scegliere. Se però invece di cliccare sulla freccetta uno scrive
direttamente sulla casella tutto và in palla. Ho impostato i valori solo in
elenco, quello che vorrei fare è disabilitare la scrittura sulla casella .
Ho trovato interessante la proposta di Lorenzo Coronati di fare in modo che
passando sopra con il mouse esca la tendina con i valori selezionabili :
farebbe proprio al caso mio !
Lorenzo ha suggerito di usare sendkeys , il problema è che di VB ne capisco
poco o niente e quindi x me è peggio che andar di notte ...........
Prometto di ricordarmi , nelle mie preghierine serali , di chiunque mi
aiuterà !
Ciao a tutti !!!!!!!!!!!!!
Giuliano

 ha scritto nel messaggio
news:9h5sa1$7o3$1...@lacerta.tiscalinet.it...

A fronte dell'evento "Su attivato" o "Su mouse spostato" di tutte e 4 le
caselle combinate genera il seguente codice VBA:
Me![NomeCasellaCombinata].Dropdown
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Ciao Roberto,
ho provato ad inserire sull' evento "Su mouse spostato" il codice da te
proposto , però ho 2 problemi :
 Effettivamente scende la tendina , ma la scrittura arbitraria sulla casella
resta comunque possibile ;
La discesa della tendina funziona solo per il primo controllo sul quale
passo sopra con il mouse ( indipendentemente dall' ordine ) in quello
successivo viene generato un errore di runtime 2185 " Impossibile fare
riferimento ad una proprietà o ad un metodo per un controllo a meno che non
abbia lo stato attivo"
A volte presenta questo msg anche nel primo controllo a cui passo sopra...
Ciao e grazie !
Giuliano

 wrote in message
9h8eqn$a3h$1...@pegasus.tiscalinet.it...

Io ho inserito il codice nell'evento "Su attivato", funziona correttamente.
Per risolvere l'altro tuo problema forza LimitToList a True, non dovresti
più poter inserire valori che non appartengono alla lista.
Io ho fatto così :
Private Sub CmbNazione_GotFocus()
Me.CmbNazione.Dropdown                        'CmbNazione = Nome della combo
Me.CmbNazione.LimitToList = True
End Sub
--
Ciao e fammi sapere se funziona
Marco S.
http://digilander.iol.it/santimarco

Me![NomeCasellaCombinata].Dropdown
piu' che altro, credo che l'evento interessante per Giuliano
sia on enter della textbox posizionata sopra la combo:
in tal caso va preceduta da
Me![NomeCasellaCombinata].setfocus
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in 
internet che sia in grado di recuperare le 
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--

 ha scritto nel messaggio
news:9h8eqn$a3h$1...@pegasus.tiscalinet.it...

Come vedi ti hanno risposto MarcoS e Lorenzo


 ha scritto nel messaggio
news:9h9d3q$nkp$1...@pinco.nettuno.it...

Grazie a tutti Voi .
Ho risolto il problema facendo un mix di quanto postatomi :
A fronte dell' evento "Su mouse spostato" ho infatti scritto:
Private Sub Misure_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    Me.Misure.SetFocus
    Me.Misure.Dropdown
    Me.Misure.LimitToList = True
End Sub
Misure è appunto il nome della combo.
Ora funziona !
Resta da applicare un controllo per fare uscire un messaggio se qualcuno
scrive qualcosa non in elenco :  Se non vado errato si dovrebbe usare on
error goto......................vero?
Ciao a tutti Voi e grazie ancora !
Giuliano

 Per Santi Marco : Che fotografie meravigliose ! Danno un senso di libertà
!
Grazie sei troppo gentile :-)
--
Ciao Marco S.
http://digilander.iol.it/santimarco

 error goto......................vero?
Sě
On Error GoTo Err_Comando20_Click
    ...
    ...
Exit_Comando20_Click:
    Exit Sub
Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click


 ha scritto nel messaggio
news:9hc1jj$fet$1...@pinco.nettuno.it...

Complimenti per le foto
Roberto

 Complimenti per le foto
Grazie e goditi la campagna in questa giornata caldissima ... beato te ;-))
