title: Problema con casella combinata

author: Ben

text:
Ho diverse caselle combinate con 4 voci in elenco, quando apro la maschera
che le contiene sono normalmente posizionate su una voce oppure sono vuote.
Vorrei fare in modo che il programma si accorgesse del fatto che una certa
casella è vuota (generando un certo evento) e che vi posizionasse il
cursore.
Con le caselle di testo ho risolto in questo modo:
If Maschera.caselladitesto.text = "" then ........
come fare con le caselle combinate?
Grazie.


title: Problema con casella combinata

author: Federico Luciani

text:

Prova con:
if isnull(Me.NomeCombo) then
  msgbox "ehi riempimi!"
  Me.NomeCombo.setfocus
end if
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Problema con casella combinata

author: Daniele Perillo

text:
Una casella combinata contiene tre valori (A, B e C), Con l'opzione "Solo in
Elenco" impostata su "No". Vorrei che qualora venissero inseriti nuovi
valori nella casella questi venissero aggiunti ai valori preesistenti in
elenco (A, B e C).
COME FACCIO???
Sto sbattendo la capa al muro, aiutatemi, grazie!
--
Posted from
relay3.inwind.it
 [212.141.53.74]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Problema con casella combinata

author: Roberto dal portatile

text:
""Daniele Perillo"" <
daniele...@iol.it
> ha scritto nel messaggio
news:000001c09c3d$038bb700$ed89623e@desktop...
> Una casella combinata contiene tre valori (A, B e C), Con l'opzione "Solo
in
> Elenco" impostata su "No". Vorrei che qualora venissero inseriti nuovi
> valori nella casella questi venissero aggiunti ai valori preesistenti in
> elenco (A, B e C).
>
> COME FACCIO???
>
> Sto sbattendo la capa al muro, aiutatemi, grazie!
>
>
La routine VBA che ti serve va scritta a fronte dell'evento "Su non in
elenco" (vedi help) che esiste solo a condizione che la proprietà "Solo in
elenco" (vedi help) è impostata a "Si". Perchè tu hai la necissità
impostarla a "No"?
Risolto questa piccola contraddizione, l'inserimento lo puoi fare sulla
falsa riga di quello che trovi sull'help, oppure inserendo un record nella
tabella su cui è basata la query che è origine riga della tua casella
combinata:  e lo puoi realizzare con una maschera di inserimento o aprendo
un recordset su detta tabella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema con casella combinata

author: Guycho

text:
"Daniele Perillo" <
daniele...@iol.it
> wrote in message
000001c09c3d$038bb700$ed89623e@desktop...

L'origine riga della combo è un elenco valori o dati di una tabella?


title: imposta valore

author: Luigi

text:
Buon Giorno
A97
Macro:
ho una macro chiamata 'inscadenza'
dove c'e' un impostavalore con questi dati:
Elemento: [Forms]![Scadenza]![Debito]
Espressione:[Forms]![Carico]![Totale_Documento]
Bene se il Totale_Documento e' negativo (-) come faccio a portare lo stesso
non in [DEBITO] ma in un'altra casella chiamata [CREDITO]
Grazie


title: imposta valore

author: Maurizio Borrelli

text:
> "Luigi" news:laTm9.207695$pX1.7...@news2.tin.it...:


IIf([Forms]![Carico]![Totale_Documento]>=0;[Forms]![Carico]![Totale_Document
o];0)
        Elemento: [Forms]![Scadenza]![Credito]
        Espressione:
IIf([Forms]![Carico]![Totale_Documento]<=0;[Forms]![Carico]![Totale_Document
o];0)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: imposta valore

author: Lorenzo Coronati

text:
Scrisse "Maurizio Borrelli" <
maurizio...@freepass.it
>:
>o];0)
e questo cos'e', un re maya col naso a patata che strizza
l'occhio?
lol
--
lorenzo coronati
---


title: imposta valore

text:
Maurizio Borrelli <
maurizio...@freepass.it
> wrote in message
anh029$e8dh9$1...@ID-52090.news.dfncis.de...

Mi da errore come mai!!!!
Ciao
Luigi


title: imposta valore

text:
> "Luigi" news:EbVm9.175859$ub2.3...@news1.tin.it...:
> > Maurizio Borrelli anh029$e8dh9$1...@ID-52090.news.dfncis.de...:
[...]
> Mi da errore come mai!!!!
    Aspetta che guardo nella lista degli errori...
    Mi dispiace. Il numero di errore che segnali non esiste.



title: Aiuto query

author: ccarbon

text:
Salve. Ho una tabella "Table1" cosi' struttura: DATA, ORA, DURATA,
EVENTI
Il campo DURATA e' un numero che esprime in secondi l'accumulo della
durata di tutti gli EVENTI verificatisi in una determinata ORA di un
determinato giorno (DATA).
Io dovrei fare una query che:
1) raccolga per ciascun giorno i 10 record piu' alti per il campo
EVENTI (ogni giorno ho 24 record, uno per ciascuna ora)
2)  dovrei  poi sommare tutti i valori del campo DURATA in secondi e
sommare anche EVENTI di tutte le decine di record raccolte al passo
sopra
Esempio: se estraggo due giorni di dati dovrei ottenere 20 record
totali (i top 10 del primo giorno e i top 10 del secondo giorno; i top
sulla base di EVENTI, appunto) a cui poi sommero' i valori di DURATA
ed EVENTI per ottenere due numeretti finali.
Grazie a chiunque potra' aiutarmi. Io sto impazzendo ma non ci riesco
proprio...


title: Aiuto query

author: Antonio Biso

text:
"ccarbon" <
ciro.c...@gmail.com
> ha scritto nel messaggio
news:460e4e49-e6b5-49b4...@k10g2000yqa.googlegroups.com...
> Salve. Ho una tabella "Table1" cosi' struttura: DATA, ORA, DURATA,
Titolo poco significativo
Antonio


title: [FORSE OT] imparare i db

author: edo

text:
 Scusatemi, sono il classico principiante inesperto e rompipalle.
Non so nulla di programmazione nè di data base, fin'ora sono rimasto sempre
nell'ambito networking, ma voglio ampliare le mie (scarse) conoscenze.
Vorrei sapere se online c'è qualche corso gratis, qualche dispensa, pdf,
ecc...di access 2000 (tanto per cominciare poi si vedrà)
Grazie mille
Edo


title: [FORSE OT] imparare i db

author: Massimiliano Amendola  kksrl

text:
"edo" <
cin...@yahoo.com
> ha scritto nel messaggio
news:10256117...@silvia.ihnet.it...

collegati alla ns bibbia
www.sitocomune.com
segui questo ng
usa molto gli esempi "Soluzioni" e "Northwin" di Access.
comincia così
ciao MAssimiliano


title: [FORSE OT] imparare i db

author: VT @ home

text:
Un po' di teoria non fa mai male ...
http://wwwesterni.unibg.it/siti_esterni/ctd/elab/relazio/
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: Ma come...

author: FABRIZIO DE BIASI

text:
--
Posted from
ro...@rizla.energy.it
 [212.51.128.1]
via Mailgate.ORG Server -
http://www.mailgate.org


title: Ma come...

author: Giovanni Albertone

text:
Sapessi...
--
Ciao,
Giovanni


title: Ma come...

author: Luciano

text:
Giovanni Albertone ha scritto nel messaggio
<
5d2fcsk5iv00vh60k...@4ax.com
>...
>
>Sapessi...
E diglielo, no!?!
Saluti.
Luciano


title: Ma come...

text:
On Thu, 9 Mar 2000 12:59:02 +0100, "Luciano" <
mc5...@mclink.it
> wrote:
>E diglielo, no!?!
Seeee, e se lo dico a lui poi lo sanno pure tutti gli altri! :-)
(Questa risposta e' stata data ad un mio conoscente dalla
professoressa che lo aveva appena segato, insieme con i 5 prima di
lui, con la stessa domanda. Io ero il candidato successivo, e sono
stato segato lo stesso, ma con domanda diversa :-)
--
Ciao,
Giovanni


title: creazione codice per font EAN13

author: pippo

text:
Salve a tutti,
avrei bisogno di creare, tramite access, una procedura che crei un
codice per utilizzare un font EAN13 scaricato dalla rete.
Questa seguente è la documentazione fornita con il font, a me risulta
incomprensibile, qualche drittaa'
Grazie
To encode 123456789012:
"b3D5FG|XYPQRx
1 is encoded in the left hand sequence: ABABB put is printed: ASC(34)
or (&H22)
2 is the second flag character ASC(98) or (&H62)
3 left hand A ASC(51) or (&H33)
4 left hand B ASC(68) or (&H44)
5 left hand A ASC(53) or (&H35)
6 left hand B ASC(70) or (&H46)
7 left hand B ASC(71) or (&H47)
Center guard ASC(124) or (&H7C)
8 right hand ASC(88) or (&H58)
9 right hand ASC(89) or (&H59)
0 right hand ASC(80) or (&H50)
1 right hand ASC(81) or (&H51)
2 right hand ASC(82) or (&H52)
the check character = 2 + 0 + 8 + 6 + 4 + 2 = 22 * 3 = 66 + 1 + 9 + 7
+ 5 + 3 + 1 = 92
100 is the closest multiple of 10 to 92 so 100 - 92 = 8 (Check
character is 8)
Check character 8 ASC(120) or (&H78)


title: creazione codice per font EAN13

author: almorel

text:

Ciao,
trovi qui qualcosa di interessante.
C'è anche un calcolatore di check digit.
http://www.morovia.com/education/symbology/ean-13.asp
Ciao
Alberto


title: Verificare se record esiste

author: Fabrizio

text:
Ho creato una tabella con dei campi articolo.
Vorrei sapere se esiste un controllo che in fase di inserimento verifichi se
un dato campo esiste già e qualora esista dovrebbe comparire una finestra
d'errore.
Fabrizio


title: Verificare se record esiste

author: sara

text:
On Mon, 15 Oct 2001 17:13:03 +0200, "Fabrizio" <
far...@tiscalinet.it
>
wrote:

dlookup


title: Verificare se record esiste

author: principiante

text:
"Fabrizio" <
far...@tiscalinet.it
> ha scritto nel messaggio
news:9qeudu$5gj$1...@pegasus.tiscalinet.it...

> Se intendi verificare se un dato "valore" esiste gìà puoi evitarlo
impostando un indice univoco: es. se vuoi evitare di avere due articoli con
lo stesso nome imposti la proprietà indicizzato del campo nome a si
(duplicati non ammessi). Il messaggio di errore te lo darà da solo.
Se intendevi qualcos'altro non ho capito il problema


title: Verificare se record esiste

text:
"sara" <
a...@aaa.it
> ha scritto nel messaggio
news:3bcb0e53...@news.inwind.it...

Ho provato a consultare la guida in linea ma non sono riuscito a fare la
ricerca. Mi puoi fare un esempio?


title: Verificare se record esiste

text:
Fabrizio <
far...@tiscalinet.it
> wrote in message
jH1z7.3000$V75....@news1.tin.it...

