title: Criterio

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c7lj1e$ek0$1...@lacerta.tiscalinet.it...

****************************************************************************
***********************
 Innanzitutto grazie per l'interessamento, ma mi succede una cosa strana
inserendo nell'evento dopo aggiornamento
Select  * From NomeTabella
Access mi da errore di compilazione "Previsto Case"
Mi manca qualche riferimento ?
grazie
Laika


title: Criterio

author: Alessandro Baraldi

text:
"Lk" <
xy...@email.it
> wrote in message
news:Zcxnc.227257$
rM4.9...@news4.tin.it
[CUT]
>  Innanzitutto grazie per l'interessamento, ma mi succede una cosa strana
> inserendo nell'evento dopo aggiornamento
>
> Select  * From NomeTabella
>
> Access mi da errore di compilazione "Previsto Case"
>
> Mi manca qualche riferimento ?
> grazie
> Laika
No, ti manca un minimo di conoscenza di utilizzo del VBA.
Ovvio che la stringa SQL è una stringa e come minimo va
messa tra Virgolette.
Poi messa così non significa nulla, va attribuita ad un oggetto.
Nel tuo caso dovrai attribuirla alla proprietà RecordSource
della SubForm o Form.....!!!
Sostanzialmente dovresti prenderti la briga di leggere un pò
di istruzioni poichè con conoscenza=0 o giù di lì non si riesce
a capirsi molto.
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Criterio

author: Lk

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:07f5ed48a74217f6ef...@mygate.mailgate.org...

****************************************************************************
*******
C'è da dire che sei stato davvero incoraggiante  !!!!
..potevi evitare di rispondere se dovevi polemizzare.
 Grazie lo stesso, cmq
Laika


title: Criterio

author: ALESSANDRO Baraldi

text:
"Lk" <
xy...@email.it
> ha scritto nel messaggio
news:uBPnc.233066$rM4.9...@news4.tin.it...
[CUT]
>
> C'è da dire che sei stato davvero incoraggiante  !!!!
>
> ..potevi evitare di rispondere se dovevi polemizzare.
>
>  Grazie lo stesso, cmq
>
> Laika
Non è polemica e non offenderti ma devi affrontare u npasso per
volta e tu no sei partito/a con i fondamenti base....!!!
Ti manca il terreno su cui camminare.
Il mio è solo un consiglio a pretendere di più e magari con dei Testi
che ti indirizzino nel modo corretto.
Questo per rispondere alla 1° parte.
Per la 2° invece ti ricordo che il NG è Public e come tale nel rispetto
delle NORME dello stesso non c'è un obbligo a non fare o a fare....!!
Ciao.
@Alex.


title: Criterio

author: MA

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto
nel messaggio
news:c7ohg0$m00$1...@lacerta.tiscalinet.it...

E per maggio stiamo a 2!!!
Ragazzi se vi impegnate questo mese stracciamo il
record!
MAssimiliano


title: Criterio

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:s1%nc.4910$%x6....@news.edisontel.com...
[CUT]
> >
> E per maggio stiamo a 2!!!
> Ragazzi se vi impegnate questo mese stracciamo il
> record!
> MAssimiliano
Ormai dovrei preparare un Post fisso con la Sindrome di CALIMERO.
Ciao.
@ALex.


title: query non visibile per stampa unione

author: tasso

text:
vorrei utilizzare access come db di "stampa unione" per un file word ma
vedo che alcuen query non sono selezionabili nella finestra di word dove
si deve aggiungere la fonte della stampa unione
mi pare di capire che alcune query non siano selezionabili perch�
considerate tropo complesse? potrebbe essere o dico una castroneria?
in ogni caso, � possibile in qualche modo selezionare le query che pi� si
addicono o si pu� utilizzare solo le query che vengono visualizzate nella
apposita finestra di dialogo?
ciao a tutti
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: query non visibile per stampa unione

author: Karl Donaubauer

text:
tasso wrote:
> vorrei utilizzare access come db di "stampa unione" per un file word
> ma vedo che alcuen query non sono selezionabili nella finestra di
> word dove si deve aggiungere la fonte della stampa unione
>
> mi pare di capire che alcune query non siano selezionabili perch�
> considerate tropo complesse? potrebbe essere o dico una castroneria?
>
> in ogni caso, � possibile in qualche modo selezionare le query che
> pi� si addicono o si pu� utilizzare solo le query che vengono
> visualizzate nella apposita finestra di dialogo?
Certo mancano le versioni di Access e Word.
Forse si tratta del vecchio problema qui:
http://support.microsoft.com/kb/320476/it
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: query non visibile per stampa unione

text:
Karl Donaubauer ha scritto:



perfetto, grazie mille come sempre.
per pubblico interesse la versione di office � la 2003.
ciao



title: Cambio

author: Femto

text:
Ciao Ng, ho questo problema. In una tabella devono comparire dei valori in
dollari, dopo aver effettuato il cambio euro dollaro. Allora ho realizzato
una maschera, che si apre su click pulsante, dove si dovrebbe inserire il
valore attuale Euro/Dollaro, dopo, con pressione su tasto ok, si  chiude
quest'ultima e si memorizza il valore in una variabile long chiamata
CostoCambio....adesso come faccio ad utilizzare quest'ultima in un'altra
maschera? in quest'ultima come origine dati c'è una riferimento ad un campo
Euro, dovrei fare un qualcosa tipo campo dollaro=Euro/CostoCambio...qualche
suggerimento?
Femto


title: Cambio

author: Roberto da casa

text:
"Femto" <
fem...@tiscali.it
> ha scritto nel messaggio
news:42381454$0$6297$5fc...@news.tiscali.it...
> Ciao Ng, ho questo problema. In una tabella devono comparire dei valori in
> dollari, dopo aver effettuato il cambio euro dollaro. Allora ho realizzato
> una maschera, che si apre su click pulsante, dove si dovrebbe inserire il
> valore attuale Euro/Dollaro, dopo, con pressione su tasto ok, si  chiude
> quest'ultima e si memorizza il valore in una variabile long chiamata
> CostoCambio....adesso come faccio ad utilizzare quest'ultima in un'altra
> maschera? in quest'ultima come origine dati c'č una riferimento ad un
campo
> Euro, dovrei fare un qualcosa tipo campo
dollaro=Euro/CostoCambio...qualche
> suggerimento?
>
> Femto
Dichiara la variabile CostoCambio come variabile pubblica in un modulo
standard del database, cosě potrai richiamarla da qualsiasi oggetto del
database.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Cambio

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:2EVZd.16460$zZ1.4...@twister1.libero.it...

grazie..
Femto


title: Cambio

author: Antonio Biso

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:2EVZd.16460$zZ1.4...@twister1.libero.it...
>
Roberto, sta arrivando Pasqua, non Natale
Antonio


title: Cambio

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:8YWZd.15408$Tm5.2...@twister2.libero.it...

OK



title: Cambio

text:
>> Roberto, sta arrivando Pasqua, non Natale
>>
>> Antonio
>
> OK
Ma cos'è durante le feste non si accettano cambi???
;-P
MAssimiliano


title: Impazzendo con le stringhe!

author: Woodrov

text:
Ciao a tuch!
Sto impazzendo cercando di far capire ad Access2k che quando la variabile stringa  strSQL  contiene il carattere apostrofo ('),
questo deve essere rimpiazzato con qualcosa che non faccia andare il tilt il sistema di filtraggio basato su una espressione sql
che riporto qui di seguito:
strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0, intSelezionati) & "'"
In particolare, se la variabile stringa  Lista.Column(0, intSelezionati)  contiene un apostrofo,
questo deve essere rimpiazzato con qualcosa che NON influirà con gli apostrofi iniziale e finale
che servono per racchiudere il criterio di filtro... Spero di essere stato chiaro...!
Una funzione intrinseca che secondo me puo' essere di grande aiuto è  REPLACE.
Ho visto bene il suo schema sintattico, ma non riesco a trovare una sottostringa alternativa,
senza ovviamente modificare il contenuto finale di  strSQL.
Gra$ie!!  ;-)
	luca


title: Impazzendo con le stringhe!

author: Alessandro Cara

text:
Woodrov wrote:
>
> Ciao a tuch!
>
> Sto impazzendo cercando di far capire ad Access2k che quando la variabile stringa  strSQL  contiene il carattere apostrofo ('),
> questo deve essere rimpiazzato con qualcosa che non faccia andare il tilt il sistema di filtraggio basato su una espressione sql
> che riporto qui di seguito:
>
> strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0, intSelezionati) & "'"
>
> In particolare, se la variabile stringa  Lista.Column(0, intSelezionati)  contiene un apostrofo,
> questo deve essere rimpiazzato con qualcosa che NON influirą con gli apostrofi iniziale e finale
> che servono per racchiudere il criterio di filtro... Spero di essere stato chiaro...!
>
> Una funzione intrinseca che secondo me puo' essere di grande aiuto č  REPLACE.
> Ho visto bene il suo schema sintattico, ma non riesco a trovare una sottostringa alternativa,
> senza ovviamente modificare il contenuto finale di  strSQL.
>
> Gra$ie!!  ;-)
>
>         luca
non e' questione di stringa alternativa. Dovresti raddoppiare
l'apostrofo
replace(str,"'","''")
--
a.cara
Togli qualcosa dall'email


title: Impazzendo con le stringhe!

text:
On Fri, 10 Jan 2003 15:06:49 +0100, Alessandro Cara <
alexqu...@blunet.it
> wrote:
>Woodrov wrote:
>>
>> Ciao a tuch!
>>
>> Sto impazzendo cercando di far capire ad Access2k che quando la variabile stringa  strSQL  contiene il carattere apostrofo ('),
>> questo deve essere rimpiazzato con qualcosa che non faccia andare il tilt il sistema di filtraggio basato su una espressione sql
>> che riporto qui di seguito:
>>
>> strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0, intSelezionati) & "'"
>>
>> In particolare, se la variabile stringa  Lista.Column(0, intSelezionati)  contiene un apostrofo,
>> questo deve essere rimpiazzato con qualcosa che NON influirà con gli apostrofi iniziale e finale
>> che servono per racchiudere il criterio di filtro... Spero di essere stato chiaro...!
>>
>> Una funzione intrinseca che secondo me puo' essere di grande aiuto è  REPLACE.
>> Ho visto bene il suo schema sintattico, ma non riesco a trovare una sottostringa alternativa,
>> senza ovviamente modificare il contenuto finale di  strSQL.
>>
>> Gra$ie!!  ;-)
>>
>>         luca
>
>non e' questione di stringa alternativa. Dovresti raddoppiare
>l'apostrofo
>replace(str,"'","''")
Grazie!
L'email la lascio cosi' perché tanto è una mailbox-buco-nero... la mia vera email è ben altra!
Comunque grazie lo stesso per il suggerimento!  ;-)


title: Impazzendo con le stringhe!

text:
On Fri, 10 Jan 2003 15:06:49 +0100, Alessandro Cara <
alexqu...@blunet.it
> wrote:

Comunque continua a darmi errore di run-time 3075 Errore di sintassi (operatore mancante),
in pratica va a sostituire anche i singoli apostrofi che delimitano il criterio della stringa sql...
Non va...


title: Impazzendo con le stringhe!

