author: Old-Jack

text:
"Axel" <
abm...@tiscali.it
> ha scritto nel messaggio
news:buir2b$i2g6g$1...@ID-190654.news.uni-berlin.de...

Devi creare una query del genere:
SELECT CODICE, DESCRIZ, QTA
FROM nometabella
WHERE (((CODICE) In (SELECT [CODICE] FROM [nometabella] As Tmp GROUP BY
[CODICE] HAVING Count(*)>1 )))
ORDER BY CODICE;
Altrimenti crea una query con il tasto nuovo, ti si apre una finestra e qui
scegli "Creazione guidata query ricerca duplicati".
Ciao
 Old-Jack


title: Problema con Funzione IIF

text:
Ciao a tutti.
Ho una query che mette insieme una tabella (Fornitori), una query
(FatturatiFornitori) e un'altra query (RNC).
Nella query RNC sono indicate tutte le Non Conformità rilevate. Una colonna
di questa query spiega di quale indicatore fa parte la NC. Gli indicatorei
sono: Qualità, Puntualità e Prezzo e nella colonna c'è scritto proprio
Qualità oppure Punutalità oppure Prezzo.
Adesso devo aggiungere un'altra colonna che indichi la percentuale di non
conformità rilevate sull'indicatore Qualità.
Nella mia query ho una colonna che rileva la percentuale generale di Non
Conformità e funziona con le seguenti colonne:
Campo:SommadiDDTCaricati
Tabella: FatturatiFornitori
Formula: Raggruppamento
Campo: IDFornitori
Tabella: RNC
Formula: Conteggio
PercNonConf:: [ConteggioDiIDFornitori]/[Somma Di DDTCaricati]
Tabella: Niente
Formula:Espressione
A me servirebbe:
PercQualità:
IIf([RNC]![Indicatore]=Qualità;[ConteggioDiIDFornitori]/[FatturatiFornitori
Query]![Somma Di DDTCaricati];0)
Tabella: Niente
Formula: Espressione
Però mi dice che è impossibile eseguire una query che non include
l'espressione...specificata come parte di una funzione di aggregazione.
Dipende dal fatto che faccio riferimento ad un'altra colonna della query
(ConteggiodiIDFornitopre)? Ma come faccio a fare diversamente?
Grazie
Stefano


title: Problema con Funzione IIF

text:
"r4gtl" <
stefa...@interfree.it
> ha scritto nel messaggio
news:45fe676e$0$812$4faf...@reader5.news.tin.it...

Mando il codice sql. Nei miei svariati tentativi ho assegnato dei valori
numerici agli indicatori. L'indicatore Qualità adesso corrisponde a 1.
Pertanto se trova un valore 1 nella colonna Qualità, deve svolgere
l'operazione.
SELECT Fornitori.IDFornitori, Fornitori.NomeSocietà, Fornitori.IDCategoria,
Fornitori.Note, IIf(Fornitori!Qualità=3 Or Fornitori!Puntualità=3 Or
Fornitori!Prezzo=3,"C",IIf(Fornitori!Qualità=2 Or Fornitori!Puntualità=2 Or
Fornitori!Prezzo=2,"B","A")) AS Globale, Fornitori.Qualità,
Fornitori.Puntualità, Fornitori.Prezzo, [FatturatiFornitori Query].[Somma Di
DDTCaricati], [FatturatiFornitori Query].[Somma Di Fatturato], Count([RNC
Query2].IDFornitori) AS ConteggioDiIDFornitori, Sum([RNC Query2].[Costi di
recupero]) AS [SommaDiCosti di recupero], IIf([RNC
Query2]![Indicatore]=1,([ConteggioDiIDFornitori]/[FatturatiFornitori
Query]![Somma Di DDTCaricati]),0) AS PercQual,
[ConteggioDiIDFornitori]/[Somma Di DDTCaricati] AS PercNCOrd, [SommaDiCosti
di recupero]/[Somma Di Fatturato] AS PercValNC
FROM (Fornitori LEFT JOIN [RNC Query2] ON Fornitori.IDFornitori = [RNC
Query2].IDFornitori) LEFT JOIN [FatturatiFornitori Query] ON
Fornitori.IDFornitori = [FatturatiFornitori Query].IDFornitori
GROUP BY Fornitori.IDFornitori, Fornitori.NomeSocietà,
Fornitori.IDCategoria, Fornitori.Note, Fornitori.Qualità,
Fornitori.Puntualità, Fornitori.Prezzo, [FatturatiFornitori Query].[Somma Di
DDTCaricati], [FatturatiFornitori Query].[Somma Di Fatturato]
ORDER BY Fornitori.NomeSocietà;
Grazie a tutti
Ciao
Stefano


title: Problema con Funzione IIF

text:
"r4gtl" <
stefa...@interfree.it
> ha scritto nel messaggio
news:4600eba2$0$17942$4faf...@reader1.news.tin.it...

Ho provato in diversi modi ma non riesco a capire come fare. Addirittura se
io entro nell'editor per generare le espressioni non mi mostra le colonne
della mia query.
E se dipendesse dal fatto che utilizzo una colonna della queri (Conteggio
diIDFornitori) non dovrebbe permettermi neanche l'espressione successiva.
Invece quella me la fa fare.
Ciao a tutti
Stefano


title: Aggiornamento Forms

author: roma

text:
Buon Giorno
Ho il seguente problema:
ho un form principale e due form secondari, ho la necessità di fare un
aggiornamento di un form secondario quando sono nell’altro form
secondario, dopo un aggiornamento di un campo.
Grazie


title: Aggiornamento Forms

text:

Metodo Requery o Refresh, dipende da come stai lavorando,... applicato
all'oggetto in questione.
@Alex


title: sintassi per criterio in una query che si riferisce ad un campo IdReplica

author: skipper

text:
Ciao  a tutti,  come al solito chiedo a voi...
in una query devo usare un criterio che si riferisce ad un campo di una
maschera che � un IdReplica.

Nella visaulizzazione struttura ho provato a inserire le seguenti sintassi,
{GUID {forms!miaform.miocampo}}
ma non funziona.
se invece inserisco {guid {10B5DC86-782F-4D60-86F4-3401C2E27CB6}} funziona.

Come faccio a fargli digerire il fatto di prendere il guid da una maschera?

Grazie
Anche da parte del mio cbr1000rr  :-)

skipper dixit..


author: Karl Donaubauer

text:
skipper wrote:
> in una query devo usare un criterio che si riferisce ad un campo di
> una maschera che ï¿œ un IdReplica.
>
> Nella visaulizzazione struttura ho provato a inserire le seguenti
> sintassi, {GUID {forms!miaform.miocampo}}
> ma non funziona.
> se invece inserisco {guid {10B5DC86-782F-4D60-86F4-3401C2E27CB6}}
> funziona.
> Come faccio a fargli digerire il fatto di prendere il guid da una
> maschera?

Puo dipendere un po' della versione di Access.
vedi
http://www.trigeminal.com/usenet/usenet011.asp

Prova con una casella di testo "MioCampoX" (puo essere
nascosto) nella maschera con origine controllo:

=StringFromGuid([MioCampo])

e nella query usa come criterio:

GuidFromString(Forms!MiaForm!MioCampoX)

In una prova con A03 funziona.

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


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:avnn92...@mid.individual.net...
> skipper wrote:
>> in una query devo usare un criterio che si riferisce ad un campo di
>> una maschera che � un IdReplica.
>>
>> Nella visaulizzazione struttura ho provato a inserire le seguenti
>> sintassi, {GUID {forms!miaform.miocampo}}
>> ma non funziona.
>> se invece inserisco {guid {10B5DC86-782F-4D60-86F4-3401C2E27CB6}}
>> funziona.
>> Come faccio a fargli digerire il fatto di prendere il guid da una
>> maschera?
>
> Puo dipendere un po' della versione di Access.
> vedi
http://www.trigeminal.com/usenet/usenet011.asp

>
> Prova con una casella di testo "MioCampoX" (puo essere
> nascosto) nella maschera con origine controllo:
>
> =StringFromGuid([MioCampo])
>
> e nella query usa come criterio:
>
> GuidFromString(Forms!MiaForm!MioCampoX)
>
> In una prova con A03 funziona.

come al solito sei sempre disponibilissimo, grazie.

Purtroppo la query continua a non voler funzionare: calcolo troppo
complicato per lei...
Ho cambiato il tipo di ID e ho risolto.

Grazie lo stesso

skipper dixit...


title: pulsanti di spostamento inarrestabili

author: oscar

text:
in una maschera ho creato una "casella di testo" in cui ho calcolato
l'eta' dei soggetti presenti nel data base utilizzando la formula che
ho copiato dal sito:
=IIf(IsNull([Nascita]);Null;DateDiff("aaaa";CDate([Nascita]);Date()))
questo dato poi finisce in un'altra casella di testo chiamata "eta" e
copiata in una tabella.
per poter aggiornare automaticamente l'eta'  con il trascorrere del
tempo, ho  inserito nel "corrente" della maschera : (eta = casella di
testo). funziona perfettamente, ma quando vado a cliccare sul pulsante
di spostamento "ultimo record"  ad ogni click mi apre un record  nuovo
senza mai arrestarsi. qualcuno mi puo' suggerire come risolvere questo
problema?
grazie
 oscar


title: pulsanti di spostamento inarrestabili

author: Roberto da casa

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3d9945ef...@news.tiscalinet.it...

Il tuo è uno dei tanti mal di pancia che si hanno quando a tutti i costi si
vuole registrare un campo calcolato in una tabella: a Roma si dice che
"cerchi rogna", e a quanto pare l'hai trovata. ;-)
Per quale motivo memorizzi l'età in tabella: la formula ce l'hai e quindi
calcolati l'età tutte le volte che ti serve.
Inoltre se per molto tempo non visualizzi un determinato record con quella
specifica maschera, l'età memorizzata nella tabella è errata ed allora che
ci fai con un'età sbagliata? Si insomma, i giorni passano e l'età resta
sempre quella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: pulsanti di spostamento inarrestabili

author: Claudio

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:gzem9.34420$Eu.7...@twister1.libero.it...
> Inoltre se per molto tempo non visualizzi un determinato record con quella
> specifica maschera, l'età memorizzata nella tabella è errata ed allora che
> ci fai con un'età sbagliata? Si insomma, i giorni passano e l'età resta
> sempre quella.
Ehehe! Un'alternativa a Dorian? Devo provare...


title: pulsanti di spostamento inarrestabili

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:iCfm9.165650$ub2.3...@news1.tin.it...

Hai ragione!!
Fortuna per lui che non era stato ancora inventato Access e qualcuno non
aveva potuto ancora registrare il campo età in una tabella; altrimenti non
avrebbe potuto scrivere il suo romanzo. :-)



title: pulsanti di spostamento inarrestabili

author: Maurizio Borrelli

text:
> "oscar" news:3d9945ef...@news.tiscalinet.it...:
> in una maschera ho creato una "casella di testo" in cui ho calcolato
> l'eta' dei soggetti presenti nel data base utilizzando la formula che
> ho copiato dal sito:
> =IIf(IsNull([Nascita]);Null;DateDiff("aaaa";CDate([Nascita]);Date()))
    E' scritta proprio cosi'?
    Se non sbaglio dovrebbe dare errore quando [Nascita] = Null
    Qualcuno conferma?
    Scriverei:
=IIf(IsNull([Nascita]);Null;DateDiff("aaaa";Nz([Nascita];0);Date()))
> questo dato poi finisce in un'altra casella di testo chiamata "eta" e
> copiata in una tabella.
> per poter aggiornare automaticamente l'eta'  con il trascorrere del
> tempo, ho  inserito nel "corrente" della maschera : (eta = casella di
> testo). funziona perfettamente, ma quando vado a cliccare sul pulsante
> di spostamento "ultimo record"  ad ogni click mi apre un record  nuovo
> senza mai arrestarsi. qualcuno mi puo' suggerire come risolvere questo
> problema?
    Se ho capito bene:
Private Sub Form_Current()
  If (Me.NewRecord = True) Then
    '
  Else
    '
  End If
End Sub
    Ma sottoscrivo le opinioni espresse da Roberto e Claudio.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: pulsanti di spostamento inarrestabili

text:


tu hai ragione e per un principiante e' fin troppo facile trovare
rogna, ma se non inserisco l'eta' in una tabella ( e quindi la trovo
solo in maschera) come faccio poi ad utilizzare il dato per eventuali
statistiche e/ o report ?
grazie per la collaborazione
oscar


title: pulsanti di spostamento inarrestabili

author: MA

