title: Compattare db

author: ALESSANDRO Baraldi

text:
"fe_lo" <
fe_l...@yahoo.it
> ha scritto nel messaggio
news:cmoh0c$ebs$1...@news.newsland.it...
> Se non ho capito male posso
> 1) compattare con l'apposito comando del menu
> 2) spuntando il compatta all'scita
> Ma se volessi avere un pulsante che se cliccato mi compattasee di BE dal
> FE?
> Grazie
Metodo CompactDatabase(SrcName As String, DstName As String, [DstLocale],
[Options], [SrcLocale])
    Membro di DAO.DBEngine
Per l'uso vedi l'Help
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Compattare db

author: Pablitomf

text:
ALESSANDRO Baraldi ha scritto:
> "fe_lo" <
fe_l...@yahoo.it
> ha scritto nel messaggio
> news:cmoh0c$ebs$1...@news.newsland.it...
> > Se non ho capito male posso
> > 1) compattare con l'apposito comando del menu
> > 2) spuntando il compatta all'scita
> > Ma se volessi avere un pulsante che se cliccato mi compattasee di BE dal
> > FE?
> > Grazie
> Metodo CompactDatabase(SrcName As String, DstName As String, [DstLocale],
> [Options], [SrcLocale])
>     Membro di DAO.DBEngine
> Per l'uso vedi l'Help
> Ciao
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley



title: Compattare db

text:
Pablitomf ha scritto:
> ALESSANDRO Baraldi ha scritto:
> > "fe_lo" <
fe_l...@yahoo.it
> ha scritto nel messaggio
> > news:cmoh0c$ebs$1...@news.newsland.it...
> > > Se non ho capito male posso
> > > 1) compattare con l'apposito comando del menu
> > > 2) spuntando il compatta all'scita
> > > Ma se volessi avere un pulsante che se cliccato mi compattasee di BE dal
> > > FE?
> > > Grazie
> > Metodo CompactDatabase(SrcName As String, DstName As String, [DstLocale],
> > [Options], [SrcLocale])
> >     Membro di DAO.DBEngine
> > Per l'uso vedi l'Help
> > Ciao
Ops... postato a vuoto. :-D
Cmq, mettiamoci anche che il BE per essere compattato deve risultare
chiuso, quindi al momento non deve risultare nessuna tabella collegata
aperta... quindi se il comando è eseguito da un pulsante in una form, devi
stare attento a non avere al momento della compattazione nessuna origine
dati legata alla form stessa.



title: Compattare db

author: Karl Donaubauer

text:
ALESSANDRO Baraldi wrote:
> "fe_lo ha scritto:
>> Se non ho capito male posso
>> 1) compattare con l'apposito comando del menu
>> 2) spuntando il compatta all'scita
>> Ma se volessi avere un pulsante che se cliccato mi compattasee di BE
>> dal FE?
>
> Metodo CompactDatabase(SrcName As String, DstName As String,
> [DstLocale], [Options], [SrcLocale])
>    Membro di DAO.DBEngine
>
> Per l'uso vedi l'Help
...o la FAQ 6.7 Compattare un MDB differente
sul sito indicato sotto.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: problemi di unitilizzo comando createcontrol

text:
con questo codice creo 3 textbox nella form parcheggi e vorrei chiamarle P1,
P2, e P3 ma non funziona le crea correttamente ma ignora il nome chiamandole
textbox345,textbox346,textbox347 per esempio
Dim nome As String
For i = 1 To 3
     nome = "P" & i
     Set pippo = CreateControl("PARCHEGGI", acTextBox, acDetail, nome, "",
0, 0, 400, 650)
Next i
mi sapete dire cosa sbaglio? GRAZIE


author: Alessandro Baraldi

text:
"Simba883" <
simb...@libero.it
> wrote in message
news:ce2kaq$7ad$
1...@lacerta.tiscalinet.it

Non sbagli nulla, di Default l'azione di CreateControl corrisponde
alla tua azione di Trascinare il controllo dalla barra Strumenti sulla
form, quindi il nome attribuito è quello che Access vuole.
Io modificherei così:
Dim nome As String
 For i = 1 To 3
      nome = "P" & i
      Set pippo = CreateControl("PARCHEGGI", acTextBox, acDetail, nome,
"",
 0, 0, 400, 650)
      with Pippo
            .Name="TuoNome"
            .Top = lblTop
            .Left = intLeft
            .SpecialEffect = 0
            .BorderColor = 16777215
            .Backcolor = 16777215
            .Name = rs.Fields(0)
            .Caption = .Name
            .FontName = "MS Sans Serif"
            .FontSize = 8
       end With
 Next i
DoCmd.Close acForm, "PARCHEGGI", acSaveYes
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Controllo combinazione tasti da codice

author: maurizio

text:
Ciao a tutti,
vorrei condizionare l'esecuzione di una routine evento a una combinazione di
tasti indipendentemente dalla maschera in cui mi trovo (tipo autokeys).
Perche' ? Per problemi di protezione.
Qualcuno mi puo' aiutare ? Grazie in anticipo.
MaurizioM.


title: Controllo combinazione tasti da codice

author: MA

text:

Guarda che se vuoi far eseguire una funzione a prescindere dalla maschera
che è attiva, autokeys è proprio la funzione che ti serve.
Ti basta che gli fai eseguire la macro eseguicomando e in basso ti vai a
chiamare tuafunzione()
Se invece la vuoi subordinare alla maschera attiva devi usare
if
screen.activeform.name
 = "pippo" then
end if
ma la macro è sempre quella e il modulo a gestire tutto
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: chi mi aiuta sottomaschera

author: rino

text:
Salve,
access 2003. ho 1 tabella "nomi" di 10.000 record. Ho creato un'altra
tabella "inserito" con 3 campi anno,  attivo e quota, con la quale ho
creato una sottomaschera collegata alla tabella nomi.
quello che vorrei �:
10.000 record con i 3 campi della tab "inserito" compilati.
es. 1) anno: 2008
     2) attivo: certo
     3) quota: 20
mi aiutate
ringrazio
rino


title: Impedire la chiusura di access

author: Marika

