title: Tabella storico

text:
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:hj66pu4eet3hif1bi...@4ax.com...
> On Thu, 26 Sep 2002 14:26:47 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
>
> Azz vuoi dire che oltre a VBA non capisco neanche la lingua italiana:
> č una battuta . :-))  ( ah ah che risate )
>
> Cmq č un fatto che tu e Maurě ogni tanto vi scanniate , č anche
> divertente alle volte , ma stavolta vi ho visto proprio arrabbiati e
A parte che tu non ci hai visto arrabbiati, hai visto dei post arrabbiati,
ripeto, non mi pare che in questi post ci siano insulti degni di essere
chiamati con questo nome...
Antonio


title: Tabella storico

author: Fabrizio

text:
On Thu, 26 Sep 2002 14:36:48 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
>news:hj66pu4eet3hif1bi...@4ax.com...
>> On Thu, 26 Sep 2002 14:26:47 GMT, "Antonio Biso" <
ch...@etruria.net
>
>> wrote:
>>
>
>> Azz vuoi dire che oltre a VBA non capisco neanche la lingua italiana:
>> è una battuta . :-))  ( ah ah che risate )
>>
>> Cmq è un fatto che tu e Maurì ogni tanto vi scanniate , è anche
>> divertente alle volte , ma stavolta vi ho visto proprio arrabbiati e
>
>A parte che tu non ci hai visto arrabbiati, hai visto dei post arrabbiati,
>ripeto, non mi pare che in questi post ci siano insulti degni di essere
>chiamati con questo nome...
>
>Antonio
>
Mi arrendo Antò , oggi non ce la faccio a tenere in piedi un 3d OT ,
di solito mi diverte la tua sordità , ma stavolta non ho tempo.
Ciao. Fabrizio


title: Tabella storico

author: Antonio Biso

text:
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:fv76puoene1q4n7h2...@4ax.com...
> On Thu, 26 Sep 2002 14:36:48 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
> >A parte che tu non ci hai visto arrabbiati, hai visto dei post
arrabbiati,
> >ripeto, non mi pare che in questi post ci siano insulti degni di essere
> >chiamati con questo nome...
>
> di solito mi diverte la tua sordità , ma stavolta non ho tempo.
La MIA sordità?!?!
ROTFL
YHTAIYF !!!
Antonio


title: Tabella storico

text:
On Thu, 26 Sep 2002 16:34:01 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
>news:fv76puoene1q4n7h2...@4ax.com...
>> On Thu, 26 Sep 2002 14:36:48 GMT, "Antonio Biso" <
ch...@etruria.net
>
>> wrote:
>
>> >A parte che tu non ci hai visto arrabbiati, hai visto dei post
>arrabbiati,
>> >ripeto, non mi pare che in questi post ci siano insulti degni di essere
>> >chiamati con questo nome...
>>
>> di solito mi diverte la tua sordità , ma stavolta non ho tempo.
>
>La MIA sordità?!?!
>ROTFL
>
>YHTAIYF !!!
Sei riuscito a incuriosirmi : cosa vuol dire YHTAIYF ? te lo sei
inventato ?
Ciao. Fabrizio


title: Tabella storico

text:
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:lig6pukp9d7bqqq7b...@4ax.com...

Sì, sul momento
You Have The Ass In Your Face
ovvero
c'hai il culo in faccia, per sottolineare la tua faccia di bronzo!!!
Hehe eh ee h
Antonio


title: Tabella storico

text:
On Fri, 27 Sep 2002 06:05:28 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
>news:lig6pukp9d7bqqq7b...@4ax.com...
>> On Thu, 26 Sep 2002 16:34:01 GMT, "Antonio Biso" <
ch...@etruria.net
>
>> wrote:
>>
>> >"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
>> >news:fv76puoene1q4n7h2...@4ax.com...
>> >> On Thu, 26 Sep 2002 14:36:48 GMT, "Antonio Biso" <
ch...@etruria.net
>
>> >> wrote:
>> >
>Sě, sul momento
>You Have The Ass In Your Face
>ovvero
>c'hai il culo in faccia, per sottolineare la tua faccia di bronzo!!!
Ci sono cascato , complimenti.
>Hehe eh ee h
Ride bene chi ride ultimo.
>Antonio
>
.
Ciao. Fabrizio


title: VBA moduli - riferimenti default

text:
E' possibile fissare quali riferimenti di default disporre nella creazione
di un nuovo modulo all'interno di access?
Io vorrei ad esempio disporre sempre della libreria DAO 3.6, che per default
non viene caricata.
--------------------------------
Inviato via
http://usenet.libero.it


title: VBA moduli - riferimenti default

text:
"palex1961" <
api...@mentelibera.it
> ha scritto nel messaggio
news:151Z25Z108Z80Y1...@usenet.libero.it...
> E' possibile fissare quali riferimenti di default disporre nella creazione
> di un nuovo modulo all'interno di access?
> Io vorrei ad esempio disporre sempre della libreria DAO 3.6, che per
default
> non viene caricata.
>
Non credo, ma si può creare una Routine che verifica se è impostata
e nel caso non lo sia la Setta.....!!!
Ma non è la stessa cosa.
@Alex.


title: ruotare etichetta testo in un report

author: acquarello

text:
Salve a tutti!
Chiedo un Vs.aiuto per sapere se c'è la possibilità ,in un report, di
"ruotare" una etichetta in modo che il testo da orrizzontale sia leggibile
verticalmente da sx a dx.
In pratica avrei la necessità che una etichetta contenente un numero (id)
venga stampata nel report per essere letta dal lato lungo A4.
Spero di essermi spiegato nel caso...chiedo venia in anticipo.
Un ringraziamento a tutti.
Acquarello


title: ruotare etichetta testo in un report

text:

Non andrebbe bene ruotare il foglio ?
In struttura report vai su file/imposta pagina /pagina - orizzontale
Ciao


title: ruotare etichetta testo in un report

text:
<
cosi...@gmail.com
> ha scritto nel messaggio
news:4e4fe0b8-0fbc-4af9...@s50g2000hsb.googlegroups.com...
On 6 Ago, 19:15, "acquarello" <
davidebarbe...@tiscali.it
> wrote:
> Salve a tutti!
> Chiedo un Vs.aiuto per sapere se c'è la possibilità ,in un report, di
> "ruotare" una etichetta in modo che il testo da orrizzontale sia leggibile
> verticalmente da sx a dx.
> In pratica avrei la necessità che una etichetta contenente un numero (id)
> venga stampata nel report per essere letta dal lato lungo A4.
> Spero di essermi spiegato nel caso...chiedo venia in anticipo.
> Un ringraziamento a tutti.
>
> Acquarello
-----
>Non andrebbe bene ruotare il foglio ?
>In struttura report vai su file/imposta pagina /pagina - orizzontale
>Ciao
------
Scusami ...ma in effetti non ho specificato chiaramente (prima) che il
report è composto di varie sezioni.
Immagina un A4 in verticale che visualizza una o più schede dati personali
(ed altro) da leggere da sx a dx(normalmente).
Accanto(a dx) ad ogni scheda viene riportata una etichetta "idcliente", che
andrebbe invece letta ruotandola verso sx di 180gradi.
Temporaneamente per risolvere il problema ho semplicemente adattato la
larghezza etichetta in modo da "costringerla" a contenere
un singolo carattere, p.e. l'id "1289" verrà visualizzato così:
1
2
8
9
Ovviamente si può vivere felici lo stesso...tuttavia il ng ci ha abituati
male...!!!
Grazie comunque per l'aiuto.
Ciao
Acquarello


title: ruotare etichetta testo in un report

author: Alessandro Cara

text:
acquarello ha scritto:
[cut]
> Ovviamente si può vivere felici lo stesso...tuttavia il ng ci ha abituati
> male...!!!
credo che sia da versione a2003 <alt+f11> <f1> -->vertical
mai provato poiche' i miei db son a2k
--
ac


title: ruotare etichetta testo in un report

author: Cristina Bernazzani

text:
Alessandro Cara ha scritto:

"mai provato poiche' i miei db son a2k" ..hi hi hi ...in agosto diventate tutti più
simpatici ...hi hi hi ...
cb


title: ruotare etichetta testo in un report

author: Cesare Fortis

text:
acquarello ha scritto:

> Acquarello
Se hai Access <2003 puoi provare il RotateText di Lebans
www.lebans.com
ciao
cesare
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ruotare etichetta testo in un report

author: Fabrizio Conti (Panathos)

text:
On 7 Ago, 09:40, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
> credo che sia da versione a2003 <alt+f11> <f1> -->vertical
Orpo, vediamo subito... simpatica questa :-)
proprietà -> Altro -> Verticale: si
(Proprio ieri ho finalmente mollato A97 ed installato A2003... nessun
problema serio e un ambiente effettivamente migliorato).
> mai provato poiche' i miei db son a2k
Tsk, retrogrado 8-)
ciao,
Panathos


title: ruotare etichetta testo in un report

text:
"Cesare Fortis" <
s...@sas.it
> ha scritto nel messaggio
news:g7ea8r$9fe$1...@news.newsland.it...

Un ringraziamento a tutti!!
Ero sparito per un pò...ed ora mi metto subito a verificare i
vs.suggerimenti.
Ah!!!Non avevo specificato la versione di Access  che è 2007.
Anticipo un bel "chi se ne frega" avvisando che fra circa 3 ore spegnerò
tutto per 15gg.,
quindi mi scuso con chi dovesse continuare a postare.
Acquarello


title: Operatore > e < nei parametri di una query

author: ste

text:
Buongiorno a tutto il newsgroup
Avrei bisogno in una query parametrica di cui posto la stringa SQL che il
parametro DIPENDENTI inserito in nella form di ricerca
sia maggiore o minore del numero che inserisco nella casella e non l'esatto
numero, cioe dovrei filtrare le aziende con piu' di tot dipendenti  o meno.
Spero di essere stato chiari , posto la stringa
SELECT TblAzienda.[Ragione Sociale], TblAzienda.Indirizzo, TblAzienda.Cap,
TblAzienda.[Citta'], TblAzienda.Provincia, TblAzienda.Telefono,
TblAzienda.Fax, TblAzienda.[Numero Dipendenti], TblAzienda.[Numero
Iscritti], TblAzienda.[Associazioni Imprenditoriali]
FROM TblAzienda
WHERE (((TblAzienda.[Numero Dipendenti]) Like
nz([Forms]![FrmRicercaDitte]![Dipendenti],"*")) AND ((TblAzienda.Zona) Like
nz([Forms]![FrmRicercaDitte]![Zona],"*")) AND ((TblAzienda.[Nome Operatore])
Like nz([Forms]![FrmRicercaDitte]![NomeOperatore],"*")) AND
((TblAzienda.Contratto) Like nz([Forms]![FrmRicercaDitte]![Contratto],"*"))
AND ((TblAzienda.Comparto) Like
nz([Forms]![FrmRicercaDitte]![Comparto],"*")) AND ((TblAzienda.[RSU FEMCA])
Like nz([Forms]![FrmRicercaDitte]![RSUFEMCA],"*")) AND ((TblAzienda.[Azienda
Cessata]) Like nz([Forms]![FrmRicercaDitte]![AziendaCessata],"*")))
ORDER BY TblAzienda.[Ragione Sociale];
Dovrei inserire > o < in questo punto  Like
nz([Forms]![FrmRicercaDitte]![Dipendenti],"*"))
ma non mi funziona
Grazie per eventuali aiuti e buona giornata a tutti
Stefano


author: Cinzia

text:
"ste" <
stefano...@libero.it
> ha scritto nel messaggio
news:49708c0a$0$1121$4faf...@reader2.news.tin.it...

