title: password sbagliata / eliminare tabelle

author: Bruno Campanini

text:
Apocalisse used his keyboard to write :

Prova a dargli una spazzolata così...
===========================
Public Sub DeleteRelAndTbl()
Dim i

Set i = CurrentDb.Relations
Do While i.Count > 0
    i.Delete i(0).Name
Loop

For Each i In CurrentDb.TableDefs
    If Left(i.Name, 4) <> "MSys" Then
        DoCmd.DeleteObject acTable, i.Name
    End If
Next

End Sub
===========================

Bruno

PS
Attenzione che non si torna indietro!


title: password sbagliata / eliminare tabelle

author: Apocalisse

text:
Ciao Bruno,
ho salvato il modulo rinominandolo AutoExec ,
ma sbagliando passaword o cliccando su annulla all'apertura del database, le
tabelle non vengono eliminate.
debbo impostare qualcosa in Strumenti/Riferimenti ?
grazie.

p.s.
ho una copia salvata del database.....ma starņ attento a non sbagliare
password ;)

"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:negm9n$3fq$1...@gioia.aioe.org...
> Apocalisse used his keyboard to write :
>>>
>>> quindi se trovi uno che sa le basi di access (anche meno) le tabelle te
>>> le legge lo stesso
>>>
>>
>>     no.....mi serve una cancellazione totale alla password sbagliata
>> all'apertura del database .
>> grazie lo stesso !
>
> Prova a dargli una spazzolata cosģ...



title: password sbagliata / eliminare tabelle

text:
Apocalisse laid this down on his screen :
> Ciao Bruno,
> ho salvato il modulo rinominandolo AutoExec ,
> ma sbagliando passaword o cliccando su annulla all'apertura del database, le
> tabelle non vengono eliminate.
> debbo impostare qualcosa in Strumenti/Riferimenti ?
> grazie.
>
>
> p.s.
> ho una copia salvata del database.....ma starò attento a non sbagliare
> password ;)

Quando sbagli la password ci sarà un messaggio che ti
comunica qualcosa...

Ci sarà un:
    MegBox "Hai sbagliato password..."
sostituisci quella riga con:
    DeleteRelAndTbl

Autoexec è un'altra roba... macro non VBA che qui
non c'entra niente, ma puoi lasciarla come nome
del Modulo che contoiene DeleteRelAndTbl.

Comunque tutto ciò ti serve poco: hai a che fare
con dei furbi che di questi trucchetti
ne han visti più d'uno.

Quello che hai inventato tu...
intanto anche cancellando Relazioni e Tabelle il
database rimane bello grosso come prima e se non
vi appare nulla il sospetto è legittimo.
Ma se anche risultasse poi striminzito (bisognerebbe
compattarlo on-the-fly e questo porterebbe via
tempo eventualmente rilevabile), come giustificheresti
un database completamente vuoto di tabelle?
Bisognerebbe cancellare solo poche tabelle il che implica
tenere due contabilità separate e indipendenti.

Bruno


title: password sbagliata / eliminare tabelle

text:
grazie !

> Ci sarà un:
>    MegBox "Hai sbagliato password..."
> sostituisci quella riga con:
>    DeleteRelAndTbl
>
> Bruno


title: do while not rs.eof........ loop

author: pierpsoft

text:
Oh, ragazzi non lo so!
Si parla tanto di standard nella programmazione, e quello che è indicato
come codice di esempio negli esempi, lo capisci ed elabori la tua versione
personalizzata... e non va!
Io è un anno e mezzo che scrivo pagine ASP con connessioni a DB tramite
recordset ADODB e so che quando voglio operare con il contenuto di un
recordset faccio un Do while not rs.eof (dove rs=recordset)...Loop e
analizzo ogni singolo record del recorset.
E' vero che dopo aver settato il recordset, i dati vengono salvati
all'interno del recordset. Allora dovrei spostarmi nel primo record del rs
con rs.MoveFirst, e poi dovrei anche contarne i campi rs.Fields.Count...
dopo di ché posso iniziare il mio ciclo Do...Loop? Qualcuno dice di si, ma
io penso che qualcosa non va.  In realtà mi da errore proprio
sull'istruzione DO.. perché?
Il recordset è creato, tant'è vero che creando una query e scrivendo come
SQL la stringa riportata per il rs, la query funziona perfettamente e mi
visualizza una tabella di due record... segno che anche il rs dovrebbe
contenere due recor al suo interno... giusto? Dovrei passare questi due
record per elaborare il risultato nel codice che segue, però l'errore
nell'istruzione DO blocca tutto... avete idea del perché questo robo voglia
così tanto farmi dannare??????
Riporto la mia querystring e il ciclo do-loop
queryStr = "SELECT * FROM OrdiniAcq WHERE OrdiniAcq.Cliente=" & IdCliente &_
" AND ((OrdiniAcq.Bolla='" & NuovaBollaTesto & "') AND (OrdiniAcq.Sel=Yes))"
rs = db.OpenRecordset(queryStr)
    'rs.Fields.Count
        Do while not rs.EOF
            QueryInserimento = "INSERT INTO 'BolleBody' ('idOrdine', 'Sel',
'Lotto', 'PzUnitario', 'QtaOrdine', 'PzTotaleOrdine', 'ImportoIvaOrdine',
'Cliente',
'DescrizOrdine','Bolla','ImponibileOrdineSelezionato','IvaOrdineSelezionato')
VALUES (" & rs("idOrdine") & ", " & rs("Sel") & ", " & rs("Lotto") & ", " &
rs("PzUnitario") & ", " & rs("QtaOrdine") & ", " & rs("PzTotaleOrdine") & ",
" & rs("ImportoIvaOrdine") & ", " & Left(RagSoc, 99) & ", " &
rs("DescrizOrdine") & "," & NuovaBollaTesto & "," &
rs("ImponibileOrdineSelezionato") & "," & rs("IvaOrdineSelezionato") & ")"
            DoCmd.RunSQL QueryInserimento
        Loop
Ciao a tutti, grazie.
Pierp.
pier...@libero.it


title: do while not rs.eof........ loop

author: Alessandro Baraldi

text:
"pierpsoft" <
pier...@libero.it
> wrote in message
news:ASWXe.11112$
9l.3...@twister1.libero.it
> Oh, ragazzi non lo so!
> Si parla tanto di standard nella programmazione, e quello che è indicato
> come codice di esempio negli esempi, lo capisci ed elabori la tua versione
> personalizzata... e non va!
Se non va non ci sono molte strade:
1)Hai commesso un errore
2)Hai commesso un errore
Il fatto di non capire l'errore rende non funzinante il tutto...!
> Io è un anno e mezzo che scrivo pagine ASP con connessioni a DB tramite
> recordset ADODB e so che quando voglio operare con il contenuto di un
> recordset faccio un Do while not rs.eof (dove rs=recordset)...Loop e
> analizzo ogni singolo record del recorset.
>
[CUT]
A proposito di Standard mi permetto di suggerirti alcune attenzioni
che sicuramente non sono solo ESTETICHE, ma che forse in un anno
e mezzo ti sono sfuggite.
1)Innanzitutto per usare la proprietà RecordCount sull'Oggetto
Recordset occorre un MoveLast per aggiornare il BookMark, ma
se il tuo intento è solo quello di verificare l'esistenza di un
Record allora ti basta testare rs.EOF ed uscire....!
Set rs=Db.OpenRecordset.....
If rs.EOF then Exit Sub
Tutto il resto........
2)La costruzione della stringa come stai facendo
funziona se nessuno dei campi è VUOTO altrimenti ciccia..!
Pertanto metti in atto i controlli del caso.
NZ(rs!NomeField,vbnullstring) nel caso di stringa ecc...!
Questo punto però deve essere integrato con il 3 decisamente
importante.
3)Se i campi sono di tipo Testo piuttosto che Data o Numero
la formattazione del Criterio va diversificata APICETTI o #
4)Ricorda che le DATE non vanno inserite nel Formato ANGLOSASSONE
ma ISO, oppure semplicemente invertendo mm/dd.
Saluti
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: do while not rs.eof........ loop

text:
Ciao Alex, grazie di avermi rispolverato la memoria con i 4 punti sugli
standard...
tutto chiaro e ok (avevo già previsto apicetti, formato delle date, ecc
ecc...), ma non mi è chiara una cosa:
>2)La costruzione della stringa come stai facendo
>funziona se nessuno dei campi è VUOTO altrimenti ciccia..!
>Pertanto metti in atto i controlli del caso.
>NZ(rs!NomeField,vbnullstring) nel caso di stringa ecc...!
>Questo punto però deve essere integrato con il 3 decisamente
>importante.
Rigurado a quello a cui mi riferivo con ASP, era un sito in ASP con DB
mysql...
non mi è mai capitato di dover fare i conti con i campi VUOTI... ti
riferisci al fatto che la SELECT con l'asterisco (SELECT * FROM....)
restituisce solo i campi non vuoti?
Ciao P.
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:8f43e2cd4c6ba7fa1b...@mygate.mailgate.org...



title: do while not rs.eof........ loop

text:
"pierpsoft" <
pier...@libero.it
> wrote in message
news:TWXXe.11618$
Jr.1...@twister2.libero.it
> Ciao Alex, grazie di avermi rispolverato la memoria con i 4 punti sugli
> standard...
[CUT]
> Rigurado a quello a cui mi riferivo con ASP, era un sito in ASP con DB
> mysql...
> non mi è mai capitato di dover fare i conti con i campi VUOTI... ti
> riferisci al fatto che la SELECT con l'asterisco (SELECT * FROM....)
> restituisce solo i campi non vuoti?
>
> Ciao P.
Ciao.
No mi riferisco alla Query INSERT che non viene eseguita
poichè non sintatticamente corretta se non viene valutato
il campo Nullo(che spesso esiste) inserito dal rs!NomeCampo.
Ciao



title: do while not rs.eof........ loop

author: fidirico (lavoro)

text:
"pierpsoft" <
pier...@libero.it
> ha scritto nel messaggio
news:ASWXe.11112$9l.3...@twister1.libero.it...
[CUT]
>DoCmd.RunSQL QueryInserimento
Qui non dovrebbe esserci un rs.Movenext?
>Loop
--
Ciao
Galliano.


title: do while not rs.eof........ loop

text:
>>DoCmd.RunSQL QueryInserimento
>
> Qui non dovrebbe esserci un rs.Movenext?
>
>>Loop
In realtà c'è ma non ho riportato tutto il ciclo Do-loop, per semplificare
le cose, dato che in realtà il discorso si ferma prima del ciclo. Ad
esempio, avevo posizionato un rs.MoveFirst per spostarmi al primo record del
rs, ma non me lo accetta... (tutto questo prima del do-loop, inoltre, il
movenext dovrebbe trovarsi prima del loop, non appena dopo il Do, giusto?
Perché il ciclo partirebbe già con il cursore posizionato nel primo record
del recordset, giusto? In realtà non entra neppure all'interno del
Do-Loop...
ciao P.


title: do while not rs.eof........ loop

text:
query = "INSERT INTO BolleHead
(idBolla,NumeroBolla,Data,IdCliente,RagSoc,piva,Indirizzo,cap,localita,TargaAutomezzo,CausaleTrasporto,CCaricati,CResidui,Trasportatore,OraCarico,Porto,Destinazione)
VALUES ('BO200500001','BO200500001','21/9/2005','1','fiori di
cittadella','1111111111111111','porta vicenza, 2','11111','cittadella
(PD)','0','0','0','0','0','16.14','0','Medesima.')"
rs = db.OpenRecordset(query)
questa è l'effettiva stringa sql che eseguo. cos'ha che non va? indico prima
i campi, poi i valori. Ok, daccordo: il campo "BO200500001" si ripete due
volte, ma è solo una coincidenza. uno indica la bolla di provenienza,
l'altro (il primo dei due) va a scriversi in un campo che è anche chiave
primaria.
Ho controllato che non fosse questo campo a incidere negativamente, ma vi
assicuro che nella tabella il valore "BO200500001" non esiste (la tabella è
vuota), per cui il valore che devo andare a scrivere è un valore UNIVOCO
nella tabella. Il campo è di tipo testo, dovendo contenere un dato
alfanumerico...
ciò nonostante, il comando non funziona.
"pierpsoft" <
pier...@libero.it
> ha scritto nel messaggio
news:ASWXe.11112$9l.3...@twister1.libero.it...



title: do while not rs.eof........ loop

text:
"pierpsoft" <
pier...@libero.it
> ha scritto nel messaggio
news:cEeYe.13161$Jr.2...@twister2.libero.it...
[CUT]
Nel tuo codice scrivi proprio:
> rs = db.OpenRecordset(query)
anziché, come andrebbe fatto:
Set rs =db.OpenRecordset(query)     ?
A questo punto ti chiedo: come dichiari i recordset? Hai impostato l'opzione
Option Explicit? Nel post originale parli di recordset ADODB, ma questo č
DAO: hai impostato i giusti riferimenti?
--
Ciao
Galliano.


title: do while not rs.eof........ loop

text:
> A questo punto ti chiedo: come dichiari i recordset? Hai impostato
> l'opzione
> Option Explicit? Nel post originale parli di recordset ADODB, ma questo è
> DAO: hai impostato i giusti riferimenti?
Hai ragione. Per capirci ti mostro tutto il codice, forse ti sarà più chiaro
il tutto... Ho aggiunto un bel po' di commenti, e per non rendere il post
una cosa lunghissima, ho salvato la routine nel seguente file
http://digilander.libero.it/workstation/FLORES/codice.htm
Io sono sempre fermo al solito punto: non mi viene eseguita la query segnata
alla riga 106. Mi viene restituito l'errore 3219 - Operazione non valida
(jeterr40.chm).
La cosa strana è che se imposto l' istruzione query in una query,
l'inserimento funziona perfettamente. Forse tutto sta nella dichiarazione
del recordset... ma allora come devo dichiararlo? Sono un po' in
confusione...
Pierp.


title: do while not rs.eof........ loop

author: fidirico

text:
"pierpsoft" <
pier...@libero.it
> ha scritto nel messaggio
news:3NTYe.16704$9l.4...@twister1.libero.it...

Andiamo con ordine:
1) Un consiglio spassionato che ti do è quello di evitare come la peste la
dichiarazione implicita delle variabili: questo ti eviterà innumerevoli mal di
pancia, oltre a migliorare di molto la leggibilità del tuo codice; malgrado possa
sembrare, non è affatto la stessa cosa scrivere:
 query = "select quello che ti pare...."
anziché (correttamente):
 Dim query as string
 query = "select quello che ti pare ..."
Per essere costretto a fare ciò, scrivi "Option Explicit" in testa al modulo, proprio
sotto "Option Compare Database". Meglio ancora, imposta tale opzione come predefinita
in Strumenti-->Opzioni-->Editor.
2) Perchè hai commentato l'istruzione "Set Rs as DAO.Recordset"? Senza
quell'istruzione il codice non può funzionare. Il recordset si dichiara e si assegna
così, per rimanere al tuo esempio:
 Dim Rs as DAO.Recordset
 Set Rs = Db.OpenRecordset("Select quello che vuoi ....")