crit = "[articolo] = '" & me.articolo & "'"
if not isnull(dlookup("[unodeicampi],"Tuatabella",crit)) then
  msgbox "Nun ce provà, sto valore già esiste"
end if
Antonio


title: [OT] Finestra Logo iniziale access 2000 personalizzabile?

author: NON emmedi PROVARCI @nemmenotin.itintesi? OneEDP

text:
Sono sicuro che la soluzione c'č.
A parte la finestra iniziale impostata nel menu avvio... č possibile evitare
che venga visualizzata la finestra di access 2k che mostra il logo, o meglio
č possibile personalizzare la finestra contenente il logo, num. serie ecc.
ecc.?
Scusate se č banale, ma comincia a essere fastidioso.
Grazie a tutti
Daniele


author: MA

text:
                    Il 18 Ago 2004, 16:30, "OneEDP" <one NON emmedi PROVARCI @ NEMMENO
tin.it
INTESI?> ha scritto:
> Sono sicuro che la soluzione c'è.
> A parte la finestra iniziale impostata nel menu avvio... è possibile
evitare
> che venga visualizzata la finestra di access 2k che mostra il logo, o
meglio
> è possibile personalizzare la finestra contenente il logo, num. serie ecc.
> ecc.?
> Scusate se è banale, ma comincia a essere fastidioso.
> Grazie a tutti
> Daniele
>
          Ciao Daniele,
da te non me l'aspettavo 'sta cosa ampiamente dibattuta in precedenza.
Cmq metti un file bmp nella stessa directory del tuo applicativo e con lo
stesso nome di quest'ultimo
pippo.mdb ------->pipp.bmp
verrà visualizzato per poco il bmp invece del logo Access.
Poi se vuoi mantenerlo qualche secondo in più apri una form con su
l'immagine che vuoi oppure vai sul sito di @Alex e prendi se non mi sbaglio
Roundeffect e col timer la chiudi
Ciao MAssimiliano

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:82Z51Z82Z96Y10...@usenet.libero.it...
>                     Il 18 Ago 2004, 16:30, "OneEDP" <one NON emmedi
PROVARCI @ NEMMENO
tin.it
> INTESI?> ha scritto:
> > Sono sicuro che la soluzione c'è.
> > A parte la finestra iniziale impostata nel menu avvio... è possibile
> evitare
> > che venga visualizzata la finestra di access 2k che mostra il logo, o
> meglio
> > è possibile personalizzare la finestra contenente il logo, num. serie
ecc.
> > ecc.?
> > Scusate se è banale, ma comincia a essere fastidioso.
> > Grazie a tutti
> > Daniele
> >
>           Ciao Daniele,
> da te non me l'aspettavo 'sta cosa ampiamente dibattuta in precedenza.
> Cmq metti un file bmp nella stessa directory del tuo applicativo e con lo
> stesso nome di quest'ultimo
> pippo.mdb ------->pipp.bmp
>
Difatti risale ai tempi sepolcrali ora che me ne ricordo... e tra l'altro in
tempi remoti avevo creato dei bmp ad hoc.
> verrà visualizzato per poco il bmp invece del logo Access.
non c'è da qualche parte del mondo un file da rinominare e/o una chiave nel
registro da modificare...?
> Poi se vuoi mantenerlo qualche secondo in più apri una form con su
> l'immagine che vuoi oppure vai sul sito di @Alex e prendi se non mi
sbaglio
> Roundeffect e col timer la chiudi
Ti ringrazio.
Ciao
Daniele



title: Inviare stringa di testo sulla COM 1

author: beks

text:
Avrei l'esigenza inviare una stringa di testo con VBA all'etichettratrice
tramite COM1.
Ringrazio fin d'ora tutti.
saluti fabrizio


title: Inviare stringa di testo sulla COM 1

author: Gigi Gix

text:
"beks" <
b_b...@hotmail.com
> ha scritto nel messaggio
news:6zh77.26293$NZ6.8...@news.infostrada.it...

Per iniziare scusa il forte ritardo ecco come sto procedendo per un'
applicazione simile che utilizza la seriale Com? con ActiveX MsComm
-Da struttra maschera crea un pulsante "Comando0"
-Da menù inserisci Controlli ActiveX, seleziona Microsoft Comunication
Control; inserisce il "Telefono"
-Tasto destro sul telefono - Oggetto Mscomm ---> Propietà (non le propietà
al fondo del menù contestuale riferite all'oggetto ActiveX in quanto
tale);Dunque Oggeto MsComm -> Propietà visualizza una maschera di
riferimento all'oggetto Mscomm di facile configurazione per Baudrate,
dimensioni del buffer bit stop len ecc.. più ottima guida
-Mmmh.. Ora tasto destro sul telefono - Propietà quelle riferite al
controllo activeX chiamalo nel mome Elemento "MyComm"
-Letto esempi della Guida procedi con la stringa in uscita Manuale della
stampante alla mano nel code Vba
codice da inserire nel modulo del form(maschera)
Option Compare Database
Public PippoCom As Object 'dichiaro l'oggetto
Private Sub Comando0_Click()
'Tutto fatto qui apertura trasmissione chiusura
    On Error Resume Next 'controllo che apertura funza correttamente rif
Propietà Oggetto
    Err.Clear
    PippoCom.PortOpen = True 'Apertura
    If Err.Number <> 0 Then
        MsgBox Err.Description
        Exit Sub
    End If
    On Error GoTo 0
    PippoCom.Output = "Guarda Pippo Scrive Ciao !" 'Striga di uscita
    PippoCom.PortOpen = False 'senza controllo errore che bisognerebbe
mettere chiudo la  porta
End Sub
Private Sub Form_Load()
    Set PippoCom = Me.MyComm 'All'apertura assegno il riferimento di oggetto
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set PippoCom = Nothing 'Alla chisura scarico riferimento di oggetto
End Sub


title: Totale somma x Query...

author: SuperPippo®

text:
ciao... ho una query a campi incrociati che mi elenca dei codici ed a fianco
dei totali...
e poi ancora dei totali x comune...sono 9.....
mi occorre alla fine della query un record con la somma  dei totali più la
somma dei totali x comune...è possibile....
allego il codice SQL....come si può trasformare ???
----------------------------------------------------------------------------
-
TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe Query].Codice_ASL)
AS [Totale di Codice_ASL]
FROM [Anagrafe Query]
GROUP BY [Anagrafe Query].Codice_Esenzione
PIVOT [Anagrafe Query].des_residenza;
----------------------------------------------------------------------------
-
Ciao e grazie....
--
SuperPippo®   [;o))


title: Totale somma x Query...

author: Roberto dal portatile

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:GsdI7.85229$sq5.4...@news.infostrada.it...

Creati un aquery di raggruppamento basata sulla tua query a campi
incrociati, tale che ti restituisca una sola riga i cui campi conterranno
quindi i totali di colonna della query a campi incrociati.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Totale somma x Query...

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9t32bp$442q$1...@stargate1.inet.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| news:GsdI7.85229$sq5.4...@news.infostrada.it...
| > ciao... ho una query a campi incrociati che mi elenca dei codici ed a
| fianco
| > dei totali...
| > e poi ancora dei totali x comune...sono 9.....
| > mi occorre alla fine della query un record con la somma  dei totali più
la
| > somma dei totali x comune...è possibile....
| > allego il codice SQL....come si può trasformare ???
|
> --------------------------------------------------------------------------
| --
| > -
| > TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
| > SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe
| Query].Codice_ASL)
| > AS [Totale di Codice_ASL]
| > FROM [Anagrafe Query]
| > GROUP BY [Anagrafe Query].Codice_Esenzione
| > PIVOT [Anagrafe Query].des_residenza;
|
> --------------------------------------------------------------------------
|
| Creati una query di raggruppamento basata sulla tua query a campi
| incrociati, tale che ti restituisca una sola riga i cui campi conterranno
| quindi i totali di colonna della query a campi incrociati.
| --
| Roberto
| ------------------------------
Scusa Roberto... ma non ho ben capito il procedimento che devo effettuare...
aprendo la query in modalità Struttura ... già mi appare con voci di
raggruppamento....provo a spiegarmi meglio....
nella mia query appaiono nei campi 9 rispettivi Comuni con il
conteggio di Codici di Esenzione...
alla fine di questi 9 campi vorrei il totale...
ti incollo quello che è scritto in Struttura query....
x visualizzarla bene conviene massimizzare la finestra....
----------------------------------------------------------------------------
-----------------------------------------------------
Codice_Esenzione   des_residenza              Il valore: Codice_ASL
Totale di Codice_ASL: Codice_ASL
Anagrafe Query       Anagrafe Query            Anagrafe Query
Anagrafe Query
Raggruppamento      Raggruppamento          Conteggio
Conteggio
Intestazione riga       Intestazione colonna    Valore
Intestazione riga
----------------------------------------------------------------------------
--------------------------------------------------------
Buona domenica...
Ciao e grazie...


title: Totale somma x Query...

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:3ZwJ7.114774$sq5.5...@news.infostrada.it...

Come è fatta la tua query a campi incrociati l'avevo capito dal codice SQL
che hai postato nel tuo primo messaggio.
La prima cosa che devi fare è quella di fare in maniera che la tua query a
campi incrociati abbia sempre 9 colonne; ciò lo ottieni aprendo la sua
struttura ed impostando adeguatamente la sua proprietà Intestazione colonne
dove, scandite da punto e virgola, scriverai le 9 des_residenza.
La tua query a campi incrociati avrà un codice SQL simile:
TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe Query].Codice_ASL)
AS [Totale di Codice_ASL]
FROM [Anagrafe Query]
GROUP BY [Anagrafe Query].Codice_Esenzione
PIVOT [Anagrafe Query].des_residenza In
("uno","due","tre","quattro","cinque","sei","sette","otto","nove");
dove
"uno","due","tre","quattro","cinque","sei","sette","otto","nove"
li modificherai mettendoci i nove valori possibili contenuti nel campo
des_residenza.
A questo punto creati una query di raggruppamento basata sulla tua query a
campi incrociati; se la query a campi incrociati si chiama Anagrafe
Query_CampiIncrociati, quest'ultima query avrà un codice SQL simile a
questo:
SELECT Sum([Anagrafe Query_CampiIncrociati].[Totale di Codice_ASL]) AS
[SommaDiTotale di Codice_ASL], Sum([Anagrafe Query_CampiIncrociati].uno) AS
SommaDiuno, Sum([Anagrafe Query_CampiIncrociati].due) AS SommaDiDue,
Sum([Anagrafe Query_CampiIncrociati].tre) AS SommaDitre, Sum([Anagrafe
Query_CampiIncrociati].quattro) AS SommaDiQuattro, Sum([Anagrafe
Query_CampiIncrociati].cinque) AS SommaDicinque, Sum([Anagrafe
Query_CampiIncrociati].sei) AS SommaDisei, Sum([Anagrafe
Query_CampiIncrociati].sette) AS SommaDisette, Avg([Anagrafe
Query_CampiIncrociati].otto) AS MediaDiotto, Sum([Anagrafe
Query_CampiIncrociati].nove) AS SommaDinove
FROM [Anagrafe Query_CampiIncrociati];
Questa sarà la query che contiene i totali di colonna della query a campi
incrociati e ne potrai farne l'uso che preferisci all'interno di una
maschera o di un report.



title: Totale somma x Query...

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9tb4l6$12kq$1...@stargate1.inet.it...
[Super CUT]|
| Questa sarà la query che contiene i totali di colonna della query a campi
| incrociati e ne potrai farne l'uso che preferisci all'interno di una
| maschera o di un report.
| --
| Roberto
---------------------------
Ciao Roberto... ho eseguito quanto hai detto ma mi esce un errore...
"Il modulo di gestione di Database Microsoft Jet non è in grado di eseguire
l'istruzione SQL perchè include un campo con un tipo di dati non valido"
qundi non si apre proprio la query...
sostituendo il primo campo Codice Es. da Somma in Raggruppamento...
si apre la query ma non mi mostra i totali desiderati....
ti allego l' SQL.....
--------------------------------------------
SELECT Sum([Anagrafe Query_Campi Incrociati per Comune].Codice_Esenzione) AS
SommaDiCodice_Esenzione, Sum([Anagrafe Query_Campi Incrociati per
Comune].[Totale di Codice_ASL]) AS [SommaDiTotale di Codice_ASL],
Sum([Anagrafe Query_Campi Incrociati per Comune].Castelforte) AS
SommaDiCastelforte, Sum([Anagrafe Query_Campi Incrociati per Comune].Formia)
AS SommaDiFormia, Sum([Anagrafe Query_Campi Incrociati per Comune].Gaeta) AS
SommaDiGaeta, Sum([Anagrafe Query_Campi Incrociati per Comune].Itri) AS
SommaDiItri, Sum([Anagrafe Query_Campi Incrociati per Comune].Minturno) AS
SommaDiMinturno, Sum([Anagrafe Query_Campi Incrociati per Comune].Ponza) AS
SommaDiPonza, Sum([Anagrafe Query_Campi Incrociati per Comune].[Santi Cosma
e Damiano]) AS [SommaDiSanti Cosma e Damiano], Sum([Anagrafe Query_Campi
Incrociati per Comune].[Spigno Saturnia]) AS [SommaDiSpigno Saturnia],
Sum([Anagrafe Query_Campi Incrociati per Comune].Ventotene) AS
SommaDiVentotene
FROM [Anagrafe Query_Campi Incrociati per Comune];
---------------------------------------
--
SuperPippo®   [;o))


title: Totale somma x Query...

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:jP9K7.128347$sq5.6...@news.infostrada.it...

Infatti devi usare il seguente codice SQL:
SELECT  Sum([Anagrafe Query_Campi Incrociati per Comune].[Totale di
Codice_ASL]) AS [SommaDiTotale di Codice_ASL],
Sum([Anagrafe Query_Campi Incrociati per Comune].Castelforte) AS
SommaDiCastelforte, Sum([Anagrafe Query_Campi Incrociati per Comune].Formia)
AS SommaDiFormia, Sum([Anagrafe Query_Campi Incrociati per Comune].Gaeta) AS
SommaDiGaeta, Sum([Anagrafe Query_Campi Incrociati per Comune].Itri) AS
SommaDiItri, Sum([Anagrafe Query_Campi Incrociati per Comune].Minturno) AS
SommaDiMinturno, Sum([Anagrafe Query_Campi Incrociati per Comune].Ponza) AS
SommaDiPonza, Sum([Anagrafe Query_Campi Incrociati per Comune].[Santi Cosma
e Damiano]) AS [SommaDiSanti Cosma e Damiano], Sum([Anagrafe Query_Campi
Incrociati per Comune].[Spigno Saturnia]) AS [SommaDiSpigno Saturnia],
Sum([Anagrafe Query_Campi Incrociati per Comune].Ventotene) AS
SommaDiVentotene
FROM [Anagrafe Query_Campi Incrociati per Comune];
Nella query di raggruppamento il campo [Anagrafe Query_Campi Incrociati per
Comune].Codice_Esenzione non deve prenderlo per niente in considerazione,
visto che stai ottenendo i totali di colonna.



