title: dimensionare maschera access

text:
ciao giuse
provo a spiegarmi meglio
ho un database che appena si apre mi mostra una maschera con diversi
pulsanti di scelta (che aprono altre maschere)
la prima maschera di apertura non riesco a farla aprire a tutto shermo
(quindi appaiono file modifica ecc) come non riesco a portere a tutto
schermo tutte le altre
in access per ogni maschera ho inserito
popup = si
modalità ridimensionamento immagine = zoom
allineamento immagine = centrato
dimensioni automatiche = si
centratura automatica = si
pulsanti spostamento = no
linee divisorie = no
barre scorrimento = no
selettori record = no
dov'è lo sbaglio?
grazie
"Giuseppe" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:Y5Wsa.66701$K35.1...@news2.tin.it...
>
> "lu67" <
angelo...@fastwebnet.it
> ha scritto nel messaggio
> news:0XVsa.36674$DN.9...@tornado.fastwebnet.it...
> > in che punto devo inserire il comando Docmd.Maximaize.  ?
> >
> Scusa fammi capire una cosa.
> Tu dovresti avere una maschera in cui dal tuo codice risultano tre bottoni
> con cui puoi aprire tre frm diverse.
> Indipendentemente dalla frm che vuoi aprire se il tuo problema è che



title: dimensionare maschera access

author: Giuseppe

text:
"lu67" <
angelo...@fastwebnet.it
> ha scritto nel messaggio
news:keWsa.36683$DN.9...@tornado.fastwebnet.it...
> ciao giuse
> provo a spiegarmi meglio
> ho un database che appena si apre mi mostra una maschera con diversi
> pulsanti di scelta (che aprono altre maschere)
> la prima maschera di apertura non riesco a farla aprire a tutto shermo
Su questa maschera inserisci il codice che ti ho postato.Ma prima levagli
"popup = si"
> (quindi appaiono file modifica ecc) come non riesco a portere a tutto
> schermo tutte le altre
Questo non l'ho capito.Però se vuoi portare a tutto schermo le altre frm che
apri dalla prima frm
levagli a tutte il popup cioè settalo a no ed inserisci il codice che ti ho
postato.
[CUT]
> dov'è lo sbaglio?
Ciao
Giuseppe
P.S. rispondi scrivendo sempre dopo il messaggio e mai in testa a questo.


title: dimensionare maschera access

text:
FATTO
FUNZIONA
GRAZIE 1000


title: Creare il file Be e relative tabelle ricavandole dal FE??

text:
E' possibile creare il file Be con le relative tabelle ricavandolo dal file
Fe o meglio dalle maschere del Fe, mi spiacerebbe rifarlo nuovamente dopo
che accidentalmente č stato eliminato. Grazie.


author: Gaetano Di Zanni

text:
"Pino35" <
ppi...@serenacom.net
> ha scritto nel messaggio
news:Ytude.6408$TR5....@news.edisontel.com...
> E' possibile creare il file Be con le relative tabelle ricavandolo dal
file
> Fe o meglio dalle maschere del Fe, mi spiacerebbe rifarlo nuovamente dopo
> che accidentalmente è stato eliminato. Grazie.
Temo proprio di no!
Ciao


author: Prometeo

text:
Pino35 ha scritto:
> E' possibile creare il file Be con le relative tabelle ricavandolo dal file
> Fe o meglio dalle maschere del Fe, mi spiacerebbe rifarlo nuovamente dopo
> che accidentalmente č stato eliminato. Grazie.
Si tratta di oggetti diversi, da una parte Tabelle e dall'altra maschere,
query ecc., ragionando sulle quali magari puoi ricordare la struttura per
..ricominciare tutto da capo.
Io mi farei tante belle copie di backup.
Ciao
Prometeo

--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Problema conversione A97 > A2000 !!!

author: SuperPippo®

text:
ho un DB che lavora egregiamente in A97 sotto Win 9** Win ME...
ho provato a convertirlo in Access 2000... tutto ok...
ma quando lo apro mi dà un errore di Oleaut32.dll...
cosa si può fare ??
Ciao...


title: DLookUp con più criteri

text:
Un saluto a tutti.
Spero ci sia qualcuno che mi aiuti.
Ho due Tabelle : Strutture_no e Fornitori.
Nella tabella Strutture _no i seguenti campi Cod_For , Data Inizio ,
Data Fine.
Tabella Stutture_no:
Cod_For    Data Inizio        Data Fine
 134           01/01/2012        31/12/2012
Tabella Fornitori:
Cod.For      Num. Fattura   Data Fattura
 134             3455676         23/02/2011
  65              2322233         01/07/2012
Problema:
Le fatture del fornitore 134 della tabella fornitori rientrano nel
periodo di data:Inizio e Data Fine della tabella Strutture_no?
Utilizzando DLookup in una query sono riuscito sono a recuperare il
fornitore :IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
[Cod_For]);"Fuori Contratto")
Potreste aiutarmi?


title: DLookUp con più criteri

author: Karl Donaubauer

text:
lorenzo57 wrote:
> Ho due Tabelle : Strutture_no e Fornitori.
> Nella tabella Strutture _no i seguenti campi Cod_For , Data Inizio ,
> Data Fine.
> Tabella Stutture_no:
> Cod_For    Data Inizio        Data Fine
> 134           01/01/2012        31/12/2012
> Tabella Fornitori:
> Cod.For      Num. Fattura   Data Fattura
> 134             3455676         23/02/2011
>  65              2322233         01/07/2012
> Problema:
> Le fatture del fornitore 134 della tabella fornitori rientrano nel
> periodo di data:Inizio e Data Fine della tabella Strutture_no?
> Utilizzando DLookup in una query sono riuscito sono a recuperare il
> fornitore :IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
> [Cod_For]);"Fuori Contratto")

Con la tua espressione in caso di True ricevi sempre "Fuori Contratto".
Mi sembra strano, ma siccome non è chiaro cosa vuoi come risultato,
scrivo solo una sintassi per aggiungere la prova per [Data Fattura]
(tutto in 1 riga):

fornitore: IIf(DLookUp("Cod_For";"Strutture_no";"Cod_For=" & [Cod_For]
& " And [Data Fattura] Between " & clng([Data Inizio]) & " And "
&  clng([Data Fine]));"Fuori Contratto")

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


title: DLookUp con più criteri

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Karl, diventa difficile per me spiegartelo meglio. Comunque ci provo.
Query su tabella fornitori: Espressione in una cella:  verifica
validità della data della fattura se contenuta nel periodo Data Inizio
e Data Fine della Tabella Strutture_no dello stesso fornitore.
:IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
[Cod_For] And DLookup ???????????
Grazie, Karl


title: DLookUp con più criteri

text:

> > Access FAQ:
http://www.donkarl.com/it-Nascondi
 testo citato
>
> > - Mostra testo citato -
>
> Karl, diventa difficile per me spiegartelo meglio. Comunque ci provo.
> Query su tabella fornitori: Espressione in una cella:  verifica
> validità della data della fattura se contenuta nel periodo Data Inizio
> e Data Fine della Tabella Strutture_no dello stesso fornitore.
> :IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
> [Cod_For] And DLookup ???????????
> Grazie, Karl- Nascondi testo citato
>
> - Mostra testo citato -

Karl, Se la data della fattura della tabella fornitori rientra nel
periodo Data Inizio e Data Fine della tabella Strutture_no allora la
fattura è valida altrimenti non lo è.


title: DLookUp con più criteri

text:
lorenzo57 wrote:
>> Karl Donaubauer wrote:
>>>> Ho due Tabelle : Strutture_no e Fornitori.
>>>> Nella tabella Strutture _no i seguenti campi Cod_For , Data Inizio
>>>> , Data Fine.
>>>> Tabella Stutture_no:
>>>> Cod_For Data Inizio Data Fine
>>>> 134 01/01/2012 31/12/2012
>>>> Tabella Fornitori:
>>>> Cod.For Num. Fattura Data Fattura
>>>> 134 3455676 23/02/2011
>>>> 65 2322233 01/07/2012
>>>> Problema:
>>>> Le fatture del fornitore 134 della tabella fornitori rientrano nel
>>>> periodo di data:Inizio e Data Fine della tabella Strutture_no?
>>>> Utilizzando DLookup in una query sono riuscito sono a recuperare il
>>>> fornitore :IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
>>>> [Cod_For]);"Fuori Contratto")
>>
>>> Con la tua espressione in caso di True ricevi sempre "Fuori
>>> Contratto". Mi sembra strano, ma siccome non č chiaro cosa vuoi
>>> come risultato, scrivo solo una sintassi per aggiungere la prova
>>> per [Data Fattura] (tutto in 1 riga):
>>
>>> fornitore: IIf(DLookUp("Cod_For";"Strutture_no";"Cod_For=" &
>>> [Cod_For] & " And [Data Fattura] Between " & clng([Data Inizio]) &
>>> " And " & clng([Data Fine]));"Fuori Contratto")
> ...
> Karl, Se la data della fattura della tabella fornitori rientra nel
> periodo Data Inizio e Data Fine della tabella Strutture_no allora la
> fattura č valida altrimenti non lo č.

Se con "valida" intendi che vuoi avere il Cod_For IIf() non serve.
Invece prova cosě:

fornitore: nz(DLookUp("Cod_For";"Strutture_no";"Cod_For=" & [Cod_For]
& " And [Data Fattura] Between " & clng([Data Inizio]) & " And "
&  clng([Data Fine]));"Non Valido")

Certo se fai un DLookUp con molti record, la query diventa lento.
Di solito č meglio e piů veloce collegare le due tabelle con un JOIN.
Dipende cosa fai altro nella query.



title: DLookUp con più criteri

text:
On 10 Mar, 21:01, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> lorenzo57 wrote:
> >> Karl Donaubauer wrote:
> >>>> Ho due Tabelle : Strutture_no e Fornitori.
> >>>> Nella tabella Strutture _no i seguenti campi Cod_For , Data Inizio
> >>>> , Data Fine.
> >>>> Tabella Stutture_no:
> >>>> Cod_For Data Inizio Data Fine
> >>>> 134 01/01/2012 31/12/2012
> >>>> Tabella Fornitori:
> >>>> Cod.For Num. Fattura Data Fattura
> >>>> 134 3455676 23/02/2011
> >>>> 65 2322233 01/07/2012
> >>>> Problema:
> >>>> Le fatture del fornitore 134 della tabella fornitori rientrano nel
> >>>> periodo di data:Inizio e Data Fine della tabella Strutture_no?
> >>>> Utilizzando DLookup in una query sono riuscito sono a recuperare il
> >>>> fornitore :IIf(DLookUp("[Cod_For]";"Strutture_no";"[Cod_For]=" &
> >>>> [Cod_For]);"Fuori Contratto")
>
> >>> Con la tua espressione in caso di True ricevi sempre "Fuori
> >>> Contratto". Mi sembra strano, ma siccome non è chiaro cosa vuoi
> >>> come risultato, scrivo solo una sintassi per aggiungere la prova
> >>> per [Data Fattura] (tutto in 1 riga):
>
> >>> fornitore: IIf(DLookUp("Cod_For";"Strutture_no";"Cod_For=" &
> >>> [Cod_For] & " And [Data Fattura] Between " & clng([Data Inizio]) &
> >>> " And " & clng([Data Fine]));"Fuori Contratto")
> > ...
> > Karl, Se la data della fattura della tabella fornitori rientra nel
> > periodo Data Inizio e Data Fine della tabella Strutture_no allora la
> > fattura è valida altrimenti non lo è.
>
> Se con "valida" intendi che vuoi avere il Cod_For IIf() non serve.
> Invece prova così:
>
> fornitore: nz(DLookUp("Cod_For";"Strutture_no";"Cod_For=" & [Cod_For]
> & " And [Data Fattura] Between " & clng([Data Inizio]) & " And "
> &  clng([Data Fine]));"Non Valido")
>
> Certo se fai un DLookUp con molti record, la query diventa lento.
> Di solito è meglio e più veloce collegare le due tabelle con un JOIN.
> Dipende cosa fai altro nella query.
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Karl, non mi funziona
Ma non è possibile fare il between sulla tabella Strutture_no?


title: DLookUp con più criteri

text:

> > Access FAQ:
http://www.donkarl.com/it-Nascondi
 testo citato
>
> > - Mostra testo citato -
>
> Karl, non mi funziona
> Ma non è possibile fare il between sulla tabella Strutture_no?

Mi sa che pretendi troppo da dlookup.....oltre che non è portabile!
Usare i join di cui parlava Karl? Query in passaggi successivi?
Tabelle temporanee? Subquery? Ce ne sono molti di modi per uscirne.....


title: DLookUp con più criteri

text:

> > > Access FAQ:
http://www.donkarl.com/it-Nasconditesto
 citato
>
> > > - Mostra testo citato -
>
> > Karl, non mi funziona
> > Ma non è possibile fare il between sulla tabella Strutture_no?
>
> Mi sa che pretendi troppo da dlookup.....oltre che non è portabile!
> Usare i join di cui parlava Karl? Query in passaggi successivi?
> Tabelle temporanee? Subquery? Ce ne sono molti di modi per uscirne.....- Nascondi testo citato
>
> - Mostra testo citato -

Fair87, nessuna pretesa, ci mancherebbe. Il profano sono io.


DLookUp con più criteri


title: Calcolo dell'età

author: Fabrizio

text:
Ho una tabella dove sono presenti è presente un campo data_di_nascita.
Ora ho creato una maschera nella quale vorrei inserire un controllo in modo
che mi calcoli l'età di quella persona, in base alla data odierna.
Come posso fare?
Ringrazio quanti mi volessero aiutare.
Fabrizio