Scrivere semplicemente:
 Rs = Db.OpenRecordset("Select quello che vuoi...")
non ha alcun senso: l'errore però non ti viene segnalato perchè, a causa della
mancanza dell'Option Explicit, l'istruzione viene interpretata come se fosse la
dichiarazione implicita di una variabile variant. Ovviamente, come dicevo, occorre
che siano impostati correttamente i riferimenti alle librerie DAO: a partire da
Access 2000 la cosa va fatta a mano, in Strumenti-->Riferimenti.
Comincia col fare queste correzioni e osserva l'effetto che ottieni.
--
Ciao
Galliano


title: do while not rs.eof........ loop

text:
Ciao Galliano,
grazie mille per i consigli. Effettivamente avevo commentato la
dichiarazione del recorset per via di un errore, comunque immagino già che
con la dichiarazione esplicita le cose possano cambiare.
Ora sono stanchissimo e vado a letto. Domani nel pomeriggio sicuramente
troverò il tempo per rivedermi il codice con calma e apportare le giuste
modifiche...
Intanto grazie, poi ti saprò dire come è andata. Ciao Ciao. Pierp.
"fidirico" <
galSENZAMA...@libero.it
> ha scritto nel messaggio
news:6M_Ye.41231$TR5....@news.edisontel.com...



title: do while not rs.eof........ loop

text:
Ciao Galliano,
scusa ma ho provato a togliere il commento sulla dichiarazione esplicita
dell'RS (Dim rs As DAO.Recordset) e mi da errore quando eseguo: "rs =
db.OpenRecordset(query)"
...è per quello che avevo commentato l'esplicitazione dell'oggetto rs.
Errore:
...............................
Errore di compilazione:
Utilizzo non valido di Property
(   OK   )      (     ?     )
...............................
Altra cosa:
sono stufo di dover chiedere informazioni a nastro e andare in giro per la
rete a cercare di capire esempi già fatti... sai consigliarmi qualche libro
in cui venga spiegato abbastanza bene come gestire i recordset e il codice
VB? Ho guardato su
www.sitocomune.com
 ma non so se oltre a spiegare le
maschere, le tabelle, le query e tutto il resto, l'argomento "codice di
programmazione" sia affrontato abbastanza bene... hai qualche dritta?
(Magari in edizione italiana se possibile).
Ciao, Pierp.
----
Private Sub CreaBolla_Click()
On Error GoTo Err_CreaBolla_Click
---[CUT]---
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
query = "SELECT ContatoreBolle.idAnnoBolla, ContatoreBolle.AnnoBolla,"_
& "ContatoreBolle.ContatoreBolleEmesse FROM ContatoreBolle WHERE"_
& "ContatoreBolle.AnnoBolla=Year(Date()) ORDER BY
ContatoreBolle.idAnnoBolla"
Forms!DDebug.Controls!txtDebug = query
rs = db.OpenRecordset(query)
NuovaBollaId = rs(2) + 1
    NuovaBollaNumeroTesto = String(5 - Len(LTrim(RTrim(Str(NuovaBollaId)))),
"0") & LTrim(RTrim(Str(NuovaBollaId)))
    NuovaBollaTesto = "BO" & Left(LTrim(RTrim(Str(rs(1)))), 4) &
NuovaBollaNumeroTesto
    NuovaBollaNumero = Val(Left(LTrim(RTrim(Str(rs(1)))), 4) &
NuovaBollaNumeroTesto)
rs.Close
---[CUT]---
End Sub


title: do while not rs.eof........ loop

text:
"pierpsoft" <
pier...@libero.it
> ha scritto nel messaggio
news:p2f_e.23892$Jr.3...@twister2.libero.it...
> Ciao Galliano,
> scusa ma ho provato a togliere il commento sulla dichiarazione esplicita
> dell'RS (Dim rs As DAO.Recordset) e mi da errore quando eseguo: "rs =
> db.OpenRecordset(query)"
>
> ...è per quello che avevo commentato l'esplicitazione dell'oggetto rs.
>
> Errore:
> ...............................
> Errore di compilazione:
> Utilizzo non valido di Property
> (   OK   )      (     ?     )
> ...............................
Scusa, ma sono tre volte che te lo dico:
Rs = db.OpenRecordset  NON VA BENE!: devi scrivere
Set Rs = db.OpenRecordset... con quel che segue
SET!!
Ok???
A parte questo, non escludo che nel tuo codice (che hai evidentemente ripreso da
qualche altra parte e che non ho ovviamente esaminato nel dettaglio, limitandomi alle
cose più lampanti) ci possa essere qualche altra incongruenza: l'unico modo per
venirne a capo è armarsi di santa pazienza, provare e riprovare tentativo dopo
tentativo senza scoraggiarsi.
> Altra cosa:
> sono stufo di dover chiedere informazioni a nastro e andare in giro per la
> rete a cercare di capire esempi già fatti... sai consigliarmi qualche libro
> in cui venga spiegato abbastanza bene come gestire i recordset e il codice
> VB? Ho guardato su
www.sitocomune.com
 ma non so se oltre a spiegare le
> maschere, le tabelle, le query e tutto il resto, l'argomento "codice di
> programmazione" sia affrontato abbastanza bene... hai qualche dritta?
> (Magari in edizione italiana se possibile).
Io possiedo il testo di Viescas relativo ad Access 2000: è un'ottimo manuale, ma il
codice viene affrontato solo nei capitoli finali perchè, giustamente, lo scopo
principale dell'autore è soprattutto quello di spiegare come è fatto un database ben
strutturato. Una corretta costruzione del database consente di risparmiare chilometri
di codice :))
Comunque, nessun manuale può, a parer mio, sostituire la guida in linea: lì c'è tutto
quello che serve, basta cercarlo con pazienza.
> Ciao, Pierp.
> ----
[CUT]
Un'ultima cosa: è buona norma, partecipando al newsgroup, scrivere dopo il messaggio
al quale si risponde e non prima.
--
Ciao
Galliano.


title: do while not rs.eof........ loop

author: claudia

text:
NEWBIE   Ciao a tutti.
ACCESS 2002
Gestisco tabelle di immagini di circa 2 giga. Quando supero i 2
giga mi si pianta tutto. Per ora risolvo compattando (e a volte
addirittura esportando perche  neppure la compattazione e
consentita). Pero  le mie tabelle continuano a crescere, ho
sempre piu  immagini da inserire. Come posso fare per gestire da
access, quindi senza buttare via tutto quello che ho scritto,
database piu  capienti?
Non sono una programmatrice professionista. Conosco pochi
programmi, smanetto solo con access. Non me la fate difficile,
please! LOL
TIA
--
Postato da Virgilio Newsgroup: scopri i nuovi gruppi
Eros, foto e video a
http://newsgroup.eros.virgilio.it


title: do while not rs.eof........ loop

text:
Come puoi leggere dai miei post di richiesta, non posso dire di essere un
genio di Access...
comunque da quello che mi è parso di capire, tu hai un'unica tabella che
all'interno contiene le immagini (in un campo OLE suppongo...)
> Gestisco tabelle di immagini di circa 2 giga. Quando supero i 2
> giga mi si pianta tutto.
Beh, se ho capito bene, e se la situazione è questa, non è che sia un
bell'affare: sarebbe meglio
gestire le immagini con un link, ovvero: ogni record si riferisce ad
un'immagine, al posto del campo OLE che contiene l'immagine incorporata
nella tabella, salva l'intera immagine, aumentando notevolmente lo spazio
occupato sul DB... ma se al suo posto usi una stringa che contiene la PATH
all'immagine, o un campo del tipo "Collegamento ipertestuale", succede che
tu ti salvi tutte le immagini in una cartella e quando vai a catalogare
l'immagine, salvi solo una stringa (che occupa qualche byte) e poi a livello
Maschera scrivi un codice che si prenda l'immagine esterna al DB e la
visualizzi sulla Maschera...
Altro consiglio che ti posso dare:
1. La prossima volta se vuoi fare una richiesta al NG, non accodarla ad alti
post. Il mio post, ad esempio non centra nulla con il tuo post... se invece
crei un post "non accodandolo" ad altri post, è meglio, e sicuramene altri
utenti ti possono rispondere con più facilità.
Prova a ri-postare la tua domanda e vedrai che tanti altri ti risponderanno!
Ciao e alla prossima.
Pierp.
"claudia" <
clau...@virgilio.it
> ha scritto nel messaggio
news:9096321.1127900607087.JavaMail.newsgroup@sc-ng-1...



title: Modificare proprietà campo Tab Access97 da Visual Basic 6

author: Homer Simpson

text:
Salve a tutti,
in VB6 lavoro con i db di Access 97 ad esempio per creare un campo in
una tab della db:
Set Campo = DB.TableDefs(NomeTabella).CreateField(NomeCampo, dbDouble,
CInt(DimensioneCampo)) però non ho capito come faccio
gDBNegozio.TableDefs(NomeTabella).Fields.Append Campo
Però non ho capito come faccio ad assegnare la proprietà decimali = 2
(Decimal Places) e formato (Format) fisso al campo che devo creare?
--
Marco Bruni
Amministratore Sistemi Windows/Linux
Consulente e Programmatore Informatico
http://www.marcobruni.eu
Partecipa alle attività dell'Associazione Culturale "I Care":
http://www.associazioneicare.org


author: ALESSANDRO Baraldi

text:
"Homer Simpson" <
ho...@simpson.com
> ha scritto nel messaggio
news:fg5406$rtc$2...@balena.cs.interbusiness.it...
> Salve a tutti,
> in VB6 lavoro con i db di Access 97 ad esempio per creare un campo in
> una tab della db:
>
> Set Campo = DB.TableDefs(NomeTabella).CreateField(NomeCampo, dbDouble,
> CInt(DimensioneCampo)) però non ho capito come faccio
> gDBNegozio.TableDefs(NomeTabella).Fields.Append Campo
>
> Però non ho capito come faccio ad assegnare la proprietà decimali = 2
> (Decimal Places) e formato (Format) fisso al campo che devo creare?
>
> --
> Marco Bruni
> Amministratore Sistemi Windows/Linux
> Consulente e Programmatore Informatico
>
http://www.marcobruni.eu
Da quanto ne sò la proprietà DecimalPlaces non è una proprietà dell'Oggetto
Field pertanto non è settabile
come intendi tu...(almeno se ho capito bene) quello che vedi aprendo in
struttrura la tabella dovrebbe essere solo la visualizzazione
che viene ereditata dai controlli Associati come TextBox e Combo, ma di
fatto un Single anche se imposti il DecimalPlaces=2 salva sempre tutti i
decimali previsti per il tipo di Campo(Single)....
Stessa cosa per Format...
Dovrebbero in ogni caso essere propeirtà accessibili in questo modo:
Detto Campo il Field appena creato e salvato....
Campo.properties("Format").Value = "Standard"
Campo .properties("DecimalPlaces").Value = 2
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: sdfsdfsdf

