title: Creazione maschera uno a molti

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E4B69B0...@blunet.it...
> Antonio Biso wrote:
> >
> > "F.Mule" <nospamx.f...@iol.it.nosmapx> ha scritto nel messaggio
> > news:n7x2a.9860$uA5.2...@tornado.fastwebnet.it...
> > >
> > > Ho tre tabelle:
> > >
> > > contatti(idcontatto, nome, telefono, email ecc.)
> > > tipo(idtipo, nometipo, descrizione)
> > > relazioni(idrel, idcontatto,idtipo)
> > >
> > > ho strutturato così il db in modo da poter costruire delle relazioni
uno a
> > > molti tra la tabella contatti e la tabella tipo.
> > > Ad esempio, uno stesso contatto potrebbe rientrare in due categorie
> > > specifiche (amici, collaboratori)
> > >
> > > Eseguendo poi delle query riesco ad avere le informazioni inerenti ad
un
> > > dato tipo di contatti.
> > >
> > > Il mio problema è però la popolazione dell atabella relazioni, essa è
> > > infatti macchinosa, poichè devo ogni volta andare a vedere fli
idcontatto
> > e
> > > gli idtipo che mi interessano.
> > >
> > > Come realizzare una mascherina, o qualcosaltro, che mi simuli  nella
> > tabella
> > > contatti una sorta di lista di ceckbox per tutti gli id tipo?
> >
> > Non ho capito che voi fa!!!
> come antonio?
>
> 1) Tanto pe comincia' cia' messo 'na tabella de troppo
NO, non c'è!, se aggiungessi il campo idtipo alla tabella contatti, seppur
non avrei bisongo della tabella relazioni, automaticamente potre relazionare
un solo contatto con un tipo di contatto! Inoltre qual'ora aggiungessi una
tipologia di contatti... dovrei fare ttuto da capo!
> 2) Cia' la classica tipologica che nun se capisce perche' la deve
> relaziona'
> che vo fa?
>
Relazione per associare ad ogni contatto una o più tipologie di contatto.
> 3) mette 'n combo box pe seleziona' er tipo
No!, io devo fare una macherina, che aggiunga conatatti e relazioni in modo
da poter associare ad un contatto più tipi contemporaneamente.
ad esempio
nella tabella contatti ho
contatti(idcontatto, nome, telefono, email ecc.)
Contatti(1,Mario Rossi, 06 576849,
mario...@cheneso.com
)
Contatti(2,Mario Bianchi, 06 6479321,
mariob...@cheneso.com
)
Nella tabella tipocontatto ho:
tipo(idtipo, nometipo, descrizione)
tipo(1,basket,giocatori basket)
tipo(1,calcio,giocatori calcio)
Pra nel mio caso Mario rossi è sia un giocatore di basket che un giocatore
di calcio.mentre Bianchi è solo di calcio
quidni nellatabella avrò:
relazioni(idrel, idcontatto,idtipo)
relazioni(1, 1,1)
relazioni(2, 1,2)
relazioni(3, 2,2)
In questo modo, posso relazionare ogni persona a una o più categorie di
contatto(ne potrei avere una 50tina), inoltre dò una certa elasticità al db
che mi permette di aggiunegere/eliminare/modificare una data tipologia di
contatto.
A questo punto però devo fare una mascherina per gestire l'inserimento.
Quindi pe rogni dato contatto, vorrei avere in goni istante tutte le
tipoogie dicontatto che sono segnalate per lui.
L'ideale è che si creasse una lista di checkbox per ogni tipologia di
contatto, e che mi segni "chekkata", le tipologie di contatto afferenti per
quel dato contatto.
Che ne pensate?


title: Creazione maschera uno a molti

author: Alessandro Cara

text:
"F.Mule" wrote:
[cut]
> Che ne pensate?
va bene
allora hai bisogno di una maschera con un subform



title: Creazione maschera uno a molti

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E4B726C...@blunet.it...
> "F.Mule" wrote:
> [cut]
> > Che ne pensate?
> va bene
> allora hai bisogno di una maschera con un subform
>
Ma il database, mi confermi che è strutturato bene?
Dove trovo maggiori info su questa maschera con subform?
Magari qualche esempio?
tks


title: Creazione maschera uno a molti

text:

Da quello che hai detto mi sembra di si.
La questione della subform e' "abbastanza" semplice
1) Crei una maschera con origine i contatti
2) Crei una maschere con origine i tipi contatto
3) Nel form contatti inserisci un controllo subform (lo trovi nella tool
bar degli strumenti)
4) a tale subform dici usare la form tipicontatto
5) relazioni il subform al form attraverso le proprieta' "collega campi
master",
   "collega campi secondari" attraverso il codice di relazione fra
contatti
   e tipi contatto
6) questo per cominciare, cmq sull'help di access queste cose le trovi



title: collegamento ad AS 400 [quasi OT]

author: Mariolo

text:
Salve a tutti
Vorrei proporre ad un cliente una reportistica a video che ad esempio
indichi giornalmente il fatturato o i crediti versi clienti.
Per fare ciò devo collegarmi tramite driver ODBC all'AS400. (ho gia
sbirciato su vari ng)
A parte le difficoltà tecniche per il colleggamento che verranno
brillantemente risolte da Ciro Ciroteo, la mia domanda è questa:
quando si accede alle tabelle o librerie dell'AS, si riesce a trovare i dati
o praticamente è come entrare in una biblioteca senza schedari e
bibliotecario?
Ovviamente è una domanda da profano se qualcuno ha dovuto risolvere
difficoltà di questo tipo per cortesia mi dica qualcosa, perchè dovrei anche
indicativamente far sapere al cliente il costo di questo lavoretto.
Grazie come al solito.
Ciao
MArio


title: collegamento ad AS 400 [quasi OT]

author: vuLCan Karayan

text:

Che io sappia l'unico modo di fare una cosa del genere è utilizzare il
software Client Access che ti consente di esportare i dati dell'AS400 in
tabelle in files MDB
Ciao


title: collegamento ad AS 400 [quasi OT]

author: VT @ home

text:

Come hai già appurato per tuo conto, è necessario collegarsi al database su AS/400 tramite ODBC.
Un driver ODBC è disponibile nel prodotto ISeries Access (se ultima versione, altrimenti denominato Client Access nelle
versioni precedenti) che è il software IBM dedicato a tutte le funzioni di interfacciamento e colloquio tra Pc e AS/400
(oggi ISeries) e che solitamente viene fornito (a pagamento !) assieme ad ogni sistema AS/400.
Il driver ODBC richiede alcuni parametri fondamentali quali:
- il nome del sistema AS/400 al quale collegarsi
- le opzioni di collegamento (account ...)
- l'elenco delle librerie su AS/400 nelle quali sono contenuti i file del database ai quali si vuole accedere
- le operazioni consentite su tali file tramite ODBC (solo lettura, lettura/scrittura ...)
Ci sono poi altre impostazioni relative ad aspetti secondari che in prima battuta puoi lasciare impostate con i valori
di default.
Una volta configurato il DSN su pc, da un qualsiasi database Access puoi accedere ai file su AS/400 semplicemente
collegando le tabelle (collega tabelle, tipo file: ODBC database, selezionare il DSN definito per AS/400, fornire
utente/password, selezionare le tabelle).
Per quanto riguarda il "bibliotecario" questo non c'è.
Infatti su AS/400 i dati sono contenuti in oggetti chiamati "file fisici" che si trovano all'interno di oggetti chiamati
"librerie".
Un file fisico può contenere uno o più "membri".
I membri contenuti all'interno di uno stesso file fisico hanno tutti la stessa struttura (lo stesso tracciato record),
ma possono contenere dati differenti.
Per esempio potresti avere un file dei movimenti contabili al cui interno sono contenuti i membri corrispondenti ai vari
esercizi contabili.
Ad ogni file fisico possono essere associati uno o più oggetti chiamati "file logici" che sono in parte assimilabili
agli indici ed in parte alle viste SQL.
Infatti un file logico definisce una chiave di accesso al file a cui si riferisce, ma può anche definire un filtro e/o
un join fra due o più file.
Da Access puoi collegare indifferentemente file fisici e logici, a secondo delle tue esigenze.
Tieni conto che in termini di prestazioni è molto meglio individuare un file logico AS/400 che implementa la join fra
due files piuttosto che crare il query corrispondente in Access.
Per convenzione (che in quanto tale potrebbe anche non essere sempre rispettata) i nomi dei file fisici terminano con la
lettera F, quelli dei file logici che implementano indici o filtri con la lettera L, quelli dei file logici che
implementanno join con la lettera J.
E' chiaro che in assenza di "bibliotecari" il tuo lavoro prima di tutto richiede un'attenta analisi dei dati.
Le domande fondamentali a cui devi rispondere prima di iniziare sono:
- in quali librerie sono contenuti i file che mi servono ?
- in quali file sono contenuti i dati che mi servono ?
- in quale membro sono contenuti i dati che mi servono ?
- ci sono file logici associati che possono aiutarmi nell'accesso ai dati ?
Per fare questo sarebbe opportuno accedere direttamente al sistema AS/400 che tramite i suoi comandi di sistema ti
permette di reperire le informazioni che ti servono con maggiore facilità.
Infatti per esempio, tramite ODBC non riesci a visualizzare la descrizione dei file su AS/400, nè la definizione delle
chiavi/filtri/join dei file logici, cosa che invece è banale con i comandi AS/400.
HTH
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: collegamento ad AS 400 [quasi OT]

author: ciroteo

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:tfqfh11dr6vrqtmt2...@4ax.com...

Ciao Vincenzo, ci hai fornito una  risposta più che esauriente, segno che tu
hai già avuto modo di affrontare l'interfacciamento Access di as400.
Purtroppo non conosco questo sistema, ed ho compreso che :
a) costa molto
b) è stabilissimo, ma è utilizzato prevalentemente per sistemi contabili
c) un tecnico as400 è pagato peso d'oro
Fatte queste premesse, e ti prego, se vorrai, di smentirle o confermarle,
secondo te ha più senso iniziare a lavorare in questo mare magnum oppure
rivolgerci alla società che ha installato as400 per vedere se hanno già
previsto delle esportazioni dei dati in formato access compatibile?


title: collegamento ad AS 400 [quasi OT]

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:tfqfh11dr6vrqtmt2...@4ax.com...


Se ad esempio l'informazione di cui parli è il "fatturato meno le
provvigioni" significa che devo prima farla elaborare dall'AS 400 e poi,
tramite access, recuperare il file dove è stato scritto il dato?
... o le informazioni di cui parli sono più generiche
> Infatti per esempio, tramite ODBC non riesci a visualizzare la descrizione
> dei file su AS/400, nè la definizione delle
> chiavi/filtri/join dei file logici, cosa che invece è banale con i comandi
> AS/400.
Grazie mille comunque per la risposta sei stato chiaro
Ciao
Mario


title: collegamento ad AS 400 [quasi OT]

text:
Il Fri, 2 Sep 2005 14:09:33 +0200, "ciroteo" <
ciroteo_c...@libero.it
> ha scritto:
>(.....)
>
>Ciao Vincenzo, ci hai fornito una  risposta più che esauriente, segno che tu
>hai già avuto modo di affrontare l'interfacciamento Access di as400.
>Purtroppo non conosco questo sistema, ed ho compreso che :
>a) costa molto
Vero, ma vale tutti gli euro spesi !
>b) è stabilissimo, ma è utilizzato prevalentemente per sistemi contabili
Vero, anche se più che contabili direi gestionali: AS/400 (adesso I Series) è un mulo che macina dati a velocità
incerdibili (una query su svariati milioni di record impiega pochi secondi) garantendone la protezione, la coerenza e
l'integrità.
Fra parentesi è un sistema praticamente inespugnabile: c'è in palio da più di dieci anni un milione di dollari per chi
riuscisse a violare un AS/400 appositamente lasciato su internet a disposizione degli hacker.Finora nessuno c'è
riuscito.
>c) un tecnico as400 è pagato peso d'oro
Io sono un tecnico AS/400, ma nessuno mi ha mai pagato a peso d'oro. Forse dovrei dimagrire !
>Fatte queste premesse, e ti prego, se vorrai, di smentirle o confermarle,
>secondo te ha più senso iniziare a lavorare in questo mare magnum oppure
>rivolgerci alla società che ha installato as400 per vedere se hanno già
>previsto delle esportazioni dei dati in formato access compatibile?
>
Risposta difficile: se i dati ti servono solo sono a fini statistici o di consuntivo periodico, forse la strada
dell'esportazione è la più indolore, dato che anche se in qualche occasione ci fossero intoppi, il danno sarebbe molto
limitato.
Non c'è bisogno che la società abbia predisposto alcunchè: il prelievo di dati si può effettuare anche "al volo" tramite
una funzione del Client Access. Ma rimane il problema di sapere cosa prelevare e da dove.
Se invece i dati devono essere in linea, allora a mio parere l'acceso diretto via ODBC è l'unica strada percorribile.
In questo caso non dovreste avere problemi ad ottenere tutta la documentazione necessaria da parte della società che ha
realizzato il gestionale su AS/400.
Se comunque avete bisogno di qualche suggerimento su come ci si muove e si usa AS/400 provate a chiedere, male male vi
indirizzo alla documentazione necessaria disponibile sul sito IBM.