title: Calcolo dell'età

author: Roberto - Syd

text:
"Fabrizio" <
far...@tiscalinet.it
> ha scritto nel messaggio
news:9qh0id$p9s$1...@pegasus.tiscalinet.it...

Guarda nello help l'istruzione DateDiff.
Ciao Roberto - Syd


title: Calcolo dell'età

author: Federico Luciani

text:

inserisci un controllo texto e imposta la proprieta 'Origine
controllo' a:
=Eta([nomecampodatanascita])
la funzione Eta la trovi sul sito comune.
--
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: Calcolo dell'età

author: Pietro Satta

text:
"Federico Luciani" <
fluc...@sitocomune.com
> ha scritto nel messaggio
news:3BCC122E...@sitocomune.com...
> Fabrizio wrote:
> > Ho una tabella dove sono presenti è presente un campo data_di_nascita.
> > Ora ho creato una maschera nella quale vorrei inserire un controllo in
modo
> > che mi calcoli l'età di quella persona, in base alla data odierna.
> > Come posso fare?
> > Ringrazio quanti mi volessero aiutare.
> > Fabrizio
>
>
> inserisci un controllo texto e imposta la proprieta 'Origine
> controllo' a:
> =Eta([nomecampodatanascita])
>
> la funzione Eta la trovi sul sito comune.
>
>
> --
> Federico
oppure, se credi usa questa nella query sottostante alla maschera (se c'è!):
Età: DateDiff("aaaa";[Datansc];Now())
Tieni però presente, qualunque sia la soluzione che alla fine deciderai di
adottare, che Access ha utilizzato una soluzione molto salomonica per quel
che riguarda il problema dell'anno 2000, in quanto mi pare che sotto i 30
attribuisca l'anno al 900, mentre sopra al 2000. La conseguenza è che se hai
da gestire anche persone anziane (quindi nate prima del 30) ti troverai un
valore negativo nel campo calcolato età, tipo -20 ect.
La soluzione? usa il campo anno a 4 cifre e non avrai problemi.
Ciao


title: Somma nei report

text:
Salve a tutti , il quesito è assai semplice :
in un report ho riportato il valore di una serie di fatture.
Alcuni di qs. valori possono essere negativi perchè anzichè essere fattura il documento è una nota di credito.
Nel pìè di pagina report ho una casella di testo che ha come origine controllo : =somma([importofattura]) che mi restituisce la somma totale di tutte le fatture visualizzate nel report .
Il tutto funziona se ogni fattura è positiva , ma se c'è anche solo una fattura con importo negativo (esempio -100€) perchè e nota di credito , non viene sommata ( e questo portrebbe andare bene ) ma poi viene anche sottratta dal totale.... come se dal totale fossa sottratta due volte.
Come posso risolvere ?
Grazie anticipato per chiunque volesse aiutarmi.
P.S. Ho provato anche su un foglio excel e la funzione somma si comporta uguale!


title: Somma nei report

author: Maurizio Borrelli

text:
Il giorno martedì 12 febbraio 2013 16:51:49 UTC+1,
matteod...@gmail.com
 ha scritto:
[...]
> Il tutto funziona se ogni fattura è positiva , ma se c'è anche solo una fattura con importo negativo (esempio -100€) perchè e nota di credito , non viene sommata ( e questo portrebbe andare bene ) ma poi viene anche sottratta dal totale.... come se dal totale fossa sottratta due volte.
> Come posso risolvere ?
> P.S. Ho provato anche su un foglio excel e la funzione somma si comporta uguale!

Ciao matteod...,
non ho capito. Ti faccio un esempio:
100 + 100 + 100 = 300 (Tutti numeri positivi)
100 + 100 + 100 + (-100) = ?
In base alla tua esposizione verrebbero sommati solo i valori positivi, quindi il totale sarebbe 300; poi da questo totale (proprio da questo? che ricordiamo e' 300) vengono sottratti i valori negativi (qui: -100) e ottieni... 200. Giusto? Se e' cosi' allora dov'e' il problema? I casi sono (almeno) due, o la tua descrizione del problema non corrisponde al problema o?...
--
Ciao!
Maurizio


title: Consiglio economico su Access/Office

author: Fabio

text:
Salve a tutti, vorrei un consiglio dal punto di vista economico.
Io ho Office con una licenza studente percui il prezzo č stato piuttosto
contenuto.
Un amico mi chiedeva cosa č piu' conveniente, lui userebbe Access per una
applicazione "commerciale".
Capisco che la soluzione piu' economica sarebbe comprare solo access, ma mi
pareva che ci fossero delle soluzioni per risparmiare.
Mi pareva che se uno č gia' in possesso di una applicazione microsoft,
un'altra ne costerebbe il 50% in meno (mi pare), č cosě??
Ora se uno comprasse un computer nuovo, dove a volte č gia' presente
qualcosa(p.e. Works), lo registrasse, ed utilizzasse poi
lo sconto per comprare un' applicazione tipo access o Office???? č
possibile??
Che Fare??
Grazie


title: Consiglio economico su Access/Office

author: Emyr

text:
On Tue, 5 Feb 2002 12:27:24 +0100, "Fabio" <
f.par...@mail.sirio.it
>
wrote:
>Salve a tutti, vorrei un consiglio dal punto di vista economico.
>Io ho Office con una licenza studente percui il prezzo è stato piuttosto
>contenuto.
>Un amico mi chiedeva cosa è piu' conveniente, lui userebbe Access per una
>applicazione "commerciale".
>Capisco che la soluzione piu' economica sarebbe comprare solo access, ma mi
>pareva che ci fossero delle soluzioni per risparmiare.
>Mi pareva che se uno è gia' in possesso di una applicazione microsoft,
>un'altra ne costerebbe il 50% in meno (mi pare), è così??
>
>Ora se uno comprasse un computer nuovo, dove a volte è gia' presente
>qualcosa(p.e. Works), lo registrasse, ed utilizzasse poi
>lo sconto per comprare un' applicazione tipo access o Office???? è
>possibile??
>Che Fare??
>
>Grazie
>
>
>
>
penso sia meglio tu guardi sul sito della mmicrosoft se ci sono
offerte particolari...
se il tuo amico dei rivendere il programma a terzi gli necessita
l'office developer per poter distribuire il runtime...
Saluti.
Emanuele.


title: Cancellare record da codice

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

text:
Dovrebbe essere una cosa semplice, ho 2 campi di testo e un pulsante di
conferma con il seguente codice collegato al click:
Private Sub Conferma_Click()
DoCmd.RunSQL "DELETE * FROM Inventario WHERE Articolo = 'Me!Prod' AND Colore
= 'Me!Colore'"
Me!Prod = Null
Me!Colore = Null
End Sub
Nn mi da errori ma nn mi cancella nulla...mi sono perso forse qualcosa?


title: Cancellare record da codice

author: ALESSANDRO Baraldi

text:
"..::Maffi Maurizio::.." <
mup...@libero.it
> ha scritto nel messaggio
news:R6jMb.94911$_P.35...@news4.tin.it...

Semplice hai errato la sintassi, se devi passare il contenuto del Controllo
alla QRY
non lo puoi trattare come se fosse un Testo ed inserirlo nella stringa....!
Riprova cosě:
DoCmd.RunSQL "DELETE * FROM Inventario WHERE Articolo = '" & Me!Prod & "'
AND Colore
 = '" & Me!Colore & "'"
Ciao.
@Alex.


title: [OT] Account di posta

author: Enzo Laperchia

text:
Un saluto a tutta la ML,
so di essere clamorosamente OT ma mi rivolgo a voi perche', pur non
partecipando attivamente vi lurko costantemente e quindi vi considero
"amici".
Ma veniamo alla domanda: conoscete per caso qualche sito che offra 2 o 3
account di posta gratuiti?
grazie mille
Enzo


title: [OT] Account di posta

author: SimonenomiS

text:
"Enzo Laperchia" <
elape...@urgroup.it
> wrote in news:agcdan$14tjq$1
@
news02.it.net
:

  ?
  Siti quali
www.libero.it
,
www.tiscali.it
,
www.supereva.it
,
www.hotmail.com
,
www.eudoramail.com
,
www.yahoo.it
,
tin.it
,
mail.virgilio.it/mail/home/
, ... ti offrono quanti account di posta
desideri.
  Ciao.


title: [OT] Account di posta

text:
"SimonenomiS" <Si...@nomiS.it> ha scritto nel messaggio
news:Xns92465FC94D2CD...@193.70.192.192...

Ciao,
innanzitutto grazie per le dritte ad alcuni indirizzi che non sapevo
fornissero anche il servizio di posta gratuito, solo che, ovviamente, non mi
sono spiegato bene: vorrei avere, a fronte di un' unica registrazione, la
possibilita' di avere 2 o 3 indirizzi di posta. Nel caso cio' non fosse
possibile rifaro' tutta la trafila per ogni account di posta.
grazie ancora
ciao
Enzo


title: [OT] Account di posta

author: VT @ work

text:
>innanzitutto grazie per le dritte ad alcuni indirizzi che non sapevo
>fornissero anche il servizio di posta gratuito, solo che, ovviamente, non mi
>sono spiegato bene: vorrei avere, a fronte di un' unica registrazione, la
>possibilita' di avere 2 o 3 indirizzi di posta. Nel caso cio' non fosse
>possibile rifaro' tutta la trafila per ogni account di posta.
>
>grazie ancora
>
>ciao
>Enzo
www.tiscali.it
Devi sottoscrivere un abbonamento Tiscali 10.0 che consente di
definire, con una sola registrazione, fino a 6 (sei) utenti oltre
quello principale, ognuno con la propria casella e-mail.
Inoltre fornisce, sempre gratuitamente, una serie di servizi secondo
me molto interessanti (web phone e web fax per esempio).
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: [OT] Account di posta

text:
>
www.tiscali.it
> Devi sottoscrivere un abbonamento Tiscali 10.0 che consente di
[cut]
grazie mille e' proprio quello che mi serve
> Vincenzo Turturro
ciao
Enzo



title: create table

author: jekonet

text:
Ciao ragazzi,
potreste spiegarmi in breve quali sono i passi da seguire per creare una
tabella in un db tramite il comando create table?
non mi interessa la sintassi sql, il problema è che non so proprio dove
mettere le mani in access!
ho provato nella finestra "query di definizione dei dati" ma non mi ha
sortito alcun effetto.
grazie.


title: create table

author: omnitow

text:
"jekonet" <
fbw...@tin.it
> ha scritto nel messaggio
news:35%l9.192187$pX1.6...@news2.tin.it...
> Ciao ragazzi,
> potreste spiegarmi in breve quali sono i passi da seguire per creare una
> tabella in un db tramite il comando create table?
> non mi interessa la sintassi sql, il problema č che non so proprio dove
> mettere le mani in access!
> ho provato nella finestra "query di definizione dei dati" ma non mi ha
> sortito alcun effetto.
> grazie.
>
Che io sappia CREATE TABLE funziona solo in runtime cioč:
'*disabiliti messaggi d'aaviso*
Docmd.SetWarnings False
'*Crei una tabella con Chiave Primaria CampoID (nome indice ChiavePrimaria)
e un campo Testo di lunghezza 50*
Docmd.RunSQL "CREATE TABLE NomeTab (CampoID LONG, Campo1 TEXT (50),
CONSTRAINT CampoID ChiavePrimaria PRIMARY KEY (CampoID))"
Docmd.SetWarnings True
Ciao omnitow


title: create table

text:
> "jekonet" news:35%l9.192187$pX1.6...@news2.tin.it...:

    Ne trovi un esempio fresco fresco nel 3d di ieri:
        "aggiungere una riga da codice ad una Casella di riepilogo"
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Problemi di principianti!

author: Principiante

text:
Buongiorno NG.
Utilizando i Bookmarks di Word mi compilo un modello
con i dati visualizati in maschera.
Funziona regolarmente ma ho un problema,
il nome per la firma del documento lo dovrei prelevare
non dalla maschera ma da una tebella diversa.
Come indico il percorso?
Tabella   "FirmaDoc"
Campo   "CapoRipartizione"
ecco il codice che uso
   Doc.Bookmarks("CapoRipartizione").Select
   Wrd.Selection.TypeText Me.CapoRipartizione
Mi aiutate a completare la stringa?
Grazie di cuore!


title: Problemi di principianti!

author: Geppo

text:
Ciao Principiante wrote:
> Buongiorno NG.
>
> Utilizando i Bookmarks di Word mi compilo un modello
> con i dati visualizati in maschera.
> Funziona regolarmente ma ho un problema,
> il nome per la firma del documento lo dovrei prelevare
> non dalla maschera ma da una tebella diversa.
> Come indico il percorso?
>
> Tabella   "FirmaDoc"
> Campo   "CapoRipartizione"
>
Prova cosi:
> ecco il codice che uso
>   Doc.Bookmarks("CapoRipartizione").Select
   Wrd.Selection.TypeText dlookup("CapoRipartizione", "FirmaDoc")
>
> Mi aiutate a completare la stringa?
>
> Grazie di cuore!
--
Ciao
Geppo


title: Problemi di principianti!

author: Cinzia

text:
"Principiante" <
frcav...@yahoo.it
> ha scritto nel messaggio
news:d782ee88-9e73-4836...@m3g2000hsc.googlegroups.com...

Ciao principiante,
la prima regola di questo NG č:
utilizza un oggetto significativo quando fai domande..., quindi fai il
bravo non farmi contravvenire alle regole e  riposta la domanda con un
oggetto adeguato!
Per conoscere le altre regole
www.sitocomune.com
 click su ICAA
Grazie.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.live.spaces.com
----------------------------------------


title: Problemi di principianti!

text:
On 28 Mag, 13:37, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> "Principiante" <
frcavall...@yahoo.it
> ha scritto nel messaggionews:d782ee88-9e73-4836...@m3g2000hsc.googlegroups.com...
>
>
>
>
>
> > Buongiorno NG.
>
> > Utilizando i Bookmarks di Word mi compilo un modello
> > con i dati visualizati in maschera.
> > Funziona regolarmente ma ho un problema,
> > il nome per la firma del documento lo dovrei prelevare
> > non dalla maschera ma da una tebella diversa.
> > Come indico il percorso?
>
> > Tabella   "FirmaDoc"
> > Campo   "CapoRipartizione"
>
> > ecco il codice che uso
> >   Doc.Bookmarks("CapoRipartizione").Select
> >   Wrd.Selection.TypeText Me.CapoRipartizione
>
> > Mi aiutate a completare la stringa?
>
> Ciao principiante,
> la prima regola di questo NG è:
> utilizza un oggetto significativo quando fai domande..., quindi fai il
> bravo non farmi contravvenire alle regole e  riposta la domanda con un
> oggetto adeguato!
> Per conoscere le altre regolewww.sitocomune.comclick su ICAA
> Grazie.
>
> --
> Cinzia [Office Access MVP]
> _______________________
>          www.riolab.orghttp://
accessdaziacin.live.spaces.com
> ----------------------------------------- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Grazie Geppo e grazie Cinzia per la tirata d'orecchie.
Leggerò e mi adeguerò!
Saluti, By Princ.


title: Access su android possibile?

text: Access su android possibile?


title: Access su android possibile?

author: Simone Calligaris

text:
> Access su android possibile?

Se esiste un buon emulatore windows per Android, in tal caso � possibile.

http://aldexnapoli.jimdo.com/emulare-windows-xp-su-un-dispositivo-android/

Chiss�, magari funziona...


title: Order by nn funziona con query origine dati

author: Massimo

text:
Ciao a tutti,
si vede che è un periodo di nuove scoperte....questa mi colpisce
particolarmente.
In una maschera con origne dati una query di selezione non funziona la
proprietà Order By
Ho provato infatti a creare un pulsante e scrivere sull'evento
OnClick:
me.order by = "CAP"
me.refresh
Non mi da errore ma non ordina assolutamete i record, poi però se vai
a vedere nelle proprietà della maschera compare "CAP" come criterio di
ordine...
Esiste una soluzione "veloce" a questa cosa....???
Grazie x l'aiuto
Massimo


author: Karl Donaubauer

text:
Massimo wrote:
> si vede che � un periodo di nuove scoperte....questa mi colpisce
> particolarmente.
> In una maschera con origne dati una query di selezione non funziona la
> propriet� Order By
> Ho provato infatti a creare un pulsante e scrivere sull'evento
> OnClick:
> me.order by = "CAP"
> me.refresh
>
> Non mi da errore ma non ordina assolutamete i record, poi per� se vai
> a vedere nelle propriet� della maschera compare "CAP" come criterio di
> ordine...
> Esiste una soluzione "veloce" a questa cosa....???
Abbastanza veloce:
Me.OrderBy = "CAP"
Me.OrderByOn = True
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 12 Mag, 14:38, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Massimo wrote:
> > si vede che è un periodo di nuove scoperte....questa mi colpisce
> > particolarmente.
> > In una maschera con origne dati una query di selezione non funziona la
> > proprietà Order By
> > Ho provato infatti a creare un pulsante e scrivere sull'evento
> > OnClick:
> > me.order by = "CAP"
> > me.refresh
>
> > Non mi da errore ma non ordina assolutamete i record, poi però se vai
> > a vedere nelle proprietà della maschera compare "CAP" come criterio di
> > ordine...
> > Esiste una soluzione "veloce" a questa cosa....???
>
> Abbastanza veloce:
>
> Me.OrderBy = "CAP"
> Me.OrderByOn = True
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grazie Karl!
Ma scusa xchè in questo caso order by deve essere seguita da
OrderByOn....
Francamente in alcuni casi proprio nn riesco a capire il motivo di
certe soluzioni....
Ciao


text:
Massimo wrote:
> Karl Donaubauer wrote:
>> ...
>> Me.OrderBy = "CAP"
>> Me.OrderByOn = True
>
> Ma scusa xch� in questo caso order by deve essere seguita da
> OrderByOn....
Non solo in questo caso ma sempre. Altrimenti l'ordinamento
non viene attivato. Vedi anche <F1> per "OrderBy".
Per il perch� devi chiedere la MS. � impostato cos� e basta.
> Francamente in alcuni casi proprio nn riesco a capire il motivo
> di certe soluzioni....
Beh, � come con molte cose nel mondo, tanti misteri per l'uomo.
--
;-)