author: Massimo

text:
dsfsdfds
dsf
sdf
sd


title: è possibile confrontare 2 file mdb cercandone le differenze?

text:
ho 2 file contenenti le stesse tabelle solo che con uno il db funziona con
l'altro no, sapete se in access o da codice vb sia possibile metterli a
confronto ottenendo un report che mi dica le differenzedi campi e tipo di
campi fra le 2 tabelle?
Grazie mille.


author: Antonio Biso

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c1ka7b$dbe$3...@lacerta.tiscalinet.it...

Con una serie di cicli sugli insiemi tabledefs e fields
Antonio


text:
> > campi fra le 2 tabelle?
> >
>
> Con una serie di cicli sugli insiemi tabledefs e fields
>
> Antonio
>
hai una bozza di esempio? o chiedo troppo?


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c1lrkk$r53$1...@lacerta.tiscalinet.it...

in vba like
for each tbl in primodb.tabledefs
  trovato = false
  for each tbl1 in secondodb.tabledefs
    if
tbl.name
 =
tbl1.name
 then
      trovato = true
      for each fld in tbl.fields
        trovato_campo = false
        for each fld1 in tbl1.fields
          if
fld.name
 =
fld1.name
 then
              trovato_campo = true
              exit for
          end if
          if not trovato_campo then
             aggiungi
fld.name
 in tabella "campi non trovati"
          end if
        next
      exit for
    end if
  next
  if not trovato then
    aggiungi
tbl.name
 in tabella "tabelle non trovate"
  end if
next
L'ho buttata giů cosě, senza test e di corsa
La routine prevede che il primo db sia master e venga controllato cosa del
master non c'č nel secondo db, ma non viceversa.
Antonio


title: Form_error non viene invocata su errore 3162 Valore nullo su Variant

author: OneEDP

text:
Non riesco con Form_Error (quella che mi causato il crash!) ad intercettare
l'errore di assegnazione di un campo nullo (campo di un recordset in bindind
collegato via odbc ed editabile).
L'errore viene restituito subito dopo l'evento ADO  del tipo
Private Sub mrstDettaglio_WillChangeField _
    (ByVal cFields As Long, ByVal Fields As Variant, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
non sono riuscito ad intercettarlo in nessun modo.
Speficico che sul db2 non ho alcuna possibilit� di modificare simil
chekvalue.
Che posso fare.
Spero di essere stato chiaro
Grazie a voi tutti.
Daniele


text:

Che dirvi... ora FOrm_Error ha ripreso il funzionamento...
Access non brilla certo di stabilit�...


title: inviare E-Mail da Access con Windows Mail

author: Simone Calligaris

text:
Qualcuno ha risolto il problema dell'invio posta elettronica tramite Windows
Mail?
Ho cercato sul web ma senza grandi risultati.
Saluti a tutti.


text:

Se WM è il Client di posta Predefinito, puoi usare ShellExecute o
ShellExecuteEx passando la stringa di invio Mail...!
Problema è che non puoi definire Allegati.
Purtroppo Wm come era MsO prima non sono dotati di interfaccia OLE,
quindi per usarli si deve ricorrere alle sue API.......... cosa che a
mio parere
non è nemmeno proponibile.
Alternativa è provare con MAPI... nel mio sito trovi una Classe che
usa MAPI, se vuoi provala.
@Alex


title: Come modificare l'ordine di lettura schede lan?

author: RobertoA

text:
Quando creo un nuovo record, uso memorizzare alcune informazioni
compreso l'ip address del pc che ha avviato la procedura di creazione
nuovo record, all'interno di alcuni campi del record stesso

Uso questo codice
-----------------------------
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal
wVersionRequired&, lpWSAData As WinSocketDataType) As Long

Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
-----------------------------
Function GetIP() As String
     Dim IP$, DNS$, host$, x As Integer
     Dim GetComputer As String
     Dim Result%
     Dim LoBy%, HiBy%
     Dim SocketData As WinSocketDataType

     Result = WSAStartup(&H101, SocketData)
     If Result <> 0 Then
         MsgBox "Errore in winsock.dll", , "WINSOCK ERROR"
         End If

     x = 5
nt:
     IP = HostByName$(GetComputer, x)

     If Len(IP) = 0 And x >= 0 Then
         x = x - 1
         GoTo nt
         End If

     GetIP = IP
     CleanSockets
     End Function
--------------------------------
Private Sub CleanSockets()
    Dim Result&
    Result = WSACleanup()
    If Result <> 0 Then
       MsgBox "Errore in winsock.dll", , "WINSOCK ERROR"
      End If
End Sub
--------------------------------

Il problema e' che spesso, l'indirizzo restituito e' uno tra quelli
disponibili per le schede rete del pc, e non e' detto sia sempre del
tipo 192.168.1.xxx
E' possibile che la funzione sopra restituisca un 172.20.20.45 perche'
la postazione ha anche una seconda scheda lan

E quindi la domanda e': come fare per 'ordinare' le schede lan pc in
modo che la funzione sopra mi restituisca sempre un indirizzo del tipo
192.168.1.xxx  ?


author: BFS

text:

prova questa funzione

Public Function getIP()

     Dim objWMI As Object
     Dim objQuery As Object
     Dim objQueryItem As Object
     Dim vIpAddress

     Dim ipTarghet As String
     ipTarghet = "192.168.1"

     Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
     Set objQuery = objWMI.ExecQuery("Select * from
Win32_NetworkAdapterConfiguration Where IPEnabled = True")

     For Each objQueryItem In objQuery

         For Each vIpAddress In objQueryItem.ipaddress
             If InStr(1, vIpAddress, ipTarghet) > 0 Then
                 Debug.Print vIpAddress
             End If

         Next
     Next

End Function

ti restituirà solo l'ip che corrisponde al tipo di rete che hai
impostato in iptarghet... 192.168.1

ad ogni modo io non memorizzerei l'ip...visto che magari qualcuno è in
dhcp o che in futuro in azienda possono cambiare le impostazioni di rete.
memorizzerei host e nome utente

BFS


text:
Il 10/01/2023 08:11, BFS ha scritto:
> Public Function getIP()
>
>      Dim objWMI As Object
>      Dim objQuery As Object
>      Dim objQueryItem As Object
>      Dim vIpAddress
>
>      Dim ipTarghet As String
>      ipTarghet = "192.168.1"
>
>      Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
>      Set objQuery = objWMI.ExecQuery("Select * from
> Win32_NetworkAdapterConfiguration Where IPEnabled = True")
>
>
>      For Each objQueryItem In objQuery
>
>          For Each vIpAddress In objQueryItem.ipaddress
>              If InStr(1, vIpAddress, ipTarghet) > 0 Then
>                  Debug.Print vIpAddress
>              End If
>
>
>          Next
>      Next
>
> End Function

Si certo, pc e utente gia' vengono registrati, oltre all'ip, si sa mai
In realta' non l'ho mai usato nel senso che non e' mai servito a
qualcosa praticamente, ma che alcuni pc dentro la stessa sottorete
registrassero 192.168.xxx.yy ed altri 177.92.xx.yy mi urtava l'estetica  :)


text:
> ad ogni modo io non memorizzerei l'ip...
>visto che magari qualcuno è in
> dhcp o che in futuro in azienda possono cambiare le impostazioni di rete.

Già ... e c'è un'altra casistica svantaggiosa: ditte che utilizzano i programmi via RDP.

Saluti


title: Visualizzare mese corrente query

text:
Salve avendo una query con un campo data di queto formato: Giovedi 11
Dicembre 2003;e la query è in visualizzazione in una maschera continua
vorrei poter avere quando apro la amaschera visualizzare tutti i record del
mese anno corrente in questo caso dicembre 2003 ,è tramite un altro pulsante
visualizzare tutti i record di tutti gli anni passati......si puo
realizzare.?!
--
Grazie dei vostri conisgli ,
Gianni_B


title: Visualizzare mese corrente query

text:
"Gianni_B" <
gia...@bluewin.ch
> wrote in message
news:3fd87385$
1...@news.bluewin.ch
> Salve avendo una query con un campo data di queto formato: Giovedi 11
> Dicembre 2003;e la query è in visualizzazione in una maschera continua
> vorrei poter avere quando apro la amaschera visualizzare tutti i record del
> mese anno corrente in questo caso dicembre 2003 ,è tramite un altro pulsante
> visualizzare tutti i record di tutti gli anni passati......si puo
> realizzare.?!
Si.
Per il mese corrente occorre inserire nei criteri:
Month(Tuadata)=Month(Now()) AND Year(Tuadata)=Year(Now())
Per la 2° togli la condizione WHERE dalla sintassi SQL..o
invece che NOW() fai un riferimento dinamico ad una TextBox
che popoli con la data attuale ed inserisci il controllo
di validità sul dato passato.!
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Access e Project

author: Uncle John

text:
Dovrei realizzare un collegamento tra un db Access e un progetto
realizzato con MS Project.
Qualcuno saprebbe dirmi dove posso trovare del codice da studiare per
gestire il collegamento e il file .mpp via VB/VBA?
Grazie.
UJ.


title: Password su un bottone di comando

author: Geinarch

text:
Ciao!
come faccio a mettere una password su un bottone di comando su una maschera?
Paolo.


title: Password su un bottone di comando

author: Gabriele Bertolucci

text:
> come faccio a mettere una password su un bottone di comando su una
> maschera?
Ogni giorno leggo richieste sempre più strane.
Vorresti mettere una textbox sopra un command? Dentro un command?
Mi sa che ci vuole l'APIcultore.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it


title: Password su un bottone di comando

author: MA

text:

se il tuo pulsante apre una maschera
  Dim stDocName As String
    Dim stLinkCriteria As String
    If InputBox("chi sei?") = "ciao" Then
    stDocName = "tblFattura"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Password su un bottone di comando

text:
Perchè invece di pensare al singolo Pulsante non si deve imparare
a vedere l'esigenza nel suo insieme...???
Se invece di gestire la PWD sul Comando gestisci una PWD
sull'applicativo
non diventa tutto meno complesso...?
Se quel povero "cristo" deve premere quel comando 10 volte non vorrai
fargli digitare 10 volte la PWD...?
Fossi io ti insulterei...!
@Alex


title: Password su un bottone di comando

author: luigi onofrio

text:
Gabriele Bertolucci ha scritto:
> > come faccio a mettere una password su un bottone di comando su una
> > maschera?
> Ogni giorno leggo richieste sempre più strane.
> Vorresti mettere una textbox sopra un command? Dentro un command?
> Mi sa che ci vuole l'APIcultore.
presente!
ma che dovrei fare?
di api "ligustica mellifera" me ne intendo, ma del resto non ne ho mai
trattate.
:-=)))))
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Password su un bottone di comando

text:
Alessandro Baraldi ha scritto:



> @Alex
potrebbe anche essere che la pw su quel pulsante deve condizionare solo
l'accesso a qualche modifica o altro un po rischioso non intaccando il
resto del DB.
a volte è comodo e serve.



title: Password su un bottone di comando

author: Alessandro Baraldi

text:
potrebbe anche essere che la pw su quel pulsante deve condizionare solo
l'accesso a qualche modifica o altro un po rischioso non intaccando il
resto del DB.
a volte è comodo e serve.
Direi che abbiamo concetti molto personali e differenti su questo.
luigi
Saluti
@Alex


title: Password su un bottone di comando

author: Giovanni Matasci

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1141382830.6...@p10g2000cwp.googlegroups.com...



luigi
Saluti
@Alex
Salve ti consiglio di consultare il sito comune
General 6.72 Semplice esempio di form per la richiesta di Login
ed abbinare questa procedura, modificata al tuo bottone di comando
saluti
giovanni


title: controllo librerie e cartelle predefinite - fnestra di benvenuto

author: Matteo F

text:
Ciao a tutti!
Il mio database usa delle librerie tra le quali un vidtc3 non molto
diffuso. Vorrei che all'avvio il database esegua un controllo delle
librerie in una finestra di tipo "benvenuto" e magari eliminare il
msgbox di errore che indica la mancanza della libreria.
E' possibile ad esempio fare in modo che tutte le libreire presenti in
una cartella (che distribuisco insieme al database) vengano copiate in
windows/sistem32?
Mi piacerebbe inoltre che nella stessa finestra di benvenuto mi compaia
un campo che indichi la directory dal quale il database è eseguito.
Questo perchè il database prevede dei collegamenti ole a file.
L'utente deve quidi sapere che se vuole aprire quei file questi devono
trovarsi in una certa cartella predefinita.
Spero di essermi spiegato.
Grazie per l'attenzione come sempre!


author: Roberto da Parma

text:
"Matteo F" <
matteo....@gmail.com
> ha scritto nel messaggio
news:1163939282....@f16g2000cwb.googlegroups.com...

Ti consigliereri allora di caricare la libreria solo quando ne devi fare uso
con del codice VBA...mettendola nella cartella d'installazione del
programma...
(vedi alcuni esempi di Lebans)
In alternativa durante l'installazione del programma o alla prima apertura
copi le dll che ti occorrono nella cartella system32...se XP (trovi esempi
di manipolazioni dei file qui
www.sitocomune.com
 ,
www.alessandrobaraldi.it

,
www.accessgroup.it
 ) se no anche qui ti devi scrivere un pochino di codice