title: Totale somma x Query...

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9tbh55$sd8$1...@stargate1.inet.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| news:jP9K7.128347$sq5.6...@news.infostrada.it...

Ok.. funziona Roberto... però mi da un solo record con i totali....
a me servirebbe la query completa composta da tutti i record
con i totali di colonna in fondo ... è possibile ??
Ciao....
--
SuperPippo®   [;o))


title: Totale somma x Query...

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:OVqK7.134522$sq5.6...@news.infostrada.it...
[CUT]
>
> Ok.. funziona Roberto... però mi da un solo record con i totali....
> a me servirebbe la query completa composta da tutti i record
> con i totali di colonna in fondo ... è possibile ??
Si, dovresti poterlo fare con una query unione.
Se il campo Codice_Esenzione è di tipo Testo, fermo restando la creazione
della query a campi incrociati che si chiama Anagrafe Query_Campi Incrociati
per Comune, prova a crearti anche una query unione che abbia il sequente
codice SQL:
SELECT  "ZZTotali" AS Codice_Esenzione, Sum([Anagrafe Query_Campi Incrociati
per Comune].[Totale di Codice_ASL]) AS [SommaDiTotale di Codice_ASL],
Sum([Anagrafe Query_Campi Incrociati per Comune].Castelforte) AS
SommaDiCastelforte, Sum([Anagrafe Query_Campi Incrociati per Comune].Formia)
AS SommaDiFormia, Sum([Anagrafe Query_Campi Incrociati per Comune].Gaeta) AS
SommaDiGaeta, Sum([Anagrafe Query_Campi Incrociati per Comune].Itri) AS
SommaDiItri, Sum([Anagrafe Query_Campi Incrociati per Comune].Minturno) AS
SommaDiMinturno, Sum([Anagrafe Query_Campi Incrociati per Comune].Ponza) AS
SommaDiPonza, Sum([Anagrafe Query_Campi Incrociati per Comune].[Santi Cosma
e Damiano]) AS [SommaDiSanti Cosma e Damiano], Sum([Anagrafe Query_Campi
Incrociati per Comune].[Spigno Saturnia]) AS [SommaDiSpigno Saturnia],
Sum([Anagrafe Query_Campi Incrociati per Comune].Ventotene) AS
SommaDiVentotene
FROM [Anagrafe Query_Campi Incrociati per Comune]
UNION
TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe Query].Codice_ASL)
AS [Totale di Codice_ASL]
FROM [Anagrafe Query]
GROUP BY [Anagrafe Query].Codice_Esenzione
PIVOT [Anagrafe Query].des_residenza;
Naturalmente la query di raggruppamento non ti serve più.
>
> Ciao....
>
> --
> SuperPippo®   [;o))



title: Totale somma x Query...

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9tdm4h$u9i$1...@stargate1.inet.it...

|-----------------------------------------------------
Diavolaccio.... non si apre... mi dice...
"Riferimento circolare causato da"Anagrafe Query_Campi Incrociati per
Comune".
andando a vedere nell'help dice di eliminare una dipendenza... e qual'è ???
ho cancellato anche la Query a campi incrociati pensando che potesse dargli
fastidio...come risolviamo... o meglio risolvi ???
--
SuperPippo®   [;o))


title: Totale somma x Query...

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:GgvK7.136186$sq5.6...@news.infostrada.it...
[CUT]
>
> Diavolaccio.... non si apre... mi dice...
> "Riferimento circolare causato da"Anagrafe Query_Campi Incrociati per
> Comune".
> andando a vedere nell'help dice di eliminare una dipendenza... e qual'è
???
> ho cancellato anche la Query a campi incrociati pensando che potesse
dargli
> fastidio...come risolviamo... o meglio risolvi ???
> --
> SuperPippo®   [;o))
In effetti ho commesso qualche erroruccio. :-(
Comunque se cancelli la query a campi incrociati la query unione non ti
funzionerà.
Ripartendo da zero, prova creandoti una query a campi incrociati chiamata
Anagrafe Query_Campi Incrociati per Comune (ma nomi più corti ti fanno
schifo?) che abbia il seguente codice SQL:
TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe Query].Codice_ASL)
AS [Totale di Codice_ASL]
FROM [Anagrafe Query]
GROUP BY [Anagrafe Query].Codice_Esenzione
PIVOT [Anagrafe Query].des_residenza In
("Castelforte","Formia","Gaeta","Itri","Minturno","Ponza","Santi Cosma e
Damiano","Spigno Saturnia","Ventotene");
ed una query unione chiamata Pippo che abbia il seguente  codice SQL:
SELECT  "ZZTotali" AS Codice_Esenzione, Sum([Anagrafe Query_Campi Incrociati
per Comune].[Totale di Codice_ASL]) AS [SommaDiTotale di Codice_ASL],
Sum([Anagrafe Query_Campi Incrociati per Comune].Castelforte) AS
SommaDiCastelforte, Sum([Anagrafe Query_Campi Incrociati per Comune].Formia)
AS SommaDiFormia, Sum([Anagrafe Query_Campi Incrociati per Comune].Gaeta) AS
SommaDiGaeta, Sum([Anagrafe Query_Campi Incrociati per Comune].Itri) AS
SommaDiItri, Sum([Anagrafe Query_Campi Incrociati per Comune].Minturno) AS
SommaDiMinturno, Sum([Anagrafe Query_Campi Incrociati per Comune].Ponza) AS
SommaDiPonza, Sum([Anagrafe Query_Campi Incrociati per Comune].[Santi Cosma
e Damiano]) AS [SommaDiSanti Cosma e Damiano], Sum([Anagrafe Query_Campi
Incrociati per Comune].[Spigno Saturnia]) AS [SommaDiSpigno Saturnia],
Sum([Anagrafe Query_Campi Incrociati per Comune].Ventotene) AS
SommaDiVentotene
FROM [Anagrafe Query_Campi Incrociati per Comune]
UNION TRANSFORM Count([Anagrafe Query].Codice_ASL) AS [Il valore]
SELECT [Anagrafe Query].Codice_Esenzione, Count([Anagrafe Query].Codice_ASL)
AS [Totale di Codice_ASL]
FROM [Anagrafe Query]
GROUP BY [Anagrafe Query].Codice_Esenzione
PIVOT [Anagrafe Query].des_residenza In
("Castelforte","Formia","Gaeta","Itri","Minturno","Ponza","Santi Cosma e
Damiano","Spigno Saturnia","Ventotene");
Per scrupolo questa soluzione l'ho testata e ti assicuro che a me funziona
perfettamente.
Se Access dovesse continuare a segnalarti riferimenti circolari, avendo in
mano tu il database e non avendo io il dono della chiaroveggenza, non saprei
cosa ipotizzare; ad occhio sembrerebbe che c'è qualcosa con la query
Anagrafe Query su cui è basata la query a campi incrociati, ma Access
avrebbe già dovuto segnalartelo nelle prove precedenti, quando usavi la
query a campi incrociati più la query di raggruppamento.
Sorry.



title: Totale somma x Query...

text:
PS
Se pensi che possa aiutarti, posso postare al tuo indirizzo e-mail il
database con cui ho testato i codici SQL delle due query che ti ho postato.



title: Totale somma x Query...

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9te23o$3ukg$1...@stargate1.inet.it...
| PS
|
| Se pensi che possa aiutarti, posso postare al tuo indirizzo e-mail il
| database con cui ho testato i codici SQL delle due query che ti ho
postato.
|
| --
| Roberto
-------------------------
ti ho risposto in privato.......... risolto... grazie... !!!!!
--
SuperPippo®   [;o))


title: ldb e diverse istanze stesso file

text:
Salve a tutti,
attraverso if len(dir(miopercorso)>0 so se è aperta già un'istanza di un
programma: nel momento in cui è già aperta, la seconda istanza dovrebbe
chiudersi e far ripristinare quella parcheggiata.
Come dirglelo a quest'imbecille del mio pc?
grazie MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: ldb e diverse istanze stesso file

text:
Il 04 Dic 2002, 19:19,
kk...@kksrl.com
 (MA) ha scritto:
> Salve a tutti,
> attraverso if len(dir(miopercorso)>0 so se è aperta già un'istanza di un
> programma: nel momento in cui è già aperta, la seconda istanza dovrebbe
> chiudersi e far ripristinare quella parcheggiata.
>
> Come dirglelo a quest'imbecille del mio pc?
Ad evitare che arrivino altri milioni di miliardi di post al mio quesito
pubblico il link della soluzione
http://www.mvps.org/access/api/api0041.htm
Grazie cmq
MAssimiliano
N.B. sia chiaro che non c'è un goccio di polemica, sono troppo in debito con
Voi per farne: è solo che ho ritenuto utile per il NG la soluzione.



title: converma query e verifica recordset vuoto

author: Raul

text:
con vb e sql inserisco dei valori su una tab
Sql = "INSERT INTO Tabella2 (Campo1,Campo2...) VALUES
quando do il comando DoCmd.RunSql Sql una finestra di allert mi dice se
voglio accodare il record, posso gestire la cosa solo con delle finestre di
conferma? senza che mi compaia quella di allert?
come posso verificare se il record è vuoto?
tnks


author: namor

text:
Raul ha scritto:

Gli alert predefiniti li gestisci con docmd.setwarnings.
Le richieste di conferma personalizzate le fai com msgbox.
Che vuol dire "verificare se il record è vuoto"?
Se non hai dati da inserire fai direttamente a meno di eseguire la query.
Forse intendi il testare le variabili o le caselle della maschera per
vedere se contengono o meno dei valori?
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Sergio MAZZA

text:
"Raul" <
wind...@libero.it
> ha scritto nel messaggio
news:T2rwb.1706$AX1....@news1.tin.it...

Per togliere le finestre di avvertimento vedi help alla voce SetWarnings;
per verificare se il recordset puoi utilizzare la funzione DCount (vedi
help)...
Ciao.
--
Sergio MAZZA


author: marco

text:
> Gli alert predefiniti li gestisci con docmd.setwarnings.
> Le richieste di conferma personalizzate le fai com msgbox.
> Che vuol dire "verificare se il record è vuoto"?
> Se non hai dati da inserire fai direttamente a meno di eseguire la query.
> Forse intendi il testare le variabili o le caselle della maschera per
si devo verificare in base ad un filtro se il valore che devo immettere
esiste già


text:
marco ha scritto:


Allora puoi verificare con Dlookup() prima dell'inserimento se i dati che
vuoi inserire esistono già nella tabella.
Dlookup("nome_campo","nome_tabella","criterio")



title: problema query con ADO

author: Alex

text:
Ciao a tutti, ho una query che mi dà problemi, ma la cosa strana è che se
tolgo l'ultimo campo dalla query funziona bene.
Il problema è questo: se nelle textbox lascio tutto bianco, dovrei ottenere
tutti i record della tabella, invece mi viene restituito un recordset vuoto.
Togliendo "AND cocn LIKE(?)" dalla query, funziona perfettamente....
Vi prego, non so più dove sbattere la testa.
Grazie.
    sqlStr = "select * from anagrafica where ragsoc LIKE(?) " & _
    "AND indirizzo LIKE(?) AND citta LIKE(?) AND prov LIKE(?) AND cap
LIKE(?) " & _
    "AND tel LIKE(?) AND fax LIKE(?) AND piva LIKE(?) AND email LIKE(?) " &
_
    "AND sito LIKE(?) AND iso LIKE(?) AND inps LIKE(?) AND inail LIKE(?) " &
_
    "AND istat LIKE(?) AND cciaa LIKE(?) and cassaed LIKE(?) and cocn
LIKE(?)"
    If cmbCatCli.ListIndex <> -1 Then
        sqlStr = sqlStr & " AND categ_cli_id=?"
    End If
    cmd.CommandText = sqlStr
'    setParameter cmd, "%" & txtAnaCli(0) & "%", adVarChar
    For i = 0 To 14
        setParameter cmd, "%" & txtAnaCli(i) & "%", adVarChar
    Next
    setParameter cmd, "%" & txtAnaCli(16) & "%", adVarChar
    setParameter cmd, "%" & txtAnaCli(15) & "%", adVarChar
    If cmbCatCli.ListIndex <> -1 Then
        setParameter cmd, cmbCatCli.ItemData(cmbCatCli.ListIndex), adVarChar
    End If
    If rs.State = adStateOpen Then rs.Close
    rs.Open cmd


title: come fare le etichette colonne in grassetto nel listview control 6.0

author: Tommy

text:
Non so se questo è il newsgroup adatto per questa domanda, in quanto è sul controllo activex listview control 6.0 della microsoft.
se non lo è allora gradirei che qualcuno mi dicesse dove postare la email.
vorrei sapere come (se è possibile) si puo' trasformare in grassetto tramite codice vba l'etichetta di una colonna.
quando l'utente clicca sulla label della colonna vorrei rendere il testo della colonna in grassetto e poi cambiare il tipo di ordinamento, cosa che sono già riuscito a fare.


author: Alessandro Baraldi

text:
"Tommy" <
tommyg...@leva.yahoo.it
> wrote in message
news:JczHe.36604$
fm.25...@news4.tin.it

Se non ricordo male il controllo ListView di MS non consente
la differenziazione della formattazione sulle colonne, ma
se formatti in grassetto devi formattare tutta la ListView.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Funzione MAX

author: Alessandro

text:
Ciao a tutti,
  sono un modesto utilizzatore di access e data la mia ignoranza nell’utilizzo
di questo programma, chiedo un cortese aiuto da voi esperti circa un
problema sul quale da giorni mi rodo il cervello.
Ho un piccolo db con 2 semplici tabelle:
1) presenze personale (campi:nome dipendente;dataora entrata;dataora uscita)
2) Mansioni personale(campi:nome dipendente;datainiziolavori;datafinelavori)
Sto cercando di fare una query con i campi “nome dipendente” e un campo
calcolato che riporti per ciascun dipendente il valore più alto tra “dataora
entrata” e “datainiziolavori”.Ho provato a utilizzare in svariati modi la
funzione “Max” ma l’unico risultato che sono riuscito a ottenere è stato un
“-1” che non ho idea cosa voglia significare.
Ho anche provato la funzione “iif” combinata con “datediff” che funziona ma
che in una situazione appena complessa diventa ingestibile (diventa
un’espressione di svariati km facilmente sbagliabile).
Potete cortesemente suggerirmi l’espressione da utilizzare nel capo che
voglio creare o se forse devo fare in qualche altro modo?
Grazie
Alessandro
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Funzione MAX

author: Massimo

text:
Alessandro wrote:
> Ciao a tutti,
>
> Ho un piccolo db con 2 semplici tabelle:
> 1) presenze personale (campi:nome dipendente;dataora entrata;dataora
> uscita) 2) Mansioni personale(campi:nome
> dipendente;datainiziolavori;datafinelavori)
immagino che ci sia anche un campio chiave che lega le due tabelle, per cui crei una query basandoti apputo su entrambe.
> Sto cercando di fare una query con i campi "nome dipendente" e un
> campo calcolato che riporti per ciascun dipendente il valore più alto
> tra "dataora entrata" e "datainiziolavori".Ho provato a utilizzare in
> svariati modi la funzione "Max" ma l'unico risultato che sono
> riuscito a ottenere è stato un "-1" che non ho idea cosa voglia
> significare.
mmm... max non c'entra molto(penso), estrae il valore più grande tra n record.
per dirti
Piubelli Massimo  01.00
Piubelli Massimo 00.30
Piubelli Massimo 12.58
Piubelli Massimo 11.20
Max([OraEntrata])
ti darà come risultato 12.58
> Ho anche provato la funzione "iif" combinata con "datediff" che
> funziona ma che in una situazione appena complessa diventa
> ingestibile (diventa un'espressione di svariati km facilmente
> sbagliabile).
km... esagerato ;-)
Io la vedrei come un IIf([OraEntrata]>[DataInizioLavori];[OraEntrata];[Orainiziolavori])
In questo caso, ottieni il valore più alto per ogni record tra ora di entrata e ora di inizio.
> Potete cortesemente suggerirmi l'espressione da utilizzare nel capo
> che voglio creare o se forse devo fare in qualche altro modo?
Consiglio inoltre un bel F1 sulle due funzioncine...
>
> Grazie
> Alessandro
>
iao,
Max