Ciao Stefano,
prova cosě:  (ho assunto che se non viene scritto un numero dipendente
nella casella di ricerca si visualizzino tutti quelli che abbiano
almeno un dipendente)
SELECT TblAzienda.[Ragione Sociale], TblAzienda.Indirizzo,
TblAzienda.Cap,
TblAzienda.[Citta'], TblAzienda.Provincia, TblAzienda.Telefono,
TblAzienda.Fax, TblAzienda.[Numero Dipendenti], TblAzienda.[Numero
Iscritti], TblAzienda.[Associazioni Imprenditoriali]
FROM TblAzienda
WHERE (
((TblAzienda.[Numero Dipendenti])
<>NZ([Forms]![FrmRicercaDitte]![Dipendenti]), 0)  AND
((TblAzienda.Zona) Like
nz([Forms]![FrmRicercaDitte]![Zona],"*")) AND ((TblAzienda.[Nome
Operatore])
Like nz([Forms]![FrmRicercaDitte]![NomeOperatore],"*")) AND
((TblAzienda.Contratto) Like
nz([Forms]![FrmRicercaDitte]![Contratto],"*"))
AND ((TblAzienda.Comparto) Like
nz([Forms]![FrmRicercaDitte]![Comparto],"*")) AND ((TblAzienda.[RSU
FEMCA])
Like nz([Forms]![FrmRicercaDitte]![RSUFEMCA],"*")) AND
((TblAzienda.[Azienda
Cessata]) Like nz([Forms]![FrmRicercaDitte]![AziendaCessata],"*")))
ORDER BY TblAzienda.[Ragione Sociale];
--
Cinzia [Office Access MVP]
_______________________

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


text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:4970eef3$0$11386$5fc...@news.tiscali.it...

Cinzia Mille grazie per l'interessamento e aiuto
ma continuo ad avere errore di sintassi nell'espressione , in qualunque modo
io vorrei solo che la query filtrasse un maggior o minor numero di
dipendenti
es. tutte le aziende provincia di como contratto chimico con piu' di x
dipendenti
il tutto attraverso la form ricerca sembrerebbe banale ma funziona solo nel
prima stringa postata cioe'
> l'esatto numero di dip
non riesco a posizionare l'operatore maggiore o minore all'interno query
Grazie comunque
Stefano
>


text:

Spero di chiarire meglio cosi:
questa funziona
SELECT TblAzienda.[Ragione Sociale], TblAzienda.Indirizzo,
TblAzienda.[Citta'], TblAzienda.[Numero Iscritti]
FROM TblAzienda
WHERE (((TblAzienda.[Numero Iscritti])>Forms!FrmProva!Prova));
ho messo il segno maggiore tra campo e controllo
che e' una di prova , ma in quella precedente non c'e' verso
grazie stefano


title: Classifica migliori atleti e non punteggi migliori

author: Irene

text:
Ciao a tutti,
Ho un programma VB (ultimamente ho fatto anche una interfaccia ASP) per
gestire un database di atletica leggera.
Uso Access 2000.
Per semplificare, ho le seguenti tabelle: Athletes, Competitions e
Scores.
Se voglio ottenere la classifica dei migliori punteggi, chiamo questo
comando SQL:
[1]SELECT TOP <how-many-best> AthleteName, Competitiondate,
CompetitionPlace, Score
FROM Scores INNER JOIN Competitions ... INNER JOIN Athletes ...
ORDER BY Score [DESC]
([DESC] e' presente se i punteggi sono in tempi, se sono lungezze no)
Comincio ad avere problemi quando vogio classificare i migliori atleti.
Se aggiungo un parametro "group by Athletename", non sono in grado di
visualizzare Competitiondate, CompetitionPlace perche non fanno parte di
alcuna "aggregate function". :-(
Cioe' posso solo scrivere:
---
[2a]SELECT TOP <how-many-best> AthleteName, Min(Score)
FROM Scores INNER JOIN Competitions ... INNER JOIN Athletes ...
GROUP BY AthleteName
ORDER BY Min(Score)
per risultati in tempi
[2b]SELECT TOP <how-many-best> AthleteName, Max(Score)
FROM Scores INNER JOIN Competitions ... INNER JOIN Athletes ...
GROUP BY AthleteName
ORDER BY Max(Score)
per risultati in lunghezze
---
Come posso fare, che comando SQL posso usare per visualizzare tutti i
campi della SQL [1], ma con i criteri di selezione della SQL [2]?
Grazie.
Saluti,
Irene
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: HjKlOp

text:
> Come posso fare, che comando SQL posso usare per visualizzare tutti i
> campi della SQL [1], ma con i criteri di selezione della SQL [2]?
Fammi capire meglio, in questo modo tu hai tutti i dati che ti occorrono o
sbaglio ?
SELECT
AthleteName,
Competitiondate,
CompetitionPlace,
Max(Score) AS MaxDiScore
FROM Competitions INNER JOIN
(Athletes INNER JOIN Scores ON Athletes.[ID_ Athletes] = Scores.AthletesID)
ON Competitions.ID_Competitions = Scores.CompetitionsID
GROUP BY
AthleteName,
Competitiondate,
CompetitionPlace;


author: Italian Culture Institute

text:
"HjKlOp" <
lordl...@yahoo.com
> wrote in message
news:Moidb.130745$
hE5.4...@news1.tin.it
> Fammi capire meglio, in questo modo tu hai tutti i dati che ti occorrono o
> sbaglio ?
>
> SELECT
> AthleteName,
> GROUP BY
> AthleteName,
> Competitiondate,
> CompetitionPlace;
Ho gia'  provato, ma in questo modo perdo l'unicita' dell' Athetname,
cioe' lo stesso atleta compare tranquillamente piu' volte.
Potrebbe essere una limitazione dell' SQL dell' Access2000?



text:
> Ho gia'  provato, ma in questo modo perdo l'unicita' dell' Athetname,
> cioe' lo stesso atleta compare tranquillamente piu' volte.
> Potrebbe essere una limitazione dell' SQL dell' Access2000?
LAST(Competitiondate) AS ...,  LAST(CompetitionPlace) AS ...


text:
"HjKlOp" <
lordl...@yahoo.com
> wrote in message
news:Jdjdb.130976$
hE5.4...@news1.tin.it

Purtroppo, no: non funziona ne' con LAST ne' con FIRST.
D'altra parte perche` dovrebbe? Chi l'ha detto che il il primo/ultimo
record di quel AthleteName
e' proprio il min(Score) [o Max(score) a seconda del tipo di
competizione] dell' atleta stesso?
Ho anche provato a creare una query del tipo:
SELECT Name,First(Score),First(CompetitionDate),First(CompetitionTime)
FROM [Best results]
GROUP BY Name
dove Best Results e' una query gia' ordinata per risultati
crescenti/descrescenti:
SELECT Name,CompetitionDate,CompetitionPlace,Scores
FROM Scores ...
ORDER BY scores
ma non funziona neanche questo. Ed in questo caso, non capisco neanche
come mai!
Fa differenza chiamare una query da un'altra query e creare una vera e
propria tabella temporanea in Access?



text:
> Purtroppo, no: non funziona ne' con LAST ne' con FIRST.
> D'altra parte perche` dovrebbe? Chi l'ha detto che il il primo/ultimo
> record di quel AthleteName
> e' proprio il min(Score) [o Max(score) a seconda del tipo di
> competizione] dell' atleta stesso?
scusa ma hai usato contemporanemente MAX e LAST  ??
SELECT Athletes.AthleteName, Last(Competitions.Competitiondate) AS
UltimoDiCompetitiondate, Last(Competitions.CompetitionPlace) AS
UltimoDiCompetitionPlace, Max(Scores.Score) AS MaxDiScore
FROM Competitions INNER JOIN (Athletes INNER JOIN Scores ON Athletes.[ID_
Athletes] = Scores.AthletesID) ON Competitions.ID_Competitions =
Scores.CompetitionsID
GROUP BY Athletes.AthleteName;
questo funziona...


text:
"HjKlOp" <
lordl...@yahoo.com
> wrote in message
news:HEmdb.131776$
hE5.4...@news1.tin.it
>
> scusa ma hai usato contemporanemente MAX e LAST  ??
>
> SELECT Athletes.AthleteName, Last(Competitions.Competitiondate) AS
> UltimoDiCompetitiondate, Last(Competitions.CompetitionPlace) AS
> UltimoDiCompetitionPlace, Max(Scores.Score) AS MaxDiScore
> FROM Competitions INNER JOIN (Athletes INNER JOIN Scores ON Athletes.[ID_
> Athletes] = Scores.AthletesID) ON Competitions.ID_Competitions =
> Scores.CompetitionsID
> GROUP BY Athletes.AthleteName;
>
> questo funziona...
Certo che ho provato Max e Last assieme. Forse funziona nel tuo caso
specifico.
Ho spedito al tuo indirizzo email un piccolissimo access database dove
si vede che non funziona o meglio:
nomi e punteggi sono OK ma la data ed il luogo della gara corrispondono
ad un altro record.
Piu precisamente all' ultimo record di quell' altleta nel database, non
al record col miglior risultato.
Ciao
Irene



text:
"Irene" <
italian...@hotmail.com
> wrote in message
news:af40b778b3a601eb206...@mygate.mailgate.org
> Ciao a tutti,
>
> Ho un programma VB (ultimamente ho fatto anche una interfaccia ASP) per
> gestire un database di atletica leggera.
> Uso Access 2000.
Per la cronaca, ho ricevuto questo indirizzo:
http://www.mvps.org/access/queries/qry0020.htm
Dove ho risolto * quasi * tutti i miei problemi. A dire la verita' ho
ancora un paio
di complicazioni dovute alla maggiore complessita' del mio database in
confronto a quello della pagina web dove
si parla di una libreria.
Ma se mai apriro' un altro post per queste ultime questioni.
Grazie dell'aiuto.



title: Formattazione report

author: Lo

text:
Buongiorno a tutti,
vorrei sapere se è fattibile poter stampare fogli fronte retro e dire che a ogni nuovo cliente mi stampi sul davanti e non sul retro (quindi sulla pagina dispari).
Mi spiego meglio, vorrei che se per il primo cliente ci sono tre pagine, il secondo cliente deve iniziare a stampare sul foglio 5 e non sul foglio 4, in modo che ogni cliente sia separato dall'altro...
Secondo voi è una cosa complicata da indicargli via codice?
Grazie mille per una vostra gentile disponibilità


title: Formattazione report

author: Cesare Briglia

text:

forse qualcuno storcerà il naso, ma io ci sono riuscito lanciando n
processi di stampa separati per ogni report. Cioè invece di stampare UN
report con tutti i 10 clienti lanci 10 report separati..
(forse ci sarà un altro modo...)
per quanto riguarda la stampa fronte retro puoi utilizzare l'oggetto printer

Private Sub PrintCatalogReport()
Dim rpt As Report

     Application.Printer = Application.Printers(0)

     DoCmd.OpenReport "Catalog", acViewPreview, , , acHidden
     Set rpt = Reports!Catalog

     With rpt.Printer
         .BottomMargin = 720
         .Copies = 2
         .Duplex = acPRDPVertical 'Double sided
         .PaperBin = acPRBNLargeCapacity
     End With
     DoCmd.OpenReport "Catalog", acViewNormal
     DoCmd.Close acReport, "Catalog", acSaveNo

     Set Application.Printer = Nothing
End Sub

saluti

BC


title: Formattazione report

text:

Grazie per l'idea, ma vorrei lanciare un report solo, per comodità di chi lo utilizzerà...
Qualcuno ha un'altra idea?
Grazie in anticipo...


title: Formattazione report

text:

Controlla il cambio CLIENTE nella Sezione specifica, di solito basta salvare in una Variabile di Modulo e confrontarla ed usa la proprietà:

Property ForceNewPage As Byte
    Membro di Access.Section

Es:
Option Compare Database
Option Explicit

Dim vIDCliente As Variant

Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    If vIDCliente<>Me.IdCliente then
       .....
       vIDCliente = Me.IdCliente
    End if
End Sub

Nel tuo caso gestirai anche un Contatore che se è il primo forza la proprietà...

@Alex


title: Formattazione report

text:

Ci provo, grazie mille!


title: Formattazione report

text:
Il giorno venerdì 26 ottobre 2018 12:52:03 UTC+2, @Alex ha scritto:

Ciao Alex, solo ora sto cercando di risolvere il problema...
Non sono riuscita, sono una capra in access...
Non riesco a capire cosa mettere al posto dei puntini nell'if, potresti darmi ancora una mano? Grazie mille


title: Formattazione report

text:

Devi usare la proprietà FORCENEWPAGE ed impostarla al valore che ti servirà comed definito nella guida.

GUIDA:
https://docs.microsoft.com/it-it/office/vba/api/access.section.forcenewpage?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dit-IT%26k%3Dk(vbaac10.chm12192)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

Leggi anche questi se vuoi:
https://www.experts-exchange.com/questions/26582274/vba-coding-to-insert-page-break-in-a-report-when-a-subreport-has-more-than-one-record.html

http://access-excel.tips/access-report-page-break-by-group-and-add-blank-page/

@Alex


title: Oracle e ODBC

author: Stefano

text:
Scusate se mi permette di ripostare il mio problemino
ma nessuno mi ha (saputo) rispondere
Sto tentando la connessione attraverso ODBC con db ORacle
residente su un server.
Il collegamento sembra avvenire correttamente, ma dopo aver
tentato di collegare le tabelle, l'unica tabella che compare si
chiama "ACCESSIBLE COLUMNS" e null'altro.
Quale č il problema ??
Grazie
--


title: voce di default

author: Paolo

text:
vvf wrote
per rendere la selezione delle voci più semplice in una casella combinata
vorrei presentare una voce di default, generalmente utilizzo questa
subroutine quando sono in presenza di una sola cbo per maschera
Private Sub Form_Current()
Me![CasellaCombinata196].SetFocus
CasellaCombinata196.Text = "paolo"
End Sub
nella nuova maschera tieni presente che ho più di una cbo
smiley Paolo
togliere i tre asterishi per rispondermi


title: voce di default

author: Roberto dal portatile

text:
"Paolo" <***
bjh...@tin.it
> ha scritto nel messaggio
news:8o467u$an5$1...@nslave1.tin.it...

Hai provato a generare, a fronte dell'evento "Su attivato" di ogni combo, il
codice:
    NomeCombo.Text = "Paperino"
e non adoperare più l'evento "Su corrente" della maschera?
Roberto


title: voce di default

author: Federico Luciani

text:

Usa la proprieta' 'Valore predefinito' dei controlli in questione.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: voce di default

text:
Ciao Federico la tua è una risposta funzionale, ma vorrei porre la colonna
associata uguale a 2
in questo modo riesco ad utilizzare il rispettivo id della voce associata
mi spiego meglio:
Nome elemento..... cbo0
Origine controllo..... Provincia
Origine riga ..... Select Distinctrow ....
Numero colonne 2
Larghezza colonne .... 0cm;2,54cm
Colonna associata .... 1
in questo modo nella tabella contenete il campo Provincia viene editato il
rispettivo id, e non il nome intero della voce di default o di quella
selezionata successivamente
Ciao cqe grazie Paolo
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
39A6376E...@paperino.libero.it...




title: voce di default

text:
Paolo wrote:
> Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
> 39A6376E...@paperino.libero.it...
> > Paolo wrote:

> > Usa la proprieta' 'Valore predefinito' dei controlli in questione.
> Ciao Federico la tua è una risposta funzionale, ma vorrei porre la colonna
> associata uguale a 2
> in questo modo riesco ad utilizzare il rispettivo id della voce associata
> mi spiego meglio:
>
> Nome elemento..... cbo0
> Origine controllo..... Provincia
> Origine riga ..... Select Distinctrow ....
> Numero colonne 2
> Larghezza colonne .... 0cm;2,54cm
> Colonna associata .... 1
>
> in questo modo nella tabella contenete il campo Provincia viene editato il
> rispettivo id, e non il nome intero della voce di default o di quella
> selezionata successivamente
Scusami, ma non ben capito, cmq tieni presente quanto segue:
nelle combo il 'Valore predefinito' si riferisce alla colonna associata.
Se le colonne sono:
1 BO
2 FI
3 PD
con
Numero colonne = 2
Larghezza colonne = 0cm;2,54cm
Colonna associata = 1
Valore predefinito = 2
nella combo verra' visualizzato FI, ma il valore del campo e' 2
con
Numero colonne = 2
Larghezza colonne = 0cm;2,54cm
Colonna associata = 2
Valore predefinito = "PD"
nella combo verra' visualizzato PD, il valore del campo e' PD
spero di essere stato chiaro.



title: Abilitazione Campo

author: Ludo

text:
Ciao a tutti,
esiste per caso un codice che mi permetta di disabilitare tutti i campi in
una volta sola di una maschera di inserimento dati all apertura o su
caricamento?
Grazie mille


title: Abilitazione Campo

author: namor

text:
Ludo ha scritto:

Proprietą di maschera: consenti modifiche (allowupdates) = False
oppure un ciclo:
dim ctl as control
on error resume next
for each ctl in me.controls
  ctl.enabled=false
next
on error goto 0
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Abilitazione Campo

author: Carlo.

text:
namor ha scritto:
> Ludo ha scritto:
> > Ciao a tutti,
> > esiste per caso un codice che mi permetta di disabilitare tutti i campi in
> > una volta sola di una maschera di inserimento dati all apertura o su
> > caricamento?
> > Grazie mille
> Proprietą di maschera: consenti modifiche (allowupdates) = False
> oppure un ciclo:
> dim ctl as control
> on error resume next
> for each ctl in me.controls
>   ctl.enabled=false
> next
> on error goto 0
> Namor
Personalmente utilizzo la prima soluzione proposta da Namor, ma ho
l'esigenza di tenere sbloccato un controllo (casella di ricerca), quindi
quando č attivo questo controllo abilita le modifiche (allowupdates) =
True, ma appena perde lo stato attivo le disabilita nuovamente,
ciao
Carlo.
--



title: Format....in campo query

author: Enrico Virginio

text:
Ho una query di accodamento che accoda in una mia tabella dei dati
provenienti da una tabella esterna...
Funziona tutto ok ma...
C'è un campo [Peso] nella tbl esterna in formato decimale es.00012,25
il campo [Peso] invece nella mia tabella è in formato Numerico
InteroLungo;
Che formula devo usare nel campo [Peso] della query di accodamento per
trasformare il valore decimale in Numerico no decimale e, magari
arrotondare ? (es.00012,25 = 13)
Grazie.
Ciao a tutti.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Format....in campo query

author: Emyr

text:
On Thu, 21 Mar 2002 21:05:37 +0000 (UTC), "Enrico Virginio"
<
nor...@libero.it
> wrote:
>Ho una query di accodamento che accoda in una mia tabella dei dati
>provenienti da una tabella esterna...
>Funziona tutto ok ma...
>C'è un campo [Peso] nella tbl esterna in formato decimale es.00012,25
>il campo [Peso] invece nella mia tabella è in formato Numerico
>InteroLungo;
>Che formula devo usare nel campo [Peso] della query di accodamento per
>trasformare il valore decimale in Numerico no decimale e, magari
>arrotondare ? (es.00012,25 = 13)
>
>Grazie.
>Ciao a tutti.
Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
con parametro VarPI=0
Saluti.
Emanuele.


title: valore predefinito

author: Benedetto

text:
Ciao a tutti, vorrei che in una tabella "Lista" il campo "codice" avesse
come valore predefinito quello  restituito da una query "Selezione" nel
campo "Valore"
Pertanto ho inserito come valore predefinito di "codice" l'espressione:
[Valore].[Selezione], tuttavia Access dice che c'è un errore di sintassi,
dove sbaglio?


title: valore predefinito

author: ALESSANDRO Baraldi

text:
"Benedetto" <
deva...@libero.it
> ha scritto nel messaggio
news:Hh8Fb.199721$vO5.7...@twister1.libero.it...

Il valore predefinito solitamente si imposta nella Maschera sul Controllo
associato a tale Campo.
In questo caso dovresti usare NomeControllo.DefaultValue=Espressione.
Il fatto è che non puoi accedere ad una QRY_SELECT, ma devi trovare
un'alternativa, che non sò consigliarti date le poche INFO che hai dato.
La strada di andare direttamente sulla Tabella a modificare il DEFAULTVALUE
è un pò più complessa e sinceramente non molto pratica........!!!
Ciao.
@Alex.


title: HELP!!! Tabelle collegate SQL7

text:
Aiuto!!
Non riesco a modificare dei recordset di tabelle collegate da una base dati
SQLServer 7 (continua a darmi il messaggio 'This Recordset is not
updatable') con Access97.
Ho delle tabelle collegate allo stesso SQLServer ma a Database diversi in
cui ho la stessa configurazione delle autorizzazioni e con le altre tabelle
non ho problemi. Ho provato ad utilizzare sia un DSN che utilizza una
connessione Trusted che uno che utilizza una connessione al database (per
sicurezza ho usato l'utente 'sa'), ma il risultato non è cambiato.
E' access che ha qualche problema sulla tabella o devo agire diversamente
sul DSN o devo cambiare qualche impostazione su SQLServer?
Grazie anticipatamente per quasiasi suggerimento.
Roberto


title: HELP!!! Tabelle collegate SQL7

author: Nicola Ardito

text:
gmb3 ha scritto nel messaggio <
98096371...@tango.comm2000.it
>...

Alcune possibili cause:
- permessi sulle tabelle (ma tu sembri già scartare questa possibilità)
- le tabelle non hanno una Primary Key e quando le hai collegate hai dato
annulla alla richiesta fatta da Access di segnalargli quali campi
individuano un record in modo univoco
- il database in questione si trova in modo readonly
 altre al momento non mi sovvengono.Verifica intanto queste e poi vediamo.
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: HELP!!! Tabelle collegate SQL7

text:
Mancava la Primary Key, grazie 1000 !! :-)
"Nicola Ardito" <men...@NOSPAM.it> ha scritto nel messaggio
news:95b0jn$lnr$1...@nread2.inwind.it...



title: VSA

author: MIX

text:
Riepilogo: Microsoft ha presentato Visual Studio for Applications (VSA), la
nuova soluzione che offre funzionalità complete per realizzare applicazioni
personalizzate per il Web. La tecnologia può essere integrata sia
all'interno di soluzioni pacchettizzate sia in applicazioni sviluppate ad
hoc. Grazie all'esperienza di oltre 3 milioni di esperti di Visual Basic,
VSA permette alle aziende e agli ISV (Indipendent Software Vendor) di
sviluppare rapidamente e facilmente linee di codice su misura tramite Visual
Basic.NET, la nuova versione del linguaggio di programmazione diffuso in
tutto il mondo. L'architettura flessibile di Visual Studio for Application è
infatti pienamente compatibile con Visual Basic.NET e a breve sarà integrata
con altri linguaggi .NET, tra cui C#.


title: VSA

text:
Milano, 30 gennaio 2001
"Visual Studio for Application di Microsoft è la prima tecnologia che
permette alle aziende di ritagliare le applicazioni Web a seconda di
specifiche necessità di business", ha sottolineato Yuval Neeman, Vice
President Developer Management Division di Microsoft. "Grazie a VSA possiamo
garantire un reale vantaggio competitivo alle aziende e agli ISV: la
possibilità di utilizzare tool e linguaggi già conosciuti, consentendo loro
di ridurre il time to market e implementare prodotti in grado di soddisfare
pienamente le esigenze dei loro clienti".
Attraverso il supporto integrato di Visual Studio.NET e di Microsoft .NET
Framework, VSA permette di valorizzare le caratteristiche della piattaforma
.NET. Questa combinazione assicura elevati livelli di scalabilità e
performance, semplificando il processo di sviluppo, implementazione e
gestione delle soluzioni enterprise.
Già al lavoro i primi utenti VSA
Visual Studio for Applications è già disponibile per i partner interessati a
valutarne le caratteristiche. Great Plains Software Inc., Epicor Software
Corp., Marlborough Stirling, Ci Technologies e NetIQ Corp. sono le prime
aziende che già collaborano
con Microsoft per integrare le funzionalità di personalizzazione di VSA
all'interno delle proprie applicazioni Web.
Le aziende e gli ISV che desiderano testare Visual Studio for Applications
possono contattare Microsoft o Summit Software Co., agente di vendita per
VSA, all'indirizzo
http://www.summsoft.com/about/offices.htm
VSA verrà rilasciato sul mercato - sempre a scopo di valutazione - nella
primavera prossima in concomitanza con il rilascio della versione beta 2 di
Visual Studio.NET. Entrambe le soluzioni saranno disponibili in versione
definitiva nella seconda metà dell'anno.
Ulteriori informazioni sulle funzionalità di VSA e sulle aziende e ISV che
stanno già sviluppando applicazioni per il web con VSA sono disponibili
all'indirizzo
www.microsoft.com/presspass/


title: VSA

author: Tony

text:
"MIX" <
ton...@inwind.it
> ha scritto nel messaggio
news:p7ba9.99632$n04.2...@twister2.libero.it...

Madonna, certo che ti sei dato subito da fare ;-)


title: moduli di gestione

author: Marisa Ceparano

text:
Aiuto! Non riesco ad accedere più al mio database. Quando clicco sul file
esce questo messaggio:
Il modulo di gestione di database Microsoft Jet ha interrotto
l'elaborazione. Un altro utente sta tentando contemporaneamente di
modificare gli stessi dati. Nel db avevo delle maschere collegate ad una
tabella presente in rete, questa stessa tabella poi l'ho importata nel mio
db. Già in precedenza avevo avuto qualche segnalazione di questo genere ma è
la prima volta che non riesco neppure a visualizzare gli oggetti del db. C'è
un modo per salvare il mio lavoro?
Grazie e ciao


title: moduli di gestione

author: SunRex

text:
"Marisa Ceparano" <
giuseppe....@tin.it
> ha scritto nel messaggio
news:WFqie.1399896$35.52...@news4.tin.it...

Hai provato ad importare tutto in un file mdb nuovo?
SunRex


title: moduli di gestione

text:
Purtroppo se provo ad importare da un file nuovo esce la stessa segnalazione
e la finestra database non si apre.
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:Shrie.909903$b5.39...@news3.tin.it...



title: moduli di gestione

text:
Ho trasformato lo stesso file in una pagina accesso dati ed ho verificato
che i dati non sono andati persi, purtroppo se provo ad importare in un file
nuovo gli oggetti mi da sempre la stessa segnalazione.
Ciao e grazie
"Marisa Ceparano" <
giuseppe....@tin.it
> ha scritto nel messaggio
news:cUrie.1400365$35.52...@news4.tin.it...



title: moduli di gestione

author: MA

text:
Marisa Ceparano wrote:
> Ho trasformato lo stesso file in una pagina accesso dati ed ho
> verificato che i dati non sono andati persi, purtroppo se provo ad
> importare in un file nuovo gli oggetti mi da sempre la stessa
> segnalazione.
> Ciao e grazie
Ciao Marisa,
prova a rispondere DOPO il post a cui ti riferisci, come faccio io: ne va
della legibiltà dell'intero thread
Grazie
>
> "Marisa Ceparano" <
giuseppe....@tin.it
> ha scritto nel messaggio
> news:cUrie.1400365$35.52...@news4.tin.it...
>> Purtroppo se provo ad importare da un file nuovo esce la stessa
>> segnalazione e la finestra database non si apre.
>>
>> "SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
>> news:Shrie.909903$b5.39...@news3.tin.it...
>>>
>>> "Marisa Ceparano" <
giuseppe....@tin.it
> ha scritto nel
>>> messaggio news:WFqie.1399896$35.52...@news4.tin.it...
>>>> Aiuto! Non riesco ad accedere più al mio database. Quando clicco
>>>> sul file
>>>> esce questo messaggio:
>>>> Il modulo di gestione di database Microsoft Jet ha interrotto
>>>> l'elaborazione. Un altro utente sta tentando contemporaneamente di
>>>> modificare gli stessi dati. Nel db avevo delle maschere collegate
>>>> ad una tabella presente in rete, questa stessa tabella poi l'ho
>>>> importata nel mio
>>>> db. Già in precedenza avevo avuto qualche segnalazione di questo
>>>> genere ma
>>> è
>>>> la prima volta che non riesco neppure a visualizzare gli oggetti
>>>> del db. C'è un modo per salvare il mio lavoro?
>>>> Grazie e ciao
>>>>
>>> Hai provato ad importare tutto in un file mdb nuovo?
>>>
>>> SunRex
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: moduli di gestione

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:F0Xie.10906$TR5....@news.edisontel.com...

nuovo gli oggetti mi dà sempre la stessasegnalazione.
Ciao e grazie


title: Problemi con funzione Replace all'interno di un ciclo

author: Dino

text:
Ciao a tutti ho delle problematiche con la funzione Replace all’interno di un ciclo.
Cercherò di spiegarmi meglio .
Il codice funzionante è questo :
Dim MioRS As recorset
Dim strDescrizione As string
strDescrizione = Nomesottomaschera!descrizione
        For i = 1 To Nrighe
            Print #1, "<DettaglioLinee>";
            Print #1, "<NumeroLinea>" & i & "</NumeroLinea>";
            'Print #1, "<Descrizione>" & MioRS!descrizione & "</Descrizione>";
      Next i
Ovviamente ho sintetizzato perché le altre righe di codice non interessano.
In sostanza i dati vengono recuperati da una sottomaschera.
Come si evince dalla parte di codice, mi si creano  “N” righe a seconda delnumero di record che si generano nella sottomaschera.
Il problema nasce quando in uno dei records nel campo descrizionecompaiono dei caratteri accentati o speciali.
Per ovviare al problema utilizzo la funzione Replace. creo (come spiegatomi da Karl nel lead precedente)
Una stringa       strDescrizione alla quale associo i vari Replace “risolutivi2 (faccio qualche esempio)
strDescrizione = Replace(strDescrizione, "à", "a")
strDescrizione = Replace(strDescrizione, "ò", "o")
e così via......
Se nel codice poi sostituisco il campo descrizione :
            'Print #1, "<Descrizione>" & MioRS!descrizione & "</Descrizione>"; con
       'Print #1, "<Descrizione>" & strDescrizione & "</Descrizione>";
succede che il ciclo mi riporta sempre la descrizione della prima riga.
Il problema nasce probabilmente dal campo Nomesottomaschera!descrizione che associo alla stringa
Dovrei associare MioRS!descrizione alla stringa strDescrizione (alla quale sono associati i vari Replace), ma il codice non me lo permette perché MioRS è dichiarato come recordset.
Come posso fare per risolvere il problema.
Grazie in anticipo


author: BFS

text:

secondo me ti stai incasinando la vita per nulla

quello che devi fare è crearti il recordset delle tue righe fattura

fai un ciclo sulle rige del recordset

per ogni riga, quando è ora di scrivere la descrizione riga, scrivi

while...

...
Print #1, "<Descrizione>" & FunzionePulisci(tuoRS.fields("descrizione")
) & "</Descrizione>"

...
next

dove FunzionePulisci

è una funzione a cui passi la tua descrizione

dentro la funzione metti tutti i replace e ulteriori controlli che vuoi
fare alla descrizione

Private FunzionePulisci(dapulire as string) as string
      dapulire = Replace(dapulire , "à", "a")
      dapulire = Replace(dapulire , "ò", "o")
etc etc

funzionePulisci=dapulire

end function

BFS


text:
grazie BFS provo e ti faccio sapere



text:
Ciao BFS, una domanda ma la la funzione Pulisci la inserisco in un modulo e la faccio diventare pubblica?
Altra domanda, essendo la riga Print #1, "<Descrizione>" & FunzionePulisci(tuoRS.fields("descrizione")
) & "</Descrizione>"