per riconoscere il sistema operativo e quindi poi copiarle nelle cartelle
appropriate.
Ciao
Roberto


text:
Roberto da Parma ha scritto:

Capito grazie!
In ogni caso penso di risolvere il problema creando file .mde che da
quanto ho capito include le librerie. grazie ancora


text:
Matteo F wrote:
> Roberto da Parma ha scritto:
>
>> Ciao
>> Roberto
> Capito grazie!
> In ogni caso penso di risolvere il problema creando file .mde che da
> quanto ho capito include le librerie. grazie ancora
Mi sa che hai capito male...
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ek22rt$tp6$1...@tdi.cu.mi.it...

Staremo a vedere...nel caso troveremo un repost :-)))
Ciao
Roberto


text:
Roberto da Parma wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:ek22rt$tp6$1...@tdi.cu.mi.it...
>> Matteo F wrote:
>>> Roberto da Parma ha scritto:
>>>
>>>> Ciao
>>>> Roberto
>>> Capito grazie!
>>> In ogni caso penso di risolvere il problema creando file .mde che da
>>> quanto ho capito include le librerie. grazie ancora
>> Mi sa che hai capito male...
>> --
>>
> Staremo a vedere...nel caso troveremo un repost :-)))
>
> Ciao
> Roberto
L'mde non registra le librerie. Se non ci sono nella posizione in cui li hai
indicati
va in errore.
Per fare la registrazione devi usare un Tool di installazione
Lui cerca le referenze, se le carica e le posiziona dove sere registrandole



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ek6m7k$hkb$1...@tdi.cu.mi.it...

D'accordissimo....forse anche più sicuro e senza incappare in altri tipi
d'errore...
Ciao
Roberto


text:
Ho risolto usando il programmino free "install creator" così definisco
di copiare le librerie che allego nella cartella di sistema \system32.
Peccato che dove ho provato a eseguire l'installazione non mi
permettono di fare modifiche alle cartelle di sistema (è un pc di una
grande ethernet) però non importa, si arrangiano.
Grazie a tutti


title: Nessuno mi risponde?

text:
Sto cercado di risolvere problemi con MDAC 2.7 italiano
Dopo l'installazione l'help in linea dei soli oggetti ADODB non č piů
disponibile (schermata in blank).
Gli altri oggetti sono reperibile nella guida in linea.
Aiutatemi!
One.Emmedi


title: DLOOKUP

author: Claudio

text:
Ho form principale con  i campi
    -articolo
    -data di validita'
All'interno di questo un subform con i seguenti campi
   - articolo (nascosto e key di legame con il form principale)
   - componente (articolo materiali componenti per fare l'articolo
principale)
   - qta (quantita' del  componente)
Una tabella Listino_Acquisto con i campi
- Componente
- Data_Validita
Nella subform ho messo un campo Prezzo_Unit che viene valorizzato con una
DLOOKUP .
Pero' non riesco a ottenere quello che vorrei.
Cioč per ogni Componente prendere il giusto prezzo
Se non metto la selezione per data funziona ma mi posiziona il valore
indipendentemente dal codice Componente cioč utilizza come key il codice
Componente che ho in edit nella subform
La dteData_Listino mi si valorizza correttamente pero' chiedo si puo' fare
una Dlookup con un filtro multiplo "...AND..."
Accetto anche altre soluzioni
grazie
Claudio
************************************************************
Dim strFiltro As String
Dim dteData_validita As Date
Dim dteData_Listino As Date
dteData_validita = Forms![Distinta_base_Header]!Data_validita_listino
dteData_Listino = DMax("[data_validita]", "Listino_acquisti", _
    "[data_validita] <= #" & dteData_validita & "#")
   strFiltro = "[Codice_Articolo] = '" & Me!Componente & "'" & " AND
[data_validita] = #" & dteData_Listino & "#" & ""
 Me!prezzo_unitario = DLookup("[Prezzo_Vendita]", "listino_acquisti",
strFiltro)
*********************************************************************


title: DLOOKUP

author: giorgio rancati

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:cQb6e.38299$IN.7...@twister2.libero.it...

Ciao Claudio,
le AND si possono usare nel filtro della Dlookup.
Credo che il problema sia dovuto al formato della data.
In Sql le date vanno passate nel formato anglosassone mm/dd/yyyy o meglio
ancora ne formato yyyy/mm/dd
Prova a modificare la tua StrFiltro in questo modo
---------
strFiltro = "[Codice_Articolo] = '" & Me!Componente & "'" & " AND
[data_validita] = #" & Format(dteData_Listino,"yyyy/mm/dd") & "#"
--------
Ciao Giorgio


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:42594d1e$0$8074$5fc...@news.tiscali.it...

C'č ancora qualche cosa che non va pero' non sembra la strada giusta.
Mi sapresti indicare come fare a risolvere l'altro problema e cioč
La subform č tipo tabella
 Componente   Descrizione    Qta        Prz.Unit (quello da recuperare)
   Cod0001      tavolo            3             30,00
   Cod0009     cassetto         3             30,00  ERRORE deve darmi il
suo prezzo
grazie Claudio


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:6ac6e.57272$zZ1.1...@twister1.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
> news:42594d1e$0$8074$5fc...@news.tiscali.it...
> >
> > "Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
> > news:cQb6e.38299$IN.7...@twister2.libero.it...
[CUT]
> C'è ancora qualche cosa che non va pero' non sembra la strada giusta.
hai modificato il formato data sia per la Dlookup sia per la Dmax ?
> Mi sapresti indicare come fare a risolvere l'altro problema e cioè
> La subform è tipo tabella
>  Componente   Descrizione    Qta        Prz.Unit (quello da recuperare)
>    Cod0001      tavolo            3             30,00
>    Cod0009     cassetto         3             30,00  ERRORE deve darmi il
> suo prezzo
bisognerebbe sapere se il prezzo lo devi memorizzare nella tabella o se lo
devi solo visualizzare (credo sia la seconda, Prezzo_Unit è un controllo non
associato giusto ?) e da che evento esegui il tuo codice.
Ciao Giorgio


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:42595b11$0$8085$5fc...@news.tiscali.it...

Per le date tutto ok ho modificato in tutte le parti il formato come mi hai
detto tu
Grazie 1000000
Esatto il campo Prezzo_unit è controllo non associato a tabella.
Il codice lo faccio eseguire al ON CHANGE del campo QTA
Pero' adesso che mi dici cosi' mi potrebbe servire piazzarlo anche in una
tabella cosi' lo avrei a disposizione per report ecc ecc
Risolviamo una cosa alla volta, il subform che funzioni e che mi mantenga
per ogni componente il suo giusto prezzo, poi se non ti è di disturbo e mi
dai 2 dritte per posizionarlo in una tabella
grazie ancora
ciao


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> wrote in message
news:24d6e.57409$zZ1.1...@twister1.libero.it...

 Dimenticavo Ogni volta che esco e entro nel form il dato si cancella,
vorrei che restasse sempre visualizzato, perche' poi su quello faro' dei
totali cioè moltiplichero' la qta X prez.unit e alla fine faro' il totale di
tutti i componenti.
ricioao


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:s6d6e.38441$IN.7...@twister2.libero.it...
[CUT]
>
>  Dimenticavo Ogni volta che esco e entro nel form il dato si cancella,
> vorrei che restasse sempre visualizzato, perche' poi su quello faro' dei
> totali cioè moltiplichero' la qta X prez.unit e alla fine faro' il totale
di
> tutti i componenti.
> ricioao
>
certamente, è un controllo non associato.
Dunque... bisogna far eseguire il calcolo in modo automatico......
Inserisci il tuo codice sottoforma di funzione nel  modulo di classe della
maschera.
------------------
Function LeggiPrezzo(Byval varComponente as Variant) AS Variant
Dim strFiltro As String
Dim dteData_validita As Date
Dim dteData_Listino As Date
If IsNull(varComponente)=True Then
   LeggiPrezzo=0
   Exit Function
End if
dteData_validita = Forms![Distinta_base_Header]!Data_validita_listino
dteData_Listino = DMax("[data_validita]", "Listino_acquisti", _
    "[data_validita] <= #" & Format(dteData_validita,"yyyy/mm/dd") & "#")
   strFiltro = "[Codice_Articolo] = '" & Me!Componente & "'" & _
" AND [data_validita] = #" & Format(dteData_Listino,"yyyy/mm/dd") & "#"
LeggiPrezzo=DLookup("[Prezzo_Vendita]", "listino_acquisti",strFiltro)
End Function
--------------------
(non l'ho testata ma dovrebbe andare)
poi come origine controllo di prezzo_unitario metti
----------
=LeggiPrezzo([Componente])
----------
se invece vuoi memorizzare il prezzo in tabella non serve la funzione, va
bene il tuo codice così com'è, solo cheio  lo eseguirei dall'evento dopo
aggiornamento di Componente.
Ciao Giorgio


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:425962a5$0$31962$5fc...@news.tiscali.it...

Grazie Giorgi oadesso ho usato una tabella per registrare le info.
Ultima chicca è per il "refresh"
Cioè come ti dicevo c'e' un form principale dove ho l'articolo e
Forms![Distinta_base_Header]!Data_validita_listino
Come posso fare che al variare di quest'ultima mi si aggiornano tutti i
records del sub-form e piu' precisamente il suo campo data (ho riportato
sulla tabella del sunform un campo data e un campo prezzo)
 Me!data_validita = dteData_validita
Questa istruzione l'ho messa nel codice che mi va a prendere il
prezzo_unitario; quindi con il "refresh" oltre che a portare l'aggiornamento
dei campi data servirebbe anche il refresh del prezzo
ciao


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:UTf6e.38727$IN.7...@twister2.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
> news:425962a5$0$31962$5fc...@news.tiscali.it...
> >
> > "Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
> > news:s6d6e.38441$IN.7...@twister2.libero.it...
> > [CUT]
[CUT]
> >
> Grazie Giorgi oadesso ho usato una tabella per registrare le info.
> Ultima chicca è per il "refresh"
> Cioè come ti dicevo c'e' un form principale dove ho l'articolo e
> Forms![Distinta_base_Header]!Data_validita_listino
> Come posso fare che al variare di quest'ultima mi si aggiornano tutti i
> records del sub-form e piu' precisamente il suo campo data (ho riportato
> sulla tabella del sunform un campo data e un campo prezzo)
>  Me!data_validita = dteData_validita
> Questa istruzione l'ho messa nel codice che mi va a prendere il
> prezzo_unitario; quindi con il "refresh" oltre che a portare
l'aggiornamento
> dei campi data servirebbe anche il refresh del prezzo
>
Ciao Claudio,
dipende da come e quando vuoi aggiornare i prezzi,
ad ogni cambio data della maschera principale e solo per il prodotto
selezionato ?
ad ogni cambio codice della maschera principale ?
valuta la possibilità di farlo con una query di aggiornamento, poi fai il
requery della sottomaschera.
Ciao Giorgio


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:425b82df$0$8089$5fc...@news.tiscali.it...

Ciao Giorgio
Ma la dritta che mi hai dato con la DLOOKUP va bene
l'ho sistemata che mi prende il valore di esatta competenza in funzione
dell'articolo e della data
L'unico problema è che :
1)ho inserito nella tabella legata al subform il campo data e il campo
valore
2)per non stare a scrivere a manina per ogni record del subform la data di
validita' articolo ho cercato di fare in modo che al variare della data nel
form principale questa mi cambiasse il campo data di TUTTI i record presenti
nel subform pero' mi aggiorna solo il primo (credo quello attivo)
Private Sub calend_sped_Click()
     Form!Distinta_Base_Componente!Data_validita = Data_validita_listino
