title: Pulsante Eliminazione in maschera...

author: yQy

text:
On Thu, 20 Mar 2003 18:40:46 GMT, "SuperPippo®"
<ik0qd...@SPAMlibero.it> wrote:
>se le istruzioni sono esatte per il mio scopo...
>a funzionare funziona... ma se si può perfezionare
>è meglio.... ciao....
>---------------------------------------------------------
>Private Sub Comando42_Click()
>On Error GoTo Err_Comando42_Click
>    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
>    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>Exit_Comando42_Click:
>    Exit Sub
>Err_Comando42_Click:
>    MsgBox Err.Description
>    Resume Exit_Comando42_Click
>    End Sub
>--------------------------------------------------------
funzionare funziona per forza...autocomposizione di access...
l'unica cosa ke si puo' perfezionare, o meglio aggiungere è un
messaggetto di conferma eliminazione e togliere i messaggi di allerta
di access ke dicono: numero di record che verranno...bla...bla...
ma e' solo per "ottimizzare" alcune idiozie
prova con:
---------------------------------------------------------
Private Sub Comando42_Click()
Dim EliminaRecord
EliminaRecord = MsgBox("Eliminare il record
visualizzato?",vbApplicationModal+vbYesNo+vbQuestion)
If EliminaRecord = vbNo then
	MsgBox "Operazione annullata.",vbExclamation
	Exit Sub
Else
On Error GoTo Err_Comando42_Click
	'Nasconde gli avvisi di access
	docmd.setwarnings false
	'elimina il record
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
	'rimette apposto gli avvisi di access
	docmd.setwarnings true
Exit_Comando42_Click:
    Exit Sub
Err_Comando42_Click:
    MsgBox Err.Description
    Resume Exit_Comando42_Click

End if
End Sub
--------------------------------------------------------
ma come vedrai...nulla cambia in fin dei conti.
Ciao :)


title: Pulsante Eliminazione in maschera...

author: Roberto da casa

text:
"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:OWnea.30878$7y3.1...@twister1.libero.it...

Prova così:
Private Sub Comando42_Click()
DoCmd.RunCommand acCmdDeleteRecord
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Pulsante Eliminazione in maschera...

author: SuperPippo®

text:
Roberto da casa wrote:
> "SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
>> a funzionare funziona... ma se si può perfezionare
>> ---------------------------------------------------------
>> Private Sub Comando42_Click()
>> On Error GoTo Err_Comando42_Click
>>     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
>>     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>> Exit_Comando42_Click:
>>     Exit Sub
>> Err_Comando42_Click:
>>     MsgBox Err.Description
>>     Resume Exit_Comando42_Click
>>     End Sub
>> --------------------------------------------------------
>
> Prova così:
>
> Private Sub Comando42_Click()
> DoCmd.RunCommand acCmdDeleteRecord
> End Sub
---------------------
grazie a yQy ed a te Roberto per avermi risposto...
certo che l'ho fatto con l'autocomposizione...e del
resto funziona... ma utilizzando il primo codice...
 vedo una msgbox...
ma quello di Roberto funziona praticamente uguale..
a quello dell'autocomposizione... con l'unica differenza
che sono 3 righe...
e cmq... vorrei sapere in termini di vantaggi significa
qualcosa... utilizzare meno codice ???
grazie...


title: Pulsante Eliminazione in maschera...

text:
"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:92Jea.35747$Lr4.1...@twister2.libero.it...

Nel caso specifico ritengo che il numero delle righe in cui il codice è
articolato sia del tutto indifferente.
Resta il fatto che la soluzione generata dall'autocomposizione di Access sia
una forma di codice VBA arcaica che esiste ancora solo per un problema di
compatibilità con le versioni di Access precedenti A 97; non è escluso che
prima o poi non venga più accettata.
Comunque ho dei dubbi che funzioni in assenza di una barra dei menu o con
una barra dei menu personalizzata in cui non ci sia il menu Modifica o
comunque ci sia il menu Modifica in cui i comandi di Seleziona record ed
Elimina record non si trovino all'ottava ed alla sesta posizione.



title: Pulsante Eliminazione in maschera...

author: Pino

text:
Perfetto!
Se all'occorrenza si volesse inserire un messaggio di conferma eliminazione
record Si/No cosa occorre?
Grazie,Roberto.


title: Pulsante Eliminazione in maschera...

text:
On Sat, 22 Mar 2003 13:10:26 +0100, "Pino" <
pi...@serenacom.net
>
wrote:

quello ke ho gia proposto io prima :))
chiede appunto se vuoi o no eliminare il record.
Ciao :)


title: Pulsante Eliminazione in maschera...

text:
"Pino" <
pi...@serenacom.net
> ha scritto nel messaggio
news:b5hjse$5qg$1...@lacerta.tiscalinet.it...

Ti ha risposto yQy.



title: Pulsante Eliminazione in maschera...

text:
Roberto da casa wrote:
> "SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
> Nel caso specifico ritengo che il numero delle righe in cui il codice
> è articolato sia del tutto indifferente.
> Resta il fatto che la soluzione generata dall'autocomposizione di
> Access sia una forma di codice VBA arcaica che esiste ancora solo per
> un problema di compatibilità con le versioni di Access precedenti A
> 97; non è escluso che prima o poi non venga più accettata.
> Comunque ho dei dubbi che funzioni in assenza di una barra dei menu o
> con una barra dei menu personalizzata in cui non ci sia il menu
> Modifica o comunque ci sia il menu Modifica in cui i comandi di
> Seleziona record ed Elimina record non si trovino all'ottava ed alla
> sesta posizione.
---------------
grazie Roberto... sei sato molto esauriente e preciso....
quindi per ora seguo il tuo consiglio ed il tuo codice...
Ciao...a presto....


title: Pulsante Eliminazione in maschera...

text:
Ho inserito il codice come dal post (copia incolla) ma su click mi dà
messaggio errore di sintassi ed esce il debugger che evidenzia la riga
Eliminarecord = .......ecc.
per cui non mi funziona, ho sbagliato qualcosa oppure è errato il post?
Grazie.


title: Pulsante Eliminazione in maschera...

text:
On Mon, 24 Mar 2003 13:02:06 +0100, "Pino" <
pi...@serenacom.net
>
wrote:

EliminaRecord = MsgBox(.......)
tutto su una riga


title: [OT] Per i Sig. Romani de Roma!

text:
Sabato 14 Maggio porterò mia moglie a Roma per una toccata e fuga.
Atterreremo alle 9:20 a Ciampino e docrò tornarci per le 16:15
La mia idea era quella di *donarle* un aperitivo fuori porta, ma a questo
punti vi chiedo:
Consideramndo che mi servià un ora per andare e tornare dall'areoporto alla
stazione Roma Termini e che avrò quindi un tempo utile di 4h circa ...
...cosa mi consigliate di fare? !!!
Vorrei stare in zona P.za di Spagna\Fontana di Trevi.
Ho sentito parlare di Caffe del Greco e di una tecoteca ... attendo
riscontri ... laddove possibile!!!
Grazie e scusate per l'OT!
--
strano...mavero


title: [OT] Per i Sig. Romani de Roma!

author: MA

text:
strano...mavero wrote:
> Sabato 14 Maggio porterò mia moglie a Roma per una toccata e fuga.
Scusami se mi permetto, ma tu per fare una toccata a tua moglie vai fino a
Roma???
in che paesino puritano abiti???
> Atterreremo alle 9:20 a Ciampino e docrò tornarci per le 16:15
> La mia idea era quella di *donarle* un aperitivo fuori porta, ma a
> questo punti vi chiedo:
>
> Consideramndo che mi servià un ora per andare e tornare
> dall'areoporto alla stazione Roma Termini e che avrò quindi un tempo
> utile di 4h circa ... ...cosa mi consigliate di fare? !!!
>
> Vorrei stare in zona P.za di Spagna\Fontana di Trevi.
> Ho sentito parlare di Caffe del Greco e di una tecoteca ... attendo
> riscontri ... laddove possibile!!!
>
> Grazie e scusate per l'OT!
Roma non è da prendere a bignami, èda visitare tutta, questa deve essere
solo la prima di diverse tappe per vedertela tutta.
Spero che tu prenda nel verso giusto la mia battuta.
;-P
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: [OT] Per i Sig. Romani de Roma!

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:fXrbe.4450$TR5...@news.edisontel.com...

;o)
Tranquillo,
comunque nel lato ironico della cosa avresti anche le tue ragioni!
per questa micro fuga, lasceremo il nostro cucciolo di 18 mesi ai nonni ...
capirai che sarà davvero una sorta di fuga amorosa!!!
Roma è nei nostri sogni nel cassetto insieme a Capri e a molti altri luoghi,
ma tutto avverrà più in la, quando determinate situazioni di svariato genere
lo permetteranno.
Chiedevo lumi in quanto, trattandosi di una sosta così fugace, anche le
migliori guide faticano a darmi luce!
Un *puritano* saluto a tutti!!!!!!!
--
strano...mavero


title: [OT] Per i Sig. Romani de Roma!

author: ciroteo

text:
> > Sabato 14 Maggio porterò mia moglie a Roma per una toccata e fuga.
>
> Scusami se mi permetto, ma tu per fare una toccata a tua moglie vai fino a
> Roma???
> in che paesino puritano abiti???
>
>
> > Atterreremo alle 9:20 a Ciampino e docrò tornarci per le 16:15
> > La mia idea era quella di *donarle* un aperitivo fuori porta, ma a
> > questo punti vi chiedo:
> >
> > Consideramndo che mi servià un ora per andare e tornare
> > dall'areoporto alla stazione Roma Termini e che avrò quindi un tempo
> > utile di 4h circa ... ...cosa mi consigliate di fare? !!!
> >
> > Vorrei stare in zona P.za di Spagna\Fontana di Trevi.
> > Ho sentito parlare di Caffe del Greco e di una tecoteca ... attendo
> > riscontri ... laddove possibile!!!
> >
> > Grazie e scusate per l'OT!
>
> Roma non è da prendere a bignami, èda visitare tutta, questa deve essere
> solo la prima di diverse tappe per vedertela tutta.
>
> Spero che tu prenda nel verso giusto la mia battuta.
> ;-P
>
MA ... spera che anche la moglie prenda la battuta nel verso giusto ...
per una toccatina deve farsi 400km andata e 400km ritorno
:-(


title: [OT] Per i Sig. Romani de Roma!

author: Sergio MAZZA

text:

Posso aggiungere P.zza della Repubblica che è stata da poco ripulita e da li, con un autobus puoi scendere a vedere il Milite Ignoto
(la macchina da scrivere)/P.zza Venezia e via dei fori imperiali. Con la stessa facilità riprendi il bus e ritorni a Termini.
Oppure arrivare al Phanteon (Piazza della Rotonda) e lì di aperitivi ne trovi.
Non posso suggerirti nessun locale perché sono fuori portata delle mie tasche...
Ciao e buona... toccata.
--
Sergio MAZZA


title: [OT] Per i Sig. Romani de Roma!

text:
[cut]
sono un pò di + i km!!!
--
strano...mavero


title: [OT] Per i Sig. Romani de Roma!

text:
"strano...mavero" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:426e4903$1...@x-privat.org...
> Sabato 14 Maggio porterò mia moglie a Roma per una toccata e fuga.
> Atterreremo alle 9:20 a Ciampino e docrò tornarci per le 16:15
> La mia idea era quella di *donarle* un aperitivo fuori porta, ma a questo
> punti vi chiedo:
>
> Consideramndo che mi servià un ora per andare e tornare dall'areoporto
alla
> stazione Roma Termini e che avrò quindi un tempo utile di 4h circa ...
> ...cosa mi consigliate di fare? !!!
>
> Vorrei stare in zona P.za di Spagna\Fontana di Trevi.
Il mezzo pubblico che in maniera più diretta ti porta dalla Stazione Termini
a P.za di Spagna è la metropolitana (tre fermate), mentre se vuoi essere più
vicino a Fontana di Trevi potresti prendere l'autobus 61 da P.zza dell
Repubblica scendendo alla fermata di P.zza San Silvestro.
> Ho sentito parlare di Caffe del Greco
Penso che tu stia parlando del Caffé Greco che si trova in via Condotti, una
via che va da P.zza di Spagna a largo Goldoni (via del Corso)
> e di una tecoteca ... attendo
Ammetto che non ho la più pallida idea di cosa sia la "tecoteca".
> riscontri ... laddove possibile!!!
Visto che a metà maggio di solito a Roma il tempo è buono, se non ti mette
paura camminare ti consiglio questo itinerario:
1) dalla Stazione Termini prendi la metropolitana e scendi a P.zza Barberini
(due fermate di metro)
2) da P.zza Barberini potresti percorrere a piedi tutta via Veneto dove
anche lì troveresti buoni bar dove prendere il tuo *aperitivo fuori porta*
(Caffé de Paris, Doney ecc).
3) Arrivato in cima a via Veneto vai a sinistra e fiancheggiando le mura
percorri tutta via di Porta Pinciana e parte di via Francesco Crispi sino ad
incrociare Via Sistina.
4) Gira a destra su via Sistina e dopo un paio di cento metri ti troverai a
P.zza Trinità dei Monti
5) Da P.zza Trinità dei Monti scendendo la famosa Scalinata di Trinità dei
Monti arriverai a P.zza di Spagna, ovvero a via Condotti dove troverai il
Caffé Greco.
6) Da P.zza di Spagna attraverso via dei Due Macelli incrocerai via del
Tritone
7) Gira a destra su via del Tritone e dopo averla percorsa per un paio di
cento metri, se vai verso sinistra ti troverai a Fontana di Trevi.
Da uno qualsiasi di questi posti con un unico mezzo pubblico (metro o bus)
riraggiungerai velocemente la Stazione Termini.
In 4/5 ore ce la dovresti fare tranquillamente a fare questo minitour; se
poi vuoi accorciare elimina la camminata su via Veneto che fra l'altro è un
po' in salita): da P.zza Barberini (dove sarai arrivato come indicato al
punto 1) imbocca direttamente via Sistina e vai sino a P.zza Trinità dei
Monti, dopo di che riprendi il tour dal punto 5.
Se vuoi accorciare ulteriormente il percorso, prendi al metropolitana dalla
Stazione Termini sino a P.zza di Spagna e poi fai i punti 6 e 7 del tour di
cui sopra; a questo punto però penso che ti avanzerà un bel po' di tempo
delle tue 4/5 ore che hai a disposizione.
>
> Grazie e scusate per l'OT!
> --
> strano...mavero
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: [OT] Per i Sig. Romani de Roma!