text:
Un ciao a tutto il NG.
Poichè devo tenere il log degli accessi effettuati dagli
utenti ad un DB in rete, nel quale in una tabella registro anche i dati
della disconnessione
dalla procedura, devo fare in modo che l'utente esca solo cliccando
sulla apposita voce del menu (uscita) che lancia la procedura di
registrazione finale e chiusura del log. Purtroppo alcuni utenti
insistono nell' uscire dalla procedura utilizzando la X, con il
risultato che mi ritrovo diversi records del log incompleti (con la
successiva impossibilita' di verificare quando un utente ha terminato
l'applicazione).
Come posso ovviare a questo inconveniente?
Una grazie anticipato.
Marika.


title: Impedire la chiusura di access

author: Roberto - Syd

text:

Inserisci il codice dove scrivi il log sull'evento chiusura o scaricamento
dell'ultimo form che sarà chiuso dell'applicazione, così anche se l'utente
chiude con la X il log sarà scritto.
Ciao Roberto - Syd


title: Impedire la chiusura di access

author: Roberto da casa

text:
"Marika" <
rc...@libero.it
> ha scritto nel messaggio
news:avjfej$ob2$1...@fata.cs.interbusiness.it...

La prima cosa che mi viene in mente è quella di eliminare la X di chiusura
di Access; per fare questo vai sul Sito Comune (link qui sotto) e nella
Sezione General leggi la FAQ di AntoGal intitolata "Rimuovere il pulsante di
chiusura (X), il menu e i pulsanti di ridimensionamento di Access".
Ma poichè l'utente può chiudere l'applicazione anche pigiando i tasti
Alt+F4, sempre nella Sezione General del Sito Comune leggi anche la FAQ di
Dario da PD intitolata "Come evitare che l'utente chiuda l'applicativo
tramite Alt-F4?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: oggetto sendobject - email con piu di un indirizzo in .to

author: Lomba

text:
buon giorno e .. buona quarantena a tutti .. :-(
vi chiedo un piccolo aiuto
ho guardato prima in tutti i messaggi di questo gruppo e anche su internet, ma non ci salto fuori (sono un po' arrugginito)
io avrei la necessità di inviare a piu indirizzi la medesima mail da access cliccando sul pulsante 126. ho scritto questo codice ma non ci salto fuori.
vorrei che nel campo ".to", dove ho messo una scritta con la domanda... comparissero gli indirizzi che la SELECT mi trova. la Select funziona. vorrei concatenare gli indirizzi separati dal ";" (manca la parte che toglie l'ultimo ";" che credo di avere visto in giro ma che non so scrivere)
cosa sbaglio?

vi posto il codice, in attesa di aiuto. un grazie anticipato a chi vorrà aiutarmi! Luca

Private Sub Comando126_Click()
Dim OutApp As Object    ' late binding
Dim OutMail As Object  ' late binding
Dim STRdest As String
Dim lst As String
Dim rs As Recordset
Dim strSQL As String
Dim db As Database
Set db = CurrentDb

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(0) ' creo una email vuota

'strDest = "SELECT Anagrafica.email FROM Anagrafica INNER JOIN (Corsi INNER JOIN [Dettaglio corsi] ON Corsi.id_corso = [Dettaglio corsi].id_corso) ON Anagrafica.ID = [Dettaglio corsi].id_partecipante WHERE (((Corsi.id_corso)=2));"

strSQL = "SELECT Anagrafica.email FROM Anagrafica INNER JOIN (Corsi INNER JOIN [Dettaglio corsi] ON Corsi.id_corso = [Dettaglio corsi].id_corso) ON Anagrafica.ID = [Dettaglio corsi].id_partecipante WHERE (((Corsi.id_corso)=me.id_corso));"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

MsgBox rs 'controllo gli indirizzi

With OutMail
    .to = COSA DEVO SCRIVERE QUI??????
    .cc = ""
    .bcc = ""
    .subject = "Sei stato convocato ad un corso di formazione!"
    .Body = "Buongiorno, il corso ha per titolo  " & " " & Me.titolo_corso & " del " & Me.data_prevista
    .display

End With

End Sub


text:
Salve,

Lomba:
> ...
> vorrei che nel campo ".to", dove ho messo una scritta con la domanda... comparissero gli indirizzi che la SELECT mi trova. la Select funziona. vorrei concatenare gli indirizzi separati dal ";" (manca la parte che toglie l'ultimo ";" che credo di avere visto in giro ma che non so scrivere)
> ...
> strSQL = "SELECT Anagrafica.email ...
> Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

'circa = air code
Dim strTo as String

Do Until rs.EOF
   strTo = strTo & rs!email & ";"
   rs.MoveNext
Loop

If strTo >"" then
   strTo = Left(strTo,Len(strTo)-1)
End if

>
> With OutMail
>      .to = COSA DEVO SCRIVERE QUI??????
 >...

.to = strTo

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:
e certo:

Lomba:
 > buona quarantena a tutti

Buona quarantena anche a te!



text:

funziona, grazie mille!!


author: BFS

text:

sarebbe meglio scriverlo in bcc altrimenti ogni persona che riceve la
mail vedrebbe la lista di tutte le persone a cui l'hai inviata

ciao


text:

si si, ini effetti ci avevo pensato, grazie mille
fantastici!


title: rallentamento rete

author: walter

text:
alcuni anni fa ho fatto un programma di gestione prenotazioni per una scuola
sci su una rete
con quattro computer pentium 4 cosě disposti
1 per inserimento dati e funzioni di server
1 inserimento dati
2 solo lettura dati
devono gestire circa 25000 record per stagione.
Il tutto funziona abbastanza bene ma quando si superano i 20000 record
rallentano un po troppo
(3 secondi per inserire un record)
Secondo voi cosa potrei fare per accellerare il tutto?
Se metto un server risolvo qualcosa ?
Grazie per i consigli
Walter


title: rallentamento rete

text:
"walter" <
in...@trussoni.net
> ha scritto nel messaggio
news:49b1ba20$0$1113$4faf...@reader3.news.tin.it...
> alcuni anni fa ho fatto un programma di gestione prenotazioni per una
> scuola sci su una rete
> con quattro computer pentium 4 così disposti
> 1 per inserimento dati e funzioni di server
> 1 inserimento dati
> 2 solo lettura dati
> devono gestire circa 25000 record per stagione.
> Il tutto funziona abbastanza bene ma quando si superano i 20000 record
> rallentano un po troppo
> (3 secondi per inserire un record)
> Secondo voi cosa potrei fare per accellerare il tutto?
> Se metto un server risolvo qualcosa ?
> Grazie per i consigli
>
> Walter
bisognerebbe vedere come hai strutturato il db a livello di query indici
etc.
E' lento solo sui client o anche nel server?
Con un server non risolvi un gran che..il massimo che ottieni è di avere la
stessa velocità che hai in locale con i client se sfrutti la tecnologia
terminal server.
Altrimenti valuta di migrare a un vero database client-server tipo sql
server o msde
ciao
BFS


title: Invertire colonne e righe in una query

author: Michele

text:
Salve,
di seguito riporto i campi di una tabella presente nel mio db:
Giorno - Testo
Lavorati - Numerico
Restituiti - Numerico
Altro - Numerico
Lanciando una query di selezione ottengo il seguente risultato:
 Giorno | Lavorati | Restituiti | Altro |
Lun | 10 | 5 | 2 |
Mar | 8 | 3 | 1 |
Mer | 3 | 4 | 0 |
eccetera.
Vorrei fare in modo di ottenere il seguente risultato al fine di
poterlo inserire in un report.
          | Lun | Mar | Mer |
Lavorati | 10 | 8 | 3 |
Restituiti| 5 | 3 | 4 |
Altro | 2 | 1 | 0 |
Ho provato anche con una query a campi incrociati ma non ottengo il
risultato sperato.
Qualche suggerimento?
grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Invertire colonne e righe in una query

author: CIDI

text:
"Michele" <
mi...@inwind.it
> ha scritto nel messaggio
news:217Z221Z217Z91Y...@usenet.libero.it...
> Salve,
> di seguito riporto i campi di una tabella presente nel mio db:
>
> Giorno - Testo
> Lavorati - Numerico
> Restituiti - Numerico
> Altro - Numerico
>
> Lanciando una query di selezione ottengo il seguente risultato:
>
> Giorno | Lavorati | Restituiti | Altro |
> Lun | 10 | 5 | 2 |
> Mar | 8 | 3 | 1 |
> Mer | 3 | 4 | 0 |
>
> eccetera.
>
> Vorrei fare in modo di ottenere il seguente risultato al fine di
> poterlo inserire in un report.
>
>          | Lun | Mar | Mer |
> Lavorati | 10 | 8 | 3 |
> Restituiti| 5 | 3 | 4 |
> Altro | 2 | 1 | 0 |
>
> Ho provato anche con una query a campi incrociati ma non ottengo il
> risultato sperato.
> Qualche suggerimento?
> grazie
vedi questa faq sul sito comune
2.29 Query a campi incrociati per la trasposizione righe-colonne
www.sitocomune.com
ciao
Daniele


title: Problema con somma in query

author: Santilli Marco

text:
Se somo due valori in query mi esegue un conto strano
Valore1: 10
Valore2: 20
Se faccio in query:
Somma: [Valore1]+[Valore2]
Invece di dare come risultato = 30
Mi scrive 1020
Mi unisce i due numeri.... come devo fare per far compiere la somma??????
Ciao e grazieeeeeeeee


title: Problema con somma in query

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cru619$gmb$1...@carabinieri.cs.interbusiness.it...

Occorre che i campi Valore1 e Valore2 siano di tipo Numerico e NON di tipo
Testo come penso che sia nel tuo caso, in alyernativa prova a scrivere:
Somma: Val([Valore1]) + Val([Valore2])
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Problema con somma in query

author: TheMax

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cru619$gmb$1...@carabinieri.cs.interbusiness.it...

Che tipo di dato hanno i valori? Mmmm scommetto testo?
Ho vinto qualche cosa????
Allora le possibilitą sono due
1) campi il tipo di dato in numerico
2) usi una funzione di conversione al volo e converti almeno uno dei due
valori
Somma: Cdbl([Valore1])+[Calore2]
(cbdl converte in precisione doppia, se non hai decimali puoi anche fare un
clng che converte in intero lungo)
Ciao,
Massimo


title: Problema con somma in query

text:
Valore1 e valore2 non sono dichiarate in quante le ho creato in query,
quindi non hanno nessuno caratteristica di tipo TESTO o NUMERO o ecc.
Sono frutto di calcoli, il tutto è dalla dalla somma di questi 2 calcoli
Posso aver aiutato fornendo questa precisazione?????
Ciao e grazieeeeeeeee
"TheMax" <
massimo_...@accessgroup.it
> ha scritto nel messaggio
news:crvf5s$kk6$1...@carabinieri.cs.interbusiness.it...
> "Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
> news:cru619$gmb$1...@carabinieri.cs.interbusiness.it...
> > Se somo due valori in query mi esegue un conto strano
> >
> > Valore1: 10
> > Valore2: 20
> >
> > Se faccio in query:
> >
> > Somma: [Valore1]+[Valore2]
> >
> > Invece di dare come risultato = 30
> >
> > Mi scrive 1020
> >
> > Mi unisce i due numeri.... come devo fare per far compiere la
somma??????
> >
> > Ciao e grazieeeeeeeee
>
> Che tipo di dato hanno i valori? Mmmm scommetto testo?
> Ho vinto qualche cosa????
> Allora le possibilità sono due



title: Problema con somma in query

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cs0e4v$kuv$1...@fata.cs.interbusiness.it...
Prima di tutto,
si risponde dopo il "quoting" ovvero dopo aver riportato la risposta
dell'altra persona.
> Sono frutto di calcoli, il tutto è dalla dalla somma di questi 2 calcoli
Se i calcoli solitamente sono fatti su numeri il valore resta numerico.
A meno che non hai usato una qualche formattazione
> Posso aver aiutato fornendo questa precisazione?????
Ma tu hai provato quello che ti ho suggerito? Funziona?
> Ciao e grazieeeeeeeee
Ciao,
Massimo


title: Problema con somma in query

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:6QrFd.1762$GU.4...@twister1.libero.it...
>
> "Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
> news:cru619$gmb$1...@carabinieri.cs.interbusiness.it...
> > Se somo due valori in query mi esegue un conto strano
> >
> > Valore1: 10
> > Valore2: 20
> >
> > Se faccio in query:
> >
> > Somma: [Valore1]+[Valore2]
> >
> > Invece di dare come risultato = 30
> >
> > Mi scrive 1020
> >
> > Mi unisce i due numeri.... come devo fare per far compiere la
somma??????
> >
> > Ciao e grazieeeeeeeee
>
> Occorre che i campi Valore1 e Valore2 siano di tipo Numerico e NON di tipo
> Testo come penso che sia nel tuo caso, in alyernativa prova a scrivere:
>
> Somma: Val([Valore1]) + Val([Valore2])
>
> --
> Roberto
>
GRANDIIIIIIIIIIIIIIIIIIII
Ho provato entrambi i metodi:
Somma: Cdbl([Valore1])+[Calore2]
(cbdl converte in precisione doppia, se non hai decimali puoi anche fare un
clng che converte in intero lungo)
Somma: Val([Valore1]) + Val([Valore2])
E funziona ENTRAMBI ..... grazie....finalmente
Ciao e grazieeeeeeeeeee


title: Problema query

author: alexb

text:
Salve a tutti. Ho una tabella con dettaglio_ft (campi: codprod, descrizione,
qta, prezzo, totale, codpagamento)
e una tabella pagamenti (campi: codpag, descrizione) collegato ad una
sotto_pagamenti (campi: codpag, giorni, perc_scad, DF /campo si/no).
Ho creato una query che mi genera il totale di ogni fattura: q-totali.
Adesso vorrei creare una query con i campi di q-totali e sotto_pagamenti
cosě posso generarmi le scadenze. ma non mi compaiono righe.
grazie


title: Problema query

text:
hO RISOLTO IL PROB DA SOLO. GRAZIE
alexb <
a...@tin.it
> wrote in message MH217.60397$u%1.39...@news1.tin.it...



title: Problema query

author: Silvio Berruti

text:
"alexb" <
a...@tin.it
> ha scritto nel messaggio
news:MH217.60397$u%1.39...@news1.tin.it...
> Salve a tutti. Ho una tabella con dettaglio_ft (campi: codprod,
descrizione,
> qta, prezzo, totale, codpagamento)
> e una tabella pagamenti (campi: codpag, descrizione) collegato ad una
> sotto_pagamenti (campi: codpag, giorni, perc_scad, DF /campo si/no).
>
> Ho creato una query che mi genera il totale di ogni fattura: q-totali.
Anche se non so come hai già risolto il problema, ti consiglierei di non
inserire nelle tabelle campi calcolati.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: .,CAD PROGRAMS,,

author: Willis David

text:
*Complete offer of all CAD/CAM/CAE and other programs.
*More then 10000 programs available.
*Latest release.
*Ask on email for full list.
*For any information or list,
*contact me :
will_...@hotpop.com
 (if you see will_ca... type
will_cad02)
*email :  will_cad02 AT
hotpop.com
_Latest top selling programs :
_____________________________
3D Studio  MAX 7-..
ArchiCad  9.0r1-..
AutoDesk  AutoCad 2005-..
AutoDesk  Inventor 9-..
Catia  5r14-..
I-Deas  NX11-..
Pro/Engineer  Wildfire2-..
SolidWorks  2005 SP1-..
UniGraphics  NX3 + CAST-..
+10000 other programs
_____________________________
*Contact info :
dav_p...@hotpop.com
 (if you see dav_pos... type
dav_post02)
*email : will_cad02 AT
hotpop.com
David
46th78


title: .,CAD PROGRAMS,,

text:
*Complete offer of all CAD/CAM/CAE and other programs.
*More then 10000 programs available.
*Latest release.
*Ask on email for full list.
*For any information or list,
*contact me :
will_...@hotpop.com
 (if you see will_ca... type
will_cad02)
*email :  will_cad02 AT
hotpop.com
_Latest top selling programs :
_____________________________
3D Studio  MAX 7-..
ArchiCad  9.0r1-..
AutoDesk  AutoCad 2005-..
AutoDesk  Inventor 9-..
Catia  5r14-..
I-Deas  NX11-..
Pro/Engineer  Wildfire2-..
SolidWorks  2005 SP1-..
UniGraphics  NX3 + CAST-..
+10000 other programs
_____________________________
*Contact info :
will_...@hotpop.com
 (if you see will_ca... type
will_cad02)
*email : will_cad02 AT
hotpop.com
David
46th78


title: query con parametri un pò complessa (per me)

author: Luciano

text:
ciao
ho una tabella Dipendenti:
-ID
-Cognome
-Nome
e una tabella PassaggiStruttura
-ID
-Dal
-Struttura    'casella combinata (solo in elenco)
-Incarico     'casella combinata (solo in elenco)
-Sede          'casella combinata (solo in elenco)
-Al
La query senza parametri funziona bene. Il suo compito č restituire per ogni
dipendente da che data a che data ha prestato servizio presso una
determinata Struttura e in quale Sede.
Vorrei parametrizzare la query in questi termini: sapere, dando come
parametro iniziale una determinata Struttura e una determinata Sede, quali
dipendenti erano presenti nell'intervallo di tempo tra la data x e la data
y. Ho provato, dando dei semplici parametri nei campi criteri in questa
sequenza:
[inserisci Struttura]
[inserisci Sede]
[inserisci Dal]
[inserisci Al]
ma non mi restituisce niente. L'Sql č il seguente:
SELECT Dipendenti.Nome, Dipendenti.Cognome, PassaggiStruttura.Incarico,
PassaggiStruttura.Dal, PassaggiStruttura.Al
FROM Dipendenti INNER JOIN PassaggiStruttura ON Dipendenti.IDOperatore =
PassaggiStruttura.IDOperatore
WHERE (((PassaggiStruttura.Dal)=[digita Dal]) AND
((PassaggiStruttura.Al)=[digita Al]) AND
((PassaggiStruttura.Struttura)=[digita Struttura]) AND
((PassaggiStruttura.Sede)=[digita Sede]));
Non so proprio come venirne fuori. Grazie mille anticipate


author: Salvatore

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:oZOse.37808$75.21...@news4.tin.it...
> ciao
> ho una tabella Dipendenti:
> -ID
> -Cognome
> -Nome
>
> e una tabella PassaggiStruttura
> -ID
> -Dal
> -Struttura    'casella combinata (solo in elenco)
> -Incarico     'casella combinata (solo in elenco)
> -Sede          'casella combinata (solo in elenco)
> -Al
>
> La query senza parametri funziona bene. Il suo compito è restituire per
> ogni dipendente da che data a che data ha prestato servizio presso una
> determinata Struttura e in quale Sede.
> Vorrei parametrizzare la query in questi termini: sapere, dando come
> parametro iniziale una determinata Struttura e una determinata Sede, quali
> dipendenti erano presenti nell'intervallo di tempo tra la data x e la data
> y. Ho provato, dando dei semplici parametri nei campi criteri in questa
> sequenza:
> [inserisci Struttura]
> [inserisci Sede]
> [inserisci Dal]
> [inserisci Al]
>
> ma non mi restituisce niente. L'Sql è il seguente:
>
> SELECT Dipendenti.Nome, Dipendenti.Cognome, PassaggiStruttura.Incarico,
> PassaggiStruttura.Dal, PassaggiStruttura.Al
> FROM Dipendenti INNER JOIN PassaggiStruttura ON Dipendenti.IDOperatore =
> PassaggiStruttura.IDOperatore
> WHERE (((PassaggiStruttura.Dal)=[digita Dal]) AND
> ((PassaggiStruttura.Al)=[digita Al]) AND
> ((PassaggiStruttura.Struttura)=[digita Struttura]) AND
> ((PassaggiStruttura.Sede)=[digita Sede]));
>
> Non so proprio come venirne fuori. Grazie mille anticipate
>
>
>
Scrivendo le condizioni in questo modo, la query intercetta solo gli
impiegati che hanno una data "dal" uguale a x e una data "al" uguale a y.
In altre parole, non stai individuando un intervallo di date, ma due date
ben definite.
Dovresti ottenere qualcosa di più scrivendo sui criteri del campo dal
 >=[digita dal] e su quelli del campo al <=[digita al].
Oppure utilizzare la funzione between
Ciao
Salvatore


author: Roberto dalla campagna

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:oZOse.37808$75.21...@news4.tin.it...

Oltre alle considerazioni fatte da Salvatore stai attento alle problematiche
che per noi italiani esistono nell'usare una data come secondo termine di
paragine in una WHERE.
A tale scopo vai sul Sito Comune (link qui sotto) e nella Sezione Queries
leggi la FAQ di Federio Luciani intitolata "2.3 Problemi con le date nelle
stringhe SQL".
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: ?: Formattazione condizionale su un record intero...

text:
Come faccio ad evidenziare un intero record selezionato? (parlo di una
maschera a record continui...)
Con la Formattazione condizionale posso sapere solo se un campo è attivo, ma
chiaramente mi cambia solo quel campo e non tutto il record...
grazie
--
<***********************************>
Vigna Federico...CED L'Abbondanza
Email:
in...@labbondanza.it
Http:
www.labbondanza.it
<***********************************>


author: sib

text:
°_Bova_° <
in...@labbondanza.it
> wrote in message
8palvp$3r6$1...@fe1.cs.interbusiness.it...
> Come faccio ad evidenziare un intero record selezionato? (parlo di una
> maschera a record continui...)
> Con la Formattazione condizionale posso sapere solo se un campo è attivo,
ma
> chiaramente mi cambia solo quel campo e non tutto il record...
Ho la sensazione che questa sia la *domanda tormentone* del mese.
Sul sito comune(FAQ) trovi quello che cerchi (indirizzo qui sotto)
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


author: lbo dal portatile

text:
On Fri, 8 Sep 2000 14:37:22 +0200, "°_Bova_°" <
in...@labbondanza.it
>
wrote:
>Come faccio ad evidenziare un intero record selezionato? (parlo di una
>maschera a record continui...)
dai un'occhiata al sito comune.
>Con la Formattazione condizionale posso sapere solo se un campo è attivo, ma
>chiaramente mi cambia solo quel campo e non tutto il record...
controllo, non campo...
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Formula???

author: Jarmo

text:
Ciao a tutti e buon anno!!!
Domanda semplice semplice (io sono un novellino).
Ho un campo con formato data che inserisco manualmente da maschera.
Ho un altro campo con formato data, in cui mi serve che appaia
automaticamente la data del primo campo più un certo intervallo di giorni,
non appena la prima viene immessa. Con excel basterebbe una
formuletta....come fare con Access????
Grazie a chi vorra rispondermi
Jarmo


title: Formula???

author: Claudio

text:
"Jarmo" <Ja...@Jar.mo> ha scritto nel messaggio
news:8IKQ9.58216$R45.2...@news2.tin.it...

Ciao a te .... provo a risponderti......
Il calcolo si effettua digitando nel valore predefinito della casella di
testo che dovra variare secondo la data inserita secondo questa formula
datacalcolata = DateAdd("g";15;[tuacaselladatainizio])
Dove g sta per giorni e 15 è l'incremento a tua scelta
Buon anno !
Paolo


title: Duplicare record da maschera

text:
Da una maschera modifico o inserisco record di una tabella composta da
campi numerici, testo e data/ora.
Avrei la necessitï¿œ, dopo aver inserito un primo record, di trovare i
campi del record successivo popolati con i medisimi dati del record
precedente, con la possibilitï¿œ all'occorrenza di modificarli. Uno dei
campi numerici dovrebbe anche incrementarsi di una unitï¿œ.
Uso Access 2000.
Grazie!
Luigi


title: Duplicare record da maschera

author: Karl Donaubauer

text:

 Valore predefinito dal record precedente

www.donkarl.com/it?FAQ4.22
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Duplicare record da maschera

text:
Karl Donaubauer ha scritto:

Scusa se approfitto, ma su un singolo campo funziona, su piï¿œ campi mi da
errore. Come dovrei fare se il mio record ï¿œ cosï¿œ formato:
CAMPO1 (numerico)
CAMPO2 (numerico)
CAMPO3 (data)
CAMPO4 (testo)
Dovrei fare in modo che mi riproponga sul record successivo gli stessi
dati di tutti i campi ad eccezione del CAMPO2 che dovrebbe essere
incrementato di una unitï¿œ.
Grazie mille.
Luigi


title: Duplicare record da maschera

text:
Karl Donaubauer ha scritto:




title: Duplicare record da maschera

text:
Blu1964 wrote:
> Karl Donaubauer ha scritto:

Nell'articolo segnalato trovi esempi per tutti tipi di dati.
Se non funziona rivela il tuo codice (copia/incolla qui), quale evento
usi e sopprattutto quale numero e messaggio di errore ricevi.
--
cu



title: Richiesta informazioni su gestione Black List

author: RobertoA

text:
A breve sara' obbligatorio adempiere alcune normative relative
all'intratenimento di rapporti con stati definiti in 'Black List'
Qualcuno ha gia' affrontato l'argomento?
Documentazione di riferimento?
In sostanza, per un sistema contabile che gia' prevede la gestione della
partita doppia, cosa bisogna fare per adeguarlo alle normative relative alla
Black List ?
Ciao e grazie
RobertoA


title: Salvataggio bugato di report in Excel (per la serie Stupiamoci!)

author: Antonio Biso

text:
Access 97, Excel 2000
Ho un report che esegue due raggruppamenti in modo da avere due livelli
gerarchici.
Il secondo livello, quello piů interno, contiene valori di questo tipo
01A01 01A02
01B01 01B02
...
01D01 01D02
01E01 01E02
...
08A01 08A02
...
08D01 08D01
08E01 08E01
Dopo aver lanciato il report, eseguo un trasferimento dei dati in Excel,
mediante il pulsantino predefinito della barra anteprima di report.
Vado a vedere il report e questo riporta correttamente i due livelli
gerarchici e i dati del corpo.
Il bug in questione riguarda i valori dei dati in corrispondenza del campo
descritto sopra.
Nei casi con A, B e C e da F in poi tutto č regolare.
Nei casi D ed E invece, il valore riportato č:
10 per 01D01 e 01E01
100 per 01D02 e 01E01
1000 per 01D02 e 01E02
20 per 02D02 e 02E02
e cosě via.
Sembra come se D ed E vengano interpretati come simboli di elevazione a
potenza, ma mi pare veramente assurdo! (E tanto tanto, ma D????).
Tra l'altro non cambia la cosa anche se forzo il tipo del dato a stringa con
un CSTR.
Qualche idea del motivo di tale anomalo comportamento e come eventualmente
risolverlo?!?
Antonio


author: Maurizio Borrelli

text:
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:LbCS9.90375$Ou4.2...@twister2.libero.it...

    Ciao Antonio.
    La lettera "D" sta per Double.
    Potresti anteporre un'apice ai valori che vuoi passare ad Excel come
stringa. Invece di:
        01A01
passa:
        '01A01
magari rielaborando il report al volo su stampa e rimettendo le cose a posto
a stampa finita. (Non ho testato).
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:avfiu9$f8fnm$1...@ID-52090.news.dfncis.de...
> > Sembra come se D ed E vengano interpretati come simboli di elevazione a
> > potenza, ma mi pare veramente assurdo! (E tanto tanto, ma D????).
> > Tra l'altro non cambia la cosa anche se forzo il tipo del dato a stringa
> > con un CSTR.
> >
> > Qualche idea del motivo di tale anomalo comportamento e come
eventualmente
> > risolverlo?!?
>
>     Ciao Antonio.
>
>     La lettera "D" sta per Double.
>
>     Potresti anteporre un'apice ai valori che vuoi passare ad Excel come
> stringa. Invece di:
>
>         01A01
>
> passa:
>
>         '01A01
Chi non more se rivede...
Ho testato che la E in effetti trasforma la stringa in numero elevato a
potenza, mentre non sono riuscito a ricostruire il discorso della D
scrivendo qualcosa direttamente in Excel.
Mah...
Comunque proverò a fare come dici...
Antonio


author: MAssimiliano Amendola

text:
Antonio inusualmente chiese:
> > > Qualche idea del motivo di tale anomalo comportamento e come
> eventualmente
> > > risolverlo?!?
> >
> >     Ciao Antonio.
Borrelli cordialmente rispose:
> Chi non more se rivede...
E alla fine:
> Mah...
> Comunque proverò a fare come dici...
>
> Antonio
Beh, mi rivolgo a Voi tutti i "padri" di it.comp.appl.access
direi che sia il caso di chiudere NG.
Sono cadute tutte le certezze di questo mondo!!!
Il 2003 sarà l'anno dell'Apocalisse..
sigh
pensavo di morire e non vedere mai questo post...
ciao
MAssimiliano
p.s. non sono stato spiritoso come avrei voluto, ma non volevo che la cosa
passasse inosservata!!


author: oizirbaF

text:
On Wed, 08 Jan 2003 14:39:14 GMT, "MAssimiliano Amendola"
<
keiko...@libero.it
> wrote:
>Antonio inusualmente chiese:
>
>> > > Qualche idea del motivo di tale anomalo comportamento e come
>> eventualmente
>> > > risolverlo?!?
>> >
>> >     Ciao Antonio.
>
>Borrelli cordialmente rispose:
>
>> Chi non more se rivede...
>
>
>E alla fine:
>
>> Mah...
>> Comunque proverò a fare come dici...
>>
>> Antonio
>
>
>Beh, mi rivolgo a Voi tutti i "padri" di it.comp.appl.access
>
>direi che sia il caso di chiudere NG.
>Sono cadute tutte le certezze di questo mondo!!!
>Il 2003 sarà l'anno dell'Apocalisse..
>
>sigh
>pensavo di morire e non vedere mai questo post...
>
>ciao
>MAssimiliano
>cut
Non fare lo spiritoso , siamo tutte persone civili , anche quei due :
cmq lo sanno tutti che il mondo finirà domani, è inutile che sfrutti
l'evento per farti publicità .  :-)))))
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)


text:
>MAssimiliano Amendola" <
keiko...@libero.it
> ha scritto nel messaggio
news:mKWS9.94829$TC5.3...@twister1.libero.it...
> Antonio inusualmente chiese:
>
> Beh, mi rivolgo a Voi tutti i "padri" di it.comp.appl.access
>
> direi che sia il caso di chiudere NG.
> Sono cadute tutte le certezze di questo mondo!!!
> Il 2003 sarà l'anno dell'Apocalisse..
>
> sigh
> pensavo di morire e non vedere mai questo post...
In effetti avrei potuto giustamente anche cazziarlo per aver riquotato
integralmente il mio post, ma ero troppo stanco (lavoro arretrato...)
Antonio


text:
On Wed, 08 Jan 2003 15:20:00 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

La fine del mondo è rinviata a data da destinarsi. ;-)



title: query cancellazione in due tabelle

text:
Ciao.
Ho due tabelle
tableA(id,soc,c,d,e)
tableB(id,soc,f,g,h)
Ho creato una query di cancellazione che vorrei che cancellasse dalla
tableA il record selezionato da una casella di riepilogo(che visualizza
tutti i record di tableA)e contemporaneamente cancella anche tutti i
record di tableB che hanno lo stessa "soc".
La query che ho scritto è:
DELETE TableA.Soc, TableB.Soc
FROM TableA INNER JOIN TableB ON TableA.Soc = TableB.Soc
WHERE (((TableA.Soc)=[Forms]![Elenco]![TableA]));
Ma non funziona.E' errata scritta così?


title: query cancellazione in due tabelle

author: Roberto dal portatile

text:
<
cri...@vodafone.it
> ha scritto nel messaggio
news:1163665747....@h48g2000cwc.googlegroups.com...
>Ciao.
>Ho due tabelle
>tableA(id,soc,c,d,e)
>tableB(id,soc,f,g,h)
>Ho creato una query di cancellazione che vorrei che cancellasse dalla
<tableA il record selezionato da una casella di riepilogo(che visualizza
>tutti i record di tableA)e contemporaneamente cancella anche tutti i
>record di tableB che hanno lo stessa "soc".
>La query che ho scritto č:
<
<DELETE TableA.Soc, TableB.Soc
>FROM TableA INNER JOIN TableB ON TableA.Soc = TableB.Soc
<WHERE (((TableA.Soc)=[Forms]![Elenco]![TableA]));
>
>Ma non funziona.E' errata scritta cosě?
Visto che come tu asseresci non funziona č scontato che scritta cosě č
errata.
Onestamente io non andrei a complicarmi la vita per costruire un unica query
di eliminazione: io ne creerei due, una per ogni tamella e le eseguirei uno
dopo l'altra.
O sbaglio?
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: query cancellazione in due tabelle

text:
> Onestamente io non andrei a complicarmi la vita per costruire un unica query
> di eliminazione: io ne creerei due, una per ogni tamella e le eseguirei uno
> dopo l'altra.
> O sbaglio?
Originariamente è la soluzione che avevo pensato.
Ma non riuscivo ugualmente.Infatti la query che cancella il record che
si seleziona viene eseguita
correttamente.il
 problema è che poi nella
tableB restano ancora tutti i record con lo stesso campo "soc"che è
stato cancellato nella tableA.Come creare questa seconda query?


title: query cancellazione in due tabelle

text:
<
cri...@vodafone.it
> ha scritto nel messaggio
news:1163689075.6...@m7g2000cwm.googlegroups.com...

La seconda query di eliminazione avrà un codice SQL del tutto simile a
quella che cancella i record dalla tableA solo che sarà basata sulla tableB.



title: numero HD

author: Roberto

text:
Ciao a tutti,
dove posso vedere il numero dell'HD?
Grazie
Roberto


title: numero HD

text:
Roberto <
aris...@libero.it
> wrote in message
j%KC8.36843$US3.8...@twister1.libero.it...

Dal codice...
vedi sul sito comune
--
Maurizio75


title: numero HD

author: Fabio

text:
"Roberto" <
aris...@libero.it
> ha scritto nel messaggio
news:j%KC8.36843$US3.8...@twister1.libero.it...

Utilizzando filesystemobjet
ciao
Fabio


title: Riporto valore di un campo da una maschera all'altra

author: John B

text:
Un saluto a tutti e un grazie anticipato per la Vs. collaborazione.
Ho due maschere distinte con  relative tabelle
Dalla maschera Clienti tramite un pulsante ottengo l'apertura di una
maschera Destinatari con i seguenti campi:
DestinatarioID
ClienteID
Destinatario
Come è possibile che il campo ClienteID riporti nella maschera Destinatari
lo stesso nome che ho appena imputato nella maschera Clienti nel campo
Clienti? Ed imputare tanti Destinatari per quel solo Cliente senza usare una
combo con possibilità di selezionare un Cliente errato.
Grazie e un cordiale saluto
Giovanni


text:
"John B" <
b...@infinito.it
> ha scritto nel messaggio
news:wa_T9.16324$0v.4...@news1.tin.it...
> Un saluto a tutti e un grazie anticipato per la Vs. collaborazione.
>
> Ho due maschere distinte con  relative tabelle
> Dalla maschera Clienti tramite un pulsante ottengo l'apertura di una
> maschera Destinatari con i seguenti campi:
>
> DestinatarioID
> ClienteID
> Destinatario
>
> Come è possibile che il campo ClienteID riporti nella maschera Destinatari
> lo stesso nome che ho appena imputato nella maschera Clienti nel campo
> Clienti?
Sul clic del pulsante che apre la seconda maschera, dopo l'apertura
scriverai
forms("seconda form").nomecontrollo = ClienteID
Ed imputare tanti Destinatari per quel solo Cliente senza usare una
> combo con possibilità di selezionare un Cliente errato.
Eh?
Antonio


title: chiamare una funzione da macro

author: anna

text:
Ho una funzione (o "sub" non sò quale sia il termine corretto) che se
chiamata da codice funzione perfettamente:
Call PrintReport("RPT_ETICHETTE")
vorrei "chiamare" la stessa funzione da una macro ma non capisco come.
nelle macro esiste l'azione "esegui codice" ma poi cosa scrivo? ho provato
tutto ma non riesco.
mi aiutate?


title: chiamare una funzione da macro

text:
anna wrote:
> Ho una funzione (o "sub" non sò quale sia il termine corretto) che
> se chiamata da codice funzione perfettamente:
> Call PrintReport("RPT_ETICHETTE")
> vorrei "chiamare" la stessa funzione da una macro ma non capisco
> come. nelle macro esiste l'azione "esegui codice" ma poi cosa
> scrivo?

Per poter chiamarla da un macro la procedura "PrintReport"
dev'essere una funzione (non una sub) e dev'essere
dicchiarata Public, cioè raggiungibile dappertutto.

Se non riesci, incolla la prima riga della procedura "PrintReport"
nel prossimo messaggio, scrivi dove si trova questa procedura
(nel modulo di una maschera o in un modulo che vedi nella
finestra database o ...) e quale versione di Access usi.

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


title: chiamare una funzione da macro

text:
Per poter chiamarla da un macro la procedura "PrintReport"
dev'essere una funzione (non una sub) e dev'essere
dicchiarata Public, cioè raggiungibile dappertutto.

Se non riesci, incolla la prima riga della procedura "PrintReport"
nel prossimo messaggio, scrivi dove si trova questa procedura
(nel modulo di una maschera o in un modulo che vedi nella
finestra database o ...) e quale versione di Access usi.

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

ho un "Modulo1" (sta nel riquadro di spostamento)
che contiene:
Sub PrintReport(ByVal rpt_etichetta As String)
On Error GoTo PrintReportErrore

Dim StringaTitolo As String
StringaTitolo = "Stampa Report: " & "rpt_etichetta"

Dim Copie As Integer
Copie = InputBox("Inserire il numero di copie da stampare", StringaTitolo,
1)

If Copie <> 0 Then
    Call DoCmd.OpenReport("rpt_etichetta", acViewPreview, , , acIcon)
    DoCmd.PrintOut , , , , Copie
    DoCmd.Close
Else
    Exit Sub
End If

PrintReportExit:
    Exit Sub
PrintReportErrore:
    MsgBox Err.DESCRIPTION
    Resume PrintReportExit
End Sub

se chiamo questa funzione (serve a stampare n copie di un report) da codice
con:
Call PrintReport("RPT_ETICHETTA")
funziona, ma io vorrei eseguirlo da macro perchè  voglio impostare una
condizione.


title: chiamare una funzione da macro

text:
anna ha scritto:
>
> Per poter chiamarla da un macro la procedura "PrintReport"
> dev'essere una funzione (non una sub) e dev'essere
> dicchiarata Public, cioč raggiungibile dappertutto.
> ...

> funziona, ma io vorrei eseguirlo da macro perchč  voglio impostare una
> condizione.

Devi cambiare tutte le presenze della parola "Sub" nella
procedura a "Function", cioč:

Function PrintReport(ByVal rpt_etichetta As String)
...
Exit Function
...
Exit Function
...
End Function



title: chiamare una funzione da macro

text:
"Karl Donaubauer"  ha scritto nel messaggio
news:a48g5g...@mid.individual.net...

anna ha scritto:
>
> Per poter chiamarla da un macro la procedura "PrintReport"
> dev'essere una funzione (non una sub) e dev'essere
> dicchiarata Public, cioè raggiungibile dappertutto.

> funziona, ma io vorrei eseguirlo da macro perchè  voglio impostare una
> condizione.

Devi cambiare tutte le presenze della parola "Sub" nella
procedura a "Function", cioè:

Function PrintReport(ByVal rpt_etichetta As String)
...
Exit Function
...
Exit Function
...
End Function

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

Grazie, funziona benissimo!!!


title: chiamare una funzione da macro

author: Bruno Campanini

text:
on 18-06-12, anna supposed :

> Per poter chiamarla da un macro la procedura "PrintReport"
> dev'essere una funzione (non una sub) e dev'essere
> dicchiarata Public, cioè raggiungibile dappertutto.

Che sia dichiarata Public d'accordo, ma che non si possa chiamare se
non è function proprio no.

> ho un "Modulo1" (sta nel riquadro di spostamento)
> che contiene:
> Sub PrintReport(ByVal rpt_etichetta As String)
> On Error GoTo PrintReportErrore
>
> Dim StringaTitolo As String
> StringaTitolo = "Stampa Report: " & "rpt_etichetta"
>
> Dim Copie As Integer
> Copie = InputBox("Inserire il numero di copie da stampare", StringaTitolo, 1)
>
> If Copie <> 0 Then
>     Call DoCmd.OpenReport("rpt_etichetta", acViewPreview, , , acIcon)

Semplicemente:
DoCmd.OpenReport "rpt_etichetta", acViewPreview, , , acIcon

Bruno


title: chiamare una funzione da macro

text:
Bruno Campanini wrote:
> ...
>> Per poter chiamarla da un macro la procedura "PrintReport"
>> dev'essere una funzione (non una sub) e dev'essere
>> dicchiarata Public, cioè raggiungibile dappertutto.
>
> Che sia dichiarata Public d'accordo, ma che non si possa
> chiamare se non è function proprio no.
> ...

Davvero?
Qual'è il tuo trucco per chiamare una Sub con "EseguiCodice"?



title: chiamare una funzione da macro

text:
Karl Donaubauer formulated on Monday :
> Bruno Campanini wrote:
>> ...
>>> Per poter chiamarla da un macro la procedura "PrintReport"
>>> dev'essere una funzione (non una sub) e dev'essere
>>> dicchiarata Public, cioè raggiungibile dappertutto.
>>
>> Che sia dichiarata Public d'accordo, ma che non si possa
>> chiamare se non è function proprio no.
>> ...
>
> Davvero?
> Qual'è il tuo trucco per chiamare una Sub con "EseguiCodice"?

Che cos'è "EseguiCodice"?
Mi pare si stia parlando di eseguire una sub da un'altra sub.
Io intendo ciò e tu forse intendi altro.
Sicuramente intendiamo cose diverse, non v'è alcun dubbio.

Bruno

PS
Lascia che corregga il tuo pur ottimo italiano:
" qual è " e non  " qual'è ".
Si tratta di troncamento e non di elisione (cose strane della nostra
grammatica).


title: chiamare una funzione da macro

text:
Bruno Campanini wrote:
> Karl Donaubauer formulated:
>>> ...
>> Qual'č il tuo trucco per chiamare una Sub con "EseguiCodice"?
>
> Che cos'č "EseguiCodice"?

L'azione macro di Access per eseguire codice.

> Mi pare si stia parlando di eseguire una sub da un'altra sub.
> Io intendo ciň e tu forse intendi altro.
> Sicuramente intendiamo cose diverse, non v'č alcun dubbio.

Dal suo primo post:
> vorrei "chiamare" la stessa funzione da una macro....
> nelle macro esiste l'azione "esegui codice" ma poi cosa scrivo?

> PS
> Lascia che corregga il tuo pur ottimo italiano:
> " qual č " e non  " qual'č ".
> Si tratta di troncamento e non di elisione (cose strane della
> nostra grammatica).

Grazie molto per l'indicazione!



title: News on Web

author: Tiziano

text:
Esiste la possibilità di utilizzare questo newgroup direttamente via web con
un navigatore e non con un gestore di posta elettronico ?
Grazie, Tiziano


title: News on Web

author: bande

text:
"Tiziano" <
tang...@libero.it
> ha scritto nel messaggio
news:9m183h$bd6$1...@nreadb.inwind.it...

http://www.mailgate.org
--
Andrea


title: Problema rete

author: Basetta

text:
Ciao,
io ho creato un database separando maschere e dati.
Le maschere sono sul client e i dati sono su un server.
La cosa che mi succede è questa quando esegue delle query (molto
voluminoso come output) se vi è una interruzione sulla rete anche di
tempo infinetesimale il DB sul server mi si corrompe.
Niente di grave lo devo ripristinare solo che vorrei evitare questo
problema a monte.
Ho provato a fargli eseguire le query pass-through ma niente sempre il
solito problema.
Qualcuno sa come risolvere questo inconveniente ?
Ciao e grazie


title: Problema rete

author: Francesca

text:
Basetta <
patr...@tiscalinet.it
> wrote in message
> La cosa che mi succede è questa quando esegue delle query (molto
> voluminoso come output) se vi è una interruzione sulla rete anche di
> tempo infinetesimale il DB sul server mi si corrompe.
>
> Qualcuno sa come risolvere questo inconveniente ?
In ordine:
Controllare le schede di rete
Hub
aggiornare i driver della rete
considerare il passaggio a MSDE


title: Problema rete

text:


Purtroppo sono variabili che non posso controllare visto l'estensione
della rete.
Tu dici che passando a MSDE i problemi si posso risolvere ?


title: Problema rete

author: warp

text:
"Basetta" <
>
> Purtroppo sono variabili che non posso controllare visto l'estensione
> della rete.
> Tu dici che passando a MSDE i problemi si posso risolvere ?
Senza dubbio, a patto che il PC Server non sia un catorcio :-)
Il problema è che deve riscrivere, anzi riconcepire tantissimo.
Prendete in considerazione (a meno che le postazioni concorrenti non siano
diverse decine) anche tecnologia Terminal Server: il database resta Jet, ma
la modalità di lavoro non è più File-Server e diventano ininfluenti le
schede di rete sui Clients.
Ciao, warp