title: collegamento ad AS 400 [quasi OT]

author: Stefano

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:tfqfh11dr6vrqtmt2...@4ax.com...
> Il Thu, 1 Sep 2005 19:50:58 +0200, "Mariolo" <mario[nospam]@
sdabocconi.it
>
> ha scritto:
>>Salve a tutti
> Come hai già appurato per tuo conto, è necessario collegarsi al database
> su AS/400 tramite ODBC.
> HTH
>
> Vincenzo Turturro
> ---------------------------------------------
> il sito comune di it.comp.appl.access:
>
http://www.sitocomune.com/
> ---------------------------------------------
> E quello di it.comp.as400
>
http://www.faq400.com/
> ---------------------------------------------
Che risposta esemplare nella chiarezza.
Grazie, perchè mi hai fatto ricordare tempi oramai passati (ho iniziato a
alavorare su AS400 quando una macchina performante era il C35, per poi
passare al "mostruoso" D35 con ben 7 dischi SCSI da 2Gbyte (se non ricordo
male). Lo startup iniziava alle 07,00 per finire alle 7,45 in punto! E poi
passare al "nanetto" (lo ricordi con il risc dentro?). Bè, è vero, come
tecnico venivo "venduto" a £ 80.000/H ore di viaggio comprese....
E adesso l'HW a che è arrivato? E le ACG a che versione sono arrivate?
Ciao e grazie per l'Amarcord!
Stefano


title: collegamento ad AS 400 [quasi OT]

text:
Il Fri, 2 Sep 2005 18:23:59 +0200, "Mariolo" <mario[nospam]@
sdabocconi.it
> ha scritto:
>(.....)
>> Per fare questo sarebbe opportuno accedere direttamente al sistema AS/400
>> che tramite i suoi comandi di sistema ti
>> permette di reperire le informazioni che ti servono con maggiore facilità.
>
>Se ad esempio l'informazione di cui parli è il "fatturato meno le
>provvigioni" significa che devo prima farla elaborare dall'AS 400 e poi,
>tramite access, recuperare il file dove è stato scritto il dato?
Non necessariamente, a patto che tu sappia in quale/i file/s su AS/400 è contenuto il dato "importo fatturato" ed in
quale/i file/s è contenuto il dato "importo provvigioni".
Per reperire queste informazioni è necessario "interrogare" il sistema AS/400 con opportuni comandi:
WRKOBJ (elenco degli oggetti di una libreria e della loro descrizione)
DSPFD (visualizzazione della definizione di un file logico)
DSPFFD (visualizzazione del tracciato record di un file fisico)
ecc. ecc.
Fatto questo (individuati file e campi) si può allegare via ODBC tali file in un db Access e quindi lavorare di query
direttamente in Access.
>
>... o le informazioni di cui parli sono più generiche
>
Più generiche (v. sopra e sotto).
>> Infatti per esempio, tramite ODBC non riesci a visualizzare la descrizione
>> dei file su AS/400, nè la definizione delle
>> chiavi/filtri/join dei file logici, cosa che invece è banale con i comandi
>> AS/400.
>
>Grazie mille comunque per la risposta sei stato chiaro
>Ciao
>Mario
>



title: collegamento ad AS 400 [quasi OT]

text:
Il Fri, 2 Sep 2005 21:17:20 +0200, "Stefano" <
fras...@tiscali.it
> ha scritto:
>Che risposta esemplare nella chiarezza.
Grazie !
>Grazie, perchč mi hai fatto ricordare tempi oramai passati (ho iniziato a
>alavorare su AS400 quando una macchina performante era il C35, per poi
>passare al "mostruoso" D35 con ben 7 dischi SCSI da 2Gbyte (se non ricordo
>male). Lo startup iniziava alle 07,00 per finire alle 7,45 in punto! E poi
>passare al "nanetto" (lo ricordi con il risc dentro?).
Giŕ: anch'io ho cominciato con un B35 nell'ormai lontano 1990 !
>Bč, č vero, come  tecnico venivo "venduto" a Ł 80.000/H ore di viaggio comprese....
Eh, sě: le cifre erano quelle.
C'č perň da dire che ho visto vendere tecnici a euro 300/ora (sě, trecento!) solo soltanto ed esclusivamente per
installare Client Access sui pc, il che consiste nell'inserire il cd, selezionare i componenti desiderati, premere OK
qualche volta e quindi andare a prendere un caffč !
>E adesso l'HW a che č arrivato?
Non ne sono al corrente: da tempo uso AS/400 solo come progettista e sviluppatore software.
>E le ACG a che versione sono arrivate?
Non mi sono mai occupato di ACG: solo software verticale.
>Ciao e grazie per l'Amarcord!
>Stefano
>



title: aprire un db con shift da codice

author: LoZioPino

text:
Salve a tutti.
Attualmente accedo ad un file mdb da codice (access2000) con la funzione
getobject, dopodichè manipolo moduli, form e relativo codice, proprietà,
ecc. Ho la necessità di accedere ad un'altro Mdb il quale apre un form
all'avvio, per cui pensavo di accedere al file simulando la pressione del
tasto shift evitando così l'apertura automatica di form, ecc., ma... non ho
idea del come si fa, sempre che da codice sia possibile....
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: aprire un db con shift da codice

author: ALESSANDRO Baraldi

text:
"LoZioPino" <
pi...@io.it
> ha scritto nel messaggio
news:146Z133Z13Z35Y1...@usenet.libero.it...
> Salve a tutti.
> Attualmente accedo ad un file mdb da codice (access2000) con la funzione
> getobject, dopodichè manipolo moduli, form e relativo codice, proprietà,
> ecc. Ho la necessità di accedere ad un'altro Mdb il quale apre un form
> all'avvio, per cui pensavo di accedere al file simulando la pressione del
> tasto shift evitando così l'apertura automatica di form, ecc., ma... non
ho
> idea del come si fa, sempre che da codice sia possibile....
>
> Grazie
Secondo me ti conviene all'apertura Modificare la
property("AllowBypassKey"),
chiudere, riaprire, ed alla chiusura ripristinarla......!!!
E' la cosa più semplice.
@Alex.


title: controllo calendario

author: spagno

text:
Desidero avere delucidazioni relative al controllo calendario.
in una maschera ho un campo data che io vorrei aggiornare attraverso il
controllo calendario.
in pratica ho il campo data standard e vorrei che quando viene cliccato mi
compaia il controllo calendario (scelgo la data) e dopo la scelta della data
scompaia per passare all'inserimento del campo successivo.
Io riesco a riferirlo al campo desiderato ma non riesco a fare l'automatismo
compare/scompare
Ringrazio anticipatamente per le risposte
Spagno


title: controllo calendario

author: Dominijanni Giuseppe

text:
spagno wrote:

il controllo ha la Proprietą Visibile
ad un pulsante potresti aggiungere il seguente codice:
If Me!ocxCalendario.Visible = True Then
    Me!ocxCalendario.Visible = False
Else
    Me!ocxCalendario.Visible = True
End If
giuseppe


title: tabelle collegate: data in formato testo

text:
Buongiorno, sono nuovo ed avrei un grosso problema. Ho una database
access che punta (con una tabella collegata) ad una base di dati dove
ci sono dei campi data in formato testo (tipo 010208). Ho la necessità
di poter usare nel mio DB questi dati in formato data per poter fare
delle analisi temporali. Per la cronaca la tabella a cui si collega
cambia ogni giorno per cui non posso importarmela ogni volta. Nono so
se sono stato chiaro. Grazie in anticipo a chi vorrà aiutarmi.


author: Marco Pizzamiglio

text:
giame...@gmail.com
 ha scritto:
> Buongiorno, sono nuovo ed avrei un grosso problema. Ho una database
> access che punta (con una tabella collegata) ad una base di dati dove
> ci sono dei campi data in formato testo (tipo 010208). Ho la necessitą
> di poter usare nel mio DB questi dati in formato data per poter fare
> delle analisi temporali. Per la cronaca la tabella a cui si collega
> cambia ogni giorno per cui non posso importarmela ogni volta. Nono so
> se sono stato chiaro. Grazie in anticipo a chi vorrą aiutarmi.
Crea una query in cui aggiungi un campo calcolato per convertire il testo
in formato data:
miadata:dateserial(val(right$(datatesto,2)),val(mid$(datatesto,3,2)),val(left$(datatesto,2)))
Ed usa la query al posto della tabella. Ovviamente non avrai la
possibilitą di modificare le date nella tabella originale visto che nella
query sono calcolate, per farlo dovresti gestire il tutto via VBA da una
maschera.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
On 12 Mar, 15:47,
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:
>
giamess...@gmail.com
 ha scritto:
>
> > Buongiorno, sono nuovo ed avrei un grosso problema. Ho una database
> > access che punta (con una tabella collegata) ad una base di dati dove
> > ci sono dei campi data in formato testo (tipo 010208). Ho la necessità
> > di poter usare nel mio DB questi dati in formato data per poter fare
> > delle analisi temporali. Per la cronaca la tabella a cui si collega
> > cambia ogni giorno per cui non posso importarmela ogni volta. Nono so
> > se sono stato chiaro. Grazie in anticipo a chi vorrà aiutarmi.
>
> Crea una query in cui aggiungi un campo calcolato per convertire il testo
> in formato data:
> miadata:dateserial(val(right$(datatesto,2)),val(mid$(datatesto,3,2)),val(left$(datatesto,2)))
> Ed usa la query al posto della tabella. Ovviamente non avrai la
> possibilità di modificare le date nella tabella originale visto che nella
> query sono calcolate, per farlo dovresti gestire il tutto via VBA da una
> maschera.
> Ciao.
> -Marco-
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
FUNZIONA GRAZIE MILLE.
P.S.: non ho bisogno di modificare le date perchè devo solo poterle
leggere ed analizzare.


title: TextBox.Value Textbox.text

author: Max

text:
          Ciao a tutti,
una domanda forse banale.
Qualcuno sa dirmi che differenza esiste tra le proprieta' Value e Text di un
controllo TextBox. Ho visto solamente che sono definiti come 2 tipi
differenti ma per il resto....
Massimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: TextBox.Value Textbox.text

author: Enrico T.S.

text:
"Max" <
simpa...@libero.it
> ha scritto nel messaggio
news:83Z103Z98Z38Y1...@usenet.libero.it...
>
>           Ciao a tutti,
>
> una domanda forse banale.
> Qualcuno sa dirmi che differenza esiste tra le proprieta' Value e Text di
un
> controllo TextBox. Ho visto solamente che sono definiti come 2 tipi
> differenti ma per il resto....
>
> Massimiliano
>
il valore text lo utilizzi in fase di analisi del
testo contenuto e digitato all'istante, di solito
nell'evento tastogiu' e differisce in questa fase dal valore value
bye :o)


title: Problema con date in grafico

author: Luciano

text:
ciao
ho un grafico originato da una query che se nei criteri del campo data della
query metto:
Between #01/01/2004# And #31/12/2004#
query e grafico mi restituiscono correttamente i dati, ma se nei criteri
della query metto:
Between [Dal] And [Al]
la query mi restituisce correttamente i dati, ma il grafico mi dà il
seguente messaggio di errore:
"Il modulo di Gestione di database Microsoft Jet non riconosce '[Dal]' come
nome di campo o espressione valida"
Avrei bisogno di parametrizzare i risultati del grafico. Come posso fare?
grazie


title: Problema con date in grafico

author: Carlo Costarella

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:qr6Ld.791496$35.30...@news4.tin.it...

Sostituisci [Dal] [AL] con due funzioni che restituiscano un valore di tipo
data.
Public Function DataDal() As Date
Dim im As String
im = InputBox("Inserisci la data di partenza nel formato gg/mm/aaaa", "Data
Dal", Date)
If IsDate(CDate(im)) Then
DataDal = CDate(im)
Else
MsgBox "Inserire una data valida"
End If
End Function
Public Function DataAl() As Date
Dim im As String
im = InputBox("Inserisci la data finale nel formato gg/mm/aaaa", "Data Al",
Date)
If IsDate(CDate(im)) Then
DataAl = CDate(im)
Else
MsgBox "Inserire una data valida"
End If
End Function
Il Between [Dal] And [AL] diventano
Between DataDal() And DataAl()
In alternativa e più semplicemente prova con:
Between "#" & [DAL] & "#" And "#" & [AL] & "#"
La prima soluzione ti permette di mostrare una finestra di dialogo più
professionale.
Ciao, Carlo


title: Problema con date in grafico

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:uR6Ld.472142$b5.22...@news3.tin.it...

grazie Carlo,
ho usato il primo modo e funziona! era proprio quello di cui avevo bisogno
Luciano
>
>
>


title: Webyte magazine

author: Redazione Webyte

text:
Webyte - Magazine di web culture e dintorni.
http://digilander.iol.it/zoomagazine/
Lo speciale della settimana: INTERNET & TECNOLOGIA
Primo piano: aggiornato ogni giorno con articoli che trattano vari
argomenti: Internet, business, web costume, sicurezza, software, tecnologia
e webtour.
Ed infine le news dalla rete: aggiornato con una media di 20 notizie al
giorno: curiosità, news informatiche, aggiornamenti software, segnalazioni
siti e così via.
L'attuale sito raccoglie 100 articoli e un archivio di news che risale al
primo marzo.
Entro il fine settimana il sito sarà completamente rinnovato e ampliato con
nuove rubriche e sezioni.
Vi aspettiamo in tanti.
Se volete scrivere la vostra opinione sul sito inviate un email al
webmaster:
fabio....@libero.it
GRAZIE PER L'ATTENZIONE!!!
URL DEL SITO:
http://digilander.iol.it/zoomagazine/
--
*************************************************
FABIO CABULA
REDAZIONE WEBYTE
http://digilander.iol.it/zoomagazine/
fabio....@libero.it
*************************************************


title: Ricreare un mdw perso

author: Finalmenteamicizia

text:
Qualcuno sa cortesemente indicarmi PASSO PASSO come ricreare da zero  il
file mdw (perso!) relativo ad un database creato con Access 2000, partendo
dai dati che ho salvato nel file.snp al termine della creazione guidata?
Grazie


title: Visibilità variabili

author: Simone

text:
Salve, ho un problema con le variabili e la loro visibilità nei moduli.
Avrei bisogno che alcune variabili dichiarate in una maschera fossero
visibili anche da altre maschere.
Esempio:
Nelle dichiarazioni generali di una maschera ho scritto:
Public GblQry As String
L'evento click di un tasto di questa maschera tramite un bel po di codice
riempie la variabile con una stringa.
Poi metto il comando:
DoCmd.OpenForm "pippo"
desidererei poter utilizzare il valore di GblQry nell'evento "su apertura"
della maschera pippo. Ma la variabile è sempre e irrimediabilmente vuota...
Come si fa a creare delle variabili che "sopravvivano". Basta la
dichiarazione Public o mi sto sbagliando?
Se qualcuno mi risponde prima di domani mattina posso andare avanti con il
lavoro... altrimenti ci perdo un'altra mezza giornata...
Grazie.
Simone.
P.S. mi sono anche letto l'help e mi sembra che ciò che ho fatto sia
corretto... ma non funziona!


title: Visibilità variabili

author: Roberto da casa

text:
"Simone" <
rik...@katamail.com
> ha scritto nel messaggio
news:98m8k1$12q$1...@news.mclink.it...

Creati un Modulo Access, dalle il nome che ti pare ed all'interno scrivici
appunto:
Public GblQry As String
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Implementare ricerca nella cas. di riepilogo

author: sdamy

text:
Save a tutti,
stò utilizzando una CASELLA DI RIEPILOGO
con selez.multipla per selezionare delle città
da un elenco con molti record.
Vorrei sapere se esiste un modo per aiutare la
ricerca della città. Adesso devo usare la barra di scorrimento
per ricercare una città.
Vorrei che scrivendo per esempio la lettera
"V" il puntatore andasse a puntare alla prima
città che inizia per "V"..
grazie
ciao ciao
sdamy


author: Alex

text:
"sdamy" <
sd...@tiscalinet.it
> wrote in message
news:9uaobh$nbs$1...@pegasus.tiscalinet.it...

Con la Casella di riepilogo non saprei, ma se tu utilizzassi una Bella
ComboBox o Casella Combinata sarebbe automatico, lo fa da se...!
Interessante sarebbe però che appena riceve il Focus si espandesse...!
Prova ad inserire perciò su Evento Attivato
Me.CboBox.DropDown
Ciao @Alex
--
Posted from  [62.98.29.190]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Emyr

text:
On Sun, 2 Dec 2001 09:56:28 +0000 (UTC), "Alex" <
ik2...@libero.it
>
wrote:

Se non ricordo male sia nelle caselle di riepilogo che nelle caselle
combinate dovrebbe eseere presente la proprietà "completamento
automatico" da impostare a true


text:
"Emyr" <
fan...@lavoro.com
> wrote in message
news:klql1ug3oturljq68...@4ax.com...
> >Con la Casella di riepilogo non saprei, ma se tu utilizzassi una Bella
> >ComboBox o Casella Combinata sarebbe automatico, lo fa da se...!
> >Interessante sarebbe però che appena riceve il Focus si espandesse...!
> >
> >Prova ad inserire perciò su Evento Attivato
> >Me.CboBox.DropDown
> >
> >Ciao @Alex
>
> Se non ricordo male sia nelle caselle di riepilogo che nelle caselle
> combinate dovrebbe eseere presente la proprietà "completamento
> automatico" da impostare a true
Ricordi parzialmente bene, solo con le COMBO-BOX è fattibile, le List-BOX
o Casella di riepilogo non ha la possibilità di scrittura in quanto LISTA.
Ciao.
@Alex
--
Posted from  [62.98.48.251]



title: OT : Controllo parità codice barre ricette SSNN

author: Nina

text:
Salve a tutti,
qualcuno di voi sa come verificare la validità di un numero riportato sulle
ricette del SSNN?
Si tratta in realtà di due gruppi di numeri, il primo a 5 cifre e il secondo
a 10 cifre di cui l'ultima rappresenta il controllo di parità. Il controllo
di parità calcolato per i codici Ean a 8 o 13 cifre non sempre è valido per
questo tipo di codice a barre.
Grazie mille
--
Nina


author: Daniele

text:
"Nina" <
paninotCancell...@yahoo.it
> ha scritto nel messaggio
news:476b76d3$0$16022$5fc...@news.tiscali.it...

prova a vedere su questo sito
http://www.codiceabarre.it
sicuramente troverai quello che cerchi.
ciao - Daniele


text:
"Daniele" <
daniele....@tiscali.it
> ha scritto nel messaggio
news:fkg4mi$ou5$1...@tdi.cu.mi.it...

Grazie Daniele,
adesso mi collego al sito e spero di trovare qualcosa, anche se mi pare di
capire che il codice di cui parlo non sia un codice a barre comune (tipo Ean
8 o Ean 13 per i quali ho trovato l'algoritmo).
Ciao,
--
Nina


author: Gabriele Bertolucci

text:
> prova a vedere su questo sito
http://www.codiceabarre.it
> sicuramente troverai quello che cerchi.
Daniele, il sito che hai suggerito č di proprietą di un'azienda che si
occupa di cartellonistica industriale e sicurezza aziendale.
Non vedo come questo sia legato ai codici a barre.
Intendevi forse dire a Nina che puņ fare un'autonoma ricerca tramite
Google?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


text:
Mi rispondo da solo perché ho detto una castroneria!!!!!
A causa di un errore di digitazione, avevo utilizzato l'indirizzo
www.codiciabarre.it
 invece di
www.codiceabarre.it
 dove invece si può
trovare proprio quello che Nina stava cercando.
Per farmi perdonare posto anche un indirizzo diretto:
http://www.codiceabarre.it/bccode32.htm



text:
Il calcolo della parità nel codice 32 si applica a codici di 9 caratteri, il numero progressivo della ricetta ne ha 10!



title: Funzione somma in un campo non associato

author: Massimo Pallavicini

text:
Ciao a tutti,
sto realizzando un database per uso personale ed ho questo problema: in una
maschera ho 5 campi tra cui 1 dove viene messo l'importo che puo essere
positivo o negativo. Poi ho altri due campi NON associati: il primo deve
sommare tutti i valori positivi dell'importo ed il secondo tutti i valori
negativi dell'importo, cosa devo fare?
Grazie per l'aiuto
Maxus68


text:
"Massimo Pallavicini" <
maspall...@virgilio.it
> ha scritto nel messaggio
news:u9YDd.382149$b5.18...@news3.tin.it...

Nell'origine controllo della casella di testo usa le funzioni IIf (vedi
help) e Somma (vedi help).
Visto che vuoi sommare i valori di una casella di testo on associata,
sull'help leggi l'argomento Calcolare il totale di un controllo calcolato in
una maschera o in un report.
>
> Grazie per l'aiuto
Prego
>
> Maxus68
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Consigli di db design

author: Rob

text:
"Luca Beretta" <
lucab...@libero.it
> ha scritto nel messaggio
news:o6W49.51177$n04.1...@twister2.libero.it...
>
> Due linee guida:
>
> 1) Segui le indicazioni sull'ottimizzazione di Access contenute nell'help
> 2) Segui questo ng.  ;-)
>
... e un buon libro!   --->
www.sitocomune.com
Mandi, Rob.