text:
Woodrov wrote:
>
> On Fri, 10 Jan 2003 15:06:49 +0100, Alessandro Cara <
alexqu...@blunet.it
> wrote:
>
> >Woodrov wrote:
> >>
> >> Ciao a tuch!
> >>
> >> Sto impazzendo cercando di far capire ad Access2k che quando la variabile stringa  strSQL  contiene il carattere apostrofo ('),
> >> questo deve essere rimpiazzato con qualcosa che non faccia andare il tilt il sistema di filtraggio basato su una espressione sql
> >> che riporto qui di seguito:
> >>
> >> strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0, intSelezionati) & "'"
> >>
> >> In particolare, se la variabile stringa  Lista.Column(0, intSelezionati)  contiene un apostrofo,
> >> questo deve essere rimpiazzato con qualcosa che NON influirà con gli apostrofi iniziale e finale
> >> che servono per racchiudere il criterio di filtro... Spero di essere stato chiaro...!
> >>
> >> Una funzione intrinseca che secondo me puo' essere di grande aiuto è  REPLACE.
> >> Ho visto bene il suo schema sintattico, ma non riesco a trovare una sottostringa alternativa,
> >> senza ovviamente modificare il contenuto finale di  strSQL.
> >>
> >> Gra$ie!!  ;-)
> >>
> >>         luca
> >
> >non e' questione di stringa alternativa. Dovresti raddoppiare
> >l'apostrofo
> >replace(str,"'","''")
>
> Comunque continua a darmi errore di run-time 3075 Errore di sintassi (operatore mancante),
> in pratica va a sostituire anche i singoli apostrofi che delimitano il criterio della stringa sql...
> Non va...
quelli non li devi sostituire
la replace va solo su Lista.Column(0, intSelezionati)
si puo anche fare chr(34) & Lista.Column(0, intSelezionati) & chr(34) o
"""" & Lista.Column(0, intSelezionati) & """"
(cioe' racchiudere fra doppi apici)



title: Impazzendo con le stringhe!

text:
On Fri, 10 Jan 2003 15:31:31 +0100, Alessandro Cara <
alexqu...@blunet.it
> wrote:
>quelli non li devi sostituire
>la replace va solo su Lista.Column(0, intSelezionati)
>si puo anche fare chr(34) & Lista.Column(0, intSelezionati) & chr(34) o
>"""" & Lista.Column(0, intSelezionati) & """"
>(cioe' racchiudere fra doppi apici)
YEAH!!!
Ho provato a racchiudere Lista.Column(0, IntSelezionati)
fra 4 virgolette """".......""""  come m'hai suggerito tu...
Funziona alla grande, ma sinceramente non ho ben capito come faccia a funzionare!
Gra$ie mille!  ;-)
	Luca


title: Impazzendo con le stringhe!

text:
"Woodrov" <
luca....@tiscali.it
> ha scritto nel messaggio
news:msjt1vglclbrvo8lr...@4ax.com...

Dovresti risolvere il tuo problema scrivendo così:
strSQL = strSQL & "RagioneSociale=" & Chr$(34) & _
Lista.Column(0, intSelezionati) & Chr$(34)
Per maggiori dettagli ricerca sull'help il seguente argomento e leggitelo
tutto: Virgolette nelle stringhe.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Impazzendo con le stringhe!

text:
On Fri, 10 Jan 2003 16:41:29 GMT, "Roberto da casa" <
r.ma...@libero.it
> wrote:
>Dovresti risolvere il tuo problema scrivendo così:
>
>strSQL = strSQL & "RagioneSociale=" & Chr$(34) & _
>Lista.Column(0, intSelezionati) & Chr$(34)
>
>Per maggiori dettagli ricerca sull'help il seguente argomento e leggitelo
>tutto: Virgolette nelle stringhe.
Ti ringrazio roberto ma avevo già risolto cosi':
"""" & Lista.Column(0, intSelezionati & """"
L'help mi dara' sicuramente una grossa mano nel risolvere questo genere di problemi...
cià!


title: Esportazione dati in Excel

author: Franco

text:
Ciao a tutti.
In una maschera, che contiene un elenco di clienti, ho inserito un pulsante
che mi consente di esportare i record che visualizzo in Excel. Il codice
associato al pulsante e' il seguente:
****************************************
Private Sub cEsportaExcel_Click()
       DoCmd.RunCommand acCmdOutputToExcel
End Sub
****************************************
Il tutto funziona perfettamente, vengono considerati i filtri, gli
ordinamenti, ecc., insomma i dati vengono trasferiti in excel esattamente
per come sono visualizzati nello schermo.
C'e' solo un problema: nella maschera ho inserito una cornice con 3 opzioni
(clienti attivi, cessati, tutti) ed anch'essa viene esporata, cosa che
vorrei evitare.
Esiste un modo per impedirlo?
E se no, si potrebbe scrivere qualche istruzione per far sě che al termine
dell'esportazione, la suddetta colonna venisse cancellata?


title: Esportazione dati in Excel

author: Roberto da Parma

text:
"Franco" <
a...@bbb.cc
> ha scritto nel messaggio
news:skuxk.57832$Ca.1...@twister2.libero.it...

Io utilizzerei una query che riprende il filtro della mascheraa....nel
momento che esporti dai come origine la query senza il campo che dici.
Ciao
--
Roberto da Parma


title: Esportazione dati in Excel

text:
"Roberto da Parma" <
arisi....@tin.it
> ha scritto nel messaggio
news:ga5svk$put$1...@tdi.cu.mi.it...
> Io utilizzerei una query che riprende il filtro della mascheraa....nel
> momento che esporti dai come origine la query senza il campo che dici.
Nella query d'origine non c'è il campo cornice.
Cornice è solo un oggetto che ho messo nella intastazione di maschera
della form per filtrare i dati in funzione del valore del campo
"Attivo/Cessato".


title: Esportazione dati in Excel

author: Sergio MAZZA

text:
"Franco" <
a...@bbb.cc
> ha scritto nel messaggio
news:qqvxk.57872$Ca.1...@twister2.libero.it...
>
> Nella query d'origine non c'č il campo cornice.
> Cornice č solo un oggetto che ho messo nella intastazione di maschera
> della form per filtrare i dati in funzione del valore del campo
> "Attivo/Cessato".
Il metodo piů semplice da gestire per esportare i dati č quello indicato da
Roberto.
Non esporti la maschera (o quello che vedi sulla stessa) ma il risultato
della query filtrata...
Ciao.
--
Sergio MAZZA


title: Esportazione dati in Excel

text:
"Franco" <
a...@bbb.cc
> ha scritto nel messaggio
news:qqvxk.57872$Ca.1...@twister2.libero.it...

Il campo cornice prenderà il dato da un campo giusto?
Non aggiungere quel campo nella query...



title: Esportazione dati in Excel

text:
"Roberto da Parma" <
arisi....@tin.it
> ha scritto nel messaggio
news:ga8991$omu$1...@tdi.cu.mi.it...
> Il campo cornice prenderà il dato da un campo giusto?
No.
> Non aggiungere quel campo nella query...
No, così non va.
Comunque ho risolto in un modo abbastanza semplice.
Ho messo un banale Me.Cornice1.Visible = False, prima dell'istruzione
"DoCmd.RunCommand acCmdOutputToExcel"
della routine, risettandone il valore su True alla fine dell'export.
Ciao e grazie lo stesso.


title: Esportazione dati in Excel

text:
"Franco" <
a...@bbb.cc
> ha scritto nel messaggio
news:tiPxk.147628$FR.4...@twister1.libero.it...

Se ti va bene....meglio così...



title: Invio mail tramite maschera di access

text:
Ho creato una maschera di prova in access per vedere se riesco ad
inviare tramite questa una mail. Premetto che ho conoscenza 0 di VBA,
ma cercando in internet mi sono adattatato un codice trovato su di un
forum, solo che non riesco a capire l'errore mi rileva l'errore alla
riga "Dim ObjOutlook As Outlook.Application", in effetti se la
riscrivo a mano quando arrivo dopo as che mi dovrebbe da' l'elenco
delle possibilità non trovo Outlook in elenco.
Detto questo cerco di farvi capire cosa ho creato:
nella maschera dal nome Maschera2, ho un pulsante denominato Testo0,
nel quale vorrei scrivere l'indirizzo mail del destinatario della
posta elettronica. Ripeto è solo una prova per capire come riesco a
fare per inviare una mail. Oltre al testo0, nella maschera ho inserito
un pulsante e sull'evento click ho inserito il seguente codice, che
come detto in precedenza rileva l'errore. NON HO FATTO NESSUNA ALTRA
AGGIUNTA O MODIFICA NE' AGGIUNTA ALL'AREA MODULI. Ecco il codice:
Dim rstMail As New ADODB.Recordset
Dim Mail As String
Dim Ref As String
'** Creo le variabili per Outlook
Dim ObjOutlook As Outlook.Application
Dim ObjEMail As Outlook.MailItem
Check = False
rstMail.Open "Statements_mail", CurrentProject.Connection,
adOpenStatic
With rstMail
Do While Not .EOF
Testo0 = Testo0.Value
Mail = "Good morning," & vbNewLine & vbNewLine & _
"Please be advised that the last recent account statement we have
received for the following position is dated " & .Fields("UltimoEC") &
vbNewLine
Ref = "Urgent: Missing Account Statement on "
Set ObjOutlook = CreateObject("Outlook.application")
Set ObjEMail = ObjOutlook.CreateItem(olMailItem)
With ObjEMail
.To = Testo0
.Importance = olImportanceHigh
.Subject = Ref
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send
End With
Loop
End With
Set ObjEMail = Nothing
End Sub
Potreste indicarmi la strada da seguire per poter risolvere il mio
problema? Ripeto VBA lo conosco veramente poco!
Saluti SimoneB


title: Invio mail tramite maschera di access

text:
On 21 Feb, 12:12,
bertisimon...@gmail.com
 wrote:
> Ho creato una maschera di prova in access per vedere se riesco ad
> inviare tramite questa una mail. Premetto che ho conoscenza 0 di VBA,
> ma cercando in internet mi sono adattatato un codice trovato su di un
> forum, solo che non riesco a capire l'errore mi rileva l'errore alla
> riga "Dim ObjOutlook As Outlook.Application", in effetti se la
> riscrivo a mano quando arrivo dopo as che mi dovrebbe da' l'elenco
> delle possibilità non trovo Outlook in elenco.
Forse manca il riferimento:
Vai (nella finestra vba) in strumenti\riferimenti e seleziona la
libreria di microsoft outlook (mi pare si chiami Microsoft Outlook
Object Library )
Spero di esserti stato utile


title: Invio mail tramite maschera di access

author: SimoneB

text:
.
>Forse manca il riferimento:
>Vai (nella finestra vba) in strumenti\riferimenti e seleziona la
>libreria di microsoft outlook (mi pare si chiami Microsoft Outlook
>Object Library )
>Spero di esserti stato utile
NN utile, utilissimo!!! ORA FUNZIONA... ovviamente con qualche altra
modifica che mi ero scordato di fare... il mio codice aveva altri errori qua
e là
grazieeeeeeeeeeee!!!!


title: Campi memo

author: ale

text:
Spero non sia una FAQ.
Devo trascrivere in un file html un campo memo.
Il codice dovrebbe leggere carattere per carattere il campo, e inserire nel
file html un tag <BR> ad ogni ritorno a capo.
Come si può leggere un campo memo? Se fosse una normale stringa di testo
userei un
mid(x, 1, 1) con x da 1 a len(campo).
E come si individua un ritorno a capo?
Grazie!


title: Campi memo

author: ElioP

text:
On Wed, 12 Jan 2000 11:22:50 +0100, "ale"
<
nospam...@nospam.atavista.net
> wrote:
>Spero non sia una FAQ.
>Devo trascrivere in un file html un campo memo.
>Il codice dovrebbe leggere carattere per carattere il campo, e inserire nel
>file html un tag <BR> ad ogni ritorno a capo.
>
>Come si può leggere un campo memo? Se fosse una normale stringa di testo
>userei un
>
>mid(x, 1, 1) con x da 1 a len(campo).
>
vediti la funzione GetChunk sull'help


title: Campi memo

author: eMa

text:
ale <
nospam...@nospam.atavista.net
> wrote:
> E come si individua un ritorno a capo?
>
VbCrLf, o qlc di simile.
bye!
--
eMa        <
ece...@penguinpowered.com
>
http://www.penguinpowered.com/~ecesena
La prigione e' come Beverly Hills.  Ma c'e' meno criminalita'.
		-- Robert Mitchum


title: Campi memo

author: sib

text:
eMa <ece...@NOSPAMpenguinpowered.com> wrote in message
85kvus$84$1...@srv.ema.it...
> ale <
nospam...@nospam.atavista.net
> wrote:
> > E come si individua un ritorno a capo?
> >
> VbCrLf, o qlc di simile.
>
> bye!
vbCR.
Tra l'altro funziona magnificamente anche per la costruzione di stringhe,
es:
MsgBox "Questa e' una riga" & vbCR & "questa e' un'altra riga"
ecosi' via
Ciao, Sib
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
Ma ricordate anche che il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Creazione link completo con utilizzo di file mdw (Pubblicazione)

text:
Ciao a tutti, tempo fa era passato un post su come creare un link ad access
non conoscendo la versione e utilizzando per l'apertura un file mdw.
Ebbene non so se qualcuno ha già risolto il problema ma qui di seguito
troverete il codice per la creazione di un link completo....se poi vorrà
essere pubblicato su
www.sitocomune.com
 non mi farà solo che piacere... :-))
(....MA mettici una buona parola! :-))....)
Il codice è stato sperimentato con AC2000 - AC2003 e WXP - W2K ma con debite
modifiche potrebbe funzionare anche con altre versioni di SO e AC
Spero vi possa essere utile!
Ciao a tutti
Roberto da Parma
--------------------------------------------------------------------------------------------------------------------------------------
Function CreaLink()
'Creata da Arisi Roberto (su ICAA Roberto da Parma)
    Dim WshShell, strDesktop, oShellLink, oUrlLink
    Dim percorso As String
    percorso = Environ("userprofile") & "\Desktop\" 'Ricava il percorso del
desktop
    If Dir(percorso & GetNamePartEx(Left(CurrentDb.Name,
Len(CurrentDb.Name) - 3)) & "lnk") = GetNamePartEx(Left(CurrentDb.Name,
Len(CurrentDb.Name) - 3)) & "lnk" Then 'Controlla se esiste un'altro link
con lo stesso nome e lo cancella....decidete voi poi se utilizzarlo o meno
        Kill percorso & GetNamePartEx(Left(CurrentDb.Name,
Len(CurrentDb.Name) - 3)) & "lnk"
    End If
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oShellLink = WshShell.createshortcut(strDesktop & "\" &
GetNamePartEx(Left(CurrentDb.Name, Len(CurrentDb.Name) - 3)) & "lnk")
'Ricava il nome del database per dare il nome al link
    'Le opzioni di avvio non possono essere inserite qui...ecco il motivo
della riga successiva...
    oShellLink.TargetPath = Chr(34) & SysCmd(acSysCmdAccessDir) &
"MSACCESS.EXE" & Chr(34) 'Ricava il percorso di MSACCESS.EXE
    'Questo comando non è menzionato nella guida ed è stata
un'improvvisazione, setta appunto le opzioni di avvio...funziona!
    oShellLink.Arguments = " /wrkgrp " & Chr(34) &
Application.CurrentProject.Path & "\System.mdw" & Chr(34) & " " & Chr(34) &
CurrentDb.Name & Chr(34)
    oShellLink.WindowStyle = 1
    'oShellLink.Hotkey = Ctrl+Alt+e 'facoltativa...setta hotkey
    oShellLink.IconLocation = Application.CurrentProject.Path & "\Icona.ico"