All’interno di un ciclo For posso evitare di inserire il ciclo While ..Wend???
Grazie mille aspettotue in merito



text:

la puoi mettere pubblica se ti serve in altre parti del programma
il mio while era inteso per ciclare le righe fattura, se tu usi for
ovviamente non serve

ciao


text:
Ciao BFS, grazie al tuo consiglio ho risolto il problema.
Ho semplificato il tutto creando nella sottomaschera un campo “Descpulita”, al quale associo il valore del campo descrizione e lo faccio pulire dai replace nell’evento afterupdate del campo descrizione
Dim strdesc As String
strdesc = Me.descrizione
strdesc = Replace(strdesc, "à", "a")
strdesc = Replace(strdesc, "ò", "o")
strdesc = Replace(strdesc, "ù", "u")
Me.Descpulita = strdesc

Grazie ancora



text:
Il 23/01/2021 10:47, Dino ha scritto:
> Ciao BFS, grazie al tuo consiglio ho risolto il problema.
> Ho semplificato il tutto creando nella sottomaschera un campo “Descpulita”, al quale associo il valore del campo descrizione e lo faccio pulire dai replace nell’evento afterupdate del campo descrizione
> Dim strdesc As String
> strdesc = Me.descrizione
> strdesc = Replace(strdesc, "à", "a")
> strdesc = Replace(strdesc, "ò", "o")
> strdesc = Replace(strdesc, "ù", "u")
> Me.Descpulita = strdesc
>
> Grazie ancora

