title: Domanda Su Mde >> Mdb Copia..

author: Luciano (DOC)

text:
SuperPippo ha scritto nel messaggio ...
>scusate la mia domanda banale e da neofita...
>avendo fatto un Db in Access (se Db si pùò chiamare) :o))   x proteggere il
>mio lavoro...
>dato che lavoro in un ente pubblico... converto questo in MDE.... fin quà
>tutto ok !!!
Che vuol dire "dato che lavoro in un ente pubblico"? Se hai sviluppato il
programma durante l'orario di lavoro il proprietario dei 'sorgenti' e' il
datore di lavoro a meno di accordi diversi (improbabili in verita' nel caso
di ente pubblico). Insomma, ti pagano per fare un lavoro...cos'e' che devi
proteggere?
Saluti.
Luciano
(DOC)


title: Domanda Su Mde >> Mdb Copia..

author: Riccardo

text:
Luciano (DOC) <
mc5...@mclink.it
> wrote in message
8ua13i$bn$1...@news.mclink.it...

_________
Se dove lavori ci sono persone che smanettano forse un po' troppo, hai
quindi sempre la necessità di proteggere quello che fai, non è vero?
Magari era sbagliato la frase "dato che lavoro in un ente pubblico" devo
proteggere il mio lavoro...che lascia intendere che se lavoravo da un'altra
parte non c'era bisogno di proteggerlo.
Ciao
Riccardo


title: Domanda Su Mde >> Mdb Copia..