title: Problema rete

text:
On Thu, 24 Jan 2002 12:27:34 GMT, "warp" <
act...@mail.phoenix.it
>
wrote:

Grazie mi sai dire dove trovare più informazioni a riguardo ?


title: Problema rete

text:
"Basetta"
> >> Tu dici che passando a MSDE i problemi si posso risolvere ?
> >
> >Senza dubbio, a patto che il PC Server non sia un catorcio :-)
> >Il problema è che deve riscrivere, anzi riconcepire tantissimo.
> >
> >Prendete in considerazione (a meno che le postazioni concorrenti non
siano
> >diverse decine) anche tecnologia Terminal Server: il database resta Jet,
ma
> >la modalità di lavoro non è più File-Server e diventano ininfluenti le
> >schede di rete sui Clients.
> >
> >Ciao, warp
> Grazie mi sai dire dove trovare più informazioni a riguardo ?
Non saprei :-)
Anche noi abbiamo iniziato da poco a lavorare in Terminal Server: prova a
fare ricerche tematiche sul web per i dettagli tecnici.
Per la configurazione del server dovrai comunque collaborare con un
sistemista della tua città già avvezzo a queste problematiche.
Ciao, warp


title: Problema rete

text:
"warp"
> > Grazie mi sai dire dove trovare più informazioni a riguardo ?
Ah, se le informazioni che cerchi non riguardano in dettaglio il
funzionamento (e i settaggi) del TServer, ma la logica della modalità di
lavoro, chiedi pure sul ng.
Per inciso, l'operatività attraverso terminali stupidi, non rende inutile il
ricorso a motori Server, ma da quanto stiamo valutando i risultati sono
notevoli sulle medie multiutenze: vale la pena investirci risorse.
Ciao, warp