title: Raggruppamento per mese

author: Claudia G

text:
Ciao a tutti
Allora io ho dei clienti che hanno più fatture in un mese e devo raggruppare
i miei dati per mese come posso fare?
la tabella è composta con:
IDCliente Data Documento Importo


title: Raggruppamento per mese

author: Fabio Montagner

text:
"Claudia G" <
cla...@libero.it
> wrote in message
news:v_Hy6.627$zT.2...@news.infostrada.it...

Ordina per data ed estrai filtrando la data con day(), year().


title: Raggruppamento per mese

author: Roberto dal portatile

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:v_Hy6.627$zT.2...@news.infostrada.it...

Se la tua tabella si chiama Tabella2, creati una query di raggruppamento che
ha il seguente codice SQL:
SELECT Tabella2.IDCliente, Year([DataDocumento])*100+Month([DataDocumento])
AS Mese, Sum(Tabella2.Importo) AS SommaDiImporto
FROM Tabella2
GROUP BY Tabella2.IDCliente,
Year([DataDocumento])*100+Month([DataDocumento]);
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Raggruppamento per mese

author: Antonio Biso

text:
Claudia G <
cla...@libero.it
> wrote in message
v_Hy6.627$zT.2...@news.infostrada.it...

Raggruppa per month([data documento])
Antonio


title: sottoreport con filtro

author: Gianluca Buffa