author: SuperPippo

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:3a0886ab...@news.tiscalinet.it...
> Dividere il database in due file mdb: in uno (BackEnd) lascerai
> soltanto le tabelle, nell'altro (FrontEnd) tutto il resto (form,
> report, query, moduli, macro); nel FE allegherai le tabelle presenti
> nel BE e quindi lo convertirai in mde.
> In questo modo la parte soggetta a modifiche (FE) risulta
> completamente indipendente dalla parte contenente i dati (BE)
> consentendoti di rimpiazzarla senza dover salvare e ripristinare i
> dati utente.
> C'č anche un wizard che aiuta ad effettuare questa operazione: menů
> strumenti->aggiunte->divisione database.
>
> Vincenzo Turturro
----------------------------
grazie x la risposta esauriente caro Vincenzo... ho provveduto a fare come
mi dicevi..
perň necessito ancora di qualche spiegazione.....ho diviso il Db ...
il FE mi porta tutto il Db completo... le tabelle hanno delle freccette nere
di lato...
il BE mi mostra solo le tabelle... a questo punto non ho capito come devo
allegare le
tabelle in FE...devo importarle o cosa altro  ???
ooo :-(((  probabilmente nel mio precedente post mi sono espresso male....
intanto rispondo a Luciano(Doc) che il database l'ho fatto in casa nel mio
tempo libero....
ad uso e consumo dell'ente con il quale lavoro...e siccome molti...anche
smanettoni ci mettono le mani volevo appunto fare ciň che ho chiesto.... cmq
grazie x l'aiuto...


title: Domanda Su Mde >> Mdb Copia..

text:
."VT @ home" <
V...@home.it
> ha scritto nel messaggio



title: Domanda Su Mde >> Mdb Copia..

author: VT @ home

text:
Il Wed, 08 Nov 2000 17:55:08 GMT, "SuperPippo" <QRZ?
ik0...@libero.it
>
ha scritto:
>(.....)
>perň necessito ancora di qualche spiegazione.....ho diviso il Db ...
>il FE mi porta tutto il Db completo... le tabelle hanno delle freccette nere
>di lato...
Le freccette nere indicano che le tabelle sono GIA' allegate nel FE.
>il BE mi mostra solo le tabelle... a questo punto non ho capito come devo
>allegare le
>tabelle in FE...devo importarle o cosa altro  ???
Nooooo ! Se le importi nel FE torni al punto di partenza con un unico
mdb che contiene dati e applicazione per la loro gestione !
Se lanciando il BE accedi regolarmente ai tuoi dati, č tutto a posto e
non devi fare altro !



title: Domanda Su Mde >> Mdb Copia..

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:3a09cad...@news.tiscalinet.it...
> Il Wed, 08 Nov 2000 17:55:08 GMT, "SuperPippo" <QRZ?
ik0...@libero.it
>
> ha scritto:
> >(.....)
> >però necessito ancora di qualche spiegazione.....ho diviso il Db ...
> >il FE mi porta tutto il Db completo... le tabelle hanno delle freccette
nere
> >di lato...
>
> Le freccette nere indicano che le tabelle sono GIA' allegate nel FE.
>
> >il BE mi mostra solo le tabelle... a questo punto non ho capito come devo
> >allegare le
> >tabelle in FE...devo importarle o cosa altro  ???
>
> Nooooo ! Se le importi nel FE torni al punto di partenza con un unico
> mdb che contiene dati e applicazione per la loro gestione !
> Se lanciando il BE accedi regolarmente ai tuoi dati, è tutto a posto e
> non devi fare altro !
>
----------------------
Annamo bene...
:-)
-------------------
grazie... e come diceva Totò...nisciuno nasc m'parato !!!


title: MI5 Persecution: bugging and counter-surveillance

text:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-= MI5: bugging and counter-surveillance -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
PO: >Did you ever look for the bugs in your house ? If not, why not ? I mean if
PO: >I thought that was happening to me, I'd search the place from top to bottom,
PO: >I mean I live there I would know if anything was out of place. If I was
PO: >really suspicious, I would call in one of those bug detection teams which
PO: >have those machines that pick up the transmitted radio waves. This
PO: >reminds me of BUGS, that new programme on BBC1 on
That's exactly what we did. We went to a competent, professional detective
agency in London, paid them over 400 quid to debug our house. They used
scanner devices which go to over 1 GHz and would pick up any nearby
transmitter in that range, they also checked the phones and found
nothing... but if the tap was at the exchange, then they wouldn't find
anything, would they?
CS: >Doesn't this suggest to you that there are, in fact, no bugs to be found?
You can assume that they've done this sort of thing to other people in more
"serious" cases, where they would know the targets would suspect the
presence of electronic surveillance. So they will have developed techniques
and devices which are not readily detectable either by visual inspection or
by electronic means. What those techniques might be, I couldn't guess.
In this case, the existence of bugging devices was clear from the
beginning, and they "rubbed it in" with what was said by the boy on the
coach. It was almost as if they wanted counter-surveillance people to be
called in, who they knew would fail to detect the bugging devices, causing
loss of credibility to the other things I would have to say relating to the
harassment.
I did all the things someone in my situation would do to try to find the
bugs. In addition to calling in professional help using electronic
counter-surveillance, I made a close visual inspection of electrical
equipment, plus any points where audio or video surveillance devices might
have been concealed. Of course, I found nothing. Normal surveillance
"mini-cameras" are quite noticeable and require visible supporting
circuitry. It seems to me the best place to put a small video surveillance
device would be additional to a piece of electronic equipment such as a TV
or video. It would be necessary to physically break in to a property to fit
such a device.
2
--
Posted via a free Usenet account from
http://www.teranews.com


title: piccolo progetto per autorun

author: Massimo

text:
Volevo chiedere aiuto per poter ultimare un mio piccolo progetto in VB6.
Il mio problema è questo:
Ho creato un autorun che avvia una maschera compilata con VB6, la quale
all'interno si trovano diversi comandi di opzione e per meglio specificato;
1° pulsante
Installa applicazione + Setup di runtime di access 2000
2° pulsante
Installa applicazione Access 2000 per chi possiede licenza access 2000
3° pulsante
Installa applicazione Access 97 per chi possiede licenza access 97
Devo far si che quando parte l'autorun, mi venga letta la chiave di registro
ed in base alle informazioni ottenute, io riesca a rendere visibile o meno i
comandi desiderati.
Globalmente se all'avvio non trova installato ne access 2000 o 97 si renderà
attivo o visibile solo il comando 1 quindi si procederà all'installazione
con l'applicazione e del runtime da Noi distribuito, se troverà installato
una delle versioni di access renderà attivo il comando corrispondente per la
giusta installazione.
il motivo di questo perchè dovendo distribuire un programma gratuitamente
per i Ns associati, debba essere di facile installazione per i meno svegli e
di più automazione.
Ringrazio anticipatamente per l'aiuto. 1000 1000 Grazie Max.


title: SuperFiltro in un Reoprt

author: Giorgio Barbetta

text:
Ciao al NG,
in una casella di riepilogo filtro e raggruppo i valori del campo 1 (codice
prodotto) affinchè sia visualizzato solo la prima parte del nome (3 byte-
es: FLG è la prima parte del nome di 35 prodotti).
Questi valori poi li dovrei utilizzare come filtro per il report che punta
ai prodotti (filtro su codice prodotto).
Non riesco a passare e/o creare la stringa del filtro in VBA.
For Each varitem In mioctrl.ItemsSelected
    strFiltro = strFiltro & "[NOME_FISICO_PRODOTTO] = '" & _
    Me![StampaDato].ItemData(varitem) & "' OR "
Next varitem
DoCmd.OpenReport "Nome report", acPreview, , strFiltro
Devo usare il metodo Like? Ma come?
Grazie comunque.
giorgio


title: SuperFiltro in un Reoprt

author: Alessandro Cara

text:
Giorgio Barbetta ha scritto:
>

> For Each varitem In mioctrl.ItemsSelected
>     strFiltro = strFiltro & "[NOME_FISICO_PRODOTTO] = '" & _
>     Me![StampaDato].ItemData(varitem) & "' OR "
> Next varitem
>
> DoCmd.OpenReport "Nome report", acPreview, , strFiltro
>
> Devo usare il metodo Like? Ma come?
 For Each varitem In mioctrl.ItemsSelected
     strFiltro = strFiltro & "[NOME_FISICO_PRODOTTO] like '" & _
     Me![StampaDato].ItemData(varitem) & "*' OR "
 Next varitem
cosi?
NB mi sembra che in fondo lasci un "OR" di troppo
alessandro


title: Ultima riga sempre vuota

author: Alessio

text:
Ciao a tutto il newsgroup,
come faccio per non visualizzare l'ultima riga
vuota che si presenta sempre in fondo ad una maschera tabulare?
Grazie
1000
--------------------------------
Inviato via
http://usenet.iol.it


title: Ultima riga sempre vuota

author: Sergio MAZZA

text:
"Alessio" <
ale...@aerostatonet.it
> ha scritto nel messaggio
news:62Z94Z3Z8Y102...@usenet.iol.it...

Nelle proprietą della form (scheda dati) togli la possibilita di inserire
altri record...
Ciao.
--
Sergio MAZZA


title: Ultima riga sempre vuota

text:
Ho provato e funziona, però se devo aggiungere un record come faccio per
farla riapparire?
Il 04 Giu 2002, 16:18, "Sergio MAZZA"
<
sergi...@tiscalinet.it
> ha scritto:
>"Alessio"
<
ale...@aerostatonet.it
> ha scritto nel messaggio
>news:62Z94Z3Z8Y102...@usenet.iol.it...
>> Ciao a tutto il
newsgroup,
>> come faccio per non visualizzare l'ultima riga
>> vuota che
si presenta sempre in fondo ad una maschera tabulare?
>>
>> Grazie
>>
1000
>> --------------------------------
>> Inviato via
http://usenet.iol.it
>Nelle proprietà della form (scheda dati) togli la
possibilita di inserire
>altri record...
>Ciao.
>--
>Sergio MAZZA
--------------------------------
Inviato via
http://usenet.iol.it


title: Ultima riga sempre vuota

text:
"Alessio" <
ale...@aerostatonet.it
> ha scritto nel messaggio
news:151Z35Z117Z21Y1...@usenet.iol.it...
> Ho provato e funziona, però se devo aggiungere un record come faccio per
> farla riapparire?
>
Per favore scrivi la tua risposta dopo il testo del messaggio precedente,
come faccio io; grazie.
Puoi inserire un bottone che abilita l'inserimento dei record:
Es.
'-----------
Private Sub bttnAddRecord_Click()
Me.AllowAdditions = True
End Sub
'-----------
Ciao.
--
Sergio MAZZA


title: Ultima riga sempre vuota

author: Alessio Favilli

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:adipi7$ms7$1...@canarie.caspur.it...

Ok, scusa ma non conosco ancora bene le regole dei NewsGroup.
Appena ho due minuti provo ma credo che non ci siano problemi.
Ti ringrazio per ora e se non mi torna qualcosa sò dove rivolgermi.
Ciao


title: Ultima riga sempre vuota

text:
"Alessio Favilli" <
ale...@aerostatonet.it
> ha scritto nel messaggio
news:B%6L8.3666$d7.5...@news.edisontel.com...
>
>
> Ok, scusa ma non conosco ancora bene le regole dei NewsGroup.
Di nulla; se vuoi puoi leggere le (poche) regole di questo NG qui:
http://www.sitocomune.com/netiquette.htm
.
> Appena ho due minuti provo ma credo che non ci siano problemi.
> Ti ringrazio per ora e se non mi torna qualcosa sò dove rivolgermi.
Che mi devo preoccupare?
>
> Ciao
>
Ciao.
--
Sergio MAZZA


title: Aggiornare Campo tb (Ancora)

author: Napoleone

text:
Buongiorno a tutti.
Ripropongo il quesito, rigurdante l'aggiornamento del record di una tabella,
col valore di un controllo della maschera.
-----------
Con MAssimiliano eravamo rimasti a questo punto:
.....
Adesso finalmente non ci sono più errori!
MA se vado a controllare nella tb_Prodotti nel campo DataUltimoUtil, è
vuoto!
.............
Con
Call fctAggDataUltimoUtilTutti(dDataMovimento)
richiamo il modulo che segue.
Allego quindi per meglio regolarci, cosi com'è adesso:
---------------
Option Compare Database
Function fctAggDataUltimoUtil(codx As String, prex As Date)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from tb_Movimenti_Magazzino
where lCodiceBarreProdotto = '" & codx & "'")
With rst
    .Edit
    !dDataMovimento = prex
    .Update
    .Close
End With
Set rst = Nothing
End Function
Function fctAggDataUltimoUtilTutti(Nux As Date)
Dim RstArt As DAO.Recordset
Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti WHERE
DataUltimoUtil = # " & Nux & "#")
With RstArt
Do
    If Not .EOF Then
        Call fctAggDataUltimoUtil(!lCodiceBarreProdotto,
Nz(!DataUltimoUtil))
    .MoveNext
    End If
Loop Until .EOF
MsgBox "Aggiornato Data ultimo utilizzo"
End With
End Function
-------------------------------
Ciao
Napoleone


title: Aggiornare Campo tb (Ancora)

author: MA

text:

Ciao NApoleone, in questa funzione la data la devi passare tu
Function fctAggDataUltimoUtilTutti(Nux As Date)
con
call fctAggDataUltimoUtilTutti(QuiIndichiIlControlloCheTiServe)
>
>
> Dim RstArt As DAO.Recordset
>
> Set RstArt = CurrentDb.OpenRecordset("select * from Tb_Prodotti WHERE
> DataUltimoUtil = # " & Nux & "#")
e qui lui ti seleziona il prodotto che ha quella data.
Per essere sicuro di risolvere, mi ripeti (non me lo ricordo) bene cosa vuoi
ottenere?
>
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Aggiornare Campo tb (Ancora)

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:m8Ove.22027$TR5....@news.edisontel.com...

Ciao MA,
Vorrei, passare la data del controllo dDataMovimento
(relativamente a quel prodotto) nel campo DataUltimoUtil
della tb_Prodotti.
Se sono stato comprensibile, aggiungo un'altra domanda:
Lo stesso modulo, lo posso richiamare da un'altra Form?
Cambiando la form, cambiano i controlli e quindi anche i riferimenti?
Andrebbe impostato un modulo per ogni form?
Grazie MA,
Napoleone


title: Aggiornare Campo tb (Ancora)

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:m8Ove.22027$TR5....@news.edisontel.com...




title: Aggiornare Campo tb (Ancora)

text:

> Ciao MA,
> Vorrei, passare la data del controllo dDataMovimento
> (relativamente a quel prodotto) nel campo DataUltimoUtil
> della tb_Prodotti.
bene allora deve essere
call fctAggDataUltimoUtilTutti(dDataMovimento)
> Se sono stato comprensibile, aggiungo un'altra domanda:
> Lo stesso modulo, lo posso richiamare da un'altra Form?
certo, se scrivi nello stesso campo delle tabelle va beissimo
> Cambiando la form, cambiano i controlli e quindi anche i riferimenti?
Non è un problema
> Andrebbe impostato un modulo per ogni form?
No, in un modulo a parte metti le function e poi le richiami da dove vuoi.
>
> Grazie MA,
> Napoleone



title: Aggiornare Campo tb (Ancora)

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:VrOve.22034$TR5....@news.edisontel.com...

MA era già cosi...
>> Se sono stato comprensibile, aggiungo un'altra domanda:
>> Lo stesso modulo, lo posso richiamare da un'altra Form?
>
> certo, se scrivi nello stesso campo delle tabelle va beissimo
>
>> Cambiando la form, cambiano i controlli e quindi anche i riferimenti?
>
> Non è un problema
>> Andrebbe impostato un modulo per ogni form?
>
> No, in un modulo a parte metti le function e poi le richiami da dove vuoi.
???
Come prima, non mi aggiorna il campo
> Ciao
> MAssimiliano Amendola
Napoleone


title: Animazione nelle form di Alex Baraldi

text:
 NG buonasera!
 Ho scaricato il file "esempio di animazione nelle forms" sul sito di Alex
Baraldi
Ho dei problemi a realizzare la stessa animazione all'interno di una
maschera di un mio db
Allora ho copiato i file immagine nella stessa directory del db e ho
impostato così il comando4
 Private Sub Comando4_Click()
If Me!Comando4 = True Then
        Me.TimerInterval = 300
  Else
        Me.TimerInterval = 0
End If
..............
 Il comando in questione stampa un report da una query, e mi piacerebbe che
mentre il report viene
elaborato, partisse l'animazione.
Ho impostato anche l'evento timer così come nella demo proposta, ma non
funziona.
L'errore che incontro è : proprietà o metodo non supportati dell'oggetto in
corrispondenza di
Questa riga :  If Me!Comando4 = True Then
Il comando 4 risiede in una sottomaschera e all'interno della stessa ci sono
le immagini.
Ho provato anche con
If
me![Forms]![M_per_packing_list_2674]![ST_M_pck_list_2674].[Form]![comando4]
Ma non ci sono.
 Inoltre vorrei sapere se è possile inibire la barra di progressione che si
avvia mentre lanciata un query.
Grazie a chiunque mi aiuterà
Ciao


title: Animazione nelle form di Alex Baraldi

author: Cinzia

text:
"
Sandro_nospa...@tiscali.it
" <
sape...@tiscali.it
> ha scritto nel
messaggio news:cmtr33$a05$1...@lacerta.tiscalinet.it...

Ciao Sandro,
prova con
 If me.M_per_packing_list_2674.Form.comando4 = true then
Facci sapere!
Saluti
Cinzia


title: Animazione nelle form di Alex Baraldi

author: ALESSANDRO Baraldi

text:
"
Sandro_nospa...@tiscali.it
" <
sape...@tiscali.it
> ha scritto nel
messaggio news:cmtr33$a05$1...@lacerta.tiscalinet.it...

IF Me![ST_M_pck_list_2674]!Comando4=True then....
Perchè invece di usare nomi poco chiari come "COMANDO4" non
usi fin dall'inizio Nomi significativi...., ti aiuta in modo notevole
e non è solo un Vezzo di programmatori pignoli...!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Animazione nelle form di Alex Baraldi

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cmttav$bdh$1...@lacerta.tiscalinet.it...
> "
Sandro_nospa...@tiscali.it
" <
sape...@tiscali.it
> ha scritto nel
> messaggio news:cmtr33$a05$1...@lacerta.tiscalinet.it...
        [CUT]
>
> IF Me![ST_M_pck_list_2674]!Comando4=True then....
>
> Perchè invece di usare nomi poco chiari come "COMANDO4" non
> usi fin dall'inizio Nomi significativi...., ti aiuta in modo notevole
> e non è solo un Vezzo di programmatori pignoli...!
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
> --------------------------------------------------------------------------
-
>
http://www.sitocomune.com/
>
http://www.mantuanet.it/alessandro.baraldi/
> --------------------------------------------------------------------------
-
>
Ciao Cinzia, Ciao Alex:
colgo il suggerimento al volo modifico immediatamente il nome del comando :
Però:
Alla soluzione di Alex
If Me![ST_M_pck_list_2674]!Pcklist = True Then
ho questo problema :
impossibile trovare il campo a cui fa riferimento l'espressione
Alla soluzione di Cinzia
If me.M_per_packing_list_2674.Form.pcklist= true then
 questo :
impossibile trovare il memro o i dati.
BOH?!
Gentilemente per piacere anche questo :



title: Animazione nelle form di Alex Baraldi

text:
> Ciao Cinzia, Ciao Alex:
>
> colgo il suggerimento al volo modifico immediatamente il nome del comando
:
>
> Perň:
>
> Alla soluzione di Alex
>
> If Me![ST_M_pck_list_2674]!Pcklist = True Then
Se "ST_M_pck_list_2674" č il Nome dell'Oggetto SubForm e
"Pcklist" č il nome del controllo inserito nella SubForm la sintassi č
corretta e deve funzionare.
Verifica la corretta scrittura o il corretto riferimento all'oggetto.
Ciao
--
@Alex (Alessandro Baraldi)



title: Animazione nelle form di Alex Baraldi

author: Alessandro Baraldi

text:
"sandro" <
sape...@tiscali.it
> wrote in message
news:f8a97838.0411...@posting.google.com
[CUT]
> Buon giorno Alex,
> L'istruzione è corretta, hai ragione.
> Sono io che ho sbagliato in quanto il pcklist è un pulsante e non un
> interruttore …
> Adesso, inserendo l'istruzione e un'interruttore è ok.
> Volevo però chiederti ancora una cosa :
> Se volessi utilizzare l'animazione con il pulsante e non
> l0'interruttore mentre è in corso la query, è possibile, oppure no ?
> Ho provato negli eventi messi a disposizione, a mettere il
> timerinterval su mouse giu =300 e su mouse su 0, ma ovviamente è
> troppo veloce e non si vede nulla poi lo stesso con tasto su e tasto
> giù.
> In un certo senso se hai utilizzato l'interruttore ci sarà un motivo,
> ma vorrei una conferma !
> Grazie , ciao
Non ricordo bene il Codice e non l'ho sott'occhio, ma sicuramente
si può fare anche con un CommandButton, l'unica accortezza è usare
una Variabile di Tipo Boolean a livello di Form e su Click del
CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
usare la variabile al posto del controllo interruttore.
Ciao.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Animazione nelle form di Alex Baraldi

text:
        [cut]
> Non ricordo bene il Codice e non l'ho sott'occhio, ma sicuramente
> si puň fare anche con un CommandButton, l'unica accortezza č usare
> una Variabile di Tipo Boolean a livello di Form e su Click del
> CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
> usare la variabile al posto del controllo interruttore.
>
> Ciao.
> @Alex
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
Ciao Alex :
ho provato, ma ma non ci riesco proprio:
allora su apertura faccio questo per rendere invisibili le immagini :
Private Sub Form_Open(Cancel As Integer)
For s = 1 To 6
    Me.Controls("copia" & s).Visible = False
Next s
End Sub
questo su timer :
Private Sub Form_Timer()
If Me.flag = True Then
    If I > 0 Then
        Me.Controls("Copia" & I).Visible = False
        If I = 6 Then I = 0
        End If
    I = I + 1
    Me.Controls("Copia" & I).Visible = True
Else
    Me.TimerInterval = 0
End If
(flag č una casella di controllo)
su click per avviare l'animazione, ma
Private Sub Pcklist_Click()
....
Me.flag = True
Me.TimerInterval = 50
......
end sub
Cosě non ottengo alcuna animazione !
Dove sbaglio ??
Grazie Ciao Sandro


title: Animazione nelle form di Alex Baraldi

text:
> Ciao Alex :
> ho provato, ma ma non ci riesco proprio:
> allora su apertura faccio questo per rendere invisibili le immagini :
[CUT]
(flag è una casella di controllo)
> Così non ottengo alcuna animazione !
> Dove sbaglio ??
> Grazie Ciao Sandro
Hai chiesto di farlo con un CommandButton..... ora è diventato
una CheckBox....??
Che vuoi fare....??
Con la CheckBox:
Ti bastava COPIARE e sostituire il nome della sub
    Private Sub Animazione_Click()
con quello del tuo controllo CheckBox.
Il fatto è che l'esempio è talmente ridotto come codice che non c'è molto
da inventare....!!!



title: Animazione nelle form di Alex Baraldi

text:
[CUT]
ciao Alex :
> Hai chiesto di farlo con un CommandButton..... ora č diventato
> una CheckBox....??
> Che vuoi fare....??
Lo voglio fare con un CommandButton, ma avevo capito dal
tuo post di stamattina che dovevo utilizzare una sorta ci controllo
aggiuntivo che a seconoda del suo valore,attivava l'animazione
da qui l'utilizzao della CheckBox
riprendo qui il tuo post:
l'unica accortezza č usare
 una Variabile di Tipo Boolean a livello di Form e su Click del
 CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
 usare la variabile al posto del controllo interruttore.
ho intrepretato il suggerimento cosě.
ho capito male allora ?



title: Animazione nelle form di Alex Baraldi

text:
> Lo voglio fare con un CommandButton, ma avevo capito dal
> tuo post di stamattina che dovevo utilizzare una sorta ci controllo
> aggiuntivo che a seconoda del suo valore,attivava l'animazione
> da qui l'utilizzao della CheckBox
>
> riprendo qui il tuo post:
>
> l'unica accortezza è usare
>  una Variabile di Tipo Boolean a livello di Form e su Click del
>  CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
>  usare la variabile al posto del controllo interruttore.
>
> ho intrepretato il suggerimento così.
>
> ho capito male allora ?
Decisamente.
Una VAriabile di Tipo Boolean non è un Controllo CheckBox anche usando molta
fantasia.
Metti un CommandButton chiamato Animazione al posto dell'Interruttore.
e copia tutto questo codice al posto del precedente.
Option Compare Database
Option Explicit
Private I As Byte
Private flState as Boolean
Private Sub Animazione_Click()
  If flState = True Then
        Me.TimerInterval = 300
  Else
        Me.TimerInterval = 0
  End If
  flstate=not flState
End Sub
Private Sub Form_Timer()
  If I > 0 Then
        Me.Controls("Copia" & I).Visible = False
        If I = 6 Then I = 0
  End If
  I = I + 1
  Me.Controls("Copia" & I).Visible = True
End Sub



title: Animazione nelle form di Alex Baraldi

text:
"sandro" <
sape...@tiscali.it
> ha scritto nel messaggio
news:f8a97838.04111...@posting.google.com...
           [cut]
>
> Buon giorno Alex,
>
> Grazie nuovamente soprattutto per la pazienza.
> Ancora una cosa .
> Ho provato a modificare il codice sull'evento animazione perfarsě che
> mentre esegue crea il report da query, avvii anche l'animazione :
>
> Allora in questo modo appare la prima immagine, viene eseguito il
> report, e solo dopo l'esecuzione del report si avvia l'animazione,
> solo per pochi secondi,a me piacerebbe che l'animazione durasse per
> tutta la durata del report.
> Si puň gestire questa anche questa cosa ?
Stai dando troppa importanza all'estetica.....!!!
Non č possibile quello che chiedi poichč l'azione di Apertura Report
fa sospendere il codice nella Form, che riprende solo ad apertura ultimata.



title: urgente problema access 97 aggionamento SQL

author: stefano

text:
Salve, non sono molto pratico della materia e vorrei se possibile un aiuto.
in ufficio ho access 97 , voglio creare sul mio sito un archivio basato
sulle tabelle del DB in ufficio, sul sito HO UN DB SQL.
Con access2000 ci riesco perchè è molto semplice tramite la creazione di un
progetto gestire il DB SQL come fosse un DB access(creo un DATALINK tra
access ed SQL) ed importare le tabelle con la normale procedura ma con
ACCESS 97 non so come fare non avendo la creazione del progetto.
Potete aiutarmi ??
grazie per risposte
stefano
--------------------------------
Inviato via
http://usenet.libero.it


title: Casella combinata

author: Lorenzo

text:
Problema:
In una maschera Ordini ho un acasella combinata Cliente
e una sottomaschera Daticliente.
Come faccio ad aggiornare i dati della sottomasche selezionando un diverso
cliente ?
Ho provato a impostare Riesegui qry ma mi sposta il puntatore record al
primo
Grazie a chi mi puň aiutare
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Casella combinata

author: Antonio Biso

text:
"Lorenzo " <lgg@.
libero.it
> ha scritto nel messaggio
news:195Z103Z254Z132Y...@usenet.libero.it...
> Problema:
> In una maschera Ordini ho un acasella combinata Cliente
> e una sottomaschera Daticliente.
> Come faccio ad aggiornare i dati della sottomasche selezionando un diverso
> cliente ?
> Ho provato a impostare Riesegui qry ma mi sposta il puntatore record al
> primo
> Grazie a chi mi puņ aiutare
La query origine record della sottomaschera avrą un filtro sul valore della
combo.
Su dopo aggiornamento della combo fai la requery della sottomaschera
Antonio


title: Interfaccia non registrata

author: Alfio

text:
Salve a tutti.
Ho cercato di installare MSDE2000.
Provando a creare un nuovo progetto, access mi restituisce l'errore in
oggetto mentre il Server SQL Desktop è in esecuzione regolarmente
Grazie in anticipo
Alfio


title: report : AGGIUNTA TESTO A CAMPO

author: BB

text:
In un report vorrei visualizzare una frase che comprende anche il valore
di un campo di una query . Es. nella queri vi è un campo contenente un
dato testo, sul report vorrei visualizzare il campo in questo modo
"prospetto per "testo" 2004"
ho provato con una casella di testo composta da "prospetto per" & (testo)
& "2004" ma non và, quale è l'errore?
e quale è la soluzione?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: report : AGGIUNTA TESTO A CAMPO

text:
"BB" <
onof...@tin.it
> ha scritto nel messaggio
news:cbu24f$h7s$1...@news.newsland.it...
> In un report vorrei visualizzare una frase che
comprende anche il valore
> di un campo di una query . Es. nella queri vi è
un campo contenente un
> dato testo, sul report vorrei visualizzare il
campo in questo modo
> "prospetto per "testo" 2004"
>
> ho provato con una casella di testo composta da
"prospetto per" & (testo)
> & "2004" ma non và, quale è l'errore?
> e quale è la soluzione?
>
> grazie
Cosa ti restuituisce precisamente il tuo campo?
MAssimiliano


title: report : AGGIUNTA TESTO A CAMPO

author: Pablitomf

text:
BB ha scritto:
> In un report vorrei visualizzare una frase che comprende anche il valore
> di un campo di una query . Es. nella queri vi è un campo contenente un
> dato testo, sul report vorrei visualizzare il campo in questo modo
> "prospetto per "testo" 2004"
> ho provato con una casella di testo composta da "prospetto per" & (testo)
> & "2004" ma non và, quale è l'errore?
> e quale è la soluzione?
> grazie
Ma è un report basato su questa query? Se si, che errore ti da... se no
spiega meglio la dinamica dei fatti...
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)



title: report : AGGIUNTA TESTO A CAMPO

text:
MA ha scritto:


in effetti il campo della query contiene il nome del mese filtrato es.
febbraio, ora sul prospetto correi visualizzare un testo tipo ELENCO
DIPENDENTI IN FERIE nel MESE DI FEBBRAIO 2004 dove febbraio deve essere il
contenuto della casella della query che varia in base al filtro scelto.
ho provato con ("ELENCO DIPENDENTI IN FERIE nel MESE DI" & [nomemese] &
"2004") dove nome mese è il nome del campo della query



title: report : AGGIUNTA TESTO A CAMPO

text:
"BB" <
onof...@tin.it
> ha scritto nel messaggio
news:cbu3jr$3rr$1...@news.newsland.it...

la sintassi va bene, sicuro che nome mese peschi
bene? Come si chiama il controllo che hai
"sistemato"?
MAssimiliano


title: report : AGGIUNTA TESTO A CAMPO

text:
MA ha scritto:


Ho risolto!!!
avevo omesso di inserire = davanti alla formula e mi dava errore!
quindi é ="ELENCO DIPENDENTI IN FERIE nel MESE DI" & [nomemese] &" 2004"
grazie dell'interessamento!



title: formattazione record per record di un report

author: Michi

text:
Salve,
in un report dove rappresento un'elenco di prodotti con le loro
caratteristiche ho la necessità di cambiare il colore dei dati di tutti
quei prodotti che hanno un determinato valore in un determinato campo.
Come posso fare?
grazie
michi


author: wlady

text:
Michi ha scritto:

Clicca con il tasto destro sul controllo che vuoi cambi il colore e
seleziona formattazione condizionale. Da lì puoi definire il tipo di
formattazzione ed inserire una formula per determinare quando
eseguirla. Sul sito comune trovi qualche esempio sulla formattazione
condizionale..
ciao


title: Origine dati nel report

author: Andrea

text:
AC2000 SR1
W2Ksp3
Ho creato un programmino per la gestione di schede prodotti basato su una
tabella(1) alla quale ho associato un'altra tabella(2) con la categoria ,
per ogni record di tabella(1) ho creato una maschera e su questa ho inserito
una casella combinata che sceglie la categoria dalla tabella(2) e fin quì
tutto ok.
Quando vado a fare il report porto tutti i campi dentro ma per la categoria
mi indica il valore del primo campo della tabella(2) overo un campo ID
mentre io avrei voluto metterci il secondo campo ovvero la descrizione.
Ho provato a mettere nell'origine controllo della casella di testo (nel
repor) =[Forms]![Nome_Form]![Nome_casella_combinata].Column(2) per fargli
prendere il valore dalla casella combinata ma non ha funzionato
Dove sbaglio?


title: Origine dati nel report

text:
"Andrea" <
can...@freemail.it
> ha scritto nel messaggio
news:C%9ya.118221$3M4.2...@news1.tin.it...

Non ho capito perchè tu debba fare riferimento alla maschera.
L'origine record del report sarà una query sulla tabella 1, filtrata magari
per il record corrente della maschera. Fai un join con la tabella 2 e
fornisci il campo desc che associerai al controllo nel report...
Antonio


title: Origine dati nel report

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:tvkya.16202$Ny5.4...@twister2.libero.it...

Perchè nella maschera faccio una serie di operazioni che mi caricano dati
nei controlli e non li voglio immagazzinare nelle tabelle (ho già un 150
campi e tra tutti i dati che gestisco arriviamo a una 20Gb circa) ma tenere
vivi solo in fase di esecuzione e poterli stampare sul report.
In effetti sulla tabella ci sono dei dati e nella maschera vengono
rimescolati e ricalcolati in modo complesso e restituiti nei controlli e non
volevo scrivere altre pagine di codice e quindi nel report ho fatto dei
riferimenti alla maschera.
Altro motivo è la mia inesperienza dei DB visto che sono autodidatta e stò
provando un pò a farmi dei programmini per facilitarmi il lavoro ed
eliminare la carta... .ci riuscirò????
Ora provo a fare come dici , intanto grazie


title: Origine dati nel report

text:
"Andrea" <
can...@freemail.it
> ha scritto nel messaggio
news:3ec9eea2$1...@x-privat.org...

Va beh... comunque ti basta scrivere
=Dlookup("Desc","Tab2","ID='" &
=[Forms]![Nome_Form]![Nome_casella_combinata] & "'")
Antonio


title: Origine dati nel report

author: George

text:
"Andrea" <
can...@freemail.it
> ha scritto nel messaggio
news:C%9ya.118221$3M4.2...@news1.tin.it...

Forse perchè la numerazione delle colonne comincia dallo 0 e non dall'1?
Cioè se le colonne sono 2 gli indici diventano 0 e 1 per la prima e la
seconda rispettivamente...
Ciao.


title: Origine dati nel report

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:3dmya.16726$lK4.4...@twister1.libero.it...

Con il DlookUp non ci sono riuscito ma con la query ho risolto: pensavo di
dover riassociare tutti i campi ma arrivando dalla solita tabella ho fatto
in fretta :)
Ora per curiosità provo a farlo col DlookUp che non so usare (almeno lo
imparo!!!)
Grazie


