title: Codice che usa la macro findRecord

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:nv4De.6160$B6.1...@twister1.libero.it...
>
> é normale che non ti compaia mai il messaggio di cliente inesistente
> visto
> che i valori di Testo297 e di Ricerca non possono che essere uguali;
> prova a
> modificare la If così:
>
> If Testo147 <> Ricerca Then
Ok, quello l'avevo visto anche io e l'ho corretto.
In effetti ora se digito un QUALSIASI nome, anche se è davvero presente,
mi esce la finestrella "Il cliente cercato non esiste", che per me è già
un bel risultato, ma non è quello che vorrei...
Al momento il listato è il seguente:
    Private Sub Comando301_Click()
    Dim Ricerca As String
    Testo147.SetFocus
    Ricerca = Testo297.Value
    DoCmd.FindRecord Ricerca, acAnywhere, False, acSearchAll, False,
acAll, True
    If Testo147.Value <> Ricerca Then
        MsgBox "Il cliente cercato non esiste"
        Exit Sub
    End If
End Sub
> Visto che usi il metodo FindRecord è normale che Access si limiti a
> posizionarsi sul primo record che soddisfa i criteri di ricerca (e/o
> sui
> record successivi, vedi help); se vuoi visualizzare solo tutti i
> record che
> soddisfano il criterio di ricerca devi impostare le proprietà Filter e
> FilterOn della maschera e magari usare una maschera continua.
In effetti la mia idea sarebbe quella di usare due pulsantini: un che fa
la funzione "cerca" e l'altro che fa la funzione "cerca successivo"
utilizzando per questo secondo pulsate la funzione "findnext"
Il fatto è che se io vado anche, per esempio, sul terzo record e scrivo
nella casellina il cognome del quarto, questo listato mi posiziona la
maschera comunque sul primo record e la casellina "Il cliente cercato
non esiste" appare sempre comunque!
Esempio:
Il primo record è di un certo "milone" il terzo di un certo "brambilla"
e il quarto di un certo "spanò".
Se io mi metto sulla scheda di Brambilla e scrivo nella casellina "spa",
io mi aspetto che la maschera si posizioni sul record relativo a Spanò,
invece si riposiziona sul primo record che è quello riferito a Milone.
Non so più dove sbattere la testa...........
Grazie mille per la pazienza.


title: Codice che usa la macro findRecord

author: Roberto dalla campagna

text:
"
alevilla.it
" <
filotto78...@yahoo.it
> ha scritto nel messaggio
news:5m6De.179393$75.77...@news4.tin.it...
>
> "Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
> messaggio news:nv4De.6160$B6.1...@twister1.libero.it...
> >
> > é normale che non ti compaia mai il messaggio di cliente inesistente
> > visto
> > che i valori di Testo297 e di Ricerca non possono che essere uguali;
> > prova a
> > modificare la If così:
> >
> > If Testo147 <> Ricerca Then
>
> Ok, quello l'avevo visto anche io e l'ho corretto.
> In effetti ora se digito un QUALSIASI nome, anche se è davvero presente,
> mi esce la finestrella "Il cliente cercato non esiste", che per me è già
> un bel risultato, ma non è quello che vorrei...
> Al momento il listato è il seguente:
>
>     Private Sub Comando301_Click()
>
>     Dim Ricerca As String
>     Testo147.SetFocus
>     Ricerca = Testo297.Value
>
>     DoCmd.FindRecord Ricerca, acAnywhere, False, acSearchAll, False,
> acAll, True
Se il metodo FindRecord lo scrivi così, non ha senso Testo147.SetFocus in
quanto con acAll la ricerca viene effettuata su tutti i campi della tabella
e quindi è inutile spostare il fuoco su uno; se invece la ricerca la devi
effetuare solo nel campo associato alla casella di testo Testo147, allora è
necessario spostare il fuoco su tale casella di testo ma NON devi impostare
ad acAll l'argomento soloincampocorrente, ma lo devi impostare ad acCurrent.
>
>     If Testo147.Value <> Ricerca Then
>         MsgBox "Il cliente cercato non esiste"
>         Exit Sub
>     End If
>
> End Sub
>
> > Visto che usi il metodo FindRecord è normale che Access si limiti a
> > posizionarsi sul primo record che soddisfa i criteri di ricerca (e/o
> > sui
> > record successivi, vedi help); se vuoi visualizzare solo tutti i
> > record che
> > soddisfano il criterio di ricerca devi impostare le proprietà Filter e
> > FilterOn della maschera e magari usare una maschera continua.
>
> In effetti la mia idea sarebbe quella di usare due pulsantini: un che fa
> la funzione "cerca" e l'altro che fa la funzione "cerca successivo"
> utilizzando per questo secondo pulsate la funzione "findnext"
Per lanciare la ricerca anche per i record successivi la cosa migliore è
usare ancora il metodo FindRecord ma questa volta devi inpostare a False
l'argomanto trovaprimo (vedi help).
> Il fatto è che se io vado anche, per esempio, sul terzo record e scrivo
> nella casellina il cognome del quarto, questo listato mi posiziona la
> maschera comunque sul primo record e la casellina "Il cliente cercato
> non esiste" appare sempre comunque!
> Esempio:
> Il primo record è di un certo "milone" il terzo di un certo "brambilla"
> e il quarto di un certo "spanò".
> Se io mi metto sulla scheda di Brambilla e scrivo nella casellina "spa",
> io mi aspetto che la maschera si posizioni sul record relativo a Spanò,
> invece si riposiziona sul primo record che è quello riferito a Milone.
>
> Non so più dove sbattere la testa...........
Allora oltre a cambiare acAll in acCurrent, la If non devi farla per uguale
visto che confronti solo una parte della stringa ma devi farla usando
l'operatore Like.
Prova a modificare così la tua routine:
Private Sub Comando301_Click()
Dim Ricerca As String
    Testo147.SetFocus
    Ricerca = Testo297
    DoCmd.FindRecord Ricerca, acAnywhere, False, _
    acSearchAll, False, acCurrent, True
    If Testo147 Like "*" & Ricerca & "*" Then
    Else
        MsgBox "Il cliente cercato non esiste"
        Exit Sub
    End If
End Sub
Vedrai che ora così funzionerà.
>
> Grazie mille per la pazienza.
--



title: Codice che usa la macro findRecord

text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel
messaggio news:QI9De.6676$B6.1...@twister1.libero.it...
>
>
> Prova a modificare così la tua routine:
>
> Private Sub Comando301_Click()
> Dim Ricerca As String
>    Testo147.SetFocus
>    Ricerca = Testo297
>
>    DoCmd.FindRecord Ricerca, acAnywhere, False, _
>    acSearchAll, False, acCurrent, True
>
>    If Testo147 Like "*" & Ricerca & "*" Then
>    Else
>        MsgBox "Il cliente cercato non esiste"
>        Exit Sub
>    End If
> End Sub
Perfetto! Finalmente un listato che funziona come Dio comanda!!!!!!!
Le unica modifiche al tuo listato che mi sono sentito di fare sono state
due:
- impostare l'ultimo argomento del FindRecord come False e non come
True, così non ho bisogno di due pulsanti del tipo "trova primo" e
"trova successivo". In questo modo semplicemente continuando a premere
sul pulsante 301 mi cerca tutti recordche soddisfano la ricerca.
- impostare il secondo argomento in acStart, altrimenti me lo cercava in
tutto il campo.
Ora il listato è il seguente e funziona bene:
Private Sub Comando301_Click()
Dim Ricerca As String
    Testo147.SetFocus
    Ricerca = Testo297
    DoCmd.FindRecord Ricerca, acStart, False, _
    acSearchAll, False, acCurrent, False
    If Testo147 Like "*" & Ricerca & "*" Then
    Else
        MsgBox "Il cliente cercato non esiste"
        Exit Sub
    End If
End Sub
Ti ringrazio veramente tantissimo!
Saluti. Alessandro


title: domanda da 100 milioni di dollari

author: woppa

text:
Ciao a tutti,
il quesito che volevo sottoporvi è inerente ad un database che è su un
server e che deve essere aggiornato da vari client. Come posso far si che
una maschera che è sui client punti sul db del server senza che sia
possibile per l'utente vedere i dati che sono nelle tabelle del server?
Ho provato con un collegamento della maschera del client sulla maschera del
db del server, ma sotto apre il db del server...
Andrebbe bene anche una soluzione "casareccia" che anche se non sicura al
100% (per esempio il link a cui avevo pensato  è facilmente aggirabile
leggendo il percorso del db del server e dunque andare ad aprirlo attraverso
la rete) potesse lasciare un minimo di privacy, almeno per gli utenti non
esperti di computer.
Grazie!
woppa


title: domanda da 100 milioni di dollari

author: MA

text:
Subject invece da pochi centesimi
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: domanda da 100 milioni di dollari

author: OneEDP

text:
Il subject è come un campanello d'allarme tra i centinaia di messaggi che
circolano.
Un subject di questo tipo è segno di poco rispetto.
Altri tipo come: "Domando"... "Problemino"... sono disastrosi.
Chiaro?


title: domanda da 100 milioni di dollari

text:

Anche perché se rispondo, poi li voglio i 100 milioni di dollari



title: domanda da 100 milioni di dollari

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...

Siccome siamo in due facciamo fifty-fifty?
Daniele


title: domanda da 100 milioni di dollari

text:
ok, ok... scherzavo!
al massimo posso sganciare il doppio della tua valutazione! (qualche
centesimo!)
ciao
woppa
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...



title: domanda da 100 milioni di dollari

text:
Il 06 Giu 2003, 13:40, "woppa" <
wopN...@freemail.it
> ha scritto:
> ok, ok... scherzavo!
> al massimo posso sganciare il doppio della tua valutazione! (qualche
> centesimo!)
Scherza DOPO il quoting
MAssimiliano



title: Credo OT: Avviare mdb prima di ingresso ad Explorer

text:
salve a tutti,
ho la necessità di loggare gli utenti prima di permettergli di fare
qualunque altra operazione.
Quindi all'accensione del pc dovrei lanciare l'mdb e poi far entrare il
tizio in un utente di windows piuttosto che un altro.
Dove posso scovare materiale da studiare?
TIA
MAssimiliano


author: Setec Astronomy

text:
MA wrote:
> Quindi all'accensione del pc dovrei lanciare l'mdb e poi far entrare
> il tizio in un utente di windows piuttosto che un altro.
>
> Dove posso scovare materiale da studiare?
Di che versione di windows stiamo parlando? Sotto Win >= NT puoi
gestire tutto con l'autenticazione integrata.
--
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL?
http://url.repository.biz/go/1Y
L'uomo, conscio di sbagliare, persevera.


text:
> MA wrote:
>
> > Quindi all'accensione del pc dovrei lanciare l'mdb e poi far entrare
> > il tizio in un utente di windows piuttosto che un altro.
> >
> > Dove posso scovare materiale da studiare?
>
> Di che versione di windows stiamo parlando? Sotto Win >= NT puoi
> gestire tutto con l'autenticazione integrata.
>
Ciao Setec, how long time...
hai ragione, Xp prof. Mi dai qualche elemento in più?
MAssimiliano



text:
MA wrote:
> Ciao Setec, how long time...
> hai ragione, Xp prof. Mi dai qualche elemento in piy?
> MAssimiliano
Configura Windows XP prof in modo che sia necessaria l'utenticazione
per accedere alla macchina, poi in Ms Access utilizzi le API di windows
per aggiungere utenze locali. Per autenticarti automaticamente in Ms
Access puoi utilizzare sempre le API di windows e recuperare l'utenza
loggata.
Per aggiungere un utente ad un dominio (es. se la rete dispone di un
controler di dominio) puoi utilizzare il codice presente alla pagina:
http://www.freevbcode.com/ShowCode.asp?ID=796
Cercando in rete (o su msdn) puoi trovare facilmente il codice per
l'aggiunta di utenti locali.
Saluti



text:
> > Ciao Setec, how long time...
> > hai ragione, Xp prof. Mi dai qualche elemento in piy?
> > MAssimiliano
Ciao Setec ancora grazie, ma ti prego di seguirmi.
Allora ti spiego la mia esigenza e poi vediamo se siamo sulla strada giusta.
Io ho una rete con Win 2000 Server e xp pro come client.
Sul server sono stati settati i permessi per ciascun utente.
I permessi concernono la possibilità o meno di godere di un programma
(Office..., piuttosto che una risorsa tipo cdrom)
Io dovrei controllare chi si logga e per quanto tempo rimane.
Quindi dovrei lanciare l'applicazione che vedere se il tizio è registrato e
cosa vuole fare, cioè in quale utente vuole entrare, con quali permessi.
Tizio scegli e allora viene registrata l'ora di inizio, la postazione etc...
> Configura Windows XP prof in modo che sia necessaria l'utenticazione
> per accedere alla macchina,
Questo è fatto.
> poi in Ms Access utilizzi le API di windows
> per aggiungere utenze locali. Per autenticarti automaticamente in Ms
> Access puoi utilizzare sempre le API di windows e recuperare l'utenza
> loggata.
> Per aggiungere un utente ad un dominio (es. se la rete dispone di un
> controler di dominio) puoi utilizzare il codice presente alla pagina:
>
>
http://www.freevbcode.com/ShowCode.asp?ID=796
non mi serve un utente locale, ma uno che si unisca al dominio, quindi che
già esiste e ne eredita i permessi.
Che faccio?
Attendo fiducioso, grazie
MAssimiliano