title: Funzione MAX

author: 'Roccia' Max

text:
On 16 Set, 17:41,
cod...@libero.it
 (Alessandro) wrote:
> 1) presenze personale (campi:nome dipendente;dataora entrata;dataora uscita)
> 2) Mansioni personale(campi:nome dipendente;datainiziolavori;datafinelavori)
>
> Sto cercando di fare una query con i campi "nome dipendente" e un campo
> calcolato che riporti per ciascun dipendente il valore più alto tra "dataora
> entrata" e "datainiziolavori".Ho provato a utilizzare in svariati modi la
> funzione "Max" ma l'unico risultato che sono riuscito a ottenere è stato un
> "-1" che non ho idea cosa voglia significare.
-1 e' un VERO logico. Non capisco la struttura del tuo database (cosa
contengono le tabelle, in particolare la prima? Una riga per
dipendente o le timbrature quotidiane?)
Nel primo caso prova con
SELECT [Presenze personale].[Nome dipendente], MAX([Mansioni
personale].[datainiziolavori],[dataoraentrata]) as DATA FROM
[Presenze personale] INNER JOIN [Mansioni personale] ON [Presenze
personale].[nome dipendente]=[Mansioni personale].[nome dipendente]
Altrimenti dovresti spiegare cosa ti proponi di ottenere...
cia'
Max


title: Funzione MAX

author: CIDI

text:
"Alessandro" <
cod...@libero.it
> ha scritto nel messaggio
news:87Z16Z89Z133Y1...@usenet.libero.it...

Ciao Alessandro
se vuoi aggiungere un campo calcolato nella query puoi fare così:
ritardoiniziolavori: DateDiff("n";[dataoraentrata];[datainiziolavori])
guarda help per datediff.
Inoltre sarebbe meglio che i nomi dei campi e tabelle non contengano spazi.
Daniele


title: Funzione MAX

author: alessandro

text:
Il 17 Set 2007, 12:47, "CIDI" <dadonziNO@Spam_tin.it> ha scritto:
>
> "Alessandro" <
cod...@libero.it
> ha scritto nel messaggio
> news:87Z16Z89Z133Y1...@usenet.libero.it...
> > Ciao a tutti,
> > sono un modesto utilizzatore di access e data la mia ignoranza
nellutilizzo
> > di questo programma, chiedo un cortese aiuto da voi esperti circa un
> > problema sul quale da giorni mi rodo il cervello.
> >
> > Ho un piccolo db con 2 semplici tabelle:
> > 1) presenze personale (campi:nome dipendente;dataora entrata;dataora
> > uscita)
> > 2) Mansioni personale(campi:nome
> > dipendente;datainiziolavori;datafinelavori)
> >
> > Sto cercando di fare una query con i campi nome dipendente e un campo
> > calcolato che riporti per ciascun dipendente il valore più alto tra
> > dataora
> > entrata e datainiziolavori.Ho provato a utilizzare in svariati modi la
> > funzione Max ma lunico risultato che sono riuscito a ottenere è stato
> > un
> > -1 che non ho idea cosa voglia significare.
> >
> > Ho anche provato la funzione iif combinata con datediff che funziona
> > ma
> > che in una situazione appena complessa diventa ingestibile (diventa
> > unespressione di svariati km facilmente sbagliabile).
> >
> > Potete cortesemente suggerirmi lespressione da utilizzare nel capo che
> > voglio creare o se forse devo fare in qualche altro modo?
> >
> > Grazie
> > Alessandro
> >
>
Ciao Ragazzi,
 volevo inanzitutto ringraziarvi per la disponibilità dimostrata.
In realtà il database è un po più complesso e io ho cercato di semplificare
per cercare di rendere più semplice il tutto e disturbare il meno possibile.
il mio dubbio era se con una query con campi ad esempio:
Testo (con nome dipendente)
campo data/ora 1
campo data/ora 2
campo data/ora 3
campo data/ora 4
esempio
Mario Rossi 12/03/2007 08:25 12/03/2007 08:15 12/03/2007 08:20 12/03/2007
08:00
Mario Bianchi 12/03/2007 08:20 12/03/2007 08:45 12/03/2007 08:30 12/03/2007
08:25
io potessi aggiungere un campo ulteriore che mi riportasse la data/ora +
recente delle (per esempio 4) degli altri campi e cioè farla diventare:
Mario Rossi 12/03/2007 08:25 12/03/2007 08:15 12/03/2007 08:20 12/03/2007
08:00 12/03/2007 08:25 (nuovo campo)
Mario Bianchi 12/03/2007 08:20 12/03/2007 08:45 12/03/2007 08:30 12/03/2007
08:25 12/03/2007 08:45 (nuovo campo)
Usando "datediff" funziona ma la formula se i campi fossero 10 sarebbe lunga
un km
Spero questa volta di essere stato più chiaro, mi scuso per il disturbo,e
magari di poter ricambiare la vostra gentilezza in futuro



title: Funzione MAX

text:
On 17 Set, 16:29,
cod...@libero.it
 (alessandro) wrote:
> Testo (con nome dipendente)
> campo data/ora 1
> campo data/ora 2
> campo data/ora 3
> campo data/ora 4
...ribaltare il tutto in modo da avere tutte le date in un unico
campo?
Mario Rossi    Entrata        1/1/2000
Mario Rossi    Inizio lavori   2/1/2000
Mario Rossi    Fine incarico 3/1/2000
Aldo Bianchi   Entrata        1/1/2000
Aldo Bianchi   Uscita         3/1/2000
Cosi' hai anche 1/100 dei problemi se improvvisamente ti trovi a dover
gestire un nuovo evento (con la tua struttura, dovresti modificare la
tabella... tutte le query... tutte le form...),e quando hai bisogno di
tutte le date su una riga sola, le tiri fuori con una semplice
pivot....
L'ho provato sulla mia pelle anni fa... gestivo le qualifiche di un
certo numero di persone "in riga"... poi improvvisamente mi hanno
detto "dobbiamo anche gestire gli operatori DAE", e io mi sono sparato
un colpo :D
Ne ho approfittato per girare in verticale la tabella delle
qualifiche... cosi' quando mi hanno detto "dobbiamo gestire gli
istruttori DAE" me la sono cavata in 10 minuti :D
cia'
Max


title: Funzione MAX

text:

Ciao Max,
 grazie del suggerimento ora mi studio qualcosa per farlo,purtroppo la
compilazione delle tabelle avviene in automatico con un programma che č
flessibile 0 perň magari combinando query access e/o excel mi ricreo alcune
tabelle parallele piů funzionali con i criteri che mi hai suggerito.
Sinceramente pensavo che su Access esistesse una funzione Max o min che si
comportasse in stile excel.
Spero di non averti fatto perdere troppo tempo.
Per esperienza comunque ti dico che anche io cerco sempre di fare le cose
piů flessibili possibili,da me le cose cambiano di continuo e ogni volta
devo tirare via qualcosa dal cilindro....il bello č che mi occupo di
controllo di gestione e non sono un informatico :)
Ciao



title: Funzione MAX

text:
On 17 Set, 17:58,
cod...@libero.it
 (Alessandro) wrote:
> Sinceramente pensavo che su Access esistesse una funzione Max o min che si
> comportasse in stile excel.
Anch'io, infatti ho scritto come se quella funzione esistesse
davvero... ne ero convinto!
> Spero di non averti fatto perdere troppo tempo.
Oh, figurati, stavo fingendo di lavorare e il capo non mi ha beccato,
quindi... :D
cia'
Max


title: Funzione MAX

author: Massimo Piubelli

text:
'Roccia' Max wrote:
> On 17 Set, 17:58,
cod...@libero.it
 (Alessandro) wrote:
>
>> Sinceramente pensavo che su Access esistesse una funzione Max o min
>> che si comportasse in stile excel.
>
> Anch'io, infatti ho scritto come se quella funzione esistesse
> davvero... ne ero convinto!
La funzione max infatti esiste.
Solo che per usarla devi necessariamente raggruppare, e non funziona come il "max" di due campi, ma il massimo di un certo range di valori
> cia'
> Max
Ciao,
Max


title: funzione di cambio stampante di default

author: Zorro

text:
Ciao a tutti,
per un mio cliente ho messo in piedi il discorso della fatturazione in PDf,
gli ho fatto comprare la licenza del programma Win2pd che secondo me è
ottimo e facilmente programmabile. La difficoltà che ho è questa : prima
lancio la fatturazione cartacea e la stampante di default inizia a buttar
fuori carta.
Poi , se decido subito dopo di creare le fatture in pdf per quei clienti che
la vogliono, lancio l'elaborazione , ma ... non mi fa nulla , e sono quasi
certo che il problema sta quando cerco di cambiare la stampante di default
con quella di Win2Pdf .
Infatti se esco e rientro dal Db access e rilancio la fatturazione pdf ,
funziona.
Sapete se nella routine di cambio stampante default del sito comune esiste
un problema di questo tipo ?Perchè poi una volta cambiata la stampante tutto
funziona a meraviglia con sole 2 righe di codice ...
grazie mille a tutti.
Zorro
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: funzione di cambio stampante di default

author: antonio

text:
"Zorro" <
sp...@nomail.it
> ha scritto nel messaggio
news:213Z61Z159Z2Y1...@usenet.libero.it...

Non so a quale routine del sitocomune tu ti stia riferendo. Direi comunque
che con le ultime versioni di Access (sicuramente dalla 2003 in poi, ma
forse anche dalla 2000 in poi) tu ti possa riferire a tutte le stampanti
tramite Application.Printers ed impostare la stampante di default con
Application.Printer.
Ciao
Antonio


