title: acquisto Office XP/2003 (& versione Developer)

text:
ciao a tutti i frequentatori del newsgroup,
ho sviluppato un applicativo in access xp per un cliente, l'acquirente sta
valutandolo a casa usando il suo office (versione 2003, che come noto dà
luogo ad alcuni "bug", soprattutto in presenza di formattazioni
condizionali).
dovendo egli ancora acquistare il pacchetto office per l'ufficio mi chiedo:
1. è ancora reperibile in commercio la vecchia versione xp del pacchetto
office?
2. in caso contrario, oltre ai problemi legati alla formattazione
condizionale, ne esistono altri a voi noti?
3. sto riflettendo sull'acquisto di una versione Developer del pacchetto
office, così da svincolare il cliente dall'onere dell'acquisto di N licenze
per i suoi N terminali dell'ufficio: a questo proposito, conoscete il prezzo
della versione developer (XP/2003)?
4. per finire, pro (e contro se ce ne sono) del distribuire applicativi
generati con la versione Developer..
grazie per la pazienza e auguri per le imminenti festività,
em.an


author: Carlo Costarella

text:
"em.an" <
zzz....@libero.it
> ha scritto nel messaggio
news:z1fpf.7597$eD5.1...@twister2.libero.it...

Se ti interessa vendo una confezione di OfficeXP Professional Special
Edition (quella con 7 applicativi tra cui Access, FrontPage e Publisher). Si
tratta della versione aggiornamento quindi può essere validamente usata da
chi ha già un pacchetto Office 97 o 2000 o Premium o Professional oppure
Small Business Standard o developer.
Ovviamente il tutto è nuovo. Il pacchetto è stato acquistato con una offerta
speciale insieme ad altri pacchetti Microsoft...non mi sarei mai privato di
un simile applicativo.
Se ti interessa o interessa al tuo cliente il prezzo è di 300,00 euro.
Spero di non essere OT con questa risposta.
Ciao, Carlo


author: Oscar Manfredini

text:
"em.an" <
> ho sviluppato un applicativo in access xp per un cliente, l'acquirente sta
> valutandolo a casa usando il suo office (versione 2003, che come noto dą
> luogo ad alcuni "bug", soprattutto in presenza di formattazioni
> condizionali).
I bug di cui parli, ufficialmente, sono risolti dal S.P 1 del prodotto.
Ciao.


text:
[CUT]
>
>
> Se ti interessa vendo una confezione di OfficeXP Professional Special
> Edition (quella con 7 applicativi tra cui Access, FrontPage e Publisher).
Si
> tratta della versione aggiornamento quindi può essere validamente usata da
> chi ha già un pacchetto Office 97 o 2000 o Premium o Professional oppure
> Small Business Standard o developer.
> Ovviamente il tutto è nuovo. Il pacchetto è stato acquistato con una
offerta
> speciale insieme ad altri pacchetti Microsoft...non mi sarei mai privato
di
> un simile applicativo.
> Se ti interessa o interessa al tuo cliente il prezzo è di 300,00 euro.
> Spero di non essere OT con questa risposta.
>
> Ciao, Carlo
>
>
ciao Carlo,
grazie per l'offerta ti farò senz'altro sapere se deciderò in questo senso,
ma sono più orientato all'acquisto della vers.2003, considerato che come
dice Oscar Manfredini con il SP.1 i problemi di Office2003 dovrebbero essere
stati risolti.
saluti
em.an


title: Salvataggio variabile di testo VBA in tabella db

author: emailcasa

text:
Ho provato a cercare soluzioni sul gruppo, ma il problema che proverò
a riassumere è particolare:
Tramite comando Set oHttp = CreateObject("MSXML2.XMLHTTP")....... ho
estratto il codice html in una variabile
Tramite comandi txtHTML = Replace(txtHTML, "</td><td>", ";")........
ho estratto dalla pagina html soltanto i dati utili
ora mi trovo nella variabile txtHTML dei dati di questo tipo:
data1;testo1;prezzo1
data2;testo2;prezzo2
data3;testo3;prezzo3
come posso esportare questi dati in una tabella del mio database (già
impostata con 3 colonne)?
grazie
Andrea
P.S.
Io ho provato esportando i dati in word
salvando in un file .txt, usando il comando
DoCmd.TransferText acImportDelim, , "temp", "C:\MyWP.txt"
Ma il sistema è alquanto inaffidabile va una volta su dieci, e mi
rimane attivo word nonostante tenta di chiuderlo con istruzione
For Each myTask In Tasks
    If InStr(myTask.name, "Microsoft Word") > 0 Then
        myTask.Activate
        myTask.Close
    End If
Next myTask


author: Karl Donaubauer

text:
emailcasa wrote:
> Ho provato a cercare soluzioni sul gruppo, ma il problema che
> proverò a riassumere è particolare:
>
> Tramite comando Set oHttp = CreateObject("MSXML2.XMLHTTP")....... ho
> estratto il codice html in una variabile
> Tramite comandi txtHTML = Replace(txtHTML, "</td><td>", ";")........
> ho estratto dalla pagina html soltanto i dati utili
>
> ora mi trovo nella variabile txtHTML dei dati di questo tipo:
>
> data1;testo1;prezzo1
> data2;testo2;prezzo2
> data3;testo3;prezzo3
>
> come posso esportare questi dati in una tabella del mio database
> (già impostata con 3 colonne)?
> ...
p.e.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strArr() As String
Dim i As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabella", dbOpenDynaset)
strArr = Split(txtHTML, vbCrLf)
For i = 0 To UBound(strArr)
    rs.AddNew
        rs!Campo1 = Split(strArr(i), ";")(0)
        rs!Campo2 = Split(strArr(i), ";")(1)
        rs!Campo3 = Split(strArr(i), ";")(2)
    rs.Update
Next i
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -
Grazie, non conoscevo l'esistenza della funzione split.
ho soltanto dovuto sostiuire la stringa strArr = Split(txtHTML,
vbCrLf) con strArr = Split(txtHTML, vbLf)


title: Mailing list

text:
Ciao ragazzi,
qualcuno conosce qualche mailing list su Access ed in italiano???
Grazie!
Sent via Deja.com
http://www.deja.com/
Before you buy.


title: Mailing list

author: lbo dal portatile

text:
>qualcuno conosce qualche mailing list su Access ed in italiano???
il ng che t'ha fatto di male?
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Come copiare una selezione di record scelti da maschera?

author: NCP

text:
Precisamente ho una tabella A da cui attingere dati,
una tabella B da riempire con i dati della prima,
una maschera in cui voglio selezionare un criterio (un campo) per effettuare
la selezione dei dati da copiare.
Come devo fare?
E' per la mia tesi e non so proprio come risolvere velocemente questo
problema senza perderci giornate intere.
Grazie mille


text:
"NCP" <pedrone@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:_Ue2a.224747$AA2.8...@news2.tin.it...

A prescindere che non capisco perchè devi copiare dati da una Tabella
ad un'altra, sconvolgi i criteri di Normalizzazione dei Database, e se
questo
è per una Tesi, forse dovresti pensarci.......!!!
Usa in ogni caso una Qry.
dbs.Execute
CurrentDb.Execute "INSERT INTO TabellaB SELECT * FROM  TabellaA Where
Campo=Valore;"
@Alex.


text:
> A prescindere che non capisco perchè devi copiare dati da una Tabella
> ad un'altra, sconvolgi i criteri di Normalizzazione dei Database, e se
> questo
> è per una Tesi, forse dovresti pensarci.......!!!
>
> Usa in ogni caso una Qry.
> dbs.Execute
>
> CurrentDb.Execute "INSERT INTO TabellaB SELECT * FROM  TabellaA Where
> Campo=Valore;"
>
> @Alex.
Effettivamente dovrebbero provenire da un .mdb esterno, da cui attingo i
dati che mi interessano, ma dovendo processarli con MPL (programma di
ottimizzazione delle decisioni) che non puo' lavorare (essendo licenza
studente) piu' di 30 record devo fare una selezione.
In pratica  da una maschera o pulsantiera vorrei scegliere un certo tipo di
dati da importare e quindi avviare una macro che fa partire varie query di
aggiornamento
su cui poi lavora il programma esterno che legge e scrive su questo db.
Il problema non so usare codice VB.
Puoi aiutarmi?


text:
"NCP" <pedrone@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:Pjf2a.224943$AA2.8...@news2.tin.it...

Ma il tuo applicativo può probabilmente leggere anche dati da QUERY.
Se è così nel DB crei una Qry con un criterio che puoi impostare dalla
Maschera in modo da limitare il numero di Records.
In questo modo non devi copiare nulla e sopratutto rimane dentro il DB
dati anche la Maschera di selezione.
Per aiutarti maggiormente ci sono diverse difficoltà, prima tra tutte la tua
scarsa conoscenza di Access da quello che ho capito.
In ogni caso se hai problemi specifici che non siano "Devo fare tutto come
faccio...!!"
li possiamo vedere tranquillamente con tanto di spiegazioni.
@Alex.


text:
Dunque ho le 2 tabelle, quella proveniente dal DB esterno e quella con i
dati aggiuntivi, la query che seleziona in base a un criterio e visualizza i
dati di entrambe.
Ora vorrei poter decidere questo il criterio da una maschera a parte,
diciamo quella che contiene i dati da decidere di volta in volta.
Come faccio?


text:
"NCP" <pedrone@NOSPAM_tiscalinet.it> ha scritto nel messaggio
news:3Wq2a.227199$AA2.8...@news2.tin.it...

Nella composizione della QUERY c'è un campo Criteri, usa quello.
Devi inserire li dentro il riferimento al Controllo della Form
SelezioneCriteri.
Supponi sia una TextBox Chiamata txtCriterio residente nella Form indicata.
Nel campo Criterio della Qry inserisci Forms![SelezioneCriterio]!txtCriterio
Se apri la QRY dopo aver inserito un valore VALIDO vedrai il risultato del
FILTRO....!
@Alex.


title: OT Traduzione FAQ 6.11 e 6.12

text:
******************
6.11 Formatted MsgBox in A00
Problem
In A97 you can use the @ sign in the MsgBox function to format
parts of the message in a different manner. In >=A00 this doesn't
work any more.
Cause
The VBE (Visual Basic Editor) of >=A00 doesn't use any more
the message box function of Access.
Solution
Michael Kaplan has the trick how to use the Expression Service
of Access also in Versions >=A00 to format a message box:
http://www.trigeminal.com/usenet/usenet015.asp
*******************
6.12 Info about RunCommand constants
Problem
The Online Help of Access only offers a list but no explanation
of the constants you can use with the RunCommand method.
Solution
Terry Wickenden's website
http://home.clara.net/tkwickenden/
(inglese) has a lot of information and examples about the use
of all RunCommand constants. There's also a comparison of
the RunCommand constants to the according menu items.
******************
--
cu
Karl
*********
Access-FAQ
http://www.donkarl.com/it


title: OT Traduzione FAQ 6.11 e 6.12

author: ALESSANDRO Baraldi

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:2r1apmF...@uni-berlin.de...
 ******************
 6.11 MessageBox Formattati in A00
 Problema
 In A97 potevi usare il caattere @ nella Funzione MsgBoxe per formattare
parte del mesaggio in modo differente. In >=A00 questo non funziona piů
Causa
Il VBE (Visual Basic Editor) di >=A00 non una piů la funzione
di MsgBox di Access.
Soluzion
 Michael Kaplan ha evidenziato un trucco perusare Expression Service
 di Access anche nelle versioni >=A00 al fine di formattare il MsgBox:

http://www.trigeminal.com/usenet/usenet015.asp
 *******************
 6.12 Informazioni riguardanti le Costanti RunCommand
 Problema
 The Online Help of Access only offers a list but no explanation
 of the constants you can use with the RunCommand method.
L'Help in linea mostra solo l'elenco delle costanti di RunCommand
ma non ne spiega i metodi di utilizzo
Solutione
Sul sito di Terry Wickenden
http://home.clara.net/tkwickenden/
(inglese) ci sono molte informazioni ed esempio riguardanti l'utilizzo
delle costanti Runcommand.
Ci sono anche dei confronti tra tra le Costanti RunCommand
e le costanti dei Menů.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: OT Traduzione FAQ 6.11 e 6.12

author: SunRex

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:2r1apmF...@uni-berlin.de...
> ******************
6.11 Formattare un MsgBox in A>=00
Problema
In A97 puoi usare il simbolo @ nella funzione MsgBox per formattare in
maniera diversa le parti di un messaggio.In A>=00 ciň non č piů possibile.
Causa
L'editor di Visual Basic (VBE) di A>=00 non utilizza piů la funzione
MsgBox di Access
Soluzione
Michael Kaplan ha scoperto un trucco per utilizzare l'Expression Service
di Access ,che serve per formattare un MsgBox , anche nelle versioni >=A00.
http://www.trigeminal.com/usenet/usenet015.asp
*******************
6.12  Informazioni sulle costanti del metodo RunCommand
Problema
La guida in linea di Access fornisce una lista delle costanti utilizzabili
 con il metodo  RunCommand ma non spiega come usarle.