title: Intercettare un programma installato

author: Bracchi Enzo

text:
E' possibile intercettare se un programma od un applicativo è già installato
su un PC?
Mi spiego devo sapere se sul PC è già installato il Plug-in di Whip4 per
visualizzare i disegni in formato DWF di Autocad in modo che possa avviare
automaticamente l'installazione di Whip4 qualora non sia presente sul PC.
Potete per favore aiutarmi a risolvere questo problema?
Ciao e grazie.
Enzo


title: Numero in tabella

author: giorgiom

text:
Salve
Ho creato una query di accodamento che inserisce in una tabella due campi:
la ragione sociale del cliente ed
il fatturato
inserisce il fatturato in ordine decrescente... come posso fare per
inserire in una colonna della tabella un numero crescente per il
fatturato...
esempio
ragsoc        fatturato      num
clienteA        150           1
clienteB         100          2
ecc...
in pochge parole il cliente con maggior fatturato ha il numero 1 e poi il
secondo numero 2 ed il terzo 3   ecc
Grazie
Ciao
Giorgio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Numero in tabella

author: Roberto dalla campagna

text:
"giorgiom" <
giorg...@tiscalinet.it
> ha scritto nel messaggio
news:fd67ei$akn$1...@news.newsland.it...
> Salve
>
> Ho creato una query di accodamento che inserisce in una tabella due campi:
>
> la ragione sociale del cliente ed
> il fatturato
>
> inserisce il fatturato in ordine decrescente... come posso fare per
> inserire in una colonna della tabella un numero crescente per il
> fatturato...
> esempio
>
> ragsoc        fatturato      num
>
> clienteA        150           1
> clienteB         100          2
> ecc...
> in pochge parole il cliente con maggior fatturato ha il numero 1 e poi il
> secondo numero 2 ed il terzo 3   ecc
Per risolvere il tuo problema ritengo che non sia necessario di crearti una
tabella di comodo dove vai ad accodare i dati relativi alla ragione sociale
ed al fatturati dei tuoi clienti.
Se la tabella che contiene tali informazioni si chiama Tabella1 e in tale
tabella ci sono anche un campo di tipo Testo choamata ragsoc ed un campo di
tipo Valuta chiamato fatturato, il risultato che ti serve lo ottieni con una
query che abbia il seguente codice SQL:
SELECT pippo.ragsoc, pippo.fatturato, (SELECT Count(1) FROM Tabella1 WHERE
Tabella1.fatturato > pippo.fatturato;) + 1 AS num
FROM Tabella1 AS pippo
ORDER BY pippo.fatturato DESC;
Naturalmente se due clienti hanno lo stesso fatturato avranno lo stesso
valore di num.
>
> Grazie
Prego
> Ciao
> Giorgio
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: intercettare la password