author: Roberto da Parma

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:76tqmcF...@mid.individual.net...

Mah io credo non sia una cosa malvagia perch� se uno deve fare una
composizione di ordinamento (pi� campi) in questo modo pu� passare prima
tutti i paramentri e poi alla fine ordinare...
Ciao
--
Roberto da Parma


text:
Roberto da Parma wrote:
> "Karl Donaubauer ha scritto:
>> Massimo wrote:
>>>> ...
>>>> Me.OrderBy = "CAP"
>>>> Me.OrderByOn = True
>>>
>>> Ma scusa xch� in questo caso order by deve essere seguita da
>>> OrderByOn....
>>
>> Non solo in questo caso ma sempre. Altrimenti l'ordinamento
>> non viene attivato. Vedi anche <F1> per "OrderBy".
>>
>> Per il perch� devi chiedere la MS. � impostato cos� e basta.
>>
>>> Francamente in alcuni casi proprio nn riesco a capire il motivo
>>> di certe soluzioni....
>>
>> Beh, � come con molte cose nel mondo, tanti misteri per l'uomo.
>>
> Mah io credo non sia una cosa malvagia perch� se uno deve fare una
> composizione di ordinamento (pi� campi) in questo modo pu� passare
> prima tutti i paramentri e poi alla fine ordinare...
Beh, di solito (=per tante altre propriet�) si usa variabili per
questo scopo:
Dim strOrderBy As String
strOrderBy = "pippi, pluto, CAP"
Me.OrderBy = strOrderBy
--
cu



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:770an0F...@mid.individual.net...

eh si...ma non rimarrebbero in memoria all'uscita della routine...
invece in questo modo puoi attivare e disattivare tenendo in memoria il
filtro anche se io poi questa procedura non la uso spesso.
io nel caso salvo il filtro in tabella.



text:
Roberto da Parma wrote:
> "Karl Donaubauer ha scritto:
>>>> Massimo wrote:
>>>>>> ...
>>>>>> Me.OrderBy = "CAP"
>>>>>> Me.OrderByOn = True
>>>>>
>>>>> Ma scusa xch� in questo caso order by deve essere seguita da
>>>>> OrderByOn....
>>>>
>>>> Non solo in questo caso ma sempre. Altrimenti l'ordinamento
>>>> non viene attivato. Vedi anche <F1> per "OrderBy".
>>>>
>>>> Per il perch� devi chiedere la MS. � impostato cos� e basta.
>>>>
>>>>> Francamente in alcuni casi proprio nn riesco a capire il motivo
>>>>> di certe soluzioni....
>>>>
>>>> Beh, � come con molte cose nel mondo, tanti misteri per l'uomo.
>>>>
>>> Mah io credo non sia una cosa malvagia perch� se uno deve fare una
>>> composizione di ordinamento (pi� campi) in questo modo pu� passare
>>> prima tutti i paramentri e poi alla fine ordinare...
>>
>> Beh, di solito (=per tante altre propriet�) si usa variabili per
>> questo scopo:
>>
>> Dim strOrderBy As String
>>
>> strOrderBy = "pippi, pluto, CAP"
>>
>> Me.OrderBy = strOrderBy
>
> eh si...ma non rimarrebbero in memoria all'uscita della routine...
> invece in questo modo puoi attivare e disattivare tenendo in memoria
> il filtro anche se io poi questa procedura non la uso spesso.
> io nel caso salvo il filtro in tabella.
Secondo me questo restare "in memoria" di un filtro o come qui
di un ordinamento � un tormento imprevedibile (= vecchio bug).
Inteso il fatto che qualche volta a runtime viene salvata nella
propriet� della maschera) come descrivo anche nel
www.donkarl.com/it?FAQ4.7
.
--
HTH



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:770ciaF...@mid.individual.net...

Un bug deve esserci sempre... :-)))



title: record e scelte campi

author: Noce

text:
Ciao!
Problema:
Ho una maschera in cui è  inserito una sottomaschera in cui vorrei svolgera
la seguente operazione:
Maschera: contiene campo "Fornitore" in cui ho 3 record (pluto, pippo,
paperino)
Sottomaschera: contiene 5 campi: "Prodotto" (marmelalta); "Prezzo" (campo
vuoto); "prezzo pluto"; "prezzo pippo"; "prezzo paperino".
Come faccio a dire alla maschera, Se nel campo "fornitore" si è scelto il
record (Pluto) immetti nel campo prezzo(campo vuoto) della sottomaschera il
record del campo "prezzo pluto"; se invece si è scelto nel campo fornitore
il record (pippo) immetti nel campo "prezzo" (campo vuoto) della
sottomaschera il record del campo "prezzo pippo"
Come faccio?Che espressione devo usare?
Ciao e Grazie


title: record e scelte campi

author: Maurizio Borrelli

text:
> "Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
> news:_pQV9.14082$ZE.3...@twister2.libero.it...
[...]
> Problema:
> Ho una maschera in cui è  inserito una sottomaschera in cui vorrei
> svolgera la seguente operazione:
> Maschera: contiene campo "Fornitore" in cui ho 3 record (pluto, pippo,
> paperino)
> Sottomaschera: contiene 5 campi: "Prodotto" (marmelalta); "Prezzo" (campo
> vuoto); "prezzo pluto"; "prezzo pippo"; "prezzo paperino".
    Bruttina come struttura di db relazionale... ammettilo. E' troppo tardi
per rimediare?
> Come faccio a dire alla maschera, Se nel campo "fornitore" si è scelto il
> record (Pluto) immetti nel campo prezzo(campo vuoto) della sottomaschera
> il
> record del campo "prezzo pluto"; se invece si è scelto nel campo fornitore
> il record (pippo) immetti nel campo "prezzo" (campo vuoto) della
> sottomaschera il record del campo "prezzo pippo"
> Come faccio?Che espressione devo usare?
    Con qualche "If" concatenata dovresti combinare. Se potessi ridurre
"pippo", "pluto" & C. a numeri tipo 1, 2, 3, ... potresti sfruttare la
funzione "choose"...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: record e scelte campi

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:b08vua$mfr48$1...@ID-52090.news.dfncis.de...
>     Bruttina come struttura di db relazionale... ammettilo. E' troppo
tardi
> per rimediare?
No si può sempre rimediare!;)
>     Con qualche "If" concatenata dovresti combinare. Se potessi ridurre
> "pippo", "pluto" & C. a numeri tipo 1, 2, 3, ... potresti sfruttare la
> funzione "choose"...
Ammettiamo che riesca a ridurre i nomi in numeri, potresti spiegarmi come
sfruttare la funzione "choose"
Ciao e Grazie


title: record e scelte campi

text:
> "Noce" <xxx...@xxxxx.xx> ha scritto nel messaggio
> news:sWUW9.25683$ZE.7...@twister2.libero.it...
> > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto
> nel messaggio news:b08vua$mfr48$1...@ID-52090.news.dfncis.de...
> >     Bruttina come struttura di db relazionale... ammettilo. E' troppo
> > tardi per rimediare?
> No si può sempre rimediare!;)
    Diciamo che la struttura di un db (talvolta) e' l'eccezione che conferma
la regola?...
> >     Con qualche "If" concatenata dovresti combinare. Se potessi ridurre
> > "pippo", "pluto" & C. a numeri tipo 1, 2, 3, ... potresti sfruttare la
> > funzione "choose"...
> Ammettiamo che riesca a ridurre i nomi in numeri, potresti spiegarmi come
> sfruttare la funzione "choose"
    Curiosa questa domanda... Immagino tu abbia gia' letto la guida al
riguardo... quindi come minimo dovresti chiedere spiegazioni riferendoti a
questa, altrimenti io che posso dirti se non quello che c'e' scritto nella
guida?... (Traduco: SE hai letto la guida ALLORA dicci cosa non ti e' chiaro
ALTRIMENTI leggi la guida. )



title: Clonare i dati tra due tabelle.

text:
Ciao,
Ho una tabella "Tbl1" con due campi "Data" e "Numero" ed un'altra
tabella "Tbl2" con 45 campi "A1" : "A45".
Per comodità la "Tbl2" la riduco a 4 campi "A1 : A4".
Tramite maschera e sottomaschera visualizzo la "Tbl1" in modo da avere
per ogni data in maschera principale tanti record di "Numero"in
sottomaschera appartenenti alla stessa data.
Data
01/01/2008
 Numero
    2
    3
    4
 Data
02/01/2008
 Numero
    1
    3
 Data
03/01/2008
 Numero
    3
    4
ecc...
Quello che dovrei fare (lo faccio manualmente perchè non ho trovato
altra soluzione) è prendere i numeri del campo "Numero" ed inserirli
nella "Tbl2" in corrispondenza del campo A & stesso numero; in poche
parole, tutti i numeri (records) appartenenti alla prima data
visualizzata (primo record) vanno a finire nel primo record della
"Tbl2" e così via:
A1  A2  A3  A4
       2    3     4
 1          3
             3     4
Spero di essere riuscito a farmi capire.
Grazie a chi vorrà rispondermi.
Ciao Vladimiro.


