title: Errore 2001

text:
> Questo codice dove lo scrivi?
> Dove viene l'errore?
> Posta tutto il codice usato
>
> Antonio
> ecco il codice
maschera generale
Private Sub idnregistro_AfterUpdate()
If Dir("c:\img\" & Me.idnregistro & ".jpg") <> "" Then
foto.Visible = True
No_foto.Visible = False
  foto.Picture = "c:\img\" & Me.idnregistro & ".jpg"
Else
  foto.Visible = False
  No_foto.Visible = True
  End If
End Sub
> Private Sub foto_DblClick(Cancel As Integer)
DoCmd.OpenForm "zoom"
End Sub
Maschera zoom
Private Sub Form_current()
If Dir("c:\img\" & Me.idnregistro & ".jpg") <> "" Then
foto2.Picture = "c:\img\" & Me.idnregistro & ".jpg"
end if
End Sub
L'errore viene generato sull'evento dblclick. E' come se Access non
riuscisse a caricare l'immagine.Ho provato anche a ridurre le dimensioni
dell'immagine(da 180 a 70 kb) . Il fatto strano è che su alcune immagini non
ci sono problemi su altre invece "Error 2001"
Enrico


title: Errore 2001

author: Antonio Biso

text:
"Iervolino Enrico" <
eni...@tin.it
> ha scritto nel messaggio
news:_bE8c.125704$O31.5...@news4.tin.it...
>
> Maschera zoom
> Private Sub Form_current()
> If Dir("c:\img\" & Me.idnregistro & ".jpg") <> "" Then
> foto2.Picture = "c:\img\" & Me.idnregistro & ".jpg"
> end if
> End Sub
> L'errore viene generato sull'evento dblclick. E' come se Access non
> riuscisse a caricare l'immagine.Ho provato anche a ridurre le dimensioni
> dell'immagine(da 180 a 70 kb) . Il fatto strano č che su alcune immagini
non
> ci sono problemi su altre invece "Error 2001"
Fai la stessa cosa che hai fatto sulla form principale con il caso else, in
modo da ricreare la stessa situazione.
Oppure, meglio ancora, direi di non far aprire la form se la foto non c'č
testando sulla form principale al doppio clic
Antonio


title: Errore 2001

author: Iervolino Enrico

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:R_F8c.89556$Kc3.2...@twister2.libero.it...

> Tutto risolto. Ho seguito la seconda indicazione perň al posto dell'evento
Dblclick ho inserito un pulsante di comando che verifica prima se la foto
esiste: se sě apre la maschera zoom.
Grazie
Enrico


title: Conferma query di comando

author: Gaetano

text:
Ho creato un database con Access 2002 che contiene diverse query di comando
da eseguire una o piů alla volta tramite delle macro.
Non volendo che ogni volta mi comparissero le conferme per l'esecuzione
delle suddette query sono andato in Strumenti --> Opzioni --> Modifica/Trova
ed ho tolto la spunta in Comferme per le query di comando.
Quello che mi chiedevo era se esiste un modo tramite codice VBA o altro che
mi permette di disabilitare le conferme automaricamente senza passare dal
menu strumenti, in modo tale che su qualunque computer io esegua il database
non mi spuntino mai le conferme di esecuzione query di comando.


title: Conferma query di comando

author: SunRex

text:
"Gaetano" <
navi...@freemail.it
> ha scritto nel messaggio
news:TaCMc.4636$B06....@news.edisontel.com...
> Ho creato un database con Access 2002 che contiene diverse query di
comando
> da eseguire una o più alla volta tramite delle macro.
> Non volendo che ogni volta mi comparissero le conferme per l'esecuzione
> delle suddette query sono andato in Strumenti --> Opzioni -->
Modifica/Trova
> ed ho tolto la spunta in Comferme per le query di comando.
>
> Quello che mi chiedevo era se esiste un modo tramite codice VBA o altro
che
> mi permette di disabilitare le conferme automaricamente senza passare dal
> menu strumenti, in modo tale che su qualunque computer io esegua il
database
> non mi spuntino mai le conferme di esecuzione query di comando.
>
DoCmd.SetWarnings False
SunRex


title: Conferma query di comando

text:
> DoCmd.SetWarnings False
>
> SunRex
Grazie SunRex


title: form multiforma

author: Pinko Pallino

text:
Riciao
E' possibile in qualche modo progettare una form che non sia rettangolare in
access?? che ne so un cerchio, una forma...
ciao ancora..
Pinko


title: form multiforma

author: Vittorio Avaldi

text:
"Pinko Pallino"
> Riciao
>
> E' possibile in qualche modo progettare una form che non sia rettangolare
in
> access?? che ne so un cerchio, una forma...
Spulciati the Access Web: trovi un .mdb che con un bel mucchio di API
consente la creazione di Forms esotiche.


title: form multiforma

text:
"Vittorio Avaldi" <
vittori...@libero.it
> ha scritto nel messaggio
news:Dro69.63037$n04.1...@twister2.libero.it...

Oserei dire non alla portata di tutti...  Speravo ci fosse qcosa del tipo
importa immagine (magari con sfondo trasparente),
tipo qualcosa che ho visto possibile in linguaggi quali il delphi...
Ciao, Pinko


title: form multiforma

text:
"Pinko Pallino" <> > "Pinko Pallino"
> >
> > > Riciao
> > >
> > > E' possibile in qualche modo progettare una form che non sia
> rettangolare
> > in
> > > access?? che ne so un cerchio, una forma...
> >
> > Spulciati the Access Web: trovi un .mdb che con un bel mucchio di API
> > consente la creazione di Forms esotiche.
> Oserei dire non alla portata di tutti...  Speravo ci fosse qcosa del tipo
> importa immagine (magari con sfondo trasparente),
> tipo qualcosa che ho visto possibile in linguaggi quali il delphi...
Boh, potresti provare: crea una form con stile bordo impostato a nessuno e
ficcaci come sfondo un'immagine trattata per la trasparenza (vedi AntoGal su
Sito Comune per immagini trasparenti).


title: Msg in caso di Record non trovato

author: Iacobucci Gianni

text:
salve a tutti
che metodo si deve usare per fare in modo che quando si apre una maschera
e non ci sono record mi compaia un messaggio di avviso ?
ho una maschera che si chiama ModClienti con un pulsante Viasualizza
che sull'evento _onclick mi apre la maschera VisualizzaFatture per quel
dato
cliente.
Essa si apre anche quando non ci sono record per quel cliente
Esempio:
Private Sub ModificaMovimento_Click()
 Dim sNOME As String
 Dim sCriteri As String
 sNOME = "FrmVisualizzaFatture"
 sCriteri = "[IdCliente]=" & Me![IdCliente]
 DoCmd.OpenForm sNOME, , , sCriteri, acFormPropertySettings, acWindowNormal
 End sub
 datemi un consiglio anche con qualche riga di codice
grazie e buone feste a tutti


title: Msg in caso di Record non trovato

author: Carlo Costarella

text:
"Iacobucci Gianni" <
iacog...@interfree.it
> ha scritto nel messaggio
news:3e07f...@news.dada.it...

Una strada:
costruisci una query (fatture) che abbia nella riga dei criteri del cliente
l'ID della maschera: Forms!ModClienti!IDCliente.
Salva la query come "SQEsisteClienteInFatture".
Il codice del pulsante "ModificaMovimento" sulla maschera diventa:
Private Sub ModificaMovimento_Click()
 If NZ(Dlookup("IDCliente","SQEsisteClienteInFatture")  ,0) = 0 then
msgbox "Nessuna fattura associata al cliente a video!"
exit sub
end if
Dim sNOME As String
  Dim sCriteri As String
  sNOME = "FrmVisualizzaFatture"
  sCriteri = "[IdCliente]=" & Me![IdCliente]
  DoCmd.OpenForm sNOME, , , sCriteri, acFormPropertySettings, acWindowNormal
End sub
Ciao, Carlo


title: Msg in caso di Record non trovato

author: Roberto da casa

text:
"Iacobucci Gianni" <
iacog...@interfree.it
> ha scritto nel messaggio
news:3e07f...@news.dada.it...

In alternativa a quello che ti ha giustamente suggerito Carlo, senza crearti
una query, se la tabella che è origine record della maschera
FrmVisualizzaFatture si chiama tblFatture, prova a modificare la sub
generata a fronte dell'evento "Su clic" del pulsante ModificaMovimento:
Private Sub ModificaMovimento_Click()
If DCount("*", "tblFatture", "IdCliente=" & Me!IdCliente) = 0 Then
    MsgBox "Non esistono fatture per il cliente " & Me!IdCliente
    Exit Sub
End Sub
 Dim sNOME As String
 Dim sCriteri As String
 sNOME = "FrmVisualizzaFatture"
 sCriteri = "[IdCliente]=" & Me![IdCliente]
 DoCmd.OpenForm sNOME, , , sCriteri, acFormPropertySettings, acWindowNormal
 End sub
> grazie e buone feste a tutti
Buone Feste a te.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Msg in caso di Record non trovato

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
ZeWN9.46635$TC5.1...@twister1.libero.it...
>
> "Iacobucci Gianni" <
iacog...@interfree.it
> ha scritto nel messaggio
> news:3e07f...@news.dada.it...
> > salve a tutti
> > che metodo si deve usare per fare in modo che quando si apre una
maschera
> > e non ci sono record mi compaia un messaggio di avviso ?
> > ho una maschera che si chiama ModClienti con un pulsante Viasualizza
> > che sull'evento _onclick mi apre la maschera VisualizzaFatture per quel
> > dato
> > cliente.
> > Essa si apre anche quando non ci sono record per quel cliente
> > Esempio:
> > Private Sub ModificaMovimento_Click()
> >  Dim sNOME As String
> >  Dim sCriteri As String
> >  sNOME = "FrmVisualizzaFatture"
> >  sCriteri = "[IdCliente]=" & Me![IdCliente]
> >  DoCmd.OpenForm sNOME, , , sCriteri, acFormPropertySettings,
> acWindowNormal
> >  End sub
> >  datemi un consiglio anche con qualche riga di codice
>
> In alternativa a quello che ti ha giustamente suggerito Carlo, senza
crearti
> una query, se la tabella che č origine record della maschera
> FrmVisualizzaFatture si chiama tblFatture, prova a modificare la sub
> generata a fronte dell'evento "Su clic" del pulsante ModificaMovimento:
>
> Private Sub ModificaMovimento_Click()
> If DCount("*", "tblFatture", "IdCliente=" & Me!IdCliente) = 0 Then
>     MsgBox "Non esistono fatture per il cliente " & Me!IdCliente
>     Exit Sub
> End Sub
>  Dim sNOME As String
>  Dim sCriteri As String
>  sNOME = "FrmVisualizzaFatture"
>  sCriteri = "[IdCliente]=" & Me![IdCliente]
>  DoCmd.OpenForm sNOME, , , sCriteri, acFormPropertySettings,
acWindowNormal
>  End sub
>
> > grazie e buone feste a tutti
>
> Buone Feste a te.
>
> --
> Roberto
ho provato il tuo suggerimento e funziona benissimo
mi sambra una ottima soluzione.
tante grazie
su saluto sincero a risentirci alla prossima
buona continuazione delle feste
ps:
io avevo risolto cosě che ne pensi ?
sull'evento apertura della maschera ho inserito la seguente proc:
 Private Sub Form_Open(Cancel As Integer)
Dim Mess, Mess1, TITOLO, Stile
Mess = "Non ci sono Fatture Registrate per questo Cliente." & _
"Se volete registrare una nuova Fattura Cliccate su OK" & _
" e poi sul puslante Aggiungi Nuova Fattura"
Stile = vbYes
TITOLO = "Avviso per L'utente"
If Me.RecordsetClone.RecordCount = 0 Then
   MsgBox Mess, Stile, TITOLO
   DoCmd.RunCommand acCmdCloseWindow
End If
End Sub


title: Msg in caso di Record non trovato

text:
"Iacobucci Gianni" <
iacog...@interfree.it
> ha scritto nel messaggio
news:3e0d3...@news.dada.it...
[CUT]

Se il risultato ottenuto č quello che volevi, la tua soluzione non puů che
andare bene.
La differenza tra la tua soluzione e quelle mia e di Carlo č che tu apri
comunque la maschera  FrmVisualizzaFatture e se č vuota la richiudi, mentre
nelle altre due soluzioni tale maschera non viene neppure aperta, che se non
sbaglio era quello che nel tuo primo messaggio avevi detto che volevi
ottenere.
Inoltre nelle soluzioni mia e di Carlo puoi sapere dalla maschera chiamante
se la maschera chiamata sarebbe stata vuota e intraprendere eventuali altre
azioni.



title: importazione dati in una sottomaschera

author: massimiliano

text:
Salve a Tutti,
ho un problema di importazione dati da un file .txt in una
sottomaschera.
mi spiego meglio.
condizioni: w2000 back e front end
A2000.
dovrei inserire i 4 campi di un file .txt seaprati da tabulazione
in una sottomaschera; ciascun record di qsta sottomaschera xò deve anche
tener conto dei dati della maschera in cui è inclusa.
l'indicazione dei
campi credo possa giovare
codice, qtà, sconto, listino  da importare dal
file .txt
data, ricevuta n°, collaboratore, cliente da prelevare dalla
maschera.
mi aiutate?
grazie
--------------------------------
Inviato via
http://usenet.iol.it


title: importazione dati in una sottomaschera

author: Old-Jack

text:
"massimiliano" <-------@------.--> wrote in message
news:81Z73Z224Z132Y...@usenet.iol.it...
> Salve a Tutti,
> ho un problema di importazione dati da un file .txt in una
> sottomaschera.
> mi spiego meglio.
> condizioni: w2000 back e front end
> A2000.
> dovrei inserire i 4 campi di un file .txt seaprati da tabulazione
> in una sottomaschera; ciascun record di qsta sottomaschera xò deve anche
> tener conto dei dati della maschera in cui è inclusa.
> l'indicazione dei
> campi credo possa giovare
> codice, qtà, sconto, listino  da importare dal
> file .txt
> data, ricevuta n°, collaboratore, cliente da prelevare dalla
> maschera.
>
> mi aiutate?
> grazie
Non credo di aver capito bene il tuo problema....
Cmq, credo che file txt non puoi importarlo in una sottomaschera, ma devi
imprortarlo in una tabella contenente i 4 campi del file txt. e poi questa
tabella la metti come origine dati alla sottomaschera, e devi mettere in
relazione le due tabelle.
Spero di esserti stato d'aiuto
Ciao
  Old-Jack!


title: importazione dati in una sottomaschera

text:
>> dovrei inserire i 4 campi di un file .txt seaprati da tabulazione
>> in
una sottomaschera; ciascun record di qsta sottomaschera xò deve anche
>>
tener conto dei dati della maschera in cui è inclusa.
>> l'indicazione dei
>> campi credo possa giovare
>> codice, qtà, sconto, listino  da importare
dal
>> file .txt
>> data, ricevuta n°, collaboratore, cliente da
prelevare dalla
>> maschera.
>>
>Cmq, credo che file txt non puoi
importarlo in una sottomaschera, ma devi
>imprortarlo in una tabella
contenente i 4 campi del file txt. e poi questa
>tabella la metti come
origine dati alla sottomaschera, e devi mettere in
>relazione le due
tabelle.
caro vecchio giacomo,
purtroppo fin qui c'ero arrivato, il
problema sta nel catturare i dati del record della maschera.



title: importazione dati in una sottomaschera

text:
"massimiliano" <-------@------.--> wrote in message
news:81Z73Z224Z132Y1...@usenet.iol.it...
> >> dovrei inserire i 4 campi di un file .txt seaprati da tabulazione
> >> in
> una sottomaschera; ciascun record di qsta sottomaschera xò deve anche
> >>
> tener conto dei dati della maschera in cui è inclusa.
> >> l'indicazione dei
> >> campi credo possa giovare
> >> codice, qtà, sconto, listino  da importare
> dal
> >> file .txt
> >> data, ricevuta n°, collaboratore, cliente da
> prelevare dalla
> >> maschera.
> >>
>
> >Cmq, credo che file txt non puoi
> importarlo in una sottomaschera, ma devi
> >imprortarlo in una tabella
> contenente i 4 campi del file txt. e poi questa
> >tabella la metti come
> origine dati alla sottomaschera, e devi mettere in
> >relazione le due
> tabelle.
>
> purtroppo fin qui c'ero arrivato, il
> problema sta nel catturare i dati del record della maschera.
Bene visto che fin qui non era difficile, andiamo avanti.....
Devi mettere in relazione le due tabelle tramite un campo comune.....
Se non riesci a farlo devi modificare qualcosa nella tua struttura delle
tabelle.
> caro vecchio giacomo,
Cmq non sono così tanto caro....
Ciao.


title: [OT] Cronaca di una tonsilla annunciata.

author: Luciano (DOC)

text:
"Namo, sessantotto, tocca a te!"
Con queste delicate parole il portantino mi invita a prendere posto sulla
barella che mi condurra' in sala operatoria. La prima cosa che capisci
quando entri in ospedale e' che come persona non esisti piu': sei un numero
e/o una patologia. Mi parcheggia nell'anticamera della sala operatoria fino
a quando sento: "Aho', portate dentro l'altra tonsilla!"
Prima di me un bambino di 10 anni ha subito lo stesso intervento ma sembra
non voglia risvegliarsi dall'anestesia. La rilassatezza del personale lascia
capire che si tratta di una cosa del tutto normale, ma la madre che aspetta
fuori non lo puo' sapere. Il chirurgo sporge la testa dalla porta e fa': "A
signo', tutto a posto, solo che er pupo nun se sveglia' piu'." E subito di
rincalzo un'infermiera: "Ammazza come russa!". La mamma avra'
apprezzato tanta delicatezza.
Dell'intervento ricordo solo il risveglio, perche' non mi sono proprio
accorto di addormentarmi. Ricordo la flebo, la voce del chirurgo che
fa:"Allora, semo pronti?", ma dopo ho solo una sgradevole sensazione di
risveglio in mezzo ad uno strano torpore. Mi incazzo pure con gli infermieri
perche' non riesco a sputare quello che ho in bocca.
L'anestesia e' forse l'unica cosa che mi ha dato un po' fastidio, un
malessere non indentificato, una specie di smania che mi ha costretto ad
agitarmi nel letto per un paio d'ore.  Ma a quel punto mi avevano gia'
staccato la flebo e nel dormiveglia ho avuto la piacevole sensazione che
l'operazione in senso stretto fosse ormai cosa andata.
Temevo sopraggiungesse il dolore allo svanire completo dell'anestesia, il
medico mi aveva pregato di sforzarmi e sopportare per non essere imbottito
di antidolorifici, ma in verita' non ne ho avuto bisogno nemmeno una volta.
Il giorno dopo comincia, ovviamente, il problema alimentazione. Banditi i
cibi solidi, anche i liquidi non sono molto semplici da mandare giu'. A
pranzo la suora che distribuisce le vivande mi lascia del pollo arrosto. Gli
dico che non lo mangio e lei senza scomporsi esce sul corridoio e urla: "Er
sessantotto nun vole er pollo!!!". E dal fondo: "E' 'na tonsilla, lasciaje
er semolino!". Tutto sotto controllo quindi!
Pero', nemmeno il semolino riesce ad andare giu', e per tre giorni vado
avanti a latte freddo. Poi finalmemte riesco a godere, senza remora alcuna,
del folle piacere del semolino.
Il mio letto e' in un stanza da sei, i compagni sono quattro setti nasali ed
un orecchio, eta' compresa tra i 24 ed i 78. Tutti simpatici, l'atmosfera e'
molto allegra e cordiale, un po' quella del servizio militare. L'allegria,
dovuta anche alla non gravita' delle patologie di ciascuno, aiuta a spezzare
la monotonia delle giornate, altrimenti votate alla lettura e alla settimana
enigmistica.
Infine una breve nota di elogio per l'ospedale (pubblico) o almeno per il
reparto dove sono stato alloggiato: struttura efficiente, personale
dignitosamentre gentile e cordiale (con un paio di eccezioni, ma nella
norma), rancio ottimo e abbondante (oddio, piu' che altro un sacco di
semolino) e pastarella la domenica: quasi quasi prenoto pure per l'anno
prossimo!
Ciao.
Luciano


author: Sib

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:AWHp6.30884$lj4.6...@news6.giganews.com...
> "Namo, sessantotto, tocca a te!"
Via la tonsilla, via il dolore. (o era un'altra parte del corpo?)
Ad ogni modo, il problema delle anestesie pesanti, in Italia, non l'hanno
ancora saputo risolvere. Penso che sia per economizzare che usano farmaci
cosi' pesanti e mal dosati. Non sono esterofilo (tutt'altro) ma in Francia
l'anestesia e' una cosa completamente diversa.
Sib


author: lucianab64 on libero

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
AWHp6.30884$lj4.6...@news6.giganews.com...
CUT
> Luciano
Bentornato!
Capisco la fifa da tonsilla... anch'io ho rischiato l'operazione... poi per
fortuna l'ho evitata.
Rimettiti presto e buon lavoro :-)
Luciana


author: Lorenzo A.

text:
[cut]
..sembra tratto da un film di Verdone! :-D
Auguri di pronta ripresa!
Lorenzo


author: Nicola Ardito

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:AWHp6.30884$lj4.6...@news6.giganews.com...
Bentornato
... a proposito si è liberato un posto da soprano nella corale della mia
zona.
Come dici? Non sono quelle le tonsille? ;-)
Dovrò tornare dal fornitore della mia enciclopedia multimediale e
cantargliene quattro :o)
--
Ciao Nicola
email: metti inwind al posto  di NOSPAM
Le richieste che arrivano
in privato  vengono cestinate.
Sito Comune
http://www.sitocomune.com