text:
[cut]
tecoteca: definisco cosě le sale da the
Ottimo percorso!
Grazie 1000! (se capiti nei paraggi mi sdebiterň volentieri!)
Saluti,
--
strano...mavero


title: [OT] Per i Sig. Romani de Roma!

text:
> Visto che a metà maggio di solito a Roma il tempo è buono, se non ti
> mette paura camminare ti consiglio questo itinerario:
> 1) dalla Stazione Termini prendi la metropolitana e scendi a P.zza
> Barberini (due fermate di metro)
> 2) da P.zza Barberini potresti percorrere a piedi tutta via Veneto
> dove anche lì troveresti buoni bar dove prendere il tuo *aperitivo
> fuori porta* (Caffé de Paris, Doney ecc).
> 3) Arrivato in cima a via Veneto vai a sinistra e fiancheggiando le
> mura percorri tutta via di Porta Pinciana e parte di via Francesco
> Crispi sino ad incrociare Via Sistina.
> 4) Gira a destra su via Sistina e dopo un paio di cento metri ti
> troverai a P.zza Trinità dei Monti
> 5) Da P.zza Trinità dei Monti scendendo la famosa Scalinata di
> Trinità dei Monti arriverai a P.zza di Spagna, ovvero a via Condotti
> dove troverai il Caffé Greco.
> 6) Da P.zza di Spagna attraverso via dei Due Macelli incrocerai via
> del Tritone
> 7) Gira a destra su via del Tritone e dopo averla percorsa per un
> paio di cento metri, se vai verso sinistra ti troverai a Fontana di
> Trevi.
Se poi ti rimane del tempo, vai a vedere il Monumento dei caduti a ...
Trigoria!!!



title: [OT] Per i Sig. Romani de Roma!

text:
"strano...mavero" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:426e5...@x-privat.org...
> [cut]
> tecoteca: definisco così le sale da the
Non si finisce mai di imparare. :)
E' per questo che il vecchio non voleva morire.
Comunque sia il Caffé Greco (più famoso e carico di storia degli altri due)
che il Caffé de Paris che Doney sono "tecoteche" che ti rimarranno in mente
anche per il conto. ;-)
>
> Ottimo percorso!
> Grazie 1000! (se capiti nei paraggi mi sdebiterò volentieri!)
Appena il tempo migliorerà i miei fine settimana saranno tutti umbri; vorrà
dire che rimanderemo il tutto durante una tua venuta a Roma invernale o
durante giornate feriali.
> Saluti,
Ciao e una piacevole mini "vacanza romana".