title: Aprire un qualsiasi file da ACCESS

author: Raffaele Alberoni

text:
Buon pomeriggio a tutti,
vorrei sapere se è possibile aprire da ACCESS un qualsiasi file. Ossia una
volta individuato il file con un comando mandare in esecuzione
autonomamente questo file.
Grazie a tutti.
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aprire un qualsiasi file da ACCESS

author: Sergio MAZZA

text:
"Raffaele Alberoni" <
cpe...@libero.it
> ha scritto nel messaggio
news:e5k11i$nch$1...@news.newsland.it...
> Buon pomeriggio a tutti,
> vorrei sapere se è possibile aprire da ACCESS un qualsiasi file. Ossia una
> volta individuato il file con un comando mandare in esecuzione
> autonomamente questo file.
> Grazie a tutti.
>
>
>
> --
> Raffaele Alberoni
Il modo più semplice è l'Hyperlink; se né già parlato e sul sito comune ci
dovrebbe essere un esempio...
Ciao.
--
Sergio MAZZA


title: Aprire un qualsiasi file da ACCESS

text:
Sergio MAZZA ha scritto:


> Ciao.
Però il file che apro è diverso tutte le volte anzi mi viene caricato in
base a parametri contenuti nelle mie tabelle.
In definitiva apro tipo esplora risorse un elenco di file e ne posso
aprire uno qualsiasi.



title: Aprire un qualsiasi file da ACCESS

text:
[CUT]
> Però il file che apro è diverso tutte le volte anzi mi viene caricato in
> base a parametri contenuti nelle mie tabelle.
> In definitiva apro tipo esplora risorse un elenco di file e ne posso
> aprire uno qualsiasi.
> --
> Raffaele Alberoni
Prova ad usare i Metodo FollowHyperlink che accetta la stringa del
Link.
A questo punto la componi dinamicamente cia codice su evento(devi solo
capire quale evento usare in base a come effettui la selezione che
dici)...!
Sub FollowHyperlink(Address As String, [SubAddress As String],
[NewWindow As Boolean = Falso], [AddHistory As Boolean = Vero],
[ExtraInfo], [Method As MsoExtraInfoMethod], [HeaderInfo As String])
    Membro di Access.Application