author: Roberto dal portatile

text:
Ari&"Buona convalescenza"
Ciao
Roberto


author: EURO DOOR SAS

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
AWHp6.30884$lj4.6...@news6.giganews.com...
> "Namo, sessantotto, tocca a te!"
megacut
Ciao.
Anche se ho capito lo spirito della lettera, non posso far altro che
ripensare a quando quel "numero" era mia moglie, malata di cancro allo
stadio terminale e solo a 39 anni e con due bambini.
Sai quanto mi sono arrabbiato (passami il termine... volevo essere più
esplicito...), sai che esiste la carta per i diritti dei malati che impone
di non chiamare il Paziente (con la P maiuscola, dato che siamo noi che gli
diamo lo stipendio) per patologia o numero di letto?
Comunque penso che questo malvezzo italico non cambierà mai.
Ciao e sono cotento per te
Stefano


author: Michele Amato

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
AWHp6.30884$lj4.6...@news6.giganews.com...
> "Namo, sessantotto, tocca a te!"
[cut]
>
> Ciao.
>
> Luciano
>
Ciao Luciano,
ben tornato e buona convalescenza.
Ohh come si è sentita la tua mancanza....;-)))
Michele Amato
Un saluto/augurio anche da Elisabetta.


author: sib

text:
EURO DOOR SAS <
eurodoorsas...@tin.it
> wrote in message wJ5q6.627
> Anche se ho capito lo spirito della lettera, non posso far altro che
> ripensare a quando quel "numero" era mia moglie, malata di cancro allo
> stadio terminale e solo a 39 anni e con due bambini.
> Sai quanto mi sono arrabbiato (passami il termine... volevo essere più
> esplicito...), sai che esiste la carta per i diritti dei malati che impone
> di non chiamare il Paziente (con la P maiuscola, dato che siamo noi che
gli
> diamo lo stipendio) per patologia o numero di letto?
>
> Comunque penso che questo malvezzo italico non cambierà mai.
Caro Stefano,
hai tutta la mia comprensione e, credimi, so di cosa parlo.
Ma non tutte le realta' italiane sono cosi'. Quello che invece ho notato e'
la presuzione dei "professoroni" nostrani cui manca la sia pur minima
umilta'. Se non fosse stato per un chirurgo della mia citta'...
Ma questo trhead sta prendendo una piega che non doveva prendere, torniamo a
parlare d'altro.
Sib


author: Silvio Berruti

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:AWHp6.30884$lj4.6...@news6.giganews.com...
> "Namo, sessantotto, tocca a te!"
Ma se nel sessantotto non eri manco nato...
Ciao Luciano,
innanzi tutto BEN TORNATO e scusa se il mio messaggio ti arriva x ultimo, ma
negli ultimi 3 giorni sono stato preso dal trasloco nel nuovo appartamento.
Un saluto e un bacione anche a tua moglie e ai tuoi figli di cui ho un caro
ricordo.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


author: Sergio MAZZA

text:
"Sib" <
cerriserv...@tiscalinet.it
> ha scritto nel messaggio
news:987vg8$40j$3...@lacerta.tiscalinet.it...

Anche se in questi giorni sto latitando, mi sembra di capire che sei tornato
o almeno è tutto ok (spero); bentornato!
Ciao.


title: controlli non associati per 4 ricerche differenti

author: Nicola

text:
ho un DB di magazzino composto da una tabella che contiene i dati degli
articoli (circa 7000)
su questa tabella ho creato una query e dalla query una maschera di
visualizzazione.
nella maschera ci ho messo 4 controlli non associati per 4 differenti
ricerche che confermo tramite un pulsante che contiene la routine
ME!REQUERY. le ricerche sono:
cerca per codice
cerca per descrizione
cerca per categoria
cerca per fascia di prezzo
per quest'ultimo uso 2 controlli non associati in cui c metto
rispettivamente prezzo minimo e prezzo massimo.
adesso finche svolgo le ricerche sui primi 3 tipi tutto va OK
una volta che lo faccio per fascia di prezzo, il DB giustamente si inkioda
perche se svuoto i campi fascia minima e fascia massima mi cerca tutti i
prezzi da 0 a 0, che nel db non figurano quindi non vedo più nessun
record... come posso risolvere??
altro quesito:
come posso creare un pulsante che mi svuota tutti i controlli non associati
e quindi mi visualizzi tutti i record??
grazie 1000
--
Nicola