author: Xÿmox

text:
con la funzione CurrentUser intercetto il nome dell'utente, esiste una
per intercettare la password?

Vorrei intercettarla che nel caso sia Null gli scrivo un messaggio che
deve inserirla, poi al limite potrei anche decidere di fare alcuni
ragionamenti sulla lunchezza

grazie

--
ciao


title: intercettare la password

text:

In che senso...? la domanda è bizzarra... se non spieghi che File USI.
La MS, conl'avvento della versione ACCDB, ha rimosso la gestione utenti, mantenuta fruibile per le sole Versioni precedenti MDB ed affini.
https://support.microsoft.com/en-gb/office/what-happened-to-user-level-security-69b362cd-503f-4e8a-a735-fb923ffb9fa3

Tu cosa usi...?
Se usi ACCDB con CurrentUser leggerai SOLO [ADMIN], e tutto questo discorso non serve a nulla.
Se usi MDB allora leggerai correttamente lo USERNAME, ma il PROMPT di inserimento è NATIVO e non accessibile... a meno di realizzare un PROMPT personalizzato, ma del BE non del FE che è sempre NATIVO, ma a quel punto non puoi LEGGERE la PWD, alla faccia della sicurezza, ma dovrai limitarti a testarla ed intercettare l'errore...!!!!!!!
DI fatto con gli MDB si faceva in modo differente, ovvero si DEGRADAVA l'ADMIN senza privilegi e si creavano 2 soli livelli di USER, ma poi si gestiva sempre a livello di CLIENT...

Boh... sono confuso.

@Alex


title: intercettare la password

text:
Il 12/10/20 13:23, @Alex ha scritto:
>
> In che senso...? la domanda è bizzarra... se non spieghi che File USI.
> La MS, conl'avvento della versione ACCDB, ha rimosso la gestione utenti, mantenuta fruibile per le sole Versioni precedenti MDB ed affini.
>
https://support.microsoft.com/en-gb/office/what-happened-to-user-level-security-69b362cd-503f-4e8a-a735-fb923ffb9fa3

>
> Tu cosa usi...?
> Se usi ACCDB con CurrentUser leggerai SOLO [ADMIN], e tutto questo discorso non serve a nulla.
> Se usi MDB allora leggerai correttamente lo USERNAME, ma il PROMPT di inserimento è NATIVO e non accessibile... a meno di realizzare un PROMPT personalizzato, ma del BE non del FE che è sempre NATIVO, ma a quel punto non puoi LEGGERE la PWD, alla faccia della sicurezza, ma dovrai limitarti a testarla ed intercettare l'errore...!!!!!!!
> DI fatto con gli MDB si faceva in modo differente, ovvero si DEGRADAVA l'ADMIN senza privilegi e si creavano 2 soli livelli di USER, ma poi si gestiva sempre a livello di CLIENT...

mdb che utilizza il file mdw in cui ho creato i vari utenti

con CurrentUser intercetto l'utente e anche l'eventuale gruppo di
appartenenza e faccio i miei ragionamenti su dargli i privilegi a
seconda delle maschere e anche dei singoli campi.

è un programma che ho iniziato a sviluppare a metà degli anni '90 e ho
continuato fino allo scorso anno. L'azienda è poi stata acquistata da un
fondo e il programma è destinato all'estinzione, ma sembra che questa
dipertita non sia così imminente e volelo capire se riuscivo a gestire
meglio il discorso delle password.

p.s. attualmente lo faccio girare su runtime 2019  32 bit

grazie


title: intercettare la password

text:
.....
> mdb che utilizza il file mdw in cui ho creato i vari utenti
>
> con CurrentUser intercetto l'utente e anche l'eventuale gruppo di
> appartenenza e faccio i miei ragionamenti su dargli i privilegi a
> seconda delle maschere e anche dei singoli campi.
>
> è un programma che ho iniziato a sviluppare a metà degli anni '90 e ho
> continuato fino allo scorso anno. L'azienda è poi stata acquistata da un
> fondo e il programma è destinato all'estinzione, ma sembra che questa
> dipertita non sia così imminente e volelo capire se riuscivo a gestire
> meglio il discorso delle password.
>
> p.s. attualmente lo faccio girare su runtime 2019 32 bit
>
> grazie

Si ma non si comprende se hai spezzato FE e BE..., e se hai gestito tutto con unico MDW all'accesso al CLIENT devi già fare il LOGIN o ricordo male...?
Se ricordo bene, di fatto non puoi inserirti in questo processo.... per questo come ti accennavo si faceva diversamente.

Magari ho frainteso.
@Alex


title: intercettare la password

text:
Il 13/10/20 08:34, @Alex ha scritto:
>
> Si ma non si comprende se hai spezzato FE e BE..., e se hai gestito tutto con unico MDW all'accesso al CLIENT devi già fare il LOGIN o ricordo male...?
> Se ricordo bene, di fatto non puoi inserirti in questo processo.... per questo come ti accennavo si faceva diversamente.
>
> Magari ho frainteso.
> @Alex

li ho spezzati, ma le tabelle sono sotto SQL server. Il DB l'ho gestito
tutto con un unico MDW.

avevo anche già gestito il cambio password

If vPassNew = vPassNew2 Then
   For Each vUser In DBEngine.Workspaces(0).Users    'Scorro tutti gli
utenti del DBEngine
     If vUser.Name = CurrentUser Then
       vUser.NewPassword vPassOld, vPassNew          'Quando trovo
quello corrente cambio la password
     End If
   Next
....

....

--
ciao


title: lettura record

author: Marco

text:
Qualcuno mi sa dire come posso fare da una maschera a leggere un campo del
record precedente a quello che sto inserendo per poterlo inserire
nell'attuale?
Ho un campo contatore progresivo che peraltro è uguale al numero di record.
Non so dove sbattere la testa ed è molto importante...
grazie a chi mi aiuterà
Marco


title: lettura record

author: Antonio Biso

text:
"Marco" <
ma...@nospam.com
> ha scritto nel messaggio
news:Jvl0b.105536$cl3.3...@news2.tin.it...
> Qualcuno mi sa dire come posso fare da una maschera a leggere un campo del
> record precedente a quello che sto inserendo per poterlo inserire
> nell'attuale?
> Ho un campo contatore progresivo che peraltro è uguale al numero di
record.
>
> Non so dove sbattere la testa ed è molto importante...
Se devi recuperare il valore massimo del campo progressivo, ti basta usare
DMax
Antonio


title: lettura record

text:
no in realta' non so proprio come leggere il valore di un campo nel record
precedente  a quello che sto inserendo, credo che sia una cosa banale in
effetti...ma non sapendola fare...
un esempio:
progressivo nome cognome
1  carlo  rossi
2  mario verdi
3
nella maschera che inserisce il 3 voglio leggere mario e metterlo come nome
nel 3...
tutto qui
Marco
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:LOl0b.250682$lK4.7...@twister1.libero.it...



title: lettura record

text:
"Marco" <
ma...@nospam.com
> ha scritto nel messaggio
news:ZUl0b.105670$cl3.3...@news2.tin.it...
> no in realta' non so proprio come leggere il valore di un campo nel record
Post non scritto correttamente DOPO il quoting!
Skipped...
Antonio


title: lettura record

author: namor

text:
Marco ha scritto:

Se il problema sta nel prendere il nome corrispondente all'ultimo record
inserito, quello con il contatore più alto, puoi usare una funzione tipo
questa:
DLookup("nome","nome tabella","ID=" & DMax("ID","tabella"))
ed assegnarla come valore predefinito del campo nome, o se preferisci,
usarla nell'evento Dopo_Inserimento (After_Insert) della maschera.
Sull'help in linea trovi maggiori informazioni su DLookup() DMax() DMin()
DSum() DCount() ecc...
Namor
--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Come trovare la directory di sistema ?

author: Andrea

text:
Devo copiare un file nella cartella di windows, ma come faccio a risalire al
suo percorso corretto ?
es. in win2000 di solito è C:\winnt mentre in win98 potrebbe essere
C:\windows
grazie
Andrea


title: Come trovare la directory di sistema ?

author: MIX

text:
Andrea ha scritto nel messaggio ...

Credo che la soluzione sia questa:
Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
Cordiali saluti.


title: Come trovare la directory di sistema ?

text:
"MIX" <
ton...@inwind.it
> ha scritto nel messaggio
news:x2S69.68382$lu5.1...@twister1.libero.it...
>
Scusa ma non mi è chiaro , che parametri gli devo passare ? (  lpBuffer ? -
nSize  ? )



title: Come trovare la directory di sistema ?

author: omnitow

text:
"Andrea" <
andr...@libero.it
> ha scritto nel messaggio
news:YTT69.67063$n04.1...@twister2.libero.it...

