title: funzione mediana

author: Roberto Barbetti

text:
Salve a tutti.........
 in rete ho trovato questo codice per il calcolo della funzione mediana
(vedi excel)
che sarebbe utile per la mia semplice e rozza applicazioncina per database..
Function fctnMediana(strField As String) As Variant
'Code sample from Accessory
http://www22.brinkster.com/accessory
 'reference to the DAO Object Library too
    Dim dbs As dao.Database, rst As dao.Recordset, booEven As Boolean 'You
need to add a
    Set dbs = DBEngine(0)(0)
    Set rst = dbs.OpenRecordset("SELECT * FROM siti  WHERE unita = 'aaa'
ORDER BY " & strField)
    If rst.EOF = False Then
        rst.MoveLast
        booEven = (rst.RecordCount Mod 2 = 0) 'Is there an even number of
records in the recordset?
        rst.PercentPosition = 50 'Rounds down if there is an even number of
records...
        fctnMediana = rst.Fields(strField)
        If booEven Then
            rst.MoveNext
            fctnMediana = (fctnMediana + rst.Fields(strField)) / 2 '...so
take the average of
            'the this and the next value up
        End If
    End If
 rst.Close
    Set rst = Nothing
    Set dbs = Nothing
End Function
quello che vorrei fare io in "open recordset" :
1)va bene che mi peschi in "siti" ma.....
2) ......vorrei che.. la clausula WHERE sia "unita" =  il contenuto di
casella di testo di form
3) ....strField sia anchesso = al contenuto di casella di testo della form
corrente
...se non si è capito vorrei eseguire questa funzione in una casella di
testo non associata nella form...
vi chiedo di aiutarmi a modificare il codice di questa funzione in base alle
esigenze espresse qui sopra...
c'ho provato io..ma mi ci sto rincoglionendo senza risultati...
grazie e buon lavoro..


title: funzione mediana

author: Bruno Campanini

text:
"Roberto Barbetti" <
barb...@soilmaps.it
> wrote in message
news:e0b5aq$1rna$1...@newsreader2.mclink.it...
> Salve a tutti.........
> in rete ho trovato questo codice per il calcolo della funzione mediana
> (vedi excel)
> che sarebbe utile per la mia semplice e rozza applicazioncina per
> database..
[...]
> quello che vorrei fare io in "open recordset" :
> 1)va bene che mi peschi in "siti" ma.....
> 2) ......vorrei che.. la clausula WHERE sia "unita" =  il contenuto di
> casella di testo di form
> 3) ....strField sia anchesso = al contenuto di casella di testo della form
> corrente
> ...se non si è capito vorrei eseguire questa funzione in una casella di
> testo non associata nella form...
Prova con questa, è molto simile alla tua:
====================================
Public Function Mediana(TableName As String, _
                        CampoModalità As String, _
                        CampoFrequenze As String)
Dim SQL As String, RS As Recordset, Pari As Boolean, NumFreq
SQL = "SELECT " & TableName & "." & CampoModalità & ", " & TableName & "."
SQL = SQL & CampoFrequenze & ", (Select Sum(" & CampoFrequenze & ") "
SQL = SQL & "From [" & TableName & "] As AAA Where [AAA]." & CampoModalità
SQL = SQL & "<=[" & TableName & "]." & CampoModalità & ") "
SQL = SQL & "AS FrequenzeAccumulate FROM " & TableName
SQL = SQL & " ORDER BY " & TableName & "." & CampoModalità & ";"
Set RS = CurrentDb.OpenRecordset(SQL)
RS.MoveLast
NumFreq = CDec(RS![FrequenzeAccumulate])
If NumFreq / 2 = Int(NumFreq / 2) Then
    Pari = True
End If
RS.MoveFirst
If Pari Then
    RS.FindFirst "[FrequenzeAccumulate]>=" & Int(NumFreq / 2)
    Mediana = CDec(RS![Modalità])
    RS.MoveFirst
    RS.FindFirst "[FrequenzeAccumulate]>=" & Int(NumFreq / 2) + 1
    Mediana = (Mediana + RS![Modalità]) / 2
Else
    RS.FindFirst "[FrequenzeAccumulate]>=" & NumFreq / 2
    Mediana = CDec(RS![Modalità])
End If
End Function
========================================
Bruno


title: Yankee go home!

author: Ken il guerriero

text:
�         Gli statunitensi cercano casa: noi vogliamo rendergli impossibile
la vita. Come? Leggi qui, lo puoi fare anche tu.
"CERCASI case singole, bifamiliari, case a schiera e appartamenti di ampia
metratura da affittare direttamente a personale americano. Non � richiesto
il pagamento di provvigioni e di nessuna commissione per l'assistenza
fornita durante il periodo contrattuale. Contattare direttamente l'UFFICIO
ALLOGGI della caserma Ederle, telefono 0444716978".
E' l'annuncio che appare, da un paio di giorni, su Il Giornale di Vicenza;
gli statunitensi cercano appartamenti per ospitare i propri soldati e si
sono messi al lavoro. Ma anche l'Ufficio Alloggi della caserma Ederle ha un
punto debole: � il suo telefono; che, se dovesse continuare a squillare con
cittadini che chiedono informazioni, propongono appartamenti inesistenti,
fissano appuntamenti a cui nessuno si presenta, potrebbe diventare davvero
bollente.
Se vogliono una casa nella nostra citt�, dovranno sudarsela. Telefona all'Ufficio
Alloggi 1, 5 10 volte al giorno. Anche semplicemente per chiedere
informazioni... 0444716978. Con un p� di fantasia, gli faremo perdere molto
del loro prezioso tempo!


title: Yankee go home!

author: Roberto da Parma

text:
"Ken il guerriero" <
k...@nospam.it
> ha scritto nel messaggio
news:4addd6f3$0$828$4faf...@reader5.news.tin.it...

Dovresti essere cacciato da questo NG!
1- per tutti i post non strettamente inerenti all'ng dovresti inserire [OT],
ma � il meno!
2- il tuo proclama � incivile e serve solo a creare astio e ulteriori
problemi, tra l'altro a persone che nemmeno conosci e non sai nemmeno chi
sono.
3- non � di certo con gli americani che cercano casa qui che te la dovresti
prendere, ma con altre persone
4- per la mentalit� che metti in campo e per il tempo che fai perdere TU
agli altri dovresti essere cacciato in primis...da questo NG!
--
Roberto da Parma


title: Yankee go home!

author: Oscar Manfredini

text:
"Ken il guerriero"

Brutta cosa lo SPAM nello usenet ... comunque sottoscrivo al 100% i
contenuti del messaggio: chi si fa pecora il lupo se lo magna.
Continuate a rompere i coglioni a quelle merde.
Saluti.


title: Yankee go home!

author: MA

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> ha scritto nel messaggio
news:4adf3192$0$1105$4faf...@reader1.news.tin.it...

oscar mi hai deluso molto


title: Yankee go home!

text:
"MA" <
>> Brutta cosa lo SPAM nello usenet ... comunque sottoscrivo al 100% i
>> contenuti del messaggio: chi si fa pecora il lupo se lo magna.
>> Continuate a rompere i coglioni a quelle merde.
> oscar mi hai deluso molto
Sopravviver�.
Ciao: Oscar


title: Yankee go home!

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> ha scritto nel messaggio
news:4ae0462d$0$1421$4faf...@reader4.news.tin.it...

Non vai mica tanto avanti di questo passo...per carit� come dici tu si
"sopravvive" anche senza la stima di alcuni ma l'idea che nutri �
tremendamente pericolosa...e triste...anche perch� ripeto non rispondi per
cognizione di causa...e questo � ancora pi� grave.
Spero tu un giorno non debba aver bisogno di aiuto perch� magari quel giorno
ti potresti ritrovare solo come un cane...
Non � questione di lupo o pecora...� questione di buon senso...
Ognuno poi � responsabile delle proprie idee e delle proprie azioni e
risponder� di queste.
In ogni caso questo non sar� il luogo dove discuterne.
Saluti
--
Roberto da Parma


title: Yankee go home!

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> ha scritto nel messaggio
news:4ae0462d$0$1421$4faf...@reader4.news.tin.it...

Certo, ma al tuo posto io sopravviverei molto male
il qualunquismo che porta ad odiare i popoli in quanto entit� � sintomo di
grande ignoranza.
Tra gli americani ci sono buoni e cattivi, non � l'appartenenza ad una
nazione o ad un'etnia a determinare il mio comportamento.
Spesso vedo persone tacciare intere categorie solo per le pregresse
esperienze avute con alcuni di loro.
Anche in questo NG, nel tanto vituperato Access da alcuni "guru" che non
conoscono il prodotto, siamo tacciati di essere informatici di serie B,
mentre noi conosciamo le qualit� dei tanti che rispondono. In mezzo a noi ci
sono bravi e meno bravi, non � l'uso di Access a connotare la nostra
preparazione.
e te lo dice uno che ovunque va si sente dire che sono un terrone, che non
abbiamo voglia di lavorare, che siamo solo camorra etc...
un sorriso di sufficienza, che valuta chi esprime certe stupidaggini e via.
Io non mi offendo, loro dovrebbero un p� regolarsi e afferrare al volo ogni
tanto l'occasione per stare zitti.
>
> Ciao: Oscar
>
>


title: Yankee go home!

text:
"MA" <
> Certo, ma al tuo posto io sopravviverei molto male
>
> il qualunquismo che porta ad odiare i popoli in quanto entit� � sintomo di
> grande ignoranza.
> Tra gli americani ci sono buoni e cattivi, non � l'appartenenza ad una
> nazione o ad un'etnia a determinare il mio comportamento.
> Spesso vedo persone tacciare intere categorie solo per le pregresse
> esperienze avute con alcuni di loro.
> Anche in questo NG, nel tanto vituperato Access da alcuni "guru" che non
> conoscono il prodotto, siamo tacciati di essere informatici di serie B,
> mentre noi conosciamo le qualit� dei tanti che rispondono. In mezzo a noi
> ci sono bravi e meno bravi, non � l'uso di Access a connotare la nostra
> preparazione.
> e te lo dice uno che ovunque va si sente dire che sono un terrone, che non
> abbiamo voglia di lavorare, che siamo solo camorra etc...
> un sorriso di sufficienza, che valuta chi esprime certe stupidaggini e
> via.
> Io non mi offendo, loro dovrebbero un p� regolarsi e afferrare al volo
> ogni tanto l'occasione per stare zitti.
Non � un qualunquismo o superficialit�: i marmittoni u.s.a (tutti
professionisti) bivaccati in Italia, non sono in vacanza balneare.
Il tuo paese, il nostro paese, � di fatto una base di lancio-bombe per altri
lidi.
La costituzione del nostro paese, del tuo paese, sostiene che l'Italia
ripudi la guerra.
Coerenza vo cercando.
Ciao: Oscar
P,S: Non c'� astio o polemica personale da parte mia nei tuoi confronti: non
te la prendere.


title: Yankee go home!

text:
"Roberto da Parma" <
> Non vai mica tanto avanti di questo passo...per carit� come dici tu si
> "sopravvive" anche senza la stima di alcuni ma l'idea che nutri �
> tremendamente pericolosa...e triste...anche perch� ripeto non rispondi per
> cognizione di causa...e questo � ancora pi� grave.
La cognizione di causa, precisa come un algoritmo, la trovi nel post pi�
sotto nel Th.
> Spero tu un giorno non debba aver bisogno di aiuto perch� magari quel
> giorno ti potresti ritrovare solo come un cane...
Eeeelamadooonnaaa, hai visto molta fiction ultimamente?
> Non � questione di lupo o pecora...� questione di buon senso...
Appunto, hai detto bene, � questione di buon senso.
> Ognuno poi � responsabile delle proprie idee e delle proprie azioni e
> risponder� di queste.
> In ogni caso questo non sar� il luogo dove discuterne.
Bravo, quindi continuiamo a occuparci di Access.
Saluti: Oscar


title: Yankee go home!

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> ha scritto nel messaggio
news:4ae06361$0$1415$4faf...@reader4.news.tin.it...
>
> "MA" <
>
>
>> Certo, ma al tuo posto io sopravviverei molto male
>>
>> il qualunquismo che porta ad odiare i popoli in quanto entit� � sintomo
>> di grande ignoranza.
>> Tra gli americani ci sono buoni e cattivi, non � l'appartenenza ad una
>> nazione o ad un'etnia a determinare il mio comportamento.
>> Spesso vedo persone tacciare intere categorie solo per le pregresse
>> esperienze avute con alcuni di loro.
>> Anche in questo NG, nel tanto vituperato Access da alcuni "guru" che non
>> conoscono il prodotto, siamo tacciati di essere informatici di serie B,
>> mentre noi conosciamo le qualit� dei tanti che rispondono. In mezzo a noi
>> ci sono bravi e meno bravi, non � l'uso di Access a connotare la nostra
>> preparazione.
>> e te lo dice uno che ovunque va si sente dire che sono un terrone, che
>> non abbiamo voglia di lavorare, che siamo solo camorra etc...
>> un sorriso di sufficienza, che valuta chi esprime certe stupidaggini e
>> via.
>> Io non mi offendo, loro dovrebbero un p� regolarsi e afferrare al volo
>> ogni tanto l'occasione per stare zitti.
>
>
> Non � un qualunquismo o superficialit�: i marmittoni u.s.a (tutti
> professionisti) bivaccati in Italia, non sono in vacanza balneare.
Pensala come vuoi