Soluzione
Sul sito web di Terry Wickenden's
http://home.clara.net/tkwickenden/
vengono riportati una serie di esempi e di informazioni riguardo
all'utilizzo
delle costanti del metodo RunCommand.C'č anche un esempio che confronta
la costante acCmdPrint del metodo RunCommand con la costante acSelection del
metodo PrintOut utilizzati qui per stampare il record corrente.
Il sito č in inglese.
******************
sunrex


title: OT Traduzione FAQ 6.11 e 6.12

author: Roberto dalla campagna

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cign37$6lk$1...@lacerta.tiscalinet.it...
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
> news:2r1apmF...@uni-berlin.de...
>
>  ******************
>  6.11 MessageBox Formattati in A00
>  Problema
>
>  In A97 potevi usare il caattere @ nella Funzione MsgBoxe per formattare
> parte del mesaggio in modo differente. In >=A00 questo non funziona piů
In Access 97 si poteva usare il carattere @ nella funzione MsgBox per
formattare parte del messaggio in maniera differente. Con una versione di
Access successiva ad Access 97 questo non č piů possibile.
>
> Causa
>
> Il VBE (Visual Basic Editor) di >=A00 non una piů la funzione
> di MsgBox di Access.
Il VBE (Visual Basic Editor) di una versione di Access uguale o successiva
ad Access 2000 non fa piů uso della funzione di visualizzazione dei messaggi
di Access.
>
> Soluzion
Soluzione
>
>  Michael Kaplan ha evidenziato un trucco perusare Expression Service
>  di Access anche nelle versioni >=A00 al fine di formattare il MsgBox:
>
http://www.trigeminal.com/usenet/usenet015.asp
Michael Kaplan ha trovato uno stratagemma per poter usare l'Espression
Service di Access anche nelle versioni successive ad Access 97 al fine di
formattare il testo della funzione NsgBox:

http://www.trigeminal.com/usenet/usenet015.asp
>
>  *******************
>  6.12 Informazioni riguardanti le Costanti RunCommand
>
>  Problema
>
>  The Online Help of Access only offers a list but no explanation
>  of the constants you can use with the RunCommand method.
<eliminare la versione inglese>
> L'Help in linea mostra solo l'elenco delle costanti di RunCommand
> ma non ne spiega i metodi di utilizzo
>
> Solutione
Soluzione
>
> Sul sito di Terry Wickenden
http://home.clara.net/tkwickenden/
> (inglese) ci sono molte informazioni ed esempio riguardanti l'utilizzo
> delle costanti Runcommand.
> Ci sono anche dei confronti tra tra le Costanti RunCommand
> e le costanti dei Menů.
>
> --
> @Alex (Alessandro Baraldi)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: OT Traduzione FAQ 6.11 e 6.12

text:
Ciao Roberto.
Mi sono accorto troppo tardi degli errori, mi era partito l'invio....!
In ogni caso mi è stato riferito di non usare la 2° persona plurale
ma la 2° singolare(cosa che non condivido), e così si dà del "TU"
Ovviamente errori a parte....!
Buon week End



title: query a campi incrociati (pivot) con totali

author: Droopy

text:
come si fa?
Non ditemi "guardati l'help" perche' l'ho rivoltato come un pedalino e non
c'e' nessun esempio.


author: Roberto da casa

text:
"Droopy" <
dro...@rapnet.it
> ha scritto nel messaggio
news:mQVl8.44495$%g7.14...@twister2.libero.it...
>
> come si fa?
>
> Non ditemi "guardati l'help" perche' l'ho rivoltato come un pedalino e non
> c'e' nessun esempio.
Immagino che tu stia parlando di totali di colonna, in quanto che, per i
totali di riga, non credo che tu abbia problemi: è sufficiente abilitarli
nel wizard di autocomposizione della query a campi incrociati.
Se la tabella su cui hai basato la tua attuale query a campi incrociati si
chiama Tabella1 ed ha una struttura simile a questa:
ID                        Contatore e chiave primaria
CampoRiga          Testo
CampoColonna    Testo
CampoValore       Numerico
Se l'attuale tua query a campi incrociati ha un codice SQL simile a questo:
TRANSFORM Sum(Tabella1.CampoValore) AS [Il valore]
SELECT Tabella1.CampoRiga
FROM Tabella1
GROUP BY Tabella1.CampoRiga
PIVOT Tabella1.CampoColonna;
Creati una query unione chiamata Query1 e che abbia il seguente codice SQL:
SELECT CampoRiga, CampoColonna, CampoValore
FROM Tabella1
UNION SELECT "TOTALE" As CampoRiga, CampoColonna, CampoValore
FROM Tabella1;
A questo punto creati la tua query a campi incrociati basandola su Query1
anziché su Tabella1, ovvero avente il seguente codice SQL:
TRANSFORM Sum(Query1.CampoValore) AS [Il valore]
SELECT Query1.CampoRiga
FROM Query1
GROUP BY Query1.CampoRiga
PIVOT Query1.CampoColonna;
Facendo così, non fai altro che crearti un recordset che contiene i record
di Tabella1 raddoppiati: con una metà dei dati (quelli contraddistinti nel
CampoRiga dal valore "TOTALE") la query a campi incrociati crea la riga con
i totali di colonna. Se la riga dei totali non ti compare in fondo, cambia
il valore della stringa "TOTALE" con un valore che abbia un peso maggiore ai
fini dell'ordinamento (ad esempio "ZZZZ TOTALE" o simili).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> Immagino che tu stia parlando di totali di colonna, in quanto che, per i
> totali di riga, non credo che tu abbia problemi: è sufficiente abilitarli
> nel wizard di autocomposizione della query a campi incrociati.
grazie per tutto, l'ho stampato e poi lo studio.
E' interessante, ma pensavo fosse piu' semplice ;-)
grazie.


text:
"Droopy" <
dro...@rapnet.it
> ha scritto nel messaggio
news:bxdm8.50998$1S3.1...@twister1.libero.it...

Visto che normalmente le query a campi incrociati sono create con
l'autocomposizione, risulta semplice tutto ciò che è previsto come
possibilità dal wizard di auocomposizione. ;-)
>
> grazie.
Comunque, sicuramente ci sono altre soluzioni. Ad esempio, se visualizzi la
query a campi incrociati in una maschera o in un report, i totali di colonna
li puoi calcolare durante la stampa del report o durante la visualizzazione
della maschera, senza bisogno di calcolarteli preventivamente nella query.
Puoi inoltre crearti l'unica riga totali con una query di raggruppamento
basata sulla query a campi incrociati e visualizzarne i risultati in una
maschera o in un report con una sottomaschera o con un sottoreport o appura
con una funzione DLookup.
E poi ci saranno sicuramente altre maniere per dare soluzione al tuo
problema. ;-)



title: concatenare due if then

text:
salve!
devo concatenare queste due routin:
If Me.idx = 8 Or Me.idx = 9 Or Me.idx = 10 Then
EXEC "EXEC dbo.sp_xx '" & Me.Ordine.Value & "'"
Else
EXEC "EXEC dbo.sp_ww '" & Me.Ordine.Value & "'"
End If
però per ognuno degli EXEC devo inserire questa routin:
Dim Prompt As String
Dim reply As String
Prompt = "Si vuole inserire questo ordine nella tabella tstorico?"
reply = MsgBox(Prompt, vbOKCancel, "inserimento record")
If reply = vbOK Then
ho provato in mille modi ma non ci riesco!!!!!!!!
grazie
ciao


title: concatenare due if then

author: Cinzia

text:
"@Roberto" <
Tas...@libero.it
> ha scritto nel messaggio
news:63YDd.382132$b5.18...@news3.tin.it...

Ciao @Roberto,
Dim Prompt As String
Dim reply As String
Prompt = "Si vuole inserire questo ordine nella tabella tstorico?"
If Me.idx = 8 Or Me.idx = 9 Or Me.idx = 10 Then
         reply = MsgBox(Prompt, vbOKCancel, "inserimento record")
         If reply = vbOK Then
            EXEC "EXEC dbo.sp_xx '" & Me.Ordine.Value & "'"
        END IF
Else
        reply = MsgBox(Prompt, vbOKCancel, "inserimento record")
         If reply = vbOK Then
             EXEC "EXEC dbo.sp_ww '" & Me.Ordine.Value & "'"
        END IF
End If
Saluti
Cinzia


title: Rinominare un file con VBA

author: Armando Barchetti News

text:
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!


title: Rinominare un file con VBA

text:
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...

Istruzione Name
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Rinominare un file con VBA

author: Sandro

text:
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...

Ciao Armando prova cosi:
dim nomevecchio,nomenuovo as string
nomevecchio ="c:\tuopath\nomefile.pdf"
nomenuovo ="c:\tuopath\nomenuovofile.pdf"
name nomevecchio as nomenuovo
Ciao


title: Rinominare un file con VBA

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:yGaNd.835274$35.32...@news4.tin.it...

ooops ho visto in ritardo il reply di @Alex.
Mai avrei risposto !!
Ciao.


title: Rinominare un file con VBA

text:
Funziona benissimo
Grazie di tutto!!
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...



title: Rinominare un file con VBA

author: Andrea Pettenon

text:

Ciao ho ripreso questo thread perchè ho modificato il codice in questo modo per ciò che serve a me:

Dim nomevecchio As String
Dim nomenuovo As String
'nomevecchio = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & "\prova*.pdf"
nomevecchio = "M:\GestioneTrasporti\2017\Bolle2017\prova001123.pdf"
nomenuovo = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & Me.IDBolla & ".pdf"
Name nomevecchio As nomenuovo

In questo modo funziona ma io devo modificare la prima riga "nomevecchio = Forms!...ecc " con il nome del file che inizia con "prova" ma poi non conosco i caratteri successivi che avrà il file (sarà solo 1 il file presente nella cartella) con la parte iniziale "prova" e ho provato a usare i caratteri jolly del dos ma non funziona. Come faccio?

Grazie

Andrea


title: Rinominare un file con VBA

text:
Quell'istruzione rinomina un file in un'altro... Non ci possono essere dubbi sui 2 Nomi... ed il Jolly non ha assolutamente nulla a che vedere con questa istruzione.

Se non sai il nome iniziale... prima devi identificarlo... i nomi dei file sono Univoci nella stessa Path... quindi solo 1 potrà essere rinominato.

Spiega bene cosa devi fare perché vengono più dubbi che certezze...

@Alex


title: Rinominare un file con VBA

text:

devo rinominare il file che viene creato da scansione- Il file viene salvato nella cartella con il nome progressivo che dà lo scanner il quale ha la parte iniziale del nome file sempre uguale e cambia la parte finale del file. Io voglio prendere questo file e rinominarlo con il mio IDBolla che ho nella maschera.

Andrea


title: Rinominare un file con VBA

text:
allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...

NomeFile = Dir(Path)

@Alex


title: Rinominare un file con VBA

text:

No in questa cartella ci sono tutti i file rinominati a mano.
Allora mi consiglieresti di fare la scansione su una cartella temporanea e una volta rinominato il file nella mia cartella eliminare questo file nella cartella temporanea in modo che sia sempre vuota.
Puoi aiutarmi col codice da scrivere?
Grazie

Andrea


title: Rinominare un file con VBA

text:

Ho trovato la soluzione:
Dim NomeFile as String
NomeFile = Dir("M:\GestioneTrasporti\ScanTemp\") 'percorso per individuare l'unico file presente in cartella
Name "M:\GestioneTrasporti\ScanTemp\" & NomeFile As "M:\GestioneTrasporti\2017\Bolle\" & Me.IDBolla & ".pdf" 'taglia&incolla il file rinominato


title: Access 2002 ha risolto ?

author: Nemo

text:
Ciao.
Se avete letto del mio problem con l'help online di access 2000
sotto w2k e xp, mi chiedevo, la versione 2002, li ha risolti oppure
ha ancora rogne ?
Intendo l'help per i reference di DAO e ADO.
Grazie.


title: User name

text:
Dato un db in rete protetto con la security di access, come intercettare
lo username che si è loggato per, ad esempio, scriverlo in un campo della
tabella che sta movimentando? Grazie al ng.


title: User name

author: Federico Luciani

text:
renzo.c...@isace.it
 wrote:
> Dato un db in rete protetto con la security di access, come intercettare
> lo username che si č loggato per, ad esempio, scriverlo in un campo della
> tabella che sta movimentando? Grazie al ng.
Cerca CurrentUser
--
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: User name

author: Giovanni Albertone

text:
On 5 Apr 2000 13:05:10 GMT,
renzo.c...@isace.it
 wrote:
>Dato un db in rete protetto con la security di access, come intercettare
>lo username che si è loggato per, ad esempio, scriverlo in un campo della
>tabella che sta movimentando?
Ma l'help proprio no?
Leggiti le istruzioni di CurrentUser
--
Ciao,
Giovanni


title: Errore runtime

author: Guido

text:
Salve.
Ho installato su 2 PC (identici come modello impostazioni connessioni di
rete) con Win2000 e Office2000 un mio programma sviluppato con Access97 e
quindi "tradotto" da A2000.
Il programma deve elaborare a volte migliaia di records.
Su di una macchina, e solo su quella, dopo un certo numero di elaborazioni
compare il messaggio "Errore runtime 3052 - Superato il numero di blocchi
per la condivisione del file. Aumentare la voce di registro
MaxLockPerFile".
Ciň accade sia che il BE sia su server che in locale.
Sulla seconda macchina tutto fila liscio.
Qualcuni puň spiegarmi il significato del messaggio e gli eventuali
provvedimenti ?
Grazie
Guido


title: Errore runtime

author: Lorenzo(pyx)

text:
Guido wrote:
> Salve.
> Ho installato su 2 PC (identici come modello impostazioni connessioni
> di rete) con Win2000 e Office2000 un mio programma sviluppato con
> Access97 e quindi "tradotto" da A2000.
>
> Il programma deve elaborare a volte migliaia di records.
> Su di una macchina, e solo su quella, dopo un certo numero di
> elaborazioni compare il messaggio "Errore runtime 3052 - Superato il
> numero di blocchi per la condivisione del file. Aumentare la voce di
> registro MaxLockPerFile".
>
> Ciò accade sia che il BE sia su server che in locale.
>
> Sulla seconda macchina tutto fila liscio.
>
> Qualcuni può spiegarmi il significato del messaggio e gli eventuali
> provvedimenti ?
>
> Grazie
>
> Guido
Ciao,
vedi se ti e' di aiuto questa KB:
http://support.microsoft.com/?kbid=161329
Ci sono due metodi proposti per aumentare il blocco di default
della voce MaxLockPerFile.
Ciao
Lorenzo


title: Errore runtime

text:
"Lorenzo\(pyx\)" <Lorenzo@_
NO.SPA.M_pyx.it
> wrote in news:S6BMd.15157
$
QG6.2...@twister2.libero.it
:
[cut]
>
> Ciao,
> vedi se ti e' di aiuto questa KB:
>
http://support.microsoft.com/?kbid=161329
>
> Ci sono due metodi proposti per aumentare il blocco di default
> della voce MaxLockPerFile.
>
> Ciao
> Lorenzo
>
Grazie, Lorenzo, penso sia la soluzione ideale. Oggi lo provo.
Però ancora mi chiedo:
- il problema è dovuto solo al nr. di records elaborati o è anche causato
da un "difetto" di programmazione ?
- perchè sull'altra macchina identica non si verifica ? Forse altri
programmi installati hanno settato il registro su di un valore maggiore ?
Ciao e buona giornata.
Guido


title: Errore runtime

text:

Ciao
In fondo all'articolo ne viene spiegata la ragione che era dovuta
a dei problemi di coesistenza fra Wnt e Netware 3.1.
E' sufficiente modificare il valore di default nel registro, il problema
dovrebbe scomparire.
Ciao
lorenzo


title: somma di somme...!

author: Giacomo

text:
ciao a tutti,
ho una query che mi estrapola i soldi versati dal mio cliente mese per
mese relativamente l'anno specificato da utente.
quindi ho
gennaio:
euro:   xxxxx
            xxxx1
            xxxx2
dollari: yyyyy
            yyyy1
            yyyy2
Febbraio:
euro:   zzzzz
            zzzz1
dollari: kkkkk
            kkkk1
            kkkk2
            kkkk3
e cosi via
dove anno=[Inserisci anno]
e dove ho un group by sul mese (ovviamente).
fin qui, tutto ok.
da questa query ho creato il report.
e funziona.
per ogni mese inoltre ho fatto fare un somma([Importo]) valuta per
valuta cosi ho
gennaio:
totale euro:   XXXXX
totale dollari: YYYYY

Febbraio:
totale euro:   ZZZZZZ
totale dollari: KKKKK
e cosi via
il problema e che a fine pagina vorrei un report totale in euro e in
dollari ma non me lo calcola xe per quanto l'espressione sia
sintatticamente corretta (credo) mi dice che e un'istruzione troppo
complessa:
io ho messo infatti:
totale euro: =Somma(IIf([Valuta]=2,[Importo],0))
/*Valuta = 2 corrisponde ad Euro, valuta=1 corr. dollari */
totale dollari: =Somma(IIf([Valuta]=1,[Importo],0))
ma non va!
come posso fare?
ho provato anche a mettere al posto di somma(bla bla,[importo] ,0))
Somma(iif([valuta]=1,[SommaDiImporto],0))
com sommaDiImporto il campo calcolato per sopra ma non va uguale.
grazie a chi potra aiutarmi!
-g-


title: nome PC in uso

author: AndreaB

text:
Ciao a tutti,
ho bisogno di una routine che mi ritorni il nome del pc sul quale sta
girando il db.
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: nome PC in uso

author: MA

text:
"AndreaB" <
a.bi...@berco.com
> ha scritto nel
messaggio news:chh6m3$b4s$1...@news.newsland.it...
> Ciao a tutti,
> ho bisogno di una routine che mi ritorni il nome
del pc sul quale sta
> girando il db.
>
> Grazie
>
Msgbox Environ("ComputerName")
MAssimiliano


title: nome PC in uso

text:
MA ha scritto:


Grazie



title: nome PC in uso

author: Enrico T.S.

text:
"AndreaB" <
a.bi...@berco.com
> ha scritto nel messaggio
news:chh741$h6p$1...@news.newsland.it...
> MA ha scritto:
>
> > "AndreaB" <
a.bi...@berco.com
> ha scritto nel
> > messaggio news:chh6m3$b4s$1...@news.newsland.it...
> > > Ciao a tutti,
> > > ho bisogno di una routine che mi ritorni il nome
> > del pc sul quale sta
> > > girando il db.
> > >
> > > Grazie
> > >
>
> > Msgbox Environ("ComputerName")
> > MAssimiliano
tieni conto anche di :  Environ("ClientName")
nel caso in rete si utilizzi il programma con terminal server.
bye :o)


title: salva allegati sul disco rigido con access

author: max

text:
ho scaricato dal sitocomune il seguente file:
6.122 Come salvare un allegato da un messaggio di posta in arrivo sul disco
fisso
mi da due errori di:
nessun oggetto in questo controllo
e quando provo a far cercare qualcosa nelle e-mail mi da
errore run-time 438 proprietą o metodo non supportati dall'oggetto
nel debug alla riga:
MapiSession.LogonUI = False
penso che mi manca qualche riferimento o addirittura l'ocx,
uso access 2003
grazie a tutti
ciao
Max


text:
"max" <
pi...@pippo.it
> ha scritto nel messaggio
news:ftkgi0$bg8$1...@aioe.org...
> ho scaricato dal sitocomune il seguente file:
> 6.122 Come salvare un allegato da un messaggio di posta in arrivo sul
> disco fisso
>
> mi da due errori di:
> nessun oggetto in questo controllo
>
> e quando provo a far cercare qualcosa nelle e-mail mi da
> errore run-time 438 proprietà o metodo non supportati dall'oggetto
> nel debug alla riga:
> MapiSession.LogonUI = False
>
> penso che mi manca qualche riferimento o addirittura l'ocx,
> uso access 2003
> grazie a tutti
> ciao
> Max
Perdonatemi l'insistenza, sono totalmente consapevole delle regole del
newsgroup per cui non mi è dovuta una risposta, ma la cosa strana è che
ormai mi avete abituato bene, e al massimo in un paio d'ore ricevo risposte
ai miei quesiti. essendo la domanda posta su un estratto dal sitocomune
pensavo che fosse semplice rispondere, su google putroppo non ho trovato
nulla e mi sono rivolto al newsgroup
Ho forse posto la domanda in maniera scorretta? Mancano dei parametri
necessari?
grazie a tutti
ciao
max


author: Sergio MAZZA

text:
"max" <
pi...@pippo.it
> ha scritto nel messaggio news:ftnfon$o0$1...@aioe.org...
>
> Perdonatemi l'insistenza, sono totalmente consapevole delle regole del
> newsgroup per cui non mi č dovuta una risposta, ma la cosa strana č che
> ormai mi avete abituato bene, e al massimo in un paio d'ore ricevo
> risposte ai miei quesiti. essendo la domanda posta su un estratto dal
> sitocomune pensavo che fosse semplice rispondere, su google putroppo non
> ho trovato nulla e mi sono rivolto al newsgroup
> Ho forse posto la domanda in maniera scorretta? Mancano dei parametri
> necessari?
> grazie a tutti
> ciao
> max
Forse questo ti aiuta:
http://support.microsoft.com/kb/194784
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:4800cbce$0$29984$5fc...@news.tiscali.it...

ho fatto il download dell'ocx, l'ho messo nella cartella System32, l'ho
registrato (REGSVR32 C:\WINDOWS\SYSTEM32\MSMAPI32.OCX) e ora sembra che vada
tutto bene....
grazie Sergio
ciao
Max


title: problema con OnMouseMove

author: fsangio

text:
Voglio utilizzare tale metodo per vedere una casella di testo quando
vado col mouse su un tasto di comando.
...onmousemove(....)
   me.caselladitesto.visible = iif(me.caselladitesto.visible, false,
true)
end sub
Il problema è che se io già sono sul tasto e muovo ancora il mouse al
suo interno, la casella di testo compare e scompare.
Inoltre quando esco dall'area del tasto, comunque può capitare che la
casella di testo resti ancora visibile.
in pratica io voglio che la casella di testo sia visibile sempre mentre
sono sul comando e invisibile quando sono fuori dalla sua area.
Come si fa ?
Grazie


title: problema con OnMouseMove

author: Alessandro

text:
"fsangio" <
fsa...@libero.it
> wrote in message
news:MPG.16afcd6dc...@news.infinito.it...

...onmousemove(....)
    If not me.caselladitesto.visible then me.caselladitesto.visible=true
end sub
Evento OnMouseDown(..)
   me.caselladitesto.visible=true
End sub
Alessandro.(@Alex)
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Array teoria e pratica

text:
Data questa sub che apre un recordset e visualizza in msgbox elenco
dei record separati da punto e virgola, vorrei sapere come posso
trasformare la stringa "lista" in array in modo da poter inserirne
tutti i valori dentro la tabella RS_OUT. Con i recordset sono capace,
ma volevo sapere come fare con un array.
Grazie mille
Private Sub CmdArr_Click()
Dim RS_IN As Recordset
Dim RS_OUT As Recordset
Dim lista As String
Dim ii As Integer
Set RS_IN = CurrentDb.OpenRecordset("s")
Set RS_OUT = CurrentDb.OpenRecordset("SS")
Do Until RS_IN.EOF
lista = lista & RS_IN!NomeFile & ";" & vbCrLf
ii = ii + 1
RS_IN.MoveNext
Loop
MsgBox lista
MsgBox ii
RS_IN.Close
RS_OUT.Close
Set RS_OUT = Nothing
Set RS_IN = Nothing
End Sub


title: Array teoria e pratica

text:
Scusa ma non ho capito, o meglio spero di sbagliare...
Vorresti creare un Array da un Recordset per poi scrivere l'Array in
una tabella....???
Se ho inteso bene, questo è assurdo... esistono i comandi DDL che in
un colpo solo fanno tutto...
    INSERT INTO T1 SELECT * FROM T2
Oppure se devi processare in modo pesante i dati cicla il Recordset e
scrivi in tabella...!
Nel tuo caso se la Tab di destinazione contiene solo il campo NomeFile
che deve derivare dalla Tab_In farei così:
INSERT INTO Tb_Dest (NomeCampo) SELECT NomeCampo From TIN
Non è questo il caso, poichè l'esempio che ti posto sarebbe da usare
nel caso in cui il singolo Record debba essere processato pesantemente
prima di essere salvato, ma semplifico per renderti le cose più
agevoli...
Dim rs_IN as DAO.Recordset
Dim rs_Out as DAO.Recordset
Set rs_IN = CurrentDb.OpenRecordset("T_IN")
Set rs_Out=CurrentDb.OPenRecordset("T_DEST")
If Not rs_IN.Eof Then
   rs_IN.MoveNext
   rs_IN.MoveFirst
   Do Until rs_IN.EOF
       rs_Out.AddNew
       rs_Out.Fields("NomeFile").Value=rs_IN.Fields("NomeFile").Value
       rs_Out.Update
       rs_IN.MoveNext
   Loop
End if
rs_IN.close
rs_OUT.close
set rs_IN=Nothing
set rs_Out=Nothing
Facci sapere....
@Alex


title: Array teoria e pratica

text:

Ciao Alex quanto da te esposto non fa una grinza, e lo utilizzo.
Volevo soltanto vedere come funzionava un'altra strada anche se
assurda:
ossia convertire una stringa che contiene un elenco di valori, in
array e fare inserimento di questo array in un'altra tabella.


title: sql per ricerca testo conparola chiave

author: marcopo