text:
MA wrote:
> Io ho una rete con Win 2000 Server e xp pro come client.
> Sul server sono stati settati i permessi per ciascun utente.
> I permessi concernono la possibilit` o meno di godere di un programma
> (Office..., piuttosto che una risorsa tipo cdrom)
> Io dovrei controllare chi si logga e per quanto tempo rimane.
> Quindi dovrei lanciare l'applicazione che vedere se il tizio h
> registrato e cosa vuole fare, cioh in quale utente vuole entrare, con
> quali permessi.  Tizio scegli e allora viene registrata l'ora di
> inizio, la postazione etc...
Inserisci il DB come "script" di netlogon. Se il tuo intento e' quello
di realizzare una cosa tipo ludoteca o internet point l'utilizzo di
Access non e' la scelta migliore.



text:
> MA wrote:
>
> > Io ho una rete con Win 2000 Server e xp pro come client.
> > Sul server sono stati settati i permessi per ciascun utente.
> > I permessi concernono la possibilit` o meno di godere di un programma
> > (Office..., piuttosto che una risorsa tipo cdrom)
> > Io dovrei controllare chi si logga e per quanto tempo rimane.
> > Quindi dovrei lanciare l'applicazione che vedere se il tizio h
> > registrato e cosa vuole fare, cioh in quale utente vuole entrare, con
> > quali permessi.  Tizio scegli e allora viene registrata l'ora di
> > inizio, la postazione etc...
>
> Inserisci il DB come "script" di netlogon.
Mi aiuti a provare una cosa del genere?
> Se il tuo intento e' quello
> di realizzare una cosa tipo ludoteca o internet point l'utilizzo di
> Access non e' la scelta migliore.
Qualcosa di simile, anche se per destinatario diverso.
Quale altra mi suggerisci?
MAssimiliano


text:
MA wrote:
> > Inserisci il DB come "script" di netlogon.
>
> Mi aiuti a provare una cosa del genere?
Sul server Windows nella scheda dell'utente esiste un campo chiamato
Logon Script. Prova ad inserirlo li.
> > Se il tuo intento e' quello
> > di realizzare una cosa tipo ludoteca o internet point l'utilizzo di
> > Access non e' la scelta migliore.
>
> Qualcosa di simile, anche se per destinatario diverso.
> Quale altra mi suggerisci?
Per implementare un sistema di accessi del genere e' d'obbligo
utilizzare degli eseguibili compilati, o perlomento che non si vengano
interpretat da software di terze parti conosciuti per la loro
instabilita'. Inoltre il software deve essere in grado di nascondersi
all'utente, di girare in background, di venire eseguito come servizio
etc, tutte cose con Access non e' in grado di fare, ed anche se fosse
possibile farlo sarebbe molto instabile.
--
I am what I am, I do what I can
Sei un newbie? Leggi questo
http://url.repository.biz/go/1
Inviare email con allegati?
http://url.repository.biz/go/1Z



text:
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:7rkZb.19492$Kc3.5...@twister2.libero.it...
> MA wrote:
>
> > > Inserisci il DB come "script" di netlogon.
> >
> > Mi aiuti a provare una cosa del genere?
>
> Sul server Windows nella scheda dell'utente esiste un campo chiamato
> Logon Script. Prova ad inserirlo li.
>
> > > Se il tuo intento e' quello
> > > di realizzare una cosa tipo ludoteca o internet point l'utilizzo di
> > > Access non e' la scelta migliore.
> >
> > Qualcosa di simile, anche se per destinatario diverso.
> > Quale altra mi suggerisci?
>
> Per implementare un sistema di accessi del genere e' d'obbligo
> utilizzare degli eseguibili compilati, o perlomento che non si vengano
> interpretat da software di terze parti conosciuti per la loro
> instabilita'. Inoltre il software deve essere in grado di nascondersi
> all'utente, di girare in background, di venire eseguito come servizio
> etc, tutte cose con Access non e' in grado di fare, ed anche se fosse
> possibile farlo sarebbe molto instabile.
Grazie Setec, provo a vedere come va e faccio sapere.
MAssimiliano


title: Aiuto access

author: luca

text:
Salve a tutti, ho un problema con access (la versione fornita con office
97).
Ho "imparato" ad usarlo semplicemente con esperimenti e prove, quindi finchè
si parla di procedure semplici soppravvivo, ma al bisogno di qualche cosa di
particolare incontro molte difficoltà.
Il mio problema è il seguente: Ho creato un database per gestire la mia
officina, e in una tabella ho immagazzinato una serie di informazioni che
devo aggiornare di sovente, ma partendo come base da un record già
esistente.
Per essere piu preciso, ho un campo che si chiama "SPESSORI", (anzi sono
molti) nel quale registro lo spessore di un particolare del motore, e un
campo che si chiama "MODIFICHE", nel quale registro gli spessori che dovrò
montare.
Il problema è che i dati "modifiche " devono esser ripresi nel record
successivo nella colonna " spessori",
Tali dati ,sono parecchi ( circa 90 dati per record che devono essere
memorizzati in quello nuovo ma sotto un'altra colonna)e
i record non sono tutti uguali, esempio:
L'ID è il nome di una moto (aprilia, cagiva, honda , ecc), e ogni moto ha
una serie di spessori che indica l'attuale situazione di un particolare
 0.5mm, 0.6mm 0.7mm, ecc.) e poi un altro dato che mi indica la modifica da
fare (1.5mm, 1.6 mm ecc ecc) .
I record vengono memorizzati all'occorrenza e puo capitare che dopo aver
lavorato con "aprilia" per un mese devo lavorare con "cagiva". A questo
punto devo aprire un nuovo record, (cagiva2) nel quale peroò devono essere
gia presenti i dati nel campo "spessori", e tali dati devono essere quelli
che nell'ultimo record "cagiva", (cagiva1), erano inseriti nella colonna
"modifiche".
Purtroppo come vi ho detto i dati sono parecchi, e copiarli a mano diventa
una cosa lunga e poco sicura ( i dati che si modificano non sono tutti
uguali ) .e poi può capitare che tra un record "cagiva 32" e "cagiva33" ci
sino qualche decina di altri record.
Non so se mi sono spiegato , e cheido scusa per i termini che magari non
sono corretti.
In ogni caso vi ringrazio anche solo per il tempo che avete speso a legger
il mio problema
Grazie ......Luca


title: memorizzare in var. oggetto la Sottomaschera Attiva

author: Andrea Rulli

text:
Ciao a tutti,
In una funzione globale, avrei l'esigenza di rilevare l'oggetto
sottomaschera attivo (sulla form corrente) e memorizzarlo in una variabile
oggetto.
Ora, attraverso l'oggetto SCREEN è facile ottenere lo scopo con
maschere/Foglio Dati e controlli ma non si può con sottomaschere, almeno mi
pare.
In altre parole, se A '97 prevedesse uno SCREEN.ActiveSubDatasheet  o
qualcosa del genere sarei a posto...
Ho provato uno
Screen.ActiveControl.Parent.Name
  ma mi restituisce solo il
nome dell'oggetto sottomaschera (che è una stringa), non riesco a
convertirlo in variabile oggetto.
Avete delle idee per bypassare il problema?
Andrea


author: Karl Donaubauer

text:
Andrea Rulli ha scritto:
> In una funzione globale, avrei l'esigenza di rilevare l'oggetto
> sottomaschera attivo (sulla form corrente) e memorizzarlo in una variabile
> oggetto.
> Ora, attraverso l'oggetto SCREEN è facile ottenere lo scopo con
> maschere/Foglio Dati e controlli ma non si può con sottomaschere, almeno mi
> pare.
> In altre parole, se A '97 prevedesse uno SCREEN.ActiveSubDatasheet  o
> qualcosa del genere sarei a posto...
>
> Ho provato uno
Screen.ActiveControl.Parent.Name
  ma mi restituisce solo il
> nome dell'oggetto sottomaschera (che è una stringa), non riesco a
> convertirlo in variabile oggetto.
Non sono sicuro di capirti bene.
Screen.ActiveControl.Parent
per un controllo in una sottomaschera di da un oggetto (tipo form)
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: File ldb

author: Fabio

text:
Salve a tutti,
premetto che sono un principiante, ma un amico mi ha messo su internet un
piccolo sito basato su di
un db fatto con access.
Mi ha poi fatto vedere con un programma ftp come caricare il db (prova.mdb)
sul server.
Ora, succede che quando c'è il file prova.ldb non mi lascia caricare la
nuova versione del prova.mdb.
Soluzioni??
Grazie


title: File ldb

author: Roberto da Parma

text:
"Fabio" <
cpt_harl...@tin.it
> ha scritto nel messaggio
news:46825721$0$4790$4faf...@reader4.news.tin.it...

Chiudere prima il file e poi sovrascrivere...se hai aperto un file di word
riesci a sorascriverlo??Stessa cosa per tutti i file...
--
Roberto da Parma


title: File ldb

text:
"> Chiudere prima il file e poi sovrascrivere...se hai aperto un file di
word
> riesci a sorascriverlo??Stessa cosa per tutti i file...
Ok, ma io voglio sovrascrivere solo il file mdb e fino a quando c'è il ldb,
non me lo lascia fare.
....ed io ho tutto chiuso, nessun file aperto!
Scusa se non ci arrivo....


title: File ldb

text:
"Fabio" <
cpt_harl...@tin.it
> ha scritto nel messaggio
news:46826696$0$4790$4faf...@reader4.news.tin.it...

Molto probabilmente è crashato ed è per quello che è rimasto il file .ldb,
cancellalo e poi sovrascrivi...
Se non puoi cancellarlo allora vuol dire che il db è in uso e aprendolo con
notepad saprai anche da chi.
--
Roberto da Parma


title: File ldb

author: PBsoft

text:
Ho trasformato il subject di questo thread perché l'argomento riguarda più
che altro il server web e non direttamente Access.
> premetto che sono un principiante, ma un amico mi ha messo su internet
> un piccolo sito basato su di
> un db fatto con access.
Quindi stiamo parlando di un ambiente web.
> Mi ha poi fatto vedere con un programma ftp come caricare il db
> (prova.mdb) sul server.
> Ora, succede che quando c'è il file prova.ldb non mi lascia caricare
> la nuova versione del prova.mdb.
Normale comportamento. Questo succederebbe anche in locale: il database è
in uso e ti viene inibita la sovrascrittura.
> Soluzioni??
Chi tiene aperto il file MDB è un thread del web server.
Ora, visto che si tratta di un ambiente web, credo proprio che non avrete
la possibilità di fermare il web server :-)
Quindi, quello che devi riuscire a fare è ottenere un riavvio almento del
thread che si occupa del tuo sito web.
Supponendo che il web server che ti ospita supporti la tecnologia Microsoft
ASP, potresti modificare il file GLOBAL.ASA che si trova nella home del tuo
sito: questo induce IIS a riavviare quell'istanza del web server, per poter
leggere le modifiche ed applicarle al sito web.
Tuttavia, questo non ti basterà, perché se il file MDB rimane bloccato vuol
dire che qualche pagina ne fa un uso scorretto, come una connection che non
viene chiusa esplicitamente una volta che non serve più.
Quindi il tentativo del GLOBAL.ASA ha senso solo se prima di tutto modifichi
la pagina che lo utilizza, magari sostituendola con un file vuoto.
A quel punto dovresti essere in grado di fare l'aggiornamento.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: File ldb

text:
> Molto probabilmente è crashato ed è per quello che è rimasto il file
> .ldb, cancellalo e poi sovrascrivi...
Roberto, siamo in ambiente web: chi utilizza il file MDB è molto probabilmente
il web server.
> Se non puoi cancellarlo allora vuol dire che il db è in uso e
> aprendolo con notepad saprai anche da chi.
Credo proprio di no, a meno che non sia stata implementata la sicurezza di
Access. In caso contrario nel file LDB leggi sempre e solo una stringa contenente
"Admin".



title: File ldb