non mi convince come soluzione
perchè i caratteri "strampalati" che l'xml non digerisce potresti averli
anche nel nome del cliente, nei campi delle causali documento etc.

quindi aveva più senso fare una funzione di pulitura come ti ho scritto
da poter usare ogni volta che devi scrivere un campo tipo testo del xml

ciao
BFS


text:
Hai perfettamente ragione, in realtà nno te l’ho detto ,ma ho creato un str indirizzo e un str nome cliente gestite entrambe dai Replace.
Nel caso del nome cliente e dell’indirizzo, ovviamente non essendoci il ciclo For no ho problemi della descrizione.
Dino



title: numero incrementante su maschera continua su campo non associato

author: Giuseppe

text:
Salve a tutti.
Ho una maschera continua, con delle combo che mi filtrano i record.
Ho creato un campo non associato che deve assegnare un numero
progressivo ai record corrispondenti ai criteri.
Ho messo come origine =1 (come si fa nei report) ma non so dove e come
mettere la formula +1.
Grazie.


author: CIDI

text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:e29ebe89-3b18-4ec2...@n20g2000hsh.googlegroups.com...

guarda qua:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/31cc707d2327ddb5/b6ef65dcac9776be?hl=it&lnk=st&q=#b6ef65dcac9776be
Ciao
Daniele


text:
On 9 Feb, 17:12, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:e29ebe89-3b18-4ec2...@n20g2000hsh.googlegroups.com...
>
> > Salve a tutti.
> > Ho una maschera continua, con delle combo che mi filtrano i record.
> > Ho creato un campo non associato che deve assegnare un numero
> > progressivo ai record corrispondenti ai criteri.
> > Ho messo come origine =1 (come si fa nei report) ma non so dove e come
> > mettere la formula +1.
> > Grazie.
>
> guarda qua:
http://groups.google.it/group/it.comp.appl.access/browse_thread/threa.
..
>
> Ciao
> Daniele
Grazie per la risposta.
Ho provato le prime due soluzioni e non ci sono riuscito.
Sarà perchè la mia non è una sottomaschera?
Praticamente ho copiato e incollato nella funzione in un Modulo e l'ho
salvato.
Ho inserito nella casella di testo non associato
=GetLineNumber([Form])  in un caso
=GetLineNumber([Form];"IDMandato";[IDMandato]) nel secondo caso
ma nessuno dei due ha funzionato.
Il risultato è #Nome?
dove sbaglio? Ciao  e grazie.


text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:7a78532f-3068-47a4...@y5g2000hsf.googlegroups.com...
On 9 Feb, 17:12, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel
> messaggionews:e29ebe89-3b18-4ec2...@n20g2000hsh.googlegroups.com...
>
> > Salve a tutti.
> > Ho una maschera continua, con delle combo che mi filtrano i record.
> > Ho creato un campo non associato che deve assegnare un numero
> > progressivo ai record corrispondenti ai criteri.
> > Ho messo come origine =1 (come si fa nei report) ma non so dove e
> > come
> > mettere la formula +1.
> > Grazie.
>
> guarda
> qua:
http://groups.google.it/group/it.comp.appl.access/browse_thread/threa.
..
>
> Ciao
> Daniele
Grazie per la risposta.
Ho provato le prime due soluzioni e non ci sono riuscito.
Sarà perchè la mia non è una sottomaschera?
Praticamente ho copiato e incollato nella funzione in un Modulo e l'ho
salvato.
Ho inserito nella casella di testo non associato
=GetLineNumber([Form])  in un caso
=GetLineNumberForm(TuaForm)
devi aggiungere il nome della maschera
=GetLineNumber([Form];"IDMandato";[IDMandato]) nel secondo caso
ma nessuno dei due ha funzionato.
Il risultato è #Nome?
dove sbaglio? Ciao  e grazie.
devi ricontrollare i nomi e che siano presenti.
le due funzioni le hai messo in un modulo?
Ciao
Daniele


text:
On 10 Feb, 10:46, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:7a78532f-3068-47a4...@y5g2000hsf.googlegroups.com...

Allora ho ricontrollato e non riesco  a trovare l'errore.
Ho salvato con nome "Modulo 4" il seguente modulo
     'Copyright Stephen Lebans 1999
'May not be resold
'Please include my 1 line Copyright notice
'in your code if you use these functions
'I left a bunch of development code in here in case anyone decides to
go
'down the same paths I did.
'********************************************
'Only USE GetLineNumberForm  and   Serialize
'********************************************
'Stephen Lebans with help from Chris Bergmans
'Production version of GetLineNumberForm
'Works in Form or SubForm mode
'Set controlsource of unbound Text box to
'= GetLineNumberForm([Form])
'Type exactly as above
Function GetLineNumberForm(f As Form)
    Dim rs As Recordset
    Dim frmMain As Form
    Dim frmCur As Form
    Dim strNAME As String
    Dim IsItSubForm As Boolean
    Dim strFName As String
    'is the form referenced in the parameter currently
    'loaded as a SubForm?
    'Check it parent property to find out.
    On Error Resume Next
    strFName =
f.Parent.Name
    IsItSubForm = (Err = 0)
    'Point to our error handler
    On Error GoTo Err_GetLineNumber
    If IsItSubForm Then
        'its a SubForm
        Set frmMain = f.Parent.Form
        strNAME = f.Name
        Set frmCur = frmMain(strNAME).Form
        Set rs = frmCur.RecordsetClone
    Else
        'It's not a SubForm
        Set rs = f.RecordsetClone
        Set frmCur = f
    End If
        ' Find the current record.
        rs.Bookmark = frmCur.Bookmark
        GetLineNumberForm = rs.AbsolutePosition + 1
Bye_GetLineNumber:
       Set rs = Nothing
       Set frmMain = Nothing
       Set frmCur = Nothing
       Exit Function
Err_GetLineNumber:
       Resume Bye_GetLineNumber
End Function
Poi nella maschera "Ricerca Mandati" ho creato una casella di testo
con origine =GetLineNumberForm([Ricerca Mandati])
Il risultato è #Nome?
> devi ricontrollare i nomi e che siano presenti.
Da quello che ho capito l'unico nome da controllare è il nome della
maschera che cmq è giusto.
>
> le due funzioni le hai messo in un modulo?
Sì come detto prima, ma perchè parli di due funzioni?
Grazie per l'aiuto, spero di venirne a capo. Ciao.


text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:8dfd48c0-dd6e-4c82...@d70g2000hsb.googlegroups.com...
> devi ricontrollare i nomi e che siano presenti.
Da quello che ho capito l'unico nome da controllare č il nome della
maschera che cmq č giusto.
>
> le due funzioni le hai messe in un modulo?
Sě come detto prima, ma perchč parli di due funzioni?
perchč hai detto:
-------
Ho inserito nella casella di testo non associato
=GetLineNumber([Form])  in un caso
=GetLineNumber([Form];"IDMandato";[IDMandato]) nel secondo caso
ma nessuno dei due ha funzionato
-------
nel link che ti ho dato ci sono due proposte, avevo capito che il tuo
primo caso poteva riferirsi alla funzione di Lebans.
mentre il secondo si riferisce alla funzione di Microsoft.
anche a me la funzione di Lebans da #Nome, non so perchč.
prova con l'altra, che ho sempre usato e funziona.
mettendo =GetLineNumber([Form];"IDMandato";[IDMandato])
nell'origine controllo della casella di testo.
Ciao
Daniele