text:
Ho un database per gestire un archivio film.
Dovrei creare una SQL che mi restituica l'elenco di tutti i film che
contenga al suo interno una parola chiave che immetterň in un controllo.
Potete aiutarmi.
Marco


title: sql per ricerca testo conparola chiave

author: Roberto da casa

text:
"marcopo" <
pon...@libero.it
> ha scritto nel messaggio
news:9VV6c.82764$FJ6.2...@twister1.libero.it...
> Ho un database per gestire un archivio film.
> Dovrei creare una SQL che mi restituica l'elenco di tutti i film che
> contenga al suo interno una parola chiave che immetterò in un controllo.
> Potete aiutarmi.
>
> Marco
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ
intitolata "Come si può filtrare una maschera in base a una o più parole o
frasi contenute all'interno di un suo controllo?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Domanda + Auguri

author: Alessio

text:
Ciao a tutti,
prima la domanda:
si può in VBA far si che access prenda le coordinate min e max di un
quadrilatero e lo disegni su un report?
In pratica avendo 4 campi numerici che mi definiscono X e Y max e min,
quindi le coordinate due punti estremi di un quadrilatero, vorrei poterle
poterle prendere e visualizzare su un report come quadrilatero.
Ora gli auguri:
Auguro a tutto il NG una Buona Pasqua ed una Pasquetta assolata.
Grazie
Alessio


title: Domanda + Auguri

author: Roberto dal portatile

text:
"Alessio" <
axe...@libero.it
> ha scritto nel messaggio
news:9b4fks$p54$1...@news.cineca.it...

Vai sul Sito Comune (link qui sotto), Sezione Reports, "Inserire linee e
rettangoli in un report." di Sib.
Buona a Pasqua a te.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Domanda + Auguri

author: ciroc

text:
scusami se non rispondo alla tua domanda data la mia ignoranza (sono nuovo
di access) cmq ricambio di cuore gli auguri


title: query di accodamento o queri di aggiornamento?

author: Casinototale

text:
Salve a tutti, io ho il seguente problema:
Ho una tabella nella quale confluiscono di volta in volta i dati di due
query, vorrei evitare di ritrovarmi i dati duplicati nella tabella.
Come posso risolvere il mio problema?
Grazie a tutti coloro che presteranno attenzione al mio quesito.


author: Alessandro Baraldi

text:
Casinototale ha scritto:

Esegui una Query Select prima per verificare l'esistenza dei Records da
aggiungere, quindi se sono già presenti esegui una Query UPDATE,
altrimenti una query INSERT.
Sempre abbia capito bene...
@Alex


text:
"Casinototale" <
lorenzo...@gmail.com
> ha scritto nel messaggio news:1158770675....@e3g2000cwe.googlegroups.com...

Fai una condizione che escluda la presenza nella nuova tabella dei record già inseriti nella vecchia:
es.
INSERT INTO vecchiaTab
SELECT nuovaTab.*
FROM nuovaTab
WHERE vecchiaTab.numero Not In (select numero from nuovaTab);
Ciao.
--
Sergio MAZZA


title: Run MACRO

author: luigi corinna

text:
Buon Giorno Access97
come faccio da VBA a far partire una macro....
Grazie
 Luigi


title: Run MACRO

author: Karl Donaubauer

text:
luigi corinna ha scritto:
> come faccio da VBA a far partire una macro....
DoCmd.RunMacro "NomeMacro"
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Run MACRO

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:bv5pn5$mq3or$1...@ID-46617.news.uni-berlin.de...
> luigi corinna ha scritto:
> > come faccio da VBA a far partire una macro....
>
> DoCmd.RunMacro "NomeMacro"
>
Tanks



title: Run-Time 429

author: Paolo Soldani

text:
ho portato la mia applicazione fatta con ACCESS 2000 da un cliente... quando
la lancio mi dà l'errore RUN-TIME 429 IL COMPONENTE ACTIVEX NON E' IN GRADO
DI CREARE L'OGGETTO....
Ho provato a reinstallare OFFICE 2000 ma il problema rimane...
Qualcuna ne sà qualcosa ?
Grazie..


title: Run-Time 429

text:
Paolo Soldani schrieb:
> ho portato la mia applicazione fatta con ACCESS 2000 da un cliente...
quando
> la lancio mi dà l'errore RUN-TIME 429 IL COMPONENTE ACTIVEX NON E' IN
GRADO
> DI CREARE L'OGGETTO....
>
> Ho provato a reinstallare OFFICE 2000 ma il problema rimane...
Spesso è un problema di Dao.dll.
Trovi un articolo a
www.sitocomune.com
.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Report e grafici

author: Skydiesis

text:
Ciao,
sto realizzando, o almeno ci sto provando, un database che permetta di
realizzare dei semplici report grafici su base mensile ed annuale: il
problema è che quando visualizzo il grafico nel report (grafico basato su
di una query di selezione), i mesi sull'asse delle ascisse appaiono in
ordine alfabetico (aaarghh :-/); inoltre non mi è possibile modificare i
colori delle varie colonne del grafico (e questo mi sarebbe molto utile ai
fini della comprensione del grafico) perché in modalità progettazione mi
mostra il solito grafico di default (quello con East North etc..). Qualcuno
conosce per caso la soluzione a questi arcani misteri? Ho già provato ad
ordinare i record tramite la query, ed infatti la tabella risultato della
query è corretta ma il grafico non ne vuole proprio
sapere...ah...dimenticavo: utilizzo Access 2002.
Grazie per l'attenzione e nella speranza (forse vana) di non avere scritto
oscenità, vi auguro una buona gionata! :-)
S.


title: Sintassi Query parametrica

author: Fabio Gulotta

text:
Ragazzi come si fà a eseguire una query parametrica .... fornendo anche i
parametri  attraverso VBA ?
o meglio qual'è la sintassi del comando? ));


title: Sintassi Query parametrica

text:

www.donkarl.com/it
 FAQ 6.16 Aprire una query parametrica da VBA
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Sintassi Query parametrica

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3t1g61F...@individual.net...
>
www.donkarl.com/it
 FAQ 6.16 Aprire una query parametrica da VBA
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
> + Conferenza Italiana per Sviluppatori di Access (CISA)
>
grazie....!!


title: non funge più la query

author: Michael

text:
In un db vengono annotate  le telefonate giunte dai clienti.
Poi c'è sta query a parametro che estrae il numero delle telefonate fatte e
infine il report riepiloga il totale.
Orbene, per quasi tutti i clienti il conteggio è ok , ma per alcuni ne
vengono riportate 2 anzichè 100 , ad esempio.....
Non capisco come faccia a funzionare per alcuni clienti e non per altri....
ciao


title: non funge più la query

text:
scusate, il cliente aveva 2 codici!!!!
sommandone le chiamate il conto torna!!!


title: Richiamo Query

author: Giorgio A.

text:
Per cortesia un aiuto.
In una casella di riepilogo come origine riga ho:
SELECT AppClienti.IdCliente, AppClienti.DataAppun, AppClienti.OraAppu,
AppClienti.CognomeCliente, AppClienti.NomeCliente, AppClienti.TelCliente,
AppClienti.Operatore, AppClienti.ConcatenaTratt
e come tipo di origine "Tabella o Query"
Nella Query in visualizzazione SQL ho:
SELECT AppClienti.IdCliente, AppClienti.DataAppun, AppClienti.OraAppu,
AppClienti.CognomeCliente, AppClienti.NomeCliente, AppClienti.TelCliente,
AppClienti.Operatore, AppClienti.ConcatenaTratt
FROM AppClienti
WHERE (((AppClienti.DataAppun) Between [Forms]![Appuntamenti]![Txt1] And
[Forms]![Appuntamenti]![Txt2]))
ORDER BY AppClienti.DataAppun DESC , AppClienti.OraAppu DESC;
Il tutto mi permette di caricare record  da un intervallo di data (Txt1 �
Txt2)
Allo stato attuale  l'aggiornamento della casella di riepilogo avviene con:
Private Sub Txt2_AfterUpdate()
  Me.Elenco17.Requery
End Sub
Private Sub Txt2_BeforeUpdate(Cancel As Integer)
  Me.Elenco17.Requery
End Sub
Come fare per applicare questa Query alla pressione di un command1
ho provato a manipolarla ma mi si presentano vari errori
Private Sub Comando23_Click()
Dim strSQL
strSQL = "SELECT AppClienti.IdCliente, AppClienti.DataAppun,
AppClienti.OraAppu, AppClienti.CognomeCliente, AppClienti.NomeCliente,
AppClienti.TelCliente, AppClienti.Operatore, AppClienti.ConcatenaTratt FROM
AppClientiWHERE (AppClienti.DataAppun)ORDER BY AppClienti.DataAppun DESC ,
AppClienti.OraAppu DESC;"
'Me.RecordSource = strSQL
Me.Elenco17.Requery
End Sub
Grazie e cordialit�
Giorgio


title: Richiamo Query

author: Antonio

text:
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:4b6d7f26$0$828$4faf...@reader5.news.tin.it...

Piuttosto che scrivere l'intera sequela SQL, non ti conviene mettere
semplicemente il nome della query nella propriet� rowsource ? Cos�:
me.elenco17.rowsource = "nome della query corretta"
me.elenco17.requery
Ciao
Antonio


title: Richiamo Query

text:
Cortesemente Antonio ha postato:
> Piuttosto che scrivere l'intera sequela SQL, non ti conviene mettere
> semplicemente il nome della query nella propriet� rowsource ? Cos�:
> me.elenco17.rowsource = "nome della query corretta"
> me.elenco17.requery
Perfetto, ora posso applicarlo ad un command1
Grazie, con riconoscenza
Giorgio


title: Creare un nuovo database con i dati di uno esistente

author: tommy

text:
salve a tutti,
ho un database diviso in Fe e Be, tramite un pulsante di comando sul
Fe, io dovrei:
1) crearmi un nuovo database
2) importarmi tutte le tabelle del Be attuale
3) eliminare il be attuale
4) rinominare il nuovo database con il nome del Be elimininato
5) compattarlo ed aprirlo.
il tutto naturalmente mentre al Be sono collegati diversi Fe, penso che
questo sia un problema...
pensate che ciò sia possibile, se no, quale può essere
un'alternativa?
Ciao tommy


author: Roberto dalla campagna

text:
"tommy" <
toa...@libero.it
> ha scritto nel messaggio
news:1127381459.6...@f14g2000cwb.googlegroups.com...
>salve a tutti,
>ho un database diviso in Fe e Be, tramite un pulsante di comando sul
>Fe, io dovrei:
>1) crearmi un nuovo database
>2) importarmi tutte le tabelle del Be attuale
>3) eliminare il be attuale
>4) rinominare il nuovo database con il nome del Be elimininato
>5) compattarlo ed aprirlo.
>il tutto naturalmente mentre al Be sono collegati diversi Fe, penso che
>questo sia un problema...
>pensate che ciň sia possibile, se no, quale puň essere
<un'alternativa?
Penso che tu non avresti problema se tutti gli FE fossero chiusi.
>Ciao tommy
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: SendKeys CAPSLOCK

author: bg

text:
Perche' non riesco a farlo funzionare?
Nella maschera che mi fa da pannello di controllo su FormOpen ho messo
l'istruzione
    SendKeys "{CAPSLOCK}"
ma a parte un leggero colpo del led della tastiera che poi rimane spento e
alla comparsa della scritta MA sulla barra di stato non ottengo le maiuscole
sempre attivate.
Ho provato anche con true e false come wait ma non ottengo nulla di piu'.
Grazie a tutti
bg


title: SendKeys CAPSLOCK

author: Marco Serra

text:
Non e' cosi' semplice.
Se mastichi un po' di VB guarda qui:
http://www.mvps.org/vbnet/code/system/capslock.htm
Contiene l'articolo:
Activating CapsLock and NumLock on Win9x
Da VB funziona, e credo che con poco piu' di un paio di copia-incolla vada anche in access.
Se ce la fai io te lo consiglio
Se invece vuoi la soluzione gia' pronta, io provai il codice che segue.
E' un po' lungo ma gestisce anche il NumLock e dovrebbe andare anche con Windows NT.
Ha il piccolo inconveniente che, a volte per disabilitare manualmente un CAPSLOCK impostato mediante questo codice, devi spingere
il tasto 2 volte.
Per questo l'abbandonai. Ma se a te va bene..
Sostituisci la Sendkeys CAPSLOCK con
   If Not IsCapsLockOn() Then ToggleCapsLock