title: Clonare i dati tra due tabelle.

text:

ps
Se è complicato mi va bene pure non specificare i campi della "Tbl2",
l'importante è che tutti i numeri del primo record appartenenti alla
"Tbl1" vanno a finire al primo record della "Tbl2".
A1  A2  A3  A4
 2    3    4
 1    3
 3    4
Forse è meglio specificare (anche se mi pare ovvio) che i numeri vanno
da 1 a 45 e siccome sono in modalità raggruppamento, nello stesso
record non si ripetono mai.
Di nuovo Vladimiro.


title: Clonare i dati tra due tabelle.

author: Alessandro Cara

text:
vlad...@alice.it
 ha scritto:
> Ciao,
> Ho una tabella "Tbl1" con due campi "Data" e "Numero" ed un'altra
> tabella "Tbl2" con 45 campi "A1" : "A45".
> Per comodità la "Tbl2" la riduco a 4 campi "A1 : A4".
> Tramite maschera e sottomaschera visualizzo la "Tbl1" in modo da avere
> per ogni data in maschera principale tanti record di "Numero"in
> sottomaschera appartenenti alla stessa data.
[cut]
> Quello che dovrei fare (lo faccio manualmente perchè non ho trovato
> altra soluzione) è prendere i numeri del campo "Numero" ed inserirli
> nella "Tbl2" in corrispondenza del campo A & stesso numero; in poche
> parole, tutti i numeri (records) appartenenti alla prima data
> visualizzata (primo record) vanno a finire nel primo record della
> "Tbl2" e così via:
>
> A1  A2  A3  A4
>        2    3     4
>  1          3
>              3     4
>
> Spero di essere riuscito a farmi capire.
> Grazie a chi vorrà rispondermi.
> Ciao Vladimiro.
>
Dim myRs as variant, rsTbl2 as variant, wkData as variant
Set myRs = sottomaschera.recordsetclone
set rsTbl2 = currentdb.openrecordset("Tbl2")
myrs.movefirst
do until myrs.eof
    wkData = myrs!data
    rstbl2.addnew
    do until myrs.eof or wkdata <> myrs!data
         tstbl2("A" & myRs!Numero) = myrs!Numero
	myrs.movenext
	if myrs.eof then exit do
    loop
    rstbl2.update
loop
that's all
Non abituarti, in genere non mi metto a scrivere codice "risolutivo"
--
ac


title: Clonare i dati tra due tabelle.

text:
Alessandro Cara ha scritto:
[cut]
> Dim myRs as variant, rsTbl2 as variant, wkData as variant
> Set myRs = sottomaschera.recordsetclone
> set rsTbl2 = currentdb.openrecordset("Tbl2")
> myrs.movefirst
> do until myrs.eof
>    wkData = myrs!data
>    rstbl2.addnew
>    do until myrs.eof or wkdata <> myrs!data
>         tstbl2("A" & myRs!Numero) = myrs!Numero
>     myrs.movenext
>     if myrs.eof then exit do
>    loop
      rstbl2!data = wkdata            <-------
>    rstbl2.update
> loop
--
ac


title: Clonare i dati tra due tabelle.

text:

Ma va, non ci credo nella tua ingenerosità :-)
Siccome non ho il tempo di provare, ci risentiamo eventualmente
stasera.
Mille grazie.
sei grande .... e non ti ci abituare :-[)
Ciao Vladimiro.


title: Clonare i dati tra due tabelle.

text:

> Ciao Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Alessandro, funziona tutto alla grande.
rstbl2!data = wkdata  non serve in quanto la Tbl2 non ha il campo Data
Qui non ho capito:
Set myRs = sottomaschera.recordsetclone
e al posto della sottomaschera ho usato una query.
Non so proprio come ringraziarti.
Appena ho un pò di tempo voglio studiarmi il codice ( ho notato, visto
qualche errore ripetuto, che lo hai scritto di getto e questo sta a
dimostrare che non mi ero sbagliato nel considerarti uno molto esperto
in materia).
:-)
Vladimiro.


title: Clonare i dati tra due tabelle.

text:

Ciao Alessandro, sarà che sono proprio incompetente, ma non riesco a
fare una cosa in apparenza semplice.
Questo amico a cui sto facendo il programma, mi ha chiesto di poter
analizzare 90 numeri al posto dei 45.
Siccome non posso inserire 90 campi in quanto nel report 90 campi
ridotti ai minimi termini non visualizzerebbero i dati al loro interno
e constatato il fatto che i numeri da prelevare per ogni singola data
sarebbero al massimo una ventina, pensavo di implementare la Tbl2 non
per definizone campo: cioè al posto di avere il n.1 in A1, il n.2 in
A2, il n.3 in A3 ecc... avere, a prescindere dal numero, l'occupazione
dei primi campi.
Ad es:
A1  A2  A3  A4
 2    3    4
 1    3
 3    4
Come posso fare?
Ciao Vladimiro.


title: Clonare i dati tra due tabelle.

text:
vlad...@alice.it
 ha scritto:
Vladimiro fai un altro post.
Il tuo amico e' un giocatore accanito.
Se poi gli fai vincere qualche milione di "euri" fatti dare la percentuale.
--
ac


title: Clonare i dati tra due tabelle.

text:
On 13 Dic, 15:33, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
>
vladil...@alice.it
 ha scritto:

Bingo!!!!!!!!
Più che un giocatore, è convinto nello studio delle probabilità.
Rimango sempre dell'idea che seppur una moneta buttata per aria n
volte alla fine avrà lo stesso numero di testa e croce, indovinare il
momento in cui esce testa o croce, come probabilità avrà sempre il
50%.
Lui è convinto di no.
Vladimiro.


title: conversione in access 2000

author: Artigliomg

text:
Come mai convertendo un dbs da access 97 a access 2000 non mi dà più la
possibilità di scrivere
Dim dbs as Database o
Dim wsp as Workspace
in che cosa lo hanno modificato?
Grazie Giovanni


title: conversione in access 2000

text:
"Artigliomg" <
artig...@libero.it
> ha scritto nel messaggio
news:OuqO9.50144$TC5.1...@twister1.libero.it...

In nulla, solo che l'Oggetto Database fa parte della Collezione
libreria DAO che non è settata di Default in A2000.
Se vai nei riferimenti e selezioni DAO 3.6 vedrai che funziona tutto.
@Alex.


title: MSysModule2

author: All Eyez On me

text:
Ciao a tutti,
ho impostato la sicurezza a livello utente, ma quando provo ad aprire il db
mi dice che non ho l'autorizzazione ad usare il modulo in oggetto.
Il modulo non è mio, credo si nascosto, come posso risolvere il problema?
ciao, AEOM


title: MSysModule2

text:
All Eyez On me ha scritto:
> ho impostato la sicurezza a livello utente, ma quando provo ad aprire il db
> mi dice che non ho l'autorizzazione ad usare il modulo in oggetto.
>
> Il modulo non è mio, credo si nascosto, come posso risolvere il problema?
MDB o MDE?
Normalmente quest'errore viene con un MDE:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q170696
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: MSysModule2

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:a5j43a$7o39t$1...@ID-46617.news.dfncis.de...

Perfetto!!!
Grazie


title: problema su quary

author: Tommaso

text:
Ho un mdb con diverse tabelle
6 tabelle sono relazionate e aprendone una qualsiasi si vedono a
cascata le successive.
Faccio una quary con le stesse 6 tabelle conservando le relazioni
Apro la quary e vedo solo una parte dei records delle 6 tabelle,
mancano gruppi di record.
Ci sarà un difetto, ma dove? sapete dirmi qualcosa? eventualmente
posso inviare il file mdb


title: problema su quary

text:
>"Tommaso" <
studiost...@libero.it
> ha scritto nel messaggio
>news:680219e1-6970-4ac9-a624->906f50...@z9g2000yqi.googlegroups.com...

Ciao Tommaso,
probabilmente hai usato delle INNER JOIN nella query,  se vuoi vedere
tutti i record anche quelli che non hanno voci corrispondeenti in
qualcuna delle tabelle relazionate devi usare LEFT JOIN
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.spaces.live.com
----------------------------------------


title: problema su quary

text:
On 27 Feb, 20:24, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> >"Tommaso" <
studiostefana...@libero.it
> ha scritto nel messaggio
> >news:680219e1-6970-4ac9-a624->906f501ab__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z...@z9g2000yqi.googlegroups.com...
> >Ho un mdb con diverse tabelle
> >6 tabelle sono relazionate e aprendone una qualsiasi si vedono a
> >cascata le successive.
> >Faccio una quary con le stesse 6 tabelle conservando le relazioni
> >Apro la quary e vedo solo una parte dei records delle 6 tabelle,
> >mancano gruppi di record.
> >Ci sarà un difetto, ma dove? sapete dirmi qualcosa? eventualmente
> >posso inviare il file mdb
>
> Ciao Tommaso,
> probabilmente hai usato delle INNER JOIN nella query,  se vuoi vedere
> tutti i record anche quelli che non hanno voci corrispondeenti in
> qualcuna delle tabelle relazionate devi usare LEFT JOIN
>
Ciao Cinzia,
veramente si c'la INNER JOIN, ma vedi che la stringa SQL la defiisce
ACCESS io in effetti mi limito a costruire la struttura inserendo le
tabelle già relazionate.
Se sostituisco, come dici, la INNER JOIN con LEFT JOIN mi esce il
messaggio 'L aSelect include una parola riservata o un argomento
scritto in modo errato oppure la punteggiatura non è corretta.
ciao
Tommaso



title: problema su quary

text:
On 27 Feb, 20:24, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> >"Tommaso" <
studiostefana...@libero.it
> ha scritto nel messaggio
> >news:680219e1-6970-4ac9-a624->906f501ab__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z...@z9g2000yqi.googlegroups.com...
> >Ho un mdb con diverse tabelle
> >6 tabelle sono relazionate e aprendone una qualsiasi si vedono a
> >cascata le successive.
> >Faccio una quary con le stesse 6 tabelle conservando le relazioni
> >Apro la quary e vedo solo una parte dei records delle 6 tabelle,
> >mancano gruppi di record.
> >Ci sarà un difetto, ma dove? sapete dirmi qualcosa? eventualmente
> >posso inviare il file mdb
>
> Ciao Tommaso,
> probabilmente hai usato delle INNER JOIN nella query,  se vuoi vedere
> tutti i record anche quelli che non hanno voci corrispondeenti in
> qualcuna delle tabelle relazionate devi usare LEFT JOIN
>
> --
> Cinzia [Office Access MVP]
> _______________________
>          www.riolab.orghttp://
accessdaziacin.spaces.live.com
> ----------------------------------------
OK Cinzia, va bene, una piccola correzione e poi tutto OK
Grazie e saluti,
Tommaso


title: problema su quary

text:
 Ciao  Cinzia
Eseguendo creazione query delle tabelle relazionate ottengo:
SELECT *
FROM ((((Argomenti LEFT JOIN Capitoli ON Argomenti.ID_Argomento =
Capitoli.ID_Argomento) LEFT JOIN Articoli ON Capitoli.ID_Capitolo =
Articoli.ID_Capitolo) LEFT JOIN S_Articoli ON Articoli.ID_Articolo =
S_Articoli.ID_Articolo) LEFT JOIN S_S_Articoli ON
S_Articoli.ID_S_Articolo = S_S_Articoli.ID_S_Articolo) LEFT JOIN
S_S_S_Articoli ON S_S_Articoli.ID_S_S_Articolo =
S_S_S_Articoli.ID_S_S_Articolo;
Il LEFT l'ho messo io in sostituzione di INNER per l'errore di cui
sopra.
Ora vorrei tener conto di un'altra relazione tra le tabelle <Articoli>
già inclusa sopra e un'altra tabella <ArtLav> che io ho relazionato
separatamente con una query:
SELECT *
FROM ArtLav LEFT JOIN Articoli ON Articoli.ID_Articolo = val(left
(ArtLav.descrizione,4));
Non riesco ad unire in unica query le 2 query già viste
La creazione guidata mi da
SELECT *
FROM (((((Argomenti INNER JOIN Capitoli ON Argomenti.ID_Argomento =
Capitoli.ID_Argomento) INNER JOIN Articoli ON Capitoli.ID_Capitolo =
Articoli.ID_Capitolo) INNER JOIN ArtLav ON Articoli.ID_Articolo =
ArtLav.descrizione) INNER JOIN S_Articoli ON Articoli.ID_Articolo =
S_Articoli.ID_Articolo) INNER JOIN S_S_Articoli ON
S_Articoli.ID_S_Articolo = S_S_Articoli.ID_S_Articolo) INNER JOIN
S_S_S_Articoli ON S_S_Articoli.ID_S_S_Articolo =
S_S_S_Articoli.ID_S_S_Articolo
WHERE Articoli.ID_Articolo=val(left(ArtLav.descrizione,4));
ma all'apertura di dice
tipo non corrispondente nell'espressione
e se inserisco il LEFT mi da lo stesso messaggio
Puoi dirmi qualcosa?
Grazie


title: problema su quary

text:
"Tommaso" <
studiost...@libero.it
> ha scritto nel messaggio
news:ad504cf4-236c-4e5e...@l16g2000yqo.googlegroups.com...
Ciao  Cinzia