'Recupera l'icona dal percorso d'installazione del DB
    oShellLink.Description = "Gestione " &
Left(GetNamePartEx(CurrentDb.Name), Len(GetNamePartEx(CurrentDb.Name)) - 4)
'Descrizione del link
    oShellLink.WorkingDirectory = Application.CurrentProject.Path
    oShellLink.Save
    Set WshShell = Nothing
    Set strDesktop = Nothing
    Set oShellLink = Nothing
End Function
Public Function GetNamePartEx(strPath As String) As String
'*****************************************************************
'Name      : GetNamePart (Function)
'Purpose   : Restituisce solo il nome
'Author    : Arisi Roberto
'Date      : 23 settembre 2006
'Inputs    : strPath="C:\DataBase.mdb"
'Output    : GetPathPart="Database.mdb"
'*****************************************************************
    Dim intCounter As Integer
    For intCounter = Len(strPath) To 1 Step -1
      If Mid$(strPath, intCounter, 1) = "\" Then
        Exit For
      End If
    Next intCounter
    GetNamePartEx = Right$(strPath, Len(strPath) - intCounter)
End Function


author: Pablitomf

text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:467510d2$0$36441$4faf...@reader5.news.tin.it...
> Ciao a tutti, tempo fa era passato un post su come creare un link ad
> access non conoscendo la versione e utilizzando per l'apertura un file
> mdw.
>
> Ebbene non so se qualcuno ha già risolto il problema ma qui di seguito
> troverete il codice per la creazione di un link completo....se poi vorrà
> essere pubblicato su
www.sitocomune.com
 non mi farà solo che piacere...
> :-)) (....MA mettici una buona parola! :-))....)
Wè MA, sei passato alla concorrenza e non mi hai detto niente, o forse
Roberto intendeva parlare del nostro ACCESSGROUP e si è sbagliato?
;-)
> Il codice è stato sperimentato con AC2000 - AC2003 e WXP - W2K ma con
> debite modifiche potrebbe funzionare anche con altre versioni di SO e AC
Robè, mo lo provo, e se va, te lo pubblico, ok? ;-)



text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:x4hdi.41062$%k.16...@twister2.libero.it...

Porcaccia....sorry....ho sbagliato i collegamenti!!!
Naturalmente se venisse pubblicato anche su
www.accessgroup.it
 non mi
dispiacerebbe.... :-)))
Speriamo allora che funzi....se no sai che figura!
Grazie
Roberto da Parma


title: Progressivo "plurimo"

text:
Ho già esposto questo problema qualche post fa, ma forse non l'ho
descritto bene. Ci riprovo...
Dovrei crearmi un progressivo automatico annuale legato all'ordine di
ogni cliente. Essendo tutti i clienti in un'unica tabella ho delle
difficoltà a creare questo automatismo.
Potrebbe magari uscirmi fuori in una box specifica selezionando il
cliente da una combobox all'interno della form di inserimento ordine...
Qualcuno può aiutarmi?
Grazie
Paolo


title: Progressivo "plurimo"

author: Roberto dalla campagna

text:
<
anno...@tin.it
> ha scritto nel messaggio
news:1118073863.6...@g43g2000cwa.googlegroups.com...

Non sarebbe male, prima di postare un quesito, leggere almeno i post
dell'ultima settimana; da poco è stata data soluzione ad un quesito simile
al tuo.
Leggi il thread aperto da Napoleone il 31/5/2005 alle ore 7:55 il cui
subject è Id Basato su due campi.
L'unica variante nel tuo caso è che i criteri della funzione DCount non
dovranno essere basati solo sul codice cliente ma anche sull'anno indicato
nella data dell'ordine.
>
>Grazie
>
>Paolo
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Progressivo "plurimo"

text:
Ti ringrazio, funziona che è una meraviglia...
Me!PrgRipCliente = Format(DCount("*", "Tab 1210 OrdineCl", _
"NomeCliente ='" & Me!NomeCliente & "'") + 1, "000")
Mi daresti solo un'indicazione su come inserire l'anno in modo che il
risultato sia ad es. 05001?
Ti ringrazio
Paolo


title: Progressivo "plurimo"

text:
<
anno...@tin.it
> ha scritto nel messaggio
news:1118129216.9...@z14g2000cwz.googlegroups.com...
>Ti ringrazio, funziona che č una meraviglia...
>
>Me!PrgRipCliente = Format(DCount("*", "Tab 1210 OrdineCl", _
>"NomeCliente ='" & Me!NomeCliente & "'") + 1, "000")
>
>Mi daresti solo un'indicazione su come inserire l'anno in modo che il
>risultato sia ad es. 05001?
Se l'anno inserito nelle prime due cifre di PrgRipCliente č quello relativo
alla data di sistema, prova cosě:
Me!PrgRipCliente = Format(Date(), "yy") & Format(DCount("*", _
"Tab 1210 OrdineCl", "NomeCliente ='" & Me!NomeCliente & _
"' AND Left(PrgRipCliente, 2) = '" & Format(Date(), "yy") & _
"'") + 1, "000")
>
>Ti ringrazio



title: Progressivo "plurimo"

text:
Funziona eccome...
Grazie davvero...
Ciao
Paolo


title: FindFirst con due criteri. Sintassi errata

author: Marco

text:
Salve,
ho un problema di sintassi errata nella seguente routine.
dove sto sbagliando?

.....
.....
Set rsAgenda = dbs.OpenRecordset("Agenda2", dbOpenDynaset)

Dim Filtro As String
Dim VarPratica as Integer

Filtro = "[Me!NuovaDataScadenza]= #" & Format$(rsAgenda!Data2.Value, "mm/dd/yyyy") & "#"

varPratica = Forms!Pratiche!pratica_N

rsAgenda.FindFirst "IdPratica = " & varPratica & " And  Filtro

Qual è la sintassi corretta? cosa manca?


author: Karl Donaubauer

text:
Salve,

Marco:
> .....
> Set rsAgenda = dbs.OpenRecordset("Agenda2", dbOpenDynaset)
>
> Dim Filtro As String
> Dim VarPratica as Integer
>
> Filtro = "[Me!NuovaDataScadenza]= #" & Format$(rsAgenda!Data2.Value, "mm/dd/yyyy") & "#"
>
> varPratica = Forms!Pratiche!pratica_N
>
> rsAgenda.FindFirst "IdPratica = " & varPratica & " And  Filtro

Se capisco bene cosa intendi:

Dim lngPratica As Long

rsAgenda.FindFirst "IdPratica = " & lngPratica & _
   " And Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")

Siccome ami leggere vedi anche:

Passare una data ad una stringa SQL
http://www.donkarl.com/it?FAQ6.8

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

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


text:

Karl... copiata pari pari dalla tua stringa:

rsAgenda.FindFirst "IdPratica = " & lngPratica & " And Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")
Mi da un "errore di sintassi (Operatore Mancante) "


text:

(Anche se in realtà non ho capito come fa ad interpretare il campo Data2 senza specificare il recordset rsAgenda!Data2...)


text:
Marco ha scritto:
> .,..
>
> Karl... copiata pari pari dalla tua stringa:
>
> rsAgenda.FindFirst "IdPratica = " & lngPratica & " And Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")
> Mi da un "errore di sintassi (Operatore Mancante) "

Mostra l'intero codice della procedura.



text:

Intera Procedura:
Dim dbs As Dao.Database
Dim rsAgenda As Dao.Recordset
Set dbs = CurrentDb
Set rsAgenda = dbs.OpenRecordset("Agenda2", dbOpenDynaset)

Dim VarData as Date
Dim IngPratica As Long

varData = Me.NuovaDataScadenza 'In realtà qui andrà il parametro:
                                'Forms!Pratiche!Data_Scadenza ma non credo che questo possa complicare le cose

IngPratica = Forms!Pratiche!pratica_N

rsAgenda.FindFirst "IdPratica = " & lngPratica & " And rsAgenda!Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")

If rsAgenda.NoMatch Then
MsgBox "non trovato"
Else
MsgBox "Trovato"
End If


text:
Credo sia composto in modo errato il 2° criterio nella parte del NOMECAMPO.

Se il campo si chiama [Data2] puoi privare così:

rsAgenda.FindFirst "IdPratica = " & lngPratica & " And Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")

Ora fai attenzione anche a come hai valorizzato quel campo ... se lo hai fatto usando NOW() rischi di non trovare nulla... in quanto conterrebbe hh:mm:ss

Vedi tu...
@Alex


text:
Salve,

@alex ha scritto:
> Credo sia composto in modo errato il 2° criterio nella parte del NOMECAMPO.
>
> Se il campo si chiama [Data2] puoi privare così:
>
> rsAgenda.FindFirst "IdPratica = " & lngPratica & " And Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")

Che è cosa ho scritto e invece di "copiata pari pari" ha cambiato.

> Ora fai attenzione anche a come hai valorizzato quel campo ... se lo hai fatto usando NOW() rischi di non trovare nulla... in quanto conterrebbe hh:mm:ss

Beh, ha di sicuro letto il mio articolo breve, chiaro ed indispensabile
su come passare data/ora segnalato nella prima risposta.



text:
Ecco allora anche senza saperlo ho detto la stessa cosa...meno male allora siamo a cavallo.

@Alex


text:

 Posso spiegare l'equivoco:
ho copiato Pari Pari la routine di Karl e mi ha dato l'errore di sintassi (operatore mancante).
Mi è sembrato strano quel riferimento a campo Data2 ed ho aggiunto
rsAgenda!Data2 per provare la routine.
 Quando mi è stato chiesto di postare tutta la procedura ho dimenticato di togliere quella mia modifica visto che intanto avevo fatto altre mille prove.
In ogni caso... la routine dava lo stesso errore.
Alex/Karl la proprietà del campo Data2 è Data in cifre senza orario.


text:
La data è data e la formattazione non agisce sul contenuto ma sul visualizzato.

Ne consegue che se tu lo popoli con NOW() non visualizzi hh:mm:ss ma ci sono... quindi il criterio che non agisce sul visualizzato ma sul contenuto ovviamente non restituisce quanto atteso.
In questi casi se puoi usi Date() instead of Now() oppure togli i decimali al valore ...

@Alex


text:

Alex, io Non popolo il campo con Date() ne con Now(), nel senso che non vi è alcuna routine
Date2 = Date()
Date2 = Now(). (intendevi questo?)
 Il valore del campo è digitato dall'utente e il formato è dd\mm\yyyy


text:
Salve,

Marco ha scritto:
>>> ...
>>> Mi da un "errore di sintassi (Operatore Mancante) "
>
> Dim dbs As Dao.Database
> Dim rsAgenda As Dao.Recordset
> Set dbs = CurrentDb
> Set rsAgenda = dbs.OpenRecordset("Agenda2", dbOpenDynaset)
>
> Dim VarData as Date
> Dim IngPratica As Long
>
> varData = Me.NuovaDataScadenza 'In realtà qui andrà il parametro:
>                                  'Forms!Pratiche!Data_Scadenza ma non credo che questo possa complicare le cose
>
> IngPratica = Forms!Pratiche!pratica_N
>
> rsAgenda.FindFirst "IdPratica = " & lngPratica & " And rsAgenda!Data2 = " & Format(Me!NuovaDataScadenza, "\#yyyy\-mm\-dd\#")
>
> If rsAgenda.NoMatch Then
> MsgBox "non trovato"
> Else
> MsgBox "Trovato"
> End If

Il messaggio p.e. viene se Me!NuovaDataScadenza è Null. Se non hai una
data per paragonare dovresti decidere cosa fare. p.e. evitare il
paragone con If...Then ecc.

Nel tuo codice si trova un altro errore:
IngPratica (con i maiuscola) non è identico con lngPratica (L
minuscola). "lng" vuol dire Long e l'ho proposto perché Integer spesso
non è sufficiente.



text:

Posso dire una cosa?....  Posso parlare francamente?...
...Fanculo alla L piccola e alla I Grande !!!!!!!!!
:-) :-)
Grazie. Ora funziona! Era quello il parametro mancante.
(p.s. io sapevo che lng stava per LONG ma leggevo I e scrivevo I)
Sorry !



title: 3 query in un report - si puo' ?!

author: Fabietto

text:
Ho una tabella fatture ed una ricevute.
Ho creato 2 query che mi calcolano il totale degli importi per l'una e per
l'altra e quindi ho creato un'ulteriore query che mi calcola il totale di
tutti gli importi (tot fatture + tot ricevute )
Ora vorrei visualizzare tutte queste informazioni in un unico report.
E' possibile ?
Ho provato creando una query che raccoglie tutte e tre le precedenti o a
prendere i campi dalle singole query utilizzando la creazione guidata report
ma in ogni caso mi veniva restituito un errore oppure valori nulli.
Grazie
Fabio


title: 3 query in un report - si puo' ?!

author: Esteban

text:
"Fabietto" <
fab...@supereva.it
> wrote in message
news:RSoP6.4463$Uo3.1...@news6.giganews.com...

Crei una query 'SQL specifico / Union' e ci scrivi p.e.:
SELECT Fatture.CausaleFattura, Fatture.ImportoFattura FROM Fatture
UNION ALL
SELECT Ricevute.CausaleRicevuta, Ricevute.ImportoRicevuta FROM Ricevute
Ciao!
Esteban
Hosted by
www.seber.it