End Sub
Se si potesse fare in modo ch emi aggiorna tutti i record in un solo click
sono a cavallo
Alternativa fare un UPDATE che tramite la variabile key codice_articolo mi
aggiorna la data
Ho provato ma cannoin pieno la sintassi per eseguire l'istruzione sql
(tenendo conto dell'articolo come campo nella where e la data nel set...)
ciao


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:VTU6e.42144$IN.7...@twister2.libero.it...
>pero' mi aggiorna solo il primo (credo quello attivo)
>Private Sub calend_sped_Click()
>     Form!Distinta_Base_Componente!Data_validita = Data_validita_listino
>End Sub
>Se si potesse fare in modo ch emi aggiorna tutti i record in un solo click
>sono a cavallo
Non č una soluzione molto bella,  in ambiente di rete rallenta molto.
Comunque prova cosě
-------------
Private Sub calend_sped_Click()
    Form!Distinta_Base_Componente.Recordset.Movefirst
    While Not Form!Distinta_Base_Componente.Recordset.EOF
          Form!Distinta_Base_Componente!Data_validita =
Data_validita_listino
          Form!Distinta_Base_Componente.Recordset.Movenext
    Wend
End Sub
---------------
Ciao Giorgio


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:425c4f02$0$22807$5fc...@news.tiscali.it...

Il campo Data_validita_listino  lo valorizzo con un bottoncino che mi fa
aprire un calendario
*********************************************
                       Private Sub calend_sped_Click()
                                Data_validita_listino =
bafCalendar(Data_validita_listino)
                      End Sub
*********************************************
 e selezione il giorno (oppure scrivo a mano la data)
Poi ho messo l'evento after update del campo Data_validita_listino
***************************************************************
Private Sub Data_validita_listino_AfterUpdate()
   Form!Distinta_Base_Componente.Recordset.MoveFirst
    While Not Form!Distinta_Base_Componente.Recordset.EOF
       Form!Distinta_Base_Componente!Data_validita = Data_validita_listino
        Form!Distinta_Base_Componente.Recordset.MoveNext
    Wend
End Sub
************************************************************
Ma ottengo il seguente errore
Run-Time error '438'
Object doesn't support this property or method
il debug
me segnala l'errore di prima su questa istruzione
          Form!Distinta_Base_Componente.Recordset.MoveFirst
Ciao


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:YPe7e.63381$zZ1.1...@twister1.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
> news:425c4f02$0$22807$5fc...@news.tiscali.it...
> >
> > "Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
> > news:VTU6e.42144$IN.7...@twister2.libero.it...
> >
[CUT]
> Ma ottengo il seguente errore
>
> Run-Time error '438'
> Object doesn't support this property or method
>
> il debug
> me segnala l'errore di prima su questa istruzione
>           Form!Distinta_Base_Componente.Recordset.MoveFirst
>
Può essere :-)
ho buttato giù il codice non sapendo bene cosa fosse
*Distinta_Base_Componente*
se [Distinta_Base_Componente] è il nome dell'oggietto che contiene la
sottomaschera prova così
------------
Form!Distinta_Base_Componente.Form.Recordset.MoveFirst
------------
Ciao Giorgio


title: DLOOKUP

author: Oscar Manfredini

text:
"giorgio rancati"
Bene Giorgio: il fatto che tu posti a quest'ora significa che non te ne
frega nulla del calcio in TV (Juventus stasera).
Un punto in più per te!     :-))
Ciao.


title: DLOOKUP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:425d7ef0$0$11720$5fc...@news.tiscali.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> messaggio news:425d7e78$0$11701$5fc...@news.tiscali.it...
>>
>> "Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
>> news:YPe7e.63381$zZ1.1...@twister1.libero.it...
>> >
>> > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in
> message
>> > news:425c4f02$0$22807$5fc...@news.tiscali.it...
>> > >
>> > > "Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
>> > > news:VTU6e.42144$IN.7...@twister2.libero.it...
>> > >
>
> di conseguenza modifica anche le altre righe che manipolano il Recordset.
>
> Giorgio
>
>
Perfetto
se mi consenti la battuta, spero non troppo blasfema visto il periodo
"... avemus Papa ..."
grazie 1000


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:Ukf7e.63448$zZ1.1...@twister1.libero.it...
[CUT]
> >
>
> Perfetto
>
> se mi consenti la battuta, spero non troppo blasfema visto il periodo
> "... avemus Papa ..."
>
> grazie 1000
>
;-)
Buona serata
Giorgio


title: DLOOKUP

text:
"Oscar Manfredini" <
osca...@libero.it
> ha scritto nel messaggio
news:1ff7e.44427$IN.7...@twister2.libero.it...

LOL :-)
Ecco perchè c'è poco movimento negli Ng.
ps. guardo solo l'Italia ai mondiali o agli europei
Buona serata
Giorgio


title: DLOOKUP