text:
> >> =IIf(IsNull([Nascita]);Null;DateDiff("aaaa";CDate([Nascita]);Date()))
> >> questo dato poi finisce in un'altra casella di testo chiamata "eta" e
> >> copiata in una tabella.
> >Per quale motivo memorizzi l'età in tabella: la formula ce l'hai e quindi
> >calcolati l'età tutte le volte che ti serve.
> tu hai ragione e per un principiante e' fin troppo facile trovare
> rogna, ma se non inserisco l'eta' in una tabella ( e quindi la trovo
> solo in maschera) come faccio poi ad utilizzare il dato per eventuali
> statistiche e/ o report ?
> grazie per la collaborazione
Il calcolo dell'età tu devi continuarlo a fere, solo che non lo devi
registrare. Al momento della statistica tu avrai i tuoi dati tra la data di
nascita e il momento dell'indagine (date())
ciao MAssimiliano

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


title: pulsanti di spostamento inarrestabili

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3d9c5794...@news.tiscalinet.it...
[CUT]
> >
> >Il tuo è uno dei tanti mal di pancia che si hanno quando a tutti i costi
si
> >vuole registrare un campo calcolato in una tabella: a Roma si dice che
> >"cerchi rogna", e a quanto pare l'hai trovata. ;-)
> >Per quale motivo memorizzi l'età in tabella: la formula ce l'hai e quindi
> >calcolati l'età tutte le volte che ti serve.
> >Inoltre se per molto tempo non visualizzi un determinato record con
quella
> >specifica maschera, l'età memorizzata nella tabella è errata ed allora
che
> >ci fai con un'età sbagliata? Si insomma, i giorni passano e l'età resta
> >sempre quella.
> >
> tu hai ragione e per un principiante e' fin troppo facile trovare
> rogna, ma se non inserisco l'eta' in una tabella ( e quindi la trovo
> solo in maschera) come faccio poi ad utilizzare il dato per eventuali
> statistiche e/ o report ?
Ti crei una query che abbia tutti i campi della tabella più un campo
calcolato nel quale calcoli l'età e, come origine dei dati per le
statistiche e/o i report, usi la query invece che la tabella: avrai così
l'innegabile vantaggio che per tutti l'età sarà quella al momento dell'uso
della query, a prescindera da quando hai aggiornato per l'ultima volta i
record con la maschera di cui tu parlavi.
> grazie per la collaborazione
> oscar
--



title: filtro in base a sottomaschera

author: Roberto

text:
Ciao a tutti,
è da un pò che non frequento quindi scusate se magari la domanda è già stata
posta...
Il problema è questo: ho una maschera con una sottomaschera legate da una
relazione semplice.
Vorrei filtrare la maschera in base ad un valore della sottomaschera vome
posso fare?
Ho provato un pò di soluzioni ma con fallimento...
Grazie dell'aiuto
Roberto


title: filtro in base a sottomaschera

author: Carlo Costarella

text:
"Roberto" <
aris...@libero.it
> ha scritto nel messaggio
news:UhTze.138455$75.59...@news4.tin.it...

Errore concettuale.
Se la sottomaschera (come dice il nome) dipende dalla maschera principale,
dovrebbe avere un campo secondario legato al campo master della maschera
principale.
In questo caso potrai filtrare i record della sottomaschera in base ai
valori della maschera principale e non il contrario.
Se invece tra le due maschere non esiste una relazione di dipendenza allora
potrai fare quanto chiedi applicando un filtro alla maschera principale con
valori scelti dalla sottomaschera.
Per esempio se la SM contiene l'elenco dei comuni potresti filtrare i record
della MP con i valori corrispondenti usando una query.
Ciao, Carlo


title: campo di un DB su 2 finestre

author: Fux

text:
io ho 2 maschere con 2 dati che si ripetono su entrambi le finestre. e
questi 2 dati si ripetono anche su entrambi le tabelle.. come posso copiare
i dati senza riscriverli??
una finstra con dei dati es nome cognore ecc.. un pulsante che apre un altra
maschera con altri dati ancora ma 2 si ripeto tipo nome cognome .. ogni
maschera ha la propria tabella.


title: campo di un DB su 2 finestre

author: Roberto dalla campagna

text:
"Fux" <
fux...@virgilio.it
> ha scritto nel messaggio
news:429b1...@x-privat.org...

Se le maschere sono a visualizzazione a maschera singola.
Se la prima maschera si chiama Maschera1.
Se le due caselle di testo si chiamano in ambedue le maschere
rispettivamente Nome e Cognome.
A fronte dell'evento "Su caricamento" della seconda maschera prova a
generare il seguente codice VBA:
Me!Nome = Forms!Maschera1!Nome
Me!Cognome = Forms!Maschera1!Cognome
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: [OT] Stored Procedure SQL server

author: Eugenio