Eccoti un modulo che spesso utilizzo
ciao omnitow
Option Explicit
'ritorna path cartella temp
Public Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA"
_
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'Ritorna path cartelle speciali
Public Declare Function SHGetFolderPath Lib "shfolder.dll" Alias _
"SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long
'        La Funzione SHGetFolderPath ritorna il path delle cartelle speciali
del sistema.
'        Questa funzione è valida solo per le cartelle speciali che
fisicamente sono delle directory
'        del disco.
'        hwndOwner 'handle della finestra da cui si richiama la funzione.
'        nFolder 'Il CSIDL della cartella speciale di cui si vuole conoscere
il percorso.
'        hToken 'Un simbolo che identifica l'utente. Normalmente 0, ma può
essere diverso a seconda degli scopi.
'        dwReserved 'Uno dei seguenti Flags, specifica come deve essere
ritornato il path:
'        La funzione ritorna uno dei seguenti flags
Public Const S_OK = &H0        'Funzione completata con successo
Public Const S_FALSE = &H1 'il CSIDL della cartella speciale è valido, ma la
cartella è una cartella virtuale.
Public Const E_INVALIDARG = &H80070057 'Il CSIDL non è valido.
Public Enum SHdwReservedType
    SHGFP_TYPE_CURRENT = &H0 'Ritorna il path corrente della carttella
    SHGFP_TYPE_DEFAULT = &H1 'Ritorna il path di default della cartella
End Enum
'        lpszPath
'        Riceve il caratterie di terminazione della stringa che contiene il
path della cartella speciale.
'        La stringa può contenere al massimo 260 caratteri
Public Enum SHcsidlsType
    CSIDL_ADMINTOOLS = &H30 'Windows 2000: The Administration Tools folder.
    CSIDL_ALTSTARTUP = &H1D 'The non-localized Startup folder.
    CSIDL_APPDATA = &H1A  'The Application Data folder (used to store common
program data)
    CSIDL_BITBUCKET = &HA 'The Recycle Bin on the desktop.
    CSIDL_COMMON_ADMINTOOLS = &H2F 'Windows 2000: The Administration Tools
folder common to all users.
    CSIDL_COMMON_APPDATA = &H23 'Windows 2000: The Application Data folder
(used to store common program data) common to all users.
    CSIDL_COMMON_ALTSTARTUP = &H1D 'Windos NT, 2000: The non-localized
Startup folder common to all users.
    CSIDL_COMMON_DESKTOPDIRECTORY = &H19 'Windows NT, 2000: The Desktop
directory (used to store file objects on the Windows desktop) common to all
users.
    CSIDL_COMMON_DOCUMENTS = &H2E 'Windows NT, 2000: The Documents folder
common to all users.
    CSIDL_COMMON_FAVORITES = &H1F 'Windows NT, 2000: The Favorites folder
common to all users.
    CSIDL_COMMON_PROGRAMS = &H17 'Windows NT, 2000: The Programs folder
under the Start Menu common to all users.
    CSIDL_COMMON_STARTMENU = &H16 'Windows NT, 2000: The Start Menu folder
common to all users.
    CSIDL_COMMON_STARTUP = &H18 'Windows NT, 2000: The Startup folder under
Start Menu\Programs common to all users.
    CSIDL_COMMON_TEMPLATES = &H2D 'Windows NT, 2000: The Templates folder
common to all users
    CSIDL_CONTROLS = &H3 'The Control Panel.
    CSIDL_COOKIES = &H21 'The folder used for Internet Explorer's cookie
list.
    CSIDL_DESKTOP = &H0 'The Windows desktop.
    CSIDL_DESKTOPDIRECTORY = &H10 'The Desktop directory (used to hold file
objects on the Windows desktop).
    CSIDL_DRIVES = &H11 'The My Computer folder.
    CSIDL_FAVORITES = &H6 'The Favorites folder (used primarily to store
Internet Explorer's bookmarks).
    CSIDL_FONTS = &H14 'The Fonts directory (used to hold the fonts
installed in Windows).
    CSIDL_HISTORY = &H22 'The folder used for Internet Explorer's history
list.
    CSIDL_INTERNET = &H1 'The Internet (refering to the Internet Explorer
icon on the desktop).
    CSIDL_INTERNET_CACHE = &H20 'The folder used for Internet Explorer's
cache.
    CSIDL_LOCAL_APPDATA = &H1C 'With Internet Explorer 5.0 or later: Local
Application Data folder.
    CSIDL_MYPICTURES = &H27 'With Internet Explorer 5.0 or later: The My
Pictures folder.
    CSIDL_NETHOOD = &H13 'The Nethood directory (used to hold objects
appearing in Network Neighborhood).
    CSIDL_NETWORK = &H12 'The Network Neighborhood folder.
    CSIDL_PERSONAL = &H5 'The My Documents folder.
    CSIDL_PRINTERS = &H4 'The Printers folder (under My Computer).
    CSIDL_PRINTHOOD = &H1B 'The PrintHood directory (used to store printer
links).
    CSIDL_PROFILE = &H28 'With Internet Explorer 5.0 or later: The user
profile folder.
    CSIDL_PROGRAM_FILES = &H26 'With Internet Explorer 5.0 or later: The
Program Files folder.
    CSIDL_PROGRAM_FILES_COMMON = &H2B 'Windows NT, 2000: The Common folder
under Program Files.
    CSIDL_PROGRAM_FILES_COMMONX86 = &H2C 'Windows 2000: The x86 Common
folder under Program Files for RISC systems.
    CSIDL_PROGRAM_FILESX86 = &H2A 'Windows 2000: The x86 Program Files
directory on RISC systems.
    CSIDL_PROGRAMS = &H2 'The Programs folder in the Start Menu.
    CSIDL_RECENT = &H8 'The Recent folder (used for the Documents list in
the Start Menu).
    CSIDL_SENDTO = &H9 'The Send To folder (used to store Send To menu
items).
    CSIDL_STARTMENU = &HB 'The Start Menu.
    CSIDL_STARTUP = &H7 'The Startup folder under Start Menu\Programs.
    CSIDL_SYSTEM = &H25 'With Internet Explorer 5.0 or later: The Windows
System directory.
    CSIDL_SYSTEMX86 = &H29 'Windows 2000: The x86 system directory on RISC
systems.
    CSIDL_TEMPLATES = &H15 'The Templates folder (used to store document
templates).
    CSIDL_WINDOWS = &H24 'With Internet Explorer 5.0 or later: The Windows
directory.
End Enum
Public Function WinDir(ByVal IDcartella As SHcsidlsType, Optional ByVal
hwndFormAttuale As Long, _
                        Optional ByVal PathComeLoVuoi As SHdwReservedType,
Optional ByVal SimboloUtente As Long _
                        ) As String
Dim Cartella As String
If IsMissing(SimboloUtente) Then SimboloUtente = 0&
If IsMissing(PathComeLoVuoi) Then PathComeLoVuoi = SHGFP_TYPE_CURRENT
Cartella = Space(255)
If Not SHGetFolderPath(hwndFormAttuale, IDcartella, SimboloUtente,
PathComeLoVuoi, Cartella) = S_OK Then
    WinDir = ""
Else
    Cartella = Trim$(Cartella)
    WinDir = Left(Cartella, Len(Cartella) - 1)
End If
End Function
Public Function TempDir() As String
Dim slength As Long 'lunghezza della stringa che riceverà il path
TempDir = Space(255) ' stringa che riceverà il path
slength = GetTempPath(255, TempDir) ' determina la lunghezza del path
scrivendolo sulla stringa
TempDir = Left(TempDir, slength) ' elimina gli spazi
End Function


title: Come trovare la directory di sistema ?

text: Grazie :)


title: Come trovare la directory di sistema ?

author: Sergio MAZZA

text:
"Andrea" <
andr...@libero.it
> ha scritto nel messaggio
news:UZR69.66826$n04.1...@twister2.libero.it...

Prova con questo script:
'---------
Dim objWshShell As Object
Set objWshShell = CreateObject("Wscript.Shell")
MsgBox objWshShell.ExpandEnvironmentStrings("%WINDIR%")
Set objWshShell = Nothing
'---------
Ciao.
--
Sergio MAZZA


title: file pdf riscrivibile

author: ciarletto

text:
Scusate, non so se č il ng giusto, vorrei sapere questo:
avendo ul file pdf, č possibile scriverci dentro in qualche modo oppure non
č piů modificabile? Mi interessa riempire campi con del testo. Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: file pdf riscrivibile

author: Gianluca

text:
> Scusate, non so se č il ng giusto, vorrei sapere questo:
> avendo ul file pdf, č possibile scriverci dentro in qualche modo oppure
non
> č piů modificabile? Mi interessa riempire campi con del testo. Grazie
E' possibile modificare il contenuto utilizzando acrobat "writer"  ma non č
free!


title: file pdf riscrivibile

author: Roberto da casa

text:
"ciarletto" <
ciar...@yhaoo.it
> ha scritto nel messaggio
news:82Z88Z48Z250Y1...@usenet.libero.it...
> Scusate, non so se č il ng giusto, vorrei sapere questo:
> avendo ul file pdf, č possibile scriverci dentro in qualche modo oppure
non
> č piů modificabile? Mi interessa riempire campi con del testo. Grazie
Sei decisamente [OT] ponendo il quesito in questo NG.
Comunque un file PDF č editabile, naturalmente a condizione che tu possegga
un editor di file PDF: quello per antonomasia č Adobe Acrobat Writer, ma č
piuttosto costoso.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: file pdf riscrivibile

text:
> Sei decisamente [OT] ponendo il quesito in questo NG.
> Comunque un file PDF è editabile, naturalmente a condizione che tu
possegga
> un editor di file PDF: quello per antonomasia è Adobe Acrobat Writer, ma è
> piuttosto costoso.
>
> Roberto
>Grazie ancora, e scusate l'intrusione.



title: Evitare corruzione beck end

author: mario rossi

text:
buongiorno a tutti, volevo chiedere quali sono le migliori impostazioni di form o altri oggetti access per evitare il danneggiamento di beckend quando più utenti utilizzano il dabatase contemporaneamente

grazie


title: Evitare corruzione beck end

author: BFS

text:
Il 04/08/2021 10:38, mario rossi ha scritto:
> buongiorno a tutti, volevo chiedere quali sono le migliori impostazioni di form o altri oggetti access per evitare il danneggiamento di beckend quando più utenti utilizzano il dabatase contemporaneamente
>
> grazie
>

non uso più access o meglio jet ed eredi da 15 anni come backend in
multiutenza, ma solo sql server...ma esiste ancora questo problema di
corruzione dei db?

che versione usi?

BFS


title: Evitare corruzione beck end

text:

access 2016-19


title: Evitare corruzione beck end

author: Simone Calligaris

text:
> buongiorno a tutti, volevo chiedere quali sono le migliori impostazioni di form o altri oggetti access per evitare il danneggiamento di beckend quando più utenti utilizzano il dabatase contemporaneamente
>
> grazie