title: funzione di cambio stampante di default

author: Karl Donaubauer

text:
antonio wrote:
> ...
> Non so a quale routine del sitocomune tu ti stia riferendo. Direi
> comunque che con le ultime versioni di Access (sicuramente dalla 2003
> in poi, ma forse anche dalla 2000 in poi) tu ti possa riferire a
> tutte le stampanti tramite Application.Printers ed impostare la
> stampante di default con Application.Printer.
L'oggetto Printer è presente nel VBA dalla versione
Access 2002 (XP) in poi.
Vedi anche
www.donkarl.com/it?FAQ5.1
.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: funzione di cambio stampante di default

text:
Zorro wrote:
> per un mio cliente ho messo in piedi il discorso della fatturazione
> in PDf, gli ho fatto comprare la licenza del programma Win2pd che
> secondo me è ottimo e facilmente programmabile. La difficoltà che ho
> è questa : prima lancio la fatturazione cartacea e la stampante di
> default inizia a buttar fuori carta.
> Poi , se decido subito dopo di creare le fatture in pdf per quei
> clienti che la vogliono, lancio l'elaborazione , ma ... non mi fa
> nulla , e sono quasi certo che il problema sta quando cerco di
> cambiare la stampante di default con quella di Win2Pdf .
> Infatti se esco e rientro dal Db access e rilancio la fatturazione
> pdf , funziona.
> Sapete se nella routine di cambio stampante default del sito comune
> esiste un problema di questo tipo ?Perchè poi una volta cambiata la
> stampante tutto funziona a meraviglia con sole 2 righe di codice ...
Per me non è chiaro cosa fai e cosa esattamente è il problema.
Se usi l'oggetto Printer per cambiare la stampante qualche volta
ci son problemi consciuti (dipende p.e. dal tipo della stampante
e se si tratta di una stampante di rete o locale). Sono descritto
p.e. qui:
http://support.microsoft.com/kb/290293/en-us
--
HTH



title: Chiudere i Database degli 'Utenti'

author: Marco e Tony Dell'oste

text:
Ciao,
poiche dopo una ricerca "non mi sembra" di aver trovato niente n merito,
porgo il quesito a voi:
Ho il mio bel applicativo access (chiaramente) messo in rete,
dal quale (attualmente) accedono 5 persone al max..
Poichè questo database viene aggiornato da me (tramite un insieme di query
'into' l'applicativo appunto) quando ho finito di inserire determinati dati
(su as/400),
ho il BISOGNO di forzare la chiusura dell'applicativo a chiunque lo stesse
utilizzando (tranne me sintende)
N.B: l'applicativo serve solo per visionare dati e tabelle, quindi anche
forzandone la chiusura non rischio che qualcuno stia inserendo record e che
quindi questi vadano persi!!!
Come posso fare??    è possibile farlo???
Mille grazie
Marco


title: Chiudere i Database degli 'Utenti'

author: Federico Luciani

text:

Credo che il modo piu' semplice sia:
- crei una tabella con un campo flag
- crei una form che rimane sempre aperta e ci imposti il timer,
  se ne hai gia' una, tanto di guadagnato
- imposti il timer in modo che ogni tot verifichi il valore del campo
flag,
  se il valore e' False vai avanti,
  se il valore e' True, allora chiudi il database.
Per ovviare al problema della chiusura del tuo client, potresti usare
il nome del computer;
- aggiungi un campo testo alla tabellina, dove archivi il nome del
computer che ha richiesto la chiusura;
- per impostare il flag, ti fai una form o una funzioncina, che
contemporaneamente scrive il nome del pc;
- la procedura sul timer, prima di chiudere il database, verifica che
il nome del computer sia diverso da quello archiviato in tabella.
Sul sito comune ci trovi una funzioncina che ritorna il nome del
computer.
Spero di essere stato chiaro.
bye
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Chiudere i Database degli 'Utenti'

text:
> Credo che il modo piu' semplice sia:
> - crei una tabella con un campo flag
> - crei una form che rimane sempre aperta e ci imposti il timer,
>   se ne hai gia' una, tanto di guadagnato
> - imposti il timer in modo che ogni tot verifichi il valore del campo
> flag,
>   se il valore e' False vai avanti,
>   se il valore e' True, allora chiudi il database.
>
> Per ovviare al problema della chiusura del tuo client, potresti usare
> il nome del computer;
> - aggiungi un campo testo alla tabellina, dove archivi il nome del
> computer che ha richiesto la chiusura;
> - per impostare il flag, ti fai una form o una funzioncina, che
> contemporaneamente scrive il nome del pc;
> - la procedura sul timer, prima di chiudere il database, verifica che
> il nome del computer sia diverso da quello archiviato in tabella.
>
> Sul sito comune ci trovi una funzioncina che ritorna il nome del
> computer.
>
> Spero di essere stato chiaro.
>
> bye
> --
> Federico
>
PERFETTO!!!!!
Millllle grazie, mi sembra la soluzione giusta!!!!
Ciao
Marco


title: Chiudere i Database degli 'Utenti'

author: Emyr

text:
complimenti bella invenzione...
Saluti.
Emanuele.


title: leggere i dati da un form e se NotInList add I Suddetti alla tabbela!

author: Antonio Tarquini

text:
il mio problema:

da una ipotetica maschera in cui e' collegata un'altra
tabbella,

prima dell'aggiornamento di tutti i campi, se non coincidono
con la tabbella collegata, automaticamente aggiunge in record con i campi
passati dalla maschera, e successivamente aggiorna la maschera e la tabbela
sorgente!

Soluzione:????????


title: New Free Downloads

text:
Hello everyone!
After few months of hard work, my site with free downloads is finally
up and running. I have tried to create a site that goes right to the
point and cuts through all of the software downloads. Having read this
group for quite a while, it looks like there are a lot of knowledgeable
people here, so I'd love to get some feedback about my site if anyone
can spare the time. The site is located at
http://www.freedownloadsarchive.com/
 and called "Free Downloads
Archive".
I think that website are quite good, but I'm not so satisfied with
others, so I'd be grateful if you could tell me what you think?
Thanks in advance,
Tim, Webmaster of Free Download Archive
Download Free Software NOW:
http://www.freedownloadsarchive.com/


title: tabella basata su origine dati tabella filtrata su un PC funziona e  su altri no

author: MC

text:
Salve, ho una tabella con la seguente origine dati:
SELECT tbl_rettifiche_update.SedeArcadia, tbl_rettifiche_update.[k-
data], tbl_rettifiche_update.[k-rdata], tbl_rettifiche_update.[K-tip],
tbl_rettifiche_update.[k-arpa], tbl_rettifiche_update.[K-sede],
tbl_rettifiche_update.[K-prog], tbl_rettifiche_update.[K-note__1],
tbl_rettifiche_update.[K-note__2], tbl_rettifiche_update.[K-nsped],
tbl_rettifiche_update.sede, tbl_rettifiche_update.nsped,
tbl_rettifiche_update.[b-ut], tbl_rettifiche_update.[chk_b-ut],
tbl_rettifiche_update.zt_clicod, tbl_rettifiche_update.[b-oper],
tbl_rettifiche_update.[chk_b-oper], tbl_rettifiche_update.[b-
altre__4], tbl_rettifiche_update.[chk_b-altre__4],
tbl_rettifiche_update.[b-sede], tbl_rettifiche_update.[chk_b-sede],
tbl_rettifiche_update.Rettifica_Occupata,
tbl_rettifiche_update.Utente_Ultima_Modifica,
tbl_rettifiche_update.Data_Ultima_Modifica,
tbl_rettifiche_update.Rettifica_OK, tbl_rettifiche_update.k_num,
tbl_rettifiche_update.k_lcom, tbl_rettifiche_update.k_ass,
tbl_rettifiche_update.k_lass, tbl_rettifiche_update.k_afm,
tbl_rettifiche_update.k_lafm, tbl_rettifiche_update.k_ape,
tbl_rettifiche_update.k_lant, tbl_rettifiche_update.k_cas,
tbl_rettifiche_update.k_altri__1, tbl_rettifiche_update.k_pes,
tbl_rettifiche_update.k_col, tbl_rettifiche_update.k_sanz,
tbl_rettifiche_update.k_var, tbl_rettifiche_update.b_cli,
tbl_rettifiche_update.chk_b_cli, tbl_rettifiche_update.AutDirCom,
tbl_rettifiche_update.NoteAutDirCom, tbl_rettifiche_update.k_altre__2,
tbl_rettifiche_update.k_altre__3, tbl_rettifiche_update.ProgPDA,
tbl_rettifiche_update.DataPDA, tbl_rettifiche_update.CausaleAddebito,
tbl_rettifiche_update.AddSanz
FROM tbl_rettifiche_update
WHERE (((tbl_rettifiche_update.Rettifica_OK)<>"SI"));
Da ogni PC,  una volta impostata la query su ORIGNE RECORD della form
inquisita, il tutto funziona.
Una volta però che avvio la procedura, su 1 pc tutto OK, su altri 2 pc
collegati nella stessa rete mi esce il seguente errore:
Errore di run-time '3145':
Errore di sintassi nella proposizione WHERE
Detto questo, se apro la form in modalità struttura e cerco di
riaprire l'origine record form, il sistema mi fa la pernacchia
dicendomi:
Errore di sintassi nella proposizione WHERE
Siceramente ... non riesco ad uscirne ... avete idee?
il pc che funzion monta A2003, gli altri A2000 ma il fatto è che fino
a pochi giorni fa, senza modifica alcuna, funzionava tutto
regolarmente ... help me please, sono disperato!!!
Grazie,
MCX


text: Pardon, HO UNA FORM basata su origine dati tabella ... sorry


text:
MC wrote:
> Salve, ho una tabella con la seguente origine dati:
> SELECT ...
> ...
> tbl_rettifiche_update.Rettifica_OK, tbl_rettifiche_update.k_num,
> ...
> FROM tbl_rettifiche_update
> WHERE (((tbl_rettifiche_update.Rettifica_OK)<>"SI"));
> ...
> Da ogni PC,  una volta impostata la query su ORIGNE RECORD della form
> inquisita, il tutto funziona.
> Una volta però che avvio la procedura, su 1 pc tutto OK, su altri 2 pc
> collegati nella stessa rete mi esce il seguente errore:
>
> Errore di run-time '3145':
> Errore di sintassi nella proposizione WHERE
>
> Detto questo, se apro la form in modalità struttura e cerco di
> riaprire l'origine record form, il sistema mi fa la pernacchia
> dicendomi:
> Errore di sintassi nella proposizione WHERE
>
> Siceramente ... non riesco ad uscirne ... avete idee?
> il pc che funzion monta A2003, gli altri A2000 ma il fatto è che fino
> a pochi giorni fa, senza modifica alcuna, funzionava tutto
> regolarmente ... help me please, sono disperato!!!
Il campo Rettifica_OK nella tabella ha quale tipo di dati?
Quali valori puo contenere?
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
...cut...
> Il campo Rettifica_OK nella tabella ha quale tipo di dati?
> Quali valori puo contenere?
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Contiene solo due tipologie di stringhe di testo: SI oppure NO
Idee?
Grazie,
MCX


text:
MC wrote:
> ...cut...
>> Il campo Rettifica_OK nella tabella ha quale tipo di dati?
>> Quali valori puo contenere?
>
> Contiene solo due tipologie di stringhe di testo: SI oppure NO
>
> Idee?
Non per la causa dell'errore, ma anche non è chiaro cosa
vuol dire "Una volta però che avvio la procedura".
Perché non usi un campo del tipo Si/No?
È "più univoco" di un campo testo che puo anche contenere
"sì" con accento, essere Null ecc.



text:

Avviare la procedura significa: quando apro la form in questione e
questa dovrebbe filtrare i record dove Rettifica_OK = NO
Non possono esserci errori di digitazione in quanto SI e NO vengono
generati esclusivamente da codice ... quindi sinceramente ... sono io
il primo a non capire come mai sulla mia macchina funziona e sulle
altre 2 no .... diamine!!!
MCX


title: Report Access in formato PDF - La soluzione

author: George

text:
La soluzione era più banale del previsto.
Basta aggiungere nel registro di sistema una chiave nuova:
HKEY_CURRENT_USER\Software\Adobe\Acrobat PDFWriter"\PDFFileName come stringa
e inserire il pathname completo del file che si desidera generare.
A questo punto con Acrobat PDFWriter come stampante predefinita, aprendo il
report in modalità normale verrà generato il file corrispondente.
La chiave verrà automaticamente cancellata da Acrobat...
Se a qualcuno servisse il codice VBA necessario sono a disposizione.
Giorgio


author: ciroteo

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:ciuiqr$uv2$1...@newsreader.mailgate.org...

come avevi detto tu ... prima o poi ce la fai!
Grande!
:-)


author: Pablitomf