L'Help riporta anche un esempio molto chiaro.
@Alex


title: Aprire un qualsiasi file da ACCESS

text:
Alessandro Baraldi ha scritto:




> @Alex
Bene mi metto a studiare l'Help partendo anche dal tuo consiglio....
vediamo cosa riesco ad ottenere.
Grazie e buon lavoro!!!!



title: Aprire un qualsiasi file da ACCESS

author: Alessio

text:
Raffaele Alberoni wrote:
> Sergio MAZZA ha scritto:
>
> > "Raffaele Alberoni" <
cpe...@libero.it
> ha scritto nel messaggio
> > news:e5k11i$nch$1...@news.newsland.it...
> > > Buon pomeriggio a tutti,
> > > vorrei sapere se è possibile aprire da ACCESS un qualsiasi file. Ossia una
> > > volta individuato il file con un comando mandare in esecuzione
> > > autonomamente questo file.
> > > Grazie a tutti.
Ciao, ho avuto la stessa necessità pochissimo tempo fa, ed ho trovato
alcuni moduli che tramite api riescono ad individuare il programma
associato al file che stai aprendo e lo avviano. non riesco però a
ritrovare il db originale...mi pare che fosse roba di Alessandro
Baraldi. (tra le altre cose, GRAZIE!!!)
avevo usato anche una procedura trovata su SitoComune per l'apertura
della maschera per la scelta del file. (FinestraScletaPath).
Cerca sul sito di Alessandro Baraldi (
www.alessandrobaraldi.it
)
Alessio


title: Aprire un qualsiasi file da ACCESS

text:
"Raffaele Alberoni" <
cpe...@libero.it
> ha scritto nel messaggio
news:e5k429$5c3$1...@news.newsland.it...
>
> Però il file che apro è diverso tutte le volte anzi mi viene caricato in
> base a parametri contenuti nelle mie tabelle.
> In definitiva apro tipo esplora risorse un elenco di file e ne posso
> aprire uno qualsiasi.
>
>
> --
> Raffaele Alberoni
Alessandro ha chiarito cosa intendevo...
Ciao.
--
Sergio MAZZA


title: Aprire un qualsiasi file da ACCESS

text:
[CUT]
> Ciao, ho avuto la stessa necessità pochissimo tempo fa, ed ho trovato
> alcuni moduli che tramite api riescono ad individuare il programma
> associato al file che stai aprendo e lo avviano. non riesco però a
> ritrovare il db originale...mi pare che fosse roba di Alessandro
> Baraldi. (tra le altre cose, GRAZIE!!!)
> avevo usato anche una procedura trovata su SitoComune per l'apertura
> della maschera per la scelta del file. (FinestraScletaPath).
>
> Cerca sul sito di Alessandro Baraldi (
www.alessandrobaraldi.it
)
> Alessio
Spero non sia la soluzione usata su Archidoc(intendo quella che
recupera l'EXE associato e lo lancia), quella ha un senso per essere
così complessa, deve intercettare la chiusura attraverso il processo,
ma basta usare la Shell diretta oppure il metodo indicato sopra.
Ciao
@Alex


title: Aprire un qualsiasi file da ACCESS

author: Silver

text:
In data Wed, 31 May 2006 14:09:22 +0200, Raffaele Alberoni
<
cpe...@libero.it
> ha scritto:
> Buon pomeriggio a tutti,
> vorrei sapere se è possibile aprire da ACCESS un qualsiasi file. Ossia
> una
> volta individuato il file con un comando mandare in esecuzione
> autonomamente questo file.
> Grazie a tutti.
>
io uso questa funzione una volta individuato il file
Public Sub ExecuteFile(FilePath As String)
On Error GoTo error
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
Exit Sub
error:  MsgBox err.Description, vbExclamation, "Error"
End Sub
che avevo trovato a suo tempo su un sito consigliato dagli esperti del ng
(mea culpa non ricordo chi per ringraziarlo)


title: Più rapido DLookup o FindFirst?

author: Maurizio

text:
In una tabella contenente alcune migliaia di records ho spesso la necessità
di trovare dei dati che corrispondano a determinati criteri di ricerca.
Come ho anticipato nell'oggetto, a parte una SELECT che immagino rimanga il
metodo in assoluto più veloce, è preferibile utilizzare DLookup o
Docmd.FinFirst?
Grazie.


title: Più rapido DLookup o FindFirst?

text:
"Maurizio" <
mauri...@libero.it
> ha scritto nel messaggio
news:tg2m9.33001$e31.7...@twister2.libero.it...

La select, la findfirst o la dlookup impiegano praticamente lo stesso tempo.
Quello che cambia è il risultato:
con una query ottieni un risultato di una serie di record che poii però non
puoi usare se non in visualizzazione o in un report o in un controllo.
Con la dlookup ottieni un unico valore.
Con la findifrst sei in ambito recordset, quindi punti su un record di
questo recordset e puoi lavorare su tutti i valori di quel record.
Dipende quindi da quello che devi fare...
Antonio


title: driver ODBC Acucobol

text:
Il gestionale che ho in ufficio, Multi della Teamsystem, lavora in Acucobol.
Mi hanno detto che per lavorare in Access con i suoi archivi ho bisogno
della definizione dati, che mi viene fornita gratuitamente, e dei driver
ODBC per Acucobol, che invece devo comprare.
Mi sapete dire dove posso comprare questi driver e quanto costano?
C'è qualcuno che mi può dire qualcos'altro in merito (tipo perchè ci
vogliono i driver ODBC, c'è qualche metodo alternativo ad esso, ecc.)?
Ringrazio in anticipo.
GioVe


title: driver ODBC Acucobol

author: Riccardo M.

text:
"Gio.Ve" <
nospamgv...@tin.it
> ha scritto nel messaggio
news:Xwr8d.39752$75.19...@news3.tin.it...

______________________________
Direttamente alla Teamsystem.
ciao
Riccardo


title: Campo contatore e recupero record

author: EasyNet - www.easynet-internetcorner.it

text:
Avrei il seguente problema.
Hop una tabella in un database di acces che ha come chiave primaria un campo
contatore. Ora alcuni record di tale tabella sono tati cancellati lasciando
dei buchi vuoti nell numerazione del campo contatore. Ho provato a cercare
sulla guida in linea, ma non ho trovato come poter eliminare tali buchi
riordinando il database.
ualcuno puņ aiutarmi?
--
Postmaster Easynet


title: Campo contatore e recupero record

author: MA

text:
"EasyNet -
www.easynet-internetcorner.it
"
<
nospam.p...@esynet-internetcorner.it
> ha scritto nel messaggio
news:098Ta.194676$Ny5.5...@twister2.libero.it...

> ualcuno può aiutarmi?
No, nessuno almeno non scarichi tutti i record su un tab temporanea compatti
il db e poi inserisci di nuovo i record nella vecchi tabella.
MAssimiliano


title: Campo contatore e recupero record

text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:3o8Ta.1919$w8....@news.edisontel.com...>
> > ualcuno può aiutarmi?
> No, nessuno almeno non scarichi tutti i record su un tab temporanea
compatti
> il db e poi inserisci di nuovo i record nella vecchi tabella.
> MAssimiliano
Confermo.
Pure io ho avuto problemi col contatore, che usavo come
indirizzo x spostarmi tra le maschere mantenendo
sempre lo stesso record in cui lavoravo...
L'unica soluzione è stata la modifica totale della "navogazione"
trasformando il contatore in un campo numerico che "contava"
tramite alcune macro che automaticamente numerano i record...
--
==========================================
  LEO2e1/2rap      IHMS (Bergamo)      ICQ {76678996}
==========================================


title: Campo contatore e recupero record

author: S. Savoldi

text:
"EasyNet
> Avrei il seguente problema.
> Hop una tabella in un database di acces che ha come chiave primaria un
campo
> contatore. Ora alcuni record di tale tabella sono tati cancellati
lasciando
> dei buchi vuoti nell numerazione del campo contatore. Ho provato a cercare
> sulla guida in linea, ma non ho trovato come poter eliminare tali buchi
> riordinando il database.
I "buchi" dei contatori evitano problemi potenziali in multiutenza e non
sono una caratteristica specifica di Jet.
Considerando che hai a disposizione un range (intero Lungo) fino due
miliardi e rotti, non vedo di che preoccuparsi.
Ti saluto.


title: Campo contatore e recupero record

author: gasto

text:
"EasyNet -
www.easynet-internetcorner.it
"
<
nospam.p...@esynet-internetcorner.it
> ha scritto nel messaggio
news:098Ta.194676$Ny5.5...@twister2.libero.it...

> ualcuno può aiutarmi?
>
> --
> Postmaster Easynet
>
>
Tempo fa ho avuto lo stesso problema. Andando a memoria mi pare di avere
fatto:
1. In tbl struttura ho inserito un nuovo campo numerico intero lungo con
progressione automatica del numero (non ricordo se è nelle proprietà o cosa;
il fatto certo è che non ho inserito tutti i numeri a mano, questo lo
ricordo bene);
2. questo campo l'ho definito come chiave primaria;
3. ho cancellato il precedente campo contatore;
4. ho trasformato il campo numerico creato in campo contatore.
Tutto ok. Però devi tenere presente che un simile sistema ti può creare dei
problemi nei collegamenti delle tabelle.
Ciao. Gastone


title: Diavolo...mi servirebbe una soluzione x domani...

author: SuperPippo®

text:
ciao amici... ho una query in un Db che mi mostra il totale dei
codici di esenzioni inseriti in una tabella Esenzioni e funziona
egregiamente....
però mi servirebbe che mi mostrasse anche i dati del campo N_Protocollo
riferiti x Comune di appartenenza.... contenuti in una tabella Anagrafe...
spiego con qualche esempio... forse è meglio.... intanto inserisco il codice
Sql della query...
------------------------
SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
ConteggioDiCodice_Esenzione
FROM Esenzioni
GROUP BY Esenzioni.Codice_Esenzione;
UNION SELECT "TOTALE", Count (Esenzioni.Codice_Esenzione) AS
ConteggiodiCodice_Esenzione
FROM Esenzioni;
-------------------------------
siccome i Comuni  sono 5 .. e nel DB sono indicati con l'iniziale del comune
stesso come segue....345/2000/M3567
il primo numero è un progressivo / il secondo identifica l'anno in corso /
il terzo è il vero numero di protocollo preceduto dalla lettera iniziale del
Comune...
a me servirebbe una  query oppure anche un report che  mi indicasse il
totale generale (come funziona ora) ed in + indicasse il comune da
selezionare... se volessi solo i totali di M/F/P/G/I.... tipo inserire
iniziale comune *F* !!!
spero di essermi spiegato decentemente...
chiaramente ho provato a modificare la query esistente... ma inserendo il
campo protocollo mi da errore... la stessa cosa mi succede se tento con un
report...
grazie x l'aiuto...


author: Roberto da casa

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:wnwE6.72824$s93.7...@news.infostrada.it...

Penso che devi darci qualche chiarimento:
1) Se come dici il campo N_Protocollo sta nella tabella Anagrafe e non nella
tabella Esenzioni, in base a quale campo queste due tabelle possono essere
messe in join?
2) La lunghezza di N_Protocollo è sempre di 14 caratteri? Insomma la lettera
che identifica il comune è sempre nella decima posizione?
3) Una volta selezionato il comune F, il "totale generale" è il totale delle
esenzioni di quel comune o deve essere comunque il totale delle esenzioni di
tutti e 5 i comuni?
4) Nella tabella Anagrafe non esiste un campo che identifichi il comune
senza doverlo ricavare da N_Protocollo?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:LNxE6.73276$s93.7...@news.infostrada.it...

questo non lo so... ho provato a mettere in Join il campo N_Protocollo con
uno dei due
campi di una nuova query creata in base alla query sopra riportata...ma mi
dava errore..
la query sopra riportata si apre solo in modalità Sql e non in modo
Struttura...
| 2) La lunghezza di N_Protocollo è sempre di 14 caratteri? Insomma la
lettera
| che identifica il comune è sempre nella decima posizione?
no ! purtoppo... xchè anche il progressivo cambia...quidi la lettera che
identifica il Comune non è sempre nella decima posizione....
| 3) Una volta selezionato il comune F, il "totale generale" è il totale
delle
| esenzioni di quel comune o deve essere comunque il totale delle esenzioni
di
| tutti e 5 i comuni?
la query che mi calcola il totale di tutti e 5 i Comuni insieme la ho...
come da codice Sql riportato sopra....a me servirebbe farlo x Comune....
| 4) Nella tabella Anagrafe non esiste un campo che identifichi il comune
| senza doverlo ricavare da N_Protocollo?
|
un campo che identifichi "solo" il Comune non c'è... pensi che converrebbe
farlo ?
e se si come ?
| Roberto
---------------------------
cmq... x me l'importante e che mi dia dei totali di codici di Esenzione x
Comune
se si può fare con un Report è lo stesso...
Cmq vada ... Roberto ...ti ringrazio x la disponibilità....