text:
"Nicola" <
nick...@tiscalinet.it
> ha scritto nel messaggio
news:ulv19.18196$lu5.5...@twister1.libero.it...
> ho un DB di magazzino composto da una tabella che contiene i dati degli
> articoli (circa 7000)
> su questa tabella ho creato una query e dalla query una maschera di
> visualizzazione.
> nella maschera ci ho messo 4 controlli non associati per 4 differenti
> ricerche che confermo tramite un pulsante che contiene la routine
> ME!REQUERY. le ricerche sono:
>
> cerca per codice
> cerca per descrizione
> cerca per categoria
> cerca per fascia di prezzo
>
> per quest'ultimo uso 2 controlli non associati in cui c metto
> rispettivamente prezzo minimo e prezzo massimo.
>
> adesso finche svolgo le ricerche sui primi 3 tipi tutto va OK
> una volta che lo faccio per fascia di prezzo, il DB giustamente si inkioda
> perche se svuoto i campi fascia minima e fascia massima mi cerca tutti i
> prezzi da 0 a 0, che nel db non figurano quindi non vedo piů nessun
> record... come posso risolvere??
Puoi risolvere il tuo problema usando in maniera congiunta la funzione
Between ... And ... e la funzione Nz; dai uno sguardo al thread che ha per
oggetto "query parametrica per maschera in visualizzazione continua" e
aperto da @----- Pinco --@-- Pallino -----@ il 30/7/2002 alle ore 10:09.
Li la selezione č fatta in base ad un campo Data/ora, ma la soluzione che ho
indicato oggi alle ore 12:05 va bene anche per effettuare la selezione su un
campo valuta, come per il tuo caso.
Se c'č qualcosa di poco chiaro rifatti vivo.
> altro quesito:
> come posso creare un pulsante che mi svuota tutti i controlli non
associati
> e quindi mi visualizzi tutti i record??
A fronte dell'evento "Su clic" del tuo pulsante di comando genera un codice
VBA di questo tipo:
Me!NomeControllo1 = Null
Me!NomeControllo2 = Null
Me!NomeControllo3 = Null
ecc. ecc.
>
> grazie 1000
>
>
> --
> Nicola
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
be posso esprimermi solo con due parole:
PRATICAMENTE PERFETTO
grazie 1000
--
Nicola


title: Togliere #Eliminato# dalle combo.

author: Rita

text:
Save,
scusate, ma non ricordo come si fa a togliere la voce #Eliminato# quando si
elimina un record selezionato all'interno di una combo.
   Grazie ciao
     Rita


title: Togliere #Eliminato# dalle combo.

author: Karl Donaubauer

text:
Rita wrote:
> scusate, ma non ricordo come si fa a togliere la voce #Eliminato# quando
> si elimina un record selezionato all'interno di una combo.
Me!Combo.Requery
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: Togliere #Eliminato# dalle combo.

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3dq1cqF...@individual.net...

Grazie mille Karl
Ciao Rita


title: Come intercettare modifica di una textbox con sorgente dati una formula ?

author: RobertoA

text:
Ho una form continua con degli articoli, prezzo, quantita
Sul piede della form ho una textbox che mi visualizza il totale della
quantita
Nella textbox, origine dati, ho inserito =Sum(quantita)
Visualizza correttamente la somma delle singole quantita sulle righe
visibili
Dovendo aggiornare anche degli altri campi, vorrei pero' capire quando il
campo TOTALE QUANTITA viene aggiornato
Ho provato ad intercettare gli eventi BeforeUpdate, AfterUpdate, Change ma
non riesco ad 'acchiappare' il giusto evento che mi segnali l'aggiornamento
del controllo contenente la somma dei valori in griglia
Come fare per sapere che il totale quantita e' stato aggiornato ?
Ciao e grazie
RobertoA


author: Alessandro Cara

text:
RobertoA ha scritto:

Io lo mettereI sull'AfterUpdate del controllo "quantita"
--
C


title: Stampare delle Ricette, come????

author: Angelo

text:
Buongiorno a tutti, mi chiamo Angelo e sono un medico,
per circa 20anni per la gestione del mio ambulatorio ho sempre utilizzato come DB il fantastico DBIII, ora però
a causa della progressiva scomparsa dalle stampanti della porta parallela, dell'avvento dell'interfaccia USB e
della scomparsa dei driver per Dos e del Dos stesso, mi ritrovo con un software che per stampare una singola
ricetta ci mette circa 40 secondi e considerando che stampo 500 ricette al giorno........
Per questi motivi ho iniziato a ricostruire il DB in Access, ma mi sono  anerato al momento del filtraggio e
stampa.
Dunque il DB per le ricette è costituito dalle seguenti tabelle:
1 Tab_Pazienti :
In cui sono memorizzati i dati personali degli
assistiti
2 Tab_Ricette_Pers_Giorn :
Quì sono memorizzate le prescrizioni
fatte giornalmente di ogni assistito e i
recordo sono collegati uno-molti con
Tab_Pazienti
3 Tab_Ricette_Pers_Fisse :
Queste sono le ricette personali fisse del
paziente e con fisse intendo quelle che si
fanno prescrivere ad intervalli regolari sempre
uguali (es. causa patologia una volta al mese)
e i record sono collegati uno-molti con la
Tab_Pazienti
4 Tab_Ricette_Generiche :
Queste sono prescrizioni standard normalmente
relative ad analisi di routine, che possono
essere richieste da chiunque, ed è una tabella
indipendente, senza colegamenti.
A questo punto partendo dalla Tab_Paziente ho creato una maschera RICETTE nella quale oltre ai campi necessari
ho inserito una casella combinata in cui inserisco il nome del paziente a cui devo fare la prescrizione e
accanto alla casella ho messo un pulsante per filtrare la maschera per visualizzare i soli dati del paziente in
questione.
Poi ho creato una casella a schede composta da tre pagine in cui per ogni pagina ho inserito un box sotto-
maschera per visualizzare le altre tre tabelle, sempre una per pagina.
A questo punto sono iniziati i problemi:
1)
Ho selezionato tra le schede la pagina relativa a Tab_Ricette_Pers_Giorn, in questa sotto-maschera ho provato a
mettere un pulsante trovato tra quelli proposti da Access che mi genera un nuovo record, così scrivo la mia
nuova prescrizione.
Poi nella maschera principale ho messo un pulsante, anche questo di Access, che riportava la descrizione
"Stampa schermata corrente".
A questo punto credevo di essere a posto, ma dopo aver filtrato il paziente, aver creato il nuovo record,
scritta la prescrizione e spinto  il pulsante stampa, ho visto caricare qualcosa come 234 pagine, ovvero  tutte
prescrizioni fatte a que paziente durante l'anno.
Così ho pensato di filtrare la tab_Ricette_Pers_giorn, aggiungendo una riga di comando al pulsante crea nuovo
record in cui si dicesse per esempio filtra i record con "[campo prescrizione]=Null", ma non sono riuscito a
trovare una guida in VBA che mi aiutasse a farlo.
2)
Poi ho selezionato tra le schede la pagina relativa a Tab_Ricette_Pers_Fisse.
In questo caso ho aperto la sottomaschera relativa e vi ho inserito un pulsante per filtrare ed una casella
combinata in cui inserire un codice identificativo della tipologia di prescrizione richiesta.
Ok il filtro funzione, almeno questo problema è risolto!
Macché, una volta aperta la maschera RICETTE e filtrato il paziente, ogni volta che provo a filtrare la
Tab_Ricete_Pers_Fisse si svuotano tutti i campi, come se eseguisse una ricerca incrociata e che tale ricerca
non andasse a buonfine....
Non capisco proprio perché non funzioni, separatamente si, insieme no, mah
3)
Questo problema è praticamente identico al precedente, solo che in questo caso i recod non sono collegati tra
di loro......
So di essere stato molto prolisso, ma spero di essere abbastanza chiaro.
Lunga Vita al DBIII
Grazie a tutti per l'attenzione..........


title: errore apertura DB...

author: SuperPippo

text:
alla apertura di un db mi da un errore che dice "errore di run-time "339"
il componente "crystl32.ocx" non è registrato correttamente.File non trovato
o non valido.
il file in c:\windows\system c'e'...cosa è successo ???
--
SuperPippo :o))


title: condizione

author: ferplus

text:
If IsNull(DLookup("numero", "SQVerificaSeEsiste")) Then
exit sub
Else
MsgBox "il numero è già stato inserito!"
Me.Undo
End If
End Sub
questa struttura mi controlla se c'e' un numero se c'e' già mi da il
messaggio di errore
domanda:
è possibile a questa struttura dare una espressione condizionale (da -a)?
cioè dovrebbe farmi il controllo su quel numero ma all'interno
dell'intervallo es: (>=3 <20)
se il numero non è all'interno della condizione passa altrimenti messaggio
di errore.
--
ciao


title: condizione

author: Maurizio Borrelli

text:
> "ferplus" [...]:

    If IsNull( _
            DLookup( _
                "*" _
              , "NomeTabellaOQuery" _
              , "3 <= [numero] AND [numero] < 20) _
    ) Then
        Exit Sub
    Else
        MsgBox "il numero è già stato inserito!"
        Me.Undo
    End If
    End Sub
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: condizione

text:

Scusate l'intrusione, è possibile a questa condizione assegnazione più campi
di ricerca di una tabella? o meglio:
If IsNull(DLookup("campoA+campoB+campoC", "Colonnaquery"))
in cui "Colonnaquery" è strutturata così: [campoA]&","&[CampoB]&","&[CampoC]
Io l'ho provata così ma non va, forse al posto del + ci va un'altra cosa,o
nella colonnaquery ...
mi potete indirizzare  nella giusta strada?
Fabry


title: condizione

text:
> "fabry@libero" [...]:
> >     If IsNull( _
> >             DLookup( _
> >                 "*" _
> >               , "NomeTabellaOQuery" _
> >               , "3 <= [numero] AND [numero] < 20) _
> >     ) Then
> >         Exit Sub
> >     Else
> >         MsgBox "il numero è già stato inserito!"
> >         Me.Undo
> >     End If
> >     End Sub
> Scusate l'intrusione, è possibile a questa condizione assegnazione più
> campi di ricerca di una tabella? o meglio:
> If IsNull(DLookup("campoA+campoB+campoC", "Colonnaquery"))
> in cui "Colonnaquery" è strutturata così:
> [campoA]&","&[CampoB]&","&[CampoC]
> Io l'ho provata così ma non va, forse al posto del + ci va un'altra cosa,o
> nella colonnaquery ...
> mi potete indirizzare  nella giusta strada?
    Apri il database di esempio Northwind, passa a Visual Basic e, nella
finestra "Immediata", digita (o copia):
?DCount("*","Clienti","[Posizione]&[Paese]='RappresentanteGermania'")
    Se i dati del tuo esempio sono gli stessi miei dovresti ottenere come
risultato:
         3
    Ora prova con:
        ?DLookup("[Posizione]&' '&[Paese]","Clienti","[IDCliente]='ANATR'")
        Risultato:
        Titolare Messico
    Ci vedi piu' chiaro, adesso?



title: condizione

author: Dandy

text:
=IIf(IsNull([spedfat]);[indirizzo];[spedfat])
ho impostato questa formula per visualizzare [indirizzo] quando [spedfat] è
vuoto, altrimenti visualizza [spedfat].
Secondo la mia inesperienza dovrebbe funzionare, in realta mi fa vedere il
campo vuoto e solo se [spedfat] non è vuoto mi fa vedere [spedfat]
qualcuno mi sa speigare perchè ?
grazie tanto


title: condizione

text:
> "Dandy" [...]:

    RTFM ;-)
Osservazioni
IIf valuta sempre sia truepart che falsepart, anche se restituisce uno solo
dei due valori. Per tale ragione, è opportuno prevedere la possibilità di
effetti indesiderati. Se, ad esempio, la valutazione di falsepart
restituisce un errore di divisione per zero, verrà generato un errore anche
se expr è True.



title: condizione

text:
> "Maurizio Borrelli" [...]:
> > "Dandy" [...]:
> > =IIf(IsNull([spedfat]);[indirizzo];[spedfat])
>     RTFM ;-)
> Osservazioni
    Scusa, dimenticavo:
        Function Nz(Value, [ValueIfNull])
            Membro di Access.Application



title: Diversità di comportamento di Access2000 su S.O. diversi

author: MauroM