Se proprio non puoi fare a meno d'usare AccDB come BE, puoi ottenere una buona affidabilità solo evitando la LAN e configurando l'utilizzo concorrente via RDP  (trovi molti vecchi TH sull'argomento nel ng.).
In ogni caso dovresti evitare l'utilizzo di campi MEMO, specialmente in tabelle ad alta concorrenza.

Saluti


title: Evitare corruzione beck end

author: Karl Donaubauer

text:
Salve,

mario rossi:
> volevo chiedere quali sono le migliori impostazioni di form o altri oggetti access per evitare il danneggiamento di beckend quando più utenti utilizzano il dabatase contemporaneamente

La cosa più importante per anni è stata evitare il mostruoso bug, cioè
impostare la chiave nel registro come descritto qui:

https://support.microsoft.com/office/access-reports-that-databases-are-in-an-inconsistent-state-7ec975da-f7a9-4414-a306-d3a7c422dc1d

Altrimenti, un ambiente di rete stabile e performante e un'attenta
gestione dell'accesso ai dati dai frontend.

SQL Server & Co vanno benissimo, ma ovviamente la maggior parte degli
utenti di Access usano i file di Access come backend (ovvero non
dividono nemmeno l'applicazione ;-).

Per i professionisti è un po' diverso: Faccio sempre dei sondaggi alle
mie conferenze per sviluppatori tra centinaia di colleghi riguardo ai
backend. Per >10 anni è stato costantemente il 45-50% file di Access,
l'altra metà sono server.

Anche molti dei miei clienti usano backend di Access, incluso uno con
circa 120 utenti in diversi paesi e lingue su un MDB (via Terminal
Server). Questo è naturalmente un caso speciale perché l'ambiente è
ottimale e la struttura dell'applicazione è adatta. Ma funziona così
bene che finora non hanno dovuto o voluto passare a un server backend,
anche se il numero di utenti e i volumi di dati sono cresciuti
notevolmente nel corso dei anni.

Ciao
Karl
*********
http://AccessDevCon.com

Access FAQ:
https://www.donkarl.com/it


title: Evitare corruzione beck end

text:

questa riga di registro va messa su tutti i pc, serve e tutti i client o solo sul server?
grazie.


title: Evitare corruzione beck end

text:
Salve,

mario rossi:
> Karl Donaubauer ha scritto:
>> ...
>>> volevo chiedere quali sono le migliori impostazioni di form o altri oggetti access per evitare il danneggiamento di beckend quando più utenti utilizzano il dabatase contemporaneamente
>> La cosa più importante per anni è stata evitare il mostruoso bug, cioè
>> impostare la chiave nel registro come descritto qui:
>>
>>
https://support.microsoft.com/office/access-reports-that-databases-are-in-an-inconsistent-state-7ec975da-f7a9-4414-a306-d3a7c422dc1d

>> ...
>
> questa riga di registro va messa su tutti i pc, serve e tutti i client o solo sul server?

È descritto molto chiaro nel paragrafo "Database diviso" sul sito.



title: Ordinamento DESC di una sottoscheda

author: Roberto Baronti

text:
Come si fa ad ordinare automaticamente in base ad un campo i record di
una sottoscheda in modo discendente? Il metodo "ordina per" funziona
solo nella scheda (form) originale, ma non se la medesima č contenuta
come sottoscheda in un'altra scheda...
Grazie in anticipo.


title: Ordinamento DESC di una sottoscheda

text:
"Roberto Baronti" <
dotb...@tin.it
> ha scritto nel messaggio
news:39FB42FC...@tin.it...

Creati una query (Query1) basata sull'oggetto che č attualmente origine
record della sottomaschera: ordina Query1 come meglio credi. Come origine
record della sottomaschera ora metti Query1.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: DLookup

author: PAOLO

text:
Per dare due criteri nel Dlookup č giusto l'operatore &?
Y = DLookup("[Prezzo]", "PREZZILISTINO",
"[Articolo]=CasellaCombinata15.Value & [Listino]=Listino.Value")
Graz.


title: DLookup

author: Riccardo

text:
PAOLO <
armo...@libero.it
> wrote in message
3SKW5.27793$hk4.1...@news.infostrada.it...

___-
penso di no, con l'operatore & dovresti ottenere + o - questo.
CasellaCombinata15.Value = pluto
Listino.Value  =  pippo
risultato
plutopippo
dovresti provare con AND invece di &
ciao Riccardo


title: DLookup

author: JBad

text:
In article <3SKW5.27793$
hk4.1...@news.infostrada.it
>,
armo...@libero.it
 says...
> Per dare due criteri nel Dlookup č giusto l'operatore &?
>
> Y = DLookup("[Prezzo]", "PREZZILISTINO",
> "[Articolo]=CasellaCombinata15.Value & [Listino]=Listino.Value")
>
> Graz.
No. Devi usare "AND", "&" serve per concatenare le stringhe.
E poi il valore dei controlli devi inserirlo direttamente nel criterio di
ricerca, es.:
Y = DLookup("[Prezzo]", "PREZZILISTINO", "Articolo = " &
CasellaCombinata15.Value & " AND Listino = " & Listino.Value)
In questo modo il criterio della DLookUp diventera' x es.:
"Articolo = ARTICOLO1 AND Listino = LISTINO1"
Ciao
--
JBad


title: DLookup

author: Lbo

text:
Premesso che non si puo' compilare .mdb in .exe, on Mon, 04 Dec 2000
11:03:27 GMT, "PAOLO" <
armo...@libero.it
> wrote:
>Per dare due criteri nel Dlookup č giusto l'operatore &?
il criterio delle funzioni D* č un normalissimo WHERE di una stringa
sql, quindi segue tutte le regole dell'sql.
in sql due condizioni si concatenano con AND, quindi questa riga:
>Y = DLookup("[Prezzo]", "PREZZILISTINO",
>"[Articolo]=CasellaCombinata15.Value & [Listino]=Listino.Value")
dovrebbe essere riscritta cosě:
Y = DLookup("[Prezzo]", "PREZZILISTINO",
"[Articolo]= " & CasellaCombinata15.Value & " AND [Listino]=" &
Listino.Value)
ci sono due errori nel tuo esempio.
il primo č che hai incluso nella stringa un riferimento ai controlli
di una maschera.  questi riferimenti devono stare fuori dalla stringa.
ammettiamo che dentro il controllo casellacmbinata 15 ci fosse scritto
123 e dentro il controllo Listino ci fosse scritto 256: il valore del
"criterio" avrebbe duvuto essere:
"[Articolo]=123 AND [Listino]=256"
che č una parte WHERE lecita (sempre ammesso che sia il campo Articolo
che il campo Listino della tabella siano di tipo numerico.  se sono di
tipo stringa il discorso cambia di poco, ma questo lo vediamo dopo).
invece il tuo esempio genera una stringa criterio siffatta:
"[Articolo]=CasellaCombinata15.Value & [Listino]=Listino.Value"
che in sql non vuol dire niente.  allora, in sql tu devi scrivere:
1. il nome del campo che vuoi confrontare, 2. un operatore di
confronto (uguale, maggiore, diverso...), 3. un valore di confronto.
tutte queste cose devono finire in una stringa.
allora, 1. č il nome del campo, e fin qui ci siamo:
"[Articolo]"
2. l'operatore di confronto, anche qui ci siamo:
"="
la stringa "[Articolo]" seguita dalla stringa "=" produce
"[Articolo]=".
poi ci devi mettere un valore, ma il valore č quello che č scritto nel
controllo, non il *nome* del controllo!  lo devi scrivere fuori dalle
virgolette, che servono a delimitare le stringhe.
quindi devi scrivere:
"[Articolo]="         &              CasellaCombinata15
^^^^^                ^^^^              ^^^^^^^^^^^^
primo pezzo    concatenatore      contenitore del
                        di stringa                  valore
il che, ammesso che dentro casellacombinata15 ci sia scritto 123,
genera la stringa:
"[Articolo]=123"
ora, attenzione a non fare confusione: & č un operatore che appunto
concatena, cioč unisce, stringhe.  tu vuoi aggiungere un altro
criterio ad una stringa sql.  l'operatore che in sql permette di
utilizzare piů criteri č AND.  anche esso deve essere inserito come
stringa, quindi va da sé:
"[Articolo]=" & CasellaCombinata15 & " AND "
AND che cosa?  l'altro campo, l'altro operatore, l'altro valore:
"[Articolo]=" & CasellaCombinata15 & " AND " & " [Listino]=" &
Listino.Value
ora, metti caso che uno dei campi sia di tipo testo.  il valore di
confronto deve essere incluso tra apici, senza spazi.  se Listino
fosse di tipo testo dovresti scrivere:
"[Articolo]=" & CasellaCombinata15 & " AND " & " [Listino]='" &
Listino.Value & "'"
>Graz.
preg.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: DLookup

author: Rob

text:
"Lbo" <
L...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3a2bfb55....@news.edisons.it...
>>>[ G I G A   C U T ]<<<
> non studio non lavoro non guardo la tv
> non vado al cinema non faccio sport
e te credo! Altrimenti dove lo trovi il tempo per dare risposte come questa?
Ce volevi scrivere un manuale? :-)
--
dg.rob...@tiscalinet.it
togliere NOSPAM per postare
--------------------------------------------
2495 sanzioni per divieto di sosta nella mia città!
Domanda: e le altre 95 di chi sono?


title: DLookup

text:
>Ce volevi scrivere un manuale? :-)
be', sai, le funzioni d* sono state fatte, credo, per essere usate da
quelli che sono ancora poco pratici di programmazione, perň va a
finire che se non sai l'sql e se non sai fare dei riferimenti fatti
bene ai controlli č un casino peggio che scriversi una normale stringa
sql e via...
almeno, questi sono stati i problemi piů grossi che ho incontrato io
ai miei esordi...  cosa va dentro e cosa fuori dalle virgolette e
perché... ci ho messo un po' a capire che dovevo comporre una stringa
ecc. ecc....
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------



title: DLookup

text:
"Lbo" <
L...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3a2cfe67....@news.edisons.it...
> >Ce volevi scrivere un manuale? :-)
>
> be', sai, le funzioni d* sono state fatte, credo, per essere usate da
> quelli che sono ancora poco pratici di programmazione, però va a
> finire che se non sai l'sql e se non sai fare dei riferimenti fatti
> bene ai controlli è un casino peggio che scriversi una normale stringa
> sql e via...
>
> almeno, questi sono stati i problemi più grossi che ho incontrato io
> ai miei esordi...  cosa va dentro e cosa fuori dalle virgolette e
> perché... ci ho messo un po' a capire che dovevo comporre una stringa
> ecc. ecc....
> --
>
> non studio non lavoro non guardo la tv
> non vado al cinema non faccio sport
>
> ----------------------------------------
Non volevo assolutamente plemizzare, anzi
continua così che anch'io ho molto da imparare e tanta, tanta strada da
fare!
 ciao!
rob.



title: Parametro /decompile

author: Rè Artu

text:
Ciao a tutti
Utilizzo A97
Il parametro /decompile esiste anche nelle versioni di A2000 e XP?
Ho provato ma non succede nulla
Grazie
Ciao
Luca


title: Parametro /decompile

text:
Rè Artu ha scritto:
> Utilizzo A97
> Il parametro /decompile esiste anche nelle versioni di A2000 e XP?
> Ho provato ma non succede nulla
Sì esiste ancora. Non si comporta più esatamente che in A97
p.e. che riguardo la dimensione del mdb.
Ma aiuta ancora in qualche situazione di corruzione nel compilato.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Colore sfondo controllo

author: Elsis

text:
In una maschera mi occorre far si che dopo aver fatto doppio
click (quindi su questo tipo di evento) nel campo "ALFA" il
colore dello sfondo del campo "BETA" dello stesso record e solo
dello stesso record mi diventi giallo.
Ho provato con backcolor e credo sia corretto ma mi diventano
gialli i campi di tutti i record e non solo quello del record
corrente.
Grazie a tutti
--
Postato da Virgilio Newsgroup: scopri i nuovi gruppi
Eros, foto e video a
http://newsgroup.eros.virgilio.it


title: Colore sfondo controllo

text:
"Elsis" <
antoniof...@virgilio.it
> ha scritto nel messaggio
news:12641846.1132852010195.JavaMail.newsgroup@sc-ng-1...
> In una maschera mi occorre far si che dopo aver fatto doppio
> click (quindi su questo tipo di evento) nel campo "ALFA" il
> colore dello sfondo del campo "BETA" dello stesso record e solo
> dello stesso record mi diventi giallo.
>
> Ho provato con backcolor e credo sia corretto ma mi diventano
> gialli i campi di tutti i record e non solo quello del record
> corrente.
Per prima cosa in una maschera non ci sono i campi ma i controlli: i campi
esistono solo nelle tabelle e nelle queries.
Poi, se non ho capito male, sembrerebbe che tu stia operando in una maschera
con visualizzazione a Maschere continue.
Se è così, anche se con quel tipo di maschera visualizzi contemporaneamente
più record, resta il fatto che che nella maschera di controlli "BETA" ce ne
è comunque uno solo, quindi se da VBA cambi il colore del suo sfondo,
inevitabilmente in tutti i record visualizzati nella maschera quel controllo
avrà lo stesso colore.
Puoi risolvere il tuo problema o con la formattazione condizionale, oppure
andando sul Sito Comune (link qui sotto) e leggendo nella Sezione Forms la
FAQ di  Silvio Savoldi intitolata "3.26 Formattazione Condizionale nelle
maschere continue.".
Resta però il fatto che in ambedue le soluzioni non non mi sembra che
riusciresti a risolvere il fatto di far cambiare colore al controllo "BETA"
a fronte di un doppio clic sul controllo "ALFA".
>
> Grazie a tutti
Prego.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Cartelle protette da nome utente e password

author: Maurizio Camele

text:
Come potrei fare per accere a dei files presenti in un server Win2000,
protetto con nome utente e password, senza comunicare la password gli
operatori, e senza farla memorizzare a WinXP?


author: ALESSANDRO Baraldi

text:
> Come potrei fare per accere a dei files presenti in un server Win2000,
> protetto con nome utente e password, senza comunicare la password gli
> operatori, e senza farla memorizzare a WinXP?
Brutto affare....
Io ho trovato come soluzione solo quella di Mappare temporaneamente le
Cartelle come USER(abilitato)
solo all'esigenza e l'immediata rimozione della Mappatura appena terminato
l'utilizzo.
Ti dico questo sapendo che è una porcata... da non fare ma alla quale non ho
trovato alternative.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


author: Fabio Dalla Villa

text:
> Come potrei fare per accere a dei files presenti in un server Win2000,
> protetto con nome utente e password, senza comunicare la password gli
> operatori, e senza farla memorizzare a WinXP?
>
Ho notato che la funzione Rnd(-1) genera sempre lo stesso numero decimale a
6 cifre.
Da qui a ricavare un'altro numero che generi la tua password non dovrebbe
essere difficile.
E una volta nascosto il codice ....
Ciao


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fnknb0$uuv$1...@aioe.org...

E' vero, è veramente un brutto affare...
o le mappo, o non so come evitare che qualcuno cancelli queste immagini dal
server...
Per mapparle come dovrei fare?