text:
Scusate se chiedo aiuto in questo NG, ma ho la speranza che qualcuno di voi
utilizzi SQLserver come database.
Ho già posto il problema nel NG microsoft.public.it.sql, ma nonostante i
suggerimenti non ho nessuna soluzione.
Il problema con una stored procedure che utilizzo così com'è da ormai
quattro anni e non ho mai avuto problemi di elaborazione fino ad una
settimana fa.
Succede che durante la select into in una tabella temporanea l'elaborazione
avanza lentamente (ho atteso anche un'ora) tanto che poi devo sospenderne
l'esecuzione, mentre in precedenza la stessa elaborazione veniva eseguita in
un minuto.
Da un verifica del server la procedura non risulta bloccata da altre
procedure e lo spazio per creare la tabella temporanea è in abbondanza.
L'unica differenza rispetto al passato è che in una tabella considerata
nell'elaborazione sono stati aggiunti due campi bit, ma non credo possa
essere questa la causa.
Qualcuno può suggerirmi qualche intervento o altra verifica, affinchè possa
venirne a capo di questo assurdo problema?
Grazie
Ciao
Eugenio


title: [OT] Stored Procedure SQL server

author: George

text:
> Succede che durante la select into in una tabella temporanea
l'elaborazione
> avanza lentamente (ho atteso anche un'ora) tanto che poi devo sospenderne
> l'esecuzione, mentre in precedenza la stessa elaborazione veniva eseguita
in
> un minuto.
Cosa c'è scritto nei log di SQL Server?
> Da un verifica del server la procedura non risulta bloccata da altre
> procedure e lo spazio per creare la tabella temporanea è in abbondanza.
Sicuro? La tabella temporanea viene creata nel db stesso o nel tempdb?
> L'unica differenza rispetto al passato è che in una tabella considerata
> nell'elaborazione sono stati aggiunti due campi bit, ma non credo possa
> essere questa la causa.
Non credo nemmeno io.
> Qualcuno può suggerirmi qualche intervento o altra verifica, affinchè
possa
> venirne a capo di questo assurdo problema?
Verifica con il performance monitor come stai a RAM durante l'esecuzione
della procedura.
Può essere semplicemente che la macchina swappi sul disco...
Giorgio


title: [OT] Stored Procedure SQL server

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c7qjrg$srd$1...@newsreader.mailgate.org...
> > Succede che durante la select into in una tabella temporanea
> l'elaborazione
> > avanza lentamente (ho atteso anche un'ora) tanto che poi devo
sospenderne
> > l'esecuzione, mentre in precedenza la stessa elaborazione veniva
eseguita
> in
> > un minuto.
>
> Cosa c'è scritto nei log di SQL Server?
Quale log? Cosa dovrei fare per ottenerli?
>
> > Da un verifica del server la procedura non risulta bloccata da altre
> > procedure e lo spazio per creare la tabella temporanea è in abbondanza.
>
> Sicuro? La tabella temporanea viene creata nel db stesso o nel tempdb?
>
> > L'unica differenza rispetto al passato è che in una tabella considerata
> > nell'elaborazione sono stati aggiunti due campi bit, ma non credo possa
> > essere questa la causa.
>
> Non credo nemmeno io.
Purtroppo una relazione c'è, perchè se dal "gruppo where" elimino la riga
che seleziona dati provenienti da quella tabella, la SP ricomincia a
funzionare.
>
> > Qualcuno può suggerirmi qualche intervento o altra verifica, affinchè
> possa
> > venirne a capo di questo assurdo problema?
>
> Verifica con il performance monitor come stai a RAM durante l'esecuzione
> della procedura.
> Può essere semplicemente che la macchina swappi sul disco...
Le prestazioni sono regolari. Non rilevo nessun problema.
>
> Giorgio
>
>
Grazie
Ciao
Eugenio


title: [OT] Stored Procedure SQL server

text:
> Quale log? Cosa dovrei fare per ottenerli?
Aprire l'enterprise manager, andare nel management del tuo server, sezione
SQL Server Logs, Current...


title: [OT] Stored Procedure SQL server

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c7qkn7$tsb$1...@newsreader.mailgate.org...
> > Quale log? Cosa dovrei fare per ottenerli?
>
> Aprire l'enterprise manager, andare nel management del tuo server, sezione
> SQL Server Logs, Current...
>
>
>
Quel Log l'ho già verificato, am non vedo niente relativo alla mia SP.


title: [OT] Stored Procedure SQL server

text:
> Quel Log l'ho già verificato, am non vedo niente relativo alla mia SP.
Descrivi la tabella che hai modificato: campi, indici, dimensione su disco,
ecc.


title: [OT] Stored Procedure SQL server

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c7qlil$v54$1...@newsreader.mailgate.org...

La tabella prevede un campo cliente definito (varchar), un campo
destinazione (varchar), un campo note (varchar) e un campo tipo (bit) con
valore predefinito = spazio. L'indice è composto dal campo cliente e
destinazione.
Ho aggiunto tre nuovi campi (bit) per identificare tre proprietà con valore
di default=0.
La tabella viene gestita regolarmente da un programma in access e i dati
vengono letti da altre SP diverse da quella che mi da problemi.
Il database è SQLserver 7 , la tabella è di 704K e l'indice di 320K. la
tabella è composta da 6000 righe
Grazie
Ciao
Eugenio


title: [OT] Stored Procedure SQL server

text:
> La tabella prevede un campo cliente definito (varchar), un campo
> destinazione (varchar), un campo note (varchar) e un campo tipo (bit) con
> valore predefinito = spazio. L'indice è composto dal campo cliente e
> destinazione.
> Ho aggiunto tre nuovi campi (bit) per identificare tre proprietà con
valore
> di default=0.
Non mi spiego come tu possa avere come valore di default uno spazio per un
campo bit.
Comunque sia, Eugenio, fai questa prova:
- backuppati la tabella con un select * into <nometabellabackuppata>
- converti i campi bit (tutti!) in tinyint o nchar(1), come ti va meglio
- metti a null o a zero il default per il tipo che comunque così non va bene
- distruggi e ricrea gli indici
- riesegui la sp.
> Il database è SQLserver 7 , la tabella è di 704K e l'indice di 320K. la
> tabella è composta da 6000 righe
Una tabellina del ca**o insomma...
Prova come ti ho detto, fai tutto i 5 minuti.
Giorgio


title: [OT] Stored Procedure SQL server

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c7qmgd$uo$1...@newsreader.mailgate.org...
> > La tabella prevede un campo cliente definito (varchar), un campo
> > destinazione (varchar), un campo note (varchar) e un campo tipo (bit)
con
> > valore predefinito = spazio. L'indice è composto dal campo cliente e
> > destinazione.
> > Ho aggiunto tre nuovi campi (bit) per identificare tre proprietà con
> valore
> > di default=0.
>
> Non mi spiego come tu possa avere come valore di default uno spazio per un
> campo bit.
Si può, l'ho sempre fatto e non ho mai avuto problemi.
> Comunque sia, Eugenio, fai questa prova:
> - backuppati la tabella con un select * into <nometabellabackuppata>
> - converti i campi bit (tutti!) in tinyint o nchar(1), come ti va meglio
> - metti a null o a zero il default per il tipo che comunque così non va
bene
> - distruggi e ricrea gli indici
> - riesegui la sp.
Già fatto, definendo però i campi varchar, ma nulla è cambiato, purtroppo!
>
> > Il database è SQLserver 7 , la tabella è di 704K e l'indice di 320K. la
> > tabella è composta da 6000 righe
>
> Una tabellina del ca**o insomma...
> Prova come ti ho detto, fai tutto i 5 minuti.
> Giorgio
>
>
Grazie
Ciao
Eugenio


title: [OT] Stored Procedure SQL server

text:
> Già fatto, definendo però i campi varchar, ma nulla è cambiato, purtroppo!
Allora più di così non so proprio aiutarti.
Mi spiace.
Giorgio


title: [OT] Stored Procedure SQL server

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c7qnta$2p2$1...@newsreader.mailgate.org...

Grazie per la disponibilità
Ciao
Eugenio


title: Somma

author: PM

text:
Salve
Vorrei avere una casella di testo che faccia la somma dei Redditi D., i
quali sono calcolati in un casella di testo, dove ho messo nell'origine
della casella la formula =superficie*qualita.column(2), quindi non posso
utilizzare la funzione somma(campo).....


title: Somma

author: Antonio Biso

text:
PM <
m.p...@tiscalinet.it
> wrote in message
9urids$4h6$1...@pegasus.tiscalinet.it...

Fai somma(superficie*qualita.column(2))
Antonio


title: Somma

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
7FlQ7.261971$sq5.12...@news.infostrada.it...

No, non  fà perchè il campo qualità.column() è un valore che prende di volta
in volta.....
Vorrei sapere come si fa la somma parziale di un campo,  quando pero
un'altro campo è vero....


title: Somma

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
7FlQ7.261971$sq5.12...@news.infostrada.it...

Non fą in quanto il campo qualita.column() č un valore che prende di volta
in volta, secondo dei criteri
vorrei anche sapere come si fa la somma parziale, per esempio la somma di
superficie quando il campo manuntenzione č vero....


title: Somma

text:
PM <
m.p...@tiscalinet.it
> wrote in message
9ute1t$uml$2...@pegasus.tiscalinet.it...
>
> Antonio Biso <
ch...@etruria.net
> wrote in message
> 7FlQ7.261971$sq5.12...@news.infostrada.it...
> > PM <
m.p...@tiscalinet.it
> wrote in message
> > 9urids$4h6$1...@pegasus.tiscalinet.it...
> > > Salve
> > > Vorrei avere una casella di testo che faccia la somma dei Redditi D.,
i
> > > quali sono calcolati in un casella di testo, dove ho messo
nell'origine
> > > della casella la formula =superficie*qualita.column(2), quindi non
posso
> > > utilizzare la funzione somma(campo).....
> > >
> > >
> >
> > Fai somma(superficie*qualita.column(2))
> >
> > Antonio
> >
> Non fà in quanto il campo qualita.column() è un valore che prende di volta
> in volta, secondo dei criteri
Sbatti quel valore in una casella di testo nascosta e usa il valore della
casella nascosta
Antonio


title: Imporre anteprima immagini nella cartella di XP

author: Roberto QCI

text:
Ancora ciao a tutti,
con la procedura solita apro una cartella da cui intendo attingere per
salvare un'immagine nel mio DB (salvare il link).
Ogni volta devo imporre da SO la visualizzazione delle anteprime (ci
sono molte immagini e devo sceglierle).
C'è un sistema per imporre da dentro access di visualizzare sempre
l'antprima della cartella da cui intendo scegliere le immagini?


text:

Certo, dacci il codice che usi e ti segnalo dove correggere
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
MA ha scritto:
> Certo, dacci il codice che usi e ti segnalo dove correggere
Devo arguire che non lo conosci. E che se non lo conosci significa che
probabilmente non c'è?
Immaginavo che qualche chiamata API fosse quello che ci voleva.


text:
Roberto QCI wrote:
> MA ha scritto:
>
>> Certo, dacci il codice che usi e ti segnalo dove correggere
> Devo arguire che non lo conosci. E che se non lo conosci significa che
> probabilmente non c'č?
Io conosco diversi metodi, ma non so quale usi TU.
Anche perchč tu dici che lo fai in maniera "classica", resta da capire cosa
intendi
>
> Immaginavo che qualche chiamata API fosse quello che ci voleva.
ma tu ce l'hai il codice o no?



text:
MA ha scritto:
> Io conosco diversi metodi, ma non so quale usi TU.
> ma tu ce l'hai il codice o no?
>
Io il codice non ce l'ho, ahimè.
Ed uso il sistema "classico", tramite le normali funzioni di windows
(macchinosissimo).
Sarebbe invece ottimo ottenere l'effetto anteprima immediatamente, non
appena da codice si apre la cartella con le immagini.
Che dici, si può fare?


author: Alessandro Baraldi

text:
"Roberto QCI" <
ut...@katamail.com
> wrote in message
news:1134579906.1...@z14g2000cwz.googlegroups.com

Se per visualizzare Anteprime intendi aprire il FileDialog con
l'anteprima(Image preview) ci sono almeno 2 modi, uno dei quali
utilizza il CallBack per caricare l'immagine.
Il primo metodo si appoggia alle API GetOpenFileName della Libreria
comdlg32.dll:
Il Callback va passato alla struttura OPENFILENAME e precisamente
a lpfnHook, ma poi la gestione è abbastanza gravosa, si tratta
di caricare in ClipBoard l'immagine ed inviarla alla RichText
presente nel Dialog.
Oppure se usi
Private Declare Function accOfficeGetFileName _
 Lib "msaccess.exe" Alias "#56" _
 (gfni As accOfficeGetFileNameInfo, fOpen As Integer) As Long
Ti basta passare il Flag lngView alla struttura OfficeGetFileNameInfo
a Zero se non ricordo male(al massimo è 1).
Ora non sono certo di aver capito bene, e non sono certo di averti
aiutato.
Facci sapere.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:

Ah allora non ce l'hai... ma non s'era capito, convienine...
Allora metti sulla form un pulsante o un'etichetta e associa questo codice
Private Sub btnAddImage_Click()
   Dim NomeFile As Variant
    Dim lngFlags As Long
    Dim gfni As accOfficeGetFileNameInfo
    Dim OutText As String
    On Error GoTo HandleErrors
    lngFlags = lngFlags Or bacGfniAllowMultiSelect
    lngFlags = lngFlags Or bacGfniInitializeView
    With gfni
        .lngView = 1
        .lngFlags = lngFlags
        .strFilter = ""
        .strFile = ""
        .strDlgTitle = "Inserisci Foto (Anche più di una foto)"
        .strOpenTitle = ""
        .strInitialDir = "C:\"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Qui decidi da quale cartella iniziare
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
        .hwndOwner = Application.hWndAccessApp
    End With
    If OfficeGetFileName(gfni, -1) = 0 Then
        result = Trim(gfni.strFile)
        Debug.Print result
        result = Split(CStr(result), Chr$(9))  ' Chr(9))
        If IsArray(result) Then
       ' DoCmd.RunCommand acCmdSaveRecord
            For Each NomeFile In result
                Call AddFoto(CStr(NomeFile), Me.Id)
            Next
       End If
    End If
ed in un modulo a parte questo
' From Access 2000 Developer's Handbook, Volume I
' by Getz, Litwin, and Gilbert. (Sybex)
' Copyright 1999. All rights reserved.
Private Declare Function accOfficeGetFileName _
 Lib "msaccess.exe" Alias "#56" _
 (gfni As accOfficeGetFileNameInfo, fOpen As Integer) As Long
' Common Dialogs
' OfficeGetFileName errors
Public Const bacAccErrGFNSuccess = 0
Public Const bacAccErrGFNCantOpenDialog = -301
Public Const bacAccErrGFNUserCancelledDialog = -302
' OfficeGetFileName flags
Public Const bacGfniConfirmReplace = &H1              ' Prompt if
overwriting a file?
Public Const bacGfniNoChangeDir = &H2                 ' Don't change to the
directory the user selected?
Public Const bacGfniAllowMultiSelect = &H8            ' Allow
multiple-selection?
Public Const bacGfniDirectoryOnly = &H20              ' Open as directory
picker?
Public Const bacGfniInitializeView = &H40             ' Initialize the view
to the lView member or use last selected view?
' Views in the Office Find File dialog
Public Const bacGfniViewDetails = 0                  ' Details
Public Const bacGfniViewPreview = 1                  ' Preview
Public Const bacGfniViewProperties = 2               ' Properties
Public Const bacGfniViewList = 3                     ' List (typical)
'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Qui scegli la modalità di apertura, 1 è quella con anteprima
'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Public Type accOfficeGetFileNameInfo
    hwndOwner As Long
    strAppName As String * 255
    strDlgTitle As String * 255
    strOpenTitle As String * 255
    strFile As String * 4096
    strInitialDir As String * 255
    strFilter As String * 255
    lngFilterIndex As Long
    lngView As Long
    lngFlags As Long
End Type
Public Function OfficeGetFileName( _
 gfni As accOfficeGetFileNameInfo, _
 ByVal fOpen As Integer) As Long
    ' Use the Office file selector common dialog
    ' exposed by Access.
    ' From Access 2000 Developer's Handbook, Volume I
    ' by Getz, Litwin, and Gilbert. (Sybex)
    ' Copyright 1999. All rights reserved.
    Dim lngReturn As Long
    With gfni
        .strAppName = RTrim$(.strAppName) & vbNullChar
        .strDlgTitle = RTrim$(.strDlgTitle) & vbNullChar
        .strOpenTitle = RTrim$(.strOpenTitle) & vbNullChar
        .strFile = RTrim$(.strFile) & vbNullChar
        .strInitialDir = RTrim$(.strInitialDir) & vbNullChar
        If Len(TrimNull(RTrim$(.strFilter))) = 0 Then
            .strFilter = "Tutti formati Immagini
(*.bmp;*.jpg;*.jpeg;*.gif;*.tiff;*.png;*.wmf;*.emf;*.cur;*.ico)" & _
                         "|Immagini BMP (*.bmp)" & _
                         "|Immagini JPG (*.jpg)" & _
                         "|Immagini JPEG (*.jpeg)" & _
                         "|Immagini PNG (*.png)" & _
                         "|Immagini GIF (*.gif)" & _
                         "|Immagini TIFF (*.tiff)" & _
                         "|Immagini WMF (*.wmf)" & _
                         "|Immagini EMF (*.emf)" & _
                         "|Immagini ICO (*.ico)" & _
                         "|Immagini CUR (*.cur)"
            .lngFilterIndex = 0
        End If
        .strFilter = RTrim$(.strFilter) & vbNullChar
        lngReturn = accOfficeGetFileName(gfni, fOpen)
        .strAppName = TrimNull(.strAppName)
        .strDlgTitle = TrimNull(.strDlgTitle)
        .strOpenTitle = TrimNull(.strOpenTitle)
        .strFile = TrimNull(.strFile)
        .strInitialDir = TrimNull(.strInitialDir)
        .strFilter = TrimNull(.strFilter)
    End With
    OfficeGetFileName = lngReturn
End Function
Public Function TrimNull(strVal As String) As String
    ' From Access 2000 Developer's Handbook, Volume I
    ' by Getz, Litwin, and Gilbert. (Sybex)
    ' Copyright 1999. All rights reserved.
    ' Trim the end of a string, stopping at the first
    ' null character.
    Dim intPos As Integer
    intPos = InStr(1, strVal, vbNullChar)
    Select Case intPos
        Case Is > 1
            TrimNull = Left$(strVal, intPos - 1)
        Case 0
            TrimNull = strVal
        Case 1
            TrimNull = vbNullString
    End Select
End Function
ExitHere:
    Exit Sub
HandleErrors:
    MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
    Resume ExitHere
End Sub



author: access il top

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dnr8ao$l9e$1...@area.cu.mi.it...

ciao,
aggiungo un'altra richiesta
è possibile visualizzare i file nascosti anche se nelle impostazioni di
windows sono nascosti?
grazie mille


title: Ricerca in più campi

author: ludo

text:
Ciao a tutti,
Ho questo problema:
Nel dbase in tabella x ogni iscritto ho inserito due campi: Lingua1 e lingua
2 per sapere il tipo di lingua conosciuta da ogni soggetto inserito in
tabella..
Ad esempio 1 soggetto puo conoscere "Inglese" e "Arabo"
Un altro invece "Francese e "Inglese"
o anche "Arabo" e " Tedesco"
Ho creato una maschera di riepilogo dei dati di un soggetto con l'ausilio di
una listbox..
faccio quasi tutto da codice nella casella di riepilogo ho solo impostato il
numero di colonne e le loro dimensioni..
Nella tabella principale ho inserito apposta un campo denominato Lingua.
Io vorrei che quando vado a far visualizzare l'elenco dei soggetti x lingua
conosciuta nella listbox, venissero confrontati i valori dei campi lingua1 e
lingua2 e poi il risultato venisse memorizzato nel campo Lingua che sarebbe
il campo visualizzato nella casella di riepilogo.
Cioe se io volessi vedere tutti coloro che conoscono l'Inglese, la ricerca
dovrebbe includermi anche il valore di Lingua2 e non solo quello di
lingua1..
Ho provato con le query a campi incrociati ma non ci sono riuscito..
Sapete come potrei fare?
grazie mille per l'aiuto...
Ludo..
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Ricerca in più campi

text:
"ludo" <
ludo...@libero.it
> ha scritto nel messaggio
news:81Z211Z235Z161Y...@usenet.libero.it...

Molto confusa la tua richiesta.
Se ho ben capito nella tabella X ci sono tre campi lingua: lingua, lingua1 e
lingua2; se è così un campo (lingua) è superfluo.
Può anche essere che usi due tabelle...non si capisce.
Cosa vuol dire "venissero confrontati i valori dei campi lingua1 e lingua2"?
Possono avere lo stesso valore? Hanno sempre un valore diverso?
Vuoi fare una ricerca multicampo? Del tipo in una riga criteri di una query:
like "Inglese" e nella riga sottostante della colonna successiva: Like
"Arabo"; come questa?
SELECT Anagrafica.Lingua2, Anagrafica.Lingua1
FROM Anagrafica
WHERE (((Anagrafica.Lingua2) Like "Inglese")) OR
(((Anagrafica.Lingua1)="Arabo"));
Fammi sapere.
Ciao, Carlo


title: Ricerca in più campi

text:
> Molto confusa la tua richiesta.
> Se ho ben capito nella tabella X ci sono tre campi lingua: lingua, lingua1
e
> lingua2; se è così un campo (lingua) è superfluo.
> Può anche essere che usi due tabelle...non si capisce.
> Cosa vuol dire "venissero confrontati i valori dei campi lingua1 e
lingua2"?
> Possono avere lo stesso valore? Hanno sempre un valore diverso?
> Vuoi fare una ricerca multicampo? Del tipo in una riga criteri di una
query:
> like "Inglese" e nella riga sottostante della colonna successiva: Like
> "Arabo"; come questa?
> SELECT Anagrafica.Lingua2, Anagrafica.Lingua1
> FROM Anagrafica
> WHERE (((Anagrafica.Lingua2) Like "Inglese")) OR
> (((Anagrafica.Lingua1)="Arabo"));
>
> Fammi sapere.
> Ciao, Carlo
> cerco di spiegarmi meglio....
Ho una tabella iscritti dove ci sono i campi interessati lingua1 e
lingua2..che accolgono le lingue conosciute dai soggetti memorizzati i dbase
e in altre tabelle, l'elenco delle lingue, delle patenti etc..
ho creato una maschera di ricerca dove ho inserito un gruppo di opzioni per
impostare i criteri di ordinamento (età, patente,lingua, anno di
iscrizione), una casella combinata (che ha come origine tabella a seconda
del criterio impostato una query unione diversa, ad esempio querypatente o
querylingua che mi visualizzano lelenco di patenti o lingue) e una listbox
dove viene visualizzato lelenco dei record con un campo che varia a seconda
del criterio di ordinamento impostato..
Il codice su dopo aggiornamento della casella combinata è:
If CasellaCombinata = 0 Then
      Me.Filter = ""
      Me.Filter = False
 Else
          Me.Filter = "[id] = " & Me!CasellaCombinata
          Me.FilterOn = True
 End If
      Me.ListType.Requery
      Me.ListType = UCase(Me.ListType)
      AggiornaNum
Il rowsource della combobox e della listbox lo gestisco da codice a seconda
dell'opzione selezionata.
Quindi se seleziono ad esempio dal gruppo di opzioni Patente, in listbox mi
viene visualizzato
Cognome Nome, Tipo Patente.
Dalla combobox se seleziono ad esempio patente A, in listbox vengono
visualizzati tutti quei record che hanno la patente A.
Per le patenti il problema non mi si pone perchè le patenti vanno in un
unico campo, mentre per le lingue i campi sono due...
Ad esempio ho:
soggetto A con lingua1 : Inglese Lingua2: Tedesco
Soggetto B con lingua1: Tedesco Lingua2: Francese
e Soggetto C con lingua1:Tedesco Lingua2: Inglese
Nel rowsource della listbox metto select iscritti.num,
iscritti.cognome,......iscritti.lingua1,iscritti.lingua2, lingua from
iscritti........
Dalla casella combinata se io seleziono ad esempio "inglese", vorrei che
venissero visualizzati i record in questo modo :
Cognome nome, Lingua e non Cognome nome LIngua1, Lingua2
sogg A Inglese Soggetto A Inglese Tedesco
Sogg C Inglese Soggetto C Tedesco Inglese
Volevo andar a ricercare la lingua selezionata in casella combinata sia in
lingua1 e lingua2 e poi visualizzarla nel campo Lingua nella listbox...
Spero di essere stato 1 po piu chiaro, ma a volte mi sa mi complico la vita
inutilmente..
grazie mille..
ludo..



title: Ricerca in più campi

text:
"ludo" <
ludo...@libero.it
> ha scritto nel messaggio
news:83Z176Z120Z98Y1...@usenet.libero.it...

Visto che le lingue provengono da due campi e non solo da uno, hai necessità
di sapere quali valori si trovano in entrambi i campi. Questo solo se non
hai una tabella lingue con l'elenco di tutte, ma proprio tutte le lingue.
Nel primo caso la combo deve alimentarsi da un elenco formato da tutte le
lingue, prese una sola volta, sia dal primo che dal secondo campo lingue.
E' chiaro fino ad ora?
Se è chiaro vediamo come ricavare un elenco unico...
Io faccio così (ma potrebbero esserci altre strade): una prima query con i
valori di Lingua1 (SQLingua1):
SELECT Anagrafica.Lingua1 AS Lingue
FROM Anagrafica
GROUP BY Anagrafica.Lingua1;
Una seconda query con i valori di lingua2 (SQLingua2:
SELECT Anagrafica.Lingua2 AS Lingue
FROM Anagrafica
GROUP BY Anagrafica.Lingua2;
Una terza query con l'unione delle prime due (UnioneQueryLingue):
SELECT * from SQLingua1
UNION ALL select * from SQLingua2;
Finalmente la quarta query con i valori presi una sola volta
(SQLingueUtilizzate):
SELECT UnioneQueryLingue.Lingue
FROM UnioneQueryLingue
GROUP BY UnioneQueryLingue.Lingue;
Sarà quest'ultima ad alimentare la combo lingue: SQLingueUtilizzate
A questo punto il lavoro è facile perchè selezionato il valore dalla combo
andrai a verificare sia nel campo Lingua1 che nel campo Lingua2 se è
presente (OR).
Le cose sono diverse se hai usato (come spero) una tabella Lingue. In questo
caso sarà questa tabella ad alimentare la combo. Il resto è identico.
Ciao, Carlo


title: Maiuscolo <--> Minuscolo

author: RinbO

text:
Ciao a tutti,
sono nuovo di questo forum,
In mattinata ho fatto un DB in access, che mi permette, tramite un
report di stampare su etichette alcuni indirizzi.
Il problema dove sta??
Che tutti i dati inseriti sono in Maiuscolo, io vorrei (sempre se è
possibile) avere una query che mi permette di trasformare il campo
'indirizzi' da MAIUSCOLO in minuscolo, tenendo la prima lettera di
ogni parola in maiuscolo. (come esiste la funzione su excel, credo che
tramite una query in SQL sia possibile.
Grazie a tutti quelli che mi risponderanno.
Saluti
RinbO


title: Maiuscolo <--> Minuscolo

author: 'Roccia' Max

text:
On 9 Ago, 11:35, RinbO <
rinb...@gmail.com
> wrote:
> 'indirizzi' da MAIUSCOLO in minuscolo, tenendo la prima lettera di
> ogni parola in maiuscolo. (come esiste la funzione su excel, credo che
> tramite una query in SQL sia possibile.
La funzione e' StrConv, leggi l'help in linea per gli argomenti.
cia'
Max


title: Maiuscolo <--> Minuscolo

text:
Grazie.
ORa, però, ho un problema....
SELECT Casa.Nome, Casa.Cognome, Casa.[Data di Nascita],
Casa.Indirizzo, Casa.CAP, Casa.Città, Casa.Prov, Casa.Stampa
FROM Casa
WHERE Casa.Stampa=True;
Questa è la mia semplice query. Come si fa ad inserire la funzione???
Ho provato a metterla prima del campo "Casa.Indirizzo", ma non mi
funziona.
Qualcuna mi sa aiutare???
Grazie
Saluti



title: Maiuscolo <--> Minuscolo

text:
Niente...falso allarme!!! Ho già risolto!!!
Grazie lo stesso a tutti!!


title: Maiuscolo <--> Minuscolo

author: Ivan da casa

text:
"RinbO" <
rin...@gmail.com
> ha scritto nel messaggio
news:1186660564....@o61g2000hsh.googlegroups.com...
Niente...falso allarme!!! Ho già risolto!!!
Grazie lo stesso a tutti!!
Conosciamo tutti la logica soluzione, però ti sarei grato se tu la mettessi
a disposizione di coloro (pochissimi, come te) che ancora non sanno come
fare.
Grazie.
IvanDaBologna


title: Accesso negato al file. Errore 70.

text:
Salve.
Ho una procedura esegue i seguenti comandi.
Cancella una cartella ed il suo contenuto.
La ricrea ed in essa viene inserito un insieme di sottocartelle.
A volte però la procedura si blocca perchè il comando deletefolder mi
restituisce il seguente messaggio:
"Autorizzazione negata". Errore 70.
Non è sistematico, è casuale, e una volta uscito dal programma che
esegue la routine, oramai il file è in una situazione di blocco
(Curioso che io possa cancellarne il contenuto ma non la cartella).
Addirittura, anche se vado ad eliminare manualmente la cartella in
questione, mi restituisce lo stesso errore.
Solo al riavvio del PC tutto torna normale.
E' come se questa procedura di creazione di cartelle e sottocartelle
mettesse il file in una condizione di blocco provvisorio.
Qualcuno di voi si è trovato ad affrontare questo problema?
Grazie...


title: Accesso negato al file. Errore 70.

author: Sergio MAZZA

text:
<
ennioma...@puntocart.com
> ha scritto nel messaggio
news:c308f720-7e36-4372...@l42g2000hsc.googlegroups.com...

Grazie...
[risposta]
Non hai indicato il codice che utilizzi ma se fai le operazioni DeleteFolder
e CreateFolder in sequenza senza una "pausa tecnica" (loop, DoEvents o
altro), è probabile che windows si incarti perché non ha ancora terminato la
cancellazione e deve già creare le nuove cartelle.
Ma le cartelle da creare hanno lo stesso nome? Spero di no altrimenti
sarebbe meglio solo cancellare i file...
Ciao.
--
Sergio MAZZA


title: Accesso negato al file. Errore 70.

text:
On 3 Ago, 09:52, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
enniomarzoc...@puntocart.com
> ha scritto nel messaggionews:c308f720-7e36-4372...@l42g2000hsc.googlegroups.com...

Sì, le cartelle hanno "necessariamente" lo stesso nome.
Seguirò il tuo consiglio in riferimento a DoEvents.
Grazie.
Ciao.


title: Accesso negato al file. Errore 70.

text:

> Ciao.- Nascondi testo citato
>
> - Mostra testo citato -
Niente da fare. Il primo tentativo va a buon fine, il secondo no
perchè la cartella risulta bloccata.
Ho inserito il doevents dopo ogni deletefolder e createfolder.
Vi invio una piccola sequenza di codice:
Set fs = CreateObject("Scripting.FileSystemObject")
 c = fs.FolderExists(strDestinazioneIndia & "\")
     'Se esiste la cancella
    If c = True Then
       fs.deletefolder (strDestinazioneIndia)
       DoEvents
    End If
'''''''
poi in un secondo momento ricreo le cartelle
fs.createfolder strDestinazioneIndia
DoEvents
fs.createfolder strDestinazioneIndia & "\Documenti"
DoEvents
fs.createfolder strDestinazioneIndia & "\Campionario"
DoEvents
fs.createfolder strDestinazioneIndia & "\GestioneCampionario"
DoEvents
Vi risparmio i passaggi intermedi.
(Ho messo il doevents dopo aver letto il post)
Ciao.


title: Accesso negato al file. Errore 70.

author: Oscar Manfredini

text:
Niente da fare. Il primo tentativo va a buon fine, il secondo no
perchè la cartella risulta bloccata.
Ho inserito il doevents dopo ogni deletefolder e createfolder.
Vi invio una piccola sequenza di codice:
Set fs = CreateObject("Scripting.FileSystemObject")
 c = fs.FolderExists(strDestinazioneIndia & "\")
     'Se esiste la cancella
    If c = True Then
       fs.deletefolder (strDestinazioneIndia)
       DoEvents
    End If
'''''''
poi in un secondo momento ricreo le cartelle
fs.createfolder strDestinazioneIndia
DoEvents
fs.createfolder strDestinazioneIndia & "\Documenti"
DoEvents
fs.createfolder strDestinazioneIndia & "\Campionario"
DoEvents
fs.createfolder strDestinazioneIndia & "\GestioneCampionario"
DoEvents
Vi risparmio i passaggi intermedi.
(Ho messo il doevents dopo aver letto il post)
------------------------------------------------------------
Ma perchè non utilizzi i comandi interni di Access - Visual Basic per
effettuare quelle operazioni?
Ciao: Oscar


title: Accesso negato al file. Errore 70.

text:
On 5 Ago, 10:04, "Oscar Manfredini" <
oscar.manfred...@libero.it
>
wrote:

Ciao Oscar,
ho sempre usato questa procedura perchè non ho mai avuto problemi di
questo genere.
Ho comunque trovato il problema.
Ad ogni dichiarazione Set fs =
CreateObject("Scripting.FileSystemObject")
deve seguire la naturale conclusione, ovvero..
Set Fs=Nothing
Una volta inserita questa stringa la procedura non ha più presentato
problemi.
Però adesso mi sento male perchè devo andare a correggere una miriade
di moduli impostati malamente.
Grazie a tutti.


title: Problemino con maschere collegate!

author: daniele

text:
Ciao a tutti, volevo esporvi un problema che mi sta facendo perdere la
vista (il monitor è un pò piccolo :-) ). Vado al dunque, io ho una
maschera principale A che su dopo aggiornamento va a fare dei
controlli e dei calcoli su di un'altra maschera collegata ad una
query.
Questa query, seguitemi,   è collegata alla maschera A perchè filtra i
dati della tabella in base a 2 campi di A (i criteri di questa query
in poche parole sono: LIKE [forms]![!A]![primocampo] e LIKE
[FORMS]![A]![secondocampo].
Il PROBLEMA è che fin quando nella tabella madre esiste quel prodotto
e dunque la uery trova "qualcosa", tutto va alla grande; ma se il
prodotto nella tabella non esiste, mi da l'errore di "Nessun valore
nell'espressione immessa "errore 2427".
Come posso fare secondo voi per utilizzare i dati Nulli e quindi
uscire dalla routine con un msgbox di errore personalizzato?
Grazie a chi mi può rispondere
p.s.: la soluzione sta sicuramente nel Nz e nell'Isnull ma non ci
riesco lo stesso, sicuramente sbaglio qualcosa


title: Problemino con maschere collegate!

author: Roberto dal portatile

text:
"daniele" <
nit...@inwind.it
> ha scritto nel messaggio
news:3b7bd575...@news.inwind.it...

Prima di aprire la seconda maschera, vai a verificare, con una funzione
DLookup, che nella "tabella madre" esista "quel prodotto"; se la verifica ti
dà esito positivo apri la maschera, altrimenti invii un messaggio
all'operatore tramite una tua MsgBox.
Ti rammento che la funzione DLookup, se la ricerca dà esisto negativo, ti
restituisce un valore Null.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problemino con maschere collegate!

text:


Grazie prima di tutto per l'interessamento e la disponibilità (non è
la prima volta).
Volevo dirti che  il problema è un pò più complicato in quanto il
dlookup andrebbe fatto su due campi della tabella ed io francamente
questo non so come farlo.
Se mi puoi dire qualcosa che vada più nello specifico te ne sarei
grato.


title: Problemino con maschere collegate!

text:
"daniele" <
nit...@inwind.it
> ha scritto nel messaggio
news:3b7c086...@news.inwind.it...

Se la tabella su cui effettuare la ricerca si chiama Tabella1.
Se i due campi di Tabella1 su cui effettuare la ricerca si chiamano Campo1 e
Campo2 e sono numerici.
Se i controlli della maschera chiamante con i quali effettuare la ricerca si
chiamano Controllo1 e Controllo2.
Prova così.
If IsNull(DLookup("Campo1", "Tabella1", "Campo1=" & Controllo1 _
& " And Campo2=" & Controllo2)) Then
    MsgBox "Record non trovato"
Else
    DoCmd.OpenForm .....
End If
Se invece Campo1 e Campo2 son di tipo testo prova con:
If IsNull(DLookup("Campo1", "Tabella1", "Campo1=" & _
Chr$(34) & Controllo1 & Chr$(34) _
& " And Campo2=" & Chr$(34) & Controllo2 & Chr$(34))) Then
    MsgBox "Record non trovato"
Else
    DoCmd.OpenForm .....
End If



title: convertire dbf in html

author: frpad

text:
ho necessità di convertire dei files dbf in formato html, senza perdere il
campo memo. Questo per passare da un prg dos  a  progr windows, in pratica
leggere con internet explorer per esempio un database per dos.
C'è uno shareware apposta? oppure con qualche altro prg di uso corrente ?
Grazie a tutti.
Franco


title: AIUTO PER QUERY!

author: Matteo

text:
Ciao, avrei bisogno di sapere come applicare l'arrotondamento ad una
espressione in una query tra due numeri interi (valuta x ricarico).
Grazie!


title: AIUTO PER QUERY!

text:
"Matteo" <
te...@civera.it
> ha scritto nel messaggio
news:hw8l6.5475$Yx4.1...@news6.giganews.com...
> Ciao, avrei bisogno di sapere come applicare l'arrotondamento ad una
> espressione in una query tra due numeri interi (valuta x ricarico).
> Grazie!
>
>
Scusami ma non riesco ad immaginare come il prodotto ottenuto da due fattori
interi ti possa produrre un numero con decimali, quindi da arrotondare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: AIUTO PER QUERY!

text:
Infatti non ci sono decimali, mi serve arrotondare il numero alle migliaia
(es. da 15.852 a 16.000)!
Grazie mille, spero che tu mi possa aiutare!
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:srbl6.13244$k55.4...@news.infostrada.it...



title: AIUTO PER QUERY!

text:
"Matteo" <
te...@civera.it
> ha scritto nel messaggio
news:_ybl6.5710$Yx4.2...@news6.giganews.com...
> Infatti non ci sono decimali, mi serve arrotondare il numero alle migliaia
> (es. da 15.852 a 16.000)!
> Grazie mille, spero che tu mi possa aiutare!
Ipotizzando che attualmente il campo calcolato della query è il seguente:
Espr1: valuta*ricarico
scrivi invece
Espr1: Int(((valuta*ricarico)+999)/1000)*1000



title: AIUTO PER QUERY!

text:
OK, tutto sistemato, grazie 1000!
Matteo


title: Stampa report

author: Donato

text:
Buona sera a tutti,
il mio problema č:
stampare un report fronte e retro (e quě nessun problema). Il problema č che
il report e diviso in enne pagine per cliente a volte il numero di pagine č
pari ed a volte č dispari, se lancio la stampa in questo modo corro il
rischio che il fronte di un cliente venga stampato sul retro di un altro
cliente, mii aiutate a risolvere questo problema.
grazie a tutti per le risposte.
(Ho girato il NG ed il sito ma niente.


title: Stampa report

author: Massimiliano Amendola  kksrl

text:
"Donato" <
don...@sanchirico.it
> ha scritto nel messaggio
news:agi9lc$8f$1...@nntp.weblinea.it...

sezione report del
www.sitocomune.com
ciao MAssimiliano


title: Controllo campi e combo su maschera inserimento dati ed ottenere messaggio errore se vuoto o nullo

author: gog

text:
Come da oggetto , cerco info per poter risolvere un problema inerente
ad una maschera di inserimento dati che spesso riceve valori vuoti o
nulli.
Mi sono sfogliato ed ho ricercato sul NG ma ho trovato soluzioni
solamente in parte inerenti al mio problema.
Da quanto mi è dato sapere il cotnrollo potrebbe essere fatto o
settando le proprietà nella tabella (o campo) dell'argomento valido se
" is not null " e scegliere un messaggio di errore... ma qui sorge un
problema, il messaggio appare solo nel caso in cui viene messo un
valore , poi si deleta e ci si sposta col mouse ... se invece uso il
tasto tab o , nella combobox premo il tasto esc , il valore della
combo o casella , passa ad empty e non viene effettuato alcun
controllo. A tal fine ho trovato qualcosa sul NG :
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(Me!combocitta, "") = "" Or IsEmpty(Me!combocitta) Then
        MsgBox "A coso, te sei scordato de mette er cognome!"
        Me!combocitta.SetFocus
End If
End Sub
c'è però un problema , se l'utente che inserisce i dati nella
tabella , clicca per chiudere la maschera o se clicca nella combo per
effettuare la ricerca di un cliente (non sapendo o dimenticandosi si
aver riempito la combo città) , la maschera prima da la msg box con
l'errore poi però o chiude ma maschera (se ho cliccato su chiudi) o
passa al nuovo cliente (se ho usato la combo per la ricerca).
Sul sito comune c'è un codice (che però non intercetta gli empty) che
dovrebbe (dico dovrebbe perchè sul mio mdb non va) su aggiornamento
dati intercettare i campi nulli ed evidenziarli mettendoli su sfondo
rosso e portando il cursore ...
Sapreste dirmi come correggere il codice sopra per fare in modo che
prima di chiudere o cercare il nuovo cliente , si debba per forza
popolare il campo o la combo?
Grazie a tutti e scusate se sono stato un pò lungo ma da quello che ho
visto è un "problema" comune e che andrebbe approfondito.


author: ALESSANDRO Baraldi

text:
"gog" <
gog...@gmail.com
> ha scritto nel messaggio
news:1170348657....@q2g2000cwa.googlegroups.com...




Perchè dici Empty....?
Un controllo non credo possa assumere valore Empty, ma solo Null o
vbNullstring.
L'help fa riferimento a IsEmpty in caso di INIZIALIZZAZIONE di Variabili
quindi a mio avviso
il test su un controllo sarà sempre False.
Nel tuo caso ti basta controllare il vbNullString o il Null, che però hai
già fatto usando la funzione
NZ(Controllo,""), forse il tuo problema è dove inserire il controllo...?
Prova a dare un'occhiata a questo DEMO, magari a quello semplice dei 2
proposti....
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=156
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
On 1 Feb, 18:46, "ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote:
> "gog" <
gog...@gmail.com
> ha scritto nel messaggionews:1170348657....@q2g2000cwa.googlegroups.com...

Dimenticavo , il DB è in Access 97 ... non riesco a leggere i tuoi
esempi


text:
Dimenticavo , il DB è in Access 97 ... non riesco a leggere i tuoi
esempi
Peccato....
Il test lo puoi eseguire su Exit del controllo specifico, ed in
aggiunta su
BeforeUpdate di Form.
Ovvio che questo si scatena solo prima del SALVATAGGIO, ed al suo
interno
dovrai controllare
o ciclare tutti i Controlli che devono essere Validati.
Ti assicuro che se testi Len(Controllo)>0 Or IsNull(Controllo) non può
sfuggirti.
Ciao



text:

Stasera li guardo da casa dove ho altre versioni di Access, grazie
mille.
Posso contattarti tramite mail per avere delucidazioni (e ne avrò
bisogno nona avendo grandi nozioni di Vba) qualora ne avessi bisogno?
Grazie


text:
Stasera li guardo da casa dove ho altre versioni di Access, grazie
mille.
Posso contattarti tramite mail per avere delucidazioni (e ne avrò
bisogno nona avendo grandi nozioni di Vba) qualora ne avessi bisogno?
Grazie
Direi che è meglio mantenere, per quanto possibile, l'argomento di dominio
del NG.



text:

Ok allora stasera lo guardo e domani provo , se trovo problemi posto
ilcodice con la parte inerente il problema.
Grazie :)


text:
Ok allora stasera lo guardo e domani provo , se trovo problemi posto
ilcodice con la parte inerente il problema.
Grazie :)
Quei demo su A97 non funzioneranno mai... quindi prendili solo come esempio,
ma se non hai molta dimesticheza in VBA rischiano di metterti fuori strada
in quanto usa le Classi e le interfacce, cosa non molto diffusa....



text:

Ho controllato i tuoi demo e per me sono come arabo :) , bene o male
nell'evento after update so che inserisco i controlli da verificarte e
un pò mi ci raccapezzo ... li invece no ... potreste illuminarmi?
grazie


text:
[CUT]
> Ho controllato i tuoi demo e per me sono come arabo :) , bene o male
> nell'evento after update so che inserisco i controlli da verificarte e
> un pò mi ci raccapezzo ... li invece no ... potreste illuminarmi?
> grazie
Non per non volere insegnarti, ma come ti dicevo quei demo sono
complessi per chi ha già poche basi, quindi per riuscire a spiegarteli
dovrei farti un corso di VB e della programmazione ad Oggetti, e non
credo sia possibile....
Lasciali perdere e vedi se seguendo il consiglio dato dopo riesci a
farlo andare.
@Alex


text:

Veramente come consiglio ho letto solo quello sulle classi , che devo
fare? potete dirmi come bloccre il codice in caso di exit su una
maschera con campo vuoto e spostare il cursore su quel campo?
grazie


text:
 [CUT]
> Veramente come consiglio ho letto solo quello sulle classi , che devo
> fare? potete dirmi come bloccre il codice in caso di exit su una
> maschera con campo vuoto e spostare il cursore su quel campo?
> grazie- Nascondi testo tra virgolette -
Veramente hai letto male oppure non tutto....!
Io ti ho suggerito nell'ultimo post come fare, se vuoi rileggere e
riprovare vedi tu...
@Alex


text:
On 1 Feb, 19:17, "Alessandro Baraldi" <
ik2...@libero.it
> wrote:

Ecco , ti riferivi a questo  :) ma così facendo intercetto solo il
campo non vuoto ma il cursore non si posiziona li o sbaglio?


text:

> campo non vuoto ma il cursore non si posiziona li o sbaglio?- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Mi riferivo a questi:
Perchè dici Empty....?
Un controllo non credo possa assumere valore Empty, ma solo Null o
vbNullstring.
L'help fa riferimento a IsEmpty in caso di INIZIALIZZAZIONE di
Variabili
quindi a mio avviso
il test su un controllo sarà sempre False.
Nel tuo caso ti basta controllare il vbNullString o il Null, che però
hai
già fatto usando la funzione
NZ(Controllo,""), forse il tuo problema è dove inserire il
controllo...?
ed anche a questo:
Il test lo puoi eseguire su Exit del controllo specifico, ed in
aggiunta su
BeforeUpdate di Form.
Ovvio che questo si scatena solo prima del SALVATAGGIO, ed al suo
interno
dovrai controllare
o ciclare tutti i Controlli che devono essere Validati.
Ti assicuro che se testi Len(Controllo)>0 Or IsNull(Controllo) non
può
sfuggirti.
Saluti
@Alex


text:

Mi sento alquanto deficente :) ... sono molto scarso in vba e quello
che sò lo ho appreso tramite NG sfogliando ed adattando , ti chiedo
dunque un pò di pazienza.
Ho messo questo codice (sperando di aver capito ciò che volevi dirmi):
Private Sub Form_BeforeUpdate(Cancel As Integer)
     If Len(combocitta) > 0 Or IsNull(combocitta) Then
         MsgBox "Il numero scheda è obbligatorio e non può essere 0"
         ' Se l'operatore ha sbagliato cancello il contenuto.
        Cancel = True
        Me!combocitta.SetFocus
        End If
End Sub
così facendo mi esce la msgbox ma oltre al fatto che si chiude non
appena clicco su ok , ho notato che esce anche se il campo città è
popolato... al che ho pensato che l'errore era su len(combocitta) > 0
(ho detto ma io lo voglio maggiore di 0 ) ed ho sostituito il > con
< ... risultato non esce niente ...
Per quando riguarda empty , leggevo su NG che se il campo viene
popolato e poi svuotato tramite esc o bypassandolo con tab , assume
valore empty e quindi bisognava intercettarlo. (non garantisco niente
dato che l'ho solo letto e come avrai inteso sono scarso in VBA)


text:
Prova cosě:
Private Sub Form_BeforeUpdate(Cancel As Integer)
     If Len(combocitta) = 0 Or IsNull(combocitta) Then
         MsgBox "Il numero scheda č obbligatorio e non puň essere 0"
         ' Se l'operatore ha sbagliato cancello il contenuto.
        Cancel = True
        Me!combocitta.SetFocus
     End If
End Sub
Per quando riguarda empty , leggevo su NG che se il campo viene
popolato e poi svuotato tramite esc o bypassandolo con tab , assume
valore empty e quindi bisognava intercettarlo. (non garantisco niente
dato che l'ho solo letto e come avrai inteso sono scarso in VBA)
Direi che l'unica č provare....!



text:
ALESSANDRO Baraldi ha scritto:
> Prova così:
>
> Private Sub Form_BeforeUpdate(Cancel As Integer)
>      If Len(combocitta) = 0 Or IsNull(combocitta) Then
>          MsgBox "Il numero scheda è obbligatorio e non può essere 0"
>          ' Se l'operatore ha sbagliato cancello il contenuto.
>         Cancel = True
>         Me!combocitta.SetFocus
>      End If
> End Sub
>
> Per quando riguarda empty , leggevo su NG che se il campo viene
> popolato e poi svuotato tramite esc o bypassandolo con tab , assume
> valore empty e quindi bisognava intercettarlo. (non garantisco niente
> dato che l'ho solo letto e come avrai inteso sono scarso in VBA)
>
> Direi che l'unica è provare....!
>
> --
> @Alex (Alessandro Baraldi)
> ---------------------------------------------------------------------------
>
http://www.sitocomune.com/
>
http://www.alessandrobaraldi.it
> ---------------------------------------------------------------------------
Grazie Alessandro , così sembra funzionare nel senso che effettua il
controllo , sia che uso tab sia esc sia che cancello un valore che vi
era prima su combocitta, mi da la msgbox, permane però il problema
della chiusura form senza dare l'opportunità di poter riempire la
combocittà così da validare il record. Praticamente non ti accorgi
neanche che effettui il setfocus perchè chiude all'istante.


text:

> neanche che effettui il setfocus perchè chiude all'istante.- Nascondi testo tra virgolette -
Li devi effettuare il test su Unload e forzare sempre il Cancel=true.
@Alex


text:

quindi oltre al codice su before update dovrei anche mettere qualcosa
del genere su unload? :
 Private sub Form_Unload(Cancel as Integer)
    If Len(combocitta) > 0 Or IsNull(combocitta) Then
         MsgBox "Il numero scheda è obbligatorio e non può essere 0"
         ' Se l'operatore ha sbagliato cancello il contenuto.
        Cancel = True
        Me!combocitta.SetFocus
        not DoCmd.Close 'questa me la sono inventata sul momento dato
che non sò come dirgli di non chiudere (perdona la mia ignoranza)
 end if
 End Sub
so gia che not docmd è errato ma non sò che codice si debba
mettere ...
Urge un testo per vba lo sò :)


text:
Prova questo:
 Private sub Form_Unload(Cancel as Integer)
    If Len(combocitta) > 0 Or IsNull(combocitta) Then
         MsgBox "Il numero scheda è obbligatorio e non può essere 0"
         ' Se l'operatore ha sbagliato cancello il contenuto.
        Cancel = True
        Me!combocitta.SetFocus
 end if
 End Sub
Non serve dirgli di non chiudere la Maschera il Cancel=True non fà altro che
annullare
l'evento.... quindi non si chiude...!
Leggiti l'help però... poichè quando non si sanno le cose si devono
leggere...!



text:

Hmm avevo letto l'Help ma non trovavo riferimenti a cancel=true... mi
sa che sono stato superficiale.
C'è un problema , con il codice che mai messo , rimane in loop sia che
metto il valore sulla combo sia che non lo metto ... risultato non mi
fa entrare in struttura e devo killare access.
Come mai^?


text:

Trovato l'errore :
 If Len(combocitta) > 0 Or IsNull(combocitta) Then
         MsgBox "Il numero scheda è obbligatorio e non può essere 0"
praticamente è normale che mi dia sempre la msg box con inserire città
anche se la inserisco ... infatti se metto un valore combocittà sarà >
0  per cui ti da la msg .
ho risolto così:
Private Sub Form_Unload(Cancel As Integer)
    If IsNull(combocitta) Or IsEmpty(combocitta) Then
         MsgBox "Il campo città è vuoto , inserire la città"
         ' Se l'operatore ha sbagliato cancello il contenuto.
        Cancel = True
        Me!combocitta.SetFocus
 End If
 End Sub
e settando sulla tabella il valido se is not null con un messaggio nel
caso non lo fosse.
praticamente mi ha illuminato questo:
Il valore Null indica che la variabile Variant non contiene dati
validi. Il valore di tipo Null è quindi diverso dal valore di tipo
Empty, che indica che una variabile non è stata ancora inizializzata.
Non ha inoltre lo stesso significato di una stringa di lunghezza zero
(""), definita a volte stinga nulla.
ora se la stringa non viene inizializzata, il controllo su empty mi da
la msg ... se viene inizializzata e poi variata , ci pensa il
controllo sul valido se... se viene inserito invece un valore di tipo
null , ci pensa il codice su unload.
Ringrazio Alessandro per le delucidazioni e i consigli per arrivare al
risultato finale.


title: R: da matteo

text:
scusate, ho sbagliato newsgroup.
Matteo
Matteo <
gest...@uno.it
> wrote in message 8dppic$6ff$1...@news.plugit.net...
> ti invio quanto detto: prova scompattando il file r0006fix.zip
> altrimenti l'altro
>
> fammi sapere.
> Matteo
>
>
>


title: Su Mouse Spostato (OnMouseMove)

author: Aldo Ciarapica

text:
ciao ragazzi
è da molto tempo che leggo le Vs. news e devo ammettere che ho imparato
molte cose da permettermi di cimentarmi a scrivere qualche programma in
visual access. Però ora mi trovo in difficoltà:
in una maschera ci sono circa 200 controlli (caselle di testo), i cui valori
cambiano a seconda dei dati di un archivio anagrafico.Ora questi valori li
vorrei far apparire (naturalmente uno alla volta) in un'altra casella di
testo al semplice passaggio del mouse (Su Mouse Spostato). Con la dovuta
pazienza potrei scrivere 200 Routine Evento, ma non c'è un altro modo e
cavarmela così con poche istruzioni?
Ho provato a creare una unica macro che richiama con "esegui codice" una
funzione da me creata, ma il problema è: Come faccio a riconoscere la
casella di testo dove il mouse sta passando?
Ringrazio anticipatamente quel bravo ragazzo che mi può suggerire una
soluzione
distinti saluti ALDO


title: Su Mouse Spostato (OnMouseMove)

author: Alessandro Baraldi

text:
Aldo Ciarapica ha scritto:

La cosa più semplice è gestire l'Evento con una Classe ed una
Collection.
Istanzi in automatico una classe per ognuno dei controlli dei quali
devi gestire
l'Evento OnMOuseMove, e la sbatti nella Collection.
Il problema lo puoi avere se il Tipo di controlli è variabile, a quel
punto devi gestire
la cosa....!
Ti posso suggerire 2 demo sull'uso delle classi indirizzato alla
risoluzione di questa
gestione:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=155
questo è un pò più complesso.....:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=156
Tieni conto che è l'unica soluzione che può ovviare alla gestione
singola.
Ciao
@Alex


title: Protezione con numero seriale

author: Danilo

text:
Ho più volte provato ad aprire il file serialHD.mdb scaricato dal sito del
newsgroup per vedere come è stata implementata la protezione attraverso il
numero seriale dell'HD ma tutte le volte mi dice "L'account utente corrente
non dispone delle autorizzazioni per convertire o abilitare il database" e
mi chiude il file. Sbaglio qualcosa io o il file è solo un dimostrazione che
con quella protezione non è possibile entrare (leggi: allora a cosa mi
serve? :-)))
Grazie.
Danilo.


title: Protezione con numero seriale


title: Protezione con numero seriale

author: Roberto da casa

text:
"Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
news:Yjur9.41859$RO.10...@twister1.libero.it...

Se però non ricordo male, se digiti la parola chiave che lui ti suggerisce,
il database si chiude ugualmente, ma quando lo riapri le volte successive
non ti chiede più la parola chiave e ti lascia operare con il database.
O sbaglio?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Protezione con numero seriale

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:mVAr9.43325$RO.10...@twister1.libero.it...
>
> "Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
> news:Yjur9.41859$RO.10...@twister1.libero.it...
> > Ho più volte provato ad aprire il file serialHD.mdb scaricato dal sito
del
> > newsgroup per vedere come è stata implementata la protezione attraverso
il
> > numero seriale dell'HD ma tutte le volte mi dice "L'account utente
> corrente
> > non dispone delle autorizzazioni per convertire o abilitare il database"
e
> > mi chiude il file. Sbaglio qualcosa io o il file è solo un dimostrazione
> che
> > con quella protezione non è possibile entrare (leggi: allora a cosa mi
> > serve? :-)))
> >
> > Grazie.
> >
> > Danilo.
>
> Se però non ricordo male, se digiti la parola chiave che lui ti
suggerisce,
> il database si chiude ugualmente, ma quando lo riapri le volte successive
> non ti chiede più la parola chiave e ti lascia operare con il database.
> O sbaglio?
>
> --
> Roberto
>
A me non chiede una parola chiave, quando lo lancio mi presenta subito il
messaggio di non autorizzazione e non procede;
a dire il vero non ho visto riportata alcuna parola chiave; ho notato che il
file è fatto con Access 97 ed io uso Access 2000, può essere questo il
motivo?
Danilo.


