Newsgroup: it.comp.appl.access
Titolo: ComboBox

Ciao, sapete se esite la possibilità di inserire una combo a contenuto 
dinamico in un menu o barra degli strumenti?
Saluti 

 Saluti
Ti allego degli estratti delle routine che uso io.
Ti consiglio di analizzare tutte le opzioni disponibili dalla guida in linea 
vb (dopo aver inserito il riferimento alla libreria Microsoft Office 10 
Object Library).
Il grado di dinamicità dipende dai vari eventi che utilizzi nella form  per 
modificare il contenuto della combo o leggerne i valori.
Per crearla e impostare un po' di opzioni:
Dim ctlCBarControl  As CommandBarControl
    Set ctlCBarControl = CommandBars("Nome della 
barra").Controls.Add(msoControlComboBox)
        With ctlCBarControl
            .Enabled = True
            .BeginGroup = True
            .Style = msoComboLabel
            .Width = 130
            .Caption = "Anno:"
            .TooltipText = "all'anno selezionato"
            .OnAction = "='Aggiorna()" 'nome della routine da richiamare
            .Parameter = "Selection"
            .Tag = "mese"
            .DropDownLines = 13
            .DropDownWidth = 126
        End With
Per agguingere un po' di voci:
Dim ctlCBarControl  As CommandBarControl
    Set ctlCBarControl = CommandBars("Nome della barra").Controls(1)
    With ctlCBarControl
        .AddItem Year(Now()) - 1, 1
        .AddItem Year(Now()), 2
        .AddItem "altro nome che vuoi aggiungere", 3
    ecc. ecc.
    End With
Per capire cosa è stato scelto:
Public Function Aggiorna()
    Dim strMese As String
    Dim intAnno As Integer
    strMese = CommandBars("Nome della barra").Controls(numero del controllo 
della barra).ListIndex ' restituisce il numero della scelta
    intAnno = CommandBars("Nome della barra").Controls(numero del controllo 
della barra).Text 'restituisce il testo della scelta

Grazie 1000!!! domani la provo!
"vtt" <
vittori...@oo.it
 oo = infinito> ha scritto nel messaggio 
news:cs66qh$n2v$2...@newsread.albacom.net...


 ha scritto nel messaggio
news:HwBFd.12944$Of5....@nntpserver.swip.net...

 ciao a tutti,
avrei bisogno di un'informazione
dovrei mettere nella combobox via solo le vie del comune selezionato da
un'altra combobox.
devo usare anche io questo codice qui??
premetto che ho due tabelle 1 comuni che ha come campi [ID] e [COMUNE]
L'altra via che ha come campi [ID], [VIA], [CARTINA], [COORDINATE],
[IDCOMUNE] relazionato con id della tabella comuni. sapete aiutarmi??
grazie

 grazie
(un esempio)
www.sitocomune.com
, sezione Forms: Sincronizzare in una maschera due o più 
caselle combinate tra loro in gerarchia...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:cs7uq7$3lo$1...@canarie.caspur.it...

grazie mille ottimo esempio.
ora ho un'altro problema, in base al record che ho selezionata nella
combo via vorrei visualizzare un msgbox con le coordinate. sapete
aiutarmi??

 ha scritto nel messaggio
news:41e79718$0$8205$5fc...@news.tiscali.it...

mi sono spiegato malissimo nemmeno io capisco da questo messaggio cosa
voglio.
nella mia combobox ci sono 3 colonne [id]; [via]; [coordinate]
su un evento di un bottone vorrei:
msgbox comboboxvia.valorecolonna3
è possibile?? grazie


Gestisci l'evento "dopo aggiornamento" della combo e ci inserisci:
msgbox me!comboboxvia.column(2)
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:cs88mr$69b$1...@canarie.caspur.it...

grazie mille, funziona alla grande.

Funziona egregiamente......anche se ho dovuto rivrdere un attimino il codice 
:))
Ti perdono.
Grazie di nuovo.
"vtt" <
vittori...@oo.it
 oo = infinito> ha scritto nel messaggio 
news:cs66qh$n2v$2...@newsread.albacom.net...


 ha scritto nel messaggio 
news:nqPFd.13092$Of5....@nntpserver.swip.net...

Purtroppo ho dato una risposta un po' frettolosa vista la vastità 
dell'argomento e le routine erano solo parziali.
Un altro consiglio e di rivedere tutta la gestione degli errori: esiste il 
caso nel caso che un utente inserisca manualmente valori incoerenti nelle 
combo e poi prema invio...
Divertiti :)

[CUT]
Perdona gli strafalcioni... è una cosa che odio, nonstante la scusante di 
scrivere col portatile sulle ginocchia 

 Divertiti :)
lo stò facendo :D
Saluti

 wrote in message
news:vMpGd.13609$
Of5....@nntpserver.swip.net

Si risolve gestendo l'errore.
Io per semplificarne la gestione nel caso ci siano
più Combo faccio così:
' Nel caso l'utente inserisca valori <NON in Elenco> nelle Combo(s)
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  If DataErr = 2237 Then
        Response = acDataErrContinue
        Screen.ActiveControl.Undo
  Else
        Response = acDataErrDisplay
  End If
End Sub
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:af6f3997b5c0f8fc73...@mygate.mailgate.org...

Buonasera Alessandro! come vedi le combo non muoiono mai...
In questo esempio ci riferivamo ad una combo nella barra dei menu e questa è 
veramente flat... muoio dall'invidia(vedere la mia agonia in  '[OT] Combobox 
flat').
A quanto mi risulta non esite un modo per bloccare i valori in lista, che 
restituisce però listindex = 0, da cui si puo gestire la digitazione manuale 
dell'utente:
If  CommandBars("NomeDellaBarra").Controls(NumeroDelControllo).ListIndex = 0 
Then ecc. ecc.
Oppure si può controllare il valore immesso dall'utente, come ad esempio un 
anno che non compare nella lista, tramite text:
intAnno = 
Cint(CommandBars("NomeDellaBarra").Controls(NumeroDelControllo).Text)
e se l'utente mette un valore testuale viene generato un errore che posso 
gestire conn On Error