text:
Salve a tutti!
Il mio problema è il seguente:
Ho un report che visualizza certi dati, tra cui il tempo di una gara.
Nel piè di pagina report ho messo il minimo di questi tempi (quindi la "best
performance"), ma vorrei che venissero visualizzati anche gli altri dati
relativi a questo record che già compaiono nel report (chi, quando, dove,
ecc.) in modo da essere di immediata visualizzazione.
Ho provato ad inserire un sottoreport (sempre che sia questa la via...) con
i campi di interesse, ma non capisco perchè se vedo la query con cui è stata
fatto il sottoreport tutto funziona mentre quando apro il report non viene
visualizzato nulla. Cosa può essere?
E poi è ammissibile che in questa query metta come criterio per i tempi il
valore della casella che viene calcolata nel report stesso? Non è per caso
anche questo che dà problemi?
Sperando di essere riuscito a spiegare bene il problema...
grazie!
Gianluca


title: OT Traduzione FAQ 3.1

author: Karl Donaubauer

text:
3.1 Relink Tables
Problem
An mdb has linked tables. If the directory of the database
with the original tables changes the connection gets lost.
Solution
The easiest way clearly is to delete the table links and
relink them with the menu item File/External Data/Link Tables.
Another way is to use the Linked Table Manager that
can be found in the menu Tools/Database Utilities.
If you want to relink the tables dynamically with VBA you can
use a file dialog and code like it is shown in
http://www.mvps.org/access/tables/tbl0009.htm
If you are sure, that both databases are always in the same
directory you can automate the relink completely via VBA.
Call a code like the following in the autoexec macro or in the
open event of your start form:
'******* CODE START *******
On Error GoTo MyError
Dim db As DAO.Database
Dim strData As String
Dim i as Integer
Set db = CurrentDB()
strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
For i = 0 To db.TableDefs.Count - 1
    If db.TableDefs(i).Connect <> "" Then
        If Mid(db.TableDefs(i).Connect, 11) <> strData Then
            db.TableDefs(i).Connect = ";database=" & strData
            db.TableDefs(i).RefreshLink
        End If
    End If
Next i
MyExit:
    Exit Sub
MyError:
    MsgBox "A problem occured during instalation. ", 16, "Exception"
    Resume MyExit
'******* CODE END *******
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


title: OT Traduzione FAQ 3.1

author: Pablitomf

text:
Karl Donaubauer ha scritto:
> 3.1 Relink Tables
> Problem
> An mdb has linked tables. If the directory of the database
> with the original tables changes the connection gets lost.
Un mdb ha collegato le tabelle.  Se la directory del Database contenente
le tabelle originali cambia il collegamento viene perso.
> Solution
> The easiest way clearly is to delete the table links and
> relink them with the menu item File/External Data/Link Tables.
Il metodo più semplice è quello di ricreare i collegamenti alla tabelle
della voce di menu File/Carica dati esterni/Collega tebelle.
> Another way is to use the Linked Table Manager that
> can be found in the menu Tools/Database Utilities.
Un altro metodo è quello di utilizzare il gestore automatico delle tabelle
collegate (Menu Strumenti/Aggiunte/Gestore tabelle collegate).
> If you want to relink the tables dynamically with VBA you can
> use a file dialog and code like it is shown in
>
http://www.mvps.org/access/tables/tbl0009.htm
Se desiderate ricollegare le tabelle in maniera dinamica con VBA è
possibile utilizzare il codice indicato in questo link:
http://www.mvps.org/access/tables/tbl0009.htm
> If you are sure, that both databases are always in the same
> directory you can automate the relink completely via VBA.
> Call a code like the following in the autoexec macro or in the
> open event of your start form:
Se siete sicuri, che le basidati sono sempre nella stessa directorypotete
automatizzare il relink completamente utilizzando VBA.
Avviare il codice sottostante o dalla macro autoexec o nell'evento "Su
apertura" della maschera di avvio:
> '******* CODE START *******
> On Error GoTo MyError
> Dim db As DAO.Database
> Dim strData As String
> Dim i as Integer
> Set db = CurrentDB()
> strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
> For i = 0 To db.TableDefs.Count - 1
>     If db.TableDefs(i).Connect <> "" Then
>         If Mid(db.TableDefs(i).Connect, 11) <> strData Then
>             db.TableDefs(i).Connect = ";database=" & strData
>             db.TableDefs(i).RefreshLink
>         End If
>     End If
> Next i
> MyExit:
>     Exit Sub
> MyError:
>     MsgBox "A problem occured during instalation. ", 16, "Exception"
>     Resume MyExit
> '******* CODE END *******
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: OT Traduzione FAQ 3.1

author: MA

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:38m4cbF...@individual.net...
> 3.1 Relink Tables
Riallega Tabelle
>
> Problem
>
> An mdb has linked tables. If the directory of the database
> with the original tables changes the connection gets lost.
Problema
Un mdb ha delle tabelle collegate. Se cambi la directory del database con le
tabelle originali,
perdi la connessione.
> Solution
>
> The easiest way clearly is to delete the table links and
> relink them with the menu item File/External Data/Link Tables.
Il metodo più semplice è cancellare i collegamenti delle tabelle
e ricollegarle con la voce di menu
File
Carica dagli esterni
Collega tabelle
>
> Another way is to use the Linked Table Manager that
> can be found in the menu Tools/Database Utilities.
Un altro modo è usare Gestione Tabelle Collegate che puoi trovare
nel menu Strumenti/Utilità di Database
>
> If you want to relink the tables dynamically with VBA you can
> use a file dialog and code like it is shown in
Se vuoi ricollegare dinamicamente le tabelle con VBA puoi usare
una Finestra di dialogo ed il codice mostrato in

http://www.mvps.org/access/tables/tbl0009.htm
> If you are sure, that both databases are always in the same
> directory you can automate the relink completely via VBA.
> Call a code like the following in the autoexec macro or in the
> open event of your start form:
Se sei sicuro, che entrambi i database sono nella stessa directory
puoi automatizzare completamente il collegamento via VBA.
Richiama il codice seguente nellamacro autoexec o nella tua amschera di
avvio
>
> '******* CODE START *******
> On Error GoTo MyError
>
> Dim db As DAO.Database
> Dim strData As String
> Dim i as Integer
>
> Set db = CurrentDB()
>
> strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
>
> For i = 0 To db.TableDefs.Count - 1
>    If db.TableDefs(i).Connect <> "" Then
>        If Mid(db.TableDefs(i).Connect, 11) <> strData Then
>            db.TableDefs(i).Connect = ";database=" & strData
>            db.TableDefs(i).RefreshLink
>        End If
>    End If
> Next i
>
> MyExit:
>    Exit Sub
>
> MyError:
>    MsgBox "A problem occured during instalation. ", 16, "Exception"
Msgbox "Si è verificato un problema durante l'installazione", "Eccezione"
>    Resume MyExit
> '******* CODE END *******
>
MAssimialino


title: OT Traduzione FAQ 3.1

author: sv

text:
Karl Donaubauer ha scritto:
> 3.1 Relink Tables
> Problem

> Solution






> Set db = CurrentDB()


> MyExit:
>     Exit Sub

Riallegare Tabelle
Problema
Un .mdb ha tabelle collegate. Se la directory del database con le
tabelle originali, cambia, si perde la connessione.
Soluzione
Il metodo più semplice è, chiaramente, quello di cancellare i collegamenti
delle tabelle e riallegarle dalla voce di menu File/Carica dati
esterni/Collega tabelle.
Un altro modo è quello di usare il “Gestore tabelle collegate” che puoi
trovare in Strumenti/Utilità database/Gestione Tabelle Collegate.
Se vuoi riallegare le tabelle in maniera dinamica con VBA, puoi usare
un file dialogo ed il codice, come viene mostrato in
http://www.mvps.org/access/tables/tbl0009.htm
Se sei sicuro, che entrambi i database sono sempre nella stessa directory,
puoi completamente automatizzare il ricollegamento via VBA.
Richiama, nella macro autoexec o nell’evento “Su apertura” della tua
maschera d’avvio, un codice come segue:
'******* INIZIO CODICE *******
 On Error GoTo MyError
 Dim db As DAO.Database
 Dim strData As String
 Dim i as Integer
 Set db = CurrentDB()
 strData = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "YourData.mdb"
 For i = 0 To db.TableDefs.Count - 1
     If db.TableDefs(i).Connect <> "" Then
         If Mid(db.TableDefs(i).Connect, 11) <> strData Then
             db.TableDefs(i).Connect = ";database=" & strData
             db.TableDefs(i).RefreshLink
         End If
     End If
 Next i
 MyExit:
     Exit Sub
 MyError:
     MsgBox "Un problema è accaduto durante l'installazione. ", 16,
"Eccezione"
     Resume MyExit
 '******* FINE CODICE *******
--
rgrds
SC
--



title: OT Traduzione FAQ 3.1

text:
[cut]
Ciao Karl,
volevo farti notare che nella FAQ 5.17, dato che hai utilizzato il
sostantivo "insieme", la frase:
Un'ampia insieme di funzionalità è offerto dal tool ...
diventa
Un ampio insieme di funzionalità è offerto dal tool..



title: OT Traduzione FAQ 3.1

text:
sv wrote:
>
> volevo farti notare che nella FAQ 5.17, dato che hai utilizzato il
> sostantivo "insieme", la frase:
>
> Un'ampia insieme di funzionalità è offerto dal tool ...
>
> diventa
>
> Un ampio insieme di funzionalità è offerto dal tool..
>
Grazie.



title: contatore

author: info

text:
eliminando tutti i campi di una tabella come fare per ripartire da uno col
contatore?
Grazie
Carlo


title: contatore

author: Alessandro Cara

text:
info wrote:
> eliminando tutti i campi di una tabella come fare per ripartire da uno col
> contatore?
Si fa prima a fare una nuova tabella con il solo contatore.
Non so se ti rendi conto di cio che hai detto!
Interpretando: risposta--> compatta e ripristina data base
Considerazione: Ma cosa te ne importa? il contatore in genere non si usa
per avere una sequenza stretta.
--
ac
y-1=x


title: contatore

author: ALESSANDRO Baraldi

text:

Elimini tutti i campi... beh non tutti il contatore lo vuoi tenere...?
Teniamolo... magari teniamo anche l'altri... chissà che servano...!
Ora fai una tabella uguale a quella a quella di prima ma senza dati...
Li il contatore parte da UNO...!
Questa è una Query di Creazione Tabella:
SELECT *.VecchiaTabella
INTO NuovaTabella
FROM VecchiaTabella
WHERE 1=0
Ora se la vuoi rinominare la rinomini .... con il nome della Vecchia dopo
averla ELIMINATA...!
Elimina...
    DROP TABLE
        oppure:
    Sub DeleteObject([ObjectType As AcObjectType = acDefault], [ObjectName])
        Membro di Access.DoCmd
        oppure:
    DbEngine(0)(0).Tabledefs(NomeTabella).Delete
Rinomina:
    Sub Rename(NewName, [ObjectType As AcObjectType = acDefault], [OldName])
        Membro di Access.DoCmd
        Oppure(da provare):
    DbEngine(0)(0).Tabledefs(NomeTabella).Name=NuovoNome
ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: contatore

author: CIDI

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fkc57e$nq3$1...@aioe.org...

effetto "Cara"?
;-))
Daniele


title: flaggare controllo si/no all'uscita

author: PWD

text:
Ciao a tutti,
all'apertura di una maschera, chiedo una pwd: vorrei che se la pwd fosse
giusta (vedrï¿œ poi come fare il controllo) il record sia editabile,
altrimenti non lo sia.
Oppure mi servirebbe rendere immodificabile il dd a parte i nuovi
inserimenti che si possono fare.
Pensavo di mettere un si/no (che chiamerï¿œ blocca) nella tabella e
flaggarlo ad ogni uscita dall'inserimento effettuato da maschera:
imposto in "su corrente"... ï¿œ giusto?
Poi se il flag blocca ï¿œ si, imposto Allowedits su False altrimenti su True.
Faccio poi una maschera protetta da pwd che userï¿œ per resettare il flag
blocca (impostarlo su off) ed ottenere la maschera editabile!
E' un casino'
Avete altre idee?
Grazie mille!
Marco


title: flaggare controllo si/no all'uscita

author: Geppo

text:
Ciao PWD wrote:
> Ciao a tutti,
>
> all'apertura di una maschera, chiedo una pwd: vorrei che se la pwd
> fosse giusta (vedr� poi come fare il controllo) il record sia
> editabile, altrimenti non lo sia.
> Oppure mi servirebbe rendere immodificabile il dd a parte i nuovi
> inserimenti che si possono fare.
>
> Pensavo di mettere un si/no (che chiamer� blocca) nella tabella e
> flaggarlo ad ogni uscita dall'inserimento effettuato da maschera:
> imposto in "su corrente"... � giusto?
> Poi se il flag blocca � si, imposto Allowedits su False altrimenti su
> True. Faccio poi una maschera protetta da pwd che user� per resettare
> il flag blocca (impostarlo su off) ed ottenere la maschera editabile!
>
> E' un casino'
> Avete altre idee?
Beh, potresti sfruttare la propriet� NewRecord su evento current:
If me.newrecord then
   rendi editabile
else
  rendi sola lettura
end if
> Grazie mille!
> Marco
--
Ciao
Geppo


title: flaggare controllo si/no all'uscita

text:
Geppo ha scritto:
> Ciao PWD wrote:
>> Ciao a tutti,
>>
>> all'apertura di una maschera, chiedo una pwd: vorrei che se la pwd
>> fosse giusta (vedrï¿œ poi come fare il controllo) il record sia
>> editabile, altrimenti non lo sia.
>> Oppure mi servirebbe rendere immodificabile il dd a parte i nuovi
>> inserimenti che si possono fare.
>>
>> Pensavo di mettere un si/no (che chiamerï¿œ blocca) nella tabella e
>> flaggarlo ad ogni uscita dall'inserimento effettuato da maschera:
>> imposto in "su corrente"... ï¿œ giusto?
>> Poi se il flag blocca ï¿œ si, imposto Allowedits su False altrimenti su
>> True. Faccio poi una maschera protetta da pwd che userï¿œ per resettare
>> il flag blocca (impostarlo su off) ed ottenere la maschera editabile!
>>
>> E' un casino'
>> Avete altre idee?
>
> Beh, potresti sfruttare la proprietï¿œ NewRecord su evento current:
>
> If me.newrecord then
>    rendi editabile
> else
>   rendi sola lettura
> end if
Ma cavolo... cosï¿œ semplice?
Provo e faccio sapere!
Grazie ancora!
Marco


title: IsNull AND IsNull?

author: Ilaria

text:
Io devo testare se una maschera non ha nemmeno un controllo valorizzato, ma
non riesco a trovare la sintassi corretta per mettere in AND più istruzioni
IsNull.
Non ditemi di fare una if nidificata di 12 livelli...
Attendo suggerimenti.
Grazie
Ilaria


title: IsNull AND IsNull?

author: Alessandro Baraldi

text:
"Ilaria" <
ilaria....@unipr.it
> wrote in message
news:9o7fd0$vgo$1...@newsfeed.cineca.it...

