author: Karl Donaubauer

text:
RobertoA wrote:
> Procedura sviluppata su Access 2003, formato file Access 2000
> Il run-time non si installa su Windows 98
> C'e' verso di farlo andare o no ?
Manca l'informazione più importante: Quale versione del runtime?
il runtime di A00 e di tutte versioni fino a AX: Sì
il runtime di A03 e A07: No
vedi anche:
http://support.microsoft.com/kb/822129/it
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Come far funzionare applicazione Access 2003 su Win 98 ???

author: RobertoA

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6sktn9F...@mid.individual.net...
> RobertoA wrote:
>> Procedura sviluppata su Access 2003, formato file Access 2000
>> Il run-time non si installa su Windows 98
>> C'e' verso di farlo andare o no ?
>
> Manca l'informazione piů importante: Quale versione del runtime?
> il runtime di A00 e di tutte versioni fino a AX: Sě
> il runtime di A03 e A07: No
>
> vedi anche:
http://support.microsoft.com/kb/822129/it
Parlo del run-time di Access 2003
Mi pare di capire che non ci sia verso di installarlo su un Windows 98
Allora il ripiego e':
- e' possibile far funzionare una procedura scritta su Access 2003 (in
formato mde), usando il run-time di Access 2000 ?
Ciao e grazie
RobertoA


text:
RobertoA wrote:
> "Karl Donaubauer ha scritto:
>>> Procedura sviluppata su Access 2003, formato file Access 2000
>>> Il run-time non si installa su Windows 98
>>> C'e' verso di farlo andare o no ?
>>
>> Manca l'informazione più importante: Quale versione del runtime?
>> il runtime di A00 e di tutte versioni fino a AX: Sì
>> il runtime di A03 e A07: No
>>
>> vedi anche:
http://support.microsoft.com/kb/822129/it
>
> Parlo del run-time di Access 2003
> Mi pare di capire che non ci sia verso di installarlo su un Windows 98
> Allora il ripiego e':
> - e' possibile far funzionare una procedura scritta su Access 2003 (in
> formato mde), usando il run-time di Access 2000 ?
Con A03 puoi solo creare un MDE nel formato di A03 che
certo non funziona con A00.



text:
RobertoA ha scritto:
>
>"Karl Donaubauer" <NoSpam@donkarl,com > ha scritto nel messaggio
>news:6sktn9F...@mid.individual,net ...
>> RobertoA wrote:
>>> Procedura sviluppata su Access 2003, formato file Access 2000
>>> Il run-time non si installa su Windows 98
>>> C'e' verso di farlo andare o no ?
>>
>> Manca l'informazione piů importante: Quale versione del runtime?
>> il runtime di A00 e di tutte versioni fino a AX: Sě
>> il runtime di A03 e A07: No
>>
>> vedi anche: http :// support.microsoft,com /kb/822129/it
>
>Parlo del run-time di Access 2003
>Mi pare di capire che non ci sia verso di installarlo su un Windows 98
>Allora il ripiego e':
>- e' possibile far funzionare una procedura scritta su Access 2003 (in
>formato mde), usando il run-time di Access 2000 ?
>Ciao e grazie
>RobertoA
>
>
Ho fatto proprio lo stesso tentativo.......se non utilizzi roba prettamente di A2003 (tipo il filedialog con la libreria Office 11.0) ma solo form, queries e cose standard (anche il codce ovviamente) non hai problemi. Puoi convertire anche l'applicazione 2003 in 2000. Vale la regola di prima
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


author: Carlo Costarella

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:49652d5a$1...@newsgate.x-privat.org...

Con il runtime di A2003 non puoi.
Ti propongo due alternative:
mi mandi il db, lo converto in A97 e ti creo il runtime;
crei un disco virtuale (per esempio con virtualpc) e ci installi quello che
vuoi (memoria permettendo).
Ciao, Carlo


text:
Carlo Costarella wrote:
> "RobertoA ha scritto:
>> Procedura sviluppata su Access 2003, formato file Access 2000
>> Il run-time non si installa su Windows 98
>> C'e' verso di farlo andare o no ?
>
> Con il runtime di A2003 non puoi.
>
> Ti propongo due alternative:
> mi mandi il db, lo converto in A97 e ti creo il runtime;
Ciao Carlo,
seconde me anche dopo 12 anni sarebbe ancora contro l'EULA
(file LICENSE.TXT e/o LICENSE.DOC sul cd della ODE), che contiene:
"...If you redistribute the Run-Time Files, you agree: (a) to distribute the
Run-Time Files in object code only in conjunction with and as a part of a
software product developed by you which adds significant and primary
functionality to the SOFTWARE..."
o in italiano
http://groups.google.com/group/it.comp.appl.access/msg/4d61cb16374b87b7
--
cu



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6spgo3F...@mid.individual.net...

Ciao Karl
probabilmente hai ragione, nel senso che stando alla licenza, solo se
apportassi delle modifiche sostanziali al db di Roberto, potrei poi
realizzare e distribuire il runtime.
Bisogna vedere se la nuova politica di Microsoft nel dare gratuitamente il
runtime con A2007 e considerando l'obsolescenza sia di W98 che di A97, non
possa giustificare una tale distribuzione.
Il discorso merita certamente un approfondimento.
Ciao, Carlo


title: Rilevare esecuzione query

author: bande

text:
Salve a tutti,
ho un problema: usando il docmd setwarning = false per evitare i messaggi di
conferma nelle query di aggiornamento, come posso rilevare comunque via
codice l'effettiva esecuzione della query?
Grazie in anticipo
Ciao
Andrea


title: Rilevare esecuzione query

author: lbo dal portatile

text:
>ho un problema: usando il docmd setwarning = false per evitare i messaggi di
>conferma nelle query di aggiornamento, come posso rilevare comunque via
>codice l'effettiva esecuzione della query?
mah, puoi settare un flag prima e dopo l'esecuzione della query...
che fa sta query?  accoda, crea, cancella?  puoi anche effettuare un
conteggio sulla tabella cui accodi, che crei o dalla quale cancelli
record.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: [OT] Un saluto a tutti

author: Michele Amato

text:
Rieccoci al lavoro.
Un saluto a tutti, con l'augurio di buon 2001.
Michele Amato


title: [OT] Un saluto a tutti

author: RoDAgo

text:
"Michele Amato"  ha scritto nel messaggio ...
> Rieccoci al lavoro.
>
> Un saluto a tutti, con l'augurio di buon 2001.
Azzz, lunghette queste ferie!  :-)
Cià Dottò!!  :)
> Michele Amato
--
RoDAgo


title: [OT] Un saluto a tutti

text:
RoDAgo <
rodago...@tiscalinet.it
> wrote in message
93fcov$7kf$1...@lacerta.tiscalinet.it...

Ciao carissimo,
> Azzz, lunghette queste ferie!  :-)
sai l'età comincia a farsi sentire...
...ah perchè non cominciamo a parlare del prossimo raduno?
Mi piacerebbe molto farlo in Sicilia, sai non ci sono mai stato...
temo però che saremmo io, tu Rodago e Michele Amato
(scusate se ho dimenticato qualcuno...;-)))
Un abbraccio
Michele Amato


title: [OT] Un saluto a tutti

author: AntoGal

text:
Michele Amato <
maengi...@ciccia.libero.it
> scrisse...
> ...ah perchè non cominciamo a parlare del prossimo raduno?
>
> Mi piacerebbe molto farlo in Sicilia, sai non ci sono mai stato...
> temo però che saremmo io, tu Rodago e Michele Amato
> (scusate se ho dimenticato qualcuno...;-)))
bentornato,  e per il raduno in Sicilia vengo a farvi compagnia :-)
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)

www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


title: [OT] Un saluto a tutti

author: Silvio Berruti

text:
"AntoGal" <ant...@NOSPAMsitocomune.com> ha scritto nel messaggio
news:93fonu$io7$1...@lacerta.tiscalinet.it...
> Michele Amato <
maengi...@ciccia.libero.it
> scrisse...
> > ...ah perchè non cominciamo a parlare del prossimo raduno?
> >
> > Mi piacerebbe molto farlo in Sicilia, sai non ci sono mai stato...
> > temo però che saremmo io, tu Rodago e Michele Amato
> > (scusate se ho dimenticato qualcuno...;-)))
>
> bentornato,  e per il raduno in Sicilia vengo a farvi compagnia :-)
>
bentornato anche da parte mia, ma...
... che volete ... che faccia 1200 Km???
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: [OT] Un saluto a tutti

author: Carlo Ve

text:
Silvio Berruti ha scritto nel messaggio ...
>
>"AntoGal" <ant...@NOSPAMsitocomune.com> ha scritto nel messaggio
>news:93fonu$io7$1...@lacerta.tiscalinet.it...
>> Michele Amato <
maengi...@ciccia.libero.it
> scrisse...
>> > ...ah perchè non cominciamo a parlare del prossimo raduno?
>> >
>> > Mi piacerebbe molto farlo in Sicilia, sai non ci sono mai stato...
>> > temo però che saremmo io, tu Rodago e Michele Amato
>> > (scusate se ho dimenticato qualcuno...;-)))
>>
>> bentornato,  e per il raduno in Sicilia vengo a farvi compagnia :-)
>>
>
>bentornato anche da parte mia, ma...
>... che volete ... che faccia 1200 Km???
Avvisateci per tempo che noi dobbiamo preparare
un charter dal Nord-est
Carlo Ve
Ben ritrovati a tutti


title: [OT] Un saluto a tutti

text:
Ragazzotti per me non ci sono problemi, daltronde è l'occasione giusta per
farvi conoscere Sib.
Fatemi sapere, tanto quando c'è da mangiare questo NG si mobilita meglio di
quello sulla Cucina!  :)
Per coloro che mi parlano di km, io non li ho lesinati per arrivare a Roma e
sua volta LoreCoro quando è venuto a Palermo, quindi non mi trovino ste
scusette (Silvio avvisato mezzo salvato!  :-) .
--
RoDAgo


title: [OT] Un saluto a tutti

author: sib

text:
RoDAgo <
rodago...@tiscalinet.it
> wrote in message
93i3re$t3c$1...@lacerta.tiscalinet.it...

Mi sembra una buona idea.
Almeno mi servirebbe a recuperare un po' del dispiacere di non essere potuto
venire a Roma.
Saluti e auguri per tutti.
Ciao, Sib


title: [OT] Un saluto a tutti

text:
"RoDAgo" <
rodago...@tiscalinet.it
> ha scritto nel messaggio
news:93i3re$t3c$1...@lacerta.tiscalinet.it...

No problem!
P.S. Mi mandi x favore il n° di C/C su cui addebitarti l'aereo?
(sai com'è... Genova è a 2 passi...)



title: [OT] Un saluto a tutti

author: Roberto dal portatile

text:
"Michele Amato" <
maengi...@ciccia.libero.it
> ha scritto nel messaggio
news:g6F66.7004$eB2.1...@news.infostrada.it...
> Rieccoci al lavoro.
>
> Un saluto a tutti, con l'augurio di buon 2001.
>
> Michele Amato
>
Auguri a tutti per il 2001.
Quanto al prossimo raduno, se per motivi logistici dovessimo restare nel
centro Italia, come promisi a Roma sono pronto ad organizzare in quel di
Perugia; assicuro che l'aspetto gastronomico sarebbe memorabile e quanto al
Vin Santo basterebbe salire in soffitta.
Ciao
Roberto


title: [OT] Un saluto a tutti

author: Federico Luciani

text:
sib wrote:
> RoDAgo <
rodago...@tiscalinet.it
> wrote in message
> > Ragazzotti per me non ci sono problemi, daltronde è l'occasione giusta per
> > farvi conoscere Sib.
> > Fatemi sapere, tanto quando c'è da mangiare questo NG si mobilita meglio
> di
> > quello sulla Cucina!  :)
> > Per coloro che mi parlano di km, io non li ho lesinati per arrivare a Roma
> e
> > sua volta LoreCoro quando è venuto a Palermo, quindi non mi trovino ste
> > scusette (Silvio avvisato mezzo salvato!  :-) .
>
> Mi sembra una buona idea.
> Almeno mi servirebbe a recuperare un po' del dispiacere di non essere potuto
> venire a Roma.
> Saluti e auguri per tutti.
> Ciao, Sib
Naturalmente e' un'ottima idea, ma direi di rimandare la cosa al periodo
estivo/autunnale.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: [OT] Un saluto a tutti

text:
Federico Luciani <
fluc...@paperino.sitocomune.com
> wrote in message
3A5D7933...@paperino.sitocomune.com...

Ragazzi, il capo-(autista) ha detto agosto-settembre 2001.
Nel frattempo potremmo organizzare per la pasquetta ;-)))
Saluti
Michele Amato


title: [OT] Un saluto a tutti

author: ema

text:
Mio cuggino mi ha detto che Michele Amato <
maengi...@ciccia.libero.it
> scrisse:
> Mi piacerebbe molto farlo in Sicilia, sai non  ci  sono  mai	stato...
>
perche` non a Capo Nord? :-))
chissa`  se  un  giorno  riusciro`  a  partecipare   ad   un   raduno...
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

Un vincitore e' un sognatore che non si e' arreso.


title: [OT] Un saluto a tutti

text:
Michele Amato ha scritto nel messaggio
<02n76.25597$
eB2.3...@news.infostrada.it
>...

Nel frattempo tanto per tenerci allenati potremo sempre organizzare la cena
sul po'
quella che era saltata tempo fa   (lbo aveva pure fatto il sito per
raccogliere adesioni)
Carlo Ve


title: [OT] Un saluto a tutti

text:
ema wrote:
> Mio cuggino mi ha detto che Michele Amato <
maengi...@ciccia.libero.it
> scrisse:
> > Mi piacerebbe molto farlo in Sicilia, sai non  ci  sono  mai  stato...
> perche` non a Capo Nord? :-))
> chissa`  se  un  giorno  riusciro`  a  partecipare   ad   un   raduno...
basta volerlo ;-)
non possiamo mica organizzartelo sotto casa ;-)
a proposito, dove vivi?



