Newsgroup: it.comp.appl.access
Titolo: DOPPIO CLICK SU CASELLA COMBINATA

Ciao, ho bisogno di sapere come fare per avviare una maschera facendo
doppio click su una casella combinata.
Mi spiego meglio.
Ho una maschera "OrdineCliente" nella quale è presente una casella
combinata collegata alla maschera "AnagraficaClienti" vorrei poter
fare in modo che, dovendo inserire un ordine di un nuovo cliente,
facendo doppio click sulla casella combianata si apra la maschera
"AnagraficaClienti" per poterla aggiornare.
Nelle proprietà della casella combianata ho impostato [Routine evento]
su NON IN ELENCO, SU CLICK e SU DOPPIO CLICK, cos'altro bisogna fare?
(ps: non so assolutamente nulla sul linguaccio SQL)
Grazie mielle
Myc


Ciao
io faccio così
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_Comando9_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MSC_VIEWDIST"
    stLinkCriteria = "[dist_id]=" & Me![dist_id]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando9_Click:
    Exit Sub
Err_Comando9_Click:
    MsgBox Err.Description
    Resume Exit_Comando9_Click
End Sub
Dim stDocName As String
Dim stLinkCriteria As String
Queste due sono le variabili, di tipo testo=stringa dove stDocName
credo sia Standard document name, cioè dentro la quale poi tu salvi il
nome della maschera da aprire
il stLinkcriteria è sempre di tipo testo e dove gli passi il filtro x
il record che ti apre.
stDocName = "MSC_VIEWDIST" -> dichiaro il nome della maschera da
aprire tra apici
stLinkCriteria = "[dist_id]=" & Me![dist_id]
Gli passa il filtro, dove il campo dist_id (mio campo contatore) è
uguale al controllo che c'è sulla maschera Me![nomecontrollo]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Infine Esegue il comando di apertura di una form=maschera che si
chiama stDocName, con il filtro stlinkcriteria
Questo è VBA visual basic for application credo, ma non sicuramente
SQL
Se vuoi vedere SQL vai in una query e vai in visualizza SQL
Ciao e buon lavoro
Samantha


Cmq, il mio è un doppio click sul lato sx della maschera, che è in
modalità maschere continue.
Non credo sia possibile fare doppio click su casella combinata... o
forse sono io ignurant
:) ciau
Samantha

 ha scritto nel messaggio
news:1172139118.7...@v33g2000cwv.googlegroups.com...
Ciao, ho bisogno di sapere come fare per avviare una maschera facendo
doppio click su una casella combinata.
Mi spiego meglio.
Ho una maschera "OrdineCliente" nella quale è presente una casella
combinata collegata alla maschera "AnagraficaClienti" vorrei poter
fare in modo che, dovendo inserire un ordine di un nuovo cliente,
facendo doppio click sulla casella combianata si apra la maschera
"AnagraficaClienti" per poterla aggiornare.
Nelle proprietà della casella combianata ho impostato [Routine evento]
su NON IN ELENCO, SU CLICK e SU DOPPIO CLICK, cos'altro bisogna fare?
Insomma, tutto un po' a casaccio.
Intanto il doppio clic su una combo secondo me non ha senso.
Detto questo, il tuo problema si raffigura solo nel caso di non in elenco.
questo è un esempio
    Response = acDataErrContinue
    msg = "Categoria non presente in archivio!@Si vuole inserire nel sistema
"
    msg = msg & "la nuova Categoria " & NewData & "?@"
    risposta = FormattedMsgBox(msg, vbInformation + vbYesNo, "Conferma
operazione!")
    If risposta = vbYes Then
         DoCmd.OpenForm "Nuova Categoria",,,,,,NewData
    Else
        Categoria.Undo
    End If
su apertura della maschera nuova categoria ho messo che nel controllo
categoria venga messo direttamente il valore me.openargs che è il newdata
passato come parametro
(ps: non so assolutamente nulla sul linguaccio SQL)
Il linguaccio è quello che sta nel boccuccio?
E l'SQL non c'entra niente con il codice
Antonio

 ha scritto nel messaggio
news:1172140089.8...@k78g2000cwa.googlegroups.com...


GGGGGGGGGGRRRRRRRRRRRRRRRR
IL QUOTING!!!!!
Antonio

 Antonio
ma come,
scrivo sempre sotto il testo che viene quotato!?!?!?!
ok cercherò di sfoltire ;)
Ciao
Samantha

 Antonio