title: Add-in in VisualBasic 6.3 (VBA)

author: Clarence

text:
Ciao a tutti!
Qualcuno sa dirmi, per favore, dove e come salvare un Add-in che ho
creato in VB 6.3, in modo tale da farlo apparire nella lista
dell'Add-In Manager (che tra l'altro in questo momento è vuota)?
Grazie anticipatamente.
Clarence


title: Add-in in VisualBasic 6.3 (VBA)

author: Gaspare

text:
[CUT]
http://www.oreilly.com/catalog/devvbad/chapter/ch01.html#13926


title: Add-in in VisualBasic 6.3 (VBA)

text:
Ciao Gaspare!
Grazie per la info, ma, nella mia immensa (stressante) ricerca di 2 gg,
avevo già letto questa pagina e, quindi, nel file vbaddin.ini avevo
aggiunto la seguente riga:
InsertLineAtCursor.Connect=0, ma niente... La lista "presente"
nell'Add-in Manager è praticamente vuota. Non è strano che non
compaiano neanche gli altri add-in presenti nel file vbaddin.ini? Che
ne dici?


title: Add-in in VisualBasic 6.3 (VBA)

text:
Ciao Gaspare!
Grazie per la info, ma, nella mia immensa (stressante) ricerca di 2
gg,avevo già letto questa pagina e, quindi, nel file vbaddin.ini avevo



title: Add-in in VisualBasic 6.3 (VBA)

text:
[CUT]
Ciao,
prova a postare qui ->
http://www.visual-basic.it/


title: Intestazione stampa unione

author: mic

text:
Buongiorno!
Dovrei fare una stampa unione di una graduatoria quindi un elenco di n
record.
Non so come fare un'intestazione al documento perchè se scrivo
qualcosa me lo ripete per ogni record mentre io vorrei che fosse unica
l'intestazione.
Grazie
--mic--


title: Intestazione stampa unione

text:
"mic" <
Cacelli...@libero.it
> ha scritto nel messaggio
news:b98adaf0.04030...@posting.google.com...

Devi utilizzare, in word, il campo DATABASE; visualizza la barra strumenti
DATABASE e segui il wizard...
Ciao.
--
Sergio MAZZA


title: testo giustificato

text:
Ciao,
in un report è possibile giustificare il contenuto di una casella di testo?
Grazie


title: testo giustificato

text:
"maxgis67" <
mmanfr...@inwind.it
> ha scritto nel messaggio
news:_CgZ7.11590$%B.42...@twister2.libero.it...

Sembra di sì da access 2000 in poi...
Ciao.
--
Sergio MAZZA


title: testo giustificato

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
a144r9$h55$1...@canarie.caspur.it...

Non riesco a trovarlo!
Neanche nella guida in linea
Ciao
Massimo


title: testo giustificato

author: Emyr

text:
On Fri, 04 Jan 2002 18:59:50 GMT, "maxgis67" <
mmanfr...@inwind.it
>
wrote:

nella proprietà allienamento della casella di testo assieme alle voci
a sinistra, a destra, centrato, etc....
però funziona male
Saluti.
Emanuele.


title: macro per spostamento tra record

author: Alex

text:
Ho creato in una maschera 4 pulsanti di comando (senza l'autocomposizione)
che voglio utilizzare per spostarmi rispettivamente all'ultimo, al
precedente, al successivo e all'ultimo record.
Per fare questo ho creato una macro con 4 "nomi macro" che ho associato
all'evento su clic dei pulsanti sopracitati.
Ogni "nome macro" ha l'azione VaiARecord con i relativi argomenti azione.
Problema: nella maschera, quando clicco il pulsante "Precedente" quando mi
trovo sul primo record, da errore; idem se premo il pulsante "Successivo"
quando mi trovo sull'ultimo record.
Che condizioni posso mettere sulla macro affinchè riconosca di essere sul
primo (o ultimo) record e non vada al precedente (o successivo), ma arresti
la macro?
--
Grazie in anticipo.
Alexx


title: macro per spostamento tra record

text:
Alex ha scritto:


evita le macro e scrivi una riga di codice sull'evento clik del pulsante
relativo.
DoCmd.GoToRecord , , acFirst 'Primo Record
DoCmd.GoToRecord , , acNext 'Record successivo
DoCmd.GoToRecord , , acPrevious 'Record precedente
DoCmd.GoToRecord , , acLast 'Ultimo Record
Per far capire al sistema se si è alla fine o all'inizio della tabella
basta gestire l'errore...
quindi Es.
Private Sub TuoPulsante_Click()
On Error GoTo Err_TuoPulsante_Click
    DoCmd.GoToRecord , , acNext
Exit_TuoPulsante_Click:
    Exit Sub
Err_TuoPulsante_Click:
End Sub
Funge?
Fammi sapere
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: sottrazione in maschera?

author: matrix

text:
Salve,
premetto che sono abbastanza digiuno con access e l'ho ritenuto sempre
abbastanza ostico come programma...ma adesso mi sa che mi serve imparare!
La cosa che sto per chiedervi è una cosa all'apparenza semplice e che fa
parte di un più grande progetto..
Arrivo al punto.
Una tabella contiene questi due semplici campi:
DATA
CONTATORE
Quello che sostanzialmente devo fare è di rilevare ogni giorni il contatore
della luce in modo da avere un database completo da compilare giorno per
giorno.
Ora mettiamo che oggi 12/10/2004 il contatore registri il numero 200....
Domani con data 13/10/2004 registra il numero 250.
Vorrei in una maschera del giorno 13 mi venisse fatta la differenza fra il
250 e il 200...
Quindi "Contatore di Oggi"-"Contatore di Oggi-1" ....
Questo per ogni giorno.
Poi il risultato dovrebbe essere salvato in un altra tabella avente come
chiave primaria sempre la data.
E' difficile?
Ho smanettato un pò....ma non riesco a trovare niente di buono.
ciao


title: sottrazione in maschera?

author: Cinzia

text:
"matrix" <
ci...@ciao.it
> ha scritto nel messaggio
news:HAUad.24645$B06...@news.edisontel.com...

Ciao Matrix,
prova un po' a vedere se queste due query possono fare al caso tuo:
Query1:
SELECT Letture.[Data], Letture.Contatore,
Format(DateAdd("d",-1,[Data]),"mm/dd/yyyy") AS giornoPrec
FROM Letture;
Query2:
SELECT Query1.[Data], Query1.Contatore,
[Contatore]-DLookUp("Contatore","Letture","[Data]=#" & [giornoPrec] & "#")
AS Differenza
FROM Query1;
Saluti
Cinzia


title: sottrazione in maschera?

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:ckheir$qut$1...@lacerta.tiscalinet.it...
> Ciao Matrix,
> prova un po' a vedere se queste due query possono fare al caso tuo:
>
> Query1:
> SELECT Letture.[Data], Letture.Contatore,
> Format(DateAdd("d",-1,[Data]),"mm/dd/yyyy") AS giornoPrec
> FROM Letture;
>
> Query2:
> SELECT Query1.[Data], Query1.Contatore,
> [Contatore]-DLookUp("Contatore","Letture","[Data]=#" & [giornoPrec] & "#")
> AS Differenza
> FROM Query1;
>
>
> Saluti
> Cinzia
>
>
Ciao Cinzia,
grazie mille per la risposta!
Sono riuscito ad ottenere quello che volevo.
In più ho provato ad usare sempre la seconda query a sommare..e funziona
alla grande.
Ora ne approfitto per chiederti sempre qualcosa riguardo ai calcoli..
Supponiamo che il contatore di ieri sia 300 e quello di oggi sia 400.
La differenza mi da 100 e questo lo ottengo con quello che mi hai detto tu.
Domani il contatore sarà per esempio 450 e quindi la differenza con 400 mi
da 50.
Tutti questi risultati, 100...50 me li ritrovo nella tabella che viene fuori
dalla query...e mi sta benone!
Ora vorrei far fare alla query questa operazione...:
Oggi calcolo la differenza che mi da 100
Domani la differenza mi da 50...in un altra colonna voglio che mi si calcoli
100+50....
Dopodomani la differenza sarà per esempio 80 e quindi in questa altra
colonna che voglio fare il calcolo sarà il 150 (100+50)+80 ...cioè  230....
In pratica i 50...100...80 sono i kilowatt prodotti al giorno...mentre
nell'altra colonna si calcolano quelli del mese....
es..
data                kw    kw del mese
01/10/2004    100    100
02/10/2004    150    250
03/10/2003    80      330
e così via...
Ti offro qualcosa al bar se mi aiuti :-)
ciao


title: sottrazione in maschera?

text:
"matrix" <
ci...@ciao.it
> ha scritto nel messaggio
news:Eybbd.24825$B06....@news.edisontel.com...
> "Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
> news:ckheir$qut$1...@lacerta.tiscalinet.it...
> > Ciao Matrix,
> > prova un po' a vedere se queste due query possono fare al caso tuo:
> >
> > Query1:
> > SELECT Letture.[Data], Letture.Contatore,
> > Format(DateAdd("d",-1,[Data]),"mm/dd/yyyy") AS giornoPrec
> > FROM Letture;
> >
> > Query2:
> > SELECT Query1.[Data], Query1.Contatore,
> > [Contatore]-DLookUp("Contatore","Letture","[Data]=#" & [giornoPrec] &
"#")
> > AS Differenza
> > FROM Query1;
> >
> >

Ciao,
sono incurisita da questo utilizzo..., che tipo di applicazione stai
realizzando? (se puoi dirmelo ovviamente...)
Veniamo al tuo quesito, non vorrei aver capito male io, ma in pratica questa
colonna in più che mi chiedi corrisponde a quella delle letture giornaliere
(o no?)  riprendendo la tua tabella:
data                 Diff.kw    Tot. Prog    Lettura Originale
> 01/10/2004    100        100                    100
> 02/10/2004    150        250                    250
> 03/10/2003    80          330                    330
Però immaginandomi un contatore reale (cosa non difficile viste le
bollette!!!)
la situazione potrebbe essere questa:
data                 Diff.kw    Tot. Prog    Lettura Originale
30/09/2004        20        1000                1000
 01/10/2004    100       100                    1100
 02/10/2004    150       250                    1250
 03/10/2003    80         330                    1330
Modifica la query2 così:
SELECT Query1.DataLettura, Query1.Lettura,
[lettura]-nz(DLookUp("Lettura","Letture","DataLettura=#" & [giornoPrec] &
"#"),0) AS ConsumoG, GetTotProgressivo([DataLettura]) AS TotProg
FROM Query1;
Crea una Query4 così:
PARAMETERS datax DateTime;
SELECT Sum(Query2.ConsumoG) AS TotProg
FROM Query2
WHERE (((Month(DataLettura))=Month([datax])) AND
((Query2.DataLettura)<=[Datax]));
Apri un  modulo e incollaci questa funzione:
Function GetTotProgressivo(dataC As Date) As Long
    Dim qdef As DAO.QueryDef
    Dim rs As DAO.Recordset
    Set qdef = CurrentDb.QueryDefs("Query4")
    qdef.Parameters(0) = dataC
    Set rs = qdef.OpenRecordset()
    If Not rs.EOF Then
        GetTotProgressivo = Nz(rs.Fields(0), 0)
    Else
       GetTotProgressivo = 0
    End If
    rs.Close
End Function
In Menu Strumenti  -  Riferimenti seleziona Microsoft DAO se non è già
selezionato!
Temo che per questa consulenza non basterà un caffè, :-)
ci vorrà almeno un gelato!!!
Ciao
Cinzia


title: sottrazione in maschera?

text:
Cinzia <
cinziapagani_...@tiscali.it
> ha scritto:

Ciao Cinzia,
ho provato il codice che mi hai suggerito.
C'è qualcosa che non va...
Se la prima letture è il numero 1957 mi troverò con questa situazione:
Lettura: 1957
ConsumoG: 1957
TotProg: 1957
Ecco ho dimenticato di dire che anche se inizio giorno 1 del mese a
registrare il contatore egli dovrà sempre calcolare la differenza con il
giorno precedente..cioè giorno 30-31 che sia..
In excel avevo creato un giorno 0 che compilavo a mano dove c'era la lettura
di fine mese...
Quindi es:
Giorno 31/09 Lettura 13862
Giorno 01/10 Lettura 13867
Quindi il database dovrà darmi come primo risultato del giorno il numero 5
..e anche come tot. progressivo.
Giorno 02/10 Lettura 13873...risultato 6.....tot progressivo 11...e così
via...
Ciao e grazie ancora
P.S. Mi sa che ora ti devo offrire una cena!
Inviato da
www.mynewsgate.net


title: sottrazione in maschera?

text:
"matrix" <
4466i...@mynewsgate.net
> ha scritto nel messaggio
news:200410160...@mynewsgate.net...

Si perchè non ci sono letture precedenti quindi ritiene che quel consumo sia
stato fatto tutto in quel giorno
tu cosa vorresti vedere in questa situazione?
> Ecco ho dimenticato di dire che anche se inizio giorno 1 del mese a
> registrare il contatore egli dovrà sempre calcolare la differenza con il
> giorno precedente..cioè giorno 30-31 che sia..
> In excel avevo creato un giorno 0 che compilavo a mano dove c'era la
lettura
> di fine mese...
>
> Quindi es:
>
> Giorno 31/09 Lettura 13862
> Giorno 01/10 Lettura 13867
> Quindi il database dovrà darmi come primo risultato del giorno il numero 5
> ..e anche come tot. progressivo.
> Giorno 02/10 Lettura 13873...risultato 6.....tot progressivo 11...e così
> via...
Questo è esattamente quello che ottieni con le query e la funzione che ti ho
dato ecco la mia tabella e il riaultato di Query2
TABELLA LETTURE
  Letture DataLettura Lettura
      30/09/2004 13862
      01/10/2004 13867
      02/10/2004 13873
      03/10/2004 13879