title: Protezione con numero seriale

author: MM

text:
Non so se ho capito bene ma se state parlando di memorizzare il numero
seriale dell'hard disk in un tabella access per farne
uso a livello di sicurezza (esempio : se  il programma viene copiato su un
altro pc non deve funzionare) allora credo di potervi dare
umilmente una mano.
Io ho realizzato il tutto e non è molto difficile.
Vi posto il codice qui di seguito che dovrà essere messo nella maschera che
effettua il controllo:
***************************************************************************
Option Compare Database
'***
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" _
   Alias "GetVolumeInformationA" _
  (ByVal lpRootPathName As String, _
   ByVal lpVolumeNameBuffer As String, _
   ByVal nVolumeNameSize As Long, _
   lpVolumeSerialNumber As Long, _
   lpMaximumComponentLength As Long, _
   lpFileSystemFlags As Long, _
   ByVal lpFileSystemNameBuffer As String, _
   ByVal nFileSystemNameSize As Long) As Long
Private Sub rgbGetVolume(PathName As String, _
                         DrvVolumeName As String, _
                         DrvSerialNo As String)
  'create working variables
  'to keep it simple, use dummy variables for info
  'we're not interested in right now
   Dim r As Long
   Dim pos As Integer
   Dim hword As Long
   Dim HiHexStr As String
   Dim lword As Long
   Dim LoHexStr As String
   Dim VolumeSN As Long
   Dim MaxFNLen As Long
   Dim UnusedStr As String
   Dim UnusedVal1 As Long
   Dim UnusedVal2 As Long
  'pad the strings
   DrvVolumeName = Space$(14)
   UnusedStr = Space$(32)
  'do what it says
   r = GetVolumeInformation(PathName, _
                            DrvVolumeName, _
                            Len(DrvVolumeName), _
                            VolumeSN&, _
                            UnusedVal1, UnusedVal2, _
                            UnusedStr, Len(UnusedStr))
  'error check
   If r = 0 Then Exit Sub
  'determine the volume label
   pos = InStr(DrvVolumeName, Chr$(0))
   If pos Then DrvVolumeName = Left$(DrvVolumeName, pos - 1)
   If Len(Trim$(DrvVolumeName)) = 0 Then DrvVolumeName = "(no label)"
  'determine the drive volume id
   hword = HiWord(VolumeSN)
   lword = LoWord(VolumeSN)
   HiHexStr = Format$(Hex(hword), "0000")
   LoHexStr = Format$(Hex(lword), "0000")
   DrvSerialNo = HiHexStr & "-" & LoHexStr