title: Yankee go home!

text:
"MA" <
>> Non � un qualunquismo o superficialit�: i marmittoni u.s.a (tutti
>> professionisti) bivaccati in Italia, non sono in vacanza balneare.
> Pensala come vuoi
Come *voglio* ?
Saluti: Oscar


title: Yankee go home!

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> wrote in message
news:4ae06361$0$1415$4faf...@reader4.news.tin.it...
> Non � un qualunquismo o superficialit�: i marmittoni u.s.a (tutti
> professionisti) bivaccati in Italia, non sono in vacanza balneare.
> Il tuo paese, il nostro paese, � di fatto una base di lancio-bombe per
> altri lidi.
[...]
Quei marmittoni per�:
1 - non lanciano bombe nel nostro paese
2 - non pisciano per le strade
3 - hanno soldi da spendere nelle nostre botteghe.
a differenza di altri "turisti" che penso ti siano pi� graditi.
Bruno


title: Yankee go home!

text:
"Bruno Campanini" <
>> Non � un qualunquismo o superficialit�: i marmittoni u.s.a (tutti
>> professionisti) bivaccati in Italia, non sono in vacanza balneare.
>> Il tuo paese, il nostro paese, � di fatto una base di lancio-bombe per
>> altri lidi.
> Quei marmittoni per�:
> 1 - non lanciano bombe nel nostro paese
> 2 - non pisciano per le strade
> 3 - hanno soldi da spendere nelle nostre botteghe.
> a differenza di altri "turisti" che penso ti siano pi� graditi.
Spiacente ma non so a quali turisti tu ti stia riferendo...
Peraltro poco importa cosa piaccia o non piaccia al sottoscritto (o a Bruno
Campanini): esiste una carta costituzionale, chiara come il sole nel suo
articolo 11.
Saluti: Oscar


title: Yankee go home!

author: Valerio Valentini

text:
Oscar Manfredini wrote:
> "Bruno Campanini" <
>
>
cut
>
>
> Spiacente ma non so a quali turisti tu ti stia riferendo...
> Peraltro poco importa cosa piaccia o non piaccia al sottoscritto (o a
> Bruno Campanini): esiste una carta costituzionale, chiara come il
> sole nel suo articolo 11.
>
> Saluti: Oscar
Che tu conosci ed interpreti meglio di chi l'ha scritta ... comunque in tal
caso ti resta it.diritto.
Ohh, d'ora in poi posso insegnare Access.
Ciao, Valerio.


title: Yankee go home!

text:
"Valerio Valentini" <
>> Spiacente ma non so a quali turisti tu ti stia riferendo...
>> Peraltro poco importa cosa piaccia o non piaccia al sottoscritto (o a
>> Bruno Campanini): esiste una carta costituzionale, chiara come il
>> sole nel suo articolo 11.
> Che tu conosci ed interpreti meglio di chi l'ha scritta ... comunque in
> tal caso ti resta it.diritto.
No ciccio, l'articolo 11 non � da *interpretare*, ma semplicemente da
leggere.
Saluti: Oscar


title: Yankee go home!

text:

Il fatto che tu sappia appena leggere non significa che per il resto del
mondo, costituenti compresi, valga la stessa cosa.
Ciao, Valerio.


title: Yankee go home!

text:
"Valerio Valentini"
>> No ciccio, l'articolo 11 non � da *interpretare*, ma semplicemente da
>> leggere.
> Il fatto che tu sappia appena leggere non significa che per il resto del
> mondo, costituenti compresi, valga la stessa cosa.
Il fatto che tu consideri l'accensione del (tuo) cervello un optional, non
significa che per il resto del
 mondo, costituenti compresi, valga la stessa cosa.
Saluti: Oscar


title: Yankee go home!

text:

Le rose sono rosse, le margherite bianche ed il cielo blu. L'importante �
contestualizzare le proprie affermazioni. Qualora fosse invece un tentativo
di offesa: povero piccolo che originalit�.


title: Yankee go home!

text:
"Valerio Valentini" <
>>>> No ciccio, l'articolo 11 non � da *interpretare*, ma semplicemente
>>>> da leggere.
>>> Il fatto che tu sappia appena leggere non significa che per il resto
>>> del mondo, costituenti compresi, valga la stessa cosa.
>> Il fatto che tu consideri l'accensione del (tuo) cervello un
>> optional, non significa che per il resto del
>> mondo, costituenti compresi, valga la stessa cosa.
> Le rose sono rosse, le margherite bianche ed il cielo blu.
A onor del vero esistono rose di vari colori, e pure cieli, a seconda della
metereologia.
Tutta qua la tua capacit� d'astrazione?
>L'importante � contestualizzare le proprie affermazioni. Qualora fosse
>invece un tentativo di offesa: povero piccolo che originalit�.
Si potrebbe dire lo stesso per quanto hai scritto, cicciobello.
Ma il mio non � un tentativo d'offesa: piuttosto una constatazione sulle
capacit� intellettive di chi cerca *interpretazioni* di quanto �
lapalissiano.
Saluti: Oscar
P.S: Cerca sul vocabolario lapalissiano...


title: Yankee go home!

text:
"Oscar Manfredini" <
oscar.ma...@libero.it
> ha scritto nel messaggio
news:4ae2ab2c$0$819$4faf...@reader5.news.tin.it...

Oscar a mio avviso stai un p� esagerando.
Sei su una posizione diversa? Ok.
Tu non convinci noi, noi non convinciamo te.
trova questa inziativa particolarmente stupida ed odiosa, come trovo
fastidioso ed odioso lo spam e tutti i tentativi di venderti linne
telefoniche che subiamo.
Se vuoi protestare fallo in maniera intelligente, anche perch� non credo che
Obama cambier� politica estera, perch� tu rompi le scatole al call center
della base italiana.
In ogni caso solo gli integralisti leggono e basta, le persone un p� pi�
strutturate interpretano e commisurano. Il fato che i nostri padri
costituzionalisti abbiano creato un'eccellente costituzione (credimi ho
preso un ottimo voto a Diritto Pubblico all'epoca, la conosco bene), non
significa che abbiano ragione su tutto, che siano il verbo. Tutto va
interpretato e non solo letto.
Ora basta per�, questo post si � dilungato anche troppo, non credi?


title: Yankee go home!

text:
"MA" <
(cut)
> Oscar a mio avviso stai un p� esagerando.
> Sei su una posizione diversa? Ok.
> Tu non convinci noi, noi non convinciamo te.
> trova questa inziativa particolarmente stupida ed odiosa, come trovo
> fastidioso ed odioso lo spam e tutti i tentativi di venderti linne
> telefoniche che subiamo.
> Se vuoi protestare fallo in maniera intelligente, anche perch� non credo
> che Obama cambier� politica estera, perch� tu rompi le scatole al call
> center della base italiana.
Sono ovviamente d'accordo sul fatto che lo spammer abbia sbagliato.
Ma non nel merito delle sue considerazioni: buone e giuste.
Dici che le autorit� non cambieranno idea per via di queste "stupide e
odiose" iniziative popolari?
Intanto, grazie alla tenacia dei vicentini, i lavori della base non sono
cominciati.
> In ogni caso solo gli integralisti leggono e basta, le persone un p� pi�
> strutturate interpretano e commisurano. Il fato che i nostri padri
> costituzionalisti abbiano creato un'eccellente costituzione (credimi ho
> preso un ottimo voto a Diritto Pubblico all'epoca, la conosco bene), non
> significa che abbiano ragione su tutto, che siano il verbo. Tutto va
> interpretato e non solo letto.
Il problema � che a forza d'interpretare anche ci� che appare
*lapalissiano*, si apre la strada all'anarchia e ai figli di puttana.
Peraltro l'articolo 11, date le circostanze in cui fu scritto, � in assoluto
il meno interpretabile di tutta la carta: � un perentorio rifiuto di quella
cosa che port� il tuo paese alla rovina.
> Ora basta per�, questo post si � dilungato anche troppo, non credi?
Bah, non dipende solo da me ... e comunque ti faccio notare che
l'aggressione l'ho subita io.
Ciao: Oscar


title: AUTOESPANSIONE CASELLA DI TESTO

author: sasa

text:
Buondì,
avrei bisogno di un piccolo aiutino, su una maschera dove è presente una
casella di testo che per ragioni di spazio nella maschera non posso
adattarla al contenuto.
Vorrei sapere se esiste un metodo per autoespandere questa casella
adattandola al contenuto quando questa e attiva oppure con doppio click e
poi tornare alle dimensioni iniziali quando si disattiva ?
 Inoltre, sempre su questa casella è possibile vedere l'intero contenuto al
passaggio del mouse, per esempio come avviene per il "testo descrizione
controllo" ?
Un grazie a tutti.
Sasa


title: AUTOESPANSIONE CASELLA DI TESTO

author: Pablitomf

text:
sasa ha scritto:


Uè Sasà!!!
Puoi sull'evento clik o altro evento del campo di cui sopra rendere
visibile nella maschera un campo d'appoggio (impostato a invisibile) con
lo stesso contenuto della casella (stessa origine bloccata) per poi
renderlo invisibile sull'attivazione del campo successivo... potrebbe
fungere no?
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: AUTOESPANSIONE CASELLA DI TESTO

author: namor

text:
sasa ha scritto:
> Buondě,
> avrei bisogno di un piccolo aiutino, su una maschera dove č presente una
> casella di testo che per ragioni di spazio nella maschera non posso
> adattarla al contenuto.
> Vorrei sapere se esiste un metodo per autoespandere questa casella
> adattandola al contenuto quando questa e attiva oppure con doppio click e
> poi tornare alle dimensioni iniziali quando si disattiva ?
>  Inoltre, sempre su questa casella č possibile vedere l'intero contenuto al
> passaggio del mouse, per esempio come avviene per il "testo descrizione
> controllo" ?
> Un grazie a tutti.
> Sasa
Quando sei nella casella premi Shift F2.
Oppure trovi un esempio sul
www.sitocomune.com
, sezione forms.
Per il "testo descrizione controllo" (controltiptext), nell'evento current
della maschera lo puoi impostare uguale al contenuto della casella. Questo
solo se sei in maschera singola, in maschera continua ti mostrerebbe sulle
caselle di tutti i record solo la descrizione contenuta nella casella del
record attivo.
Namor
--
namor at inwind punto it



title: AUTOESPANSIONE CASELLA DI TESTO

author: ciroteo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:ch1mg8$kms$1...@news.newsland.it...
> sasa ha scritto:
>
> > Buondì,
> > avrei bisogno di un piccolo aiutino, su una maschera dove è presente una
> > casella di testo che per ragioni di spazio nella maschera non posso
> > adattarla al contenuto.
> > Vorrei sapere se esiste un metodo per autoespandere questa casella
> > adattandola al contenuto quando questa e attiva oppure con doppio click
e
> > poi tornare alle dimensioni iniziali quando si disattiva ?
> >  Inoltre, sempre su questa casella è possibile vedere l'intero contenuto
al
> > passaggio del mouse, per esempio come avviene per il "testo descrizione
> > controllo" ?
> > Un grazie a tutti.
> > Sasa
>
> Quando sei nella casella premi Shift F2.
> Oppure trovi un esempio sul
www.sitocomune.com
, sezione forms.
> Per il "testo descrizione controllo" (controltiptext), nell'evento current
> della maschera lo puoi impostare uguale al contenuto della casella. Questo
> solo se sei in maschera singola, in maschera continua ti mostrerebbe sulle
> caselle di tutti i record solo la descrizione contenuta nella casella del
> record attivo.
> Namor
>
>
> --
> namor at inwind punto it
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
fai una maschera zoom in cui hai la stessa origine dati ma il controllo che
ospiterà il testo delle dimensioni che meglio di aggradano.
al doppio click o su pulsante apri la maschera filtrata e la richiudi dopo
aver salvato il record.


title: AUTOESPANSIONE CASELLA DI TESTO

author: lucio

text:
sasa ha scritto:
> Buondě,
> avrei bisogno di un piccolo aiutino, su una maschera dove č presente una
> casella di testo che per ragioni di spazio nella maschera non posso
> adattarla al contenuto.
> Vorrei sapere se esiste un metodo per autoespandere questa casella
> adattandola al contenuto quando questa e attiva oppure con doppio click e
> poi tornare alle dimensioni iniziali quando si disattiva ?
>  Inoltre, sempre su questa casella č possibile vedere l'intero contenuto al
> passaggio del mouse, per esempio come avviene per il "testo descrizione
> controllo" ?
> Un grazie a tutti.
> Sasa
Sull'evento SU attivato della casella di testo metti questa riga di codice
DoCmd.RunCommand acCmdZoomBox
--