text:
George ha scritto:
> La soluzione era più banale del previsto.
> Basta aggiungere nel registro di sistema una chiave nuova:
> HKEY_CURRENT_USERSoftwareAdobeAcrobat PDFWriter"PDFFileName come stringa
> e inserire il pathname completo del file che si desidera generare.
> A questo punto con Acrobat PDFWriter come stampante predefinita, aprendo il
> report in modalità normale verrà generato il file corrispondente.
> La chiave verrà automaticamente cancellata da Acrobat...
Viene cancellata in che senso?
> Se a qualcuno servisse il codice VBA necessario sono a disposizione.
> Giorgio
Se riesci a postarmi il codice sarei curioso di dargli uno sguardo.
Grazie
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> Viene cancellata in che senso?
nel senso che dopo che il report č stato generato la chiave non la trovi
piů!!!!!
> Se riesci a postarmi il codice sarei curioso di dargli uno sguardo.
> Grazie
Questo č il modulo di codice che uso per la manipolazione del registro:
Option Compare Database
'Types Definition
Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
'API Declarations
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal
ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)
As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal
lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef
lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal
Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData
As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias
"RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias
"RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal
Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal
samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult
As Long, lpdwDisposition As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias
"RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
'Types Enum Definition
Public Enum T_KeyClasses
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_CONFIG = &H80000005
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
End Enum
'Constants Definition
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or
KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = (KEY_READ)
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or
KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const REG_BINARY = 3
Private Const REG_CREATED_NEW_KEY = &H1
Private Const REG_DWORD = 4
Private Const REG_DWORD_BIG_ENDIAN = 5
Private Const REG_DWORD_LITTLE_ENDIAN = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Private Const REG_LINK = 6
Private Const REG_MULTI_SZ = 7
Private Const REG_NONE = 0
Private Const REG_SZ = 1
Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Private Const REG_NOTIFY_CHANGE_NAME = &H1
Private Const REG_NOTIFY_CHANGE_SECURITY = &H8
Private Const REG_OPTION_BACKUP_RESTORE = 4
Private Const REG_OPTION_CREATE_LINK = 2
Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_OPTION_RESERVED = 0
Private Const REG_OPTION_VOLATILE = 1
Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME Or
REG_NOTIFY_CHANGE_ATTRIBUTES Or REG_NOTIFY_CHANGE_LAST_SET Or
REG_NOTIFY_CHANGE_SECURITY)
Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or
REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or REG_OPTION_CREATE_LINK Or
REG_OPTION_BACKUP_RESTORE)
'Delete e Registry Key with all his contained Values
Public Sub DeleteRegistryKey(rClass As T_KeyClasses, Path As String)
    Dim res As Long
    res = RegDeleteKey(rClass, Path)
End Sub
'Delete a Value from the Registry
Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As
String)
    Dim hKey As Long
    Dim res As Long
    res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey)
    res = RegDeleteValue(hKey, sKey)
    RegCloseKey hKey
End Sub
'Creates a New Registry Key
Public Sub CreateRegistryKey(rClass As T_KeyClasses, Path As String)
    Dim hKey As Long
    Dim res As Long
    Dim y As SECURITY_ATTRIBUTES
    Dim Operation As Long
    res = RegCreateKeyEx(rClass, Path, 0, "", 0, KEY_ALL_ACCESS, y, hKey,
Operation)
    RegCloseKey hKey
End Sub
'Get a specific Registry Value (to access the Default Registry Key Value set
sKey parameter as "")
Public Function GetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As
String) As String
    Dim hKey As Long
    Dim KeyValType As Long
    Dim KeyValSize As Long
    Dim KeyVal As String
    Dim tmpVal As String
    Dim res As Long
    Dim i As Integer
    res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
    If res <> 0 Then GoTo Errore
    tmpVal = String(1024, 0)
    KeyValSize = 1024
    res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
    If res <> 0 Then GoTo Errore
    If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then
        tmpVal = Left(tmpVal, KeyValSize - 1)
    Else
        tmpVal = Left(tmpVal, KeyValSize)
    End If
    Select Case KeyValType
    Case REG_SZ
        KeyVal = tmpVal
    Case REG_DWORD
        For i = Len(tmpVal) To 1 Step -1
            KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))
        Next
        KeyVal = Format("&h" + KeyVal)
    End Select
    GetRegValue = KeyVal
    RegCloseKey hKey
    Exit Function
Errore:
    GetRegValue = ""
    RegCloseKey hKey
End Function
'Create or Modify a Registry Value (to access the Default Registry Key Value
set sKey parameter as "")
Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As
String, NewValue As String) As Boolean
    Dim hKey As Long
    Dim KeyValType As Long
    Dim KeyValSize As Long
    Dim KeyVal As String
    Dim tmpVal As String
    Dim res As Long
    Dim i As Integer
    Dim x As Long
    res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
    If res <> 0 Then GoTo Errore
    tmpVal = String(1024, 0)
    KeyValSize = 1024
    res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
    Select Case res
    Case 2
        KeyValType = REG_SZ
    Case Is <> 0
        GoTo Errore
    End Select
    Select Case KeyValType
    Case REG_SZ
        tmpVal = NewValue
    Case REG_DWORD
        x = Val(NewValue)
        tmpVal = ""
        For i = 0 To 3
            tmpVal = tmpVal & Chr(x Mod 256)
            x = x \ 256
        Next
    End Select
    KeyValSize = Len(tmpVal)
    res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
    If res <> 0 Then GoTo Errore
    SetRegValue = True
    RegCloseKey hKey
    Exit Function
Errore:
    SetRegValue = False
    RegCloseKey hKey
End Function
Questa č la funzione che genera il report:
Function Esporta_PDF(strReport As String, strPathAndFile As String) As
Boolean
    On Error GoTo gestErr
    Esporta_PDF = False
    If Dir(strPathAndFile, vbNormal) <> "" Then Kill strPathAndFile
    If SetRegValue(HKEY_CURRENT_USER, "Software\Adobe\Acrobat PDFWriter",
"PDFFileName", strPathAndFile) Then
        DoCmd.OpenReport strReport, acViewNormal
        Esporta_PDF = True
    End If
    Exit Function
gestErr:
    Exit Function
End Function
E la funzione la chiamo cosě:
idle = Esporta_PDF("r_ilmioreport", "C:\ilmiofile.pdf")
Ciao.
Giorgio


author: Roberto dalla campagna

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:ciuiqr$uv2$1...@newsreader.mailgate.org...

Scusami, ma magari non ho capito un tubo, ma non era più semplice da codce
VBA impostare, prima di eseguire il report, la stampante virtuale creata da
Acrobat PDFWriter come stampante predefinita e poi reimpostare la stampante
predefinita con la stampante che lo era precedentemente?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
> Scusami, ma magari non ho capito un tubo, ma non era piů semplice da codce
> VBA impostare, prima di eseguire il report, la stampante virtuale creata
da
> Acrobat PDFWriter come stampante predefinita e poi reimpostare la
stampante
> predefinita con la stampante che lo era precedentemente?
Sě, avevo provato cosě usciva il dialogo di stampa per l'assegnazione del
nome del file.
Era proprio questo dialogo che volevo evitare...
Ciao.


text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:cj0da8$20a$1...@newsreader.mailgate.org...

Puoi benissimo impostare da VBA il nome della stampante predefinita senza
usare la finestra di dialogo della stampante e per farlo puoi usare la
seguente funzione:
Public Sub SetDefaultPrinter(s As String)
'imposta la stampante passata come argomento a predefinita
On Error GoTo Esci
Dim WshNetwork As Object
If IsNull(s) Or s = "" Then Exit Sub
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter (s)
Set WshNetwork = Nothing
DoEvents
Esci:
End Sub
Dove s contiene il nome della stampante da impostare come predefinita e che
verrŕ pertanto usata per la stampa del report.



text:
> Puoi benissimo impostare da VBA il nome della stampante predefinita senza
> usare la finestra di dialogo della stampante e per farlo puoi usare la
> seguente funzione:
>
[cut]
>
> Dove s contiene il nome della stampante da impostare come predefinita e
che
> verrà pertanto usata per la stampa del report.
Non hai capito...
Se stampi su Acrobat ti esce un dialogo di stampa che ti chiede di dare un
nome al file che verrà creato... è tutto lì il problema!
Non è un problema quello di impostare la stampante di default!!!!!!!!!!!!!!
Bye
Giorgio
:)


title: Problema con finestra di dialogo

author: Voltolini

text:
Cliccando su un pulsante nella scheda di avvio di un programma fatto da
terzi in MsAccess(file MDE)apro una finestra di dialogo che mi consente di
importare dei files,tutto questo funziona alla meraviglia,solo pero' sul
computer di un mio conoscente,sul mio quando tento di aprire la finestra di
dialogo mi da' il seguente errore:"Error occurred during import-L'azione
OpenForm e' stata annullata"-"E' stato utilizzato un metodo dell'oggetto
DoCmd per eseguire un'azione in VisualBasic;ma poi e' stato scelto annulla
in una finestra di dialogo."
Qualche giorno fa il tutto funzionava anche sul mio computer,solo che per
necessita' ho formattato il disco fisso e reinstallato MsAccess,in maniera
corretta,e qui l'applicazione in questione non ha piu' funzionato;ho
controllato i cosidetti Riferimenti e sono uguali a quelli sul computer del
mio conoscente.
Da cosa dipende questa stranezza?
Grazie a chi mi aiuta.
Voltolini


title: anteprimaReport e maschere Pop-Up

author: angelo

text:
Ho provato la soluzione trovata sul sito comune per nascondere la finestra
di
Access e fin qui tutto bene .. per far funzionare questa soluzione devo
impostare tutte le maschere con la propietà Pop-up attiva e quindi quando
vado in anteprima dei report la maschera ci galleggia sopra e non mi lascia
vedere (nascosto da due maschere pop-up)....
Datemi qualche indicazione...
Maschere con sotto report si ma come....
Iconizzare le maschere in apertura e riportarle allo stato inziale...
Uso Access 2000
Grazie Angelo


title: anteprimaReport e maschere Pop-Up

author: Roberto - Syd

text:
"angelo" <
angelo...@aruba.it
> ha scritto nel messaggio
news:UybD8.45664$US3.1...@twister1.libero.it...
> Ho provato la soluzione trovata sul sito comune per nascondere la finestra
> di
> Access e fin qui tutto bene .. per far funzionare questa soluzione devo
> impostare tutte le maschere con la propietą Pop-up attiva e quindi quando
> vado in anteprima dei report la maschera ci galleggia sopra e non mi
lascia
> vedere (nascosto da due maschere pop-up)....
> Datemi qualche indicazione...
> Maschere con sotto report si ma come....
> Iconizzare le maschere in apertura e riportarle allo stato inziale...
>
> Uso Access 2000
> Grazie Angelo
>
>
Prova ad inserire questa istruzione dopo l'apertura del report
Docmd.Close acForm, "NomeFormPopup"
Ciao Roberto - Syd


title: Listview: nessun oggetto in questo controllo

author: Expo

text:
In una applicazione Access ho inserito due ListView e con Innosetup ho
preparato l'exe che poi ho installato su un'altra macchina.
Premetto che mscomctl.ocx è lo stesso della macchina di sviluppo.
Sulla mia macchina, quando apro la form con la Listview, nessuno
problema, sulla macchina di produzione invece ricevo un errore 2683:
nessuno oggetto in questo controllo.
Non sò più dove sbattere la testa.
Su un'altra macchina (la macchina di sviluppo e quella di produzione son
win2000) con XP nessun problema.


author: Carlo Costarella

text:
"Expo" <
exp...@tin.it
> ha scritto nel messaggio
news:zSBUb.195757$VW.79...@news3.tin.it...
> In una applicazione Access ho inserito due ListView e con Innosetup ho
> preparato l'exe che poi ho installato su un'altra macchina.
> Premetto che mscomctl.ocx č lo stesso della macchina di sviluppo.
> Sulla mia macchina, quando apro la form con la Listview, nessuno
> problema, sulla macchina di produzione invece ricevo un errore 2683:
> nessuno oggetto in questo controllo.
> Non sň piů dove sbattere la testa.
> Su un'altra macchina (la macchina di sviluppo e quella di produzione son
> win2000) con XP nessun problema.
>
Nella macchina che ti da problemi credo manchino i file di runtime di VB6.
Questi potrai scaricarli gratuitamente dal sito Microsoft e il file si
chiama:
vbrun60sp5.exe
Ciao, Carlo


text:
Carlo Costarella ha scritto:
> Nella macchina che ti da problemi credo manchino i file di runtime di VB6.
> Questi potrai scaricarli gratuitamente dal sito Microsoft e il file si
> chiama:
> vbrun60sp5.exe
Ho provato ma non č cambiato niente..


text:
Finalmente ho capito tutto: il controllo va a cercare, in HKCR/Licenses,
le chiavi corrispondenti alle licenze.
Usando InnoSeutp per creare il pacchetto di installazione non venivano
incluse le chiavi necessario e quindi l'oggetto sulla macchina di
produzione non veniva caricato.
Le chiavi le ho trovate seguendo le chiamate al registro di windowx con
Regmon della SysInternals e poi inserendole nello script di InnoSetup
nella sezione Registry.