Non ti dico, non preoccuparti.
Se usi un ciclo
dim ctl as Control
dim ncount as integer
For each Ctl in Me.Controls
 if typeof ctl is textbox then
  if ctl="" then ncount=ncount+1
 end if
next
'ncount contiene il numero di txtbox vuote.
In realtà io utilizzerei la funzione isNothing che trovi pubblicata
sul Sito Comune per verificare il valore del controllo, ma dovrebbe
funzionare anche così.
@Alex.
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: IsNull AND IsNull?

text:
Alessandro Baraldi <
ik2...@libero.it
> wrote in message
news:48d302ca4c3c0b58eb...@mygate.mailgate.org...
> "Ilaria" <
ilaria....@unipr.it
> wrote in message
> news:9o7fd0$vgo$1...@newsfeed.cineca.it...
>
> Se usi un ciclo
> dim ctl as Control
> dim ncount as integer
> For each Ctl in Me.Controls
>  if typeof ctl is textbox then
>   if ctl="" then ncount=ncount+1
>  end if
> next
> 'ncount contiene il numero di txtbox vuote.
grazie, con qualche piccola modifica l'ho fatta funzionare per le mie
esigenze, però non ho capito come mai considera textbox anche le combo (mi
va bene, ma non mi torna)
> In realtà io utilizzerei la funzione isNothing che trovi pubblicata
> sul Sito Comune per verificare il valore del controllo, ma dovrebbe
non l'ho trovato; in che sezione è?
Thanks
Ilaria


title: IsNull AND IsNull?

text:
"Ilaria" <
ilaria....@unipr.it
> wrote in message
news:9o7k2a$2ou$1...@newsfeed.cineca.it...
> grazie, con qualche piccola modifica l'ho fatta funzionare per le mie
> esigenze, però non ho capito come mai considera textbox anche le combo (mi
> va bene, ma non mi torna)
Impossibile, significa che c'è qualcosa di strano. in alternativa
puoi verificare
 Select Case .ControlType
     Case acComboBox
     Case acTextBox
         'Inserisci quì il controllo
 end select
>
> > In realtà io utilizzerei la funzione isNothing che trovi pubblicata
> > sul Sito Comune per verificare il valore del controllo, ma dovrebbe
> non l'ho trovato; in che sezione è?
Adesso non mi ricordo, ma appena forse ora che faccio mente locale è
su MVPS.org
Ciao @Alex.



title: IsNull AND IsNull?

text:
Alessandro Baraldi <
ik2...@libero.it
> wrote in message
news:76498650e741005e3f...@mygate.mailgate.org...
> "Ilaria" <
ilaria....@unipr.it
> wrote in message
> news:9o7k2a$2ou$1...@newsfeed.cineca.it...
>
>
> > grazie, con qualche piccola modifica l'ho fatta funzionare per le mie
> > esigenze, però non ho capito come mai considera textbox anche le combo
(mi
> > va bene, ma non mi torna)
> Impossibile, significa che c'è qualcosa di strano. in alternativa
> puoi verificare
>  Select Case .ControlType
>      Case acComboBox
>      Case acTextBox
>          'Inserisci quì il controllo
>  end select
> >
grazie, andava bene anche prima, non mi ricordavo dei controlli nascosti...
;-)
Scusa e grazie ancora
Ilaria


title: IsNull AND IsNull?

author: Roberto da casa

text:
"Ilaria" <
ilaria....@unipr.it
> ha scritto nel messaggio
news:9o7k2a$2ou$1...@newsfeed.cineca.it...
[CUT]
>
> > In realtà io utilizzerei la funzione isNothing che trovi pubblicata
> > sul Sito Comune per verificare il valore del controllo, ma dovrebbe
> non l'ho trovato; in che sezione è?
>
> Thanks
>
> Ilaria
>
Sezione General nella FAQ intitolata "E' possibile testare se un valore sia
"logicamente" nullo a prescindere dal tipo dato?"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: IsNull AND IsNull?

author: bande

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:ZZJp7.7797$Q25.3...@news.infostrada.it...
>
> "Ilaria" <
ilaria....@unipr.it
> ha scritto nel messaggio
> news:9o7k2a$2ou$1...@newsfeed.cineca.it...
> [CUT]
> >
> > > In realtà io utilizzerei la funzione isNothing che trovi pubblicata
> > > sul Sito Comune per verificare il valore del controllo, ma dovrebbe
> > non l'ho trovato; in che sezione è?
> >
> > Thanks
> >
> > Ilaria
> >
>
> Sezione General nella FAQ intitolata "E' possibile testare se un valore
sia
> "logicamente" nullo a prescindere dal tipo dato?"
>
> --
> Roberto
>
Ho provato anch'io ad utilizzarla e funziona egregiamente con l'unica
particolarita' rispetto a quanto citato nella FAQ che nel caso di variabile
Boolean risponde True per valori della variabile False e non True.
Bye
--
Andrea


title: Anteprima Report

author: Gianna

text:
Ciao,
ho un problemino.
Ho due maschere. La prima chiama la seconda tramite un pulsante di apertura.
Entrambe le maschere vengono aperte in formato AcDialog (DoCmd.openform
"Prova" , AcDialog).
Nell'ultima maschera c'è un pulsante che apre un report in anteprima.
Il report che viene aperto appare in secondo piano rispetto le maschere e
non in primo piano come dovrebbe (le maschere sono davanti al report) e non
c'è modo di portare in primo piano il report.
Tutto ciò non avviene se le maschere vengono aperte normalmente e non in
modalità "AcDialog".
Qualcuno mi sa dire perchè e come risolvere il problema.
Grazie
Gianna


title: Anteprima Report

text:
"Gianna" <
spozz...@mondoita.com
> ha scritto nel messaggio
news:d8k81j$2ob$1...@fata.cs.interbusiness.it...

Il perchè è dovuto al fatto che le form aperte in modalità Dialogo
sono Popup a scelta obbligatoria.
Per risolvere potresti chiudere sequenzialmente le Form una volta
aperto il Report.
Ovviamente non conosco la tua esigenza di tenerle aperte, ma se
fosse d'obbligo, allora rendile NON VISIBILI, apri il Report, e solo
alla chiusura del Report le rendi VISIBILI....!
Fai qualche prova in base alle tue reali esigenze.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: codici a barre

author: " C A R T o o N S "

text:
Ciao ragazzi, sono nuovo del ng, perciò vi chiedo scusa se per caso vi
faccio una domanda a cui già avete risposto.
Ho urgente bisogno di questo file: EZBARX32.ocx .
Od almeno uno simile, non è importante che tipo di activex trovate,
 l'importante è che funzioni sotto i report di Access.
Cioè non devono essere dei demo.
Vi chiedo urgentemente il vostro aiuto.
Grazie a chiunque mi risponda
Ciao


title: Aiuto!!

author: Demetrio Nucara

text:
Spero di non dire troppe cialtronerie....
Primo: sono al mio primo Dbase e NON ho mai frequentato corsi di Access!!!
Iniziamo.....
Acces 97, 3 tabelle: Commesse, Rubrica, Contatti
In una maschera per l'immissione dati della tabella Commesse (e, se
possibile, anche direttamente nella tabella) dovrei fare in modo che, quando
si seleziona in una casella di riepilogo il nome della ditta committente
(preso da Rubrica con il proprio ID progressivo), nella casella adicente con
il nome del conatto (preso dall'omonima tabella) sia possibile selezionare
solo i contatti corrispondenti alla ditta scelta:
Cioe' se nella casella di riepilogo Ditta scelgo "microsoft", nella casella
di riepilogo Contatto posso solo scegliere "Bill" e non avere la lista di
tutti i contatti!!
C'e' un modo per farlo da principianti??? Mi serve per capire se sono
stupido io oppure se ho bisogno di approfondire maggiornmente la conoscenza
con un corso (che lo so che non fa mai male, ma se lo facessi sarebbe solo
per cultura personale...).
Grazie e scusatemi per la prolissita'!!!!


title: Aiuto!!

author: Antonio Biso

text:
Demetrio Nucara <
elettroen...@supereva.it
> wrote in message
3a785...@news.dada.it...
> Spero di non dire troppe cialtronerie....
>
> Primo: sono al mio primo Dbase e NON ho mai frequentato corsi di Access!!!
Primo: il tuo subject è molto generico e non permette di identificare subito
il tuo problema... e questo non è bello!
>
> Iniziamo.....
ok
>
> Acces 97, 3 tabelle: Commesse, Rubrica, Contatti
>
> In una maschera per l'immissione dati della tabella Commesse (e, se
> possibile, anche direttamente nella tabella) dovrei fare in modo che,
quando
> si seleziona in una casella di riepilogo il nome della ditta committente
> (preso da Rubrica con il proprio ID progressivo), nella casella adicente
con
> il nome del conatto (preso dall'omonima tabella) sia possibile selezionare
> solo i contatti corrispondenti alla ditta scelta:
> Cioe' se nella casella di riepilogo Ditta scelgo "microsoft", nella
casella
> di riepilogo Contatto posso solo scegliere "Bill" e non avere la lista di
> tutti i contatti!!
Immagino che la "casella adiacente" di cui parli sia una casella combinata,
la cui origine riga sia una query sulla tabella contatti che pesca tutti i
nomi dei contatti. Invece tu metterai in questa query un criterio WHERE sul
campo ditta in modo che sia uguale alla seguente espressione
like iif(isnull([forms]![tuaform]![ditta]);"*";[forms]![tuaform]![ditta])
Antonio


title: Aiuto!!

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
yu0e6.73362$
ew1.4...@news.infostrada.it
.
>......
Grazie, provero' a fare come consigliato, anche se non ho capito molto
bene!!! ;-)
Se va male tornero' a farmi sentire...... Ciao!!


title: Gestione porta RS232

text:
Buonasera,
ho la necessita' di aprire un collegamento sulla porta COM1 (in sola
scrittura) per l'invio di semplici stringhe di testo.

Ho provato aprendo il file in questo modo

Open "com1: 19200,n,8,1" for output as #1

print  #1, stringa

con hyperterminal il collegamento funziona regolarmente ma non riesco a
trovare un metodo funzionante per la mia procedura

qualcuno sa dirmi dove stia l'errore??

Grazie a tutti
Marco67

--

G.L. Informatica
Via B. Buozzi 74/B Grosseto
tel. 0564/411.318 - fax 0564/070.848
http://www.glinformatica.it


title: Gestione porta RS232

author: BFS

text:
Il 26/09/2016 17:02, Marco67 ha scritto:
> Buonasera,
> ho la necessita' di aprire un collegamento sulla porta COM1 (in sola
> scrittura) per l'invio di semplici stringhe di testo.
>
> Ho provato aprendo il file in questo modo
>
> Open "com1: 19200,n,8,1" for output as #1
>
> print  #1, stringa
>
> con hyperterminal il collegamento funziona regolarmente ma non riesco a
> trovare un metodo funzionante per la mia procedura
>
> qualcuno sa dirmi dove stia l'errore??
>
> Grazie a tutti
> Marco67
>

argomento trito e ritrito...googola

ciao


title: Gestione porta RS232

text:
Per quello che hai scritto non puoi chiedere aiuto... essendo una invenzione che ti tecnico con Access ed il VBA ha poco a che vedere...

Leggi questo:

http://www.riolab.org/index.php?option=com_content&view=article&id=140:comunicazione-con-la-porta-seriale-rs232&catid=46:access&Itemid=69


title: Gestione porta RS232

author: Simone Calligaris

text:
"@Alex" <

> Per quello che hai scritto non puoi chiedere aiuto... essendo una
> invenzione che ti tecnico con Access ed il VBA ha poco a che vedere...
>

In realtà, se ben ricordo, con i vecchi linguaggi Basic si pilotava proprio
in quel modo la Seriale...

Saluti.


title: Gestione porta RS232

author: RobertoA

text:

Veramente dal Vb3 in poi c'era il vbx e poi l'ocx gia' pronto
A colpi di api si andava ancora prima
Comunque l'esempio su Riolab fornito sopra funziona perfettamente
Non ho mai provato ma forse anche tirando su il mscomm.ocx, dopo averlo
registrato da sistema operativo, magari ti aggiunge il controllino sulla
toolbox


title: Gestione porta RS232

text:
"RobertoA" <

>> In realtà, se ben ricordo, con i vecchi linguaggi Basic si pilotava
>> proprio
>> in quel modo la Seriale...
>> Saluti.

> Veramente dal Vb3 in poi c'era il vbx e poi l'ocx gia' pronto

No, mi riferivo ai linguaggi Basic anni '80 basati su MS DOS

> Comunque l'esempio su Riolab fornito sopra funziona perfettamente

Certo che funziona.

Saluti.


title: x Giorgio Rancati - Errore out of memory su aggiornamento tabella