End Sub
Private Function HiWord(dw As Long) As Integer
    HiWord = (dw And &HFFFF0000) \ &H10000
End Function
Private Function LoWord(dw As Long) As Integer
    If dw And &H8000& Then
        LoWord = dw Or &HFFFF0000
    Else
        LoWord = dw And &HFFFF&
    End If
End Function
'--end block--
****************************************************************************
***********
successivamente potete controllare tutto tramite una funzione di questo tipo
:
Private Sub nomesub
Dim PathName As String
Dim DrvVolumeName As String
Dim DrvSerialNo As String
PathName$ = "c:\"
rgbGetVolume PathName, DrvVolumeName, DrvSerialNo
Me![nomevolume] = DrvVolumeName
Me![serialvolume] = DrvSerialNo
Me![esci].Visible = True
Me![esci].Enabled = True
End Sub
****************************************************************************
*******************


title: Protezione con numero seriale

text:
"Danilo" <
danf...@inwind.it
> ha scritto nel messaggio
news:J8Gr9.45119$RO.11...@twister1.libero.it...

Sicuramente dovrai aprire il database scaricato come versione precedente e
verificare che siano presenti correttamente i riferimenti alle librerie DAO.
Se tutto è OK, quando apri per la prima volta la maschera Menu Principale,
ti comparirà una finestra in cui dovrai digitare 01091962; dopo questa
digitazione il database si chiude: riaprendolo le volte successive alla
prima, aprendo la maschera Menu Principale non ti comparirà alcuna finestra
con richiesta di password, ma verrà appunto aperto un pannello comandi.
Se provi a duplicare tale database già usato in un altro PC, ti comparirà
SEMPRE la finestra con la richiesta della password, ed anche se la digiti
giusta non riuscirai ad usare il database, che verrà comunque chiuso, dopo
che hai digitato la password.
Io non uso A2000, quindi non sono in grado di dirti di più.
>
> Danilo.