Puoi dirmi qualcosa?
Grazie
>>>>>>>>>>>>>RISPOSTA>>>>>>>>>>>>
Ciao Tommaso,
se ho ben capito, prova :
SELECT *
FROM (((((Argomenti INNER JOIN Capitoli ON Argomenti.ID_Argomento =
Capitoli.ID_Argomento) INNER JOIN Articoli ON Capitoli.ID_Capitolo =
Articoli.ID_Capitolo) INNER JOIN ArtLav ON Articoli.ID_Articolo =
val(left(ArtLav.descrizione,4))) INNER JOIN S_Articoli ON
Articoli.ID_Articolo =
S_Articoli.ID_Articolo) INNER JOIN S_S_Articoli ON
S_Articoli.ID_S_Articolo = S_S_Articoli.ID_S_Articolo) INNER JOIN
S_S_S_Articoli ON S_S_Articoli.ID_S_S_Articolo =
S_S_S_Articoli.ID_S_S_Articolo
WHERE Articoli.ID_Articolo=val(left(ArtLav.descrizione,4));
--



title: problema su quary

text:
> Ciao Tommaso,
> se ho ben capito, prova :
>
> SELECT *
> FROM (((((Argomenti INNER JOIN Capitoli ON Argomenti.ID_Argomento =
> Capitoli.ID_Argomento) INNER JOIN Articoli ON Capitoli.ID_Capitolo =
> Articoli.ID_Capitolo) INNER JOIN ArtLav ON Articoli.ID_Articolo =
> val(left(ArtLav.descrizione,4))) INNER JOIN S_Articoli ON
> Articoli.ID_Articolo =
> S_Articoli.ID_Articolo) INNER JOIN S_S_Articoli ON
> S_Articoli.ID_S_Articolo = S_S_Articoli.ID_S_Articolo) INNER JOIN
> S_S_S_Articoli ON S_S_Articoli.ID_S_S_Articolo =
> S_S_S_Articoli.ID_S_S_Articolo
> WHERE Articoli.ID_Articolo=val(left(ArtLav.descrizione,4));
Non mi visualizza nulla anche se non da errore.
Nel caso prima non sia stato chiaro ripeto:
Ho una query
SELECT *
FROM ((((Argomenti LEFT JOIN Capitoli ON Argomenti.[ID_Argomento] =
Capitoli.[ID_Argomento]) LEFT JOIN Articoli ON Capitoli.[ID_Capitolo]
= Articoli.[ID_Capitolo]) LEFT JOIN S_Articoli ON Articoli.
[ID_Articolo] = S_Articoli.[ID_Articolo]) LEFT JOIN S_S_Articoli ON
S_Articoli.[ID_S_Articolo] = S_S_Articoli.[ID_S_Articolo]) LEFT JOIN
S_S_S_Articoli ON S_S_Articoli.[ID_S_S_Articolo] = S_S_S_Articoli.
[ID_S_S_Articolo]
ORDER BY Argomenti.ID_Argomento, Capitoli.ID_Capitolo,
Articoli.ID_Articolo, S_Articoli.ID_S_Articolo,
S_S_Articoli.ID_S_S_Articolo, S_S_S_Articoli.ID_S_S_S_Articolo;
che va perfettamente bene.
Ho un'altra query:
SELECT Articoli.ID_Articolo, ArtLav.descrizione
FROM Articoli INNER JOIN ArtLav ON Articoli.ID_Articolo = val(left
(ArtLav.descrizione,4));
che va perfettamente bene
Unendo le que query in un'unica altra query dovrei avere i risultati
della prima filtrati dalla seconda
invece ho errore:
<Tipo non corrispondente nell'espressione >
La SQL è:
SELECT QueryGenerale.Argomenti_ID_Argomento,
QueryGenerale.Descrizione_Argomento,
QueryGenerale.Capitoli_ID_Capitolo,
QueryGenerale.Descrizione_Capitolo,
QueryGenerale.Articoli_ID_Articolo,
QueryGenerale.Descrizione_Articolo, QueryGenerale.Articoli_P_U,
QueryGenerale.S_Articoli_ID_S_Articolo,
QueryGenerale.Descrizione_S_Articolo, QueryGenerale.S_Articoli_P_U,
QueryGenerale.S_S_Articoli_ID_S_S_Articolo,
QueryGenerale.Descrizione_S_S_Articolo,
QueryGenerale.S_S_Articoli_P_U, QueryGenerale.ID_S_S_S_Articolo,
QueryGenerale.Descrizione_S_S_S_Articolo,
QueryGenerale.S_S_S_Articoli_P_U
FROM QueryGenerale LEFT JOIN QueryArtLav ON QueryGenerale.
[Articoli_ID_Articolo] = QueryArtLav.[descrizione];
Ciao,
Tommaso


title: problema su quary

text:
"Tommaso" <
studiost...@libero.it
> ha scritto nel messaggio
news:f81ab70e-5585-4469...@q9g2000yqc.googlegroups.com...



Ho una query

che va perfettamente bene.
Ho un'altra query:

che va perfettamente bene


La SQL è:

>>>>>>>>>>>RISPOSTA>>>>>>>>>>>>
Ciao Tommaso,
l'errore è abbastanza significativo,  infatti tu nella JOIN tra le due
query metti [Articoli_ID_Articolo] = QueryArtLav.[descrizione] ma
supponendo che Articoli_ID_Articolo sia un campo numerico, non puoi
paragonarlo a una descrizione che suppongo sia un campo di tipo
testo...
devi perciò usare lo stesso trucco che hai   usato nella query2 cioè
la clausola FROM della tua query finale diventerà:
FROM QueryGenerale LEFT JOIN QueryArtLav ON QueryGenerale.
[Articoli_ID_Articolo] = Val(Left(QueryArtLav.[descrizione];4))



title: problema su quary

text:
On 1 Mar, 10:52, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> "Tommaso" <
studiostefana...@libero.it
> ha scritto nel messaggionews:f81ab70e-5585-4469...@q9g2000yqc.googlegroups.com...

Ho una visualizazzione di dati, da con disordine e senza il filtro
della query2
Ciao
Tommaso


title: problema su quary

text:

OK. OK grazie.
Ora sto costruendo il report,
con la creazione guidata, ma i campi mi vengono tutti affiancati,
forse nella query dovrei indicare la colonna uguale per tutti gli
Indici, per tutte le Descrizioni e per tutti i P_U  ?
Grazie comunque e ciao
Tommaso


title: problema su quary

text:
"Tommaso" <
studiost...@libero.it
> ha scritto nel messaggio
news:86be0b4a-2a09-46cf...@q11g2000yqh.googlegroups.com...


>>>>>>>>>>>
Ciao Tommaso,
faccio fatica a seguirti, cosa vuol dire  che i campi ti vengono tutti
affiancati, dipenderà dal tipo di report che hai scelto, non dalla
query
Per fare in modo che vengano estratti solo i record filtrati dalla
seconda query camnbia il LEFT JOIN con INNER JOIN



title: problema su quary

text:
On 2 Mar, 09:21, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> "Tommaso" <
studiostefana...@libero.it
> ha scritto nel messaggionews:86be0b4a-2a09-46cf...@q11g2000yqh.googlegroups.com...

Nella vista della query e di conseguenza nel report di stampa (se
utilizzo il wizard)
tutti i campi risultano affiancati e non si riesce a metterli in
colonna (esempio la colonna dei prezzi de riportare valori sia quando
il prezzo si riferisce alla descriazione primaria e sia qua si
riferisce a una sub descrizione).
Io ho ovviato a questo costruendo il report manualmente.
> query
> Per fare in modo che vengano estratti solo i record filtrati dalla
> seconda query camnbia il LEFT JOIN con INNER JOIN
>
A questo inconveniente ho ovviato inserendo WHERE e ORDER BY.
Ora tutto va quasi bene.
Mi è comparso un piccolo difetto ma per ora va bene.
Ho difficoltà a strutturare bene il report perchè finora ho usato poco
DB e Report.
Se volessi farmi un grande favore di dare uno sguardo al mio DB e
magari un giudizio e qualche consiglio, potrei inviarti il file.
Ciao, Tommaso



title: recupero descrizioni da codici

author: nadia

text:
scusate la stupidità della domanda ma oggi è la giornata dei problemi che
non so risolvere!
Ho creato la maschera di inserimento dati Descrizione (associata ad una
tabella Descrizione) in cui ho una ListBox "servizi" a selezione multipla,
che prende i valori da una tabella Servizi (codice; descrizione) e scrive
nel campo Servizi della tabella Descrizione i codici relativi ai servizi
scelti  (scelgo pippo e pluto e nel campo mi scrive 1;3)
E fin qui, grazie ai molti esempi su NG e sito comune, tutto ok
Inserisco in tabella i codici e non le descrizioni per motivi di spazio però
quello che mi sfugge è:
quando da una maschera di sola lettura vado a visulizzare i dati inseriti in
tabella Descrizione come faccio a vedere le descrizioni anzichè i codici?
ovvero se
1 = pippo
2 = paperino
3 = pluto
...
e nel campo descrizione con la scelta da listbox ho memorizzato 1; 3
che tipo di codice devo usare per vedere nella maschera di lettura non  "1;
3" ma "pippo; pluto"?
Ho guardato l'esempio del sito comune per "filtrare report su selezione
multipla", ma non riesco a capire se e come posso sfruttarlo nel mio caso in
cui ho tre utenti che, in tempi e luoghi diversi, uno inserisce i dati, uno
legge e modifica, un terzo legge e basta e chi inserisce e chi legge sono
due utenti che necessariamente devono vedere la scritta Pippo e non il suo
codice
Scusate ancora per l'ignoranza e grazie per la pazienza
Nadia


title: recupero descrizioni da codici

author: MA

text:

Collega la tabella a quella dove ci sono anche le descrizioni. Le leghi tra
loro e invece del controllo che visualizza 3 mostri descrizione
Ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: recupero descrizioni da codici

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...
> Il 20 Giu 2003, 13:23, "nadia" <
n.mene...@yard.it
> ha scritto:
[cut]

sì ma nella tabella principale non scrivo semplicemente "3"
bensì "1; 3; 4" per cui se con "collega le tabelle" intendi collego il campo
codice della tabella con le descrizioni al campo "descr" (quello in cui
scrivo le scelte delle ListBox) della tabella principale... se lo faccio
nelle relazioni non mi consente di applicare l'integrità referenziale
(ovviamente perchè da una parte ho un campo di larghezza due e dall'altra
uno di larghezza 10) se provo a collegrle all'interno di una query, invece,
non mi estrae nulla perchè da una parte c'è scritto o 1 o 2 o 3 mentre
dall'altra c'è scritto "1; 3"    ....continua a mancarmi un qualche
passaggio fondamentale!
grazie ancora
Nadia



title: recupero descrizioni da codici

text:

Allora anche se non lo visualizzi ci metti un controllo riferito alla
tabella dei selezionati in cui inserisci anche la descrizione.
se la acsella combianata è fomata da
id descrizione
1 pippo
tu nel controllo che visualizzi ci metti
me.tuocontrollo.column(0)
e in quello che non visualizzi ma c'è
me.controllonasconsto.column(1)
Alla fine mostri solo me.controllonascosto
MAssimiliano



title: help me inserimento foto

author: Giuly Ottantuno

text:
ho costruito un database con 2 campi oggetto ole ma quando scrivo il
percorso dell'immagine nella maschera non mi viene visualizzata e viene
scritto una piccola digitazione binaria... come faccio a inserire delle
foto ??????? help me
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Insert o Update dati tabella ...

author: Angelo

text:
Ho due tabelle: tab1 e tab2.
Dovrei aggiornare, da codice, la tab2 attingendo dalla tab1.
A seconda dell'esistenza o meno dei records nella tab2, devo fare un insert
oppure un update, confrontando il campo [id] esistente nella tab1.
Cioè :
se [id] esiste già nella tab2 faccio un update, altrimenti faccio un insert.
Riporto qualche riga di codice (da rivedere) che, sull'evento click di un
pulsante,
mi fa degli insert, ma non non considera la chiave [xKey] e non mi fa
nemmeno l'update:
Dim dbs As Database
Dim rst As Recordset
Dim rst2 As Recordset
Dim xKey As String
Dim sql As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from tab1")
Set rst2 = dbs.OpenRecordset("select * from tab2")
With rst
        .MoveFirst
xKey = rst!id
   While Not .EOF
      If Not rst.BOF Then
        sql = "INSERT INTO Tab2(id2)values ('" & rst!id & "')"
        DoCmd.RunSQL sql
        Else
        sql = "UPDATE tab2 SET campoTab2 = '" & rst!campoTab1 & "' WHERE id2
= '" & xKey & "'"
        DoCmd.RunSQL sql
      End If
       .MoveNext
    Wend
End With
rst2.Close
rst.Close
dbs.Close
Set rst = Nothing
Set rst2 = Nothing
Set dbs = Nothing
.... grazie per l'aiuto
Angelo


title: Insert o Update dati tabella ...

author: VT @ Work

text:
On Tue, 12 Dec 2006 21:00:43 +0100, "Angelo" <
logi...@email.it
>
wrote:
 (...)