author: Pisciotta Fabio

text:
Ciao Giorgio, ho seguito il tuo consiglio e ho provato il tuo codice anche
se ho letto di utilizzare i cursori in casi estremi, perchè richiedono molte
risorse. Nelle opzioni Avanzate ho dovuto impostare 0 sul numero massimo
record predefinito. Mi analizzava solo i primi 10000 record. Non riesco a
passare @strWhere come parametro. E' possibile passare un parametro nella
dichiarazione del cursore?.
ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int, @Ogni int,
@chrSelezionato as nvarchar(25), @strWhere nvarchar(255))
AS
Declare @Id Int
set @strWhere=N'NArea=1'
DECLARE Privati_Cursor CURSOR LOCAL SCROLL FOR
SELECT ID FROM TPrivati WHERE (@strWhere)
OPEN Privati_Cursor
FETCH NEXT FROM Privati_Cursor
INTO @Id
WHILE @@FETCH_STATUS = 0
BEGIN
   UPDATE TPrivati
      SET Selezionato=@chrSelezionato
   WHERE  ID=@Id
   SET @DaSelezionare=@DaSelezionare-1
   IF @DaSelezionare=0
      BREAK
   FETCH RELATIVE @Ogni FROM Privati_Cursor
   INTO @Id
END
CLOSE Privati_Cursor
DEALLOCATE Privati_Cursor
Ciao
Fabio


author: giorgio rancati

text:
"Pisciotta Fabio" <
pisciot...@email.it
> ha scritto nel messaggio
news:385cuaF...@individual.net...
> Ciao Giorgio, ho seguito il tuo consiglio e ho provato il tuo codice anche
> se ho letto di utilizzare i cursori in casi estremi, perchè richiedono
molte
> risorse.
vero ma anche il tuo codice VBA fa aprire un cursore lato server quindi non
cambia nulla.
>Nelle opzioni Avanzate ho dovuto impostare 0 sul numero massimo
> record predefinito. Mi analizzava solo i primi 10000 record. Non riesco a
> passare @strWhere come parametro. E' possibile passare un parametro nella
> dichiarazione del cursore?.
No, la WHERE non è possibile passarla come parametro, in nessuna select Sql
cursori o non cursori.
Potresti costruire un Sql dimanico ma visto il contesto verrebbe solo un
pasticcio che ne comprometterebbe la comprensione in futuro.
> ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int, @Ogni int,
> @chrSelezionato as nvarchar(25), @strWhere nvarchar(255))
>
[CUT]
Ho visto che a te interessa imporre un filtro per 4 campi, ovvero [NArea],
[IdRegione], [IdProvincia], [IdComune]
quindi potresti passare i 4 valori e comporre la tua Where in Questo modo
-----------------------
 ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int, @Ogni int,
 @chrSelezionato as nvarchar(25), @NArea int, @IdRegione int, @IdProvincia
int, @IdComuneint)
AS
DECLARE Privati_Cursor CURSOR LOCAL SCROLL FOR
SELECT ID FROM TPrivati
WHERE NArea=CASE WHEN @NArea Is Null THEN NArea ELSE @NArea END
  AND IdRegione=CASE WHEN @IdRegione Is Null THEN IdRegione ELSE @IdRegione
END
  AND IdRegione=CASE WHEN @IdRegione Is Null  THEN IdRegione ELSE @IdRegione
END
  AND IdProvincia =CASE WHEN @IdProvincia Is Null  THEN IdProvincia ELSE
@IdProvincia END
  AND IdComuneint=CASE WHEN @IdComuneint Is Null  THEN IdComuneintELSE
@IdComuneint END
--------------------
Se la tua estrazione dei nomiativi può essere casuale (e non ogni x nomi)
puoi fare a meno del cursore
----------------------
 ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int,
 @chrSelezionato as nvarchar(25), @NArea int, @IdRegione int, @IdProvincia
int, @IdComuneint)
AS
SET ROWCOUNT @DaSelezionare
SELECT * FROM TPrivati
WHERE NArea=CASE WHEN @NArea Is Null THEN NArea ELSE @NArea END
  AND IdRegione=CASE WHEN @IdRegione Is Null THEN IdRegione ELSE @IdRegione
END
  AND IdRegione=CASE WHEN @IdRegione Is Null  THEN IdRegione ELSE @IdRegione
END
  AND IdProvincia =CASE WHEN @IdProvincia Is Null  THEN IdProvincia ELSE
@IdProvincia END
  AND IdComuneint=CASE WHEN @IdComuneint Is Null  THEN IdComuneintELSE
@IdComuneint END
ORDER BY NEW_ID()
SET ROWCOUNT 0
--------------------
Ciao Giorgio


title: riproposizione problema su pulsante x pag successiva o precedente

author: Giuseppe

text:
Scusate se ripropongo il problema ma non ci riesco.
In una maschera continua ho l'esigenza di inserire due pulsanti (PGSu
e PGGiu) per spostarmi avanti e indietro nelle pagine della maschera.
Ho inserito in testa al modulo della maschera la variabile
Dim iPage As Byte
e sul pulsante PGSu:
iPage = iPage + 1
DoCmd.GoToPage iPage
mentre sul pulsante PGGiu
If iPage > 0 Then
iPage = iPage - 1
DoCmd.GoToPage iPage
Else
MsgBox "Sei già alla prima pagina"
End If
Cliccando il pulsante PGGiu una volta non succede nulla, se lo clicco
la seconda volta esce il msg "il numero di pagina specificato come
argomento dell'azione VaiAPagina o nel metodo GotoPage non esiste in
questa maschera"; se clicco sul pulsante PGGiu in qualsiasi pagina mi
trovi, esce il messaggio del msgBox.
Come deve cambiare questi codici?
Grazie.
Giuseppe.


author: Pablitomf

text:
[CUTTONE]
Scusate se ripropongo il problema ma non ci riesco.
Come deve cambiare questi codici?
-------------------
In una demo che pubblicati tempo fa su Accessgroup c'è qualcosa che può
esserti utile... guardatelo tu però :D
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personalizza%20maschera%20da%20codice%20VBA
--
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related


text:
On 23 Mar, 20:05, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> [CUTTONE]
> Scusate se ripropongo il problema ma non ci riesco.
> Come deve cambiare questi codici?
>
> -------------------
>
> In una demo che pubblicati tempo fa su Accessgroup c'è qualcosa che può
> esserti utile... guardatelo tu però :D
>
>
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personaliz.
..
>
> --
> ---
> Ciao
> Pablitomf
>
> FORZA NAPOLI - - - SEMPRE!
>
> Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Grazie Plabitomf sicuramente in quell'esempio c'è quel che mi serve,
però ho problemi con il file.
Nonostante tenga premuto il pulsante maiuscolo all'apertura del file,
non riesco a vedere la struttura della maschera e del database.
Inoltre utilizzo Access 2007 e all'apertura del file mi chiede di
aggiornarlo alla nuova versione. In entrambi i casi mi dice che ci
sono riferimenti mancanti a dei file .ocx. Inoltre tutti  i pulsanti
della maschera non hanno nessun effetto.
E' un problema mio o cìè qualcosa che non va al file. Mi fai sapere
per favore.
Grazie.
Giuseppe.


text:
On 23 Mar, 20:05, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> [CUTTONE]
> Scusate se ripropongo il problema ma non ci riesco.
> Come deve cambiare questi codici?
>
> -------------------
>
> In una demo che pubblicati tempo fa su Accessgroup c'è qualcosa che può
> esserti utile... guardatelo tu però :D
>
>
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personaliz.
..
>
> --
> ---
> Ciao
> Pablitomf
>
> FORZA NAPOLI - - - SEMPRE!
>
> Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Scusa Pablitomb
Ho abbassato, il livello di protezione Access 2007 e ora il file
funziona, ma non riesco a vedere la struttura del database e a capire
come hai fatto a far in  modo che è possibile con i pulsanti a
spostarsi tra le pagine della maschera.
Attendo tue notizie.
Ciao.


text:
On 23 Mar, 20:05, "Pablitomf" <
pablit...@hotmail.it
> wrote:
> [CUTTONE]
> Scusate se ripropongo il problema ma non ci riesco.
> Come deve cambiare questi codici?
>
> -------------------
>
> In una demo che pubblicati tempo fa su Accessgroup c'è qualcosa che può
> esserti utile... guardatelo tu però :D
>
>
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personaliz.
..
>
> --
> ---
> Ciao
> Pablitomf
>
> FORZA NAPOLI - - - SEMPRE!
>
> Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Annullamento dei due post precedenti.
Ora riesco a vedere anche la struttura del database.
Spero di riuscire a ottenere lo stesso risultato.
Cmq non disdegno un aiuto alla prima soluzione, che forse con i dovuti
aggiustamenti è più semplice.
Grazie Pablitomf. Scusa i post errati ma ho da poco installato Access
2007.
Giuseppe.


title: Quale prg di grafica ?

author: Pierluigi

text:
Quale mi consigliate di usare e comprare tra Paint Shop Pro, Photoshop e
Fireworks ? tenendo conto soprattutto conto che sono un quasi novello in
grafica, mi servirà per grafica web e fotoritocco al 50%, il costo di
Photoshop è alto ma se ne vale la pena...FireWorks è meno caro ma ci
entrerebbe nel budget anche Flash5, Psp lo lascio ad intuito come ultima
spiaggia ma dipende dai vostri consigli...insomma datemi una dritta!
Ciao e Grazie a tutti!


title: Quale prg di grafica ?

text:
"Pierluigi" <pierabra*@
inwind.it
> ha scritto nel messaggio
news:Sx5k8.17222$%g7.4...@twister2.libero.it...

Scusate ho sbagliato gruppo!


title: forse OT collegarsi a database locale da sql server

author: Tuzzo

text:
Ciao,
provo a chiedere aiuto qui :-)
utilizzo per lavoro delle applicazioni che girano su sql server.
Vorrei utilizzarle per interrogare un database fatto in access 2007 che
però è nel mio pc.
Mi sembra che debbo aggiungere alla eventuale query che faccio, una
stringa nella quale specifico appunto di collegarsi al database in
questione.
Purtroppo non riesco a rintracciare questa stringa :-/
Qualche anima pia?
:-D


author: Sergio MAZZA

text:
"Tuzzo" <
tuzzoma...@yahoo.it
> ha scritto nel messaggio
news:MPG.235949933...@nntp.aioe.org...

[risposta]
Prova questo:
www.sitocomune.com
 Sezione Tables
1.19 Collegare un client Access97 a SQL Server via ODBC
Ciao.
--
Sergio MAZZA


title: HELP ME PLEASE: Contratti

author: dan

text:
Buongiorno a tutti, mi chiedo se ha 42 anni come ho io.. mi tocca rimettermi
a studiare ... accidenti nn ci riesco..cmq.. dopo un misero corso di 4
giorni mi hanno appioppato il compito di predisporre un database per la
gestione dei contratti in essere.. nn molti.. ma nonostante il mio impegno e
l'utilizzo di qualche libro gigantesco.. nn riesco a venire a capo degli
innumerevoli problemi che continuano a sorgere.. specie per quanto riguarda
le relazioni... c'č qualche anima gentile che potrebbe darmi una mano.. se
nella zona di Milano meglio.. magari un piccolo database funzionante..
simile da poter rielaborare?  dietro corrispettivo di pagamento per il tempo
perso.. chiaramente..  grazie per l'attenzione e buon lavoro a tutti..
Diego
dan...@libero.it


title: HELP ME PLEASE: Contratti

text:
dan <
dan...@libero.it
> wrote in message W3tK7.140$4M2....@news2.tin.it...
> Buongiorno a tutti, mi chiedo se ha 42 anni come ho io.. mi tocca
rimettermi
> a studiare ... accidenti nn ci riesco..cmq.. dopo un misero corso di 4
Bisogna sempre studiare... in maniera particolare nel campo informatico dove
le bocce non stanno mai ferme!!!
Antonio


title: HELP ME PLEASE: Contratti

author: Roberto dal portatile

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:_IvK7.136400$sq5.6...@news.infostrada.it...

Moooooolto vero!!
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: HELP ME PLEASE: Contratti

author: francesco

text:
"dan" <
dan...@libero.it
> ha scritto nel messaggio
news:W3tK7.140$4M2....@news2.tin.it...
> Buongiorno a tutti, mi chiedo se ha 42 anni come ho io.. mi tocca
rimettermi
> a studiare ...
Io ne ho 43 e alla sera piuttosto che imbesuirmi di televisione mi prendo un
bel manuale di qualche cosa e me lo studio e son ben contento.
> l'utilizzo di qualche libro gigantesco.. nn riesco a venire a capo degli
> innumerevoli problemi che continuano a sorgere..
Scusa una piccola precisazione, ma le virgole le hanno inventate proprio per
lo scopo per il quale tu usi i puntini...
Guarda qualche esempio fornito con access o cerca di essere piu' preciso,
contare dei contratti mi sembra una cosa abbastanza banale.


