author: Geppo

text:
Ciao Nicoletta2 wrote:
> Ho ancora il problema di non riuscire a generare i file pdf con le
> dll di Lebans.
> L'errore che mi dà è:
> Comando o azione 'OutputSu' non disponibile. - N. 2046
>
> Ho modificato Formato Snapshot in Snapshot format e viceversa, ma il
> problema sussiste.
>
> C'e qualche altra differenza tra le lingue?
>
> Il comando per me è Docmd.OutputTo anche se il messaggio di errore
> dell'oggetto err è tradotto in italiano.
> Cosa posso verificare?
>
> ciao
> Nicoletta
http://www.donkarl.com/it/FAQ/FAQ5Report.htm#5.6
--
Ciao
Geppo


title: invio di report via e-mail

text:
Ho creato un piccolo database dove in una maschera compilandola mi crea
un report dei dati da me inseriti in tutta la maschera.
Volevo sapere se è possibile inviare vie mail report singoli, cioè
nel compilare più maschere nel momento in cui invio i report via mail
questo me li invia tutti dal primo all'ultimo mentre io avrei
bisognomla possibiltà di selezionare quelli che devo inviare.
Ogni maschera compilata mi viene visualizzata come pagina per cui 7
maschere sette report.
Spero di non aver fatto troppa confusione e che qualcuno possa
aiutarmi.
Grazie.


title: invio di report via e-mail

author: Alessandro Baraldi

text:
Il Report non può essere inviato di per se, ma necessita di una
conversione
in formato SNP(Snapshot, però richiede che l'utente abbia un file
chiamato
SnapShotViewer oppure Access installato).
L'alternativa è stamparlo in formato PDF come file, quindi inviare il
File PDF.
Cerca un pò nel NG se non sbaglio c'è un'altro 3D aperto proprio a
riguardo
ed in ogni caso se fai una ricerca trovi molti suggerimenti.
@Alex


title: ricercare stringa in tutti i campi

author: Remigio

text:
Ciao,
con una query in A2003 sarebbe possibile cercare una determinata stringa ma in tutti i campi di una tabella?
Per es. se cercassi la stringa "rom" in un'anagrafica, potrebbe trovare nel campo nome "romeo", nel campo cognome "trombetta", nel campo città "roma".
Grazie per l'aiuto.

Remigio


title: ricercare stringa in tutti i campi

text:

Ma è mai possibile che una stringa sia da ricercare in tutti i
campi....?
Come hai strutturato la tabella...?

Io se devo cercare unome nella Tabella Anagrafica lo cerco nel campo
"NOME" non la vado a cercare in "INDIRIZZO".... o in [TELEFONO]....

Chiaramente il mio è un'esempio per farti capire che forse qualche
cosa di strano c'è e vale la pena capire meglio...

@Alex


title: ricercare stringa in tutti i campi

author: Paolo opg

text:
Remigio <
lino...@gmail.com
> wrote in
news:16437334.1590.1321027168658.JavaMail.geo-discussion-forums@vbac9:

> Ciao,
> con una query in A2003 sarebbe possibile cercare una determinata
> stringa ma in tutti i campi di una tabella? Per es. se cercassi la
> stringa "rom" in un'anagrafica, potrebbe trovare nel campo nome
> "romeo", nel campo cognome "trombetta", nel campo citt� "roma". Grazie
> per l'aiuto.
>
> Remigio

tecnicamente e' possibile, solo che difficilmente e' utile.

se prepari una maschera che esegue la query:

select * from * where * like '*rom*'

il risultato e' inutilizzabile il 99% delle volte.

--
Paolo opg

BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--


title: ricercare stringa in tutti i campi

author: Vladimiro Leone

text:
On 11 Nov, 16:59, Remigio <
linore...@gmail.com
> wrote:

Ciao Remigio.
E' molto semplice; basta inserire nella query sotto il campo nome nel
rigo Criteri "rom", sotto il campo cognome nel rigo Oppure "rom" e
sotto il campo città nel rigo Oppure (più in basso dell'altro Oppure)
"rom".
Volendo, puoi inserire un parametro (l'importante che sia lo STESSO
PARAMETRO) di ricerca nei tre righi su esposti; ad esempio Like "*" &
[Inserire la stringa da ricercare] & "*"
Ciao Vladimiro.


title: ricercare stringa in tutti i campi

text:
Ho adottato la soluzione di Vladimiro, che in effetti era quello che stavo pensando di ottenere.
Vi ringrazio tutti per l'aiuto.
Saluti.

Remigio


title: ricercare stringa in tutti i campi

text:

In effetti è strano, ma + usato di quanti si pensi.......nel campo dei
libri (per esempio) la ricerca con parola chiave che cerchi un match
su autore, titolo ed editore contemporaneamente è molto usato. Lo
sviluppo nn è banale (la parola puo essere in tutti i campi, in uno
solo, due parole una sul titolo e una sull'autore....) a mio avviso ma
molto utile. Chiaro che si parla di ricerche molto avanzate, da usare
con query full-text (quindi non access) o con tabelle (o campi) di
appoggio che contengono già scremature delle ricerche da gestire ogni
modifica/inserimento dei record (altrimenti si diventa vecchi
nell'attendere i risultati su corpi di record molto grossi). Una roba
insomma abbastanza mastodontica, ma per l'utente finale nn è male per
nulla....


title: ricercare stringa in tutti i campi

text:
.....
>
> In effetti è strano, ma + usato di quanti si pensi.......nel campo dei
> libri (per esempio) la ricerca con parola chiave che cerchi un match
> su autore, titolo ed editore contemporaneamente è molto usato. Lo
> sviluppo nn è banale (la parola puo essere in tutti i campi, in uno
> solo, due parole una sul titolo e una sull'autore....) a mio avviso ma
> molto utile. Chiaro che si parla di ricerche molto avanzate, da usare
> con query full-text (quindi non access) o con tabelle (o campi) di
> appoggio che contengono già scremature delle ricerche da gestire ogni
> modifica/inserimento dei record (altrimenti si diventa vecchi
> nell'attendere i risultati su corpi di record molto grossi). Una roba
> insomma abbastanza mastodontica, ma per l'utente finale nn è male per
> nulla....

Pur comprendendo quello che dici, reputo sia una distorsione delle
basilari regole di Normalizzazione.
Questo non significa sia sbagliato, ma non funzionale.
Aggiungo, oltretutto che quanto stai dicendo tu(suggerito poi da
Vladimiro) è in tutti i caso MOLTO differente dalla richiesta dell'OP.
Avete fatto l'ipotesi che si limita a pochi campi... non TUTTI come ha
richiesto all'inizio e concetto sul quale ho espresso riserve.
Anche perchè ribadisco, nella norma le Tabelle viaggiano relazionate
con INDICI NUMERICI non sono grosse tabelle come i fogli ei EXCEL e
fare ricerche
FullText monotabellari è inutile.

In tutti i casi ognuno si fa male come meglio crede.

@Alex


title: ricercare stringa in tutti i campi

text:

Capito quello che intendi. Anche vero che ricercare su 3 campi è
diverso che ricercare su n campi variabili.....Cmq io nn ci vedo nulla
contro la normalizzazione, che di fatto è da attuare per costruire il
db e poi rappresentarlo. Ma se devo fare una ricerca complessa (parlo
chiaramente di esperienza utente) alla fine è come, in effetti, se io
presentassi un foglio excel all'utente finale....Cosa intendi per
ricerche full-text monotabellari inutili?


title: Collaboratore cercasi

author: Luciano (DOC)

text:
Cerco collaboratore con conoscenza di Access (programmazione) e conoscenza
base di SQL server (stored procedure semplici) per lavoro part time da
svolgersi in 2/3 mezze giornate a settimana con orario a piacere, presso
sede cliente in Roma, zona Balduina vicino metro.
Contatti in MB (togliere le XXX)
Saluti.
Luciano


title: dati diversi

author: massimo

text:
un saluto al ns.
volevo capire la fattibilità e possibilmente avere qualche consiglio in
merito alla gestione dettagli dei movimenti contabili:
il mio db è impostato nel seguente modo:
tbl movimenticontabili
tbl dettaglimovimenti collegata a tbl movimenticontabili
la tbl dettaglimovimenti è alimentata da una combo che preleva i dati da una
query relativa al pianoconti però volevo capire se posso aggregare in questa
combo anche una query clienti e fornitori il tutto per crearmi una riga
cliente o fornitore o pianoconti per determinare il dare o avere....
non sò se sono stato chiaro
sicuramente il problema è molto complesso
come posso fare per impostare questo meccanismo?
saluti Massimo


title: dati diversi

author: Lorenzo Coronati

text:
Scrisse "massimo" <
mas...@inwind.it
>:
>un saluto al ns.
Per cosa sta ns?
Forse new sgroup?
:-)
>la tbl dettaglimovimenti č alimentata da una combo che preleva i dati da una
>query relativa al pianoconti perņ volevo capire se posso aggregare in questa
>combo anche una query clienti e fornitori il tutto per crearmi una riga
>cliente o fornitore o pianoconti per determinare il dare o avere....
Query di unione
--
Lorenzo Coronati
---
<<il mondo si divide in due: gli gnucconi
e LE TESTE DI SCROTO, non credo proprio
di appartenere alla prima>>
(Riccardo Belzani, 22/2/2000)
---


title: send object

author: arirang

text:
Salve a tutti...
anche oggi sono riuscito ad infilarmi in un altro casino:::::))))
il problema è con send object.
attualmente ho una maschera ed un bottone cui è agganciata un'istruzione
send object con la quale inoltre ad una lista di destinatari un report . In
realtà l'origine dati del report è una tabella che contiene anche l'elenco
dei destinatari per cui con un ciclo do while not eof...loop viene applicato
un filtro sul report complessivo e di volta in volta viene salvato in
formato snapshot la sola porzione di report relativa al singolo
destinatario.
fino ad oggi tutto ok.
Ma ahime' c'è sempre qualcuno che ne vuole di piu'. Mi è stato chiesto di
inoltrare oltre al report di cui sopra anche un altro allegato che però non
deve essere filtrato. mi sono venute diverse idee (ivi compresa quella di
salvare come snapshot il report...zipparlo insieme all'altro oggetto da
spedire (in realtà si tratta di una lettera che potrei far partire anche
come pdf), zippare il tutto ed usare le mapi per inoltrare la posta.
tuttavia, mi domando, non è possibile con send object inoltrare due oggetti
del database con un medesimo invio o messaggio di posta elettronica?
Grazie a tutti per la pazienza e la competenza.
Antonio
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: send object

text:
arirang ha scritto:

No.
@Alex


title: send object

text:

grazie.....



title: DLookUp Riferimento ad un valore

author: Genefer

text:
Quale altro metodo esiste per fa riferimento
ad un valore di una tabella (campo) tramite
una casella controllo in una form.
Il metodo attualmente utilizzato e :
=DLookUp("[Nome_Tabella]";"Campo")
ma non e sempre consigliato.
Quale suggerimento.
Grazie.


title: DLookUp Riferimento ad un valore

author: Roberto dalla campagna

text:
"Genefer" <
gen...@tin.it
> ha scritto nel messaggio
news:O88De.84841$h5.35...@news3.tin.it...

A parte che la sintassi della funzione DLookup dovrebbe essere:
=DLookUp("Campo";"[Nome_Tabella])
che sappia io la DLookup č l'unica funzione intrinseca di Access che
permetta di fare questo; fra l'altro in una DLookup č necessario indicare
anche i criteri.
In alternativa potresti aprire su Nome_Tabella un recordset e smanettarci
dentro con VBA, ma non si sembra proprio il caso.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: DLookUp Riferimento ad un valore

text:
>
> A parte che la sintassi della funzione DLookup dovrebbe essere:
>
> =DLookUp("Campo";"[Nome_Tabella])
>
> che sappia io la DLookup č l'unica funzione intrinseca di Access che
> permetta di fare questo; fra l'altro in una DLookup č necessario indicare
> anche i criteri.
> In alternativa potresti aprire su Nome_Tabella un recordset e smanettarci
> dentro con VBA, ma non si sembra proprio il caso.
>
Infatti e stato un errore di trascrizione
Grazie per la delucidazione in merito
volevo solo qualche altro parere
Ciao
Genefer


title: Allineare dei campi per l'esportazione in txt

text:
Ciao a tutti!
Sono abbastanza in crisi e spero che voi, come altre volte è già
successo, mi sappiate aiutare.
Io ho una tabella i cui dati vengono importati da un file di testo.
In questa tabella esistono solo due tipi di dati: tipo "data/ora" e tipo
"memo" (o tipo "testo", ancora da definire, ma questo non penso che
abbia influenza)
Quando vado ad esportare i dati in un file di testo con campi a
larghezza fissa, le date me le allinea a destra del campo, mentre i memo
me li allinea a sinistra. Ecco il ho la "necessità" di allineare tutti i
campi a destra.
L'allineamento voluto per date va già bene così, ma per i memo????
Come faccio a dirgli di allineare tutto a destra???
Grazie mille a tutti coloro che mi potranno rispondere....
Saluti. Alex


author: MA

text:
alevilla.it
 wrote:
> Ciao a tutti!
> Sono abbastanza in crisi e spero che voi, come altre volte è già
> successo, mi sappiate aiutare.
>
> Io ho una tabella i cui dati vengono importati da un file di testo.
> In questa tabella esistono solo due tipi di dati: tipo "data/ora" e
> tipo "memo" (o tipo "testo", ancora da definire, ma questo non penso
> che abbia influenza)
Non è vero, non credo che ti esporti più di 255 caratetri del campo memo
> Quando vado ad esportare i dati in un file di testo con campi a
> larghezza fissa, le date me le allinea a destra del campo, mentre i
> memo me li allinea a sinistra. Ecco il ho la "necessità" di allineare
> tutti i campi a destra.
>
> L'allineamento voluto per date va già bene così, ma per i memo????
> Come faccio a dirgli di allineare tutto a destra???
>
> Grazie mille a tutti coloro che mi potranno rispondere....
>
> Saluti. Alex
Giacchè hai unalargezza fizza, usa Space(100-len(tuocampo))
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dla865$oe4$1...@area.cu.mi.it...
>
> Non è vero, non credo che ti esporti più di 255 caratetri del campo
> memo
Ho avuto conferma che i campi saranno solo di due tipi: data/ora e
testo.
> Giacchè hai unalargezza fizza, usa Space(100-len(tuocampo))
Ehm.... Dove lo uso?
Io ho dei campi a larghezza fissa nel senso che ogni campo ha la sua
larghezza...
Per esempio: se un campo verrà esportato con una lunghezza di 7
caratteri ma io ne ho scritti soltanto 3, per esempio "458", lui ora mi
esporta il campo come "458"+"quattro spazi", mentre io vorrei che me lo
esportasse come: "quattro spazi"+"458".
Devo usare una query di aggiornamento che mi inserisca questi quattro
spazi?
Esempio: il mio campo si chiama N_PRGINC ed è lungo 5 caratteri.
Nella query di aggiornamento nel campo "aggiorna a" devo mettere
qualcosa del tipo:
Space(5-Len([affido1]![N_PRGINC])) & [affido1]![N_PRGINC]
Grazie della pazienza....
Saluti. Alex


text:

Non puoi (meglio, non ti conviene) aggiornare il campo solo per
l'esportazione
>
> Space(5-Len([affido1]![N_PRGINC])) & [affido1]![N_PRGINC]
Creati un campo calcolato così
Space(5-Len([N_PRGINC])) & [N_PRGINC])
nella query origine dell'esportazione
>
> Grazie della pazienza....
>
> Saluti. Alex
--



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dlaafk$st3$1...@area.cu.mi.it...
>
> Non puoi (meglio, non ti conviene) aggiornare il campo solo per
> l'esportazione
Ma la tabella su cui farò i miei aggiornamenti sarà una tabella
temporanea che verrà esportata e poi svuotata
> Creati un campo calcolato così
> Space(5-Len([N_PRGINC])) & [N_PRGINC])
> nella query origine dell'esportazione
Ma la query di origine dell'esportazione è una "query di selezione",
mentre quell'espressione la posso inserire solo in una query di
aggiornamento... O sbaglio?
Grazie ancora
Alex


text:

Sbagli
>
> Grazie ancora



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dlacs6$251$1...@area.cu.mi.it...
>> Ma la query di origine dell'esportazione è una "query di selezione",
>> mentre quell'espressione la posso inserire solo in una query di
>> aggiornamento... O sbaglio?
> Sbagli
E come faccio a selezionare dati da due tabelle e allo stesso tempo
aggiornarli?
Io ho i dati non ancora modificati nella tabella "affidi1"
Finora ho creato una macro che fa così:
1-Apro una query di accodamento che mi estrapoli i campi da modificare
(quelli con gli spazi) dalla tabella "affidi1" e me li metta in una
tabella "temp"
2-Apro una query di modifica sulla tabella "temp" che mi aggiunga gli
spazi necessari
3-Apro una query di selezione che mi prenda i campi modificati dalla
tabella "temp" e quelli integri dalla tabella "affidi1"
4-Esporto in TXT il risultato dell'ultima query.
Come faccio a selezionare ed aggiornare contemporaneamente i dati?
Grazie mille!!!


text:
alevilla.it
 wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:dlacs6$251$1...@area.cu.mi.it...
>
>>> Ma la query di origine dell'esportazione č una "query di selezione",
>>> mentre quell'espressione la posso inserire solo in una query di
>>> aggiornamento... O sbaglio?
>
>> Sbagli
>
> E come faccio a selezionare dati da due tabelle e allo stesso tempo
> aggiornarli?
> Io ho i dati non ancora modificati nella tabella "affidi1"
> Finora ho creato una macro che fa cosě:
>
> 1-Apro una query di accodamento che mi estrapoli i campi da modificare
> (quelli con gli spazi) dalla tabella "affidi1" e me li metta in una
> tabella "temp"
> 2-Apro una query di modifica sulla tabella "temp" che mi aggiunga gli
> spazi necessari
> 3-Apro una query di selezione che mi prenda i campi modificati dalla
> tabella "temp" e quelli integri dalla tabella "affidi1"
> 4-Esporto in TXT il risultato dell'ultima query.
>
> Come faccio a selezionare ed aggiornare contemporaneamente i dati?
>
> Grazie mille!!!
1. soluzione
Creati una query temp ed esporti quella
2. soluzione
Accodi la tabella che ti interessa e come valore da accodare ci metti lo
space



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dlai1j$cp1$1...@area.cu.mi.it...
>
> 1. soluzione
> Creati una query temp ed esporti quella
>
> 2. soluzione
> Accodi la tabella che ti interessa e come valore da accodare ci metti
> lo
> space
Se ti dicessi che ho capito ti direi una palla....
Cioè, ho capito quello che dici ma non saprei come fare.
Se hai voglia e tempo di scrivere altre due righe, io sono in
ascolto........
Saluti, Alessandro


text:
alevilla.it
 wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:dlai1j$cp1$1...@area.cu.mi.it...
>>
Se la tabella si chiama "vendita" e quella temporanea "dati"
>> 1. soluzione
>> Creati una query temp ed esporti quella
Ti crei una query così
SELECT Space(10-Len([codice])) & [Codice] AS Pippo
FROM dati;
la salvi ed esporti questa
>>
>> 2. soluzione
>> Accodi la tabella che ti interessa e come valore da accodare ci metti
>> lo
>> space
INSERT INTO DATI ( codice )
SELECT Space(10-Len([codice])) & [Codice] AS Pippo
FROM vendita;
Avresti il campo già formattato come ti serve
>
> Se ti dicessi che ho capito ti direi una palla....
> Cioè, ho capito quello che dici ma non saprei come fare.
>
> Se hai voglia e tempo di scrivere altre due righe, io sono in
> ascolto........
>
> Saluti, Alessandro
--



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dlce5v$evl$1...@area.cu.mi.it...
>
> Se la tabella si chiama "vendita" e quella temporanea "dati"
>
>>> 1. soluzione
>>> Creati una query temp ed esporti quella
> Ti crei una query così
>
> SELECT Space(10-Len([codice])) & [Codice] AS Pippo
[STRACUT]
Ecco svelato l'arcano!
Io le query le faccio in "visualizzazione struttura". Non ho mai provato
a farne una direttamente in SQL.
Sarà il caso che incomincio a darci un'occhiata....
Grazie della dritta!!!
Saluti.
Alex


title: Casella di Controllo da settare all'apertura della form

author: Michele Gi

text:
ho una form
ha diversi controlli

tra cui due "Caselle di Controllo" in un "Gruppo di Opzioni"
vorrei che all'apertura della form
una delle due "Caselle di Controllo" fosse automaticamente settata

sull'evento "Su caricamento" della form
ho messo

CasellaControllo139.Value = 1
CasellaControllo139.Value = TRUE
CasellaControllo139.Value = VERO

ma non funziona

cosa devo fare?

grazie


author: Alessandro Cara

text:
Il 24/10/2011 14.11, Michele Gi ha scritto:
> ho una form
> ha diversi controlli
>
> tra cui due "Caselle di Controllo" in un "Gruppo di Opzioni"
In un gruppo di opzioni va settato il gruppo non la casella.

--

ac (x=y-1)


text:
>> ho una form
>> ha diversi controlli
>>
>> tra cui due "Caselle di Controllo" in un "Gruppo di Opzioni"
> In un gruppo di opzioni va settato il gruppo non la casella.
>

ok
il "Gruppo di Opzioni" si chiama "Cornice137"
e al suo interno ha due check box

CasellaControllo139
e
CasellaControllo138

vorrei che all'entra della form sia settata come vera la CasellaControllo139

come fare?

Cornire137.QUALE CAMPO = 1 ?


author: Popi - TheBadHabits

text:
On 24 Ott, 14:31, "Michele Gi" <
michele.giovanniniTO...@gmail.com
>
wrote:

Ciao!

Michele, il "ma non funziona" del tuo primo post non significa nulla:
vba segnala errore? E, nel caso, quale? Oppure non hai errori ma il
funzionamento non 'e' quello che ti aspetti? E, nel caso, che
comportamento ha il codice?

In ogni caso, per la domanda qua sopra la risposta potrebbe essere

me.Cornice137=me.CasellaControllo139.optionvalue

E, come diceva Alessandro, devi impostare il gruppo, non una casella
del gruppo ...

HTH
Popi


text:
"Michele Gi" <
michele.gio...@gmail.com
> ha scritto nel messaggio
news:j83lnj$30q$1...@news.task.gda.pl...

risolto con

Cornice137 = 1

grazie


title: Esiste in access upper?

text:
Salve,
nell' sql di acces, esiste upper? Se si come è la sintassi? Ho
scritto questa cosa e non va bene:
SELECT XX, XX FROM TABELLA WHERE
UPPER(XX) LIKE 'MA%'
Saluti...
--------------------------------
Inviato via
http://usenet.iol.it


title: Esiste in access upper?

author: MegaMax

text:
"skunk_d" <
sku...@libero.it
> ha scritto nel messaggio
news:157Z29Z81Z46Y...@usenet.iol.it...
> Salve,
> nell' sql di acces, esiste upper? Se si come è la sintassi? Ho
> scritto questa cosa e non va bene:
>
> SELECT XX, XX FROM TABELLA WHERE
> UPPER(XX) LIKE 'MA%'
prova con      Ucase("pippo")
Max
p.s.: c'era un thread in proposito al fatto che usato nelle query troncava i
campi memo in string a 255 caratteri o qualcosa di simile


title: Esiste in access upper?

author: Sergio MAZZA

text:
"skunk_d" <
sku...@libero.it
> ha scritto nel messaggio
news:157Z29Z81Z46Y...@usenet.iol.it...

C'é UCase() e LCase() (vedi help)...
Ciao.


title: visualizzare una tabella o un report come

author: Pasquale Antonacci

text:
Certo!!!!
Query a campi incrociati.
--
Posted from
sirio.tno.it
 [138.66.200.5]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Re: problema con MsgBox

author: Antonio Biso

text:
"ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
news:276afbaf-188f-4868...@v7g2000vbk.googlegroups.com...
ciao a tutti
ho inserito questo codice in prima di aggiornare
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Fatturato =-1 Then
        MsgBox "ATTENZIONE!! DDT gi� fatturato e non pu� essere
modificato"
        Me.Undo 'annulla tutte le modifiche nel record
    Exit Sub
    End If
End Sub
il problema � il MsgBox che vorrei si attivasse solo se faccio una
modifica,
mentre cos� si attiva anche quando passo da un record all'altro.
Grazie
e allora usa l'evento dopo aggiornamento no?
Antonio


title: Re: problema con MsgBox

text:
Il 07/07/2011 15.00, Antonio Biso ha scritto:
> "ugo conte"<
ugo.c...@gmail.com
>  ha scritto nel messaggio
> news:276afbaf-188f-4868...@v7g2000vbk.googlegroups.com...
> ciao a tutti
>
> ho inserito questo codice in prima di aggiornare
> Private Sub Form_BeforeUpdate(Cancel As Integer)
>      If Me.Fatturato =-1 Then
>          MsgBox "ATTENZIONE!! DDT giï¿œ fatturato e non puï¿œ essere
> modificato"
>          Me.Undo 'annulla tutte le modifiche nel record
>      Exit Sub
>      End If
> End Sub
>
> il problema ï¿œ il MsgBox che vorrei si attivasse solo se faccio una
> modifica,
> mentre cosï¿œ si attiva anche quando passo da un record all'altro.
> Grazie
>
> e allora usa l'evento dopo aggiornamento no?
Sull'afterupdate di form funziona l'undo? Ci devo provare.
Se gli compare il Msgbox, lui non lo sa, ma ha modificato qualcosa ed a
quel punto se proprio e' strano e comunque vuole fare aggiornamenti,
access intendo, anche quando non ci sono puo' "rafforzare" il controllo
con un if dirty e se proprio access non ne vuol sapere, come recitava un
vecchio detto: "quando si ammala un povero conviene buttarlo via e
comprarne un altro" cosi' potrebbe fare con la sua copia di access.
--
ac (x=y-1)


title: Re: problema con MsgBox

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:wfiRp.48032$GZ3....@tornado.fastwebnet.it...


amen
Antonio


title: Re: problema con MsgBox

text:
On 7 Lug, 15:10, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 07/07/2011 15.00, Antonio Biso ha scritto:
>
>
>
>
>
> > "ugo conte"<
ugo.cont...@gmail.com
>  ha scritto nel messaggio
> >news:276afbaf-188f-4868...@v7g2000vbk.googlegroups.com...
> > ciao a tutti
>
> > ho inserito questo codice in prima di aggiornare
> > Private Sub Form_BeforeUpdate(Cancel As Integer)
> >      If Me.Fatturato =-1 Then
> >          MsgBox "ATTENZIONE!! DDT già fatturato e non può essere
> > modificato"
> >          Me.Undo 'annulla tutte le modifiche nel record
> >      Exit Sub
> >      End If
> > End Sub
>
> > il problema è il MsgBox che vorrei si attivasse solo se faccio una
> > modifica,
> > mentre così si attiva anche quando passo da un record all'altro.
> > Grazie
>
> > e allora usa l'evento dopo aggiornamento no?
>
> Sull'afterupdate di form funziona l'undo? Ci devo provare.
> Se gli compare il Msgbox, lui non lo sa, ma ha modificato qualcosa ed a
> quel punto se proprio e' strano e comunque vuole fare aggiornamenti,
> access intendo, anche quando non ci sono puo' "rafforzare" il controllo
> con un if dirty e se proprio access non ne vuol sapere, come recitava un
> vecchio detto: "quando si ammala un povero conviene buttarlo via e
> comprarne un altro" cosi' potrebbe fare con la sua copia di access.
Al di là di Undo ... non sarebbe stato sufficiente impostare
Cancel=True che blocca l'aggiornamento?
Poi, a quel punto, per annullare le modifiche fatte l'utente preme
ESC.
Popi


title: Re: problema con MsgBox

author: Popi

text:
ugo conte ha scritto:
> On 7 Lug, 15:49, Popi - TheBadHabits <
rlu...@yahoo.com
> wrote:
> > On 7 Lug, 15:10, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
> > wrote:
> >
> >
> >
> > > Il 07/07/2011 15.00, Antonio Biso ha scritto:
> >
> > > > "ugo conte"<
ugo.cont...@gmail.com
>  ha scritto nel messaggio
> > >
>news:276afbaf-188f-4868...@v7g2000vbk.googlegroups.com....

> Grazie a tutti
> e utilizzare AllowDeletions, AllowEdits e AllowAdditions?
> e se si, su current o prima di aggiornare?
Ugo, se guardi sulla guida cosa fanno quelle 3 impostazioni ed a cosa
servono ti puoi rendere conto che *é sbagliato* metterle nella
BeforeUpdate della maschera cui si riferiscono ;)
Popi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Re: problema con MsgBox