text:
Vi è mai capitato?
Ad esempio una query che usa la funzione left funziona su vari pc ma su uno
con S.O. Win 95 da errore.
Inoltre anche codice scritto per fare una select su una query funziona su
win 2000 e su win 95-98 no perchè inverte il formato data (presumo) ovvero
gli dico di estrarre tutti i record con data #10/01/2002# e anche se
esistono lui non li trova perchè secondo me inverte le date.
Provate a fare una query con un criterio in un campo data e andate a vedere
il codice sql
SELECT test.test
FROM test
WHERE (((test.test)=#1/10/2002#));
Io il criterio l'ho scritto come 10/01/02 perchè in sql lo vede cosi?
Grazie 1000 per le risposte.
Mauro


author: OndaMax

text:
Il 21 Gen 2002, 14:08, "MauroM" ha scritto:
>Ad esempio una query che
usa la funzione left funziona su vari pc ma su
>uno con S.O. Win 95 da
errore.
>Inoltre anche codice scritto per fare una select su una query
funziona su
>win 2000 e su win 95-98 no perchè inverte il formato data
(presumo) ovvero
>gli dico di estrarre tutti i record con data
#10/01/2002# e anche se
>esistono lui non li trova perchè secondo me
inverte le date.
[cut]
Io farei tanto per cominciare un'escursione
sulle Impostazioni Internazionali del Pannello di Controllo di Windows per
vedere che tu stia valutando a parità di configurazione data e lingua.
Poi tieni presente che a livello di codice VBA, Access utilizza sempre il
formato "MM/DD/YY", tanto è vero che per fare comparazioni tra date
conviene utilizzare il Format sull'eventuale variabile che funziona da
filtro ... es. Format(Date(),"mm/dd/yy").
Ciao
OndaMax
--------------------------------
Inviato via
http://usenet.iol.it


author: MarcoS

text:
"MauroM" <
mezz...@asmvoghera.it
> ha scritto nel messaggio
news:a2h2mq$opm$1...@fe1.cs.interbusiness.it...

Associa la data a una variabile di tipo String (non di tipo Date) e passa al
codice SQL la variabile.
dim vdata as string
vdata="10/01/02"
SELECT test.test
FROM test
WHERE (((test.test)=#vdata#));  'credo che questa sintassi sia leggermente
diversa forse ... = & "#" & vdata & "#" &
Cmq dimmi se funziona, perchè altrimenti vado a vedere la sintassi giusta.
Ciao Marco S.
www.marcosanti.it


title: backup acc/97 in rete

author: tommy

text:
Ciao a tutti e ben tornati dalle vacanze.
Ho tre pc collegati in rete.
Ho tre db che hanno delle tabelle collegate a un file chiamato dati.mdb
Da uno dei computer devo fare il backup del file dati.mdb
Come faccio a far disconnettere tutti gli utenti e con un db fare il backup
con la barra di progressione al termine della copia.
Poi al momento del backup tutti gli utenti dei 3 pc devono stare fuori dal
file dat.mdb.
Come faccio. Grazie per una vostra risposta.


title: backup acc/97 in rete

author: MA

text:
"tommy" <
sime...@tin.it
> ha scritto nel messaggio
news:_i%4b.3019$R32....@news2.tin.it...

Dopo aver letto l' .ldb del be lanci un grido con aria feroce: "CHIUDETE!!!"
MAssimiliano


title: backup acc/97 in rete

text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:Kp%4b.33779$w8....@news.edisontel.com...

Come faccio a leggere l' .ldb del be
Come faccio una volta che lancio il backup a non far entrare gli utenti dei
tre pc.
Ciao da tommy e grazie


title: backup acc/97 in rete

text:
> > > Ciao a tutti e ben tornati dalle vacanze.
> > > Ho tre pc collegati in rete.
> > > Ho tre db che hanno delle tabelle collegate a un file chiamato
dati.mdb
> > > Da uno dei computer devo fare il backup del file dati.mdb
> > > Come faccio a far disconnettere tutti gli utenti e con un db fare il
> > backup
> > > con la barra di progressione al termine della copia.
> > > Poi al momento del backup tutti gli utenti dei 3 pc devono stare fuori
> dal
> > > file dat.mdb.
> > > Come faccio. Grazie per una vostra risposta.
> >
> > Dopo aver letto l' .ldb del be lanci un grido con aria feroce:
> "CHIUDETE!!!"
> > MAssimiliano
> >
> >
> Come faccio a leggere l' .ldb del be
> Come faccio una volta che lancio il backup a non far entrare gli utenti
dei
> tre pc.
> Ciao da tommy e grazie
>
In maniera molto grezza usi un "Apri con..." del tasto dx
MAssimiliano


title: backup acc/97 in rete

text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:XK15b.33832$w8.1...@news.edisontel.com...

Precisamente voglio creare un db che all'apertura si presenta in questo
modo:
Una maschera ed un pulsante. (fino a quà sono capace)
Al clic del pulsante:
1)Devo far uscire gli utenti dal file dati.mdb
2)Devo copiare il file c:\doc\dati.mdb in e:\
nel mentre non devo fare entrare gli utenti nei db con collegati le tabelle
del db dati.
3) visualizzare sulla maschera una barra di progressione
4)al termine della copia del file c:\doc\dati.mdb in e:\ avvisare l'utente
che il backup e' terminato.
Rispondimi solo se sei in grado grazie. e' molto importante.
grazie.


title: backup acc/97 in rete

author: namor

text:
"tommy" <
sime...@tin.it
> ha scritto nel messaggio
news:_i%4b.3019$R32....@news2.tin.it...

Metti in ogni Db una maschera nascosta che controlla nell'evento Timer lo
stato di un flag, che metterai in una tabella di un altro db o in un file di
testo.
Quando il flag diventa attivo (lo attivi tu per fare la copia) la maschera
in ogni Db stampa un messaggio "Attenzione: Disconnessione dal Db tra 5
secondi per manutenzione..." e chiude tutte le altre maschere o chiude il
db.
Poi fai la copia e resetti il flag in modo che gli utenti possano riaprire
il db dati.
Non usare intervalli Timer troppo bassi. Stai sopra ad 1 secondo.
Namor


title: Aprire un file di un'altra applicazione con Access

text:
Ciao a tutto il NG
Con Access XP vorrei fare in modo che documenti vari (in questo caso dei
pdf) i cui nomi sono inseriti SENZA ESTENSIONE all'interno di un campo
specifico nei record del DB, possano essere aperti direttamente mediante
un pulsante di comando.
Sul Sito Comune ho trovato qualche esempio, ma non sono in grado di
completare correttamente la stringa di comando che deve tener conto che
ciascun file ha un nome diverso senza estensione.
Qualcuno mi potrebbe aiutare per favore?
Grazie
Pier
--
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Pier61 wrote:
> Ciao a tutto il NG
> Con Access XP vorrei fare in modo che documenti vari (in questo caso
> dei pdf) i cui nomi sono inseriti SENZA ESTENSIONE all'interno di un
> campo specifico nei record del DB, possano essere aperti direttamente
> mediante un pulsante di comando.
> Sul Sito Comune ho trovato qualche esempio, ma non sono in grado di
> completare correttamente la stringa di comando che deve tener conto
> che ciascun file ha un nome diverso senza estensione.
> Qualcuno mi potrebbe aiutare per favore?
>
> Grazie
>
> Pier
> --
guarda l'help di hyperlinkaddress
--
_ _
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


author: ALESSANDRO Baraldi

text:
"Pier61" <
pie...@tiscali.it
> ha scritto nel messaggio
news:d6husg$eru$1...@news.newsland.it...
> Ciao a tutto il NG
> Con Access XP vorrei fare in modo che documenti vari (in questo caso dei
> pdf) i cui nomi sono inseriti SENZA ESTENSIONE all'interno di un campo
> specifico nei record del DB, possano essere aperti direttamente mediante
> un pulsante di comando.
> Sul Sito Comune ho trovato qualche esempio, ma non sono in grado di
> completare correttamente la stringa di comando che deve tener conto che
> ciascun file ha un nome diverso senza estensione.
> Qualcuno mi potrebbe aiutare per favore?
>
> Grazie
>
> Pier
L'arcano motivo che ti ha indotto a non registrare l'estensione sarebbe
da chiarie.
Se ti sembrava brutto visualizzarla dovevi creare un campo Calcolato
che la Strippava, ma il campo Originale DEVE averla, altrimenti sei fregato.
Non hai nessuna possibilità di aprire il DOCUMENTO, a meno di non darti
la limitazione del formato PDF, a quel punto aggiungi la stringa ".pdf"
anche se mi piacerebbe capire da dove peschi il Percorso completo a questo
punto.
Se non vuoi la limitazione del PDF(che trovo pessima) fai come ti ho
suggerito, altrimenti
l'unico metodo è via API chiedere "APRI CON...".
Personalmente ti consiglio di rivedere o razionalizzare meglio la tecnica
e la flessibilità.
Saluti
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
> L'arcano motivo che ti ha indotto a non registrare l'estensione sarebbe
> da chiarie.
> Se ti sembrava brutto visualizzarla dovevi creare un campo Calcolato
> che la Strippava, ma il campo Originale DEVE averla, altrimenti sei fregato.
> Non hai nessuna possibilità di aprire il DOCUMENTO, a meno di non darti
> la limitazione del formato PDF, a quel punto aggiungi la stringa ".pdf"
> anche se mi piacerebbe capire da dove peschi il Percorso completo a questo
> punto.
> Se non vuoi la limitazione del PDF(che trovo pessima) fai come ti ho
> suggerito, altrimenti
> l'unico metodo è via API chiedere "APRI CON...".
> Personalmente ti consiglio di rivedere o razionalizzare meglio la tecnica
> e la flessibilità.
> Saluti
Il DB contiene dei riferimenti a dei numeri d'ordine, a ciascuno dei quali
vorrei associare il relativo documento scansito e rinominato esattamente
come indicato nel campo.
Dal momento che il DB esiste già ed ha una sua logica perchè i dati
vengono importati da un'altro sistema gestionale, è chiaro che ciascun
numero di documento non contiene l'estensione .pdf; ecco perchè vorrei
cercare di creare un pulsante con funzione di apertura del documento
idealmente simile ad una condizione where alla quale devo collegare la
stringa ".pdf"
Farò qualche prova ulteriore, a meno che, quando importo i dati nel DB
Access, non faccia in modo che a ciascun riferimento di documento, venga
aggiunto il famoso ".pdf" mediante una query; cosa ne pensate?
Ciao



text:
"Pier61" <
pie...@tiscali.it
> ha scritto nel messaggio
news:d6i674$fao$1...@news.newsland.it...

Il Documento anche se relazionalmente è indicizzato come un Numero
non significa che debba avere in un Campo i riferimenti corretti
per usarlo.
Come ti dicevo non basta il NOME, ma serve il Percorso COMPLETO.
Da dove lo recuperi...?
Hai una Folder Fissa...?
Per l'estensione non è un problema se sei certo siano solo PDF, ricostruisci
la stringa così:
NomeCompleto=Nome+".pdf"
ma per lanciarlo serve il percorso completo:
"C:\Programmi\NomeCartella\NomeFile.PDF"
altrimenti non lo lanci.
Il consiglio di memorizzare il Nome è per evitare la rigidità
imposta al codice, cheuna volta scritta la routine che somma la
stringa PDF avrai solo ed esclusivamente PDF, speriamo non ci
siano documenti di Word o Excel, ma spesso arrivano dei TIFF
anche a livello contabile...!!!!



title: Report su pagine multiple

author: Massimiliano Pratelli

text:
Ciao,
devo realizzare un modello prestampato di 4 pagine.
Ho fatto un report basato su una tabella.
Ho dei problemi nel realizzare un unico report in cui vengono stampate tutte
le 4 pagine. Se imposto l'interruzione di pagina ad un certo punto il
formato del foglio diventa troppo grosso e ingestibile sa Access.
Sicuramente mi sfugge qualcosa... magari di banalissimo.
Mi date un consiglio?
Massimiliano
P.S.
Attualmente sto utilizzando una macro che mi stampa tutte e quattro le
pagine in un botto solo ma in questo modo non posso vedere l'anteprima
completa.


title: Grafica nei report via email

author: Ignazio Pinna

text:
Ho un report che utilizza linee grafiche nella formattazione della pagina.
Quando lo mando via email, con sendobject, perde la parte grafica.
Qualche soluzione?
Grazie anticipatamente


title: Grafica nei report via email

author: Roberto da casa

text:
"Ignazio Pinna" <
ipi...@tiscali.it
> ha scritto nel messaggio
news:WgcLb.72811$_P.27...@news4.tin.it...

Usa il formato SnapShot.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Grafica nei report via email

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wzeLb.239852$e6.94...@twister2.libero.it...
>
> "Ignazio Pinna" <
ipi...@tiscali.it
> ha scritto nel messaggio
> news:WgcLb.72811$_P.27...@news4.tin.it...
> > Ho un report che utilizza linee grafiche nella formattazione della
pagina.
> > Quando lo mando via email, con sendobject, perde la parte grafica.
> > Qualche soluzione?
> > Grazie anticipatamente
>
> Usa il formato SnapShot.
>
> --
> Roberto
>
Ok, funziona ma ho problemi di altro tipo in quanto anche se è free alcuni
persone potrebbero avere difficoltà su vecchi sistemi.
Comunque grazie.
Ho invece optato per inviarlo in formato PDF.
Ora lotto per inviare una mail con un attach, che creo automaticamente in
quanto sendobject non funziona all'uso.
Comunque se hai suggerimente sono sempre preziosi.
PS ho spulciato il sito comune ... inutilmente a quanto pare.
Grazie.
Ciao Ignazio


title: Grafica nei report via email

text:
"Ignazio Pinna" <
ipi...@tiscali.it
> ha scritto nel messaggio
news:ZpSLb.68045$VW.28...@news3.tin.it...