text:
Scusa la rottura Giorgio
Pensavo di aver finito con sta form, ma ho ancora un prob.
Qui sotto ti invio il codice che ho legato al cambio del campo qta e
funziona e va bene che resti
Pero' vorrei far eseguire il calcolo del totale anche al famoso cambio data,
ho provato a metterlo nel sub form al cambio di dati, refresh vari ma niente
grazie ciao
Private Sub Qta_AfterUpdate()
Dim strFiltro As String
Dim dteData_validita As Date
Dim dteData_Listino As Date
    (Queste 2 righe possiamo eliminarle con il fatto che adesso
l'aggiornamento funziona)
 dteData_validita =
Format(Forms![Distinta_Base_Header]!Data_validita_listino, "yyyy/mm/dd")
 Me!data_validita = dteData_validita
  dteData_Listino = DMax("[data_validita]", "Listino_acquisti", _
    "[data_validita] <= #" & Format(dteData_validita, "yyyy/mm/dd") & "#" &
" AND
     [Codice_Articolo] = '" & Me!Componente & "'")
  dteData_Listino = Format(dteData_Listino, "yyyy/mm/dd")
  strFiltro = "[Codice_Articolo] = '" & Me!Componente & "'" & " AND
[data_validita] = #" &
                  Format(dteData_Listino, "yyyy/mm/dd") & "#" & ""
 Me!Prezzo_Vendita = DLookup("[Prezzo_Vendita]", "listino_acquisti",
strFiltro)
 Me!Totale = Me!Qta * Me!Prezzo_Vendita
  Me.Refresh
End Sub


title: DLOOKUP

text:
"Claudio" <
cld...@yahoo.it
> ha scritto nel messaggio
news:vvg7e.63706$zZ1.1...@twister1.libero.it...

Ciao Claudio,
ricordi la sub per aggiornare la data ?
modificala così
-----------
Private Sub calend_sped_Click()
    Form!Distinta_Base_Componente.SetFocus
    Form!Distinta_Base_Componente!Qta.SetFocus
    Form!Distinta_Base_Componente.Recordset.Movefirst
    While Not Form!Distinta_Base_Componente.Recordset.EOF
          Form!Distinta_Base_Componente!Data_validita =Data_validita_listino
Form!Distinta_Base_Componente!Qta.Text=Form!Distinta_Base_Componente!Qta.Val
ue
          Form!Distinta_Base_Componente.Recordset.Movenext
    Wend
End Sub
----------
La modifica della proprietà Text di un controllo scatena l'evento
AfterUpdate()
Ciao Giorgio


title: Spostare file da una cartella ad un'altra massivamente a tutti i record di una maschera

author: Graziella Ferrara

text:
Buon pomeriggio,
sono una new entry, spero possiate aiutarmi!
Ho creato un primo codice per spostare file da una directory ad un'altra, questi file, da una cartella generale vanno a finire ognuno nella cartella di ogni cliente.
Ho trovato il codice per spostarli cliccando sul pulsante di ogni cliente.
per velocizzare l'operazione vorrei creare un pulsante unico per spostare i file massivamente in ogni cartella cliente. Ho quindi creato una maschera che ha come origine dati una query dove sono elencati tutti i clienti, e questo pulsante generale dove ho inserito questo codice:

Private Sub Comando6_Click()
Dim CN As String
    CN = [Cognome e Nome]
 Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
  Dim rs                  As DAO.Recordset
     Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        Do Until rs.EOF

    Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \"
    NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTII\DOCUMENTI \" & CN & "\"
    FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
    DoEvents
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing
  End Sub

solo che rimane sempre sul primo record e non scorre in avanti... perchè? potete aiutarmi?
Grazie


text:

intanto mi pare che quel valore CN non cambi mai non essendo valorizzato
dentro il ciclo

mi aspetterei dentro il tuo ciclo qualcosa tipo

CN=rs.fields("nomecliente")

inoltre se non leggo male perc e newperc sono identici quando vai a fare
il movefile

BFS

--
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


text:
Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?

@Alex


text:
Il giorno lunedì 2 maggio 2022 alle 11:53:01 UTC+2 @Alex ha scritto:
> Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?
>
> @Alex
Buongiorno,
volevo precisare che, essendo principiante, il codice citato mi è stato fornito da un utente del forum i programmatori, dato che leggo risposte dalle stesse persone dell'altro forum, continuerò a parlarne dall'altra parte.
Grazie.


text:
Il giorno lunedì 2 maggio 2022 alle 11:53:01 UTC+2 @Alex ha scritto:
> Ho già letto questo stesso POST in un FORUM... stai già ricevendo aiuto... in cosa trovi ancora difficoltà da ripubblicare nuovamente...?
>
> @Alex

Quale Forum?

Saluti


text:

Avevo postato sul forum i Programmatori, con il quale ho risolto grazie all'aiuto di alcuni utenti. Vi posto comunque il codice che magari può esservi utile

Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click
Dim CN As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim rs                  As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("elenchi", dbReadOnly)
If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        Do Until rs.EOF
    CN = rs![CognomeNome]
    Perc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\1.DOCUMENTI DA IMPORTARE\"
    NewPerc = "\\192.168.0.199\GESTIONALE_VA\CLIENTI\GESTIONE ATTIVITA\GESTIONE CLIENTI\DOCUMENTI DIGITALI\CLIENTI\" & CN & "\"
    FSO.MoveFile Perc & "*" & CN & ".*", NewPerc
    DoEvents
    rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
Exit_Comando6_Click:
    Exit Sub

Err_Comando6_Click:
    MsgBox ("Non esistono documenti per questo cliente")
    Resume Next
    End Sub

Buona giornata


title: campo nullo eseguendo query

author: BGM

text:
Prima di tutto descrivo brevemente la struttura:
n pratica ho un questionario da compilare dove mettere delle votazioni sulla
qualità dei prodotti ,il servizio, competitività , post vendita etc..i voti
sono ins.,suff.,buono,ottimo.
Ho usato dei gruppi opzione valorizzando il voto da 1 a 4.
In pratica per ogni voce del questionario ho creato un campo numerico.
Ora per fare dei report sul questionario per capire quanti clienti hanno
votato insuff. il supporto tecnico o la qualità del prodotto ho preparato
delle query che eseguono dei conteggi.
Il problema è che le query mi restituiscono valore nullo se non trova la
corrispondenza nel campo per un record ( Es. nessun cliente vota insuff.)
Come posso fare per farmi restituire almeno un valore ( almeno zero).
In pratica nel conteggio mi piacerebbe che venisse fuori zero.
Sarei grato a chiunque volesse aiutarmi.
Grazie.
Ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: campo nullo eseguendo query

author: Sergio MAZZA

text:
"BGM" <
betti...@libero.it
> ha scritto nel messaggio
news:213Z255Z114Z210...@usenet.libero.it...

Controlla nell'help la funzione NZ()...
Ciao.
--
Sergio MAZZA


title: campo nullo eseguendo query

text:
Il 05 Nov 2003, 17:20, "Sergio MAZZA" <
sergi...@tiscalinet.it
> ha
scritto:

Grazie per l'aiuto.
Ho guardato la funzione però non riesco a farmi restituire valore zero.
Non sono tanto pratico con le funzioni è probabile che io sbagli qualcosa.
Io ho un campo che si chiama Qualità di tipo numerico.
La query che che vado ad eseguire deve tirarmi fuori tutti i record dove il
campo qualità=1 e conteggiarli.
Quindi mi ritrovo con una query con due campi uno raggruppa qualità con
criterio 1 e l'altro qualità con formula conteggio.
Come posso fare per avere un conteggio che sia zero anche quando il il
valore di qualità=1 è nullo?
Ti sarei grato se mi potresti aiutare.
Grazie mille ancora.
Ciao.



title: campo nullo eseguendo query

text:
"BGM" <
betti...@libero.it
> ha scritto nel messaggio
news:213Z255Z114Z211Y...@usenet.libero.it...
> Grazie per l'aiuto.
> Ho guardato la funzione però non riesco a farmi restituire valore zero.
> Non sono tanto pratico con le funzioni è probabile che io sbagli qualcosa.
> Io ho un campo che si chiama Qualità di tipo numerico.
> La query che che vado ad eseguire deve tirarmi fuori tutti i record dove
il
> campo qualità=1 e conteggiarli.
> Quindi mi ritrovo con una query con due campi uno raggruppa qualità con
> criterio 1 e l'altro qualità con formula conteggio.
> Come posso fare per avere un conteggio che sia zero anche quando il il
> valore di qualità=1 è nullo?
> Ti sarei grato se mi potresti aiutare.
> Grazie mille ancora.
> Ciao.
>
Devi crearti un campo calcolato che "legge" il valore del campo Qualità e
gli assegna 0 (zero) quando è nullo:
Es.
xQualita: Nz(Qualita;0)
La somma la fai su xQualita...
Ciao.
--
Sergio MAZZA


title: Access 2000

author: SimoneB

text:
Salve a tutti,
Da dove si possono associare con Access 2000 i file MDW ai database?
saluti SIMONE


title: Access 2000

author: Cinzia

text:
"SimoneB" <
simoneb...@tiscali.it
> ha scritto nel messaggio
news:4602e596$0$37199$4faf...@reader3.news.tin.it...
> Salve a tutti,
>
> Da dove si possono associare con Access 2000 i file MDW ai database?
>
Ciao Simone,
puoi associare a un MDB il suo MDW creando un collegamento e nella proprietą
destinazione metti:
"C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE" "PERCORSO DEL DB"
/WRKGRP "PERCORSO DEL MDW"
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
----------------------------------------


title: Access 2000

text:
> Ciao Simone,
> puoi associare a un MDB il suo MDW creando un collegamento e nella
> proprietà destinazione metti:
> "C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE" "PERCORSO DEL DB"
> /WRKGRP "PERCORSO DEL MDW"
>
>
>
1000 grazie... 6 stata veramente d'aiuto
ciao SIMONEB
PS=funziona anche per le altre versioni?


title: Access 2000

text:
"SimoneB" <
simoneb...@tiscali.it
> ha scritto nel messaggio
news:4603a285$0$37196$4faf...@reader3.news.tin.it...
>
>> Ciao Simone,
>> puoi associare a un MDB il suo MDW creando un collegamento e nella
>> proprietą destinazione metti:
>> "C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE" "PERCORSO DEL DB"
>> /WRKGRP "PERCORSO DEL MDW"
>>
>>
>>
> 1000 grazie... 6 stata veramente d'aiuto
>
> ciao SIMONEB
>
> PS=funziona anche per le altre versioni?
Certo!



title: Query a campi incrociati

author: Michele

text:
Salve
Ho una tabella [Tabella1] contenente i seguenti campi:
Ndis - numero dischetto (testo 10)
Ddis - data dischetto (data)
Pro - provincia (testo 2)
Com - comune (testo 50)
Doc - numero documento (testo 20)
Mot - motivo dell'errore (testo 2)
In tale tabella confluiscono dati che tramite un codice vengono importati
da un floppy disk contenente un file .txt
Vorrei realizzare un report che contenga le risultanze derivanti
dalla seguene query a campi incrociati:
TRANSFORM Count(Tabella1.Mot) AS ConteggioDiMot
SELECT Tabella1.Ndis, Tabella1.Ddis, Tabella1.Pro, Tabella1.Com
FROM Tabella1
WHERE (((Tabella1.Mot)="01" Or (Tabella1.Mot)="02" Or (Tabella1.Mot)="03"
Or (Tabella1.Mot)="04" Or (Tabella1.Mot)="05" Or (Tabella1.Mot)="06"
Or (Tabella1.Mot)="07" Or (Tabella1.Mot)="08" Or (Tabella1.Mot)="09"
Or (Tabella1.Mot)="10" Or (Tabella1.Mot)="99"))
GROUP BY Tabella1.Ndis, Tabella1.Ddis, Tabella1.Pro, Tabella1.Com
ORDER BY Tabella1.Pro, Tabella1.Com
PIVOT Tabella1.Mot;
Mi succede per� che a secondo dei dati contenuti nei singoli dischetti
(criterio in base a Ndis e Ddis) la query mi restituisce solo le colonne
che contengono almeno un record nel campo Mot, da qui l'impossibilit�
almeno secondo le mie conoscenze di impostare il report con tutti gli 11
controlli contenenti le diverse motivazioni, difatti se il risultato
della query non restituisce almeno 1 documento con motivazione "06" access
mi v� giustamente in errore perch� non esiste nessun campo 06.
Qualche idea?
grazie
Michele
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Query a campi incrociati

author: Marco Pizzamiglio

text:
Michele ha scritto:
> Salve





Se sai gi� quali sono i possibili valori vai sulla propriet� della query e
inseriscili in "Intestazioni colonne" es: "01";"02";"03";"05"
Altrimenti trovi sul
www.sitocomune.com
 vari esempi per risolvere casi
come questo.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: errore parametri query parametrica

author: Marco Tosto

text:
la seguente riga     qf.Parameters![IdCantiere] = cantiere
mi resitituisce "elemento non trovato in questo insieme "
eppure tale campo nella query è presente
qualcuno a idea di cosa sbaglio?
- CODE ---
    Set db = CurrentDb
    Set qf = db.QueryDefs("AlloggiDelCantiere")
    qf.Parameters![IdCantiere] = cantiere
    qf.Parameters(IdSocio) = socio
    Set rs = qf.OpenRecordset


title: errore parametri query parametrica

text:
"Marco Tosto" <
simb...@libero.it
> wrote in message
news:43e8d464$0$28068$
4faf...@reader1.news.tin.it

IdCantiere non deve essere un campo nella Query, ma come
dice la proprietà stessa che stai usando è un parametro.
Leggiti bene come si usano le query parametrica da codice, trovi anche
un esempio sul SC.
Noto che l'allergia all'Help non ti passa nemmeno con il cortisone..!
Saluti.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errore parametri query parametrica

text:
> Noto che l'allergia all'Help non ti passa nemmeno con il cortisone..!
>
> Saluti.
> @Alex
Hai fatto la battuta?


title: errore parametri query parametrica

text:
"Marco Tosto" <
simb...@libero.it
> wrote in message
news:43e94910$0$28059$
4faf...@reader1.news.tin.it

No è la dura e cruda realtà purtroppo per noi...!



title: errore parametri query parametrica

text:
>> Hai fatto la battuta?
>
>
> No è la dura e cruda realtà purtroppo per noi...!
>
> @Alex
ma và và.....


title: ODBC ??

author: Fabrizio Castigliò

text:
Ho la necessità di accedere ad alcuni file di testo tramite ODBC.
Non ho mai utilizzato questa funzionalità e per cercare di capire come può
funzionare ho fatto la seguente prova: partendo dal presupposto che ODBC
serva a collegare una base dati esterna al database, magari residente su una
macchina diversa, ho pensato che tentando di collegare un file txt locale
tramite ODBC potessi vedere il funzionamento del tutto.
La procedura di collegamento mi chiede informazioni sul DSN,  io seleziono
Text files (not sharable), successivamente quando seleziono il file txt che
mi interessa ottengo il messaggio:
    [Microsoft][Driver ODBC testo]Caratteristica opzionale non implementata
[#106]
Se viceversa tento di collegare lo stesso file non tramite ODBC ma
semplicemente come file di testo tutto procede correttamente e riesco a
collegare la tabella.
Cosa sto sbagliando?, in particolare cosa è il file DSN?.
Grazie per l'eventuale interessamento. Fabrizio.


title: Passare variabili a .BAT

author: luca

text:
Ciao a tutti
Vorrei chiedere a voi che sapete
Con quale comando in VBA io posso passare delle variabili all'interno di un
file .BAT
In dettaglio ho creato istruzione per eseguire un file prova.bat
dim nn as integer
nn = 99
Dim RetVal
RetVal = Shell("C:\temp\prova.bat", 1)
ma vottei paddargli la variabile nn = 99
ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Passare variabili a .BAT

author: Alessandro Cara

text:
luca ha scritto:
> Ciao a tutti
> Vorrei chiedere a voi che sapete
>
> Con quale comando in VBA io posso passare delle variabili all'interno di un
> file .BAT
>
> In dettaglio ho creato istruzione per eseguire un file prova.bat
>
> dim nn as integer
> nn = 99
> Dim RetVal
> RetVal = Shell("C:\temp\prova.bat", 1)
fare cosi' non e' sufficiente?
RetVal = Shell("C:\temp\prova.bat 99", 1)
i.e
listParameters = "a b c d"
RetVal = Shell("C:\temp\prova.bat " & ListParameters, 1)
--
ac


title: Passare variabili a .BAT

text:

Ti ringrazio per quanto scritto ma ora non so come recuperare tali variabili
nel file .bat
coasa devo scrivere
ciao
l



title: Passare variabili a .BAT

text:
luca ha scritto:
> Il 25 Nov 2008, 17:38, Alessandro Cara <
al...@ay-1asistemi.it
> ha scritto:
>> luca ha scritto:
>>> Ciao a tutti
>>> Vorrei chiedere a voi che sapete
>>>
>>> Con quale comando in VBA io posso passare delle variabili all'interno di
> un
>>> file .BAT
>>>
>>> In dettaglio ho creato istruzione per eseguire un file prova.bat
>>>
>>> dim nn as integer
>>> nn = 99
>>> Dim RetVal
>>> RetVal = Shell("C:\temp\prova.bat", 1)
>> fare cosi' non e' sufficiente?
>> RetVal = Shell("C:\temp\prova.bat 99", 1)
>> i.e
>> listParameters = "a b c d"
>> RetVal = Shell("C:\temp\prova.bat " & ListParameters, 1)
>> --
>> ac
>>
>
> Ti ringrazio per quanto scritto ma ora non so come recuperare tali variabili
> nel file .bat
> coasa devo scrivere
se non mi ricordo male
%1 corrisponde alla prima e via a seguire %2, %3
Anche se c'era il modo di "sliciare" i parametri (cioe' eliminare dalla
lista i parametri man mano che vengono usati) ma non mi ricordo come si fa.
Questo e' OT ;-{)))
--
ac


title: Passare variabili a .BAT

text:

mi sembra che funzioni ora provo il tutto
grazie infinite



title: Passare variabili a .BAT

text:
Alessandro Cara ha scritto:
> se non mi ricordo male
> %1 corrisponde alla prima e via a seguire %2, %3
> Anche se c'era il modo di "sliciare" i parametri (cioe' eliminare dalla
> lista i parametri man mano che vengono usati) ma non mi ricordo come si fa.
vedere SHIFT
(digita HELP SHIFT)
E aggiungo che c'è la possibilità di usare %* per rappresentare tutti i
parametri assieme, per esempio "echo %*" stampa tutta la lista dei
parametri, senza bisogno di sapere a priori quanti sono (si usa al posto
di echo %1 %2 %3 %4 %5 ....).
> Questo e' OT ;-{)))
> --
> ac
Vero, ma in questo periodo c'è carenza di post (rif. Karl 18.11.2008 "Il
declino...."), tutto fa brodo!
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Passare variabili a .BAT

author: CIDI

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:ggjm6m$36q$1...@news.newsland.it...
> Alessandro Cara ha scritto:
>
>> Questo e' OT ;-{)))
>> --
>> ac
>
> Vero, ma in questo periodo c'è carenza di post (rif. Karl 18.11.2008 "Il
> declino...."), tutto fa brodo!
....allora meglio un doppio brodo "Stella" :D
Ciao Marco
Daniele


title: FE - Descrizione estesa per bollo su fatture esenti

author: RobertoA

text:
Com'e' sta cosa della descrizione estesa per indicare il bollo sulle
fatture esenti iva con totale doc > 77,47 ?
Su che campo si mette ?


author: Potone

text:
Ciao,
si compila il blocco <DatiBollo> all'interno di <DatiGeneraliDocumento>
Riporto qui di seguito quanto indicato sul pdf AdE che descrive lo schema della efattura:
DatiBollo (i seguenti elementi vanno valorizzati nei casi in cui sia
prevista l’imposta di bollo)
BolloVirtuale: indica l’assolvimento dell’imposta di bollo ai
sensi del decreto MEF 17 giugno 2014 (bollo virtuale).
ImportoBollo: importo dell’imposta di bollo.
L'elememto <BolloVirtuale> va valorizzata con 'SI' a indicare che il bollo virtuale é presente e si assolve così all'obbligo di indicare 'bollo assolto ai sensi del decreto MEF 14 giugno 2014'.
L'elemento <ImportoBollo> conterrà '2.00' e ne rappresenta il valore.
Io non metterò ulteriori indicazioni della presenza del bollo.
Ciao
Mat.


title: L'impostazione =Funzione su evento di un controllo in Office 2007 non funziona

author: Nina

text:
Salve a tutti,
in un'applicazione sviluppata con Access 2002, c'è una maschera con numerosi
controlli che hanno una funzione associata ad un evento indicata come =
funzione nella finestra proprietà dei controlli in corrispondenza
dell'evento. Se l'applicazione viene usata su PC in cui è installato Office
2007, quando ci si posiziona su un controllo con l'indicazione = funzione su
un determinato evento appare una finestra di errore.
Ovviamente posso risolvere spostando il codice su VBA, richiamando cioè la
funzione dalle routine evento, ma qualcuno di voi ha avuto lo stesso
problema e risolto in maniera più veloce (per esempio modificando qualche
impostazione in Access 2007 )?
Tenete presente che ho già provveduto ad abbassare il livello di protezione
per le macro, ma non ho risolto questo problema.
Grazie a tutti
---
Nina


title: Creazione ordine da contenitore con articoli di fornitori diversi...

text:
Salve a tutti, utilizzo S.o. XP e access '03, "piccolo" problema: da
una tabella che riempio inserendo articoli di provenienza
fornitori diversi, dovrei generare i relativi ordini ai rispettivi
fornitori... esempio:
Tabella1 Contenitore Articoli
ART001 FOR001
ART002 FOR002
ART002 FOR002
ART003 FORnnn
ART003 FORnnn
Tabella2 Ordini fornitori
ordine num 1 for001
ordine num 2 for002
ordine num n fornnn
Qualche dritta? Grazie a tutti.


text:
<
g2...@libero.it
> ha scritto nel messaggio
news:1194421351.0...@o38g2000hse.googlegroups.com...

Una query che unisce le due tabelle:
es.
Select [ordini fornitori].*, [Contenitore Articoli].* From [ordini
fornitori]
     Left Join [Contenitore Articoli] on [ordini fornitori].codice =
[Contenitore Articoli].codiceFornitore
Ciao.
--
Sergio MAZZA


text:
On 7 Nov, 08:45, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
g...@libero.it
> ha scritto nel messaggionews:1194421351.0...@o38g2000hse.googlegroups.com...

> Sergio MAZZA- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Ciao, però io ho una struttura MASTER/SLAVE dove sul master ho la
testata dell'ordine a fornitore, mentre sullo slave ovviamente ho le
righe che compongono l'ordine. Ho dubbi che con la query riesco a
prendere dal contenitore articoli ed espoldere sulle due tabelle. ti
chiedo scusa perchè in effetti inizalmente o postato in maniera errata
il mio problema, adesso dovrebbe essere più corretto! Ciao e Grazie


text:
<
g2...@libero.it
> ha scritto nel messaggio
news:1194425962.5...@o38g2000hse.googlegroups.com...
Ciao, però io ho una struttura MASTER/SLAVE dove sul master ho la
testata dell'ordine a fornitore, mentre sullo slave ovviamente ho le
righe che compongono l'ordine.
[risposta]
Ehmm.. Master/Detail.
Ho dubbi che con la query riesco a
prendere dal contenitore articoli ed espoldere sulle due tabelle. ti
chiedo scusa perchè in effetti inizalmente o postato in maniera errata
il mio problema, adesso dovrebbe essere più corretto! Ciao e Grazie
[risposta]
Non capisco; se hai già le due tabelle, devi associarle per creare l'ordine
di ogni fornitore; o ho capito male?
Es.
[Ordini fornitori]
ordine num 1 for001
    [contenitore Articoli]
    ART001 FOR001
[Ordini fornitori]
ordine num 2 for002
    [contenitore Articoli]
    ART001 FOR002
    ART002 FOR002
    ART003 FOR002
[Ordini fornitori]
ordine num 3 for003
    [contenitore Articoli]
    ART001 FOR003
    ART004 FOR003
    ART003 FOR003
etc. etc.
Ciao.
--
Sergio MAZZA


text:
On 7 Nov, 09:32, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
g...@libero.it
> ha scritto nel messaggionews:1194425962.5...@o38g2000hse.googlegroups.com...

Chiedo venia per Master/Slave e non Master/Detail.
Mi sono spiegato male io, cerco di essere più chiaro.
Ipotizziamo che dalla interrogazione articoli, seleziono uno o più
articoli che vado a "posteggiare" in una tabella che chiamiamo
"contenitore", quando visualizzo il "contenitore" avrò nella videata
un tasto con su scritto "Crea ordine/i fornitore/i" premuto questo
tasto dovrei leggere il "contenitore" e per ogni articolo appartenete
allo stesso fornitore dovrei creare un ordine, se ovviamente il
"contenitore" conterrà più articoli di fornitori diversi a quel punto
dovrei creare tanti ordini per quanti sono i fornitori, ed in pratica
ottenere quello che hai messo nel tuo esempio:
 Es.
 [Ordini fornitori]
 ordine num 1 for001
     [contenitore Articoli]
     ART001 FOR001
 [Ordini fornitori]
 ordine num 2 for002
     [contenitore Articoli]
     ART001 FOR002
     ART002 FOR002
     ART003 FOR002
 [Ordini fornitori]
 ordine num 3 for003
     [contenitore Articoli]
     ART001 FOR003
     ART004 FOR003
     ART003 FOR003
Comunque sia grazie per il tuo interessamento!
Saluti Sergio


text:
<
g2...@libero.it
> ha scritto nel messaggio
news:1194428947....@19g2000hsx.googlegroups.com...





[risposta]
Allora la query è formalmente giusta...
Ciao.
--
Sergio MAZZA


text:
On 7 Nov, 10:03, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
g...@libero.it
> ha scritto nel messaggionews:1194428947....@19g2000hsx.googlegroups.com...

perdonami ma come fai a lavorare con tre tabelle?
la prima tabella "contenitore" articoli
la seconda è il master dell'ordine
la terza è il dettaglio dell'ordine
Con la query è possibile leggere la tabella "contenitore", creare la
testata mettere il numero ordine etc. etc contestualmente sul
dettaglio mettere gli articoli...???
Ciao grazie
Sergio (anch'io mi chiamo Sergio)


text:
<
g2...@libero.it
> ha scritto nel messaggio
news:1194430273.6...@o38g2000hse.googlegroups.com...
perdonami ma come fai a lavorare con tre tabelle?
[risposta]
3? Non avevo capito quante fossero.
la prima tabella "contenitore" articoli
la seconda è il master dell'ordine
la terza è il dettaglio dell'ordine
Con la query è possibile leggere la tabella "contenitore", creare la
testata mettere il numero ordine etc. etc contestualmente sul
dettaglio mettere gli articoli...???
[risposta]
Dovrebbe essere così:
Select [ordine].*, [dettaglioOrdine].*, [contenitoreArticoli].* From [ordini
fornitori]
    Left Join [dettaglioOrdine] on [ordine].id = [dettaglioOrdine].idOrdine
    Left Join [Contenitore Articoli] on [dettaglioOrdine].codiceArticolo =
[Contenitore Articoli].codiceArticolo
Ciao grazie
Sergio (anch'io mi chiamo Sergio)
[risposta]
Ah! Pensavo fosse una eco!
Ciao.
--
Sergio MAZZA


title: impostare da vba le dimensioni di un report in larghezza altezza

text:
sapete come posso impostare da vba il formato del foglio esempio 48 cm di
larghezza e 33 di altezza?
poi volevo chiedervi, sempre da vba, � possibile posizionare un etichetta a
10 cm dal margine superiore e a 5 di quello sinistro?
Grazie a tutti.


author: Carlo Costarella

text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4bdb7808$0$827$4faf...@reader5.news.tin.it...
> sapete come posso impostare da vba il formato del foglio esempio 48 cm di
> larghezza e 33 di altezza?
Ti riferisci alle dimensioni della pagina, quella di stampa?
Per le sezioni del report non � possibile impostare una larghezza ma solo
l'altezza. La larghezza riguarda solo il report e bisogna considerare i
margini di stampa. Foglio e margini di stampa si possono impostare da vba ed
hano i limiti della stampante predefinita o di quella specificata.
Per fare ci� devi usare da vba l'oggetto Printer (vedi guida).
> poi volevo chiedervi, sempre da vba, � possibile posizionare un etichetta
> a 10 cm dal margine superiore e a 5 di quello sinistro?
S�, � possibile tenendo presente che le misure sono espresse in twip (1 cm =
567 twip) e usando Top per la distanza dal bordo superiore e Left per la
distanza dal margine sinistro.
Per esempio:
Me.NomeControllo.Top = 1134
Me.NomeControllo.Left = 0
In questo caso posiziono il controllo addossato al margine di sx e 2 cm dal
bordo superiore.
> Grazie a tutti.
>
>
Ciao, Carlo


text:
proprio quello che mi serviva, approfondir� l'oggetto printer. grazie 1000
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:hrgvn1$elt$1...@tdi.cu.mi.it...
>
> "leopard73" <
leop...@email.it
> ha scritto nel messaggio
> news:4bdb7808$0$827$4faf...@reader5.news.tin.it...
>> sapete come posso impostare da vba il formato del foglio esempio 48 cm di
>> larghezza e 33 di altezza?
>
> Ti riferisci alle dimensioni della pagina, quella di stampa?
mi riferisco alle dimensioni del foglio 33 cm larghezza e 48 cm altezza,
vorrei impostarli cosi anche nel report per avere una corrispondezza
corretta in fase di stampa.


text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4bdc317b$0$1122$4faf...@reader2.news.tin.it...

Dunque si tratta delle dimensioni del foglio di stampa.
I numeri da te indicati corrispondono al formato "Super B 13x19 (in
pollici)" per nulla standard...Quale stampante usi?
Comunque a prescindere da tutto ti basta impostare questo foglio nella
stampante predefinita. Se non � questo il foglio predefinito ed hai
difficolt� fai cos�:
installa una nuova stampante assolutamente identica alla predefinita e dalle
un nome per te significativo; dalle propriet� di questa stampante scegli il
formato pagina Super B 13x19 e infine la imposti come predefinita. Da questo
momento anche i report potranno avere le dimensioni da te stabilite.
Altra strada � quella di usare l'oggetto Printer e impostare la stampante
specificata se non hai provveduto a impostarla come predefinita.
Infine hai la possibilit� di crearti un nuovo modulo di stampa: Start,
stampanti e fax, men� file, propriet� server, scegli Super B 13x19, spunta
"crea un nuovo modulo", dagli un nome significativo e poi "salva modulo".
Ora troverai il nuovo modulo in imposta pagina delle propriet� della
stampante.
Ciao, Carlo


text:
> Dunque si tratta delle dimensioni del foglio di stampa.
> I numeri da te indicati corrispondono al formato "Super B 13x19 (in
> pollici)" per nulla standard...Quale stampante usi?
� una stampante altamente professionale di una litografia ecco perch� non �
un formato tanto usuale.
non ricordo marca e modello ma se non ricordo male costa 85 mila euro.
> Comunque a prescindere da tutto ti basta impostare questo foglio nella
> stampante predefinita. Se non � questo il foglio predefinito ed hai
> difficolt� fai cos�:
> installa una nuova stampante assolutamente identica alla predefinita e
> dalle un nome per te significativo; dalle propriet� di questa stampante
> scegli il formato pagina Super B 13x19 e infine la imposti come
> predefinita. Da questo momento anche i report potranno avere le dimensioni
> da te stabilite.
> Altra strada � quella di usare l'oggetto Printer e impostare la stampante
> specificata se non hai provveduto a impostarla come predefinita.
> Infine hai la possibilit� di crearti un nuovo modulo di stampa: Start,
> stampanti e fax, men� file, propriet� server, scegli Super B 13x19, spunta
> "crea un nuovo modulo", dagli un nome significativo e poi "salva modulo".
> Ora troverai il nuovo modulo in imposta pagina delle propriet� della
> stampante.
>
> Ciao, Carlo
grazie mille, credo che uno dei modi da te indicato far� sicurmaente al caso
mio, ti chiedo un ultima cosa, siccome dovr� stampare per esempio 200 volte
lo stesso report costituito da una sola pagina con un ciclo for, ti spiego
cosa dovrei ottenere
stampa foglio 1
000001                    000051
000101                    000151
stampa foglio 2
000002                    000052
000102                    000152
mi consigli di usare il docmd.openreport ad ogni iterazione del ciclo for?
Grazie 1000!!!!


text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4bdda21b$0$821$4faf...@reader5.news.tin.it...
>
cut
>
> grazie mille, credo che uno dei modi da te indicato far� sicurmaente al
> caso mio, ti chiedo un ultima cosa, siccome dovr� stampare per esempio 200
> volte lo stesso report costituito da una sola pagina con un ciclo for, ti
> spiego cosa dovrei ottenere
>
> stampa foglio 1
> 000001                    000051
>
> 000101                    000151
>
> stampa foglio 2
> 000002                    000052
>
> 000102                    000152
>
> mi consigli di usare il docmd.openreport ad ogni iterazione del ciclo for?
> Grazie 1000!!!!
>
Non credo. Normalmente dovrebbe bastare alimentare il report con una query
(o una tabella) e lavorare sulla formattazione delle varie sezioni del
report.
La tabella con i dati che ti servono potrebbe anche essere una tabella di
appoggio che riempi e svuoti in modo dinamico.
Ciao, Carlo


text:
> Non credo. Normalmente dovrebbe bastare alimentare il report con una query
> (o una tabella) e lavorare sulla formattazione delle varie sezioni del
> report.
> La tabella con i dati che ti servono potrebbe anche essere una tabella di
> appoggio che riempi e svuoti in modo dinamico.
>
> Ciao, Carlo
>
infatti ho fatto cosi come da consiglio anche di SV e funziona
grazie.


text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4bdffb85$0$1111$4faf...@reader4.news.tin.it...
cut
> grazie.
>
Grazie a te per il feedback.
Ciao, Carlo


title: Generatore query complessa

author: Giulio Severini

text:
Ultimo post del giorno :)
Oggi gli utenti mi hanno detto: vogliamo poter fare ricerche SU TUTTO. Per
TUTTO loro intendono ogni parametro che compilano nelle cinque schede che
hanno a disposizione, per un totale di circa cinquanta campi.
Io ho pensato ad una cosa del genere: creare un generatore di query che
permetta loro di selezionare tutto quello che vogliono. Come visualizzare
ciò? Così:
Casella combinata contenente TUTTI i sessanta criteri di ricerca
PIU'
Casella combinata contenente i seguenti valori logici e di confronto: AND,
OR, NOT, >, <, =
PIU'
casella di testo ove specificare il valore (se numerico)
O
casella combinata ove selezionare un valore in elenco
E
la possibilità di aggiungere criteri a catena rendendo visibili i
controlli sopra menzionati SE l'utente vuole immettere altri criteri.
Schematizzando, qualcosa del tipo:
CRITERIO + OPERATORE + VALORE [+ OPERATORE]
[CRITERIO] + [OPERATORE] + [VALORE] [+OPERATORE]
....
ove le parentesi quadre indicano un oggetto FACOLTATIVO.
E' fattibile secondo voi una cosa del genere? Qualcuno lo ha già fatto?
Esistono esempi?
Grazie mille :) e buona serata!
--
FIRMA BAU BAU MICIO MICIO - Un tale disse a un tale 'Tu sei tale e quale a
un tale'. Il tale chiese al tale 'Tale e quale a quale tale?'. Non sapendo
a quale tale fosse tale e quale il tale, il tale se ne andò. Convinto che
quel tale a qualche tale fosse proprio tale e quale.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Generatore query complessa