>Ho due tabelle: tab1 e tab2.
>Dovrei aggiornare, da codice, la tab2 attingendo dalla tab1.
>A seconda dell'esistenza o meno dei records nella tab2, devo fare un insert
>oppure un update, confrontando il campo [id] esistente nella tab1.
>Cioè :
>se [id] esiste già nella tab2 faccio un update, altrimenti faccio un insert.
>Riporto qualche riga di codice (da rivedere) che, sull'evento click di un
>pulsante,
>mi fa degli insert, ma non non considera la chiave [xKey] e non mi fa
>nemmeno l'update:
>
Prova così:
(ovviamente si suppone che a fronte di un record in tab1 ne possa
esistere al più uno in tab2 tale che tab2!id2=tab1!id
Dim dbs As Database
Dim rst As Recordset
Dim rst2 As Recordset
Dim sql As String
Set dbs = CurrentDb
set rst = dbs.OpenRecordset("tab1")
Set rst2 = dbs.OpenRecordset("tab2")
With rst
        .MoveFirst
   While Not .EOF
        rst2.findfirst "id2=" & !id
      If rst2.nomatch= true Then
        sql = "INSERT INTO Tab2(id2)values ('" & rst!id & "')"
        Else
        sql = "UPDATE tab2 SET campoTab2 = '" & rst!campoTab1 & "'
WHERE id2 = '" & !id & "'"
      End If
      DoCmd.RunSQL sql



title: Insert o Update dati tabella ...

author: Alessandro Baraldi

text:
Angelo ha scritto:

Non sò se ho capito, ma una cosa simile...?
UPDATE T2
SET CampoT2=(SELECT CampoT1 FORM T1 WHERE ID=
T2.ID
)
@Alex


title: Insert o Update dati tabella ...

author: arirang

text:

non so se ti possa essere d'aiuto.... ma un po' di tempo fa usavo una
funzione del genere che mi serviva adc aggiornare una tabella dai dati di
un'altra con un join tra le due tabelle....
dim dbs as database
dim rst1 as recordset
dim rst2 as recordest
dim mystring as string
set dbs = dbengine.workspace(0).Databases(0)
set rst1 = dbs.openrecordset("tabella1", dbopentable)
set rst2 = dbs.openrecordset("tabella2", dbopendynaset)
 ' la tabella1 è quella da aggiornare
rst1.movefirst
do while not rst1.eof
mystring ="[campocomune] = '" & rst1("campocomune") & "'"
rst2.findfirst mystring
    If not rst2.nomatch then
          rst1.edit
          rst1("campocomune") = rst2("campocomune")
          rst1.update
    end if
rst1.movenext
loop
rst1.close
rst2.close
set dbs =nothing
mi auguro di aver capito il problema....buon lavoro
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Insert o Update dati tabella ...

text:
Grazie a tutti ragazzi ... proverò le soluzioni
tutte interessanti ....
Ciao
Angelo


title: copiare record selezioanti da casella di riepilogo

text:
ciao a tutti

ho questo codice su click di un pulsante........

    If LstMiacasellaRiepilogo.ItemsSelected.Count = 0 Then
        MsgBox "Selezionare almeno un valore!!!", vbExclamation, "Attenzione!!!"
    Exit Sub

    End If

    For Each varItm In LstMiacasellaRiepilogoe.ItemsSelected

        If LstMiacasellaRiepilogo.Selected(varItm) = True Then
            strItems = strItems & LstMiacasellaRiepilogo.Column(1) & " " & _
            LstMiacasellaRiepilogo.Column(2) & " " & _
            LstMiacasellaRiepilogo.Column(4) & "," & Chr(13) & Chr(10)

        End If

    Next

Ora vorrei che la variabile "strItems" mi restituisca i record selezionati dalla casella di riepilogo;
ma in questo modo mi ripete sempre il primo record.

Come devo fare?

grazie


text:

Non mi sembra,il codice sembra corretto.
strItems dovrebbe contenere succesioni di tre valori separati da un
"vaiaacapo"
Perche' dici che ti ripete sempre il primo record?
Cosa ci fai con strItems una volta che la hai costruita?
>

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


text:
Salve,

Francodellavalle28 ha scritto:

>...

Manca la riga nella Column(). Prova così:

Dim ctl As Control
Set ctl = Me!LstMiacasellaRiepilogoe

For Each varItm In ctl.ItemsSelected

     strItems = strItems & _
         ctl.Column(1, varItm) & " " & _
         ctl.Column(2, varItm) & " " & _
         ctl.Column(4, varItm) & "," & vbCrLf

Next

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

Access Lobby:
http://www.AccessDevelopers.org


text:

ciao Alessandro

>Cosa ci fai con strItems una volta che la hai costruita?
vorrei inviare la lista dei record selezionati nella casella
di riepilogo "LstElencoCampidaChiudere", per email.

questo e' il codice che sto creando su click di un pulsante..........

_____________________________

Private Sub Testo16_Click()
On Error GoTo gestErrori

    Dim rsCheck As DAO.Recordset, RsData As DAO.Recordset
    Dim strSQL As String, strItems As String
    Dim varItm As Variant
    Dim strFld As String, strSubject As String, strMsg As String
    Dim strAttach As String, strCC, strBCC

    If LstElencoCampidaChiudere.ItemsSelected.Count = 0 Then
        MsgBox "Selezionare almeno un valore!!!", vbExclamation, "Attenzione!!!"
    Exit Sub

    End If

    For Each varItm In LstElencoCampidaChiudere.ItemsSelected

        If LstElencoCampidaChiudere.Selected(varItm) = True Then
            strItems = strItems & LstElencoCampidaChiudere.Column(1) & " " & _
            LstElencoCampidaChiudere.Column(2) & " " & _
            LstElencoCampidaChiudere.Column(4) & "," & Chr(13) & Chr(10)

        End If

    Next

    Set rsCheck = Me!SM_Email.Form.RecordsetClone
    rsCheck.FindFirst "Invio<>0"

    If Not rsCheck.NoMatch Then

        If Me!IDCliente1  <> 0 Then
            strSQL = "SELECT DISTINCT *, UnisciValoriClienti1(IDCliente1) AS Email" & _
            " FROM TbEmailClienti1" & _
            " Where IDCliente1 = " & Me!Clienti1
        Else
            strSQL = "SELECT DISTINCT *, UnisciValoriClienti(IdCliente) AS Email" & _
            " FROM TbEmailClienti Where IdCliente = " & Me!IdCliente

        End If

        Set RsData = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
        strFld = RsData.Fields("Email")

        If Me!IDCliente1 <> 0 Then

            strSubject = "Chiusure"
            strMsg = "Buon giorno." & Chr(13) & Chr(10) & _
                "bla bla bla:" & Chr(13) & Chr(10) & _
                strItems & Chr(13) & Chr(10) & _
                "Saluti." & Chr(13) & Chr(10) & "Franco"

            strAttach = ""
            strCC = ""
            strBCC = ""

        Else
            strSubject = "Conferme"
            strMsg = "Buon giorno" & Chr(13) & Chr(10) & _
                "bla bla bla:" & Chr(13) & Chr(10) & _
                strItems & Chr(13) & Chr(10) & _
                "Saluti" & Chr(13) & Chr(10) & "Franco"

            strAttach = ""
            strCC = ""
            strBCC = ""

        End If

        SendingMailFromTable RsData, strFld, strSubject, strMsg, strAttach, strCC, strBCC

noInvio: 'invio annullato
        RsData.Close: Set RsData = Nothing

    Else
        MsgBox "Scegli l'Email spuntando la check box!!!", vbExclamation, "Attenzione!!!"

    End If

    rsCheck.Close: Set rsCheck = Nothing

Esci:
    Exit Sub

gestErrori:
    Beep
    If Err.Number = 287 Then GoTo noInvio
    MsgBox Err.Number & " - " & Err.Description
    GoTo Esci


text:
Il 22/07/2015 16:07,
francodel...@gmail.com
 ha scritto:

P.S.
Ciao Franco.
Posso darti una tirata di "orecchi"? ;-)
Capisco che "scopiazzi" il codice (va bene, lo facciamo tutti) ma
cerchi, talvolta, di leggerlo e capire quello che fa?
Ho la vaga impressione che neanche ci provi, cosa che ritengo non
salutare per un motivo semplice, non sempre i fruitori del NG sono
disponibili o annoiati a tal punto da darti la "dritta" ;-).
Il codice che hai sottoposto in questo 3d e' "molto" lineare hai
"aspettato" 5ore per avere il mio intervento (neanche risolutivo).
Probabilmente i tuoi "tempi di consegna" sono molto laschi ;-)



text:
Il 22/07/2015 22:11, Karl Donaubauer ha scritto:
Come sempre hai ragione ;-)



text:
Alessandro Cara ha scritto:
> Come sempre hai ragione ;-)

Ah, posso chiederti un piccolo favore?
Vieni qui e dillo alla compagna.

--
:-)



text:

ciao Alessandro, hai ragione,
ma io non sono molto bravo vb, scusami e cmq grazie.


text:

ciao Karl
con il tuo codice
ora funziona...

devo inserire in fondo al codice.........
    Set ctl = Nothing

per azzerare la variabile?

grazie


text:
Il 22/07/2015 22:31, Karl Donaubauer ha scritto:
> Alessandro Cara ha scritto:
>> Come sempre hai ragione ;-)
>
> Ah, posso chiederti un piccolo favore?
> Vieni qui e dillo alla compagna.
>

Dove sei? A Wien?
Per gli amici di "penna" si puo' fare tutto!
:-D



text:
Salve,

Alessandro Cara ha scritto:
> Karl Donaubauer ha scritto:
>>> Come sempre hai ragione ;-)
>>...
>> Vieni qui e dillo alla compagna.
>
> Dove sei? A Wien?

Sì.

> Per gli amici di "penna" si puo' fare tutto!
> :-D

Fati sentire quando verrai.
Purtroppo ho bisogno di un testimone per questa faccenda.

Tuttavia mi ricordo che ti hai quasi fatto negare a Roma dieci anni fa. ;-)

--
Ciao



text:
Salve,

Francodellavalle28 ha scritto:
> ...
> devo inserire in fondo al codice.........
>      Set ctl = Nothing
>
> per azzerare la variabile?

Direi di no. Di solito la "garbage collection" di VBA funziona, cioè i
variabili vengono azzerati alla fine della procedura.

Lo faccio solo esplicitamente per variabili oggetto di DAO (Database,
Recordset ecc.) perché bloccano più della memoria limitata di Access/VBA
che puo dare problemi.

Inoltre nei versioni vecchi di Access c'erano dei bug in rispetto alla
liberazione di memoria per questi tipi di variabili che la MS non ha mai
documentato bene. Secondo un collega chi lavora per la ditta sono stati
curati da lungo. Però non è chiaro se vale per tutti e quando e a causa
della segretezza anche la fiducia della comunità è limitata. ;-)



text:
Il 23/07/2015 11:41, Karl Donaubauer ha scritto:
> Salve,
>
> Alessandro Cara ha scritto:
>> Karl Donaubauer ha scritto:
>>>> Come sempre hai ragione ;-)
>>> ...
>>> Vieni qui e dillo alla compagna.
>>
>> Dove sei? A Wien?
>
> Sì.
>
>> Per gli amici di "penna" si puo' fare tutto!
>> :-D
>
> Fati sentire quando verrai.
> Purtroppo ho bisogno di un testimone per questa faccenda.
>
> Tuttavia mi ricordo che ti hai quasi fatto negare a Roma dieci anni fa. ;-)
>

Accidenti, ora mi ricordo! Certamente piu' di dieci anni fa.
Se non ricordo male, pero', frequentavi "strane" compagnie.



text:

grazie Karl


text:

volevo fare un'ultima domanda.......
è possibile inserire una griglia
tipo excel?


text:
...
>
> Fati sentire quando verrai.
> Purtroppo ho bisogno di un testimone per questa faccenda.
>
> Tuttavia mi ricordo che ti hai quasi fatto negare a Roma dieci anni fa. ;-)
>
> --
> Ciao
> Karl

Non sai che fatica a farsi pagare la cena da A.C. abbiamo dovuto inventarcele tutte per convincerlo...

@Alex


text:
Il 23/07/2015 16:48, @Alex ha scritto:
> ...
>>
>> Fati sentire quando verrai.
>> Purtroppo ho bisogno di un testimone per questa faccenda.
>>
>> Tuttavia mi ricordo che ti hai quasi fatto negare a Roma dieci anni fa. ;-)
>>
>
> Non sai che fatica a farsi pagare la cena da A.C. abbiamo dovuto inventarcele tutte per convincerlo...