text:
[CUT]
> cmq... x me l'importante e che mi dia dei totali di codici di Esenzione x
> Comune
> se si può fare con un Report è lo stesso...
> Cmq vada ... Roberto ...ti ringrazio x la disponibilità....
>
Ho capito che per te l'importante non è partecipare ma vincere, ma se non ci
dici un pò di cosine, per darti una mano ci vorrebbe una sfera di cristallo.
Report o query, se non si ha certezza sulla struttura dei dati e della loro
origine che vuoi che ti venga detto.
In fin dei conti devi solo crearti nella query un campo calcolato che
contiene la lettera del comune e raggruppare la query anche su quel campo.
Tutto qui,



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:lwEE6.77087$s93.7...@news.infostrada.it...
[CUT]|
| Ho capito che per te l'importante non è partecipare ma vincere, ma se non
ci
| dici un pò di cosine, per darti una mano ci vorrebbe una sfera di
cristallo.
| Report o query, se non si ha certezza sulla struttura dei dati e della
loro
| origine che vuoi che ti venga detto.
| In fin dei conti devi solo crearti nella query un campo calcolato che
| contiene la lettera del comune e raggruppare la query anche su quel campo.
| Tutto qui,
--------------
scusami Roberto... non è il fatto di vincere... ma mi premeva il fatto che
mi serviva
risolvere il problema x domani...x il resto credo di essere un tipo
abbastanza calmo..
Cmq...se è possibile spiegarti meglio riguardo il campo calcolato te ne
sarei grato...
intanto chiedo... posso usare la query già esistente ???
come faccio ad inserire il campo con N_ protocollo dato che non me lo fa
inserire..
cmq ho creato questa nuova query... che come potrai vedere estraggo il
comune...
ma vorrei che mi raggruppasse e conteggiasse anche i Codici di esenzione...
  SELECT Esenzioni.Codice_Esenzione, Anagrafe.N_Protocollo
FROM Anagrafe INNER JOIN Esenzioni ON Anagrafe.ID_assistito =
Esenzioni.Id_Assistito
WHERE (((Anagrafe.N_Protocollo) Like [Digitare Iniziale Comune --  Esempio
*F*]))
ORDER BY Esenzioni.Codice_Esenzione;
------------------------
Ciao....


text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:uNFE6.77658$s93.7...@news.infostrada.it...

Quello che mi serviva sapere l'ho dedotto dalla query di selezione che hai
postato.
Se ho capito ciò che ti serve, questo dovrebbe essere il codice SQL della
query:
SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.IDassistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] & "*"))
GROUP BY Esenzioni.Codice_Esenzione
UNION SELECT "TOTALE COMUNE " & [Digita Iniziale Comune:],
Count(Esenzioni.Codice_Esenzione) AS ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.IDassistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
"*"));
Quando si aprirà la finestra che ti chiede di digitare l'iniziale del
comune, digita solo la lettera, senza chiuderla tra asterischi: quindi solo
o M, o F, o P, o G oppure I.
La query ti restituirà i totali per Codice_Esenzione ed il Totale delle
esenzioni del solo comune selezionato.
Se quando si apre la finestra di dialogo non digiti nulla e pigi solo il
pulsante OK, la query ti restituirà gli stessi valori di quella attuale,
ovverro effettuerà il conteggio di tutti e 5 i comuni insieme.



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:%8IE6.78834$s93.7...@news.infostrada.it...
[CUT]

-------------------------
 ...non funziona...Roberto... nel senso che mi appare una prima finestra
dove digito la iniziale del Comune... e poi mi appare una seconda dove
recita... "Esenzioni.Id Assistito"...che anche se non digito niente...
oppure un asterisco il
risultato è sempre lo stesso...
mi compaiono vuoti due inizi di campi "Totale Comune F" e "Conteggio di
Codice esenzione" = 0....
consigli ???


author: Roberto dal portatile

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:JIWE6.81576$s93.8...@news.infostrada.it...
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:%8IE6.78834$s93.7...@news.infostrada.it...
> [CUT]
> | SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
> | ConteggioDiCodice_Esenzione
> | FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.IDassistito =
> | Anagrafe.ID_assistito
> | WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
> "*"))
> | GROUP BY Esenzioni.Codice_Esenzione
> | UNION SELECT "TOTALE COMUNE " & [Digita Iniziale Comune:],
> | Count(Esenzioni.Codice_Esenzione) AS ConteggioDiCodice_Esenzione
> | FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.IDassistito =
> | Anagrafe.ID_assistito
> | WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
> | "*"));
> |
> -------------------------
>  ...non funziona...Roberto... nel senso che mi appare una prima finestra
> dove digito la iniziale del Comune... e poi mi appare una seconda dove
> recita... "Esenzioni.Id Assistito"...che anche se non digito niente...
> oppure un asterisco il
> risultato è sempre lo stesso...
> mi compaiono vuoti due inizi di campi "Totale Comune F" e "Conteggio di
> Codice esenzione" = 0....
> consigli ???
>
Il consiglio è quello di mettere un underscore ( _ ) tra ID e assistito :
ID_assistito e non IDassistito come ho scritto io; il codice corretto
dovrebbe essere:
SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] & "*"))
GROUP BY Esenzioni.Codice_Esenzione
UNION SELECT "TOTALE COMUNE " & [Digita Iniziale Comune:],
Count(Esenzioni.Codice_Esenzione) AS ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
"*"));
Comunque ricontrolla tutti i nomi dei campi, io non ho la struttura delle
tabelle che usi, ma tu si.



text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:dL_E6.83618$s93.8...@news.infostrada.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
| ConteggioDiCodice_Esenzione
| FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
| Anagrafe.ID_assistito
| WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
"*"))
| GROUP BY Esenzioni.Codice_Esenzione
| UNION SELECT "TOTALE COMUNE " & [Digita Iniziale Comune:],
| Count(Esenzioni.Codice_Esenzione) AS ConteggioDiCodice_Esenzione
| FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
| Anagrafe.ID_assistito
| WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
| "*"));
|
| Comunque ricontrolla tutti i nomi dei campi, io non ho la struttura delle
| tabelle che usi, ma tu si.
------------------------------------
sei grande Roberto...e gentile come sempre, funziona benissimo e fa proprio
quello che desideravo...
non mi definire pignolo .........cmq x dare un'altra rifinitura alla
query... ho sostituito "TOTALE COMUNE" con "Totali Esenzioni" però alla fine
di Esenzioni esce attaccata la lettera del Comune digitato... a questo punto
mi chiedo se fosse possibile lasciare uno spazio ed inserire x intero il
comune avendo così "Totali Esenzioni Formia | 3457.
Grazie...


text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:7fjF6.3097$PE.1...@news.infostrada.it...

Beh per risolvere il primo basta che digiti uno spazio tra la parola
Esenzione e le virgolette di chiusura, così come io avevo fatto dopo la
parola COMUNE.
Per mettere in chiaro il nome del comune, potresti crearti una tabella
chiamata TabComuni che abbia la seguente struttura:
CodCom        Testo e chiave primaria
Comune          Testo
La tabella conterrà 5 record che conterranno in CodCom l'iniziale del comune
( F o P o G ecc.) e nel campo Comune il nome per esteso del comune ( Formia
ecc.).
Prova quindi a modificare così il codice SQL della tua Query:
SELECT Esenzioni.Codice_Esenzione, Count(Esenzioni.Codice_Esenzione) AS
ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] & "*"))
GROUP BY Esenzioni.Codice_Esenzione
UNION SELECT "Totali Esenzioni " & DLookup("[Comune]", "TabComuni",
"CodCom=" & Chr$(34) &[Digita Iniziale Comune:] & Chr$(34)),
Count(Esenzioni.Codice_Esenzione) AS ConteggioDiCodice_Esenzione
FROM Esenzioni INNER JOIN Anagrafe ON Esenzioni.ID_assistito =
Anagrafe.ID_assistito
WHERE (((Anagrafe.N_Protocollo) Like "*" & [Digita Iniziale Comune:] &
"*"));
Fammi sapere se funziona.



text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:rVjF6.3464$PE.1...@news.infostrada.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| news:7fjF6.3097$PE.1...@news.infostrada.it...
| Fammi sapere se funziona.
|
| Roberto
|
-------------------------
funziona egregiamente... sempre grazie a te Roberto...
ora mi creo un bel report come origine la tua query... ed anche x stavolta
ho risolto
o meglio hai risolto un mio problema...di nuovo 1000 grazie...
ps- se capiti da queste parti un caffè è assicurato ....
--
SuperPippo®   [;o))


text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:dUEF6.11234$PE.9...@news.infostrada.it...
[CUT]
> ps- se capiti da queste parti un caffè è assicurato ....
>
> --
> SuperPippo®   [;o))
>
Il bar da che parti sta? :-)



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:KNFF6.11696$PE.10...@news.infostrada.it...
|
| "SuperPippoŽ" <
ik0...@libero.it
> ha scritto nel messaggio
| news:dUEF6.11234$PE.9...@news.infostrada.it...
| [CUT]
| > ps- se capiti da queste parti un caffč č assicurato ....
| >
| > --
| > SuperPippoŽ   [;o))
| >
|
| Il bar da che parti sta? :-)
--------------------------------------------
... qualcuno lo troviamo...   ;o)))
Ciao e grazie di nuovo...


title: SottoMaschera Foglio Dati

author: Rè Artu

text:
Ciao a tutti.
Ho creato una maschera con 1 sottomaschera in visualizzazione foglio dati
per visualizzare la lista degli articoli. La visualizzazione foglio dati mi
permette di ridimensionare la larghezza delle colonne e di spostarle ma non
so se è possibile ordinarle cliccando sul titolo della colonna. Esiste un
evento? Oppure qualche escamotage?
Ciao e Grazie
Luca


title: SottoMaschera Foglio Dati

author: Maurizio Borrelli

text:
> "Rè Artu" [...]:

    Non saprei. La prima cosa con la quale farei un tentativo e':
Private Sub Form_MouseDown( _
  ByRef Button As Integer _
, ByRef Shift As Integer _
, ByRef X As Single _
, ByRef Y As Single)
  If (Me.CurrentView = 2) Then
    Debug.Print X, Y
  End If
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


title: SottoMaschera Foglio Dati

text:


Ok. Fino a qui mi tornano i valori. Ora in teoria basta guardare altezza e
larghezza colonne e righe per capire dove ho cliccato con il mouse ed
eventualmente ordinare in base alla colonna
Thanks
Luca


title: SottoMaschera Foglio Dati

author: warp

text:
Rè Artu > ha scritto nel messaggio ...

Spannometricamente:
1) Gestisci l'evento Click a livello di Form per scatenare un evento sul click dell'intestazione
colonna.
2) Ti assicuri che sia selezionata una sola colonna utilizzando Selheight e Selwidth
3) Utilizzi un codice del tipo:
me.orderbyon=true
me.orderby=
screen.activecontrol.name
oppure (magari è meglio)
DoCmd.RunCommand acCmdSortAscending
4) Devi cambiare l'intestazione della colonna aggiungendo un carattere (magari una freccina in
basso) che faccia intuire l'ordinamento all'operatore ma "anche" al programma ... dato che un
ulteriore click dovrà produrre un ordinamento decrescente sulla colonna per ripristinare la
situazione di partenza.
Ciao, warp


title: Conteggio numero di record in una query

author: Giordano

text:
Un saluto a tutti,
spero possiate aiutarmi, non ho + il fisico per fare nottate davanti al
pc...
Semplice database per la gestione della contabilità.
Oggetti d'interesse:
Insegnanti: Query con un solo campo (Sottovoce1) contenente l'elenco degli
insegnanti.
InsegnantiCambioNomi: Maschera composta da due campi testo (VecchioNome e
NuovoNome) e un pulsante il cui click fa partire una query di aggiornamento
x sostituire eventualmente un insegnante con un altro.
InsegnantiQNomi: Query con un solo campo (Sottovoce1Q) generata dal
filtraggio di Insegnati con ciò che è scritto in NuovoNome, strutturata in
modo tale che se si tenta di cambiare il nome di un insegnante con uno che è
già presente nella query il numero di record presenti sarà 1, se invece il
nome immesso in NouvoNome è realmente nuovo la query sarà vuota con un num
di record pari a 0.
RinominaInsegnante: Query di aggiornamento.
Quello che a me serve e che prima di far partire la query di aggiornamento
si verifichi che il nome del Nuovo insegnate non sia già presente nella
lista, cioè nella query Insegnanti. Come strategia ho pensato di inserire
nella sub click del pulsante un controllo if...then con il quale conto il
numero di record presenti nella query InsegnantiQNomi, se il num è 0 procedo
con la query di aggiornamento, altrimenti blocco tutto e mando un alert.
Il problema, purtroppo, è nella stesura del codice. Avendo scarsa conoscenza
di VB e VBA sono riuscito (sarà poi così??) a capire che devo creare un
recordset associarlo a InsegnantiQNomi per poi contare i record con
recordcount. Ma, ammesso che sia giusto il ragionamento, non sono riuscito a
produrre il codice.
Qualcuno potrebbe aiutarmi inviandomi il codice da inserire dentro il
controllo?
If --------codice num record di InsegnantiQNomi = 0 -------- Then
stDocName = "RinominaInsegnante"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Conferma_nomi
    DoCmd.Close