Umpf
Snort
Antonio

 - Mostra testo tra virgolette -
Ciao Samantha,
grazie mille...io sono totalmente ignurant ed infatti non ne capisco
nulla nemmeno di linguaggio VBA, cmq appena posso prova a vedere se
riesco con le indicazioni che mi hai dato.
Intanto grazie.
Myc

Grazie Antonio,
si, l'hai detto tutto un pò a casaccio...
cmq si, non capisco nulla nemmemo di VBA (che era quello che
intendevo) e di conseguenza no ho capito nulla delle tue indicazioni,
cmq ora provo a vedere cosa riesco a combinare, eventualmente se non
ti spiace ti disturberò ancora  ;o)
grazie
Myc

HEEEELP!!! allora..chiedo un'ulteriore cortesia.
La maschera nella quale sto lavorando si chiama "Sottomaschera ordini"
all'interno di questa maschera c'è una casella combinata che ho
chiamato "CCProdotto"
io vorrei fare in modo che cliccando due volte sulla combo
"CCProdotto" si apra la maschera "PRODOTTI"
Qualcuno potrebbe scrivermi in VBA i comandi per fare
quest'operazione?
Grazie mille
Miki Ignurant  ;o(

m...@hotmail.it
 ha scritto:

Se usi l'autocomposizione vedrai che ti da' del bel codice già pronto.
Se poi trasferisci questo codice sull'evento che più ti serve... il gioco
è fatto....
Ti consiglio inoltre di studiarti un pò i database che la MS ci mette a
disposizione... Northwind, Orders.. e quelli che si creano con
l'autocomposizione... 
e poi..
http://www.sitocomune.com
http://www.accessgroup.it
http://www.alessandrobaraldi.it
http://www.donkarl.com/it
.
.
Sarebbe un ottimo inizio..
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Devi prenderti il testo che ho scritto io
te lo copi e incolli su word
cambi con le tue variabili
vai nella tua maschera e su CCPRODOTTO tasto dx, proprietà, scheda
eventi, fai click su doppioclick, freccia verso il basso [routine
eventi]
e cambi da
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_CBODATA_DblClick
    Dim stDocName As String
    stDocName = "nomedellatuaMaschera"
    DoCmd.OpenForm stDocName, , ,
Exit_CBODATA_DblClick:
    Exit Sub
Err_Comand_CBODATA_DblClick:
    MsgBox Err.Description
    Resume Exit_CBODATA_DblClick
End Sub
IO è da poco che ci lavoro, un mesetto, ma devi cimentarti, e alla
fine impari
Ciao
Samantha

Grazie mille sv, seguirò il tuo consiglio.
Miki

Grazie Samantha,
davvero gentile!
Miki

Ciao Samantha,
grandioso!! con le tue indicazio hanno funzionato, ora ti chiedo
un'altra cosa che pensavo accadesse in automatico ed invece non è
così.
Cliccando due volte sulla Combo si apre la maschera e io inserisco il
nuovo prodotto poi però il prodotto non si aggiunge in automatico
nell'elenco a tendina della combo, devo prima chiudere perchè questo
accada, sai come fare per evitare di dover prima chiudere la maschera?
Miki moltograta


:) Devi fare un requery
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_CBODATA_DblClick
    Dim stDocName As String
    stDocName = "nomedellatuaMaschera"
    DoCmd.OpenForm stDocName, , ,
 >>>> a questo punto devi inserire ME!Requery
Exit_CBODATA_DblClick:
    Exit Sub
Err_Comand_CBODATA_DblClick:
    MsgBox Err.Description
    Resume Exit_CBODATA_DblClick
End Sub
E' un F9 e obbliga l'aggiornamento o il requery
prova e fammi sapere se funzia :)
wledonne

Grazieeeeeeeeeeeeeee! funziona!! sono molto contenta, grazie
davvero!!!!!
e....
wledonne per sempre e da sempre ***
Miki gasatissima

 ha scritto nel messaggio
news:1172160534.5...@p10g2000cwp.googlegroups.com...

Quoto...
*NOD*
Antonio