title: AUTOESPANSIONE CASELLA DI TESTO

text:
orbr...@CANCELLAMItiscali.it (lucio) wrote in message news:<ch2dll$mmp$
1...@news.newsland.it
>...
> sasa ha scritto:
>
> > Buondģ,
> > avrei bisogno di un piccolo aiutino, su una maschera dove č presente una
> > casella di testo che per ragioni di spazio nella maschera non posso
> > adattarla al contenuto.
> > Vorrei sapere se esiste un metodo per autoespandere questa casella
> > adattandola al contenuto quando questa e attiva oppure con doppio click e
> > poi tornare alle dimensioni iniziali quando si disattiva ?
> >  Inoltre, sempre su questa casella č possibile vedere l'intero contenuto al
> > passaggio del mouse, per esempio come avviene per il "testo descrizione
> > controllo" ?
>
> > Un grazie a tutti.
> > Sasa
>
> Sull'evento SU attivato della casella di testo metti questa riga di codice
> DoCmd.RunCommand acCmdZoomBox
  puoi anche fare cosģ:
All'interno diuna masche o in un modulo copia la prima routine che
segue:
Public Sub sShowToolTip(frm As Form) 'serve a leggere dentro il
controllo piccolo per ontenere tutto il testo
Dim ctl As Control, i As Integer
    On Error Resume Next
    For Each ctl In frm.Controls
        With ctl
            If .ControlType = acTextBox Then
                .ControlTipText = .Value
            ElseIf .ControlType = acComboBox Then
                If .ColumnCount = 2 And .Value <> "" Then
                    .ControlTipText = .Column(.BoundColumn)
                End If
            End If
        End With
    Next ctl
    Set ctl = Nothing:    Set frm = Nothing
End Sub
A questo punto sull 'evento corrente della maschera copia quanto
segue:
Private Sub Form_Current()
       Call sShowToolTip(Me)
end sub
Fatto ciņ, vai in visualizzazione masche, posizionati con il cursore
nel controllo troppo piccolo per essere letto  .... aspetta un paio di
secondi e vedrai ......  (  ... tipo testo descrizione controllo)


author: Nicolas

text:
errore su aggiunta record in maschere continue duplica l'ultimo record, solo
apparentemente perchè poi salvando i dati da inseriti li ha salvati,
qualcuno sa a cosa è dovuto questo brutto effetto collaterale?


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio
news:499aa41b$0$1129$4faf...@reader1.news.tin.it...
> errore su aggiunta record in maschere continue duplica l'ultimo record,
> solo apparentemente perchè poi salvando i dati da inseriti li ha salvati,
> qualcuno sa a cosa è dovuto questo brutto effetto collaterale?
>
>
Fare un debug e vedere dove ti restituisce l'errore?
Ciao
--
Roberto da Parma


title: Problema con query ricerca duplicati

author: dan

text:
Salve a tutti.
Mi trovo quetso problema
In realta' il subject parla di query ricerca duplicati ma forse la
strada che sto seguendo e' sbagliata!
Ho una tabella con 3 campi . Per esempio
PERS    ANNO    TOTALE
PIPPO   2004     1200
PIPPO   2003     1000
PLUTO  2003     1100
PLUTO  2001     900
GIGI       2004     1200
GIGI       2002     1000
Ho la necessita' di creare una query che mi dia come risultato questo
PIPPO  2004   1200
PLUTO 2003   1100
GIGI     2004   1200
Cioe' che mi prenda ogni singola persona e mi faccia vedere un solo
record, quello relativamente al campo ANNO piu' recente , che non
necessariamente e' il 2004 e nel campo TOTALE il valore relativo
Spero di essere stato chiaro !!!
Grazie in anticipo a chiunque mi possa aiutare
dAN


title: Problema con query ricerca duplicati

author: giorgio rancati

text:
"dan" <
nutr...@email.it
> ha scritto nel messaggio
news:r7vrj0tuqpc3k27h4...@4ax.com...

Ciao Dan,
prova cosě
-----------------
SELECT T1.Pers,T1.Anno,T1.Totale
FROM Tabella T1
     INNER JOIN
          (SELECT Pers,
                        Max(Anno) AS MaxAnno
           FROM Tabella
           GROUP BY Pers) T2
        ON T1.Pers=T2.Pers AND T1.Anno=T2.MaxAnno
------------------
Ciao Giorgio


title: Problema con query ricerca duplicati

text:
Perfetto , grazie 1000 !!!
dAN


title: condizionw where su recordset

author: max

text:
Mi dite come scrivere la giusta sintassi della condizione Where per la
routin seguente se voglio ricercare tutte le descrizioni che iniziano per
esempio solo con le prime lettere di una casella di testo?
Riesco solo a far funzionare la routin solo se scrivo con esattezza il testo
da ricercare...
Private Sub OK_Click()
 Dim rst As ADODB.Recordset
 Set rst = New ADODB.Recordset
 rst.CursorLocation = adUseClient
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
And Me.Descrizione > 0 Then
rst.Open "SELECT tblDettagliMovimentiMagazzino.Descrizione,
tblDettagliMovimentiMagazzino.Quantità "_
  & "FROM tblDettagliMovimentiMagazzino " _
  & "WHERE (((tblDettagliMovimentiMagazzino.Descrizione)= '" &
Me.Descrizione & "' )), CurrentProject.Connection
Set Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset
= rst
End If
End Sub
Ho provato con WHERE (((tblDettagliMovimentiMagazzino.Descrizione)= '" &
Me.Descrizione & " & "*"' ))
ma niente ........ ritorna errore
Un Saluto a tutto il Ng. e tanti auguri


title: condizionw where su recordset

author: Cinzia

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:3BDxd.31597$Lg7.1...@twister1.libero.it...

Ciao max,
devi usare l'operatore LIKE invece di =, così:
"WHERE (( tblDettagliMovimentiMagazzino.Descrizione  like " & chr(34) &
Me.Descrizione &  "*" & chr(34)  ))
saluti
Cinzia


title: condizionw where su recordset

author: ALESSANDRO Baraldi

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:cq71rm$2rc$1...@lacerta.tiscalinet.it...

Con ADO operatore "%" me lo ricordo bene dato che ho sbagliato l'altra
volta...!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: condizionw where su recordset

text:
>> Ho provato con WHERE (((tblDettagliMovimentiMagazzino.Descrizione)= '" &
>> Me.Descrizione & " & "*"' ))
>> ma niente ........ ritorna errore
>>
>> Un Saluto a tutto il Ng. e tanti auguri
>>
>>
>
> Ciao max,
> devi usare l'operatore LIKE invece di =, così:
> "WHERE (( tblDettagliMovimentiMagazzino.Descrizione  like " & chr(34) &
> Me.Descrizione &  "*" & chr(34)  ))
> saluti
> Cinzia
>
Ciao Cinzia pultroppo non và.....mi ritorna un errore del tipo "Connessione
chiusa o non valida in questo contesto"
Perchè?
Dimenticavo uso access 2003
Ciao


title: condizionw where su recordset

author: Roberto da casa

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:3BDxd.31597$Lg7.1...@twister1.libero.it...

Non devi usare l'operatore = ma l'operatore Like (vedi help).
Prova così:
"WHERE (((tblDettagliMovimentiMagazzino.Descrizione) Like '" &
Me.Descrizione & "' & "*" ))
Tanti auguri di Buon Natale a te.
--
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------


title: condizionw where su recordset

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cq720n$2v9$1...@lacerta.tiscalinet.it...


Hai ragione, mi ero concentrata sulla condizione e non avevo notato ADO!!
Cinzia


title: condizionw where su recordset

author: Karl Donaubauer

text:
max wrote:
>>> Ho provato con WHERE (((tblDettagliMovimentiMagazzino.Descrizione)=
>>> '" & Me.Descrizione & " & "*"' ))
>>> ma niente ........ ritorna errore
>>> ...
>> devi usare l'operatore LIKE invece di =, così:
>> "WHERE (( tblDettagliMovimentiMagazzino.Descrizione  like " &
>> chr(34) & Me.Descrizione &  "*" & chr(34)  ))
>> saluti
>> Cinzia
>>
> Ciao Cinzia pultroppo non và.....mi ritorna un errore del tipo
> "Connessione chiusa o non valida in questo contesto"
> Perchè?
> Dimenticavo uso access 2003
Come già scritto da @Alex con ADO devi usare i joker di ANSI,
cioè % invece di *:
"WHERE tblDettagliMovimentiMagazzino.Descrizione Like " &
chr(34) & Me!Descrizione &  "%" & chr(34)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: condizionw where su recordset

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:PWDxd.31627$Lg7.1...@twister1.libero.it...

Hai provato con il % al posto di * come giustamente suggerito da Alessandro?
Se si su che istruzione ti da l'errore?
Cinzia


title: condizionw where su recordset

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:3BDxd.31597$Lg7.1...@twister1.libero.it...
> Mi dite come scrivere la giusta sintassi della condizione Where per la
> routin seguente se voglio ricercare tutte le descrizioni che iniziano per
> esempio solo con le prime lettere di una casella di testo?
> Riesco solo a far funzionare la routin solo se scrivo con esattezza il
> testo da ricercare...
Grazie a tutti......... adesso funziona alla perfezione.....
Saluti
Massimo


title: Timer su Maschera crea casini...

author: Stuk

text:
Salve, visto il problema che odbc mi chiude la connessione se non
faccio operazioni ogni n secondi, ho deciso di mettere un timer su una
maschera che è sempre attiva, che ogni tot secondi esegue una query
cosi odbc non muore mai. Però ho un altra maschera  nella quale
visualizzo una query e attraverso pulsanti eseguo dei filtri...il
problema è che se faccio un filtro e contemporaneamente nella maschera
del timer il timer scatta...il filtro va a rane e mi chiede di
inserire la proprietà come se non l'avesse ricevuta...se tolto il
timer dalla maschera tutto funziona egregiamente...
Come risolvo?
Grazie


title: Timer su Maschera crea casini...

text:

vai nelle opzioni e setti il timeout odbc
0 = infinito
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Timer su Maschera crea casini...

text:

Ti dispiace essere un pò più preciso? Opzioni di access? In avanzate?
in timeout ole? in intervallo aggiornamenti?
Grazie.


title: Timer su Maschera crea casini...

text:
On 8 Apr, 12:47, "MA" <
mas...@massimilianoamendola.it
> wrote:

Ti dispiace essere un pò più preciso? Opzioni di access? In avanzate?



title: Timer su Maschera crea casini...

text:

Mi scuso per i doppioni ma il refresh mi frega spesso, in ogni caso ho
risolto aumentanto il wait timeout del server sql


title: compilare campi con valori assegnati

text:
Buona sera a tutti!
Vorrei sapere come scrivere il codice VBA per eseguire una routine che assegna a un campo, nello specifico, il valore di una casella combinata, sempre che tale valore non sia già presente.

In pratica ho costruito una maschera collegata ad una tabella attività.
La casella combinata restituisce un elenco di tutti i clienti registrati in anagrafica clienti. Il risultato che vorrei ottenere all'evento "dopo aggiornamento" è il seguente:

- Inserisci nel campo nome della maschera, il valore della casella combinata.
- Se il nome è già presente, mostra una msgbox con scritto cliente già presente.
- fine istruzione

p.s.
In definitiva non riesco a scrivere il codice VBA che "verifica" la presenza o meno del valore della casellacombinata.
Spero di essere stato chiaro,
grazie in anticipo!


title: compilare campi con valori assegnati

author: Alessandro Cara

text:

Mah...la butto li
if "" & casellacombinata = "" then casellacombinata=valorechevoglio

--

ac (x=y-1) e non uso il KillFile.
La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)


title: compilare campi con valori assegnati

text:
Il 19/02/2014 19.30,
car...@gmail.com
 ha scritto:

Sorry
if "" & casellacombinata = "" then
	msgbox "casellacombinata vuota"
elseif "" & dlookup(valorecasellacombinata) <> "" then
         cliente esistente
else
         fai quellochedevifare
end if



title: compilare campi con valori assegnati

text:
car...@gmail.com
 wrote:
> ...
> La casella combinata restituisce un elenco di tutti i clienti
> registrati in anagrafica clienti. Il risultato che vorrei ottenere
> all'evento "dopo aggiornamento" è il seguente:
>
> - Inserisci nel campo nome della maschera, il valore della casella
> combinata.
> - Se il nome è già presente, mostra una msgbox con scritto cliente
> già presente.
> - fine istruzione
>
> p.s.
> In definitiva non riesco a scrivere il codice VBA che "verifica" la
> presenza o meno del valore della casellacombinata.

http://www.donkarl.com/it?FAQ4.25

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Maschera senza record..