QUERY2
  Query2 DataLettura Lettura ConsumoG TotProg
      30/09/2004 13862 13862 13862
      01/10/2004 13867 5 5
      02/10/2004 13873 6 11
      03/10/2004 13879 6 17
> Ciao e grazie ancora
> P.S. Mi sa che ora ti devo offrire una cena!
Se mai verrò in vacanza in quel bellissimo posto che ho visto sul tuo sito,
ti faccio uno squillo!
Cinzia


title: sottrazione in maschera?

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:ckuobf$8vo$1...@lacerta.tiscalinet.it...
>
> Questo è esattamente quello che ottieni con le query e la funzione che ti
> ho
> dato ecco la mia tabella e il riaultato di Query2
> TABELLA LETTURE
>  Letture DataLettura Lettura
>      30/09/2004 13862
>      01/10/2004 13867
>      02/10/2004 13873
>      03/10/2004 13879
>
>
> QUERY2
>  Query2 DataLettura Lettura ConsumoG TotProg
>      30/09/2004 13862 13862 13862
>      01/10/2004 13867 5 5
>      02/10/2004 13873 6 11
>      03/10/2004 13879 6 17
>
>
>> Ciao e grazie ancora
>> P.S. Mi sa che ora ti devo offrire una cena!
>
> Se mai verrò in vacanza in quel bellissimo posto che ho visto sul tuo
> sito,
> ti faccio uno squillo!
> Cinzia
>
Accidenti è vero..scusami!
E allora non mi resta che ringraziarti e rimango in debito con te....
Appena finito il progetto mi dai un voto :-)
ciao


title: sottrazione in maschera?

text:

Se me lo mandi, gli do un'occhiata volentieri! Mi incuriosisce sempre sapere
come vanno a finire i db a cui ho in piccola parte contribuito!
Buon lavoro!
Cinzia


title: Stored procedure "annidate"

author: Agos

text:
E' possibile richiamare i risultati di una stored procedure all'interno di
un'altra?
Mi spiego meglio.
In un mdb avevo creato una query di accodamento parametrica che utilizzava
un paio di query anch'esse parametriche. Tutte pescavano lo stesso
parametro, una data, da un form.
In un progetto adp, sto tentando di ottenere lo stesso risultato con le
stored procedure, così ne ho create due equivalenti alle query del mdb
(chiamate <AssentiOggi> e <Turnaz>) e un'altra "di accodamento" che dovrebbe
usare i risultati delle prime due. Ne riporto il testo così capirete meglio:
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[CreaServizioGiornaliero]
@DataIns datetime
AS
INSERT INTO ArchivioServizi ( IDAgente, Turnazione, OraFine, Turno,
OraInizio, Servizio, Ufficio, Zona, Viabilità, NoteServizio,
TurnoReperibilità, GIORNO, TurnoRiposo, TurnoRiduzioneOrario, Turdom,
Turmart )
SELECT TabellaAgenti.IDAgente, Turnaz.Turnazione, Turnaz.OraFine,
Turnaz.Turno, Turnaz.OraInizio, TabellaAgenti.Servizio,
TabellaAgenti.Ufficio, TabellaAgenti.Zona, TabellaAgenti.Viabilità,
TabellaAgenti.NoteServizio, TabellaAgenti.TurnoReperibilità, @DataIns AS
Espr1, TabellaAgenti.TurnoRiposo, TabellaAgenti.TurnoRiduzioneOrario,
TabellaAgenti.TurnazioneDomenicale, TabellaAgenti.TurnazioneMartedi
FROM TabellaAgenti LEFT JOIN Turnaz ON TabellaAgenti.Turno = Turnaz.Turno
WHERE (((TabellaAgenti.IDAgente) Not In (Select IdAgente from assentioggi
Where assentioggi.IdAgente = IdAgente) And (TabellaAgenti.IDAgente) Not In
(Select IdAgente From ArchivioServizi Where ArchivioServizi.IdAgente =
TabellaAgenti.IdAgente And [ArchivioServizi].[GIORNO] = [DataServizio] ) And
(TabellaAgenti.IDAgente) Not In (Select idagente from tabellaagenti where
dataassunzione > @DataIns Or [MobilitàDal] > @DataIns) And
(TabellaAgenti.IDAgente) Not In (Select idagente from tabellaagenti where
inservizio = 'False')) AND ((TabellaAgenti.Distaccato)='False'));
--
Mi sa tanto, però, che non è questa la strada per andare in paradiso!
Avrei pensato, in alternativa, di popolare due tabelle di appoggio,
<AssentiOggi> e <Turnaz> con i risultati delle prime due stored procedure;
eseguire quella di accodamento per poi cancellare le due tabelle di
appoggio. Ma mi sembra un 'tantino' macchinosa come soluzione. Sono sicuro
che ce un modo molto più semplice...
Come potrei fare?
Grazie e buon Ferragosto a tutti.


title: Stored procedure "annidate"

text:

Ciao Agos,
per usarle così in una stored dovresti trasformare le due sp Turnaz e
AssentiOggi in User definined function che restituiscono una tabella
es:
CREATE FUNCTION [dbo].[Turnaz] (@DataIns  DateTime)
RETURNS TABLE
AS RETURN (SELECT *  FROM  Turni  WHERE dataTurno=@dataIns )
e la tua query diventerà qualcosa simile a:
SELECT TabellaAgenti.IDAgente, Turnaz.Turnazione, Turnaz.OraFine,
> Turnaz.Turno, Turnaz.OraInizio, TabellaAgenti.Servizio,
> TabellaAgenti.Ufficio, TabellaAgenti.Zona, TabellaAgenti.Viabilità,
> TabellaAgenti.NoteServizio, TabellaAgenti.TurnoReperibilità,
> @DataIns
> AS Espr1, TabellaAgenti.TurnoRiposo,
> TabellaAgenti.TurnoRiduzioneOrario,
> TabellaAgenti.TurnazioneDomenicale, TabellaAgenti.TurnazioneMartedi
> FROM TabellaAgenti LEFT JOIN dbo.Turnaz(@datains) as X  ON
> TabellaAgenti.Turno =
> X.Turno .....
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
----------------------------------------


title: Stored procedure "annidate"

text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:46c35981$0$21195$5fc...@news.tiscali.it...

Ti ringrazio della "consulenza". Appena potrò la provo poi ti faccio sapere.
Ma il discorso mi "fila" e sono sicuro che funzionerà.
Grazie mille, ciao
>


title: Stored procedure "annidate"

text:
"Agos" <
aga...@alice.it
> ha scritto nel messaggio
news:46c42d58$0$17950$4faf...@reader1.news.tin.it...

> Provata. Funziona. Grazie ancora, ciao :-)
>


title: #Nome?

author: Romeo Tramontano

text:
Salve ragazzi, avrei bisogno di un vostro parere. Ho creato un database per
la gestione di alcuni articoli, in una tabella ho messo un campo data e come
valore predefinito ho inserito DATE(), per far si che la data odierna
venisse suggerita dal sistema. Creando con Access 2003 Developer, il file di
setup con relativo run-time e andandolo ad installare su un pc privo di
access 2003 o office 2003, all'apertura di questa maschera il sistema mi
restituisce in quel campo il valore #Nome?, come se non mi riconoscesse quel
campo. Cosa è successo e come potrei rimediare ? Grazie.


title: #Nome?

author: Lorenzo(pyx)

text:

Ciao,
Il problema e' dovuto ad un riferimento mancante oppure ad un conflitto
con versione di access gia' esistente sul pc ospite.
Prova a verificare nella versione di sviluppo, in moduli,
strumenti->Riferimenti.
Prenditi nota delle varie DLL,OCX etc. che sono in uso e verifica se esistono
sul pc di distribuzione.
Ciao
Lorenzo


title: #Nome?

text:
"Lorenzo(pyx)" <Lorenzo@_
NO.SPA.M_pyx.it
> ha scritto nel messaggio
news:VKSKd.6300$lB4.1...@twister1.libero.it...

Ciao Lorenzo, avevo pensato anch'io alla stessa cosa, ma purtroppo non ho la
possibilità di controllare, perché io uso Access 2003 Developer come ti ho
detto prima e poi sul pc ospite, è stato installato solo Windows Xp Pro e
non c'è più nulla. Hai qualche altra soluzione ?


title: #Nome?

author: Carlo Costarella

text:
"Romeo Tramontano" <
romeo.tr...@tin.it
> ha scritto nel messaggio
news:QJ2Ld.789772$35.30...@news4.tin.it...

Per poter controllare i riferimenti potresti aggiungere al db che
distribuisci una routine simile alla seguente:
Public Sub ControllaRiferimenti()
Dim rcs As Recordset, rc As Reference
Set rcs = CurrentDb.OpenRecordset("RiferimentiMancanti")
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from RiferimentiMancanti;"
DoCmd.SetWarnings True
For Each rc In Application.References
   If rc.IsBroken Then
       With rcs
       .AddNew
       !Riferimento = rc.Name
       .Update
       End With
   End If
Next
End Sub
Preventivamente avrai creato una tabella "RiferimentiMancanti" che contiene
un solo campo testo chiave primaria: "Riferimento"
Questa tabella potrà alimentare una maschera continua che aprirai per vedere
se ci sono riferimenti mancanti.
La sub iniziale la esegui all'apertura della mschera di avvio.
Ciao, Carlo


title: #Nome?

text:

MA sul pc dove hai creato il database hai la possibilita' di verificare
riferimenti e loro collocazione, quindi poi tramite esplora risorse puoi
verificare se e dove si trovano sul pc ospite.
In aggiunta puoi utilizzare il seguente codice che individua un riferimento
mancante :
For Each rc In Application.References
   If rc.IsBroken Then
       MsgBox "BROKEN Reference: " & rc.NAME
   End If
Next
Ciao
lorenzo


title: #Nome?

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:If3Ld.790175$35.30...@news4.tin.it...

Grazie ragazzi, mancava proprio un riferimento "OCX" che ero sicuro di aver
inserito. Solo non sapevo come andare a trovarlo !!! Ciao, Romeo


title: Assegnare ad una variabile il valore ottenuto da una query tipo SELECT SUM ( ) ...

author: Massimo Bellucci

text:
Come č possibile assegnare ad una variabile in visual basic un valore
ottenuto da una query di comando del tipo
[...]
set querymensile = dbs.createquerydef ("")
querymensile.SQL =  " SELECT SUM ( mensile.quota) " & _
                                  " FROM mensile" & _
                                  " WHERE mensile.mese = 'nomemese' "
A questo punto non riesco ad assegnare il valore numerico della query ad una
variabile.
Provando ad assegnare il valore con
nomevariabilenumerica = querymensile.openrecordset ()
mi da giustamente un errore di coerenza dei dati.
Aprendo querymensile come recordset non so come titar fuori il nome
dell'unico dato presente.
Lo stesso risultato si puň ottenere anche senza l' SQL ma viene piů
complicato.
Vi ringrazio per il prezioso aiuto.
Massimo Bellucci


text:
"Massimo Bellucci" <
ilm...@libero.it
> ha scritto nel messaggio
news:3ALsa.60819$K35.1...@news2.tin.it...

Salva la query e usa dlookup per leggere il risultato e assegnarlo alla
variabile.
Se nella query vi sono dei parametri non direttamente leggibili, per esempio
da una maschera, puoi dare in pasto alla query, al posto del parametro, una
funzione pubblica che restituisce appunto il parametro.
Cosě se il parametro č il nome di un mese potresti scrivere una funzione che
restituisce un nome di un mese e passarlo alla query.
Public Function DimmiUnMese() as String
DimmiUnMese = "Maggio"
End Function
Scrivendo DimmiUnMese() nei criteri della query eviti la richiesta del
parametro.
Tutto ciň solo se la query richiede un parametro altrimenti con DlookUp fai
tutto.
Spero di essere stato chiaro.
Ciao, Carlo


author: Alessandro Cara

text:

scusa ma:
dim x as variant
x = dsum("quota","mensile","mese = " & "'Aprile'")
dove "'Aprile'" potrebbe essere:
"'" & Me!controllochecontieneilmese & "'"
--
a.cara
Togli qualcosa dall'email


title: Ricerca testo

author: Luigi

text:
Salve a tutti, volevo chiedere una cosa che credo sia semplice!
Ho dei campi memo con molti caratteri, quello che mi occorre è creare una
form di ricerca per inserire la parola da cercare e visualizzare i risultati
in una nuova maschera!E fin qui tutto bene! Il problema sorge quando vorrei
fare in modo che nella maschera in cui vengono
visualizzati i risultati della ricerca la parola cercata sia evidenziata o
che almeno il cursore si posizioni dove si trova la parola cercata!
Non so se sono stato molto chiaro, spero possiate aiutarmi!
Ciao  e grazie a tutti
Luigi


title: Ricerca testo

author: stwe

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:WpU29.32883$n04.9...@twister2.libero.it...