text:
Il 08/07/2011 8.38, ugo conte ha scritto:
> On 7 Lug, 15:49, Popi - TheBadHabits<
rlu...@yahoo.com
>  wrote:
>> On 7 Lug, 15:10, Alessandro Cara<
alessandro.c...@ay-1anetwork.it
>
>> wrote:
[cut]
>>
>>> Sull'afterupdate di form funziona l'undo? Ci devo provare.
>>> Se gli compare il Msgbox, lui non lo sa, ma ha modificato qualcosa ed a
>>> quel punto se proprio e' strano e comunque vuole fare aggiornamenti,
>>> access intendo, anche quando non ci sono puo' "rafforzare" il controllo
>>> con un if dirty e se proprio access non ne vuol sapere, come recitava un
>>> vecchio detto: "quando si ammala un povero conviene buttarlo via e
>>> comprarne un altro" cosi' potrebbe fare con la sua copia di access.
>>
>> Al di là di Undo ... non sarebbe stato sufficiente impostare
>> Cancel=True che blocca l'aggiornamento?
>> Poi, a quel punto, per annullare le modifiche fatte l'utente preme
>> ESC.
>>
>> Popi
>
> ciao a tutti
>
> ho trovato il codice che crea il problema,
> su current
> If Me.Fatt_Tri = -1 Then
>      Me.NumDDT.Enabled = False
>      Me.NumDDT = ""
>      Me.NumDDT_1.Enabled = True
> Else
>      Me.NumDDT.Enabled = True
>      Me.NumDDT_1.Enabled = False
>      Me.NumDDT_1 = ""
> End If
>
> Ma ora non so con cosa sostituirlo
Vedo che hai decifrato(?) il nascosto suggerimento.
--
ac (x=y-1)


title: Query UPDATE -> HOW TO BLOCK FORM Fino a che la query UPDATE non ha finito?

author: esseAemme

text:
Ciao a tutti,
sono in un momento quasi di odio vs. access.
Detto questo, ho una maschera, due caselle combo non associate.
La prima mi permette di selezionare un cliente (CBOCLIENTE) e con
evento dopo aggiornamento  in automatico mi imposta l'ultima data di
listino, quindi aggiorna tutti i prodotti dove la versione di listino
è la l' ultima selezionata.
Se l'utente dovesse voler scegliere una data diversa dall'ultima,
seleziona la data voluta nella seconda casella combinata di data
CBODATA. Il problema è che appena riclicco la CBODATA, mi dice che sto
modificando contemporaneamente gli stessi record.
Questa è la macro su evento dopo aggiornamento di CBODATA
Private Sub CBODATA_AfterUpdate()
DoCmd.SetWarnings False
Me!DIST_VERSIONELISTINO = Me!cbodata
'Me!cbodata.Enabled False
Dim newvers As String
newvers = "q_AGG_VersioneListino_sm_sceltalistino"
DoCmd.OpenQuery newvers, acNormal, acEdit
Forms!sm_sceltalistino.Refresh
MsgBox "Data listino aggiornata"
'Me!cbodata.Enabled True
DoCmd.SetWarnings True
End Sub
Come faccio a bloccare la maschera, fino a che la query di UPDATE non
ha finito di lavorare?
Grazie 100000
Samantha


text:

Perchè ho anche provato con
Private Sub CBODATA_AfterUpdate()
DoCmd.SetWarnings False
Me!DIST_VERSIONELISTINO = Me!cbodata
'Me!cbodata.Enabled False
Dim newvers As String
newvers = "q_AGG_VersioneListino_sm_sceltalistino"
DoCmd.OpenQuery newvers, acNormal, acEdit
Forms!sm_sceltalistino.Refresh
MsgBox "Data listino aggiornata"
'Me!cbodata.Enabled True
DoCmd.SetWarnings True
End Sub
dove il refresh della maschera avviene subito dopo ll'avvio della
query, ma proprio in questo caso mi da il problema del "Modifica
contemporanea di record"
Io dovrei trovare un metodo per bloccare la maschera fino a che la
query update non ha finito di lavorare.
Grazie di nuovo,
Samatnha


text:

Scusate,
ma a forza di lavorarci, ho trovato che con il .refresh fa
l'aggiornamento immediato, e il problema di modifica contemporanea era
il codice
me!versionelistino = me!cbodata
praticamente lo obbligavo a lavorare in contemporanea....
questo è il codice aggiornato
Private Sub CBODATA_AfterUpdate()
DoCmd.SetWarnings False
Forms![sm_sceltalistino].Corpo.Visible = False
Dim newvers As String
newvers = "q_AGG_VersioneListino_sm_sceltalistino"
DoCmd.OpenQuery newvers, acNormal, acEdit
Forms!sm_sceltalistino.Refresh 'Obbliga l'aggiornamento immediato
DoCmd.SetWarnings True
Forms![sm_sceltalistino].Corpo.Visible = True
End Sub
spero di averla imparata la lezione ;)
samantha


text:
"esseAemme" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1180384898.7...@q66g2000hsg.googlegroups.com...
Scusate,
ma a forza di lavorarci, ho trovato che con il .refresh fa
l'aggiornamento immediato, e il problema di modifica contemporanea era
il codice
me!versionelistino = me!cbodata
praticamente lo obbligavo a lavorare in contemporanea....
questo è il codice aggiornato
Private Sub CBODATA_AfterUpdate()
DoCmd.SetWarnings False
Forms![sm_sceltalistino].Corpo.Visible = False
Dim newvers As String
newvers = "q_AGG_VersioneListino_sm_sceltalistino"
DoCmd.OpenQuery newvers, acNormal, acEdit
Forms!sm_sceltalistino.Refresh 'Obbliga l'aggiornamento immediato
DoCmd.SetWarnings True
Forms![sm_sceltalistino].Corpo.Visible = True
End Sub
spero di averla imparata la lezione ;)
samantha
[risposta]
(variante)
Private Sub CBODATA_AfterUpdate()
Forms![sm_sceltalistino].Corpo.Visible = False
CurrentDb.Execute "q_AGG_VersioneListino_sm_sceltalistino"
Forms!sm_sceltalistino.Refresh 'Obbliga l'aggiornamento immediato
Forms![sm_sceltalistino].Corpo.Visible = True
End Sub
L'OpenQuery in modalità Edit? Se è una query di comando (come presumo visto
che dopo fai un refresh di una form) non c'è bisogno di aprirla con il
metodo OpenQuery; dovresti poi richiuderla con il metodo Close
acQuery,"q_AGG_VersioneListino_sm_sceltalistino".
Con il Metodo Execute non hai neanche bisogno di disabilitare i messaggi di
conferma...
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

metodo execute ora provo
grazie
samantha


title: Applicare filtro su mschera non attiva... come ?

author: Ganimede

text:
Ciao,
ho una maschera collegata ad una tabella principale e ad una serie di
tabelle secontarie (testata/posizioni). Ora con un pulsate apro una
nuova maschera, leggo il barcode con il lettore... (riempio il campo e
visualizzo il barcode con un truetype)... ora vorrei confermare il
barcode a far partire la ricerca sulla prima maschera. Avevo provato:
- metto il vaore del barcode in una variabile
- chiudo la maschera che uso per acquisire il barcode
- applico un filtro dove la where è la varibile del primo passo
Ma nulla... mi dice che non posso perchè la maschera non ha lo stato
attivo...
Le due maschere sono popup a scelta obbligatoria.
Qualche suggerimento ?
THX.
Ganimede Dignan.


author: geppo

text:
Ciao Ganimede wrote:
> Ciao,
>
> ho una maschera collegata ad una tabella principale e ad una serie di
> tabelle secontarie (testata/posizioni). Ora con un pulsate apro una
> nuova maschera, leggo il barcode con il lettore... (riempio il campo e
> visualizzo il barcode con un truetype)... ora vorrei confermare il
> barcode a far partire la ricerca sulla prima maschera. Avevo provato:
>
> - metto il vaore del barcode in una variabile
la variabile dichiarata con l'istruzione Public è in un modulo standard?
> - chiudo la maschera che uso per acquisire il barcode
> - applico un filtro dove la where è la varibile del primo passo
>
> Ma nulla... mi dice che non posso perchè la maschera non ha lo stato
> attivo...
>
> Le due maschere sono popup a scelta obbligatoria.
>
> Qualche suggerimento ?
--
Ciao
Geppo


title: somma condizionale in un report

author: Gabriele

text:
Nel piede del report ho inserito un  totale :
 =somma ([imposta])
che mi riepiloga correttamente in fondo al report il totale imposta .
Come faccio a dirgli di sommare solo e soltanto le righe in cui il campo
aliquota è 20% ? ( cioè solo le righe in cui [aliquota]= 20 )
Grazie e saluti


title: somma condizionale in un report

text:
> =somma ([imposta])
>
> che mi riepiloga correttamente in fondo al report il totale imposta .
>
> Come faccio a dirgli di sommare solo e soltanto le righe in cui il campo
> aliquota è 20% ? ( cioè solo le righe in cui [aliquota]= 20 )
Ho provato questa formula :
=DSum([Imposta];"query";[aliquota]='20')
però restituisce sempre zero !
Grazie


title: somma condizionale in un report

text:
>
> =DSum([Imposta];"query";[aliquota]='20')
>
> però restituisce sempre zero !
 risolto , mancavano le virgolette :



title: Richiamare routines in MSAccess.exe

author: Matteo Cevanton

text:
Sfrugugliando sul ng. ho trovato del codice postato da Giorgio PRX per
richiamare il selettore cartelle in Access '97 senza usare l'API di Win:
davvero interessante :-)
Non mi č ben chiaro tuttavia se
Declare Function MSAU_OfficeGetFileName Lib "msaccess.exe" Alias "#56" _
        (gfni As WLIB_OFFICEGETFILENAMEINFO, _
         ByVal fOpen As Integer) As Long
Faccia riferimento all'eseguibile di Access correntemente in esecuzione...
oppure se l'informazione venga pescata nel registro di configurazione di
Win.
In tal caso potrebbe riferirsi (nel caso siano installate piů versioni di
Access o del Runtime sul PC) a un MSAccess.exe di differente versione e
magari non funzionare.
Come stanno le cose?


title: Richiamare routines in MSAccess.exe

author: Giorgio Prx

text:
"Matteo Cevanton" <
matteo.cev...@tin.it
> ha scritto nel messaggio
news:Ln7wb.137262$vO5.5...@twister1.libero.it...

Ciao Matteo,
i riferimenti alla libreria  msaccess.exe sono relativi solo all'istanza in
cui viene eseguito il tuo database, sul computer possono esserci varie
versioni di access e anche se in esecuzione nello stesso momento non
interferiscono.
Per renderti conto di come funziona la cosa puoi fare un piccolo esperimento
...
Esegui il copia e poi incolla di msaccess.exe, otterrai il file "Copia di
Msaccess.exe", aprilo e carica il tuo db con la funzione
MSAU_OfficeGetFileName, prova a eseguirla e  vedrai che non funziona, tieni
aperta questa istanza e apri Msaccess.exe , carica il tuo db nella nuova
istanza e vedrai che funziona, passa all'istanza "Copia di msaccess.exe"
prova la funzione e vedrai che continua a non funzionare.
Sempre dall'istanza "Copia di msaccess.exe" modifica la dichiarazione in
-----------------------------------------
Declare Function MSAU_OfficeGetFileName Lib "Copia di msaccess.exe" Alias
"#56" _
         (gfni As WLIB_OFFICEGETFILENAMEINFO, _
          ByVal fOpen As Integer) As Long
-----------------------------------------
prova ad eseguirla e vedrai che adesso funziona.
Fino ad oggi l'ingresso #56 č stato riportato anche nelle versioni 2000 e
2002, non so se nella ver. 2003 č presente.
Ciao Giorgio.


title: Richiamare routines in MSAccess.exe