Mi puoi dire di tutto ma non questo.
Mi ritengo offeso :-(



text:
...
> > Non sai che fatica a farsi pagare la cena da A.C. abbiamo dovuto inventarcele tutte per convincerlo...
>
> Mi puoi dire di tutto ma non questo.
> Mi ritengo offeso :-(

Senti tu "offeso"... alla fine mica hai pagato la cena a tutti... posso chiedere a testimoni, Sergio che non si sente più(ma io ho il suo Telefono) e sono sicuro si ricorda bene...

C'è caldo inizio a perdere i colpi...

Ciao
@Alex


text:
Il 25/07/2015 10:36, @Alex ha scritto:
> ...
>>> Non sai che fatica a farsi pagare la cena da A.C. abbiamo dovuto inventarcele tutte per convincerlo...
>>
>> Mi puoi dire di tutto ma non questo.
>> Mi ritengo offeso :-(
>
>
> Senti tu "offeso"... alla fine mica hai pagato la cena a tutti... posso chiedere a testimoni, Sergio che non si sente più(ma io ho il suo Telefono) e sono sicuro si ricorda bene...
>

Quello che ha fatto "resistenza" mi sembra sia stato tu
Comunque chiama sergio vieni a Roma e offro io!
Solo che sara' pajata, animelle e vaccinara  (purtroppo per le
puntarelle non e' stagione e nemmeno per la coratella con i carciofi)



title: ottimizzazione MDB

author: ringo

text:
Salve a tutti,
secondo voi si migliorano le prestazioni
su un MBD di 85 mb se sposto tutti
i report su un'altro MDB?
Ho fatto la prova e l'MDB senza report risulta 40MB
grazie!
ringo


title: ottimizzazione MDB

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel
messaggio news:cdldkd$bm$1...@newsread.albacom.net...

ma che ci sono foto, logo o immagini in generale?
MAssimiliano


title: ottimizzazione MDB

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:eVqLc.3758$B06...@news.edisontel.com...

no ci sono solo query, maschere, tabelle e codice nei moduli...
ringo


title: ottimizzazione MDB

author: 'gnurant

text:
ci sono tanti reports?
--
'gnurant come una cucuzza
Inviato da
www.mynewsgate.net


title: ottimizzazione MDB

text:
"'gnurant" <
6751i...@mynewsgate.net
> ha scritto nel messaggio
news:200407211...@mynewsgate.net...

saranno circa 400


title: ottimizzazione MDB

author: Pixel

text:
"ringo" <
> secondo voi si migliorano le prestazioni
> su un MBD di 85 mb se sposto tutti
> i report su un'altro MDB?
A mio avviso no.
Le cause della lentezza della tua applicazione sono altre (a proposito: ha
settato per caso l'opzione "tieni traccia informaz. di correzione?).
Saluti.


title: ottimizzazione MDB

text:
"Pixel" <
pixe...@libero.it
> ha scritto nel messaggio
news:QHsLc.4481$1V3....@twister2.libero.it...

si č spuntato č meglio togliere la spunta?
grazie!


title: ottimizzazione MDB

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel
messaggio
news:cdlla8$41j$1...@newsread.albacom.net...

Toglila
MAssimiliano


title: ottimizzazione MDB

text:
"ringo" >
> si č spuntato č meglio togliere la spunta?
Decisamente: quella č una delle cause della lentezza (almeno con
l'applicazione in formato .mdb).
Pixel


title: ottimizzazione MDB

author: Sergio MAZZA

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio news:cdldkd$bm$1...@newsread.albacom.net...

(altro suggerimento) Utilizzi tabelle temporanee? Se sě spostale su un altro mdb e le colleghi al primo...
Ciao.
--
Sergio MAZZA


title: ottimizzazione MDB

text:
ringo <
ri...@tiscali.it
> ha scritto:
>
> "Pixel" <
pixe...@libero.it
> ha scritto nel messaggio
> news:QHsLc.4481$1V3....@twister2.libero.it...
> >
> > "ringo" <
> >
> > > secondo voi si migliorano le prestazioni
> > > su un MBD di 85 mb se sposto tutti
> > > i report su un'altro MDB?
> >
> > A mio avviso no.
> > Le cause della lentezza della tua applicazione sono altre (a proposito:
ha
> > settato per caso l'opzione "tieni traccia informaz. di correzione?).
> >
> > Saluti.
> >
>
> si è spuntato è meglio togliere la spunta?
>
> grazie!
400? uhm...sono i reports a influire sulle dimensioni di un db, se mi dici
che ne hai 400 nel tuo front-end ne ho ancora la conferma...assorbono più
del 60% dello spazio...
Ciauz



title: trovare dati con excel

text:
Salve, l'oggetto del post fa schifo ma non ho trovato di meglio per
descrivere il mio problema.
Ho un foglio .xls composto da due fogli di lavoro.
Nel primo esiste una struttura simile a questa
Nome     -     Descrizione     -     Data    -     Ore
Rossi     -     Feriale     -     20080101     -     4
Rossi     -     Sabato     -     20080102    -     5
Rossi     -     Domenica     -     20080103     1
Verdi      -     Feriale     -     20080101     -     4
Verdi     -     Sabato     -     20080102    -     5
Verdi     -     Domenica     -     20080103     1
.......
Nel secondo esiste una struttura piu' complessa ma il succo del
problema e' questo
Nome   -     Tipo    -    20080101    -     20080102
Rossi    -    F    -     le ore se feriale   -     le ore se feriale
Rossi    -    S    -     le ore se sabato   -    le ore se sabato
Rossi    -    D    -     le ore se domenica    -     le ore se
domenica
Verdi    -    F    - .........................
Verdi    -    S    -
Verdi    -    D    -
Qualcuno vede una soluzione al mio problema??? :-D
Grazie
.yo.mo.


title: trovare dati con excel

text:
".yo.mo." <
dpas...@gmail.com
> ha scritto nel messaggio
news:a4a0949e-497e-428f...@x41g2000hsb.googlegroups.com...

Difficile; almeno per me. Non vedo neanche che ti serve!
Magari se scrivi qualche dettaglio in più; ricordandoti che questo è un NG
per Access non per Excel e se vuoi la soluzione la troverai con Access come
soggetto attivo.
Altrimenti devi passare la domanda al NG: microsoft.public.it.office.excel.
Ciao.
--
Sergio MAZZA


title: trovare dati con excel

text:
On 29 Mag, 18:24, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> Altrimenti devi passare la domanda al NG: microsoft.public.it.office.excel.
:-( mi son fumato il cervello...........


title: Outllook

author: Gabriele Preatoni

text:
Ciao a tutti,
ho la necessità questa volta di memorizzare le e-mail che compongo con
access e che invio con outlook.
Ho già scritto in vba routine e tutto funziona,solo che non riesco a salvare
l'e-mail nel momento in cui la invio e non, come invece succede ora con
l'apertura di outlook.
La mia necessità è di avere una copia salvata dell'e-mail che contenga data
e ora dell'invio, cosa che otterrei solo dopo averla inviata. Ho provato ad
usare la proprietà .send, ma ottengo errore.
Mi basterebbe che la finestra di outlook rimanesse aperta dopo l'invio, in
modo di fare un "salva con nome".
Ho cercato sul sito comune senza risultato.
Vi mando la routine.
Grazie
Sub CreaMessaggioMail(strDestinatario As String)
    Dim objMessaggio As Outlook.MailItem
    Dim olkSpazioNomi As Variant
    Dim myitem As Object
    Dim olkApp As Object
    If IsNull([Lettera]) Then
        MsgBox ("Non c'è testo"), vbExclamation
        Me.Lettera.SetFocus
        Exit Sub
    End If
    If IsNull(Forms![tblCheckReclami]![Sottomaschera tblclienti]![E-mail])
Then
        MsgBox ("Non c'è testo"), vbExclamation
    Forms![tblCheckReclami]![Sottomaschera tblclienti]![E-mail].SetFocus
        Exit Sub
    End If
    Set olkApp = New Outlook.Application
    Set olkSpazioNomi = olkApp.GetNamespace("MAPI")
    Set objMessaggio = olkApp.CreateItem(olMailItem)
        With objMessaggio
          .To = strDestinatario
          .Recipients.ResolveAll
          .Subject = "Saluti"
            .Body = [Lettera] & Chr(13) & Chr(13) & "Cordialmente," &
Chr(13) & "Tizio" & Chr(13) & "Servizio" & Chr(13) & "Cus"
            .Display
        End With
        Set myitem = olkApp.ActiveInspector.CurrentItem
        objMessaggio.Display
 myitem.SaveAs "d:\" & [Id] & ".rtf", olTXT
    Set objMessaggio = Nothing
    Set olkSpazioNomi = Nothing
    Set olkApp = Nothing
End Sub


title: Outllook

author: Maurizio Borrelli

text:
> "Gabriele Preatoni" <
gabriele...@inwind.it
> ha scritto nel
> messaggio news:4oJ7a.163443$YG2.4...@twister1.libero.it...
[...]
> ho la necessità questa volta di memorizzare le e-mail che compongo con
> access e che invio con outlook.
> Ho già scritto in vba routine e tutto funziona,solo che non riesco a
salvare
> l'e-mail nel momento in cui la invio e non, come invece succede ora
con
> l'apertura di outlook.
[...]
    Scusa, ma le email inviate non vanno in "posta inviata"? In questo
caso le potrai prelevare, anche in un secondo tempo, da li'. O no?
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------


title: Outllook

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:b3nqqo$1npfcj$1...@ID-52090.news.dfncis.de...

> Si, è vero, volevo automatizzare un po' le operazioni....per esempio
sarebbe possibile aggiungere qualche riga di codice su pressione del tasto
invia in outlook un'istruzione di salvataggio del e-mail?
>


title: Outllook

text:
> "Gabriele Preatoni" <
gabriele...@inwind.it
> ha scritto
> nel messaggio news:3bK7a.163572$YG2.4...@twister1.libero.it...
> > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto
> > nel messaggio news:b3nqqo$1npfcj$1...@ID-52090.news.dfncis.de...
> > > "Gabriele Preatoni" <
gabriele...@inwind.it
> ha scritto nel
> > > messaggio news:4oJ7a.163443$YG2.4...@twister1.libero.it...
[...]
> > > ho la necessità questa volta di memorizzare le e-mail che compongo
> > > con access e che invio con outlook.
> > > Ho già scritto in vba routine e tutto funziona,solo che non riesco
> > > a salvare
> > > l'e-mail nel momento in cui la invio e non, come invece succede
> > > ora con l'apertura di outlook.
[...]
> >     Scusa, ma le email inviate non vanno in "posta inviata"? In
> > questo
> > caso le potrai prelevare, anche in un secondo tempo, da li'. O no?
> Si, è vero, volevo automatizzare un po' le operazioni....
    Guarda che con "prelevare" non intendevo una operazione manuale ma
un prelievo pilotato da codice...
> per esempio
> sarebbe possibile aggiungere qualche riga di codice su pressione del
> tasto
> invia in outlook un'istruzione di salvataggio del e-mail?
    Scusa ma non riesco ad interpretare cosa intendi con questa frase.



title: Outllook

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:b3ns40$1nlmmi$1...@ID-52090.news.dfncis.de...

E' il pilotare da codice che per me è un problema, mi potresti dare una mano
!!
Grazie
P.S. volevo dire che dopo aver schiacciato "invia" la lettera viene
memorizzata in una direttori di mia scelta..


title: Outllook

text:
> "Gabriele Preatoni" <
gabriele...@inwind.it
> ha scritto nel
> messaggio news:LyK7a.164521$ZE.48...@twister2.libero.it...
> > "Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto
> > nel messaggio news:b3ns40$1nlmmi$1...@ID-52090.news.dfncis.de...
[...]
> > > Si, è vero, volevo automatizzare un po' le operazioni....
> >     Guarda che con "prelevare" non intendevo una operazione manuale
> > ma un prelievo pilotato da codice...
> E' il pilotare da codice che per me è un problema, mi potresti dare
> una mano
[...]
> P.S. volevo dire che dopo aver schiacciato "invia" la lettera viene
> memorizzata in una direttori di mia scelta..
    Ok. Ma cosa memorizzi, il testo "da inviare" che hai inviato oppure
copia di cio' che hai effettivamente inviato, ovvero il documento di
posta inviata di outlook?
    Sperimenta questo codice:
' ============================================================
  Public Sub Prova()
' ------------------------------------------------------------
  Dim oOlApp        As Outlook.Application
  Dim oOlNameSpace  As Outlook.NameSpace
  Dim oOlMAPIFolder As Outlook.MAPIFolder
  Dim oOlMailItem   As Outlook.MailItem
' ------------------------------------------------------------
  Set oOlApp = Outlook.Application
  Set oOlNameSpace = oOlApp.GetNamespace("MAPI")
  Set oOlMAPIFolder = oOlNameSpace.PickFolder
  If Not (oOlMAPIFolder Is Nothing) Then
    With oOlMAPIFolder
      Debug.Print .Name; ". Items: " & .Items.Count
      For Each oOlMailItem In .Items
        With oOlMailItem
          Debug.Print .SentOn; ": "; .Subject
        End With
      Next
    End With
    Debug.Print
  End If
  On Error Resume Next
  Set oOlMailItem = Nothing
  Set oOlMAPIFolder = Nothing
  Set oOlNameSpace = Nothing
  Set oOlApp = Nothing
  End Sub
' ============================================================
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--



title: Outllook

text:
Ok, adesso provo ad immettere codice in access...quello che vorrei
memorizzare è comunque il testo effettivamente inviato.


title: Outllook


title: Outllook

text:
ciao di nuovo,
non ho capito una cosa del codice che mi hai mandato, ossia l'inserimento di
debug.print...
Nel senso quale è il metodo specifico per salvare le e-mail inviate (ad ex
in d:\)?
Scusa per la mia poca dimestichezza con il codice, ma è da poco che mi son
messo....
Grazie


title: prtDevMode dell'oggetto Application

author: Gabriele Bertolucci

text:
Sapete come accederci?
Nell'articolo 290293 della KB di Microsoft si legge che, dopo avere settato
quello che si vuole per l'oggetto Application.Printer ed avere impostato la
proprietą Printer di un report all'oggetto Application.Printer, il report
distrugge la sua struttura DEVMODE corrente e ne eredita una nuova
dall'oggetto Application.Printer.
Peccato che io non sono riuscito ad accedere alla proprietą
Application.prtDevMode: se provo a stamparne il valore dalla finestra
immediata ottengo un errore di compilazione. Devo dire che anche
l'IntelliSense avverte che quella proprietą non č disponibile.
--
Gabriele Bertolucci
PBsoft


title: prtDevMode dell'oggetto Application

author: Simone Calligaris

text:
"Gabriele Bertolucci" <
> Nell'articolo 290293 della KB di Microsoft si legge che, dopo avere
settato
> quello che si vuole per l'oggetto Application.Printer ed avere impostato
la
> proprietà Printer di un report all'oggetto Application.Printer, il report
> distrugge la sua struttura DEVMODE corrente e ne eredita una nuova
> dall'oggetto Application.Printer.
>
> Peccato che io non sono riuscito ad accedere alla proprietà
> Application.prtDevMode: se provo a stamparne il valore dalla finestra
> immediata ottengo un errore di compilazione. Devo dire che anche
> l'IntelliSense avverte che quella proprietà non è disponibile.
Non utilizzato molto l'oggetto Printer (se non per cambiare a Runtime i
margini, e funziona bene).
Ma non si capisce cosa vuoi ottenere.
Impostare una stampante specifica per quel report?
Ciao.


title: prtDevMode dell'oggetto Application

text:
> Non utilizzato molto l'oggetto Printer (se non per cambiare a Runtime i
> margini, e funziona bene).
> Ma non si capisce cosa vuoi ottenere.
> Impostare una stampante specifica per quel report?
No, voglio impostare i settaggi della stampante Application.Printer come mi
pare, quindi assegnare alla proprietą Printer del report l'oggetto
Application.Printer.
Questo mi risolve il problema di stampare in un MDE impostando come mi pare,
di volta in volta, i settaggi della stampante, report per report, quando e
come vuole l'utente.
Inoltre, risolve anche il problema di salvare le impostazioni del report che
Access, notoriamente, spesso perde passando un applicativo da un computer ad
un altro.
--
Gabriele Bertolucci
PBsoft


title: prtDevMode dell'oggetto Application

text:
"Gabriele Bertolucci"
> No, voglio impostare i settaggi della stampante Application.Printer come
mi
> pare, quindi assegnare alla proprietà Printer del report l'oggetto
> Application.Printer.
> Questo mi risolve il problema di stampare in un MDE impostando come mi
pare,
> di volta in volta, i settaggi della stampante, report per report, quando e
> come vuole l'utente.
Fai un'esempio più pratico.
Nel caso che ti citavo prima leggevo da una tabellina impostata sul client i
margini e li impostavo su apertura report col suddetto Printer.
Continuo a non avere le idee chiare sull'applicazione pratica.
> Inoltre, risolve anche il problema di salvare le impostazioni del report
che
> Access, notoriamente, spesso perde passando un applicativo da un computer
ad
> un altro.
Questo è un problema che non esiste.
Basta eliminare l'opzione di AutoCorrect o installare i Service Pack.
O all'avvio dell'applicazione settare dei margini minimi con
Application.SetOption.
Ciao.


title: prtDevMode dell'oggetto Application

text:
> Fai un'esempio più pratico.
> Nel caso che ti citavo prima leggevo da una tabellina impostata sul client
i
> margini e li impostavo su apertura report col suddetto Printer.
> Continuo a non avere le idee chiare sull'applicazione pratica.
Presto detto: io voglio dare al cliente la possibilità di impostarsi come e
quando vuole i settaggi dei report, come se lui avesse davanti un MDB.
Perché l'utente deve poter cambiare stampante, cambiare la dimensione del
foglio, i margini, tutto quello che gli pare in piena libertà.
Purtroppo per fare questo ci vogliono delle gabole. La più semplice potrebbe
essere quella di manipolare l'oggetto Application.Printer e poi fare un Set
Report.Printer = Application.Printer.
Questo funziona quasi per tutto, nel senso che ci sono alcune proprietà che
non vengono correttamente impostate, come PaperBin.
Allora io ed il mio collega abbiamo cercato il modo di ovviare a questo ed
abbiamo scoperto che il settaggio relativo al PaperBin, come anche tutti gli
altri settaggi relativi alla stampante, vengono salvati della proprietà
Report.prtDevMode.
A parte il fatto che andare a scrivere e leggere questa proprietà non è così
diretto, rimane il problema che questa proprietà non è settabile per gli
oggetti Report e Form all'interno di un MDE.
La soluzione, dunque, potrebbe essere proprio quella di modificare proprietà
prtDevMode dell'oggetto Application, quindi fare il solito Set
Report.Printer = Application.Printer.
C'è solo un piccolo problema, non esiste la proprietà
Application.prtDevMode.
Eppure, sono straconvinto che esista perché, se vai a leggere l'articolo
290293 della KB di Microsoft, ad un certo punto leggi quanto segue:
"After you customize the properties for the Application.Printer object, set
the Printer property of the form or report to the Application.Printer
object. This forces the form or the report to destroy its current DEVMODE
structure and to inherit a new one from the Application.Printer object."
Quindi, per ereditare questa struttura DEVMODE dall'oggetto
Application.Printer, questo deve avere questa struttura, dunque ci deve
essere il modo di accederci, magari tramite API (anche se credo che sia una
bestialità).
Io sto cercando ancora questo metodo.
> > Inoltre, risolve anche il problema di salvare le impostazioni del report
> che
> > Access, notoriamente, spesso perde passando un applicativo da un
computer
> ad
> > un altro.
>
> Questo è un problema che non esiste.
> Basta eliminare l'opzione di AutoCorrect o installare i Service Pack.
> O all'avvio dell'applicazione settare dei margini minimi con
> Application.SetOption.
Questo problema esiste e come. Il mio collega ha sviluppato un MDB per un
cliente, nel quale era previsto un report in formato A5. Tale formato è
stato impostato in sede di sviluppo (dove abbiamo tutti i Service Pack e le
patches necessarie). Quindi ha creato un pacchetto con il PDW ed è andato
dal cliente. Ha provato quindi la stampa dalla macchina del cliente e
risultava in A4.
p.s.: carino il ricorso alla SetOption. Non l'avevo ancora utilizzata. Si
impara sempre qualcosa dai newsgroup :-)


title: prtDevMode dell'oggetto Application

text:
"Gabriele Bertolucci" <
(CUT)
> Eppure, sono straconvinto che esista perché, se vai a leggere l'articolo
> 290293 della KB di Microsoft, ad un certo punto leggi quanto segue:
> "After you customize the properties for the Application.Printer object,
set
> the Printer property of the form or report to the Application.Printer
> object. This forces the form or the report to destroy its current DEVMODE
> structure and to inherit a new one from the Application.Printer object."
>
> Quindi, per ereditare questa struttura DEVMODE dall'oggetto
> Application.Printer, questo deve avere questa struttura, dunque ci deve
> essere il modo di accederci, magari tramite API (anche se credo che sia
una
> bestialità).
> Io sto cercando ancora questo metodo.
Adesso ho capito, anche se non saprei come aiutarti.
Cosa pensi della risposta di Carlo Costarella su microsoft.public. etc.?
> > Questo è un problema che non esiste.
> > Basta eliminare l'opzione di AutoCorrect o installare i Service Pack.
> > O all'avvio dell'applicazione settare dei margini minimi con
> > Application.SetOption.
> Questo problema esiste e come. Il mio collega ha sviluppato un MDB per un
> cliente, nel quale era previsto un report in formato A5. Tale formato è
> stato impostato in sede di sviluppo (dove abbiamo tutti i Service Pack e
le
> patches necessarie). Quindi ha creato un pacchetto con il PDW ed è andato
> dal cliente. Ha provato quindi la stampa dalla macchina del cliente e
> risultava in A4.
Con Access 'XP (io distribuisco sempre .MDE) non ho riscontrato problemi.
Sarà solo questione di fortuna?  ;-)
Saluti.


title: prtDevMode dell'oggetto Application

text:
> Cosa pensi della risposta di Carlo Costarella su microsoft.public. etc.?
Dai un'occhiata alla risposta che gli ho dato.
Abbiamo cercato di fare maggiore chiarezza sul problema.
Magari ti vengono in mente nuove idee.
p.s. senza polemica: cerchiamo tutti di limitare il quoting allo stretto
necessario :-)
--
Gabriele Bertolucci
PBsoft
www.pbsoft.it


title: prtDevMode dell'oggetto Application

text:
"Gabriele Bertolucci" <
su microsoft.public. etc.?
>
> Dai un'occhiata alla risposta che gli ho dato.
> Abbiamo cercato di fare maggiore chiarezza sul problema.
> Magari ti vengono in mente nuove idee.
Leggerņ con attenzione.
In rapporto alla faccenda del cambio d'impostazioni dal PC di sviluppo a
quello del cliente, pensavo che potrebbe essere sul serio legato al Driver
della stampante.
Se il Driver della stampante di destinazione non supporta il tipo di foglio,
setta di default A4.
> p.s. senza polemica: cerchiamo tutti di limitare il quoting allo stretto
> necessario :-)
Perchč ti ho tagliato?  ;-)
Scusa, non volevo offenderti.
Ciao.