text:
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea355229ee8...@news.tin.it...

Molto prbabilmente non ho letto attentamente...scusate per la risposta
fuorviante....
--
Roberto da Parma


title: File ldb

text:
> Chi tiene aperto il file MDB è un thread del web server.
> Ora, visto che si tratta di un ambiente web, credo proprio che non avrete
> la possibilità di fermare il web server :-)
> Quindi, quello che devi riuscire a fare è ottenere un riavvio almento del
> thread che si occupa del tuo sito web.
> Supponendo che il web server che ti ospita supporti la tecnologia
> Microsoft ASP, potresti modificare il file GLOBAL.ASA che si trova nella
> home del tuo sito: questo induce IIS a riavviare quell'istanza del web
> server, per poter leggere le modifiche ed applicarle al sito web.
>
> Tuttavia, questo non ti basterà, perché se il file MDB rimane bloccato
> vuol dire che qualche pagina ne fa un uso scorretto, come una connection
> che non viene chiusa esplicitamente una volta che non serve più.
> Quindi il tentativo del GLOBAL.ASA ha senso solo se prima di tutto
> modifichi la pagina che lo utilizza, magari sostituendola con un file
> vuoto.
> A quel punto dovresti essere in grado di fare l'aggiornamento.
Grazie, cavoli ma quante ne sapete....andrò a verificare.
Ciao Fabio


title: dal sitocomune:Confermare il salvataggio dei dati.

author: Gobbo

text:
Ciao a tutti,ho visto questo bellissimo esempio nel sitocomune ma io avrei
bisogno di una cosa leggermente diversa cioč,io vorrei apparisse la finestra
di messaggio con la richiesta "vuoi salvare i dati che sono cambiati" ma non
ad ogni record cambiato ma prima della chiusura della maschera......in
sostanza riprendere il funzionamento di tutti i programmi di Windows
Spero in un vostro aiuto e vi ringrazio
Ciao


author: Giorgio Ferrari

text:
"Gobbo" <
> Ciao a tutti,ho visto questo bellissimo esempio nel sitocomune ma io avrei
> bisogno di una cosa leggermente diversa cioè,io vorrei apparisse la
finestra
> di messaggio con la richiesta "vuoi salvare i dati che sono cambiati" ma
non
> ad ogni record cambiato ma prima della chiusura della maschera......in
> sostanza riprendere il funzionamento di tutti i programmi di Windows
Chissà poi cosa avete tutti contro il comodissimo autosave record per
record...


author: Lorenzo Coronati

text:
Scrisse "Gobbo" <
cich...@yahoo.it
>:
>Ciao a tutti,ho visto questo bellissimo esempio nel sitocomune ma io avrei
>bisogno di una cosa leggermente diversa cioè,io vorrei apparisse la finestra
>di messaggio con la richiesta "vuoi salvare i dati che sono cambiati" ma non
>ad ogni record cambiato ma prima della chiusura della maschera......in
>sostanza riprendere il funzionamento di tutti i programmi di Windows
scusa gobbo ma mi sa che dovrai sgobbare ;-)
per fare cio' che chiedi mi sa che l'unica e' operare su
tabelle temporanee ed eseguire batch di aggiornamento /
accodamento tramite query o cicli su recordset
auguri
--
lorenzo coronati
---


author: Norica s.c.r.l.

text:
Gobbo <
cich...@yahoo.it
> wrote in message
a2Vm9.175815$ub2.3...@news1.tin.it...

Utilizza la funzione Dirty, vedi help


author: Alessandro Cara

text:
"Norica s.c.r.l." wrote:
> Utilizza la funzione Dirty, vedi help
Norica, quando L. Coronati parla bisogna ascoltare
Quello che dici tu funziona sul singolo record.
--
a.cara


text:
Alessandro Cara wrote:
>
> "Norica s.c.r.l." wrote:
>
> > Utilizza la funzione Dirty, vedi help
p.s. Dirty mi risulta essere una proprietą  (e non c'e' in A97)
--
a.cara


text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D9C6B00...@blunet.it...
> Alessandro Cara wrote:

Certo che c'č: č true se il record ha subito modifiche.
Ciao.


text:
Giorgio Ferrari wrote:
[cut]
> Certo che c'č: č true se il record ha subito modifiche.
aha la confusione. E' l'evento che non c'e'. Hai pienamente ragione
--
a.cara


text:
Scrisse Alessandro Cara <
al...@blunet.it
>:
>Norica, quando L. Coronati parla bisogna ascoltare
vacci piano, che senno' mi monto la testa :-P
--
lorenzo coronati
---


title: Menu!

author: Roberto

text:
Volevo sapere se č possibile creare dei menů dinamici
in Access!
Mi spiego meglio... nella barra a menů in alto vorrei
far apperire dei dati prelevati da tabelle...
Vi spiego anche il motivo... dobbiamo creare un database
per una scuola in cui le classi variano di anno in anno,
queste classi devono essere raggruppate nel seguente modo:
Prime - 1 AII 1 BII ecc...
Seconde - 2 AII 2 BII ecc...
...
per questo ci servirebbe far si che i menu si aggiornino
con la sola modifica della tabelle... č possibile farlo???
Grazie!!


title: Menu!

text:
Roberto <
robyr...@inwind.it
> wrote in message
PyMG8.1063$z87....@twister2.libero.it...

Caselle combinate
--
Maurizio75


title: dove sono le immagini di sfondo delle maschere predefinite?

author: pfm

text:
salve

in access 2003 in formattazione automatica di una maschera mi presenta dei temi e relativi sfodi (Carta di Riso, Industriale, tessuti,...)

andando in proprietà maschera

Immagine --> (bitmap)
tipo immagine --> Incorporata

il (bitmap) di origine dove lo trovo? come posso creare un nuovo profilo?

GRAZIE


text:

trovate!

I file .bmp che vengono usati come
sfondo stanno nella cartella che ha il seguente percorso:

C:\PROGRAMMI\MICROSOFT OFFICE\OFFICE\Bitmaps\Styles\


author: marcopio

text:

Grazie, può essere utile


title: Dato report ad una Variabile

author: The C.B.c.

text:
Ho un report che a piè di gruppo presenta una casella di somma chiamata
'Tot', vorrei che questo valore, dopo che è stato eseguito il report, mi
comparisse in una casella di testo della maschera che ha richiamato la
stampa del report, come faccio?
Grazie 1000.


title: Dato report ad una Variabile

author: Ferdinando Landi

text:
Ciao,
Potresti risolverla cosi (è da provare ma dovrebbe funzionare)
Supponiamo che tu abbia una form che si chiame "Mk_Prova"
Metti su questa forma una casella di testo invisibile che si chiame
"txt_Prova"
Sull'evento chiusura del report, sempre che la maschera Mk_Prova sia
aperta, metti questa istruzione:
[Forms]![Mk_Prova]![txt_prova]=me.[tot]
A questo punto sull'evento 'su attivazione' della maschera controlli se
la casella di testo txt.prova è diversa da null e la rendi visibile es:
if not isnull(me.txt_prova) then
	me.txt_prova.visible=true
end if
Prova e fammi sapere.

--
Ferdinando Landi       e-mail:
la...@mi.camcom.it


title: Dato report ad una Variabile

author: Federico Luciani

text:
"The C.B.c." wrote:
> Ho un report che a piè di gruppo presenta una casella di somma chiamata
> 'Tot', vorrei che questo valore, dopo che è stato eseguito il report, mi
> comparisse in una casella di testo della maschera che ha richiamato la
> stampa del report, come faccio?
> Grazie 1000.
scusa ma per semplicita' perche' non fai la stessa somma direttamente sulla
form?
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Re: ringrazio anticipatamente....

author: Antonio Biso

text:
"worthywolf" <
worth...@gmail.com
> ha scritto nel messaggio
news:abf5ba33-9ede-428a...@q36g2000prh.googlegroups.com...
questo è il mio primo post su questo group ho dato un po di occhiate
in giro
Dovevi dare un'occhiata anche alle modalità di post e all'inserimento di
subject significativi...
Antonio


title: Re: ringrazio anticipatamente....

author: Bruno Campanini

text:
worthywolf has brought this to us :
> questo è il mio primo post su questo group ho dato un po di occhiate
> in giro e spero di non fare domande inutili e doppie...in ogni caso
> chiedo scusa in anticipo. Sono un utente "medio" ed autodidatta di
> Access (2007).. sono abbastanza in grado (tra codici facili e
> autocomposizioni) di creare db anche un po complicati, ma come tutti
> gli autodidatti i limiti si fanno sentire non avendo background.
Qui siamo tutti autodidatti e comunque, nella circostanza, credo che le
lauree contino proprio poco...
> Il mio (i miei) problemi sono attualmente: ho creato un db dal quale
> attraverso delle query. una delle quali è relativa a clienti ai quali
> spedire delle mail. la mia idea sarebbe quella di automatizzare
> l'invio attraverso outlook i campi da inserire sono titolo-nome-
> cognome-emailazienda-emailreferente.mi piacerebbe che il testo
> dell'email fosse personalizzata con titolo, nome cognome e ovviamente
> gli indirizzi email inseriti automaticamente. Ho provato delle
> soluzioni trovate in rete, ma poco soddisfacenti e sopratutto non
> automatizzate. Sarebbe interessante che tutta la cosa partisse da un
> pulsante che richiamasse l'eventuale routine. per ora direi che mi
> fermo e aspetto i vostri aiuti che anticipatamente ringrazio. Un
> saluto a teo l'amico che mi ha consigliato questo group.
Quali versioni di Access/Outlook stai usando?
Bruno


title: Re: ringrazio anticipatamente....

author: skipper

text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:q8RHo.784$3b....@twister2.libero.it...

SBAMMMMM....
Ma dai...
Era stato cosi carino e gentile....
ok hai ragione, ma...
:-)
--
_____/)_____
Skipper dixit...


title: Re: ringrazio anticipatamente....

author: Geppo

text:
Ciao "worthywolf" <
worth...@gmail.com
> ha scritto nel messaggio
news:abf5ba33-9ede-428a...@q36g2000prh.googlegroups.com...
>questo è il mio primo post su questo group ho dato un po di occhiate
>in giro e spero di non fare domande inutili e doppie...in ogni caso
>chiedo scusa in anticipo. Sono un utente "medio" ed autodidatta di
>Access (2007).. sono abbastanza in grado (tra codici facili e
>autocomposizioni) di creare db anche un po complicati, ma come tutti
>gli autodidatti i limiti si fanno sentire non avendo background.
benvenuto.
come già ti ha fatto notare Antonio l'oggetto è importante, tanto è vero che
fra tutti questi post, sarà difficile che qualcuno riesca ad individurare il
tuo:
http://urlin.it/1ab22
--
Ciao
Geppo


title: Come 'leggere' un joystick da vba ?

author: RobertoA

text:
Per alcune procedure ripetitive, vorrei usare un joystick per consentire
all'operatore di fornire le informazioni al programma
Sapete come fare per leggere, da codice vba, un moderno joystick su
porta usb tipo questi:

https://www.google.it/search?q=wingman+extreme+digital&source=lnms&tbm=isch&sa=X&ved=0ahUKEwjL6P2M44HLAhXFPg8KHUDeAg0Q_AUICCgC&biw=1093&bih=907#imgrc=kKHeE_QyjC43rM%3A

Ciao e grazie
RobertoA


title: problema con immagini in maschera visualizzazione continue

author: Arold

text:
ho una  form in visualizzazione continue con 3 campi
una controllo Img  un campo percorsofoto e un campo descrizione foto
quando scelgo la foto con un pulsantino sfoglia che apre il browser di
windows associo al controllo img la foto scelta
ma questa si vede in tutti i record invece di vedersi solo sul record
corrente.
sapete dirmi cosa sbaglio?
grazie.


author: Salvatore

text:
"Arold" <
ar...@libero.it
> ha scritto nel messaggio
news:bbu4uv$bi7$1...@lacerta.tiscalinet.it...

Dovresti aggiornare il controllo img (o fare una requery sul controllo
stesso) ogni volta che passi da un record all'altro.
Ciao
Salvatore


text:
> >
> >
> Dovresti aggiornare il controllo img (o fare una requery sul controllo
> stesso) ogni volta che passi da un record all'altro.
> Ciao
> Salvatore
>
no il fatto è che ogni record contiene il suo controllo IMG che però quando
viene mostrato il listato
ogni riga dovrebbe avere la sua immagine presa dal percorso memorizzato nel
campo Path ma questo
non avviene, su tutti i record si vede al stessa immagine.
qualcuno sa aiutarmi?


author: Roberto dalla campagna

text:
Arold <
ar...@libero.it
> wrote in message
bbv1jp$mhq$1...@lacerta.tiscalinet.it...

Il problema è che stai usando una maschera con visualizzazione a Maschere
continue.
Il controllo Immagine è un controllo non associato e come tutti i controlli
non associati non ha significato usarlo nel corpo di maschere con
visualizzazione a Maschere continua: puoi usarlo solo nel corpo di maschere
con visualizzazione a Maschera singola.
D'altra parte, anche se visualizzi contemporaneamente più record, il
controllo immagine è uno solo e quindi puoi vedere solo una immagine alla
volta, anche se ripetuta tante volte.
Come dicevo prima è quello che succede a tutti i controlli non associati:
nelle maschere continue hanno significato solo se inseriti nelle
intestazioni o nei piè di pagina, ma inseriti nel corpo non hanno molto
significato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
> Come dicevo prima è quello che succede a tutti i controlli non associati:
> nelle maschere continue hanno significato solo se inseriti nelle
> intestazioni o nei piè di pagina, ma inseriti nel corpo non hanno molto
> significato.
>
> --
> Roberto
hai una soluzione? a me serve vedere le anteprime piccole per poi
eventualmente zoomarle
devo usare un controllo associato? devo adottare particolari accorgimenti?
Grazie.


author: Roberto da casa

text:
"Arold" <
ar...@libero.it
> ha scritto nel messaggio
news:bbvsir$64o$1...@lacerta.tiscalinet.it...

Una cosa è sicura: non puoi usare un controllo Immagine nel corpo di una
maschera con visualizzazione a Maschere continue.
Di contro non mi sento proprio di consigliarti di memorizzare le immagini
nel campo OLE di una tabella: sarebbe puro sadismo.
Per risolvere un problema simile al tuo, nel database che gestisce il mio
archivio fotografico, ho realizzato una specie di browser che mi fa vedere
una dozzina di immagini ridotte alla volta in altrettanti controlli immagine
di dimensioni ridotte; o inserito in questa maschera-browser dei pulsanti di
comando per la navigazione (pagina precedente, pagina successiva, prima
pagina, ultima pagina, ecc.); a fronte degli eventi "Su clic" dei vari
controlli immagine apro una maschera che mi realizza lo zoom dell'immagine.
Devo ammettere che è stato abbastanza complesso da realizzare, ma non so
suggerirti alternative alternative.



title: Sostituire messaggio di errore su combo con messaggio personalizzato

author: robb

text:
Salve,
Ho una maschera che ha come origine una query di selezione "Query1" in
cui vengono messe in relazione la tabella fatture e la tabella clienti
tramite il campo comune IDCliente.
Nella maschera, relativa alla Query1, ho una combo che ha come origine
il campo "IDCliente" della Query1 (che è quello della tabella fatture)
e come origine riga il seguente SQL:
SELECT T_Clienti.IDCliente, T_Clienti.NomeCliente ORDER BY
T_Clienti.NomeCliente;
La prima colonna della combo è nascosta, la seconda è visibile.
Se viene cancellato il nome cliente dalla combo e si passa ad un altro
controllo, viene visualizzato il seguente messaggio di errore:
"Impossibile assegnare il valore NULL ad una variabile non di tipo
variant."
Io vorrei cercare di sostituirlo con uno più comprensibile per
l'utente del db, ma non ci riesco in nessun modo. Ho provato nella
maggior parte degli eventi sia della maschera che della combo,
utilizzando sia "on error goto ecc." che "if isnull(Me!combo) then
ecc", ma sempre quel messaggio mi compare.
Qualcuno può darmi una mano ad intercettare questo messaggio di
errore?
Ho visto anche che si tratta dell'errore n. 3162, ma anche se specifico
l'err.number, il risultato non cambia.
Grazie.


author: Ivan da casa

text:
"robb" <
ro...@hotmail.it
> ha scritto nel messaggio
news:1152371993.8...@m73g2000cwd.googlegroups.com...
Salve,
Ho una maschera che ha come origine una query di selezione "Query1" in
cui vengono messe in relazione la tabella fatture e la tabella clienti
tramite il campo comune IDCliente.
Nella maschera, relativa alla Query1, ho una combo che ha come origine
il campo "IDCliente" della Query1 (che č quello della tabella fatture)
e come origine riga il seguente SQL:
SELECT T_Clienti.IDCliente, T_Clienti.NomeCliente ORDER BY
T_Clienti.NomeCliente;
La prima colonna della combo č nascosta, la seconda č visibile.
Se viene cancellato il nome cliente dalla combo e si passa ad un altro
controllo, viene visualizzato il seguente messaggio di errore:
"Impossibile assegnare il valore NULL ad una variabile non di tipo
variant."
Io vorrei cercare di sostituirlo con uno piů comprensibile per
l'utente del db, ma non ci riesco in nessun modo. Ho provato nella
maggior parte degli eventi sia della maschera che della combo,
utilizzando sia "on error goto ecc." che "if isnull(Me!combo) then
ecc", ma sempre quel messaggio mi compare.
Qualcuno puň darmi una mano ad intercettare questo messaggio di
errore?
Ho visto anche che si tratta dell'errore n. 3162, ma anche se specifico
l'err.number, il risultato non cambia.
Grazie.
... potresti postare il codice su :  OnError Goto  ?
Ivan


text:
Ivan da casa wrote:
> "robb" <
ro...@hotmail.it
> ha scritto nel messaggio
> news:1152371993.8...@m73g2000cwd.googlegroups.com...
> Salve,
> Ho una maschera che ha come origine una query di selezione "Query1" in
> cui vengono messe in relazione la tabella fatture e la tabella clienti
> tramite il campo comune IDCliente.
>
> Nella maschera, relativa alla Query1, ho una combo che ha come origine
> il campo "IDCliente" della Query1 (che è quello della tabella fatture)
> e come origine riga il seguente SQL:
>
> SELECT T_Clienti.IDCliente, T_Clienti.NomeCliente ORDER BY
> T_Clienti.NomeCliente;
>
> La prima colonna della combo è nascosta, la seconda è visibile.
>
> Se viene cancellato il nome cliente dalla combo e si passa ad un altro
> controllo, viene visualizzato il seguente messaggio di errore:
>
> "Impossibile assegnare il valore NULL ad una variabile non di tipo
> variant."
>
> Io vorrei cercare di sostituirlo con uno più comprensibile per
> l'utente del db, ma non ci riesco in nessun modo. Ho provato nella
> maggior parte degli eventi sia della maschera che della combo,
> utilizzando sia "on error goto ecc." che "if isnull(Me!combo) then
> ecc", ma sempre quel messaggio mi compare.
>
> Qualcuno può darmi una mano ad intercettare questo messaggio di
> errore?
>
> Ho visto anche che si tratta dell'errore n. 3162, ma anche se specifico
> l'err.number, il risultato non cambia.
>
> Grazie.
>
> ... potresti postare il codice su :  OnError Goto  ?
>
> Ivan
Già fatto, ma mi compare sempre quel messaggio.


text:

Per tagliare la testa al toro, potrei impostare la variabile cui il
messaggio si riferisce come variant, ma non so come fare.


author: Alessandro Cara

text:
robb wrote:
[cut]
>>
>>Grazie.
>>
>>... potresti postare il codice su :  OnError Goto  ?
>>
>>Ivan
>
>
> Già fatto, ma mi compare sempre quel messaggio.
>
Come e' definito il campo in tabella? Ha un default? Genera
automaticamente il combo? (propendo per questa seconda ipotesi).
--
ac


author: Alessandro Baraldi

text:
robb ha scritto:

Forse non ho capito io, ma oltre essere basata sulla QUERY 1 questa
Combo è associata
anche ad un campo nella Tabella....?
Se si, e dovedde essere la PK ovviamente è un problema....!
Si usano Combo non associate in questo caso, ma non ho capito cosa devi
fare...!
In ogni caso per gestire il NotINlist ed anullarne l'errore in una
combo si fà così:
' Nel caso l'utente inserisca valori <NON in Elenco> nelle Combo(s)
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  If DataErr = 2237 Then
        Response = acDataErrContinue
        Screen.ActiveControl.Undo
  Else
        Response = acDataErrDisplay
  End If
End Sub
Vedi se variando l'Error Code puoi risolvere...!
@Alex


text:

Il campo IDCliente, che è la prima colonna della combo (nascosta) è
un campo di tipo contatore.
La combo ha come origine il campo IDCliente della query Q_Fattura,
nella quale vengono messe in relazione, tramite il campo comune
IDCliente, la tabella Fattura e la tabella Clienti.
Ho copiato in maniera pressoché identica dal database di esempio
Northwind.
L'unica differenza, forse fondamentale per risolvere questa situazione,
è che nel db Northwind il campo IDCliente è di tipo testo, mentre nel
mio db è di tipo contatore.
Infatti nel db Northwind compare il messaggio di errore personalizzato
(impostato sull'evento beforeupdate della combo), mentre nel mio db,
anche se impostato in maniera identica, non compare ed esce fuori quel
messaggio.
Il fatto è che mi serve avere quel campo come contatore. Non posso
metterlo di tipo testo. Quindi vorrei sapere se esiste un modo per
intercettare quell'errore e sostituirlo.


text:
Alessandro Baraldi wrote:
[CUT]
> Forse non ho capito io, ma oltre essere basata sulla QUERY 1 questa
> Combo è associata
> anche ad un campo nella Tabella....?
>
> Se si, e dovedde essere la PK ovviamente è un problema....!
>
> Si usano Combo non associate in questo caso, ma non ho capito cosa devi
> fare...!
>
> In ogni caso per gestire il NotINlist ed anullarne l'errore in una
> combo si fà così:
>
> ' Nel caso l'utente inserisca valori <NON in Elenco> nelle Combo(s)
> Private Sub Form_Error(DataErr As Integer, Response As Integer)
>
>   If DataErr = 2237 Then
>         Response = acDataErrContinue
>         Screen.ActiveControl.Undo
>   Else
>         Response = acDataErrDisplay
>   End If
>
> End Sub
>
>
> Vedi se variando l'Error Code puoi risolvere...!
>
> @Alex
Ciao Alex, hai scritto mentre rispondevo ad Alessandro Cara e non ho
letto il tuo messaggio.
Il problema non è legato all'evento NotInList, ma viene fuori quando
il campo cliente viene lasciato Null.
Come ho detto nel messaggio di risposta ad A. Cara, il procedimento che
ho usato è copiato in maniera identica dal db NorthWind.
Se tu, nel db Northwind, apri la maschera Ordini e lasci vuoto il campo
cliente ("Fatturare a:"), compare un msgbox personalizzato.
Nel mio db, pur avendo impostato il msgbox in maniera identica,
continua a comparire l'errore 3162.
Adesso ho scoperto che questo avviene perché nel mio db, a differenza
di quello Northwind, il campo IDCliente è di tipo contatore.
Poiché mi serve tenerlo come contatore, esiste un modo per
intercettare l'errore 3162?
Se vuoi fare una prova di ciò che ti ho detto, apri il db Northwind e
imposta il campo IDClienti della tabella Clienti come contatore, poi
imposta il campo della tabella Ordini come numerico.
Apri la maschera Ordini e lascia Null la combo IDCliente e spostati su
un altro controllo. Vedrai che comparirà il fatidico messaggio 3162.


text:
robb ha scritto:

Io ho letto quanto dicevi, ma tu hai capito quello che ti suggerivo
io...?????
Ci riprovo intercetta l'evento a livello di FORM non di controllo:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
   If DataErr = 3162 Then
         Msgbox "ERRORE 3162 FAI QUELLO CHE VUOI"
         'Response = acDataErrContinue
         'Screen.ActiveControl.Undo
   Else
         Response = acDataErrDisplay
   End If
End Sub
@Alex


text:
Alessandro Baraldi wrote:
[CUT]
> Io ho letto quanto dicevi, ma tu hai capito quello che ti suggerivo
> io...?????
>
> Ci riprovo intercetta l'evento a livello di FORM non di controllo:
>
> Private Sub Form_Error(DataErr As Integer, Response As Integer)
>    If DataErr = 3162 Then
>          Msgbox "ERRORE 3162 FAI QUELLO CHE VUOI"
>          'Response = acDataErrContinue
>          'Screen.ActiveControl.Undo
>    Else
>          Response = acDataErrDisplay
>    End If
> End Sub
>
> @Alex
Scusami Alex, mi ero dimenticato di togliere l'apice prima di "Response
= acDataErrContinue" e continuava a comparirmi il messaggio di errore
3162.
Ti ringrazio molto. Funziona perfettamente.
Ciao
Robb


title: Se checkbox è spuntata copia il valore

author: Paolo

text:
Ciao a tutti,
avrei bisogno di copiare un valore numerico tra due caselle tramite lo
spunto di una checkbox.
La situazione è questa:
Maschera1 - Testo1 - Checkbox
Sottomaschera - Testo2
Se la check è spuntata allora testo2 assume lo stesso valore di
testo1.
Questo codice funziona ma solo se tengo aperta la sottomaschera a
parte, cioè mantengo la finestra con maschera e sottomaschera e in
più mi apro la sola sottomaschera, perchè?
Private Sub Checkbox_AfterUpdate()
If Checkbox.Value = False Then
Forms!Sottomaschera!Testo2 = [testo1]
Else
Forms!Sottomaschera!Testo2 = "0"
End If
End Sub
Grazie


title: Se checkbox è spuntata copia il valore

author: namor

text:
Paolo ha scritto:
> Ciao a tutti,
> avrei bisogno di copiare un valore numerico tra due caselle tramite lo
> spunto di una checkbox.
> La situazione č questa:
> Maschera1 - Testo1 - Checkbox
> Sottomaschera - Testo2
> Se la check č spuntata allora testo2 assume lo stesso valore di
> testo1.
> Questo codice funziona ma solo se tengo aperta la sottomaschera a
> parte, cioč mantengo la finestra con maschera e sottomaschera e in
> piů mi apro la sola sottomaschera, perchč?
> Private Sub Checkbox_AfterUpdate()
> If Checkbox.Value = False Then
> Forms!Sottomaschera!Testo2 = [testo1]
> Else
> Forms!Sottomaschera!Testo2 = "0"
> End If
> End Sub
> Grazie
E' sbagliato il riferimento alla sottomaschera.
Vedi la 4.2 su
http://www.donkarl.com/it/
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Se checkbox è spuntata copia il valore

text:
"Paolo" <
texw...@fastwebnet.it
> wrote in message
news:1127139337....@g43g2000cwa.googlegroups.com
> Ciao a tutti,
[CUT]
> Private Sub Checkbox_AfterUpdate()
> If Checkbox.Value = False Then
> Forms!Sottomaschera!Testo2 = [testo1]
> Else
> Forms!Sottomaschera!Testo2 = "0"
> End If
> End Sub
>
> Grazie
Questo č un riferimento ad un controllo di una Form
chiamata Sottomaschera:
Forms!Sottomaschera!Testo2 = [testo1]
siccome immagino volessi riferirti ad un controllo di una SubForm
prova a modificarlo cosě:
Forms!NomeFormPrincipale!Sottomaschera!Testo2 = [testo1]
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Se checkbox è spuntata copia il valore

text:
"Paolo" <
texw...@fastwebnet.it
> ha scritto nel messaggio
news:1127139337....@g43g2000cwa.googlegroups.com...

Se come mi sembra di aver capito Testo1 e CheckBox sono contenuti nella
maschera principale, prova a modificare il codice nel seguente modo:
Private Sub Checkbox_AfterUpdate()
If Checkbox  = False Then
Me!Sottomaschera!Testo2 = [testo1]
Else
Me!Sottomaschera!Testo2 = "0"
End If
End Sub
Resta però il fatto che, se la sottomaschera ha una visualizzazione a
maschere continue o foglio dati, verrà modificato sempre il record
visualizzato nella prima riga della sottomaschera.
>
>Grazie
Prego
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Importazione foglio excel

author: Repko

text:
Ciao a tutti,
con questa istruzione eseguo l'importazione di un foglio excel nel database,
ma il problema č che la cartella ha 30 fogli e non so come modificare
l'istruzione per identificare il foglio che voglio importare.
Private Sub Importa()
    Dim Nspe As Integer
    Dim Vspe As Variant
    Nspe = 1
    Vspe = DLookup("specialistica", "tblelencospe", "idspe=" & Nspe)      '
nel db ho una tabella con i nomi dei fogli
    DoCmd.TransferSpreadsheet acImport, 8, Vspe,
"c:\documenti\master\master_07.xls", True, ""
End Sub
si puň inserire la variant Vspe per completare la path della DoCmd? cosě
potrei cambiare foglio soltanto cambiando il valore di Nspe da 1 a 30.
forse sto sbagliando tutto cmq ciao e grazie.


title: Importazione foglio excel

author: Cinzia

text:
"Repko" <x@x.x> ha scritto nel messaggio
news:XZA9d.9631$b5.3...@news3.tin.it...

Ciao Repko,
prova ad usare
 DoCmd.TransferSpreadsheet acImport, 8, Vspe,
"c:\documenti\master\master_07.xls", True,  Vspe & "!"
l'ultimo parametro dovrebbe essere il range del tipo: A1:C28, ma anche
Foglio2!A1:C28
per cui se i tuoi fogli si chiamano con il valore contenuto in VSPE questa
dovrebbe essere la funzione.
Saluti
Cinzia


title: Importazione foglio excel

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:ck6ohv$p91$1...@lacerta.tiscalinet.it...

mitico! funziona veramente! wow grazie cinzia!


title: Problema di piè pagina variabile su report a righe fisse A2000/W98

author: Sergio Della Giora

text:
Spett.le NG,
sto cercando di creare un db per la fatturazione, ma
ho dei problemi con la creazione del report che gestisce
la stampa delle fatture. Ovviamente le fatture possono
essere di più pagina e vorrei riuscire ad avere la testata
fissa su ogni pagina della fattura, mentre il corpo deve
essere fisso un tot numero di righe, e il piè di pagina
(composto dall'imposta, imponibile, totale...) dovrebbe
comparire solo nell'ultima pagina della fattura, mentre
nelle altre vorrei che apparisse un segue, magari al posto
di un determinato campo.
Ho consultato il sitocomune ed ho letto i vari suggerimento,
soprattutto quello di Sib che tutt'ora ho qui davanti.
Dato che sono alle prime armi, non mi è chiaro a quale evento
del report devo associare tale codice...
E poi una volta attivato questo codice ho notato che si possono
variare le costanti per poter regolare l'ampiezza del piè di
pagina, ma... se io volessi mettere al posto delle righe vuote
la stringa con scritto SEGUE, come si potrebbe fare?
Prima di consultare il sitocomune ho provato ad arrangiarmi
riuscendo a realizzare una report che tiene un numero costante
di report, perchè forzato dalla dimensione del corpo nella
struttura. Tutto sembra funzionare, peccato che mi riporti il
piè di pagina uguale per tutte le pagine della fattura...
Chi mi sa dare una dritta?
Grazie a tutti
Sergio Della Giora


author: MegaMax

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:9mi3kb$2gff4$1...@ID-84518.news.dfncis.de...
> Spett.le NG,
> sto cercando di creare un db per la fatturazione, ma
> ho dei problemi con la creazione del report che gestisce
> la stampa delle fatture. Ovviamente le fatture possono
> essere di più pagina e vorrei riuscire ad avere la testata
> fissa su ogni pagina della fattura, mentre il corpo deve
> essere fisso un tot numero di righe, e il piè di pagina
> (composto dall'imposta, imponibile, totale...) dovrebbe
> comparire solo nell'ultima pagina della fattura, mentre
> nelle altre vorrei che apparisse un segue, magari al posto
> di un determinato campo.
Usa il "piè di report" che compare solo nell'ultima pagina :-)
Max


text:
> Usa il "piè di report" che compare solo nell'ultima pagina :-)
>
> Max
>
>
Acuta osservazione... della serie "Come perdersi in un bicchier d'acqua...".
Però ho risolto in parte il mio problema, in quanto non so come inserire la
parola "segue" in tutte le pagine del report tranne l'ultima...
Grazie
Saluti
Sergio Della Giora


text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:9mi6jh$281t6$1...@ID-84518.news.dfncis.de...
> Però ho risolto in parte il mio problema, in quanto non so come inserire
la
> parola "segue" in tutte le pagine del report tranne l'ultima...
fai una etichetta di testo chiamata "segue" nel corpo del report e con testo
"Segue"...la imposti come non visibile...
poi aggiungi un evento "su formattazione".
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
If Pages > 1 Then                                   'per numero di pagine
superiore ad 1
Me![segue].Visible = True                      'visualizza il numero di
pagine in fondo
Else                                                         'per numero di
pagine non superiore ad 1
Me![segue].Visible = False                      'non visualizza il numero di
pagine in fondo
End If
End Sub


text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:9mi6jh$281t6$1...@ID-84518.news.dfncis.de...
> > Usa il "piè di report" che compare solo nell'ultima pagina :-)
> >
> > Max
> >
> >
>
> Acuta osservazione... della serie "Come perdersi in un bicchier
d'acqua...".
>
> Però ho risolto in parte il mio problema, in quanto non so come inserire
la
> parola "segue" in tutte le pagine del report tranne l'ultima...
forse potresti usare una sub che controlla se esiste un qualunque controllo
del piè di report, se esisite non visualizza il piè di pagina (altrimenti lo
lascia visibile)
ma no so se funziona...
Max


author: Silvio Berruti

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:9mi6jh$281t6$1...@ID-84518.news.dfncis.de...
> Però ho risolto in parte il mio problema, in quanto non so come inserire
la
> parola "segue" in tutte le pagine del report tranne l'ultima...
>
Nel controllo scrivi:
=iif(Pages=Page;"";"Segue")
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: (access97) attendere il completamento di

text:
Access fa sempre più cose strane...   In una routine evento ho inserito
la chiamata a due sub: la prima chiama altre tre sub e la seconda chiude
la form. Il problema è che Access fa partire l'esecuzione della sub
"chiudi" ancora prima di aver completato tutte le sub chiamate dalla
prima!	Siccome l'esecuzione delle precedenti sub richiede che la form
sia ancora aperta... questo crea problemi.    Come posso far si che la
sub che chiude la form attenda il completamento delle altre sub in
esecuzione?   Non vorrei usare routine che facciano attendere un
determinato numero di secondi, invece vorrei che la sub partisse appena
terminata l'esecuzione delle altre.   Grazie per l'aiuto che mi darete
__________________ LudoVicoVan


author: stwe

text:
<
LudoV...@excite.it
> ha scritto nel messaggio
news:ae53fj$4rb$1...@gossip.excite.it...

secondo me metti una istruzione if sulla chiamata alla sub chiudi che vada a
verificare se la maschera che deve essere aperta sia aperta, in caso
positivo annulli l'evento altrimenti lasci fare.
by
stwe


title: Casella di riepilogo

author: JeanLoup

text:
Salve a tutti,
Ho un a mask con 2 combo e 1 listbox
La ComboA č popolata da una query.
La ComboB č popolata dalla stessa query ma in base alla scelta della ComboA
La ComboA esegue il primo filtro sulla listbox e sulla ComboB, e infatti la
listbox mi elenca i nominativi in base alla scelta della comboA!
La ComboB  dovrebbe eseguire il secondo filtro sulla listbox ma dopo
aggiornamento (me.listbox.requery) scompaiono le righe sulla listbox,
perchč?.
Dove sbaglio?
Ciao, JeanLoup


title: Casella di riepilogo

text:
"JeanLoup" <v722...@NOSPAMhotmail.it> ha scritto nel messaggio
news:43bce932$0$344$5fc...@news.tiscali.it...
> Salve a tutti,
> Ho un a mask con 2 combo e 1 listbox
> La ComboA è popolata da una query.
> La ComboB è popolata dalla stessa query ma in base alla scelta della
ComboA
> La ComboA esegue il primo filtro sulla listbox e sulla ComboB, e infatti
la
> listbox mi elenca i nominativi in base alla scelta della comboA!
> La ComboB  dovrebbe eseguire il secondo filtro sulla listbox ma dopo
> aggiornamento (me.listbox.requery) scompaiono le righe sulla listbox,
> perchè?.
> Dove sbaglio?
Probabilmente è scritta in maniera non corretta la stringa SQL che è origine
riga della casella di riepilogo.
> Ciao, JeanLoup
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: MI5 Persecution: abuse in set-up situations and in public

text:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-= purpose in publicizing it; censorship in uk.* newsgroups -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The postings to uk.misc newsgroup generated a very defensive reaction from
Usenet readers in the UK. So much so, that they tried strenuously to
suppress what was being said, both by breaking the rules of netiquette in
their responses on the forum, and directly by action to revoke the account
from which the postings were issued.
Yet the postings were within the normal boundaries of behaviour for
uk.misc, and other less partisan spectators did not see justice in the
censorship which was effected, as the following excerpt shows;
:Karen Lofstrom (
lofs...@lava.net
) wrote
:>It does seem that the frequency and the size of his posts are
:>approaching net abuse.  However, IMHO, they aren't quite there yet. If
:>his postmaster were to act in this instance, it would raise troubling
:>censorship issues.
The inescapable conclusion of the censorship effected on the uk.*
newsgroups is that the British are intent on their wrongdoing remaining
concealed, and therefore seek to subvert and suppress freedom of speech,
not only in their own country where the media shows xenophobic bias and
bile against all perceived enemies within and without, but also in other
countries which have their own statutes to guarantee the basic human right
of free speech.
It is absolutely necessary to bring their hate campaign out into the open
where it can be placed under scrutiny and the harassers seen for what they
are. That is the only way of making it impossible for the security services
to carry it out. There is a wider dimension, though. Xenophobia as
demonstrated by British people and institutions over the last few years
belongs to the same stable as racial hatred. In one case, two youths on a
Tube train made that racism explicit by referring to their victim as a
"soft toy, not up to British Standards". Doubtless others victimize partly
on the basis of race (isn’t it odd that they chose to torment someone who
is not ethnically English?) while expressing their abuse in terms of
another genetic attribute, namely mental illness. All xenophobia on a
genetic basis is wrong, but while racial insults are illegal, abusing the
mentally ill is neither against the law nor subject to similar condemnation
when it is exposed.
2
--
Posted via a free Usenet account from
http://www.teranews.com


title: problema nella struttura del db

author: Franco

text:
ho due tabelle (con maschera e sottomaschera) strutturate in
questo modo:

tbordine
-IdOrdine
-IdCliente
-nOrdine
-dataOrdine
-giorni consegna

collegata 1 a molti con:

tbRigheOrdine
-IdOrdine
-IdTrasportatore
-IdDescrizione
-nColli
-Quantita
-prezzo
-IdSconto

nella sottomaschera ho: (maschere continue)
idFornitore,iddescrizione,ncolli, quantita, prezzo ecc.

mi ero proposto di trovare una soluzione per
evitare di selezionare nella sottomaschera il fornitore prima di ogni
prodotto;
per il motivo che ogni fornitore fornisce piu' di un prodotto;

ma come devo fare?

cioč, anzichč avere,

fornitore_1, prodotto_A, ncolli, quantita, prezzo
fornitore_1, prodotto_B, ncolli, quantita, prezzo
fornitore_2, prodotto_C, ncolli, quantita, prezzo
fornitore_2, prodotto_D, ncolli, quantita, prezzo

vorrei selezionare un primo fornitore e inserire i sui prodotti
fornitore_1
prodotto_A, ncolli, quantita, prezzo
prodotto_B, ncolli, quantita, prezzo

poi un secondo fornitore e i sui prodotti e cosi' via.........
fornitore_2
prodotto_C, ncolli, quantita, prezzo
prodotto_D, ncolli, quantita, prezzo

quindi devo fare in modo che l'idFornitori abbia una relazione
di molti a molti.

Ho provato in diversi modi, anche con una terza tabella
ma non ci sono ancora riuscito.

Grazie per l'aiuto.


title: Recordset in una maschera

author: Raffaele Trombini

text:
Devo creare un recordset ad-hoc per una maschera.
In apertura ho creato il recordset con "dim", ora lo devo aprire con il
comando "open" e dirgli quali sono i record ai quali si deve riferire.
Giusto?
Qui nasce il problema.
Il mio recordset deve considerare solo una parte dei record di una
tabella, più precisamente quelli che vanno dalla posizione n alla fine!
La posizione n me la porto dietro in una variabile da un'altro modulo.
Come posso fare?
Grazie per l'aiuto
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Recordset in una maschera

author: MA

text:
Raffaele Trombini wrote:
> Devo creare un recordset ad-hoc per una maschera.
> In apertura ho creato il recordset con "dim", ora lo devo aprire con
> il comando "open" e dirgli quali sono i record ai quali si deve
> riferire. Giusto?
> Qui nasce il problema.
> Il mio recordset deve considerare solo una parte dei record di una
> tabella, più precisamente quelli che vanno dalla posizione n alla
> fine! La posizione n me la porto dietro in una variabile da un'altro
> modulo. Come posso fare?
> Grazie per l'aiuto
dim rs as dao.recordset
set rs = currentdb.openrecordset("SELECT * FROM tuaTabella where id>= " & n)
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


title: Recordset in una maschera

text:
MA ha scritto:
> Raffaele Trombini wrote:
> > Devo creare un recordset ad-hoc per una maschera.
> > In apertura ho creato il recordset con "dim", ora lo devo aprire con
> > il comando "open" e dirgli quali sono i record ai quali si deve
> > riferire. Giusto?
> > Qui nasce il problema.
> > Il mio recordset deve considerare solo una parte dei record di una
> > tabella, più precisamente quelli che vanno dalla posizione n alla
> > fine! La posizione n me la porto dietro in una variabile da un'altro
> > modulo. Come posso fare?
> > Grazie per l'aiuto
> dim rs as dao.recordset
> set rs = currentdb.openrecordset("SELECT * FROM tuaTabella where id>= " & n)
Ovvio!!!!
Grazie......a volte le risposte più semplici sono sempre le migliori!!!
Ciao



title: Convertire da FileMaker ad Access

text:
Spero di non essere OT.
Qualcuno saprebbe consigliarmi un buon programma che mi permetta di
convertire alcuni file (non eccessivamente complessi) da FileMaker ad
Access?
Grazie.


title: Convertire da FileMaker ad Access

text:

non credo proprio che esista qualcosa del genere
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Convertire da FileMaker ad Access

author: Sergio MAZZA

text:
"robb" <
ro...@hotmail.it
> ha scritto nel messaggio news:1151342804....@c74g2000cwc.googlegroups.com...

Come ti ha risposto MAssimiliano non esiste; devi esportarti dati in un formato leggibile ad access..
Ciao.
--
Sergio MAZZA


title: Esportazione in excel

text:
Buongiorno a tutti,
il mio problema di oggi è questo:

Caso 1:

se io esporto una query in Excel da codice in questo modo

Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "QEstrapolazioneDati"

    DoCmd.TransferSpreadsheet acExport, , stDocName, "C:\Prova\ExportDoc.xlsx"

con un click su un pulsante funziona tutto correttamente ma non mi tiene conto di etichette e formattazione campi.

Caso 2:

Se io faccio due passaggi (cosa che però vorrei evitare) e cioè apro la query e faccio l'export in Excel da pulsante di access predefinito mi apre la maschera chiedendomi se voglio anche la formattazione, fleggo e tutto funziona a meraviglia
.
C'è la possibilità di inserire nel codice del caso 1 l'opzione formattazione?

Grazie a tutti per la collaborazione


title: Esportazione in excel

text:
Quì trovi tutti i metodi con commenti:

http://www.accessmvp.com/kdsnell/EXCEL_Export.htm

Fossi in te userei "CopyFromRecordset"

@Alex


title: Esportazione in excel

text:

Grazie per l'info...
Ho provato prendendo il codice es. 4 e 5 del tuo link ma mi si blocca a:

Set rst = dbs.OpenRecordset("QueryOrTableName", dbOpenDynaset, dbReadOnly)

dicendomi parametri insufficienti. Previsto 2.
Credo si riferisca a dbOpenDynaset... ma non so come fare.
Hai qualche suggerimento?
Grazie mille


title: Esportazione in excel

text:
Quella Riga NON HA problemi, il problema si riferisce alla Query...!
Se è parametrica con Criteri che prendono valori da Controlli in Maschere devi assicurarti che le stesse siano aperte ed i controlli coerentemente valorizzati.

@Alex


title: Esportazione in excel

author: Karl Donaubauer

text:
Salve Alessandro,

@alex ha scritto:
> Quì trovi tutti i metodi con commenti:
>
http://www.accessmvp.com/kdsnell/EXCEL_Export.htm

No. Sul sito manca proprio quell'unico OutPutTo che cerca perché
corrisponde al menù/ribbon, p.e.

DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, "c:\Foo\bar.xls"

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


title: Esportazione in excel

text:

Grande!!!!
Risolto con il tuo metodo... Viene perfetto.
Grazie grazie grazie mille
Graie anche ad Alex comunque che mi ha insegnato anche l'altro sistema!


title: vorrei eliminare la viusalizzazione di una finestra di dialogo durante elaborazione di una routine e mostrare solo una clessidra ...

author: TecniCons sas

text:
Salve a tutti.
Durante l'esecuzione della seguente routine cancello i record di più tabelle
ed azzero i relativi contatori.
Purtroppo però, durante l'esecuzione di detta routine, rimane aperta una
finestra di dialogo bianca ed inutile che vorrei eliminare.
Vorrei invece mostrare una clessidra fino a che la routine non mostra il
messaggio finale di avvenuta elaborazione con successo.
Come posso fare ???
Ciao e grazie mille
Luciano
====================================================================================
 DoCmd.Echo False, "Procedura cancellazione archivi in esecuzione ..."
DoCmd.Hourglass True
    'disabilita le finestre di dialogo richiedenti consenso
    DoCmd.SetWarnings False
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Dipendenti"
DoCmd.OpenTable "Dipendenti", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Dipendenti"
'inizio <<azzeramento contatore tabella Dipendenti>>
Dim strSql As String
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Dipendenti ALTER COLUMN IDNominativo
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Dipendenti>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Fornitori"
DoCmd.OpenTable "Fornitori", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Fornitori"
'inizio <<azzeramento contatore tabella Fornitori>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Fornitori ALTER COLUMN IDNominativo
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Fornitori>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella
"MovimentiSchedaContabile"
DoCmd.OpenTable "MovimentiSchedaContabile", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "MovimentiSchedaContabile"
'inizio <<azzeramento contatore tabella MovimentiSchedaContabile>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE MovimentiSchedaContabile ALTER COLUMN
IDMovimenti COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella MovimentiSchedaContabile>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella
"RegistroIncassiClienti"
DoCmd.OpenTable "RegistroIncassiClienti", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "RegistroIncassiClienti"
'inizio <<azzeramento contatore tabella RegistroIncassiClienti>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE RegistroIncassiClienti ALTER COLUMN
IDMovimenti COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella RegistroIncassiClienti>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Scadenzario"
DoCmd.OpenTable "Scadenzario", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Scadenzario"
'inizio <<azzeramento contatore tabella Scadenzario>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Scadenzario ALTER COLUMN IDScadenza
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Scadenzario>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Anagrafica
Professionista"
DoCmd.OpenTable "Anagrafica Professionista", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Anagrafica Professionista"
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "CLIENTI"
DoCmd.OpenTable "CLIENTI", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "CLIENTI"
'non è possibile procedere all'azzeramento del contatore IDNominativo
'della tabella CLIENTI perchè IDNominativo è parte di una o più relazioni:
'sarà quindi necessario compattare il database in uscita o  manualmente
'---------------------------------------------------------------------------------------------------
    'abilita le finestre di dialogo richiedenti consenso
    DoCmd.SetWarnings True
DoCmd.Hourglass False
DoCmd.Echo True
    Messaggio = "Cancellazione archivi dati Tabelle ed azzeramento contatori
eseguita con successo. E' ora necessario procedere alla compattazione
manuale o automatica del database (azzeramento contatore tabella CLIENTI)."
    PulsantiEIcone = vbOKOnly + vbExclamation
    Titolo = "Complimenti !!!"
    Risposta = MsgBox(Messaggio, PulsantiEIcone, Titolo)
====================================================================================


text:
Rispondo basito per quello che vedo, facendoti un'esempio di come devi
ristrutturare il tutto...!
In mezzo al marasma tu scrivi:
> DoCmd.OpenTable "Dipendenti", acViewNormal, acEdit
> DoCmd.RunCommand acCmdSelectAllRecords
> DoCmd.RunCommand acCmdDeleteRecord
> DoCmd.RunCommand acCmdClose
questa procedura che apre la tabella in Visualizzazione dati li
seleziona tutti e li cancella... è assurda si fa così con una sola
riga di codice...:
CurrentDb.Execute "DELETE * FROM Dipendenti"
Finito.
A fronte di questo... prova a rivisitare le tue cose...
@Alex


title: Accedere ad Access 97 da Excel

author: Simone

text:
Vorrei acedere ad Access 97 ad un  "mioDatabase.mdb" per poter leggere ed
aggiornare una "Tabella" mediante una chiave di accesso (indice). E'
possibile cio' utilizzando le istruzioni  DAO  di access?
Grazie
Simone


title: Accedere ad Access 97 da Excel

text:
"Simone" <
simone...@libero.it
> ha scritto nel messaggio
news:SHSta.41008$DN.10...@tornado.fastwebnet.it...

Si usando l'Automazione di Office ....!
Vedi ....Access.Application(Help)
@Alex.


title: Accedere ad Access 97 da Excel

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:K4Vta.96901$iy5.2...@twister2.libero.it...

Dalla guida ho capito che posso accedere ad un file sequenziale e fare
operazioni di Read/Write.
Quello che vorrei fare invece è accedere ad una tabella di Access. Potresti
cortesemente darmi qualche ulteriore dettaglio?
Grazie
Simone


title: Gestionale gratuito

author: Giove

text:
Sono autodidatta e ho realizzato il gestionale che trovate nel seguente
LINK,
http://studiofree.interfree.it/index.html
 poiché non ha avuto
molto successo mi farebbe piacere che lo controllino i capoccioni di
questo NG e magari mi suggerissero dove poterlo migliorare per renderlo
più comprensibile e funzionale.
Anticipatamente ringrazio tutti quelli che vogliono collaborare.
GIOVE
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Gestionale gratuito

author: Emyr

text:
On Sun, 26 May 2002 17:15:20 +0000 (UTC), "Giove"
<
gio...@hotmail.com
> wrote:
>Sono autodidatta e ho realizzato il gestionale che trovate nel seguente
>LINK,
http://studiofree.interfree.it/index.html
 poiché non ha avuto
>molto successo mi farebbe piacere che lo controllino i capoccioni di
>questo NG e magari mi suggerissero dove poterlo migliorare per renderlo
>più comprensibile e funzionale.
>
>Anticipatamente ringrazio tutti quelli che vogliono collaborare.
>
>GIOVE
ho dato un occhiatina di 3 minuti:
1) dovresti cercare di omogeneizzare maggiormente le maschere (così si
vede chiaramente che sono un insieme di copia incolla di altri
programmi)
2) dovresti usare dei colori più tenui e rassicuranti
3) nei vari controlli metti i tip se si sta fermi con il cursore o si
seleziona il controllo
4) usa dei tasti per fare le varie operazioni avanti indietro chiudi
stampa ed usa sempre quelli associandoli al limite ai tasti funzione
5) evita l'uso delle macro (ma questa è una mia fissa penso)
6) posso avere pagamenti con più di tre scadenze?
Saluti.
Emanuele.


title: Re: calcolo età a partire da codice fiscale

author: Alessandro Baraldi

text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:kpace.69822$
IN.12...@twister2.libero.it
> Salve a tutti,
> ho un campo di una maschera che contiene il codice fiscale delle persone da
> inserire e subito dopo il campo in cui inserire l'età della persona. Ora,
> poichè nel codice fiscale è indicato sempre l'anno di nascita avevo pensato
> di creare una funzione che automaticamente mi scriva nel campo età il
> risultato. So che dovrei fare una differenza considerando l'anno del codice
> e l'anno attuale, ma come faccio a leggere solo l'anno dal codice fiscale?
>
> Ciao e grazie,
> Luigi
Dal 7° carattere fino al 12 compreso, se non ricordo male,
sono indicativi della data di nascita.
Le prme 2 sono l'anno, quindi il Mese codificato con una
lettera
Gennaio A
Febbraio B
Marzo C
Aprile D
Maggio E
Giugno H
Luglio L
Agosto M
Settembre P
Ottobre R
Novembre S
Dicembre T

quindi il giorno.
Anno=Mid$(CF,7,2)
Mese=Mid$(CF,9,1)
  Funzione di conversione con Select Case
  per recuperare il numero del mese.
Giorno=Mid$(CF,10,2)
Quindi componi la tua data e la passi alla
funzione del calcolo Età.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Sergio

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:5f37fb4f5e048235b5...@mygate.mailgate.org...
> "Luigi" <
luigialiber...@tiscali.it
> wrote in message
> news:kpace.69822$
IN.12...@twister2.libero.it
>
>
> quindi il giorno.
>
> Anno=Mid$(CF,7,2)
> Mese=Mid$(CF,9,1)
>  Funzione di conversione con Select Case
>  per recuperare il numero del mese.
> Giorno=Mid$(CF,10,2)
>
Ovviamente non dimentichiamo che nel caso di femmine il numero del giorno è
aumentato di 40


author: Luigi


text:

Ciao Alex,
grazie per la tua risposta. Siccome non sono super esperto sto cercando di
fare le cose gradualmente. Prima di tutto ho inserito un casella di testo
chiamata anno e ho scritto questo:
Private Sub AssisititoCodiceFIscale_AfterUpdate()
AnnoCF = Mid$(CodiceFIscale, 7, 2)
Me.anno.DefaultValue = AnnoCF
ma dopo l'aggiornamento del codice fiscale non mi succede assolutamente
nulla. come mai? non dovrebbe comparirmi l'anno nella casella di testo?
Dove sbaglio?
Come faccio poi a distinguere fra uomini e donne? Ho un campo in cui
inserisco il sesso posso usarlo per controllare?
Ciao e grazie,
Luigi


text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:TIbce.89621$
zZ1.2...@twister1.libero.it
[CUT]
> Ciao Alex,
> grazie per la tua risposta. Siccome non sono super esperto sto cercando di
> fare le cose gradualmente. Prima di tutto ho inserito un casella di testo
> chiamata anno e ho scritto questo:
>
> Private Sub AssisititoCodiceFIscale_AfterUpdate()
> AnnoCF = Mid$(CodiceFIscale, 7, 2)
> Me.anno.DefaultValue = AnnoCF
>
> ma dopo l'aggiornamento del codice fiscale non mi succede assolutamente
> nulla. come mai? non dovrebbe comparirmi l'anno nella casella di testo?
> Dove sbaglio?
> Come faccio poi a distinguere fra uomini e donne? Ho un campo in cui
> inserisco il sesso posso usarlo per controllare?
>
> Ciao e grazie,
Beh devi imparare almeno i fondamenti della programmazione
altrimenti non si fà nulla.
Private Sub AssisititoCodiceFIscale_AfterUpdate()
  Me!anno = Mid$(AssisititoCodiceFIscale, 7, 2)
  Me!Mese = retMese(Mid$(AssisititoCodiceFIscale,9,1))
  Me!giorno=Mid$(AssisititoCodiceFIscale,10,2)
  If me!giorno>31 then
         Me!giorno=Me!giorno-40
         msgbox "FEMMINA"
  End if
End Sub

Private Function retMese(strMese As String) As Integer
   Select Case strMese
         Case "A"
            retMese = 1
         Case "B"
            retMese = 2
         Case "C"

         '.....ecc... riempila con i dati che ti ho fornito prima

         Case "T"
            retMese = 12

   End Select
End Function
> Luigi



text:
[CUT]
> Beh devi imparare almeno i fondamenti della programmazione
> altrimenti non si fà nulla.
>
> Private Sub AssisititoCodiceFIscale_AfterUpdate()
>  Me!anno = Mid$(AssisititoCodiceFIscale, 7, 2)
>  Me!Mese = retMese(Mid$(AssisititoCodiceFIscale,9,1))
>  Me!giorno=Mid$(AssisititoCodiceFIscale,10,2)
>  If me!giorno>31 then
>         Me!giorno=Me!giorno-40
>         msgbox "FEMMINA"
>  End if
> End Sub
>
> Private Function retMese(strMese As String) As Integer
>   Select Case strMese
>         Case "A"
>            retMese = 1
>         Case "B"
>            retMese = 2
>         Case "C"
>
>         '.....ecc... riempila con i dati che ti ho fornito prima
>
>         Case "T"
>            retMese = 12
>
>
>   End Select
> End Function
>
>
Ciao Alex,
qualcosina di programmazione la conosco ma mi perdo quando devo mettere
insieme qualcosa di più complesso.
Grazie alle tue informazioni sono riuscito adesso ad estrapolare dal codice
fiscale la data di nascita delle persone aggiungendo a quello che mi hai
scritto tu:
  Me!DataNascita = DateSerial(anno, Mese, giorno)
ho solo un problema. Ho una persona che è nata nel 1913 ma quando vado a
generare la data di nascita mi compare 2013. Come posso risolvere?
Fatto questo mi basta solo passare ad una funzione che calcola l'età la data
di nascita e mettere il risultato nel campo età? Se non volessi mettere i
singoli dati nelle caselle di testo ma usarli solo come variabili per
calcolare quello che mi serve come devo modificare il codice dove è scritto
Me!Anno etc?
Ciao e ancora grazie!
Luigi


text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:q%mce.90301$
zZ1.2...@twister1.libero.it
[CUT]
> Ciao Alex,
> qualcosina di programmazione la conosco ma mi perdo quando devo mettere
> insieme qualcosa di più complesso.
> Grazie alle tue informazioni sono riuscito adesso ad estrapolare dal codice
> fiscale la data di nascita delle persone aggiungendo a quello che mi hai
> scritto tu:
>
>   Me!DataNascita = DateSerial(anno, Mese, giorno)
>
> ho solo un problema. Ho una persona che è nata nel 1913 ma quando vado a
> generare la data di nascita mi compare 2013. Come posso risolvere?
> Fatto questo mi basta solo passare ad una funzione che calcola l'età la data
> di nascita e mettere il risultato nel campo età? Se non volessi mettere i
> singoli dati nelle caselle di testo ma usarli solo come variabili per
> calcolare quello che mi serve come devo modificare il codice dove è scritto
> Me!Anno etc?
> Ciao e ancora grazie!
> Luigi
Allora, la prima cosa da risolvere è l'Anno.
Devi fare un controllo empirico, se l'anno è maggiore dell'anno
di year(Now()) allora togli 100 anni.
Non è una bella soluzione, ma non saprei se nel CF c'è modo di
capirlo, potresti leggerti il Decreto relativo.
Per la 2° domanda, si ti basta passare la data alla funzione
di calcolo età.
Per la 3° sostituisci i controlli con Variabili di tipo Integer,
quindi passa quelle alla funzione.



text:
[cut]
>
> Allora, la prima cosa da risolvere è l'Anno.
> Devi fare un controllo empirico, se l'anno è maggiore dell'anno
> di year(Now()) allora togli 100 anni.
> Non è una bella soluzione, ma non saprei se nel CF c'è modo di
> capirlo, potresti leggerti il Decreto relativo.
>
> Per la 2° domanda, si ti basta passare la data alla funzione
> di calcolo età.
>
> Per la 3° sostituisci i controlli con Variabili di tipo Integer,
> quindi passa quelle alla funzione.
Ciao Alex,
ci sono quasi ma con alcuni errori da risolvere. Ho modificato quello di
prima in questo che vedi sotto:
Private Sub AssisititoCodiceFIscale_AfterUpdate()
Dim anno As Integer
Dim Mese As Integer
Dim giorno As Integer
Dim DataNascita As Date
  anno = Mid$(AssisititoCodiceFIscale, 7, 2)
  If anno > Year(Now()) Then
    anno = anno - 100
    MsgBox "anno STRANO..."
    End If
  Mese = retMese(Mid$(AssisititoCodiceFIscale, 9, 1))
  giorno = Mid$(AssisititoCodiceFIscale, 10, 2)
  If giorno > 31 Then
         giorno = giorno - 40
         MsgBox "FEMMINA"
  End If
  DataNascita = DateSerial(anno, Mese, giorno)
  Me!AssisititoEta = eta(DataNascita)
 End Sub
ma succede che il controllo sull'anno non me lo fa mai perchè 2005 è sempre
maggiore di 13 allora dovrei usare format per estrapolare solo le ultime due
cifre dell'anno ma dopo qualche provo non sono arrivato a nulla di buono.
Ho preso dal sitocomune la funzione per il calcolo dell'età e l'ho un pò
modificata in quanto segue:
Public Function eta(nascita As Date, Optional DataCorrente As Variant) As
String
'Se non metti la data corrente prende in automatico la data odierna
If IsMissing(DataCorrente) Then DataCorrente = Date
Dim Anni As Integer
Dim Mesi As Integer
Dim Giorni As Integer
'Calcolo gli anni
    Anni = Year(DataCorrente) - Year(nascita)
    If DateSerial(Year(DataCorrente), Month(nascita), Day(nascita)) >
DataCorrente Then
        Anni = Anni - 1
    End If
    eta = "Età : Anni=" & Anni
End Function
ma ricevo sempre un errore: è stato immesso un valore non valido per il
campo e se faccio il debug mi trovo evidenziato la riga di codice dove ho
scritto:
Me!AssisititoEta = eta(DataNascita)
Ti sono grato per l'aiuto che mi stai dando!
Ciao,
Luigi