text:
"Giorgio Prx" <
> > Sfrugugliando sul ng. ho trovato del codice postato da Giorgio PRX per
> > richiamare il selettore cartelle in Access '97 senza usare l'API di Win:
> > davvero interessante :-)
> > Non mi è ben chiaro tuttavia se
> > Declare Function MSAU_OfficeGetFileName Lib "msaccess.exe" Alias "#56" _
> >         (gfni As WLIB_OFFICEGETFILENAMEINFO, _
> >          ByVal fOpen As Integer) As Long
> > Faccia riferimento all'eseguibile di Access correntemente in
esecuzione...
> > oppure se l'informazione venga pescata nel registro di configurazione di
> > Win.
> Ciao Matteo,
> i riferimenti alla libreria  msaccess.exe sono relativi solo all'istanza
in
> cui viene eseguito il tuo database, sul computer possono esserci varie
> versioni di access e anche se in esecuzione nello stesso momento non
> interferiscono.
>
> Per renderti conto di come funziona la cosa puoi fare un piccolo
esperimento
> ...
> Esegui il copia e poi incolla di msaccess.exe, otterrai il file "Copia di
> Msaccess.exe", aprilo e carica il tuo db con la funzione
> MSAU_OfficeGetFileName, prova a eseguirla e  vedrai che non funziona,
tieni
> aperta questa istanza e apri Msaccess.exe , carica il tuo db nella nuova
> istanza e vedrai che funziona, passa all'istanza "Copia di msaccess.exe"
> prova la funzione e vedrai che continua a non funzionare.
> Sempre dall'istanza "Copia di msaccess.exe" modifica la dichiarazione in
> -----------------------------------------
> Declare Function MSAU_OfficeGetFileName Lib "Copia di msaccess.exe" Alias
> "#56" _
>          (gfni As WLIB_OFFICEGETFILENAMEINFO, _
>           ByVal fOpen As Integer) As Long
> -----------------------------------------
> prova ad eseguirla e vedrai che adesso funziona.
>
> Fino ad oggi l'ingresso #56 è stato riportato anche nelle versioni 2000 e
> 2002, non so se nella ver. 2003 è presente.
Molte grazie per i chiarimenti Giorgio  :-)


title: Istruzione PAUSE

author: fafino

text:
Salve,
esiste un' istruzione che fa perdere tempo, tipo
PAUSE 1000
passa 1 sec. prima di andare avanti
GRAZIE 1000
faf...@tiscalinet.it


title: Istruzione PAUSE

author: Alessandro

text:
"fafino" <
faf...@tiscalinet.it
> wrote in message
news:NAuI8.18134$
8x3.3...@twister1.libero.it

Private Declare Sub Sleep _
 Lib "kernel32" (ByVal dwMilliseconds As Long)
Si richiama con:
Sleep 1000
Alessandro./@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Istruzione PAUSE

author: Sib

text:
"fafino" <
faf...@tiscalinet.it
> ha scritto nel messaggio
> Salve,
> esiste un' istruzione che fa perdere tempo, tipo
>
> PAUSE 1000
>
> passa 1 sec. prima di andare avanti
... e tutti siamo li' a cercare il modo di perdere meno tempo...
Sib


title: Report Vuoto

author: alb

text:
Gentili Soci, il mio problema è il seguente: Aprendo un Report che non
presenta Records al suo interno e digitando sull'Evento "Report Vuoto" il
seguente codice:
docmd.cancelEvent = true, oppure Cancel = true , con i vari MsgBox ecc.., si
verifica questo:
1) se clicco direttamente sulla finesta dei report non ho         problemi;
2) se invece l'apertura del Report è scaturita da un pulsante di comando con
il codice: Docmd.OpenReport...... ecc, allora dopo il Msgbox da me inserito
all'interno del Report, appare la scritta Operazione non riuscita: è stato
scelto annulla da un'azione open report ecc...
Qualcuno può gentilmente aiutarmi


title: Report Vuoto

author: Karl Donaubauer

text:

www.donkarl.com/it
 FAQ 5.8 Evitare la stampa in assenza di dati
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


author: tmtube

text:
in che modo � possibile sapere se l'utente non ha selezionato valori in una
casella di riepilogo di selezione multipla?


title: sapere se l'utente non ha selezionato valori in una casella di riepilogo

text:
Il giorno sabato 24 agosto 2013 01:04:45 UTC+2, tmtube ha scritto:
> in che modo è possibile sapere se l'utente non ha selezionato valori in una
>
> casella di riepilogo di selezione multipla?

Proprietà LISTINDEX=-1 nessuna selezione.

@ALex


title: Parametri insufficienti:previsto 1.

text:
Mi spiace di farmi vivo solo quando ho bisogno...
Il messaggio di errore in argomento mi esce alla seconda delle seguenti due istruzioni:
    stri = "select * from qElenco where idRich=" & Forms!mElenco!IDrich & ";"
    Set RST = CurrentDb.OpenRecordset(stri)
Ho controllato e nella casella Forms!mElenco!IDrich c'è un valore numerico valido, e la variabile "stri" è caricata con una stringa che, a copiarla in una query, funziona.
L'ovvia domanda è: dove sto sbagliando?
Grazie a tutti
Riccardo Baldinotti


title: Parametri insufficienti:previsto 1.

text:
Il giorno venerdì 25 ottobre 2013 11:33:44 UTC+2,
bari...@gmail.com
 ha scritto:
> Mi spiace di farmi vivo solo quando ho bisogno... Il messaggio di errore in argomento mi esce alla seconda delle seguenti due istruzioni: stri = "select * from qElenco where idRich=" & Forms!mElenco!IDrich & ";" Set RST = CurrentDb.OpenRecordset(stri) Ho controllato e nella casella Forms!mElenco!IDrich c'è un valore numerico valido, e la variabile "stri" è caricata con una stringa che, a copiarla in una query, funziona. L'ovvia domanda è: dove sto sbagliando?

Ho l'impressione che il problema sia che la "qElenco" è una query parametrica. Ho sostituito "stri" con la medesima "qElenco" a cui ho aggiunto il nuovo criterio e adesso funzia.
Saluti a tutti.
Riccardo Baldinotti


title: Parametri insufficienti:previsto 1.

text:
Ciao Riccardo,

bari...@gmail.com
 wrote:
>> Il messaggio di errore in argomento mi esce alla seconda
>> delle seguenti due istruzioni:
>> stri = "select * from qElenco where idRich=" & Forms!mElenco!IDrich & ";"
>> Set RST = CurrentDb.OpenRecordset(stri)
>
> Ho l'impressione che il problema sia che la "qElenco" è una query
> parametrica. Ho sostituito "stri" con la medesima "qElenco" a cui ho
> aggiunto il nuovo criterio e adesso funzia.

La tua impressione è giusta. Qui trovi più informazione e soluzioni:
http://www.donkarl.com/it?FAQ6.4

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


title: Parametri insufficienti:previsto 1.

text:
Il giorno venerdì 25 ottobre 2013 16:43:38 UTC+2, Karl Donaubauer ha scritto:
> Ciao Riccardo, >> Il messaggio di errore in argomento mi esce alla seconda >> delle seguenti due istruzioni: >> stri = "select * from qElenco where idRich=" & Forms!mElenco!IDrich & ";" >> Set RST = CurrentDb.OpenRecordset(stri) > > Ho l'impressione che il problema sia che la "qElenco" è una query > parametrica. Ho sostituito "stri" con la medesima "qElenco" a cui ho > aggiunto il nuovo criterio e adesso funzia. La tua impressione è giusta. Qui trovi più informazione e soluzioni:
http://www.donkarl.com/it?FAQ6.4
 -- Ciao Karl ********* Access FAQ:
http://www.donkarl.com/it

Appena penso di averne imparata una, esci tu che ne sai altre due!
Grazie Karl.
Riccardo Baldinotti


title: Stampa di un file PDF

author: Carmelo Di Rosa

text:
Scusate se ci riprovo, ma non vorrei che la mia richiesta di qualche giorno
fa fosse andata perduta.
Ho la necessità di stampare un report in PDF, Ho scaricato una procedura di
Alessandro Baraldi che ho trovato sul sitocomune che funziona perfettamente.
Ho il solo inconveniente che vorrei saltare l'interrogazione del sistema che
mi chiede il nome ed il percorso del file PDF da salvare (La stampa PDF è
simile ad una stampa su File). Sono riuscito ad impostare di defoult questi
parametri, quindi vorrei evitare l'interruzione della richiesta sopra
menzionata. Ho questa necessità perché la stampa PDF è all'interno di un
ciclo, quindi dovrei creare tanti PDF quanti sono i Record del mio
recordset, quindi l'interruzione mi rallenta troppo la procedura che non può
giungere alla fine in automatico.
Fatemi sapere se avete bisogno di dettagli.
Ciao e grazie.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Politecnico di Milano
Dip. di Elettronica e Informazione
Carmelo Di Rosa
Area Elaborazioni Dati
Via Ponzio 34/5
20133 Milano
Tel +39 (0)2 2399.3406
Fax +39 (0)2 2399.3412
mailto:
carmelo...@polimi.it
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


title: Stampa di un file PDF

author: Sergio MAZZA

text:
"Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
news:c7o9di$krk$1...@newsserver.cilea.it...

Quando ti viene richesto un input prova ad inviarglielo con SendKeys (vedi
help)...
Ciao.
--
Sergio MAZZA


title: Stampa di un file PDF

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:jaOnc.232534$rM4.9...@news4.tin.it...

Grazie per il consiglio, ma ci avevo già pensato, ma non sempre funziona, è
per questo che stavo cercando la soluzione di saltare la finestra con una
stampa diretta.
Ciao e grazie.


title: Stampa di un file PDF

author: Al

text:
"Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
news:c7o9di$krk$1...@newsserver.cilea.it...

Ho letto con attenzione il tuo msg e sono andato sul sitocomune per cercare
l'articolo a cui fai riferimento, ma non ho trovato niente del genere!
Saresti così gentile da indicarmelo con maggiore precisione?
Grazie
Al


title: Stampa di un file PDF

text:
"Al" <
al...@tiscali.it
> ha scritto nel messaggio
news:c7r6f2$p2q$1...@lacerta.tiscalinet.it...

Scusami, hai ragione, ho associato il tuo nome ad una routine di Eugenio. Ti
riporto la routine di esempio. Comunque non mi ha risolto il problema, cioè
alla fine mi chiede sempre, tramite finestra di sistema il nome ed il
percorso dove salvare il file pdf generato dal report. Finestra che vorrei
bypassare, o inviare il comando dell'enter. Sto cercando di trovare una
soluzione attraverso le API, ma non so qual'è la dll che gestisce la
finestra di stampa PDF dove poter inviare tutti i dati parametrizzati, cioè
nome , path file e il famoso Enter di esecuzione. Tu sapresti suggerirmi un
aiuto, o dove poter trovare un HELP sulle API, possibilmente in Italiano?
Ciao e grazie.
P.S.
A me comunque questa routine non funziona bene, cioè ala fine modifico il
file TXT dove ho alcuni parametri, ma in fase di stampa non riesco a
leggerli, in più non mi funziona neanche il passaggio da stampante di
defoult a stampante PDF e ritorno, ma sicuramente sbaglio qualcosina.
Private Sub Stampa_Click()
 On Error GoTo Err_Stampa_Click
 Dim strTitolo As String, strFileName As String
 Dim I As Integer, j As Integer
 For I = 1 To 1
    Select Case I
        Case 1
             strTitolo = Me.NomeSocietà
         Case 2
             strTitolo = "Secondo"
         Case 3
             strTitolo = "Terzo"
         Case 4
             strTitolo = "Quarto"
         Case 5
             strTitolo = "Quinto"
     End Select
     Dim stLinkCriteria
    stLinkCriteria = "[IDOrdine]=" & Me![IDOrdine]
    DefaultPrinter = GetDefaultPrinter()
    strFileName = "C:\WINDOWS\DESKTOP\" & strTitolo & ".PDF"
     SetDefaultPrinter ("Acrobat PDFWriter")
     SetPdfFileName (strFileName)
     DoCmd.OpenReport "StampaPreventivoN", acViewNormal, stLinkCriteria
     'Pausa per dar modo al sistema di rilasciare il file PDFwritr.ini
     For j = 0 To 5000
     DoEvents
     Next j
 Next I
SetDefaultPrinter (DefaultPrinter)
Exit_Stampa_Click:
    Exit Sub
Err_Stampa_Click:
     MsgBox ERR.Description
     Resume Exit_Stampa_Click
 End Sub
-------------
Option Compare Database
Option Explicit
Declare Function GetProfileString& Lib "kernel32" Alias "GetProfileStringA"_
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As _
String, ByVal lpReturnedString As String, ByVal nSize As Long)
Declare Function WriteProfileString& Lib "kernel32" Alias _
"WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As _
String, ByVal lpszString As String)
Public DefaultPrinter As String
Public Sub SetPdfFileName(strFileName As String)
 Dim lngFile As Long
 On Error GoTo Err_SetPdfFileName
     lngFile = FreeFile
     Open "C:\Windows\System\PDFWritr.ini" For Output As #lngFile
     Print #lngFile, "[Acrobat PDFWriter]"
     Print #lngFile, "compatibility=1"
     Print #lngFile, "PDFFileName=""" & strFileName & """"
     Close #lngFile
Exit_SetPdfFileName:
     Exit Sub
Err_SetPdfFileName:
     MsgBox ERR.Description
     Resume Exit_SetPdfFileName
 End Sub
Public Function GetDefaultPrinter() As String
    'ritorna il nome della stampante predefinita
    Dim x As Integer
    Dim buffer As String
    buffer = Space$(255)
    x = GetProfileString("windows", "device", "?", buffer, 255)
    GetDefaultPrinter = Left$(buffer, x)
End Function
Public Sub SetDefaultPrinter(s As String)
On Error GoTo Esci
    'imposta la stampante passata come argomento a predefinita
    Dim x As Long
    If IsNull(s) Or s = "" Then Exit Sub
    x = WriteProfileString("windows", "device", vbNullString)
    DoEvents
    x = WriteProfileString("windows", "device", s)
    DoEvents
Esci:
End Sub
Public Sub ResetDefaultPrinter()
    'reimposta a predefinita la stampante memorizzata nella var globale
    SetDefaultPrinter (DefaultPrinter)
End Sub


title: Stampa di un file PDF

author: TheMax