Per inviare una email contenente un allegatato con Access, vai sul Sito
Comune (link qui sotto) e nella Sezione General leggi queste due FAQ:
1) Inviare e-mail con MSAccess utilizzando il winsock di Paolo Beltrame.
2) Inviare e-mail con MSAccess utilizzando la libreria mapi32.dll di Carlo
Costarella.



title: Grafica nei report via email

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:f5WLb.241228$vO5.9...@twister1.libero.it...

Tutto Ok!
Come al solito hai avuto ragione. Ho tardato a realizzare il tutto.
In realtà nel mio pc con win xp pro non funziona ma credo che sia un
problema di mapi, comunque in quello di destinazione è tutto ok.
Grazie ancora sei prezioso, sintetico e puntuale come pochi.
A presto.


title: recordset con valori temporanei

author: Davide Nardo

text:
ciao a tutti
qualcuno mi sa dire come posso creare un recordset, da applicare come
origine record di una sottomaschera, costituito da record temporanei, ossia
non derivanti da tabella/query, ma generati da valori presenti nella
maschera principale? Mi serve per visualizzare un piano degli ammortamenti.
La maschera principale elenca i beni ammortizzabili e contiene i campi
ValoreStoricoDelBene, AnnoInizioAmmortamento e AliquotaDiAmmortamento. La
sottomaschera dovrebbe evidenziare un numero di record pari agli anni di
ammortamento, la QuotaDiAmmortamento,ecc. Non vorrei dilungarmi troppo...se
qualcuno ha capito, mi basterebbe un piccolo spunto per ragionarci su.
Grazie
Davide


title: recordset con valori temporanei

text:
"Davide Nardo" <
david...@tin.it
> ha scritto nel messaggio
news:Uxi4d.291224$OR2.13...@news3.tin.it...

Devi creare Tabelle Temporanee.
Con quella poi fai tutto quello che vuoi.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Suddividere un grafico su piu' fogli, è possibile?

author: MBW

text:
Ho un problema analogo a quello indicato in questo post:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/b627a792fb96a9c/9da608d4680d23e4?lnk=gst&q=grafico+pagine#9da608d4680d23e4
Mi rendo conto che è un po' vecchiotto ma ... All'epoca nessuna
risposta...
La mia domanda oggi è la stessa: è possibile suddividere, diciamo
paginare, un grafico su piu' fogli? E, se sì, come?
Magari potrebbe essere una fesseria ma non ne vengo a capo... aiuto,
please!
Grazie!


author: Sergio MAZZA

text:
"MBW" <
megab...@hotmail.it
> ha scritto nel messaggio
news:1192178380.5...@i38g2000prf.googlegroups.com...

[risposta]
Dividi i dati per "tipologiaSpesa" (in riferimento al post) e ogni grafico
lo associ alla query filtrata per gruppo.
La divisione in pagine del report la farai con l'ordinamento/raggruppamento
per "tipologiaSpesa" indicando il salto pagina al piè di pagina gruppo...
Ciao.
--
Sergio MAZZA


title: Selezione multipla in caselle di riepilogo e query

author: aa

text:
Ho visto che è possibile impostare le caselle di riepilogo con la selezione
di piu righe.
Vorrei basare una query con un elenco di articoli filtrando le categorie che
ho selelezionato nella casella di riepilogo.
E' possibile?
ho provato ma quando sleziono piu di una riga mi da come valore "nulla"
grazie e ciao!


author: Federico Luciani

text:
aa wrote:
> Ho visto che č possibile impostare le caselle di riepilogo con la selezione

Questo perche' nel caso di liste a selezione multipla devi scorrere l'insieme
ItemsSelected (guarda help) della lista per reperire tutte le voci selezionate,
cosi':
Dim vTemp as variant
For Each vTemp In Me!lstNome.ItemsSelected
  ...
Next vTemp
come utilizzarlo, dipende da come devi visualizzare i dati:
- aprendo una query
- in un maschera
- in un report
- in un altra casella di riepilogo
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Sonna valori nulli

author: Lino

text:
Salve a tutti Ho un problema !!!
Devo sommare in un campo calcolato di una query una serie di campi che
possono contenere anche valori nulli.
Il problema sta nel fatto che se nell'espressione di somma inserisco dei
campi con valore nulla
il risultato della somma è anchesso nullo.
l'unico mudo che ho provato e che funzione consiste nellutilizzare la
finzione iif per ogni addendo mettendo come primo argomento della funzione
il test di verità se un determinato campo è nullo o no.
in pratica:
somma =
iif(isnull(nomecampo1);0;nomecanpo1)+iif(isnull(nomecampo2);0;nomecanpo2)+..
....... etc!
il problema CHE ESSENDO UNA SOMMA LUNGA (circa 12 addendi) il campo
calcolato mi va in errore perchè non accetta tutti i caratteri (aspressione
troppo lunga).
come posso risolvere questo problema???
Vi ringrazio anticipatamente!
li...@mediasystems.net


title: Sonna valori nulli

author: Antonio Biso

text:
Lino ha scritto nel messaggio <89ge5j$fj4$
1...@nslave1.tin.it
>...
>Salve a tutti Ho un problema !!!
>Devo sommare in un campo calcolato di una query una serie di campi che
>possono contenere anche valori nulli.
>Il problema sta nel fatto che se nell'espressione di somma inserisco dei
>campi con valore nulla
>il risultato della somma è anchesso nullo.
>l'unico mudo che ho provato e che funzione consiste nellutilizzare la
>finzione iif per ogni addendo mettendo come primo argomento della funzione
>il test di verità se un determinato campo è nullo o no.
>
>in pratica:
>somma =
>iif(isnull(nomecampo1);0;nomecanpo1)+iif(isnull(nomecampo2);0;nomecanpo2)+.
.
>....... etc!
>
>il problema CHE ESSENDO UNA SOMMA LUNGA (circa 12 addendi) il campo
>calcolato mi va in errore perchè non accetta tutti i caratteri (aspressione
>troppo lunga).
Con la funzione nz che praticamente sostituisce l'iif nel tuo caso.
Puoi vedere un ottimo help nell'help on line
Antonio


title: Sonna valori nulli

author: Andrea

text:
Io eliminerei il problema all'origine.
Stiamo parlando di somme, presumo quindi che i campi siano di tipo valuta o
intero lungo, se le cose stanno in questi termini farei:
- una modifica in tabella indicando per ciascuno di quei campi un valore
predefinito 0
- una bella query di aggiornamento per sanare il pregresso (portando da null
a 0)
A questo punto nella query non ho più il problema!


title: Verificare se è disponibile un aggiornamento

author: EmMeCi - Style

text:
Buongiorno,
tempo fa ho postato una richiesta per sapere se potevo rendere disponibile
al download un DB Access, detto questo, vorrei che tale DB potesse
verificare se sul sito è disponibile una nuova versione.
Mi spiego meglio!
Da apposito menu, vorrei lanciare un controllo sul mio spazio web
all'interno del quale si trova il DB disponibile al download e ... se la
versione depositata On-Line è più recente, scaricarla!
Avete gia approntato situazioni simili? Come le avete affrontate?
Attendo fiducioso Vs. suggerimenti e anticipatamente Vi ringrazio.
Buon proseguimento di giornata!
--
**********
EmMeCi
**********


text:
"EmMeCi - Style" <
mcs...@email.it
> ha scritto nel messaggio
news:3U7zf.372$Q62...@news.it.colt.net...

Da VBA, posso leggere il contenuto di un file INI sito su
www.nomedelmiosito.ext/DBase/param.ini ?
Se così fosse avrei risolto il mio problema!
Attendo fiducioso Vs. riscontro!
Saluti,
--
**********
EmMeCi
**********


text:
"EmMeCi - Style" <
mcs...@email.it
> ha scritto nel messaggio
news:3U7zf.372$Q62...@news.it.colt.net...

(se non sbaglio) Micorsoft tempo fa mise a disposizione uno "liveupdate" per
inserirlo nelle applicazioni...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dqkocu$rd7$1...@area.cu.mi.it...

Potrebbe essere interessante, solo che non mi sembra di googlare risultati
interessanti con le keywords microsoft e liveupdate ... alla fine mi ritrovo
quasi sempre dati della MSI (Produttrice PC) e Symantec ... (Produttrice di
VIRUS!!!!).
Se ti venisse in mente qualche particolare in più ... ben venga!
Ciao e grazie per ora.
--
**********
EmMeCi
**********


text:
"EmMeCi - Style" <
mcs...@email.it
> ha scritto nel messaggio
news:80mzf.379$Q62...@news.it.colt.net...
> Potrebbe essere interessante, solo che non mi sembra di googlare risultati
> interessanti con le keywords microsoft e liveupdate ... alla fine mi
> ritrovo quasi sempre dati della MSI (Produttrice PC) e Symantec ...
> (Produttrice di VIRUS!!!!).
> Se ti venisse in mente qualche particolare in più ... ben venga!
> Ciao e grazie per ora.
>
> --
> **********
> EmMeCi
> **********
Sembra essere questo:
http://msdn.microsoft.com/library/default.asp?url=/workshop/delivery/msicd/reference/reference.asp
http://msdn.microsoft.com/library/default.asp?url=/workshop/delivery/download/tutorials/activex_example.asp
Certo tutto dipende da "quanto tempo ci vuoi perdere"; altrimenti, se vuoi
che l'applicazione effettui una semplice verifica su web (via FTP) della
presenza di un file con data creazione più recente della sua, puoi anche
utilizzare il controllo Inet o altri controlli activex free...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dql42b$d66$1...@area.cu.mi.it...

Grazie!
Il tempo per fortuna non è un problema, trattandosi di un mio *hobby*, non
ho scadenze da rispettare e posso permettermi di dedicare il temponecessario
a comprendere meglio e a cercare di fare meglio!
Ti ringrazio tanto per il link!
Ciao.
--
**********
EmMeCi
**********


title: Selezione multipla: cosa usare?

author: ..::Maffi Maurizio::..

text:
Problema classico, purtroppo ho cercato in giro e nn sono stato in grado di
trovare quello che cercavo.
Ho una tabella Colori, con ID e Colore.
Devo creare una tabella Inventario, in cui ho un campo contatore ID, un
campo di testo Prodotto ed un campo Colore che prende i valori da Colori.
Un prodotto può essere presente in + Colori, e questi ultimi selezionati da
utente. Cosa usare? Inizialmente usavo una semplice ListBox ma dovevo
scrivere uno per uno tutti i record:
....
1  Prod1  Bianco
2  Prod1  Nero
3  Prod1  Giallo
4  Prod2  Bianco
4  Prod2  Rosso
...
Ora vorrei che, immesso un articolo, possa, con una unica selezione
multipla, selezionarmi i miei colori.
Tutto questo tramite maschera, che modificherà la tabella.
Come posso gestire il tutto? Ci sono altre strade per ottenere questo scopo?
Tutti i suggerimenti sono accettati, anche link a documentazione
Grazie mille


title: Selezione multipla: cosa usare?

text:
"..::Maffi Maurizio::.." <
mup...@libero.it
> ha scritto nel messaggio
news:aNjIb.27847$_P.12...@news4.tin.it...

Se la tabella Colori ha la seguente struttura:
ID            Contatore e chiave primaria
Colore     Testo
Se la tabella Inventario ha la seguente struttura:
ID            Contatore e chiave primaria
Prodotto   Testo
Colore      Testo
Creati una maschera non associata che contenga una casella di riepilo non
associata chiamata Elenco, una casella di testo non associata chiamata Prod
ed un pulsante di comando.
Imposta ad Estesa la proprietà Selezione multipla della casella di
riepilogo.
La casella di riepilogo deve avere una sola colonna e deve avere come
origine riga il seguente codice SQL:
SELECT DISTINCTROW [Colori].[Colore] FROM [Colori];
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
If Me!Elenco.ItemsSelected.Count <> 0 Then
    If Nz(Me!Prod, "") <> "" Then
        Dim rs As DAO.Recordset
        Dim varItem As Variant
        Set rs = CurrentDb().OpenRecordset("Inventario")
        For Each varItem In Me!Elenco.ItemsSelected
            rs.AddNew
            rs!Prodotto = Me!Prod
            rs!Colore = Me!Elenco.Column(0, varItem)
            rs.Update
        Next varItem
        Set rs = Nothing
    End If
End If
Dim Cont As Integer
For Cont = 0 To Me!Elenco.ListCount - 1
    Me!Elenco.Selected(Cont) = False
Next Cont
Me!Prod = Null
A questo punto apri la maschera, seleziona nella casella di riepilogo i
colori, digita nella casella di testo il prodotto e poi pigia il pulsante di
comando: verranno registrati nella tabella Inventario i records relativi al
prodotto digitato ed ai colori selezionati.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Selezione multipla: cosa usare?

text:
Mi dice "Tipo definito dall'utente non definito" e mi si blocca nella
dichiarazione
Dim rs As DAO.Recordset
Cosa può essere?
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:blyIb.218300$vO5.8...@twister1.libero.it...



title: Selezione multipla: cosa usare?