text:
> E' vero, è veramente un brutto affare...
> o le mappo, o non so come evitare che qualcuno cancelli queste immagini
dal
> server...
>
> Per mapparle come dovrei fare?
Guarda ti passo il codice che provai a suo tempo ...
Hai 2 tipi di metodo:
1) API
2) WMI
Per il 1° credo abbia problemi con VISTA considerando che UAC blocca le
chiamate a basso livello
Per il 2° c'è un problema di sicurezza visto che per usare WMI serve
abilitare DCOM, e se ci sono FireWall
di mezzo sono dolori...!
QUESTO E' TUTTO IL CODICE(l'ho usato 3 anni fà, ma ho il vizio di mettere
molti commenti
quindi dovresti essere in grado di comprendere....):
Option Compare Database
Option Explicit
'
http://support.microsoft.com/?kbid=173011
'===========================================================================
==================
'                       MAPPING DRIVES WITH API
'===========================================================================
==================
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2005 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Type NETRESOURCE
   dwScope       As Long
   dwType        As Long
   dwDisplayType As Long
   dwUsage       As Long
   lpLocalName   As String
   lpRemoteName  As String
   lpComment     As String
   lpProvider    As String
End Type
'----------------------------------------------
'WNetAddConnection2
'Allows the caller to redirect (connect) a local
'device to a network resource. It is similar to
'WNetAddConnection, except that it takes a pointer
'to a NETRESOURCE structure to describe the network
'resource to connect to. It also takes the addition
'parameters lpUserID and dwFlags.
'lpNetResource
'Specifies the network resource to connect to.
'The following fields must be set when making a
'connection, the others are ignored.
'  lpRemoteName: Specifies the network resource
'                to connect to. This is limited
'                to MAX_PATH.
'  lpLocalName: This specifies the name of a local
'               device to be redirected, such as "F:"
'               or "LPT1". The string is treated in a
'               case insensitive manner, and may be
'               the empty string (or NULL) in which
'               case a connection to the network resource
'               is made without making a redirection.
'  lpProvider: Specifies the NP to connect to. If NULL
'              or empty string, Windows will try each
'              NP in turn. The caller should set
'              lpProvider only if it knows for sure
'              which network it wants. Otherwise, it
'              is preferable to let Windows determine
'              which NP the network name maps to.
'              If this is non NULL, Windows will try
'              the named NP and no other.
'  dwType: Specifies the type of resource to connect to.
'          It must be RESOURCETYPE_DISK or RESOURCETYPE_PRINT
'          if lpLocalName is not the empty string. It may
'          also be RESOURCETYPE_ANY if lpLocalName is the
'          empty string.
'lpPassword
'Specifies the password to be used in making the
'connection, normally the password associated with
'lpUserID. A NULL value or string may be passed in
'to indicate to the function to use the current
'default password.
'
'lpUserID
'This specifies the identity of the user needed to
'make the connection. If NULL, a default will be
'applied. This is used when the user wishes to connect
'to a resource, but has a different user name or
'account assigned to him for that resource. This
'identification represents a security context, and
'is NP specific.
'
'dwFlags
'This is a bit mask which may have any of the
'following bits set:
'
'  CONNECT_UPDATE_PROFILE: If the connection should
'                          be made persistent. If set,
'                          Windows automatically restores
'                          this connection when the user
'                          logs on to the network. A connection
'                          is only made persistent if the
'                          connection was successful.
Private Declare Function WNetAddConnection2 Lib "mpr" _
    Alias "WNetAddConnection2A" _
   (lpNetResource As NETRESOURCE, _
    ByVal lpPassword As String, _
    ByVal lpUserName As String, _
    ByVal dwFlags As Long) As Long
Private Declare Function WNetCancelConnection2 Lib "mpr" _
    Alias "WNetCancelConnection2A" _
   (ByVal lpName As String, _
    ByVal dwFlags As Long, _
    ByVal fForce As Long) As Long
Private Const ERROR_SUCCESS = 0
Private Const CONNECT_UPDATE_PROFILE = &H1
' The following includes all the constants defined for NETRESOURCE,
' not just the ones used in this example.
Private Const RESOURCETYPE_DISK = &H1
Private Const RESOURCETYPE_PRINT = &H2
Private Const RESOURCETYPE_ANY = &H0
Private Const RESOURCE_CONNECTED = &H1
Private Const RESOURCE_REMEMBERED = &H3
Private Const RESOURCE_GLOBALNET = &H2
Private Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
Private Const RESOURCEDISPLAYTYPE_GENERIC = &H0
Private Const RESOURCEDISPLAYTYPE_SERVER = &H2
Private Const RESOURCEDISPLAYTYPE_SHARE = &H3
Private Const RESOURCEUSAGE_CONNECTABLE = &H1
Private Const RESOURCEUSAGE_CONTAINER = &H2
' Error Constants:
Private Const ERROR_ACCESS_DENIED = 5&
Private Const ERROR_ALREADY_ASSIGNED = 85&
Private Const ERROR_BAD_DEV_TYPE = 66&
Private Const ERROR_BAD_DEVICE = 1200&
Private Const ERROR_BAD_NET_NAME = 67&
Private Const ERROR_BAD_PROFILE = 1206&
Private Const ERROR_BAD_PROVIDER = 1204&
Private Const ERROR_BUSY = 170&
Private Const ERROR_CANCELLED = 1223&
Private Const ERROR_CANNOT_OPEN_PROFILE = 1205&
Private Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_INVALID_PASSWORD = 86&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Private Declare Function GetLogicalDriveStrings Lib "kernel32" _
   Alias "GetLogicalDriveStringsA" _
  (ByVal nBufferLength As Long, _
   ByVal lpBuffer As String) As Long
Public Function ConnectNextFreeNetworkDrive(sServer As String) As String
   ' Questa funzione cerca di Mappare una risorsa del SERVER
   ' ciclando le lettere da C÷Z nella speranza di trovare una Risorsa
   ' libera.
   '
   '----------------------- ESEMPIO DI CHIAMATA ------------------------
   '
   '  Call ConnectNextFreeNetworkDrive("\\Server\SharedFolder"
   '
   '--------------------------------------------------------------------
   Dim NETR As NETRESOURCE
   Dim errInfo As Long
   Dim x As Long
   Dim testDrv As String
  ' Imposta la prima lettera disponibile a C (ASCII 67) in realtà da 68
  ' come si vedrà poi, quindi se già esistente incrementa di uno
  ' fino alla Z (ASCII 90).
  ' Ne troverà uno libero....!!!
   x = 67
   Do
     ' Incrementa la Lettera del DRIVE di 1 ma partiremo da "D"
      x = x + 1
      testDrv = Chr$(x) & ":"
      With NETR
         .dwScope = RESOURCE_GLOBALNET
         .dwType = RESOURCETYPE_DISK
         .dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
         .dwUsage = RESOURCEUSAGE_CONNECTABLE
         .lpRemoteName = sServer
         .lpLocalName = testDrv
      End With
      ' Impostare la PASSWORD e lo USERNAME
      ' La PWD può essere passata come vbNullstring
      errInfo = WNetAddConnection2(NETR, _
                                   "Password", _
                                   "username", _
                                   CONNECT_UPDATE_PROFILE)
   Loop Until x = 90 Or errInfo = ERROR_SUCCESS   '90 = "z"
   ' Se avrà successo verrà restituita la lettera del DRIVE
   If errInfo = ERROR_SUCCESS Then
      ConnectNextFreeNetworkDrive = testDrv
   Else
      MsgBox "ERRORE: " & errInfo & " - Connessione di Rete Falita !",
vbCritical, "AVVISO"
      ConnectNextFreeNetworkDrive = "NONE"
   End If
End Function
Public Function RemoveNetworkDrive(strDrive As String) As Boolean
   Dim errInfo As Long
   ' Questa funzione rimuove la risorsa mappata passando
   ' la lettera del DRIVE, e verificandone l'esistenza.
   '----------------------- ESEMPIO DI CHIAMATA ------------------------
   '
   '  Call RemoveNetworkDrive("H:")
   '
   '--------------------------------------------------------------------
   If DriveExists(strDrive) Then
      errInfo = WNetCancelConnection2(strDrive, vbNullString,
CONNECT_UPDATE_PROFILE)
      RemoveNetworkDrive = errInfo = ERROR_SUCCESS
   End If
End Function
Private Function DriveExists(SDrive As String) As Boolean
   ' Questa funzione verifica l'esistenza del DRIVE
   Dim tmp As String
   Dim nBuffersize As Long
  'Call the API with a buffer size of 0.
  'The call fails, and the required size
  'is returned as the result.
   nBuffersize = GetLogicalDriveStrings(0&, tmp)
  'pad a string to hold the results
   tmp = Space$(nBuffersize)
   nBuffersize = Len(tmp)
  'and call again
   If GetLogicalDriveStrings(nBuffersize, tmp) Then
     'if the drive letter passed is in
     'the returned logical drive string,
     'return True. Use vbTextCompare for
     'a case-insensitive match (remembering
     'that when a compare method is specified,
     'the start position must also be specified.
      DriveExists = InStr(1, tmp, SDrive, vbTextCompare)
   End If
End Function
'===========================================================================
==================
'     QUESTE FUNZIONI REALIZZANO LA STESSA PROCEDURA API SOPRACITATA MA CON
WMI
'                       MAPPING DRIVES WITH WMI
'===========================================================================
==================
' Mappa una Risorsa di RETE
Public Function MapNetworkDrive(sServer As String) As String
   Dim WshNetwork
   Dim allDrives
   Dim i                   As Integer
   Dim x                   As Integer
   Dim AlreadyConnected    As Boolean
   Dim mDrive              As String
   Set WshNetwork = CreateObject("WScript.Network")
   Set allDrives = WshNetwork.EnumNetworkDrives()
   ' Anche quì cicleremo le lettere Mappate con la speranza
   ' di trovarne una libera e partiremo da ASCII 68=D
   AlreadyConnected = False
   For x = 68 To 90
      mDrive = Chr(x)
      AlreadyConnected = DriveExist(mDrive)
      If AlreadyConnected = False Then
         ' Impostare la PASSWORD e lo USERNAME
         ' La PWD può essere passata come vbNullstring
         WshNetwork.MapNetworkDrive mDrive & ":", sServer, "Utente",
"password"
         'MsgBox "Drive " & DriveLetter & " connected successfully."
         MapNetworkDrive = mDrive
         Set WshNetwork = Nothing
         Set allDrives = Nothing
         Exit Function
      End If
   Next
   Set WshNetwork = Nothing
   Set allDrives = Nothing
   MapNetworkDrive = vbNullString
   MsgBox "Attenzione la risorsa Server non è mappata", vbCritical, "AVVISO"
End Function
Public Function RemoveMapNetwork() As Boolean
   Dim WshNetwork
   Dim allDrives
   Set WshNetwork = CreateObject("WScript.Network")
   Set allDrives = WshNetwork.EnumNetworkDrives
   ' Se non esiste nessuna risorsa mappata non proseguo
   If allDrives.Count = 0 Then
      MapDrive = vbNullString
   End If
   If DriveExist(MapLetter) Then WshNetwork.RemoveNetworkDrive MapDrive
Exit_Here:
   Set WshNetwork = Nothing
   Set allDrives = Nothing
End Function
Public Function DriveExist(strLetter As String) As Boolean
   Dim fso, d, dc
   DriveExist = False
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
   For Each d In dc
   Set d = fso.GetDrive(d.DriveLetter)
       If d.DriveLetter = strLetter Then
          DriveExist = True
          Exit Function
       End If
   Set d = Nothing
   Next
   Set d = Nothing
   Set dc = Nothing
   Set fso = Nothing
End Function



title: Formato data

author: Fabrizio

text:
Vorrei sapere se in una tabella è possibile impostare un formato data in
cifre in modo che l'anno venga visualizzato con 4 cifre, nel seguente modo:
06/11/2001
Ringrazio quanti mi volessero aiutare.
Fabrizio


title: Formato data

author: Roberto Rossi

text:
"Fabrizio" <
far...@tiscalinet.it
> ha scritto nel messaggio
news:9s98dn$jih$1...@pegasus.tiscalinet.it...

> nel  campo  'tuaData' della tabella  inserisci come formato  'Data in
cifre'  e come  maschera di input  99/99/0000;0;_
nel 'Pannello di Controllo' su 'Impostazioni Internazionali' seleziona come
formato data  gg/MM/aaaa
ciao roberto


title: Formato data

author: Roberto dal portatile

text:
"Fabrizio" <
far...@tiscalinet.it
> ha scritto nel messaggio
news:9s98dn$jih$1...@pegasus.tiscalinet.it...

Nella proprietà formato del campo o del controllo scrivi
gg/mm/aaaa
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: apertura Access a tutto schermo

author: Riccardo Casadei

text:
Qualcuno sa dirmi come aprire Access a tutto schermo senza usare
docmd.maximize che poi si riflette su tutte le maschere successive ?
Grazie
Rick


title: apertura Access a tutto schermo

text:
Riccardo Casadei ha scritto:
> Qualcuno sa dirmi come aprire Access a tutto schermo senza usare
> docmd.maximize che poi si riflette su tutte le maschere successive ?
docmd.maximize
Non ha niente da fare con la finestra di Access a tutto schermo
ma solo con maschere e report nella finestra di Access.
Se veramente intendi la finestra di Access il commando è:
RunCommand acCmdAppMaximize
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com