title: Esportazione report html

author: FraOMG

text:
Salve
ho un database con un report pre-impostato con logo -
formattazione e aggiunta dei vari dati.
Questo tabulato se stampato su stampante mi esegue le
interruzioni di pagina ad ogni cambio cliente, ma come posso
esportare i dati così come formattati sul report in tanti file
html ognuno con il nome del cliente?
Al lancio dell'esportazione di access in formato Html mi vengono
generati i file ma sono non formattati o l'alternativa mi chiede
un modello. Ma come deve essere creato questo modello?
Grazie
--
Postato da Virgilio Newsgroup
http://newsgroup.virgilio.it
Completo come il newsreader, ma senza il newsreader


title: pagine web e personal web server

author: Alessio Duchi

text:
Ho creato un pagine di accesso ai dati (grafico) e poi ho installato
personal web server.
Sul locale vedo benissimo la pagina. Sul computer collegato in rete mi fa
vedere la struttura del grafico senza il contenuto e mi dice "Le
impostazioni del computer in uso non consentono l'accesso a un'origine in un
altro domino".
Come posso fare ?


title: pagine web e personal web server

text:
Se non sbaglio le pagine di accesso hai dati hanno bisogno di
installare degli activex; controlla se IE ti blocca il download degli
oggetti..
Ciao.
Sergio MAZZA


title: Duplicare record e... sottorecord

author: emibal

text:
Mi sembrava banale ma......
devo duplicare una serie di record ed i relativi sottorecord correlati
con relazione 1 a molti.
Ora la duplicazione dei record principali è alquanto scontata ma...
come faccio a duplicare i sottorecord e correlarli ai record duplicati
principali?


title: Problema con Access e SQL Server

author: David

text:
Ciao a tutti,
ho un programmino in Access con il quale faccio degli aggiornamenti su
tabelle che risiedono in SQL Server 2000. Per eseguire gli
aggiornamenti, in vb registro il riferimento alla libreria "Microsoft
DTS Package Object Library" e da lì posso modificare le proprietà dei
pacchetti DTS (Data Trasformation Services) di SQL Server.
Il problema è che tutto ciò funziona solo se nel pc client è installato
SQL Server, almeno tutto gli strumenti client. Se non sono installati, o
se ci sono solo i componenti di connettività client, non funziona e mi
dice che "il componente activex non è in grado di creare l'oggetto". Ho
già provato a vedere sul sito comune, ma la soluzione proposta al
messaggio di errore 429, non funziona.
Qualcuno ha qualche idea?
ps: scusate se scrivo qui, ma non sono sicuro se il problema è di
pertinenza di SQL Server o di Access.
Ciao e grazie
David


title: trasferire tabelle in altro DB

author: JOE

text:
salve a tutti...
è possibile trasferire 2 tabelle 1 >molti in un altro Db senza perdere i
dati ??
grazie


title: trasferire tabelle in altro DB

author: Gabriele Bertolucci

text:
> č possibile trasferire 2 tabelle 1 >molti in un altro Db senza perdere i
> dati ??
Mi auguro di sě :-)
Apri il database di destinazione e scegli "File" -> "Carica dati esterni"
-> "Importa".
A questo punto scegli le tabelle da importare ed hai finito.
Se, invece, intendi copiare solo i dati da un db ad un altro, magari tra
tabelle con la stessa struttura, allora la cosa migliore č aprire il
database di origine, collegarci le tabelle di destinazione e lavorare di
QBE o SQL tramite VBA.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: trasferire tabelle in altro DB

text:
"Gabriele Bertolucci" <"info[at]pbsoft[dot]it"> ha scritto nel messaggio
>> è possibile trasferire 2 tabelle 1 >molti in un altro Db senza
>> perdere i
>> dati ??
>
> Mi auguro di sì :-)
>
> Apri il database di destinazione e scegli "File" -> "Carica dati
> esterni"
> -> "Importa".
> A questo punto scegli le tabelle da importare ed hai finito.
>
> Se, invece, intendi copiare solo i dati da un db ad un altro, magari
> tra
> tabelle con la stessa struttura, allora la cosa migliore è aprire il
> database di origine, collegarci le tabelle di destinazione e lavorare
> di
> QBE o SQL tramite VBA.
-----------------
scusa Gabriele... forse mi sono espresso troppo frettolosamente...
ho già fatto l'operazione suddetta... ma al solo scopo di avere le
tabelle nello
stesso DB... ma in realtà mi serve poi spostare i dati, sono 1600
utenti,
in un altra tabella che è poi l'origine della Frm etc...
in sostanza ora sono arrivato a copiare il lato 1 nella tabella facendo
un copia-incolla
ossia Cognome, Nome, etc....
ma il problema è ora far "combaciare" i MOLTI  prodotti a queste persone
senza che i dati si mischino...
spero di essere stato chiaro...
Ciao


title: trasferire tabelle in altro DB

author: Bruno Campanini

text:
"JOE" <
to...@invalid.it
> wrote in message
news:tzxxj.24339$FR.1...@twister1.libero.it...
> "Gabriele Bertolucci" <"info[at]pbsoft[dot]it"> ha scritto nel messaggio
> scusa Gabriele... forse mi sono espresso troppo frettolosamente...
> ho già fatto l'operazione suddetta... ma al solo scopo di avere le tabelle
> nello
> stesso DB... ma in realtà mi serve poi spostare i dati, sono 1600 utenti,
> in un altra tabella che è poi l'origine della Frm etc...
> in sostanza ora sono arrivato a copiare il lato 1 nella tabella facendo un
> copia-incolla
> ossia Cognome, Nome, etc....
> ma il problema è ora far "combaciare" i MOLTI  prodotti a queste persone
> senza che i dati si mischino...
> spero di essere stato chiaro...
> Ciao
Se importi ambedue le tabelle in un sol colpo e nelle Opzioni
attivi Relationship...
Bruno


title: trasferire tabelle in altro DB

text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:47c6b4e4$0$36452>
>> scusa Gabriele... forse mi sono espresso troppo frettolosamente...
>> ho già fatto l'operazione suddetta... ma al solo scopo di avere le
>> tabelle nello
>> stesso DB... ma in realtà mi serve poi spostare i dati, sono 1600
>> utenti,
>> in un altra tabella che è poi l'origine della Frm etc...
>> in sostanza ora sono arrivato a copiare il lato 1 nella tabella
>> facendo un copia-incolla
>> ossia Cognome, Nome, etc....
>> ma il problema è ora far "combaciare" i MOLTI  prodotti a queste
>> persone senza che i dati si mischino...
>> spero di essere stato chiaro...
>> Ciao
>
> Se importi ambedue le tabelle in un sol colpo e nelle Opzioni
> attivi Relationship...
> Bruno
--------------------->
scusa Bruno... sono poco pratico di access... ho guardato in Opzioni ma
non ho visto
Relationship...potresti essere un pò + dettagliato circa le operazioni
da fare ???
infine facendo ciò avrei in sostanza le tabelle importate (2) in
relazione ma come la mettiamo se devo inserire i dati nelle mie tabelle
(2) senza perdere dati... dovrei modificare le tabelle importate ??
grazie
Giuseppe


title: trasferire tabelle in altro DB

text:
"JOE" <
to...@invalid.it
> wrote in message
news:aTPxj.256638$%k.38...@twister2.libero.it...
> --------------------->
> scusa Bruno... sono poco pratico di access... ho guardato in Opzioni ma
> non ho visto
> Relationship...potresti essere un pň + dettagliato circa le operazioni da
> fare ???
> infine facendo ciň avrei in sostanza le tabelle importate (2) in relazione
> ma come la mettiamo se devo inserire i dati nelle mie tabelle (2) senza
> perdere dati... dovrei modificare le tabelle importate ??
> grazie
> Giuseppe
Che versione di Access hai?
Bruno


title: Problema con origine controllo

author: Fausto

text:
Ho un bel problema con Access.
Quando apro una maschera in visualizzazione avendo messo come origine
record della maschera una tabella, io visualizzo i record di quella
tabella nei campi che mi interessano.
Ad un certo punto ho previsto la possibilità di modificare i dati
presenti nella tabella tramite la maschera, però c'è un campo in cui
io devo mettere il seguente codice nell'origine controllo :
=[Maschere]![Cerca_Calcolo_Ferro]![Sezione1].[Column](2), così facendo
io recupero dei valori presenti in una query.
Il mio problema è che non so come posso attribuire allo stesso campo
due origini controllo diverse.
Spero che qualcuno possa aiutarmi, grazie in anticipo.
Fausto.


title: Problema con origine controllo

author: Alessandro Cara

text:
Fausto wrote:
> Ho un bel problema con Access.
>
> Quando apro una maschera in visualizzazione avendo messo come origine
> record della maschera una tabella, io visualizzo i record di quella
> tabella nei campi che mi interessano.
es claro
>
> Ad un certo punto ho previsto la possibilità di modificare i dati
> presenti nella tabella tramite la maschera, però c'è un campo in cui
> io devo mettere il seguente codice nell'origine controllo :
devo mi sembra eccessivo,  dovrei sarebbe piu' prestazionale
> =[Maschere]![Cerca_Calcolo_Ferro]![Sezione1].[Column](2), così facendo
> io recupero dei valori presenti in una query.
cosi facendo non recuperi il valore presente in una query, recuperi il
valore della terza colonna di un controllo (cbx o lbx) che hai definito
in un'altra maschera (aperta) e che tu lo debba mettere come origine
dati del controllo della maschera corrente e' opinabile.
>
> Il mio problema è che non so come posso attribuire allo stesso campo
> due origini controllo diverse.
Prima di poter immaginare due origini diverse sei certo di aver bisogno
  di due origini diverse?