title: HELP ME PLEASE: Contratti

author: maurizio

text:
"dan" <
dan...@libero.it
> ha scritto nel messaggio
news:W3tK7.140$4M2....@news2.tin.it...
> Buongiorno a tutti, mi chiedo se ha 42 anni come ho io.. mi tocca
rimettermi
> a studiare ... accidenti nn ci riesco..cmq.. dopo un misero corso di 4
> giorni mi hanno appioppato il compito di predisporre un database per la
> gestione dei contratti in essere.. nn molti.. ma nonostante il mio impegno
e
> l'utilizzo di qualche libro gigantesco.. nn riesco a venire a capo degli
> innumerevoli problemi che continuano a sorgere.. specie per quanto
riguarda
> le relazioni... c'è qualche anima gentile che potrebbe darmi una mano.. se
> nella zona di Milano meglio.. magari un piccolo database funzionante..
> simile da poter rielaborare?  dietro corrispettivo di pagamento per il
tempo
> perso.. chiaramente..  grazie per l'attenzione e buon lavoro a tutti..
> Diego
>
dan...@libero.it
>
Chiedo scusa a roberto, ho sbagliato a schiacciare il pulsante. Volevo
rispondere a dan con queste parole.
"Chiedo scusa, non voglio contraddirvi, ma anche seguendo e leggendo questo
ng si impara moooooolto"
e se lo dico io che ho incominciato a 43 anni senza sapere nulla....
maurizio


title: HELP ME PLEASE: Contratti

author: Govardo Libero

text:
"dan" <
dan...@libero.it
> ha scritto nel messaggio
news:W3tK7.140$4M2....@news2.tin.it...
> Buongiorno a tutti, mi chiedo se ha 42 anni come ho io.. mi tocca
rimettermi
> a studiare ... accidenti nn ci riesco..cmq.. dopo un misero corso di 4
> giorni mi hanno appioppato il compito di predisporre un database per la
> gestione dei contratti in essere.. nn molti.. ma nonostante il mio impegno
e
> l'utilizzo di qualche libro gigantesco.. nn riesco a venire a capo degli
> innumerevoli problemi che continuano a sorgere.. specie per quanto
riguarda
> le relazioni... c'è qualche anima gentile che potrebbe darmi una mano.. se
> nella zona di Milano meglio.. magari un piccolo database funzionante..
> simile da poter rielaborare?  dietro corrispettivo di pagamento per il
tempo
> perso.. chiaramente..  grazie per l'attenzione e buon lavoro a tutti..
> Diego
>
dan...@libero.it
>
Ti capisco, certo 4 giorni di full immersion forse potrebbero servire a
diradare la nebbia, ma poi c'è da fare la strada.
Ti consiglio di fare un progetto "sulla carta" di ciò che ti serve, frugare
in altri database (es. NorthWind) e capire come girano è già un buon punto
di partenza, e poi utilizzare quanto più possibile le autocomposizioni.
Non cercare di scrivere subito del codice, perchè normalmente si può creare
un buon Db senza scriverne una sola riga.
Ricorda che un database ben strutturato può fungere per gestire business di
pomodori, gioielli, contratti, automobili, agenzie di viaggio ecc., perchè
le basi sono sostanzialmente identiche.
Quindi non ti deprimere perchè nessuno è nato imparato e su questo Ng
troverai le risposte a tutte le tue domande, da parte di utilizzatori e
sviluppatori più o meno esperti.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


title: HELP ME PLEASE: Contratti

author: warp

text:
> Ti capisco, certo 4 giorni di full immersion forse potrebbero servire a
> diradare la nebbia, ma poi c'è da fare la strada.
> Ti consiglio di fare un progetto "sulla carta" di ciò che ti serve,
frugare
> in altri database (es. NorthWind) e capire come girano è già un buon punto
> di partenza, e poi utilizzare quanto più possibile le autocomposizioni.
> Non cercare di scrivere subito del codice, perchè normalmente si può
creare
> un buon Db senza scriverne una sola riga.
Un buon DB senza una riga di codice?


title: HELP ME PLEASE: Contratti

text:
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:GETK7.145619$sq5.6...@news.infostrada.it...

Vabbe', volevo dire un discreto Db.



title: HELP ME PLEASE: Contratti

text:
"Govardo Libero"
> > > Non cercare di scrivere subito del codice, perchè normalmente si può
> > creare
> > > un buon Db senza scriverne una sola riga.
>  Un buon DB senza una riga di codice?
> Vabbe', volevo dire un discreto Db.
Un discreto DB senza una riga di codice?
;-)


title: HELP ME PLEASE: Contratti

text:
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:G_UK7.146641$sq5.6...@news.infostrada.it...

Hai Visto?
L'hai spaventato talmente tanto che con si è fatto risentire.
Pare che stia facendo un nuovo corso in un convento di frati di clausura
:-)))))



title: HELP ME PLEASE: Contratti

text:
no.. ma sono rimasto un po incredulo.. parlate tutti di codici.. che č una
cazzata.. forse mi sono reso conto di essere refrattario ad Access.
Ma nn dispero, magari qualcuno che mi dia una mano lo trovo, mai disperare,
cmq grazie per le risposte
Diego


title: Maschera: controllo con indirizzo e-mail

author: Zappus

text:
Salute a tutti,
in una maschera ho un campo che contiene un indirizzo di posta elettronica,
vorrei fare in modo che cliccandoci sopra mi apra Outlook Express e mi
posizioni l'indirizzo sull'invia a.
Questo senza modificare il collegamento ipertestuale col destro....devo
creare una routine o qualsiasi altra cosa che sia automatica.
Grazie Luca


author: Karl Donaubauer

text:

www.donkarl.com/it
 FAQ 4.27 E-mail con indirizzo da casella di testo
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4mcmscF...@individual.net...
> Zappus wrote:
> > in una maschera ho un campo che contiene un indirizzo di posta
> > elettronica, vorrei fare in modo che cliccandoci sopra mi apra Outlook
> > Express e mi posizioni l'indirizzo sull'invia a.
> > Questo senza modificare il collegamento ipertestuale col destro....devo
> > creare una routine o qualsiasi altra cosa che sia automatica.
>
>
www.donkarl.com/it
 FAQ 4.27 E-mail con indirizzo da casella di testo
>
> --
Ho provato il metodo inserendo la riga di codice in un pulsante e
modificando il nome con quello della casella di testo che contiene
l'indirizzo e-mail:
mi restituisce il seguente messaggio: errore di run time 2185: impossibile
fare riferimento ad una proprietą o ad un membro per un controllo che non
abbia lo stato attivo.
Ho provato a cliccare all'interno della casella di testo prima di premere il
pulsante ma continua a darmi lo stesso messaggio....
Grazie Luca.


text:
"Zappus" <
in...@lcinformatica.it
> ha scritto nel messaggio
news:g0aMg.12042$6Z1....@tornado.fastwebnet.it...
>
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
> news:4mcmscF...@individual.net...
> > Zappus wrote:
> > > in una maschera ho un campo che contiene un indirizzo di posta
> > > elettronica, vorrei fare in modo che cliccandoci sopra mi apra Outlook
> > > Express e mi posizioni l'indirizzo sull'invia a.
> > > Questo senza modificare il collegamento ipertestuale col
destro....devo
> > > creare una routine o qualsiasi altra cosa che sia automatica.
> >
> >
www.donkarl.com/it
 FAQ 4.27 E-mail con indirizzo da casella di testo
> >
> > --
Scusa tutto OK!
Grazie


author: RobertOne

text:
"Zappus" <
in...@lcinformatica.it
> ...
>
> Scusa tutto OK!
> Grazie
Mi puoi spiegare come hai fatto? Anch'io avrei la stessa esigenza. Nella
sessiona anagrafica del db che ho creato ho anche due caselle di testo che
si riferiscono ad indirizzo di posta elettronica ed indirizzo web,
formattate a collegamento ipertestuale.
Non riesco a capire come devo mettere in pratica la Faq di Karl in modo da
fare aprire automaticamente il prg di posta elettronica quando per esempio
clicco su
robe...@robort.it
 . Si può fare senza l'uso di pulsanti ma
solamente cliccando sopra all'indirizzo di posta o indirizzo web? come?
Grazie.
Roberto


text:
"RobertOne" <
robe...@robort.it
> ha scritto nel messaggio
news:edrcil$1ug$1...@balena.cs.interbusiness.it...

io ho utilizzato un pulsante


title: Recuparare parametri ODBC da dentro ACCESS

author: Simone

text:
Salve,
ho un applicazione che utilizza tabelle su un server MsSql connesse tramite
ODBC.
La stessa applicazione con database identico ma di nome diverso, e a volte
su un server diverso viene utilizzata da svariati utenti.
Mi occorrerebbe poter "leggere" il server a cui si riferisce la connessione
ODBC con la quale sono linkate le tabelle.
Mi riesce perfettamente recuperare il nome della connessione ODBC a cui fa
riferimento ogni tabella.
Come faccio a fare il passaggio ulteriore?
Sapendo il nome della connessione ODBC ricavare (non so da dove o come) il
nome del server e gli altri parametri?
Grazie
Simone


author: ALESSANDRO Baraldi

text:
"Simone" <
sp1...@katamail.com
> ha scritto nel messaggio
news:fa212v$2l82$1...@newsreader1.mclink.it...

La stringa di connessione sarà una cosa simile(Semplificata):
DRIVER={SQL Server};SERVER=NomeServer;DATABASE=NomeDB
Secondo te come fai a sapere qual'è il Server....??
Function GetServer(strConnection As String) As String
    Dim inS As Integer
    inS = InStr(sConn, "SERVER=") + Len("SERVER=")
    GetServer = Mid$(sConn, inS, InStr(inS, sConn, ";") - inS)
End Function
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fa22jm$o3d$1...@aioe.org...

Forse non mi sono spiegato.
Se eseguo questa query:
           select name, foreignname,connect from msysobjects where connect
is not null
ottengo nel campo connect la stringa di connessione che, almeno nel mio
caso, è questa:
           DSN=NomeDSN;APP=Microsoft Office
2003;WSID=NomeDelMioPC;DATABASE=NomeDelDataBase
come vedi il nome del server non c'è! e dovrei sapendo NomeDSN recuparare il
nome del server specificato nel DSN configurato...
Le tabelle sono collegate tramite collegamento "manuale" (=collega tabella)
da dentro access perché ho bisogno di farci riferimento direttamente con
svariate maschere che "puntano" direttamente sulle tabelle.
In alternativa potresti suggerirmi un modo per collegare run-time le tabelle
dentro access con una connessione DSN less.
Ciao
Simone


author: Alessandro Cara

text:

perche' e' un DSN di sistema? Usa un DSN su file quando esegui il
collegamento
>
> come vedi il nome del server non c'è! e dovrei sapendo NomeDSN recuparare il
> nome del server specificato nel DSN configurato...
i DSN stanno generalmente in <systemdisk>\Programmi\FileComuni\ODBC
e sono uno "squallido" file di testo con  righe in coppia chiave=valore
(un tipo .ini per intenderci)
>
> Le tabelle sono collegate tramite collegamento "manuale" (=collega tabella)
> da dentro access perché ho bisogno di farci riferimento direttamente con
> svariate maschere che "puntano" direttamente sulle tabelle.
????? Questa non l'ho capita
>
> In alternativa potresti suggerirmi un modo per collegare run-time le tabelle
> dentro access con una connessione DSN less.
qui alla funzione "LinkTableDAO" trovi un esempio
http://www.webservertalk.com/archive136-2004-8-361865.html
e' la prima che mi e' capitato di trovare ma sicuramente nei siti di
riferimento del NG trovi tutto quello che cerchi
www.sitocomue.com
www.alessandrobaraldi.it
www.donkarl.com/it
www.accessgroup.it
e puoi provare anche su
www.mvps.org
gli indirizzi li ho scritti a memoria spero siano tutti corretti
--
ac
y-1=x


title: istruzione if else ...

text:
ciao a tutti

è possibile riassumere queste due istruzioni in una sola?

if me!IdProdotto.Column(8)<>""  then
Me!IdConfezione=me!IdProdotto.Column(5)
Else
Me!IdConfezione=me!IdProdotto.Column(2)
end if

if me!IdProdotto.Column(8)="" and  me!IdProdotto.Column(2)=""
Me!IdConfezione= 2
end if

grazie


title: istruzione if else ...

author: Mancini

text:
io intravedo 2 modi:

1°
If Me!c8 <> "" Then
    Me!cc = Me!c5
Else
    Me!cc = Nz(Me!c2, 2)
End If

2°
If Me!c8 <> "" Then
    Me!cc = Me!c5