title: [OT] Un saluto a tutti

author: Alessia

text:
"Carlo Ve" <
xp...@libero.it
> ha scritto nel messaggio
news:9Mr76.29010$eB2.3...@news.infostrada.it...

Ho la valigia pronta come, dove, quando?
Questa volta porto per Federico la grappa al Picolit.
Ricordatevi però la birra per me (un po' di più)
Ale


title: [OT] Un saluto a tutti

text:
ema wrote:
> Mio cuggino mi ha detto che Michele Amato <
maengi...@ciccia.libero.it
> scrisse:
> > Mi piacerebbe molto farlo in Sicilia, sai non  ci  sono  mai  stato...
> perche` non a Capo Nord? :-))
> chissa`  se  un  giorno  riusciro`  a  partecipare   ad   un   raduno...
basta volerlo ;-)



title: [OT] Un saluto a tutti

text:
Mio cuggino mi ha detto che Federico Luciani <
fluc...@paperino.sitocomune.com
> scrisse:
>> > Mi piacerebbe molto farlo in Sicilia, sai non ci sono mai	stato...
>> perche` non a Capo Nord? :-))
>> chissa`  se	un  giorno  riusciro`  a  partecipare  ad  un  raduno...
> basta volerlo ;-)
>
eh, eh.
> non possiamo mica organizzartelo sotto casa ;-)
>
why not? :-))
> a proposito, dove vivi?
>
Piacenza. C'e` qualcuno di queste parti?
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

Il capofamiglia di una famiglia di meridionali non ne puo' piu' di essere preso
in giro sul lavoro, per strada, allo stadio, tra amici, ecc.  Allora va dal
medico: "Dottore, devo assolutamente diventare piemontese".  Il dottore gli
dice: "Prenda questa pastiglia e poi attraversi il Po a nuoto.  Eccone altre
tre per moglie e figli".  Allora la famiglia si reca vicino alla sponda sud del
Po, pronta ad affrontare una nuova vita.  Il padre: "Rischiero' per primo.
Aspettatemi qui".  Prende la pastiglia, si tuffa, e attraversa il fiume a
nuoto.  "L'e' ver, sun piemonteis, va'".  Allora la madre, incoraggiata dal
successo del marito, prende la pillola, si butta in acqua e raggiunge l'altra
sponda con un certo sforzo.  "Va bin parej, ve', piemonteis ne'!".  E convince
il figlio di quattordici anni a fare lo stesso.  Il  ragazzo  ingoia  la
pastiglia, e con notevole sforzo raggiunge la sponda  nord.   Anche  lui
piemontese al 100%.  Allora la figlia di otto anni prende la pastiglia, si
getta nelle impetuose acque del Po, ma verso la meta' della traversata viene
portata via dal fiume, per sempre.  Il padre, dopo un attimo di silenzio, dice:
"Ma va' 'l terun, va!".
		-- Da it.hobby.umorismo


title: Incremento Progress bar

author: Gotta

text:
Dunque..dopo avere cannibalizzato tutii gli esempi di progrbar del web mi
sono concentrato sul piu' carino, cioe' quello di Alex Baraldi.
In un post da lui scritto sembrava che copiando la classe(visto che ha
lavorato su una dll!) e qualche riga di codice(5 sembrava) tutto funzionasse
a meraviglia.
Premessa:
Non metterei mai in discussione cio' che dice Alex perche' senz'altro il
malandrino sono io, ma quali sarebbero le 5 righe di codice?
La form dell'esempio che troviamo sul sito comune e' zeppa di controlli, per
l'eventuale mia form con prbar su quale evento potrei caricare il codice di
@Alex?
Se qualche anima ha fatto questi tentativi e vuole aiutarmi le saro'
eternamente grato.
Grazie in anticipo
Michele
Ps:altrimenti dovro' telefonare al Max Piub


title: Incremento Progress bar

author: ALESSANDRO Baraldi

text:
"Gotta" <
xgo...@libero.it
> ha scritto nel messaggio
news:WGJMc.10910$1V3.2...@twister2.libero.it...

Non so bene qual'č l'esempio, ma tutti i miei giochetti sono
fatti apposta per essere incasinati.....!
Scherzi a parte cerco sempr edi inserire diverse cose, ma mi rendo
conto che spesso possono confondere:
Allora :
1)Copia il Modulo di Classe
2)Creati una Form non associata
3)Inserisci nella Form 2 controlli solo:
    -CommandButton chiamalo "cmdStepPB"
    -Controllo Rettangolo chiamalo "cRet"
    Posizionalo dove vuoi , tieni conto che la ProgressBar
    apparirą proprio nel Rettangolo
4)Associa alla Form il seguente codice(TUTTO)
5)Associa al Command Button l'Evento Click
Ora:
CLICK
'*************************************************************
Dim mb As clsSPB
Private Const CGrey = 12632256
Private Const CBlue = 8388608
Private Sub cmdStepPB_Click()
   Dim x As Long
   Dim S As String
   S = Me.cmdStepPB.Caption
   mb.PB_Min = 0
   mb.PB_Max = 200
   'Consigliato n° di Steps=100
   For x = 0 To 200
       mb.PB_Value = x
   Next
   'Me.cmdStepPB.Caption = s
End Sub
Private Sub Form_Load()
   Set mb = New clsSPB
   Set mb.Form = Me
   Me.E_Color.BackColor = CBlue
   Me.EBK_Color.BackColor = CGrey
   mb.PB_Speed = 1
   mb.PB_Position Me.cRet.left, _
                                         Me.cRet.top, _
                                         Me.cRet.Height, _
                                         Me.cRet.Width
End Sub
Ciao.
@Alex.


title: Incremento Progress bar

author: MA

text:
                    Il 25 Lug 2004, 10:34, "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto:
>
>> Michele
> > Ps:altrimenti dovro' telefonare al Max Piub
>
Cos'è una minaccia????
MAssimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Incremento Progress bar

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:82Z51Z190Z139Y1...@usenet.libero.it...
>                     Il 25 Lug 2004, 10:34, "ALESSANDRO Baraldi"
<
ik2...@libero.it
> ha scritto:
> >
> >> Michele
> > > Ps:altrimenti dovro' telefonare al Max Piub
> >
> Cos'è una minaccia????
> MAssimiliano
>
Anch'io l'ho interpretata così tant'è che ho prontamete
risposto....!
@Alex.


title: Incremento Progress bar

text:
Nessuna minaccia davvero .........tra l'altro i miei progressi in vb sono
dovuti principalmente alla Vs disponibilità.
E non scherzo.
A presto
Michele
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:ce02u2$etp$1...@lacerta.tiscalinet.it...



title: [Maschera] Problema con struttura a schede

author: kecco's

text:
Ciao!
Non riesco ad associare un evento ai pulsanti di una struttura a
schede.
La maschera ha una struttura a schede e in ogni scheda ci sono delle
informazioni diverse. Vorrei poter associare alla visualizzazione di
una determinata scheda anche un evento (dal semplice MsgBox a altri
più complessi).
Ora come ora in modalità struttura, selezionata la Struttura a schede,
la singola pagina mi dà su evento la voce "Su modifica", "Su clic "
etc...ma all'atto pratico non succede nulla...
Cosa devo "sbloccare"?
Grazie 1000!
F


text:

Su change e puoi mettere
select case me.tuocontrolloschede
case 0
case 1
case 2
end select
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
MA ha scritto:
> Su change e puoi mettere
> select case me.tuocontrolloschede
> case 0
> case 1
> case 2
> end select
Grandissimo!
grazie! ora va perfettamente!
F
ps: strano che sembra che ci sia qualla possibilità di associare un
evento sul clic della pagina ed invece non funziona nulla...hai idee?


title: trovare il venerdi' piu' vicino

author: AP

text:
ecco, qui non vengo proprio fuori.
Voglio cliccare su un campo data, e ottenere il venerdi' passato piu'
vicino.
Tipo, se clicco oggi ottengo "9/2/2005"
come fareste?
--
Boris: I cattivi, per inciso, sono gli uni e gli altri.


title: trovare il venerdi' piu' vicino

author: Roberto dalla campagna

text:
"AP" <duc...@iaciners.noto> ha scritto nel messaggio
news:1psq5yplv7igh.1encbiutgi0lw$.dlg@40tude.net...
>
> ecco, qui non vengo proprio fuori.
>
> Voglio cliccare su un campo data, e ottenere il venerdi' passato piu'
> vicino.
>
> Tipo, se clicco oggi ottengo "9/2/2005"
Se per 9/2/2005 intendi 2 settembre 2005, prova con il seguente codice VBA:
Private Sub MiaData_DblClick(Cancel As Integer)
If Not IsDate(MiaData) Then Exit Sub
Dim Conta As Date
For Conta = CDate(MiaData) To CDate(MiaData) - 7 Step -1
    If WeekDay(Conta) = 6 Then
        UltimoVenerdě = Conta
        Exit For
    End If
Next Conta
End Sub
>
> come fareste?
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: trovare il venerdi' piu' vicino

author: Alessandro Baraldi

text:
"AP" <duc...@iaciners.noto> wrote in message
news:1psq5yplv7igh.1encbiutgi0lw$.
d...@40tude.net
>
> ecco, qui non vengo proprio fuori.
>
> Voglio cliccare su un campo data, e ottenere il venerdi' passato piu'
> vicino.
>
> Tipo, se clicco oggi ottengo "9/2/2005"
>
> come fareste?
Con la funzione WeekDay estrai di una data
il valore del giorno della settimana Venerdě=6 (se non sbaglio)
Ora partendo dalla data odierna creati un Loop che con DateAdd
somma un giorno finchč WeekDay(NuovaData)=6
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: trovare il venerdi' piu' vicino

author: giorgio rancati

text:
"AP" <duc...@iaciners.noto> ha scritto nel messaggio
news:1psq5yplv7igh.1encbiutgi0lw$.dlg@40tude.net...
>
> ecco, qui non vengo proprio fuori.
>
> Voglio cliccare su un campo data, e ottenere il venerdi' passato piu'
> vicino.
>
> Tipo, se clicco oggi ottengo "9/2/2005"
>
> come fareste?
Ciao AP,
puoi crearti una funzione che in base alla data passatagli ti renda la data
del venerdě precedente
----
Function Venerdi_Precedente(ByVal Dt As Date) As Date
   If Weekday(Dt, vbMonday) > 5 Then
      Venerdi_Precedente = Dt - (Weekday(Dt, vbMonday) - 5)
   Else
      Venerdi_Precedente = Dt - (Weekday(Dt, vbMonday) - 5 + 7)
   End If
End Function
----
quindi puoi inserirla come origine controllo di una casella testo o
utilizzarla come meglio credi.
----
=Venerdi_Precedente(Campo1)
----
(Campo1 č il controllo che contiene la data di riferimento)
Ciao Giorgio


title: trovare il venerdi' piu' vicino

text:
On Sun, 04 Sep 2005 10:25:33 GMT, Roberto dalla campagna wrote:
>     If WeekDay(Conta) = 6 Then
Ecco, questa non la sapevo, ho sprecato tempo con un CASE e sul nome del
giorno (case format ecc.= mon), le date sono veramente ostiche, a
cominciare dal formato e dal fatto di doverle mettere in italiano dentro le
query e in americano nel codice e di non sapere mai se usare gg o dd e cose
del genere.
grazie, la tua soluzione e' elegante e probabilmente funziona pure :-)


title: trovare il venerdi' piu' vicino

text:
On Sun, 04 Sep 2005 10:25:33 GMT, Roberto dalla campagna wrote:
> For Conta = CDate(MiaData)
perche' usi cdate qui?
Anche se c'e' gia' una data?



title: trovare il venerdi' piu' vicino

text:
On Sun, 04 Sep 2005 10:25:33 GMT, Roberto dalla campagna wrote:
>     If WeekDay(Conta) = 6 Then
>         UltimoVenerdě = Conta
Non ci vuole una DIM anche per Ultimovenerdě?



title: trovare il venerdi' piu' vicino

text:
"AP" <duc...@iaciners.noto> ha scritto nel messaggio
news:q4lv5af7y993.1ttadtvvsantf$.dlg@40tude.net...
> On Sun, 04 Sep 2005 10:25:33 GMT, Roberto dalla campagna wrote:
>
> >     If WeekDay(Conta) = 6 Then
> >         UltimoVenerdě = Conta
>
> Non ci vuole una DIM anche per Ultimovenerdě?
Se Ultimovenerdě č una variabile di tipo Data/ora devi definirla con una
DIM, ma io, a torto o regione, ho presupposto che fosse invece una casella
di testo non associata come pure MiaData.



title: trovare il venerdi' piu' vicino

text:
"AP" <duc...@iaciners.noto> ha scritto nel messaggio
news:1wbyoshm9y2mk.v...@40tude.net...
> On Sun, 04 Sep 2005 10:25:33 GMT, Roberto dalla campagna wrote:
>
> > For Conta = CDate(MiaData)
>
> perche' usi cdate qui?
>
> Anche se c'e' gia' una data?
Se MiaData č un controllo associato ad un campo di tipo Data/ora la
conversione fatta con la funzione CDate č superflua, ma se MiaData fosse ad
esempio una casella di testo non associata dove digiti una data del tipo
10/9/2005, in essa ci sarebbe una stringa di tipo testo che prima di essere
usata deve essere convertita in una variabile di tipo Data/ora.
Nel dubbio ho comunque fatto la conversione, che comunque non crea problemi.