Poi incolla questo codice in un modulo VB (meglio uno nuovo per chiarezza)
Option Compare Database
Option Explicit
      ' Declare Type for API call:
      Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128   '  Maintenance string for PSS usage
      End Type
      ' API declarations:
      Private Declare Function GetVersionEx Lib "kernel32" _
         Alias "GetVersionExA" _
         (lpVersionInformation As OSVERSIONINFO) As Long
      Private Declare Sub keybd_event Lib "user32" _
         (ByVal bVk As Byte, _
          ByVal bScan As Byte, _
          ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
      Private Declare Function GetKeyboardState Lib "user32" _
         (pbKeyState As Byte) As Long
      Private Declare Function SetKeyboardState Lib "user32" _
         (lppbKeyState As Byte) As Long
      ' Constant declarations:
      Const VK_NUMLOCK = &H90
      Const VK_SCROLL = &H91
      Const VK_CAPITAL = &H14
      Const KEYEVENTF_EXTENDEDKEY = &H1
      Const KEYEVENTF_KEYUP = &H2
      Const VER_PLATFORM_WIN32_NT = 2
      Const VER_PLATFORM_WIN32_WINDOWS = 1
Function IsCapsLockOn() As Boolean
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        IsCapsLockOn = keys(VK_CAPITAL)
End Function
Sub ToggleCapsLock()
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
        'Toggle capslock
            keys(VK_CAPITAL) = Abs(Not keys(VK_CAPITAL))
            SetKeyboardState keys(0)
        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
          'Simulate Key Press
            keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
          'Simulate Key Release
            keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
               Or KEYEVENTF_KEYUP, 0
        End If
End Sub
Function IsNumLockOn() As Boolean
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        IsNumLockOn = keys(VK_NUMLOCK)
End Function
Sub ToggleNumLock()
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
          If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
                keys(VK_NUMLOCK) = Abs(Not keys(VK_NUMLOCK))
                SetKeyboardState keys(0)
          ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
          'Simulate Key Press
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
          'Simulate Key Release
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
               Or KEYEVENTF_KEYUP, 0
          End If
End Sub
Function IsScrollLock()
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        IsScrollLock = keys(VK_SCROLL)
End Function
Sub ToggleScrollLock()
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
            keys(VK_SCROLL) = Abs(Not keys(VK_SCROLL))
            SetKeyboardState keys(0)
        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
            'Simulate Key Press
            keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
            'Simulate Key Release
            keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
        End If
End Sub
Sub mySendKeys(sKeys As String, Optional bWait As Boolean = False)
Dim bNumLockState As Boolean
    bNumLockState = IsNumLockOn()
    SendKeys sKeys, bWait
    If IsNumLockOn() <> bNumLockState Then
        ToggleNumLock
    End If
End Sub
--
Posted from [212.210.92.253]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: SendKeys CAPSLOCK

author: Giulio Petrini

text:
Io ho risolto formattando in maiuscolo i campi che mi interessavano
con la funzione format(campo,">") in uscita,
ma non so' se per te è troppo semplicistica.
Ciao Giulio
"bg" <
spiagg...@POSTA.libero.it
> ha scritto nel messaggio
news:x4fR5.78419$BF.27...@news.infostrada.it...



title: SendKeys CAPSLOCK

text:
""Marco Serra"" <
Marco...@ausl.bologna.it
> ha scritto nel messaggio
news:00cd01c05146$22f954e0$6702...@internal.ausl.bologna.it...
> Non e' cosi' semplice.
>
> Se mastichi un po' di VB guarda qui:
>
>
http://www.mvps.org/vbnet/code/system/capslock.htm
>
> Contiene l'articolo:
> Activating CapsLock and NumLock on Win9x
>
> Da VB funziona, e credo che con poco piu' di un paio di copia-incolla vada
anche in access.
> Se ce la fai io te lo consiglio
>
> Se invece vuoi la soluzione gia' pronta, io provai il codice che segue.
> E' un po' lungo ma gestisce anche il NumLock e dovrebbe andare anche con
Windows NT.
>
> Ha il piccolo inconveniente che, a volte per disabilitare manualmente un
CAPSLOCK impostato mediante questo codice, devi spingere
> il tasto 2 volte.
>
> Per questo l'abbandonai. Ma se a te va bene..
>
> Sostituisci la Sendkeys CAPSLOCK con
>
>    If Not IsCapsLockOn() Then ToggleCapsLock
>
> Poi incolla questo codice in un modulo VB (meglio uno nuovo per chiarezza)
>
>
> Option Compare Database
> Option Explicit
>
> ......
Grazie, provero'  sia il sito che il listato.
Ahh... le Api...
bg


title: A proposito di compattazione

author: Salbarg

text:
Ecco quello che faccio io quando distribuisco un db .mde nel quale voglio
dare la possibiltà di compattare il database stesso:
vado in menu' Visualizza -> Barre degli strumenti -> Personalizza..., quindi
trascino la voce Compatta database dal menu' Strumenti -> Utilità
database... sulla barra dei menù personalizzata appositamente creata,
eliminandola quindi dal menù Strumenti di Access. Per ripristinarla, sempre
dal menu' Visualizza -> Barre degli strumenti -> Personalizza..., reimposto
la Barra dei menù col pulsante Reimposta.
Che ne pensate ?
Ciao


title: A proposito di compattazione

author: Sergio MAZZA

text:
"Salbarg" <salbarba@worldonline. i t> ha scritto nel messaggio
news:8867u1$lqp$1...@nslave2.tin.it...

E' un'idea. Il problema è che la compattazione riavvia la procedura, con un
effetto non troppo "carino". Forse se inserita nelle voci di un ipotetico
menù iniziale e non utilizzabile da qualsiasi punto della procedura,
l'effetto "riavvio" non disturberebbe...
Ciao.


title: recordest e relazione uno-a-molti

author: Femto

text:
Ciao Ng, rileggendo il mio post precedente mi rendo conto che non č il
massimo della limpidezza, ripropongo in questo modo: qualcuno sa dove posso
trovare un esempio di recordset in cui ci caschi anche una relazione
uno-a-molti?
GRazie
Femto


title: recordest e relazione uno-a-molti

author: MA

text:
"Femto" <
fem...@tiscali.it
> ha scritto nel messaggio
news:4209f803$0$6320$5fc...@news.tiscali.it...
> Ciao Ng, rileggendo il mio post precedente mi rendo conto che non è il
> massimo della limpidezza, ripropongo in questo modo: qualcuno sa dove
> posso
> trovare un esempio di recordset in cui ci caschi anche una relazione
> uno-a-molti?
>
> GRazie
>
Aumentando anche la limpidezza della non risposta.
Che devi fare?
MAssimiliano


title: recordest e relazione uno-a-molti

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:9LmOd.1754$hd4...@news.edisontel.com...

...ciao..allora il problema nasce che vorrei visualizzare su una griglia
delle immagini, ho letto che devo che utilizzare un recordset per fare
questo..quindi ho inziato a lavorarci su, e mi chiedevo se esisteva un
esempio di questo tipo da qualche parte..
Femto


title: recordest e relazione uno-a-molti

text:
"Femto" <
fem...@tiscali.it
> ha scritto nel messaggio
news:420a0228$0$6317$5fc...@news.tiscali.it...
>
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:9LmOd.1754$hd4...@news.edisontel.com...
>>
>> "Femto" <
fem...@tiscali.it
> ha scritto nel messaggio
>> news:4209f803$0$6320$5fc...@news.tiscali.it...
>> > Ciao Ng, rileggendo il mio post precedente mi rendo conto che non č il
>> > massimo della limpidezza, ripropongo in questo modo: qualcuno sa dove
>> > posso
>> > trovare un esempio di recordset in cui ci caschi anche una relazione
>> > uno-a-molti?
>> >
>> > GRazie
>> >
>> Aumentando anche la limpidezza della non risposta.
>> Che devi fare?
>> MAssimiliano
>>
>>
>>
> ...ciao..allora il problema nasce che vorrei visualizzare su una griglia
> delle immagini,
Oggi sono piů rinco del solito.
In che senso su una griglia delle immagini?
Come fosse un Thumbnail?
MAssimiliano


title: recordest e relazione uno-a-molti

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ctnOd.1768$hd4...@news.edisontel.com...

...esattissimo...
Femto


title: recordest e relazione uno-a-molti

text:
>> >> > Ciao Ng, rileggendo il mio post precedente mi rendo conto che non č
> il
>> >> > massimo della limpidezza, ripropongo in questo modo: qualcuno sa
>> >> > dove
>> >> > posso
>> >> > trovare un esempio di recordset in cui ci caschi anche una relazione
>> >> > uno-a-molti?
>> >> >
>> >> > GRazie
>> >> >
>> >> Aumentando anche la limpidezza della non risposta.
>> >> Che devi fare?
>> >> MAssimiliano
>> >>
>> >>
>> >>
>> > ...ciao..allora il problema nasce che vorrei visualizzare su una
>> > griglia
>> > delle immagini,
>>
>> Oggi sono piů rinco del solito.
>> In che senso su una griglia delle immagini?
>> Come fosse un Thumbnail?
>> MAssimiliano
>>
>>
> ...esattissimo...
Oh...
come lo vuoi organizzare?
cosa ci mettiamo nelle x?
cosa nelle y?
quante immagini vuoi sulle x?
MAssimiliano


title: recordest e relazione uno-a-molti

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:sDnOd.1771$hd4...@news.edisontel.com...

..si riesce a fare un 4 x y dove y č una variabile, cioč possono esistere
situazioni in cui posso anche avere fino a 20 o piů immagini?
Femto


title: recordest e relazione uno-a-molti

text:
"Femto" <
fem...@tiscali.it
> ha scritto nel messaggio
news:420a06d1$0$32352$5fc...@news.tiscali.it...

...ciao...non sai dirmi dove posso trovare un esempio?
Grazie
Femto


title: Impostazione di date su Report?

author: Mario

text:
Come faccio a far stampare una serie di report con una data da me impostata
precedentemente, attenzione non quella corrente; va bene anche se me la
chiede prima della stampa. grazie


title: Impostazione di date su Report?

author: guxdav

text:
Mario <
eth...@tin.it
> wrote in message 8thid9$fiv$1...@nslave2.tin.it...

Inserisci una casella di testo nel report; nell'origine controllo metti
=[data?].
Ciao,  Davide


title: Campo già esistente.

text:
Ragazzi ,
ho un problema , avrei la necessità nel mio database che mi avvisasse
quando cerco di immettere un valore doppio, cioè:
Tabella Anagrafica ho il seguente campo CodiceCliente numerico ad
esempio 0001
Tabella Ordini ho i seguenti campio  CodiceDitta e CodiceOrdine
adesso quando inserisco un nuovo cliente nella maschera anagrafica
collegata alla tabella anagrafica sull'evento prima di aggiornare ho
posto:ù
Private Sub CodiceCliente_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("CodiceCliente", "tbl_Anagrafica", "CodiceCliente
= " & Chr$(34) & Me!CodiceCliente & Chr$(34))) _
And Me!CodiceCliente <> Nz(Me!CodiceCliente.OldValue) Then
  MsgBox Me!CodiceCliente & " Già esiste.", vbOKOnly, "Duplicato!"
  Cancel = True
End If
End Sub
funziona....
adesso sulla maschera ordini ho sia codice ordine che codice cliente ,
ho creato una casella di testo non associata dov ho posto il seguente
codice
=("LD39-" & [CodiceDitta] & "-" & [CodiceOrdine])  ------codice
alfanumerico
ora vorrei usare lo stesso codice vba come sopra per andare a fare la
stessa ricerca e non permettermi di potere inserire lo stesso codice
alfanumerico .
potete aiutarmi


title: Campo già esistente.

author: Massimo Piubelli

text:

secondo me devi nidificare gli "if"
cioè arrivare a una cosa del tipo
IF not isnull dlookup("codicecliente....") then
    'esiste, quindi vedo se il cliente ha un ordine con quel codice
    if not isnull dlookup(... scirivi il controllo che vuoi fare) then
        msgbox "Il cliente  ha già un ordine con questo codice"
    endif
endif
>
> potete aiutarmi
prova e vedi se riesci a "venirne fuori"
Ciao,
Max


title: [Libri] Relazione libro "Progettare database relazionali"

author: TopGun

text:
Un saluto a tutto il NG :)
Allora, visto che le recensioni sui libri scarseggiano, mi sono messo un po'
sotto ed ho scritto due righe su un mio "incauto" acquisto di qualche tempo fa
:)
Sperando di aver fatto cosa gradita, invito i webmaster del Sito Comune a
contattarmi se vogliono mettere sul SC (naturalmente sono autorizzati fin d'ora,
questa mia precisazione era solo per risparmiare loro il lavoro in quanto gli
manderei la pagina HTML bella e pronta)
=================================
Titolo: Progettare database relazionali
Titolo originale: Designing Relational Databases
Autore: Rebecca M. Riordan
Editore: Mondadori Informatica - Collana Microsoft Press - Microsoft Programming
Series
Prezzo: 60.000
CD-ROM: Si
ISBN: 88-8331-033-1
Contenuto del libro:
Parte 1 - Teoria dei database relazionali
· Cap. 1 - Concetti fondamentali
· Cap. 2 - Struttura dei database
· Cap. 3 - Associazioni
· Cap. 4 - Integrità dei dati
· Cap. 5 - Algebra relazionale
Parte 2 - Progettazione di sistemi di database relazionali
· Cap. 6 - Il processo di progettazione
· Cap. 7 - Definizione dei parametri di sistema
· Cap. 8 - Definizione dei processi di lavoro
· Cap. 9 - Il modello concettuale dei dati
· Cap. 10 - Lo schema di database
· Cap. 11 - Comunicazione del progetto
Parte 3 - Progettazione dell'interfaccia utente
· Cap. 12 - L'interfaccia come mediatore
· Cap. 13 - Le architetture dell'interfaccia utente
· Cap. 14 - Rappresentazione di entità nelle maschere
· Cap. 15 - Scelta dei controlli della finestra
· Cap. 16 - Mantenimento della integrità del database
· Cap. 17 - Report
· Cap. 18 - Assistenza agli utenti
Contenuto del CD-ROM:
· Versione originale online del volume
· Form riutilizzabili in formato Access 2000
· Documentazione e note tecniche tratte da MSDN
· Microsoft Internet Explorer 5.0
       Nota: il materiale contenuto nel CD-ROM è in lingua inglese