title: prtDevMode dell'oggetto Application

text:
> > p.s. senza polemica: cerchiamo tutti di limitare il quoting allo stretto
> > necessario :-)
>
> Perchè ti ho tagliato?  ;-)
> Scusa, non volevo offenderti.
Tutt'altro: ho focalizzato l'attenzione sul quoting proprio perché avevi
tagliato poco :-)
Nessuna offesa, figurati. Mi piacciono tutte le critiche costruttive.



title: [OT] x Met e x Tonio Pulino

author: Federico Luciani

text:
Messaggio per Met e Tonio Pulino
i vs pc sono infetti dal virus Sircam, provvedete a ripulirvi al piu'
presto, state riempiendo la casella del sito comune con file da 5/6k.
Grazie
--
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: Aiuto sul metodo SendObject: inviare 2 oggetti in una sola email, ed inviare in formato PDF

author: Bobo

text:
Ho scoperto che questo è il comando per mandare email da Access, e la
cosa funziona bene.
Ora, vorrei usarlo per mandare un report fattura, ma ho un paio di
questioni:
1) è possibile inviare 2 reports in un'unica email? Ho creato la
fattura in due report distinti, un dettaglio ed un riepilogo, ed
attualmente devo inviare due distinte email. C'è un modo, che so, di
lanciare un secondo sendobject che alleghi l'oggetto alla mail del
sendobject precedente? Oppure, alternativamente, c'è modo di creare un
report che faccia l'"append" di 2 report distinti?
2) é possibile inviare un report via email (sempre col metodo in
oggetto, o in altro modo), in formato PDF? Non fa parte dei formati
disponibili, c'è qualche estensione disponibile da qualche parte?
grazie a tutti


author: Roberto da casa

text:
"Bobo" <
robert...@gmail.com
> ha scritto nel messaggio
news:1137420730....@f14g2000cwb.googlegroups.com...
>Ho scoperto che questo è il comando per mandare email da Access, e la
>cosa funziona bene.
>Ora, vorrei usarlo per mandare un report fattura, ma ho un paio di
>questioni:
>
>1) è possibile inviare 2 reports in un'unica email? Ho creato la
>fattura in due report distinti, un dettaglio ed un riepilogo, ed
>attualmente devo inviare due distinte email. C'è un modo, che so, di
>lanciare un secondo sendobject che alleghi l'oggetto alla mail del
>sendobject precedente? Oppure, alternativamente, c'è modo di creare un
>report che faccia l'"append" di 2 report distinti?
Il metodo SendObject invia un solo oggetto per messaggio; però se vai sul
Sito Comune (link qui sotto), nella Sezione General trovi una mezza dozzina
che ti indicano come sia possibile iviare da VBA via e-mail messaggi ognuno
dei quali può avere più di un allegato; una per tutte dai uno sgardo alla
FAQ di Andrea Barchetti intitolata "6.129 Inviare da codice VBA una e-mail
con allegati usando Outlook Express"; poi la soluzione di Alessandro Baraldi
è la più sofisticata e completa. Insomma non sarebbe male che dessi
un'occhiata a tutte le soluzioni pubblicate nella Sezione General del Sito
Comune e scegliessi quella che rutieni più attinente alle tue necessità.
>
>2) é possibile inviare un report via email (sempre col metodo in
>oggetto, o in altro modo), in formato PDF? Non fa parte dei formati
>disponibili, c'è qualche estensione disponibile da qualche parte?
Nella Sezione Reports del Sito Comune leggi la FAQ di Walter Negrinelli
intitolata "4.21 Esportare un report in un file PDF".
Una volta ottenuto il file PDF del report poi invialo in base a quanto
indicato al punto precedente.
>
>grazie a tutti
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
Roberto da casa wrote:
> Il metodo SendObject invia un solo oggetto per messaggio; però se vai sul
> Sito Comune (link qui sotto), nella Sezione General trovi una mezza dozzina
> che ti indicano come sia possibile iviare da VBA via e-mail messaggi ognuno
> dei quali può avere più di un allegato; una per tutte dai uno sgardo alla
> FAQ di Andrea Barchetti intitolata "6.129 Inviare da codice VBA una e-mail
> con allegati usando Outlook Express"; poi la soluzione di Alessandro Baraldi
> è la più sofisticata e completa. Insomma non sarebbe male che dessi
> un'occhiata a tutte le soluzioni pubblicate nella Sezione General del Sito
> Comune e scegliessi quella che rutieni più attinente alle tue necessità.
Si, l'avevo visto, ma era "eccessivo" per i miei bisogni, nel senso che
usa il motore di outlook express (ed altre soluzioni sul sito comune
usano il winsock di windows), quindi mi va a bypassare il client di
posta che già ho, e che è Thunderbird. Con questi sistemi, il
messaggio verrebbe spedito correttamente da Access, ma non ne
rimarrebbe traccia nel client di posta che viene usato solitamente.
Dovrei quindi implementare tutta la messaggistica usando Access, e la
cosa si farebbe complicata.
Quello che cercavo era qualcosa per mandare un messaggio usando il
client di posta già presente, l'equivalente del link mailto: che si
trova nelle pagine web. Il metodo sendobject andrebbe benissimo, se non
fosse per le due limitazioni sopra.
grazie cmq per la risposta



author: Roberto da Parma

text:
"Bobo" <
robert...@gmail.com
> ha scritto nel messaggio
news:1137511383.5...@g44g2000cwa.googlegroups.com...
Roberto da casa wrote:




Per il client non ci sarebbe problema perchè se setti come programma
predefinito di posta Thunderbird il comando dovrebbe
lanciare l'applicazione associata...in questo caso appunto Thunderbird...
Per il fatto di dover allegare due report in un'unica mail da inviare ad un
destinatario potresti sull'evento stampa salvare il file in un formato (es.
pdf)
e successivamente con un'altro comando inviare i file per posta come
allegati...
Ciao
Roberto