title: [OT] Per i Sig. Romani de Roma!

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:hftbe.4471$TR5...@news.edisontel.com...
[CUT]
>
>
> Se poi ti rimane del tempo, vai a vedere il Monumento dei caduti a ...
> Trigoria!!!
Ed allora deve sbrigarsi, altrimenti rischia di non poterlo vedere in quanto
potrebbe essere necessario venderlo per sistemare i noti problemi finanziari
della squadra. :-(
> _ _
> Ciao
> MAssimiliano Amendola
--



title: [OT] Per i Sig. Romani de Roma!

text:
MA wrote:
>
> Se poi ti rimane del tempo, vai a vedere il Monumento dei caduti a ...
> Trigoria!!!
Lassa stà che caschéno sempre in piedi quelli!
Ciao.
--
Sergio MAZZA


title: [OT] Per i Sig. Romani de Roma!

author: Antonio Biso

text:
"strano...mavero" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:426e4903$1...@x-privat.org...
> Sabato 14 Maggio porterò mia moglie a Roma per una toccata e fuga.
> Atterreremo alle 9:20 a Ciampino e docrò tornarci per le 16:15
> La mia idea era quella di *donarle* un aperitivo fuori porta, ma a questo
> punti vi chiedo:
>
> Consideramndo che mi servià un ora per andare e tornare dall'areoporto
alla
> stazione Roma Termini e che avrò quindi un tempo utile di 4h circa ...
> ...cosa mi consigliate di fare? !!!
BAR ITALIA AR VIALE, A CIVITAVECCHIA!!!
OVVIO...
Antonio


title: [OT] Per i Sig. Romani de Roma!

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:U7Gde.96713$zZ1.2...@twister1.libero.it...

ovvio...non troppo (per me ... OVVIAMENTE!!!!)! cmq terrò presente! Grazie.
--
strano...mavero


title: [DISC] Query oppure Codice nelle form

author: bande

text:
Ciao a tutti,
penso se ne sia gia' parlato, comunque, volevo tornare sulla diatriba se sia
preferibile abbondare in query, con il problema di trovare un nome
significativo che ne permetta la facile identificazione, o se sia meglio
optare per istruzioni sql (con recordset o querydef) specifiche all'interno
di maschere o
in moduli appropriati.
Sviluppando con un'altra persona lo stesso database mi e' stato consigliato
di non utilizzare un numero eccessivo di query ma di far uso di codice
circonscritto ad una maschera ed in alcuni casi di funzioni in cui passare
dei parametri che poi utilizzero' in una querydef con l'oggetto Parameter.
Che ne pensate? Oltre alle possibili differenze prestazionali, ad esempio,
mi sembrava di aver letto che nell'ipotesi di una futura migrazione verso
Sql Server erano preferibili tante query da depositare ed eseguite sul
server in modo da comportare il passaggio in rete dei soli risultati.
Ogni consiglio e' ben accetto
Ciao
Andrea


title: query per estrazione data max

author: Daniele

text:
          E' possibile con una query (o altro) estrarre da una tabella il valore
massimo (Max) di una serie di numeri minori al valore X (es. 100)
Grazie anticipatamente
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: query per estrazione data max

author: Cinzia

text:
"Daniele" <
snda...@libero.it
> ha scritto nel messaggio
news:81Z73Z220Z128Y1...@usenet.libero.it...
>
>           E' possibile con una query (o altro) estrarre da una tabella il
valore
> massimo (Max) di una serie di numeri minori al valore X (es. 100)
>
> Grazie anticipatamente
>
Ciao Daniele,
Select MAX(Numero) as NumeroMassimo From Tabella Where Numero < 100
Cinzia


title: Visualizzazione descrizione su pulsanti al passaggio del mouse

author: Michele (Giò)

text:
Buonasera a tutti.
Su spunto di Alessandro Baraldi,  ho impostato tutte le proprietà HyperlinkSubAddress dei
CommandButtons a " ", in maniera da far comparire il dito (che figata!)
Inoltre, alla proprietà ControlTipText, ho inserito una breve descrizione sull'azione di ogni
pulsante.
Ho notato che i pulsanti che hanno già una scritta o un'immagine al loro interno, ritardano nel far
comparire la descrizione, ma questo tempo varia da maschera a maschera. Inoltre il tempo diventa
cortissimo se il controllo è già selezionato. Su altri è impossibile visualizzare il commento se non
selezionando prima o con Tab, o con il mouse stesso.
Tale comportamento si può correggere?
--
---------------------------
Michele (Giò)
joyl...@alice.it


author: VedoTondo

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:45a41291$0$22392$4faf...@reader2.news.tin.it...
> Buonasera a tutti.
>
> Su spunto di Alessandro Baraldi,  ho impostato tutte le proprietà
> HyperlinkSubAddress dei CommandButtons a " ", in maniera da far comparire
> il dito (che figata!)
>
> Inoltre, alla proprietà ControlTipText, ho inserito una breve descrizione
> sull'azione di ogni pulsante.
Se ci metti anche un bel tuopulsante.setfocus quando ci passi sopra diventa
ancora più carino.
Saluti Andrea


title: Report: Somma record totali in un mese ed in un anno

author: Rita

text:
Un cordiale saluto a tutti unitamente agli auguri più sinceri per queste
festività.
Ho problemi anche in questo giorno dell'anno!
Dopo l'abbondante pappatoria, mi sono rimessa al lavoro con Access.
Ho la necessità di ottenere un report che riporti il totale degli interventi
ambulatoriali per mese e per anno.
Per il momento ho soltanto il totale degli interventi fino alla data di
sistema.
Grazie
Ciao
Rita


author: Karl Donaubauer

text:

Una soluzione sarebbe p.e.
Ti fai una query coi campi:
GrpMesi:Format([TuoCampoData];"aaaamm")
GrpAnni: Year([TuoCampoData])
Poi accendi le funzioni della query e scegli Ragruppamento
per GrpMesi e GrpAnni e Somma o Count (nella versione italiana?)
per il campo coi numeri d'interventi o nome d'interventi che
come risultato ti dà la somma dei interventi per mese.
Nel report puoi fare un ragruppamento con GrpAnni e
nel pie del gruppo usi una casella di testo con:
=Sum([CampoNellaQueryConSommeD'InterventiPerMese])
--
HTH
Karl
*********
Access-FAQ
http://www.donkarl.com/it


author: Alessandro Cara

text:
> nel pie del gruppo usi una casella di testo con:
torta si dice "torta" Karl!
La torta si usa nei compleanni. A Natale si usa il "panettone"!
;<)
nel "torta" del gruppo usi una casella di testo con:
mahhhhhh'!?!?!?!
;<)
--
a.cara


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:337mk5F...@individual.net...

Grazie mille Karl
provo subito
ciao Rita


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:337mk5F...@individual.net...

Ciao Karl (o chi mi risponderà), ho eseguito tutto quello che mi hai
indicato, però nella query non so come impostare la somma per avere il
totale dei record divisi per anni.
Grazie Ciao
Rita


text:

Ah, finalmente un soggetto di passione:
Non trovo per nulla interessanti i pie americani.
Invece amo le torte con crema, marzapane ecc. come le
facciamo qui in Austria. Come sono europeo mi piace anche
qualche torta italiana. La mia favorita assoluta è la torta al
limone del Caffè degli Specchi a Trieste.
Beh, in questi giorni festivi mi rimpinzano coi panettoni e pandori.
Va bene finché non c'è una crema dentro perché:
Come mai in quasi tutti panettoni (o qualsiasi altri dolci imballati
dall'Italia) con una crema (soppratutto ma non solo questa di
cioccolata) si trova molto alcol che rovina complettamente il
sapore. A noi sembra una bestialità che cresce ogni anno.
Siamo veramente disperati. Terminate questa pazzia!
O come dice la mia fidanzata: L'alcol si beve non si mangia!
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
Rita wrote:
> "Karl Donaubauer ha scritto:
>>> Ho la necessità di ottenere un report che riporti il totale degli
>>> interventi ambulatoriali per mese e per anno.
>>> Per il momento ho soltanto il totale degli interventi fino alla data
>>> di sistema.
>>
>> Una soluzione sarebbe p.e.
>>
>> Ti fai una query coi campi:
>> GrpMesi:Format([TuoCampoData];"aaaamm")
>> GrpAnni: Year([TuoCampoData])
>>
>> Poi accendi le funzioni della query e scegli Ragruppamento
>> per GrpMesi e GrpAnni e Somma o Count (nella versione italiana?)
>> per il campo coi numeri d'interventi o nome d'interventi che
>> come risultato ti dà la somma dei interventi per mese.
>>
>> Nel report puoi fare un ragruppamento con GrpAnni e
>> nel pie del gruppo usi una casella di testo con:
>> =Sum([CampoNellaQueryConSommeD'InterventiPerMese])
>> ...
> Ciao Karl (o chi mi risponderà), ho eseguito tutto quello che mi hai
> indicato, però nella query non so come impostare la somma per
> avere il totale dei record divisi per anni.
Col metodo descritto nella query non c'è bisogno della somma
per anni. Invece bastano le somme per mesi. Le somme per
anni fai dopo col ragruppamento nel report come descritto nel
ultimo paragrafo del mio post. (dove "pie" --> "piè" ;-)



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:338ffgF...@individual.net...

Ok Karl, grazie ancora.
Ciao Rita e (con o senza liquore) occhio ...alla bilancia! Ehehehe


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:338ffgF...@individual.net...

Ok Karl, tutto a posto, non funzionava perchè nell'apertura del report era
rimasta inserita una routine con GroupOn e non me ne ricordavo più.
Infatti avevo risolto da sola il problema dei mesi, ma per gli anni sono
rimasta incastrata.
Utilizzando i tuoi consigli ho cancellato la routine ed ho fatto tutto
d'accapo, anzi ho visto che basta inserire nel piè del gruppo di GrpMesi e
GrpAnni del report soltanto l'espressione = Conteggio (*).
Ora funziona tutto benissimo.
Grazie
Ciao Rita
P.S.: Ora ho il problema delle tabelle, ma penso che sia il mio sistema un
pò sballato, dovrò formattare tutto.


author: fidirico

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:338ev3F...@individual.net...
> Alessandro Cara wrote:
[CUT]
> Come mai in quasi tutti panettoni (o qualsiasi altri dolci imballati
> dall'Italia) con una crema (soppratutto ma non solo questa di
> cioccolata) si trova molto alcol che rovina complettamente il
> sapore. A noi sembra una bestialità che cresce ogni anno.
> Siamo veramente disperati. Terminate questa pazzia!
>
> O come dice la mia fidanzata: L'alcol si beve non si mangia!
Quello che dici è sacrosanto ed anch'io non ne posso più! Io proibirei il commercio
di alchermes, rum ed altri stomachevoli intrugli. Secondo me l'abuso di alcool serve
solo a mascherare l'incapacità di sedicenti pasticcieri.
--
Ciao
Galliano.


title: Casella combinata

author: Angelo

text:
Ciao a tutto il NG,
ho creato una maschera sulla quale ho inserito una casella di testo non
associata, un pulsante di comando e una casella combinata. Quest'ultima ha
come origine dati una query. Il fine di tutto ciò è quello di ricercare
valori inseriti nella casella di testo a fronte dell'evento click sul
pulsante di comando e conseguente visualizzazione dei dati nella casella
combinata.
Tutto funziona a perfezione.
Solo che, quando apro la maschera, mi ritrovo tutti i records della query
d'origine. Vorrei invece che tale casella fosse inizialmente vuota!
E' possibile evitare (all'apertura) la visibilità di tali dati, limitando la
visione solo dei valori d'interesse successivamente ricercati?
Ciao
Angelo


title: Casella combinata

text:

lasciare rowsource vuoto e impostarlo quando serve
--
a.cara
Togli qualcosa dall'email


title: Casella combinata

text:
> lasciare rowsource vuoto e impostarlo quando serve
> --
> a.cara
> Togli qualcosa dall'email
Credo di non aver ben capito! Qualcuno ha soluzioni alternative?
Grazie
Angelo


title: DateAdd: problema con codice e con cifre anno

author: M. Rick

text:
Avrei un problema con la funzione DateAdd
Ho bisogno che, inserendo una data, mi venga calcolata la data dopo 6 anni.
Ho un campo Data1 (iniziale) e Data2 (finale) in una tabella.
Tramite VB ho inserito questo codice nella Proprietà>DopoAggiornamento di
Data1:
    Dim Data1 As Date
    Dim Data2 As Date
    Me.Data1 = Inizio
    Fine = DateAdd ("yyyy", 6, Inizio)
    Me.Data2 = Fine
Inserendo la data in Data1 e premendo TAB, succede che Data1 mi diventa
0.0.00 e Data2 mi risulta qualcosa come 10.01.1905.
La prova l'ho fatta inserendo come Data1 = 12.12.2000, e mi sarei aspettato
Data2 = 12.12.2006 (o giù di lì), e invece niente.
Inoltre, e non ho idea di come risolvere il problema, il campo data cosidera
l'anno solo con 2 cifre finali, mentre a me ne servono 4.
Grazie, ciao.
Andrea


author: Alberto S.

text:
On Thu, 24 Jul 2003 16:27:01 GMT, "M. Rick" <
now...@libero.it
> wrote:
>Avrei un problema con la funzione DateAdd
>Ho bisogno che, inserendo una data, mi venga calcolata la data dopo 6 anni.
>Ho un campo Data1 (iniziale) e Data2 (finale) in una tabella.
>Tramite VB ho inserito questo codice nella Proprietà>DopoAggiornamento di
>Data1:
>
>    Dim Data1 As Date
>    Dim Data2 As Date
non  Me.Data1 = Inizio
ma   Inizio = Me.Data1
>    Fine = DateAdd ("yyyy", 6, Inizio)
>    Me.Data2 = Fine
>
>Inserendo la data in Data1 e premendo TAB, succede che Data1 mi diventa
>0.0.00 e Data2 mi risulta qualcosa come 10.01.1905.
>La prova l'ho fatta inserendo come Data1 = 12.12.2000, e mi sarei aspettato
>Data2 = 12.12.2006 (o giù di lì), e invece niente.
>Inoltre, e non ho idea di come risolvere il problema, il campo data cosidera
>l'anno solo con 2 cifre finali, mentre a me ne servono 4.
Da quello che ho capito stai lavorando in una maschera: quindi non di
campi si tratta ma di caselle di testo. Comunque deve solo impostare
correttamente la proprietà 'Formato' della casella di testo
(gg/mm/aaaa)
>Grazie, ciao.
>Andrea
Ciao
--
Alberto
No alle guerre


text:
Proverò con i suggerimenti e le correzioni.
Grazie
Andrea


text:
Ha funzionato, però mettendo come formato della casella di testo relativa
alla data calcolata con DateAdd gg/mm/aaaa non mi esce l'anno a 4 cifre
(nella casella iniziale invece è tutto a posto)
Ho provato anche a creare un pulsante, alla cui pressione si effettua una
altra operazione con DateAdd, il cui scopo sarebbe quella di aggiungere 1
anno alla data attuale, ma che a me interessa solo la visualizzazione
dell'anno. Ho provato con:
DateAdd ("yyyy", 1, Now), ma, giustamente, mi restituisce la data attuale
aumentata di un anno. Pensavo che forse c'entra la funzione Year, ma non ho
trovato come usarla. Dovrei dire al sistema di prendere l'anno attuale,
aumentarlo di 1 e magari premettere al valore calcolato la stringa "31/12/",
ma non so come fare.
Ciao
Andrea


text:
>Ha funzionato, però mettendo come formato della casella di testo relativa
>alla data calcolata con DateAdd gg/mm/aaaa non mi esce l'anno a 4 cifre
>(nella casella iniziale invece è tutto a posto)
Ho appena fatto una prova su un db nuovo fatto apposta
in una maschera due caselle di testo (txtData1 e txtData2, entrambe
con formato 'gg/mm/aaaa'
a fronte dell'evento dopo aggiornamento di txtData1 ho messo il
seguente codice
Private Sub txtData1_AfterUpdate()
    Me.txtData2 = DateAdd("yyyy", 6, Me.txtData1)
End Sub
e a me funziona regolarmente, nel senso che esegue correttamente il
calcolo e visualizza l'anno a quattro cifre in entrambe le caselle
se non riesci ad andarci in fondo prova anche tu a fare una maschera
nuova come la mia e, se funziona, a studiare le differenze: se hai
bisogno comunque rifatti sentire
>Ho provato anche a creare un pulsante, alla cui pressione si effettua una
>altra operazione con DateAdd, il cui scopo sarebbe quella di aggiungere 1
>anno alla data attuale, ma che a me interessa solo la visualizzazione
>dell'anno. Ho provato con:
>DateAdd ("yyyy", 1, Now), ma, giustamente, mi restituisce la data attuale
>aumentata di un anno. Pensavo che forse c'entra la funzione Year, ma non ho
>trovato come usarla. Dovrei dire al sistema di prendere l'anno attuale,
>aumentarlo di 1 e magari premettere al valore calcolato la stringa "31/12/",
>ma non so come fare.
Se devi viualizzare solo l'anno corrente maggiorato di 1 il codice è
Me.MiaCasellaDiTesto = Year(Now) + 1
Se invece vuoi il 31 dicembre del prossimo anno
Me.MiaCasellaDiTesto = DateSerial(Year(Now) + 1, 12, 31)
Ovviamente nel primo caso il formato della casella potrà essere
lasciato in bianco, nel secondo sarà gg/mm/aaaa.
Trattandosi di un dato che non varierà nel corso della sessione di
lavoro (salvo che tu non preveda di essere alla tastiera a mezzanotte
dell'ultimo dell'anno), ti consiglio di mettere l'istruzione a fronte
dell'evento su apertura della maschera.
>Ciao



text:
>Se devi viualizzare solo l'anno corrente maggiorato di 1 il codice è
>Me.MiaCasellaDiTesto = Year(Now) + 1
Io avevo provato a discriminare l'anno in Now() usando qusto codice:
MiaVariabile = DateAdd("yyyy", 1, Year(Now))
però mi dava errore proprio nella discriminazione (adesso non ricordo il
messaggio, ci lavoro in ufficio).
Sai, a volta penso che la guida in linea non dia molti aiuti, nel senso che,
se conosci già i comandi, ti da dei suggerimenti, ma se non hai idea di come
fare una cosa (per esempio io non aveva la minima idea di dover usare
DateSerial) non ti è di aiuto.
Anche la manualistica cartacea da parte terzi non è di molto aiuto.
Mi toglieresti una curiosità: in uno dei primi post mi hai fatto cambiare
l'ordine di Me.MioElemento e la variabile assegnata; perchè è così
importante questo ordine (variando l'ordine come suggerivi funzionava)? non
è comunque una uguaglianza?
Grazie per i suggerimenti
Andrea


text:
>>Se devi viualizzare solo l'anno corrente maggiorato di 1 il codice è
>>Me.MiaCasellaDiTesto = Year(Now) + 1
>
>Io avevo provato a discriminare l'anno in Now() usando qusto codice:
>
>MiaVariabile = DateAdd("yyyy", 1, Year(Now))
>
>però mi dava errore proprio nella discriminazione (adesso non ricordo il
>messaggio, ci lavoro in ufficio).
Deduco che ora funziona. Bene (sempre se ho capito giusto)
>Sai, a volta penso che la guida in linea non dia molti aiuti, nel senso che,
>se conosci già i comandi, ti da dei suggerimenti, ma se non hai idea di come
>fare una cosa (per esempio io non aveva la minima idea di dover usare
>DateSerial) non ti è di aiuto.
>Anche la manualistica cartacea da parte terzi non è di molto aiuto.
La materia è molto vasta. Io credo che bisogni prima studiare le
nozioni di base. La guida in linea è un ottimo manuale di riferimento
quando si ha acquisito una minima conoscenza e la capacità di
comprendere la terminologia e il "linguaggio" che usano i ragazzi
della MS. Sono d'accordo che senza le basi si rischia di capirci ben
poco. Credo comunque che tutto stia a cominciare. Se hai la
possibilità di seguire regolarmente il newsgroup vedrai che 'passano'
casi complicati ma anche casi abbastanza semplici, nei quali vengono
spesso discusse le principali funzioni.
>Mi toglieresti una curiosità: in uno dei primi post mi hai fatto cambiare
>l'ordine di Me.MioElemento e la variabile assegnata; perchè è così
>importante questo ordine (variando l'ordine come suggerivi funzionava)? non
>è comunque una uguaglianza?
Dim Data1 As Date
Dim Data2 As Date
** qui dichiari le variabili, ok
Me.Data1 = Inizio
** qui assegni alla casella di testo Data1 il valore della variabile
'Inizio'. Dallo spezzone di codice che hai scritto non si capisce che
valore aveva la variabile 'Inizio'. Sicuramente in questo modo andavi
a variare la data che stava in Data1, cioè la data sulla quale volevi
fare il tuo calcolo.
Inizio = Me.Data1
** così invece assegni ad 'Inizio' il valore di Data1 e su 'Inizio'
così valorizzato esegui il calcolo.
Fine = DateAdd ("yyyy", 6, Inizio)
Me.Data2 = Fine
** Il resto è ok. Comunque il tutto poteva più semplicemente essere
svolto con
  Me.Data2 = DateAdd("yyyy", 6, Me.Data1)
come ti ho suggerito ieri.
Tra l'altro tu avevi dichiarato 'Data1' e 'Data2', cosa non necessaria
perché si trattava non di variabili ma di caselle di testo. Invece non
avevi dichiarato 'Inizio' e 'Fine'
  Dim Inizio as Date
  Dim Fine as Date
... ma qui forse ci spingiamo un po' troppo oltre?
>Grazie per i suggerimenti
di niente, ovviamente
>Andrea
Ciao a te.



text:
>La materia è molto vasta
Questo è sicuro, però più vado avanti, più mi diverto a fare cose.  Il bello
è che non devo pensare a cosa fare, in quanto lavorando in un ufficio ti
vengono in mente sempre dei modi per facilitarti il lavoro (o almeno spero)
e quindi inizi a smanettare. Riuscire poi ad ottenere ciò che ti serve,
questo è da vedere, però non si sa mai. Adesso per esempio sto cecando di
risolvera un preoblema collegato a questo che mi hai aiutato a risolvere,
però dal NG ancora nessuna nuova (il posto Problema complesso etc etc), ma
contemporaneamente effettua varie prove autonomamente.
Per quanto riguarda il problema delle date, effettivamente il tuo
suggerimento ha risolto il problema in modo molto egregio (o meglio,
ottimanente), e poi ho trovato perchè non cambiava il formato alla data
(anno a 2 e non a 4 cifre): nella tabella di riferimento la seconda data era
impostata come testo (avevo dimenticato di variarla in data).
Grazie ancora, ciao e a presto.
Andrea


text:
[cut]
>Grazie ancora, ciao e a presto.
>Andrea
Buon lavoro (e buon divertimento) ... anche buone ferie ovviamente
Ciao



title: Non ricevo e-mail

author: Giuseppe

text:
salve
l' ultimo messaggio scaricato è del 28/11/00 12.43
successivi non riesco ad averli.
Ho verificato le Opzioni di Outlook Express, sembra tutto ok.
Ad oggi a collegamento attivato non ho avuto difficoltà.
C'è qualche problema da qualche parte che non riesco a capire o trovare ?
giuseppe


title: Numeri incrementali

author: pls

text:
Un saluto a tutti, vi chiedo un aiuto: ho inserito dei dati in una maschera
di access per poi poter esportarli in formato testo, di questi dati da
esportare mi serve anche il numero progressivo che aumenta ad ogni record
inserito, quindi il primo record oltre al nome e cognome avrà nel campo
numero progressivo l'1, il secondo avrà il 2 e via dicendo, avevo risolto la
cosa semplicemente sfruttando il valore del campo Id contatore che si
incrementa proprio ad ogni nuovo record inserito.
Il problema si presenta quando devo cancellare i record per inserirne di
nuovi daccapo, purtroppo il campo contatore non riparte da 1 ma ricomincia
dal numero dell'ultimo record inserito in precedenza, come posso fare in
modo di azzerare il campo contatore per farlo ripartire da 1 ogni volta che
voglio?
Altrimenti mi servirebbe un campo calcolato che si incrementa ad ogni record
inserito ma non riesco a farlo, chi mi aiuta?
Grazie ancora, ciao.
Ciro


title: Numeri incrementali

author: Maurizio Borrelli

text:
> "pls" news:uNGq9.31833$
RO.7...@twister1.libero.it
:

    Ti segnalo un 3d aperto sull'argomento:
From: "Alessandro"
Newsgroups: it.comp.appl.access
Subject: Numerare i record
Date: Sun, 13 Oct 2002 09:10:57 GMT
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Numeri incrementali

text:
il campo non farlo contatore. fai una funzione in un modulo che
ripristina il contatore dopo averlo azzerato ogni volta che cancelli un
record. ID = campo tabella con n. progressivo Dim Cont as long Dim Sql
as string Dim db as database private sub Form_Load()	  'questo è il
form load della maschera in questione	    Set db=currentdb End Sub
Private Function Azzera_Contatore() 'questa funzione la richiami quando
cancelli un record Dim rs as recordset	    sql="SELECT * FROM Tabella"
set rs=db.openrecordset(Sql) do while rs.eof=false rs.edit rs!ID=0
rs.update rs.movenext loop Ripristina_Contatore      End Function
private function Ripristina_Contatore 'questa la usi per ripristinare il
contatore Cont=0 sql="SELECT * FROM Tabella" set
rs=db.openrecordset(Sql) do while rs.eof=false cont=cont+1 rs.edit
rs!ID=Cont rs.update rs.movenext loop End Function  Ciao Mentos


title: Funzione DLookup

author: Fabrizio Domiziani

text:
Ho una maschera che visualizza una per una
le singole missioni dei dipendenti associata appunto
ad una tabella Missioni.
In essa, allo scopo di mostrare anche i dettagli
dei dipendenti (non solo Matricola ma anche Nome,
Cognome, ecc..) ho aggiunto una serie di caselle di testo
non associate il cui contenuto č il risultato di una routine
legata all'evento Su corrente che utilizza la funzione
DLookup in questo modo:
VediNome = DLookup("Nome", "Dipendenti", "Matricola=" _
& Forms!Missioni!Matricola)
Tutto va bene ma quando cerco di creare un nuovo
record da questa maschera mi appare il messaggio
Errore di runtime '3075':
Errore di sintassi (operatore mancante) nell'espressione
della query 'Matricola='.
Come posso impostare questa maschera in modo che
possa anche creare nuovi records?
Grazie mille per ogni suggerimento
--
Fabrizio Domiziani
dom...@tin.it


title: Funzione DLookup

author: Roberto in campagna

text:
Fabrizio Domiziani <
dom...@tin.it
> wrote in message
fgd9Vkv3$GA....@news1.galactica.it...
> Ho una maschera che visualizza una per una
> le singole missioni dei dipendenti associata appunto
> ad una tabella Missioni.
> In essa, allo scopo di mostrare anche i dettagli
> dei dipendenti (non solo Matricola ma anche Nome,
> Cognome, ecc..) ho aggiunto una serie di caselle di testo
> non associate il cui contenuto è il risultato di una routine
> legata all'evento Su corrente che utilizza la funzione
> DLookup in questo modo:
>
> VediNome = DLookup("Nome", "Dipendenti", "Matricola=" _
> & Forms!Missioni!Matricola)
>
> Tutto va bene ma quando cerco di creare un nuovo
> record da questa maschera mi appare il messaggio
>
> Errore di runtime '3075':
> Errore di sintassi (operatore mancante) nell'espressione
> della query 'Matricola='.
>
> Come posso impostare questa maschera in modo che
> possa anche creare nuovi records?
>
> Grazie mille per ogni suggerimento
>
>
>
> --
> Fabrizio Domiziani
Ho provato a costruirmi un esempio basato sulla tua domanda, a me funziona
tutto, anche l'inserimento di un nuovo record tramite la maschera Missioni.
Magari ci sono problemi di sinonimi nei nomi dei campi; prova a scrivere
così la tua Lookup:
    Me![VediNome] = DLookup("[Nome]", "Dipendenti", "[Matricola] =" &
[Forms]![Missioni]![Matricola])
Comunque, le DLookup sarà bene che tu le metta anche legate all'evento Dopo
aggiornamento del controllo Matricola della maschera Missioni, così da
riempire le casselle non associate anche quando inserisci un nuovo record.
Roberto


title: Funzione DLookup

author: Michele Amato

text:
Fabrizio Domiziani <
dom...@tin.it
> wrote in message
fgd9Vkv3$GA....@news1.galactica.it...
> Ho una maschera che visualizza una per una
> le singole missioni dei dipendenti associata appunto
> ad una tabella Missioni.
> In essa, allo scopo di mostrare anche i dettagli
> dei dipendenti (non solo Matricola ma anche Nome,
> Cognome, ecc..) ho aggiunto una serie di caselle di testo
> non associate il cui contenuto č il risultato di una routine
> legata all'evento Su corrente che utilizza la funzione
> DLookup in questo modo:
>
> VediNome = DLookup("Nome", "Dipendenti", "Matricola=" _
> & Forms!Missioni!Matricola)
>
> Tutto va bene ma quando cerco di creare un nuovo
> record da questa maschera mi appare il messaggio
>
> Errore di runtime '3075':
> Errore di sintassi (operatore mancante) nell'espressione
> della query 'Matricola='.
>
> Come posso impostare questa maschera in modo che
> possa anche creare nuovi records?
>
> Grazie mille per ogni suggerimento
>
>
>
> --
> Fabrizio Domiziani
>
dom...@tin.it
>
>
>
>
>


title: Funzione DLookup

text:
Fabrizio Domiziani <
dom...@tin.it
> wrote in message
fgd9Vkv3$GA....@news1.galactica.it...
> Ho una maschera che visualizza una per una
> le singole missioni dei dipendenti associata appunto
> ad una tabella Missioni.
> In essa, allo scopo di mostrare anche i dettagli
> dei dipendenti (non solo Matricola ma anche Nome,
> Cognome, ecc..) ho aggiunto una serie di caselle di testo
> non associate il cui contenuto è il risultato di una routine
> legata all'evento Su corrente che utilizza la funzione
> DLookup in questo modo:
... intanto qualche consiglio di stile...
> VediNome = DLookup("Nome", "Dipendenti", "Matricola=" _
> & Forms!Missioni!Matricola)
se questo codice  viene eseguito dalla maschera Missioni, io trasformerei
Forms!Missioni!Matricola in Me!Matricola
> Tutto va bene ma quando cerco di creare un nuovo
> record da questa maschera mi appare il messaggio
> Errore di runtime '3075':
> Errore di sintassi (operatore mancante) nell'espressione
> della query 'Matricola='.
Questo accade perchè l'evento OnCurrent scatta anche per il record vuoto
"nuovo", e in questo caso Forms!Missioni!Matricola è nullo.
Ti basta condizionare il lookup con
if Not Me.NewRecord then
 ... lookup...
end if
Oppure (preferibile se Matricola è Nullable)
If IsNumeric(Me!Matricola) then
 ... lookup...
end if
> Come posso impostare questa maschera in modo che
> possa anche creare nuovi records?
Se vuoi impedire l'inserimento di nuovi record solo per aggirare il
problema, non ti serve più.
Se è proprio quello che vuoi, imposta a False la proprietà della maschera
Proprietà ConsentiAggiunte (italiano)
Proprietà AllowAdditions (inglese).
Spero di esserti stato d'aiuto,
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
- rimuovi ciccia dal mio indirizzo...
Un pò di pubblicità per il mio sito, su
http://utenti.worldonline.it/micheleamato
è possibile trovare una add-in per Access97:
Access Navigator 2.0 (in fase di beta test)
mi piacerebbe conoscere la tua opinione...
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


title: Funzione DLookup

text: Post inviato per sbaglio.


title: Funzione DLookup

text:
Sì grazie sei stato molto gentile.
Ottimo il "If Not Me.NewRecord Then" anche
se per i miei scopi (stò preparando una lezione
dedicata a queste questioni) forse è preferibile il
"If Not IsNull(Matricola) Then" più facile e intuitivo
per chi si avvicina per la prima volta al  VBA.
Comunque non voglio affatto rinunciare all'inserimento
di nuovi record ma al contrario sto' approfittando
della vostra cortesia (e competenza) per vagliare
ipotesi alternative a riguardo.
Saluti e grazie ancora
--
Fabrizio Domiziani
dom...@tin.it
Michele Amato <
maengi...@ciccia.libero.it
> wrote in message
PY465.299451$VM3.2...@news.infostrada.it...



title: spostamento di record.....

author: Max

text:
ho un problemine, secondo voi e' possibile spostare un record da un database
all'altro?'?''
vi faccio un esempi :
ho un'archivio di chiamate:
quando la chiamatqa e' terminata tramite un pulsante"chiamata chiusa" mi
sposta il record selezionato in un db chiamato"elenco chiamate terminate "
grazie a tutti
ciao ciao


title: spostamento di record.....

author: Antonio Biso

text:
"Max" <
mbr...@tiscalinet.it
> ha scritto nel messaggio
news:bks1bl$v01$1...@lacerta.tiscalinet.it...

Ti consiglio di utilizzare la terminologia corretta per access.
Forse che i tuoi db sono le tabelle di access?
Se cosě vedi query di accodamento e di cancellazione
Antonio


title: spostamento di record.....

author: Roberto da casa

text:
"Max" <
mbr...@tiscalinet.it
> ha scritto nel messaggio
news:bks1bl$v01$1...@lacerta.tiscalinet.it...

Daun database ad un altro database o da una tabella ad una tabella dello
stesso database?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cancel=true

text:
ho due controlli non associati txt1 txt2
quando vado a inserire un valore in txt2 se il controllo txt2 č > txt1 devo
visualizzare un messaggio che me lo dica e cancelli quello che ho scritto in
txt2
ho provato cosě ma non mi cancella il dato:
Private Sub txt2_BeforeUpdate(Cancel As Integer)
If Me.txt2 > Me.txt1 Then
    MsgBox "Conferma  ", vbCritical, "Attenzione"
    Cancel = True
    End If
End Sub
non funziona!!!!
grazie
ciao


title: Cancel=true

author: Paolo opg

text:
"T@Roberto" <
tas...@libero.it
> wrote in
news:jbdNa.146430$
lK4.4...@twister1.libero.it
:

non hai messo l'istruzione che cancella il dato...
forse č per quello che non lo fa!
:-)
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------


title: Cancel=true

text:
"T@Roberto" <
tas...@libero.it
> ha scritto nel messaggio
news:jbdNa.146430$lK4.4...@twister1.libero.it...

Cancel = True elimina l'evento di aggiornamento, quindi non ha significato
per controlli non associati come i tuoi.
Per i controlli non associati č sufficiente cancellare il loro valore.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cancel=true

author: massimo

text:
"Paolo opg" <
w...@ne.com
> ha scritto nel messaggio
news:Xns93AE864F8...@151.99.250.3...
> "T@Roberto" <
tas...@libero.it
> wrote in
> news:jbdNa.146430$
lK4.4...@twister1.libero.it
:
>
> > ho due controlli non associati txt1 txt2
> >
> > quando vado a inserire un valore in txt2 se il controllo txt2 č > txt1
> > devo visualizzare un messaggio che me lo dica e cancelli quello che ho
> > scritto in txt2
> >
> > ho provato cosě ma non mi cancella il dato:
> >
> >
> > Private Sub txt2_BeforeUpdate(Cancel As Integer)
> > If Me.txt2 > Me.txt1 Then
> >     MsgBox "Conferma  ", vbCritical, "Attenzione"
> >     Cancel = True
> >
> >     End If
> > End Sub
> >
> > non funziona!!!!
> >
>
> non hai messo l'istruzione che cancella il dato...
> forse č per quello che non lo fa!
> :-)
Ma Io Non Penso Dovrebbe Funzionare Comunque



title: Aprire da VBA una form che si trova su un altro DB

text:
Salve a tutti, forse una banalità:
Non riesco ad aprire via codice VBA (A97), una form che si trova su un altro
DB
Riesca ad aprire l'MDB (con questo codice)
Dim pubb As Database
Set pubb = DBEngine.Workspaces(0).OpenDatabase(nome_db)
... ma proprio non riesco ad aprire una form
Qualcuno può aiutarmi ?
Grazie 1000
Marco


author: Alessandro Baraldi

text:

http://www.mvps.org/access/forms/frm0034.htm
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1187335262....@k79g2000hse.googlegroups.com...

http://www.mvps.org/access/forms/frm0034.htm
@Alex
Perfetto: tutto ok
Grazie 1000 Alex


title: Tabelle collegate e

author: Draky!

text:
Salve ragazzi,
da codice mi piacerebbe accedere, in una tabella collegata, alla
proprieta' dove e' memorizzato il percorso relativo al collegamento
per poterlo modificare.
Ho visto le varie proprieta' dell'oggetto tabledef e ne ho trovata
una, SourceTableName, che riporta pero' solo il nome ma non l'intero
percorso.
Sapete in quale proprieta' si trova sto benedetto collegamento?
Grazie in anticipo a tutti...
--
Cordialmente,
Danilo!
* Per risposte in e-mail elimina ".rimuovi" dall'indirizzo *


title: Tabelle collegate e

text:
Draky! <
draky-...@yahoo.it
> wrote in message 3a5f8038$1@news...
>
> Salve ragazzi,
>
> da codice mi piacerebbe accedere, in una tabella collegata, alla
> proprieta' dove e' memorizzato il percorso relativo al collegamento
> per poterlo modificare.
> Ho visto le varie proprieta' dell'oggetto tabledef e ne ho trovata
> una, SourceTableName, che riporta pero' solo il nome ma non l'intero
> percorso.
> Sapete in quale proprieta' si trova sto benedetto collegamento?
Proprietà Connect dell'oggetto tabledef
Antonio


title: Tabelle collegate e

text:
"Antonio Biso" <
ch...@etruria.net
> wrote:
>> da codice mi piacerebbe accedere, in una tabella collegata,
alla
>> proprieta' dove e' memorizzato il percorso relativo al collegamento
>> per poterlo modificare.
[...]
>Proprietà Connect dell'oggetto tabledef
Si, e' quella. Pero' aggiornandola al nuovo percorso, aprendo la
tabella me la ritrovo ancora collegata al vecchio percorso.
E' necessario "salvare" la modifica in qualche maniera?



title: Tabelle collegate e

author: Nicola Ardito

text:
Draky! ha scritto nel messaggio <3a60ae60$1@news>...
>
CUT
>
>>Proprietą Connect dell'oggetto tabledef
>
>Si, e' quella. Pero' aggiornandola al nuovo percorso, aprendo la
>tabella me la ritrovo ancora collegata al vecchio percorso.
>E' necessario "salvare" la modifica in qualche maniera?
>
Guardati refreshlink  e refresh sull'help.
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: Tabelle collegate e

text:
Draky! <
draky-...@yahoo.it
> wrote in message 3a60ae60$1@news...
>
> "Antonio Biso" <
ch...@etruria.net
> wrote:
> >> da codice mi piacerebbe accedere, in una tabella collegata,
> alla
> >> proprieta' dove e' memorizzato il percorso relativo al collegamento
> >> per poterlo modificare.
>
> [...]
>
> >Proprietą Connect dell'oggetto tabledef
>
> Si, e' quella. Pero' aggiornandola al nuovo percorso, aprendo la
> tabella me la ritrovo ancora collegata al vecchio percorso.
> E' necessario "salvare" la modifica in qualche maniera?
Eseguendo il metodo Refreshlink
Antonio


title: pulsante

author: alberto

text:
          In una maschera sono visualizati vari record e alla fine di ognuno c'è un
pulsante
che fa partire una stampa relativa a quel record.
1 Campo1 Campo2 Campo3 Pulsante
2 Campo1 Campo2 Campo3 Pulsante
Come faccio, dopo aver dato un invio sul pulsante, a posizionarmi sul Campo1
del
 record successivo?
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: pulsante

author: Roberto dalla campagna

text:
alberto <
a.al...@libero.it
> wrote in message
82Z55Z120Z109Y1...@usenet.libero.it...
>
>           In una maschera sono visualizati vari record e alla fine di
ognuno c'è un
> pulsante
> che fa partire una stampa relativa a quel record.
>
> 1 Campo1 Campo2 Campo3 Pulsante
> 2 Campo1 Campo2 Campo3 Pulsante
>
> Come faccio, dopo aver dato un invio sul pulsante, a posizionarmi sul
Campo1
> del
>  record successivo?
Se, come immagino, stai usando una maschera continua, per spostarti da un
record ad un altro usa il Metodo GoToRecord (vedi help).
>
> Grazie
Prego
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: barra degli strumenti personalizzata

text:
salve, ho creato una barra degli strumenti personalizata che compare quando
apro un report in anteprima di stampa, questa barra contine
la classica lente, la percentuale delle dimensioni, il tasto chiudi e il
tasto per stampare, però accade che cliccando sul tasto stampa, la stampa
parte in automatico mentre io vorrei il tasto stampa che aprisse la finestra
che chiede quante copie vuoi stamparne come se si cliccasse su
file \ stampa
mi sapete aiutare?
grazie.


title: Stampa unione con Word, le sessioni di Access si moltiplicano

author: Riccardo Rosso

text:
Salve a tutti.
Ho un problema con la stampa unione da Access a Word (versione 97).
Creando, via codice da Access, un nuovo documento Word, basato su un
modello (.Dot) predisposto per la stampa unione,  vengono attivate due
nuove sessioni di Access.
Se nel modello imposto delle opzioni di query per il filtraggio dei
record le nuove sessioni di Access diventano 5.
Il problema è sicuramente di Word perchè avviene la stessa cosa partendo
da Word.
Qualcuno sa dirmi come risolvere il problema facendo utilizzare a Word
la sessione attiva di Access o quantomeno limitare ad una sola nuova
sessione dell'origine dati per la stampa unione.
Anticipatamente ringrazio
RossoRi


author: Sergio MAZZA

text:
"Riccardo Rosso" <
ross...@iol.it
> ha scritto nel messaggio
news:3977FD6C...@iol.it...

Mi vengono in mente due possibilità:
1 - togliere nel documento Word il riferimento del collegamento all'mdb per
riattivarlo via VBA da Access quando apri il documento (.dot);
2 - creare una subroutine in VBA nel documento Word (.dot) che "cerca" la
sessione di Access per collegarsela;.
Permettimi di esprimere un pensiero; a mio avviso non è necessario
utilizzare un modello di documento (.dot) per effettuare il mailmerge, tanto
Word crea un'altro documento (.doc) sulla base del "modello" (.doc
anch'esso)...
Ciao.


author: Federico Luciani

text:
Riccardo Rosso wrote:
> Salve a tutti.
> Ho un problema con la stampa unione da Access a Word (versione 97).
> Creando, via codice da Access, un nuovo documento Word, basato su un
> modello (.Dot) predisposto per la stampa unione,  vengono attivate due
> nuove sessioni di Access.
> Se nel modello imposto delle opzioni di query per il filtraggio dei
> record le nuove sessioni di Access diventano 5.
> Il problema è sicuramente di Word perchè avviene la stessa cosa partendo
> da Word.
> Qualcuno sa dirmi come risolvere il problema facendo utilizzare a Word
> la sessione attiva di Access o quantomeno limitare ad una sola nuova
> sessione dell'origine dati per la stampa unione.
> Anticipatamente ringrazio
> RossoRi
per caso hai dato un titolo alla tua applicazione access?
se si, prova ad eliminarlo e a ripetere il mailmerge.
fammi sapere.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


text:
Federico Luciani ha scritto:
> per caso hai dato un titolo alla tua applicazione access?
> se si, prova ad eliminarlo e a ripetere il mailmerge.
> fammi sapere.
>
Sergio MAZZA ha scritto:
> Mi vengono in mente due possibilità:
> 1 - togliere nel documento Word il riferimento del collegamento all'mdb per
> riattivarlo via VBA da Access quando apri il documento (.dot);
> 2 - creare una subroutine in VBA nel documento Word (.dot) che "cerca" la
> sessione di Access per collegarsela;.
>
> Permettimi di esprimere un pensiero; a mio avviso non è necessario
> utilizzare un modello di documento (.dot) per effettuare il mailmerge, tanto
>
> Word crea un'altro documento (.doc) sulla base del "modello" (.doc
> anch'esso)...
In primo luogo un ringraziamento a Sergio e a Federico per l'interessamento
le  Vs. risposte mi hanno fatto riflettere ulteriormente
ed ho risolto il problema creando un modello di documento Word (.Dot), con
l'autocomposizione Stampa Unione di Access,
partendo dalla visualizzazione della Query destinata a tale scopo, in tal modo
i riferimenti all'origine dati immessi automaticamente
in Word sono relativi al Task di Access e non ad un File .Mdb (unica
possibilità ammessa in Word).
A questo punto mi piacerebbe conoscere il codice utilizzato da Access, se
qualcuno avesse qualche idea e volesse postarlo
potrebbe essere un " Tips e Tricks" interessante.
Per quanto riguarda l'osservazione fatta da Federico in effetti il file .Mdb
aveva un titolo ma la sua cancellazione non ha sortito
alcun effetto.
Per quanto riguarda i suggerimenti di Sergio purtroppo non ho la più pallida
idea di come utilizzare il codice VBA per le soluzioni
che hai proposto, in tal senso avrei bisogno di qualche indicazione e
suggerimento di partenza, mentre per quanto riguarda il
comportamento di Word è un aspetto che non conoscevo benchè la partenza da un
modello .Dot limita il rischio di involontarie
modifiche da parte degli utilizzatori.
Saluti RossoRi


text:
Riccardo Rosso wrote:
> Federico Luciani ha scritto:
> > per caso hai dato un titolo alla tua applicazione access?
> > se si, prova ad eliminarlo e a ripetere il mailmerge.
> > fammi sapere.
> [cut]
> Per quanto riguarda l'osservazione fatta da Federico in effetti il file .Mdb
> aveva un titolo ma la sua cancellazione non ha sortito
> alcun effetto.
> [cut]
ti ho chiesto questo, perche', per il mailmerge, word
utilizza DDE, quindi se e' collegato ad access cerca una
finestra con titolo "Microsoft Access", non trovandola (gli
hai dato un titolo diverso) apre un'altra sessione.
questa cosa, naturalmente, l'ho provata a mie spese, nel
senso che ci ho sbattuto la testa per tantissimo tempo
prima di capire quale era il problema.
generalmente io faccio cosi':
creo un template word e al posto dei campi collegati metto
dei riferimenti tra parentesi quadre ([Cognome]); da access
apro il template, cerco e sostituisco tutti i riferimenti
con i relativi valori;
salvo il documento.
questo metodo mi risulta molto utile quando, nel documento,
devo inserire una tabella con dati che sono legati da una
relazione 1-molti con il record principale.
in questo caso metto un riferimento del tipo [indirizzi],
da access mi posiziono in quel punto e creo la tabella via
codice.
forse il tutto e' un po' piu' lento, ma da quando l'ho
adottato non ho piu' problemi con word.
naturalmente c'e' da scrivere molto piu' codice! :-)



text:
"Riccardo Rosso" <
ross...@iol.it
> ha scritto nel messaggio
news:3979428B...@iol.it...
>
> In primo luogo un ringraziamento a Sergio e a Federico per
l'interessamento
> le  Vs. risposte mi hanno fatto riflettere ulteriormente
> ed ho risolto il problema creando un modello di documento Word (.Dot), con
> l'autocomposizione Stampa Unione di Access,
> partendo dalla visualizzazione della Query destinata a tale scopo, in tal
modo
> i riferimenti all'origine dati immessi automaticamente
> in Word sono relativi al Task di Access e non ad un File .Mdb (unica
> possibilità ammessa in Word).
> A questo punto mi piacerebbe conoscere il codice utilizzato da Access, se
> qualcuno avesse qualche idea e volesse postarlo
> potrebbe essere un " Tips e Tricks" interessante.
>
> Per quanto riguarda l'osservazione fatta da Federico in effetti il file
.Mdb
> aveva un titolo ma la sua cancellazione non ha sortito
> alcun effetto.
>
> Per quanto riguarda i suggerimenti di Sergio purtroppo non ho la più
pallida
> idea di come utilizzare il codice VBA per le soluzioni
> che hai proposto, in tal senso avrei bisogno di qualche indicazione e
> suggerimento di partenza, mentre per quanto riguarda il
> comportamento di Word è un aspetto che non conoscevo benchè la partenza da
un
> modello .Dot limita il rischio di involontarie
> modifiche da parte degli utilizzatori.
>
> Saluti RossoRi
>
Non è particolarmente difficile realizzare un documento word che si collega
ad access;
- fai una copia del tuo documento originale;
- rimuovi il riferimento al collegamento dell'mdb: strumenti - stampa
unione - documento principale - ripristina formato normale;
- chiudi (non il documento) e salva;
- crea una macro e chiamala AutoOpen e in "memorizza macro in" selezioni il
nome del tuo .doc, così sarà visibile solo a quel documento; la macro
AutoOpen è eseguita quando si apre il documento;
- bloccala appena avviata;
- vai in strumenti - macro - macro e seleziona AutoOpen e premi modifica,
dovresti avere una situazione del genere:
Sub AutoOpen()
'
' AutoOpen Macro
' Macro registrata il 24/07/00 da Sergio MAZZA
'
End Sub
- prima dell'End Sub inserisci il codice che ripristina il collegamento
all'mdb:
With ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource Name:="c:\documenti\NomeTuoMDB.mdb", LinkToSource:=True,
AddToRecentFiles:=False, Connection:="TABLE NomeDellaTabellaoQueryAccess"
End With
- salva e chiudi;
- chiudi tutto salvando dove richiesto;
- in Access puoi inserire il codice che avvia il mailmerge nell'evento "su
clic" di un bottone:
Sub Comando84_Click()
On error goto Comando84_Click_err
Dim app As Word.Application, doc As Word.Document
DoCmd.Hourglass True
Set app = CreateObject("Word.Application")
'se vuoi puoi non rendere visibile l'operazione rimuovendo la successiva
istruzione
app.Visible = True
'apre il documento
Set doc = app.Documents.Open(filename:="c:\documenti\NomeTuoDocumento.doc")
'esegue il mailmerge specificando la destinazione in un nuovo documento
With doc.MailMerge
    .Destination = wdSendToNewDocument
    .Execute
End With
'chiude il file origine
doc.Close False
'visualizza il documento risultante dal mailmerge
app.Visible = True
DoCmd.Hourglass False
exit sub
Comando84_Click_err:
    DoCmd.Hourglass False
    set doc = nothing
    set app = nothing
    Raise Err.Number
End Sub
- salva tutto e prova.
Spero di non essemi dimenticato nulla; considera che dall'apertura del .doc,
al ripristino della connessione e all'attivazione dei comandi DDE passerà
qualche secondo (dipende dal pc) e devi inserire i riferimenti alla libreria
di Word...
Ciao e buon lavoro.


title: Percorso tabelle collegate

author: Brunoz

text:
E' possibile gestire il percorso delle  le tabelle collegate tramite codice?
Infinite Grazie
-Bruno-


title: Percorso tabelle collegate

author: Emyr

text:


vedi esempi su
sitocomune.com
Saluti.
Emanuele.


title: Percorso tabelle collegate

text:
"Brunoz" <
d01850...@tiscali.it
> ha scritto nel messaggio
news:b3n2hp$c5r$1...@lacerta.tiscalinet.it...

proprietą connect e metodo refreshlink della tabledef
Antonio


title: textbox invisibile se vuota

author: Eardin

text:
Salve a tutti.
ho creato una una query di ricerca che mi da i risultati sottoforma di
maschera.
alcuni campi perņ sono vuoti, vorrei quindi che quando viene visualizzata la
maschera le textbox relative ai campi vuoti non venissero visualizzati.
Come posso fare?
Ho cercato nel sito ma non sono riuscito a trovare nulla.
Grazie 1000 in anticipo.
Eardin


title: textbox invisibile se vuota

author: falsim

text:
"Eardin" <
ear...@libero.it
> wrote in
news:gWz7d.20513$
N45.5...@twister2.libero.it
:
> Salve a tutti.
> ho creato una una query di ricerca che mi da i risultati sottoforma di
> maschera.
> alcuni campi però sono vuoti, vorrei quindi che quando viene
> visualizzata la maschera le textbox relative ai campi vuoti non
> venissero visualizzati. Come posso fare?
>
  Non mi è ben chiaro quello che scrivi 'una query che da i risultati
sottoforma di maschera...' forse intendi dire una maschera associata ad
una query di ricerca? Supponiamo di si e supponiamo che la query sia
eseguita automaticamente all'apertura della maschera. Allora ti sarà
sufficiente scrivere:
    	NomeTextBox.Visible = Not IsNull(NomeCampo)
nel codice associato all'evento Load.
  Ciao.
--
http://digilander.libero.it/winses/


title: textbox invisibile se vuota

text:
Scusa la mia pessima spiegazione, ma grazie mille perchè la tua risposta era
proprio quella che cercavo.
"falsim" <Toldino_at_...@hotmail.com.invalid> ha scritto nel
messaggio news:Xns9576B58EB2...@193.70.192.192...



title: textbox invisibile se vuota

author: Gaetano Di Zanni

text:
"Eardin" <
ear...@libero.it
> ha scritto nel messaggio
news:SzA7d.19721$H11.6...@twister1.libero.it...

Scusatemi: reputando la cosa di grande interesse, almeno per me, ho provato
ad applicarla a una textbox di una maschera che ha origine dati da una
query, ottengo solo di non visualizzare piu' la textbox, neanche quando i
dati ci sono: come mai?
Grazie a tutti.


title: textbox invisibile se vuota

text:
"Eardin" <
ear...@libero.it
> ha scritto nel messaggio
news:SzA7d.19721$H11.6...@twister1.libero.it...




title: textbox invisibile se vuota

text:
"Eardin" <
ear...@libero.it
> ha scritto nel messaggio
news:SzA7d.19721$H11.6...@twister1.libero.it...

E' interessante, l'ho provato, ma ottengo solo la scomparsa della textbox
sulla maschera!
come mai?
Ciao a tutti


title: textbox invisibile se vuota

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:cjpbal$a6n$1...@lacerta.tiscalinet.it...

io le istruzioni le ho inserite sia su l'evento load del form che
sull'evento gotfocus del campo titolo che è il primo nell'ordine di
tabulazione della maschera. A me così funziona.
Sicuramente c'è un modo diverso e più funzionale, purtroppo  io non ne so
abbastanza, anche perchè non avrei fatto la domanda iniziale :)
Prova magari funziona anche a te come ho fatto io.
Eardin


title: gestione evento onExit in un form

author: Filippo

text:
Ciao a tutti,
Come posso, in assenza di alcune informazioni in una maschera, impedire ad
un utente  la chiusura di un form?
Disabilito il bottone Chiudi, tolgo i menu', ma come gestisco la possibilità
di  chiusura di Access?
Saluti
Filippo


title: gestione evento onExit in un form

author: Roberto da casa

text:
"Filippo" <
ut...@libero.it
> ha scritto nel messaggio
news:1sVw9.107323$RO.27...@twister1.libero.it...

Nella struttura della tabella che è origine record della maschera imposta a
Si la proprietà di campo Richiesto per tutti i campi che è obbligatorio
digitare.
Oppure, a fronte dell'evento "Prima di aggiornare" della maschera genera un
codice VBA che vada a verificare che tutti i controlli obbligatori siano
stati digitati, in caso contrario annulla l'evento di aggiornamento (Cancel
= True) e sposta il fuoco sul primo controllo che non è stato digitato.
Naturalmente non si può fare nulla se l'utente decide di togliere
l'alimentazione al PC. ;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: gestione evento onExit in un form

author: Fabrizio yQy

text:
"Filippo" <
ut...@libero.it
> ha scritto nel messaggio
news:1sVw9.107323$RO.27...@twister1.libero.it...
> Come posso, in assenza di alcune informazioni in una maschera, impedire ad
> un utente  la chiusura di un form?
> Disabilito il bottone Chiudi, tolgo i menu', ma come gestisco la
possibilità
> di  chiusura di Access?
>
Evento Prima di aggiornare del form (clic dx sul
form/proprieta'/evento/proma di aggiornare)
Genera il seguente evento:
--------------------------------------------------
Private Sub NomeCampo_BeforeUpdate()
If IsNull(Me.NomeCampo.Value) Then
  MsgBox "Inserire tutti i dati necessari."
  Cancel = True
  Me.NomeCampo.SetFocus
Else
    Docmd.close
end if
End Sub
-----------------------------------------------------
Ciao :) Fabrizio yQy


title: gestione evento onExit in un form

text:
"Fabrizio yQy" <
fabrizi...@tin.it
> ha scritto nel messaggio
news:piZw9.78591$TD1.3...@news2.tin.it...
nomecampo è il nome appunto del campo obblogatorio, ad es. il campo cognome
:)
errata corrige inizio:
> Private Sub Form_BeforeUpdate()
errata corrige fine (sorry)