sull'evento su uscita ci metti nomecontrollo.setfocus
e se non esci dal controllo mettilo su invio al termine del codice che usi
per la ricerca.
by
stwe


title: Ricerca testo

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:jvW29.163172$Jj7.3...@news1.tin.it...

Il problema è che vorrei posizionare il cursore all'interno del campo
proprio nel punto in cui compare la parola da me inserita nella form di
ricerca! E' possibile??
Ciao e grazie
Luigi


title: Ricerca testo

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:6Nc39.36294$lu5.1...@twister1.libero.it...

questo non lo so, intendi qualcosa come il trova di windows? allora
implementa una maschera che contenga il "trova" di access, mi è venuta
mentre ti rispondevo...
by
stwe


title: Ricerca testo

author: Massimiliano Amendola  kksrl

text:

Sul sito comune c'è una funzione che ti serve. Ho provato a ricercarlo ma
purtrtoppo sono in partenza. Ti crea un campo non associato e inserendo la
descrizione che ti serve, ti porta sul record giusto.
ciao
MAssimiliano


title: Ricerca testo

author: Sergio MAZZA

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:WpU29.32883$n04.9...@twister2.libero.it...
> Salve a tutti, volevo chiedere una cosa che credo sia semplice!
>
> Ho dei campi memo con molti caratteri, quello che mi occorre č creare una
> form di ricerca per inserire la parola da cercare e visualizzare i
risultati
> in una nuova maschera!E fin qui tutto bene! Il problema sorge quando
vorrei
> fare in modo che nella maschera in cui vengono
> visualizzati i risultati della ricerca la parola cercata sia evidenziata o
> che almeno il cursore si posizioni dove si trova la parola cercata!
>
> Non so se sono stato molto chiaro, spero possiate aiutarmi!
>
> Ciao  e grazie a tutti
>
> Luigi
>
Prova cosě:
'-----------------
If Me!xgiaTrovato = True Then
    Me.RecordsetClone.FindNext "[xmemo] like '*bla bla*'"
Else
    Me.RecordsetClone.FindFirst "[xmemo] like '*bla bla*'"
End If
If Me.RecordsetClone.NoMatch Then
    MsgBox "Non trovato!"
    Me!xgiaTrovato = False
Else
    Me!xgiaTrovato = True
    DoCmd.GoToRecord acDataForm, "maschera7", acGoTo,
Me.RecordsetClone.AbsolutePosition + 1
    Me!xMemo.SetFocus
    Me!xMemo.SelStart = InStr(1, "bal bla", Nz(Me!xMemo.Value, ""))
    Me!xMemo.SelLength = Len("bla bla")
End If
'-----------------
da inserire nell'evento "su clic" di un bottone; "xgiaTrovato" č una casella
di controllo non associata, "xMemo" č il controllo associato al campo
memo...
Ciao.
--
Sergio MAZZA


title: Ricerca testo

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:ait8k3$bhe$1...@canarie.caspur.it...
> "Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
> news:CRg49.46878$lu5.1...@twister1.libero.it...
> >
> > Ciao,
> > ho provato la tua soluzione e, anche se non me ne intendo molto, credo
che
> > sia quella giusta!
> > Ho copiato e incollato e il codice e sostituito i nomi giusti, solo che
mi
> > da un errore in questo punto
> >
> > >Me.RecordsetClone.AbsolutePosition + 1
> >
> > perchè quando incollo il codice, scompare automaticamente il segno +!
>
> Beh! Questa è carina!
>
> > Potresti darmi qualche informazione su come risolvere il problema! Già
che
> > ci siamo potresti dirmi anche quel "bla bla" che funzione ha??
> >
> > Ciao e grazie per l'interessamento!
> >
>
> Il "bla bla" è la stringa da cercare nel campo memo; se vuoi inserire un
> riferimento ad una casella di testo il codice cambia così:
> '-----------
> Private Sub Comando26_Click()
> If Me!xgiaTrovato = True Then
>     Me.RecordsetClone.FindNext "[xmemo] like " & Chr(34) & "*" &
Me!Testo24
> & "*" & Chr(34)
> Else
>     Me.RecordsetClone.FindFirst "[xmemo] like " & Chr(34) & "*" &
Me!Testo24
> & "*" & Chr(34)
> End If
>
> If Me.RecordsetClone.NoMatch Then
>     MsgBox Me!Testo24 & ", non trovato!"
>     Me!xgiaTrovato = False
> Else
>     Me!xgiaTrovato = True
>     DoCmd.GoToRecord acDataForm, Me.Name, acGoTo,
> Me.RecordsetClone.AbsolutePosition + 1
>     Me!xMemo.SetFocus
>     Me!xMemo.SelStart = InStr(1, Me!Testo24, Nz(Me!xMemo.Value, ""))
>     Me!xMemo.SelLength = Len(Me!Testo24)
> End If
> End Sub
> '-----------
> Dove:
> - Chr(34) è la codifica ascii delle doppie virgolette;
> - Comando26 è il nome del bottone con il codice nell'evento "su clic";
> - xgiaTrovato è una casella di controllo (che puoi rendere invisibile) con
> valore predefinito 0 (Zero/False/No);
> - Testo24 è la casella di testo dove inserisci la stringa da cercare;
> - xMemo è la casella di testo associata al campo memo;
> - [xmemo] è il campo memo della tua tabella;
>
> Se hai adattato questo codice ma ti da errore, verifica bene la sintassi
> (nomi controlli/campi) se non la spunti invia il codice che hai scritto da
> Private Sub a End Sub che lo controlliamo...
>
> Ciao.
>
> --
> Sergio MAZZA
>
Ciao Sergio, prima ancora di continuare la nostra discussione ci tengo a
ringraziarti per la tua disponibilità, sei davvero gentilissimo!
Veniamo al dunque: per evitare errori ho rinominato tutti i campi e cose
varie del mio db adattandolo al tuo codice e poi ho incollato il codice che
ti riporto di seguito
------
Private Sub Comando26_Click()
If Me!xgiaTrovato = True Then
    Me.RecordsetClone.FindNext "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
Else
    Me.RecordsetClone.FindFirst "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
End If
If Me.RecordsetClone.NoMatch Then
    MsgBox Me!Testo24 & ", non trovato!"
    Me!xgiaTrovato = False
Else
    Me!xgiaTrovato = True
    DoCmd.GoToRecord acDataForm, Me.Name, acGoTo
Me.RecordsetClone.AbsolutePosition 1
    Me!xMemo.SetFocus
    Me!xMemo.SelStart = InStr(1, Me!Testo24, Nz(Me!xMemo.Value, ""))
    Me!xMemo.SelLength = Len(Me!Testo24)
End If
End Sub
------
Quando vado a provare il programma mi da un errore sempre al solito posto
cioè in questa stringa
>>DoCmd.GoToRecord acDataForm, Me.Name, acGoTo
Io ho creato una form a maschere continue direttamente a partire dalla
tabella...dove ho sbagliato??
Ciao e grazie!
Luigi


title: Ricerca testo

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:nba59.54617$lu5.1...@twister1.libero.it...
>
> Quando vado a provare il programma mi da un errore sempre al solito posto
> cioč in questa stringa
>
> >>DoCmd.GoToRecord acDataForm, Me.Name, acGoTo
>
>
> Io ho creato una form a maschere continue direttamente a partire dalla
> tabella...dove ho sbagliato??
>
> Ciao e grazie!
>
> Luigi
Dopo "acGoTo" c'č un altro parametro; come puoi vedere dalla virgola che lo
segue. Sicuramente ti ha tratto in inganno l'andata a capo del testo.
La riga giusta č:
'---------
DoCmd.GoToRecord acDataForm, Me.name,
acGoTo,Me.RecordsetClone.AbsolutePosition + 1
'---------
Senza andare a capo (vedi help GoToRecord)...
Ciao.
--
Sergio MAZZA


title: Ricerca testo

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:aj6d8c$i6n$1...@canarie.caspur.it...
>
> "Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
> news:nba59.54617$lu5.1...@twister1.libero.it...
> >
> > Quando vado a provare il programma mi da un errore sempre al solito
posto
> > cioè in questa stringa
> >
> > >>DoCmd.GoToRecord acDataForm, Me.Name, acGoTo
> >
> >
> > Io ho creato una form a maschere continue direttamente a partire dalla
> > tabella...dove ho sbagliato??
> >
> > Ciao e grazie!
> >
> > Luigi
>
> Dopo "acGoTo" c'è un altro parametro; come puoi vedere dalla virgola che
lo
> segue. Sicuramente ti ha tratto in inganno l'andata a capo del testo.
> La riga giusta è:
> '---------
> DoCmd.GoToRecord acDataForm, Me.name,
> acGoTo,Me.RecordsetClone.AbsolutePosition + 1
> '---------
> Senza andare a capo (vedi help GoToRecord)...
>
> Ciao.
>
> --
> Sergio MAZZA
>
Ciao Sergio,
dopo la tua ultima delucidazione il programma funziona bene, ora, non vorrei
sembrare assillante..., ma vorrei chiederti un'ultima cosa!
Quando inserisco la parola nella casella di testo e effettuo la ricerca il
cursore si sposta alla prima parola del record contenente quella da me
cercata. Considerando che un record può contenere molte parole (si tratta di
campi memo), sarebbe possibile far spostare il cursore in prossimità della
parola cercata anche se questa non è la prima del record??
Ti ringrazio ancora una volta infinitamente,
Luigi


title: Ricerca testo

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:BNQ69.68159$lu5.1...@twister1.libero.it...

Ho controllato il codice che ti ho inviato e ho notato che c'era un errore
nel posizionamento dei parametri passati alla funzione instr().
Ora è corretta e ho aggiunto la possibilità di continuare la ricerca nella
stessa casella di testo; ho aggiunto una casella di testo chiamata
"xVecchiaPosizione" che potrai rendere non visibile.
'-------------
If Me!xgiaTrovato = True Then
'controlla se ci sono altre ricorrenze nel dato
    Me!xMemo.SetFocus
    Dim posizione As Integer
    posizione = Me!xVecchiaPosizione
    If InStr(posizione, Nz(Me!xMemo.Value, ""), Me!Testo24) > 0 Then
        Me!xMemo.SelStart = InStr(posizione, Nz(Me!xMemo.Value, ""),
Me!Testo24) - 1
        Me!xMemo.SelLength = Len(Me!Testo24)
        Me!xVecchiaPosizione = (Me!xMemo.SelStart + Me!xMemo.SelLength)
        Exit Sub
    End If
    Me.RecordsetClone.FindNext "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
Else
    Me.RecordsetClone.FindFirst "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
End If
If Me.RecordsetClone.NoMatch Then
    MsgBox Me!Testo24 & ", non trovato!"
    Me!xgiaTrovato = False
Else
    Me!xgiaTrovato = True
    DoCmd.GoToRecord acDataForm, Me.Name, acGoTo,
Me.RecordsetClone.AbsolutePosition + 1
    Me!xMemo.SetFocus
    Me!xMemo.SelStart = InStr(1, Nz(Me!xMemo.Value, ""), Me!Testo24) - 1
    Me!xMemo.SelLength = Len(Me!Testo24)
    Me!xVecchiaPosizione = (Me!xMemo.SelStart + Me!xMemo.SelLength)
End If
'-------------
Ciao.
P.S. fai attenzione a come va accapo il tuo newsreader...
Ari-Ciao.
--
Sergio MAZZA


title: Ricerca testo

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ajoh9h$s04$1...@lacerta.tiscalinet.it...

Caro Sergio,
desidero ringraziarti con tutto il cuore! Sei stato disponibilissimo e
bravissimo dal momento che il programma funziona alla perfezione! Magari
tutti i frequentatori del ng fossero disponibili come te...
Ti ringrazio ancora infinitamente,
ciao,
Luigi


title: Ricerca testo

text:
"Luigi" <
luigia...@tiscali.it
> ha scritto nel messaggio
news:%Ew89.83094$lu5.2...@twister1.libero.it...
>
>
> Caro Sergio,
> desidero ringraziarti con tutto il cuore! Sei stato disponibilissimo e
> bravissimo dal momento che il programma funziona alla perfezione! Magari
> tutti i frequentatori del ng fossero disponibili come te...
>
> Ti ringrazio ancora infinitamente,
>
> ciao,
> Luigi
>
Tranquillo, sono anche meglio...
Ciao.
--
Sergio MAZZA


title: Allineamento in combo box

author: Marco Antonioli

text:
Ciao a tutti
Se nella tabella Atleti (IdAtleta Contatore, Atleta Testo 50, Nazione
Intero Lungo) voglio visualizzare direttamente la nazione di
appartenenza (tabella Nazioni : IdNazione Contatore, Nazione Testo 50)
tramite combo box (colonna 1 larghezza 0 = IDNazione , colonna 2
larghezza 4 = Nazione , larghezza elenco 4,5) ottengo l'allineamento di
quest'ultima a destra (in effetti il valore è numerico).
Qualcuno sa cortesemente come ottenere l'allineamento a sinistra.
Lavoro con W98 - A2000.
Grazie
Marco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Allineamento in combo box