author: Roberto da casa

text:
"Giulio Severini" <
giulio....@ministero.difesa.it
> ha scritto nel
messaggio news:d606tn$fkb$1...@news.newsland.it...
> Ultimo post del giorno :)
>
> Oggi gli utenti mi hanno detto: vogliamo poter fare ricerche SU TUTTO. Per
> TUTTO loro intendono ogni parametro che compilano nelle cinque schede che
> hanno a disposizione, per un totale di circa cinquanta campi.
>
> Io ho pensato ad una cosa del genere: creare un generatore di query che
> permetta loro di selezionare tutto quello che vogliono. Come visualizzare
> ciň? Cosě:
>
> Casella combinata contenente TUTTI i sessanta criteri di ricerca
>
> PIU'
>
> Casella combinata contenente i seguenti valori logici e di confronto: AND,
> OR, NOT, >, <, =
>
> PIU'
>
> casella di testo ove specificare il valore (se numerico)
>
> O
>
> casella combinata ove selezionare un valore in elenco
>
> E
>
> la possibilitŕ di aggiungere criteri a catena rendendo visibili i
> controlli sopra menzionati SE l'utente vuole immettere altri criteri.
>
> Schematizzando, qualcosa del tipo:
>
> CRITERIO + OPERATORE + VALORE [+ OPERATORE]
>
> [CRITERIO] + [OPERATORE] + [VALORE] [+OPERATORE]
>
> ....
>
> ove le parentesi quadre indicano un oggetto FACOLTATIVO.
>
> E' fattibile secondo voi una cosa del genere? Qualcuno lo ha giŕ fatto?
> Esistono esempi?
Questa tecnica č detta anche QBF (Query By Form) e permette appunto di
gererate dinamicamente una query e registrarla nel database e quindi usarla
come origine record di una maschera o di un report; un piccolo esempio di
tale tecnica orientato alla creazione dinamica e registrazione di una query
la trovi nel Sito Comune (link qui sotto), nella Sezione Queries leggi la
mia FAQ intitolata "2.10 Come si puň creare in maniera dinamica una query
con la tecnica QBF?". in quell'esempio perň non č sviluppata molto la
generazione dinamica della proposizione WHERE, che invece č la parte che piů
interessa a te.
Comunque sicuramente hai due soluzione alternative che non ti impegneranno
per niente dal punto di vista sviluppa visto che giŕ esistono chiavi in
mano.
La prima soluzione č quella di insegnare agli utenti come usare il Filtro in
base a maschera (vedi help) che trovi nella barra degli strumenti quando
apri una maschera.
La seconda soluzione č quella di usare il programma MSQRY32.EXE che la
Microsoft ti fornisce con Office (io uso Office 97 e il programma ha il
seguente percorso "C:\Programmi\Microsoft Office\Office\MSQRY32.EXE"; questo
programma permette all'utente finale di creare ed eseguire queries č
certamente meno intuitivo di un filtro in base a maschera, ma č moooooolto
piů potente.
>
> Grazie mille :) e buona serata!
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Generatore query complessa