>
> Spero che qualcuno possa aiutarmi, grazie in anticipo.
Probabilmente non hai due origini diverse ma hai necessita' di
"modificare" il valore di un controllo in via elaborativa (forse). Se
enunci cosa ti serve e descrivi le risorse che hai a disposizione
piuttosto che descrivere quello che fai (serve ma non e' "mandatory")
sarebbe meglio.
--
ac
y-1=x


title: Problema con origine controllo

text:
On 1 Mar, 23:04, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> Fausto wrote:
> > Ho un belproblemacon Access.
>
> > Quando apro una maschera in visualizzazione avendo messo comeorigine
> > record della maschera una tabella, io visualizzo i record di quella
> > tabella nei campi che mi interessano.
> es claro
>
> > Ad un certo punto ho previsto la possibilità di modificare i dati
> > presenti nella tabella tramite la maschera, però c'è un campo in cui
> > io devo mettere il seguente codice nell'originecontrollo:
>
> devo mi sembra eccessivo,  dovrei sarebbe piu' prestazionale
>
> > =[Maschere]![Cerca_Calcolo_Ferro]![Sezione1].[Column](2), così facendo
> > io recupero dei valori presenti in una query.
>
> cosi facendo non recuperi il valore presente in una query, recuperi il
> valore della terza colonna di uncontrollo(cbx o lbx) che hai definito
> in un'altra maschera (aperta) e che tu lo debba mettere comeorigine
> dati delcontrollodella maschera corrente e' opinabile.
>
>
>
> > Il mioproblemaè che non so come posso attribuire allo stesso campo
> > due originicontrollodiverse.
>
> Prima di poter immaginare due origini diverse sei certo di aver bisogno
>   di due origini diverse?
>
>
>
> > Spero che qualcuno possa aiutarmi, grazie in anticipo.
>
> Probabilmente non hai due origini diverse ma hai necessita' di
> "modificare" il valore di uncontrolloin via elaborativa (forse). Se
> enunci cosa ti serve e descrivi le risorse che hai a disposizione
> piuttosto che descrivere quello che fai (serve ma non e' "mandatory")
> sarebbe meglio.
>
> --
> ac
> y-1=x
Hai ragione Alessandro, mi sono spiegato male.
Ho una maschera che ha come origine record una query che legge da un
tabella, ed ho tutti i campi della maschera che hanno come origine
controllo il nome-campo di quella tabella.
Dopo aver immesso dei valori in un'altra maschera io entro in questa
di visualizzazione e tramite quei valori che hanno popolato la query
recupero dalla tabella dei dati.
All'interno di questa maschera ho un pulsante chiamato modifica che mi
sblocca i campi bloccati in visualizzazione.
A questo punto io ho 3 campi :
il campo A è una casella combinata di nome PROFILO che ha come origine
riga una SELECT che valorizza la casella con tutti i profili inseriti
in tabella
il campo B è una casella combinata di nome SEZIONE che ha come origine
riga una QUERY che valorizza la casella con tutte le SEZIONI inserite
in tabella legate a quel PROFILO.
(Quella query recupera anche il valore PESO)
il campo C è una casella di testo di nome PESO che nelle mie
intenzioni dovrebbe recuperare dalla QUERY il valore PESO sortato in
precedenza.
Il mio problema è questo : come faccio a legare questa casella sia ai
valori di una tabella esterna che a i valori che vengono modificati
all'interno ???
Fausto.


title: Problema con origine controllo

text:
Fausto wrote:
[cut]
> Hai ragione Alessandro, mi sono spiegato male.
>
> Ho una maschera che ha come origine record una query che legge da un
> tabella, ed ho tutti i campi della maschera che hanno come origine
> controllo il nome-campo di quella tabella.
>
> Dopo aver immesso dei valori in un'altra maschera io entro in questa
> di visualizzazione e tramite quei valori che hanno popolato la query
> recupero dalla tabella dei dati.
>
> All'interno di questa maschera ho un pulsante chiamato modifica che mi
> sblocca i campi bloccati in visualizzazione.
>
> A questo punto io ho 3 campi :
>
> il campo A è una casella combinata di nome PROFILO che ha come origine
> riga una SELECT che valorizza la casella con tutti i profili inseriti
> in tabella
>
> il campo B è una casella combinata di nome SEZIONE che ha come origine
> riga una QUERY che valorizza la casella con tutte le SEZIONI inserite
> in tabella legate a quel PROFILO.
> (Quella query recupera anche il valore PESO)
>
> il campo C è una casella di testo di nome PESO che nelle mie
> intenzioni dovrebbe recuperare dalla QUERY il valore PESO sortato in
> precedenza.
>
> Il mio problema è questo : come faccio a legare questa casella sia ai
> valori di una tabella esterna che a i valori che vengono modificati
> all'interno ???
>
> Fausto.
>
>
>
>
L'origine dati del controllo e' il campo di tabella e/o query.
Sull'evento click di un pulsante, per modificare il valore attuale di un
qualsiasi controllo il seguente:
sub pulsante_click()
controllodamodificare = controllochecontieneilnuovovalore
end sub
i.e.
Sub modifica_click()
peso = forms![Cerca_Calcolo_Ferro]![Sezione1].[Column](2)
end sub
La spiegazione mi sembra chiara anche se questo passo e' oscuro
 > Il mio problema è questo : come faccio a legare questa casella sia ai
 > valori di una tabella esterna che a i valori che vengono modificati
 > all'interno ???
Il tuo form e' "associato" ad una tabella cio' significa che i valori
visibili sul form riflettono/impostano il valore presente sulla tabella.
Quando inserisci/modifichi un dato sul controllo quel valore viene
portato in tabella e vaivirsa, come dicono "linglesi", quando scorri il
form i valori presenti in tabella vengono visualizzati. La stessa cosa
che si fa manualmente si fa via codice utilizzando il valore che ti
serve che puo' provenire dalle vie piu' impensabili.
Tutto cio' sempre che io abbia capito il problema.
--
ac
y-1=x


title: Problema con origine controllo

text:
On 2 Mar, 11:58, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:

> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Grazie mille, ho risolto il problema seguendo il tuo consiglio.
Fausto,


title: Problema di impaginazione

author: Alberto Brina

text:
Come posso fare a non perdere l'impaginazione dei report! esempio se passo
da un report a l'altro o se stampo uno e poi vado in anteprima sull'altro
perdo le impostazioni? come faccio a lasciarle fisse sempre in maniera
sicura al cento per cento???? grazie Alberto


title: Problema di impaginazione

author: AleViol

text:
Se si tratta solo di scale puoi forzarle con una DoCmd, oppure con una macro
EseguiComando...
"Alberto Brina" <
albert...@libero.it
> ha scritto nel messaggio
news:5zsP8.30062$j65.7...@twister1.libero.it...



title: Problema di impaginazione

author: Emyr

text:


è un bug di access, vedi post precedenti a riguardo su google, prova a
cambiare l'impostazione di esegui correzione automatica nome su scheda
generale di opzioni
Saluti.
Emanuele.


title: aggiornamento valori casella combinata

author: antonio v.

text:
Nel caso occorra aggiungere nuovi record alla tabella da cui trae origine la
casella combinata di una data maschera, ho inserito il seguente codice nella
proprietà doppio click della casella combinata al fine di richiamare la
maschera di inserimento dei nuovi dati.
    Dim lngEmployeeID As Long
        lngEmployeeID = Me![idcaserme]
        Me![idcaserme] = 1
        DoCmd.OpenForm "caserme", , , , , acDialog, "GotoNew"
    Me![idcaserme].Requery
    If lngEmployeeID <> 0 Then Me![idcaserme] = lngEmployeeID
Così com'è funziona ma ho una domanda: come posso modificare il codice per
fare in modo che, successivamente all'immissione del nuovo record nella
maschera "caserme" e subito dopo la chiusura della maschera stessa, venga
subito visualizzato il nuovo valore nella casella combinata senza che sia
necessario cercarlo in elenco?
Grazie
Tony


title: aggiornamento valori casella combinata

author: Rob

text:
"antonio v." <
xxxx...@inwind.it
> ha scritto nel messaggio
news:F5gv9.87802$RO.22...@twister1.libero.it...

Per chiarezza di esempio chiamo IDcasermeCB la ComboBox sulla form chiamante
e IDcasermeTB la TextBox contenente l'ID del nuovo record sulla form
chiamata.
Nell'evento OnClose della form "caserme" scrivi:
Form_caserme.IDcasermeCB.requery
Form_caserme.IDcasermeCB = me.idcasermeTB
Mandi Rob.


title: aggiornamento valori casella combinata

text:
"Rob" <dg.rob[noSPam]@
libero.it
> ha scritto nel messaggio
news:Itnv9.91062$%M1.23...@twister2.libero.it...

Mille grazie


title: Back end su server remoto - velocità ridotta.

author: Rick - Pipino

text:
Le mie applicazioni hanno finora girato in locale.
Al massimo appoggiando il BE su server in LAN, e funzionava tutto bene.
La mia azienda ha una WAN, ed ho provato ad appoggiare il BE su server
remoto.
Questo sarebbe necessario per poter condividere le tabelle da vari uffici
sparsi per l'Italia.
Un disastro ... occorrono circa 3 minuti per aprire una maschera.
Avevo già letto altri messaggi analoghi, sapevo di questo problema del
traffico di rete provocato da Access, ma pensavo fosse una cosa che
rallentava ma comunque in termini accettabili, invece nel mio caso non è
davvero accettabile.
Probabilmente le mie tabelle non sono normalizzate come dovrebbero, ma credo
che gran parte del problema stia nella ridotta banda tra BE e FE.
Esiste un sistema (semplice) per migliorare le prestazioni ?
Anche qualcosa di poco ortodosso, tipo lavorare con il BE in locale e
sincronizzare le tabelle in tempi successivi, possibilmente in modo
trasparente per l'operatore.
Non è un applicativo cui accedono molti utenti e l'aggiornamento in tempo
reale dei record sarebbe importante ... ma a questo punto non vedo
alternative.
Aiuto ! :-)
Rick


author: Simone Calligaris

text:
"Rick - Pipino" <
> Esiste un sistema (semplice) per migliorare le prestazioni ?
> Anche qualcosa di poco ortodosso, tipo lavorare con il BE in locale e
> sincronizzare le tabelle in tempi successivi, possibilmente in modo
> trasparente per l'operatore.
> Non è un applicativo cui accedono molti utenti e l'aggiornamento in tempo
> reale dei record sarebbe importante ... ma a questo punto non vedo
> alternative.
>
> Aiuto ! :-)
Esiste un sistema che risolve senza riscrivere nulla: piuttosto utilizzato.
Configurare un Terminal Server.
Saluti.


text:
"Simone Calligaris" ha scritto
>
> "Rick - Pipino" <
>> Esiste un sistema (semplice) per migliorare le prestazioni ?
>> Anche qualcosa di poco ortodosso, tipo lavorare con il BE in locale e
>> sincronizzare le tabelle in tempi successivi, possibilmente in modo
>> trasparente per l'operatore.
>> Non è un applicativo cui accedono molti utenti e l'aggiornamento in tempo
>> reale dei record sarebbe importante ... ma a questo punto non vedo
>> alternative.
>
> Esiste un sistema che risolve senza riscrivere nulla: piuttosto
> utilizzato.
> Configurare un Terminal Server.
Temo di non poterlo fare. Non ho la gestione del server, solo una cartella
dove appoggiare i miei dati.
Rick


title: Puntare un record (se esistente) in un recordset

author: vuLCan Karayan

text:
Ciao a tutti e buon anno.
Ho un piccolo problema relativo al codice VBA.
Costruisco un RecordSet:
rs as Dao.RecordSet
Set rs = CurrentDb.OpenRecordset("SELECT * FROM MiaTabella")
A seconda che un determinato record esista, devo aggiornarlo o aggiungerne
uno nuovo.
Ho fatto cosě:
Dim intConteggio As Integer
intConteggio = DCount("*", MiaTabella, "[IDUnivoco] = " & Me.CampoMaschera)
Adesso:
1) Se inConteggio = 0 non ci sono problemi:
With rs
.AddNew
!Cognome = strUtenteCognome
!Nome = strUtenteNome
!Protocollo = Me.Protocollo
.Update
.Bookmark = .LastModified
End With
2) Se intConteggio > 0 dovrei "puntare" il record esistente (sulla base del
campo IDUnivoco) e poterlo aggiornare.
Come faccio a "puntare" il record che voglio aggiornare?
Ciao ciao.


author: Alessandro Baraldi

text:
"vuLCan Karayan" <
nos...@please.it
> wrote in message
news:43ba4f76$0$1082$
4faf...@reader1.news.tin.it
> Ciao a tutti e buon anno.
>
> Ho un piccolo problema relativo al codice VBA.
>
> Costruisco un RecordSet:
>
> rs as Dao.RecordSet
> Set rs = CurrentDb.OpenRecordset("SELECT * FROM MiaTabella")
>
[CUT]
> 2) Se intConteggio > 0 dovrei "puntare" il record esistente (sulla base del
> campo IDUnivoco) e poterlo aggiornare.
>
> Come faccio a "puntare" il record che voglio aggiornare?
>
> Ciao ciao.
Non capisco perchč una volta aperto il Recordset non
usi il metodo FindFirst e gestisci l'eventuale errore
con la proprietą NoMatch...?
Tra le altre cose FindFirst sposta gią il puntatore.
Vedi l'help per chiarimenti, trovi anche un esempio.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: fidirico (lavoro)

text:
"vuLCan Karayan" <
nos...@please.it
> ha scritto nel messaggio
news:43ba4f76$0$1082$4faf...@reader1.news.tin.it...
> Ciao a tutti e buon anno.
>
> Ho un piccolo problema relativo al codice VBA.
>
> Costruisco un RecordSet:
>
> rs as Dao.RecordSet
> Set rs = CurrentDb.OpenRecordset("SELECT * FROM MiaTabella")
>
> A seconda che un determinato record esista, devo aggiornarlo o aggiungerne
> uno nuovo.
> Ho fatto così:
>
> Dim intConteggio As Integer
> intConteggio = DCount("*", MiaTabella, "[IDUnivoco] = " &
Me.CampoMaschera)
>
> Adesso:
> 1) Se inConteggio = 0 non ci sono problemi:
>
> With rs
> .AddNew
> !Cognome = strUtenteCognome
> !Nome = strUtenteNome
> !Protocollo = Me.Protocollo
> .Update
> .Bookmark = .LastModified
> End With
>
>
> 2) Se intConteggio > 0 dovrei "puntare" il record esistente (sulla base
del
> campo IDUnivoco) e poterlo aggiornare.
>
> Come faccio a "puntare" il record che voglio aggiornare?
In alternativa a quanto suggerito da Alessandro, potresti filtrare il
recordset all'origine in base ai criteri che ti interessano, ottenendo un
recordset di un solo record (quello che ti interessa) ed evitando di tirarti
dietro tutta la tabella nonchè di dover usare i vari seek, find e compagnia.
Ad es.
Set rs = CurrentDb.OpenRecordset("select * from MiaTabella where
miatabella.idunivoco = " & Me.CampoMaschera)
Per poi testare la proprietà Bof (o Eof) del recordset per sapere se il
record esiste già oppure no:
if rs.Bof = False  Then ' il record esiste
   rs.edit
    ...ecc.
   rs.Update
else  ' il record non esiste
    rs.addnew
    ... ecc.
    rs.update
End If
--
Ciao
Galliano.


title: Criterio in query

author: giannirusso

text:
Buonasera, da qualche giorno mi sto arrovellando invano per risolvere un
problema.

Ho le tabelle macchine e fatture.
Per ogni macchina, ogni anno è stata emessa una fattura con il relativo
campo se pagata o meno.

Ora io vorrei una query nella quale per ogni macchina venisse fuori un
campo con l'indicazione se tutte le fatture sono pagate o meno.

Sono riuscito a fare questo con il raggruppamento ma questo mi impedisce
di avere una query aggiornabile con nuovi record.

Mi potete dare una mano?

Grazie
Gianni