author: SuperPippo宰at Home

text:
ciao a tutti...
su evento Load ho inserito
DoCmd.OpenForm stDocName,,,,acFormAdd
affinchè all'avvio della maschera non mi si presenti
alcun record... purtroppo mi genera un errore di
errore di compilazione, variabile non definita... come mai ???
ciao...


title: Maschera senza record..

author: SunRex

text:
"SuperPippo®_at Home" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel
messaggio news:sXZ5b.293488$lK4.9...@twister1.libero.it...

Boh!
Prova a levare acFormAdd ed a impostare direttamente la maschera sulle
propietà ad Immissione Dati = Si
SunRex


title: Maschera senza record..

author: MA

text:
"SuperPippoŽ_at Home" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel
messaggio news:sXZ5b.293488$lK4.9...@twister1.libero.it...
> ciao a tutti...
>
> su evento Load ho inserito
>
> DoCmd.OpenForm stDocName,,,,acFormAdd
>
> affinchč all'avvio della maschera non mi si presenti
> alcun record... purtroppo mi genera un errore di
> errore di compilazione, variabile non definita... come mai ???
> ciao...
Usa immissione dati, ma l'hai definita srDocName?
MAssimiliano


title: Maschera senza record..

author: Alessandro Baraldi

text:
"SuperPippo®_at Home" <ik0qddT...@TOGLISPAMlibero.it> wrote in
message news:sXZ5b.293488$
lK4.9...@twister1.libero.it

E se imposti =Si la proprietà ImmissioneDati....?????
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Maschera senza record..

author: Paolo opg

text:
"SuperPippo®_at Home" <ik0qddT...@TOGLISPAMlibero.it> wrote in
news:sXZ5b.293488$
lK4.9...@twister1.libero.it
:

probabilmente fai riferimento a qualche variabile non definita...
stDocName, per caso?
o forse nella maschera cerchi di leggere dei record che, essendo la
maschera in modalità acFormAdd, non esistono...
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------


title: Maschera senza record..

text:
Alessandro Baraldi wrote:
> "SuperPippo®_at Home" <ik0qddT...@TOGLISPAMlibero.it> wrote in
> message news:sXZ5b.293488$
lK4.9...@twister1.libero.it
>
>> su evento Load ho inserito
>> DoCmd.OpenForm stDocName,,,,acFormAdd
>> affinchè all'avvio della maschera non mi si presenti
>> alcun record... purtroppo mi genera un errore di
>> errore di compilazione, variabile non definita... come mai ???
>> ciao...
>
> E se imposti =Si la proprietà ImmissioneDati....?????
---------------
la maschera è impostata a No = immissione dati...
dato che è una maschera di consultazione...
Cmq.. anche se lo imposto a SI il problema non cambia...
all'errore si evidenzia  stDocName
ciao...


title: Maschera senza record..

text:
"SuperPippo®_at Home" <ik0qddT...@TOGLISPAMlibero.it> wrote in
message news:Nn46b.294770$
Ny5.9...@twister2.libero.it

La proprietà può essere modificata in corso d'opera....!
Nel senso che se accedi alla Form per consultazione non serve
modificarne la proprietà.
Se invece la apri per aggiungere un Record allora la apri
e, quando aperta modifichi la proprietà.
Nel tuo caso però in effetti non capisco quale sia il problema,
se non un'errore di sintassi o di digitazione del Nome della
Form, o della Variabile.
Ciao.



title: Combo con risorse del computer

author: Napoleone

text:
Buongiorno a tutti voi,
dovrei con una query di accodamento aggiungere determinati dati in un db
esterno che è posizionato su una penna USB, ora dove sta il problema;
il mio Hard Disk ha due partizioni C e D, un masterizzatore E, a volte
collego una unità esterna F, quindi la mia penna non sempre come unità ha la
lettera G per poter impostare un codice SQL di questo tipo:
INSERT INTO TabellaEsterna IN 'G:\Salvataggi\CopiaMioDB.mdb';
SELECT *
FROM Tb_Presenze_Storiche
(sempre ammesso che questo codice vada bene)
Fantasticavo quindi in questo senso: Si potrebbe creare una combo che mi
recupera l'elenco dei drive e quindi quella (unità) che io seleziono diventa
la predefinita (in quel momento) per il salvataggio.
Napoleone


title: Combo con risorse del computer

author: Sergio MAZZA

text:
"Napoleone" <
napol...@inwind.it
> ha scritto nel messaggio news:bpVke.25573$795.7...@twister1.libero.it...

Con VBScript puoi ottenere l'elenco e il tipo di drive presenti:
es.
Sub ShowDriveType()
   Dim fso, d, t, dc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
       For Each d In dc
        Set d = fso.GetDrive(d.DriveLetter)
        Select Case d.DriveType
            Case 0: t = "sconosciuta"
            Case 1: t = "removibile"
            Case 2: t = "fissa"
            Case 3: t = "di rete"
            Case 4: t = "CD-ROM"
            Case 5: t = "disco RAM"
        End Select
        Debug.Print "Unita " & d.DriveLetter & ": - " & t
        Set d = Nothing
        Next
Set dc = Nothing
Set fso = Nothing
End Sub
Ciao.
--
Sergio MAZZA


title: Combo con risorse del computer

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:d71krn$jrh$1...@canarie.caspur.it...

Questo codice va inserito in un modulo,
se si, da dove richiamarlo? (nella Combo)
Cia Napoleone


title: Combo con risorse del computer

text:
"Napoleone" <
napol...@inwind.it
> ha scritto nel messaggio news:FqZke.117035$IN.19...@twister2.libero.it...
>
> Questo codice va inserito in un modulo,
> se si, da dove richiamarlo? (nella Combo)
>
> Cia Napoleone
Devi inserirlo in un modulo creando una funzione non una subroutine e richiamarla all'apertura della form che riempirą la combo
visualizzandoti i dati "freschi";
es.
Function ShowDriveType() As String
Dim fso, d, t, dc, strElenco as String
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
    Set d = fso.GetDrive(d.DriveLetter)
    Select Case d.DriveType
        Case 0: t = "sconosciuta"
        Case 1: t = "removibile"
         Case 2: t = "fissa"
         Case 3: t = "di rete"
         Case 4: t = "CD-ROM"
         Case 5: t = "disco RAM"
    End Select
    strElenco= strElenco & ";" & "Unita " & d.DriveLetter & ": - " & t
    Set d = Nothing
Next
Set dc = Nothing
Set fso = Nothing
ShowDriveType = Mid(strElenco, 2)
End Sub
Poi nell'evento "su apertura" della form inserisci il codice:
Me!nomeCombo.Rowsource = ShowDriveType()
La casella combinata deve avere la proprietą "tipo origine riga" impostata a "elenco valori"
Ciao.
--
Sergio MAZZA


title: Combo con risorse del computer

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:d71pi7$m4l$1...@canarie.caspur.it...

Quando tento di aprire la maschera mi esce il messaggio:
Errore di compilazione:
prevista Function o variabile
Napoleone


title: Combo con risorse del computer

text:
"Napoleone" <
napol...@inwind.it
> ha scritto nel messaggio news:nb%ke.117225$IN.19...@twister2.libero.it...
>
> Quando tento di aprire la maschera mi esce il messaggio:
> Errore di compilazione:
> prevista Function o variabile
>
> Napoleone
Descrivi quello che hai fatto e invia il codice...
Ciao.
--
Sergio MAZZA


title: Combo con risorse del computer

text:
> Descrivi quello che hai fatto e invia il codice...
>
> Ciao.
> Sergio MAZZA
Il modulo si chiama Sub ShowDriveType()
Ecco il codice:
----------------------------------------------
Sub ShowDriveType()
   Dim fso, d, t, dc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
       For Each d In dc
        Set d = fso.GetDrive(d.DriveLetter)
        Select Case d.DriveType
            Case 0: t = "sconosciuta"
            Case 1: t = "removibile"
            Case 2: t = "fissa"
            Case 3: t = "di rete"
            Case 4: t = "CD-ROM"
            Case 5: t = "disco RAM"
        End Select
        Debug.Print "Unita " & d.DriveLetter & ": - " & t
        Set d = Nothing
        Next
Set dc = Nothing
Set fso = Nothing
End Sub
----------------------------------------
La combo si chiama CmbDrive
------------------------------------
La combo è posizionata nella maschera M_Salva
--------------------------------------
nella maschera M_Salva a fronte dell'evento su apertura ho inserito questo
codice:
Private Sub Form_Open(Cancel As Integer)
Me!CmbDrive.RowSource = ShowDriveType()
----------------------------------------------
Mi pare non ci sia altro
Napoleone
End Sub


title: Combo con risorse del computer

text:

Dove hai salvato questa sub
Se nella stessa form va bene se in un modulo  o ne fai una function o la
rendi pubblica
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: Combo con risorse del computer

text:
"Napoleone" <
napol...@inwind.it
> wrote in message
news:eD%ke.26109$
795.8...@twister1.libero.it
> > Descrivi quello che hai fatto e invia il codice...
> >
> > Ciao.
>
> > Sergio MAZZA
> Il modulo si chiama Sub ShowDriveType()
> Ecco il codice:
> ----------------------------------------------
[CUT]
> ----------------------------------------
> La combo si chiama CmbDrive
> ------------------------------------
> La combo č posizionata nella maschera M_Salva
> --------------------------------------
> nella maschera M_Salva a fronte dell'evento su apertura ho inserito questo
> codice:
> Private Sub Form_Open(Cancel As Integer)
> Me!CmbDrive.RowSource = ShowDriveType()
> ----------------------------------------------
> Mi pare non ci sia altro
>
> Napoleone
>
> End Sub
La puoi mettere sia in un Modulo esterno, non serve dichiararla
Public in quanto l'assenza rende implicito il Public, oppure
nella Form, allora č meglio sia Private.
Su Load di Form chiamala in questo modo dopo averla
modificata come sotto:
Call ShowDriveType(Me!CmbDrive)
Prova a cambiarla cosě:
 Sub ShowDriveType(cbo as Access.ComboBox)
    Dim fso, d, t, dc
    Dim sRow as string
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
      For Each d In dc
         Set d = fso.GetDrive(d.DriveLetter)
         Select Case d.DriveType
             Case 0: t = "sconosciuta"
             Case 1: t = "removibile"
             Case 2: t = "fissa"
             Case 3: t = "di rete"
             Case 4: t = "CD-ROM"
             Case 5: t = "disco RAM"
         End Select
         srow= srow & d.DriveLetter & ": - " & t & ";"
         Set d = Nothing
      Next
    cbo.Rowsource=srow
 Set dc = Nothing
 Set fso = Nothing
 End Sub
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Combo con risorse del computer

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:2K%ke.12258$TR5....@news.edisontel.com...
> Napoleone wrote:
>>> Descrivi quello che hai fatto e invia il codice...
>>>
>>> Ciao.
>>
>>> Sergio MAZZA
>> Il modulo si chiama Sub ShowDriveType()
>> Ecco il codice:
>> ----------------------------------------------
>> Sub ShowDriveType()
Come, cosi?
Sub ShowDriveType(PubblicFunction)
e poi la dovrei richiamare
Private Sub Form_Open(Cancel As Integer)
Me!CmbDrive.RowSource = ShowDriveType(PubblicFunction)
End Sub
Napoleone


title: Combo con risorse del computer

text:
SUPERCUT
> Ciao
> @Alex
E' andata, grazie! ma ora stabilito il drive,
come fa il codice ad aggiustarsi da solo dopo che ho selezionato il drive
(nelle'esempio sotto mi salva in G; ma dovrei salvare in F:\...)
INSERT INTO TabellaEsterna IN 'G:\Salvataggi\CopiaMioDB.mdb';
SELECT *
FROM Tb_Presenze_Storiche
Napoleone


title: Combo con risorse del computer

text:
"Napoleone" <
napol...@inwind.it
> wrote in message
news:vg0le.26195$
795.8...@twister1.libero.it

Mi pare una semplice ricostruzione di Stringa:
Non so se il predicato SQL sopra è residente in una
Query oppure se lo esegui da codice:
1)Dim strSQL as string
  strSQL="INSERT INTO TabellaEsterna IN '" & NomeDriver " & _
         "Salvataggi\CopiaMioDB.mdb'; " & _
         "SELECT * FROM Tb_Presenze_Storiche"
  CurrentDb.Execute strSQL
2)La stringa SQL è sempre valida quella di prima, per modificare
  l'origine della QUERY:
  CurrentDb.Querydefs("NomeQuery").SQL=strSQL
  Quindi la esegui.