text:
Ho letto un vecchio post e ho selezionato in Strumenti->Riferimenti la DAO
3.6
Grazie mille per l'aiuto
"..::Maffi Maurizio::.." <
mup...@libero.it
> ha scritto nel messaggio
news:QqzIb.30829$_P.13...@news4.tin.it...



title: Drag and Drop da listview

author: Giovanni Taverna

text:
Salve a tutti
Qualcuno ha visto esempi pratici di realizzazione del drag and drop tra
listview ?
In particolare da listview con multi selezione abilitata ?
Grazie in anticipo
Giovanni


title: Drag and Drop da listview

text:
"Giovanni Taverna" <
gionni...@tiscalinet.it
> ha scritto nel messaggio
news:appcos$1dd$1...@lacerta.tiscalinet.it...

Vai sul Sito Comune (link qui sotto) e dalla Sezione Forms fai il download
del database di esempi che è allegato alla FAQ intitolata "Esempi di
utilizzo delle forms".
Apri il database scaricato e seleziona il Topic intitolatao Simulating
Drag-And-Drop Capabilities; dopo la selezione effettuata con il mouse, premi
il pulsante Show Example: si aprirà una maschera nella quale pigerai il
pulsante Example2; a questo punto ti verrà mostrato, e potrai sperimentare,
un esempio di Drag-and-Drop tra due caselle di riepilogo.
Spiegazioni dettagliate sulla tecnica con la quale è stato realizzato
l'esempio le trovi al link:
http://support.microsoft.com/support/kb/articles/Q137/6/50.asp?PR=ACC
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: filtro per report

author: Paolo