text:
On 10 Feb, 14:25, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:8dfd48c0-dd6e-4c82...@d70g2000hsb.googlegroups.com...
>
> > devi ricontrollare i nomi e che siano presenti.
>
> Da quello che ho capito l'unico nome da controllare è il nome della
> maschera che cmq è giusto.
>
>
>
> > le due funzioni le hai messe in un modulo?
>
> Sì come detto prima, ma perchè parli di due funzioni?
>
> perchè hai detto:
> -------
> Ho inserito nella casella di testo non associato
> =GetLineNumber([Form])  in un caso
> =GetLineNumber([Form];"IDMandato";[IDMandato]) nel secondo caso
> ma nessuno dei due ha funzionato
> -------
> nel link che ti ho dato ci sono due proposte, avevo capito che il tuo
> primo caso poteva riferirsi alla funzione di Lebans.
> mentre il secondo si riferisce alla funzione di Microsoft.
> anche a me la funzione di Lebans da #Nome, non so perchè.
>
> prova con l'altra, che ho sempre usato e funziona.
> mettendo =GetLineNumber([Form];"IDMandato";[IDMandato])
> nell'origine controllo della casella di testo.
>
> Ciao
> Daniele
Daniele io ti ringrazio tanto per la disponibilità, ma ho provato
anche quella di Microsoft ma niente.
Ho sostituito nel Modulo 4 la il testo della 2a funzione, ho impostato
la casella di testo non associata di un'altra maschera mettendo
=GetLineNumberForm([Ricerca Fatture Quietanze];"ID";[ID])
Nella tabella il campo ID è contatore mentre il numero fatture lo
assegna il campo NFattura che è di tipo testo è che all'inizio del
nuovo anno ricomincia la numerazione. Il campo ID nella maschera dove
voglio numerare i record non c'era, l'ho messo impostando NO su
visibile, ma la casella associata continua a darmi #Nome?
Ci sarà pure da qualche parte l'errore. La maschera ha origine da una
query che include ovviamente il campo contatore ID.
Scusami l'insistenza ma le sto provando tutte. Grazie ancora. Ciao.


text:
"Giuseppe" <
gcard...@tin.it
> ha scritto nel messaggio
news:f71a5ff9-f5ef-468c...@e10g2000prf.googlegroups.com...
On 10 Feb, 14:25, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel
> messaggionews:8dfd48c0-dd6e-4c82...@d70g2000hsb.googlegroups.com...
Daniele io ti ringrazio tanto per la disponibilità, ma ho provato
anche quella di Microsoft ma niente.
Ho sostituito nel Modulo 4 la il testo della 2a funzione, ho impostato
la casella di testo non associata di un'altra maschera mettendo
=GetLineNumberForm([Ricerca Fatture Quietanze];"ID";[ID])
Ciao Giuseppe
in questa funzione non serve il nome maschera ma quello dell'ID.
=GetLineNumber([Form];"IDCliente";[IDCliente])
a questa riga sostituisci IDCliente con il tuo ID e riprova.
Ciao
Daniele


author: geppo

text:


Richiamala cosi:
 =GetLineNumberForm(forms![Ricerca Mandati])
> Il risultato è #Nome?
>
>> devi ricontrollare i nomi e che siano presenti.
> Da quello che ho capito l'unico nome da controllare è il nome della
> maschera che cmq è giusto.
>
>>
>> le due funzioni le hai messo in un modulo?
> Sì come detto prima, ma perchè parli di due funzioni?
> Grazie per l'aiuto, spero di venirne a capo. Ciao.
--
Ciao
Geppo


text:
"geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:GLGrj.242574$%k.37...@twister2.libero.it...
>
>
>
>> Poi nella maschera "Ricerca Mandati" ho creato una casella di testo
>
>
>
> Richiamala cosi:
>
> =GetLineNumberForm(forms![Ricerca Mandati])
>
> Ciao
> Geppo
Ciao Geppo
funziona
Daniele
ps. non prendertela, taglia un po di testo nelle risposte. :-)


text:

Di solito lo faccio, come si puo' vedere anche in altri post, in questo mi è
sfuggito. :-)
--
Ciao
Geppo


text:
On 10 Feb, 18:22, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Giuseppe" <
gcardas...@tin.it
> ha scritto nel messaggionews:f71a5ff9-f5ef-468c...@e10g2000prf.googlegroups.com...

Allora Daniele con quest'ultima modifica il risultato non è più #nome?
ma uno zero che si ripete per tutti i record.
Forse c'è qualcos'altro da fare?
Ciao.


text:
Ciao Giuseppe wrote:
---cut--
> Allora Daniele con quest'ultima modifica il risultato non è più #nome?
> ma uno zero che si ripete per tutti i record.
> Forse c'è qualcos'altro da fare?
> Ciao.
In che modo la richiami la funzione?
Richiamala cosi:
=getlinenumber (Forms![NomeTuaForms], "id","[id]")
--
Ciao
Geppo


text:

Scusate tutti. Non considerate il mio ultimo post.
Quando sono andato per richiamare il controllo non associato, seguendo
l'ultimo consiglio di Geppo (che ringrazio insieme a tutti gli altri
che mi hanno permesso di ottenere il risultato) ho trovato che la
maschera funzionava.
Bisognava forse chiudera e riaprirla.
Ciao.


title: Consiglio su file mdw

author: Xymox

text:
Ho un dubbio su dove posizionare il file mdw.
In azienda ho un discreto numero di utenti che utilizzano i programmi che ho
fatto in Access.
Il FE è installato sul PC locale e i vari BE + mdw nel server.
Ho sempre pensato che fosse la strada giusta, in quanto quando modifico il
file mdw (eventuali nuovi utenti o gruppi) tutti i PC sono automaticamente
ok.
Parlando con Roberto in un 3ad vecchio ho capito che la strada che ho scelto
non è probabilmente quella giusta, cioè dovrei mettere in locale il file
mdw.
Ho fatto un programma in vb6 che aggiorna tutti i vari prog. di Access in
automatico sul PC locale, quindi non avrei problemi ad aggiungerci anche il
file mdw.
Voi dove sistemate questo file ?
Pro e contro delle due strade ?
grazie 1000 per gli eventuali suggerimenti.
--
ciao MarcoS
www.marcosanti.it


title: Consiglio su file mdw

author: Carlo Costarella

text:
"Xymox" <
guarda...@libero.it
> ha scritto nel messaggio
news:b9ahcd$gtrgc$1...@ID-122915.news.dfncis.de...

Sicuramente in Windows/System o System32.
In alternativa, usando un'altra cartella,  va modificata anche la chiave del
registro SystemDB.
Ciao, Carlo


title: Consiglio su file mdw

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto
> Sicuramente in Windows/System o System32.
> In alternativa, usando un'altra cartella,  va modificata anche la chiave
del
> registro SystemDB.
Scusa, ma non ho specificato una cosa importante, tutti i programmi su i PC
sono installati con la versione runtime.
Quindi inserisco questa stringa:
"C:\Programmi\Microsoft Office\Office\Msaccess.exe"
C:\prog\access\Lay_98.mdb /Wrkgrp c:\prog\database\zecc.mdw
Il mio dubbio č solo se mettere il file in oggetto in locale o in rete,
esempio:
c:\prog\database\zecc.mdw
\\tnt\prog\database\zecc.mdw
grazie
ciao Marco S.


title: Consiglio su file mdw

text:
"Xymox" <
guarda...@libero.it
> ha scritto nel messaggio
news:b9ahvg$h2jf0$1...@ID-122915.news.dfncis.de...

Non so consigliarti perchč non ho mai usato un System.mdw in rete ma sempre
in locale.
Ovviamente perchč ho sempre previsto forme alternative di sicurezza (OCX
autocostruito).
Se non hai problemi di sicurezza quando installi il pacchetto (db in forma
mde) potresti usare un mdw per ogni macchina.
Comunque dalla stringa che hai postato manca l'opzione /RunTime.
Ciao, Carlo


title: Consiglio su file mdw

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto
> Comunque dalla stringa che hai postato manca l'opzione /RunTime.
>
Hai ragione, ho copiato la stringa dal mio PC dove non uso la runtime :-)
grazie
ciao Marco S.


title: problema nella sintassi di DLOOKUP

text:
salve a tutti...
ho creato una maschera con i campi ORDINE, CLIENTE, AGENTI.
"Cliente" viene presa dalla tabella anagrafica CLIENTI che contiene un
archivio di CLIENTE e AGENTI, ogni cliente ha un agente diverso. Il mio
problema è fare in modo che nella maschera degli ordini, nel momento
in cui inserirò un cliente, mi esca in automatico nel campo AGENTI
l'agente corrispondente che avrò già inserito nella tabella.
anagrafica CLIENTE .
per arrivare a questo ho utilizzato la funzione DLOOKUP in questo modo
nella maschera ordini
Private Sub Cliente_AfterUpdate()
Me!Agente = DLookup("[Agente]", "Clienti", "Cliente")
End Sub
ma quando vado a inserire il nome del cliente mi restituisce su AGENTE
solo il primo agente della prima riga anche inserendo i clienti
successivi....
come posso sistemare quest'errore? grazie mille


title: problema nella sintassi di DLOOKUP

author: Cinzia

text:
<
in...@consualsrl.com
> ha scritto nel messaggio
news:1154355758....@m79g2000cwm.googlegroups.com...




Ciao
in...@consualsrl.com
devi impostare correttamente la condizione 3° parametro della Dlookup, prova
così  .... sempre ovviamente che tu abbia un campo idCliente.
Private Sub Cliente_AfterUpdate()
    Me!Agente = DLookup("[Agente]", "Clienti", "IDCliente=" & me.IDCliente)
End Sub
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


title: problema nella sintassi di DLOOKUP

text:
Cinzia ha scritto:

a cosa mi serve IDCLIENTE ? come lo devo impostare?


title: problema nella sintassi di DLOOKUP

text:
<
in...@consualsrl.com
> ha scritto nel messaggio
news:1154364831.1...@p79g2000cwp.googlegroups.com...
Cinzia ha scritto:


IDCliente solitamente è un campo di tipo contatore, che serve per
identificare in modo univoco un cliente, di solito il nome del cliente non è
granzia di univocità e può succedere che tu abbia due clienti con lo stesso
nome, per essere sicura che stai prendendo l'Agente del cliente corretto si
usa IDCliente invece di Cliente.
IDCliente è solo un nome potrebbe anche essere CodiceCliente dipende da come
hai impostato la tua tabella Clienti.
Ciao



title: problema nella sintassi di DLOOKUP

text:
Cinzia ha scritto:

provato con il tuo metodo, inserendo ID CLIENTE (come contatore) , ma
mi da un errore di compilazione " impossibile trovare il metodo o il
membro dei dati"  ..


title: problema nella sintassi di DLOOKUP

author: Tiju

text:
in...@consualsrl.com
 ha scritto:

ok...ci sto arrivando da sola piano piano ma non capisco come faccio a
fare in modo che IDCLIENTE sia univoco sia su CLIENTI che su ORDINI se
non inserendolo a mano...


title: problema nella sintassi di DLOOKUP

author: cidi

text:
"Tiju" <
in...@consualsrl.com
> ha scritto nel messaggio
news:1154422708.8...@i42g2000cwa.googlegroups.com...
> provato con il tuo metodo, inserendo ID CLIENTE (come contatore) , ma
> mi da un errore di compilazione " impossibile trovare il metodo o il
> membro dei dati"  ..
ok...ci sto arrivando da sola piano piano ma non capisco come faccio a
fare in modo che IDCLIENTE sia univoco sia su CLIENTI che su ORDINI se
non inserendolo a mano...
Non credo che sia un buon metodo.
puoi farti un'idea guardando la struttura del database di esempio che trovi
in ogni copia
di Office: Northwind.
Ciao, Daniele


title: problema nella sintassi di DLOOKUP

text:
cidi ha scritto:

quel database mi ha confuso ancora di più le idee :-(


title: problema nella sintassi di DLOOKUP

text:
"Tiju" <
in...@consualsrl.com
> ha scritto nel messaggio
news:1154424962.4...@s13g2000cwa.googlegroups.com...
cidi ha scritto:


mi dispiace.....per altri è stato una base molto valida.
Ti ricrederai tra qualche tempo.....   :)
Daniele


title: problema nella sintassi di DLOOKUP

text:

>
> provato con il tuo metodo, inserendo ID CLIENTE (come contatore) , ma
> mi da un errore di compilazione " impossibile trovare il metodo o il
> membro dei dati"  ..
ok...ci sto arrivando da sola piano piano ma non capisco come faccio a
fare in modo che IDCLIENTE sia univoco sia su CLIENTI che su ORDINI se
non inserendolo a mano...
No, attenzione su ordini non deve essere univoco,  è univoco solo su Clienti
Nella tabella Clienti avrai un ID Univoco per ogni Cliente generato in
auomatico da Access.
In Ordini se lo stesso cliente ha fatto più ordini l'IDCliente può essere
ripetuto, dicesi relazione 1 a molti
1 Cliente molti Ordini ( si spera :-)



title: problema nella sintassi di DLOOKUP

text:
Cinzia ha scritto:

purtroppo per me di ordini ce ne sono fin troppi...a me non cambia
nulla apparte la mole di lavoro :-P
quello che intendevo è che non trovo un modo per far si che ID CLIENTE
appaia nello stesso modo e con gli stessi id su ordini...


title: problema nella sintassi di DLOOKUP

text:
"Tiju" <
in...@consualsrl.com
> ha scritto nel messaggio
news:1154434180.3...@b28g2000cwb.googlegroups.com...
Cinzia ha scritto:

purtroppo per me di ordini ce ne sono fin troppi...a me non cambia
nulla apparte la mole di lavoro :-P
ahi, ahi  non pensi che cambierebbe qualcosa se gli ordini fossero tendenti
a zero? :-)
quello che intendevo è che non trovo un modo per far si che ID CLIENTE
appaia nello stesso modo e con gli stessi id su ordini...
Fammi capire,  nella tua maschera ordini attualmente il Cliente lo scegli da
una casella combinata o lo inserisci manualmente? se lo scegli da una
casella combinata allora basta che aggiungi l'IDCliente alla query di
origine della casella combinata e che associ al campo anzichè il Nome del
cliente il suo ID