title: Protezione con numero seriale

text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:B9Hr9.45381$RO.11...@twister1.libero.it...

Grazie, il codice funziona e rileva etichetta del volume e numero seriale.
Una volta rilevato il numero dove conviene memorizzarlo per creare una
protezione sull'apertura successiva:
1) una tabella ?
2) un file esterno ?
3) ... ?
Grazie.


title: Protezione con numero seriale

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:c_Rr9.46664$RO.11...@twister1.libero.it...

Proverò su un PC con Access 97 perchè con Access 2K non mi propone nemmeno
di convertirlo o aprirlo come versione precedente!


title: Protezione con numero seriale

text:
> Grazie, il codice funziona e rileva etichetta del volume e numero seriale.
> Una volta rilevato il numero dove conviene memorizzarlo per creare una
> protezione sull'apertura successiva:
> 1) una tabella ?
> 2) un file esterno ?
> 3) ... ?
>
Prego, sono contento che funziona.
Io  ho semplicemente creato una procedura che alla prima apertura del db va
a controllare in una tabella del db se esiste un determinato valore.
Supponi di avere la tabella accettalicenza.
in questa tabella hai i seguenti campi (li separo con ; per comodità di
lettura qui nel NG)
id; AccettoLicenza ;data; nomevolume ;serialvolume; datainst ;datascad
che possono contenere i seguenti dati:
13 ;1; 18/10/2002 ;1.27.23; (no label) ;10000000000-196E ;18/10/2002;
17/11/2002;
Fai uan procedura che ti chieda solo la prima volta che viene aperto il db
se accetti la licenza d'uso o meno.
All'atto dell'accettazione (esempio : su evento click del pulsante " si
accetto" ) fai inserire tramite codice VB
un valore nel campo accettolicenza. (1 = accettato ; 2 = non accettato)
Successivamente all'accettazione fai inserire da VB gli altri parametri (es.
data prima istallazione,data scadenza del programma, nomevolume,
serialvolume)
se ti occorrono.
Alla prossima apertura esegui un controllo sul contenuto della tabella
accettolicenza dove verifichi il valore di accettolicenza (es. se è 2 allora
chiudi il db)
Ti posso postare dei esempi ma poi devi vedere tu cosa ne vuoi fare di
questo sistema.
*********************************
If DLookup("[serialvolume]", "accettolicenza", Value) <> DrvSerialNo Then
MsgBox "Dati del programma corrotti." & Chr(13) & "Questa è una copia
illegale !", vbInformation, "Copia non autorizzata !"
If DLookup("[serialvolume]", "accettolicenza", Value) <> DrvSerialNo Then
DoCmd.Close acForm, "Pannello comandi"
DoCmd.RunMacro "autoexec", 0
If DLookup("[serialvolume]", "accettolicenza", Value) <> DrvSerialNo Then
DoCmd.DeleteObject acForm, "Pannello comandi"
If DLookup("[serialvolume]", "accettolicenza", Value) <> DrvSerialNo Then
Application.Quit   ' inserire qui per cancellare il db
If DLookup("[nomevolume]", "accettolicenza", Value) <> DrvVolumeName Then
MsgBox "Dati del programma corrotti." & Chr(13) & "Contattare il fornitore
!", vbExclamation, "Corruzzione dati !"
If DLookup("[nomevolume]", "accettolicenza", Value) <> DrvVolumeName Then
DoCmd.Close acForm, "Pannello comandi"
DoCmd.RunMacro "autoexec", 0
If DLookup("[nomevolume]", "accettolicenza", Value) <> DrvVolumeName Then
DoCmd.DeleteObject acForm, "Pannello comandi"
If DLookup("[nomevolume]", "accettolicenza", Value) <> DrvVolumeName Then
Application.Quit   ' fase di chiusura programma
'*** fine fase di copyprotection
If DLookup("[accettolicenza]", "accettolicenza", Value) = 1 Then GoTo fine
Else
If DLookup("[accettolicenza]", "accettolicenza", Value) = 2 Then GoTo
Nolicenza Else  ' altrimenti se diverso da 1 o 2
GoTo AccettareLicenza
Nolicenza:
   MsgBox "Spiacente , ma non avete accettato la licenza d'uso." & Chr(13) &