text:
Ciao a tutti,
sono un principiante e premetto che già fatto ricerce tra vari siti per
trovare risposta al mio quesito...
Ho un DB con una tabella con alcune colonne "NOME" "COGNOME" "CATEGORIA"
"INDIRIZZO" "LUOGO" etc... ho già creato un report per la stampa di
tutti i record...
come posso (tramite un pulsante o simile) stampare dallo stesso report
(o al limite ne creo un'altro) una lista dei record il cui campo "LUOGO"
sia lo stesso (es. Firenze) ?
Spero di essermi spiegato. ciao e grazie


title: filtro per report

author: ciroteo

text:
"Paolo" <
pao...@interfree.it
> ha scritto nel messaggio
news:U1kqe.1009074$b5.43...@news3.tin.it...

Puoi semplicemente modificare la query sottostante al report.
Oppure crei una maschera ([form1]) con una casella non associata [ricerca] e
poi un pulsante che apre il record filtrato in base al valore di questa
casella.
Per far così basta che metti nei criteri della query sottostante al record
per es come parametro del campo citta :
=[forms]![form1]![cerca]
In questo modo il report si aprirà filtrato in base al valore da te scritto.


title: Giorni della settimane

text:
Salve ! Ho un problemino: come faccio ad estrapolare solo i giorni feriali
intercorrenti fra due campi data ?? Grazie a tutti coloro che risponderanno.
Fauno 68
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Giorni della settimane

text:
"fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
news:195Z43Z171Z154Y...@usenet.libero.it...
> Salve ! Ho un problemino: come faccio ad estrapolare solo i giorni feriali
> intercorrenti fra due campi data ?? Grazie a tutti coloro che
risponderanno.
Per determinare se una data è feriale o festiva usa le funzioni che trovi
pubblicate nel Sito Comune (link qui sotto), nella Sezione General, nella
FAQ di G. Paolo Bizzaro e di Silvio Mazzetto intitolata "Conteggio dei
giorni lavorativi tra due date".
Stai però attento che non viene considerato festivo il giorno del Santo
Patrono, quindi devi modificare di conseguenza la funzione Festivo.
> Fauno 68
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Giorni della settimane

text:
Il 21 Ott 2003, 12:59, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
> news:195Z43Z171Z154Y...@usenet.libero.it...
> > Salve ! Ho un problemino: come faccio ad estrapolare solo i giorni
feriali
> > intercorrenti fra due campi data ?? Grazie a tutti coloro che
> risponderanno.
>
> Per determinare se una data č feriale o festiva usa le funzioni che trovi
> pubblicate nel Sito Comune (link qui sotto), nella Sezione General, nella
> FAQ di G. Paolo Bizzaro e di Silvio Mazzetto intitolata "Conteggio dei
> giorni lavorativi tra due date".
> Stai perň attento che non viene considerato festivo il giorno del Santo
> Patrono, quindi devi modificare di conseguenza la funzione Festivo.
>
> > Fauno 68
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Ciao, ho inserito le tre funzioni in un modulo richiamandole in una query e
funziona.
I miei campi Date, perň, hanno un formato che prevede anche le ore, i minuti
e i secondi per cui il risultato del campo collegato alle funzioni suggerite
č vuoto. Come faccio a fargli riconoscere che il formato Date da gestire č
piů complesso ?
Un'altra domanda: c'č una funzione suggerita dall'Help di Access che non
riesco a far funzionare (GIORNI.LAVORATIVI.TOT), di sicuro non č altrettando
valida rispetto alle tre "famose" funzioni suggerite. Cosa ne pensate ?
Saluti, Fauno 68



title: Giorni della settimane

text:

Invece di scrivere
ContaLavorativi([DataIn]; [DataFi]; Vero)
Prova a scrivere:
ContaLavorativi(Int([DataIn]); Int([DataFi]); Vero)
>
> Un'altra domanda: c'č una funzione suggerita dall'Help di Access che non
> riesco a far funzionare (GIORNI.LAVORATIVI.TOT), di sicuro non č
altrettando
> valida rispetto alle tre "famose" funzioni suggerite. Cosa ne pensate ?
Non esiste in Access una funzione intrinseca che ha quel nome; se non
ricordo male quella č una funzione di Excel.
>
> Saluti, Fauno 68



title: Giorni della settimane

text:
Il 23 Ott 2003, 11:09, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
> news:195Z43Z171Z154Y...@usenet.libero.it...
> > Il 21 Ott 2003, 12:59, "Roberto da casa" <
r.ma...@libero.it
> ha
scritto:
> > >
> > > "fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
> > > news:195Z43Z171Z154Y...@usenet.libero.it...
> > > > Salve ! Ho un problemino: come faccio ad estrapolare solo i giorni
> > feriali
> > > > intercorrenti fra due campi data ?? Grazie a tutti coloro che
> > > risponderanno.
> > >
> > > Per determinare se una data è feriale o festiva usa le funzioni che
> trovi
> > > pubblicate nel Sito Comune (link qui sotto), nella Sezione General,
> nella
> > > FAQ di G. Paolo Bizzaro e di Silvio Mazzetto intitolata "Conteggio dei
> > > giorni lavorativi tra due date".
> > > Stai però attento che non viene considerato festivo il giorno del
Santo
> > > Patrono, quindi devi modificare di conseguenza la funzione Festivo.
> > >
> > > > Fauno 68
> > >
> > > --
> > > Roberto
> > >
> > > ---------------------------------------------
> > > il Sito Comune di it.comp.appl.access:
> > >
http://www.sitocomune.com
> > > ---------------------------------------------
> > >
> > Ciao, ho inserito le tre funzioni in un modulo richiamandole in una
query
> e
> > funziona.
> > I miei campi Date, però, hanno un formato che prevede anche le ore, i
> minuti
> > e i secondi per cui il risultato del campo collegato alle funzioni
> suggerite
> > è vuoto. Come faccio a fargli riconoscere che il formato Date da gestire
è
> > più complesso ?
>
> Invece di scrivere
>
> ContaLavorativi([DataIn]; [DataFi]; Vero)
>
> Prova a scrivere:
>
> ContaLavorativi(Int([DataIn]); Int([DataFi]); Vero)
>
> >
> > Un'altra domanda: c'è una funzione suggerita dall'Help di Access che non
> > riesco a far funzionare (GIORNI.LAVORATIVI.TOT), di sicuro non è
> altrettando
> > valida rispetto alle tre "famose" funzioni suggerite. Cosa ne pensate ?
>
> Non esiste in Access una funzione intrinseca che ha quel nome; se non
> ricordo male quella è una funzione di Excel.
>
> >
> > Saluti, Fauno 68
>
> --
> Roberto
>
Salve, praticamente io ho necessità che il conteggio mi ritorni un valore
decimale. Aspetto notizie . Ciao !
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Giorni della settimane

text:
"fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
news:195Z43Z171Z154Y...@usenet.libero.it...
[CUT]
> >
> Salve, praticamente io ho necessità che il conteggio mi ritorni un valore
> decimale. Aspetto notizie . Ciao !
Non ho alcuna notizia da darti in quanto non capisco, nel computo dei giorni
lavorativi, cosa significa "un valore decimale"?



title: Giorni della settimane

text:
Il 23 Ott 2003, 12:48, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
> news:195Z43Z171Z154Y...@usenet.libero.it...
> [CUT]
> > >
> > Salve, praticamente io ho necessità che il conteggio mi ritorni un
valore
> > decimale. Aspetto notizie . Ciao !
>
> Non ho alcuna notizia da darti in quanto non capisco, nel computo dei
giorni
> lavorativi, cosa significa "un valore decimale"?
>
> --
> Roberto
>
Scusami ti preciso:
praticamente se ho il campo di data iniziale con valore "01/06/03 12:00:00"
ed il campo di data finale con
valore "01/06/03 24:00:00" il conteggio dei giorni mi dovrebbe dare il
valore "0,5". Mentre, le tre funzioni suggerite gestiscono campi con valori
data senza integrazione dell'ora.
Cosa mi puoi suggerire ?
Ciao, fauno 68
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Giorni della settimane

text:
"fauno68" <
fauno...@itag.it
> ha scritto nel messaggio
news:195Z43Z171Z154Y...@usenet.libero.it...
> Il 23 Ott 2003, 12:48, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
> >
> > "fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
> > news:195Z43Z171Z154Y...@usenet.libero.it...
> > [CUT]
> > > >
> > > Salve, praticamente io ho necessità che il conteggio mi ritorni un
> valore
> > > decimale. Aspetto notizie . Ciao !
> >
> > Non ho alcuna notizia da darti in quanto non capisco, nel computo dei
> giorni
> > lavorativi, cosa significa "un valore decimale"?
> >
> > --
> > Roberto
> >
> Scusami ti preciso:
> praticamente se ho il campo di data iniziale con valore "01/06/03
12:00:00"
> ed il campo di data finale con
> valore "01/06/03 24:00:00" il conteggio dei giorni mi dovrebbe dare il
> valore "0,5". Mentre, le tre funzioni suggerite gestiscono campi con
valori
> data senza integrazione dell'ora.
> Cosa mi puoi suggerire ?
> Ciao, fauno 68
In Access non esiste l'orario 24:00:00, quindi invece di "01/06/03 24:00:00"
avresti dovuto scrivere "02/06/03 00:00:00".
Se il primo orario si chiama DataIn ed è di tipo Data/ora.
Se il secondo orario si chiama DataFi ed è di tipo Data/ora.
Se il risultato espresso in giorni e frazioni di giorni lo vuoi in una
casella di testo chiamata Giorni.
Se in un modulo del tuo databse hai registrato le funzioni d cui abbiamo
parlato e pubblicate sul Sito Comune.
Prova ad usare il seguente codice VBA:
Me!Giorni = ContaLavorativi(Int(CDate(Me!DataIn)), _
Int(CDate(Me!DataFi)), True)
If (CDate(Me!DataIn) - Int(CDate(Me!DataIn))) < _
(CDate(Me!DataFi) - Int(CDate(Me!DataFi))) Then
    Me!Giorni = Me!Giorni - 1 + _
    ((CDate(Me!DataFi) - Int(CDate(Me!DataFi))) - _
    (CDate(Me!DataIn) - Int(CDate(Me!DataIn))))
Else
    Me!Giorni = Me!Giorni - 1 - _
    ((CDate(Me!DataIn) - Int(CDate(Me!DataIn))) - _
    (CDate(Me!DataFi) - Int(CDate(Me!DataFi))))
End If
Dovrebbe funzionare, facci sapere
--
Roberto



title: Giorni della settimane

text:

Ciao, ma il codice VBA suggerito dove va inserito ?
Saluti, fauno68



title: Giorni della settimane

text:
"fauno68_cc" <
fauno...@libero.it
> ha scritto nel messaggio

Come ti ho già detto nel mio precedente messaggio, lo devi memorizzare in un
modulo del tuo database.
> Saluti, fauno68



title: Giorni della settimane

text:

Ciao, il risultato in frazione di giorni deve risultare in una query non in
una casella di testo. Cosa devo fare ?
Saluti, fauno 68
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Giorni della settimane

text:
"fauno68" <
fauno...@libero.it
> ha scritto nel messaggio
news:195Z43Z171Z154Y...@usenet.libero.it...
[CUT]
> >
> Ciao, il risultato in frazione di giorni deve risultare in una query non
in
> una casella di testo. Cosa devo fare ?
Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
Id                Contatore e chiave primaria
DataIn         Data/ora
DataFi         Data/ora
ecc. ecc.
Inserisce nella query un campo calcolato dove richiami la funzione
ContaLavorativi e dove effettui tutti i calcoli del caso.
Insomma prova con una query che abbia il seguente codice SQL:
SELECT *, IIf(([DataIn] - Int([DataIn])) < ([DataFi] - Int([DataFi])),
ContaLavorativi(Int([DataIn]), Int([DataFi]), True) - 1 + (([DataFi] -
Int([DataFi])) -([DataIn] - Int([DataIn]))), ContaLavorativi(Int([DataIn]),
Int([DataFi]), True) - 1- (([DataIn] - Int([DataIn])) - ([DataFi] -
Int([DataFi])))) AS Giorni
FROM Tabella1;
che se usi lavorare con la griglia di struttura delle query, inserisci nella
query un campo calcolato cosě fatto:
Giorni: IIf(([DataIn]-Int([DataIn])) < ([DataFi] - Int([DataFi]));
ContaLavorativi(Int([DataIn]); Int([DataFi]); Vero) - 1 + (([DataFi] -
Int([DataFi])) -([DataIn] - Int([DataIn]))); ContaLavorativi(Int([DataIn]);
Int([DataFi]); Vero) - 1 - (([DataIn] - Int([DataIn])) -
([DataFi]-Int([DataFi]))))
> Saluti, fauno 68



title: Giorni della settimane

text:

Ciao, Roberto. Solo una parola: GRAZIE !!
Saluti, fauno 68
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Giorni della settimane

text:

Rieccomi all'ATTACCO:
le analisi che devo fare vanno di mese in mese.
Per alcuni mesi perň il sistema mi lancia il seguente messaggio:
"Espressione non digitata correttamente o troppo complessa per essere
valutata. Un'espressione numerica, ad esempio, puň contenere troppi elementi
complessi. Semplificare assegnando parti dell'espressioni a variabili",
mentre per altri periodi presi in esami tutto č Ok. Cosa posso fare.
Saluti, fauno68



title: Giorni della settimane

text:

Mi dispiace ma non riesco a capire.
Potresti postare una coppia di date/orari che ti danno errore?
--
Roberto



title: Combo-box per selezionare parametri per aprire maschera

author: Riccardo

text:
Ciao a tutti! Avrei il seguente problema da risolvere.
Ho una maschera "TotaliAnnualiPerCliente" che ha come origine dati la
seguente istruzione SQL:
SELECT [Ordini].[IDCliente], [Ordini].[DataFornitura],
Sum([QueryParziali].[Parziale]) AS [Totale fornitura] FROM Ordini INNER JOIN
QueryParziali ON [Ordini].[IDOrdine]=[QueryParziali].[IDOrdine] WHERE
((([Ordini].[IDCliente])=[Inserire nome cliente]) And
((Format([Ordini].[DataFornitura],"yyyy"))=[Inserire l'anno di esercizio]))
GROUP BY [Ordini].[IDCliente], [Ordini].[DataFornitura] ORDER BY
[Ordini].[DataFornitura];
Quando apro la maschera, le classiche finestre pop-up mi chiedono, la prima
di inserire l'IDCliente, la seconda di inserire l'anno di esercizio.
Io vorrei creare una maschera di dialogo con due combo-box, la prima con l'
elenco a discesa dei clienti, la seconda con l'elenco a discesa degli anni
di esercizio. Dopo l'aggiornamento di queste due combo-box, mi si dovrebbe
quindi aprire la maschera "TotaliAnnualiPerCliente", senza che mi appaiano
le finestre pop-up.
E' possibile? E come?
Grazie per l'attenzione.


author: Antonio

text:
"Riccardo" <
dav...@masterweb.it
> ha scritto nel messaggio
news:Y2Ixa.4113$B8.1...@news.edisontel.com...

Creati la maschera (nome maschera1)con due caselle combinate, chiamate ad
es. Combo1 e Combo2. La proprietą Origine riga della prima casella va
impostata con il generatore (i tre puntini che trovi sulla proprietą)
uilizzando la tabella che contiene i clienti (inserisci sia l'IDCliente che
il nome); lo stessa per la seconda casella che conterrą la tabella degli
anni.
Nella query che hai scritto devi poi sostituire:
al posto di [Inserire nome cliente] la stringa [Forms]![maschera1]![combo1]
al posto di [Inserire l'anno di esercizio] la stringa
[Forms]![maschera1]![combo2]
Per la seconda parte dovresti gestire l'evento After_Update per aprire la
maschera "Totaliannualipercliente".
Ciao


text:
"Antonio" <
ante...@yahoo.it
> ha scritto nel messaggio
news:6vJxa.11237$Ny5.3...@twister2.libero.it...
>
> "Riccardo" <
dav...@masterweb.it
> ha scritto nel messaggio
> news:Y2Ixa.4113$B8.1...@news.edisontel.com...
>
> Creati la maschera (nome maschera1)con due caselle combinate, chiamate ad
> es. Combo1 e Combo2. La proprietą Origine riga della prima casella va
> impostata con il generatore (i tre puntini che trovi sulla proprietą)
> uilizzando la tabella che contiene i clienti (inserisci sia l'IDCliente
che
> il nome); lo stessa per la seconda casella che conterrą la tabella degli
> anni.
> Nella query che hai scritto devi poi sostituire:
> al posto di [Inserire nome cliente] la stringa
[Forms]![maschera1]![combo1]
> al posto di [Inserire l'anno di esercizio] la stringa
> [Forms]![maschera1]![combo2]
>
> Per la seconda parte dovresti gestire l'evento After_Update per aprire la
> maschera "Totaliannualipercliente".
> Ciao
> Scusami per il ritardo nella risposta, ma ho aspettato di avere il tempo
di provare i tuoi suggerimenti: funziona tutto benissimo. Grazie!!
>


title: Query e capi vuoti

author: Marcello Guarnacci

text:
Sto cercando da tempo di realizzare una query su delle cartelle cliniche
tramite una maschera nella quale posso, dopo  aver selezionato il campo
opzione, immettere il valore da ricercare.
    IIf(Opzione01=true;Forms![Ricerca]![Campo01];[Tabella1]![Campo01])
questo lo inserisco nei criteri della query per ogni campo da
ricercare(circa 30)
Il problema č che mi restituisce solo le cartelle cliniche dove tutti i
campi sono "pieni" anche se non seleziono l'opzione di tutti i campi
Ho provato anche cosě
    IIf(Opzione01=true;Forms![Ricerca]![Campo01];NZ([Tabella1]![Campo01]))
ma stesso risultato.
Qualcuno mi puň spiegare come poter fare(anche a costo di riniziare tutto da
capo)
Grazie
--
----
         \ | /
       (@ @)
---o00-(_)-00o-----
Marcello Guarnacci


title: filtrare 2 campi data in base ad un mese

author: BB

text:
avendo due campi data1 e data2, voglio filtrare tutti i record che in uno
di questi due campi (o anche in tutte e due) contenga il mese da scegliere!
come devo fare?
Alessandro Baraldi mi ha dato una risposta, ma non sono riuscito a
risolvere il problema (scusa alessandro!) e quindi riposto la domanda in
quest'altro modo.
sul sito comune non ho trovato argomenti al riguardo, nella guida nemmeno!.
SSOOSS
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Fabio DALLA VILLA

text:
"BB" <
onof...@tin.it
> ha scritto nel messaggio
news:cbgjqs$78i$1...@news.newsland.it...
> avendo due campi data1 e data2, voglio filtrare tutti i record che in uno
> di questi due campi (o anche in tutte e due) contenga il mese da
scegliere!
> come devo fare?
Con una query in cui aggiungi un campo dove estrapoli le due cifre che
rappresentano il mese, poi nella riga delle condizioni (appena sotto)
imposti il tuo mese o il richiamo ad una casella della maschera che contiene
il mese richiesto.
Fabio DV


text:
Fabio DALLA VILLA ha scritto:

scusa l'ignoranza ma non ho capito niunte!!
mi posti un po di codice? da inserire nella query



text:
> scusa l'ignoranza ma non ho capito niunte!!
>
> mi posti un po di codice? da inserire nella query
Mi hai trovato nella giornata buona ...
Tabella1 che contiene questi campi:
ID
Data1
Data2
Query1 che contiene quanto segue:
Campo: | Data1    | Data 2     | mese1: DatePart("m";[Data1]) |mese2:
DatePart("m";[Data2])
Tabella: | Tabella1 | Tabella 1
...
Criteri:  |                |               |    tuonumero
Oppure:|                |               |
|   tuonumero
(l'ho provata. Funziona).
Nota: tuonumero può richiamare un valore da una casella di controllo di una
maschera (con possibilità di scelta da parte dell'utente):
[forms]![Maschera1]![Testo1]
Ciao


title: generare un DB in autom. per calendario

author: Maurizio Giri

text:
Ciao a tutti,
è possibile, impostando da caselle combinate il mese, il giorno e la data
del primo giorno dell'anno , e generare automaticamente un DB di tutto il
calendario che contenga i campi "mese, giorno, data, note" da gennaio a
dicembre?
Grazie per l'aiuto
Maurizio


title: generare un DB in autom. per calendario

text:
Maurizio Giri <
mg...@omniway.sm
> wrote in message
9foon3$mu7$1...@fe2.cs.interbusiness.it...

Preparati una tabella che abbia quei campi. Ad ogni elaborazione prima la
svuoti. Quindi la apri come recordset e farai un ciclo in cui ad ogni
iterazione aggiungi un record alla tabella con addnew. Utilizzi un contatore
che incrementi ad ogni iterazione e che serve come paletto per il loop:
uscirai quando raggiungi 365.
Per quanto riguarda i valori da scrivere nel nuovo record, prima di tutto
puoi usare la funzione dateadd per aggiungere ad ogni iterazione un giorno,
quindi con le funzioni day, month e year applicate alla data raggiunta ad
ogni iterazione, otterrai i valori cercati
Antonio


title: generare un DB in autom. per calendario

author: MegaMax

text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:9foon3$mu7$1...@fe2.cs.interbusiness.it...
> Ciao a tutti,
> è possibile, impostando da caselle combinate il mese, il giorno e la data
> del primo giorno dell'anno , e generare automaticamente un DB di tutto il
> calendario che contenga i campi "mese, giorno, data, note" da gennaio a
> dicembre?
certo... puoi usare DateSerial
fai un ciclo tipo il seguente
dim GiornoAnno as integer
for GiornoAnno =1 to 365
  debug.print dateserial(2001,1,1+GiornoAnno)
next
Questo stampa le date dei 365 giorni successivi a quello inserito in
dateserial (1/1/2001 nell'esempio)
Invece che stamparle le puoi inserire i una tabella, apri il recordset, e
per ogni iterazione del ciclo ficchi il risultato in una nuova riga.
Max


title: generare un DB in autom. per calendario

text:
Mi sembra interessante la tua soluzione, ma dato che sono un principiante
non mi è così facile fare tutta la procedura.
Ho inserito i dati dalle mie caselle di testo
------------------------------------------------------------------------
Private Sub Comando6_Click()
Dim GiornoAnno As Integer
    Dim Mese As Integer
    Dim Data As Integer
    txMese.Value = Mese
    txData.Value = Data
For GiornoAnno = 1 To 365
  Debug.Print DateSerial(2001, Mese, Data + GiornoAnno)
Next
End Sub
----------------------------------------------------------------------------
-----------
Il problema è ora non stampare ma inserire il tutto in una tabella e aprire
il recordset
questa credo sia la cosa più rognosa, sono nelle vostre mani
Ciao



title: generare un DB in autom. per calendario

author: P. Bianchi

text:
Maurizio Giri wrote:
> Il problema č ora non stampare ma inserire il tutto in una tabella e aprire
> il recordset
> questa credo sia la cosa piů rognosa, sono nelle vostre mani
Copio una routine che avevo preparato per una mia maschera "MSK
calendario".
Opera su una tabella "TBL calendario" (campi data, day-of-week e note)
La maschera ha due controlli in input, caselle testo "dadata" e "adata"
entrambe formattate data.
poi ha un bottone "genera calendario", col seg. codice  associato
all'evento click:
---------------------------------------------------------
Private Sub GeneraCalendario_Click()
DoCmd.Hourglass True
Dim mydb As Database
Dim RScalend, RSfest As Recordset
Dim first, last, data_iesima As Date
Dim i, n As Integer
Dim ID As String
Set mydb = CurrentDb
Set RScalend = mydb.OpenRecordset("select * from [TBL calendario]")
'cancella il calendario precedente
RScalend.MoveLast
Let n = RScalend.RecordCount
If n > 0 Then
   RScalend.MoveFirst
   For i = 1 To n
    RScalend.Delete
    RScalend.MoveNext
   Next i
End If
'carica le date inizio fine e iesima
Let first = Me.dadata
Let last = Me.adata
' Genera il nuovo calendario
If first < last Then
   ' loopa attraverso le date
   Let data_iesima = first
   Do While data_iesima <= last

        ' per ogni giorno e per ogni dipendente aggiunge una riga
        RScalend.AddNew

        ' immette di dati
        Let RScalend!giorno = data_iesima
        Let RScalend!DOW = WeekDay(data_iesima, 2)
        If RScalend!DOW = 7 Then
           Let RScalend!Note = "domenica"
        ElseIf RScalend!DOW = 6 Then
           Let RScalend!Note = "sabato"
        Else
          Let RScalend!Note = " "
        End If

        ' li scrive in tabella
        RScalend.Update

      Let data_iesima = data_iesima + 1
   Loop
Else
   MsgBox "data fine inferiore a data inizio"
End If
Set mydb = Nothing
Set RScalend = Nothing
DoCmd.Hourglass False
End Sub
-------------------------------------------------
ciao


title: generare un DB in autom. per calendario

text:
Ciao P.Bianchi
purtroppo la routine mi si blocca quando deve cancellare il calendario
precedente, che io non ho ancora
Ti posso mandare la mia prova del DB privatamente perchè tu possa
verificare?
comunque grazie per la tua risposta


title: non riesco a far partire un runsql da codice

author: LUIGI C.

text:
Buon Giorno
A97
ho questo sql
INSERT INTO c57a_conv_DR ( Tipo_Misura, Determinazione, Id_Misura,
Tipo_Finanziamento, Id_Convenzione, C57A_Abilitato )
SELECT MIS.MIS, MIS.DD, MIS.Id_Misura, MIS.FIN,
[Forms]![Crea_C57A_DR]![ID_CONVENZIONE] AS C57A, [Abilitato]=-1 AS Espr1
FROM MIS
GROUP BY MIS.MIS, MIS.DD, MIS.Id_Misura, MIS.FIN,
[Forms]![Crea_C57A_DR]![ID_CONVENZIONE], [Abilitato]=-1;
voglio lanciarlo da codice visto che da macro è impossibile xkè supera i 256
car.
ma in VBA diventa tutto rosso e mi da errore...come posso fare
ho cercato di usare il metodo dato dal' help in linea DOcmd.runsql
(stringasql,[-1])
ma nada...
HELP....
devo alnciare questo sql...x forza...da pulsante...
AIUTO
Grazie


author: ALESSANDRO Baraldi

text:

Non credo ci sia il limite di 256 alla lunghezza del predicato se non
nell'uso delle macro...
Se leggi bene l'HELP infatti:
L'argomento istruzionesql può avere una lunghezza massima di 32.768
caratteri, diversamente dall'argomento dell'azione Istruzione SQL contenuto
nella finestra della macro la cui lunghezza massima è di 256 caratteri.
Eventualmente crea una Query diretta e lancia quella.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
Ovvio che se costruisci il predicato su UNA SOLA RIGA il problema è quello.
L'help infatti oltre che dirtri che il limite è ben altro ti fà l'esempio di
come spezzare la stringa.
Impara a leggere l'Help.
@Alex (Alessandro Baraldi)



title: Attendere esecuzione di una function

author: iLanders

text:
Ciao!
È possibile fare una chiamata ad una function che restituisce true o false in funzione del codice che contiene, ma eseguire l’istruzione successiva alla chiamata SOLO dopo che il codice contenuto nella function sia stato eseguito del tutto?

Il problema si pone perché ho in sequenza 2 chiamate ad altrettante function, e la prima scarica un file XML che viene letto ed elaborato dalla seconda.
A volte capita che per questioni di rete o di dimensione la seconda function parte senza che la prima abbia terminato, mandando in crash la seconda che non ha nulla da elaborare.

Vorrei invece essere certo che la prima abbia terminato di scaricare.

Se c’è della letteratura in rete  postate i link che me la leggo più che volentieri!

Grazie!!!
Landers.


title: Attendere esecuzione di una function

author: pfm

text:
fai che la prima funzione rilasci un valore True/False

e se True esegui la seconda


title: Attendere esecuzione di una function

text:
Ti ringrazio per la risposta.
Avevo ipotizzato anch’io una soluzione simile, ma l’avevo scartata perché in ogni caso (cioè sempre), al termine della function1 devo eseguire la function2.
Solo ne caso in cui la function1 restituisca un determinato valore (es: connessione assente), allora non eseguo la 2.
Il problema è che non so a priori quanto tempo serve alla funtion1 per terminare (scaricando un file da un webservice, la durata può dipendere dalle condizioni della rete, dalle istanze che ha in corso in quel momento il server, e dalla dimensione del file che scarico).
Ma al termine, dopo x secondi, devo sempre eseguire la function2.
Ecco perché chiedevo come interrompere l’esecuzione del codice fino al completamente della funtion1.
Grz.

Landers


title: Attendere esecuzione di una function

author: Roberto Fabbri

text:

Fai un ciclo in cui cerchi se il file che stai scaricando. Finchè non esiste non esci (metti chiaramente un timeout)


title: Attendere esecuzione di una function

author: Karl Donaubauer

text:
Salve,

Ilanders ha scritto:

Cosa fai per scaricare il file? Se usi un programma esterno forse puoi
controllare il suo Exit code che molti programmi mandono alla fine
dell'esecuzione.

Lo faccio p.e. con WinScp per controllare se il download ha funzionato o
no. Un codice di esempio sarebbe
http://vb-tec.de/xshell.htm

L'articolo è in tedesco ma forse è abbastanza chiaro cosa succede o puoi
usare un servizio di traduzione.

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


title: Attendere esecuzione di una function

text:
Karl Donaubauer ha scritto:
> ...
> Cosa fai per scaricare il file? Se usi un programma esterno forse puoi
> controllare il suo Exit code che molti programmi mandono alla fine
> dell'esecuzione.
>
> Lo faccio p.e. con WinScp per controllare se il download ha funzionato o
> no. Un codice di esempio sarebbe
http://vb-tec.de/xshell.htm

>
> L'articolo è in tedesco ma forse è abbastanza chiaro cosa succede o puoi
> usare un servizio di traduzione.

Esempi più semplici per controllare solo l'esecuzione di Shell senza
Exit code trovi anche qui:
http://www.donkarl.com/it?FAQ6.14


title: Attendere esecuzione di una function

text:
Spiega che codice usi per il download del file...
Se non lo esegui con un processo SINCRONO non riuscirai mai...
Se fai un download via ftp ad esempio con le api puoi implementare la funzione di callback che aggiorna la progressione del download...

Prova a leggere questo:
https://www.experts-exchange.com/questions/26397034/VB6-Downloading-file-with-progress-bar-and-KBP-S.html

https://stackoverflow.com/questions/1976152/download-file-vb6/1976222

http://www.vbforums.com/showthread.php?310235-VB-Downloader-Download-files-from-the-web-with-prog-bar

Ovviamente la progress Bar non serve solo a fare i giochetti... ma i valori restituiti sono indispensabili per capire se hai finito o meno..

@Alex


title: Attendere esecuzione di una function

text:

Ciao Roberto, grazie della risposta. Questa sarebbe la strada che avevo in mente anch'io e che percorrerei se non ci fosse alternativa. Le chiamo "scelte-senza-scelta", cioè quando dopo ricerche varie *io* non trovo altro modo, ma di certo elegante non è, e più di tutto, non è corretta dal punto di vista della programmazione. Ho visto che altri colleghi hanno dato altre risposte, forse lì la soluzione.


title: Attendere esecuzione di una function

text:

Buongiorno @Alex, grazie del tuo intervento.
Il codice che uso per scaricare è questo:

Public Function creaWebScarica(ByVal strURL As String) As String
    'riceve l'indirizzo a cui fare la chiamata, e restituisce il file XML
    Dim byteData() As Byte
    Dim XMLHTTP As Object
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", strURL, False
    XMLHTTP.send
    byteData = XMLHTTP.responseBody
    Set XMLHTTP = Nothing
    creaWebScarica = StrConv(byteData, vbUnicode)
End Function

Ora mi leggo ben benino i link che mi hai passato, poi vi aggiorno.


title: Attendere esecuzione di una function

text:

Ciao Karl, grazie anche a te (vedere insieme gli interventi di @Alex e Karl è per me un onore...).
Come leggi nella risposta ad @Alex, non uso exe esterni, quindi non riesco ad intercettare il thread.
Ora mi leggo i vostri link e vi faccio sapere.
Se avete già una risposta, ovviamente non la disdegno, ma di mio di solito approfondisco sempre.
A presto.
Landers


title: Attendere esecuzione di una function

text:

Prova il codice indicato al LINK:
https://stackoverflow.com/questions/1976152/download-file-vb6/1976222

Usando un ADO Stream, dovrebbe diventare SINCRONO e salvare il file al termine del DOWNLOAD.

Sub DownloadFile(url, path)

   Dim objReq
   Dim objStream

   Set objReq = CreateObject("MSXML2.XMLHTTP")
   objReq.Open "GET", url, False
   objReq.send

   If objReq.Status = 200 Then
       Set objStream = CreateObject("ADODB.Stream")
       objStream.Open
       objStream.Type = 1

       objStream.Write objReq.ResponseBody
       objStream.Position = 0

       objStream.SaveToFile path, 2
       objStream.Close
       Set objStream = Nothing
   End If

   Set objReq = Nothing

End Sub

@Alex


title: Attendere esecuzione di una function

author: RobertoA

text:

In italiano suona un po' strano
6.14 Attendere fino a Shell è terminato

Consiglierei di cambiare
con
6.14 Attendere fino al termine di Shell

oppure
6.14 Attendere finche' Shell è terminato


title: Attendere esecuzione di una function

text:
...
> Esempi più semplici per controllare solo l'esecuzione di Shell senza
> Exit code trovi anche qui:
http://www.donkarl.com/it?FAQ6.14

Karl, dici che la Shell su un Download da Internet funziona...?

@Alex


title: Attendere esecuzione di una function

text:
Salve Alex,

@alex ha scritto:

Potrebbe funzionare almeno in parte se si tratta di un programma esterno
che prende il controllo abbastanza lungo come WinSCP. Certo preferisco
di leggere l'Exit code del programma come descritto per non solo sapere
che il Shell è terminato ma con quale risultato.



title: Attendere esecuzione di una function

text:
Certo sulla soluzione migliore concordo pienamente.
Avevo solo qualche dubbio si potesse fare un download "diretto" da Shell e mi pare tu abbia confermato che non è fattibile.

Ciao Karl grazie.

@Alex


title: Attendere esecuzione di una function

text:

Ciao a tutti.
Scusate l'intermittenza, ma sono in viaggio e non sempre riesco a collegarmi.

Ho effettuato questi test:

SOLUZIONE 1:
Codice prelevato qui:
https://www.experts-exchange.com/questions/26397034/VB6-Downloading-file-with-progress-bar-and-KBP-S.html

SOLUZIONE 2:
Codice prelevato qui:
https://stackoverflow.com/questions/1976152/download-file-vb6/1976222

(proposto un un post precedente)

SOLUZIONE 3:
Il codice che uso attualmente (vedi mio post precedente)

Sto facendo debug in questo modo (che mi pare corretto):
Sul tasto "SCARICA" chiamo due function, scritta una sotto l'altra:
Function1: esegue il codice del download
Function2: - scrivo a video "eseguito" (con msgbox)
           - scrivo un una label "eseguito"

Quello che succede, in *tutte e tre le soluzioni* è la stessa cosa, e cioè il codice della Funtion1 viene eseguito e solo dopo una decina di secondi viene eseguito il codice della Function2.
Prima scarica il file, e poi scrive a video e nella label.
Quindi apparentemente (o forse no...) il codice viene eseguito in sequenza, aspettando il termine della function1 per poi eseguire la function2, e non come pensavo: parte la Function1, e senza attenderne la fine, parte anche la Function2.

Secondo voi è possibile? Oppure il debug è formalmente errato per capire cosa succede?

Grz!


title: Attendere esecuzione di una function

text:
Metti dei debug.print con il Time e verifica...

@Alex


title: Attendere esecuzione di una function

text:
Il giorno giovedì 28 giugno 2018 19:22:33 UTC+2, @Alex ha scritto:
> Metti dei debug.print con il Time e verifica...
>
> @Alex

Ho verificato, questi i debug.print:

SOL1 1 - 06:28:35
Terminato: 06:28:37

SOL2 1 - 06:28:47
Terminato: 06:28:49

SOL3 1 - 06:28:57
Terminato: 06:28:59

La prima riga è il codice della Funtion1 (quella che fa il download), la seconda riga è la Funtion2, eseguita in sequenza (che scrive solo "terminato", ma lo deve fare DOPO)
I 2 secondi tra i tempi sono dovuti all'istruzione sleep 2000 che ho messo nella Function1 dopo il download (è troppo veloce per ragionare in secondi, ci vorrebbero i decimi). Per conferma al posto di sleep 2000 ho anche provato a mettere un ciclo for che ripete 10 volte il download, con lo stesso risultato.

Sembra che la Function2 aspetti l'esecuzione completa della Function1.

Ora, visto che anche il codice che usavo io (SOL2) viene eseguito in successione (F2 aspetta il termine di F1) direi che il problema dei miei crash è da ricercarsi altrove.

Riassumendo: non ho ancora risolto il mio problema, ma almeno ho (e abbiamo dato) una risposta certa sull'argomento.

Grazie a tutti dell'aiuto!
Landers