title: problema nella sintassi di DLOOKUP

text:
Cinzia ha scritto:

sono riuscita a risolvere così :
Me!Agente = DLookup("[Agente]", "Clienti", "Cliente=" & _
Chr$(34) & Me!Cliente & Chr$(34))
e funziona benissimo!


title: problema nella sintassi di DLOOKUP

text:
"Tiju" <
in...@consualsrl.com
> ha scritto nel messaggio
news:1154504633.9...@m79g2000cwm.googlegroups.com...
Cinzia ha scritto:

sono riuscita a risolvere così :
Me!Agente = DLookup("[Agente]", "Clienti", "Cliente=" & _
Chr$(34) & Me!Cliente & Chr$(34))
e funziona benissimo!
Non ho dubbi, solo che il giorno in cui il Cliente Pinco Pallino ti dirà che
il suo nome non è Pinco Pallino ma Pinco Pallino & Figli non ti basterà
cambiarlo nella sola tabella Clienti ma dovrai cambiarlo anche in tutta la
tabella Ordini...  e se hai due clienti che si chiamano entrambi Pinco
Pallino, come fai ad essere sicura che l'agente recuperato dalla Dlookup sia
quello del cliente giusto? ....  comunque se ti sta bene così procedi
pure.....



title: problema nella sintassi di DLOOKUP

text:
Cinzia ha scritto:

non ho capito perchè...una volta che i dati sono memorizzati in quel
controllo non rimangono così? il giorno che TOPOLINO si chiamerà
TOPOLINA tutti i TOPOLINI antecedenti cambieranno? scusami mi sono un
po' confusa..


title: problema nella sintassi di DLOOKUP

text:
> >
>
>
> sono riuscita a risolvere cosě :
> Me!Agente = DLookup("[Agente]", "Clienti", "Cliente=" & _
> Chr$(34) & Me!Cliente & Chr$(34))
>
>
> e funziona benissimo!
>
>
> Non ho dubbi, solo che il giorno in cui il Cliente Pinco Pallino ti dirŕ
che
> il suo nome non č Pinco Pallino ma Pinco Pallino & Figli non ti basterŕ
> cambiarlo nella sola tabella Clienti ma dovrai cambiarlo anche in tutta la
> tabella Ordini...  e se hai due clienti che si chiamano entrambi Pinco
> Pallino, come fai ad essere sicura che l'agente recuperato dalla Dlookup
sia
> quello del cliente giusto? ....  comunque se ti sta bene cosě procedi
> pure.....
>
non ho capito perchč...una volta che i dati sono memorizzati in quel
controllo non rimangono cosě? il giorno che TOPOLINO si chiamerŕ
TOPOLINA tutti i TOPOLINI antecedenti cambieranno? scusami mi sono un
po' confusa..
Dipende da come sono fatte le tue tabelle e dal tipo di relazione che hai
impostato tra di  loro, se nella tua Tabella Ordini c'č il nome del Cliente
e non il suo ID univoco allora se TOPOLINO diventa TOPOLINA nella tabella
Clienti  č molto probabile che nella Tabella Ordini TOPOLINO rimanga
TOPOLINO.
Che relazione hai tra la tabelle Clienti e la tabella Ordini?
Mi sa che l'unico modo per vedere cosa succede č provare e se funziona come
dici tu, potrebbe essere che hai impostato una relazione tra i campi
NomeCliente della tabella Cliente e il campo NomeCliente nella tabella
Ordini ma in questo caso andrai incontro a problemi non appena avrai 2
clienti con lo stesso nome.
Ciao



title: esportare in xml

author: Ivan

text:
Salve a tutti
devo (con access 2003)  da codice esportare i dati da 1 tabella di testata e
da 1 tabella di dettaglio righe in 1 file xml. Nel file xml deve essere
specificata la tabella alla quale appartengono i dati (prima la testata e
poi il dettaglio).
Mi sapete aiutare ?
Grazie.


title: esportare in xml

author: vtt

text:
"Ivan" <
bell_...@tin.it
> ha scritto nel messaggio
news:FSe6e.1210284$35.44...@news4.tin.it...

Rispondo per sola volontà di aiuto anche se non so nulla di xml.
Mi perdonerai se dico eresie.
Gozzovigliando con il codice sono riuscito, con molta semplicità, a salvare
recordset, da tabelle o da più complesse query sql, in un file xml
utilizzando il metodo save dell'oggetto adodb.recordset (di cui serve la
library installata)
dim rst as new adodb.recordset
dim strSql as string, strFile as string
strSql = "select bla bla bla...."
strFile= "percorso/nomefile.xml"
rst.open strSql, curretproject.connection,,, adcmtext
rst.save strFile, adPersistXml
probabilmente la risposta al tuo problema sta nella creazione di una query
che contenga il corretto riferimento alle due tabelle, ma forse cerchi
qualcosa di più avanzato...
esiste anche il procedimento contrario: la creazione di un recordset da file
xml che, ovviamente, utilizza il metodo open:
dim rst as new adodb.recordset
dim strFile as string
strFile= "percorso/nomefile.xml"
rst.cursorlocation = aduserclient
rst.open strFile, "Provider=MSPersist"
rst.save strFile, adPersistXml
Ciò che potevo condividere è tutto qua...
In bocca al lupo.
Ho scritto il codice a mano, spero di non avere commesso errori.
vtt


title: richiamare form diversa in base alla risoluzione video

author: tmtube

text:
c'è un modo di verificare la risoluzione attuale anche in windows 8 e sulla
base della risoluzione in uso
caricare una form o l'altra che saranno adattate a quella risoluzione?

grazie.


text:
Private Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Const SM_CXSCREEN = 0 'X Size of screen
Const SM_CYSCREEN = 1 'Y Size of Screen

ActResX = GetSystemMetrics32(SM_CXSCREEN)
ActResY = GetSystemMetrics32(SM_CYSCREEN)

Ciao
@Alex


text:
"@Alex"  ha scritto nel messaggio
news:b2c32b4f-e59e-498b...@googlegroups.com...

grazie mille, un altra domanda :
siccome ho fatto 2 versione front end normale e HD per risoluzione 1920x1080
pixel (non so se ho fatto bene)
in termini di prestazioni ha senso creare un terzo db che legga la
risoluzione e in base a quello faccia partire uno o l'altro front end?

grazie.


text:
La soluzione che hai adottato è, a mio avviso la più pulita, nonostante io abbia realizzato un Demo per il RESIZE AUTOMATICO con il cambio Risoluzione, non lo userei mai in un'applicazione professionale.

Ho peraltro usato la soluzione di un'applicativo sviluppato in VB6(quindi un EXE sul quale poi ho fatto l'icona per il Link di lancio) che fa il lavoro sporco in BackGround... legge la Risoluzione ed apre il FE relativo.

Ritengo che in questo modo si possano ottimizzare fuinzionalità e codice.

@Alex


text:
>"@Alex"  ha scritto nel messaggio
>news:6ba43490-67cd-4d55...@googlegroups.com...

grazie.


title: Etichette da Access

author: AM

text:
Buon giorno al NG.
Vi chiedo una piccola info.
Ho necessità di stampare delle etichette che si originano da un report di
Access.
Non "posso" passare per la stampa unione di Word.
Vorrei mettere un pulsante su un pannello di controllo del DB che mi mandi
in stampa il report (o la tabella) sotto forma di etichette.
Tenete conto che non conosco VB e quindi non so scrivere del codice da far
eseguire da una macro.
Grazie per il gentile aiuto
Andrea


title: Etichette da Access

author: Luca Sack

text:
"AM" <
andre...@tin.it
> ha scritto nel messaggio
news:wSG5a.215022$0v.60...@news1.tin.it...

Ciao Andrea,
usa l'autocomposizione etichette di un report e vedrai che sarà facile.
Bye, bye, Luca.


title: Etichette da Access

text:
Grazie...ci provo
Ciao
"Luca Sack" <
luca...@libero.it
> ha scritto nel messaggio
news:u7I5a.291790$AA2.11...@news2.tin.it...



title: annullare la sub in caso di numero record uguale a zero

author: Nicola

text:
ciao a tutti,
ho una maschera che contiene vari pulsanti che filtrano dei dati in base
a dei parametri, alcune volte capita che a seguito del filtro, i record
siano zero e quindi va in errore...
come posso fare un controllo prima che la sub del filtro venga attivata e
che in caso di zero record mi appaia un messaggio e torni al punto
precedente??
grazie 1000
Nicola


author: ciroteo

text:
"Nicola" <
nik...@tiscalinet.it
> ha scritto nel messaggio
news:pan.2005.03.21....@tiscalinet.it...

fai prima un dcount del filtro e in caso di risultato uguale a zero annulli
l'operazione.


text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d1mj47$vir$1...@hulme.interac.it...

Dim cerca As String
Dim stringadiricerca As String
cerca = InputBox("Ricerca Cognome", "Cognome?")
stringadiricerca = "[cognome] like " & Chr(34) & "*" & cerca & "*" & Chr(34)
Dim conteg As Integer
conteg = DCount("[cognome]", "elenco", stringadiricerca)
Me.RecordSource = "select * from elenco order by cognome,nome;"
If conteg > 0 Then
Me.FilterOn = True
Me.Filter = stringadiricerca
Else
MsgBox ("Errore non ci sono persone con il cognome: " & cerca)
End If
End Sub


title: Aprire un file

author: Enrico Cannoni

