Newsgroup: it.comp.appl.access
Titolo: Modifica Tabstop si un controllo maschera

Buona sera a tutto l'ng,
ho un piccolo problema con una maschera nella quale il controllo Data 
(riferito ovviamente alla data del record) è impostato con una tabulazione 
automatica a "No" e una Selezione con Tabulazione a "No" in quanto il suo 
valore predefinito è Date();
Questo va bene per la maggior parte dei record, ma a volte è necessario 
avere una data diversa a quella in cui il record è inserito, ed io vorrei 
evitare di posizionare ogni volta con il mouse il cursore sul campo Data; ho 
allora inserito a pièdimaschera un controllo on/off non associato, cliccato 
il quale vorrei che la proprietà TabStop del campo Data si impostasse a "si" 
in modo che il cursore si fermi su detto campo con la semplice pressione del 
tasto Tab; in alternativa, mi farebbe ancora più comodo che flaggando il 
controllo on/off, la maschera mi chiedesse quale data vorrei inserire nel 
campo data e la inserisse in automatico al posto di Date() fino a quando non 
deflaggo il controllo. Ovviamente, tutte queste belle idee, non so come 
concretizzarle....
Spero di essere stato chiaro e che possiate darmi, come sempre, una mano.
A presto e grazie, Raf 

 ha scritto nel messaggio 
news:47f2514e$0$17948$4faf...@reader1.news.tin.it...

potresti inserire un bottone e all'evento clic:
Me.controlloData.setfocus
ti saluto
thomas.az
 

 ha scritto nel messaggio

sotto evento click della casella di controllo scrivi:
dim vData
if NomeTuaCasellaControllo = true then
errata:
vdata = inputbox("Inserisci la data Desiderata")
if isdate(vData) then
me.NomeTuoControllo  = vData
me.NomeTuoControllo.defaultvalue = "#"& vData &"#"
else
MsgBox "data errata", vbcritical, "Attenzione...."
goto errata
end if
else
me.NomeTuoControllo = date
me.NomeTuoControllo.defaultvalue = "=date()"
end if
-- 
Ciao
Geppo


Innanzitutto grazie per l'aiuto, ma ho i seguenti problemi:
nella riga 7 e 14 dove scrivi me.DataSpesa.defaultvalue mi da errore ed ho 
risolto con me.DataSpesa.value
poi nella riga 14 ancora dopo = ho dovuto inserire direttamente Date(), 
senza "" e ulteriore = in quanto mi dava errore.
In questo modo mi si apre il msgbox e mi richiede la data ma quando io 
inserisco ad esempio 01/05/08 mi da errore di debug sulla riga
me.NomeTuoControllo.defaultvalue = "#"& vData &"#" evidentemente, sbaglio il 
formato, ma ho provato in più modi; ho notato però che la data in effetti mi 
viene cambiata, solo che mi da questo errore!
Un'ultima cosa..anche se la data si cambia, nonostante la casella controllo 
resti flaggata, il record successivo mi ritorna con la data Date(), ed io 
invece vorrei che finchè il controllo è flaggato la data resti quella 
inserita nella msgbox!
Spero di essere stato chiaro e che possa continuare ad aiutarmi!
Grazie. 

 Grazie.
Mi viene un dubbio:
Forse usiamo due versioni diverse di access?
Io uso access2003 e tu?
-- 
Ciao
Geppo 

 -- 
Anche io!!
Grazie comunque... 

 Grazie comunque...
Prego
-- 
Ciao
Geppo 

Perfetto!!!
Ora funziona! ma..è un po' diverso dal primo post! :)
Grazie infinite!
Post Chiuso

 Grazie infinite!
prego
-- 
Ciao
Geppo 

> Ora funziona! ma..č un po' diverso dal primo post! :)


 forse il problema era questo....
No, infatti se provi vedi che funge lo stesso, questo perchè la variabile 
vData già contiene il valore. :-)
Puo darsi che ti mancavano dei riferimenti.
-- 
Ciao
Geppo 

 vData giŕ contiene il valore. :-)


 grazie ancora!
prego
-- 
Ciao
Geppo 

 Ah già con queste date c'è da impazzire, correggi questa cosi:
