mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Problema con filtri: è questa la soluzione?

Salve
Sottopongo al ng un problema e la mia soluzione: puň essere utile ad altri e
serve a me per capire se la soluzione č corretta.
Dunque:
una maschera1 con origine dati una tabella; un controllo per inserire un
valore da ricercare in un campo, un pulsante di comando per avviare la
ricerca; sull'evento click del pulsante:
StrFilter = "CAMPO1 = '" & [Forms]![maschera1]![ValControllo] & "'"
DoCmd.ApplyFilter "", strFilter
Funziona tutto e la maschera visualizza solamente i record che verificano il
filtro.
Se il criterio di filtro applicato non trova nessun record la maschera va
"in palla" (a me non compaiono piů i controlli, appare solamente lo sfondo).
Ho risolto il problema cosě:
If (Forms!maschera1.RecordsetClone.RecordCount) = 0 Then
    Me.FilterOn = False
    MsgBox ("Non ci sono record che verificano i criteri di ricerca
impostati")
 End If
La cosa funziona
La mia domanda č: Va bene come ho fatto? ci sono altre strade?
Grazie

--------------------------------------------------------------------------<
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Alex
Grazie per la risposta. E' una funzione che non conoscevo. Mi sembra che tu
abbia ragione, anche se il codice soprariportato mi sembra abbastanza
semplice
By

Newsgroup: it.comp.appl.access
Titolo: ODE per il 2000

A qualcuno risulta che MS abbia rilasciato oltre a Office 2000 anche una
versione di ODE per access 2000?
se la risposta e' si pongo un'altra domanda:
se in azienda acquisto 2 o 3 office2000 pro o enterprise e il resto sbe
posso acquistare ODE e distribuire le applicazioni Access sulle restanti 50
macchine?
grazie
Fabio Pellati
Ferrara


quando hai una applicazione da distribuire con ode la puoi distribuire anche
se non esiste nessuna versione di office e su un numero illimitato di pc. !
Newsgroup: it.comp.appl.access
Titolo: Parser

Salve,
qualcuno saprebbe spiegarmi un modo semplice cos'è un parser e quale
utilizzo può avere in un applicazione access?
Ciao e grazie.


A dire il vero dopo aver guardato anche queste diapositive .ppt sono ancora
più confuso! :P
http://www.psico.univ.trieste.it/didattica/online/psicolinguistica/teoriamodelli/T&M_parsing_sintattico_lucidi.ppt
ma in che contesto viene utilizzato?
ciao

Newsgroup: it.comp.appl.access
Titolo: prendere solo i decimali dell'euro

avendo come separatore il punto  e avendo la cifra Euro 3.950.52
secondo voi si riesce a prelevare attraverso instr i valori 52 cioč i 2
decimali.
ho provato con
right(stringa, InStr(stringa, ".") - 1)
ma considera il primo punto
grazie a tutti.

 ha scritto nel
messaggio news:TIQ09.10538$n04.3...@twister2.libero.it...

Se i centesimi ci sono sempre, ti basta la right(..,2)
Antonio
Newsgroup: it.comp.appl.access
Titolo: Aggiunta di un carattere al CAMPO

Nella maschera di Inserimento dei dati ho un campo limitato a 9 caratteri,
perchè rappresenta un codice prodotto composto da 9 cifre.
Ora questi codice in casi particolari è composto da 10 caratteri. Quindi
modifico la tabella e lo porto a 10.
Quindi il mio campo nella maschera di inserimento mi piacerebbe che
funzionasse nel modo seguente:
il campo deve ammettere l'inserimento di 9 caratteri in modo che nessuno si
sbaglia; poi nel momento in cui servisse il decimo carattere, premendo un
pulsantino vinico al campo o mettendo la crocetta su una casella di
controllo mi abilitasse inserimento del decimo carattere.
Se qualcuno può aiutarmi mi contatti al mio indirizzo di posta:
marco.s...@libero.it
Ciao e grazieeeeeeeeeeee

 ha scritto nel messaggio
news:am9o1q$1vo$1...@fe2.cs.interbusiness.it...

Perchè non metti un campo in più nella tua tabella, carattereAggiuntivo,
tipo Stringa lunghezza 1 carattere e abiliti e disabiliti questo con il
tuo pulsantino, lasciando stare il vecchio codice a 9 caratteri.
Nel momento in cui ti serve il codice completo concateni le stringhe.
Bye
giaconet

 ha scritto nel messaggio
news:am9o1q$1vo$1...@fe2.cs.interbusiness.it...

C'è una regola di questo NG che vieta di dialogare in privato di Access,
quindi la risposta la posto sul NG.
Se il controllo dove digiti il codice si chiama Pippo come il campo di tipo
testo della tabella cui è associato.
Nella struttura della tabella, come Dimensione campo del campo Pippo scrivi
10.
A fronte dell'evento "Prima di aggiornare" del controllo Pippo genera il
seguente codice VBA;
Private Sub Pippo_BeforeUpdate(Cancel As Integer)
Dim Pluto As String
If Len(Me!Pippo) = 9 Then Exit Sub
If Len(Me!Pippo) = 10 Then
    Pluto = MsgBox("Hai digitato un codice di 10 caratteri devo
accettarlo?", vbYesNo)
    If Pluto = vbYes Then
        Exit Sub
    Else
        MsgBox "Codice " & Me!Pippo & " di lungezza errata: ridigitalo"
        Cancel = True
        Me!Pippo.Undo
    End If
Else
    MsgBox "Codice " & Me!Pippo & " di lungezza errata: ridigitalo"
    Cancel = True
    Me!Pippo.Undo
End If
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Se qualcuno può aiutarmi mi contatti al mio indirizzo di posta:
    Manco morto. ;-)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: lavorare con le date

salve a tutti,
ho creato uno scadenziario per le fatture da pagare, vorrei creare una query 
da inserire nel report che mi evidenziasse le scadenze del mese da data a 
data (es.01/01/08 al 31/01/08) e se il documento é una nota di credito che 
venga sottratto l'importo dal totale da pagare.
i capi che sono nel report:
idfattura
NomeFornitore
tipoDocumento[Fattura] o [nota di credito]
Datadocumento
Scadenza (la scadenza della fattura]
importo
Grazie per l'aiuto e buona giornata
-- 
carlo :)- 

gsg ha scritto:


Comincia con una query parametrica, metti sotto il campo Scadenza il
criterio
  between [inizio] and [fine]
Quando apri la query ti chiede le due date e mostra solo le fatture in
scadenza tra di esse.
Per stornare le note di credito usa un campo calcolato:
  ImportoS: Importo*iif([tipodocumento]="nota di credito";-1;1)
(supponendo che tipodocumento sia un testo che contenga i valori "fattura"
oppure "nota di credito", dalla richiesta non ho capito bene)
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: *** MASCHERA SEMPRE IN PRIMO PIANO : C...O ***

Ciao a tutti,
dall'oggetto della mail sembrava che volessi sapere come si fa a far
rimanere una form sempre in primo piano.
Invece no.
Io faccio partire con la macro Autoexec, una maschera in modalità dialogo
che sarebbe una specie di pannello comandi.
Una volta che però clicco su un pulsante che mi dovrebbe visualizzare
un'anteprima di un report, quest'ultimo mi va in background.
Come faccio a massimizzare il report cosicchè se lochiudo ritrovo il mio
pannello principale ?
Grazie dell'aiuto
Simone (FI)
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.
--
Posted from 
mail-out-01.piro.net
 [194.64.31.11] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:OF0C35DDAB.CFECF081...@obi.de...
Ciao a tutti,
dall'oggetto della mail sembrava che volessi sapere come si fa a far
rimanere una form sempre in primo piano.
Invece no.
Io faccio partire con la macro Autoexec, una maschera in modalità dialogo
che sarebbe una specie di pannello comandi.
Una volta che però clicco su un pulsante che mi dovrebbe visualizzare
un'anteprima di un report, quest'ultimo mi va in background.
Come faccio a massimizzare il report cosicchè se lochiudo ritrovo il mio
pannello principale ?
Grazie dell'aiuto
Simone (FI)
Potresti impostare la sequenza attraveso una macro o utilizzando una
funzione, es.
Al l'evento Su clic del pulsante della maschera del pannello comandi che
apre il report aggiungi:
Me.Visible = False 'nascondi la maschera
Costruisci o aggiungi alla barra degli strumenti del report un comando dove
alla proprietà
Azione abbini la seguente funzione:
Azione: =ChiudiReport()
Function ChiudiReport()
    DoCmd.Close acReport, "nomeReport"
    DoCmd.OpenForm "nomeMascheraPannelloComandi"
End Function
giuseppe

Newsgroup: it.comp.appl.access
Titolo: Format a 2 decimali

Ciao a tutti, volevo un' informazione: il format in Access come arrotonda ai
2 decimali ???
Il problema è che una query sul mio PC in access arrotonda una somma di
1,255 in 1,25 ma dal mio progetto in Visual vedo 1,26 e dal cliente 1,25
!!!!
Qualcuno mi sa delucidare ???
Io ho risolto il problema facendo così:
 Int(((numero) * (10 ^ Decimali)) + 0.5) / (10 ^ Decimali)
In questo caso sarà  Int(((numero) * 100) + 0.5) / 100
--
Ciao, Fabio.

 ha scritto nel messaggio
news:a5kqo9$f6n$1...@newsreader.mailgate.org...

vi chiedo per pietà, basta coi decimali...leggete i post precedenti
Newsgroup: it.comp.appl.access
Titolo: Criteri DCount multipli...

Ciao a tutti...
Con il DCount sottostante controllo se il record è in uso da qualche
altro utente in una situazione di multiutenza dove la UserName e i
privilegi vengono salvati in una variabile globale che richiamo con
RetUser(). Il mio problema è che ho bisogno di inserire più citeri a
questo controllo ma, fino a 2 tutto Ok, mentre aggiungendo il terzo
(UserName) mi va in errore la stringa...
2 criteri:  OK
If DCount("IdAnagrafica", "[tblAccessi]", "Contatto = False And
IdAnagrafica=" & Me.IDAnagrafica) > 0 Then
3 criteri:  KO
If DCount("IdAnagrafica", "[tblAccessi]", "Contatto = False And
IdAnagrafica=" & Me.IDAnagrafica And UserName <> '" & retUser & "'") >
0 Then
mi aiutereste a scrivere questi criteri correttamente?
Grazie
Paolo

Non ti sei accorto che hai commesso un errore di sintassi nello script
a 3 criteri
che in quello a 2 non hai commesso...!
Ricorda le stringhe e come vanno formattate...!
If DCount("IdAnagrafica", "[tblAccessi]", "Contatto = False And
IdAnagrafica=" & Me.IDAnagrafica & " And UserName <> '" & retUser &
"'") > 
0 Then 
Ciao
@Alex

Ti ringrazio Alex...
...tra l'altro il sistema di User su Variabili globali con accessi
differenti sulle form in base ai privilegi, etc... l'ho attinto da
alcune tue indicazioni su vecchi Post e devo dire che mi trovo molto
bene... 
...grazie ancora!
Ciao
Paolo

Newsgroup: it.comp.appl.access
Titolo: report a campi dinamici

salve ho la necessità di creare un report basato su una query che creo di
volta in volta con la quantità di campi che cambiano ogni volta, come faccio
a predisporre in modo automatico e dinamico i campi sul corpo del report? ed
eventualmente come creare la intestazione x un raggruppamento.
grazie david

 grazie david
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:Ax5Sc.38067$OH4.1...@twister1.libero.it...

Grazie x la risposta ora mi metto al lavoro
DAvid
Newsgroup: it.comp.appl.access
Titolo: stessa subform in piu' form

ciao a tutti
 
su apertura di una subform
ho inserito questo codice
 
Dim strSql As String
 
strSql = vbNullString
strSql = strSql & "SELECT "
strSql = strSql & "IdEmailFornitore, "
strSql = strSql & "IdFornitore, "
strSql = strSql & "EmailFornitore, "
 
If givemenamecontrol = "Report Conferma Carico" Then
  strSql = strSql & "Invio_Carico As InvioDoc, "
  strSql = strSql & "InvA "
ElseIf givemenamecontrol = "Report Chiusura Carico" Then
  strSql = strSql & "Invio_Chiusura As InvioDoc, "
  strSql = strSql & "InvA1 As InvA "
 
End If
 
strSql = strSql & "FROM TbEmailFornitori "
strSql = strSql & "ORDER BY EmailFornitore"
 
DBEngine(0)(0).QueryDefs("Qry_EmailFornitore").SQL = strSql
 
Me.RecordSource = Me.RecordSource
 
____
questa è la funzione "givemenamecontrol"
Public Function givemenamecontrol() As String
  givemenamecontrol = 
Screen.ActiveControl.Name
 
 
End Function
____
 
 
ora dovendo inserire la stessa subform
in altre 2 maschere che apro utilizzando 2 pulsanti
dal pannello comandi
come posso fare per non crare alre subform uguali?
 
 
ho provato ad aggiungere 
 
Else
  strSql = strSql & "Invio_sollecitoFatture As InvioDoc, "
  strSql = strSql & "InvA2 As InvA "
 
End If
 
ma poi ho: .......... 
"il controllo specificato nell'espressione deve essere nella finestra attiva"
 
e non riesco a trovare una soluzione diversa.
 
grazie per l'aiuto


risolto testando l'apertura delle relative forms

Newsgroup: it.comp.appl.access
Titolo: Disperata ..... errore runtime 2287

su sistema operativo win2000 e access2000 ho provato ( e non poco!!!) a
inviare una email con un bottone in una maschera ma, continua a darmi il
seguente errore
errore run-time 2287
impossibile aprire la sessione di posta.
cosa puo' essere? su un pc con win 98 funziona ....
se qualcuno mi puo' aiutare .....
grazie mille
Giovanna
--------------------------------
Inviato via 
http://usenet.libero.it

 grazie mille
prova con
http://groups.google.com/groups?&selm=a1pb7r$rt9rp$4...@ID-46617.news.dfncis.de
o
http://groups.google.com/groups?h&selm=a1vsc9$td6ka$2...@ID-46617.news.dfncis.de
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com


prima di controllare il codice nella maschera verifica che la mapi sia
funzionante, apri un report qualunque in preview tasto destro, invia.
Se ti da lo stesso errore anche cosi' guarda sui vecchi post che c'e' la
soluzione.
Ciao
Ale.

ho controllato tutti i post ma non ho avuto successo: ho corretto il file
win.ini, ho controlalto il registro ( non ho la voce ..
office/8.0/common????) ma non funziona ancora.
aiuto...... non so + cosa fare!!!
Grazie a tutti

Newsgroup: it.comp.appl.access
Titolo: routine eliminazione record

Ciao a tutti...
per l'eliminazione di un record ho impostato il seguente codice "su 
eliminazione"
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Eliminare il record?"
   strMsg = "Eliminazione Record in corso..." & vbCrLf & _
            "Confermi l'eliminazione?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub
il pulsante yes e cancella funzionano correttamente, mentre il pulsante No 
non annulla l'evento lasciando che l'eliminazione proceda...
Dov'é l'errore????
Ciao e grazie per l'aiuto.
Gianni 

Gianni ha scritto:




invece di dargli undo prova a mettre exit sub
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio news:dP3hf.51091$65.14...@twister1.libero.it...

Anche per il No l'istruzione deve essere Cancel = true; comunque sarebbe meglio gestire l'evento "Delete"...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio news:dP3hf.51091$65.14...@twister1.libero.it...



Newsgroup: it.comp.appl.access
Titolo: Creare un eseguibile di comandi DOS

Ciao a tutti.
Ho la necessità di realizzare un file .exe che mi permetta di far
eseguire alcuni comandi prima che parta un database Access. Purtroppo
non posso inserire questi comandi all'apertura del database per una
serie di motivi che mi è lungo e difficile spiegare in questa sede.
Vorrei quindi sapere come posso "compilare" un file di tipo .bat per
renderlo non leggibile ai soliti occhi indiscreti....
Un saluto.
  Lino
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 renderlo non leggibile ai soliti occhi indiscreti....
[...]
    Curiosita'... Ma che ci sara' mai scritto, dentro a 'sto file?
    Mi sembra invece che la cosa che dovrebbe preoccupare e' che non sia
modificabile da sbadati e maliziosi.
    Se vuoi usare unicamente gli strumenti a tua disposizione, o che sai
usare meglio, potresti fare tutto con un bel file mde. Che ne dici?
--
Ciao e... facci sapere se ed eventualmente come hai risolto. Grazie.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:b3qa6g$1ok75i$1...@ID-52090.news.dfncis.de...

prova a cercare in giro il file Bat2exe.com
serve a rendere i file bat in file con estensione .exe
Nicola

 serve a rendere i file bat in file con estensione .exe
Lo trovi anche qui:
http://www.beforewin.cjb.net
--
Gulp ! Forse mi sono perso qualcosa !
Newsgroup: it.comp.appl.access
Titolo: variabili di Windows NT

Ho realizzato un'applicazione con Access 97 utilizzabile in rete da più
utenti contemporaneamente.
Ho escogitato con un modo per essere informato
di quanti utenti utilizzano l'applicazione in un certo istante, ma non
riesco a sapere chi sono e da quali macchine stanno lavorando in modo del
tutto trasparente per gli utenti. Basterebbe, se possibile, utilizzare
alcune variabili di sistema di WNT come "COMPUTER NAME" oppure l'utente che
ha effettuato il logon in WNT quando è stata accesa la macchina. Sapete
come si fa ad utilizzare variabili di WNT in un codice di Visual Basic per
Access o altri modi per risolvere il problema?
--------------------------------
Inviato via 
http://usenet.iol.it

 Inviato via 
http://usenet.iol.it
Environ("nome_della_variabile")
Esempio:
Environ("UserName")
Ciao!
Esteban
Hosted by 
www.seber.it

Newsgroup: it.comp.appl.access
Titolo: Copia file in controllo

Qualcuno saprebbe indicarmi come copiare il contenuto di un file di tipo 
testo in un controllo di tipo testo in Access?
Grazie,
Alessandro

Alessandro Brunori ha detto: in data 24/11/2005 11.17:

open "Percorso completo file" for input as #1
dim tmp
me.casellatesto = ""
do while not eof(1)
	line input #1, tmp
	me.casellatesto = me.casellatesto & tmp
loop
close #1
ciao
Nick

On Thu, 24 Nov 2005 10:40:57 GMT, Nick <senz...@chedetesul.NG>
wrote:

ottima soluzione, meglio non si potrebbe...
ciao.


Grazie, ma non mi sono espresso bene. Avrei necessità di mantenere la 
formattazione e in accesso sequenziale la perdo. Avevo provato questa 
soluzione ma non mi consente di farlo nemmeno se inserisco in un 
controllo rtf.
Resto in attesa di un consiglio e nel frattempo ti ringrazio per 
l'interessamento.



Quale formattazione perdi? Il ritorno a capo?
Se è solo questo, mi permetto di modificare quanto postato da Nick
come segue:
open "Percorso completo file" for input as #1
dim tmp
me.casellatesto = ""
do while not eof(1)
	line input #1, tmp
	me.casellatesto = me.casellatesto & tmp & vbCrLf
loop
close #1
Se per formattazione intendi altro cerca di spiegarti, così proviamo
ad aiutarti.
ciao


Grazie. In realtà era una sciocchezza fatta da me nel riportare il 
codice. Siete stati gentilissimi e precisi.
A buon rendere
Alessandro
Newsgroup: it.comp.appl.access
Titolo: CONTROLLO CAMPO

Salve
Ho una maschera con 4 controlli
magazzino_carico
magazzino_scarico
kg_carico
kg_scarico
immetto i valori e poi premo un pulsante che mi esegue una query di
accodamento
come posso fare per evitare di eseguire la query se tutti i campi non sono
compilati ossia, vorrei che se anche un solo campo � null la query non
venga eseguita
Grazie
Ciao
Giorgi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Sul click del tuo pulsante metti
if isnull(me!magazzinocarico) or isnull(me!magazzino_scarico) or
isnull(me!kg_carico) or isnull(me!kg_scarico) then

 isnull(me!kg_carico) or isnull(me!kg_scarico) then
   msgbox  "Campi Obbligatori Vuoti"
else
   docmd.openquery "tuaquery"
endif

 Giorgi
Hai una strana logica di considerare Movimenti di magazzino...!
Un Movimento è un Movimento, il fatto che sia Carico/Scarico è solo un
dettaglio del Tipo di Movimento... trovo pertanto possa essere errata
la strutura che hai fatto...
Ma in ogni caso perchè mai dovresti controllare 4 condizioni...?
Se un movimento è di Carico controllerai i KgCarico e viceversa...,
questo avvalora la mia osservazione iniziale...!
Sei certo di non aver sbagliato qualche cosa a monte a livello di
Normalizzazione...?
@Alex

Newsgroup: it.comp.appl.access
Titolo: Verifica se ultimo record inserito in altro dominio ha campo null

Buonasera a tutti. Ho una maschera comandi che dovrebbe permettermi, attraverso un pulsante, di aprirmi un'altra maschera "Documenti", con origine dati su Tab omonima.
Vorrei che, verificando se l'ultimo record inserito in tab "Documenti" ha un campo "Cognome" null, la maschera si aprisse alternativamente sull'ultimo o su nuovo record.
La Tab "Documenti ha un campo "Progressivo" che è contatore e chiave primaria.
Ho provato così:
 
 
If DMax("[Progressivo]", "Documenti", "Cognome = Null") Then
DoCmd.OpenForm "Documenti"
DoCmd.GoToRecord acDataForm, "Documenti", acLast
Else
DoCmd.OpenForm "Documenti"
DoCmd.GoToRecord acDataForm, "Documenti", acNewRec
End If
 
Ovviamente non va. 
Un grazie sentito a chi vorrà darmi una mano.

 ...
 
Prova con
 
If IsNull(DLookUp("Cognome", "Documenti", _
            "Progressivo=DMax('Progressivo','Documenti')")) Then
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


Grazie mille Karl!
Newsgroup: it.comp.appl.access
Titolo: HELP : un buon libro per avvicinarsi ai DB relazionali ?

Mi consigliate un buon libro di base ( in italiano ) che mi dia un
infarinatura sugli odierni DB relazionali ? in modo che dopo posso
deidicarmi a libri piu' complessi ( adesso come adesso mi mancano
proprio le basi ed i principi di funzionamento dei DB per cui ho
provato a leggere per esempio una guida a ORACLE 9 della Mcgraw hill
ma rimango molto spiazzato ! ).
Grazie,
ciao.

 wrote in message
news:t4bg9v0e4m9ktsp00...@4ax.com...

    Forse meglio non affrontare l'argomento degli *odierni* database e
limitare lo studio a quelli degli anni Settanta dell'altro secolo perche' su
quei concetti si basano ancor oggi i piu' diffusi database in commercio come
per esempio Access.
    Se ti accontenti di una infarinatura e' sufficiente la Guida in linea di
Microsoft Access. Mi riferisco ovviamente ai capitoli fondamentali:
        Creazione e utilizzo di database
        Creazione e progettazione di tabelle
        (Access 2000)
    Se pero' vuoi veramente capirci qualcosa di piu':
        D'AMICO, Giuseppe _Progettazione concettuale di sistemi
        informativi - Un mondo in una macchina_, Biblioteca
        Scientifica Hoepli, Milano 1990, pp. 309.
    Il prezzo, nel 1992, era di 47.000 lire. Oggi non so e non so neppure se
ancora e' in vendita. Spero di si'.
-- 
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:t4bg9v0e4m9ktsp00...@4ax.com...


 che costa 25,00 Euro...
A me qualche anno fa hanno regalato 
"dati e base di dati: il modello relazionale" 
edito dalla FrancoAngeli 
di Vittorio Belski, Roberto Breschi, Fortunato Pigni e Maria 
T.Zocchi. 
Buono come infarinatura, ma ho pochi elementi per confrontarlo con 
altri testi.
Newsgroup: it.comp.appl.access
Titolo: Select case form struttura a schede

Un cordiale saluto a tutti i partecipanti.
A97 - facendo varie ricerche ho trovato una funzione per gestire l'evento on 
change di una struttura a schede.
Vorrei adattarla al mio caso ma, a causa della mia nulla conoscenza del 
codice, non ci sono riuscito.
In pratica vorrei che nel Case 2 facesse alcune cose (e ci sono riuscito) 
ma, negli altri due casi (cioè 0 e 1) non facesse niente (cioè visualizzare 
la scheda senza fare nessuna particolare operazione)
Ecco vi chiedo che cosa si dovrebbe scrivere per non far fare niente ?
Ringrazio in anticipo chiunque vorrà aiutarmi
Gabriele
Questo potrebbe essere l'esempio da implementare
Select Case TabCtl36
Case 2
Forms!MsSelezPerCli!Combo3.Visible = False
Forms!MsSelezPerCli!Combo5.Visible = False
Forms!MsSelezPerCli!Testo32.Visible = False
Case 1
........
Case 0
......
End Select
End Sub


Morgan 

 ha scritto nel messaggio news:4601806c$0$812$4faf...@reader5.news.tin.it...

Scusa a che serve un Select Case che valuta un solo caso?
Allora utilizza l'If:
if TabCtl36 = 2 then
    Forms!MsSelezPerCli!Combo3.Visible = False
    Forms!MsSelezPerCli!Combo5.Visible = False
    Forms!MsSelezPerCli!Testo32.Visible = False
else
    Forms!MsSelezPerCli!Combo3.Visible = True
    Forms!MsSelezPerCli!Combo5.Visible = True
    Forms!MsSelezPerCli!Testo32.Visible = True
end if
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: query con date

ciao
mi collego ad un post recente riguardo ad una query con campo data tipo: 
mag-2005.
non riesco a formulare una query per filtrarla con la formula: Between 
DataDal() And DataAl(). Il Db ha un modulo Vba che supporta altre query con 
il campo data tipo 12/12/2004.
allego
************
Public Function DataDal() As Date
Dim im As Variant
im = ""
While Not (IsDate(im) Or IsNull(im))
im = InputBox("Inserisci la data di partenza nel formato gg/mm/aaaa", "Data 
Dal", Date)
Wend
DataDal = Nz(im, 0)
End Function
Public Function DataAl() As Date
Dim im As String
im = InputBox("Inserisci la data finale nel formato gg/mm/aaaa", "Data Al", 
Date)
If IsDate(CDate(im)) Then
DataAl = CDate(im)
Else
MsgBox "Inserire una data valida"
End If
End Function
************
Come posso fare per eventualmente modificarla per trattare tipi di date come 
mag-2005?
Oppure anche con Sql.
grazie 

 ha scritto nel messaggio 
news:434574cd$0$24637$4faf...@reader3.news.tin.it...

Certo gli InputBox sono bruttarelli, non ti conviene usare i TextBox e 
mettere una maschera
di formattazione magari con __/__/____, semplifichi il lavoro all'utente e 
diventa il programma
piu' bello di estetica.
Ciao.
Saluti consigliati
Newsgroup: it.comp.appl.access
Titolo: Duplica ordine

In un data base che gestische ordini di acquisto ho la necessità di 
duplicare un ordine come faccio
Grazie a tutti 

 Grazie a tutti
Io farei così:
DUplico la struttura delle tabelle: ORdini e Dettaglio_ORdini in tabelle
temporanee
COpio l'ordine che devo duplicare come testata e righe collegate
Modifico la testata ordine
MOdifico le righe ordine
salvo sulla tabelle temporaneee
Copio tutto sulla tabelle effettive tramite una query
Ciao,
Roberto
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie a tutti
Immagino che In realtà i dati da Duplicare siano:
-Ordine
-Dettagli Ordine
Di conseguenza devi procedere in questa sequenza:
-Duplica Ordine e quì ti basta una ADDNEW prelevando
 i dati dalla Select dell'ordine da Duplicare.
 Occorre però fare attenzione alla Costruzione del Numero d'ordine
 nonchè alla PrimaryKey(se Counter non c'è problema)
-Copiare tutti i Dettagli aventi come riferimento l'ordine Originato
 ed inserirli dopo aver aggiornato il riferimento a quello dell'Ordine
 nuovo nella tabella.
Ti consiglio di però di usare 2 Recordset in un'unica Funzione
ed inserire il tutto in una Transazione in modo da poterne gestire
gli errori.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Attivazione popup al doppio click

Ciao a tutti, ho il seguente problema e spero che qualcuno mi possa aiutare.
Ho creato una tabella lavori in cui inserisco, oltre al cliente richiamato 
(utilizzando la ricerca guidata) altre informazioni tra cui la descrizione 
estesa dei lavori eseguiti. Successivamente ho creato una maschera in cui 
richiamo il cliente e nella sottomaschera (modalità foglio dati) visualizzo 
tutti i dati utili a capire i lavori svolti per il cliente. Per contenere il 
numero delle colonne ho ridotto l'ampiezza della colonna descrizione. Vorrei 
fare, se possibile e con il Vostro aiuto, quanto segue: al doppio click sul 
campo, della sottomaschera, "lavori_fatti" aprire una finestra popup in cui 
viene mostrata la descrizione estesa dei lavori. Questo dovrebbe avvenire 
solo per il record selezionato. Dalle prove che ho fatto sono solo riuscito 
a farmi mostrare la descrizione del primo record oppure di tutti ma non di 
quello selezionato. 


Alla "finestra popup" gli passi l'ID del record da aprire?
Sei sicuro di passare l'ID giusto?

 ha scritto nel messaggio 
news:44eec436$0$47964$4faf...@reader3.news.tin.it...

Newsgroup: it.comp.appl.access
Titolo: vero/falso "seleziona/disseleziona tutto"

Cao a tutto il ng, ho una maschera dove su ogni record ho una casella di 
controllo.
Ora, una volta flaggati i record che mi interessano dovrei in un colpo solo 
con un tasto disselezionarli tutti.
Per ora ho risolto il problema con un una query e un paio di macro, ma la 
procedura di disselezione mi dura parecchi secondi, perchè devo far ripetere 
la macro di disselezione per un numero di volte pari al numero dei record 
che ho.
Questo oltre ad essere "brutto", mi limita anche il numero di record che 
inserisco, perchè aumentare i record significa aumentare i secondi di 
attesa.
Esiste un metodo in alternativa a questo mio espediente?
Grazie. 

 ha scritto nel messaggio
news:sXjpe.138170$IN.23...@twister2.libero.it...

Direi che potresti provare questa soluzione:
CurrentDb.Execute "UPDATE NomeTabella " & _
                            "SET NomeCampoFlag=False;"
Dovrebbe risultare assolutamente più veloce, sempre se ho compreso
in modo corretto il tuo problema.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:sXjpe.138170$IN.23...@twister2.libero.it...

Credo ti possa essere utile l'ultimo mio esempio postato all'NG 

 ha scritto 
nel messaggio news:d84ji6$be9$1...@domitilla.aioe.org...

Grazie per la dritta, purtroppo però i mex non sono più disponibili nel 
server...almeno così mi dice
non va purtroppo

Newsgroup: it.comp.appl.access
Titolo: Problemi di Svuotamento di una listbox

Ho una listbox gestita come Elenco Valori che riempio con
il segunte codice :
     Me!CalcolaEvento.AddItem Item:=Numero, Index:=Indice
dove Indice è gestito da un For.
La cosa che mi succede che se anche indice riparte da zero i valori
successivi li carica
a partire dall'ultimo inserito e non dalla prima posizione.
esempio ho la listbox riempita in questo modo
   1
   2
   3
se voglio caricare 4 e 5 invece di avere
   4
   5
ho
   1
   2
   3
   4
   5   anche se l'indice riparte da zero.
Come posso fare ???

 ha scritto nel messaggio 
news:1181304447.3...@h2g2000hsg.googlegroups.com...





Come posso fare ???
[risposta]
Perché, come è scritto nell'help in linea, il metodo AddItem aggiunge i 
valori e basta.
Prima li devi rimuovere, con il metodo RemoveItem, e poi riaggiungerli.
E' scritto tutto nell'help...
Ciao
-- 
Sergio MAZZA 


Il metodo AddItem ti permette anche di definire l'indice nel quale
inserire l'Item.
Quindi se non devi SVUOTARE le ListBox ma inserire in punti definiti
la strada è quella, se invece devi vuotarla è più comodo usare Questo:
Me.NomeListBox.RowSource=vbNullstring
Quindi la riempi con AddItem e vedrai che ricomincia da 0
@Alex

Grazie Alessandro era quello che mi serviva.
Newsgroup: it.comp.appl.access
Titolo: Esecuzione Macro dall'esterno...

E' possibile con un comando SQL o qualche utility esterna far eseguire una
macro di access?
In sostanza ho la necessità, su base schedulata, di eseguire una macro che
importa dei dati senza aprire Access
Grazie in anticipo
Ciao XLUP


Più che altro è possibile eseguire qualcosa come:
c:\tuopathprogrammi\msaccess.exe c:\tuopathdati\tuodb.mdb /X Macro /CMD
Parametri
dove "Macro" rappresenta la macro eseguita all'apertura, e "Parametri"
l'eventuale
parametro intercettabile dalle procedure tramite la Command().
Ho numerosi task schedulati a questo modo e ne sono più che soddisfatto.
Bye, Ste

Newsgroup: it.comp.appl.access
Titolo: Access ha una memoria e/o temp?

Mi è già successo diverse volte che access
utilizzi una funzione che è stata cancella o che una
query anche se modificata esegui le operazioni antecedenti
alla modifica.
C'è una spiegazione? Ho certato in infernet ma senza risultati.
Grazie
Paolo

 ha scritto nel messaggio
news:450d3196$0$47955$4faf...@reader3.news.tin.it...

il valore da dove lo prendi??
 e lo copi in una casella di testo  non associata?
o legat alla stessa tabella.....


vado a popolare una listbox tramite query che richiama
una privat function che non c'è inserendo dei valori
corretti, per questo mi son fatto la domanda
Ciao
Paolo

 C'è una spiegazione? Ho certato in infernet ma senza risultati.
Che girone?
--
ac
P:S: talvolta mi succede con le query. In genere risolvo con metodi 
empirici. Non conosco la gestione "on fly" di Access ma non mi 
stupirebbe, anzi in via teorica lo ritengo obbligatorio,  che abbia 
delle aree temporanee di lavoro. Con le funzioni non mi e' mai successo.
O se e' successo e' perche' aveva ragione (doppie definizioni et similia).

 > C'č una spiegazione? Ho certato in infernet ma senza risultati.

grazie
Paolo

 ac
Eh! Eh!
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Voce #Eliminato# dopo aggiunta record in DB MySql

Scusate la domanda, forse banale.
Dopo aver trasferito un db Access in Mysql, e nonostante abbia verificato la 
perfetta uguaglianza delle tabelle, dopo l'aggiunta di un nuovo record (in 
una form a mask continue), in ogni campo viene visualizzato il mess.: 
#Eliminato#
Ho notato che, rieseguendo una visualizzazione dei dati, il dato risulta 
perfettamente visualizzato.
Lavoro con A97; è un suo problema oppure devo per forza rieseguire la query 
di visualizzazione?
C'è al limite qualcosa che devo impostare su MySql per evitarlo?
Grazie infinite a tutti!
Marco


Ciao Marco,
io ho risolto aggiungendo a tutte le tabelle MySql un campo (che ho chiamato 
per comoditą TS) di tipo Timestamp (lunghezza 14).
Ciao
-- 
Nina 

E' vero, semplicissimo (magari non ben capito il xchè)!
Cmq. grazie 1000 Nina.
Newsgroup: it.comp.appl.access
Titolo: nome e numero giorno?

Ciao,
 
sto impazzendo per una cavolata... non riesco a trovare la sintassi giusta
per avere in una query di access 2003 il nome del giorno della settimana,
e il numero (1/2/3/4/5/6/7, partendo dal lun) di un campo data.
se provo con weekday([data]) mi parte dalla domenica,
weekdayname([data]) mi da solo errori.
sapere anche il numero della settimana mi sarebbe utile.
 
un aiuto di inzio anno?
 
grazie
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 grazie
 
Apri la guida in linea e ti accorgerai che la funzione WeekDay... ha
un miserioso parametro... ma perfortuna la guida lo spiega.
E' quello che risolve il tuo problema.
 
@Alex


 
weekday(tuadata;2) per impostare lunedi come primo giorno
 
vbUseSystem	0	Viene utilizzata l'impostazione API National Language 
Support (NLS).
vbSunday	1	Domenica (impostazione predefinita)
vbMonday	2	Lunedì
vbTuesday	3	Martedì
vbWednesday	4	Mercoledì
vbThursday	5	Giovedì
vbFriday	6	Venerdì
vbSaturday	7	Sabato
 
ciao
BFS


scusa non ho letto che ti serviva anche il giorno
 
Format(tua data;'gggg')
 
 
come dice alex nella guida è tutto spiegato
 
ciao
BFS

 @Alex
 
l'avevo aperta se non non sarei arrivato alle funzioni ma non sono
riuscito comunque ad azzeccare il parametro o la sintassi..
 
ecco ora Weekday[data_1];2) funziona... boh...
mentre weekdayname mi da errore.
 
ciao...



E noi mica si perde tempo con i parametri "miseriosi" con quelli 
"ricchiosi" si ma quelli "miseriosi" e' roba da pezzenti. ;-{)
 
-- 
 
ac (x=y-1)

 ac (x=y-1)
 
Mi ci è scappato... scrivo talmente veloce che ho bruciato la T...
 
Certo che seve una grande pazienza.
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: Report con sotto report

Ciao a tutti,
ho un report che recupera i dati con RecordSource da una stringa SQL e in 
base alla scelta dell utente.
 ho un sottoreport, che recupera dati da piu tabelle tramite un altra 
stringa SQL e in base sempre alla scelta dell utente.
come faccio a impostare il RecordSource del sottoreport  partendo dal report 
principale?
ho provato a fare una cosa del genere:
Me.Subreport.RecordSource=strSQL
e sul controllo (una textbox)
Me.Subreport.textbox.ControlSource="Campo"
ma nn funziona...
grazie in anticipo

"Gipre"

Imposta il RecordSource su evento Open del Sottoreport ...
Saluti.

 ha scritto nel messaggio 
news:dha8i.26497$U01.2...@twister1.libero.it...

usa "parent"
parent!Subreport.RecordSource=strSQL
parent!Subreport.textbox.ControlSource="Campo"
Ciao
Access
Newsgroup: it.comp.appl.access
Titolo: creazioni giudate sparite

ho istallato il windows me e aprendo ACCESS 2000 ho avuto questa tremenda
visione:tutte le creazioni guidate erano sparite! GULP! so fare anche senza
ma sono comunque molto più veloci quando non hai esigenze particolari!
qualcuno sa cosa può essere successo e come rimediare?
lo stesso problema mi era già capitato sul win98se (fra l'altro tutto d'un
tratto e senza che fosse successo nulla di strano!all'inizio tutto
funzionava alla perfezione!) e poi, semplicemente reistallando il tutto
avevo risolto il problema! ho provato a fare lo stesso ma niente!
spero possiate aiutarmi.Vi ringrazio in anticipo
andrea

 wrote in message
inLT5.36666$FV2.1...@news.infostrada.it...

Mi era capitato con access 97 ma avevo risolto con disinstallazione. Con
access 2000 temo sia + complicato perchè office 2k è + pervasivo del
precedente. Pensa che Microsoft ha reso disponibile una utility per
rimuovere dal registro di configurazione tutte le tracce di office 2k che
rimangono dopo la disinstallazione. Cercala su Office update. Prima però
cerca su KB inglese microsoft una soluzione alternativa
http://search.support.microsoft.com/kb/c.asp?fr=0&SD=GN&LN=EN-US
Ciao
Massimo

Newsgroup: it.comp.appl.access
Titolo: Archivi estrazioni

Qualcuno può dirmi x favore dove posso trovare gli archivi in formato
Access(.mdb) delle estrazioni del lotto italiano, del lotto irlandese e del
superenalotto?
N.B. L'archivio delle estrazioni del lotto italiano che ho scaricato del
sito 
www.giocodellotto.com
 presenta degli errori!!
Grazie 1000 a tutti
Nicola

superenalotto?
Hai provato sul sito della sisal?
Senno' se cerchi con google credo venga fuori un mare di roba.
Saluti.
Luciano

Newsgroup: it.comp.appl.access
Titolo: gif nelle maschere

Ciao  a tutti io vorrei inserire delle gif animate nelle maschere.
sapete come posso fare?......
altra domanda:
avendo una maschera composta da n sottomaschere, come posso fare in modo
da far aggiornare tutti valori dopo un inserimento, senza dover chiudere e
riaprire la maschera.
grazie luciano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 riaprire la maschera.
Me.requery
Me![subform].requery

Newsgroup: it.comp.appl.access
Titolo: Un report di fattura-non ce la faccio +

Ciao a tutti,
non ci sto veramente + dentro :
qualcuno può darmi un esempio di un Db che stampi una fattura che ha 2
livelli di gruppo
con i totali a piè di pagina gruppo principale , e con l'intestazione gruppo
principale ripetuto su ogni pagina???
Il modulo di F.Luciani ripetendo le intestazioni gruppo ad ogni pagina non
funziona e non so + come fare.
Grazie a tutti.
Zorro.
--------------------------------
Inviato via 
http://usenet.libero.it

funziona e non so + come fare.
dovrebbe eserti arrivato via mail...spero faccia al caso tuo

Newsgroup: it.comp.appl.access
Titolo: Casella di Controllo che non visualizza i decimali

Seguendo le regole del news provo ad inviare una seconda volta (l'ultima) il
messaggio sperando di essere + fortunato.
Ho inserito in una maschera un controllo non associato che mi fa la somma
del campo "totale" di una serie di record. Il problema è che il campo record
mi da i valori decimali, nel controllo nonostante lo abbia settato in
formato standard e n° 3 decimali, le tre cifre dopo la virgola sono sempre e
comunque tre zeri. faccio un esempio per meglio spiegarmi.
DATA        ARTICOLO            TOTALE
1/1            AAA                        120,325
2/2            BBB                         130,225
3/3            CCC                        150,111
Valore Casella di controllo non associata = 400,000
La formula della casella di controllo è =somma([totale]
Formato standard
Posizioni decimali 3
Grazie a tutti.
Ciao

 ha scritto nel messaggio
news:7WyFc.571618$rM4.23...@news4.tin.it...

Ci provo a naso.
120,325 perchè non lo scrivi con il punto?
SunRex

 ha scritto nel messaggio
news:7WyFc.571618$rM4.23...@news4.tin.it...

Scusa ma che c'entra. Pensi che non sappia fare la virgola con una tastiera
da pc???

 ha scritto nel messaggio
news:GgdGc.580063$rM4.24...@news4.tin.it...

Non tu ,ci mancherebbe, è che forse il PC interpreta meglio il punto che la
virgola.
SunRex

 ha scritto nel messaggio
news:AbiGc.417310$hc5.18...@news3.tin.it...


Newsgroup: it.comp.appl.access
Titolo: Report: formattazione condizionale campo DATA

Buongiorno a tutti, ho un report, la cui origine è una query con un campo 
data formattato in questo modo DATA:(Format([DATAF];"gg-mm-aa(ggg)")).
 
Sul report quindi ho l'elenco dei mie valori e il campo data
 
17-12-11(sab)
21-12-11(mer)
16-12-11(mer)
 
vorrei evidenziare le date = ad oggi di un colore diverso, ho usato la 
formattazione condizionale in questo modo:
 
Condizione1
 
l'espressione  è  [Data]=Date()
 
il colore del campo diventa rosso
 
ma non funziona, mi date un consiglio ?  grazie 
 
 


[Data]=Format(Date();"gg-mm-aa(ggg)")
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: caratteri Unicode da inserire in un controllo tramite codice

ciao a tutti,
avendo una form con rappresentata una matrice (n righe per m colonne, dove
ciascun settore č collegato ad un campo di una tabella) vorrei fare in modo
che premendo un bottone questo modifichi il valore, diciamo del controllo
a1, in maniera ciclica. questo l'ho ottenuto con il seguente codice
associato al bottone:
Private Sub a11__Click()
Dim a As TextBox
Set a = Me!a11
If a = "" Then
    a = "A"
ElseIf a = "A" Then
    a = "B"
ElseIf a = "B" Then
    a = ""
End If
End Sub
il tutto ripetuto per ciascun settore della matrice
il mio problema č che i caratteri che voglio appaiano non sono A e B, bensi
cerchio, quadrato, croce, triangolo: a questo proposito ho visto che i set
unicode includono questi caratteri, ad esempio il cerchio corrisponde a
U+25CB, il triangolo a U+25BA e cosě via.
come posso fare per sostituire i miei A e B con U+25CB, U+25BA ecc?
grazie per l'aiuto,
em.an.

 ha scritto nel messaggio news:E3Nye.1815$QV1....@twister2.libero.it...

Allora, consultando una ristretta cerchia di GURU (Maurizio BORRELLI e Giorgio RANCATI) (quanno ce vo' ce vo') la risposta che ne č 
scaturita č l'utilizzo della funzione Chrw (vedi help).
Es.
Me!nomeCasellaDiTesto = Chrw(&h25CB)
Ciao.
P.S. Praticamente sotto il naso!
-- 
Sergio MAZZA 


ciao sergio, gentile come al solito!
funziona alla perfezione! non avrei saputo dove/come sbattere la testa.. : )
alla prossima!
em.an.

Newsgroup: it.comp.appl.access
Titolo: Salvare l'intero database.

Scusate sono nuovo del newsgroup, come posso fare per salvare un  intero
database, tutte le tabelle maschere i moduli e quant'altro in un file nuovo?
Grazie in anticipo e scusate l'ignoranza.

 ha scritto nel messaggio
news:3cd9...@news.omniway.sm...

CTRL+C
CTRL+V

 wrote in message
ULeC8.28848$5k4.6...@twister2.libero.it...

Scusa intendendevo tramite una Macro o un modulo VisualBasic per creare una
copia di salvataggio mentre il database è attivo. Comunque grazie.



filecopy
Saluti.
Emanuele.

 Emanuele.
Saluti
Alex


wrote:

esporti le tabelle in un database esterno è facilmente fattibile
vedi trasferdatabase o export
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Proprietà LookIn

Questa proprio non riesco a capirla.
Usando il seguente codice (come da help)
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "cmd*.*"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
succede che:
se in LookIn specifico un percorso di rete
(es. "\\server\cartellaserver), il codice funziona;
se in LookIn specifico un percorso locale
(es. "C:\discolocale\cartelladiscolocale), il codice non funziona.
La MsgBox mi dice che non trova alcun file quando, invece, ci sono!!
Perché?
Vi ringrazio anticipatamente..


Prova con:
- aggiungere .NewSearch ad ogni nuova ricerca;
- mappare la risorsa (tasto destro su "Risorse di rete" - Connetti unità di 
rete) invece di utilizzare il percorso di rete;
Es.(dopo aver mappato la risorsa di rete come z:\)
Set fs = Application.FileSearch
With fs
    .NewSearch '<-- nuova ricerca
   .LookIn = "Z:\" '<-- risorsa mappata
    .SearchSubFolders = True '<-- se vuoi una ricerca in tutte le 
sottocartelle
   .FileName = "cmd*.*"
   If .Execute > 0 Then
       MsgBox "There were " & .FoundFiles.Count & _
       " file(s) found."
       For i = 1 To .FoundFiles.Count
           MsgBox .FoundFiles(i)
       Next i
   Else
       MsgBox "There were no files found."
   End If
End With
Ciao.
-- 
Sergio MAZZA 

 wrote in message 
news:478503f2.04102...@posting.google.com...

Perché tu hai una directory C:\My Documents?
Bruno 


Invece funziona benissimno, l'ho usata proprio oggi
Questo è l'esempio che da la guida di access.
Hai provato a togliere "cmd*.*" su . FileName e mettere invece un'altra
wildcard come ad es. "*.doc" o "pippo*.doc"?

> Perché tu hai una directory C:\My Documents?
No pero' ho una cartella dove butto le email come la tua e poi elimino AH AH
AH AH AH AH AH AH A
Si chiama "sciacquone"

 Ciao.
I files non vanno cercati sulla risorsa di rete, ma su disco locale.
Il percorso di rete era solo per vedere il funzionamento della
routine. Quindi non mi serve mappare la risorsa..
Inoltre le proprietà NewSearch e SearcSubFolders le avevo già
impostate..
Ripeto: in rete funziona tutto a meraviglia, in locale.. nisba!!