text:
Grazie mille Roby, come al solito sei sempre preciso e gentile :)



title: File MDB non in linea

author: Lart

text:
Ciao, mi hanno detto di chiedere a voi per il problema seguente:
Ho un database Access versione 2000 in una cartella condivisa del
server, che ho cercato di rendere disponibile in modalità "non in
linea".
La sincronizzazione parte ed al termine ottengo un messaggio di errore
che dice
... impossibile rendere disponibile non in linea la risorsa
"Archivio.mdb" su \\NeilYoung\Shared. I file di questo tipo non
possono essere resi disponibili in modalità non in linea.
Per prima cosa mi piacerebbe sapere la ragione per la quale i file di
Access non sono come gli altri, poi un suggerimento per eludere il
problema o risolverlo in altro modo.
Cordialità
--
Lart


title: File MDB non in linea

author: fabio

text:
>Ho un database Access versione 2000 in una cartella condivisa del
>server, che ho cercato di rendere disponibile in modalità "non in
>linea".
>La sincronizzazione parte ed al termine ottengo un messaggio di
errore
>che dice
>... impossibile rendere disponibile non in linea la
risorsa
>"Archivio.mdb" su \\NeilYoung\Shared. I file di questo tipo non
>possono essere resi disponibili in modalità non in linea.
>Per prima
cosa mi piacerebbe sapere la ragione per la quale i file di
>Access non
sono come gli altri, poi un suggerimento per eludere il
>problema o
risolverlo in altro modo.
supponi di lavorare su un database accessibile
ed utilizzabile anche da altri utenti; supponi che ad un certo punto venga
meno la tua connessione di rete, e tu aggiungi e/o modifichi records nel
database salvato in locale ("non in linea"); supponi infine che venga
ripristinata la connessione (dopo 5 minuti o 3 ore, non ha importanza), e
tu spegni il PC sincronizzando anche il database di access (quindi
sovrascrivendo la versione sul server con la tua modificata): se putacaso
durante il periodo di inattività della tua connessione di rete qualche
altro utente avesse modificato i dati del database, le sue modifiche
andrebbero irrimediabilmente perse.
ad evitate questa infausta possibilità
(in un'azienda i database hanno un'alta probabilità di essere condivisi, e'
nella natura di access), microsoft ha impedito la sincronizzazione per i
file di access.
per altri file tipo word od excel, le condivisioni tra
piu' utenti sono decisamente meno frequenti, e quindi in questo caso si
lascia alla responsabilità degli utenti la gestione della loro
sincronizzazione.
forse e' possibile eludere il "problema" attraverso la
modifica di una o piu' chiavi del registro di configurazione, ma
onestamente non saprei neanche da dove cominciare.
in alternativa potresti
crearti un piccolo file batch (tipo il vecchio autoexec del DOS) che ogni
volta alla chiusura di windows sovrascriva la copia che non ti interessa,
ma qui entriamo gia' in un campo a me abbastanza oscuro.
spero comunque di
esserti stato utile.
ciao
fabio
--------------------------------
Inviato via
http://usenet.iol.it


title: risposte predefinite in macro a messaggi di sistema

author: ciarletto

text:
Sto realizzando una macro per la creazione di tabelle, ogni volta la tabella
sarà eliminata e rimpiazzata da quella nuova.
Siccome il sistema avvisa, ad esempio:
1. la query modificherà i dati della tabella (risposta: si)
2. la tabella verrà eliminata prima dell'esecuzione, continuare?
(risposta:si)
3. n.° righe incollate in tabella xy, vuoi farlo? (risposta:si)
Come faccio nella macro a far rispondere affermativamente a tutte le
risposte? è possibile?
grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: MA

text:
"ciarletto" <
c...@y.it
> ha scritto nel messaggio
news:82Z88Z48Z250Y1...@usenet.libero.it...

Strumenti
Opzioni
togli la spunta alle query actions
MAssimiliano


author: ciroteo

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:5VZod.35206$B06....@news.edisontel.com...

oppure c'è un comando nelle macro:  imposta avvisi e setti no.


title: Aprire una maschera sulla maschera precedente

author: Asheric

text:
Salve.
il mio problema è che praticamente ho creato un pulsante per accedere ad una
seconda maschera ma non riesco a far si che il menu della maschera a cui
accedo si apra nella maschera iniziale...non so se mi sono spiegato
bene...praticamente devo riutilizzare la maschera iniziale per visualizzare
la seconda maschera.
Grazie a chiunque possa darmi aiuto.
Ciau!


title: Sicurezza con FE e BE

author: nilaco

text:
Lo so che e' un tema trito e ritrito.
Il mio problema e':
il db e suddiviso in FE e BE ho protetto con la sicurezza access il
BE, creando il collegamento sul desktop per aprire il FE come faccio a
utilizzare la protezione? Devo applicare la stessa protezione al FE?
Grazie Nino


title: gestire gli aggiornamenti db da internet

author: tmtube

text:
voi come gestireste gli aggiornamenti del db da internet io pensavo di fare
come segue:

1. controllo la presenza di un file zippato in un percorso internet es:
www.miosito.it/miofile.zip

2. se presente tale file avviso con un messaggio che � disponibile un
aggiornamento

3. se l'utente clicca SI scarico il file zip in qualche modo lo decomprimo
"con pkunizp da riga di comando??"

4 sostituisco il file mde all'attuale ed elimino il file zip

il problema �:

come controllo la presenza del file in internet? dir funziona anche per
percorsi web?
come decomprimo il file zip?
una volta decompresso il file mde come lo sostituisco se il file mde � in
uso?

Grazie.


text:
Il giorno lunedì 20 maggio 2013 10:04:12 UTC+2, tmtube ha scritto:
> voi come gestireste gli aggiornamenti del db da internet io pensavo di fare
>
> come segue:
>
>
>
> 1. controllo la presenza di un file zippato in un percorso internet es:
>
>
www.miosito.it/miofile.zip

>
>
>
> 2. se presente tale file avviso con un messaggio che ï¿½ disponibile un
>
> aggiornamento
>
>
>
> 3. se l'utente clicca SI scarico il file zip in qualche modo lo decomprimo
>
> "con pkunizp da riga di comando??"
>
>
>
> 4 sostituisco il file mde all'attuale ed elimino il file zip
>
>
>
> il problema ï¿½:
>
>
>
> come controllo la presenza del file in internet? dir funziona anche per
>
> percorsi web?
>
> come decomprimo il file zip?
>
> una volta decompresso il file mde come lo sostituisco se il file mde ï¿½ in
>
> uso?
>
>
>
> Grazie.

Nn è proprio così immediato.....Crei un altro mde. Lo chiami StartUp. Tu avvii sempre quello. Lui: Controlla gli aggiornamenti, se li trova, li installa, se no avvia il programma normalmente.
Per gli agg, io consiglio una tabella con 3 campi: Programma, dati, struttura (gli aggiornamenti possono essere tutti e tre...). Il file zip lo chiami AR0001, ST0001, SW0001 (ARchivi, STruttura, SoftWere e un progressivo). Nella tabella memorizzi in ogni campo l'ultimo aggiornamento installato con successo. Poi ti fai un file di testo dove scrivi tutta la lista degli agg disponibili, presenti e passati (non sai mai quando e se un utente aggiorna). Lo startUp scarica il txt, confronta gli agg con la tabella, scarica SOLO i necessari. Poi li applica (il file che deve cambiare adesso non è in uso, quindi basta un banalissimo exe con autoreplace fatto con 7zip e non devi neanche decomprimere). Chiaro che non è semplicissimo....devi prevedere ASSOLUTAMENTE: backup preventivo, sistema per ripristinare tutto se qualcosa va male (errore nell'installazione, cade la rete, si spegne il computer....). Le sfighe sono sempre dietro l'angolo....


text:
>Nn � proprio cos� immediato.....Crei un altro mde. Lo chiami StartUp. Tu
>avvii sempre quello. Lui: Controlla gli aggiornamenti, se li trova, li
>installa, se no avvia il >programma normalmente.
>Per gli agg, io consiglio una tabella con 3 campi: Programma, dati,
>struttura (gli aggiornamenti possono essere tutti e tre...). Il file zip lo
>chiami AR0001, ST0001, SW0001 >>(ARchivi, STruttura, SoftWere e un
>progressivo). Nella tabella memorizzi in ogni campo l'ultimo aggiornamento
>installato con successo. Poi ti fai un file di testo dove >scrivi tutta la
>lista degli agg disponibili, presenti e passati (non sai mai quando e se un
>utente aggiorna). Lo startUp scarica il txt, >confronta gli agg con la
>tabella, scarica >SOLO i necessari. Poi li applica (il file che deve
> >cambiare adesso non � in uso, quindi basta un banalissimo exe con
>autoreplace fatto con 7zip  >non devi neanche >decomprimere). Chiaro che
>non � semplicissimo....devi prevedere >ASSOLUTAMENTE: backup preventivo,
>sistema per ripristinare tutto se qualcosa va male (errore
> >nell'installazione, cade la rete, si spegne il computer....). Le sfighe
>sono sempre dietro >l'angolo....

Grazie ottima idea, ti chiedo un chiarimento startup se non trova
aggiornamenti come avvia il db reale? Inoltre cosa intendi per struttura?
programma penso intendi il FE dati il BE ma struttura cosa intendi le
relazioni?
Grazie.