title: Combo con risorse del computer

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cb561f15339f4b9dca...@mygate.mailgate.org...
> "Napoleone" <
napol...@inwind.it
> wrote in message
> news:vg0le.26195$
795.8...@twister1.libero.it
>
>> SUPERCUT
>> > Ciao
>> > @Alex
>> E' andata, grazie! ma ora stabilito il drive,
>> come fa il codice ad aggiustarsi da solo dopo che ho selezionato il drive
>> (nelle'esempio sotto mi salva in G; ma dovrei salvare in F:\...)
>>
>> INSERT INTO TabellaEsterna IN 'G:\Salvataggi\CopiaMioDB.mdb';
>> SELECT *
>> FROM Tb_Presenze_Storiche
>>
>> Napoleone
>
>
> Mi pare una semplice ricostruzione di Stringa:
>
> Non so se il predicato SQL sopra č residente in una
> Query oppure se lo esegui da codice:
>
> 1)Dim strSQL as string
>  strSQL="INSERT INTO TabellaEsterna IN '" & NomeDriver " & _
>         "Salvataggi\CopiaMioDB.mdb'; " & _
>         "SELECT * FROM Tb_Presenze_Storiche"
>  CurrentDb.Execute strSQL
>
> 2)La stringa SQL č sempre valida quella di prima, per modificare
>  l'origine della QUERY:
>
>  CurrentDb.Querydefs("NomeQuery").SQL=strSQL
>  Quindi la esegui.
>
> Ciao
> @Alex
>
Ciao Alessandro,
Considerando che sono nella maschera M_Salvataggi
in cui ho la combo CmbDrive (dove una volta selezionato il drive di
destinazione)
A fronte dell'evento Click del mio bottone EseguiSalvataggio, mi lancia la
query
Q_Salvataggi; attualmente il codice SQL della query č:
INSERT INTO Tb_Presenze_Storiche IN 'F:\Salvataggi\CopiaMioDB.mdb.mdb'
SELECT Tb_Presenze_Storiche.*
FROM Tb_Presenze_Storiche;
Pero come vedi in questo modo non posso selezionare il drive
----
Ho provato a mettere il tuo codice a fronte dell'evento come segue
Private Sub EseguiSalvataggio_Click()
Dim strSQL As String
  strSQL="INSERT INTO Tb_Presenze_Storiche IN '" & NomeDriver " & _
         "Salvataggi\CopiaMioDB.mdb'; " & _
         "SELECT * FROM Tb_Presenze_Storiche"
  CurrentDb.Execute strSQL
End Sub
-----------
Mi segnala errore di compilazione
Errore di sintassi
Mi Chiedo: Ma il nomedrive, se lo prende da solo dalla combo cmbDrive?
Ciao Napoleone


title: Combo con risorse del computer

text:
"Napoleone" <
napol...@inwind.it
> wrote in message
news:vzfle.27370$
795.8...@twister1.libero.it
[CUT]
> Ho provato a mettere il tuo codice a fronte dell'evento come segue
>
> Private Sub EseguiSalvataggio_Click()
> Dim strSQL As String
>   strSQL="INSERT INTO Tb_Presenze_Storiche IN '" & NomeDriver " & _
>          "Salvataggi\CopiaMioDB.mdb'; " & _
>          "SELECT * FROM Tb_Presenze_Storiche"
>   CurrentDb.Execute strSQL
> End Sub
> -----------
> Mi segnala errore di compilazione
> Errore di sintassi
> Mi Chiedo: Ma il nomedrive, se lo prende da solo dalla combo cmbDrive?
>
> Ciao Napoleone
Beh un pò di immaginazione non guasta...!!!
Quanto ti ho suggerito è indicativo non conoscendo
lo scenario in cui ti muovi, ovviamente la variabile
NomeDriver dovrà essere sostituita dalla Combo.
Per controllare la sintassi eventualmente inserisci un
MSGBOX strSQL oppure appoggiati al Debug.Print



title: Combo con risorse del computer

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:dc339f57828484bdc8...@mygate.mailgate.org...

Ad Esempio
Napoleone


title: Query con campo sommatoria non funzionante.

text:
Buogiorno a tutti,
scusate l'insistenza ma sono veramente in difficoltà.
Ho una query con un campo somma che non funziona perchè tra i dati
filtrati ve ne sono alcuni nulli.
Ho girovagato per un pò alla ricerca di una soluzione non dico alla
mia portata, ma almeno semplice.
Mi sembra di aver capito che con la funzione Nz posso aggirare
l'ostacolo, per me al momento insormontabile, ma non essendo pratico
di VB non capisco bene dove vada inserita nel codice e se la soluzione
che ho intravisto potrebbe risultare risolutiva.
Il codice della mia query è questo:
SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
NumerazioniRoberto.IMPORTODA, Sum(NumerazioniRoberto.IMPORTODA) AS
SommaDiIMPORTODA
FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
[ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
NumerazioniRoberto.IMPORTODA
HAVING (((NumerazioniRoberto.[ACCORDO QUADRO]) Like forms!
NUOVOINTERVENTO!accordoquadro));
Ringrazio tutti per il valido aiuto.


text:
"ignazio.pilone" <
ignazio...@gmail.com
> ha scritto nel messaggio
news:70c934bb-1f76-42a2...@a31g2000yqn.googlegroups.com...
Buogiorno a tutti,
scusate l'insistenza ma sono veramente in difficolt�.
Ho una query con un campo somma che non funziona perch� tra i dati
filtrati ve ne sono alcuni nulli.
Ho girovagato per un p� alla ricerca di una soluzione non dico alla
mia portata, ma almeno semplice.
Mi sembra di aver capito che con la funzione Nz posso aggirare
l'ostacolo, per me al momento insormontabile, ma non essendo pratico
di VB non capisco bene dove vada inserita nel codice e se la soluzione
che ho intravisto potrebbe risultare risolutiva.
Il codice della mia query � questo:
SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
NumerazioniRoberto.IMPORTODA, Sum(NumerazioniRoberto.IMPORTODA) AS
SommaDiIMPORTODA
FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
[ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
NumerazioniRoberto.IMPORTODA
HAVING (((NumerazioniRoberto.[ACCORDO QUADRO]) Like forms!
NUOVOINTERVENTO!accordoquadro));
Ringrazio tutti per il valido aiuto.
Sum(nz(NumerazioniRoberto.IMPORTODA;0)
ciao
max


text:
On 13 Nov, 11:38, "max" <
pi...@pippo.it
> wrote:
> "ignazio.pilone" <
ignazio.pil...@gmail.com
> ha scritto nel messaggionews:70c934bb-1f76-42a2...@a31g2000yqn.googlegroups.com...
> Buogiorno a tutti,
> scusate l'insistenza ma sono veramente in difficoltà.
> Ho una query con un campo somma che non funziona perchè tra i dati
> filtrati ve ne sono alcuni nulli.
> Ho girovagato per un pò alla ricerca di una soluzione non dico alla
> mia portata, ma almeno semplice.
> Mi sembra di aver capito che con la funzione Nz posso aggirare
> l'ostacolo, per me al momento insormontabile, ma non essendo pratico
> di VB non capisco bene dove vada inserita nel codice e se la soluzione
> che ho intravisto potrebbe risultare risolutiva.
>
> Il codice della mia query è questo:
>
> SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA, Sum(NumerazioniRoberto.IMPORTODA) AS
> SommaDiIMPORTODA
> FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
> [ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
> GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA
> HAVING (((NumerazioniRoberto.[ACCORDO QUADRO]) Like forms!
> NUOVOINTERVENTO!accordoquadro));
>
> Ringrazio tutti per il valido aiuto.
>
> Sum(nz(NumerazioniRoberto.IMPORTODA;0)
>
> ciao
> max
ciao max,
purtroppo non funziona ed io sto impazzendo...
ho provato ad inserire l'istruzione da te suggerita (manca una
parentesi chiusa al fondo) sia al fondo del codice, (magari sbaglio ?)
che nella query ma non riesco a uscirne.
AQuancuno è cos' gentile da riuscire ad aiutarmi ?
grazie infinite.


author: Pablitomf (da casa)

text:
ignazio.pilone wrote:
> Buogiorno a tutti,
> scusate l'insistenza ma sono veramente in difficolt�.
> Ho una query con un campo somma che non funziona perch� tra i dati
> filtrati ve ne sono alcuni nulli.
> Ho girovagato per un p� alla ricerca di una soluzione non dico alla
> mia portata, ma almeno semplice.
> Mi sembra di aver capito che con la funzione Nz posso aggirare
> l'ostacolo, per me al momento insormontabile, ma non essendo pratico
> di VB non capisco bene dove vada inserita nel codice e se la soluzione
> che ho intravisto potrebbe risultare risolutiva.
>
> Il codice della mia query � questo:
>
> SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA, Sum(NumerazioniRoberto.IMPORTODA) AS
> SommaDiIMPORTODA
> FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
> [ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
> GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA
> HAVING (((NumerazioniRoberto.[ACCORDO QUADRO]) Like forms!
> NUOVOINTERVENTO!accordoquadro));
>
> Ringrazio tutti per il valido aiuto.
Sum(iif(inull(NumerazioniRoberto.IMPORTODA);0;NumerazioniRoberto.IMPORTODA))


text:
ignazio.pilone wrote:
> Ho una query con un campo somma che non funziona perch� tra i dati
> filtrati ve ne sono alcuni nulli.
> Ho girovagato per un p� alla ricerca di una soluzione non dico alla
> mia portata, ma almeno semplice.
> Mi sembra di aver capito che con la funzione Nz posso aggirare
> l'ostacolo, per me al momento insormontabile, ma non essendo pratico
> di VB non capisco bene dove vada inserita nel codice e se la
> soluzione che ho intravisto potrebbe risultare risolutiva.
>
> Il codice della mia query � questo:
>
> SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA, Sum(NumerazioniRoberto.IMPORTODA) AS
> SommaDiIMPORTODA
> FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
> [ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
> GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
> NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
> NumerazioniRoberto.IMPORTODA
> HAVING (((NumerazioniRoberto.[ACCORDO QUADRO]) Like forms!
> NUOVOINTERVENTO!accordoquadro));
Secondo me non hai un problema con valori nulli.
La funzione Sum() non ha o d� problemi con Null perch�
somma solo valori presenti.
Invece il tuo enunciato SQL non puo dare risultati ragionevoli perch�
fai un raggruppamento e una somma allo stesso campo. Sembra che
vorresti vedere i singoli valori e la loro somma allo stesso tempo.
Questo non � possibile. Invece puoi fare p.e.
SELECT Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA,
Sum(NumerazioniRoberto.IMPORTODA) AS SommaDiIMPORTODA
FROM NumerazioniRoberto INNER JOIN Ditte ON NumerazioniRoberto.
[ACCORDO QUADRO]=Ditte.ACCORDOQUADRO
WHERE NumerazioniRoberto.[ACCORDO QUADRO]= Forms!
NUOVOINTERVENTO!accordoquadro
GROUP BY Ditte.ACCORDOQUADRO, Ditte.Importo2009, Ditte.Importo2010,
NumerazioniRoberto.[ACCORDO QUADRO], NumerazioniRoberto.DITTA
Se non � questa devi spiegare quale somma su quale entit� vuoi ottenere.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: NON SONO STATO CHIARO, SCUSATE

author: MAX

text:
il mio problema è
1)  ho una tabella ARTICOLI con il codice, la
descrizione e il prezzo
2)ho una tabella ordini con il n° ordine, il
codice articolo ed il prezzo.
3) sulla MASCHERA ordini, quando richiamo
l'articolo (CON UNA CASELLA COMBINATA) mi compare si il prezzo, ma questo
prezzo mi segue le modifiche che eventualmente apporto nella tabella
ARTICOLI, cosi se per caso faccio una variazione di prezzo, mi varia anche
il prezzo degli ordini già EVASI. (sigh !) oltretutto non mi compare il
prezzo nella tabella ordini, ma mi rimane solo sulla maschera.
E'
proprio necessario che cancelli tutto e butti via 30 giorni di lavoro miei
e di mia sorella ???
AIUTO !!!
--------------------------------
Inviato via
http://usenet.iol.it


title: NON SONO STATO CHIARO, SCUSATE

author: sib

text:
MAX <
MAX...@HOTMAIL.COM
> wrote in message
> il mio problema è
> 1)  ho una tabella ARTICOLI con il codice, la
> descrizione e il prezzo
> 2)ho una tabella ordini con il n° ordine, il
> codice articolo ed il prezzo.
> 3) sulla MASCHERA ordini, quando richiamo
> l'articolo (CON UNA CASELLA COMBINATA) mi compare si il prezzo, ma questo
> prezzo mi segue le modifiche che eventualmente apporto nella tabella
> ARTICOLI, cosi se per caso faccio una variazione di prezzo, mi varia anche
> il prezzo degli ordini già EVASI. (sigh !) oltretutto non mi compare il
> prezzo nella tabella ordini, ma mi rimane solo sulla maschera.
Ora ci capiamo.
Devi "denormalizzare" il db.
denormalizzare e' (per l'appunto :-) il contrario di normalizzare. (non e'
un gioco di parole)
Normalmente si cerca di riportare un dato il numero minimo di volte
(normalizzazione). Questo non va bene per quei dati (come i prezzi di
listino) che sono soggetti a periodiche modifiche che valgono solo da un
certo momento in poi (non retroattivi). Quindi devi conservare il prezzo
applicato al momento.
In pratica le righe ordine, oltre al codice del prodotto e la quantità,
devono contenere il prezzo e gli sconti applicati.
In questo modo non solo qualunque variazione al listino non influenza gli
ordini precedenti, ma puoi anche applicare dei prezzi particolari al
cliente.
Personalmente aggiungo anche un campo PrezzoNetto dove posso inserire un
prezzo che prescinde dallo sconto.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: MAPI Messaggio di Invio di Outlook 2000