Dall'ultima pagina di copertina:
"La guida per pianificare la creazione di sistemi informativi che sfruttano al
massimo le tecnologie Microsoft
Passo per passo tutte le fasi dello sviluppo di database relazionali in una
guida che unisce la teoria alla pratica. Questo libro è l'introduzione ideale ai
principi di base della progettazione di database, e in particolare agli elementi
fondamentali che sono spesso sottovalutati dagli sviluppatori alle prime armi.
Contiene anche considerazioni pratiche ed esempi istruttivi per progettare
sistemi informativi robusti e professionali scegliendo tra la vasta gamma di
strumenti e tecnologie messe a disposizione da Microsoft per creare e gestire
database. Nel CD-ROM allegato sono inoltre contenuti form e codice già pronto
per rendere più rapido lo sviluppo.
Tra gli argomenti trattati:
· Le linee guida fondamentali, i principi, gli strumenti e le tecniche del
modello relazionale
· Il ricco corredo di strumenti per lo sviluppo di database offerto da
Microsoft, da Microsoft Access 2000 e SQL Server 7.0 alle tecnologie per
l'accesso ai dati presenti in Visual Basic
· Risoluzione di problemi di progettazione di database relazionali tratti da
scenari reali
· Creazione di interfacce utente per la gestione dei dati, snelle ed efficaci
· Definizione delle strutture dati necessarie"
Impressioni personali:
Un libro inutile anche per chi non ne capisce niente, anzi che contribuisce a
creare ancora più confusione a chi si appresta ad avvicinarsi al mondo dei
database relazionali. Pesante da leggere, è una sorta di minestrone nel quale
vengono introdotti di continuo nuovi termini e concetti  con la promessa di
spiegarli in seguito, peccato poi che si arrivi alla fine del libro senza
capirci niente in quanto la spiegazione è sempre rimandata al capitolo
successivo. Povero di esempi pratici, è estremamente teorico e gli scenari reali
tanto pubblicizzati sono tutte esperienze personali dell'autrice, che propone
soluzioni peraltro abbastanza discutibili. Gli esempi contenuti nel CD-ROM sono
pochi ma soprattutto di non immediato utilizzo mentre gli articoli tratti
dall'MSDN sembrano essere presi a casaccio. In sostanza si tratta di un libro
che non consiglierei a nessuno, tra l'altro anche il prezzo (60.000) sembra
essere elevato in rapporto al numero delle pagine (295) ma soprattutto in
relazione ai contenuti.
Marco Tallon (TopGun)


author: Karl Donaubauer

text:
TopGun ha scritto:
> =================================
> Titolo: Progettare database relazionali
> Titolo originale: Designing Relational Databases
> Autore: Rebecca M. Riordan
>...
> Impressioni personali:
> Un libro inutile ...
Ho letto il libro in inglese e la mia critica è diversa.
È un libro utile per quasi ognuno che si interessa per la teoria dei
database relazionali e per diversi aspetti del processo di progettare.
Rebecca ha molto esperienza in questi rispetti e questo si accorge.
Il libro ha piccole debolezze in riguardo a qualche aspetti del contenuto ma
non conosco un singolo altro che si tratta del tutto di questi argomenti.
In inglese è anche scritto bene in un linguaggio elegante è per la
maggior parte molto chiaro. Certo non conosco la traduzione italiana.
--
cu
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:Vbbu6.84553$386.3...@news.chello.at...
Ciao Karl!
Mi fa piacere che la prima critica alla mia recensione venga da un "guro" di
Access e del NG :)
> Ho letto il libro in inglese e la mia critica è diversa.
> È un libro utile per quasi ognuno che si interessa per la teoria dei
> database relazionali e per diversi aspetti del processo di progettare.
Premesso che non voglio entrare in polemica e che quelle che ho riportato
sono solo impressioni personali, posso dire che sinceramente a me il libro
non è stato di molta utilità per i motivi che ho spiegato precedentemente.
> Rebecca ha molto esperienza in questi rispetti e questo si accorge.
Ho capito quello che vuoi dire, però secondo me nel libro si esagera un
pochino e soprattutto le situazioni descritte contengono impressioni un po'
troppo personali e mal tradotte.
> Il libro ha piccole debolezze in riguardo a qualche aspetti del contenuto
>ma
> non conosco un singolo altro che si tratta del tutto di questi argomenti.
Potresti anche aver ragione, però a me i minestroni non sono mai piaciuti.
> In inglese è anche scritto bene in un linguaggio elegante è per la
> maggior parte molto chiaro. Certo non conosco la traduzione italiana.
Forse proprio qui sta il punto.... Ad essere sinceri leggendo le prime
pagine della versione originale online, anche io ho avuto l'impressione che
fosse scritto tecnicamente e bene, forse è proprio nella traduzione in
italiano che si perde tutta la chiarezza dei contenuti e del linguaggio.
Comunque resta il fatto che io, personalmente, non lo consiglierei :)
Marco Tallon (TopGun)


title: Scrittura dati in tabella SQL connessa via ODBC

author: MC

text:
Salve,
oggi mi sono perso in un bicchiere d'acqua!
Ho un FE con A2K collegato ad un DB SQL che funge da BE.
Nella maschera login applicazione, vado a scrivere dei dati in tabella
tbl_Utente con e tutto funziona, solo una parte di codice che vi
riporto mi da errore: invece di aggiornare il record specifico
(filtrandolo per Id_Utente) ... aggiorna sempre e solo il primo record
della tabella.
C'è ovviamente un errore, ma oggi non mi riesce di scovarlo, idee?
Ecco parte del codice:
'aggiorna tbl_utenti su SQL
Dim db As Database
Dim rcs As Recordset
Dim i As Integer
Dim idUt As String
idUt = Forms!frm_login.lst_Utente.Value
Set db = CurrentDb
Set rcs = db. OpenRecordset("tbl_utenti")
With rcs
rcs.Filter = "!id_Utente = " & idUt
Me.FilterOn = True
rcs.Edit
!nAcc = xnAcc
!usr_Data_UltimoAccesso = Date
!usr_ip = IpUsr
!usr_UsrPC = UsrPC
rcs.Update
End With
rcs.Close
Set rcs = Nothing
Set db = Nothing
etc...
Grazie e buona giornata,
MCX


text:

fermo restando che devi togliere il punto esclamativo dal filtro
perchè non fai una cosa del genere?
Set rcs = db. OpenRecordset("SELECT * FROM tbl_utenti WHERE id_Utente = " & idUt, dbopendynaset, dbseechanges)
(il punto interrogativo andava dopo il pezzo di codice, ma avrebbe creato confusione...)
dbopendynaset e dbseechanges servono con SQL.
Togli a questo punto il filtro
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
MC wrote:
> Salve,
> oggi mi sono perso in un bicchiere d'acqua!
> Ho un FE con A2K collegato ad un DB SQL che funge da BE.
> Nella maschera login applicazione, vado a scrivere dei dati in tabella
> tbl_Utente con e tutto funziona, solo una parte di codice che vi
> riporto mi da errore: invece di aggiornare il record specifico
> (filtrandolo per Id_Utente) ... aggiorna sempre e solo il primo record
> della tabella.
> C'è ovviamente un errore, ma oggi non mi riesce di scovarlo, idee?
> Dim idUt As String
> idUt = Forms!frm_login.lst_Utente.Value
se stringa... presuppongo poi ci siano degli apici o no???
>
> Set db = CurrentDb
> Set rcs = db. OpenRecordset("tbl_utenti")
>
> With rcs
>
> rcs.Filter = "!id_Utente = " & idUt
quel ! all'inizio ??
poi, scusa, non era più semplice scrivere
Set rcs = db. OpenRecordset("select nAcc ,nAcc ,... from  tbl_utenti where id_utente = '" & idUt & "'")
o meglio ancora, scrivere direttamente l'update?
> Grazie e buona giornata,
>
> MCX
Altrettanto,
ciao,
max


text:
MA wrote:
> fermo restando che devi togliere il punto esclamativo dal filtro
> perchè non fai una cosa del genere?
simma telepatici cumpà... con soli 4 minuti di fuso orario...
> dbopendynaset e dbseechanges servono con SQL.
ma qui c'è più buio ed i miei occhietti ancora parzialmente chiusi mi hanno fatto dimenticare le due opzioni :-(
Ciao bello... oddio... si fa per dire :-P
Max