text:
"Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
news:c7pves$v15$1...@newsserver.cilea.it...
>
> "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> news:jaOnc.232534$rM4.9...@news4.tin.it...
> > "Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
> > news:c7o9di$krk$1...@newsserver.cilea.it...
[CUT]
> >
> > Quando ti viene richesto un input prova ad inviarglielo con SendKeys
(vedi
> > help)...
> >
> > Ciao.
> >
> > --
> > Sergio MAZZA
>
> Grazie per il consiglio, ma ci avevo già pensato, ma non sempre funziona,
è
> per questo che stavo cercando la soluzione di saltare la finestra con una
> stampa diretta.
> Ciao e grazie.
>
Ciao,
prova ad usare PDFCreator... lo trovi in internet ed è freeware.
quando lo hai installato vai sul menu Printer -> Options e troverai la voce
Auto-Save, il nome dice tutto ^__^
ovviamente prima lo setti come stampante di default.
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Stampa di un file PDF

author: rinoronie

text:

scusate se mi intrometto, ma una cosa simile servirebbe anche ha me, il
fatto xò è che dovrò utilizzare una stampante di rete (pdfwriter) e non sul
computer locale. E' possibile fare questo?
ciao


title: Recuperare gli ultimi tre record inseriti per ogni ID

author: Paolo I