author: Cesco

text:
Ciao a tutti quanti,
qualche giorno fa ho fatto un post per eliminare un Message Box di
Outlook che avverte quando
si invia un messaggio da programmi terzi come Access 2000.
Ho avuto in parte una risposta nella quale mi viene spiegato che è un
sistema di Office 2000 per
evitare che vengano spedite mai da virus.
Bella cosa... dico io, ma visto che il VIRUS sono io, come faccio a
farlo capire ad Outlook?
Ho guardato un bel po' di roba sul sito Microsoft, e sembra ci sia un
soluzione vedi:
http://www.microsoft.com/Office/ORK/2000/journ/outsecupdate.htm
io ho provato, ma non ho un Exchange Server.
Sto usando il codice trovato sul Sitocomune per l'invio delle mail
attraverso il MAPI, e va che è una bomba.
Voi direte .... ma cosa ti costa premere SI al messaggio... nulla vi
dico io. Peccato che a volte devo mandare
circa una cinquantina di mail.
Insomma se qualcuno ha una soluzione lo ringrazio anticipatamente.
Ciao


title: Registrare DLL - OCX

author: Enrico Virginio

text:
Devo fornire un db in formato .mde ad un cliente...visto che i
riferimenti alle librerie sono inclusi nel .mde e non è detto che sul PC
del cliente i riferimenti (DAO 3.6,ADO 2.1) siano regisrati, come fare
????
Grazie.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Registrare DLL - OCX

author: Roberto - Syd

text:
"Enrico Virginio" <
nor...@libero.it
> ha scritto nel messaggio
news:cd01e01a4e94a7584f...@mygate.mailgate.org...

Devi usare il tool di windows regsvr32 passandogli il file da registrare.
Es: a riga di comando o utilizzando Start -> Esegui scrivi regsvr32
Percorso\NomeFile.dll o .ocx
Ciao Roberto - Syd


title: Copiare record in altra tabella

author: Cataldo Formaro

text:
Ciao a tutti i partecipanti al NG.
Ho la necessità di copiare alcuni record (uno per volta)
dalla "Tb_Prenotazioni" alla "Tb_Iscrizioni" questa operazione di copiatura,
dovrebbe avvenire a fronte dell'evento onClik di un pulsante posizionato
nella maschera
"M_Prenotazioni". Naturalmente dopo il clik verrà copiato il record corrente
(soltanto).
Precisazione:
La Tb_Prenotazioni e la Tb_Iscrizioni debbono essere formattate allo stesso
identico modo?
Spero di essere stato chiaro!
Grazie a chi mi darà una mano.
Cataldo Formaro


title: Copiare record in altra tabella

author: Antonio Biso

text:
Cataldo Formaro <
formaro...@inwind.it
> wrote in message
0WdS8.69501$j65.1...@twister1.libero.it...
> Ciao a tutti i partecipanti al NG.
>
> Ho la necessità di copiare alcuni record (uno per volta)
> dalla "Tb_Prenotazioni" alla "Tb_Iscrizioni" questa operazione di
copiatura,
> dovrebbe avvenire a fronte dell'evento onClik di un pulsante posizionato
> nella maschera
> "M_Prenotazioni". Naturalmente dopo il clik verrà copiato il record
corrente
> (soltanto).
> Precisazione:
> La Tb_Prenotazioni e la Tb_Iscrizioni debbono essere formattate allo
stesso
> identico modo?
Se per formattate intendi stessi campi, beh...non è detto...
Basta che i campi di prenotazioni che vuoi copiare abbiano il corrispondente
in iscrizioni e che poi non manchino campi obbligatori...
puoi fare in vari modi, con i recordset, usando il recordsetclone della form
e quello aperto su iscrizioni o con una query di accodamento da prenotazioni
dove filtri per l'ID del record corrente, mettendo un filtro tipo
[forms]![tuaform]![ID]
Antonio


title: Copiare record in altra tabella

text:
[cut]
> Se per formattate intendi stessi campi, beh...non č detto...
> Basta che i campi di prenotazioni che vuoi copiare abbiano il
corrispondente
> in iscrizioni e che poi non manchino campi obbligatori...
>
> puoi fare in vari modi, con i recordset, usando il recordsetclone della
form
> e quello aperto su iscrizioni o con una query di accodamento da
prenotazioni
> dove filtri per l'ID del record corrente, mettendo un filtro tipo
> [forms]![tuaform]![ID]
>
> Antonio
>
Intanto, grazie per l'aiuto.
Fino alla query di accodamento tutto OK, solo che mi sposta il contenuto di
tutta la tabella (o meglio tutti record della query) ci sarebbe, qualche
riga di codice, che piggiando il fatidico pulsante, mi permetta di copiare
solo il record corrente? se cio non'č possibile, vediamo di avvicinarci !!
Ciao CF


title: Copiare record in altra tabella

author: SimonenomiS

text:
"Cataldo Formaro" <
formaro...@inwind.it
> wrote in
news:%ElS8.69419$
Kt3.1...@twister2.libero.it
:
> Intanto, grazie per l'aiuto.
> Fino alla query di accodamento tutto OK, solo che mi sposta il
> contenuto di tutta la tabella (o meglio tutti record della query) ci
> sarebbe, qualche riga di codice, che piggiando il fatidico pulsante,
> mi permetta di copiare solo il record corrente? se cio non'è
> possibile, vediamo di avvicinarci !! Ciao CF
>
Guida in linea --> SELECT...INTO - istruzione
Ciao.
------------------------------------------
http://digilander.iol.it/SimonenomiS


title: Copiare record in altra tabella

text:
Cataldo Formaro <
formaro...@inwind.it
> wrote in message
%ElS8.69419$Kt3.1...@twister2.libero.it...
> [cut]
> > Se per formattate intendi stessi campi, beh...non è detto...
> > Basta che i campi di prenotazioni che vuoi copiare abbiano il
> corrispondente
> > in iscrizioni e che poi non manchino campi obbligatori...
> >
> > puoi fare in vari modi, con i recordset, usando il recordsetclone della
> form
> > e quello aperto su iscrizioni o con una query di accodamento da
> prenotazioni
> > dove filtri per l'ID del record corrente, mettendo un filtro tipo
> > [forms]![tuaform]![ID]
> >
> > Antonio
> >
> Intanto, grazie per l'aiuto.
> Fino alla query di accodamento tutto OK, solo che mi sposta il contenuto
di
> tutta la tabella (o meglio tutti record della query) ci sarebbe, qualche
> riga di codice, che piggiando il fatidico pulsante, mi permetta di copiare
> solo il record corrente? se cio non'è possibile, vediamo di avvicinarci !!
Guarda che te l'ho già scritto.
La query avrà un criterio WHERE sul campo id che sia uguale al valore
dell'id nella maschera, quindi del record corrente...
Antonio


title: Copiare record in altra tabella

text:
"SimonenomiS" <Si...@nomiS.it> ha scritto nel messaggio
news:Xns923A7BA3EDAB0...@193.70.192.192...
> "Cataldo Formaro" <
formaro...@inwind.it
> wrote in
> news:%ElS8.69419$
Kt3.1...@twister2.libero.it
:
>
> > Intanto, grazie per l'aiuto.
> > Fino alla query di accodamento tutto OK, solo che mi sposta il
> > contenuto di tutta la tabella (o meglio tutti record della query) ci
> > sarebbe, qualche riga di codice, che piggiando il fatidico pulsante,
> > mi permetta di copiare solo il record corrente? se cio non'č
> > possibile, vediamo di avvicinarci !! Ciao CF
> >
> Guida in linea --> SELECT...INTO - istruzione
>
> Ciao.
>
Con la guida in linea non ci risolvo tutti problemi, mi potresti dare un
aiuto piů preciso? Altreimenti grazie lo stesso vedrň come fare.
saluti CF


title: Copiare record in altra tabella

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:gBDS8.73168$Kt3.1...@twister2.libero.it...

Provo e poi ci risentiamo
Ciao CF


title: Copiare record in altra tabella

text:
Ho risolto tutto cosi:
Nella mia maschere ho inserito un pulsante che attiva la query di
accodamento,
nel campo ID della query di accodamento, ho inserito un like[] in cui
inserisco l'ID del record che mi interessa (questo è tutto in linea di
massima)
Grazie a tutti CF


title: Copiare record in altra tabella

text:
Cataldo Formaro <
formaro...@inwind.it
> wrote in message
IqIS8.74741$Kt3.1...@twister2.libero.it...

Ma cazzarola!!!
Ma se devi accodare il record corrente della maschera, scrivi
[forms]![tuaform]![campoID] e stai a posto!!!
Antonio


title: Copiare record in altra tabella

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:reLS8.75776$Kt3.1...@twister2.libero.it...

> proverò con la tua.... ti farò sapere domani.
Ora vado ananna , grazie CF


title: Maschere: Maschera sempre attiva e dimensione a tutto schermo

author: Zappus

text:
Salve a tutti,
ho la necessità di realizzare un applicativo che abbia di partenza una form
a tutto schermo, che copra anche la barra di start di windows, non
spostabile e non chiudibile...
Sarà possibile?
Grazie
Luca.


author: Carlo Costarella

text:
"Zappus" <
luca....@fastwebnet.it
> ha scritto nel messaggio
news:TAkSk.23341$8%.3388@tornado.fastwebnet.it...

Sì può fare...
Se ho ben capito qui trovi un esempio:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=39
Nello stesso sito trovi anche molto materiale.
Ciao, Carlo


author: geppo

text:

Prova impostando le seguenti proprietà relative alla form:
popup=si
Stile bordo=dialogo
Pulsante chiusura=no
Spostabile=no
> Grazie
> Luca.
--
Ciao
Geppo


title: Domanda

author: mt

text:
Relativa a win... sorry.
Ho tre macchine in rete, una si chiama "francy".
Dalle altre due vedo T: che e' l'alias di una direttory di francy, ma da
francy non riesco a indirizzarmi a T:
Come posso fare?
Grazie.


title: Domanda

author: SABINA CAMERIN

text:
"mt" <
in...@minuterie-tornite.com
> ha scritto nel messaggio
news:39B934B6...@minuterie-tornite.com...

prova con  \\francy\T
ciao.


title: Query: numerazione progressiva delle righe estratte

author: Stefano Rosati

text:
Ciao
Ho preparato una query basata su tabella e vorrei introdurre nel Recordset
che mi restituisce, un
campo calcolato che numeri in modo progressivo tutte le righe; insomma una
specie di contatore temporaneo
delle Righe estratte dalla query.
Grazie, Stefano


author: Roberto dalla campagna

text:
"Stefano Rosati" <
stefanou...@libero.it
> ha scritto nel messaggio
news:5rYVe.558$Jr....@twister2.libero.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Queries leggi queste
due FAQ:
1) 2.1 Come posso inserire nella mia query un campo progressivo? di Stefano
Bettini
2) 2.16 Come si può ottenere il totale progressivo di un campo in una query
e come si può numerare progressivamente le righe di una query?
>
> Grazie, Stefano
Prego
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: casella combinata

author: Gianni

text:
Ciao a tutti voi
ho creato una casella combinata codice+descrizione con  relazione alle
tipologie prodotto.
Nell'inserimento dei dati, visualizzo la casella combinata con le relative
due intestazioni e alla selezione viene visualizzato il valore numerico
scelto.
Come posso , dopo inserimento del dato numerico,  visualizzare anche la
parte "descrizione"?
Ciao Gianni


title: casella combinata

author: Mirko Caporali

text:
Gianni ha scritto:

Associa la maschera ad una query che metta in relazione le due tabelle.
Quindi, riporta nella maschera il campo "codice" della tabella dalla
parte molti, ed il campo "descrizione" della tabella dalla parte 1.


title: casella combinata

author: Roberto da casa

text:
"Gianni" <
giann...@hotmail.com
> ha scritto nel messaggio
news:KRjef.38952$65.11...@twister1.libero.it...

Se la casella di testo che deve contenere si chiama Descrizione.
Se la casella combinata si chiama MiaCombo.
Se la descrizione č contenuta nella seconda colonna della casella combinata.
A fronte dell'evento "Dopo aggiornamento" della casella combinata genera la
seguente riga di codice VBA:
Me!Descrizione = Me!MiaCombo.Column(1)
>
> Ciao Gianni
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: casella combinata

author: Butta