text:
Massimo Piubelli wrote:
> MA wrote:
>
>
>> fermo restando che devi togliere il punto esclamativo dal filtro
>> perchè non fai una cosa del genere?
>
> simma telepatici cumpà... con soli 4 minuti di fuso orario...
>
ma il fuso orario non era in verticale???
mò pure in orizzontale???
ah 'sti comunisti stanno mettendo a soqquadro l'Italia!!!
>> dbopendynaset e dbseechanges servono con SQL.
>
> ma qui c'è più buio ed i miei occhietti ancora parzialmente chiusi mi
> hanno fatto dimenticare le due opzioni :-(
>
> Ciao bello... oddio... si fa per dire :-P
hai proprio ragione... gli occhietti sono proprio chiusi
> Max



text:
[cut]
Grazie a tutti!
MCX


text:
[cut]
continua ad aggiornare il primo record della tabella tbl_Utente
nel debug vedo che
rcs = Nothing
dbOpenDynaset = 2
dbSeeChanges = 512
Idee?
Io mi ricollego lunedì, spero di ricevere l'illuminazione, continuo a
non capire come mai non filtra...
grazie e buona serata.
MCX


title: Query unione

author: Alby

text:
Ho creato un db per la gestione di uno studio medico, ora ho la
necessità di effettuare una statistica annuale sul lavoro svolto.
Sono giunto ad un punto e non riesco a trovare una soluzione,. ho
creato diverse query che effettuano il conteggio dei dipendenti
(idonei, non idonei etc...) nell'arco di un anno da uno dei medici
associati, fin quì tutto bene.
Ora voglio unire questi risultati per stampare un report analitico per
ogni medico.
Queste 10 query che hanno in comune
la piva della ditta
il codice fiscale del medico
e che contano per ogni ditta il numero dei dipendenti (idonei,non
idonei etc....)
Chiedo un vostro consiglio se in questo caso devo usare una query di
unione e come.
Grazie
P.s.
Spero di aver fornito elementi utili...


title: Query unione

author: IvanDaBologna

text:
Alby ha scritto:

La query di unione è, forse, l'unica soluzione per unire query con LO
STESSO NUMERO DI CAMPI ( e chiaramente una struttura simile dei campi).
In access XP la query di unione si crea solo dall'interfaccia codice SQL
  unendo i vari costrutti di ogni query. Es:
SELECT campo1, campob FROM tab1 WHERE ilFiltroSeEsiste
UNION
SELECT campoA, campo2 FROM tab2
UNION
SELECT cognome, nome FROM tab3 WHERE unAltroFiltroSeServe
ecc, ecc
il primo campo di ogni query deve essere delle stesso tipo e così per
ogni campo a seguire (devono essere omogenei nella colonna).
--
IvanDaBologna
-=-=-==--==-=-=-
sottOFFICEale             - il mio blog
barbera del monferrato    - il mio vino
carmen                   - la mia donna
non necessariamente nello stesso ordine


title: Inserimento di 2 tabelle in Word ...

author: onir

text:
Il codice vba, sotto descritto e  realizzato con il vostro cortese aiuto, mi
permette di inviare, con la procedura di stampa unione in un modello di
documento Word, dei dati prelevati da una recorset di inserirli, all'interno
del nuovo documento ottenuto, in una tabella di due colonne senza
intestazione con bordi non visibili.
Volendo inserire, nello stesso documento,  un'altra tabella di dati ,
estratti in automatico come il precedenti, come bisognerebbe modificare il
codice?
( Personalmente mi sono imbobinato con levariabili e l'istruzioni SQL)
'gestisco L 'errore
On Error GoTo Err_Comando43_Click
'avvio le query di creazione tabella Attore-Convenuto
DoCmd.OpenQuery "attorequery" ' estrae i primi dati e crea la tabella
DoCmd.OpenQuery "convenutoquery" ' estrae e accoda i alla precedente tabella
'avvio Word
Dim oApp As Word.Application 'winword.exe 'Word '
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
'variabile contenente il recordset del Dettagglio
Dim rstDett As Recordset
'variabile contenente l'istruzione sql
Dim stringaSql As String
'mi creo la query che mi restituisce il dettaglio della fattura
stringaSql = "SELECT Attore, AvvocatoA FROM AttUD;"
'mi prendo il recordset
Set rstDett = CurrentDb.OpenRecordset(stringaSql)
'controllo i dati
rstDett.MoveLast
rstDett.MoveFirst
'apro il modello del Verbale
oApp.Documents.Open "c:\documenti\VerbalePrimaUdienza1.doc"
'eseguo la stampa unione dell'intestazione con output su un nuovo documento
With oApp.Documents(1).MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
'attivo il documento creato
'oApp.Windows(2).Activate
'cerco la stringa "Elenco"
oApp.Selection.Find.ClearFormatting
With oApp.Selection.Find
    .Text = "Elenco"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
oApp.Selection.Find.Execute
'inserisco la tabella con X colonne, intestazione Y righe
oApp.ActiveDocument.Tables.Add Range:=oApp.Selection.Range,
NumRows:=rstDett.RecordCount, NumColumns:=2
'tabella senza griglia
oApp.Selection.Tables(1).Borders.Enable = False
'scrivo il dettaglio della fattura
Do While Not rstDett.EOF
    With oApp.Selection
        .TypeText Text:=rstDett(0)
        .MoveRight Unit:=wdCell
        .TypeText Text:=rstDett(1)
        .MoveRight Unit:=wdCell
       End With
    rstDett.MoveNext
Loop
'posso visualizzare il risultato per un controllo
oApp.Visible = True
'*************************************************
Arrivederci a presto.
Onir
--
Posted from
smtp3.libero.it
 [193.70.192.53]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Inserimento di 2 tabelle in Word ...

text:
"onir" <
stra...@libero.it
> ha scritto nel messaggio
news:001001c12d97$023dca00$eb511497@default...

Non hai specificato dove la devi posizionare questa tabella, spero sia
successiva alla prima; se č cosě non fai altro che scrivere nella posizione
scelta per la seconda tabella una stringa diversa dalla prima (per es.
Elenco2) e ricreare la nuova tabella con gli spessi passi eseguiti per la
prima.
Es.
'----------
'variabile contenente il recordset del secondo Dettaglio
Dim rstDett2 As Recordset
'variabile contenente l'istruzione sql
Dim stringaSql2 As String
'mi creo la query che mi restituisce il dettaglio della fattura
stringaSql2 = "SELECT qualcosa FROM daQualcos'altro;"
'mi prendo il recordset
Set rstDett2 = CurrentDb.OpenRecordset(stringaSql2)
'controllo i dati
rstDett2.MoveLast
rstDett2.MoveFirst
'cerco la stringa "Elenco2"
oApp.Selection.Find.ClearFormatting
With oApp.Selection.Find
    .Text = "Elenco2"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
oApp.Selection.Find.Execute
'inserisco la tabella con X colonne, intestazione Y righe
oApp.ActiveDocument.Tables.Add Range:=oApp.Selection.Range,
NumRows:=rstDett2.RecordCount, NumColumns:=2
'tabella senza griglia
oApp.Selection.Tables(1).Borders.Enable = False
'scrivo il dettaglio della fattura
Do While Not rstDett2.EOF
    With oApp.Selection
        .TypeText Text:=rstDett2(0)
        .MoveRight Unit:=wdCell
        .TypeText Text:=rstDett2(1)
        .MoveRight Unit:=wdCell
       End With
    rstDett2.MoveNext
Loop
'----------
Ciao.


title: info quey

text:
Salve a tutti,
avrei bisogno di una mano per una query,
data due tabelle A B
le due tabelle hanno due colonne in comune (stessi dati)
avrei bisogno di sapere, quali sono le coppie di valori a1, a2
presenti in A, che non sono presenti nella tabella B,
ho parzialmente risolto con un join
impostanto un criterio dieverso su uno dei due campi, putroppo mi da
tutte le coppie
b1, b2 dove a1=b1  a2<>b2
Grazie MArcello


title: info quey

author: Carlo Costarella

text:
<
marcell...@gmail.com
> ha scritto nel messaggio
news:1177086021.0...@e65g2000hsc.googlegroups.com...

Ti ricordo di usare un'oggetto più significativo alla prossima richiesta.
Se ho ben capito sia la tab A che la tab B hanno due campi uguali e vuoi
sapere quali record della tab B non hanno record corrispondenti in tab A.
Crea due query, una per tabella, con i due campi combinati: CampoCombinato:
[CampoA1] & " " & [CampoA2] e per la query TabB CampoCombinato: [CampoB1] &
" " & [CampoB2]
Salva le due query e poi ne crei una terza con questo enunciato sql:
SELECT DISTINCTROW TabA.*
FROM TabA LEFT JOIN TabB ON TabA.CampoCombinato = TabB.CampoCombinato
WHERE (((TabB.CampoCombinato) Is Null));
Ciao, Carlo


title: info quey

text:
<
marcell...@gmail.com
> ha scritto nel messaggio
news:1177086021.0...@e65g2000hsc.googlegroups.com...

Correggo l'enunciato:
SELECT DISTINCTROW QryA.*
FROM QryA LEFT JOIN QryB ON QryA.CampoCombinato = QryB.CampoCombinato
WHERE (((QryB.CampoCombinato) Is Null));
Ciao, Carlo


title: info quey

author: giorgio rancati

text:
<
marcell...@gmail.com
> ha scritto nel messaggio
news:1177086021.0...@e65g2000hsc.googlegroups.com...

Ciao Marcello,
Puoi farlo con una query di ricerca dati non corrispodenti, in pratica come
quella creata dall'autocomposizione solo che va estesa a due campi.
es.
----
SELECT A.*
FROM A
  LEFT JOIN B ON A.a1=B.b1 AND A.a2=B.b2
WHERE A.a1 IS NULL
----
con lo stesso sistema puoi estenderla a 3 4 ... x campi corrispondenti.
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: Problemi con date

text:
Salve a tutti,
nell'eseguire una query impostando come criterio il seguente:
>=[forms]![Maschera]![Dal] And <=[forms]![Maschera]![Al]
mi conteggia la seconda data (al) meno 1 giorno.
Ho provato dopo AND a scrivere sia < che <=  ma il risultato non cambia.
Se ad esempio voglio dal 10/02/2002 al 10/03/2002 il conteggio viene
effettuato fino al 09/03/2002,
per effettuare il conteggio corretto devo impostare la data finale al giorno
successivo.
Mi sarebbe utile indicare la data corretta in quanto la stessa viene
visualizzata nel report.
Grazie per l'aiuto.
Andrea.


title: Problemi con date

author: sd

text:
"Andrea12" <
12and...@libero.it
> ha scritto nel messaggio
news:3ca03...@news.dada.it...

prova ad usare between [forms]![Maschera]![Dal] And [forms]![Maschera]![Al]
ciao ciao
sdamy


title: Problemi con date

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:a7pgle$alh$1...@lacerta.tiscalinet.it...

Stesso problema sdamy, mi conteggia fino al giorno precedente.
Grazie comunque.


title: Problemi con date

author: Maicol

text:
"Andrea12" <
12and...@libero.it
> ha scritto nel messaggio
news:3ca03...@news.dada.it...

Prova a vedere se le date memorizzate comprendono anche anche l'ora , in
quel caso non includerebbe l'ultimo giorno ( a me succedeva cosi')
>


title: Problemi con date

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:Z94o8.78188$1S3.2...@twister1.libero.it...

Si, le date sono fornate da data ed ora.
Andrea


title: Problemi con date

author: Roberto da casa

text:
"Andrea12" <
12and...@libero.it
> ha scritto nel messaggio
news:3ca2d...@news.dada.it...

Stando così le cose, prova con:
>=[forms]![Maschera]![Dal] And <=[forms]![Maschera]![Al]+1
o ancora meglio
Between [forms]![Maschera]![Dal] And [forms]![Maschera]![Al]+1
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: campo ore

author: marco

text:
Ciao a tutti, ho un calcolo ore derivato da una data formula, il campo di
ore viene viasualizzato in questo modo
es due ore e 30 minuti.......  2,50
es tre ore e 30 minuti-.........3,30
sapete che formula matematica posso utilizzare per traspormare da centesimi
in sessantesimi queste ore.....
idealmente cosě
due ore e 30 minuti                2,30
tre ore e 30 minuti       3,30
grazie a tutti spero di non essere stato ripetitivo..
ciao marco


title: campo ore

author: ciroteo

text:
"marco" <
mb0...@jumpy.it
> ha scritto nel messaggio
news:ciugmk$orb$1...@newsread.albacom.net...
> Ciao a tutti, ho un calcolo ore derivato da una data formula, il campo di
> ore viene viasualizzato in questo modo
>
> es due ore e 30 minuti.......  2,50
> es tre ore e 30 minuti-.........3,30
>
> sapete che formula matematica posso utilizzare per traspormare da
centesimi
> in sessantesimi queste ore.....
>
> idealmente cosģ
>
> due ore e 30 minuti                2,30
>
> tre ore e 30 minuti       3,30
>
> grazie a tutti spero di non essere stato ripetitivo..
>
> ciao marco
>
>
ci puoi dire che tipo di formula genera il risultato direttamente in
centesimi?
I tipi di campo sono data/ora?


title: campo ore

text:
marco ha scritto:



> idealmente cosě



> ciao marco
Ciao Marco,
io proverei con questa funzione (l'ho messa in un campo calcolato di una
query):
OraConvertita:
Int([OraOriginale])+((([OraOriginale]-Int([OraOriginale]))*60)/100).
Ciao,
DEL_REC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: campo ore

author: Roberto dalla campagna

text:
"marco" <
mb0...@jumpy.it
> ha scritto nel messaggio
news:ciugmk$orb$1...@newsread.albacom.net...
> Ciao a tutti, ho un calcolo ore derivato da una data formula, il campo di
> ore viene viasualizzato in questo modo
>
> es due ore e 30 minuti.......  2,50
> es tre ore e 30 minuti-.........3,30
>
> sapete che formula matematica posso utilizzare per traspormare da
centesimi
> in sessantesimi queste ore.....
>
> idealmente così
>
> due ore e 30 minuti                2,30
>
> tre ore e 30 minuti       3,30
>
> grazie a tutti spero di non essere stato ripetitivo..
>
> ciao marco
Se come penso il campo che contiene la durata oraria è di tipo Numerico.
Se il risultato in ore e sessantesimi di ora lo vuoi in un campo/variabile
di tipo Data/ora.
E' sufficiente dividere la durata oraria in ore e centesimi di ora per 24,
ovvero:
DurataOreSessantesimi = DurataOreCentesimi / 24
Naturalmente il formato di visualizzazione del risultato dovrai impostarlo a
Ora breve 24h. Ti ricordò però che, con tale formato, non puoi esrimere un
valore superioe a 23:59:59.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Dimensione file su cornice oggetto associato?

author: Pabel

text:
Ciao a tutto il ng.
Ho una maschera a schede continue, che gestisce i dati di circa tremila
libri cosi composta.
nome Libro ,autore, pagine, prezzo, copertina.
Nel controllo copertina (cornice oggetto associato) ho inserito tutti files
jpg.
La mia domanda è la seguente, è possibile e se si in che modo, creare un
nuovo controllo calcolato che mi dia la dimensione del files jpg ?
questo mi serve per eliminare o ridimensionare tutti i files troppo pesanti.
windows XP access 2000
Grazie anticipatamente a tutti.
Pabel


author: Cinzia

text:
"Pabel" <
gio...@hotmail.com
> ha scritto nel messaggio
news:A1B2d.337622$5D1.15...@news4.tin.it...

Ciao Pabel,
se per dimensione intendi il peso in KByte, dovresti farti una funzione che
prendendo il nome del file che avrai da qualche parte in una tabella
si vada a leggere la dimensione con l'istruzione FileLen(NomePercorso)
Es:
Public Function GetFileLen(nomepercorso as string)
on error goto GetFileLen_Err
    GetFileLen= FileLen(nomePercorso)
    exit Function
GetFileLen_Err:
    GetFileLen = 0
end Function
Poi al campo della Maschera o nella query la richiami
    MioCampo=GetFileLen(me.NomePercorso)     'x maschera
Select Libri.*, GetFileLen([NomePercorso]) as Dimensione from Libri    'x
query
Ciao
Cinzia


author: MA

text:
"Cinzia" <
cinziapagani_...@tiscali.it
>
ha scritto nel messaggio
news:cienob$qu$1...@lacerta.tiscalinet.it...

Guarda che non ti conviene mettere nell'oggetto
OLE i jpg.
Guarda su
www.sitcomune.com
 come trattare le
immagini
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:mwB2d.18190$B06....@news.edisontel.com...

Credo di aver fatto come dici tu MA, io non sono molto esperto ma i file
sono tutti nel DB di access come file allegato, e dato che questo allegato è
diventato molto pesante pensavo di usare questo metodo di ricerca per
trovare quelli troppo consistenti.
per il momento un grazie anche a Cinzia.
Pabel


text:

Hai usato la proprietà .picture???
da quello che dici, non credo
come dico io i file immagine risiedono tutti in
una _cartella_ niente file mdb
e poi vengono richiati.
Nell'mdb tu hai solo il percorso della _cartella_,
ma li visualizzi.
Addirittura se usi la routine di Lebans ogni file
immagine può essere anche di diversi Mb!!!
MAssimiliano


title: VBA send to clipboard

author: Galvani C.

text:
Ciao a tutti ho una richiesta a cui spero qualcuno riesca a darmi una
piccola soluzione...
Vorrei implementare Send to Clipboard dentro il mio piccolo gestionale
dato che troppo spesso faccio Contro "C"  in rete ho trovato queste
bellissime guide
http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=265
e poi utilizzando le API di windows secondo la guida di billy :D
http://support.microsoft.com/?kbid=210216
Entrambe funzionano una meraviglia ma ora viene la domanda:
Sarebbe possibile realizzare una Function da avviare al interno della
Form (dopo aver premuto un tasto) che "in maniera autonoma"  mi faccia
Contro "C"  di tutto il recodset della maschera corrente(partendo dal
origine dati della maschera ovviamente)
Spero di essere stato abbastanza chiaro.
Ciao a tutti e grazie del tempo dedicatomi :D


title: VBA send to clipboard

text:
"Galvani C." <
c.ga...@sqr.it
> ha scritto nel messaggio
news:48f450e3$0$41653$4faf...@reader4.news.tin.it...

Non hai bisogno di usare la clipboard per fare una copia del
record...basterebbe una query filtrata per quell'id...ma ci sono anche altri
metodi.
Cosa ci devi fare con la copia del record?
Ciao, Carlo


title: VBA send to clipboard

text:
Carlo Costarella ha scritto:

Scusami forse mi sono spiegato male, ti spiego l'ambito di utilizzo :
sono in una maschera frmClienti ( la classica :D ) dove ci sono tutti i
dati quindi nome,cognome,tel ecc ecc ecc ecc ecc vorrei cliccare un
pulsante per memorizzere tutti i valori presenti nella form in "Control C"
poi fuori da access ovunque fare un "Control V" per pastare tutti i
valori presenti nella form.
Seguendo le guide questo è possibile impostando una casella di testo per
ogni form ma vorrei creare qualcosa di più automatico
non sono un mago di vba ma pensavo a qualcosa tipo
una funzione copia(var1,var2,var3 ecc ecc ecc immissione parametri )
dove i var sono i field dei recordset (Es.
me.nominativo,me.telefono,me.fax ecc ecc ecc)
nella funzione c'è un ciclo che controlli tutti gli oggetti presenti
nella form e se il campo controllato corrisponde a var1 allora
variabiletesto=variabiletesto + me.nominativo & vbCrLf &
dove all'inizio della funzione variabiletesto=""
in modo da avere tutti i campi incolonnati :D
Spero di aver migliorato la chiarezza


title: VBA send to clipboard

text:
"Galvani C." <
c.ga...@sqr.it
> ha scritto nel messaggio
news:48f46363$0$41662$4faf...@reader4.news.tin.it...

OK.
Un esempio è meglio di tanto:
apri una tabella, seleziona un intero record, ora ctrl + C; apri notepad,
ctrl + V...il record si incolla.
Ergo..potresti applicare la tua funzione alla visualizzazione foglio dati
della maschera..giusto un attimo, poi la riapri come desideri.
Ciao, Carlo


title: VBA send to clipboard

text:

Bello il trucchetto.. attenzione però la mia maschera è in grafica
quindi questa gabola non funziona....
Così come dici tu c'è un grosso problema non riesco ad escludere quelle
colonne che incasinerebbero l'utente.....
Es. idclienti,lbkIDcbanca ecc ecc ecc
Qualche suggerimento da codice? :D
CMQ provo a smanettare anche con "trucchetto"


title: VBA send to clipboard

text:
"Galvani C." <
c.ga...@sqr.it
> ha scritto
cut
>> OK.
>> Un esempio è meglio di tanto:
>> apri una tabella, seleziona un intero record, ora ctrl + C; apri notepad,
>> ctrl + V...il record si incolla.
>> Ergo..potresti applicare la tua funzione alla visualizzazione foglio dati
>> della maschera..giusto un attimo, poi la riapri come desideri.
>>
>> Ciao, Carlo
> Bello il trucchetto.. attenzione però la mia maschera è in grafica quindi
> questa gabola non funziona....
> Così come dici tu c'è un grosso problema non riesco ad escludere quelle
> colonne che incasinerebbero l'utente.....
> Es. idclienti,lbkIDcbanca ecc ecc ecc
>
> Qualche suggerimento da codice? :D
>
> CMQ provo a smanettare anche con "trucchetto"
Il trucchetto potrebbe essere applicato alla query filtrata solo con i campi
che ti interessano e per quel record...
Altra strada è quella che hai indicato, più o meno.
Analizzi tutti i controlli e accodi i valori ad una variabile testo che
incollerai in un controllo...un attimo visibile...codice di
copia...invisibile e il gioco è fatto.
Puoi sfruttare il TAG di ogni controllo, impostandolo a quello che vuoi ("S"
per sì o "OK"), un semplice ciclo farà il resto.
Ciao, Carlo


title: Cambiare colore al campo attivo

author: Cataldo Formaro

text:
Salve,
Come fare per cambiare il colore allo sfondo di un campo (quando viene
attivato) in un maschera??
Grazie CF


title: Cambiare colore al campo attivo

text:
"Cataldo Formaro" <
formaro...@libero.it
> ha scritto nel messaggio
news:2kyo6.74761$Y93.2...@news.infostrada.it...

Intanto in una maschera ci sono i controlli; i campi sono nelle tabelle e
nelle query.
Se vuoi che in una maschera un tuo controllo, chiamato Pippo, diventi da
bianco a rosso quando diventa attivo, a fronte dell'evento "Su attivato" di
Pippo genera il seguente codice VBA:
Private Sub Pippo_GotFocus()
Me!Pippo.BackColor = 255
End Sub
e a fronte dell'evento "Su disattivato" di Pippo genera il seguente codice
VBA:
Private Sub Pippo_LostFocus()
Me!Pippo.BackColor = -
2147483643
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cambiare colore al campo attivo

text:
> > Salve,
> > Come fare per cambiare il colore allo sfondo di un campo (quando viene
> > attivato) in un maschera??
> >
> > Grazie CF
> >
>
> Intanto in una maschera ci sono i controlli; i campi sono nelle tabelle e
> nelle query.
>
> Se vuoi che in una maschera un tuo controllo, chiamato Pippo, diventi da
> bianco a rosso quando diventa attivo, a fronte dell'evento "Su attivato"
di
> Pippo genera il seguente codice VBA:
>
> Private Sub Pippo_GotFocus()
> Me!Pippo.BackColor = 255
> End Sub
>
> e a fronte dell'evento "Su disattivato" di Pippo genera il seguente codice
> VBA:
>
> Private Sub Pippo_LostFocus()
> Me!Pippo.BackColor = -
2147483643
> End Sub
>
> --
> Roberto
>
> PERFETTO!!!!!
Grazie per la precisazione e grazie per il consiglio, MA!!
Quando passo al successivo controllo,
vorrei che il controllo Pippo, (UfterUpdate) riprenda il colore precedente
(Bianco)
Grazie CF


title: Cambiare colore al campo attivo

text:
"Cataldo Formaro" <
formaro...@libero.it
> ha scritto nel messaggio
news:TdJo6.80413$Y93.2...@news.infostrada.it...

CORREGGO ===>vorrei che il controllo Pippo, (Su Disattivazione) riprenda il



title: Cambiare colore al campo attivo

author: Fabio Montagner

text:
"Cataldo Formaro" <
formaro...@libero.it
> wrote in message
news:2kyo6.74761$Y93.2...@news.infostrada.it...
> Salve,
> Come fare per cambiare il colore allo sfondo di un campo (quando viene
> attivato) in un maschera??
Credo possa servirti: eventi GotFocus, LostFocus


title: Cambiare colore al campo attivo

author: Roberto dal portatile

text:
"Cataldo Formaro" <
formaro...@libero.it
> ha scritto nel messaggio
news:WgJo6.80425$Y93.2...@news.infostrada.it...
>
[CUT]
> > > e a fronte dell'evento "Su disattivato" di Pippo genera il seguente
> codice
> > > VBA:
> > >
> > > Private Sub Pippo_LostFocus()
> > > Me!Pippo.BackColor = -
2147483643
> > > End Sub
> > >
> > > --
[CUT]
> CORREGGO ===>vorrei che il controllo Pippo, (Su Disattivazione) riprenda
il
> colore precedente
> > (Bianco)
>
> >
> > Grazie CF
Ed č per questo che ti ho anche indicato che fare a fronte dell'evento "Su
disattivato"; ma tu questa routine l'hai inserita?



title: Cambiare colore al campo attivo

text:
"Fabio Montagner" <
f.mon...@issz.vr.it
> ha scritto nel messaggio
news:97vt78$38qu$1...@stargate1.inet.it...

> Gentilissimi!!!! Tutto OK!!
Però se il controllo è un casella combinata o un pulsante...NON VA' !!!
Bisogna cambiare qualche cosa???
Grazie CF


title: Cambiare colore al campo attivo

text:
"Cataldo Formaro" <
formaro...@libero.it
> ha scritto nel messaggio
news:VpRo6.89034$Y93.2...@news.infostrada.it...

Non vedo perché non dovrebbe funzionare con una casella combinata.
Quanto ad un plulsante non può funzionare in quanto non ha la proprietà
Colore sfondo. Però puoi prepararti delle immagini bitmap (.bmp) di diverso
colore e all'occorenza caricare nella proprietà Immagine del pulsante
(.Picture) una stringa contenente il percorso ed il nome del file .bmp
desiderato (vedi help a Proprietà Immagine).



title: Cambiare colore al campo attivo

text:
> >
>
> Non vedo perché non dovrebbe funzionare con una casella combinata.
> Quanto ad un plulsante non può funzionare in quanto non ha la proprietà
> Colore sfondo. Però puoi prepararti delle immagini bitmap (.bmp) di
diverso
> colore e all'occorenza caricare nella proprietà Immagine del pulsante
> (.Picture) una stringa contenente il percorso ed il nome del file .bmp
> desiderato (vedi help a Proprietà Immagine).
>
> --
> Roberto
>
Scusami Roberto, ma intendevo scrivere "Casella di Controllo" e non
comninata.
Quindi? Ho cercato sull'Help ma a dire il vero, ho trovato difficoltà.
Riattendo buona notizia. Grazie CF


title: Cambiare colore al campo attivo

text:
"Cataldo Formaro" <
formaro...@libero.it
> ha scritto nel messaggio
news:RC1p6.96704$Y93.2...@news.infostrada.it...

Visto che anche le caselle di controllo come i pulsanti non hanno la
proprietà Colore sfondo, prova ad "affogare" la casella di controllo
all'interno di una label (che ha naturalmente dimensioni maggiori della
casella di controllo) e poi cambia il Colore sfondo della label.