text:
Se da utilizzo il seguente codice riesco ad aprire senza problemi il file
Shell("e:\programmi\Jasc Software Inc\Paint Shop Pro 7\psp.exe
C:\Win98\Desktop\Black.jpg")
Se però cerco di sostituire il percorso del
file da aprire con una variabile non funziona
Shell("e:\programmi\Jasc
Software Inc\Paint Shop Pro 7\psp.exe prova")
prova è il nome della
variabile String o Variant
Grazie Enrico
--------------------------------
Inviato via
http://usenet.iol.it


title: Aprire un file

author: Bonaldi Stefano

text:
"Enrico Cannoni" <
mal...@libero.it
> ha scritto nel messaggio
news:151Z20Z95Z44Y9...@usenet.iol.it...
> Se da utilizzo il seguente codice riesco ad aprire senza problemi il file
> Shell("e:\programmi\Jasc Software Inc\Paint Shop Pro 7\psp.exe
> C:\Win98\Desktop\Black.jpg")
>
> Se perň cerco di sostituire il percorso del
> file da aprire con una variabile non funziona
> Shell("e:\programmi\Jasc
> Software Inc\Paint Shop Pro 7\psp.exe prova")
> prova č il nome della
> variabile String o Variant
>
> Grazie Enrico
> --------------------------------
> Inviato via
http://usenet.iol.it
>
La sintassi corretta č:
 Shell("e:\programmi\Jasc Software Inc\Paint Shop Pro 7\psp.exe " & prova)
Ciao
Stefano


title: Aprire un file

author: Roberto da casa

text:
"Enrico Cannoni" <
mal...@libero.it
> ha scritto nel messaggio
news:151Z20Z95Z44Y9...@usenet.iol.it...

Prova con:
Shell ("e:\programmi\Jasc Software Inc\Paint Shop Pro 7\psp.exe " & Chr$(34)
& prova & Chr$(34))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: message box non visibile

author: hAPpy

text:
Buona domenica a tutti,
torno ad approfittare della vostra bont� per un quesito forse banale:
Access 2003.
La maschera iniziale � a tutta pagina in modalit� popup (e mi rendo conto
che qui sta il busillis);
- su if chiamo l'apertura del message box che funziona regolarmente;
- passo il file sul portatile che monta vista e access (Office) 2003 e il
message box si piazza sotto bloccando tutto finch� non faccio alt+tab.
Ci sar� qualcosa da settare o debbo rinunciare al popup della form iniziale?
Ancora Mgrazie, Antonio


title: controlli 'espandibili' nei report

author: Marco Dell'Oste

text:
Ciao a tutti...
Ho un problema che riguarda un report.
In questo report ho un 'campo' con la proprietà espandibile posta a si (e
fin qui funziona tutto bene, infatti nel caso il testo superi una certa
lunghezza il campo si 'allunga').
Come sfondo per tutta la larghezza del report ho inserito un rettangolo con
sfondo grigio, e lo faccio apparire un record si ed uno no in modo da
rendere + leggibile il tutto, ed ai lati ho inserito delle barre verticali
che delimitano il report (e taluni campi dei record stessi)
La domanda è questa: come posso fare affinche il RETTANGOLO e le BARRE
seguano l'altezza del campo che si 'espande'??
Ho provato ad assegnare nell'evento 'su formatazione' al rettangolo ed alla
barra, l'altezza del 'campo espanso', ma il tutto senza esito.
Ho anche cercato sul sito-comune ma non mi sembra di aver visto niente che
tratasse tale cosa..
Ciauzz  e grazie
Marco


title: controlli 'espandibili' nei report

author: MarcoMac

text:
"Marco Dell'Oste" <
c...@cl.cl
> ha scritto nel messaggio
news:LzICc.16791$GQ3.4...@twister2.libero.it...

Poui provare a fare una cosa del genere: dopo che la casella di testo si è
allargata, da codice ti vai a leggere la sua lunghezza (o altezza) e la
applichi alle barre ed al rettangolo.
Ciao
MarcoMac


title: controlli 'espandibili' nei report

text:
> >
>
> Poui provare a fare una cosa del genere: dopo che la casella di testo si è
> allargata, da codice ti vai a leggere la sua lunghezza (o altezza) e la
> applichi alle barre ed al rettangolo.
> Ciao
> MarcoMac
>
>
Ho provato, ma da sempre l'altezza pre-impostata nelle proprietà


title: controlli 'espandibili' nei report

author: S. Savoldi

text:
"Marco Dell'Oste" <
> Ciao a tutti...
> Ho un problema che riguarda un report.
> In questo report ho un 'campo' con la proprietà espandibile posta a si (e
> fin qui funziona tutto bene, infatti nel caso il testo superi una certa
> lunghezza il campo si 'allunga').
> Come sfondo per tutta la larghezza del report ho inserito un rettangolo
con
> sfondo grigio, e lo faccio apparire un record si ed uno no in modo da
> rendere + leggibile il tutto, ed ai lati ho inserito delle barre verticali
> che delimitano il report (e taluni campi dei record stessi)
> La domanda è questa: come posso fare affinche il RETTANGOLO e le BARRE
> seguano l'altezza del campo che si 'espande'??
> Ho provato ad assegnare nell'evento 'su formatazione' al rettangolo ed
alla
> barra, l'altezza del 'campo espanso', ma il tutto senza esito.
Quando assegni il <controllo>.Height  utilizza l'evento "Su stampa"
Saluti.


title: controlli 'espandibili' nei report

text:
>
> Quando assegni il <controllo>.Height  utilizza l'evento "Su stampa"
>
> Saluti.
Grazie, domani o lunedi provo il tutto e ti faccio sapere!!
Ciauzz
Marco


title: controlli 'espandibili' nei report

text:
> > Quando assegni il <controllo>.Height  utilizza l'evento "Su stampa"
Niente!!!
Mi da errore a farlo su evento stampa!!
Mi dice che su stampa non si può modificare l'opzione altezza..
Sighhhh
HELP
Marco


title: controlli 'espandibili' nei report

text:
"Marco Dell'Oste
> Niente!!!
> Mi da errore a farlo su evento stampa!!
>
> Mi dice che su stampa non si può modificare l'opzione altezza..
 Su evento "stampa" puoi usare la funzione "Line" di Access e tracciare un
rettangolo la cui altezza corrisponda a <TuoControllo>.Height.
Ciao: Silvio


title: controlli 'espandibili' nei report

text:
>  Su evento "stampa" puoi usare la funzione "Line" di Access e tracciare un
> rettangolo la cui altezza corrisponda a <TuoControllo>.Height.
ARRigrazie, domani riprovo ad aplicarlo alle linee,
ma per il rettangolo di sfondo??  come faccio a fare in modo che questo si
espanda verticalmente in base alla dimensione del controllo 'espandibile??
Infatti questo sfondo è visibile un record si ed uno no per tutta la
larghezza del report, e nel qual caso capiti di essere visibile proprio
laddove il controllo si è 'espanso', non diventa bello da vedere una barra
grigia con un pezzo di testo di un controllo dentro in essa, ed il resto
fuoriuscire nello sfondo bianco...
Ma l'evento 'su riesame', mi sembrava di capire che potesse servire a
questo, ma non sono stato in grado di utilizzarlo...
ARRICIAO
>
> Ciao: Silvio
>
>
>
Marco


title: controlli 'espandibili' nei report

text:

Niente su tutta la linea... continua a darmi errore ed a dirmi che su stampa
non posso modificare l'altezzadi niente..
:(((((((
a proposito il mio SO è  W2K con A97
Non so più dove sbattere la testa....     µò||
Marco


title: controlli 'espandibili' nei report

text:
"Marco
>
> Niente su tutta la linea... continua a darmi errore ed a dirmi che su
stampa
> non posso modificare l'altezzadi niente..
Non devi modificare l'altezza di nulla, devi semplicemente tracciare un box
(a cui puoi assegnare un colore di sfondo) usando <Line> e tenendo conto del
<Controllo>.heigth


title: controlli 'espandibili' nei report

text:
> Non devi modificare l'altezza di nulla, devi semplicemente tracciare un
box
> (a cui puoi assegnare un colore di sfondo) usando <Line> e tenendo conto
del
> <Controllo>.heigth
Cacchio ce ne ho messo a capirlo!!!  ;))
Calcolando la quantita di barre + rettangolo inserite nel report diventa un
lavoro piuttosto macchinoso, ma FUNZIONA!!! e questo è l'importante!!!
Ciao e grazie per l'aiuto!!!
Marco


title: Per Roberto da casa

author: Gianluca

text:
Per intanto, non ti ho mai chiesto come stai ma spero tutto ok!     : )
Mi spieghi solo come faccio a fare ad A97 questo:
avendo una listbox con tre colonne
un ciclo di questo tipo, scritto però in italiano:
With me!nomelistbox
    For each record (in colonna 2) In me!nomelistbox
        ...controlli ed attività vari...
    Next record
End With
Non mi riesce di metterlo in VBA!!!!!
Grazie e scusa per il disturbo diretto
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------


title: Per Roberto da casa

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:sLXY8.55482$K_4.1...@twister1.libero.it...
> Per intanto, non ti ho mai chiesto come stai ma spero tutto ok!     : )
>
> Mi spieghi solo come faccio a fare ad A97 questo:
Abbasta bene, grazie: diciamo che mi contento :-)
> avendo una listbox con tre colonne
> un ciclo di questo tipo, scritto però in italiano:
>
> With me!nomelistbox
>     For each record (in colonna 2) In me!nomelistbox
>         ...controlli ed attività vari...
>     Next record
> End With
>
> Non mi riesce di metterlo in VBA!!!!!
>
> Grazie e scusa per il disturbo diretto
>
Se ad esempio hai una casella di riepilogo che si chiama Elenco e vuoi
sommare in una variabile di nome Pluto i valori della seconda colonna (
ovvero Column(1) ) di tutte le righe della casella di riepilogo, prova a
generare questo codice VBA:
Dim varItem As Variant
Dim Cont As Integer
Dim Cont1 As Integer
Dim Pluto As Integer
Pluto = 0
For Cont = 0 To Me!Elenco.ListCount - 1
    Me!Elenco.Selected(Cont) = True
Next Cont
For Each varItem In Me!Elenco.ItemsSelected
    Pluto = Pluto + Me!Elenco.Column(1, varItem)
Next varItem
For Cont1 = 0 To Me!Elenco.ListCount - 1
    Me!Elenco.Selected(Cont1) = False
Next Cont1
Affinché ti funzioni occorre che imposti ad Estesa la proprietà della
Selezione multipla della casella di riepilogo.
Però è abbastanza inusuale scorrere TUTTE le righe di una casella di
riepilogo, di solito si prendono in considerazione solamente quelle
selezionate, tanto è vero che prima di iniziare a scorrere le righe le ho
dovute selezionare tutte e dopo deselezionarle tutte.
Se devi scorrere tutte le righe, a mio parere, è molto più funzionale aprire
un recordset sull'oggetto che è origine riga della casella di riepilogo ed
operare sui sui campi; insomma, se come origine record record della casella
di riepilogo, hai una query chiamata Query1 che contiene il campo da sommare
Campo2, per fare la stessa cosa avresti  potuto scrivere:
Dim rst As Recordset
Dim Pluto As Integer
Set rst = CurrentDB.OpenRecordset("Query1")
rst.MoveFirst
Do Until rst.EOF
    Pluto = Pluto + rst!Campo2
Loop
Set rst = Nothing
Opure usare le funzione di aggregazione sui dominii, e nel caso specifico:
Pluto = DSum("Campo2", "Query1")
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Per Roberto da casa

text:
Maronna!!! Altre soluzioni non le avevi????
Grazie 1000+!


title: Per Roberto da casa

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:_O9Z8.58153$K_4.1...@twister1.libero.it...
[CUT]
Ho inutilmente complicato le cose, bastava:
Dim Cont As Integer
Dim Pluto As Integer
Pluto = 0
For Cont = 0 To Me!Elenco.ListCount - 1
    Pluto = Pluto + Me!Elenco.Column(1, Cont)
Next Cont



title: Per Roberto da casa

author: Antonio Biso

text:
"Gianluca" <
NO_SPAMvu...@libero.it
> ha scritto nel messaggio
news:6GuZ8.62357$K_4.1...@twister1.libero.it...
> Maronna!!! Altre soluzioni non le avevi????
>
> Grazie 1000+!
>
>
Lascia una parte del messaggio a cui stai rispondendo, scrivendo dopo di
esso
Antonio


title: [semi off topic] concatenare SQL stuff

author: Ammammata

text:
per riempire un campo di un report eseguo tre distinte query che
recuperano, per la consegna in stampa, i numeri degli ordini di
vendita, quelli dei relativi ordini di acquisto e quelli degli ordini
di riferimento per il cliente

una cosa così, nota che il 4416 viene sostituito dalla variabile
Document("DocEntry").ToString :

select distinct
stuff(
(select '/'+cast(b.docnum As varchar(100)) + '-' + cast(year(b.docdate)
as varchar(4))
from dln1 a inner join ordr b on a.baseref = b.docnum
where a.docentry = '4416'
for XML  PATH(''))
,1,1,'') as SalesOrders
from dln1

select distinct
stuff(
(select '/'+isnull(c.U_VP_PO_Ref, b.potrgnum)
from dln1 a inner join rdr1 b on a.baseentry = b.docentry and
a.baseline = b.linenum and a.basetype = 17 inner join opor c On
c.DocNum = b.PoTrgNum
where a.docentry = '4416'
for XML  PATH(''))
,1,1,'') as PurchaseOrders
from dln1

select distinct
stuff(
(select '/('+cast(b.NumAtCard As varchar(100))+')'
from dln1 a inner join ordr b on a.baseref = b.docnum
where a.docentry = '4416'
for XML  PATH(''))
,1,1,'') as ReferenceOrders
from dln1

il risultato sono tre stringhe:

9626-2021/9645-2021/9995-2021

7108/7123/7365

(XYZ/121000948)/(XYZ/121001003)/(XYZ/121002262)

Mi piacerebbe arrivare a generare una sola stringa, innestando le
precedenti query una dentro l'altra :) per avere una cosa così:

9626-2021/7108/(XYZ/121000948) - /9645-2021/7123/(XYZ/121001003) -
/9995-2021/7365/(XYZ/121002262)

si può fare?

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


title: Aiuto col codice

author: iako

text:
Ciao,
ho dei dati all'interno di un campo testo di questa specie:
1076-SUPERMERCATO B.G.B. S.R.L.
I numeri vanno da 2 cifre a 7.
Vorrei ordinarli in ordine crescente per numero ma provando con il
filtro di ordinamento preposto a ciò mi restituisce una lista che non
rispetta questo criterio.
c'è la pox di farglielo fare? forse dovrebbe riconoscere solo il
numero?
Grazie per l'attenzione


title: Aiuto col codice

author: Carlo Costarella

text:
"iako" <
cicc...@libero.it
> ha scritto nel messaggio
news:1116866119.1...@g47g2000cwa.googlegroups.com...
Ciao,
ho dei dati all'interno di un campo testo di questa specie:
1076-SUPERMERCATO B.G.B. S.R.L.
I numeri vanno da 2 cifre a 7.
Vorrei ordinarli in ordine crescente per numero ma provando con il
filtro di ordinamento preposto a ciň mi restituisce una lista che non
rispetta questo criterio.
c'č la pox di farglielo fare? forse dovrebbe riconoscere solo il
numero?
Grazie per l'attenzione
Alla fine del numero c'č sempre un trattino?
Ciao, Carlo


title: Inputbox

author: Cri(P)tico

text:
Salve ragazzi... avete idea di come possa fare per mascherare quanto
digitato in una InputBox in modo che a video siano visibili i classici
********** ?


title: Inputbox

text:
Cri(P)tico <
NO_SPAM_v...@wappi.com
> wrote in message
_YG%7.12029$cU4.3...@twister1.libero.it...
> Salve ragazzi... avete idea di come possa fare per mascherare quanto
> digitato in una InputBox in modo che a video siano visibili i classici
> ********** ?
Metti una casella di testo e poi tra le varie maschere di input selezioni
password
Antonio


title: Autoexec e utenti

author: Tiziano

text:
Ciao  a tutto il NG,
ho controllato nel NG è diverse sono le applicazione
che si possono eseguire...
il mio problema è legare questa particolare
funzione all'utenza,ovvero a seconda dell'utenza nel mio caso far aprire il
DB con maschere diverse...
Mi potete dare una mano?!
grazie Tiziano
--------------------------------
Inviato via
http://usenet.iol.it


title: Autoexec e utenti

author: RoDAgo

text:
"Tiziano"   scrisse...
> Ciao  a tutto il NG,
> ho controllato nel NG è diverse sono le applicazione
> che si possono eseguire...
> il mio problema è legare questa particolare
> funzione all'utenza,ovvero a seconda dell'utenza nel mio caso far aprire
il
> DB con maschere diverse...
> Mi potete dare una mano?!
> grazie Tiziano
Nelle condizione della Autoexec ti puoi gestire l'utente corrente in questo
modo:
CurrentUser()="Admin"
Cià
RoDAgo


title: Autoexec e utenti

text:


>CurrentUser()="Admin"
>Cià
>RoDAgo
ciao
che
dire...interessante ma non so come mettere in pratica il tuo consiglio.
ovvero inizio a scivere una form in cui definisco gli utenti e quali
maschere si visualizzeranno?!
ciao



title: Autoexec e utenti

text:
"Tiziano" :
cut
> ciao
> che
> dire...interessante ma non so come mettere in pratica il tuo consiglio.
> ovvero inizio a scivere una form in cui definisco gli utenti e quali
> maschere si visualizzeranno?!
> ciao
> Tiziano
Se il tuo intento č quello di ottenere delle form startup diverse
dipendentemente dall'utente ti basta creare i vari utenti tramite
strumenti - protezione.
Dopodichč ti crei la tua macro autoexec in questo modo:
(se per esempio i tuoi profili utenti sono --> Marco, Ciccio e Alessia)
nella colonna condizioni:
    CurrentUser()="Marco"
    CurrentUser()="Ciccio"
    CurrentUser()="Alessia"
 e nella corrispondente colonna Azione:
    ApriMaschera (Maschera per Marco <--{Nome Maschera})
    ApriMaschera (Maschera per Ciccio)
    ApriMaschera (Maschera per Alessia)
Cią da
RoDAgo



title: Autoexec e utenti

text:
>Se il tuo intento č quello di ottenere delle form startup diverse
>dipendentemente dall'utente ti basta creare i vari utenti tramite
>strumenti - protezione.
>Dopodichč ti crei la tua macro autoexec in
questo modo:
>(se per esempio i tuoi profili utenti sono --> Marco,
Ciccio e Alessia)
>nella colonna condizioni:
>    CurrentUser()="Marco"
>    CurrentUser()="Ciccio"
>    CurrentUser()="Alessia"
> e nella
corrispondente colonna Azione:
>    ApriMaschera (Maschera per Marco <--
{Nome Maschera})
>    ApriMaschera (Maschera per Ciccio)
>
ApriMaschera (Maschera per Alessia)
>Cią da
>RoDAgo
Ciao proverņ
quanto prima nel frattempo ti ringrazio!!!!
ciao
Tiziano



title: X Roberto: Ci riprovo-Copia maschera con sottomaschera

author: cosos

text:
Grazie per l'aiuto, ma sono troppo indietro (leggi ignorante) e non so
progrmmare, potresti rendermi un esempio in codice per capire meglio quello
che per  te č cosě elementare?
Inoltre la mia sottomaschera contiene molti dati legati alla prima
(collegamento molti a uno).
Grazie per la pazienza
COSOS
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:4I_K6.7175$RX4.5...@news.infostrada.it...
>
> "cosos" <
co...@nopay.it
> ha scritto nel messaggio
> news:9dhptm$uqu$1...@nreadA.inwind.it...
> > Scusate ancora, sapete dirmi come faccio a copiare tutte le informazioni
> > (report) contenuti in una maschera con sottomaschera :
> >
>
> Do per scontato che le due tabelle che sono origine record della maschera
e
> della sottomaschera siano tra di loro in relazione uno-a-molti.
>
> > 1) nella stessa tabella
>
> Devi aprirti  4 recordset:
> 1) il primo recordset deve essere clone del recorset della maschera
> principale e dal quale ricecherai (metodo FindFirst) e leggerai i dati del
> record corrente della maschera principale; i reord qui letto lo
registrerai
> nel recordset di cui il punto 3).
> 2) il secondo recordset deve essere clone del recordset della
sottomaschera
> e dal quale ricercherai i record legati al record corrente della maschera
> principale; i record letti in questo recordset li registrerai nel
recordset
> di cui il punto 4).
> 3) il terzo recordset deve essere clone del recordset della maschera
> principale; in questo recordset registrerai le informazioni lette dal
> recordset di cui il punto 1); abbi l'accortezza, dopo aver registrato un
> record in questo recordset, di memorizzartene la chiave primaria in una
> variabile.
> 4) il quarto recordset deve essere clone del recordset della
sottomaschera;
> ci registrerai i dati letti dal recordset di cui al punto 2) e come chiave
> esterna ci registrerai la chiave primaria che hai memorizzato nella
> variabile di cui il punto 3).
>
> > 2)esportando i report in un altra tabella
>
> Vale quanto detto precedentemente con la sola differenza che i recordset
dei
> punti 3) e 4) non debbono essere clone ma debbano essere aperti su altre
due
> tabella in cui vuoi fare la copia, preferibilmente in relazione
uno-a-molti
> tra di loro.
>
> >
> > Ciao
> > Grazie
> >
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>