text:
Buona serata a tutti.
Se inserisco una casella combinata, dove posso scegliere un prodotto in base
al suo codice, come faccio a fare una casella sempre nella stessa maschera
che si aggiorni automaticamente (ad esempio con la  descrizione del prodotto
scelto) in base al codice scelto?
Grazie in anticipo!


title: casella combinata


title: casella combinata

author: TANNHAUSER

text:
Butta ha scritto:
> Buona serata a tutti.

> Grazie in anticipo!
1- Supponiamo che la query origine dati della tua combo (TuaCombo)
estragga, nell'ordine, il codice del prodotto e il relativo nome.
2- Supponiamo che la casella contenente la descrizione (intendi
descrizione = nome) si chiami TuaTxtBox.
3- Nelle proprietą della TuaCombo, scheda Su evento imposti una procedura
sulla scelta "Su Modifica" e scrivi:
Private Sub TuaCombo_Change()
Me.TuaTxtBox = Me.TuaCombo.Column(1)
End Sub
--
TANNHAUSER
"I've seen things you people wouldn't believe..."
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: casella combinata

text:
Intanto ti ringrazio molto per l'aiuto.
C'è ancora una cosa però che non funziona.
Io per la maschera di cui ti parlavo (che poi in realtà è una sottomaschera)
ho scelto una visualizzazione a "modulo continuo".
....succede che scegliendo un codice prodotto, si aggiornino anche tutte le
descizioni relltive agli altri codici. :-(
C'è una soluzione a questo?
Grazie.
"TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
news:dlvi11$5nc$1...@news.newsland.it...
> Butta ha scritto:
>
>> Buona serata a tutti.
>
>> Se inserisco una casella combinata, dove posso scegliere un prodotto in
>> base
>> al suo codice, come faccio a fare una casella sempre nella stessa
>> maschera
>> che si aggiorni automaticamente (ad esempio con la  descrizione del
>> prodotto
>> scelto) in base al codice scelto?
>
>> Grazie in anticipo!
>
> 1- Supponiamo che la query origine dati della tua combo (TuaCombo)
> estragga, nell'ordine, il codice del prodotto e il relativo nome.
> 2- Supponiamo che la casella contenente la descrizione (intendi
> descrizione = nome) si chiami TuaTxtBox.
> 3- Nelle proprietà della TuaCombo, scheda Su evento imposti una procedura



title: A prova di stupido

author: Nicoletta

text:
Vorrei un consiglio di massima su come impostare l'ambiente di Access (97)
per gestire un'applicazioncina da fornire ad un utente veramente poco
comune.
Desidererei, conoscendo le potenzialitŕ dannose dell'utente (forse esagero
un poco), impostare quelle poche cose che mi consentono di blindare un po'
l'ambiente e il db.
Intendo mostrare poche scelte di menů, nascondere la finestra db,
disabilitare qualche tasto veloce, etc.
Insomma un insieme di idee da poter verificare sull'help ed applicare se
interessanti.
Ciao
Nicky


title: A prova di stupido

author: Zampalunga

text:
Vai su strumenti, avvio e disattiva quel che ti interessa.
Prima di farlo guarda i messaggi di qualcun altro perchè io non sono tanto
pratico
Nicoletta <
for...@virgilio.it
> wrote in message
fta06.7588$ag5.4...@twister1.tin.it...
> Vorrei un consiglio di massima su come impostare l'ambiente di Access (97)
> per gestire un'applicazioncina da fornire ad un utente veramente poco
> comune.
> Desidererei, conoscendo le potenzialità dannose dell'utente (forse esagero
> un poco), impostare quelle poche cose che mi consentono di blindare un po'
> l'ambiente e il db.
> Intendo mostrare poche scelte di menù, nascondere la finestra db,



title: A prova di stupido

author: Silvio Berruti

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:fta06.7588$ag5.4...@twister1.tin.it...

Cara Nicky,
la mia esperienza mi dice che non esiste il programma "a prova di stupido",
perché, x quanto ti sforzi a renderlo tale, riesci sempre a trovare il
cliente tanto "bravo" da smentirti.
Oltre a quanto suggerito da Zampalunga, guarda anche la parte della
protezione a livello utente.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: A prova di stupido

author: Giuseppe

text:
"Nicoletta" <
for...@virgilio.it
> ha scritto nel messaggio
news:fta06.7588$ag5.4...@twister1.tin.it...

sito comune per rendere inattivo il tasto Shift
giuseppe


title: A prova di stupido

author: Lbo

text:
>Vorrei un consiglio di massima su come impostare l'ambiente di Access (97)
>per gestire un'applicazioncina da fornire ad un utente veramente poco
>comune.
ecc.
guarda, rifalla in vb, perché da access c'è sempre possibilità di far
danno.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------



title: A prova di stupido

author: sib

text:
Nicoletta <
for...@virgilio.it
> wrote in message
fta06.7588$ag5.4...@twister1.tin.it...
CUT
Guarda Nicoletta,
non ho letto neanche il messaggio ma una delle leggi di murphy dice:
"Per quanto uno sviluppatore s'impegni a tappare tutti i buchi possibili di
una applicazione per impedire al piu' stupido degli utenti di fare danno, ci
sara' sempre un utente abbastanza stupido da trovare il buco trascurato".
Non aggiungo altro
Ciao e Auguri, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Trasformazine dati da campo1 a campo2

author: Video

text:
Ciao,
spero di riuscire a spiegare il mio problema.
Ho un db access con molti utenti e quando era stato realizzato il modulo di
registrazione non i era previsto nessun modo di "nascondere" le password,
quindi nel campo password sono tutte in chiaro.
Ora vorrei che tutte queste password vengano "cifrate" pur mantenendo lo
stesso "valore".
Per esempio la password pippo verrà trasformata con un algoritmo (credo
hash) in una stringa, però l'utente non deve fare nulla oggi ma utilizzare
sempre la sua password che poi sarà il sistema a "ristrasformarla" e
confrontalra.
Pensavo di creare una colonna password "temporanea", quindi prendere la
password "trasformarla" e riscriverla nel campo della colonna temporanea,
così per tutti i record. Finita la "trasformazione" butto via la colonna
password e rinomino la colonna tempornaea.
Dite che c'è possibilità di farlo tutto direttamente in access (con relativa
conversione?), suggerimenti, aiuti?
Grazie e ciao


title: copiare testo da un controllo

author: Gippe

text:
Salve. E' possibile copiare il testo da una casella di testo senza dare ad
essa lo stato attivo?
Ho realizzato una rubrica dove c'č un campo e-mail e al suo fianco compare
un pulsante. Quando "clicko" su detto pulsante, si apre  con la finestra
outlook del messaggio gią compilata nel Destinatario.
Per realizzare questo perņ, nel codice ho dovuto mettere lo stato attivo
alla casella di testo e prendere email.Text (assumendola come variabile per
la routine di apertura di outllok).
Spero di essere stato chiaro!
Saluti e ringraziamenti!
Gippe


title: copiare testo da un controllo

author: SunRex

text:
"Gippe" <gippe6...@TOGLIMItiscali.it> ha scritto nel messaggio
news:bjid6r$vbi$1...@lacerta.tiscalinet.it...
> Salve. E' possibile copiare il testo da una casella di testo senza dare ad
> essa lo stato attivo?
> Ho realizzato una rubrica dove c'è un campo e-mail e al suo fianco compare
> un pulsante. Quando "clicko" su detto pulsante, si apre  con la finestra
> outlook del messaggio già compilata nel Destinatario.
> Per realizzare questo però, nel codice ho dovuto mettere lo stato attivo
> alla casella di testo e prendere email.Text (assumendola come variabile
per
> la routine di apertura di outllok).
> Spero di essere stato chiaro!
> Saluti e ringraziamenti!
> Gippe
>
Yes
Me.TuoCampo.Value
SunRex


title: copiare testo da un controllo

text:
> Yes
> Me.TuoCampo.Value
Grazie!
> SunRex
>
Gippe.


title: magazzino 2

author: CIPROVO

text:
Ho provato a collegare a un database un lettore codice a barre, ho creato
nella maschera prodotti un campo codicebarre, le etichette con un programma
apposta che mi si aggancia al campo le stampo benissimo il problema è
passare i codici dal lettori al database ho messo il setfocus sul campo
codicebarre i una form contenente i campi
idprodotto-numeromagazzino-dimensione-prezzo-quantità-codicebarre ma quando
sparo con la pistola non succede nulla.
Leggendo il manuale della pistola laser ho trovato questo
declarefunction b30xferrx lib "b30win32.dll" (_
Byval commandstr as string ) as long
Parametri d'ingresso:
"p=port,b=baud,i=idterm.f=filename,path=filepath"
i valori assegnabili  agli argomenti sono i seguenti
port:1,2,3,4
baud:9600,4800,2400,1200
idterm:da 0 a 255
filename:se non presente (default)è creato dalla dll il file con formato
<filename_su_b30>.<idterm_a_3cifre>
filepath:è la directory in cui la dll salva il file ficevuto.
Ritorna
o, trasmissione corretta
<>o, in caso di errore
Mi date  una mano io non ci capisco nulla dove lo metto sto codice ?
Grazie


title: magazzino 2

author: jerry

text:
"CIPROVO" <
can...@fastwebnet.it
> ha scritto nel messaggio
news:BiVgk.2241$Pw....@tornado.fastwebnet.it...

non la puoi collegare in emulazione tastiera la pistola?
jerry


title: magazzino 2

text:
"jerry" <sdffasdfasdfasdfasd> ha scritto nel messaggio
news:48845b58$0$41656$4faf...@reader4.news.tin.it...

Non lo so mi hanno messo una seriale sul pc apposta


title: magazzino 2

text:
"CIPROVO" <
can...@fastwebnet.it
> ha scritto nel messaggio
news:V4Zgk.2461$Pw....@tornado.fastwebnet.it...

da quello che mi sembra di capire allora la pistola ti salva le letture in
un file di testo...comodo...ma non è quello che serve a te.
mi sembra impossibile che non si possa collegare in emulazione tastiera. Se
non si può ti tocca andarti a leggere il file scritto dalla pistola ogni
volta....ma mi sa che stai prima investire 120.00 euro su una classica
pistola laser usb che non va altro che leggerti il codice a barre e
scriverlo dove c'è il focus...come se lo avessi digitato a mano
ciao


title: magazzino 2

text:
"jerry" <sdffasdfasdfasdfasd> ha scritto nel messaggio
news:488477f9$0$18149$4faf...@reader3.news.tin.it...

Nei vari menu' della pistola ho trovato che funziona anche in emulazione di
tastiera ma quando vado sul campo per memorizzare il codice in access la
pistola mi dice trasmissione corretta ma access non mi da nulla?


title: magazzino 2

text:
"CIPROVO" <
can...@fastwebnet.it
> ha scritto nel messaggio
news:gVfhk.614$0N...@tornado.fastwebnet.it...

apri word o notepad e spara su un codice a barre...cosa succede? prova su
ean di diverso tipo..che non sia settato per un determinato ean solamente
ciao


title: Casella di Testo Modificabile Solo una Volta

author: Luca

text:
come si può mettere un controllo su una casella di testo in modo che
il dato in essa contenuto dopo averlo inserito per la prima volta non
possa più essere modificato?


author: Carlo Costarella

text:
"Luca" <
pi...@tiscali.it
> ha scritto nel messaggio
news:b39ad6fa-5c98-4a6e...@g2g2000vbl.googlegroups.com...
come si pu� mettere un controllo su una casella di testo in modo che
il dato in essa contenuto dopo averlo inserito per la prima volta non
possa pi� essere modificato?
Per esempio su corrente della maschera:
If not isnull(Me.NomeControllo) then
Me.nomecontrollo.Enabled = False
else
Me.nomecontrollo.Enabled = True
End if
Ciao, Carlo


text:
ok! questo è il mio codice:
    If Not IsNull(Me.DINIZIATA) Then
        Me.DINIZIATA.Enabled = False
    Else
        Me.DINIZIATA.Enabled = True
    End If
ma il mio dubbio è in che evento lo posizione!
IMPORTANTE: la visualizzazione della form nel mio caso è Tabella
perciò deve essere diverso riga per riga
di conseguenza deve essere un evento che si scatena ogni volta che
cambio riga


text:
"Luca" <
suppo...@hotmail.it
> ha scritto nel messaggio
news:96473225-97d3-4ae1...@o4g2000vbv.googlegroups.com...




Sull'evento corrente della maschera non funzionerebbe nella maschera
tabulare o meglio disattiverebbe o attiverebbe tutti i campi "DINIZIATA".
Vedi se riesci con la formattazzione condizionale.
Ciao, Carlo


author: Karl Donaubauer