Else:
   MsgBox "Il nome dell'insegnante immesso nel campo è già presente nella
lista DoCmd.Closeinsegnanti.", vbExclamation, "Errore"
Vi ringrazio in anticipo con un'ultima richiesta: inviatemi il codice per
intero senza omettere quello che per voi, magari, è sottinteso.
Ciao.
Giordano.


title: Conteggio numero di record in una query

author: Roberto Pasqualini

text:
"Giordano" <
giord...@tin.nospam.it
> ha scritto nel messaggio
news:czXE8.64777$zW3.9...@news1.tin.it...

Dim rst as DAO.recordset
Dim dbs as Database
set dbs = currentdb
set rst = dbs.openrecordset("InsegnantiQNomi",dbopenDynaset)
If rst.recordcont = 0 then
..........
... al temine della routine
rst.close
dbs.close
set rst = nothing
set dbs = nothing
Devi poi impostare i riferimenti alle librerie DAO nelle proprietà del
progetto.
Ciao, Roberto


title: Conteggio numero di record in una query

text:
"Roberto Pasqualini" <
rpasq...@sidesoft.it
> ha scritto nel messaggio
news:Ts1F8.64931$zW3.9...@news1.tin.it...
>
> "Giordano" <
giord...@tin.nospam.it
> ha scritto nel messaggio
> news:czXE8.64777$zW3.9...@news1.tin.it...
> > Un saluto a tutti,
> > spero possiate aiutarmi, non ho + il fisico per fare nottate davanti al
>cut
> >
> > Ciao.
> > Giordano.
> >
> >
> Dim rst as DAO.recordset
> Dim dbs as Database
> set dbs = currentdb
> set rst = dbs.openrecordset("InsegnantiQNomi",dbopenDynaset)
> If rst.recordcont = 0 then
> ..........
>
> ... al temine della routine
> rst.close
> dbs.close
> set rst = nothing
> set dbs = nothing
>
> Devi poi impostare i riferimenti alle librerie DAO nelle proprietà del
> progetto.
>
> Ciao, Roberto
>
>
Ciao Roberto,
innanzitutto ti ringrazio per avermi risposto così presto, ho fatto quello
che mi hai suggerito ma ci deve essere qualche problema...
Appena clicco sul pulsante della maschera compare un messaggio di errore
"Parametri insufficienti. Previsto 1".
Non so che dirti.
Ho inviato un nuovo post con le specifiche con le quali sto lavorando (S.O.,
ver di Access, Riferimenti...) fosse questo il problema??
Se ti viene in mente qualcosa...
Ciao.
Giordano


title: Conteggio numero di record in una query

text:
"Giordano" <
giord...@tin.nospam.it
> ha scritto nel messaggio
news:x6xF8.69016$zW3.1...@news1.tin.it...