title: Stampe report con + sottoreport

author: Zax

text:
Ciao  a tutti,
avrei bisogno del vostro aiuto.
Ho realizzato una Report che contiene al suo interno delle sottoreport
legate a delle query.
Ho sistemato nel seguente ordine le sottoreport:
______        ____    _____
|     A   |        |  B  |   |      C |
|           |        |___|   |_____|
|           |        ___________
|           |        |        D          |
|           |        |__________|
|_____ |
_____________________
|               E                        |
|_____________________|
Capita del nella visualizzazione la tabella corrispondente alla sottoreport
D si sovrappone alla E.
Da premettere che questo capita quando la quantità delle righe della tabella
A e inferiore alla quantità di B+D.
Come posso risolvere questo inconveniente?


title: Stampe report con + sottoreport

author: Sergio MAZZA

text:
"Zax" <
zz...@zzz.com
> ha scritto nel messaggio news:3x5Nc.12215$1V3.3...@twister2.libero.it...

Prova ad impostare a tutti i sottoreport la proprietà "riducibile" a no...
Ciao.
--
Sergio MAZZA


title: Stampe report con + sottoreport

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ce2qpo$t3a$1...@canarie.caspur.it...

La proprietà "riducibile" è già impostata a no.


title: Access e la musica

author: Raffi

text:
Buongiorno a tutto l'ng, e...grazie di esistere!!!
scherzi a parte, non sapete quanti dubbi mi eliminate....
comunque ecco il mio problema, ed č inutile dire che sarņ immensamente grato
a chi potrą e vorrą aiutarmi:
avendo creato un piccolo database access per catalogare i miei cd audio, mi
chiedo se esista la possibilitą una volta inserito il cd da catalogare nel
pc, che access lo riconosca tramite internet (cosģ come fa ad esempio
winamp) e mi eviti cosģ la scocciatura di digitare tutte le canzoni e
l'autore.
Grazie


title: Access e la musica

author: Nix

text:
Ciao,
secondo me dovresti implementare nel DB la procedura di interrogazione ed
update dei cd che viene utilizzata da quasi tutti i programmi di grabbing e
di editing, oltre naturalmente a winamp, Windows media player e compagni.
Sono gestiti da due grandi siti:
www.cddb.com
 nel quale è gratis solo l'interrogazione via web (cioè tu
digiti il titolo e l'artista ed un motore di ricerca ti trova l'album) tutto
il resto, compresa l'implementazione in programmi di tua invenzione si paga.
www.freedb.org
 nel quale invece la filofofia è più improntata al gratuito.
Su freedb, masticando un pò di inglese, dovresti trovare sufficiente
materiale per creare una routine di interrogazione del tuo DB.
Se ci riesci per favore fammi sapere, anch'io sto creando il mio DB dei CD
musicali
Buon Ferragosto
"Raffi" <
rac...@tin.it
> ha scritto nel messaggio
news:tVge7.6250$KX2....@news2.tin.it...
> Buongiorno a tutto l'ng, e...grazie di esistere!!!
> scherzi a parte, non sapete quanti dubbi mi eliminate....
> comunque ecco il mio problema, ed è inutile dire che sarò immensamente
grato
> a chi potrà e vorrà aiutarmi:
> avendo creato un piccolo database access per catalogare i miei cd audio,
mi
> chiedo se esista la possibilità una volta inserito il cd da catalogare nel
> pc, che access lo riconosca tramite internet (così come fa ad esempio
> winamp) e mi eviti così la scocciatura di digitare tutte le canzoni e
> l'autore.
> Grazie
>
>
>
>


title: anomalia con campo percentuale 800%

author: mario rossi

text:
buongiorno a tutti,

ho un problema con i campi di tipo "percentuale"
in pratica se lascio formattazione della casella di testo come numerico viene visualizzato il valore 8 se imposto "percentuale" viene visualizzato 800%

è possibile visualizzare 8% come mi sarei aspettato?

Grazie a tutti.


title: anomalia con campo percentuale 800%

author: Bruno Campanini

text:
mario rossi wrote :

È sufficiente scrivere 0.08 che sono gli 8/100
che si esprimono con 8%

Bruno


title: anomalia con campo percentuale 800%

text:

quindi per non far scrivere 0.08 all'utente su afterupdate eseguo
me.caselladitesto=me.caselladitesto/100

dovrebbe funzionare.


title: anomalia con campo percentuale 800%

text:
mario rossi has brought this to us :

Certo che funziona, anche se si meraviglierà la scheda di quei Me!
Penserà... 'sto individuo non capisce che tutto ciò che scrive
su di me è roba mia!
Sta a vedere che ci scrive anche il mio nome:
Forms("FormName"]![CasellaDiTesto] = Forms("FormName"]![CasellaDiTesto]
/ 100

Bruno


title: anomalia con campo percentuale 800%

text:

non ho capito l'ironia


title: anomalia con campo percentuale 800%

text:
mario rossi expressed precisely :

Il Me come Metodo quando ti riferisci alla scheda attiva non vale
assolutamente niente. Lo puoi tranquillamente omettere che tutti
quei Me, Me... fanno solo ridere.
È invece indispensabile come Funzione se ti devi
firerire a più campi richiamati da un loop; ad esempio:
For i=1 To 3
    Me("Campo" & i) etc...
Next

Le cose inutili, specie nella programmazione, sono una mia
idiosincrasia
come Dim i As Variant, etc.

Bruno


title: anomalia con campo percentuale 800%

text:
> Il Me come Metodo quando ti riferisci alla scheda attiva non vale
> assolutamente niente. Lo puoi tranquillamente omettere che tutti
> quei Me, Me... fanno solo ridere.
> È invece indispensabile come Funzione se ti devi
> firerire a più campi richiamati da un loop; ad esempio:
> For i=1 To 3
> Me("Campo" & i) etc...
> Next

Allora ti do un suggerimento così puoi eliminarlo del tutto ed eliminare una idiosincrasia inutile:

Me("Campo" & i) etc...  ---->  Controls("Campo" & i)etc...

> Le cose inutili, specie nella programmazione, sono una mia
> idiosincrasia
> come Dim i As Variant, etc.

Ehehehe... disse il faggio...

> Bruno

@Alex


title: anomalia con campo percentuale 800%

text:

qualcuno mi spiega perchè ottengo zero pur digitando il valore 8
tipo campo percentuale decimali zero

Private Sub SbfFondoPerduto_AfterUpdate()
    Me.Controls("SbfFondoPerduto") = Me.Controls("SbfFondoPerduto") / 100
End Sub


title: anomalia con campo percentuale 800%

text:

risolto errore mio nel tipo di campo nella tabella


title: anomalia con campo percentuale 800%

author: RobertoA

text:

E' vero che il  me.caselladitesto non differisce da caselladitesto
Altrettanto vero e' che lo si usa (o almeno io lo uso) per attivare
l'intellisense e far apparire il nome dell'oggetto, rendendo piu' rapido
e preciso il processo di scrittura del nome oggetti che stiamo usando


title: anomalia con campo percentuale 800%

text:

confermo anch'io lo uso per quel motivo.


title: anomalia con campo percentuale 800%

text:
> E' vero che il me.caselladitesto non differisce da caselladitesto
> Altrettanto vero e' che lo si usa (o almeno io lo uso) per attivare
> l'intellisense e far apparire il nome dell'oggetto, rendendo piu' rapido
> e preciso il processo di scrittura del nome oggetti che stiamo usando

Proprio così è una questione di "intellisense"...

@Alex


title: anomalia con campo percentuale 800%

text:

ahahahahaha


title: anomalia con campo percentuale 800%

author: Vladimiro Leone

text:
Il giorno mercoledì 30 dicembre 2020 alle 12:02:47 UTC+1 RobertoA ha scritto:

mica tanto... magari vorrai dire Me!caselladitesto
> Altrettanto vero e' che lo si usa (o almeno io lo uso) per attivare
> l'intellisense e far apparire il nome dell'oggetto, rendendo piu' rapido
> e preciso il processo di scrittura del nome oggetti che stiamo usando
questo è vero, l'importante è ricordarsi di sostituire il "." con il "!"

Giusto per essere precisi :-)

Vladimiro