author: Antonio Biso

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:6acd9848e3475be3177...@mygate.mailgate.org...
> Ciao a tutti
> Se nella tabella Atleti (IdAtleta Contatore, Atleta Testo 50, Nazione
> Intero Lungo) voglio visualizzare direttamente la nazione di
> appartenenza (tabella Nazioni : IdNazione Contatore, Nazione Testo 50)
> tramite combo box (colonna 1 larghezza 0 = IDNazione , colonna 2
> larghezza 4 = Nazione , larghezza elenco 4,5) ottengo l'allineamento di
> quest'ultima a destra (in effetti il valore č numerico).
> Qualcuno sa cortesemente come ottenere l'allineamento a sinistra.
> Lavoro con W98 - A2000.
Nella query origine riga della combo crea un campo calcolato con
Cstr(numero) cosě lo tratta come stringa e te lo mette a sinistra
Antonio


title: Allineamento in combo box

text:
> Nella query origine riga della combo crea un campo calcolato con
> Cstr(numero) così lo tratta come stringa e te lo mette a sinistra
Grazie Antonio, ma non funziona.
Il valore è già di tipo testo solo che lo visualizzo tramite combo su
un campo numerico.
Ciao



title: Allineamento in combo box

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:1501a155ae202b3eacd...@mygate.mailgate.org...
> > Nella query origine riga della combo crea un campo calcolato con
> > Cstr(numero) così lo tratta come stringa e te lo mette a sinistra
>
> Grazie Antonio, ma non funziona.
> Il valore è già di tipo testo solo che lo visualizzo tramite combo su
> un campo numerico.
Non ho capito la situazione che hai
Antonio


title: Allineamento in combo box

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> wrote in message
news:R6YWc.55478$
1V3.1...@twister2.libero.it
> Non ho capito la situazione che hai
>
> Antonio
Riprendendo l'esempio iniziale, ho una tabella Nazioni.
Registro nella tabella Atleti l'id della nazione di appartenenza.
In visualizzazione dati della tabella Atleti vorrei esporre la
descrizione della nazione.
Tento con la visualizzazione del campo tramite combo box definita in
struttura campo Nazione di tabella Atleti.
A questo punto la descrizione della nazione è allineata a destra.
Più difficile da spiegare che da vedere.
Se vuoi ti posto l'esempio.
Grazie per lpazienza e disponibilità.



title: Allineamento in combo box

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:3fa0150353e0abd1da8...@mygate.mailgate.org...
> "Antonio Biso" <ch...@NOSPAMetruria.net> wrote in message
> news:R6YWc.55478$
1V3.1...@twister2.libero.it
>
> > Non ho capito la situazione che hai
> >
> > Antonio
>
> Riprendendo l'esempio iniziale, ho una tabella Nazioni.
> Registro nella tabella Atleti l'id della nazione di appartenenza.
> In visualizzazione dati della tabella Atleti vorrei esporre la
> descrizione della nazione.
> Tento con la visualizzazione del campo tramite combo box definita in
> struttura campo Nazione di tabella Atleti.
> A questo punto la descrizione della nazione è allineata a destra.
> Più difficile da spiegare che da vedere.
La combo avrà come origine riga una query con due campi, l'ID e la
descrizione.
Poi due colonne
Poi la dimensione colonne, 0;5 per nascondere l'ID
Non vedo poi dove possa essere il problema
Antonio


title: Allineamento in combo box

text:
> La combo avrà come origine riga una query con due campi, l'ID e la
> descrizione.
> Poi due colonne
> Poi la dimensione colonne, 0;5 per nascondere l'ID
> Non vedo poi dove possa essere il problema
>
> Antonio
Nella colonna visibile i campi sono allineati a destra.
'              Francia'
'        Gran Bretagna'
'               Italia'
'Stati Uniti d'America'
Risulta cosi anche a te ?
Grazie ancora



title: Allineamento in combo box

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:5d60783c974730128df...@mygate.mailgate.org...
> > La combo avrà come origine riga una query con due campi, l'ID e la
> > descrizione.
> > Poi due colonne
> > Poi la dimensione colonne, 0;5 per nascondere l'ID
> > Non vedo poi dove possa essere il problema
> >
> > Antonio
>
> Nella colonna visibile i campi sono allineati a destra.
> '              Francia'
> '        Gran Bretagna'
> '               Italia'
> 'Stati Uniti d'America'
> Risulta cosi anche a te ?
No
Ma scusa, non è che il controllo combo è stato settato con allineamento a
destra???
Antonio


title: Allineamento in combo box

text:
"> Ma scusa, non è che il controllo combo è stato settato con
allineamento a
> destra???
No.
Non riesco tra l'altro a settare l'allineamento in nessun modo.
Ciao



title: formattazione condizionale VBA maschera continua

text:
ciao,

ho una sottomaschera in modalità maschere continue

ho due controlli

fornitore  ---  spuntato (campo sì/no)

il controllo fornitore ha il tag = colora

se il controllo spuntato è uguale a false vorrei cambiare lo sfondo del controllo fornitore.

ho scritto questo codice ma non funziona

Private Sub Form_Open(Cancel As Integer)

Dim ctl As Control

For Each ctl In Me.Controls

If ctl.Tag = "colora" Then

If Me.spuntato = False Then

ctl.BackColor = vbRed

Else
ctl.BackColor = vbWhite
End If
End If

Next ctl
End Sub

grazie per l'eventuale aiuto


text:
Questa non è Formattazione Condizionale..., quel codice funziona in Maschera SINGOLA... e forse nemmmeno tanto perchè andrebbe generato su CURRENT e non su OPEN.

Devi selezionare un controllo alla volta e da Menù selezionare la Formattazione condizionale... da li selezioni Espressione Uguale e, controllo.Tag="xxx" e definirne poi le proprietà.

Alternativa se proprio lo devi fare da codice... ma non credo abbia senso... è questa:

Dim ctl As Access.Control
Dim mFC As Access.FormatCondition

For each Ctl in Me.Controls
   Select Case Ctl.ControlType
      Case acTextBox,acComboBox
          ctl.FormatConditions.Delete
          Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.Name & ".Tag]=" "xxxx")
          mFC.ForeColor = vbRed
          mFC.BackColor = vbWhite
          mFC.FontBold = True
   End Select
Next

Ovviamente non è provato ma la logica è questa...

@Alex


text:

si certo,
non capivo come funzionava la formattazione condizionale del controllo, quella messa a disposizione dall'interfaccia di access per intenderci.
Io capivo che la formattazione condizionale potesse accettare solo la condizione sullo stesso controllo, poi ho scoperto che:

l'espressione è .......[formattazione] = true

permette di formattare un controllo in base al valore di un altro controllo.

perfetto!

per quanto riguarta il tuo codice che mi piacerebbe anche vederlo funzionare

quando lo lancio ricevo l'errore:

proprietà o metodo non supportati dall'oggetto

l'errore è sulla linea

Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.Name & ".Tag]=" "xxxx")

il codice mio è questo:
Dim ctl As Access.Control
Dim mFC As Access.FormatCondition

For Each ctl In Me.Controls
   Select Case ctl.ControlType
      Case acTextBox, acComboBox
          ctl.FormatConditions.Delete
          Set mFC = ctl.FormatConditions.Add(acExpression, acEqual, "[" & ctl.formattazione & ".Tag]= 'colora'")
          mFC.ForeColor = vbRed
          mFC.BackColor = vbWhite
          mFC.FontBold = True
   End Select
Next

grazie Alessandro


title: listbox: colonna allineata a sinistra???

author: rtrtrtr

text:
ciao
nelle listbox le colonne sono allineate a sx. Quindi e' molto brutto da
vedere nel caso ci siano degli importi in euro...
e' possibile avere la listbox con le colonne allineate a destra?
grazieee


text:
rtrtrtr ha scritto:

uff ho letto la faq, dove dicono che l'unico modo e' fare una query che
riempia di spazi a sinistra la colonna...uffffffff
e' l'unico modo ? (non mi va di usare api)


title: Stampa Report con più pagine diverse

text:
Salve a tutti, sapete dirmi come posso stampare un report che deve contenere
3 pagine A4 con stampa anche dietro (quindi 6 pagine totali) con ognuna
delle 3 pagine fronte identica alle altre con la sola differenza di una
etichetta dove scivo "copia cliente", "copia tecnico" e "copia amm.
provinciale".
Ho provato inserendo le interruzioni di pagina nella sezione corpo del
report cercando di replicare le pagine ma la lunghezza totale possibile
arriva a 55 cm circa quindi insufficiente.
Molto grato a chi mi da una mano.
Saluti, Gianni.


title: Stampa Report con più pagine diverse

author: MA

text:

lancia la stampa 3 volte e cambia l'etichetta ogni volta
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Stampa Report con più pagine diverse

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:fj0gm9$67n$1...@tdi.cu.mi.it...

Grazie per il consiglio ma se intendi che ad ogni stampa devo entrare in
struttura del report e scivere a mano sull'etichetta per 3 volte mi sembra
un pò macchinoso almeno che non ci sia un sistema un pò più automatico che
non conosco.
Non esiste la possibilità di stampare 3 copie della stessa pagina con 3
etichette diversè magari sfruttando l'intestazione e piè di pagina della
pagina o del report? Spero di si!
Comunque vada grazie di nuovo.
Saluti, Gianni


title: Stampa Report con più pagine diverse

author: Gianfry

text:
On 3 Dic, 23:21, "Gianni.C" <
giannichi...@virgilio.it
> wrote:

Potrei suggerirti questa procedura abbastanza semplice: mi creo 3
copie del report principale e gli cambio l'intestazione in modo che
nel report 1 ci sia "copia cliente", nel report 2 "copia tecnico" e
così via e mantenendo il resto tutto uguale, li rinomino come mi
server (report1; report2; report3) poi nell'evento del pulsante che
lancia il report, aggiungo gli altri report copiando il codice e
cambiando il nome del report in modo che al click il pulsante mi manda
in stampa quello che voglio. Spero di essere stato chiaro. Ciao


title: Stampa Report con più pagine diverse

author: Franco

text:

Puoi ottenere l'automatismo che chiedi utilizzando VBA.
Devi innanzitutto crearti una variabile pubblica, inserita in un modulo a
parte.
Public NumeroCopie as Byte 'uso Byte perchè presumo che non farai mai più di
255 copie
Poi, presumendo che la stampa parta dal cllik di un pulsante, quando lanci
la stampa, incrementi la variabile NumeroCopie
Private Sub cmdStampa_Click()
On Error GoTo Err_cmdStampa_Click
    Dim N As Byte
    NumeroCopie=0
    For N = 1 To 3 'il numero 3 indica le copie che devi effettuare
        NumeroCopie = NumeroCopie +1
        DoCmd.OpenReport "RepPeriodicità", acViewNormal
    Next N
Exit_cmdStampa_Click:
    Exit Sub
Err_cmdStampa_Click:
    MsgBox Err.Description
    Resume Exit_cmdStampa_Click
End Sub
Poi inserisci l'etichetta sul report (io ho pensato di metterla
nell'intestazione) e gestisci l'evento print della parte del report che
contiene l'etichetta
Private Sub IntestazioneReport_Print(Cancel As Integer, PrintCount As
Integer)
On Error GoTo Err_IntestazioneReport_Print:
    Select Case NumeroCopie
    Case 1
        Me.lblCopia.Caption = "Copia per il cliente"
    Case 2
        Me.lblCopia.Caption = "Copia per il tecnico"
    Case 3
        Me.lblCopia.Caption = "Copia per copia l'amm. provinciale"
    End Select
Exit_IntestazioneReport_Print:
    Exit Sub
Err_IntestazioneReport_Print:
    MiaMsgBox "Si è verificato il seguente errore:@N° " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_IntestazioneReport_Print
End Sub
Naturalmente aumenterai o diminuirai le istruzioni Case a tuo piacimento
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Stampa Report con più pagine diverse

author: Popi - TheBadHabits

text:

Potresti crearti una tabella CopieInStampa di solo campo
"DescrizioneCopia" di tipo testo e contenente i 3 record con le
descrizioni che ti servono.
Poi potresti impostare l'origine dati del tuo report a "SELECT * FROM
CopieInStampa,OrigineDatiOriginale;".
Con questo sistema ogni record della tabella (o query)
OrigineDatiOriginale verrebbe abbinato a tutte 3 le descrizioni, ed
ordinando e raggruppando i record anche secondo DescrizioneCopia non
dovresti neanche crearti delle sezioni diverse, visto che il testo
dell'etichetta sarebbe sì diverso ma comunque in arrivo sempre dal
solito campo dell'origine dati.
Roberto


title: Richiesta di aiuto su Access97

author: Roberto in campagna