text:
Carlo Costarella wrote:
> "Luca ha:
> ok! questo è il mio codice:
>
>    If Not IsNull(Me.DINIZIATA) Then
>        Me.DINIZIATA.Enabled = False
>    Else
>        Me.DINIZIATA.Enabled = True
>    End If
>
> ma il mio dubbio è in che evento lo posizione!
>
> IMPORTANTE: la visualizzazione della form nel mio caso è Tabella
> perciò deve essere diverso riga per riga di conseguenza deve essere
> un evento che si scatena ogni volta che cambio riga
>
> Sull'evento corrente della maschera non funzionerebbe nella maschera
> tabulare o meglio disattiverebbe o attiverebbe tutti i campi
> "DINIZIATA".
Sì, ma dov'è il problema? Funziona lo stesso e come lui scrive
>> ogni volta che cambio riga
> Vedi se riesci con la formattazzione condizionale.
Se non disturba la visualizzazione disattivato, cioè in grigio:
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/db33492ad0f8a4f6
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:
On Jul 18, 6:55 pm, "Karl Donaubauer" <
nos...@donkarl.com
> wrote:
> Se non disturba la visualizzazione disattivato, cioè in grigio:
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/.
..
OTTIMO! va benissimo!
Grazie


text:
On Jul 18, 6:55 pm, "Karl Donaubauer" <
nos...@donkarl.com
> wrote:
> Se non disturba la visualizzazione disattivato, cioè in grigio:
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/.
..
Ottimo! Grazie


title: Uploads - What is wrong with Easynews

text:
Looking for Star Trek Discovery season 1 Episodes 6 onwards in english.
Why does it seem there are no posts any more ???

---
This email has been checked for viruses by AVG.
http://www.avg.com


title: La stampa dei report è impazzita (sono un po' imbranata....)

text:
ciao a tutti,
premetto che sono un po' ignorantella con i computer.......... :-(
Il mio antipaticissimo e scorbutico capo ha fatto un'applicazione in
access per la gestione del parco automezzi della ditta. Noi segretarie
usiamo questo file per inserire dati e stampare report.
Mi succede però una cosa strana: solo quando stampo da quel file di
access, le mie pagine escono dalla stampante nella stanza del capo.
Tenete presente che:
- quando stampo con qualsiasi altro file (word, excell, power point) i
miei fogli escono dalla stampante della mia stanza
- stampo utilizzando l'icona di windows senza fare altre cose particolari
- nella sezione 'stampanti' dal pannello di controllo, ho come stampante
predefinita e unica quella della mia stanza anche perchè c'ho messo un
pomeriggio intero per installarla da sola! Non ne avrei messe 2 :-)
- questa cosa strana succede solo a me e non alle mie colleghe che usano
lo stesso file mdb
Il capo mi ha assicurato che nelle maschere di access non ha messo
nessun codice particolare per settare una stampante e dice che sono una
pasticciona :-(
Perchè sono così sfortunata da stampare in maniera diversa? Cosa
potrebbe essere?
Grazie per gli eventuali suggerimenti.
ciao ciao


author: Ivan da casa

text:
"randazzo_a" <randazzo_a@NOSPAM_PLEASElibero.it> ha scritto nel messaggio
news:AqBxf.28863$av6....@tornado.fastwebnet.it...

direi che la soluzione è di indicargli la stampante su cui vuoi la stampa.
Mi spiego: il tuo capo ha elaborato il report e lo ha impostato per essere
stampato sulla sua stampante.
Quando vuoi la stampa in un'altra posizione, devi andare in stampa dal menu
File --> Stampa e nella finestra che ti si apre vedrai che la stampante del
tuo capo è impostata, tu scegli la tua ... ma ricordati: non salvare questa
impostazione (alla chiusura del report) altrimenti rimarrà impostata la tua
stampante come associata.
--
... spero di esserti stato d'aiuto,
             \|/\|/\|/
          (@ @)
---o00-(_)-00o----- Ivan


author: Roberto da casa

text:
"randazzo_a" <randazzo_a@NOSPAM_PLEASElibero.it> ha scritto nel messaggio
news:AqBxf.28863$av6....@tornado.fastwebnet.it...

Dal tuo computer apri la struttura di quel report e dal menu File seleziona
il comando Imposta pagina...; dalla finestra di dialogo che si apre
seleziona la scheda Pagina; nel riquadro Stampante per ... seleziona il
bottone Stampante specifica; pigia il pulsante  Stampante... e dalla nuova
finestra di dialogo seleziona la TUA stampante (invece che quella del tuo
capo "brutto e cattivo"); chiudi con OK tutte le finestre di dialogo e
chiudi e salva la struttura del report.
>
> Grazie per gli eventuali suggerimenti.
Prego
> ciao ciao
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Apice, SQL e arrabbiature

text:
Ho una maschera con una casella combinata nella quale sono elencati i
nominativi dei pazienti dalla quale selezionandone uno e confermando con
Invio si apre una seconda maschera con le informazioni riguardanti quel
paziente.
Per fare ciò ho impostato l'evento KeyPress della casella combinata e
quindi...
If KeyAsci = 13 then DoCmd.OpenForm "anagrafica", , , "[nominativo]=" &
Me.CasellaCombinata2
Tutto va bene finché non si sceglie un cognome tipo D'AVOLA o D'ASTA e
simili, l'istruzione SQL si inca....a e mi dà errore.  Qualcuno sicuramente
mi risponderà che al posto di [nominativo] dovrei usare l'ID del record e
ha ragione!!
Ma a scopo didattico, come si potrebbe risolvere il problema?
--
Cordiali saluti
Nunzio Santini


title: Apice, SQL e arrabbiature

author: Dott. Michele Amato

text:
sanzio55 <
sanz...@jumpy.it
> wrote in message
8etj2b$pvk$1...@serv1.albacom.net...

Questa funzione dovrebbe fare al caso tuo:
Function ParseInvalid(ByVal strParseString As String) As String
   ' -------------------------------------------------------------
   ' Parses single and double quotes from strings into their
   ' associated chr()'s to prevent parsing problems with criteria
   ' strings. Returns a string that includes delimiters
   ' if delimiters are needed.
   ' -------------------------------------------------------------
   Dim SwapPoint, SwapChars, i, SwapAscii, ParseLen
   ' -------------------------------------------------------------
   ' Set SwapChars to characters you want replaced.
   ' -------------------------------------------------------------
   SwapChars = Chr(34) & Chr(39)
   ' -------------------------------------------------------------
   ' Search for first special character.
   ' -------------------------------------------------------------
   For i = 1 To Len(SwapChars)
   SwapPoint = InStr(strParseString, Mid(SwapChars, i, 1))
      If (SwapPoint) Then
         SwapAscii = Asc(Mid(strParseString, SwapPoint, 1))
         ParseLen = Len(strParseString)
         Exit For
      End If
   Next
   Select Case SwapPoint
      Case 0
         ' -------------------------------------------------------------
         ' No special characters found, return string with surrounding
quotes.
         ' -------------------------------------------------------------
         ParseInvalid = Chr(39) & strParseString & Chr(39)
      Case 1
         ' -------------------------------------------------------------
         ' First character is a special character
         ' -------------------------------------------------------------
         If (ParseLen = 1) Then
            ParseInvalid = "Chr(" & SwapAscii & ")"
         Else
            ParseInvalid = "Chr(" & SwapAscii & ") & " &
ParseInvalid(Right(strParseString, ParseLen - 1))
         End If
      Case ParseLen
         ' -------------------------------------------------------------
         ' Last character is a special character...
         ' -------------------------------------------------------------
         ParseInvalid = ParseInvalid(Left(strParseString, ParseLen - 1)) & "
& Chr(" & SwapAscii & ")"
      Case Else
         ' -------------------------------------------------------------
         ' Middle character is a special character.
         ' -------------------------------------------------------------
         ParseInvalid = ParseInvalid(Left(strParseString, SwapPoint - 1)) &
" & Chr(" & SwapAscii & ") & " & ParseInvalid(Right(strParseString,
ParseLen - SwapPoint))
   End Select
End Function


title: Apice, SQL e arrabbiature

author: lbo dal portatile

text:
>Tutto va bene finché non si sceglie un cognome tipo D'AVOLA o D'ASTA e
>simili, l'istruzione SQL si inca....a e mi dà errore.  Qualcuno sicuramente
si', perche' in sql l'apice e' il delimitatore di una stringa.  quindi
nel caso di D'AVOLA avrai una stringa sql tipo:
...where Cognome = 'D'AVOLA...
che per sql sarebbe come:
...where Cognome = 'D'
seguita da monnezza.
il modo per far capire ad sql che tu vuoi proprio un carattere apice
come parte di un filtro e' quello di scriverlo raddoppiato, ad es.
D''AVOLA (mi raccomando: D-apice-apice-AVOLA e non
D-virgolette-AVOLA).
questo detto, puoi scrivere una funzione a cui datao in pasto un
cognome ne esca una stringa con l'eventuale apice raddoppiato, ad es.:
fChkApice(s as string) as string
dim i as integer
dim appo as string
dim ss as string
for i=1 to len(s)
	ss=mid(s,i,1)
	if ss="'" then
		ss="''"
	end if
	appo=appo & s
next i
fchkApice=appo
end function
dentro una stringa di sql la usi ad es. cosi':
dim ssql as string
ssql = "SELECT * FROM TABELLA " & _
          "WHERE Cognome = '" & fChkApice(me.controllo) & "'"
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Apice, SQL e arrabbiature

author: Lorenzo Coronati

text:
Scrisse "Dott. Michele Amato" <
maengi...@libero.it
>:
>Function ParseInvalid(ByVal strParseString As String) As String
Mecojoni!
Io faccio semplicemente chr(34) & qualsiasistringa & chr(34)
Forse mi dovrei vergognare...
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Apice, SQL e arrabbiature

author: Sergio MAZZA

text:
"Lorenzo Coronati" <
lore...@tin.ton.tan.it
> ha scritto nel messaggio
news:3912f1e9...@news.libero.it...

Ci vergognamo in due!
Ciao.


title: Report formato SnapShot

author: antcim

text:
Cordialita' a chi mi legge.
Dovrei, da codice, inviare un report in formato Snapshot
Come va indicato il formato..?
DoCmd.SendObject acSendReport, stDocName,  .......?
Access97 prevede variabili sue solo per Txt, Rtf, Html,Excel
Se non indico il formato, Access si ferma e presenta la lista
da cui scegliere, nella quale compare anche SnapShot.
Pongo la domanda per riuscire a risolvere da codice.
Grazie in anticipo.
Antcim


title: Report formato SnapShot

author: Liones

text:
"antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
news:BQ4K9.10973$ab2.3...@news1.tin.it...
> Cordialita' a chi mi legge.
> Dovrei, da codice, inviare un report in formato Snapshot
> Come va indicato il formato..?
>
> DoCmd.SendObject acSendReport, stDocName,  .......?
>
> Access97 prevede variabili sue solo per Txt, Rtf, Html,Excel
>
> Se non indico il formato, Access si ferma e presenta la lista
> da cui scegliere, nella quale compare anche SnapShot.
>
 DoCmd.OutputTo acReport, "NomReport", "Formatosnapshot(*.snp)",
"c:\Nomefilesnp.snp", False


title: Report formato SnapShot

text:
"Liones" <
lio...@tiscalinet.it
> ha scritto nel messaggio
news:atangb$1ud$1...@lacerta.tiscalinet.it...

Ciao Liones
Grazie.
Cordialita'.
Antcim


title: Aiuto su comandi

author: Tiziana Filetti

text:
Qualcuno potrebbe aiutarmi?
1. Vorrei che all'avvio della mia form non si potessero fare le modifiche ai
record.
2. Cliccando ad un determinato pulsante che io ho chiamato cmdEdit io posso
fare le modifiche al record
Private Sub cmdEdit_Click()
End Sub


title: Aiuto su comandi

author: Lbo

text:
>Qualcuno potrebbe aiutarmi?
vediamo.
>1. Vorrei che all'avvio della mia form non si potessero fare le modifiche ai
>record.
setta la proprietą allowedits a false (vedi help).
>2. Cliccando ad un determinato pulsante che io ho chiamato cmdEdit io posso
>fare le modifiche al record
setta la proprietą allowedits a true.  quando hai fatto, risettala a
false.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Aiuto su comandi

text:
> setta la proprietą allowedits a false (vedi help).
Questo lo ho fatto e va tutto bene
ma sul secondo ho un po' di problemi
> >2. Cliccando ad un determinato pulsante che io ho chiamato cmdEdit io
posso
> >fare le modifiche al record
>
> setta la proprietą allowedits a true.  quando hai fatto, risettala a
false.
come posso fare?
e poi..
ho una serie di pulsanti, se imposto la form con:
AllowEdits - false
AllowDeletions - false
AllowAdditions - false
DataEntry - false
 ed io ho un pulsante aggiungi, cancella modifica questi funzioneranno su
click o no?


title: Report da selezione su listbox

author: Leoniglio

text:
Vorrei capire come da una listbox con selezione multipla su degli
"IdLong" riferiti ad una data tabella, posso comporre un report dei miei
"IdLong" selezionati.
Grazie a tutti coloro che mi risponderanno,
ciao