title: Concatenamento in esportazione (un po' lungo)

author: pls

text:
Salve a tutti, vi illustro il mio problema:
sto realizzando un programma per la gestione delle ricette mediche dei
pazienti, ho quindi creato la maschera principale che comprende la tabella
principale (Id ricetta, nome paziente, età, data prescrizione, ecc...ecc...)
a cui ho aggiunto una sottomaschera che comprende le varie analisi o
prestazioni che il paziente ha effettuato per ogni sua ricetta (Id codice
prestazione, nome, quantità, costo), con un massimo di 9 prestazioni per
ognuna.
Ora io necessito di esportare ogni singola ricetta in formato di testo
delimitato dove ogni riga del testo comprende tutta la ricetta più le
prestazioni (quindi: nome paziente - età - data - ecc.. - codice prestazione
1 - quantità - codice prestazione 2 - quantità - codice prestazione n -
quantità - ..... fino ad un massimo di 9 codici prestazioni),
il problema nasce dal fatto che la query che realizzo mi fa uscire una riga
per ogni prestazione del paziente, quindi se in una ricetta di un paziente
ci sono 4 prestazioni quando esporto usciranno 4 linee di testo con ognuna
gli stessi dati del paziente più però i 4 diversi codici e quantità delle
prestazioni.
Praticamente vorrei che ogni riga contenesse già tutti i codici prestazioni
effettuati dal paziente per quella ricetta e che quindi la distinzione di
ogni riga sia fatta in base alla ricetta e non alle prestazioni, spero di
essere stato chiaro, credo che ci voglia qualche istruzione sql particolare
ma non sono molto ferrato in questo.
Mi potete aiutare?
Grazie a tutti, ciao.
by Ciro


author: Emyr

text:


prova invece che con una query creare l'esportazione via codice con
dao od ado creando tu la riga da scrivere
Saluti.
Emanuele.


author: massimiliano

text:

scusa ma non mi è
chiaro, cosa ti impedisce di crearti dei report con un livello di
raggruppamento per la ricetta?
ciao
MAssimiliano
--------------------------------
Inviato via
http://usenet.iol.it


text:
"massimiliano" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.iol.it...
>
> scusa ma non mi č
> chiaro, cosa ti impedisce di crearti dei report con un livello di
> raggruppamento per la ricetta?
> ciao
> MAssimiliano
Il problema č che devo esportarli in un file txt e non in un report per
stamparlo, almeno che non si possa creare poi questo file di testo dal
report stesso, ma non credo.
Ciao
by Ciro


title: Ancora problemi con il filtro su maschera

author: bizio

text:
Ciao a tutti,
in una maschera popup ho questa routine sull'evento click di un
pulsante:
Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    'stDocName = "MASCHERA UTENTI PRINCIPALE"
    If Nz(DLookup([ID UTENTE], "tabella utente principale", "[ID
utente]=" & Me![ID UTENTE]), 0) > 0 Then
    'l'utente esiste
    stDocName = "MASCHERA UTENTI PRINCIPALE"
    stLinkCriteria = "[id UTENTE]=" & Me![ID UTENTE]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, Me.Name
    Else
    stDocName = "MASCHERA UTENTI PRINCIPALE"
    stLinkCriteria = "[id UTENTE]=" & Me![ID UTENTE]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
Exit_Comando7_Click:
    Exit Sub
Err_Comando7_Click:
    MsgBox Err.Description
    Resume Exit_Comando7_Click
End Sub
Esso mi consente di "filtrare" e quindi aprirmi in base all'id,la
MASCHERA UTENTI PRINCIPALE (è la scheda utente).
Volevo sapere se c'è un altro modo invece di effettuare il filtro, per
"posizionarmi" sul record interessato della MASCHERA UTENTI PRINCIPALE
dalla maschera popup!!
Leggevo qualcosa riguardo la proprietà SetFocus...può fare al caso
mio??
Ho un problema con il metodo di filtraggio che sto usando finora,e
devo trovare un modo alternativo!!
Grazie per l'aiuto


text:
bizio ha scritto:

Qualche suggerimento,please?
Non capisco la causa e non riesco a risolvere


text:
"bizio" <
fabriz...@libero.it
> ha scritto nel messaggio
news:1182154206....@g4g2000hsf.googlegroups.com...
bizio ha scritto:


[risposta]
Sul sito comune Sezione Forms trovi esempi su maschere che cercano in altre
maschere...
Ciao.
--
Sergio MAZZA


title: Problemi con formato orario

author: Agos

text:
Salve
- Gestisco da access dati contenuti in un db mysql via ODBC.
- Ho una tabella contenente un campo con date di tipo 'Date' e altri due
contenenti orari di tipo 'Time' che
mysql memorizza in entrambi i casi nel formato "yyyy-mm-dd hh:mm:ss".
- Ho poi una maschera per la modifica di questi valori e nei campi
contenenti gli orari ho impostato:
--> Formato:     "Ora Breve"  (es. 17.30)
--> Maschera di input:   00.00;0;_
 A prima vista sembrerebbe tutto regolare.
- Il problema è che appena entro con il cursore nei campi per una modifica
viene mostrato il formato completo, "yyy-mm-dd HH:mm:ss" e non quello di
input impostato. Quest'ultimo viene mostrato soltanto in fase di primo
inserimento.
Come potrei evitarlo?
Dovrei forse modificare il tipo di dato impostato in tabella da Time a
stringa? Vorrei evitare questa soluzione che mi sembra sporca e mi creerebbe
problemi nella gestione successiva dei valori.
Qualche suggerimento?
Ciao, Agos


title: Creazione di DDL di tabella

author: Gabriele

text:
Cosa si intende con la frase in oggetto?
Nell'articolo si parla di creare una tabella in A2000 con un vincolo
definito in un'altra tabella ( constraint)  e regole di convalida.
saluti


title: Creazione di DDL di tabella

text:
"Gabriele" <
serio...@tin.it
> ha scritto nel messaggio
news:xNxhd.112504$b5.55...@news3.tin.it...

Beh non ho capito molto in realtà comunque
i comandi SQL si dividono in ddl e dml
I comandi dml (Data Manipulation Language)
sono i comandi tipo insert, select, update e delete
che manipolano i dati.
I comandi che creano la definizione dei dati cioè
i comandi come create table, create index ...
sono detti ddl (data definition language).
                danilo


title: Creazione di DDL di tabella

text: si era questo, grazie


title: Casella di testo rotonda

author: Fabio

text:
Vi Prego di non considerare come bizzarra o come presa in giro questa mia
domanda, che francamente lo può sembrare. In un report ho costruito una
casella di testo dove vorrei rappresentare con una faccina l'andamento di un
risultato. Ho scritto la seguente stringa nell'origine del controllo:
=IIf(([Nr]/2)<=[Controllo];"L";"")  formattando con il carattere Wingdings e
la formattazione condizionale appropriata, ottengo la faccina rossa. Vorrei
poter colorare tutta la faccina di rosso, usando la formattazione
condizionale, ma in maniera che risulti rotonda.
Chiedo è possibile costruire una casella di testo per questo scopo rotonda?
Grazie a TUTTI
Fabio


title: Casella di testo rotonda

author: Marco Pizzamiglio

text:
Fabio ha scritto:
> Vi Prego di non considerare come bizzarra o come presa in giro questa mia
> domanda, che francamente lo puň sembrare. In un report ho costruito una
> casella di testo dove vorrei rappresentare con una faccina l'andamento di un
> risultato. Ho scritto la seguente stringa nell'origine del controllo:
> =IIf(([Nr]/2)<=[Controllo];"L";"")  formattando con il carattere Wingdings e
> la formattazione condizionale appropriata, ottengo la faccina rossa. Vorrei
> poter colorare tutta la faccina di rosso, usando la formattazione
> condizionale, ma in maniera che risulti rotonda.
> Chiedo č possibile costruire una casella di testo per questo scopo rotonda?
> Grazie a TUTTI
> Fabio
Perchč non usi un controllo immagine e un paio di piccoli files .bmp che
puoi richiamare a piacimento da codice?
Cosě li puoi fare di che dimensione e risoluzione vuoi, anche multicolor,
e non sei legato ai font.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Casella di testo rotonda

text:
> Perchč non usi un controllo immagine e un paio di piccoli files .bmp che
> puoi richiamare a piacimento da codice?
> Cosě li puoi fare di che dimensione e risoluzione vuoi, anche multicolor,
> e non sei legato ai font.
> Ciao.
> -Marco-
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
Marco,
La Tua č un'ottima idea, mi dai una dritta sul codice? Confesso di essere a
digiuno di VBA.
Grazie fin d'ora.
Fabio


title: Casella di testo rotonda

text:
Fabio ha scritto:
> > Perchè non usi un controllo immagine e un paio di piccoli files .bmp che
> > puoi richiamare a piacimento da codice?
> > Così li puoi fare di che dimensione e risoluzione vuoi, anche multicolor,
> > e non sei legato ai font.
> > Ciao.
> > -Marco-
> > questo articolo e` stato inviato via web dal servizio gratuito
> >
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
> Marco,
> La Tua è un'ottima idea, mi dai una dritta sul codice? Confesso di essere a
> digiuno di VBA.
> Grazie fin d'ora.
> Fabio
Prima crea le due (o più) immagini .bmp e salvale nella stessa cartella
del database (o dove ti è più comodo).
Poi inserisci nel report un controllo immagine scegliendo una qualsiasi
delle immagini, vai sulle proprietà e cancella il nome dell'immagine in
modo che risulti vuota.
Nel codice, sull'evento stampa, puoi assegnare al controllo un'immagine
scrivendone il nome e percorso nella proprietà Picture.
Riporto un esempio. Io ho messo le immagini nella stessa cartella del db,
se le salvi altrove sostituisci CurrentProject.Path con il percorso della
tua cartella.
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
    If Me.K2 > Me.K1 Then
        Me.Immagine.Picture = CurrentProject.Path & "X.bmp"
    Else
        Me.Immagine.Picture = CurrentProject.Path & "O.bmp"
    End If
End Sub
Ciao.
-Marco-
--



title: Casella di testo rotonda

text:
> Prima crea le due (o più) immagini .bmp e salvale nella stessa cartella
> del database (o dove ti è più comodo).
> Poi inserisci nel report un controllo immagine scegliendo una qualsiasi
> delle immagini, vai sulle proprietà e cancella il nome dell'immagine in
> modo che risulti vuota.
> Nel codice, sull'evento stampa, puoi assegnare al controllo un'immagine
> scrivendone il nome e percorso nella proprietà Picture.
> Riporto un esempio. Io ho messo le immagini nella stessa cartella del db,
> se le salvi altrove sostituisci CurrentProject.Path con il percorso della
> tua cartella.
>
> Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
>     If Me.K2 > Me.K1 Then
>         Me.Immagine.Picture = CurrentProject.Path & "X.bmp"
>     Else
>         Me.Immagine.Picture = CurrentProject.Path & "O.bmp"
>     End If
> End Sub
>
> Ciao.
> -Marco-
Perfetto Marco!
Non senza difficoltà, ma ci sono riuscito. Starai ridendo, di fatto si
tratta di un copia ed incolla. Però non mi funzionava, pur mettendo le
immagini nella stessa directory usando il CurrentProject.Path, ma con la
dritta che mi avevi anticipato di metterci il Path, dopo aver capito come
scriverlo, intendo dire apici e slash: obbiettivo raggiunto. GRAZIE!!!
Permettimi un'ultima domanda se avrai tempo e possibilità di rispondere:
Dovendo utilizzare per questo scopo una sezione diversa del Report, per
esempio l'intestazione report, dove non trovo l'evento: stampa, la cosa è
possibile oppure no?
Grazie in ogni caso per la Tua disponibilità
Ciao a TUTTI Fabio


title: Casella di testo rotonda

text:
Fabio ha scritto:


Tutte le sezioni di un report hanno l'evento Stampa, anche quelle che puoi
personalizzare tu in "Ordinamento e raggruppamento".
Cerca nella finestra delle proprietà, scheda "Evento".



title: Casella di testo rotonda

text:
> Tutte le sezioni di un report hanno l'evento Stampa, anche quelle che puoi
> personalizzare tu in "Ordinamento e raggruppamento".
> Cerca nella finestra delle proprietà, scheda "Evento".
> Ciao.
> -Marco-
Hai perfettamente RAGIONE, mi sono preso un abbaglio, perchè guardavo le
proprietà del REPORT, non della sezione, cavolina che figuraccia!!!
Ultimissima domanda: sulle maschere si può applicare questa tecnica?
Scusa l'insistenza.
GRAZIE ancora Fabio


title: Casella di testo rotonda

text:
Fabio ha scritto:


Sulle maschere singole (che visualizzano un solo record per volta)
sicuramente si.
Sulle continue no, perchè quando carichi l'immagine in uno dei controlli
la carica anche in tutti gli altri record.
Devi trovare qualche trucchetto, per esempio inserire nella maschera le
varie immagini possibili, ognuna in un suo controllo, sovrapporli e usare
la formattazione condizionale per rendere visibile solo quello che ti
serve.



title: Casella di testo rotonda

text:
> Sulle maschere singole (che visualizzano un solo record per volta)
> sicuramente si.
> Sulle continue no, perchè quando carichi l'immagine in uno dei controlli
> la carica anche in tutti gli altri record.
> Devi trovare qualche trucchetto, per esempio inserire nella maschera le
> varie immagini possibili, ognuna in un suo controllo, sovrapporli e usare
> la formattazione condizionale per rendere visibile solo quello che ti
> serve.
> Ciao.
> -Marco-
Bene, comincio da subito a provarci.
Grazie di TUTTO.
Ciao Fabio


title: Problemino su 'Show_Hide_Access_W.zip'

author: Pinko Pallino

text:
Ho scaricato l'esempio 'Show_Hide_Access_W.zip' da 'sitocomune' e vorrei
porvi il seguente quesito:
Stò creando un prg che all'avvio attraverso 6 query mi importa dei dati
tramite OBDC.
Poiché il tutto è piuttosto lento, per non dare una sensazione che il prg
sia in blocco, ho creato una form con 6 segmenti i quali cambiando di colore
di query in query danno la sensazione di una barra di avanzamento e quindi
rendono l'idea del tempo di attesa (poco meno di 4 min.).
Fino qua, tutto ok.
Volevo usare il programma 'Show_Hide_Access_W.zip' d'esempio, per creare
l'effetto di un nag d'avvio quindi senza sfondo dell'applicazione ma con la
sola finestra form e relativa barra d'avanzamento.
Il problema è che se utilizzo il comando nascondi e clicco su un'altra
applicazione non riesco più ad avere il 'tastino' (mi sfugge il termine
esatto) sotto sulla barra d'avvio, e quindi per richiamare il nag devo usare
la combinazione di tasti ALT-TAB.
Come posso fare affinche il 'tastino' mi rimanga e che quindi possa
richiamare (se voglio) l'applicativo (anche solo per vedere a che punto si
trova)? Calcolando di dover distribbuire l'applicazione non tutti conoscono
la combinazione di tasti x il richiamo..
Ciao, Pinko


title: VBA - Comando Shell

author: Il Bove

text:
Ciao a tutti.
Devo lanciare in shell il programma openssl per criptare delle stringhe.
Se lancio il comando da prompt funziona bene, se lo lancio da shell (con
tutta la path giusta) non mi funziona, anche se openssl non ha un gran
debug per far capire se qualcosa è andato bene o male.
Se registro il valore di shell in una variabile di tipo double mi esce
164. Ho provato a vedere su google se corrisponde ad un codice di errore
ma non sono riuscito a trovare nulla.
C'è qualcosa da sapere sull'utilizzo del comando Shell?
Grazie
Bye
Il Bove


title: VBA - Comando Shell

author: Antonio Biso

text:
"Il Bove" <
ilb...@microsoft.com
> ha scritto nel messaggio
news:euas75$pat$1...@aioe.org...

magari dovresti postare la stringa di comando della shell
Antonio


title: VBA - Comando Shell

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:8C6Oh.35522$J11.7...@twister1.libero.it...
> "Il Bove" <
ilb...@microsoft.com
> ha scritto nel messaggio
> news:euas75$pat$1...@aioe.org...
>>
>> C'è qualcosa da sapere sull'utilizzo del comando Shell?
>
> magari dovresti postare la stringa di comando della shell
>
> Antonio
>
Ok, ma la stringa funziona se la lancio da prompt, cmq
Shell "c:\programmi\gnuwin32\bin\openssl rsautl -encrypt -in
chiaro.txt -out criptato.txt -inkey certificato.cer -certin -pkcs"
grazie
Il Bove


title: VBA - Comando Shell

text:
"Il Bove" <
ilb...@microsoft.com
> ha scritto nel messaggio
news:euat52$r32$1...@aioe.org...

Quando dici che non funzona cosa intendi?
Il messaggio di errore di access quale è, se c'è?
Antonio


title: VBA - Comando Shell

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:RW6Oh.39544$zG1.3...@twister2.libero.it...

Trovato.
Access non va in errore, ma da shell di access devo "referenziare" i
file con il loro path completo.
Da start esegui quella stringa fa il suo sporco lavoro, mentre da shell
devo scrivere
Shell "c:\programmi\gnuwin32\bin\openssl rsautl -encrypt -in
c:\programmi\gnuwin32\bin\chiaro.txt -out
c:\programmi\gnuwin32\bin\criptato.txt -inkey
c:\programmi\gnuwin32\bin\certificato.cer -certin -pkcs"
e tutto funziona benissimo...
mah
Grazie cmq
Il Bove


title: Eseguire una  Query attraverso porta RS-232

author: Gicap

text:
E' possibile eseguire una query per mezzo di  una stringa di testo ricevuta
attraverso la porta RS 232?
In tal caso potete aiutarmi indicandomi un codice ad hoc?
Grazie


author: Carlo Costarella

text:
"Gicap" <
a...@libero.it
> ha scritto nel messaggio
news:lR5Lf.4043$A83.1...@twister1.libero.it...

Sì si può.
La tecnica è sempre la solita. I dati ricevuti dalla com vanno analizzati e
accodati in una tabella. Su questa potrai fare tutte le query che vuoi e in
tempo reale.
Vedi altri post sulla porta seriale (com), l'evento On com del controllo,
ecc.
Tutto dipende da cosa arriva alla porta...
Ciao, Carlo


text:
Grazie
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43fd8759$0$5992$4faf...@reader2.news.tin.it...
>
>
> "Gicap" <
a...@libero.it
> ha scritto nel messaggio
> news:lR5Lf.4043$A83.1...@twister1.libero.it...
> >
> > E' possibile eseguire una query per mezzo di  una stringa di testo
> > ricevuta
> > attraverso la porta RS 232?
> > In tal caso potete aiutarmi indicandomi un codice ad hoc?
> > Grazie
> >
> >
>
> Sě si puň.
> La tecnica č sempre la solita. I dati ricevuti dalla com vanno analizzati



title: Problema con formule Primo e Ultimo nelle query

author: Luca Tedeschi

text:
Salve a tutti,
Il mio problema è il seguente
ho due tabelle
TAB1
ID_archivio   contatore
VarA           numerico
TAB2
ID_visitesucc    contatore
ID_archivio       numerico
Data_visita       data
VarB                numerico
Le tabelle sono in relazione uno a molti tramite ID_archivio
Devo creare una query per poter estrarre la VarB in relazione
alla prima o all'ultima visita effettuata in ordine cronologico stabilito da
data_visita.
Mi spiego meglio se ho 100 pazienti che hanno fatto due visite in epoche
successive voglio vedere selezionare ad esempio i valori di VarB riscontrati
all'ultima visita.
Ho provato a creare una query
SELECT Tabella1.ID_archivio, First(Tabella2.varB) AS PrimoDivarB,
First(Tabella2.data) AS PrimoDidata
FROM Tabella1 INNER JOIN Tabella2 ON Tabella1.ID_archivio =
Tabella2.ID_archivio
GROUP BY Tabella1.ID_archivio;
che tuttavia non funziona in quanto per alcuni pazienti mi dà il valore
corretto (ad esempio quello dell'ultima visita) ma per altri mi da' quello
della prima visita.
Sicuramente sbaglio qualcosa. Potreste aiutarmi
Grazie
Luca T


author: giorgio rancati

text:
"Luca Tedeschi" <
lucate...@aliceposta.it
> ha scritto nel messaggio
news:trsTd.587268$b5.26...@news3.tin.it...

Ciao Luca,
direi che c'è un errore di fondo, la funzione di aggregazione First non
restituisce la prima data in ordine cronologico ma la prima data inserita in
archivio, questa  può non corrispondere alla prima visita per vari motivi :
cancellazione e reinserimento prima visita, ordine di inserimento non
rispettato in fase di popolamento del database con dati storici ecc.
Se vuoi estrare i dati dell'ultima visita dovrai cercare la data più alta
Max(data) non First(Data), inoltre se vuoi sapere il valore di VarB
associato alla data più recente non potrai sottoporlo a funzione di
aggregazione.
Prova a vedere se questa soluzione che estrae la data dell'ultima visita e
il relativo varB può andare bene
--------------------
SELECT Tabella1.ID_archivio, Tabella2.varB,
Tabella2.data
 FROM (Tabella1 INNER JOIN Tabella2 ON Tabella1.ID_archivio =
 Tabella2.ID_archivio)
WHERE Tabella2.Data=(Select Max(Data)
                     From Tabella2 T2
                     WHERE T2.Id_Archivio=Tabella2.Id_Archivio)
--------------------
Ciao Giorgio


text:
> Ciao Luca,
>
> direi che c'č un errore di fondo, la funzione di aggregazione First non
> restituisce la prima data in ordine cronologico ma la prima data inserita
in
> archivio, questa  puň non corrispondere alla prima visita per vari motivi
:
> cancellazione e reinserimento prima visita, ordine di inserimento non
> rispettato in fase di popolamento del database con dati storici ecc.
>
> Se vuoi estrare i dati dell'ultima visita dovrai cercare la data piů alta
> Max(data) non First(Data), inoltre se vuoi sapere il valore di VarB
> associato alla data piů recente non potrai sottoporlo a funzione di
> aggregazione.
>
> Prova a vedere se questa soluzione che estrae la data dell'ultima visita e
> il relativo varB puň andare bene
> --------------------
> SELECT Tabella1.ID_archivio, Tabella2.varB,
> Tabella2.data
>  FROM (Tabella1 INNER JOIN Tabella2 ON Tabella1.ID_archivio =
>  Tabella2.ID_archivio)
> WHERE Tabella2.Data=(Select Max(Data)
>                      From Tabella2 T2
>                      WHERE T2.Id_Archivio=Tabella2.Id_Archivio)
> --------------------
>
>
> Ciao Giorgio
>
>
Grazie,
le informazioni che mi hai dato sono utili e le query ora sono coerenti
Luca Tedeschi


text:
"Luca Tedeschi" <
lucate...@aliceposta.it
> ha scritto nel messaggio
news:ecNTd.591507$b5.26...@news3.tin.it...
> > Ciao Luca,
> >
[CUT]
>
> Grazie,
> le informazioni che mi hai dato sono utili e le query ora sono coerenti
>
prego, solo un'ultima cosa....
Se hai problemi di prestazioni usa questa query
-------------------
SELECT Tabella1.ID_archivio, Tabella2.varB,
Tabella2.data
 FROM (Tabella1 INNER JOIN Tabella2 ON Tabella1.ID_archivio =
 Tabella2.ID_archivio)
INNER JOIN [SELECT Max(Data) AS MaxData,
            ID_Archivio
            FROM Tabella2
            GROUP BY Id_Archivio]. AS Tx
ON Tabella2.Data=Tx.MaxData AND Tabella2.ID_Archivio=Tx.Id_Archivio
--------------------
Restituisce lo stesso risultato e in presenza di molte righe può essere
centinaia di volte più veloce di quella precedente.
Ciao Giorgio


title: //CHECK IT :  CAD  PROGRAMS \ ...

author: David

text:
CAD PROGRAMS
--------------------
Email.for.any.further.information-
->international.shipping : NO CHARGE
->all payment methods
--------------------
All information :
mailto:
dav_...@hotpop.com
PART OF LIST [email me for full list]:
/>/
/>/3D STUDIO MAX  6
/>/3D STUDIO VIZ  4.2 SP2
/>/ABAQUS  6.4-1
/>/ACCEL P-CAD  2002
/>/ALIAS WAVEFRONT  MAYA UNLIMITED  5.01
/>/ALLPLAN  2004 <<<<<<<<<
/>/ANSYS  8.1
/>/ARCHICAD  8.1R1
/>/ARTLANTIS  4.5
/>/AUTODESK ARCHITECTURAL DESKTOP  2005 <<<<<<<
/>/AUTODESK AUTOCAD  2005 + LEARNING ASSISTANCE <<<<<
/>/AUTODESK RASTER DESIGN  2005 <<<<<<<<
/>/AUTODESK INVENTOR SERIES  8
/>/AUTODESK LAND DEVELOPMENT DESKTOP  2005 <<<<<
/>/AUTODESK MAP  2004
/>/AUTODESK MECHANICAL DESKTOP  2004
/>/AUTODESK MECHANICAL  2004
/>/AVID SOFTIMAGE  3D 4
/>/BENTLEY MICROSTATION  8.1
/>/CADENCE ORCAD  10
/>/CADKEY EX  21.5
/>/CATIA  5R13 <<<<<<<<<
/>/CATIA  DOCUMENTATION
/>/CGTECH VERICUT  5.3
/>/CHIEF ARCHITECT  9.5
/>/CIMATRON ELITE  5
/>/CIMATRON IT  13.1
/>/COREL BRYCE  5
/>/DELCAM ARTCAM PRO  6 <<<<<<<
/>/DELCAM COPYCAD  5.002 <<<<<<<
/>/DELCAM POWERMILL  5 <<<<<<<
/>/DELCAM POWERSHAPE  5.4 <<<<<<<
/>/EDS UNIGRAPHICS NX  2
/>/EDS CAST FOR UNIGRAPHICS NX  2
/>/EDS MOLDWIZARD FOR UNIGRAPHICS NX  2
/>/FLUENT COMPLETE SUITE  6.1
/>/GIBBS CAM 2004  7.0 <<<<<<
/>/GRAPHITECH CIMAGRAPHI  6.7
/>/IRONCAD  6
/>/MASTERCAM  9.1 SP2
/>/MATHCAD  11A PROFESSIONAL
/>/MOLDFLOW PLASTICS ADVISOR  7
/>/MSC ADAMS  2003
/>/MSC DYTRAN  2002R2
/>/MSC MARC  2003 + MENTAT 2003
/>/MSC SUPERFORM  2004
/>/MSC NASTRAN  2004
/>/MSC PATRAN  2004.1
/>/MSC VISUAL NASTRAN DESKTOP  2003
/>/PATHTRACE EDGECAM  8.5
/>/PTC 3DPAINT  2001
/>/PTC CADDS  5I R12
/>/PTC PRO CDRS  2001
/>/PTC PRO ENGINEER  2003 WILDFIRE
/>/PTC PRO ICEM SURF  4.3
/>/PTC PRO MECHANICA  2001
/>/RAINDROP GEOMAGIC STUDIO  5
/>/ROBOT  17.0.1
/>/SDRC FEMAP  8.3
/>/SDRC I-DEAS  10 NX
/>/SOLID EDGE  15
/>/SOLIDWORKS  2004
/>/STAAD PRO DESIGN STUDIO  2003
/>/SURFWARE SURFCAM  2003
/>/TEBIS CAD  3.1 R12
/>/TEKSOFT CAMWORKS  2003
/>/TEKSOFT PROCAM  2003
/>/THINK DESIGN  8.4.1
/>/TURBO CAD PROFESSIONAL  9
/>/VERO: VISI SERIES  11
/>/WORKNC  15.9
/>/WORKING MODEL 4D  6.1.015
/>/XSTEEL  9.1
All information :
mailto:
dav_...@hotpop.com
842883494760668487377
739333915654534650


title: help reports

text:
su una maschera, mediante creazione guidata, ho installato un pulsante per
l'anteprima report. Il report che mi viene mostrato perň non č quello con i
dati presenti nella maschera, ma quello relativo ai dati del primo record
presente nella tabella. Perchč? Dov'č l'errore di sincronizzazione dal
momento che la creazione guidata non permette di associare i campi ID?


title: help reports

author: Peter

text:
"imbranato2000" <
fr...@libero.it
> ha scritto nel messaggio
news:9se4al$5kt$1...@pegasus.tiscalinet.it...

Non ricordo precisamente quando effettua questo tipo di collegamento nei
Wizard ma ti basta modificare la Sub in modo appropriato.
Private Sub TuoPulsante_Click()
On Error GoTo Err_TuoPulsante_Click
    Dim stDocName As String
    Me.Refresh
    stDocName = "TuaMaschera"
    DoCmd.OpenReport stDocName, acPreview, , "ID_Record = " & Me.ID_Record
Exit_TuoPulsante_Click:
    Exit Sub
Err_TuoPulsante_Click:
    'MsgBox Err.Description
    Resume Exit_TuoPulsante_Click
End Sub


title: Somma variabile in base a dati filtrati nella maschera

author: Lo

text:
Buongiorno a tutti,
chiedo scusa per la mia ignoranza...
Il mio problema oggi è questo:
In una maschera continua ho inserito una casella che si chiama TxtImporto con questa origine:
=IIf(IsNull(DLookUp("[ImponibileBeniBef]";"QImponibileBeniBef";"[IdBef] =" & [Maschere]![BefRicevute]![IdBef]));"0";(DLookUp("[ImponibileBeniBef]";"QImponibileBeniBef";"[IdBef] =" & [Maschere]![BefRicevute]![IdBef])))+IIf(IsNull(DLookUp("[ImponibileBeniBef]";"QImponibileSubBeniBef";"[IdBef] =" & [Maschere]![BefRicevute]![IdBef]));"0";(DLookUp("[ImponibileBeniBef]";"QImponibileSubBeniBef";"[IdBef] =" & [Maschere]![BefRicevute]![IdBef])))

in ogni rigo vedo quindi la somma di questi due valori che è giusta.
Ovviamente a piè pagina della maschera non posso fare la somma di DLookUp,
quindi ho provato a scrivere così:

=Somma(IIf(IsNull(DLookUp("[ImponibileBeniBef]";"QImponibileBeniBef"));"0";(DLookUp("[ImponibileBeniBef]";"QImponibileBeniBef"))))+Somma(IIf(IsNull(DLookUp("[ImponibileBeniBef]";"QImponibileSubBeniBef"));"0";(DLookUp("[ImponibileBeniBef]";"QImponibileSubBeniBef"))))

ma il totale non è corretto!

Le query dei DLookUp sono le seguenti:
QImponibileBeniBef:
SELECT Bef.IdBef, Bef.TotaleImp, Sum([Quantita]*[PrezzoUnitario]) AS ImponibileBeniBef
FROM Bef INNER JOIN BeniBef ON Bef.IdBef = BeniBef.IdBef
GROUP BY Bef.IdBef, Bef.TotaleImp;

QImponibileSubBeniBef:
SELECT Bef.IdBef, Bef.TotaleImp, Sum([Quantita]*-[PrezzoUnitario]) AS ImponibileBeniBef
FROM Fornitori RIGHT JOIN (Bef INNER JOIN BeniBef ON Bef.IdBef = BeniBef.IdBef) ON Fornitori.IdFornitore = Bef.IdFornitore
WHERE (((Fornitori.Categoria)="SUB") AND ((BeniBef.RigoOrd)=No))
GROUP BY Bef.IdBef, Bef.TotaleImp;

Qualcuno sa dirmi come poter fare?

Grazie mille per chi avesse tempo e voglia di farmi capire...
Buon lavoro a tutti


text:

Il problema deriva dalle query di riferimento perchè ho capito che va bene per trovare il DLookUp di ogni rigo.
Se io creo una query di prova

SELECT Bef.IdBef
FROM Bef INNER JOIN BeniBef ON Bef.IdBef = BeniBef.IdBef
WHERE (((Bef.IdBef) Like [Forms]![BefRicevute]));

dove BefRicevute è la mia maschera continua all'interno della quale ho i campi DLookUp

noto che mi fa vedere solo IdBef della prima riga della maschera e non tutti gli IdBef contenuti nella maschera.
Dove sto sbagliando?
Grazie mille a chi riesce a farmi capire...

a


text:

Ho risolto...
Al posto di DLookUp ho usato una formula più veloce che mi permette di avere i risultati.
Nella query della maschera continua ho creato dei campi tipo:
ImpoSub: Somma(IIf([Fornitori].[Categoria]="SUB" And [BeniBef].[RigoOrd]=Sì;[BeniBef].[PrezzoUnitario]*[BeniBef].[Quantita];0))

Questo fa sì che io possa crearmi i totali corretti a piè maschera.
Chiedo venia per l'inutile disturbo...


title: data calendario

author: DBN

text:
Ho scaricato da sitocomune il programma per poter richiamare il calendario
con il doppio click sulla casella (dove va inserita la data).
Non capisco,   mi appare sempre "posizionato" ai tanti di luglio del 2002.
E' possibile stabilire che al richiamo il calendario si apra
automenticamente posizionandosi sulla data odierna? e se e possibile,
qualcumo mi spiega come?
Grazie in anticipo.


title: data calendario

author: newbie

text:
"DBN" <
dbo...@dalbosco.com
> ha scritto nel messaggio
news:bgl921$nbr2r$1...@ID-91233.news.uni-berlin.de...

nomecalendario.Today


title: data calendario

text:
"newbie" <
marf...@libero.it
> ha scritto nel messaggio
news:8ktXa.25951$cl3.9...@news2.tin.it...

v
Mi spiace non funziona
Ho una maschera denominata calendario.
In un altra maschera ho un campo data 1 dove su doppio click ho inserito
Me.Data1= Date
    DoCmd.OpenForm "CALENDARIO"
Il calendario si apre sempre sbagliato.
Dove inserisco il .Today?


title: Formattazione condizionale stile Excel

author: pfm

text:
salve!
ho una maschera continua con una serie di record
e' possibile in base al valore di un campo es. [importo] colorare lo
sfondo dello stesso e/o lo sfondo di altri campi?
ho provato a farlo, ma il criterio viene preso dal record corrente e
non analizzato record per record
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


title: Formattazione condizionale stile Excel

author: principiante

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3c03f6f4...@news.interbusiness.it...

Puoi solo discernere tra valori maggiori e minori di 0. Guarda sul sito
comune
www.sitocomune.com
Paolo


title: Application.echo non mi funziona

text:
Salve a tutti.
Application.Echo False/True dovrebbe evitare gli sfarfallii dello schermo,
ma che lo usi o no non cambia niente, e, particolarmente in queste 2
routines si producono dei fastidiosi repaint.
Non capisco dove sbaglio
    Dim rst As DAO.Recordset
    Dim strCriteria As String
    Dim result
    Application.Echo False
    Me.FilterOn = False
    Me.OrderBy = "nome"
    Me.OrderByOn = True
    Application.Echo True

    strCriteria = "[Nome] Like '" & InputBox("NOME CLIENTE: ", "Ricerca
Clienti") & "*'"

    Set rst = Me.RecordsetClone
    Application.Echo False
    rst.FindFirst strCriteria

    If rst.NoMatch Then
        Application.Echo False
        Me.OrderBy = "IDcliente DESC"
        Me.OrderByOn = True
        Application.Echo True
              'MsgBox "Nessuna corrispondenza trovata", vbInformation,
"Ricerca clienti"
        result = MsgBox("Nessuna corrispondenza trovata!" & Chr(13) _
        & "INSERIRE UN NUOVO CLIENTE?", vbYesNo + vbExclamation +
vbDefaultButton2 _
        , "Ricerca clienti")

        If result = vbYes Then
            Set rst = Nothing
            Call Comando82_Click
            Exit Sub
        End If
        If result = vbNo Then
        Application.Echo False
        Me.Requery
        Application.Echo True
        End If

     Else
        Application.Echo False
        Me.Bookmark = rst.Bookmark
        Me.Filter = strCriteria
        Me.FilterOn = True
        Me.OrderBy = "nome"
        Application.Echo True
    End If
    Set rst = Nothing
... eccetera
Private Sub Form_Current()
Dim ctl As Control
Application.Echo False
For Each ctl In Me.Controls
   Select Case ctl.ControlType
       Case acTextBox, acComboBox, acListBox
           With ctl
               .FormatConditions.Delete
               .FormatConditions.Add acExpression, acEqual, "IDcliente=" &
Me!IDcliente
               .FormatConditions(0).BackColor = vbYellow
               .FormatConditions(0).Enabled = False
           End With
   End Select
Next ctl
Application.Echo True
End Sub
Dove sbaglio?
Grazie 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: Application.echo non mi funziona

author: Geppo Beach

text:
CIao "Bruno_C" <
br...@msn.com
> ha scritto nel messaggio
news:i21uqj$oh6$1...@news.newsland.it...
> Salve a tutti.
> Application.Echo False/True dovrebbe evitare gli sfarfallii dello schermo,
> ma che lo usi o no non cambia niente, e, particolarmente in queste 2
> routines si producono dei fastidiosi repaint.
> Non capisco dove sbaglio
prova ad usare la proprietą painting per l'oggetto form
>    Dim rst As DAO.Recordset
>    Dim strCriteria As String
>    Dim result
       me.painting=False
>    Me.FilterOn = False
>    Me.OrderBy = "nome"
>    Me.OrderByOn = True
>
>    strCriteria = "[Nome] Like '" & InputBox("NOME CLIENTE: ", "Ricerca
> Clienti") & "*'"
>
>    Set rst = Me.RecordsetClone
>    rst.FindFirst strCriteria
>
>
>    If rst.NoMatch Then
>        Me.OrderBy = "IDcliente DESC"
>        Me.OrderByOn = True
           me.painting=true
>
>              'MsgBox "Nessuna corrispondenza trovata", vbInformation,
> "Ricerca clienti"
>        result = MsgBox("Nessuna corrispondenza trovata!" & Chr(13) _
>        & "INSERIRE UN NUOVO CLIENTE?", vbYesNo + vbExclamation +
> vbDefaultButton2 _
>        , "Ricerca clienti")
>
>        If result = vbYes Then
>            Set rst = Nothing
>            Call Comando82_Click
>            Exit Sub
>        End If
>        If result = vbNo Then
>        Me.Requery
           me.painting=True
>        End If
>
>     Else
>        Me.Bookmark = rst.Bookmark
>        Me.Filter = strCriteria
>        Me.FilterOn = True
>        Me.OrderBy = "nome"
          me.painting=True
>    End If
>    Set rst = Nothing
> ... eccetera
>
>
> Private Sub Form_Current()
> Dim ctl As Control
    me.painting=False
> For Each ctl In Me.Controls
>   Select Case ctl.ControlType
>       Case acTextBox, acComboBox, acListBox
>           With ctl
>               .FormatConditions.Delete
>               .FormatConditions.Add acExpression, acEqual, "IDcliente=" &
> Me!IDcliente
>               .FormatConditions(0).BackColor = vbYellow
>               .FormatConditions(0).Enabled = False
>           End With
>   End Select
> Next ctl
     me.painting=true
> End Sub
>
> Dove sbaglio?
>
> Grazie a tutti
--
Ciao
Geppo


title: Application.echo non mi funziona

text:
Geppo Beach ha scritto:







> >        Me.Requery
>            me.painting=True
> >        End If
> >
> >     Else

>           me.painting=True
> >    End If

>     me.painting=False

>      me.painting=true

Anche com me.painting non funzia..... BOH?



title: Application.echo non mi funziona

author: Alessandro Cara

text:
Bruno_C ha scritto:
> Salve a tutti.
> Application.Echo False/True dovrebbe evitare gli sfarfallii dello schermo,
> ma che lo usi o no non cambia niente, e, particolarmente in queste 2
> routines si producono dei fastidiosi repaint.
> Non capisco dove sbaglio
>
>
Questa prima routine dove e' messa? Su che evento?
>     Dim rst As DAO.Recordset
>     Dim strCriteria As String
>     Dim result
>     Application.Echo False
>     Me.FilterOn = False
>     Me.OrderBy = "nome"
>     Me.OrderByOn = True
che necessita' hai qui di operare sul filteron e sull'order by? Puoi
farlo come else da qualche parte (non ho esaminato col microscopio la
routine)
>     Application.Echo True
>
>     strCriteria = "[Nome] Like '" & InputBox("NOME CLIENTE: ", "Ricerca
> Clienti") & "*'"
>
>     Set rst = Me.RecordsetClone
>     Application.Echo False
>     rst.FindFirst strCriteria
>
>
>     If rst.NoMatch Then
>         Application.Echo False
>         Me.OrderBy = "IDcliente DESC"
>         Me.OrderByOn = True
>         Application.Echo True
>
>               'MsgBox "Nessuna corrispondenza trovata", vbInformation,
> "Ricerca clienti"
>         result = MsgBox("Nessuna corrispondenza trovata!" & Chr(13) _
>         & "INSERIRE UN NUOVO CLIENTE?", vbYesNo + vbExclamation +
> vbDefaultButton2 _
>         , "Ricerca clienti")
>
>         If result = vbYes Then
>             Set rst = Nothing
perche' annulli rst? Ricordati che punta al recordsetclone.
>             Call Comando82_Click
cosa fa questa call? Non e' bello fare queste exit in mezzo ad una routine.
>             Exit Sub
>         End If
>         If result = vbNo Then
>         Application.Echo False
>         Me.Requery
perche' Fai la requery? Hai modificato il recordsource (e neanche
servirebbe)? O la sorgente dati e' cambiata per qualche motivo?
>         Application.Echo True
>         End If
>
>      Else
>         Application.Echo False
>         Me.Bookmark = rst.Bookmark
a che ti serve il bookmark?
>         Me.Filter = strCriteria
>         Me.FilterOn = True
>         Me.OrderBy = "nome"
>         Application.Echo True
>     End If
>
>     Set rst = Nothing
> ... eccetera
>
E comunque in questa routine non vedo punti particolari tali da
provocare lo sfarfallio a meno che non ci sia qualche loop che non si vede.
>
> Private Sub Form_Current()
> Dim ctl As Control
> Application.Echo False
> For Each ctl In Me.Controls
>    Select Case ctl.ControlType
>        Case acTextBox, acComboBox, acListBox
>            With ctl
>                .FormatConditions.Delete
>                .FormatConditions.Add acExpression, acEqual, "IDcliente=" &
> Me!IDcliente
>                .FormatConditions(0).BackColor = vbYellow
>                .FormatConditions(0).Enabled = False
>            End With
>    End Select
> Next ctl
> Application.Echo True
> End Sub
Sei certo che questa routine ti provochi quanto hai descritto?
Solo una volta mi e' capitato di dover usare l'echo e solo perche stavo
modificando dinamicamente la visualizzazione di un controllo a schede.
Qui c'e' la modifica delle formatconditions che potrebbe scatenare quel
problema e l'echo mi sembra posto correttamente.


title: Application.echo non mi funziona

text:
Alessandro Cara ha scritto:
> Bruno_C ha scritto:
> > Salve a tutti.
> > Application.Echo False/True dovrebbe evitare gli sfarfallii dello schermo,
> > ma che lo usi o no non cambia niente, e, particolarmente in queste 2
> > routines si producono dei fastidiosi repaint.
> > Non capisco dove sbaglio
> >
> >
> Questa prima routine dove e' messa? Su che evento?
Sull'evento click di un pulsante (in una maschera continua cha ha origine
da una query)
> >     Dim rst As DAO.Recordset
> >     Dim strCriteria As String
> >     Dim result
> >     Application.Echo False
> >     Me.FilterOn = False
> >     Me.OrderBy = "nome"
> >     Me.OrderByOn = True
> che necessita' hai qui di operare sul filteron e sull'order by? Puoi
> farlo come else da qualche parte (non ho esaminato col microscopio la
> routine)
perchè nella maschera si può cambiare 'ordinamento o filtrare
> >         If result = vbYes Then
> >             Set rst = Nothing
> perche' annulli rst? Ricordati che punta al recordsetclone.
 urka... vero!
> >             Call Comando82_Click
> cosa fa questa call? Non e' bello fare queste exit in mezzo ad una routine.
chiama una maschera di inserimento di un nuovo record.
> >             Exit Sub
> >         End If
> >         If result = vbNo Then
> >         Application.Echo False
> >         Me.Requery
> perche' Fai la requery? Hai modificato il recordsource (e neanche
> servirebbe)? O la sorgente dati e' cambiata per qualche motivo?
per avere a videoil risultato completo della query
> >         Application.Echo True
> >         End If
> >
> >      Else
> >         Application.Echo False
> >         Me.Bookmark = rst.Bookmark
> a che ti serve il bookmark?
refuso
> >         Me.Filter = strCriteria
> >         Me.FilterOn = True
> >         Me.OrderBy = "nome"
> >         Application.Echo True
> >     End If
> >
> >     Set rst = Nothing
> > ... eccetera
> >
> E comunque in questa routine non vedo punti particolari tali da
> provocare lo sfarfallio a meno che non ci sia qualche loop che non si vede.
proverò a riscrivela da zero
> >
> > Private Sub Form_Current()
> > Dim ctl As Control
> > Application.Echo False
> > For Each ctl In Me.Controls
> >    Select Case ctl.ControlType
> >        Case acTextBox, acComboBox, acListBox
> >            With ctl
> >                .FormatConditions.Delete
> >                .FormatConditions.Add acExpression, acEqual, "IDcliente=" &
> > Me!IDcliente
> >                .FormatConditions(0).BackColor = vbYellow
> >                .FormatConditions(0).Enabled = False
> >            End With
> >    End Select
> > Next ctl
> > Application.Echo True
> > End Sub
> Sei certo che questa routine ti provochi quanto hai descritto?
proverò a "remmarla" per vedere se cambia qualcosa.
Grazie, e perdona questo principiante.
Bruno



title: testo condizionato dal valore di un controllo in un report

author: gianni

text:
Ciao a tutti, non riesco ad impostare un report in modo che se il valore
di un controllo è x appaia un certo testo, al contrario se il valore del
controllo è y il testo sia un altro.
In altre parole se il controllo "area" per esempio riporta il valore
sud, allora sul report si deve leggere "bianco"; se il controllo riporta
il valore "nord" si deve leggere "verde".
Grazie
Gianni


author: Karl Donaubauer

text:
gianni wrote:
> ...
> In altre parole se il controllo "area" per esempio riporta il valore
> sud, allora sul report si deve leggere "bianco"; se il controllo
> riporta il valore "nord" si deve leggere "verde".

Origine controllo di una casella di testo:

=Switch(area="sud";"bianco";area="nord";"verde")

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


text:
> Origine controllo di una casella di testo:
>
> =Switch(area="sud";"bianco";area="nord";"verde")
>

Erano due giorni che mi ci sbattevo! E funziona anche se "bianco" e
"verde" sono delle stringhe di testo molto lunghe.
Grazie!

P.S. ma questa sintassi è un linguaggio proprietario di access oppure è
vba? Dove posso trovare la prossima volta questo tipo di funzioni?

Grazie ancora
Gianni


text:
gianni wrote:
>> Origine controllo di una casella di testo:
>>
>> =Switch(area="sud";"bianco";area="nord";"verde")
>
> Erano due giorni che mi ci sbattevo! E funziona anche se "bianco" e
> "verde" sono delle stringhe di testo molto lunghe.
> Grazie!
>
> P.S. ma questa sintassi è un linguaggio proprietario di access oppure
> è vba?

VBA

> Dove posso trovare la prossima volta questo tipo di funzioni?

Qui, ;-) perché di solito nella guida (<F1> nel VBE) o nel catalogo
degli oggetti (<F2> nel VBE) devi già sapere cosa cerchi.



title: Casella Combinata e Nomi Maschere (o Tabelle)

author: chippo

text:
Buon giorno a tutto il NG.
Ho fatto una ricerca (veloce, certo) tra tutti i thread, ma non ho
trovato niente. E perciò vorrei chiedere:
è possibile con una casella combinata andare a pescare i nomi delle
maschere (o delle tabelle, delle query,... insomma degli oggetti del
db), senza dover popolare un elenco o una eventuale tabella che li
contenga?
Sperando di essere stato comprensibile, ringrazio in anticipo e
comunque.


author: Ivan da casa

text:
"chippo" <
chi...@libero.it
> ha scritto nel messaggio
news:1133357672.8...@z14g2000cwz.googlegroups.com...
Buon giorno a tutto il NG.
Ho fatto una ricerca (veloce, certo) tra tutti i thread, ma non ho
trovato niente. E perciň vorrei chiedere:
č possibile con una casella combinata andare a pescare i nomi delle
maschere (o delle tabelle, delle query,... insomma degli oggetti del
db), senza dover popolare un elenco o una eventuale tabella che li
contenga?
Sperando di essere stato comprensibile, ringrazio in anticipo e
comunque.
Ciao Chippo,
io uso comunemente una tabella che contiene TUTTI gli oggetti del mio
database, si tratta di una tabella di sistema (menu Strumenti -- > Opzioni /
Visualizzazione --> Oggetti di sistema).
La tabella si chiama: MSysObjects.
Contiene tutti gli oggetti, come ti dicevo, io la uso da una query che mi
filtra sul campo Type = 6 che corrisponde alle tabelle collegate.
Se guardi, ogni maschera o query nel tuo database, sono elencati ed hanno un
Type diverso. Puoi usare una query che faccia da Recordsource della tua
casella a discesa.
Basta filtrarla sul Type e mostrare il campo Name per la scelta.
(!!! attenzione a non cambiare 'a mano' dei valori in questa tabella! E' UNA
TABELLA DI SISTEMA! Trattala con le molle!)
Comunque, se accedi via VisualBasic , fai riferimento agli insiemi:
QueryDefs e Forms. Non saprei come popolare la combo, senza paddare da una
tabella temporanea.
--
... spero di esserti stato d'aiuto,(facci sapere)
--
--
      /)/)               IVAN                (\/)
     (  '.')         NMCBRMC         ( '.' )
  o(_('')('')                               (")(")_)*
Non Microsoft Certified But Regular
             Microsoft Consumer


text: Super grazie e buona giornata.


text:
Scrivo per ringraziare ancora, perchè è proprio ciò che cercavo.
Filtro sul Type e mostro il Name nel RecordSource della Casella
Combinata proprio come hai detto tu.
Ciao


text:
"chippo" <
chi...@libero.it
> ha scritto nel messaggio
news:1133447235.0...@o13g2000cwo.googlegroups.com...
Scrivo per ringraziare ancora, perchč č proprio ciň che cercavo.
Filtro sul Type e mostro il Name nel RecordSource della Casella
Combinata proprio come hai detto tu.
Ciao
grazie per il riscontro
Ivan


title: semplice macro

author: Tecnoship (tecno 4)

text:
Ma come si puo' far chiudere un database e farne aprire un'altro da una
macro o da codice ?
il comando ApriDatabase o OpenDatabase non riesco a farli funzionare , mi
dice che il comando non e' disponibile !
ciao e grazie
--
---------------------------------------------
Tecnoship s.n.c.
Impianti Navali e Industriali
Mestre - Venezia
tel./FAX +39 (0)41 5312883
e-mail:
tecn...@tecnoship.it
WEB:
www.tecnoship.it
---------------------------------------------


title: intercettare errore 13

author: Mauro

text:
Salve a tutti,
uso access 2007 e in una maschera dove da una listbox scelgo un certo
numero di fatture per poi inviarle ad un report, la selezione viene
fatta sui numeri fattura.
Tutto bene.
Però se seleziono una fattura alla quale non ho inserito il numero mi
apre una finestra di errore con la seguente dicitura: errore di run-
time '13'. Tipo non corrispondente, aprendomi anche la pagina del
codice ed evidenziando una riga.
Come posso modificare il codice che regola questa funzione per
intercettare l'errore in maniera che mi visualizzi solamente una
finestra con scritto "manca il numero fattura" e senza che mi apra la
pagina del codice debug ecc. ecc.?
A seguito il codice inserito:
Private Sub Comando2_Click()
Dim vSelPar As Variant, stIN As String
     stIN = ""
     For Each vSelPar In Testo6.ItemsSelected
         stIN = stIN & CLng(Testo6.ItemData(vSelPar)) & ","
     Next vSelPar
     If stIN > "" Then
        stIN = Left$(stIN, Len(Trim$(stIN)) - 1)
        stIN = "IN(" & stIN & ")"
        DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport, ,
"NFattura " & stIN
     Else
        DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport
    End If
End Sub
Grazie mille a tutti.
Mauro.


title: intercettare errore 13

author: Access

text:
Ciao Mauro wrote:
> Salve a tutti,
> uso access 2007 e in una maschera dove da una listbox scelgo un certo
> numero di fatture per poi inviarle ad un report, la selezione viene
> fatta sui numeri fattura.
> Tutto bene.
> Però se seleziono una fattura alla quale non ho inserito il numero mi
> apre una finestra di errore con la seguente dicitura: errore di run-
> time '13'. Tipo non corrispondente, aprendomi anche la pagina del
> codice ed evidenziando una riga.
> Come posso modificare il codice che regola questa funzione per
> intercettare l'errore in maniera che mi visualizzi solamente una
> finestra con scritto "manca il numero fattura" e senza che mi apra la
> pagina del codice debug ecc. ecc.?
> A seguito il codice inserito:
>
> Private Sub Comando2_Click()
on error goto ErrComando2
> Dim vSelPar As Variant, stIN As String
>
>      stIN = ""
>      For Each vSelPar In Testo6.ItemsSelected
>          stIN = stIN & CLng(Testo6.ItemData(vSelPar)) & ","
>      Next vSelPar
>      If stIN > "" Then
>         stIN = Left$(stIN, Len(Trim$(stIN)) - 1)
>         stIN = "IN(" & stIN & ")"
>         DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport, ,
> "NFattura " & stIN
>      Else
>         DoCmd.OpenReport "CalcoloProvvigioniFatture", acViewReport
>     End If
ErrComando2:
if err.numer = 13 then
msgbox "manca il numero di fattura", vbinformation, "Attenzione...."
Exit sub
end if
> End Sub
>
> Grazie mille a tutti.
   Prego
--
Ciao
Access


title: intercettare errore 13

text:
Splendido.
E' perfetto.
Ciao, grazie ancora.
Mauro.


title: come avere il Prompt + grande.. ??

text:
ciao una richiesta expresso...
come fare ad avere in una maschera
il prompt di dimensioni + grandi di quello di
default ???
grazie....


title: Intervallo giorni

author: Andrea B

text:
avete sottomano una funzione che mi fornisce la data prima e ultima di un
intervallo precostituito (es.settimana corrente, mese corrente, anno
corrente).grazie
andrea


title: Intervallo giorni

author: Pablitomf (Maurizio Facciuti)

text:
"Andrea B" <
kaoti...@virgilio.it
> ha scritto nel messaggio
news:452a1711$0$39887$4faf...@reader4.news.tin.it...

Ma un "intervallo precostituito" č di per se una data prima e ultima,
altrimenti che "intervallo" č... non trovi? Spiegati meglio.


title: Intervallo giorni

author: a bert

text:
-ho una maschera che visualizza un calendario
-nella maschera ci sono dei 'bottoni-filtro' (es.mese corrente)
-cliccando il bottone applico il filtro al recordset
andrea
"Pablitomf (Maurizio Facciuti)" <
keiko...@libero.it
> ha scritto nel
messaggio news:egd85v$27b$1...@area.cu.mi.it...
> "Andrea B" <
kaoti...@virgilio.it
> ha scritto nel messaggio
> news:452a1711$0$39887$4faf...@reader4.news.tin.it...
>> avete sottomano una funzione che mi fornisce la data prima e ultima di un
>> intervallo precostituito (es.settimana corrente, mese corrente, anno
>> corrente).grazie
>>
>> andrea
>
> Ma un "intervallo precostituito" è di per se una data prima e ultima,
> altrimenti che "intervallo" è... non trovi? Spiegati meglio.
>


title: Intervallo giorni

text:
"a bert" <
ndre...@hotmail.com
> ha scritto nel messaggio
news:452a2546$0$4571$4faf...@reader2.news.tin.it...

Regola n° 1... sezione ICAA del Sito comune (
www.sitocomune.com
) ... leggi
attentamente la netiquette, perchè non è come hai fatto tu che si posta in
questo NG.
Regona n° 2... se qualcuno ti chiede di "spiegarti", devi farlo per bene,
altrimenti il tuo secondo POST vale almeno quanto il primo... io credo
d'aver capito cosa intedi, ma mica per tutti è così.
Bene, allora...
se hai 2 campi "DAL" e "AL",
puoi fare così per il mese corrente...
Me.DAL= CVDate(Format(DateAdd("d", -Day(Now) + 1, Now()), "dd/mm/yy"))
Me.AL = CVDate(Format(DateAdd("m", 1, DateAdd("d", -Day(Now) + 1, Now())),
"dd/mm/yy"))
così per quello successivo...
Me.DAL= DateAdd("m", 1, Me.DAL)
Me.DAL = DateAdd("m", 1, Me.DAL)
così per quello precedente...
Me.DAL= DateAdd("m", -1, Me.DAL)
Me.AL = DateAdd("m", -1, Me.AL)
Spero di esser stato chiaro.


title: Intervallo giorni

text:
1)excuse me conosco le regole, andavo di corsa e non ho pulito il msg
2)per quano riguarda il mio quesito è chiaro che sia rivolto a coloro che
usano il vba in access
e la sinteticità in questo caso non è utilizzata a scapito della chiarezza
secondo me
grazie cmq ..ora cedo come implementare la cosa
andrea


title: Intervallo giorni

text:
rispiego: l'unico valore in 'entrata' che si puo' conoscere č la data di
oggi ( con now()).
Da questa devo poter ricavare l'intervallo della settimana corrente(primo e
ultimo giorno della settimana corrente), l'intervallo del mese di
appartenenza, quello dell'anno. L'intervallo dell'anno č banale. Servono gli
altri due.
Oggi cerco di risolverlo. Se qualcuno ha la funzione pronta....Grazie di
Cuore
Andrea


title: Intervallo giorni

text:
"a bert" <
ndre...@hotmail.com
> ha scritto nel messaggio
news:452a3917$0$4579$4faf...@reader2.news.tin.it...
> 1)excuse me conosco le regole, andavo di corsa e non ho pulito il msg
Se lo dici tu...
> 2)per quano riguarda il mio quesito è chiaro che sia rivolto a coloro che
> usano il vba in access
> e la sinteticità in questo caso non è utilizzata a scapito della chiarezza
> secondo me
Bhè... secondo te. Ma dimentichi che questo NG non è solo rivolto a chi
"sà"... ma molto e sprattutto a chi "non sà", per cui fatti un pò 2 conti
sulla sinteticità... è come se tu non conoscessi lo slang degli SMS e ti
trovassi un messaggino della tua fidanzata che ti scrive "TVB"... ti
chiederesti cosa significa o no? ;-)
Cmq spero che la mia risposta ti sia utile.
> grazie cmq ..ora cedo come implementare la cosa
>
> andrea
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Intervallo giorni

text:
"a bert" <
ndre...@hotmail.com
> ha scritto nel messaggio
news:452a39eb$0$4574$4faf...@reader2.news.tin.it...
> rispiego: l'unico valore in 'entrata' che si puo' conoscere è la data di
> oggi ( con now()).
> Da questa devo poter ricavare l'intervallo della settimana corrente(primo
> e ultimo giorno della settimana corrente), l'intervallo del mese di
> appartenenza, quello dell'anno. L'intervallo dell'anno è banale. Servono
> gli altri due.
> Oggi cerco di risolverlo. Se qualcuno ha la funzione pronta....Grazie di
> Cuore
>
> Andrea
Bhè con Now() prendi pure l'ora i minuti e i secondi... credo ti convenga
Date().
Cmq...
Anno:
Prima data: "01/01/"&format(Date();"aaaa")
Ultima data : "31/12/"&format(Date();"aaaa")
Mese :
Prima data: "01/"&format(Date();"mm/aaaa")
Ultima data: CVDate(Format(DateAdd("m", 1, DateAdd("d", -Day(Date()) + 1,
Date()))
Settimana... lasciami pensare...
pensando al primo utile come il lun. e l'ultimo come la dom.
devi controllare prima di tutto il Date() corrente che giorno è con un
format(Date();"ggg")
if format(Date();"ggg") = "Lun" then
    Primo_giorno = Date()
    Ultimo_Giorno = DateAdd("d",6,Date())
End If
if format(Date();"ggg") = "Mar" then
    Primo_giorno = DateAdd("d",-1,Date())
    Ultimo_Giorno = DateAdd("d",5,Date())
end if
if format(Date();"ggg") = "Mer" then
    Primo_giorno = DateAdd("d",-2,Date())
    Ultimo_Giorno = DateAdd("d",4,Date())
end if
if format(Date();"ggg") = "Gio" then
    Primo_giorno = DateAdd("d",-3,Date())
    Ultimo_Giorno = DateAdd("d",3,Date())
end if
if format(Date();"ggg") = "Ven" then
    Primo_giorno = DateAdd("d",-4,Date())
    Ultimo_Giorno = DateAdd("d",2,Date())
end if
if format(Date();"ggg") = "Sab" then
    Primo_giorno = DateAdd("d",-5,Date())
    Ultimo_Giorno = DateAdd("d",1,Date())
end if
if format(Date();"ggg") = "Dom" then
     Primo_giorno = DateAdd("d",-6,Date())
    Ultimo_Giorno = Date()
End if
Dovrebbe essere una cosa del genere... ;)


title: Intervallo giorni

author: sv

text:
Pablitomf (Maurizio Facciuti) ha scritto:


> Cmq...




Oppure:
1° giorno della settimana (Lunedi):
MiaData - WeekDay(MiaData)+2
Ultimo della settimana (Sabato)
MiaData - WeekDay(MiaData)+7
> Dovrebbe essere una cosa del genere... ;)
Vedi una raccolta di funzioni rigradante le date in:
http://www.accessgroup.it/HomeArgomenti.asp?ID=41&Oggetto2=Formattiamo%20le%20date
Ciao
--
salvino
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Intervallo giorni

text:
risolto cosi'
Function PrimoGiornoDellaSettimana(d As Date)
pos = DatePart("w", d, vbMonday)
If pos = 1 Then valore = DateAdd("d", 0, d)
If pos = 2 Then valore = DateAdd("d", -1, d)
If pos = 3 Then valore = DateAdd("d", -2, d)
If pos = 4 Then valore = DateAdd("d", -3, d)
If pos = 6 Then valore = DateAdd("d", -4, d)
If pos = 7 Then valore = DateAdd("d", -5, d)
PrimoGiornoDellaSettimana = valore
End Function
Function UltimoGiornoDellaSettimana(d As Date)
pos = DatePart("w", d, vbMonday)
If pos = 1 Then valore = DateAdd("d", 6, d)
If pos = 2 Then valore = DateAdd("d", 5, d)
If pos = 3 Then valore = DateAdd("d", 4, d)
If pos = 4 Then valore = DateAdd("d", 3, d)
If pos = 5 Then valore = DateAdd("d", 2, d)
If pos = 6 Then valore = DateAdd("d", 1, d)
If pos = 7 Then valore = DateAdd("d", 0, d)
UltimoGiornoDellaSettimana = valore
End Function
Andy


title: Come richiamare in una formula il valore di un campo

author: NCP

text:
Nel mio caso sarebbe:  [TipiCassonetto]![Capacità]
ma non di ogni record, ma di uno in particolare...
Insomma al posto del valore numerico che ho messo ora...


author: Angelo Gregori

text:
NCP wrote:


Dlookup("capacita","tipoCassonetto","NomeCassonetto = '" & <il parametro >
& "' ")
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Codice_ean: Val ([barcode])

author: Zeta

text:
L'oggetto di questo post è il campo di una query
il problema è che mi ritorna i valori dei barcode 13 tipo per esempio
2,006480000002E+12
credo esadecimale?
come faccio ad ottenere il valore in precisione doppia?


title: forse OT...

author: ringo

text:
Qualcuno ha avuto a che fare
con il maledetto formato BTR... btrieve?
non riesco ad importare i dati in access2k...
grazie!
ringo


title: forse OT...

author: Maurizio Borrelli

text:
> "ringo" news:aoluo5$nn$
1...@serv1.albacom.net
:
> Qualcuno ha avuto a che fare
> con il maledetto formato BTR... btrieve?
> non riesco ad importare i dati in access2k...
    Mi dispiace, non posso aiutarti. Ma, visto che non si e' ancora fatto
vivo nessuno, mentre attendi potresti farti un giro da queste parti. Si sa
mai...

http://www.pervasive.com/support/refshelf.asp
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: forse OT...

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:aoprkd$p8tnj$1...@ID-52090.news.dfncis.de...

grazie!
cmq ho diversi problemini
con i driver della pervasive....
ringo


title: IMMISSIONE IN TABELLA DI UN CAMPO NON DIGITATO

author: totobi

text:
Salve essendo un neofita di Access mi trovo in difficoltà ad immettre
un campo ANNO in una tabella, il campo è stato estratto dalla data
fattura, ma non riesco ad aggiornarlo in tabella.
Nome elemento: ANNO
Origine controllo: =year([FT-DFT)]
poi ho provato a inserire nella riga
Prima di aggiornare: Me![FT-ANNO]=ANNO
e non funziona
allora sempre sulla stessa riga ho provato a creare una routine
evento:
Private Sub ANNO_BeforeUpdate (Cancel As Integer)
   Me![FT-ANNO]=ANNO
End Sub
stesso risultato, qualcuno mi può dire dove sbaglio, grazie Toto


author: IgnazioC

text:

ho l'impressione che tu ti confonda con i nomi dei *CAMPI* delle
tabelle ed io nomi dei *CONTROLLI* sulla maschera.
non capisco nel tuo codice perchè esegui Me![FT-ANNO]=ANNO prima
dell'aggiornamento, quando basta che l'origine controllo del tuo
controllo sia impostata a =year([FT-DFT)] (ovviamente il controllo
deve essere collegato al giusto campo della tabella)
cmq io ti consiglio di non seguire questa strada, perchè le regole di
normalizzazione dei database consigliano (o vietano?) di inserire
nella tabella dei campi che siano ricavadili da altri campi.memorizza
quindi soltanto il campo data, quando poi ti servirà saper l'anno
basterà calcolartelo.
ciao


text:

Il controllo =year([FT-DFT]) funziona correttamente e mi prende l'anno
dal campo FT-DFT (data Fattura) solo che non so come fare ad
aggiornare il campo della tabella FT-ANNO che mi serve nell'indice per
evitare che nello stesso anno ci siano due fatture con uguale numero
ma con data diversa.
Ciao grazie


author: Alessandro Cara

text:

Al sourcecontrol  devi assegnare il nome di campo.
Sulla before update lascia l'istruzione che gia' hai immesso.
Se il sorgente del tuo controllo e' =year([FT-DFT)] come pretendi che ti
aggiorni la tabella? In questo maodo hai "disassociato" il controllo
--
ac
y-1=x


text:
On 20 Nov, 16:26, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:

> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Scusa ma a questo punto mi sento più stupido che mai
Se io nell origine controllo metto il nome del campo FT-ANNO me lo
devo anche digitare, io invece volevo ricavarlo dalla data


text:

E' proprio per questo che ho detto di lasciare sulla before update della
data il calcolo dell'anno. E' in quel momento che ne vieni a conoscenza,
fermo restando che i campi calcolati, tranne casi moooooolto
particolari, e' meglio non metterli in tabella. Possono essere
ricalcolati sull'evento di current e se servono per un report basta fare
derivare il recordsource del report da una query che prepari il campo e
poi anche li e possibile calcolarlo a livello di formula sul controllo.
--
ac
y-1=x


text:
On 20 Nov, 16:42, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>

Senti sarò di coccio scusami se insisto ancora ma il tutto non
funziona
considerando che io ho due campi di tabella "FT-DFT che contiene la
data fattura da me digitata"
e "FT-ANNO che è il campo che io vorrei riempire automaticamente con
l'anno della data fattura"
cosa devo inserire nei controlli
Nome lelemento:
Origine controllo:
e Prima di aggiornare:
???


text:
totobi wrote:
[cut]
> Senti sarň di coccio scusami se insisto ancora ma il tutto non
> funziona
> considerando che io ho due campi di tabella "FT-DFT che contiene la
> data fattura da me digitata"
> e "FT-ANNO che č il campo che io vorrei riempire automaticamente con
> l'anno della data fattura"
> cosa devo inserire nei controlli
> Nome lelemento:
> Origine controllo:
> e Prima di aggiornare:
> ???
OrigineControllo di FT-ANNO:FT-ANNO
BeforeUpdate di FT-DFT (anche afterupdate dovrebbe andare bene, una
delle due)
FT-ANNO = year(FT-DFT)
end sub
--
ac
y-1=x


text:
On 20 Nov, 18:17, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> totobi wrote:
>
> [cut]> Senti sarò di coccio scusami se insisto ancora ma il tutto non
> > funziona
> > considerando che io ho due campi di tabella "FT-DFT che contiene la
> > data fattura da me digitata"
> > e "FT-ANNO che è il campo che io vorrei riempire automaticamente con
> > l'anno della data fattura"
> > cosa devo inserire nei controlli
> > Nome lelemento:
> > Origine controllo:
> > e Prima di aggiornare:
> > ???
>
> OrigineControllo di FT-ANNO:FT-ANNO
> BeforeUpdate di FT-DFT (anche afterupdate dovrebbe andare bene, una
> delle due)
> FT-ANNO = year(FT-DFT)
> end sub
> --
> ac
> y-1=x
Buongiorno a tutti, volevo ringraziare Ignazio e Alessandro, che mi
hanno dato una mano a risolvere il problema dell'aggiornamento campi
non digitati.


title: Microsoft ha cambiato qualcosa che riguarda odbc?

author: Greg

text:
Due giorni fa ho lasciato il computer a spegnersi con calma in quanto doveva fare un poco aggiornamenti.

Ieri delle tabelle SQL Server collegate in Access 2010 via ODBC non andavano piu, timeout.
Oggi messo insieme la ditta che ha crato, e fornisce assistenza, il db SQL Server e il nostro sistemista dopo essersi
parlati a lungo non sono riusciti a venire a capo del problema. Ognuno dice che dalla sua parte non ci sono problemi.

Hanno provato a riscrivere i dns
Hanno provato a fare una nuova tabella collegata, inutilmente

Forse è Microsft nell'aggiornamento di due giorni fa a aver modificato qualcosa?
Mi ricordo che circa un annetto fa, dopo un aggiornamento, non andavano piu le tabbelle di testo collegate in excel

--
Greg


author: Ammammata

text:
Il giorno Thu 20 Sep 2018 09:29:56p, *Greg* ha inviato su
it.comp.appl.access il messaggio news:po0sfp$tju$
1...@solani.org
. Vediamo
cosa ha scritto:

> Forse è Microsft nell'aggiornamento di due giorni fa a aver modificato
> qualcosa?
>

già provato il ripristino di sistema a TRE giorni fa?
è la prima prova da fare

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


text:
Il 21/09/18 11:25:45 Ammammata ha scritto:
> Il giorno Thu 20 Sep 2018 09:29:56p, *Greg* ha inviato su
> it.comp.appl.access il messaggio news:po0sfp$tju$
1...@solani.org
. Vediamo
> cosa ha scritto:
>
>> Forse è Microsft nell'aggiornamento di due giorni fa a aver modificato
>> qualcosa?
>>
>
> già provato il ripristino di sistema a TRE giorni fa?
> è la prima prova da fare

MI dicono cdi aver risolto cambiando qualcosa nel firewall

--
Greg


title: Aggiornameto impostazioni di avvio da codice... dove è l'errore?

author: Neo

text:
Grazie a Alex De Rossi ho trovato il codice per impostare le impostazioni
(scusate la ripetizione) di avvio del database
ho riscritto le routine (cambiando per lo più i nomi di alcune variabili)
però non funziona..riuscite ad aiutarmi e a dirmi dove ho sbagliato?
--------------------------------------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!-------------------------------------
Public Sub ImpoIni()
On Error GoTo ErroreIni
Dim Prop As Integer
Const DB_text As Long = 10
    Prop = AggImpAvvio("startupshowdbwindows", DB_text, False)   'finestra
database
    Prop = AggImpAvvio("allowspecialkeys", DB_text, False)       'Tasti
speciali
    Prop = AggImpAvvio("allowtoolbarchanges", DB_text, False)    'barre
incorporate
UscitaIni:
Exit Sub
ErroreIni:
Select Case Err.Number
    Case Else
        MsgBox Err.Number & " " & Err.Description, , "ImpoIni"
        GoTo UscitaIni
End Select
Public Function AggImpAvvio(srtName As String, varType As Variant, varValue
As Variant) As Integer
Dim dbs As Object, prp As Variant
Const ErroreSt = 3270
Set dbs = CurrentDb
On Error GoTo ErroreAgg
dbs.Properties(strname) = vaValue
AggImpAvvio = True
UscitaAgg:
    Exit Function
ErroreAgg:
    If Err = ErroreSt Then
        Set prp = dbs.CreateProperty(strname, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AggImpAvvio = False
        Resume UscitaAgg
    End If
End Function
-------------------------------------------------------!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!------------------------------------------
Il risultato che mi da è: NIENTE
nessun errore e le barre, tasti speciali e finestra database rimangono
attive.
Grazie!!