title: Cambiare colore al campo attivo

author: Massimo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:B6Ao6.76797$Y93.2...@news.infostrada.it...

Però sulle sottomaschere si seleziona tutta la colonna.
Massimo


title: Cambiare colore al campo attivo

text:
"Massimo" <
cro...@aliseo.it
> ha scritto nel messaggio
news:985iab$23b$2...@dante.italia.com...
[CUT]
> >
> Però sulle sottomaschere si seleziona tutta la colonna.
>
> Massimo
>
Esatto!!!!
Del motivo per cui avviene se ne è parlato nel NG qualche giorno fa.
Per vedere come risolvere il problema nelle sottomaschere vai nel Sito
Comune (link qui sotto), Sezione Forms: ci sono tre FAQ che affrontano
l'argomento e sono titolate:
Formattazione Condizionale nelle maschere continue.
In modalità maschere continue è possibile visualizzare un controllo colorato
diversamente a seconda del suo contenuto? (1)
In modalità maschere continue è possibile visualizzare un controllo colorato
diversamente a seconda del suo contenuto? (2)



title: inserimento dati in una vista

text:
Come posso, a partire da una maschera, inserire dati in una vista SQL, cioe' in piu' tabelle?
Mettiamo per es (e' solo un esempio) che ho la tabella libro e la tabella autore

tab_libro
==========
id_libro titolo_libro id_autore

tab_autori
==============
id_autore nome_autore

se ho fatto una vista che visualizza tutti i libri con i nomi degli autori

SELECT titolo_libro, nome_autore
FROM tab_libro, tab_autori
WHERE tab_libro.id_autore=tab_autori.id_autore

poi come posso inserirne altri?
Grazie.