"Rivolgersi al fornitore ! ", vbExclamation, "Licenza non accettata !!"
   If DLookup("[accettolicenza]", "accettolicenza", Value) = 2 Then
Application.Quit
AccettareLicenza:
   MsgBox "Licenza non valida." & Chr(13) & "Accettare la licenza d'uso per
usare il programma.", vbCritical, "Avviso di Protezione Licenza"
   DoCmd.OpenForm "AccettoLicenza"
   GoTo tuttook
fine:
'*****  controllo scadenza programma
datainstallazione = (DLookup("[datainst]", "accettolicenza", Value))
DataScadenza = (DLookup("[datascad]", "accettolicenza", Value))
If Now >= datainstallazione Then GoTo controllo1 Else GoTo problema 'MsgBox
"tutto ok perchè " & Now & " è maggiore o uguale a " & datainstallazione
controllo1:
If Now >= DataScadenza Then GoTo problema Else GoTo tuttook
problema:
MsgBox "Tempo di valutazione terminato o errore di data ! Reinstallare il
prodotto."
'inserire il codice per cancellare la form iniziale del db
DoCmd.Close acForm, "pannello comandi"
'DoCmd.DeleteObject acForm, "Pannello comandi"
Application.Quit
tuttook:
If DLookup("[accettolicenza]", "accettolicenza", Value) = 1 Then DoCmd.Beep
'MsgBox "Controllo licenza OK !"
DoCmd.Beep
End Sub
***********************************************
Spero ti sia tutto molto utile
Questa è pura PAPPA PRONTA !!!!!
Ciao e buon lavoro


title: Protezione con numero seriale

text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:B3Vr9.47179$%M1.11...@twister2.libero.it...

Mi piace, la provo questa sera, intanto ancora grazie.
PS: sai nulla sul protocollo per le comunicazioni criptate in internet
"https" o dove poter trovare materiale?
Danilo.


title: Protezione con numero seriale

author: Claudio

text:
"C.F." <
cfse...@tin.it
> ha scritto nel messaggio
news:vBVr9.6527$TD1.2...@news2.tin.it...
> Mi piace, la provo questa sera, intanto ancora grazie.
Ma perché quotare 137 righe per dire grazie?


title: Protezione con numero seriale

text:
> PS: sai nulla sul protocollo per le comunicazioni criptate in internet
> "https" o dove poter trovare materiale?
>
> Danilo.
>
Non so se hai capito il messaggio di Claudio ma te lo riassumo brevemente :
Non serve ripetere il testo inviato come spiegazione nel tuo nuovo messaggio
almeno che sia utile per capire cio' che dici nel messaggio stesso.
Nel senso : tutte le istruzioni che ho scritto le puo' vedere chiunque nei
messaggi precedenti , quindi per facilitare la lettura delle risposte č
inutile
ripetere il testo della risposta prcedente "almeno che serva proprio", ma
nel nostro caso non occoreva.
Insomma conviene sempre tagliare i messaggi nel ri-postare lasciando solo
gli elementi principali che permettono a chi ha letto il messaggio prima di
capire quello successivo.
Per quanto riguarda https non so nulla, purtroppo non so aiutarti.
Prova a vedere magari sul sito
www.html.it
  cercando la parola https oppure
comunicazioni criptate !!!
Ciao e buon divertimento.
Con simpatia.
Marco


title: ragazzi scusate aiuto urgente ringrazio tutti ciao

author: teo

text:
ragazzi devo fare una cosa del genere mi spiegate gentilmente come devo fare
la tabella e la query grazie a tutti.
Mese             Giorno         oreord         orestaord
tariffaoreord       tariffaorestarord
G/F/M/ecc           1                8                   1
? 10,00            ? 12,00
                            2               8                    2
                            3               8
                        31
                                    tot oreOrd      totOreStraord
totTarifOreord       totTariforeStraord
totaletarif


title: Query per popolare una casella di riepilogo

author: gnews

text:
Ho una tabella Clienti e una tabella Fatture.
Devo fare una query via codice per popolare una casella di riepilogo,
sbaglio qualcosa e non riesco e venirne fuori.
Tabella Clienti: IDCliente, Cognome, Nome
Tabella Fatture: IDFattura, IDCliente, Data
Il risultato deve essere:
IDFattura, Data, Cognome, Nome
Qualcuno puň aiutarmi?
Grazie


text:

> Qualcuno può aiutarmi?
> Grazie
SELECT Fatture.IDFattura, _
             Fatture.Data, _
             Clienti.Cognome, _
             Clienti.Nome
FROM Clienti
INNER JOIN Fatture ON Clienti.IdCliente = Fatture.IdCliente;
@Alex


text:
>SELECT Fatture.IDFattura, _
>            Fatture.Data, _
>           Clienti.Cognome, _
>             Clienti.Nome
>FROM Clienti
>INNER JOIN Fatture ON Clienti.IdCliente = Fatture.IdCliente;
Grazie mille!
Ciao


title: Query troppo complessa

author: Comune di Portobuffolè

text:
ho formato una query basata su due altre query e una tabella la quale fino a
che gestisce una quindicina di record funziona, viceversa quando i record
cominciano a diventare venti o venti cinqu e in su mi dà questo messaggio
"Query troppo complessa".
é un probleama di memoria o di Access.
ho tentato anche di eliminare la tabella ma niente mi dà sempre lo stesso
errore.


title: Query troppo complessa

text:
Comune di Portobuffolè <
ana...@tin.it
> wrote in message
VpLa8.69259$3J1.2...@news2.tin.it...

Ha dei campi calcolati questa query?
Se si, controlla se nessuno degli elementi su cui si basa tale calcolo abbia
valore Null...ciò creerebbe dei problemi di calcolo e quindi il bug.
Fammi sapere


title: Query troppo complessa

text:


ho controllato ma non mi risultano campi con valore Null, anzi preciso
meglio:
la nuova Query che non funziona è una query di selezione che prende origine
da altre due query più una tabella.
I^ query con i segunti campi:
1) Id nominativo
2) codice
3) totale spese (valore)
4) preventivo (valore) [derivante da: totale spese per un coeficente]
5) preventivo in euro (valore) [è il campo sopra diviso 1936.27]
II^ query con i segunti campi:
1) Scala
2) Id nominativo
3) codice
4) .......
5) .......
6) .......
7) totale spese (valore) [che non è altro che la somma dei campi 4-5-6] e lo
stesso campo n. 3 della query sopra
8) entrate (valore)
9) differenza (valore) [che non è altro che la differenza fra i campi 8 - 7]
la tabella non la descrivo in quanto anche se io non la inserisco il
messaggio non cambia.
nel comporre la nuova query e mettendo i campi:
1) Id nominativo (I^ query)
2) codice (I^ query) fin qua funziona
9) differenza (II^ query) a questo punto mi da il messaggio "Query troppo
complessa"
preciso che le due query di origine funzionano regolarmente senza dare
problemi.
ringrazio


title: Aprire una sottomaschera con record selezionato

author: Jingo

text:
Ciao a tutti, ho una maschera con una casella combinata dove su "doppio
clic" si apre un'altra maschera (una principale ed una sottomaschera in
visualizzazione foglio dati) dove viene mostrato un elenco di records.
Vorrei fare in modo che su "doppio clic" nella maschera che viene aperta
venga selezionato il record che corrisponde al valore presente nella
casella combinata. Come posso fare??
Grazie
jingo.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: namor

text:
Jingo ha scritto:
> Ciao a tutti, ho una maschera con una casella combinata dove su "doppio
> clic" si apre un'altra maschera (una principale ed una sottomaschera in
> visualizzazione foglio dati) dove viene mostrato un elenco di records.
> Vorrei fare in modo che su "doppio clic" nella maschera che viene aperta
> venga selezionato il record che corrisponde al valore presente nella
> casella combinata. Come posso fare??
> Grazie
> jingo.
Nell'evento doppio click dove apri l'altra form passi in openargs il
valore della casella combinata:
docmd.openform "nomeform",,,,,,me.casellacomb
Nell'altra maschera, sull'evento Open controlli se c'è un valore in
openargs, nel qual caso fai la ricerca del record corrispondente:
if nz(me.openargs)>0 then
  me.recordsetclone.findfirst "Codice=" & me.openargs
  me.bookmark=me.recordsetclone.bookmark
end if
Oppure fai, sull'Open della seconda form, la ricerca del record prendendo
il valore direttamente dalla prima form:
  me.recordsetclone.findfirst "Codice=" & Forms("nomeform1").casellacomb
  me.bookmark=me.recordsetclone.bookmark
Però se la prima form è chiusa ti dà un errore che devi gestire in qualche
modo (ti basta anche solo un On error resume next).
Namor
--
namor at inwind punto it



author: Sergio MAZZA

text:
"Jingo" <
jin...@libero.it
> ha scritto nel messaggio
news:c1l45n$v8t$1...@news.newsland.it...
> Ciao a tutti, ho una maschera con una casella combinata dove su "doppio
> clic" si apre un'altra maschera (una principale ed una sottomaschera in
> visualizzazione foglio dati) dove viene mostrato un elenco di records.
> Vorrei fare in modo che su "doppio clic" nella maschera che viene aperta
> venga selezionato il record che corrisponde al valore presente nella
> casella combinata. Come posso fare??
> Grazie
> jingo.
>
> --
>
Se hai impostato le proprietą "collega campi secondari/master" della
maschera che contiene la sottomaschera, quando doppioclicchi sulla casella
combinata devi impostare la condizione where del metodo OpenForm:
Es.
DoCmd.OpenForm "nomeMascheraConSottoMaschera",,,"[id]=" & me!casellaCombo
Ciao.
--
Sergio MAZZA


text:
namor ha scritto:
> Jingo ha scritto:






> Namor
Grazie 1000
--



text:
Jingo ha scritto:
[cut]
> Grazie 1000
Funziona bene anche la soluzione che ti ha dato Sergio. L'unica differenza
è che la mia fa una ricerca, si posiziona sul record, e ti lascia libero
di muoverti coi pulsanti di spostamento ai record precedenti e successivi,
mentre quella che usa la condizione WHERE applica un filtro alla maschera
e non ti lascia vedere gli altri record finchè non togli il filtro, o
chiudi e riapri la maschera.
Quale delle due usare dipende dalle tue necessità.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Riguarda tutti! MDAC con bug! File help ADO210.chm con riferimenti orfani

author: OneEDP

text:
Dopo l'installazione di Access 2000 su Windows XP prof.ed. SP1 mi sono
accorto che MDAC  risulta già aggiornato alle versione 2.7 (evidentemente
compresa in WinXP). L'effetto collaterale è che l'help per la libreria ADODB
ha perso tutti i riferimenti NONOSTANTE abbia recuperato il file ADO210.chm
La stesso effetto avviene anche su un PC perfettamente funzionante (Win 9x)
dopo l'aggiornamento a 2.7 di MDAC. Infatti, il file scompare. E anche se si
riesce a ripescarlo da qualche parte e smanettare con regedit... non si
ripristinano i riferimenti.
Microsoft per il problema suggerisce di visitare Microsoft Platform SDK...
ma dovrei scaricare tonnellate e tonnellate di byte di roba che non mi
serve.
Qualcuno è riuscito a risolvere questo incoveniente?
Daniele


title: leggere record da codice

author: laurus

text:
scusate la banalità della domanda ma come faccio a leggere da codice il
contenuto di un capo di un record??
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: leggere record da codice

author: VT @ home

text:
Il Tue, 15 May 2007 14:08:42 +0200,
sdd...@tin.it
 (laurus) ha scritto:
>(.....)
>scusate la banalità della domanda ma come faccio a leggere da codice il
>contenuto di un capo di un record??
Dipende:
- se vuoi solo leggerlo senza possibilità di variarlo puoi usare la funzione Dlookup
TuoValore = Dlookup("[TuoCampo]","[TuaTabella]","Condizione di ricerca")
Per esempio:
stRagSoc=Dlookup("[RagioneSociale],"Cliente","ID_Cliente=1234")
- se vuoi leggerlo ed anche poterlo aggiornare devi impostare un recordset
dim rs as recordset, tuacondizione as string
set rs=currentdb.openrecordset("TuaTabella")
with rs
  .findfirst tuacondizione
  if .nomatch=false then
     .edit
      !Tuocampo=TuoValore
     .update
  endif
  .close
end with
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: leggere record da codice

text:
grazie č quello che volevo!



title: MI5 Persecution: Brighton 24/9/98 (9011)

text:
Brighton Day Trip - 24/Sept/1998
Certainty level: 5%
On a day trip to Brighton, carrying a minidisc recorder, I managed to
collect several indistinct instances of what I think were people swearing
at me. Between the 0.5 and 1.5 second marks of the above recording is
something that sounds like "nutter". I recorded at least three other much
more obscene sexual words on the same day.
I don't honestly think the "nutter" recorded here is part of the conspiracy
against me. I've been called similar things elsewhere, where it's been
blindingly clear that the insult does form part of the conspiracy - but
not in this case. This illustrates quite a worrying point - as a result of
the many years of abuse "in public", I now sometimes simply don't know
whether somebody is insulting me because they think I look like a dweeb, or
whether the conspiracy is in action. Sometimes, due to background noise
and people talking quietly relative to ambient noise, I can't be sure of
what's being said, even after listening to it again on my minidisc. Or put
another way, I now have a mild form of what I recognise to be occasional
auditory delusions - but these are fuelled by the many years of actual
verbal abuse.
9011
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access


title: risultato query in una maschera

author: pippo

text:
Come fare per rendere visibile traite una casella di testo il risultato di
una query?
Ho realizzato una query che mi fa il conteggio di alcuni record
adesso vorrei rendere visibile il tutto in una maschera
allo scopo ho utilizzato una casella di riepilogo e tutto funziona bene
purtroppo dovrei poi portare il risultato
in una casella di testo come fare?


title: risultato query in una maschera

author: Roberto dalla campagna

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio
news:gseWe.55359$O6.29...@news3.tin.it...
> Come fare per rendere visibile traite una casella di testo il risultato di
> una query?
In una casella di testo non è possibile.
>
> Ho realizzato una query che mi fa il conteggio di alcuni record
>
> adesso vorrei rendere visibile il tutto in una maschera
Inserisci nella maschera una casella di testo non associata e nella sua
origine controllo usa una funzione SCount (vedi help) per effettuare il
conteggio che ora fai con la tua query.
>
> allo scopo ho utilizzato una casella di riepilogo e tutto funziona bene
> purtroppo dovrei poi portare il risultato
> in una casella di testo come fare?
In una casella di riepilogo puoi usare la tua query come origine riga, ma le
caselle di testo non hanno origine riga, quindi l'unica soluzione è che tu
usa dell funzioni di aggregazione sui dominii (vedi help) come DLookup,
DCount, DSumm ecc. ecc .
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Report dinamico

author: Tom

text:
Ciao a tutti,
ho creato un report, contenente all'interno 7 sottoreport, così sistemati
nel corpo del report:
sottoreport1
sottoreport2
sottoreport3
sottoreport4
sottoreport5
sottoreport6
sottoreport7
vorrei rendere questo report dinamico per poter mantenere n sottoreport in
una pagina senza che, data la lunghezza non conosciuta del sottoreport, il
sottoreport venisse spezzato, ma se raggiungesse la fine della pagina
spostasse il tutto alla nuova pagina e così via.
Attualmente ho risolto impostando una interruzione di pagina tra il 5° e il
6° sottoreport, ma è sempre una soluzione non precisa, in quanto se i primi
4 sottoreport avrebbero una lunghezza di righe tali da superare la capienza
della pagina, il risultato sarebbe veramente scadente, in quanto mi sposta
su unìaltra pagina il seguito dell'ultimo sottoreport, e arrivato
all'interruzione di pagina mi cambia nuovamente pagina, che schifo.... .
Sperando di essere stato chiaro, qualcuno può darmi una mano?
Ciao tommy


title: Report dinamico

author: Riccardo M.

text:
"Tom" <
ar...@libero.it
> ha scritto nel messaggio
news:i5VJd.903$QG6....@twister2.libero.it...

_______________________________
Hai provato impostando "Stampa Sezione Unita" a SI ?
ciao
Riccardo


title: Report dinamico

text:
"Riccardo M." <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:cta61k$1an$1...@news.panservice.it...

si Riccardo ho provato con "Stampa Sezione Unita" a SI , ma dato che il
corpo del report è formato da n sottoreport la soluzione di cui sopra non
funziona.
Qualche altra idea
Ciao Tommy


title: pulsanti di opzione

author: bc

text:
Spiegatemi bene come fare perchè mi si sta fondendo il cervello e non
essendo un esperto è probabile che ciò accada ...
In una form ho due cornici di opzioni : la prima (corniceScelte)  contiene
quattro pulsanti di opzione (opz1, opz2, opz3, opz4).
La seconda (cornice dati) contiene due pulsanti (data1 e data2)
Sul click di un pulsante di comando devo "leggere" quale pulsante è
selezionato e quindi  passare ad un'altra form una data presente in un
textbox non collegato...
(non so se sono stato chiaro...)
Private Sub ant_accettazione_Click() 'anteprima report
On Error GoTo Err_ant_accettazione_Click
    Dim stDocName As String
If Me.CorniceScelte.DefaultValue = 2 Then
    stDocName = "rptaccettazione"
        If Me.CorniceDati.DefaultValue = 1 Then
            'Me.TxtDataX = Now()
        ElseIf Me.CorniceDati.DefaultValue = 2 Then
            Me.TxtDataX = Me.TxtDataX
        ElseIf Me.CorniceScelte.DefaultValue = 1 Then
        stDocName = "RptSituazioneGiornaliera"
ElseIf Me.CorniceScelte.DefaultValue = 3 Then
    MsgBox ("sezione in costruzione")
    'stDocName = "RptSituazioneGiornaliera"
ElseIf Me.CorniceScelte.DefaultValue = 4 Then
    MsgBox ("sezione in costruzione")
    'stDocName = "RptSituazioneGiornaliera"
End If
    DoCmd.OpenReport stDocName, acPreview
Exit_ant_accettazione_Click:
    Exit Sub
Err_ant_accettazione_Click:
    MsgBox Err.Description
    Resume Exit_ant_accettazione_Click
End Sub
...però non funziona ...sembra che legga solo la prima opzione
......................datemi una mano
grazie
bce...@tiscalinet.it


title: pulsanti di opzione

author: Paolo Beltrame

text:
Ciao Cesare,
togli da tutte le righe il .DefaultValue
Es:
If Me.CorniceScelte.DefaultValue = 2 Then
scrivila cosi:
If Me.CorniceScelte = 2 Then
Cosi' come l'hai scritto, il codice ti ritorna
il valore di default del controllo, ovvero il
valore attribuito in fase di apertura maschera,
quindi sempre lo stesso valore.
    Paolo