title: gestione evento onExit in un form

text:
"Fabrizio yQy" <
fabrizi...@tin.it
> ha scritto nel messaggio
news:AlZw9.78600$TD1.3...@news2.tin.it...

Un sincero grazie a tutti.
Saluti


title: Dare Professionalità alle e-mail inviate da access. A qu alcuno interessa?

author: OneEDP

text:
Siccome l'immagine è importante e purtroppo per molti questo è sinonimo di
professionalità, ho avuto la malsana idea di inserire nelle mie modeste
applicazioni e-mail sulla base di e-mail (di aspetto tsk. gradevole) da
compilare.
Poiché le e-mail in questione hanno diversi brillocchi, l'effetto
collaterale è che inserendo il codice html nel HTMLBody di un MailItem perdo
i link delle immagini, sfondi ecc.
In seguito scopro che i file .mht contengono l'intero codice MIME (MIME
Encapsulation of Aggregate HTML Documents salva insieme all'HTML una serie
di files binari in strutture MIME un unico file).
Ho provato anche questa:
Dim...
Set myolapp = CreateObject("Outlook.Application")
Set myitem = myolapp.CreateItemFromTemplate _
    ("C:\windows\desktop\Senza nome.msg").Copy
myitem.Display
stesso risultato, anzi peggio, si perde anche la formattazione (MA CHE RAZZA
DI COMANDO E' COPY SE POI NON COPY TUTTO! Prenditela con Bill)
La domanda è questa:
considerate le premesse, è possibile che a nessuno interessi dare una veste
migliore alle e-mail delle vostre applicazioni?
Non credo proprio.
E con questo diamo il via a tutte le polemiche COSTRUTTIVE!
Ciao
Daniele
PS. Perdonate le mie risposte lente. Il mio oe per un nuovo messaggio è
rapidissimo... in rispondi ci mette ore e ore, che palle!


text:
"OneEDP" <
one.emme...@tin.it
> ha scritto nel messaggio
news:mTnxb.150582$e6.54...@twister2.libero.it...

Per me solo testo, please...
Se utilizzi un template per le e-mail costruito da te, fai un mail in html.
Non è più semplice?
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bq59g5$i6f$1...@canarie.caspur.it...

L'ufficio marketing non credo sia d'accordo.
>
> Se utilizzi un template per le e-mail costruito da te, fai un mail in
html.
> Non è più semplice?
Con i template usando CreateItemFromTemplate e Copy sarebbe stato un gioco
da ragazzi, ma ci sono effetti collaterali che ti dicevo.
Outlook ha bisogno del codice MIME per inserire le immagini e gli sfondi in
modo corretto. Hai qualche idea?
Ciao
Daniele
>
> Ciao.
>
> --
> Sergio MAZZA
>
>


text:
"OneEDP" <
one.emme...@tin.it
> ha scritto nel messaggio
news:LFExb.148961$vO5.5...@twister1.libero.it...
>
> L'ufficio marketing non credo sia d'accordo.
Ma se sapessero che mail in formato html sono potenziali veicoli di
infezione... Discorso troppo lungo; lasciamo perdere.
>
> Con i template usando CreateItemFromTemplate e Copy sarebbe stato un gioco
> da ragazzi, ma ci sono effetti collaterali che ti dicevo.
> Outlook ha bisogno del codice MIME per inserire le immagini e gli sfondi
in
> modo corretto. Hai qualche idea?
> Ciao
> Daniele
>
Non utilizzare Outlook; utilizza gli activex CDO o CDOsys. Ti riporto un
messaggio preso da it.comp.www.asp:
"*** Marco Gulino ***" <
sn1...@inwind.it
> ha scritto nel messaggio
news:al2ij9$k3e$1...@newsreader.mailgate.org...
> CDOSys č PIU' POTENTE di CDONTS, ti permette per esempio di spedire email
> non solo con server SMTP interno, ma anche con un server esterno, e
> addirittura potendosi autenticare con Username e password.
> Nota che CDOSYS č gią installato in OGNI Windows 2000 e Windows XP (NT4
non
> so)
>
>
> Esempio:
>
> Set ObjNewMail=Server.CreateObject("CDO.Message")
>   Set CDOConfig=objnewmail.configuration
>
>
cdoconfig.fields("
http://schemas.microsoft.com/cdo/configuration/sendusing
")
> =2 'Per usare il server interno mi pare che si deve scrivere 1
>
>
cdoconfig.fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver
"
> )="
smtp.email.it
"
>
>
cdoconfig.fields("
http://schemas.microsoft.com/cdo/configuration/smtpauthent
> icate")=1
>
>
cdoconfig.fields("
http://schemas.microsoft.com/cdo/configuration/sendusernam
> e")="NOMEUTENTE"
>
>
cdoconfig.fields("
http://schemas.microsoft.com/cdo/configuration/sendpasswor
> d")="PASSWORD"
>   cdoconfig.fields.update
>
>   objnewmail.mimeformatted=true
>   on error resume next
>   objnewmail.textbody=testo & vbcrlf &"**** Messaggio inviato tramite ASP
> dal sito della GiFra Provinciale di Palermo ****"
>   ObjNewMail.To="""WebMaster GIFRA di Sciacca""<
sn1...@inwind.it
>"
>   ObjNewMail.From="""" & nome & """<" & email & ">"
>   ObjNewMail.Subject=soggetto
>   ObjNewMail.send
> if err<>0 then response.write "Errore numero " & err & ": " &
> err.description else response.write "Messaggio inviato."
Ciao.
--
Sergio MAZZA


title: Aprire maschera

author: Fid

text:
Ho provato a piazzare nel form una casella combinata che contiene tutti i
nomi delle maschere del database e un solo botone che riceve il nome della
maschera e la apre, evitando di avere più di 10 bottoni, ma mi apre solo
l'ultimo dell'elenco!. Come fare?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aprire maschera

author: MA

text:
"Fid" <
fid...@katamail.com
> ha scritto nel messaggio
news:bttlo6$h25$1...@news.newsland.it...
> Ho provato a piazzare nel form una casella combinata che contiene tutti i
> nomi delle maschere del database e un solo botone che riceve il nome della
> maschera e la apre, evitando di avere piů di 10 bottoni, ma mi apre solo
> l'ultimo dell'elenco!. Come fare?
>
Posta il codice che lo sistemiamo
MAssimiliano


title: Aprire maschera

text:
MA ha scritto:
> "Fid" <
fid...@katamail.com
> ha scritto nel messaggio
> news:bttlo6$h25$1...@news.newsland.it...
> > Ho provato a piazzare nel form una casella combinata che contiene tutti i
> > nomi delle maschere del database e un solo botone che riceve il nome della
> > maschera e la apre, evitando di avere più di 10 bottoni, ma mi apre solo
> > l'ultimo dell'elenco!. Come fare?
> >
> Posta il codice che lo sistemiamo
> MAssimiliano
Il codice l'ho cestinato, ma grosso modo era qualcosa del genere,l'avevo
inserito nell'evento click del bottone.
dim stmaschera as string
dim stnome as string
 stmaschera=me.scelta.value' scelta è il nome della casella
if stmaschera="maschera1" then
stnome=maschera1
if stmaschera="maschera2" then
stnome=maschera
endif
ENDIF
docmd.openform stnome'dovrebbe aprirla



title: Aprire maschera

text:
> > "Fid" <
fid...@katamail.com
> ha scritto nel messaggio
> > news:bttlo6$h25$1...@news.newsland.it...
> > > Ho provato a piazzare nel form una casella combinata che contiene
tutti i
> > > nomi delle maschere del database e un solo botone che riceve il nome
della
> > > maschera e la apre, evitando di avere più di 10 bottoni, ma mi apre
solo
> > > l'ultimo dell'elenco!. Come fare?
> > >
> > Posta il codice che lo sistemiamo
> > MAssimiliano
> Il codice l'ho cestinato, ma grosso modo era qualcosa del genere,l'avevo
> inserito nell'evento click del bottone.
>
> dim stmaschera as string
> dim stnome as string
>
>  stmaschera=me.scelta.value' scelta è il nome della casella
> if stmaschera="maschera1" then
> stnome=maschera1
> if stmaschera="maschera2" then
> stnome=maschera
> endif
> ENDIF
> docmd.openform stnome'dovrebbe aprirla
Se nella combo "scelta" hai inserito il nome della maschera
dim stDocName as string
stDocName = me.scelta
docmd.openForm stDocName
molto semplicemente senza if
MAssimiliano


title: Selezione record in maschere continue

author: Peppe

text:
Ho una form in visualizzazione "Maschere continue" alla quale ho
nascosto i selettori dei record, per questioni estetiche e di spazio.
C'è un modo (magari con del codice legato all'evento "Click" sui campi
del record) per visualizzare il record selezionato, nel senso di
evidenziarlo in reverse come se fosse stato premuto il selettore?
Grazie 1000


title: Selezione record in maschere continue

author: warp

text:
Peppe ha scritto nel messaggio ...

Dipende, sul S.C. trovi qualcosa (fornitore: Asukuo) ma è troppo complesso.
A tempo perso avevo fatto qualcosa di semplice (A '97, mentre la versione A '2k con le formatt.
condizionali l'ho persa, merda).
Se t'interessa mandami un'e-mail e te lo faccio avere.
Ciao, warp


title: MI5-Persecution: Harassment through the Radio (33068)

text:
MI5 Persecution Update: Friday 9 July, 1999
Harassment in Poland, July 1999
And still it continues.... in my last fax I said that provided MI5 made no
attempts at harassment during my two-week holiday this summer, or after I
returned to England, then I would discontinue these faxes. Unfortunately
MI5 have continued to harass me, both during the holiday and after my
return to London. I really dont want to continue these articles, since
they take up so much time and effort, not to mention expense; but the
Security Service wont even let me have a holiday in peace and quiet, so I
have to make further efforts to bring their activities out into the open.
In early July I visited my aunt and her family in Poland. On Saturday 3
July 1999, I went to a family barbecue at an allotment outside the
city. One of my aunts family has previously shown himself to be in the
"enemy" camp, by saying the Polish equivalent of "something wrong with
him", and various other unprovoked insults. It is disappointing that one
of my family could forsake the usual ties of blood and take part in the
actions against me, but thats the way it is. This guy turned up at the
barbecue, and started making insults against me. In particular, he started
to say something about the video camera which I had brought along on the
trip, and the relevance of the video-camera to my fight against the
persecution. It seemed pretty obvious to me that my enemies had told him
to turn up to this occasion, and most likely schooled him in precisely
what words to say; since hes an  unintelligent person and would not be
able to think for himself what insults to make against me.
Harassment in London, week ending Friday 9 July 1999
Got back to London Wednesay afternoon. Two incidents on the Underground
returning from the airport. Unfortunately I wasnt recording because I
wasnt expecting trouble, so these slipped through the net. One of these
was verbal sexual abuse, of the type Ive heard many, many times before
these last three-and-a-half years.
Yesterday, Thursday 8/July/1999, I switched on Heart FM which had never
"got at" me before.... and the presenter started making jokes about "mad,
crazy" etc. Again, wasnt recording this because Id never had any trouble
from this radio station and wasnt expecting any.
Also yesterday, on a bus (155?) from Balham to Clapham, a couple of girls
started harassing me with taunts of "crazy". By now I was expecting
trouble and recorded an audio file of this instance of abuse, at web URL;
The cynical reader might think my demeanour or behaviour had given rise to
the taunts of "crazy" recorded above. But I assure you my behaviour on the
bus would not have made anyone think I was ill; and the taunts the
previous day were the same sexual words as previously; so I'm quite sure
that these incidents are either deliberately staged, or indicative of an
overall high level of awareness among the London public, particularly in
the part of London where I live.
Keith Hill MP (Labour - Streatham), my elected representative, as ever
refuses to help.
MI5 Persecution: Harassment through the Radio
One of the aspects of the MI5 persecution has been harassment through the
broadcast and print media; and one of the aspects of harassment through
the broadcast media is being "got at" by radio presenters. This being "got
at" from the radio takes various forms, the most obvious form being
through overt or hidden words and insults. But there are other, subtler
forms. In Canada a couple of years ago, I used to listen to the local
radio stations every morning driving to work, and listened to the music
only, switching between radio station presets rapidly as soon as a
presenters voice came on, so that I would not be subjected to any verbal
harassment by the D.J.s. But they found a way around this; they kept on
playing the same song, every bl**dy morning at the same time, which had
the words "all coming back to me"; the perceptive reader will remember
that the words "coming back" have special meaning (see the Private Eye
cover at web URL; for the
hidden meaning).
And thats not the only time theyve allowed the songs themselves to be used
as abuse against me; many years ago Radio-1 in the UK did exactly the
same, and the DJ even made it explicitly clear by saying, "dont you
sometimes feel as if the songs were made just for you".
"We should be done for attempted manslaughter" says Chris Tarrant
Capital Radio DJs have been "in on it" from the start. One of the first
things I heard in the summer of 1990 was from a Capital DJ who said, "If
he listens to Capital then he can't be all bad" (supportive, you
see. We're not bastards). Much of what came over the radio in 1990 is now
so far away the precise details have been obliterated by time. No diary
was kept of the details, and although archives if they exist may give
pointers, the ambiguity of what broadcasters said would leave that open to
re-interpretation.
In spring 1994, Chris Tarrant on his Capital morning show made an aside to
someone else in the studio, about a person he didn't identify. He said,
"You know this bloke? He says we're trying to kill him. We should be done
for attempted manslaughter".
That mirrored something I had said a day or two before. What Tarrant said
was understood by the staff member in the studio he was saying it to; they
said, "Oh no, don't say that" to Tarrant. If any archives exist of the
morning show (probably unlikely) then it could be found there; what he
said was so out of context that he would be very hard put to find an
explanation. A couple of days later, someone at the site where I was
working repeated the remark although in a different way; they said there
had been people in a computer room when automatic fire extinguishers went
off and those people were "thinking of suing for attempted manslaughter".
Pirate Radio "gets at" me
In another incident in 1990/91, Id been listening to a pirate radio
station in South London for half an hour, when there was an audible phone
call in the background, then total silence for a few moments, followed by
shrieks of laughter. "So what are we supposed to say now? Deadly
torture? Hes going to talk to us now, isnt he?" which meant that they
could hear what I would say in my room. Note the word "deadly" - they give
away their purpose.
It constantly surprised me that MI5 are so easily able to subvert
broadcasters, and, in this case of the pirate station, to do so, so
quickly. I think the answer to this question is that they must have very
wide contacts in the broadcast media; presumably some or in fact many of
those contacts are literally "bought". In the same way as they tried to
buy Jon Snow of Channel Four news, they must have bought many broadcasters
and use them both directly to make insults against me, and promulgate
their points of view; but also, they must use these "bought" broadcasters
to influence other television and radio presenters, who might not even be
aware that it was on MI5s behalf that they were being influenced to "get
at" me.
BBC-Radio-1 D.J.s celebrate my job termination in November 1991
This is another one from the "early years". At the beginning of November
1991 my employment in Woking, Surrey was terminated. Chris Tarrant of
Capital-FM had already made nasty remarks about both my work for the
company, and the managers of the company themselves - "so theyre not
really a serious company, well theyd have to be to employ you wouldnt
they".
So when I was terminated, as you can expect, BBC Radio 1 D.J.s
celebrated. On the Saturday afternoon (either 9/Nov/1991 or 16/Nov/1991 -
I cannot remember precisely) I briefly listened to Radio-1 and heard the
disc jockeys loudly proclaiming "youre useless, you should be sacked". On
the same day, I went down to the Kwik-Fit in Tooting to get my cars tyres
replaced, and in the office ran into a couple of their staff, one of them
with an Australian accent, who said "what do you think about it then? Its
getting killed on the radio."
Plainly, if a random car-repair shop in Tooting knew about the
persecution, then many thousands of other people across the capital and
all over the country must have known. And the phrase "getting
killed" shows very clear awareness of what the MI5 Persecutors intentions
towards me were in 1991, and judging by the continuing harassment, still
remain today.
Recent Feedback from Virgin-Radio
As readers will know, from mid-March 1999 for some four months, every
weekend, I have bombarded Westminster MPs with faxes about the terrible,
all-encompassing MI5 Persecution. (Jesting aside, it really is terrible
and all-encompassing, in the UK anyway.) In June 1999, after I'd been at
it some three months, I started getting "covert" feedback from Virgin
Radio.
The first feedback I got was from Danny Baker, on Sunday 13th June. That
weekend I was sending an article which contained biting criticism of the
police inaction in this case. Danny Baker on his Virgin radio show started
an angry rant that "he knows it's rubbish", ie. he was rubbishing what I'd
said in that weekend's faxed article. Unfortunately I wasn't recording
this programme.
The next possible Virgin-Radio feedback was a week later on 19th June
1999. This is contained in the audio file above, in which Johnny Boy on
his "Wheels of Steel" programme says;
"and if you would like to put a triple play together, ahhh.... because
quite frankly Hipster and me are running out of ideas...."
He goes on to counter Hipster's "how dare you" with a protestation that he
is "only joking".  You can listen to this incident on my website at URL;
What I reckon is that my article faxed to MPs that weekend was forwarded
by one of the recipients to Virgin Radio. My article had included the
words;
"I am beginning to run out of both new topics and energy to write these
articles."
So what I reckon is that Johnny Boy read the article.... and rephrased the
above line "run out of ... new topics" to "running out of ideas". I
recognise that this is a pretty tenuous inference to make.... but do
listen to the audio file, from the "ahhh...." pause in JB's speech you can
guess he is about to say something "risky" and at someone's
expense. Anyway, I listen to the Wheels of Steel regularly and will
continue to do so, recording it as I always do - so any future funny
remarks will get immortalised on my website! (There was a previous
incident from August 1998 which is preserved at web URL;
but I am sufficiently uncertain about it that I have not included it in
this article.)
First Ever Radio Reference - Alan Freeman of BBC-Radio-1
The first time I was ever referred to on the radio was sometime in May or
June of 1990, by Alan Freeman of BBC-Radio-1. Note that this isnt an
"interactive listening" episode, its different, this was Freeman reading
out a letter from one of my "real life" enemies.
Id acrimoniously broken up with some former friends in January of 1990,
and I think they were still trying to cause me trouble in June of that
year. Freeman on his rock show read out a letter from an "Andrew
Turner"; one of my acquaintances from January 1990 had been called Andy
Turner, so I think its the same guy. Freeman quoted Turner as saying
various things about me, in particular Freeman said "thats a hell of a
letter you wrote there Andy", "with a schizophrenic you're never alone",
and something about the "one who wore out his welcome with random
precision" (from the words of the Pink Floyd song).
When I was looking for primary causes of the MI5 persecution, this letter
which Freeman had read out on his programme struck me as being potentially
one of the sources of the persecution. I know Turner and various others in
that group were very bitter at what they saw as their failure and my
undeserved success, and they were quite determined to upset the
applecart. Of course several other primary causes are possible; I do not
know why MI5 chose me as opposed to someone else, and MI5 are hardly
likely to tell me.
"Absolute Obscene" David Hepworth of GLR
This one Ive assigned a 100% rating on the website. There are actually two
separate incidents, which are linked through the D.J.s choice of
words. The first incident can be heard in computer audio at web URL;
On  21/Feb/1997, I was listening to BBC GLR, by stealth. Back in 1990 I
used to have Capital blaring out of the speakers all over the garden ("if
he listens to Capital then he can't be all bad", thanks ever so much). But
now I listen on my walkman on headphones with the volume turned right
down. It could not possibly be overheard by any listening device, no
matter how sensitive, because sound does not carry from the phones.
Yet somehow they are still able to tell which station I am listening to on
the walkman. And last night, I bravely tuned to GLR 94.9FM at around
8.45pm. Everything went well for the first half hour or so. Around 9.10pm,
Hepworth said the following after the song "Come Around" by the
Muttonbirds.
"coming up after this, we got the rock-and-roll A-level, we have, I
assume, Brian do we have an embarrassment of prizes in there, we do, don't
we, absolute obscene amounts of prizes, there will no doubt be a riot at
the back door, and that's, er, A-level coming up after this"
The key phrases in what he said are, "EMBARRASSMENT of prizes", and what
he himself emphasized verbally, "ABSOLUTE OBSCENE amount of prizes". It is
my belief (based on content and tone of voice) that when he spoke these
phrases he knew I was listening, and that the phrases refer directly to my
situation. The "EMBARRASSMENT" is the embarrassment he and other media
people would feel at having their wrongdoing exposed; the "ABSOLUTE
OBSCENE" (which he verbally emphasized) described the disgusting sexual
abuse which the harassers have been throwing at me.
There was a second incident, on 9/May/1997, which may be found on the web
(with computer audio) at URL;
This incident again contains the words "absolute embarrassment of prizes",
with the same emphasis as the first instance, and laughter following the
phrase. So theyre aware of the complaint I made on Usenet after the first
incident; and they are so arrogant that they do exactly the same
again. They are so arrogant, they know they are being recorded and that
what they say will be published on the web, but they dont care. What
corrupt media, and what a corrupt country to have such corruption in its
media.
33068
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access


title: Come mettere in pausa una routine per eseguirne un'altra?

text:
Salve icaa,
premesso che ho provato a cercare già anche sul "sito comune" senza trovar
soluzione.

Il mio problema ^_^

Ho una sub contenente diversi Loop ed If.

In una determinata condizione (If) dovrei fermare la sub per aprire una
maschera, nella quale
eseguire altre sub in base a varie scelte/pulsanti, quindi una volta chiusa
tale maschera,
ritornare alla routine iniziale per continuarla...

Un qualcosa del tipo

for i=1 to 10
  if i= 3 then
     ' ferma questa sub, vai alla maschera NUOVA e riprendi questa sub
     ' da questo punto quando chiudo la maschera NUOVA
next i

----------------

Ho inizialmente provato con una variabile in comune a cui cambiavo il valore
uscendo
da quella maschera:

Public VarA as integer
VarA=0

...

if i=3 then
DoCmd.OpenForm "mascheraNUOVA"      ' uscendo dalla quale imposto VarA=1

   Do
      If VarA=1
         exit do
      End If
    DoEvents
    Loop

end if

...

In questo caso la sub si ferma lasciandomi interagire con la maschera, ma
chiudendo
quella maschera ed assegnando VarA = 1, il DO-LOOP rimane "bloccato" e non
valuta
la VarA impostata ad 1 ...

Consigli? ^_^

--
A.GiovanniB.


author: Pablitomf

text:
A.Giovanni <a@b.c> ha scritto:

> Salve icaa,
> premesso che ho provato a cercare già anche sul "sito comune" senza trovar
> soluzione.
>
> Il mio problema ^_^
>
> Ho una sub contenente diversi Loop ed If.
>
> In una determinata condizione (If) dovrei fermare la sub per aprire una
> maschera, nella quale
> eseguire altre sub in base a varie scelte/pulsanti, quindi una volta chiusa
> tale maschera,
> ritornare alla routine iniziale per continuarla...
>
> Un qualcosa del tipo
>
> for i=1 to 10
>   if i= 3 then
>      ' ferma questa sub, vai alla maschera NUOVA e riprendi questa sub
>      ' da questo punto quando chiudo la maschera NUOVA
> next i
>
> ----------------
>
> Ho inizialmente provato con una variabile in comune a cui cambiavo il
valore
> uscendo
> da quella maschera:
>
> Public VarA as integer
> VarA=0
>
> ....
>
> if i=3 then
> DoCmd.OpenForm "mascheraNUOVA"      ' uscendo dalla quale imposto VarA=1
>
>    Do
>       If VarA=1
>          exit do
>       End If
>     DoEvents
>     Loop
>
> end if
>
> ....
>
> In questo caso la sub si ferma lasciandomi interagire con la maschera, ma
> chiudendo
> quella maschera ed assegnando VarA = 1, il DO-LOOP rimane "bloccato" e non
> valuta
> la VarA impostata ad 1 ...
>
> Consigli? ^_^

scusa, ma il tuo cruccio e' far ripartire la sub a maschera
(mascheraNUOVA) chiusa? e allora controlla per l'appunto quello, non altro...

> if i=3 then
> DoCmd.OpenForm "mascheraNUOVA"      ' uscendo dalla quale imposto VarA=1

ricontrolla:
If SysCmd(acSysCmdGetObjectState, acForm, "mascheraNUOVA") = 0 Then
' E' chiusa
Else
' None e' chiusa
goto ricontrolla:
End If

> End if

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


text:
Il giorno giovedì 4 luglio 2013 15:45:09 UTC+2, A.Giovanni ha scritto:
> Salve icaa,
>
> premesso che ho provato a cercare giï¿½ anche sul "sito comune" senza trovar

Probabilmente ti basta

if i=3 then
DoCmd.OpenForm "mascheraNUOVA",,,acDialog      'Dialog=finchè non è chiusa, ferma tutto

' chiudi la form, continua la procedura


text:
"Fair87"  ha scritto nel messaggio
news:38cec790-ae13-43e9...@googlegroups.com...

> DoCmd.OpenForm "mascheraNUOVA",,,acDialog      'Dialog=finchè non è
> chiusa, ferma tutto

O.O
Non sapevo che "Dialog" avesse questa funzione, pensavo si limitasse solo
all'aspetto.
Ottimo tips!
Grande Fair87.

Come ho già scritto a Pablitomf, ho risolto con il passaggio su controllo
variabile
(anche se ovviamente tengo impegnato un core della CPU per "niente", ma il
tutto
con l'altra maschera dura pochi secondi quindi il "difetto" è accettabile.)

Col controllo su variabile, mi tengo anche la maschera "normale", comunque
ti ringrazio
d'avermi insegnato il trucchetto del dialog (me lo segno anche questo che
può tornarmi utile)

--
A.GiovanniB.


title: R: diventa imprenditore anche tu

author: Ditta Cerri (Sib)

text:
2000italianet <
w...@2000italianet.com
> wrote in message
8glovp$v5f$1...@pegasus.tiscalinet.it...
> Con L. 200.000 si può iniziare una attività di web hosting, oppure essere
> protagonista in internet con tuo dominio primario.
> Questa offerta è rivolta a tutti.
>
www.2000italianet.com
L'idea mi piace molto!!
Mandatemi le 200.000 che inizio subito a lavorare!!
Sib


title: R: diventa imprenditore anche tu

author: Sergio MAZZA

text:
"Ditta Cerri (Sib)" <
cerriserv...@tiscalinet.it
> ha scritto nel
messaggio news:8gm3g9$43v$1...@pegasus.tiscalinet.it...

Esoso! Mi accontento di 150.000...
Ciao.


title: unico archivio, contatore doppio su si e no

author: Luigi Onofrio

text:
ho un archivio di record in cui vi è un campo SI/NO,
in questo archivio vorrei crearci un contatore(non contatore) che dia un
numero progressivo ai record SI e un numero progressivo ai record NO es.:
1/SI, 2/SI, 3/SI, 1/NO, 2/NO, 3/NO ecc.
come posso fare?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: napo

text:
> ho un archivio di record in cui vi č un campo SI/NO,
> in questo archivio vorrei crearci un contatore(non contatore) che dia un
> numero progressivo ai record SI e un numero progressivo ai record NO es.:
> 1/SI, 2/SI, 3/SI, 1/NO, 2/NO, 3/NO ecc.
> come posso fare?
Puoi farlo in VBA.
Inserisci nella tabella un campo "intero lungo" per il contatore.
Fai una query che recupera tutti i record, se vuoi ordinati per SI/NO.
Inizializzi 2 variabili contatore, countSI e countNO.
Fai un bel ciclo su tutti i record ed a seconda del valore di SI/NO, imposti
il contatore nella tabella ed incrementi la variabile.
Si potrebbe fare anche lavorando sulle query ma diventa piů complesso.
Ciao
Marco


author: luigi onofrio

text:
napo ha scritto:



> Ciao
> Marco
ti potresti esprimere con un esempio pratico?
graize



title: Public Sub e Public Function

author: ultrareflex

text:
Salve a tutto il NG.
Sto sbattendo la testa nel muro senza trovare una spiegazione.
Ho creato un modulo. Questo modulo ha una public function e il codice è
questo:
Public Sub Aggiornamento()
 If (Forms!Ordini01!DettaglioOrdiniComplessivo.Form!Operazione = 0) And
Forms!Ordini01!DettaglioOrdiniComplessivo!Cornice51 = 1 Then
Forms!Ordini01!DettaglioOrdiniComplessivo.Form!IDProdotto.Enabled = True
Forms!Ordini01!DettaglioOrdiniComplessivo.Form!Descrizione.Visible = False
End Function
Questa function non funziona mi dà errore:
Propietà o metodo non supportati dall'oggetto.
Se trasformo la function in una sub funziona ma non mi riconosce il nome
=Aggiornamento()
Qualcuno sa dove sto sbagliando nella function?
Grazie Molte
Ultra