text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:conce.90364$
zZ1.2...@twister1.libero.it
[cut]
> Ciao Alex,
> ci sono quasi ma con alcuni errori da risolvere. Ho modificato quello di
> prima in questo che vedi sotto:
>
 Private Sub AssisititoCodiceFIscale_AfterUpdate()
 Dim anno As Integer
 Dim Mese As Integer
 Dim giorno As Integer
 Dim DataNascita As Date

   anno = Mid$(AssisititoCodiceFIscale, 7, 2)
   If anno > Year(Format(Now(),"dd/mm/yy")) Then
     anno = anno - 100
     MsgBox "anno STRANO..."
     End If
   Mese = retMese(Mid$(AssisititoCodiceFIscale, 9, 1))
   giorno = Mid$(AssisititoCodiceFIscale, 10, 2)
   If giorno > 31 Then
          giorno = giorno - 40
          MsgBox "FEMMINA"
   End If
   DataNascita = DateSerial(anno, Mese, giorno)
   Me!AssisititoEta = "Anni: " & Age(DataNascita)
  End Sub
> ma succede che il controllo sull'anno non me lo fa mai perchè 2005 è sempre
> maggiore di 13 allora dovrei usare format per estrapolare solo le ultime due
> cifre dell'anno ma dopo qualche provo non sono arrivato a nulla di buono.
Ti ho modificato l'estrazione dell'anno formattandolo
a 2 cifre:
Year(Format(Now(),"dd/mm/yy")) ora dovrebbe andare.
> Ho preso dal sitocomune la funzione per il calcolo dell'età e l'ho un pò
> modificata in quanto segue:
>
> ma ricevo sempre un errore: è stato immesso un valore non valido per il
> campo e se faccio il debug mi trovo evidenziato la riga di codice dove ho
> scritto:
> Me!AssisititoEta = eta(DataNascita)
>
> Ti sono grato per l'aiuto che mi stai dando!
> Ciao,
> Luigi
Prima cosa in questo caso no modificare una funzione simile per
restituire una stringa, quella la aggiungi dopo.
Io non uso quella funzione anche se è praticamente uguale ma uso
questa:
Function Age (varBirthDate As Variant) As Integer
   Dim varAge As Variant
   If IsNull(varBirthdate) then Age = 0: Exit Function
   varAge = DateDiff("yyyy", varBirthDate, Now)
   If Date < DateSerial(Year(Now), Month(varBirthDate), _
                        Day(varBirthDate)) Then
      varAge = varAge - 1
   End If
   Age = CInt(varAge)
End Function
Ho fatto una simulazione da me e funziona.



text:
> Prima cosa in questo caso no modificare una funzione simile per
> restituire una stringa, quella la aggiungi dopo.
> Io non uso quella funzione anche se è praticamente uguale ma uso
> questa:
>
> Function Age (varBirthDate As Variant) As Integer
>   Dim varAge As Variant
>
>   If IsNull(varBirthdate) then Age = 0: Exit Function
>
>   varAge = DateDiff("yyyy", varBirthDate, Now)
>   If Date < DateSerial(Year(Now), Month(varBirthDate), _
>                        Day(varBirthDate)) Then
>      varAge = varAge - 1
>   End If
>   Age = CInt(varAge)
> End Function
>
>
> Ho fatto una simulazione da me e funziona.
>
Ciao Alex,
ancora una volta grazie mille per l'aiuto. Con la funzione che mi hai
scritto ora funziona, Resta solo il problema dell'età delle persone più
anziane. Ad esempio per una persona nata nel 1913 mi ritrovo un'età di -9
anni! Ho provato a fare qualche controllo di quelli di cui avevamo parlato
nei post precedenti. Cmq, visto che i casi non dovrebbero essere tanti e che
la ragazza che dovrebbe inserire i dati non dorme possiamo anche passarci su
e magari metto un messaggio che segnali questo fatto!
Ciao e grazie ancora una volta
Luigi


text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:Z0Ice.72360$
IN.12...@twister2.libero.it
> Ciao Alex,
> ancora una volta grazie mille per l'aiuto. Con la funzione che mi hai
> scritto ora funziona, Resta solo il problema dell'età delle persone più
> anziane. Ad esempio per una persona nata nel 1913 mi ritrovo un'età di -9
> anni! Ho provato a fare qualche controllo di quelli di cui avevamo parlato
> nei post precedenti. Cmq, visto che i casi non dovrebbero essere tanti e che
> la ragazza che dovrebbe inserire i dati non dorme possiamo anche passarci su
> e magari metto un messaggio che segnali questo fatto!
> Ciao e grazie ancora una volta
> Luigi
Assolutamente no, deve funzionare tutta e bene.
Il problema stà nella funzione di verifica dell'anno.
Se a questa passi ad es. 13 che nel CF starebbe per 1913
If anno> Year(Format(Now(),"dd/mm/yy")) Then
     anno = anno - 100
End If
anno=-87
ed è ovviamente errato.
Per risolvere il problema occorre ripristinare le 4 cifre
ma la cosa è un pò empirica e soprattutto ha il limite di 100
anni ma al momento non mi viene in mente nulla per risolvere
la cosa, occorrerebbe studiarsi il Decreto in questione e trovare
li la soluzione al problema che sicuramente è stata prevista.
Sostituisci il calcolo dell'anno in questo modo:
Private Sub AssisititoCodiceFIscale_AfterUpdate()
 Dim anno As Integer
 Dim Mese As Integer
 Dim giorno As Integer
 Dim DataNascita As Date

   anno = Mid$(AssisititoCodiceFIscale, 7, 2)
   If anno > Year(Format(Now(),"dd/mm/yy"))  Then
        anno = 1900 + anno
   Else
        anno = 2000 + anno
   End If
   Mese = retMese(Mid$(AssisititoCodiceFIscale, 9, 1))
   giorno = Mid$(AssisititoCodiceFIscale, 10, 2)
   If giorno> 31 Then
          giorno = giorno - 40
          MsgBox "FEMMINA"
   End If
   DataNascita = DateSerial(anno, Mese, giorno)
   Me!AssisititoEta = "Anni: " & Age(DataNascita)
  End Sub
Ciao



text:

Ciao Alex e ancora una volta grazie per il tuo aiuto!
Ho provato ad incollare il tuo codice nella funzione ma non so perchè  è
ancora peggio. Prima non mi calcolava solo le età più avanzate ora invece
sono proprio tutte sbagliate. Cmq ti ripeto che per me non è un problema e
può andare bene anche così!Ciao!
Luigi


text:
"Luigi" <
luigialiber...@tiscali.it
> wrote in message
news:VIMde.78291$
IN.13...@twister2.libero.it
[CUT]
> Ciao Alex e ancora una volta grazie per il tuo aiuto!
> Ho provato ad incollare il tuo codice nella funzione ma non so perchè  è
> ancora peggio. Prima non mi calcolava solo le età più avanzate ora invece
> sono proprio tutte sbagliate. Cmq ti ripeto che per me non è un problema e
> può andare bene anche così!Ciao!
> Luigi
Meglio così, l'aternativa era come ti dicevo leggersi con
calma la normativa vigente, ma non ho una gran voglia...!



title: listbox record

author: Francesco

text:
è possibile visualizzare in una listbox solo record che rispondo a
determinati criteri? Come ad esempio ad un valore inserito ina casella di
testo presente nella stessa maschera della listbox. Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: listbox record

author: Antonio Biso

text:
>Francesco" <
fpera...@libero.it
> ha scritto nel messaggio
news:b7jp5k$i8s$1...@news.newsland.it...
> è possibile visualizzare in una listbox solo record che rispondo a
> determinati criteri? Come ad esempio ad un valore inserito ina casella di
> testo presente nella stessa maschera della listbox. Grazie
Basta che l'origine riga della listbox sia una query con criterio where
Antonio


title: Agenda

author: Bix

text:
Conoscete un modo per creare e gestire una agenda in access?
esiste un controllo che non sia il calendario che ho trovato su access che
fa al mio caso...cliccando su un giorno genera un evento click?


title: MI5 Persecution: why won't the British police do their job and put a stop to it?

text:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-= why won't the British police do their job and put a stop to it? -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The British police obviously do know what is taking place. Besides my
interpretations of what individual officers have said which forces that
conclusion, it would be inconceivable for them to be unaware of something
on this scale.
If they know, then they will know that the abusers have broken laws in the
UK and abroad. Recently the UK introduced laws against electronic spying
which carry a penalty of several years jail if caught. If the police know
illegal harassment is taking place, and do nothing about it, then they are
failing in their responsibilities.
Last Easter (1995) I went into the local police station in London and spoke
to an officer about the harassment against me. But I couldn't provide
tangible evidence; what people said, in many cases years ago, is beyond
proof, and without something to support my statements I cannot expect a
police officer to take the complaint seriously.
The current situation with regard to the police is not one which allows a
breakthrough in dealing with the problem. On the one hand, most individual
officers at a local police station may not know about the ongoing assaults,
so a complaint at that level will not yield results. Yet the police as an
organisation do know of the harassment, and they must be aware that a
complaint has been made at a police station. So it is clearly their duty to
take preventative action against the continuing molestation, but because
the criminals are operating on behalf of a state agency, the police are not
carrying out their duty.
5
--
Posted via a free Usenet account from
http://www.teranews.com


author: rimuda

text:
MI5V...@mi5.gov.uk
 ha scritto:
sappiamo benissimo che sei la Luciana Cenciona - a Natale calano i post
e
subentrano i numeri ...
 --
Betting on me you will be a looser because I don't have a political
party
RO
http://www.youtube.com/results?search_query=rimuda+opere&search=Search
FiL
http://www.youtube.com/results?search_query=feast+in+london&search=Search
PDM
http://www.youtube.com/results?search_query=rimuda&search=Search
CAL
http://www.youtube.com/watch?v=kY9gpBzlzBA
CAM
http://www.youtube.com/watch?v=OqxzJgmkGeM



title: rst.FindFirst strCriteri funziona solo con tabella collegata

author: Sergio de Pretis

text:
Metto a disposizione del NG la soluzione del problema su cui sono
impazzito per un giorno. Ero sicuro che
rst.FindFirst strCriteri
dovesse funzionare perché l'avevo già usato più volte.
Io normalmente uso un .MDB per i dati ed uno per maschere, report, ecc.
Questa volta ho lavorato su un .MDB di un'altro in cui le tabelle erano
interne al .MDB ed è proprio questo che da il problema.
L'istruzione in questione FUNZIONA su una tabella collegata, e NON
FUNZIONA su una tabella interna.
La cosa mi ha lasciato perplesso perché mi risulta che ci siano molti
che utilizzano le tabelle direttamente nel database di maschere, ecc..
Mi piacerebbe sentire l'opinione di qualche componente il NG
Allego il codice che lavora sulla tabella Prova composta da [Cod] e
[Des]:
Private Sub Comando0_Click()
Dim strCriteri As String
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Prova")
strCriteri = "[Cod] = '02'"
'Sulla seguente istruzione da:
'Errore run-time 3251 se NON è una tabella collegata
rst.FindFirst strCriteri
rst.Edit
rst![Des] = rst![Des] & " (modificato)"
rst.Update
rst.Close
MsgBox "Aggiornato record"

End Sub
--------------------------------------------------------------------
Sergio de Pretis                     E-mail
depr...@csgen.it
Via Meli, 18                         phone / fax : (39) 02 2592400
20127 MILANO -  ITALY                mobile phone: (39) 0335 8381706


text:
Sergio de Pretis ha scritto nel messaggio <
38B7A2E4...@csgen.it
>...
>Mi piacerebbe sentire l'opinione di qualche componente il NG
>
>Allego il codice che lavora sulla tabella Prova composta da [Cod] e
>[Des]:
>
>Private Sub Comando0_Click()
>Dim strCriteri As String
>Dim dbs As Database
>Dim rst As Recordset
>
>Set dbs = CurrentDb
>Set rst = dbs.OpenRecordset("Prova")
Ma sei duro eh?
Devi mettere dbopendynaset come parametro del openrecordset!!!!!
Ufff...
Antonio


author: ElioP

text:
>
>
>Ma sei duro eh?
>
>Devi mettere dbopendynaset come parametro del openrecordset!!!!!
>
Hai ragione.
Se la tabella e' vuota pero',
il FindFirst da' errore comunque e se non lo testi .....
Ciao.  ElioP.


text:
ElioP ha scritto nel messaggio <
38ba69d3...@news.uli.it
>...

E allora fai un
if mioset.recordcount = 0 then
  msgbox "Ce li vogliamo mette un po' di record qua dentro?"
else
 mioset.findfirst
end if
Antonio


author: Lbo da casa

text:
>rst.FindFirst strCriteri
>L'istruzione in questione FUNZIONA su una tabella collegata, e NON
>FUNZIONA su una tabella interna.
hai provato a settare prima una variabile database sul database
esterno che contiene la tabella e poi a settare il recordset su
quest'ultimo db, non sul current?
con seek almeno si fa cosi'...
ad es.
dim dbsAllegati as database
dim rst as recordset
set dbsAllegati="c:\percorso\nomefile.mdb"
set rst=dbsAllegati.openrecordset("nometabellaallegata")
--
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