text:
Salve a tutti, ho una tabella TabCaricoLotti con i seguenti campi:
DataCarico, IDProdotto e Lotto.
Come faccio tramite query ad ottenere per ogni IDProdotto i tre record con
le DataCarico più recenti?
Cioè per esempio partendo dai dati qui sotto
IDProdotto  DataCarico      Lotto
1                 11/12/05         A001
1                 13/12/05         A002
1                 14/12/05         A003
1                 18/12/05         A009
3                 10/12/05         C001
3                 13/12/05         C002
4                 14/12/05         D002
4                 16/12/05         D003
4                 17/12/05         D004
5                 12/12/05         E001
6                 10/12/05         G001
6                 12/12/05         G002
6                 13/12/05         G003
6                 15/12/05         G004
6                 18/12/05         G005
ottenere il seguente risultato:
IDProdotto  DataCarico     Lotto
1                 13/12/05         A002
1                 14/12/05         A003
1                 18/12/05         A009
3                 13/12/05         C002
4                 14/12/05         D002
4                 16/12/05         D003
4                 17/12/05         D004
5                 12/12/05         E001
6                 13/12/05         G003
6                 15/12/05         G004
6                 18/12/05         G005
Io ho provato così, mi ritorna i tre record con le date più recenti senza
tener conto dell'Idprodotto
SELECT TabCaricoLotti.DataCarico, TabCaricoLotti.Lotto,
TabCaricoLotti.IDProdotto
FROM TabCaricoLotti
WHERE (((DCount("*","TabCaricoLotti","IDProdotto=[IDProdotto]" & "And
DataCarico >=#" & Format([DataCarico],"mm/dd/yyyy") & "#"))<=3));
Grazie in anticipo
Paolo I


author: Roberto da casa

text:
"Paolo I" <
herm...@yahoo.it
> ha scritto nel messaggio
news:43b56384$0$1067$4faf...@reader1.news.tin.it...

Fermo restando che per l'IDProdotto 3 devono visualizzarsi tutti e due i
record e non uno solo come hai ipotizzato tu, se IDProdotto è un campo di
tipo Numerico questo è il modo giusto di scrivere il codice SQL della query
di cui hai bisogno:
SELECT TabCaricoLotti.DataCarico, TabCaricoLotti.Lotto,
TabCaricoLotti.IDProdotto
FROM TabCaricoLotti
WHERE (((DCount("*", "TabCaricoLotti", "IDProdotto=" & [IDProdotto] & " And
DataCarico >=#" & Format([DataCarico],"mm/dd/yyyy") & "#")) <=3));
>
> Grazie in anticipo
Prego e Buon Anno
>
> Paolo I
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:GJetf.22789$eD5.3...@twister2.libero.it...

Grazie Mille Roberto e tanti auguri a tutti!!
Paolo I


title: Report: somma di controlli calcolati

author: Sergio

text:
Ciao a tutti.
Nel corpo di un report ho un calcolo cosě fatto:
"Percen" č una casella di testo che contiene la seguente funzione DLookUp:
=DLookUp("[percentuale]";"TblAziendeCanali";"TblAziendeCanali!CodAziCan=codproord")
"Provvi" č un'altra casella di testo che contiene:
=[percen]*[totale ordine]
quindi riga per riga calcolo la provvigione pescando la corretta percentuale
dalla tabella TblAziendeCanali
Fin qui tutto bene. Non riesco a ottenere, nel pič di pagina report, la
somma delle provvigioni.
So che non posso scrivere =Somma([provvi]) ... qualche idea?
Grazie
Sergio


title: Report: somma di controlli calcolati

text:
Sergio wrote:
> Nel corpo di un report ho un calcolo così fatto:
>
> "Percen" è una casella di testo che contiene la seguente funzione DLookUp:
> =DLookUp("[percentuale]";"TblAziendeCanali";"TblAziendeCanali!CodAziCan=codproord")
>
> "Provvi" è un'altra casella di testo che contiene:
> =[percen]*[totale ordine]
>
> quindi riga per riga calcolo la provvigione pescando la corretta
> percentuale dalla tabella TblAziendeCanali
>
> Fin qui tutto bene. Non riesco a ottenere, nel piè di pagina report, la
> somma delle provvigioni.
> So che non posso scrivere =Somma([provvi]) ... qualche idea?
Invece di usare DLookUp usa una query come origine dati del report.
Nella query aggiungi anche la tabella TblAziendeCanali e in analogio
col criterio del DLookup fai un Join tra i campi CodAziCan e codproord.
Così puoi usare il campo [percentuale] dalla TblAziendeCanali
nella query e nel report, anche nella funzione Somma.
Per l'ultimo punto leggi:
Somma di un controllo calcolato
www.donkarl.com/it?FAQ2.22
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Report: somma di controlli calcolati

text:
Grazie Karl,
ci avevo messo mezz'ora a trovare la corretta sintassi per DLookUp, e poi
non mi č servita, in due minuti ho risolto tutto grazie al tuo suggerimento.
Avevo in precedenza provato a fare come indichi tu nella FAQ2.22, ma non
sapevo come scrivere "somma del risultato della funzione dlookup per il
totale ordine".
Eventualmente, sarebbe possibile? O non si puň del tutto?
Grazie mille.
Sergio
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6k3puaF...@mid.individual.net...
> Sergio wrote:
>> Nel corpo di un report ho un calcolo cosě fatto:
>>
>> "Percen" č una casella di testo che contiene la seguente funzione
>> DLookUp:
>> =DLookUp("[percentuale]";"TblAziendeCanali";"TblAziendeCanali!CodAziCan=codproord")
>>
>> "Provvi" č un'altra casella di testo che contiene:
>> =[percen]*[totale ordine]
>>
>> quindi riga per riga calcolo la provvigione pescando la corretta
>> percentuale dalla tabella TblAziendeCanali
>>
>> Fin qui tutto bene. Non riesco a ottenere, nel pič di pagina report, la
>> somma delle provvigioni.
>> So che non posso scrivere =Somma([provvi]) ... qualche idea?
>
> Invece di usare DLookUp usa una query come origine dati del report.
> Nella query aggiungi anche la tabella TblAziendeCanali e in analogio
> col criterio del DLookup fai un Join tra i campi CodAziCan e codproord.
>
> Cosě puoi usare il campo [percentuale] dalla TblAziendeCanali



title: Report: somma di controlli calcolati

text:
Sergio wrote:
> ...
> Avevo in precedenza provato a fare come indichi tu nella
> FAQ2.22, ma non sapevo come scrivere "somma del risultato
> della funzione dlookup per il totale ordine".
> Eventualmente, sarebbe possibile? O non si può del tutto?
No. La funzione Somma() puoi solo usare per campi che
sono nell'origine dati del report o della maschera.



title: copia record tramite pulsante di comando

author: Raffi

text:
Buongiorno a tutto l'ng;
avrei bisogno ancora una volta del vostro preziosissimo aiuto...
in un database, ho una maschera in visualizzazione a maschere continue
(quindi con tutti i record uno sull'altro) basata su una query che elenca
tutti i prodotti in magazzino (calcolando dunque quelli ad esempio venduti)
ma vorrei creare un pulsante di comando che copii il record selezionato in
un'altra tabella (magari momentanea e creata per l'occasione) in modo ad
esempio da visualizzare 10 prodotti tra gli oltre mille, presi in
considerazione in quella particolare vendita;
in effetti è come creare un filtro in base a maschera, evitando però di
immettere per ogni prodotto cercato il relativo codice a mano, facendo si
che un semplice clic di un pulsante lo selezioni e lo inserisca in questa
ipotetica ricerca con filtro...
Grazie ancora e buon lavoro a tutti!


author: Carlo Costarella

text:
"Raffi" <
rac...@tin.it
> ha scritto nel messaggio
news:_hAU8.29178$Jj7.7...@news1.tin.it...

Prova con una query di accodamento su una tabella di appoggio del tutto
uguale alla principale.
Tale query partirà al click di un pulsante.
Nei criteri di questa query metti il valore del controllo (chiave unica) del
record selezionato: Forms!MiaForms!MioID
Se poi vuoi selezionare più record e accodarli il discorso cambia. Devi
usare il codice.
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:08BU8.101352$j65.2...@twister1.libero.it...
> Prova con una query di accodamento su una tabella di appoggio del tutto
> uguale alla principale.
> Tale query partirà al click di un pulsante.
> Nei criteri di questa query metti il valore del controllo (chiave unica)
del
> record selezionato: Forms!MiaForms!MioID
> Se poi vuoi selezionare più record e accodarli il discorso cambia. Devi
> usare il codice.
>
> Ciao, Carlo
Già, era proprio quello che volevo fare....puoi ancora essermi di aiuto?


title: Creazione report

author: [Battista]

text:
Ciao a tutti,
una domanda molto semplice,
esiste un programma esterno per la creazione di report
più dettagliati per poi essere importati in access?
Grazie


title: Creazione report

author: ALESSANDRO Baraldi

text:
"[Battista]" <
maz...@tiscali.it
> ha scritto nel messaggio
news:ch4sfd$he8$1...@lacerta.tiscalinet.it...
> Ciao a tutti,
> una domanda molto semplice,
> esiste un programma esterno per la creazione di report
> piů dettagliati per poi essere importati in access?
>
> Grazie
La gestione Report di Access č tra le Migliori presenti sul
Mercato.
Cosa ti manca di cosě grave....??
[Impossibile poi l'importazione]
Esiste CrystalReport, ma Soldi a parte non credo sia
conveniente, almeno con Acess.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Creazione report

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:ch4um3$j14$1...@lacerta.tiscalinet.it...
> "[Battista]" <
maz...@tiscali.it
> ha scritto nel messaggio
> news:ch4sfd$he8$1...@lacerta.tiscalinet.it...
> > Ciao a tutti,
> > una domanda molto semplice,
> > esiste un programma esterno per la creazione di report
> > più dettagliati per poi essere importati in access?
> >
> > Grazie
>
> La gestione Report di Access è tra le Migliori presenti sul
> Mercato.
> Cosa ti manca di così grave....??
> [Impossibile poi l'importazione]
>
> Esiste CrystalReport, ma Soldi a parte non credo sia
> conveniente, almeno con Acess.
>
> --
> @Alex (Alessandro Baraldi)
> --------------------------------------------------------------------------
-
>
http://www.sitocomune.com/
>
http://www.mantuanet.it/alessandro.baraldi/
> --------------------------------------------------------------------------
-
>
>
Ciao, praticamente trovo molto macchinoso inserire dei testi nel report.
Si può importare un documento Word nel report senza perdere la formattazione
dello stesso?
Grazie dell' aiuto.
Battista


title: Creazione report

text:
"[Battista]" <
maz...@tiscali.it
> ha scritto nel messaggio
news:ch6kfr$j6s$1...@lacerta.tiscalinet.it...
[CUT]
> Ciao, praticamente trovo molto macchinoso inserire dei testi nel report.
> Si può importare un documento Word nel report senza perdere la
formattazione
> dello stesso?
> Grazie dell' aiuto.
> Battista
In realtà puoi usare Word direttamente.
Intendo che puoi compilare un Documento di Word
da Access.
Vai sul SitoComune sottolinkato e cerca a riguardo.



title: arrotandamento

author: Eugene

text:
Qual è la formula, con Access, per l'arrotondamento per eccesso e quello per
difetto?
fatemi sapere sono disperato
grazie
--
TOGLI NOSPAM
pi...@libero.it
TOGLI NOSPAM


title: arrotandamento

author: sib

text:
Eugene <
pieuN...@libero.it
> wrote in message
8h9308$c3h$1...@sirmdpsin16.inwind.it...
> Qual è la formula, con Access, per l'arrotondamento per eccesso e quello
per
> difetto?
> fatemi sapere sono disperato
> grazie
La stessa degli altri linguaggi.
Per difetto
Arrotondato=Int(Valore)
Per eccesso
Arrotondato=Int(Valore)+1
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: arrotandamento

author: Renza

text:



Premetto che sono agli inizi e molte volte mi arrangio con accrocchi che mi
consentono di ottenere quello che voglio ma spesso con giri lunghi.
Tuttavia mi permetto di suggerire una precisazione al mago sib (frequento da
qualche mese questo ng e vedo che risolvete la maggior parte dei problemi
con poche righe di codice mentre io faccio dei giri mostruosi con query,
sottoquery ecc.).
Espongo il mio pensiero: sono parzialmente d'accordo con la soluzione che
suggerisci; OK per l'arrotondamento per difetto ma non per quello per
eccesso.
Facendo così se per caso nel mucchio c'è un numero che è già intero di suo,
mi aggiunge 1 comunque.
Io ho fatto così:
Per eccesso
Arrotondato=iif(Valore - Int(Valore) > 0 ; Int(Valore)+1 ; Valore)
Chissà se questa affermazione è vera (ho copiato una frase che mi è piaciuta
molto)
Ciao Renza
P.S. Mi piacerebbe conoscere cosa ne pensi.


title: arrotandamento

text:
Renza dice:
> > Eugene scrisse
> > > Qual è la formula, con Access, per l'arrotondamento per eccesso e
quello
> > per
> > > difetto?
> > > fatemi sapere sono disperato
> > > grazie
> >
> > La stessa degli altri linguaggi.
> > Per difetto
> > Arrotondato=Int(Valore)
>
> > Per eccesso
> > Arrotondato=Int(Valore)+1
> >
> > Ciao, Sib
[cut]
> Facendo così se per caso nel mucchio c'è un numero che è già intero di
suo,
> mi aggiunge 1 comunque.
> Io ho fatto così:
> Per eccesso
> Arrotondato=iif(Valore - Int(Valore) > 0 ; Int(Valore)+1 ; Valore)
Hai ragione, in effetti ho risposto frettolosamente.
Si ovvia facilmente facendo:
Eccesso= int(MioValore+0.99999)
Buona, comunque, la tua soluzione



title: arrotandamento

author: VT @ work

text:
Il Fri, 2 Jun 2000 21:37:58 +0200, "Eugene" <
pieuN...@libero.it
>
scrisse:
Int(Valore+0,5)
>Qual è la formula, con Access, per l'arrotondamento per eccesso e quello per
>difetto?
>fatemi sapere sono disperato
>grazie
>
>--
>TOGLI NOSPAM
>
>
pi...@libero.it
>
>TOGLI NOSPAM
>
>
Vincenzo Turturro
----------------------------------
Niuna impresa, per minima che sia,
può avere cominciamento e fine
senza queste tre cose:
e cioè senza sapere,
senza potere,
senza con amore volere
(Anonimo fiorentino, XIV sec.)
------------------------------


title: Info da pc remoti in lan

author: Paolo Drappo

text:
Ciao a tutta la ML.
Sono un principiante assoluto in materia di access, ma cogliendone le
potenzialità ho deciso di provare.
Il mio obiettivo è quello di ricavare più informazioni possibili da un pc in
rete e di scrivere i risultati in una tabella per future statistiche.
Girovagando sui siti ho trovato soluzioni con cui ho automatizzato il ping
sulla rete e riesco a risolvere il nome del pc trovato e ad avere le
informazioni del disco.
Il passo successivo sarebbe ricavare da questo pc il s.o. , la ram, la cpu
etc.
Qualche consiglio?
Grazie in anticipo a chi volesse aiutarmi.
Paolo


title: Info da pc remoti in lan

author: Gianluca

text:
"Paolo Drappo" <@
pp.com
> ha scritto nel messaggio
news:oyJm8.56510$%g7.17...@twister2.libero.it...

Dove hai reperito le info? Sono molto interessato, e vorrei riuscire anche
io a registrare info in tabella. Fammi sapere!


title: Info da pc remoti in lan

text:
Il codice è presente sul sito
www.visual-basic.it
Occorre adattarlo un pò ma poi funziona...
Se riesci a ottenere più di quanto ho fatto io fammi sapere.
Cià
"Gianluca" <
NO_SPAM_v...@wappi.com
> ha scritto nel messaggio
news:DeKm8.56743$%g7.17...@twister2.libero.it...



title: ordinamento anomalo AZ con testo

text:
Questo problema lo avevo gi� risolto ma non ricordo pi� come, praticamente
mi accade che gli articoli di una form mi ordina i record nel seguente modo
anomalo
articolo 1
articolo 11
articolo 2
articolo 22
articolo 8
mentre vorrei ordinarli come segue
articolo 1
articolo 2
articolo 8
articolo 11
articolo 22
cio� vorrei che rispettasse l'ordine dei numeri anche se si tratta di testo,
c'era un modo?


title: ordinamento anomalo AZ con testo

author: Riccardo Baldinotti

text:
On 27 Gen, 11:18, "leopard73" <
leopar...@email.it
> wrote:
> Questo problema lo avevo già risolto ma non ricordo più come, praticamente
> mi accade che gli articoli di una form mi ordina i record nel seguente modo
> anomalo
>
> articolo 1
> articolo 11
> articolo 2
> articolo 22
> articolo 8
>
> mentre vorrei ordinarli come segue
> articolo 1
> articolo 2
> articolo 8
> articolo 11
> articolo 22
>
> cioè vorrei che rispettasse l'ordine dei numeri anche se si tratta di testo,
> c'era un modo?
Ho provato così: la mia Tabella1 ha il Campo1 con i valori del tuo
esempio.
Ho fatto questa query:
SELECT Tabella1.Campo1
FROM Tabella1
ORDER BY Len([Campo1]), Tabella1.Campo1;
cioè, i campi sono ordinati prima per lunghezza, poi per il testo,
ottenendo il risultato voluto.
Ciao.
Riccardo Baldinotti


title: ordinamento anomalo AZ con testo

text:
> Ho provato cos�: la mia Tabella1 ha il Campo1 con i valori del tuo
> esempio.
> Ho fatto questa query:
> SELECT Tabella1.Campo1
> FROM Tabella1
> ORDER BY Len([Campo1]), Tabella1.Campo1;
> cio�, i campi sono ordinati prima per lunghezza, poi per il testo,
> ottenendo il risultato voluto.
> Ciao.
> Riccardo Baldinotti
>
funziona grazie.


title: apertura di un report con impostazioni da form

author: Salvatore

text:
E' possibile aprire un report in maniera tale che vi compaiano i filtri e
gli ordinamenti presenti su una maschera dalla quale lo stesso report viene
aperto?
In altre parole, se sulla maschera è stato effettuato un filtro (per esempio
Città="Milano" con l'uso del tasto destro e, quindi, senza far riferimento
al contenuto di caselle di testo o caselle combinate) il report dovrebbe
aprirsi col filtro Città="Milano".
Lo stesso dicasi per gli ordinamenti che dovrebbero essere gli stessi
presenti sulla maschera.
Ciao
Salvatore


text:
"Salvatore" <
sal...@tiscalinet.it
> ha scritto nel messaggio
news:ba4uei$n6a$1...@lacerta.tiscalinet.it...

Se la maschera si chiama Maschera1 e resta aperta durante l'esecuzione del
report, a fronte dell'evento "Su apertura" del report prova a generare il
seguente codice VBA:
Me.Filter = [Forms]![Maschera1].Filter
Me.FilterOn = True
Me.OrderBy = [Forms]![Maschera1].OrderBy
Me.OrderByOn = True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:qhnxa.8830$Ny5.2...@twister2.libero.it...

Grazie
Deus ti pardede
Salvatore


text:
"Salvatore" <
sal...@tiscalinet.it
> ha scritto nel messaggio
news:ba501g$nu1$1...@lacerta.tiscalinet.it...
[CUT]
> Deus ti pardede
E per gli ignoranti come me cosa significa?
> Salvatore



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:KDnxa.9105$lK4.2...@twister1.libero.it...

in sardo, qualcosa come Dio ti assista o Dio te ne renda merito.
Ciao
Salvatore


title: access dentro browser in locale

author: Icchese

text:
Quale metodo mi consigliate , se possibile, per visualizzare e cercare dati
da un database access, dentro una pagina html in locale, considerando che:
Non sono un mago, riesco con asp su server a fare quasi tutto.
Non posso farlo in asp, installando il PWS o IIS a seconda dei casi
Esculdere VBasic
grazie a tutti
ciao


title: access dentro browser in locale

author: Luciano (DOC)

text:
Icchese ha scritto nel messaggio ...


Hai escluso troppe cose fratello...
Saluti.
Luciano


title: access dentro browser in locale

text:
> Hai escluso troppe cose fratello...
> Saluti.
>
> Luciano
>
>
:)) e senno' era troppo facile........


title: Forzare l'uscita da maschera

author: pang

text:
Ho inserito su evento 'su uscita' di una casella di controllo il seguente
codice
If Nz(Me!Data_contatto, "") = "" Then
    MsgBox "Attenzione il campo 'Data contatto' è obbligatorio"
    Cancel = True
    Me!Data_contatto.SetFocus
    Exit Sub
End If
che mi permette immediatamente di capire che il campo va compilato
obbligatoriamente.
Il problema è che su tale maschera ho un tasto che serve -su click- a
chiudere la maschera, che mi ritorna il messaggio del evento su uscita se il
campo appunto è = "", invece a me occorrerebbe uscire forzatamente senza
controllare  .
Come fare ?
Ciao, pang.


title: Forzare l'uscita da maschera

author: Alessandro Cara

text:
pang wrote:

sulla routine click di chiusura
....
controlloconclickdiuscita.onexit = ""
...
dovrebbe funzionare
--
a.cara


title: Forzare l'uscita da maschera

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:30c26bF...@uni-berlin.de...
> sulla routine click di chiusura
> ....
> controlloconclickdiuscita.onexit = ""
> ...
>
> dovrebbe funzionare
> --
> a.cara
Scusa, questa č la mia sub d'uscita
Private Sub Esci_Click()
    On Error GoTo Err_Comando97_Click
    DoCmd.Close
    Exit_Comando97_Click:
    Exit Sub
    Err_Comando97_Click:
    MsgBox Err.Description
    Resume Exit_Comando97_Click
End Sub
Dove devo inserire
xxxxxx.onexit = ""
e come ?
Ciao, pang


title: Forzare l'uscita da maschera

text:
pang wrote:
[cut]
la cosa che ho detto non funziona nel tuo caso.
Tardi ma ci sono arrivato.
L'evento di exit del controllo data scatta prima dell'evento di click
del bottone di uscita.
Ti consiglierei di spostare il controllo sulla data da un'altra parte.
Magari prima della beforeupdate di form (anche questo evento e'
cancellabile)
--
a.cara


title: MASCHERA RICHISTA DATI

author: VENDOESCAMBIO

text:
salve ragazzi
ho una query che per essesere eseguita richiede dei dati (data dal ) (al)
(service)
come faccio per far appararire una maschera che chieda tali dati e per
selezionare il campo service da una casella combunata ?
ovviamente dopo aver inserito i dati in questa maschera  la query apre una
seconda maschera
grazie


title: MASCHERA RICHISTA DATI

text:
"VENDOESCAMBIO" <
vendoe...@libero.it
> ha scritto nel messaggio
news:j2nhn3$p1m$1...@speranza.aioe.org...

Io in genere creo una mascherina di input o richiesta dati.
E' una mascherina con tre controlli: DataDal, DataAl in formato data e con
maschera di input (00/00/0000;0;_);
infine una combo con i valori che mi servono. Aggiungo un pulsante per
eseguire il codice e, come nel tuo caso, aprire una seconda maschera.
Questa seconda maschera è alimentata dalla query che avrà nei criteri i
valori selezionati nella chiamiamola maschera di input.
Invariabilmente uso il codice per passare i criteri: due in formato data e
uno, a seconda dei casi, numerico o testo scelto dalla combo.
Per esempio per una data:
Public Function DimmiDataDal() as date
DimmiDataDal = Formata(Forms!MascheraDiInput!DataDal,"dd/mm/yyyy")
End Function
Nella query, nella colonna della data, nella riga del criterio scrivo: Like
DimmiDataDal().
Così per gli altri criteri badando bene a passare il valore corretto per il
tipo di dati (numerico, testo o data o booleano).
Ciao, Carlo


title: MASCHERA RICHISTA DATI

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:j2njj2$m9f$1...@tdi.cu.mi.it...

per mascherina di input intendi una normale maschera con solo i dati da
richiedere giusto ?
grazie provero'
>


title: MASCHERA RICHISTA DATI

text:
"VENDOESCAMBIO" <
vendoe...@libero.it
> ha scritto nel messaggio
news:j2nvnl$ont$1...@speranza.aioe.org...
cut
> per mascherina di input intendi una normale maschera con solo i dati da
> richiedere giusto ?
>
> grazie provero'
Certo, una mascherina dove in genere lascio il solo contorno, senza barre o
altre cosucce.
Ciao, Carlo


title: progetto da convertire VB > Access

author: Massimo

text:
Volevo proporre questo:
Sul sito comune di Visual Basic ho scaricato un piccolo progetto che a
secondo mč fa una bellissima funzione, esattamente quella di comprimere e
decomprimere un archivio in formato zip, utilizzando le librerie free
zip32.dll e Unzip32.dll.
Il progetto č composto da un modulo e da una maschera.
Nella maschera compaiono tre caselle di testo:
Imput dir =  origine
Out dir = destinazione
Zip File = nome file
e due pulsanti
Zip = comprimi
Unzip = decomprimi
Ora lo utilizzo come exe separato, ma lo ritengo piů funzionale se lo si
potesse inserire in un DB di Access.
Chi sarebbe in grado convertire questo progetto VB in un MDB in maniera da
poterlo distribuire liberamente ( lo stesso autore dice di lavorarci
sopra ).
Ora non mi ricordo da quale sito comune di VB ho scaricato il progetto,
vedrň di trovarlo, comunque nel frattempo vi copio il modulo della forms ed
il modulo.
Modulo della forms:
Private Sub Command1_Click()
'---------------------------------------------------
' Sample VB 5 code to drive zip32.dll
' Contributed to the Info-Zip project by Mike Le Voi
'
' Contact me at:
mle...@modemss.brisnet.org.au
'
' Visit my home page at:
http://modemss.brisnet.org.au/~mlevoi
'
' Use this code at your own risk. Nothing implied or warranted
' to work on your machine :-)
'---------------------------------------------------
    Dim argc As Integer, zipname As String
    Dim mynames As ZIPnames, basename As String
    Dim rc As Integer, junk As Integer
    Dim recurse As Integer, updat As Integer, freshen As Integer
    '
    '
    ' Set options - only the common ones are shown here
    junk = 0    ' 1=throw away path names
    recurse = 2 ' 1=recurse -R 2=recurse -r 2=most useful :)
    updat = 0   ' 1=update only if newer
    freshen = 0 ' 1=freshen - overwrite only
    ' Select some files - wildcards are supported
    argc = 2    ' number of elements of mynames array
    zipname = Text3.Text
    mynames.s(0) = "C:\gabibbo\*.TXT"
    mynames.s(1) = Text1.Text + "\*.*"
    'mynames.s(2) = "C:\gabibbo\*.EXE"
   ' mynames.s(3) = "C:\gabibbo\*.txt"
    'mynames.s(4) = "C:\gabibbo\winrar\*.*"
    basename = "C:\" ' this affects the stored path name
    'Pippo = "c:\gabibbo\*.*"
    ' Go for it!
    rc = VBZip(argc, zipname, mynames, junk, recurse, updat, freshen,
basename)
    'rc = VBZip(1, zipname, Pippo, junk, recurse, updat, freshen, basename)
    ' Print vbzipinf
    'Print "Return code:" + Str$(rc)
    If rc = 0 Then
    MsgBox "Operazione ZIP - > Eseguita con successo !"
    End If
    ' vbzipinf = ""
End Sub
Private Sub Command2_Click()
'---------------------------------------------------
' Sample VB 5 code to drive unzip32.dll
' Contributed to the Info-Zip project by Mike Le Voi
'
' Contact me at:
mle...@modemss.brisnet.org.au
'
' Visit my home page at:
http://modemss.brisnet.org.au/~mlevoi
'
' Use this code at your own risk. Nothing implied or warranted
' to work on your machine :-)
'---------------------------------------------------
    Dim prom%, over%, mess%, dirs%, numf&, numx&
    Dim zipfile$, unzipdir$
    crlf = Chr$(13) + Chr$(10)
    Cls
    ' Init global message variables
    vbzipinf = ""
    vbzipnum = 0
    ' Select unzip options - change as required!
    prom = 1  ' 1=prompt to overwrite
    over = 0  ' 1=always overwrite files
    ' Change the next line to do the actual unzip!
    mess = 0  ' 1=list contents of zip 0=extract
    dirs = 1  ' 1=honour zip directories
    ' Select filenames if required
    '   vbzipnam.s(0) = "sfx16.dat"
    '   vbzipnam.s(1) = "sfx32.dat"
    '   vbzipnam.s(2) = "windll.h"
    '   numf = 3
    ' or just select all files
    vbzipnam.s(0) = vbNullString
    numf = 0
    ' Select filenames to exclude from processing
    ' Note UNIX convention!
    '   vbxnames.s(0) = "VBSYX/VBSYX.MID"
    '   vbxnames.s(1) = "VBSYX/VBSYX.SYX"
    '   numx = 2
    ' or just select all files
    vbxnames.s(0) = vbNullString
    numx = 0
    ' Change the next 2 lines as required!
    zipfile = Text3.Text
    unzipdir = Text2.Text
    ' Let's go for it
    Call VBUnzip(zipfile, unzipdir, prom, over, mess, dirs, numf, numx)
    ' Tell the user what happened
    'If Len(vbzipmes) > 0 Then Print vbzipmes
    'If Len(vbzipinf) > 0 Then
     '   Print "vbzipinf is:"
     '   Print vbzipinf
    'End If
    'If vbzipnum > 0 Then Print "Number of files: " + Str$(vbzipnum)
    If RetValue = 0 Then
       MsgBox "Operazione UNZIP - > Eseguita con successo !"
    End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
'Text1.Text = Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) + "dati\"
'Text2.Text = Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) + "dati\"
Text1.Text = CurDir + "\dati\"
Text2.Text = CurDir + "\dati\"
End Sub
modulo
'
Public Type ZIPnames
    s(0 To 99) As String
End Type
'
Public RetValue As Long
'
'ZPOPT is used to set options in the zip32.dll
Private Type ZPOPT
    fSuffix As Long
    fEncrypt As Long
    fSystem As Long
    fVolume As Long
    fExtra As Long
    fNoDirEntries As Long
    fExcludeDate As Long
    fIncludeDate As Long
    fVerbose As Long
    fQuiet As Long
    fCRLF_LF As Long
    fLF_CRLF As Long
    fJunkDir As Long
    fRecurse As Long
    fGrow As Long
    fForce As Long
    fMove As Long
    fDeleteEntries As Long
    fUpdate As Long
    fFreshen As Long
    fJunkSFX As Long
    fLatestTime As Long
    fComment As Long
    fOffsets As Long
    fPrivilege As Long
    fEncryption As Long
    fRepair As Long
    flevel As Byte
    date As String ' 8 bytes long
    szRootDir As String ' up to 256 bytes long
End Type
'
'
'
Private Type ZIPUSERFUNCTIONS
    DllPrnt As Long
    DLLPASSWORD As Long
    DLLCOMMENT As Long
    DLLSERVICE As Long
End Type
'
' Userfunctions structure
'
Private Type USERFUNCTION
    DllPrnt As Long
    DLLSND As Long
    DLLREPLACE As Long
    DLLPASSWORD As Long
    DLLMESSAGE As Long
    DLLSERVICE As Long
    TotalSizeComp As Long
    TotalSize As Long
    CompFactor As Long
    NumMembers As Long
    cchComment As Integer
End Type
' DCL structure
Private Type DCLIST
    ExtractOnlyNewer As Long
    SpaceToUnderscore As Long
    PromptToOverwrite As Long
    fQuiet As Long
    ncflag As Long
    ntflag As Long
    nvflag As Long
    nUflag As Long
    nzflag As Long
    ndflag As Long
    noflag As Long
    naflag As Long
    nZIflag As Long
    C_flag As Long
    fPrivilege As Long
    Zip As String
    ExtractDir As String
End Type
' Unzip32.dll version structure
Private Type UZPVER
    structlen As Long
    flag As Long
    beta As String * 10
    date As String * 20
    zlib As String * 10
    unzip(1 To 4) As Byte
    zipinfo(1 To 4) As Byte
    os2dll As Long
    windll(1 To 4) As Byte
End Type
' Call back "string" (sic)
'Private Type CBChar
'    ch(4096) As Byte
'End Type
' Callback large "string" (sic)
Private Type CBChar
    ch(32000) As Byte
End Type
' Callback small "string" (sic)
Private Type CBCh
    ch(256) As Byte
End Type
'Local declares
Dim MYOPT As ZPOPT
' Dim MYZCL As ZCL
Dim MYUSER As ZIPUSERFUNCTIONS
Dim MYDCL As DCLIST
Dim MYUSER1 As USERFUNCTION
Dim MYVER As UZPVER
Global vbzipnum As Long, vbzipmes As String
Global vbzipinf As String
Global vbzipnam As ZIPnames, vbxnames As ZIPnames
Global crlf$
Private Declare Function ZpInit Lib "zip32.dll" (ByRef Zipfun As
ZIPUSERFUNCTIONS) As Long ' Set Zip Callbacks
Private Declare Function ZpSetOptions Lib "zip32.dll" (ByRef Opts As ZPOPT)
As Long ' Set Zip options
Private Declare Function ZpGetOptions Lib "zip32.dll" () As ZPOPT ' used to
check encryption flag only
Private Declare Function ZpArchive Lib "zip32.dll" (ByVal argc As Long,
ByVal funame As String, ByRef argv As ZIPnames) As Long ' Real zipping
action
' New Questa funzione non c'e' nella DLL 5.32!!!
Private Declare Function Wiz_SingleEntryUnzip Lib "unzip32.dll" (ByVal ifnc
As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames,
dcll As DCLIST, Userf As USERFUNCTION) As Long
'Private Declare Function windll_unzip Lib "unzip32.dll" (ByVal ifnc As
Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames,
dcll As DCLIST, Userf As USERFUNCTION) As Long
Private Declare Sub UzpVersion2 Lib "unzip32.dll" (uzpv As UZPVER)
' Puts a function pointer in a structure
Function FnPtr(ByVal lp As Long) As Long
    FnPtr = lp
End Function
' Callback for unzip32.dll
Sub ReceiveDllMessage(ByVal ucsize As Long, _
    ByVal csiz As Long, _
    ByVal cfactor As Integer, _
    ByVal mo As Integer, _
    ByVal dy As Integer, _
    ByVal yr As Integer, _
    ByVal hh As Integer, _
    ByVal mm As Integer, _
    ByVal c As Byte, ByRef fname As CBCh, _
    ByRef meth As CBCh, ByVal crc As Long, _
    ByVal fCrypt As Byte)
    Dim s0$, xx As Long
    Dim strout As String * 80
    ' always put this in callback routines!
    On Error Resume Next
    strout = Space(80)
    If vbzipnum = 0 Then
        Mid$(strout, 1, 50) = "Filename:"
        Mid$(strout, 53, 4) = "Size"
        Mid$(strout, 62, 4) = "Date"
        Mid$(strout, 71, 4) = "Time"
        vbzipmes = strout + crlf
        strout = Space(80)
    End If
    s0 = ""
    For xx = 0 To 255
        If
fname.ch
(xx) = 0 Then xx = 99999 Else s0 = s0 &
Chr$(
fname.ch
(xx))
    Next xx
    Mid$(strout, 1, 50) = Mid$(s0, 1, 50)
    Mid$(strout, 51, 7) = Right$("        " + Str$(ucsize), 7)
    Mid$(strout, 60, 3) = Right$(Str$(dy), 2) + "/"
    Mid$(strout, 63, 3) = Right$("0" + Trim$(Str$(mo)), 2) + "/"
    Mid$(strout, 66, 2) = Right$("0" + Trim$(Str$(yr)), 2)
    Mid$(strout, 70, 3) = Right$(Str$(hh), 2) + ":"
    Mid$(strout, 73, 2) = Right$("0" + Trim$(Str$(mm)), 2)
    ' Mid$(strout, 75, 2) = Right$(" " + Str$(cfactor), 2)
    ' Mid$(strout, 78, 8) = Right$("        " + Str$(csiz), 8)
    ' s0 = ""
    ' For xx = 0 To 255
    '     If
meth.ch
(xx) = 0 Then xx = 99999 Else s0 = s0 + Chr(
meth.ch
(xx))
    ' Next xx
    vbzipmes = vbzipmes + strout + crlf
    vbzipnum = vbzipnum + 1
    '
    '
End Sub
' Callback for unzip32.dll
Function DllPrnt(ByRef fname As CBChar, ByVal x As Long) As Long
    Dim s0$, xx As Long
    ' always put this in callback routines!
    On Error Resume Next
    s0 = ""
    For xx = 0 To x
        If
fname.ch
(xx) = 0 Then xx = 99999 Else s0 = s0 + Chr(
fname.ch
(xx))
    Next xx
    vbzipinf = vbzipinf + s0
    DllPrnt = 0
End Function
' Callback for unzip32.dll
Function DllPass(ByRef s1 As Byte, x As Long, _
    ByRef s2 As Byte, _
    ByRef s3 As Byte) As Long
    ' always put this in callback routines!
    On Error Resume Next
    ' not supported - always return 1
    DllPass = 1
End Function
' Callback for unzip32.dll
Function DllRep(ByRef fname As CBChar) As Long
    Dim s0$, xx As Long
    ' always put this in callback routines!
    On Error Resume Next
    DllRep = 100 ' 100=do not overwrite - keep asking user
    s0 = ""
    For xx = 0 To 255
        If
fname.ch
(xx) = 0 Then xx = 99999 Else s0 = s0 + Chr(
fname.ch
(xx))
    Next xx
    xx = MsgBox("Overwrite " + s0 + "?", vbYesNoCancel, "VBUnzip - File
already exists")
    If xx = vbNo Then Exit Function
    If xx = vbCancel Then
        DllRep = 104 ' 104=overwrite none
        Exit Function
    End If
    DllRep = 102 ' 102=overwrite 103=overwrite all
End Function
' ASCIIZ to String
Function szTrim(szString As String) As String
    Dim pos As Integer, ln As Integer
    pos = InStr(szString, Chr$(0))
    ln = Len(szString)
    Select Case pos
        Case Is > 1
            szTrim = Trim(Left(szString, pos - 1))
        Case 1
            szTrim = ""
        Case Else
            szTrim = Trim(szString)
    End Select
End Function
' Callback for zip32.dll
Function DllComm(ByRef s1 As CBChar) As CBChar
    ' always put this in callback routines!
    On Error Resume Next
    ' not supported always return \0

s1.ch
(0) = vbNullString
    DllComm = s1
End Function
' Main subroutine
Sub VBUnzip(fname As String, extdir As String, _
    prom As Integer, ovr As Integer, _
    mess As Integer, dirs As Integer, numfiles As Long, numxfiles As Long)
    Dim xx As Long ' , s1 As String * 20, s2 As String * 256
    ' Set options
    MYDCL.ExtractOnlyNewer = 0      ' 1=extract only newer
    MYDCL.SpaceToUnderscore = 0     ' 1=convert space to underscore
    MYDCL.PromptToOverwrite = prom  ' 1=prompt to overwrite required
    MYDCL.fQuiet = 0                ' 2=no messages 1=less 0=all
    MYDCL.ncflag = 0                ' 1=write to stdout
    MYDCL.ntflag = 0                ' 1=test zip
    MYDCL.nvflag = mess             ' 0=extract 1=list contents
    MYDCL.nUflag = 0                ' 1=extract only newer
    MYDCL.nzflag = 0                ' 1=display zip file comment
    MYDCL.ndflag = 0 'dirs             ' 1=honour directories
    MYDCL.noflag = ovr              ' 1=overwrite files
    MYDCL.naflag = 0                ' 1=convert CR to CRLF
    MYDCL.nZIflag = 0               ' 1=Zip Info Verbose
    MYDCL.C_flag = 0                ' 1=Case insensitivity, 0=Case
Sensitivity
    MYDCL.fPrivilege = 0            ' 1=ACL 2=priv
    MYDCL.Zip = fname               ' ZIP name
    MYDCL.ExtractDir = extdir       ' Extraction directory, NULL if
extracting
                                    ' to current directory
    ' Set Callback addresses
    ' Do not change
    MYUSER1.DllPrnt = FnPtr(AddressOf DllPrnt)
    MYUSER1.DLLSND = 0& ' not supported
    MYUSER1.DLLREPLACE = FnPtr(AddressOf DllRep)
    MYUSER1.DLLPASSWORD = FnPtr(AddressOf DllPass)
    MYUSER1.DLLMESSAGE = FnPtr(AddressOf ReceiveDllMessage)
    MYUSER1.DLLSERVICE = 0& ' not coded yet :)
    ' Set Version space
    ' Do not change
    With MYVER
        .structlen = Len(MYVER)
        .beta = Space$(9) & vbNullChar
        .date = Space$(19) & vbNullChar
        .zlib = Space$(9) & vbNullChar
    End With
    ' Get version
    Call UzpVersion2(MYVER)
    'VBUnzFrm.Print MYVER.structlen
    'VBUnzFrm.Print Hex$(MYVER.flag)
    'VBUnzFrm.Print szTrim(MYVER.beta)
    '
    '
    '
    'stampa lo status
    ' MainZip.List1.AddItem
    'VBUnzFrm.Print "DLL Date: " & szTrim(MYVER.date)
    'VBUnzFrm.Print "Zip Info: " & Hex$(MYVER.zipinfo(1)) + "." +
Hex$(MYVER.zipinfo(2)) + Hex$(MYVER.zipinfo(3))
    'VBUnzFrm.Print "DLL Version: " & Hex$(MYVER.windll(1)) + "." +
Hex$(MYVER.windll(2)) + Hex$(MYVER.windll(3))
    'VBUnzFrm.Print "----------"
    '
    '
    '
    'VBUnzFrm.Print szTrim(MYVER.zlib)
    'VBUnzFrm.Print Hex$(MYVER.unzip(1)) + "." + Hex$(MYVER.unzip(2)) +
Hex$(MYVER.unzip(3))
    'VBUnzFrm.Print Hex$(MYVER.os2dll)
    ' Go for it!
    RetValue = Wiz_SingleEntryUnzip(numfiles, vbzipnam, numxfiles, vbxnames,
MYDCL, MYUSER1)
    If RetValue <> 0 Then MsgBox RetValue
    'Debug.Print "--------------"
    'Debug.Print MYUSER.cchComment
    'Debug.Print MYUSER.TotalSizeComp
    'Debug.Print MYUSER.TotalSize
    'Debug.Print MYUSER.CompFactor
    'Debug.Print MYUSER.NumMembers
    'Debug.Print "--------------"
End Sub
'Main Subroutine
Function VBZip(argc As Integer, zipname As String, _
        mynames As ZIPnames, junk As Integer, _
        recurse As Integer, updat As Integer, _
        freshen As Integer, basename As String) As Long
    Dim hmem As Long, xx As Integer
    Dim retcode As Long
    On Error Resume Next ' nothing will go wrong :-)
    ' Set address of callback functions
    MYUSER.DllPrnt = FnPtr(AddressOf DllPrnt)
    MYUSER.DLLPASSWORD = FnPtr(AddressOf DllPass)
    MYUSER.DLLCOMMENT = FnPtr(AddressOf DllComm)
    MYUSER.DLLSERVICE = 0& ' not coded yet :-)
    retcode = ZpInit(MYUSER)
    ' Set zip options
    MYOPT.fSuffix = 0        ' include suffixes (not yet implemented)
    MYOPT.fEncrypt = 0       ' 1 if encryption wanted
    MYOPT.fSystem = 0        ' 1 to include system/hidden files
    MYOPT.fVolume = 0        ' 1 if storing volume label
    MYOPT.fExtra = 0         ' 1 if including extra attributes
    MYOPT.fNoDirEntries = 0  ' 1 if ignoring directory entries
    MYOPT.fExcludeDate = 0   ' 1 if excluding files earlier than a specified
date
    MYOPT.fIncludeDate = 0   ' 1 if including files earlier than a specified
date
    MYOPT.fVerbose = 0       ' 1 if full messages wanted
    MYOPT.fQuiet = 0         ' 1 if minimum messages wanted
    MYOPT.fCRLF_LF = 0       ' 1 if translate CR/LF to LF
    MYOPT.fLF_CRLF = 0       ' 1 if translate LF to CR/LF
    MYOPT.fJunkDir = junk    ' 1 if junking directory names
    MYOPT.fRecurse = recurse ' 1 if recursing into subdirectories
    MYOPT.fGrow = 0          ' 1 if allow appending to zip file
    MYOPT.fForce = 0         ' 1 if making entries using DOS names
    MYOPT.fMove = 0          ' 1 if deleting files added or updated
    MYOPT.fDeleteEntries = 0 ' 1 if files passed have to be deleted
    MYOPT.fUpdate = updat    ' 1 if updating zip file--overwrite only if
newer
    MYOPT.fFreshen = freshen ' 1 if freshening zip file--overwrite only
    MYOPT.fJunkSFX = 0       ' 1 if junking sfx prefix
    MYOPT.fLatestTime = 0    ' 1 if setting zip file time to time of latest
file in archive
    MYOPT.fComment = 0       ' 1 if putting comment in zip file
    MYOPT.fOffsets = 0       ' 1 if updating archive offsets for sfx Files
    MYOPT.fPrivilege = 0     ' 1 if not saving privelages
    MYOPT.fEncryption = 0    'Read only property!
    MYOPT.fRepair = 0        ' 1=> fix archive, 2=> try harder to fix
    MYOPT.flevel = 0         ' compression level - should be 0!!!
    MYOPT.date = vbNullString ' "12/31/79"? US Date?
    MYOPT.szRootDir = basename
    ' Set options
    retcode = ZpSetOptions(MYOPT)
    ' ZCL not needed in VB
    ' MYZCL.argc = 2
    ' MYZCL.filename = "c:\wiz\new.zip"
    ' MYZCL.fileArray = MYNAMES
    ' Go for it!
    retcode = ZpArchive(argc, zipname, mynames)
    VBZip = retcode
End Function
Private Sub Main()
MainZip.Show
End Sub
il progetto č siglato: MyZip -Uso di zip32.dll e unzip32.dll (Mike Le Voi),
ho provato a fare copia ed incolla ed a modificare alcuni parametri, ma ....
non sono a livelli professionali, anzi l'opposto.
Chi si interessa e volesse il progetto originale o se non si possiede le
librerie UnZip32.dll o Zip32.dll, mi scriva pure per email che gli invio il
file in VB e le librerie.
Saluti Massimo


title: [forse OT] Software per disegnare schema logico del database

author: Pisinho

text:
Salve,
forse e' OT ma credo che qualcuno di voi sicuramente usa un designer per
databases. Vorrei sapere cosa utilizzate e se e' di semplice utilizzo.
Grazie mille.


author: Carlo Costarella

text:
"Pisinho" <
li...@fol.it
> ha scritto nel messaggio
news:av8t42$ag0$1...@newsreader.mailgate.org...

Comincia ad usare l'Analizzatore dal Menů Strumenti o le autocomposizioni
fornite di serie.
Ciao, Carlo


title: Implementare file di AutoCad

author: Omar Carrara

text:
Ciao a tutti, brevemente, la domanda è
questa:

1) E' possibile visualizzare un file di autocad in
una maschera?

2) E in un report?

I file dovrebbero essere .dwg.

Grazie.

Omar

P.S. Ok, ok, le domande erano due. :)


title: Errore riservato

author: Roberto (non quello bravo)

text:
Access 2003 con SP1 e SP2.
In visualizza struttura, evento SU CORRENTE della maschera principale
ognuno di questi comandi mandano in crash Access (il quale vorrebbe
comunicare la cosa a Microsoft):
  DoCmd.OpenForm "Schede", acNormal
  DoCmd.GoToRecord , , acNewRec
  DoCmd.GoToRecord , , acLast
  DoCmd.GoToRecord , , acNewRec
Volevo che la maschera si posizionasse sull'ultimo record o ne
aggiungesse uno nuovo e di li partisse.
Forse sbaglio qualcosa?


title: Errore riservato

author: EmMeCi - Style

text:
"Roberto (non quello bravo)" <
ut...@katamail.com
> ha scritto nel messaggio
news:1130929657.9...@g43g2000cwa.googlegroups.com...

...non credo, comunque proiva cos?:
DoCmd.OpenForm "nome_tua_form", acNormal, , , acFormAdd, acWindowNormal
DoCmd.GoToRecord , , acNewRec ...o quello ch eti serve!
Ciao,
--
**********
EmMeCi
**********


title: Errore riservato

text:
Grazie.
Da ancora lo stesso errore.
Se quel codice lo metto in altre sezioni (evento SU CARICAMENTO, ad
esempio) non si provoca il crash ma non si ottiene nulla.


title: Errore riservato

text:
"Roberto (non quello bravo)" <
ut...@katamail.com
> ha scritto nel messaggio
news:1130931605.9...@g49g2000cwa.googlegroups.com...

questo è un estratto di codice di un mio applicativo:
Private Sub cmd_PrevAdd_Click()
On Error GoTo Err_cdm_PrevAdd_Click
    DoCmd.OpenForm "FRM_TPRE", acNormal, , , acFormAdd, acWindowNormal
    DoCmd.GoToRecord , , acNewRec
    DoCmd.Close acForm, "FRM_Control"
Exit_cdm_PrevAdd_Click:
    Exit Sub
Err_cdm_PrevAdd_Click:
    MsgBox Err.Description
    Resume Exit_cdm_PrevAdd_Click
End Sub
come vedi utilizzo quanto precedentemente sugerito ... ma il tutto è legato
all'evento click di un pulsante.
Prova intanto a verificare se da pulsante ottieni ancora l'errore o meno.
Dimenticavo, io uso Access 2003.



title: Errore riservato

text:
Grazie.
il codice funziona perfettamente con sull'evento click :) ed è gia
qualcosa (impara l'arte e mettila da parte...).
Avrei preferito all'apertura della maschera facesse la stessa cosa.
Sicuramente deve poterolo fare.
Anchio uso access 2003.


title: Errore riservato

text:
[cut]
...cavoli... ho provato ma a me funziona... leggi quanto segue e come vedi
l'evento è associato all'apertura.
In questo caso mostra l'ultimo record, ma ho provato anche con AcNew e
andava comunque ... verifica il tuo codice, non vorrei ti fossi perso un
passaggio in modo involontario.
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_cdm_Fatt_AddNew_Click
    DoCmd.OpenForm "OP_TFATT", acNormal, , , acFormAdd, acWindowNormal
    DoCmd.GoToRecord , , acLast
    DoCmd.Close acForm, "OP_CONSOLLE"
Exit_cdm_Fatt_AddNew_Click:
    Exit Sub
Err_cdm_Fatt_AddNew_Click:
    MsgBox Err.Description
    Resume Exit_cdm_Fatt_AddNew_Click
End Sub
ciao,
--
**********
EmMeCi
**********


title: Errore riservato

text:
Grazie ancora.
Non funziona ancora ma in compenso non manda crash il sistema.


title: Errore riservato

text:
[cut]
...se ti va e vuoi\puoi postarmi il db gli dò una controllata...
ciao
--
**********
EmMeCi
**********


title: Errore riservato

author: Roberto da Parma

text:
"Roberto (non quello bravo)" <
ut...@katamail.com
> ha scritto nel messaggio
news:1130929657.9...@g43g2000cwa.googlegroups.com...

Bada che invece non sia un riferimento a qualche cella sbagliato perchè mi
sembra strano che vada in crash su quie comandi.
Ho la tua stessa versione ma non ho quel tipo di problema...
Mentre riscontro il crash (anche con SP2 installato) sulla compattazione del
DB, se per? ho una finestra aperta.
Ma anche questo credo sia dovuto al fatto che in queste maschere c'è un
codice che gira sull'evento TIMER. ed è per questo che va in crash (almeno
credo!)
Roberto


title: Errore riservato

text:
Grazie, moooolto gentile.
Ma non so come fare! Come te lo posto il DB?


title: Errore riservato

text: Grazie, valuto la tua osservazione e poi ti faccio sapere


title: Errore riservato

text:
mcs...@email.it
lo trovavi nelle proprietą del mio account!
--
**********
EmMeCi
**********


title: Evitare due campi duplicati

text:
In una tabella chiamata Determina con diversi campi fra cui  NumDet =
numerico e DataDet= Data debbo evitare che entrambi  i valori inseriti non
siano duplicati e deve dare avviso all'operatore prima dell'inserimento
degli altri campi.
grazie


title: Evitare due campi duplicati

author: Marco

text:
"moro54" <
mor...@alice.it
> ha scritto nel messaggio
news:46df35cf$0$36444$4faf...@reader5.news.tin.it...

Detta cosě, basterebbe settare le proprietŕ dei campi-


title: Evitare due campi duplicati

author: 'Roccia' Max

text:
On 6 Set, 01:03, "moro54" <
mor...@alice.it
> wrote:
> numerico e DataDet= Data debbo evitare che entrambi  i valori inseriti non
> siano duplicati e deve dare avviso all'operatore prima dell'inserimento
Crei un indice basato che includa entrambi i campi e lo definisci come
univoco...
(Da struttura tabella: visualizza->indici, inserisci un nome a
piacere, sotto nome campo inserisci, uno sotto l'altro, i due campi da
controllare, e nelle proprieta', in basso, Univoco:SI)
cia'
Max