Dall'errore che ricevi significa che InsegnantiQNomi è una query
parametrica, nel qual caso non puoi aprire su di essa un recordset usando la
tecnica suggerita da Roberto Pasquali; per farlo vai sul Sito Comune (link
qui sotto) e leggi nella Sezione Queries cosa dice la FAQ di Federico
Luciani intitolata "Aprire una query parametrica da codice VBA.".
Comunque, come ti ho detto precedentemente, puoi non aprire alcun recordset,
ma usare una DCount (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Conteggio numero di record in una query

text:
"Giordano" <
giord...@tin.nospam.it
> ha scritto nel messaggio
news:czXE8.64777$zW3.9...@news1.tin.it...

Invece di aprire un recordset sulla query InsegnantiQNomi, per contare le
righe di detta query, usa una DCount (vedi help).
If DCount("*", "InsegnantiQNomi ") = 0 Then
    ' apri la maschera RinominaInsegnante
Else
    ' messaggio di errore
End If



title: Conteggio numero di record in una query

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:oELF8.80332$US3.1...@twister1.libero.it...
>
cut
>
> Invece di aprire un recordset sulla query InsegnantiQNomi, per contare le
> righe di detta query, usa una DCount (vedi help).
>
> If DCount("*", "InsegnantiQNomi ") = 0 Then
>     ' apri la maschera RinominaInsegnante
> Else
>     ' messaggio di errore
> End If
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Funzione tutto.
Grazie.


title: Strano Errore

author: Federico Rinaldi

text:
Ciao a tutto il NG
Ho qualche problemino su un file Mdb, errori strani inspiegabili, ho
importato quindi tutto su un Db, infatti gli errori sono terminati, pero' su
un Msk mi da il seguente errore: Errore durante l' accesso al file, potrebbe
non essere piu' attiva la connessione di rete.
Uso A2000 Sr1 e ho installato anche A2002.
Ciao


title: Strano Errore

author: Emyr

text:


rifai la maschera con copia incolla o da zero
Saluti.
Emanuele.


title: R: Visualizzazione Immagini

text:
>

> - Non so la risposta.... ma quello che vedo subito nell'enunciazione del tuo

> problema è che sei un pò troppo lungo nel spiegarti... cerca di essere più

> conciso nelle domande avrai più possibilità di avere una risposta prima che

> qualcuno si stufi di arrivare a leggere fino alla fine...

> ciao Stef LD (brother)

>
E' vero mi sono dilungato, ma dimmi, a parte i convenevoli che ho fatto, come avresti fatto tu ad essere più conciso? Anche perchè non so parlare il linguaggio di voi programmatori...
Secondariamente c'è qualcuno a cui probabilmente piace avere messaggi un po' più prolissi e non cade nel solito errore, almeno a mio parere, in cui stanno incappando tutte le nuove generazioni: linguaggio sintetico, monosillabi, poca comunicazione, poche emozioni, poche descrizioni...
CIAO E GRAZIE
------------------------------------------------------------------------
Questo messaggio e` stato inviato da
http://www.inwind.it


title: Problemi con recordset

author: Simone

text:
Ho due tabelle:
REGI_CESP contenente i campi     COD_CLI Numerico
                                                      DES_CES  Testo
                                                      ANN_VEN Numerico
                                                      COD_SIT Numerico
SITU_CESP contenente i campi    COD_SIT Numerico, chiave primaria
                                                     CAL_AMM Valore
accettato 'X'
Premetto che per le tabelle non ho impostato alcuna relazione.
Vorrei aprire un recordset che contenga tutti i record della tabella
REGI_CESP che abbiano lo stesso COD_CLI, che abbiano nel campo ANN_VEN un
valore nullo o uguale ad una casella di testo di una maschera ex.
CALC_AMMO.ANN_AMM e che contengano una 'X' nel campo CAL_AMM.
Per fare questo utilizzo il seguente codice:
SELECT REGI_CESP.COD_CLI, REGI_CESP.DES_CES, REGI_CESP.COD_SIT,
REGI_CESP.ANN_VEN, SITU_CESP.CAL_AMM
FROM REGI_CESP LEFT JOIN SITU_CESP ON REGI_CESP.COD_SIT = SITU_CESP.COD_SIT
WHERE (((REGI_CESP.ANN_VEN)isnull) or (((REGI_CESP.ANN_VEN)= "&
forms![calc_ammo]![ann_amm]&")) and (((REGI_CESP.COD_CLI)=" &
[Forms]![CALC_AMMO]![COD_CLI] & ")) AND (([SITU_CESP].[CAL_AMM])='X'));")
Ho provato a modificare anche togliendo la parte "or ...[ann_amm]&"))" ma mi
viene sempre visualizzato un errore, come posso fare?
Ciao e grazie


title: Problemi con recordset

author: Antonio Biso

text:
Simone <
simon...@libero.it
> wrote in message
1lkq8.106345$%g7.34...@twister2.libero.it...

Sbagli nella gestione dei soppi apici e della stringa.
Suppongo che tu la stia scrivendo da codice no?
Allora tu avrai
str = "SELECT.... or (((REGI_CESP.ANN_VEN)= """ & forms..... & """)) ..."
questo perchè il confronto col valore della form deve essere circondato da
doppi apici e per metterli all'interno di una stringa devi raddoppiarli
Antonio


title: salvare report in pdf con il timestamp

text:
Ciao a tutti,
cercando in internet trovo dei codici per converire un report in pdf ma non riesco a trovarne uno completo per salvarlo con un nomefile formato GGMMAAAA.

in pratica ho in access 2007,
una maschera con un pulsante che apre i report del giorno , vovrei salvarli tutti in sieme in una determinata cartella c:\users\amm\pdfout .

con la macro outtopdf integrata posso già salvare i pdf ma devo andare ad indicare ogni volta il percorso ed il nome del file, poichè quando non ci sono io ad usare il pc i file hanno i più svariati nomi e si trovano sparsi per il pc chiedo a voi un mano .
ho scaricato anche ConvertReportToPDF di S.Lebans , funziona ma non ho capito dove inserire la stringa per il path e il filename DDMMYYYY.
Grazie mille a tutti.


title: salvare report in pdf con il timestamp

author: scaronic

text:

potresti provare leggendo l'help  OutputTo
dovrebbe andare bene qualcosa di simile a questo

                DoCmd.OutputTo acOutputReport,
me.name
 , acFormatPdf, "TuoPercorso" & Me.Name & "_" & Format(Date, "yyyymmdd") & ".pdf", True


title: salvare report in pdf con il timestamp

author: Ammammata

text:
Il giorno Wed 02 Dec 2015 04:45:51p, *scaronic* inviava su
it.comp.appl.access il messaggio
news:26521573-1e20-40c9...@googlegroups.com
. Vediamo cosa
scrisse:

> formato GGMMAAAA.

>
> Format(Date,"yyyymmdd")
>

il secondo formato, suggerito da scaronic, è meglio: facilita la ricerca in
ordine cronologico

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


title: salvare report in pdf con il timestamp

text:

Eccellente,
sei un grande funziona.
Grazie Marco


title: Tabelle a campi incrociati o tabelle temporanee?

author: ciroteo

text:
Ciao a tutti, son certo ch e olti di voi avranno avuto modo di
sperimentare che nel tentativo di  inserire le informazioni in una
struttura relazionale correttamente normalizzata, ci si imbatte in
documenti, (spessissimo tabelle excel) che non sono per nulla
normalizzati, ma che rappresentano semplicemente il report, l'output
di quello che andiamo a gestire nel db.
per esempio: prima colonna nomi, seconda colonna lunedi, martedi,
mercole ecc...
in corrispondenza della riga si metterebbe il valore.
che diventa ovviamente un record per ogni incrocio nome, data, valore.
Nel tentativo arduo di normalizzare i fogli excel e tenendo bene a
mente la necessità di riesportare i dati in un formato molto simile a
quello di partenza ho visto che si usano tre tecniche.
Le cross tables di access (con ovvi limiti di calcolo nel caso di
valori multipli da riportare), l'automazione excel (complessina)
oppure la creazione di tabelle temporanee denormalizzate, aventi tanti
campi quante saranno le intestazioni di colonna del report.
Ovviamente non saprò mai a priori quante colonne avrà il report ...
dipenderà da intervalli di data, o da altre opzioni della select!
Ricordo qualche esempio, ma al momento mi sto un po' perdendo nei
vecchi post.
Qualcuno può gentilmente da un lato confutare quanto detto in
precedenza nel caso fosse scorretto, o dall'altro segnalarmi un
corretto modo di procedere alla denormalizzazione in pivot del
database?


author: MA

text:

Di solito scelgo le tabelle temporanee create in runtime

--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:

eheh! è proprio li che ti volevo.
fai una query di union, e da essa generi una tabella  ? oppure usi un
malefico recordset?
è proprio questa tecnica che vorrei studiare bene...!


text:
ciroteo wrote:
> On 20 Nov, 15:56, "MA" <
mas...@massimilianoamendola.it
> wrote:
>> ciroteo wrote:
>>> Ciao a tutti, son certo ch e olti di voi avranno avuto modo di
>>> sperimentare che nel tentativo di  inserire le informazioni in una
>>> struttura relazionale correttamente normalizzata, ci si imbatte in
>>> documenti, (spessissimo tabelle excel) che non sono per nulla
>>> normalizzati, ma che rappresentano semplicemente il report, l'output
>>> di quello che andiamo a gestire nel db.
>>> Qualcuno può gentilmente da un lato confutare quanto detto in
>>> precedenza nel caso fosse scorretto, o dall'altro segnalarmi un
>>> corretto modo di procedere alla denormalizzazione in pivot del
>>> database?
>>
>> Di solito scelgo le tabelle temporanee create in runtime
> eheh! è proprio li che ti volevo.
> fai una query di union, e da essa generi una tabella  ? oppure usi un
> malefico recordset?
> è proprio questa tecnica che vorrei studiare bene...!
Ovvio che è la seconda che hai detto.
Tra l'altro puoi linkare il foglio xls e lo interroghi con tabledef quindi non devi conoscere prima il numero delle colonne
--
--
MAssimiliano Amendola
www.accessgroup.it



title: Problema con ALTER TABLE

author: DaX

text:
Salve a tutto il NG
Ho la necessita' di modificare una tabella , aggiungendo un campo, tramite
SQL.
Con il comando ALTER TABLE riesco a modificare la tabella ma come posso
modificare gli attributi del campo tipo: Format , Default Value , Required,
ecc. (sempre utilizzando l' SQL) ?
Grazie infinite :)
DaX


title: Problema con ALTER TABLE

author: SABINA CAMERIN

text:
"DaX" <
nospam...@hotmail.com
> ha scritto nel messaggio
news:8pteob$4qdu$1...@stargate1.inet.it...

Con l'istruzione seguente puoi modificare il tipo di dati di un campo nella
tabella ABC chiamato Cod (definito inizialmente come Intero) in un campo di
tipo Testo di 20 caratteri:
ALTER TABLE abc ALTER COLUMN Cod TEXT(20)
Ciao.


title: scollegare casella di testo dall' etichetta

author: BC

text:
Come si fa per scollegare una serie di caselle di testo dalle proprie label?
Dovendo spostarle, le seconde seguono tutto (o quasi) quello che fa la
casella alla quale sono connesse.
Mi sapete dare un aiuto?
grazie
BC


author: Ivan da casa

text:
"BC" <
briglia...@tiscali.it
> ha scritto nel messaggio
news:46434cf8$0$20806$5fc...@news.tiscali.it...

bhč potresti afferrarle dal quadratino di trascinamento in alto a
sinistra(il cursore si trasforma in una manuna col dito puntato),  che ti
permette di spostare i due elementi (casella / etichetta) in maniera
autonoma.
oppure puoi selezionare la sola etichetta e col tasto CANC la elimini e poi
ne crei una che sarą 'libera' al 100%
Ivan


author: Access

text:
"BC" <
briglia...@tiscali.it
> ha scritto nel messaggio
news:46434cf8$0$20806$5fc...@news.tiscali.it...

Tasto destro del mouse sulla label da staccare e taglia, poi incolli.
Ciao


text:
>
> Tasto destro del mouse sulla label da staccare e taglia, poi incolli.
>
>
>
> Ciao
>
funziona perņ quando vado ad incollare me li incolla in alto a sin
Comunque grazie
BC


text:
"BC" <
briglia...@tiscali.it
> ha scritto nel messaggio
news:464426e7$0$20805$5fc...@news.tiscali.it...
>
>
>>
>> Tasto destro del mouse sulla label da staccare e taglia, poi incolli.
>>
>>
>>
>> Ciao
>>
> funziona però quando vado ad incollare me li incolla in alto a sin
>
> Comunque grazie
>
> BC
>
Se a te interessa spostare solo la label sulla form senza
che si trascini dietro la textbox allora selezionala e spostala
puntando il mouse sul quadratino nero piu' grande posizionato
nella superiore sinistra della label.
Ciao


text:
>
> Se a te interessa spostare solo la label sulla form senza
> che si trascini dietro la textbox allora selezionala e spostala
> puntando il mouse sul quadratino nero piu' grande posizionato
> nella superiore sinistra della label.
>
>
> Ciao
A me interessa trascinare un gruppo di label scollegandole dalle textbox
"mamme".
La manina ne sposta solo una alla volta...
La tua soluzione è buona eccezione fatta per il fatto, come ti ho detto, che
le label vengono incollate in alto a sin.
saluti
BC


author: Alessandro Baraldi

text:

Devi fare come ti hanno detto... anche se lo ritengo sbagliato.
Quindi TAGLIA/INCOLLA e le riposizioni, oppure devi selezionarle tutte
e dalle proprietà imposti manualmente le Posizioni in Twips su "Da
margine superiore" e "Da Sinistra"...
@Alex


text:
Devi fare come ti hanno detto... anche se lo ritengo sbagliato.
Quindi TAGLIA/INCOLLA e le riposizioni, oppure devi selezionarle tutte
e dalle proprietą imposti manualmente le Posizioni in Twips su "Da
margine superiore" e "Da Sinistra"...
@Alex
grazie
BC


title: Sfondo bianco per il valore corrente del combobox nei report

author: atxkors

text:
Ciao a tutti!
In anteprima di stampa su un report che contiene delle celle che prendono valori da una combobox nel form, il testo č visualizzato con un bruttissimo sfondo nero (utilizzato per evidenziare il valore giusto tra tutti quelli della lista), ma se imposto l'altezza riga in modo da visualizzare solo un valore (quello evidenziato), mi piacerebbe non avere lo sfondo nero, ma bianco come una qualunque textbox! Non sono riuscito a trovare questa opzione tra le proprietą del controllo nel report, voi potete aiutarmi?
Grazie mille in anticipo!
--
atxkors
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-689277.html
send from
http://www.itsistemi.net


author: Nicolas

text:
sfondo nero, ma bianco come una qualunque textbox! Non sono riuscito a
trovare questa opzione tra le proprietą del controllo nel report, voi potete
aiutarmi?
>
> Grazie mille in anticipo!
>
>
> --
> atxkors
il colore dello sfondo di una textbox lo puoi cambiare tu come ti pare e
piace dalla barra degli strumenti di access in struttura report. intendi
questo?


author: Francesco Burgio

text:
On Mon, 10 Oct 2005 21:43:21 +0200, "Nicolas" <
nico...@email.it
>
wrote:
>sfondo nero, ma bianco come una qualunque textbox! Non sono riuscito a
>trovare questa opzione tra le proprietà del controllo nel report, voi potete
>aiutarmi?
>>
>> Grazie mille in anticipo!
>>
>>
>> --
>> atxkors
>
>il colore dello sfondo di una textbox lo puoi cambiare tu come ti pare e
>piace dalla barra degli strumenti di access in struttura report. intendi
>questo?
>
Non intendevo questo, cmq ho risolto cambiando il controllo in
"Casella di testo", era semplicemente questo, purtroppo quando si è
inesperti come me anche la cosa più semplice sembra impossibile!
 grazie cmq!
ciao


title: Query di Aggiornamento

author: Ram II

text:
A solo titolo di studio, per approfondire le conoscenzesulle query, ho
preparato una Query di aggiornamento listini su una tabella collegata, ma
questo mi dà il seguente ERRORE: aggiornamento dati in una tabella collegata
non supportata da questo ISAM.
Che vor dì ???
Le tabelle sono coì fatte: un file testo esterno con il nuovo listino
collegato ad un DB ed una tabella interna contenente il vecchio listino.
L'anciando la Query mi mostra effettivamente solo i dati da cambiare, con i
nuovi prezzi, ma... alla fine non finisce l'operazione per via dell'errore
sopra detto.
A voi l'ardua sentenza... Ciaooooo e grazie.


title: Query di Aggiornamento

text:
A solo titolo di studio, per approfondire le conoscenze sulle query, ho



title: unione campi testo

author: Zio Paperone

text:
ho un offset generato da una query che contiene un codice (non univoco)  ed
una descrizione;
raggruppando vorrei che tutte le descrizioni relative ad un codice si
uniscano in una singola stringa
... se fossero numeri potrei semplicemente inserire il campo somma e sarei a
posto, trattandosi di testi non so come fare
es.
originale
codice1  descrizione1
codice1  descrizione2
codice3  descrizione3
risultato desiderato
codice1  descrizione1+descrizione2
codice3  descrizione3
tanks in advance


title: unione campi testo

author: Roberto da casa

text:
"Zio Paperone" <
anon...@freemail.it
> ha scritto nel messaggio
news:8tc7oo$gmi$1...@fe2.cs.interbusiness.it...

Con una query di raggruppamento, creati un recordset che contenga la lista
dei codici; quindi dai uno sguardo alla soluzione che ho dato il 28/10/00
alle 23:38 a un quesito simile al tuo posto da Gianfranco Fonte il 27/10/00
alle 14:09 e che ha per ogetto Aiuto! (Gianfranco ha poi meglio spiegato il
suo problema il 28/10/00 alle 21:23).
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Ricerca in textbox

author: Lucio

text:
Salve a tutto il NG,
ho dato un'occhiata su sitocomune ma mi sa di non aver trovato nulla che
possa essere utile;
vengo al dunque:
in una casella di testo vi sono descritte le categorie merceologiche a cui
un prodotto appartiene  (es. Al+Ba+Co ecc.), chiamata TXT1
un'altra casella di testo (TXT2) dovrebbe confrontare i valori contenuti
nella casella precedente e se č presente tra i vari valori inseriti "A"
dare un determinato valore (es. Alimentari) se "C":consumabili e cosě via.
Siccome perň come descritto all'inizio la casella TXT1 contiene piů di un
valore diviso dal segno "+" non sň come intercettare solo la sigla che mi
interessa.
Grazie
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Ricerca in textbox

author: Roberto dalla campagna

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:ch493d$37v$1...@news.newsland.it...
> Salve a tutto il NG,
> ho dato un'occhiata su sitocomune ma mi sa di non aver trovato nulla che
> possa essere utile;
> vengo al dunque:
> in una casella di testo vi sono descritte le categorie merceologiche a cui
> un prodotto appartiene  (es. Al+Ba+Co ecc.), chiamata TXT1
> un'altra casella di testo (TXT2) dovrebbe confrontare i valori contenuti
> nella casella precedente e se è presente tra i vari valori inseriti "A"
> dare un determinato valore (es. Alimentari) se "C":consumabili e così via.
> Siccome però come descritto all'inizio la casella TXT1 contiene più di un
> valore diviso dal segno "+" non sò come intercettare solo la sigla che mi
> interessa.
> Grazie
> Lucio
>
Hai provato ad usare la funzione InStr (vedi help)?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Ricerca in textbox

text:
Roberto dalla campagna ha scritto:
> "Lucio" <
nap...@tin.it
> ha scritto nel messaggio
> news:ch493d$37v$1...@news.newsland.it...
> > Salve a tutto il NG,
> > ho dato un'occhiata su sitocomune ma mi sa di non aver trovato nulla che
> > possa essere utile;
> > vengo al dunque:
> > in una casella di testo vi sono descritte le categorie merceologiche a cui
> > un prodotto appartiene  (es. Al+Ba+Co ecc.), chiamata TXT1
> > un'altra casella di testo (TXT2) dovrebbe confrontare i valori contenuti
> > nella casella precedente e se č presente tra i vari valori inseriti "A"
> > dare un determinato valore (es. Alimentari) se "C":consumabili e cosě via.
> > Siccome perň come descritto all'inizio la casella TXT1 contiene piů di un
> > valore diviso dal segno "+" non sň come intercettare solo la sigla che mi
> > interessa.
> > Grazie
> > Lucio
> >
> Hai provato ad usare la funzione InStr (vedi help)?
Ho provato Cosě:
Dim strAl as string
strAl="Al"
If me.TXT1.SelLengt=Len(strAl) then
me.txt2="Alimentari"
else
me.TXT2="Consumabili"
end if
Tutto funziona se la stringa  che incontra nella TXT1 č la prima (es.
Al+Co: TXT2="Alimentari") se invece il carattere da ricercare č secondo o
terzo (es. Co+Al+Ba)mi tira fuori sempre l'else come risultato.
Grazie.



title: Ricerca in textbox

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:ch4afv$mcg$1...@news.newsland.it...

Perché non hai usato, come ti ho suggerito, la funzione InStr???
Prova cosě:
Dim strAl as string
strAl="Al"
If Instr(1, Me!TXT1, strAl) <> 0 Then
Me!txt2="Alimentari"
else
Me!TXT2="Consumabili"
end if



title: Informazione

author: SERIO Francesco

text:
Salve mi chiamo Vincenzo,
sono un'amministratore condominiale e sono alla ricerca di file sulle
gestioni condominiali in access '97. C'è qualcuno che può darmi una mano in
merito? Anticipatamente Vi ringrazio e saluto.


title: Informazione

text:
"SERIO Francesco" <
condom...@libero.it
> ha scritto nel messaggio
news:aQKqa.70234$iy5.2...@twister2.libero.it...

Se ne trovi interessano anche me....!
@Alex.


title: Disegnare un report

author: Thunder

text:
Ciao a tutti,
volevo sapere se esiste un modo per disegnare all'interno di un report forme
tipo rettangoli con angoli arrotondati.
Grazie,
Thunder


title: Disegnare un report

text:
"Thunder" <
romanolo...@freesurf.thunder.ch
> ha scritto nel messaggio
news:cl94cd$e1i$1...@newshispeed.ch...

che io sappia no, però puoi sempre crearteli con programmi di grafica e poi
metterceli come elementi grafici
l'unico contro è che la stampa del report si rallenta un po.


title: Disegnare un report

text:
"Thunder" <
romanolo...@freesurf.thunder.ch
> ha scritto nel messaggio
news:cl94cd$e1i$1...@newshispeed.ch...
> Ciao a tutti,
>
> volevo sapere se esiste un modo per disegnare all'interno di un report
forme
> tipo rettangoli con angoli arrotondati.
Si é possibile: lo puoi fare componendo il disegno di 4 linee (ottenute con
il metodo Line, vedi help) raccordate da quattro settori di cerchio di 90°
(ottenuti con il metodo Circle, vedi help).
>
> Grazie,
> Thunder
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Disegnare un report

author: ALESSANDRO Baraldi

text:
"Thunder" <
romanolo...@freesurf.thunder.ch
> ha scritto nel messaggio
news:cl94cd$e1i$1...@newshispeed.ch...

In realtà non è così semplice affrontare questo problema.
Come ti diceva Roberto hai a disposizione i Metodi Line e Circle
per disegnare nel Report ma il rpoblema principale è che li puoi
usare solo nell'Evento PRINT di Sezione.
Ti allego un Esempio che disegna un Rettangolo con gli angoli arrotondati
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
    Dim sngCtrO As Single, sngCtrV As Single
    Const conPI = 3.
14159265359
    Dim sngRaggio As Single
    sngCtrO = Me.ScaleWidth ' Centro orizzontale.
    sngCtrV = Me.ScaleHeight ' Centro verticale.
    sngRaggio = 300 ' Raggio del cerchio.
    Me.Circle (sngRaggio * 1.1, sngRaggio * 1.1), sngRaggio, , conPI / 2,
conPI
    Me.Circle (sngCtrO - sngRaggio * 1.1, sngRaggio * 1.1), sngRaggio, ,
0,conPI / 2
    Me.Circle (sngRaggio * 1.1, sngCtrV - sngRaggio * 1.1), sngRaggio, ,
conPI,3 * conPI / 2
    Me.Circle (sngCtrO - sngRaggio * 1.1, sngCtrV - sngRaggio * 1.1),
sngRaggio, , 3 * conPI / 2, 0
    Me.Line (sngRaggio * 1.1, sngRaggio * 0.1)-(sngCtrO - sngRaggio *
1.1,sngRaggio * 0.1)
    Me.Line (sngRaggio * 0.1, sngRaggio * 1.1)-(sngRaggio * 0.1, sngCtrV -
sngRaggio * 1.1)
    Me.Line (sngRaggio * 1.1, sngCtrV - sngRaggio * 0.1)-(sngCtrO -
sngRaggio *1.1, sngCtrV - sngRaggio * 0.1)
    Me.Line (sngCtrO - sngRaggio * 0.1, sngCtrV - sngRaggio *
1.1)-(sngCtrO - sngRaggio * 0.1, sngRaggio * 1.1)
End Sub
Ora il problema più grosso da affrontare è se il tuo Report ha oltre il
Corpo anche:
    PiediPagina_Pagina
    PiediPagina_Report
    Intestazione_Pagina
    Intestazione_Report
In questo caso devi inserire in ogni Evento Print delle Sezioni Interessate
al Disegno
la prosecuzione della Linea da dove l'hai interrotta..... e riprenderla
nella sezione sotto...!
In pratica se supponi di avere un Report MultiPagina, il disegno non
comprenderà gli eventi
nell'Intestazione_Report e nel PiediPagina_Report, ma andranno disegnati in
questo Ordine:
Intestazione_Pagina    (Parte Superiore con 2 quarti di
Circonferenza+1LineaOrizz+2Linne Vert)
Corpo                        (Parte Intermedia con la prosecuzione delle 2
Linee Verticali)
PIediPagina_Pagina     (Parte Finale con la ripresa delle 2 Linee Vertcali 2
Quarti di Circonf. +Linea Orizzontale)
Spero di non averti spaventato.....!!!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Disegnare un report

text:
Correggo un'errore che ho testato ora su suggerimento di Silvio Savoldi.
E' possibile usare l'Evento "Su Pagina" del Report per generare
Automaticamente
un Box delle dimensioni della Pagina.
Pertanto se si mette la stessa funzione nel suddetto EVENTO verrà disegnato
un
RETTANGOLO con i bordi smussati della Dimensione dell'Area di stampa.
Saluti.



title: Implementazione di un "Trova record"

author: Michele Amato

text:
Ho appena pubblicato sulla mia pagina personale un'interessante
implementazione di un
"Trova record".
Tutta la logica sta in una sola maschera.
Sfruttando le proprietà Screen.ActiveControl, tale maschera riesce a
popolare una list box e una combo box, con l'elenco dei valori distinti del
campo associato...
Grazie a questa funzione, ogni documento (di tipo tabella, query di
selezione, maschera) dell'applicazione potra beneficiare di questo "Trova
record", senza fare nulla, se non importare la maschera e una toolbar per
attivarla.
Dato che è tutto open source, credo possa essere di interesse anche per il
Sito Comune.
Un saluto a tutti.
Michele Amato
P.S.
...ah dimenticavo, è il lavoro di un paio di giorni di "pensate" e un paio
d'ore di implementazione...
sicuramente qualcosa è migliorabile...in ogni caso qualsiasi suggerimento è
ben accetto.
http://utenti.worldonline.it/micheleamato/download.htm
sezione
Universal ListBox


title: Apertura da codice VBA di un elenco a comparsa

text:
Salve a tutti.
Vi sarei grato se mi sapeste indicare la via per forzare da codice VBA
l'apertura di un elenco a comparsa associato ad una casella di testo
tramite combo-box. Diciamo pure che l'azione dev'essere eseguita
quando si verifica l'evento GotFocus sul controllo. Anticipate grazie,
S


text:

Metodo DROPDOWN dell'oggetto ComboBox
@Alex


text:

Chiaro. Molte grazie davvero.
S


title: access 2007 e barre

author: Riccardo

text:
Buongiorno a tutti,
volevo sapere se è possibile da codice:
- ridurre la barra multifunzione di access (mi sembra di capire che in
un'applicazione non sia possibile eliminarla del tutto);
- nascondere la finestra con i vari oggetti (tabelle, maschere ecc.)
in modo da avere un'applicazione pulita...oppure con Access 2007 questi
elementi si dovranno vedere sempre?
grazie mille
Riccardo


title: access 2007 e barre

author: MA

text:
Riccardo wrote:
> Buongiorno a tutti,
>
> volevo sapere se è possibile da codice:
> - ridurre la barra multifunzione di access (mi sembra di capire che in
> un'applicazione non sia possibile eliminarla del tutto);
tasto dx sulla barra "Riduci.."
> - nascondere la finestra con i vari oggetti (tabelle, maschere ecc.)
> in modo da avere un'applicazione pulita...oppure con Access 2007
> questi elementi si dovranno vedere sempre?
Start di Office
Opzioni
e lì trovi quello che vuoi
>
> grazie mille
>
> Riccardo
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: access 2007 e barre

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:g10le2$a77$1...@tdi.cu.mi.it...
Riccardo wrote:
> Buongiorno a tutti,
>
> volevo sapere se č possibile da codice:
> - ridurre la barra multifunzione di access (mi sembra di capire che in
> un'applicazione non sia possibile eliminarla del tutto);
tasto dx sulla barra "Riduci.."
> - nascondere la finestra con i vari oggetti (tabelle, maschere ecc.)
> in modo da avere un'applicazione pulita...oppure con Access 2007
> questi elementi si dovranno vedere sempre?
Start di Office
Opzioni
e lě trovi quello che vuoi
>
> grazie mille
>
> Riccardo
solo in questo modo manuale?
da codice non si puo'?
grazie
Riccardo


title: Mail da Access con CDO e Libero

author: PEO from RSM

text:
Fischiettavo felice perchè riuscivo a inviare mail da access con CDO.
Tutto filava liscio, usavo in SMTP il server di Libero con il mio
utente/password.
Ma da almeno una settimana NON FUNZIONA PIUUUUU'... Perchèèèèèè?
Mi segnala "Il trasporto non è riuscito a connettersi al server" e non
fa nulla.
Eppure tutto funzionava e io non ho toccato nulla.
Ha cambiato qualcosa Libero?
Qualcuno sa qualcosa? Help!
PEO from RSM
www.peogio.net


title: Mail da Access con CDO e Libero

author: Pierpaolo Romanelli

text:
Sembra che PEO from RSM abbia detto :

Ciao, Libero di tanto in tanto, fa queste cose, probabilmente dovrai
fornire le tue credenziali di accesso...
Non ho fatto verifiche, è solo una ipotesi...
Tempo addietro, non accedevo alle news, perché bisognava fornire le
credenziali... poi lo hanno tolto...
Prova a fornire le credenziali a CDO.
--
http://www.pierpaoloromanelli.com/aim-free-universal-information-manager.html
http://cala79.blog.excite.it/permalink/499745


title: Mail da Access con CDO e Libero

author: NSantini

text:
"PEO from RSM" <
casel...@libero.it
> ha scritto nel messaggio
news:1190739265....@k79g2000hse.googlegroups.com...



PEO from RSM
www.peogio.net
A parte che ti si è inceppato il meccanismo e che mi auguro troverai la
soluzione, sono interessato a inviare e-mail da Access perché da poco ho
aperto un circolo di scacchi e i soci li tengo aggiornati sugli eventi a
mezzo e-mail. Quindi mi interessa conoscere cos'è il CDO ed eventuialmente
se è un doftware dove lo trovo, e ovviamente sono interessato alla soluzione
dell'inceppamento di cui lamenti.
Grazie. Ciao
NSantini


title: Mail da Access con CDO e Libero

author: Sergio MAZZA

text:
"NSantini" <
nu...@iol.it
> ha scritto nel messaggio
news:v4eKi.124259$U01.9...@twister1.libero.it...
> A parte che ti si è inceppato il meccanismo e che mi auguro troverai la
> soluzione, sono interessato a inviare e-mail da Access perché da poco ho
> aperto un circolo di scacchi e i soci li tengo aggiornati sugli eventi a
> mezzo e-mail. Quindi mi interessa conoscere cos'è il CDO ed eventuialmente
> se è un doftware dove lo trovo, e ovviamente sono interessato alla
> soluzione dell'inceppamento di cui lamenti.
> Grazie. Ciao
> NSantini
Buona lettura.
http://search.msdn.microsoft.com/search/Default.aspx?query=cdo+cdosys&brand=msdn&locale=en-us&refinement=00&lang=en-us
http://www.cdolive.com/default.htm
Ciao.
--
Sergio MAZZA


title: Mail da Access con CDO e Libero

text:
> > Fischiettavo felice perchè riuscivo a inviare mail da access con CDO.
> > Tutto filava liscio, usavo in SMTP il server di Libero con il mio
> > utente/password.
> > Ma da almeno una settimana NON FUNZIONA PIUUUUU'... Perchèèèèèè?
> > Mi segnala "Il trasporto non è riuscito a connettersi al server" e non
> > fa nulla.
> Ciao, Libero di tanto in tanto, fa queste cose, probabilmente dovrai
> fornire le tue credenziali di accesso...
> Non ho fatto verifiche, è solo una ipotesi...
> Tempo addietro, non accedevo alle news, perché bisognava fornire le
> credenziali... poi lo hanno tolto...
> Prova a fornire le credenziali a CDO.
Attenzione!
Il mio programma ha funzionato per 8 mesi così come è addesso usando
"credenziali" (penso che tu intenda server smtp, user e password) di
un account di Libero.
Ora non funziona più.
Non sto sbagliando io, è cambiato qualcosa in Libero. Ma cosa?
PEO from RSM
www.peogio.net
PS: se utilizzo come mittente (credenziali) un indirizzo aziendale, il
programma funziona tuttora (ma io non voglio fare girare per il web
l'indirizzo aziendale, usavo quello di Libero apposta!)


title: Mail da Access con CDO e Libero

author: Alessandro Cara

text:
PEO from RSM wrote:
[cut]
> PS: se utilizzo come mittente (credenziali) un indirizzo aziendale, il
> programma funziona tuttora (ma io non voglio fare girare per il web
> l'indirizzo aziendale, usavo quello di Libero apposta!)
Ma hai verificato se con un qualsiasi gestore di posta (OL o Thunderbird
ad es) funziona? Magari e' cambiato qualcosa a livello del server di
libero e devi modificare qualche parametro sull'oggetto CDO.
--
ac
y-1=x


title: Mail da Access con CDO e Libero

text:


Con Libero NON puoi scaricare la posta su Outlook & Co., puoi solo
vederla via webmail (da
www.libero.it
 + utente e password), perlomeno
se non sei connesso a internet tramite Libero (è così da qualche
anno).
Mi sapete dire qualche altro servizio di e-mail (tipo Libero) con cui
posso provare?
Voi cosa usate?
PEO from RSM
www.peogio.net