ElseIf ((Me!c8 = "") And (Me!c2 = "")) Then
    Me!cc = 2
Else
    Me!cc = Me!c2

pero valuta se non ti potrebbero arrivare problemi dalla ambiguità
che esiste fra il Null e le stringhe di lunghezza zero

eventualmente al posto di:
If Me!c8 <> "" .........
mettici:
If Len(Me!c8 & "") > 1 ......
eccetera

Facci sapere


title: istruzione if else ...

text:

grazie Mancini

e se fosse cosi'

if len(IdProdotto.Column(8)<>"")>1 then
va column(5) se è vuota column(2) se è vuolta Me!IdConfezione=2

come va impostata?
grazie


title: istruzione if else ...

text:

Si ma perdonami : mi sembra di rilevare una falla.

che succede se idProdotto.column(8) e idProdotto.column(5)
sono ambedue diverse da "" ? (presuppongo l' assenza di valori null).

Succede che comunque la idConfezione prende il valore
IdProdotto.Column(5)

E' normale ? Va bene cosi' ?


title: Leggere contenuto Directory...Ordinamento file

author: Pablitomf

text:
Ciao ragazzuoli... come da oggetto, voglio leggere semplicemente il
contenuto di una Directory cos� come segue...
    Dim MyPath As String
    Dim MyName As String
    MyPath = Startpath
    MyName = Dir(MyPath)
    Do While MyName <> ""
        debug.print MyName
        MyName = Dir
    Loop
vorrei solo capire se c'� un metodo da impostare per poter dare un ordine
di lettura al contenuto, non s�, tipo per data creazione, per ordine
crescente, per dimensione... roba del genere...
Sapete come fare e ovviamente se si pu�?... al momento segue le
impostastioni di winzozz...
--
Ciao
Pablitomf
-----------------------------------
Propongo 4-4-2 con il Rombo a centrocampo :
De Sanctis
Zuniga-Campagnaro-Contini-Aronica
Maggio-Cigarini-Gargano-Hamsik
Lavezzi-Quagliarella
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Marco Pizzamiglio

text:
Pablitomf ha scritto:
> Ciao ragazzuoli... come da oggetto, voglio leggere semplicemente il
> contenuto di una Directory cos� come segue...
>     Dim MyPath As String
>     Dim MyName As String
>     MyPath = Startpath
>     MyName = Dir(MyPath)
>     Do While MyName <> ""
>         debug.print MyName
>         MyName = Dir
>     Loop
> vorrei solo capire se c'� un metodo da impostare per poter dare un ordine
> di lettura al contenuto, non s�, tipo per data creazione, per ordine
> crescente, per dimensione... roba del genere...
> Sapete come fare e ovviamente se si pu�?... al momento segue le
> impostastioni di winzozz...
Con Dir non puoi impostare ordini particolari, come dice l'help (che palle
'sto help, vuole avere sempre ragione lui!). Se li vuoi ordinati per nome
ti basta metterli in una tabella o matrice e ordinarli, se li vuoi
ordinati in altro modo devi usare altri sistemi, per esempio creare un
file di testo e importarlo, e l� puoi avere tutti i dati che vuoi:
  Shell "cmd.exe /c dir /oen C:Programmi > D:file.txt"
O puoi usare Dir per recuperare i nomi dei files, e scripting per le
propriet�:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:windowsnotepad.exe")
Debug.Print "Date created: " & objFile.DateCreated
Debug.Print "Date last accessed: " & objFile.DateLastAccessed
Debug.Print "Date last modified: " & objFile.DateLastModified
Debug.Print "Drive: " & objFile.Drive
Debug.Print "Name: " & objFile.Name
Debug.Print "Parent folder: " & objFile.ParentFolder
Debug.Print "Path: " & objFile.Path
Debug.Print "Short name: " & objFile.ShortName
Debug.Print "Short path: " & objFile.ShortPath
Debug.Print "Size: " & objFile.Size
Debug.Print "Type: " & objFile.Type
Ciao.
-Marco-
--



text:
Marco Pizzamiglio ha scritto:
> Pablitomf ha scritto:






> Ciao.
> -Marco-
eh, sto help � una rottura! (speravo in qualche Api) :D
cmq gi� uso scripting x le propriet�, era solo una questione di settaggio
a volo che mi interessava, senza passare da tabelle o da scripting...
peccato.. mi dovr� tenere la lettura nativa ;) denghiuverimacc
--
Ciao
Pablitomf
-----------------------------------
Propongo 4-4-2 con il Rombo a centrocampo :
De Sanctis
Zuniga-Campagnaro-Contini-Aronica
Maggio-Cigarini-Gargano-Hamsik
Lavezzi-Quagliarella
questo articolo e` stato inviato via web dal servizio gratuito



author: OneEDP

text:
Pablitomf wrote:
> Ciao ragazzuoli... come da oggetto, voglio leggere semplicemente il
> contenuto di una Directory cos� come segue...
>
>    Dim MyPath As String
>    Dim MyName As String
>    MyPath = Startpath
>    MyName = Dir(MyPath)
>    Do While MyName <> ""
>        debug.print MyName
>        MyName = Dir
>    Loop
>
> vorrei solo capire se c'� un metodo da impostare per poter dare un
> ordine di lettura al contenuto, non s�, tipo per data creazione, per
> ordine crescente, per dimensione... roba del genere...
> Sapete come fare e ovviamente se si pu�?... al momento segue le
> impostastioni di winzozz...
Ti incollo una funzione di una mia maschera.
La dichiarazione delle variabili a livello di modulo non le ho inserite,
cos� come altre chiamate...
... devi referenziare scrrun.dll della %windidir%\system32
Come vedi � pi� "pesante" La gestione del file testo generato che
l'obiettivo
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Crea il file da allegare all'email contente la lista dei file della
directory dell'host
'Si utilizza un recordset al volo in memoria per consentire l'ordinamento
Private Function CreaListaFileDirectory(ByVal strPath As String) As Boolean
On Error GoTo Err_CreaListaFileDirectory
    Dim objFSO As Scripting.FileSystemObject
    Dim objFiles As Scripting.Files
    Dim objFile As Scripting.File
    Dim curTotalSize As Currency
    Dim curGroupSize As Currency
    Dim intGroupCount As Integer
    Dim intFileNumber As Integer
    Dim rstFiles As ADODB.Recordset
    Set rstFiles = New ADODB.Recordset
    Dim lngOldDateShort As Long
    meStrTitoloTask = ">CREA LISTA FILE DIRECTORY... "
    meSngStartTask = Timer
    Me.LogStatus = Me.LogStatus & _
        meStrTitoloTask & vbCrLf
    AggiornaLogStatus
    intFileNumber = FreeFile
    Open meStrNomeFile & ".txt" For Output As #intFileNumber
    Print #intFileNumber, Now() & " - Directory di \\" & GetComputerName &
" - " & strPath
    Print #intFileNumber, ""
    Print #intFileNumber, _
        Left("Nome File" & Space(50), 50) & _
        Left("Dimensione" & Space(16), 16) & _
        Left("Ora Ultima Modifica" & Space(20), 20)
    Print #intFileNumber, String((50 + 16 + 3 + 3 + 20), "-")
    Print #intFileNumber, ""
    With rstFiles
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
        .ActiveConnection = Nothing
        .Fields.Append "Name", adChar, 256
        .Fields.Append "Path", adChar, 256
        .Fields.Append "FullName", adChar, 256
        .Fields.Append "DateLastModified", adDate
        .Fields.Append "DateShort", adInteger
        .Fields.Append "Size", adDecimal, 12
        .Open
        'Popola il recordset
        Set objFSO = New Scripting.FileSystemObject
        Set objFiles = objFSO.GetFolder(strPath).Files
        For Each objFile In objFiles
            .AddNew _
                Array( _
                    "Name", _
                    "FullName", _
                    "DateLastModified", _
                    "DateShort", _
                    "Size"), _
                Array( _
                    objFile.Name, _
                    objFile.Path, _
                    objFile.DateLastModified, _
                    CLng(CDate(Format(objFile.DateLastModified,
"dd/mm/yyyy"))), _
                    objFile.size)
            .Update
        Next objFile
        Set objFile = Nothing
        Set objFiles = Nothing
        .Sort = "DateShort DESC, Name ASC"
        curTotalSize = 0
        If Not .EOF Then
            lngOldDateShort = 0
            intGroupCount = 0
            curGroupSize = 0
            While Not .EOF
                If lngOldDateShort <> .Fields("DateShort") Then
                    If lngOldDateShort <> 0 Then
                        Print #intFileNumber, _
                            Space(30) & intGroupCount & " File   " & _
                            Right(Space(16) & Format(Int(curGroupSize),
"#,###"), 16) & " bytes"
                    End If
                    Print #intFileNumber, ""
                    Print #intFileNumber,
Format(.Fields("DateLastModified"), "dddd, d mmm yyyy")
                    Print #intFileNumber, String(30, "-")
                    intGroupCount = 0
                    curGroupSize = 0
                End If
                Print #intFileNumber, _
                    Left(.Fields("Name") & Space(50), 50) & _
                    Right(Space(16) & Format(.Fields("Size"), "#,###"), 16)
& "   " & _
                    Left(Format(.Fields("DateLastModified"), " hh:mm:ss") &
Space(20), 20)
                curTotalSize = curTotalSize + CCur(.Fields("Size"))
                curGroupSize = curGroupSize + CCur(.Fields("Size"))
                intGroupCount = intGroupCount + 1
                lngOldDateShort = .Fields("DateShort")
                .MoveNext
            Wend
        End If
        If lngOldDateShort <> 0 Then
            Print #intFileNumber, _
                Space(30) & intGroupCount & " File   " & _
                Right(Space(16) & Format(Int(curGroupSize), "#,###"), 16) &
" bytes"
        End If
        Print #intFileNumber, ""
        Print #intFileNumber, String((50 + 16 + 3 + 3 + 20), "-")
        Print #intFileNumber, _
            Space(30) & .RecordCount & " File   " & _
            Right(Space(16) & Format(Int(curTotalSize / 1024), "#,###"), 16)
& " Kbytes"
        .Close
    End With
Exit_CreaListaFileDirectory:
    On Error Resume Next
    DoEvents
    Me.LogStatus = Me.LogStatus & _
        Now() & meStrNomeFile & ".txt" & " contiene le lista dei file
sull'host (allegato email)" & vbCrLf
    Print #intFileNumber, ""
    Close #intFileNumber
    Set rstFiles = Nothing
    Set objFiles = Nothing
    Set objFSO = Nothing
    Me.LogStatus = Me.LogStatus & vbCrLf
    AggiornaTempoTrascorsoTask meStrTitoloTask, meSngStartTask
    Exit Function
Err_CreaListaFileDirectory:
    Me.LogStatus = Me.LogStatus & _
        Now() & " - Failure! " & _
        "Errore Imprevisto su CreaListaFileDirectory - " & Err.Number & ": "
& Err.Description & vbCrLf
    Resume Exit_CreaListaFileDirectory
End Function
Ciao
Daniele


title: Aggiornare comtemporaneamente alcuni campi di una form

author: Dino

text:
Ciao a tutti sono Dino.Scusate se ripesco un post non ancora chiuso
del tutto ma, non ne vengo fuori!!!
Molto semplicemente cerchero' di farvi un esempio:
Ho una form con 6 campi Pag1 Pag2  pag man 1 e pag man 2. pag standard
1 e pag standard 2.
Nei campi pag 1 e pag 2 ho impostato un ciclo del genere:
IIf([pagstandard1]>0;[pagstandard1];[pag man 1]).Ovviamente nei campi
pag standard ho gia' impostato dei valori.
In definitiva quando si viene a creare il record ho in automatico il
pag.Se volessi impostare invece un pag manuale non dovrei fare altro
che scrivere in pag man o 1 o 2 e il pagamento si cambierebbe
velocemente.
Il problema nasce dal fatto che i record generati possono essere molti
e di conseguenza vorrei evitare di andare a toccarli tutti.
Ecco perche' chiedo a voi se' possibile variando(come spiegavo sopra)
solo un campo di un record,variare anche gli altri campi inerenti di
tutti i record.
Giorni fa’ un nostro collega(che ringrazio ancora) mi ha dato queste
indicazioni :
SULL'EVENTO BEFOREUPDATE DEL FORM (SUBFORM MI SEMBRA DI CAPIRE) O DEL
CONTROLLO CHE TI INTERESSA
RECUPERA IL/I RECORDSETCLONE CERCA I RECORDS CHE TI INTERESSANO,
FINDFIRST - FINDNEXT (IMMAGINO USI DAO) E AGGIORNA I VALORI
(.EDIT,....,.UPDATE) .
Onestamente non riesco ad applicarle;non saprei da dove partire
Se ritenete opportuno posso anche inviarvi una copia del DB.
Grazie in anticipo Dino.