text:
Riporto qui di seguito un messaggio ricevuto da Gigi e la mia relativa
risposta:
========================
>Sapresti dirmi come fare ad avere la media di diversi
>record senza che mi conteggi i valori uguale a zero?
>In maschera ho scritto questo:
>=media([cos Fi])
>
>La maschera prevede la registrazione dei dati mensili,
>su base annua, dodici record con diversi valori, uno
>di questi è cos Fi, non presente in ogni record, quindi
>con valore zero.
>Mettendo in totale la media, mi conteggia anche i valori zero.
>Scusa se sono stato ripetitivo, ma penso che sia abbastanza semplice
>ed ho paura di non spiegarmi bene.
>attendo risposta in e-mail (se puoi con urgenza)
>possibilmente senza inserire query (se non si puo' fare altro)
>sono  alle prime armi e non mi e' chiara la logica di programmazione.
>Grazie infinite Gigi
>
>P.S. Ho provato ad inserire >0 o not nul, ma probabilmente sbaglio
>qualcosa.
Visto che sei nuovo immagino che tu non sappia che esiste una regola del NG
che vieta di dialogare di Access in privato; quindi in futuro ti chiedo di
non scrivere al mio indirizzo e-mail per problemi su Access ma sul NG, in
caso contrario mi vedrò costretto a non risponderti.
Per risolvere il tuo problema prova a scrivere:
=IIf(Somma(IIf([cos Fi]=0;0;1))<>0;Somma([cos Fi])/Somma(IIf([cos
Fi]=0;0;1));0
)
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Spostamento nei report

author: Al

text:
Salve a tutti.
In un prg. A2002 lancio l'anteprima di un report ed ho necessità di
posizionarmi direttamente sull'ultima pagina, ma non ho trovato nessun
comando o metodo del report (nemmeno con l'oggetto DoCmd) che mi consenta di
farlo. Ho anche provato con la funzione SendKey, per simulare la pressione
del tasto FINE, ma senza successo.
Avete qualche idea?
Grazie per l'aiuto.
Al


title: Spostamento nei report

author: warp

text:
Al ha scritto nel messaggio ...

Questo codice (postato a suo tempo da Sergio Mazza) dovrebbe risolvere:
DoCmd.OpenReport NomeReport, acPreview
RunCommand acCmdFitToWindow
SendKeys "{end}"


title: Spostamento nei report

text:
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:TbTY9.49105$ZE.13...@twister2.libero.it...

Grazie per la risposta.
In ogni caso non funziona come dovrebbe.
In relatà il mio problema consiste nel fatto che devo costruire un indice
delle pagine di stampa relative a diversi reports (circa una dozzina) e per
far calcolare il numero di pagina di ogni paragrafo devo lanciare uno ad uno
i reports, all'interno dei quali sull'evento di stampa del corpo vado ad
incrementare una variabile di memoria che tiene traccia delle pagine
stampate. In realtà, l'evento viene attivato solo all'apertura della prima
pagina del report e se no si effettua lo sfoglio di tutte le pagine, questo
evento non si verifica.
Per questo volevo apripre il report e posizionarmi sull'ultima pagina.
Però la soluzione da te proposta non funziona correttamente, perchè questo
succede solo per l'ultimo report mandato in stampa e per i precedenti no
(chiaramente ho  inserito i comandi al posto giusto!).
Se hai qualche altra idea ....
Comunque molte grazie.
Al
P.S. ho provato a cercare sull'help e sulla KB informazioni riguardo i
comandi del RunCommand (come si usano e a cosa servono) ma senza successo!
C'è mica un posto dove vengono speigati nel funzionamento e nella sintassi
completa?  Grazie ancora.


title: Spostamento nei report

text:
Al ha scritto nel messaggio ...
>Però la soluzione da te proposta non funziona correttamente, perchè questo
>succede solo per l'ultimo report mandato in stampa e per i precedenti no
>(chiaramente ho  inserito i comandi al posto giusto!).
Ma come mandi in stampa i vari reports, uno dopo l'altro?
Oppure su chiusura di ogni report apri quello successivo?
>Se hai qualche altra idea ....
Purtroppo non è facile focalizzare il problema senza avere sotto gli occhi l'.mdb.
Le premesse non sono chiare (e non è detto che sia facile chiarirle, se la faccenda è
intrinsecamente complessa).
>Al
>P.S. ho provato a cercare sull'help e sulla KB informazioni riguardo i
>comandi del RunCommand (come si usano e a cosa servono) ma senza successo!
>C'è mica un posto dove vengono speigati nel funzionamento e nella sintassi
>completa?  Grazie ancora.
Mi pareva ci fosse qualcosa sul sito comune... in alternativa fai una ricerga con google utilizzando
la parola chiave RunCommand _erano stati postati link interessanti sull'argomento_
Ti saluto.


title: docmd.sendobject non va con outlook

author: mario rossi

text:
se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?

grazie a tutti.


title: docmd.sendobject non va con outlook

author: RobertoA

text:
Il 03/08/2018 15:28, mario rossi ha scritto:
> se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?
>
> grazie a tutti.
>

Da tempo immemorabile ho cercato sistema per inviare posta usando client
predefinito Windows
Poi ho smesso perche' ho trovato fosse una ricerca senza speranza, ogni
client ha le sue particolarita' e la creazione del codice come me lo
pensavo lentamente ti faceva scivolare verso il manicomio
Alla fine ho adottato Blat, che e' uno 'speditore' di posta comandabile
da riga comando, un file di testo
E' possibile anche fargli produrre un log degli eventi cosi' puoi
controllare cosa e' avvenuto durante il tentativo di invio


title: docmd.sendobject non va con outlook

author: Karl Donaubauer

text:
Salve,

Mario Rossi ha scritto:
> se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?

Mancano le tue versioni di Access e Windows. Forse si tratta di questo
bug nuovo:

https://support.office.com/en-us/article/access-is-unable-to-export-objects-as-email-attachments-on-windows-7-ce6f5de8-e1bb-4ac4-9607-cc1e79dc9cc3

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

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


title: docmd.sendobject non va con outlook

text:
Il giorno venerdì 3 agosto 2018 15:28:34 UTC+2, mario rossi ha scritto:
> se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?
>
> grazie a tutti.

sono riuscito a inviare email con allegati da microsoft outlook, codice testato e funzionante

'invia mail con allegato da microsoft outlook
'va selezionato nei riferimenti vba "Microsoft Outlook XX.0 object Library"
Public Sub InviaMail(allegato As String)
    Dim OutlookApp As Outlook.Application
    Dim MItem As Object

    On Error Resume Next

    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .to = "
emaildes...@dominio.it
"
        '.CC = "
ema...@dominio.it
" 'Copia Conoscenza
        '.BCC = "
emai...@dominio.it
" 'Copia Nascosta

        .Subject = "Invio allegato " & allegato ' oggetto della mail
        .Body = "messaggio della mail" ' messaggio della mail
        .Attachments.Add allegato 'file allegato
        '.SentOnBehalfOfName = "
tua...@dominio.it
" 'Mittente in caso si voglia modificare tra quelli disponibili in outlook
        '.display 'per decidere se vedere la mail oppure la invia in modo trasparente
        .Send 'invia la mail
    End With

    Set OutlookApp = Nothing

End Sub


title: docmd.sendobject non va con outlook

text:
Non serve inserire i riferimenti a MSO... anzi meglio evitare... soprattutto se il tuo prodotto va distribuito.
Latebinding o associazione tardiva... prova a vedere se ti va anche esempio.

@Alex


title: docmd.sendobject non va con outlook

text:

Pensavo fosse obbligatorio, ora provo anche senza riferimenti


title: docmd.sendobject non va con outlook

text:

senza i riferimenti non funziona, mi da l'errore seguente:

errore di compilazione
tipo definito dall'utente non definito

alla riga-->     Dim OutlookApp As Outlook.Application

esiste una soluzione per evitare i riferimenti e farlo funzionare?

grazie.


title: docmd.sendobject non va con outlook

text:
"Caro il mio Marito Rossi...."
Scusa ma hai letto quello che ti ho scritto...?
Se vuoi non inserire i riferimenti non basta toglierli devi adeguare il tuo codice con le modalità dell'associazione Tardiva...!!! LATEBINDING.

Ti basta digitare quella parola su Google per trovare il mondo...

@Alex


title: docmd.sendobject non va con outlook

text:

ok ora ho capito cosa devo cercare, grazie.


title: Portare un controllo in primo piano

author: Lp

text:
Se su una form ho una serie di controlli uno dietro l'altro, come
faccio a runtime a portare uno di loro in primo piano.
Ne approfitto per augurare buon ferragosto a tutti i partecipanti.
Grazie


title: Portare un controllo in primo piano

author: Roberto dal portatile

text:
"Lp" <
lui...@libero.it
> ha scritto nel messaggio
news:hhs0e2d0hji8kft5d...@4ax.com...
> Se su una form ho una serie di controlli uno dietro l'altro, come
> faccio a runtime a portare uno di loro in primo piano.
Potresti definire tutti i controlli non visibili e poi rendere visibile solo
quello che ti interessa.
> Ne approfitto per augurare buon ferragosto a tutti i partecipanti.
Buon ferragosto a te.
> Grazie
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Portare un controllo in primo piano

text:
On Mon, 14 Aug 2006 14:39:28 GMT, "Roberto dal portatile"
<
r.ma...@libero.it
> wrote:
>
>"Lp" <
lui...@libero.it
> ha scritto nel messaggio
>news:hhs0e2d0hji8kft5d...@4ax.com...
>> Se su una form ho una serie di controlli uno dietro l'altro, come
>> faccio a runtime a portare uno di loro in primo piano.
>
>Potresti definire tutti i controlli non visibili e poi rendere visibile solo
>quello che ti interessa.
>
>> Ne approfitto per augurare buon ferragosto a tutti i partecipanti.
>
>Buon ferragosto a te.
>
>> Grazie
>
>Prego
Sě, ci avevo pensato, perň siccome i controlli sono parecchi, č un po'
laborioso nascondere gli altri ogni qualvolta si vuole evidenziarne
uno. Tuttavia se non c'č una soluzione alternativa, adotterň quella.
Grazie
Luigi


title: Portare un controllo in primo piano

author: Alessandro Baraldi

text:
Lp ha scritto:
[CUT]
> Sì, ci avevo pensato, però siccome i controlli sono parecchi, è un po'
> laborioso nascondere gli altri ogni qualvolta si vuole evidenziarne
> uno. Tuttavia se non c'è una soluzione alternativa, adotterò quella.
> Grazie
> Luigi
Mi piacerebbe capire il perchè della considerazione di
Laborioso....???
Si tratta sempre di scrivere 1 riga di codice dedicata.... e
sicuramente l'affidabilità è superiore...!
Spesso la complicazione dipende da come hai strutturato i Nomi dei
controlli, basta un ciclo con 4 righe per gestirli...!
@Alex


title: Portare un controllo in primo piano

text:
On 14 Aug 2006 11:11:17 -0700, "Alessandro Baraldi" <
ik2...@libero.it
>
wrote:

Si Alex, forse hai ragione. La complicazione nasce dai nomi dei
controlli. In Visual Basic 6 ricordo che ci sono gli array di
controlli con un nome unico e con un indice variabile. In quel caso
nascondere una serie di controlli è effettivamente molto facile con un
ciclo. In Access tuttavia non mi è sembrato di vedere gli array di
controlli. Sbaglio o è così?
Luigi


title: Portare un controllo in primo piano

text:
Lp wrote:
> Alessandro Baraldi:
>> [CUT]
>>> Sě, ci avevo pensato, perň siccome i controlli sono parecchi, č un
>>> po' laborioso nascondere gli altri ogni qualvolta si vuole
>>> evidenziarne uno. Tuttavia se non c'č una soluzione alternativa,
>>> adotterň quella.
>> ...
>> Spesso la complicazione dipende da come hai strutturato i Nomi dei
>> controlli, basta un ciclo con 4 righe per gestirli...!
>
> Si Alex, forse hai ragione. La complicazione nasce dai nomi dei
> controlli. In Visual Basic 6 ricordo che ci sono gli array di
> controlli con un nome unico e con un indice variabile. In quel caso
> nascondere una serie di controlli č effettivamente molto facile con un
> ciclo. In Access tuttavia non mi č sembrato di vedere gli array di
> controlli. Sbaglio o č cosě?
No, ma vedi gli esempi nella
www.donkarl.com/it
FAQ 6.5 Ciclare attraverso i controlli
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Portare un controllo in primo piano

text:


Molto interessante!
Grazie del suggerimento
Luigi


title: Database multiutente ADP

author: Alessio Tosi

text:
Cerco informazioni su gestione lock etc. su un adp che accedde ad un
MSDE, ho già cercato "programmare Access 2002" che qualcuno mi aveva
suggerito, ma per 150.000 delle vecchie lire (mi sembra poi che non sia
un gran che come libro) speravo di tovare un'alternativa sul web, anche
solo un esempio
Ciao
AleX
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: W98-A97 OutputTo

author: Riviera

text:
Ciao
Dovendo  esportare il risultato di una query su excel ho scritto
DoCmd.OutputTo acOutputQuery, "Q2_Riepiloghi", acFormatXLS, _
                "C:\documenti\Sterilizzazione\Riepiloghi.xls"
la cosa funziona ma , quando chiudo Riepiloghi.xls , Excel mi chiede se
voglio aggiornarne il formato , come se lo avesse creato con una versione
precedente a quella installata che č Excel 7.0 di Office 98 .
Si potrebbe creare con il formato che rimane piů opportuno?
Grazie molte
Marce


title: W98-A97 OutputTo

author: Riccardo

text:
Riviera <
marce...@smartino.ge.it
> wrote in message
9ddjs0$c7o$1...@ftp-news.csita.unige.it...
> Ciao
> Dovendo  esportare il risultato di una query su excel ho scritto
> DoCmd.OutputTo acOutputQuery, "Q2_Riepiloghi", acFormatXLS, _
>                 "C:\documenti\Sterilizzazione\Riepiloghi.xls"
> la cosa funziona ma , quando chiudo Riepiloghi.xls , Excel mi chiede se
> voglio aggiornarne il formato , come se lo avesse creato con una versione
> precedente a quella installata che è Excel 7.0 di Office 98 .
> Si potrebbe creare con il formato che rimane più opportuno?
> Grazie molte
> Marce
>
_______
Prova ad usare
DoCmd.TransferSpreadsheet ......(trasferisci foglio di calcolo)
ti chiede anche la versione di Excel.
ciao Riccardo