title: "Terminare" mdb

text:
Buongiorno a tutti
Avrei bisogno di forzare la chiusura un db in access 97 su OS Win98
senza tener conto di eventuali avvisi o richieste di salvataggio.
Con XP uso PsKill (da PsTools -
technet.microsoft.com
) ma con Windows 98
non riesco a trovare una soluzione.
Potete aiutarmi?
grazie


title: "Terminare" mdb

text:
fabio424 ha scritto:

Ma da codice?
Nicoletta
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: "Terminare" mdb

text:

guarda il post di Alessandro Baraldi.
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/23c371e186849752/7910d62eae39176b?hl=it&lnk=gst&q=For+Each+obj+In+GetObject(%22winmgmts%3A%22)#7910d62eae39176b
ciao
Andrea Papi


title: "Terminare" mdb

text:
On 21 Apr, 13:49,
frt...@virgilio.it
 (Nicoletta2) wrote:
> fabio424 ha scritto:
>
> > Buongiorno a tutti
> > Avrei bisogno di forzare la chiusura un db in access 97 su OS Win98
> > senza tener conto di eventuali avvisi o richieste di salvataggio.
> > Con XP uso PsKill (da PsTools -
technet.microsoft.com
) ma con Windows 98
> > non riesco a trovare una soluzione.
> > Potete aiutarmi?
> > grazie
>
> Ma da codice?
>
> Nicoletta
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
guarda il post di Alessandro Baraldi
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/23c371e186849752/7910d62eae39176b?hl=it&lnk=gst&q=For+Each+obj+In+GetObject(%22winmgmts%3A%22)#7910d62eae39176b
ciao
Andrea Papi


title: "Terminare" mdb

text:
"fabio424" <
fabi...@virgilio.it
> ha scritto nel messaggio
news:480c7c6e$0$29596$4faf...@reader1.news.tin.it...

Potresti usare l'API "TerminateProcess".
Se hai conoscenze di VB qui puoi trovare oltre alle spiegazioni anche i file
di un progetto:
http://www.vbsimple.net/index.htm?/info/info_14.htm
Qualche domanda: ma vuoi crearti un piccolo applicativo? Trovarne uno già
fatto? Usare un codice in un mdb per autoterminarsi?
Cio, Carlo


title: "Terminare" mdb

text:
>
>> Buongiorno a tutti
>> Avrei bisogno di forzare la chiusura un db in access 97 su OS Win98
>> senza tener conto di eventuali avvisi o richieste di salvataggio.
>> Con XP uso PsKill (da PsTools -
technet.microsoft.com
) ma con Windows 98
>> non riesco a trovare una soluzione.
>> Potete aiutarmi?
>> grazie
>
> Ma da codice?
>
> Nicoletta
>
Preferirei utilizzare un comando esterno per evitare eventuali richieste del
db.
In alternativa il codice dovrebbe annullare ogni richiesta, chiudere tutte
le form,
scollegare le tabelle poi infine chiudere ogni applicazione msaccess..


title: "Terminare" mdb

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:fuhvs7$lof$1...@tdi.cu.mi.it...
>
cut
Per windows9x esiste Kill.exe di Microsoft che puoi scaricare da qui, ma
dovrebbe essere già presente:
ftp://ftp.microsoft.com/services/technet/samples/ps/win98/reskit/diagnose/
Si usa così, se lo metti in una cartella di sistema:
KILL /f nomeProcesso (p.e. msaccess.exe)
Ciao, Carlo


title: "Terminare" mdb

text:
fabio424 ha scritto:


Se hai form aperte e magari anche tabelle aperte mi sembra proprio il caso
di farlo da codice invece che killarlo brutalmente senza sapere che danni
puoi causare.



title: Mail da un database

author: Damiano Lanzoni

text:
Salve a tutti, sono un utente di Access alle primissime (e sottolineo
primissime) armi.
Avrei bisogno di inviare delle mail a una mailing list i cui indirizzi sono
contenuti in un database, sopratutto devo fare in modo che ciò sia possibile
anche per utenti che NON SANNO usare Access.
Mi domandavo se c'è un sistema per fare in modo che Outlook peschi tutti gli
indirizzi nel database (senza salvarli necessariamente nella rubrica di
Outlook) oppure se c'è un altro sistema.
Grazie


title: Mail da un database

author: Informatica Education Center

text:
"Damiano Lanzoni" <
lanzoniNOS...@libero.it
> ha scritto nel messaggio
news:d2c71g$nis$1...@carabinieri.cs.interbusiness.it...
> Salve a tutti, sono un utente di Access alle primissime (e sottolineo
> primissime) armi.
> Avrei bisogno di inviare delle mail a una mailing list i cui indirizzi
> sono
> contenuti in un database, sopratutto devo fare in modo che ciň sia
> possibile
> anche per utenti che NON SANNO usare Access.
> Mi domandavo se c'č un sistema per fare in modo che Outlook peschi tutti
> gli
> indirizzi nel database (senza salvarli necessariamente nella rubrica di
> Outlook) oppure se c'č un altro sistema.
>
> Grazie
>
>
Ciao,
se vuoi  ho 1 applicativo che fa al caso tuo
Gaspare


title: Mail da un database

author: Sergio MAZZA

text:
"Informatica Education Center" <
in...@studioieducation.com
> ha scritto nel
messaggio news:jif2e.711023$b5.32...@news3.tin.it...
>
> Ciao,
> se vuoi  ho 1 applicativo che fa al caso tuo
> Gaspare
Aridaje... E' piů forte di te vero?
Ciao.
--
Sergio MAZZA


title: Mail da un database

text:
"Damiano Lanzoni" <
lanzoniNOS...@libero.it
> ha scritto nel messaggio
news:d2c71g$nis$1...@carabinieri.cs.interbusiness.it...
> Salve a tutti, sono un utente di Access alle primissime (e sottolineo
> primissime) armi.
> Avrei bisogno di inviare delle mail a una mailing list i cui indirizzi
> sono
> contenuti in un database, sopratutto devo fare in modo che ciň sia
> possibile
> anche per utenti che NON SANNO usare Access.
> Mi domandavo se c'č un sistema per fare in modo che Outlook peschi tutti
> gli
> indirizzi nel database (senza salvarli necessariamente nella rubrica di
> Outlook) oppure se c'č un altro sistema.
>
> Grazie
>
Cerca:
- con Google in questo NG;
- nel sito comune
www.sitocomune.com
;
- nell'help in linea alla voce Metodo SendObject.
Ciao.
--
Sergio MAZZA


title: Mail da un database

text:
"Damiano Lanzoni" <
lanzoniNOS...@libero.it
> ha scritto nel messaggio
news:d2c71g$nis$1...@carabinieri.cs.interbusiness.it...
> Salve a tutti, sono un utente di Access alle primissime (e sottolineo
> primissime) armi.
> Avrei bisogno di inviare delle mail a una mailing list i cui indirizzi
> sono
> contenuti in un database, sopratutto devo fare in modo che ciň sia
> possibile
> anche per utenti che NON SANNO usare Access.
> Mi domandavo se c'č un sistema per fare in modo che Outlook peschi tutti
> gli
> indirizzi nel database (senza salvarli necessariamente nella rubrica di
> Outlook) oppure se c'č un altro sistema.
>
> Grazie
>
>
Ciao,
praticamente inserisci un pulsante nella maschera e puoi utilizzare il
seguente codice
Nella sezione generale fai una chiamata alla funzione ShellExecute delle API
di Windows
---------------------------
Option Compare Database
Dim destinatario As String
Dim oggetto As String
Dim testo As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
-----------------------------------------------
Private Sub Comando1_Click()
     Dim ret As Long
      testo = "testo della mail"
    oggetto = "oggetto della email"
    ret = ShellExecute(Me.hwnd, "Open", "mailto:" & destinatario &
"?subject=" & oggetto & "&body=" & testo, vbNullString, vbNullString,
SW_HIDE)
End Sub
-------------------------------------------------------
Private Sub Form_Load()
Dim lunghezza
  Set dbs = CurrentDb()
  Set rst = dbs.OpenRecordset("NomeTabella")
   With rst
      If rst.RecordCount > 0 Then
         .MoveFirst
        Do
          destinatario = destinatario & ";" & rst("campo1")
          .MoveNext
        Loop Until .EOF
      End If
      .Close
   End With
   Set dbs = Nothing
 lunghezza = Len(destinatario)
 destinatario = Right(destinatario, lunghezza - 1)
End Sub
-------------------------------
Se vuoi ho 1 applicativo d'esempio che posso inviarti..."GRATIS"
naturalmente
Gaspare
http://www.studioieducation.com


title: Mail da un database

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:d2bvs0$b4e$1...@canarie.caspur.it...

Ciao Sergio,
ho capito lo spirito "didattico" etc... del Newsgroup ma quando scrivo del
codice molti non seguono... e cmq il materiale che offro č "GRATUITO" ...non
sono cosě avido :-)
Cmq cercherň di non mandare piů nulla: OK?
Gaspare :-)