title: Problemi di duplicazione Nominativi

text:
On 24 Ago, 20:07,
vladil...@alice.it
 wrote:
> On 23 Ago, 19:19,
uomo...@hotmail.it
 wrote:
>
> > Salve a tutti, vorrei una soluzione ed un aiuto a questo problema,
> > dunque ho una tabella anagrafica con Cognome Nome indirizzo ecc...,
> > vorrei che quando inserisco una persona già presente il programma me
> > lo segnalasse, esempio. inserisco Rossi Paolo, il programma mi deve
> > dire che rossi paolo c'è già anche se si tratta di omonimia, poi
> > visualizzando gli altri dati verifico l'eventuale duplicato. Mi è
> > sufficiente.
> > Preciso che i campi Cognome e Nome sono separati, ho provato con
> > dlookup, ma con un campo solo riesco con 2 no.
> > Ringrazio fin da subito chi mi aiuta. Grazie
> > Fabio
Ciao fabio,
nella routine che ti ho scritto è bene aggiungerci un'altra riga di
codice, in quanto, andando a modificare ad esempio l'iniziale del nome
o del cognome già presenti in archivio con la lettera maiuscola o
minuscola, verresti bloccato come se stessi scrivendo per la seconda
volta lo stesso nominativo:
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
Anagrafica where Cognome & Nome= '" & Replace(Me.Cognome & Me.Nome,
"'", "''") & "'")
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
Exit Sub
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Cancel = True
Me.Cognome = ""
Me.Nome = ""
End If
End If
ss.Close
Set ss = Nothing
Di nuovo, Vladimiro.


title: Problemi di duplicazione Nominativi

text:

Grazie Vladimiro ma
Ho copiato quello che mi hai scritto .............
Private Sub Nome_AfterUpdate (Cancel As Integer)
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
Tabella anagrafica where Cognome & Nome= '" & Replace(Me.Cognome &
Me.Nome, "'", "''") & "'")
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
Exit Sub
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Cancel = True
Me.Cognome = ""
Me.Nome = ""
End If
End If
ss.Close
Set ss = Nothing
End If
End Sub
però non mi segnala che il nominativo c'è quindi non funziona...cosa
ho sbagliato?
Grazie ancora per l'interessamento


title: Problemi di duplicazione Nominativi

author: CIDI

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:b511f9ae-5b07-4578...@l64g2000hse.googlegroups.com...

Ciao Fabio
su evento prima di aggiornare della casella di testo Nome
della tua form di inserimento dati:
If Not IsNull(DLookup("Cognome", "tblAnagrafica", "Cognome=" & _
Chr$(34) & [Forms]![mElenco]![Cognome] & Chr$(34) & _
" AND " & Chr$(34) & [Forms]![mElenco]![Nome] & _
Chr$(34) & " = " & Chr$(34) & [Forms]![mElenco]![Nome] _
& Chr$(34))) Then
   MsgBox (Me!Cognome & " " & Me!Nome & " esistente")
End If
eventualmente modifica i nomi di campi e tabella.
Daniele


title: Problemi di duplicazione Nominativi

text:

> Grazie ancora per l'interessamento- Nascondi testo citato
>
> - Mostra testo citato -
Ciao fabio,
non credo che la tabella si chiami "Tabella anagrafica" o sbaglio? :-)
Poi, (e questa volta la colpa è mia)  visto che usi l'opzione "Dopo
aggiornamento" della casella di testo, non puoi e tra l'altro non
serve più utilizzare la proprietà "Cancel" : Cancel=True
In definitiva, se la tabella si chiama Anagrafica e i campi Nome e
Cognome, dopo aggiornamento della casella di testo Nome, inserisci il
seguente codice:
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
Anagrafica where Cognome & Nome= '" & Replace(Me.Cognome & Me.Nome,
"'", "''") & "'")
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
Exit Sub
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Me.Cognome = ""
Me.Nome = ""
'eventualmente inserisci il focus
Me.Cognome.SetFocus
End If
End If
ss.Close
Set ss = Nothing
End If
Vladimiro.
Ps
Guarda che l'ho provato e funziona alla grande :-)


title: Problemi di duplicazione Nominativi

text:

> Guarda che l'ho provato e funziona alla grande :-)- Nascondi testo citato
>
> - Mostra testo citato -
Vladimiro ti ringrazio per la cortesia, la mia tabella si chiama
proprio Tabella anagrafica, è un problema? perchè non funziona.
Evidentemente sono testone io.
Al momento sto usando il suggerimento di CIDI  e sembra che funzioni
perfettamente come serviva a me...però sono curioso di fare funzionare
il tuo.
Cmq grazie a tutti siete eccezionali dei veri maestri per chi come me
è un po alle prime armi, anche se sono molto appassionato di access e
cerco di imparare.


title: Problemi di duplicazione Nominativi

author: Geppo

text:
Ciao
uom...@hotmail.it
 wrote:
---cut---
>
> Vladimiro ti ringrazio per la cortesia, la mia tabella si chiama
> proprio Tabella anagrafica, è un problema? perchè non funziona.
> Evidentemente sono testone io.
>
> Al momento sto usando il suggerimento di CIDI  e sembra che funzioni
> perfettamente come serviva a me...però sono curioso di fare funzionare
> il tuo.
>
> Cmq grazie a tutti siete eccezionali dei veri maestri per chi come me
> è un po alle prime armi, anche se sono molto appassionato di access e
> cerco di imparare.
prova a racchiudere il nome della tabella in parentesi quadre:
[tabella anagrafica]
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:

> cerco di imparare.- Nascondi testo citato
>
> - Mostra testo citato -
Come giustamente ti ha suggerito Geppo, quando il nome di una tabella
o di un campo è formato da due o più parole distinte, devi
racchiuderlo tra parentesi quadre [...]
E' bene però in futuro evitare ciò per non incorrere in spiacevoli
sorprese dovute magari ad un pò di disattenzione.
Se proprio vuoi visualizzare più nomi distinti (ma questo vale solo
per il nome dei campi), nella struttura della tabella nella riga nome
campo inserisci ad esempio TotaleNominativi oppure Totale_Nominativi e
nella riga etichetta Totale Nominativi; oppure nella struttura della
query, volendo modificare un nome che in origine tabella ha come nome
ad esempio Nome_di_battesimo, puoi scrivere Nome di
battesimo:Nome_di_battesimo; in questo modo quando andrai a crearti in
autocomposizione le maschere o i report visualizzerai le etichette con
i nomi separati dagli spazi e non ti dovrai più preoccupare quando
andrai a crearti qualche routine di racchiudere il nome tra parentesi
quadre.
Ciao vladimiro.


title: Problemi di duplicazione Nominativi

author: Giuseppe

text:
On 25 Ago, 18:48,
vladil...@alice.it
 wrote:

Scusate l'intromissione, ho adattato questa soluzione al mio db ma
solo per il campo partita iva e/o codice fiscale. Dopo aver inserito
una nuova anagrafica ma con una partita iva già presente nella
tabella, mi dà messaggio di errore e mi evidenzia in Vba la parola
Replace. Cosa c'è di errato nel codice che ho modificato?
Grazie. Ciao.
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("select count(pARTITAIVA) from
TBLAnagrafica where PartitaIva= '" & Replace(Me.partitaiva, "''") &
"'")
If Me.partitaiva = Me.partitaiva.OldValue Then
Exit Sub
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Me.partitaiva = ""
'eventualmente inserisci il focus
Me.partitaiva.SetFocus



title: Problemi di duplicazione Nominativi

text:

> End If- Nascondi testo citato
>
> - Mostra testo citato -
Vladimiro io non so cosa c'è ma non funziona.......non mi segnala cioè
quando il nominativo è presente...Mi sa che sono incapace io...cmq sto
usando il suggerimento di CIDI e funziona....anche se vorrei che mi
mostrasse....i record dove il nominativo è presente.....chiedo troppo?
Ciao


title: Problemi di duplicazione Nominativi

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:ced471fb-1217-4555...@v57g2000hse.googlegroups.com...


Ma allora, scusa, perchè non usare una casella combinata, nell'intestazione
della maschera?
si può fare con l'autocomposizione e ti darebbe anche la possibilità di
scegliere il nominativo.
Ciao
Daniele


title: Problemi di duplicazione Nominativi

text:
On 26 Ago, 14:48, "CIDI" <
dadonz...@spamtin.it
> wrote:
> <
uomo...@hotmail.it
> ha scritto nel messaggionews:ced471fb-1217-4555...@v57g2000hse.googlegroups.com...

Cioè spiegati meglio se puoi........
casella combinata legata al campo Cognome e per il nome?????
cmq voglio anche provare.....
Ciao..attendo se puoi aiutarmi


title: Problemi di duplicazione Nominativi

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:823399a7-1c3f-489b...@k36g2000pri.googlegroups.com...


apri, in struttura, la maschera Ordini del database di esempio Northwind.
guarda la casella combinata IDCliente.
ne devi fare una simile nell'intestazione maschera.
Ciao
Daniele


title: Problemi di duplicazione Nominativi

text:
On 26 Ago, 09:37, Giuseppe <
gcardas...@tin.it
> wrote:

> End If- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Giuseppe, è normale che ti dà l'errore se mi parli di Partita Iva
perchè molto probabilmente il campo è di tipo numerico. Devi
sostituire la riga di codice in questo modo:
Set ss = CurrentDb.OpenRecordset("select count(pARTITAIVA) from
TBLAnagrafica where PartitaIva=" & Me.PartitaIva)
Ciao Vladimiro.


title: Problemi di duplicazione Nominativi

text:

> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
Se vuoi mi puoi mandare il DB (preferibilmente con pochi records)
perchè mi pare proprio strano che non funziona.
Per quanto riguarda l'andare al record con il nominativo già inserito,
penso la cosa più semplice da fare è quella di crearti una semplice
query con parametri (dove inserisci manualmente il nome ed il cognome
da ricercare) da aprire subito dopo aver inserito il dato già presente
in archivio.
vladileonchiocciolalibero.it
Fammi sapere.
Vladimiro.


title: Problemi di duplicazione Nominativi

text:
Ciao Giuseppe wrote:
----cut---
>
> Scusate l'intromissione, ho adattato questa soluzione al mio db ma
> solo per il campo partita iva e/o codice fiscale. Dopo aver inserito
> una nuova anagrafica ma con una partita iva già presente nella
> tabella, mi dà messaggio di errore e mi evidenzia in Vba la parola
> Replace.
Perchè come l'hai scritta in modo non corretto.
Guarda l'help.
Comunque per la partita iva non ti serve.
>Cosa c'è di errato nel codice che ho modificato?
> Grazie. Ciao.
> Dim ss As DAO.Recordset
Se Me.partivaiva e un dato tipo testo, altrimenti segui il consiglio di
Vladimiro.
 Set ss = CurrentDb.OpenRecordset("select count(pARTITAIVA) from
TBLAnagrafica where PartitaIva= '" & Me.partitaiva & "'")
> If Me.partitaiva = Me.partitaiva.OldValue Then
> Exit Sub
> If ss.Fields(0) > 0 Then
> If MsgBox("Attenzione, il nominativo è già presente in archivio!
> Continuare?", vbInformation + vbYesNo) = vbNo Then
> Me.partitaiva = ""
> 'eventualmente inserisci il focus
> Me.partitaiva.SetFocus
> End If
> End If
> ss.Close
> Set ss = Nothing
> End If
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:
Ciao
vlad...@alice.it
 wrote:
---cut---

Ma sei proprio sicuro?
Analizzando questa riga
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
    Exit Sub
Se il Cognome & Nome è uguale a Cognome & Nome esce dall'IF, pertanto non
esegue il msgbox, ma se sono diversi il messaggio non viene eseguito
ugualmente inquanto c'è exit sub che ti butta fuori dalla routine.
forse dopo la exit sub manca un "else". ;-)
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:
Ciao
uom...@hotmail.it
 wrote:
---cut--
> Vladimiro io non so cosa c'è ma non funziona.......non mi segnala cioè
> quando il nominativo è presente...Mi sa che sono incapace io...cmq sto
> usando il suggerimento di CIDI e funziona....anche se vorrei che mi
> mostrasse....i record dove il nominativo è presente.....chiedo troppo?
provala cosi:
Private sub nome_AfterUpdate()
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
Anagrafica where Cognome & Nome= '" & Replace(Me.Cognome & Me.Nome,
"'", "''") & "'")
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
   Exit Sub
else
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Me.Cognome = ""
Me.Nome = ""
'eventualmente inserisci il focus
Me.Cognome.SetFocus
End If
End If
ss.Close
Set ss = Nothing
End If
end sub
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:
On 26 Ago, 23:00, "Geppo" <c...@tin.it.invalid> wrote:

> Geppo- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Geppo,
sono due cose distinte e separate; probabilmente l'equivoco nasce dal
fatto che il seguente codice con condizione "If" deve stare tutto su
una riga:
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
Exit Sub
(solo la visualizzazione di questo post fa pensare all'inserimento di
un "Else")
La suddetta istruzione serve ad evitare che la prima condizione prenda
il sopravvento nell'andare a modificare il carattere maiuscolo o
minuscolo di un dato già inserito; ad esempio se in archivio ho il
nome geppo e volessi cambiarlo con il nome GEPPO oppure Geppo ecc...
senza la condizione dell'OldValue(vecchio valore) Access lo
prenderebbe come un nuovo valore duplicato.
Ciao Vladimiro.


title: Problemi di duplicazione Nominativi

text:
Ciao
vlad...@alice.it
 wrote:
---cut---

E' abbastanza chiaro a cosa serve quell'istruzione e solo che mi sono fatto
ingannare dalla End If in più che ha aggiunto "uomo_43", forse proprio
perchè il codice scritto come hai fatto tu è meno comprensibile che con  la
else.
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:
........ forse
> proprio perchè il codice scritto come hai fatto tu è meno
> comprensibile che con  la else.
questo è IMHO.
--
Ciao
Geppo


title: Problemi di duplicazione Nominativi

text:
On 26 Ago, 23:03, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao
uomo...@hotmail.it
 wrote:
>
> ---cut--
>
> > Vladimiro io non so cosa c'è ma non funziona.......non mi segnala cioè
> > quando il nominativo è presente...Mi sa che sono incapace io...cmq sto
> > usando il suggerimento di CIDI e funziona....anche se vorrei che mi
> > mostrasse....i record dove il nominativo è presente.....chiedo troppo?
>
> provala cosi:
>
> Private sub nome_AfterUpdate()
>
> Dim ss As DAO.Recordset
> Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
> Anagrafica where Cognome & Nome= '" & Replace(Me.Cognome & Me.Nome,
> "'", "''") & "'")
> If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
>    Exit Sub
>
> else
Non serve in quanto la condizione "If" è solo sul "No"; premendo si,
il programma va avanti :-)
>
> If ss.Fields(0) > 0 Then
> If MsgBox("Attenzione, il nominativo è già presente in archivio!
> Continuare?", vbInformation + vbYesNo) = vbNo Then
> Me.Cognome = ""
> Me.Nome = ""
> 'eventualmente inserisci il focus
> Me.Cognome.SetFocus
> End If
> End If
> ss.Close
> Set ss = Nothing
> End If
>
> end sub
>
> --
> Ciao
> Geppo
Non riesco a capire tutta questa difficoltà su 4 righe di codice.
Proviamo ad analizzarlo:
'Dichiaro la variabile ss
Dim ss As DAO.Recordset
' apro la tabella Anagrafica conteggiando il valore dei campi Cognome
e Nome rispetto al valore che sto inserendo in maschera
Set ss = CurrentDb.OpenRecordset("select count(Cognome & Nome) from
Anagrafica where Cognome & Nome= '" & Replace(Me.Cognome & Me.Nome,
"'", "''") & "'")
' questo l'ho già spiegato
If Me.Cognome & Me.Nome = Me.Cognome.OldValue & Me.Nome.OldValue Then
Exit Sub
' se il valore inserito nel recordset è maggiore di 0 ...
If ss.Fields(0) > 0 Then
If MsgBox("Attenzione, il nominativo è già presente in archivio!
Continuare?", vbInformation + vbYesNo) = vbNo Then
Me.Cognome = ""
Me.Nome = ""
'eventualmente inserisci il focus
Me.Cognome.SetFocus
End If
End If
' chiudo la variabile ss
ss.Close
' distruggo la variabile ss
Set ss = Nothing
End If
Vladimiro.


title: Problemi di duplicazione Nominativi

text:

> Vladimiro.- Nascondi testo citato
>
> - Mostra testo citato -- Nascondi testo citato
>
> - Mostra testo citato -
Bhe Vladimiro te lo posso anche mandare.. ma non funziona.Ho provato a
farne uno nuovo per provare, però fa uguale...passa senza segnalare
che il nome c'è già. Cmq non voglio disturbarti oltre ti ho fatto
perdere anche troppo tempo, lasciamo perdere sto usando il programma
suggerito da CIDI e per quello che mi serve puo andare. adesso devo
solo trovare il modo che una volta che mi segnala che il nome c'è
già.......mi faccia vedere i record...ho fatto cosi:
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
Chr$(34) & [Forms]![Maschera anagrafica]![Cognome] & Chr$(34) & _
" AND " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] & _
Chr$(34) & " = " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] _
& Chr$(34))) Then
   MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
vbExclamation, "ATTENZIONE!"
   Cancel = False
DoCmd.OpenForm "M cognome", , , "[COGNOME]=" & Chr$(34) & Me!Cognome &
Chr$(34)
End If
End Sub
però.....mi fa vedere tutti quelli che si chiamano con quel cognome,
quindi esempio se io cerco ROSSI PAOLO, mi segnala che c'è però quando
apre la form "M cognome" mi visualizza tutti quelli con il cognome
ROSSI.


title: Problemi di duplicazione Nominativi

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:27791d35-84c4-4c1b...@8g2000hse.googlegroups.com...
Bhe Vladimiro te lo posso anche mandare.. ma non funziona.Ho provato a
farne uno nuovo per provare, però fa uguale...passa senza segnalare
che il nome c'è già. Cmq non voglio disturbarti oltre ti ho fatto
perdere anche troppo tempo, lasciamo perdere sto usando il programma
suggerito da CIDI e per quello che mi serve puo andare. adesso devo
solo trovare il modo che una volta che mi segnala che il nome c'è
già.......mi faccia vedere i record...ho fatto cosi:
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
Chr$(34) & [Forms]![Maschera anagrafica]![Cognome] & Chr$(34) & _
" AND " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] & _
Chr$(34) & " = " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] _
& Chr$(34))) Then
   MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
vbExclamation, "ATTENZIONE!"
   Cancel = False
DoCmd.OpenForm "M cognome", , , "[COGNOME]=" & Chr$(34) & Me!Cognome &
Chr$(34)
End If
End Sub
però.....mi fa vedere tutti quelli che si chiamano con quel cognome,
quindi esempio se io cerco ROSSI PAOLO, mi segnala che c'è però quando
apre la form "M cognome" mi visualizza tutti quelli con il cognome
ROSSI.
ovvio! usi solo il cognome per ricerca, prova così:
    DoCmd.OpenForm ("M cognome"), , , "[Cognome]&[Nome]=" & "'" &
Me![Cognome] & [Nome] & "'"
sarebbe meglio non utilizzare nomi con spazi.
Ciao
Daniele


title: Problemi di duplicazione Nominativi

text:

Qui c'è il link per scaricare un piccolo esempio:
http://cid-c6235c2e3d2ce762.skydrive.live.com/self.aspx/Pubblica/Chiave%20primaria%20su%20due%20campi/Chiave%20primaria%20su%20due%20campi%20e%20apertura%20maschera%20su%20valore%20duplicato.zip
Ciao vladimiro.


title: Problemi di duplicazione Nominativi

text:
On 28 Ago, 15:03,
vladil...@alice.it
 wrote:
> On 26 Ago, 23:47, "Geppo" <c...@tin.it.invalid> wrote:
>
> > ........ forse
>
> > > proprio perchè il codice scritto come hai fatto tu è meno
> > > comprensibile che con  la else.
>
> > questo è IMHO.
>
> > --
> > Ciao
> > Geppo
>
> Qui c'è il link per scaricare un piccolo esempio:
>
>
http://cid-c6235c2e3d2ce762.skydrive.live.com/self.aspx/Pubblica/Chia.
..
>
> Ciao vladimiro.
Grazie di cuore a tutti. Funziona benissimo ho usato il suggerimento
di cidi con la correzione successiva.
Ciao Fabio


title: Problemi di duplicazione Nominativi

text:

> Ciao Fabio- Nascondi testo citato
>
> - Mostra testo citato -
SCUSATE MA.... ci risiamo con questo problema....pensavo che andasse
tutto bene invece usandolo a pieno ritmo mi sono accorto che c'è
qualcosa che non va ..(mi riferisco al suggerimento datomi da CIDI)
infatti quando inserisco il nominativo es. ROSSI PAOLO, mi segnala che
c'è anche se in realta non c'è soltanto perchè trova altri nominativi
con cognome ROSSI,
Mentre per esempio se inserisco BIANCHI MARIO e in archivio non ho
nessuno con il cognome BIANCHI va tutto bene..e funziona anche se
ovviamente inserisco GARIBALDI GIUSEPPE, che ho gia in archivio, mi
segnala che è presente e mi mostra la precedente o le precedenti
registrazioni, adesso mi chiedo dove è l'errore nella formula?
Private Sub Nome_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
Chr$(34) & [Forms]![Maschera anagrafica]![Cognome] & Chr$(34) & _
" AND " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] & _
Chr$(34) & " = " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] _
& Chr$(34))) Then
   MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
vbExclamation, "ATTENZIONE!"
   Cancel = False
DoCmd.OpenForm ("M cognome"), , , "[Cognome]&[Nome]=" & "'" &
Me![Cognome] & [Nome] & "'"
End If
End Sub
Grazie se potete ancora aiutarmi!!! Fabio


title: Problemi di duplicazione Nominativi

text:
<
uom...@hotmail.it
> ha scritto nel messaggio
news:a4188726-6eea-4430...@y21g2000hsf.googlegroups.com...





End If
End Sub

Ciao Fabio
prova cosě:
If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
Chr$(34) & Me![Cognome] & Chr$(34) & _
" AND Nome = " & Chr$(34) & Me!Nome & Chr$(34))) Then
   MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
vbExclamation, "ATTENZIONE!"
   Cancel = False
   End If
DoCmd.OpenForm ("M cognome"), , , "[Cognome]&[Nome]=" & "'" &
Me![Cognome] & [Nome] & "'"
End If
End Sub
prima faceva il controllo solo sul Cognome.
Daniele


title: Problemi di duplicazione Nominativi

text:
On 3 Set, 23:39, "CIDI" <
dadonz...@spamtin.it
> wrote:
> <
uomo...@hotmail.it
> ha scritto nel messaggionews:a4188726-6eea-4430...@y21g2000hsf.googlegroups.com...
> On 29 Ago, 17:21,
uomo...@hotmail.it
 wrote:
>
> Private Sub Nome_BeforeUpdate(Cancel As Integer)
>
> If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
> Chr$(34) & [Forms]![Maschera anagrafica]![Cognome] & Chr$(34) & _
> " AND " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] & _
> Chr$(34) & " = " & Chr$(34) & [Forms]![Maschera anagrafica]![Nome] _
> & Chr$(34))) Then
>
>    MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
> vbExclamation, "ATTENZIONE!"
>    Cancel = False
>
> DoCmd.OpenForm ("M cognome"), , , "[Cognome]&[Nome]=" & "'" &
> Me![Cognome] & [Nome] & "'"
>
> End If
>
> End Sub
>
> Grazie se potete ancora aiutarmi!!! Fabio
>
> Ciao Fabio
> prova così:
> If Not IsNull(DLookup("Cognome", "Tabella anagrafica", "Cognome=" & _
> Chr$(34) & Me![Cognome] & Chr$(34) & _
> " AND Nome = " & Chr$(34) & Me!Nome & Chr$(34))) Then
>    MsgBox (Me!Cognome & " " & Me!Nome & " E' PRESENTE IN ARCHIVIO"),
> vbExclamation, "ATTENZIONE!"
>    Cancel = False
>    End If
>
> DoCmd.OpenForm ("M cognome"), , , "[Cognome]&[Nome]=" & "'" &
> Me![Cognome] & [Nome] & "'"
>
> End If
>
> End Sub
>
> prima faceva il controllo solo sul Cognome.
>
> Daniele
Grazie..provo e ti faccio sapere.....spero che adesso funzioni
Ciao Fabio


title: Problemi di duplicazione Nominativi

text:

> Ciao Fabio- Nascondi testo citato
>
> - Mostra testo citato -
Finalmente funziona, provato a pieno regime, nessun problema.
Grazie a tutti
Fabio


title: Sicurezza a livello utente

text:
Vorrei un chiarimento per proteggere il database a livello utente.
Allora... seguendo l'Help ho creato un nuovo file .mdw che ho chiamato
mio.mdw
Ho poi aperto un db e ho creato un nuovo utente "marco" che ho inserito nel
gruppo utenti e amministratori.
Poi ho tolto dal gruppo amministratori l'utente amministratore e gli ho
tolto tutte le autorizzazioni.
Ora seguendo l'help dovrei collegarmi come amministratore....per eliminare
del
tutto l'amministratore.... come si fa... anche se l'amministratore non è più
nel gruppo degli amministratori il db si apre sempre con amministratore come
proprietario del db e non posso quindi eliminare l'amministratore.
Se invece entro nel db con il mio nome, con autocomposizione sicurezza,
posso creare un nuovo db in cui sono il proprietario ma l'amministratore non
lo riesco ugualmente ad eliminare anche se è del tutto inoffensivo.
A parte l'estrema confusione nei termini, Qualcuno può aiutarmi anche con il
metodo "passo passo" poichè sono un po duro e l'help non mi è bastato.
ciao
Marco


title: Sicurezza a livello utente

author: Federico Luciani

text:

> Marco
Sul SitoComune, tra le Faq, c'e' quello che cerchi.
Cmq, l'utente Amministratore NON puo' essere eliminato,
devi solo eliminarlo dal gruppo degli Amministratori.
--
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Sicurezza a livello utente

author: Voltolini

text:
L'amministratore non puo' essere eliminato in ogni caso,anche se si puo'
rendere inoffensivo togliendogli tutte,ma tutte le autorizzazioni,per
cambiare di proprietario devi creare un database vuoto con nome Utente ad
esempio Rossi,in codesto database devi poi importare le tabelle dell'altro
database e vedrai che il proprietario non e' piu' l'amministratore ma Rossi.
A Rossi devi dare tutte le autorizzazioni e toglierle  al gruppo
Amministratori al gruppo Utenti,all'Amministratore e agli Utenti,e' ovvio
che a Rossi devi anche assegnare una password.
Se hai tabelle allegate devi fare la stessa cosa,altrimenti un Utente te le
puo' importare collegandosi come Amministratore (o Admin) in un altro
database.
Non entro nei dettagli che puoi seguire dall'help,ma la procedura e' questa.
Io faccio sempre cosi' ed e' a prova di bomba!
Voltolini
maga58 <
map...@tiscalinet.it
> wrote in message
89tc90$if0$3...@pegasus.tiscalinet.it...
>
> Vorrei un chiarimento per proteggere il database a livello utente.
> Allora... seguendo l'Help ho creato un nuovo file .mdw che ho chiamato
> mio.mdw
> Ho poi aperto un db e ho creato un nuovo utente "marco" che ho inserito
nel
> gruppo utenti e amministratori.
> Poi ho tolto dal gruppo amministratori l'utente amministratore e gli ho
> tolto tutte le autorizzazioni.
> Ora seguendo l'help dovrei collegarmi come amministratore....per eliminare
> del
> tutto l'amministratore.... come si fa... anche se l'amministratore non è
più
> nel gruppo degli amministratori il db si apre sempre con amministratore
come
> proprietario del db e non posso quindi eliminare l'amministratore.
> Se invece entro nel db con il mio nome, con autocomposizione sicurezza,
> posso creare un nuovo db in cui sono il proprietario ma l'amministratore
non
> lo riesco ugualmente ad eliminare anche se è del tutto inoffensivo.
> A parte l'estrema confusione nei termini, Qualcuno può aiutarmi anche con
il
> metodo "passo passo" poichè sono un po duro e l'help non mi è bastato.
>
> ciao
> Marco
>
>
>
>
>


title: Sicurezza a livello utente

author: sib

text:
Voltolini <
extr...@libero.it
> wrote in message
50uw4.71902$qv.7...@news.infostrada.it...
> L'amministratore non puo' essere eliminato in ogni caso,anche se si puo'
> rendere inoffensivo togliendogli tutte,ma tutte le autorizzazioni,per
> cambiare di proprietario devi creare un database vuoto con nome Utente ad
> esempio Rossi,in codesto database devi poi importare le tabelle dell'altro
> database e vedrai che il proprietario non e' piu' l'amministratore ma
Rossi.
Scusa se ti correggo, ma non e' cosi'. Una volta che crei il nuovo utente e'
sufficiente dargli i diritti di amministratore e di lettura/scrittura su
tutti gli oggetti e vedrai che potrai cambiare proprietario come e quando
vuoi.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Sicurezza a livello utente

text:
sib wrote:
> Voltolini <
extr...@libero.it
> wrote in message
> > L'amministratore non puo' essere eliminato in ogni caso,anche se si puo'
> > rendere inoffensivo togliendogli tutte,ma tutte le autorizzazioni,per
> > cambiare di proprietario devi creare un database vuoto con nome Utente ad
> > esempio Rossi,in codesto database devi poi importare le tabelle dell'altro
> > database e vedrai che il proprietario non e' piu' l'amministratore ma
> Rossi.
>
> Scusa se ti correggo, ma non e' cosi'. Una volta che crei il nuovo utente e'
> sufficiente dargli i diritti di amministratore e di lettura/scrittura su
> tutti gli oggetti e vedrai che potrai cambiare proprietario come e quando
> vuoi.
>
> Ciao, Sib
E' vero in parte; qualunque utente appartenente al gruppo
amministratori puo' modificare il proprietario di tutti gli
oggetti, ma non del database.
L'unico modo per cambiare il proprietario di un database e'
crearne uno nuovo ed importare tutti gli oggetti!



title: Sicurezza a livello utente

text:
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
38C280F2...@paperino.libero.it...
> sib wrote:
> > Voltolini <
extr...@libero.it
> wrote in message
> > > L'amministratore non puo' essere eliminato in ogni caso,anche se si
puo'
> > > rendere inoffensivo togliendogli tutte,ma tutte le autorizzazioni,per
> > > cambiare di proprietario devi creare un database vuoto con nome Utente
ad
> > > esempio Rossi,in codesto database devi poi importare le tabelle
dell'altro
> > > database e vedrai che il proprietario non e' piu' l'amministratore ma
> > Rossi.
> >
> > Scusa se ti correggo, ma non e' cosi'. Una volta che crei il nuovo
utente e'
> > sufficiente dargli i diritti di amministratore e di lettura/scrittura su
> > tutti gli oggetti e vedrai che potrai cambiare proprietario come e
quando
> > vuoi.
> >
> > Ciao, Sib
>
> E' vero in parte; qualunque utente appartenente al gruppo
> amministratori puo' modificare il proprietario di tutti gli
> oggetti, ma non del database.
> L'unico modo per cambiare il proprietario di un database e'
> crearne uno nuovo ed importare tutti gli oggetti!
>
Chiedo venia e, per fare ammenda riporto quanto descritto nell'help in linea
di A97 in proposito:
########################help di Access###################
Trasferire l'appartenenza di un intero database ad un altro amministratore
1 Avviare Microsoft Access utilizzando un gruppo di lavoro protetto che
contenga l'account utente che si desidera rendere proprietario del database
e dei relativi oggetti.
2 Collegarsi utilizzando quell'account.
3 Creare un nuovo database vuoto.
4 Importare tutti gli oggetti dal database di cui si desidera modificare
l'appartenenza nel nuovo database.
###########################################################
Questo non l'avevo ancora provato.
Chissa' perche' con tutti gli oggetti funziona ma con il db no.



title: Sicurezza a livello utente

text: Intendevo proprietario del database.


title: Sicurezza a livello utente

text:
Voltolini <
extr...@libero.it
> wrote in message
DbPw4.77095$qv.7...@news.infostrada.it...
> Intendevo proprietario del database.
Sto' ancora togliendo dalla tastiera la cenere con cui mi ero cosparso il
capo... ;-)
Ciao, Sib


title: Sicurezza a livello utente

text:
Io invece la tolgo per le sigarette che fumo.
Ciao
Voltolini
sib <
sibN...@iol.it
> wrote in message
GyWw4.2623$i%1.3...@news.infostrada.it...



title: COsa vuol dire OT?

author: STORDITO

text:
Scusate ma, spesso, vedo la sigla [OT] davanti all'oggetto dei messaggi.
Cosa significa?
Grazie,
STORDITO
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: COsa vuol dire OT?

author: Pablitomf

text:
STORDITO ha scritto:
> Scusate ma, spesso, vedo la sigla [OT] davanti all'oggetto dei messaggi.
> Cosa significa?
> Grazie,
> STORDITO
Riporto da
www.sitocomune.com
 sezione ICAA
Alcune utili abbreviazioni (acronimi)
AFAIK As Far As I Know
BTW By The Way
CU See You
CUL8R See You Later
CUT Taglio (quando non si riporta tutto il testo a cui si risponde)
HTH Hope This Helps
IMO In My Opinion
IMHO In My Humble Opinion
LOL Laughing out loud
NEWBIE Nuovo arrivato, persona nuova per il NG
NG Newsgroup
OT Off-Topic: fuori argomento
ROTFL Rolling on the floor laughing
ROTFLASTC Rolling on the floor laughing and scaring the cat
ROTFLMAO Rolling on the floor laughing my ass off
RTFM Read the fuckin' manual
SPAM Messaggio pubblicitario fortemente OT, sui NG è assolutamente vietato
TIA Thanks In Advance
TROLL Persona che vuole solo creare disturbo e scompiglio
Ce ne sono tanti altri, li trovate qui:
http://www.acronymfinder.com
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley



title: Controllo duplicati su chiave multicampo

author: Lucia Rita Carfagno

text:
Un caro saluto a tutto il NG!!
Eccomi di nuovo qui a chiedere un vostro aiuto.
Ho la necessitą di effettuare un controllo dei duplicati di record in base
ad una chiave composta da tre campi: Nome, Cognome e data di nascita.
Sinceramente non so come fare, ho cercato anche nel sito comune, ma mi pare
che non vi sia nulla se non il controllo effettuabile su un solo campo del
record.
Grazie mille
Rita


author: ALESSANDRO Baraldi

text:
"Lucia Rita Carfagno" <
lcar...@libero.it
> ha scritto nel messaggio
news:yx37c.83808$FJ6.3...@twister1.libero.it...
> Un caro saluto a tutto il NG!!
>
> Eccomi di nuovo qui a chiedere un vostro aiuto.
> Ho la necessità di effettuare un controllo dei duplicati di record in base
> ad una chiave composta da tre campi: Nome, Cognome e data di nascita.
> Sinceramente non so come fare, ho cercato anche nel sito comune, ma mi
pare
> che non vi sia nulla se non il controllo effettuabile su un solo campo del
> record.
>
> Grazie mille
> Rita
Metti in AND le condizioni ed effettua una QRY di estrazione....!!!
    "SELECT * FORM TuaTabella " & _
    "WHERE " & _
    "[Nome]=" & chr(34) & Forms!NomeForm!txtNome & chr(34) & " AND " & _
    "[Cognome]=" & chr(34) & Forms!NomeForm!txtCognome & chr(34) & " AND " &
_
    "[DataNascita]=#" & Forms!NomeForm!txtDataNascita & "#"
    In questo caso usi un Recordset e verifichi RecordCount(dopo aver
testato EOF)
Questo è il predicato per una QRY, ma puoi anche usarlo per un Dlookup:
    DCount("[Nome]", _
    "NomeTabella", _
    "[Nome]=" & chr(34) & Forms!NomeForm!txtNome & chr(34) & " AND " & _
    "[Cognome]=" & chr(34) & Forms!NomeForm!txtCognome & chr(34) & " AND " &
_
    "[DataNascita]=#" & Forms!NomeForm!txtDataNascita & "#"
    In questo caso è forse più semplice.......!
Ciao.
@Alex.


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c3ii98$21n$1...@lacerta.tiscalinet.it...

Grazie mille Alessandro, lo faccio subito.
Ciao Rita


author: kaloma

text:
"Lucia Rita Carfagno" <
lcar...@libero.it
> ha scritto nel messaggio
news:yx37c.83808$FJ6.3...@twister1.libero.it...
> Un caro saluto a tutto il NG!!
>
> Eccomi di nuovo qui a chiedere un vostro aiuto.
> Ho la necessità di effettuare un controllo dei duplicati di record in base
> ad una chiave composta da tre campi: Nome, Cognome e data di nascita.
> Sinceramente non so come fare, ho cercato anche nel sito comune, ma mi
pare
> che non vi sia nulla se non il controllo effettuabile su un solo campo del
> record.
>
> Grazie mille
> Rita
>
>
Se ti può servire, ti posto una routine che ho trovato su un manuale di A2K
(modificata poi per le mie esigenze):
Private Sub Nascita_AfterUpdate()
' controlla se il record è duplicato analizzando i campi cognome, nome e
data di nascita
On Error GoTo Err_Nascita_AfterUpdate
    Dim rs As Object
    Set rs = Me.RecordsetClone
    If Me.NewRecord = True Then
        Dim strCognome As String, strMessage As String
        strCognome = "Cognome='" & Me!Cognome & "'"
        rs.MoveFirst
        rs.FindFirst strCognome
        Do Until rs.NoMatch
            If UCase(rs!Nome) = UCase(Me!Nome) Then
                If rs!Nascita = Me!Nascita Then
                    strMessage = bla... bla...
                    Cancel = True
                    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo
                    Me.Bookmark = rs.Bookmark
                    GoTo Exit_Nascita_AfterUpdate
                End If
            End If
            rs.FindNext strCognome
        Loop
    End If
Exit_Nascita_AfterUpdate:
    Set rs = Nothing
    Exit Sub
Err_Nascita_AfterUpdate:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Nascita_AfterUpdate
End Sub
Ciao.
kaloma


text:
"kaloma" <
brun...@tin.it
> ha scritto nel messaggio
news:1Ob7c.80236$z23.3...@news3.tin.it...

Hai letto bene il BUG presente nell'UTILIZZO dei BooKmark.....??
La routine postata è corretta, ma rischiosa, e decisamente più
lenta.
Ciao.
@Alex.


author: Roberto da casa

text:
"Lucia Rita Carfagno" <
lcar...@libero.it
> ha scritto nel messaggio
news:yx37c.83808$FJ6.3...@twister1.libero.it...
> Un caro saluto a tutto il NG!!
[CUT]
> Rita
Ciao Rita
Roberto


text:
"kaloma" <
brun...@tin.it
> ha scritto nel messaggio
news:1Ob7c.80236$z23.3...@news3.tin.it...

Grazie Kaloma, mi fa molto piacere conoscere le diverse alternative alla
soluzione del mio problema.
In questo modo si impara molto prima.
     Ciao Rita


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c3jpfp$orf$1...@lacerta.tiscalinet.it...

Ciao Alex, francamente non sono a conoscenza del BUG di cui parli, cmq
grazie per la precisazione, ne terrò conto.
Ciao Rita


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:7gi7c.84496$FJ6.3...@twister1.libero.it...

Ciaoooooo Roberto, che piacere ritrovarti!
Ciao Rita


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:7gi7c.84496$FJ6.3...@twister1.libero.it...

Ciaoooooo Roberto, che piacere risentirti!!
A presto Rita


title: Controllo Limiti

author: Alex

text:
Buon giorno innanzitutto.
Spiego brevem. la situazione:
Si tratta di manutenzione ad una serie di impianti, con relative analisi e
misure.
Tabella principale contiene IdMacchinario e altri dati di contorno, tabella
analisi legata uno-molti con la prima da IdMacchinario contiene il valore
numerico dell'analisi (Idanalisi) preso dalla terza tabella che contiene
anche i valori limite di quell'analisi, questo perchè le analisi possono
variare ecc..
IdMacchinario---->IdMacchinario
                              IdAnalisi    ------->IdAnalisi
                              Valore                    TipoAnalisi
                              Anomalia?               LimiteInferiore
                                                             LimiteSuperiore
Ho la necessità di effettuare una routine in VBA per controllare che i
valori siano o meno all'interno dei limiti, questo direttamente sulle
tabelle, e registrare nel campo Anomalia. Non posso, credo, farlo al momento
dell'immisione perchè li carico da un File.Txt che mi genera l'analizzatore
e uso una Qry di accodamento.
Spero di essere stato chiaro, ringrazio tutti Alex.
--
Posted from
smtp2.libero.it
 [193.70.192.52]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Controllo Limiti

text:
""Alex"" <
ik2...@libero.it
> ha scritto nel messaggio
news:000c01c09139$f2d6ca20$0a101497@ik2zok...

Secondo me puoi farlo aprendo una query di aggiornamento basata sulla
seconda tabella, dopo aver importato e accodato i dati.
Se la seconda tabella si chiama Tabella2, la terza tabella si chiama Analisi
e vuoi registrare la stringa "Anomalo" nel campo Anomalia nel caso Valore
sia minore al LimiteInferiore o maggiore al LimiteSuperiore, la query di
aggiornamento che dovrebbe fare al caso tuo ha il seguente codice SQL:
UPDATE Tabella2 SET Tabella2.Anomalia = "Anomalo"
WHERE (((Tabella2.Valore)<DLookUp("[LimiteInferiore]","Analisi","IdAnalisi="
& [IdAnalisi]) Or
(Tabella2.Valore)>DLookUp("[LimiteSuperiore]","Analisi","IdAnalisi=" &
[IdAnalisi])));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Controllo Limiti

text:
Ciao Roberto, grazie per l'ottimo consiglio, sarebbe perfetta, ma io sono
pignolo, scherzi a parte ti spiego.
Il controllo che faccio non prevede che i dati possano cambiare, quindi la
dove ho un rientro di un dato entro i limiti e rilancio la Qry di
aggiornamento rimane la segnalazione "Anomalia", ho cercato di condizionare
il Where, ma in realtà dovrei condizionare il SET del valore:
Ogni volta che lancio la QRY se il valore è interno il campo "Anomalia"=""
altrimenti se esterno ai limiti "Anomalia"="Anomalia".NON ci sono riuscito,
perchè ho pochissima dimestichezza con SQL e VBA.
Se puoi avere pazienza e darmi un altro consiglio grazie mille.
Ciao Alex
--
Posted from
smtp4.libero.it
 [193.70.192.54]



title: Controllo Limiti

author: Roberto dal portatile

text:
""Alex"" <
ik2...@libero.it
> ha scritto nel messaggio
news:000301c091bb$0c96dfa0$0a3a1497@ik2zok...
> Ciao Roberto, grazie per l'ottimo consiglio, sarebbe perfetta, ma io sono
> pignolo, scherzi a parte ti spiego.
> Il controllo che faccio non prevede che i dati possano cambiare, quindi la
> dove ho un rientro di un dato entro i limiti e rilancio la Qry di
> aggiornamento rimane la segnalazione "Anomalia", ho cercato di
condizionare
> il Where, ma in realtà dovrei condizionare il SET del valore:
> Ogni volta che lancio la QRY se il valore è interno il campo "Anomalia"=""
> altrimenti se esterno ai limiti "Anomalia"="Anomalia".NON ci sono
riuscito,
> perchè ho pochissima dimestichezza con SQL e VBA.
> Se puoi avere pazienza e darmi un altro consiglio grazie mille.
> Ciao Alex
>
>
Se le cose stanno così, prova con una query che ha il seguente codice SQL:
UPDATE Tabella2 SET Tabella2.Anomalia =
IIf(DLookUp("[LimiteInferiore]","Analisi","IdAnalisi=" &
[IdAnalisi])>[Valore] Or DLookUp("[LimiteSuperiore]","Analisi","IdAnalisi="
& [IdAnalisi])<[Valore],"Anomalo",Null);



title: Controllo Limiti

text:
Sei stato veramente gentilissimo non che prezioso.
Spero un giorno di poter contraccambiare.
Ciao Buona giornata e buon Week-end  Alex.
--
Posted from
smtp3.libero.it
 [193.70.192.53]



title: Stampare più report

author: GiainoFlower

text:
Ciao a tutti
ho realizzato una maschera che mi visualizza i dati presi di una query
e tramite un bottone (per ciascun record) mi stampa il report
relativo.
Avrei bisogno di realizzare (nella stessa maschera) un pulsante che mi
permetta di stampare in automatico tutti i report che genera la
query....
....ho cercato anche su sitocomune ma non ho trovato nulla..a tal
proposito volevo fare una domanda....Ma i post del sitocomune sono
fermi al 2000????
grazie 1000


title: Stampare più report

author: Alessandro Romeo

text:

Ciao,
immagino che il recorsource non sia lo stesso per la maschera e per il
report giusto?
immagino che al report tu passi un "parametro" (che puo' essere un ID,
piuttosto che altro) che e' il report che gli passi .
Se e' cosě devi fare sul bottone un loop sul recordset della query del tipo:
While Not RecordsetQueryMaschera.eof
          docmd.openreport "nomereport"
          RecordsetQueryMaschera.movenext
Whend
Ciao e fammmi sapere se va
Alessandro


title: Stampare più report

author: Giaino Flower

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> wrote in message
news:jlht8.16930$SR5.4...@twister1.libero.it...
> Ciao,
> immagino che il recorsource non sia lo stesso per la maschera e per il
> report giusto?
> immagino che al report tu passi un "parametro" (che puo' essere un ID,
> piuttosto che altro) che e' il report che gli passi .
Giusto gli passo un ID
> Se e' cosě devi fare sul bottone un loop sul recordset della query del tipo:
>
> While Not RecordsetQueryMaschera.eof
>           docmd.openreport "nomereport"
>           RecordsetQueryMaschera.movenext
> Whend
>
> Ciao e fammmi sapere se va
ho provato ma mi risponde "necessario oggetto"
ma  il RecordsetQueryMaschera che cosa č ?????
Grazie 1000 dell'aiuto Alessandro
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Stampare più report

text:
> ho provato ma mi risponde "necessario oggetto"
> ma  il RecordsetQueryMaschera che cosa è ?????
>
> Grazie 1000 dell'aiuto Alessandro
Ciao,
Il  RecordsetQueryMaschera e' ilre cordsetche devi aprire utilizzando la
query che e' origine della maschera
Sempre sul click del bottone
Dim rs as recordset
dim db as database
set db = currentdb
set rs = currentdb.openrecordset "Select........ecc....."   -----> questa
deve essere la query della maschera
rs.movefirst
poi quello che ti ho postato prima.
Cosi' dovrebbe andare fammi sapere ciao e figurati e' un piacere


title: Stampare più report

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> wrote in message
news:VQht8.17051$SR5.4...@twister1.libero.it...
> Sempre sul click del bottone
>
> Dim rs as recordset
> dim db as database
>
> set db = currentdb
> set rs = currentdb.openrecordset "Select........ecc....."   -----> questa
> deve essere la query della maschera
> rs.movefirst
>
> poi quello che ti ho postato prima.
>
> Cosi' dovrebbe andare fammi sapere ciao e figurati e' un piacere
Ciao Alessandro
ho seguito le tue istruzioni ma mi da sempre errore di sintassi......ho
copiato SQL generato dalla mia Query
    set rs = CurrentDb.openrecordset "SELECT Contratto.Codcontratto,
Contratto.DataInizio, Contratto.DataFine, Clienti.Nome, Clienti.Cognome,
Contratto.IDappartamento, Contratto.Clientitour FROM Appartamento INNER
JOIN (Clienti INNER JOIN Contratto ON Clienti.ID = Contratto.ID_Cliente)
ON Appartamento.IDappartamento = Contratto.IDappartamento WHERE
(((Contratto.DataInizio)>=[Forms]![SceltaPeriodoXRicevute]![datainizioPeriodo]
And
(Contratto.DataInizio)<=[Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo]))"
e mi da sempre errore di sintassi......
ho provato anche a fare:
    set rs = CurrentDb.openrecordset "MiaQuery"
ma il risultato non cambia.....
ma dove sbaglio?????
grazie



title: Stampare più report

text:
> Ciao Alessandro
> ho seguito le tue istruzioni ma mi da sempre errore di sintassi......ho
> copiato SQL generato dalla mia Query
>
>     set rs = CurrentDb.openrecordset "SELECT ..."
>
> e mi da sempre errore di sintassi......
>
> ho provato anche a fare:
>
>     set rs = CurrentDb.openrecordset "MiaQuery"
>
> ma il risultato non cambia.....
> ma dove sbaglio?????
> grazie
Ciao,
dunque e' male impostata la query per essere passata da codice(le righe che
ti ho segnato con * le ho corrette)
strsql = strsql & "SELECT Contratto.Codcontratto, "
strsql = strsql & "Contratto.DataInizio, Contratto.DataFine, Clienti.Nome,
Clienti.Cognome, "
strsql = strsql &  "Contratto.IDappartamento, Contratto.Clientitour "
strsql = strsql &  "FROM Appartamento "
strsql = strsql &  "INNER JOIN (Clienti INNER JOIN Contratto ON Clienti.ID =
Contratto.ID_Cliente) "
strsql = strsql &  "ON Appartamento.IDappartamento =
Contratto.IDappartamento "
*strsql = strsql &  "WHERE (((Contratto.DataInizio)>= # " &
format$([Forms]![SceltaPeriodoXRicevute]![datainizioPeriodo],"mm/dd/yy") &
"# And "
*strsql = strsql &   "(Contratto.DataInizio)<=#  " &
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo],],"mm/dd/yy"))) &
"#;"
set rs = CurrentDb.openrecordset  (strsql, dbopensnapshot )
Ciao e spero di averti aiutato
Alessandro


title: Stampare più report

text:
"Giaino Flower" <
gia...@galactica.it
> wrote in message
news:5b762643607a78a3195...@mygate.mailgate.org...
> "Alessandro Romeo" <
alessand...@hotmail.com
> wrote in message
> news:VQht8.17051$SR5.4...@twister1.libero.it...
OK ho scoperto l'errore di sintassi (mancavano le parentesi prima della
Qry)
Ho eseguito l'operazione ma mi dice che il tipo di oggetto non è
definito
(credo si riferisca a: Dim db as database)
e se tolgo le due righe
Dim db as database
Set db = currentDb
Mi dice che sono previsti due parametri....
...non ci sto capendo + nullaaaaaaaaaaaa
Ciao e grazie di nuovo



title: Stampare più report

text:
> OK ho scoperto l'errore di sintassi (mancavano le parentesi prima della
> Qry)
>
> Ho eseguito l'operazione ma mi dice che il tipo di oggetto non è
> definito
> (credo si riferisca a: Dim db as database)
> e se tolgo le due righe
>
> Dim db as database
> Set db = currentDb
>
> Mi dice che sono previsti due parametri....
>
> ...non ci sto capendo + nullaaaaaaaaaaaa
>
> Ciao e grazie di nuovo
Ciao,
Vai sull'editor di VBA
e da Strumenti-->Riferimenti-->Flagga la libreria "Microsoft Dao 3.51 object
library"
e riaggiungi le due righe
Ciao
Alessandro


title: Stampare più report

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> wrote in message
news:64xt8.20812$SR5.5...@twister1.libero.it...
> Ciao,
> Vai sull'editor di VBA
>
> e da Strumenti-->Riferimenti-->Flagga la libreria "Microsoft Dao 3.51 object
> library"
>
> e riaggiungi le due righe
>
> Ciao
>
> Alessandro
Okkappa avevo letto sulla guida ma andavo a cercare dal menů strumenti
di access....che pirlotto..
comunque mi chiede sempre i 2 Parametri, come se non li prendesse nella
Query....eppure la maschera che passa tali parametri
č aperta.....????
Ciao



title: Stampare più report

text:
> Okkappa avevo letto sulla guida ma andavo a cercare dal menů strumenti
> di access....che pirlotto..
> comunque mi chiede sempre i 2 Parametri, come se non li prendesse nella
> Query....eppure la maschera che passa tali parametri
> č aperta.....????
>
> Ciao
Ciao,
Prova ad inserire un punto di interruzione alla fine della creazione della
stringa e nella finestra "immediata" verifica il contenuto della stringa(
?nomestringa)
poi prova apostarla che vediamo il problema
Ciao Alessandro


title: Stampare più report

text:
"Alessandro Romeo" <
alessand...@hotmail.com
> wrote in message
news:Svxt8.20880$SR5.5...@twister1.libero.it...
> Ciao,
> Prova ad inserire un punto di interruzione alla fine della creazione della
> stringa e nella finestra "immediata" verifica il contenuto della stringa(
> ?nomestringa)
> poi prova apostarla che vediamo il problema
>
> Ciao Alessandro
Scusa Alessandro la mia ....ehm....durezza....
allora....ho inserito invece della stringa la query che genera la
maschera
(che per incisovisualizza tutti i dati)
Set rs = CurrentDb.openrecordset("QListaXricevute")
e mi chiede sempre i due parametri (che credo siano quelli della mia
query)
Poi ho sostituito in nome della query con la tua ultima stringa ma mi
dava errori di sintassi al formato della data
togliendolo non da problemi ma in esecuzione mi risponde un popup
NECESSARIO OGGETTO
eppure ho dimensionato tutto anche la stringa..
Provo a postarti la routine che scrive:
Private Sub stpricevute_Click()
On Error GoTo Err_stpricevute_Click
    Dim stDocName As String
    Dim strsql As String
    Dim rs As Recordset
    Dim db As Database
    strsql = strsql & "SELECT Contratto.Codcontratto, "
strsql = strsql & "Contratto.DataInizio, Contratto.DataFine,
Clienti.Nome,"
Clienti.Cognome , ""
strsql = strsql & "Contratto.IDappartamento, Contratto.Clientitour "
strsql = strsql & "FROM Appartamento "
strsql = strsql & "INNER JOIN (Clienti INNER JOIN Contratto ON
Clienti.ID = Contratto.ID_Cliente) "
strsql = strsql & "ON Appartamento.IDappartamento ="
Contratto.IDappartamento ""
strsql = strsql & "WHERE (((Contratto.DataInizio)>= #
format$([Forms]![SceltaPeriodoXRicevute]![DatainizioPeriodo])# And "
strsql = strsql & "(Contratto.DataInizio)<=#
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo],]))) #;"
Set db = CurrentDb
Set rs = CurrentDb.openrecordset(strsql)

   ' Set rs = CurrentDb.openrecordset("QListaXricevute")

    rs.MoveFirst
    stDocName = "Ricevute"
    While Not rs.EOF
          DoCmd.OpenReport stDocName, acPreview
          rs.MoveNext
    Wend

Exit_stpricevute_Click:
    Exit Sub
Err_stpricevute_Click:
    MsgBox Err.Description
    Resume Exit_stpricevute_Click

End Sub
Grazie 1000



title: Stampare più report

text:
> Provo a postarti la routine che scrive:
>
> Private Sub stpricevute_Click()
> On Error GoTo Err_stpricevute_Click
>
>     Dim stDocName As String
>     Dim strsql As String
>     Dim rs As Recordset
>     Dim db As Database
>     strsql = strsql & "SELECT Contratto.Codcontratto, "
>     strsql = strsql & "Contratto.DataInizio, Contratto.DataFine,
Clienti.Nome,Clienti.Cognome , "
>     strsql = strsql & "Contratto.IDappartamento, Contratto.Clientitour "
>     strsql = strsql & "FROM Appartamento "
>     strsql = strsql & "INNER JOIN (Clienti INNER JOIN Contratto ON
Clienti.ID = Contratto.ID_Cliente) "
>     strsql = strsql & "ON Appartamento.IDappartamento =
Contratto.IDappartamento ""
>   *  strsql = strsql & "WHERE (((Contratto.DataInizio)>=
#format$([Forms]![SceltaPeriodoXRicevute]![DatainizioPeriodo])# And "
>   *  strsql = strsql &
"(Contratto.DataInizio)<=#format$([Forms]![SceltaPeriodoXRicevute]![Datafine
Periodo],]))) #;"
Ciao,
Le rigne astreriscate hanno un piccolo errore, devono avere gli apici e la
concatenazione
*  strsql = strsql & "WHERE (((Contratto.DataInizio)>= # " &
format$([Forms]![SceltaPeriodoXRicevute]![DatainizioPeriodo]) & "# And "

        ---------
                                   --------
*  strsql = strsql & "(Contratto.DataInizio)<=#" &
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo] &"#))) ;"
                                                                 ---------

             ---------
Ciao Alessandro


title: stampa unione e password

author: marco

text:
Ciao a tutti
vorrei utilizzare la stampa unione con un BE protetto da password.
Apro Word da access e gli faccio eseguire la routine da quě, ma il problema
č che quando Word cerca di accedere alla tabella apre un'altra instanza di
Access e mi chiede la pwd del BE.
Vorrei evitare che l'utente, dopo aver avuto accesso al programma ed ai dati
con la password ne digitasse un'altra per stampare.
Cosě, scorrendo il codice di MailMerge ho visto che c'č il parametro
PasswordDocument..
Mi dico, metto lě la password ed ho risolto, ma non č cosě.
Infatti:
1) si apre un'altra istanza di Access
2) mi compare la richiesta di password
3) la routine va avanti, si autentica con Be tramite la password che gli ho
dato e si chiude correttamente facendo quello per cui era stata scritta.
4)  mi rimane appesa la mascherina di richiesta password.
C'č un modo per far collegare Word in modo "silenzioso" ed "invisibile" ad
access, farlo autenticare passandogli la Pwd digitata in apertura e farlo
chiudere allo stesso modo?
Ciao a tutti
Marco
Il codice che uso č questo.
Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.application")
WordApp.Visible = False
WordApp.ActiveDocument.MailMerge.OpenDataSource PercorsoDatabase,
ConfirmConversions:=False, _
                                 ReadOnly:=True, LinkToSource:=True,
AddToRecentFiles:=False, _
                                 PasswordDocument:="pippo",
PasswordTemplate:="", WritePasswordDocument:="", _
                                 WritePasswordTemplate:="", Revert:=False,
Format:=wdOpenFormatAuto, _
                                 Connection:="TABLE StampaTrascrizioni", _
                                 SQLStatement:="SELECT * FROM [Tabella1]"
With WordApp.ActiveDocument.MailMerge
        With .DataSource
             .FirstRecord = 1
             .LastRecord = 1
        End With
        .Execute Pause:=True
End With
WordApp.ActiveDocument.SaveAs FileName:=PercorsoFile
'chiude Word
WordApp.ActiveDocument.Close
WordApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
WordApp.Quit
Set WordApp = Nothing


title: aggiornamento visualizzazione sottomaschera

author: massimiliano

text:
salve a tutti,
avrei un problema che spero mi aiutate a risolvere.
da
una sottomaschera lancio una esecuzione di query, fin qui tutto bene.
I
risultati di questa query xň sono visualizzati in un'altra sottomaschera la
quale dovrebbe refresharsi e mostrare il nuovo valore, ma ciň non accade:
se dalla maschera lancio
   DoCmd.RunCommand acCmdRefresh
va bene ma non
so come lanciarlo dalla sottomaschera.
mi date una mano?
--------------------------------
Inviato via
http://usenet.iol.it


author: Lorenzo dal lavoro

text:
Hai provato con Forms![Maschera]![Sottomaschera].Refresh nell'evento "Dopo
Aggiornamento" della Maschera principale? O cmq qualcosa di simile, adesso
nn conosco esattamente la tua procedura.
ciao
Lorenzo


text:
>Hai provato con Forms![Maschera]![Sottomaschera].Refresh nell'evento "Dopo
>Aggiornamento" della Maschera principale? O cmq qualcosa di simile, adesso
>nn conosco esattamente la tua procedura.
ciao e anzitutto grazie,
sě in molteplici variazioni, ma nada, sono quasi avvilito
ciao
Massimiliano



title: rete lentezza

author: FRANCESCOSANTELLI

text:
Vorrei condividere in rete un'applicazione realizzata con acces. Sarebbe per
un'azienda con una cinquantina di sedi in provincia gia collegate. Ho fatto
una prova preliminare con Northwind. Dalla mia postazione ho fatto la
divisione ed ho trasferito il Be sul server ( fisicamente a livello del
capoluogo). Poi dalla mia postazione ho fatto partire la maschera ordini. Il
tempo di apertura (parecchi secondi) è inaccettabile. E' possibile risolvere
l'inconveniente ? in quali modi ?
Ringrazio sindora chi mi dara indicazioni utili.


title: rete lentezza

author: Marco

text:
> Vorrei condividere in rete un'applicazione realizzata con acces. Sarebbe
> per
> un'azienda con una cinquantina di sedi in provincia gia collegate. Ho
> fatto
> una prova preliminare con Northwind. Dalla mia postazione ho fatto la
> divisione ed ho trasferito il Be sul server ( fisicamente a livello del
> capoluogo). Poi dalla mia postazione ho fatto partire la maschera ordini.
> Il
> tempo di apertura (parecchi secondi) č inaccettabile. E' possibile
> risolvere
> l'inconveniente ? in quali modi ?
Se devi gestire un db in remoto, access č sicuramente la soluzione meno
adatta.
Devi spostarti su DBMS piů professionali come SQL Server, MySQL, ...
Ciao
Marco


title: rete lentezza

author: Sergio MAZZA

text:
"FRANCESCOSANTELLI" <
hi...@tin.it
> ha scritto nel messaggio news:438896fa$0$16202$4faf...@reader3.news.tin.it...

Oltre al sacrosanto suggerimento di Marco, cerca nei messaggi precedenti l'esperimento fatto da MAssiliano e Carlo Costarella con la
"rete" di hamaci (
http://www.hamachi.cc/).
..
Ciao.
--
Sergio MAZZA


title: rete lentezza

author: Pinco pallino

text:
"FRANCESCOSANTELLI"

Per queste situazioni esistono i Terminal Services.
Anche se cinquanta postazioni giustificano ampiamente il ricorso a Server
SQL come BE...
Ciao.


title: Esiste servizio/archivio per avere anagrafica da partita Iva ?

author: RobertoA

text:
Visto che tocca rimettere mano al formato fatture elettroniche,
ripropongo quesito gia' posto tempo fa, rimasto insoluto
Magari nel frattempo e' saltato fuori qualcosa di nuovo
La domanda e':  come fare per avere l'anagrafica del cliente inserendo
solamente la partita Iva?
Per tutte quelle attivita' che vendono al banco ed hanno dei picchi
temporanei di lavoro, come ad esempio i ristoranti/pizzerie che lavorano
coi clienti sostanzialmente 2-3 ore a pranzo e 2-3 ore di sera,
risparmiare anche i 60 secondi per inserire i dati del cliente che
chiede la fattura potrebbe essere di grande vantaggio
Personalmente conosco un paio di sistemi che hanno questa funzionalita',
che pero' non so come realizzano tecnicamente

Uno e' l'ambiente Fatturapa.com, e' il classico intermediario che ti
permette di, dal suo ambiente via web, inserire i dati fattura e poi
inviarla al sistema Agenzia Entrate
Nella sezione 'anagrafica cliente' se inserisci la partita Iva il loro
sistema ti propone in automatico tutti i dati anagrafica, che spesso
sono piu' corretti rispetto a quelli che lascia il cliente

L'altro sistema lo propone un utente di
https://forum.italia.it

vantando la possibilita' di restituire i dati anagrafici dopo aver
fornito solamente la partita iva, come faccia nin si sa

Quindi, ritornando alla domanda originale: conoscete qualche sistema che
consenta automaticamente di recuperare le informazioni anagrafica
cliente data la sola partita Iva?


author: Simone Calligaris

text:
> Quindi, ritornando alla domanda originale: conoscete qualche sistema che
> consenta automaticamente di recuperare le informazioni anagrafica
> cliente data la sola partita Iva?

Tu lo conosci di certo, dato che anni fa postasti un web-service adatto allo scopo:

https://groups.google.com/g/it.comp.appl.access/c/fMosGnhGVtY/m/-j_cdTlFBAAJ

Non ti soddisfa?

Saluti


text:

Quella routine era per leggere dal Vies
Ma solo una parte delle partite iva italiane sono iscritte al Vies
Non conosco bene la percentuale rispetto alla totalita' ma e' comunque
un sistema che non restituirebbe l'anagrafica della maggior parte delle
ditte italiane


text:
> Quella routine era per leggere dal Vies
> Ma solo una parte delle partite iva italiane sono iscritte al Vies
> Non conosco bene la percentuale rispetto alla totalita' ma e' comunque
> un sistema che non restituirebbe l'anagrafica della maggior parte delle
> ditte italiane

Ho fatto qualche test e la percentuale di PIVA riconosciute è buona.
Comincia a implementare quel webservice e un vantaggio concreto lo darai alla tua committenza, poi col tempo magari trovi qualcos'altro di più esaustivo.

Saluti


text:

Gia' ce l'ho, da quando ho messo il post
Non mi e' sufficiente e sto cercando il sistema alternativo
Vedendo che si puo' fare (perche' altri gia' lo fanno) vorrei farlo pure io
Quando dici che la percentuale di Piva riconosciute e' 'buona' cosa
intendi realmente?
Io ho fatto un test su circa 4k anagrafiche di un archivio di clienti
sicuramente attivi e me ne ha trovate circa il 35%
Dal mio punto di vista, una buona percentuale potrebbe essere il 90%


text:
> Io ho fatto un test su circa 4k anagrafiche di un archivio di clienti
> sicuramente attivi e me ne ha trovate circa il 35%

Dio mio, ho semplicemente testato il webservice su una ventina di nominativi a caso: li ha beccati praticamente tutti.
Probabilmente è stata solo fortuna.

Saluti


author: Emiliano Baldoni

text:
Puoi provare questo:

https://www.inipec.gov.it/cerca-pec/-/pecs/companies

ti restituisce la ragione sociale e la pec.


title: Appello dalla Topona

author: Alessia

text:
Qui la Topona.
Dico ma non avete un'altra foto di gruppo da inserire?
Alla fine più che una Topona sembro un Bradipo.
Vi dico solo che, quando molto entusiasticamente, ho fatto vedere le foto a
mia mamma mi ha detto:
-mamma di Topona:
 "Ma tu dove sei?"
-Topona:
"Qui in mezzo, quella con la camicia bianca"
-mamma di Topona:
"Ma dai quello è un uomo!!!!"
Ecco il risultato ottenuto. Che tristezza.
L'unica volta che compaio in mezzo a tanti "mici" vengo scambiata per un
uomo, anche da mia mamma.
Magari un fotomontaggio? Non vi va.
Be io ci ho provato, almeno scrivete che dal vero sono mooolto ma mooolto
meglio.
Saluti
Alessia.


title: Appello dalla Topona

text:
"Alessia" <
sd...@sdag.it
> ha scritto nel messaggio
news:8u94t1$r53$1...@pc1.spin.it...

Dai non ci pensare, per noi sei sempre la Topona! (con la ti maiuscola)...
Ciao.


title: Appello dalla Topona

author: Federico Luciani

text:
Alessia wrote:
> Qui la Topona.
> Dico ma non avete un'altra foto di gruppo da inserire?
> Alla fine più che una Topona sembro un Bradipo.
> Vi dico solo che, quando molto entusiasticamente, ho fatto vedere le foto a
> mia mamma mi ha detto:
> -mamma di Topona:
>  "Ma tu dove sei?"
> -Topona:
> "Qui in mezzo, quella con la camicia bianca"
> -mamma di Topona:
> "Ma dai quello è un uomo!!!!"
> Ecco il risultato ottenuto. Che tristezza.
> L'unica volta che compaio in mezzo a tanti "mici" vengo scambiata per un
> uomo, anche da mia mamma.
> Magari un fotomontaggio? Non vi va.
> Be io ci ho provato, almeno scrivete che dal vero sono mooolto ma mooolto
> meglio.
> Saluti
> Alessia.
Purtroppo al momento le foto di gruppo in mio possesso sono solo quelle.
Al piu' presto spero di ricevere tutte le altre, dopodiche ti faccio scegliere
;-)
Per il momento non pensarci, come dice Sergio, sei la nostra Topona!!
--
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: Appello dalla Topona

text:
Ma quanto siete carini . . . sto gongolando . . . gongolo ancora  . . . .
Grazie Ale


title: Appello dalla Topona

author: Roberto da casa

text:
"Alessia" <
sd...@sdag.it
> ha scritto nel messaggio
news:8u94t1$r53$1...@pc1.spin.it...
> Qui la Topona.
> Dico ma non avete un'altra foto di gruppo da inserire?
> Alla fine più che una Topona sembro un Bradipo.
> Vi dico solo che, quando molto entusiasticamente, ho fatto vedere le foto
a
> mia mamma mi ha detto:
> -mamma di Topona:
>  "Ma tu dove sei?"
> -Topona:
> "Qui in mezzo, quella con la camicia bianca"
> -mamma di Topona:
> "Ma dai quello è un uomo!!!!"
> Ecco il risultato ottenuto. Che tristezza.
> L'unica volta che compaio in mezzo a tanti "mici" vengo scambiata per un
> uomo, anche da mia mamma.
> Magari un fotomontaggio? Non vi va.
> Be io ci ho provato, almeno scrivete che dal vero sono mooolto ma mooolto
> meglio.
> Saluti
> Alessia.
>
Ogni tuo desiderio è un ordine
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Appello dalla Topona

author: Silvio Berruti

text:
"Alessia" <
sd...@sdag.it
> ha scritto nel messaggio
news:8u94t1$r53$1...@pc1.spin.it...
> mia mamma mi ha detto:
> -mamma di Topona:
>  "Ma tu dove sei?"
> -Topona:
> "Qui in mezzo, quella con la camicia bianca"
> -mamma di Topona:
> "Ma dai quello č un uomo!!!!"
Sappi comunque che ho fatto vedere la foto originale (prima del ritocco),
che avevo stampato, alla mia di mamma e lei ha detto:
"Ahh! C'era anche una ragazza tra i programmatori!!! Dev'essere brava anche
lei!"
Nel senso, credo, brava a programmare...  :-)))
Di + non si č sbilanciata.
Consiglierei, d'altronde, di prenotare una nuova visita oculistica alla tua
genitrice.
Ciao
--
Silvio



title: Filmato flash in access?

author: NAo+

text:
Ho creato un piccolo filmatino in flash, vorrei visualizzarlo sulla form
iniziale del mio database.
Ho creato una nuova form, in modalita struttura ho dato inserisci oggetto ->
Flash movie
fino a qui tutto ok, ho il mio movie li sulla maschera.
PROBLEMA:
Come posso fare per avviare il movie all'apertura della maschera?, so che
devo intercettare l'evento onload, ma non so che codice mettergli dentro.
Ringrazio infinitamente chi mi aiuta..
Ciao Nadir


title: Troppi DoEvents?!

author: OneEDP

text:
Vi risulta che l'abuso di DoEvents crei problemi di chiusura improvvisa di
Access 2003?
Grazie
Daniele


title: Troppi DoEvents?!

author: Alessandro Cara

text:
OneEDP ha scritto:

No.
Che intendi per abuso?
do until i>10^7
	i=i+1
	doevents
loop
tipo questo?
--
ac


title: Troppi DoEvents?!

author: Carlo Costarella

text:
"OneEDP" <OneEDP@antispam> ha scritto nel messaggio
news:49a67b3d$0$1114$4faf...@reader2.news.tin.it...

Sě. Troppi doevents, specie in un ciclo, consumano (potrebbero) lo stack di
memoria a disposizione dell'applicativo.
Poi dipende da dove č usato...creando anche altri tipi di problemi.
Per uno sguardo (versione 2007):
http://office.microsoft.com/it-it/access/HA012288271040.aspx
Ciao, Carlo


title: Troppi DoEvents?!

author: Bruno Campanini

text:
"OneEDP" <OneEDP@antispam> wrote in message
news:49a67b3d$0$1114$4faf...@reader2.news.tin.it...

Per quante volte l'abbia inserito credendolo di qualche utilità,
per tante volte l'ho poi tolto non avendone riscontrata alcuna.
Sarei lieto qualcuno me ne desse dimostrazione contraria.
Bruno


title: Troppi DoEvents?!

text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:0Avpl.45603$8Z.4...@tornado.fastwebnet.it...

1° Prima finestra on Timer
2° Seconda finestra on Timer
3° Private WithEvents cnn As ADODB.Connection
4° While cnn.state = adStateExecuting ... DOEvents (PIGRIZIA)
5° Procedura chiamante
Una sorta di nidificazione
Daniele


title: Troppi DoEvents?!

text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:49a69d6b$0$841$4faf...@reader5.news.tin.it...

Copio e incollo
"Sospende l'esecuzione in modo che il sistema operativo possa elaborare
altri eventi." in coda
Perché, in una elaborazione lunga, devi constringere l'utente a stare
piantato e non darli la possibilità di annullare, effettuare altre
elaborazioni, effettuare il refresh dello schermo, visualizzare lo stato di
avanzamento lavori, ecc, ecc, ecc specialmente su pc più datati.
Tieni presente che tutto il Jet funziona così mentre si visualizzano le
informazioni sulle maschere.
Ad all'utente gli è stata data la possibilità di richiedere milioni di
record sul server (esaspero) e non esiste nessun DoEvents, non avrà mai la
possibilità di ripensarci.
Inoltre DoEvents lo trovo molto utile in fase di debug, altrimenti non
riuscirei a "vedere" quello che succede.
Ciao
Daniele


title: Troppi DoEvents?!

text:
"OneEDP" <OneEDP@antispam> wrote in message
news:49a6a657$0$1117$4faf...@reader1.news.tin.it...
> Copio e incollo
> "Sospende l'esecuzione in modo che il sistema operativo possa elaborare
> altri eventi." in coda
> Perché, in una elaborazione lunga, devi constringere l'utente a stare
> piantato e non darli la possibilità di annullare, effettuare altre
> elaborazioni, effettuare il refresh dello schermo, visualizzare lo stato
> di avanzamento lavori, ecc, ecc, ecc specialmente su pc più datati.
> Tieni presente che tutto il Jet funziona così mentre si visualizzano le
> informazioni sulle maschere.
> Ad all'utente gli è stata data la possibilità di richiedere milioni di
> record sul server (esaspero) e non esiste nessun DoEvents, non avrà mai la
> possibilità di ripensarci.
Sì questo lo so e mi sta proprio bene che mentre la CPU è indaffarata
nussuno intervenga a disturbarla.
> Inoltre DoEvents lo trovo molto utile in fase di debug, altrimenti non
> riuscirei a "vedere" quello che succede.
Questa invece non la so.
Se me la rispiegassi...
Bruno


title: Troppi DoEvents?!

text:
"Bruno Campanini" <
B...@gmail.com
> ha scritto nel messaggio
news:49a6bfc1$0$1116$4faf...@reader4.news.tin.it...

Le ragioni le ho evidenziate prima.
La ragione è molto empirica ma in prima battuta (a meno di eseguire il
codice in debug) il refresh dello schermo "dovrebbe" essere più
corrrispondente all'elaborazione in corso se vengono aggiornate
opportunamente i testi da visualizzare e quindi riesco a "vedere"
> Bruno


title: Troppi DoEvents?!

text:
"OneEDP" <OneEDP@antispam> wrote in message
news:49a6c4b1$0$17431$4faf...@reader5.news.tin.it...
> Le ragioni le ho evidenziate prima.
> La ragione è molto empirica ma in prima battuta (a meno di eseguire il
> codice in debug) il refresh dello schermo "dovrebbe" essere più
> corrrispondente all'elaborazione in corso se vengono aggiornate
> opportunamente i testi da visualizzare e quindi riesco a "vedere"
Queste parole di colore oscuro
        vid'io scritte al sommo d'una porta
        per ch'io: "Maestro il senso lor m'è duro"
Ma non ti preoccupare e grazie della disponibilità.
Bruno


title: Troppi DoEvents?!

text:
OneEDP ha scritto:

Uhmmm temo che sei incappato in cio' che Carlo ti ha evidenziato con il
link.
Personalmente evito di attivare piu' di un timer. L'evento di timer, mi
e' successo per una procedura vb(meglio non rivangare, se ci penso
ancora ho voglia di sodomizzare colui che mi aveva attivato 5 timers),
scatta anche se il sistema sta ancora elaborando altre cose.
Quando ho una situazione di attesa (adStateExecuting, o come mi sta
capitando in una applicazione che ho appena fatta [READYSTATE_COMPLETE])
generalmente uso la funzione sleep (sleep va "declarata") per evitare i
cicli molto stretti
i.e.
     wb01.Navigate2 sModello
     Do until wb01.ReadyState
         DoEvents
         Sleep 200
     Loop
in questo caso perdo al massimo 0,2sec ma cosa sono in confronto
all'eternita!
--
ac


title: Troppi DoEvents?!

text:
Bruno Campanini ha scritto:

  Ed elli a me, come persona accorta:
«Qui si convien lasciare ogne sospetto;
ogne viltà convien che qui sia morta.
Noi siam venuti al loco ov' i' t'ho detto
che tu vedrai le genti dolorose
c'hanno perduto il ben de l'intelletto».
Ahhh....l'nfernale terzo canto, uno dei miei preferiti
--
ac


title: Troppi DoEvents?!

text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:2TApl.46067$8Z.4...@tornado.fastwebnet.it...

! C'è una events e poi un freeze?
>         Sleep 200
>     Loop
>
> in questo caso perdo al massimo 0,2sec ma cosa sono in confronto
> all'eternita!
> --
> ac
>
>
>
>
Con adStateExecuting Sleep 200 è troppo leggera e Access di chiude
inesorabilmente!
Aumentando il time questo non succede.
Nel mio caso
While .State = adStateExecuting
                    Debug.Print Now()
                    DoEvents
                    Sleep 200
Wend
Debug.Print "Fine", Now()
ho notato che DoEvents non viene immediatamente percepita (perché
evidentemente ci sono altri task in coda).
In ogni caso ritengo che essendoci al massimo tre stack di chiamate e UN
solo On Timer su una form, Access non è che sia proprio un fenomeno di
stabilità.
Allora mi è venuto in mente  che esiste questo bellissimo leggerissimo
freeware che permette di assegnare dinamicamente la CPU in modo automatico o
mirato per applicazione e così l'ho provato subito.
Impostando MSACCESS.EXE Below Normal (per sicurezza) su un PC con E5200 non
ho più la necessità di impostare alcuno sleep e posso stare tranquillo che
non esaurirò gli stack con i vari timer e doevents
http://www.pcprofessionale.it/2008/11/26/download-del-giorno-process-tamer/
Che ne pensi se lo rendiamo noto anche agli altri del NG in modo più
esplicito.
Grazie mille
Daniele


title: Troppi DoEvents?!

text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:2TApl.46067$8Z.4...@tornado.fastwebnet.it...

Scusami se forzo il thread. Le cose sono quasi pertinenti.
Con adAsyncExecute non ottengo i record esaminati.
Puoi aiutarmi ... il thread inizia non "Banale....."
Grazie


title: Troppi DoEvents?!

text:
OneEDP ha scritto:
[cut]
> ho notato che DoEvents non viene immediatamente percepita (perché
> evidentemente ci sono altri task in coda).
beh....generalmente quelli che vedi nel taskmanager
> In ogni caso ritengo che essendoci al massimo tre stack di chiamate e UN
> solo On Timer su una form, Access non è che sia proprio un fenomeno di
> stabilità.
Questo era chiaro. Ma se non ho letto e/o capito male hai UN timer sul
form ed UNO sul subform.
Uhmmm.....forse sbaglio ma la stabilita' e robustezza, secondo me,
dipendono molto dalla architettura. Anche un ponte al titanio fonde se
pensi di usarlo per collegare due macchie solari.
> Allora mi è venuto in mente  che esiste questo bellissimo leggerissimo
> freeware che permette di assegnare dinamicamente la CPU in modo automatico o
> mirato per applicazione e così l'ho provato subito.
>
> Impostando MSACCESS.EXE Below Normal (per sicurezza) su un PC con E5200 non
> ho più la necessità di impostare alcuno sleep e posso stare tranquillo che
> non esaurirò gli stack con i vari timer e doevents
>
>
http://www.pcprofessionale.it/2008/11/26/download-del-giorno-process-tamer/
>
> Che ne pensi se lo rendiamo noto anche agli altri del NG in modo più
> esplicito.
Queste segnalazioni sono sempre utili, cionontoglie preferisco evitare
"nodi" aggiuntivi quando possibile.
--
ac


title: TransferSpreadsheet e modifica del foglio trasferito

author: Massimo

text:
Salve,
E' possibile trasferire i dati ad excel usando il metodo TransferSpreadsheet
e poi immediatamente (cioč all'interno della stessa sub) aprire il file
trasferito per modificare alcune celle?
Sono orientato verso questa soluzione "mista" in quanto ho potuto verificare
che TransferSpreadsheet č fulmineo nei trasferimenti mentre l'altro metodo,
consistente nell'apertura di un dynaset e copia/incolla dei valori su excel,
č relativamente lento.
La risposta che ricevo da access č che non č possibile attivare la ricerca
di un file durante un'operazione di automazione.
Avete qualche idea?
Grazie
Massimo


title: [Segnalazione] Recenzione su Access 12

author: MA

text:
Vi segnalo una prova effettuata da sysadmin
http://www.sysadmin.it/pages/news/news.asp?ID=2384
buona lettura
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: [Segnalazione] Recenzione su Access 12

author: Mirko Caporali

text:
MA ha scritto:
> Vi segnalo una prova effettuata da sysadmin
Scusa, sai quando esce la versione "definitiva"?
Mi sembrava di aver letto settembre, poi che sia slittata al 2007 ?


title: [Segnalazione] Recenzione su Access 12

text:

Non te lo so dire, quando Bill viene a cena da me, non parliamo mai di
lavoro



title: [Segnalazione] Recenzione su Access 12

text:
MA ha scritto:
> Non te lo so dire, quando Bill viene a cena da me, non parliamo mai di
> lavoro
Comunque, salutamelo è un pò che non ci vediamo :-)


title: [Segnalazione] Recenzione su Access 12

author: ciroteo

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dtmh91$8av$1...@area.cu.mi.it...
> Mirko Caporali wrote:
>> MA ha scritto:
>>
>>> Vi segnalo una prova effettuata da sysadmin
>>
>> Scusa, sai quando esce la versione "definitiva"?
>> Mi sembrava di aver letto settembre, poi che sia slittata al 2007 ?
> Non te lo so dire, quando Bill viene a cena da me, non parliamo mai di
> lavoro
> --
ma tu hai visto che nel vialetto di casa sua ha posizionato delle serpentine
riscaldanti che si attivano in caso di neve?
io non sono mai scivolato infatti ...
(l'ho sentita quando è andato da Fazio ...)


title: [Segnalazione] Recenzione su Access 12

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dtmgh2$6hh$1...@area.cu.mi.it...

dal sito:
Le principali novità
- Disponibilità di database già predefiniti per gli utenti finali
- Interfaccia dell'area di lavoro completamente riprogettata, con impiego
del Navigation Pane (pannello di navigazione)
- Gestione di più formati di immagini grafiche, senza aumento delle
dimensioni del database
jpeg nativi? o controlli immagine come ocx kodak?
- Nuovi tipi di dato: Attachment e Lookup Wiz
- Nuovo motore di database ACE (Access Data Engine) al posto di Jet
?
- Gestione della condivisione dei dati in SharePoint e più semplice
aggiornamento di database esterni
vedasi cisa 1 ...
- Stampe in formato PDF
questo è ottimo direi.


title: [Segnalazione] Recenzione su Access 12

author: S. Savoldi

text:
"Mirko Caporali"
> MA ha scritto:


A occhio e croce la versione "definitiva", diciamo utilizzabile, uscirà a
fine 2010: dopo 3/4 Service Packs  ;-)
....


title: [Segnalazione] Recenzione su Access 12

text:
"MA"
> Vi segnalo una prova effettuata da sysadmin
>
http://www.sysadmin.it/pages/news/news.asp?ID=2384
> buona lettura
Recensione che non dice quasi nulla: molto meglio dare un'occhiata al blog
ufficiale:
http://blogs.msdn.com/access/


title: CompactDatabase ERRORE description

author: ulderico

text:
Buongiorno a tutti,
stamani improvvisamente in fase di backup del Db mi restitutisce
l'errore "impossibile trovare il campo description" e facendo il debug
si arresta nella seguente riga:
mjet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
mpath & mfiletemp, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mpath & mfiledest
per completezza Vi posto l'intera function e vi dico che compilando il
modulo non restituisce errori:
Function backup()
    Dim fs, mtime As Integer, mext As String, mpath As String, mjet As
New jro.JetEngine
    Dim mfiledest As String, mfiletemp As String
    'funzione utilizzabile in qualunque database, senza alcun
adattamento
    mtime = Int(Mid(CStr(Time), 1, 2))
    mext = IIf(mtime < 13, "MAT_", "POM_")
    mfiledest = "backup_" & mext & CurrentProject.Name
    mpath = EstraePercorso(CurrentProject.FullName)
    With Application.FileSearch
        .LookIn = mpath
        .FileName = mfiledest
        .MatchTextExactly = True
        If .Execute > 0 Then
            If CDate(Mid(FileDateTime(.FoundFiles(1)), 1, 11)) = Date
Then
                GoTo fine
            Else
                Kill mpath & mfiledest
            End If
        Else
            GoTo backup
        End If
    End With
backup:
    mfiletemp = "backup_" & CurrentProject.Name
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Dir(mpath & mfiletemp) <> "" Then Kill mpath & mfiletemp
    fs.copyfile mpath & CurrentProject.Name, mpath & mfiletemp, True
    mjet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & mpath & mfiletemp, _
                         "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & mpath & mfiledest
    Kill mpath & mfiletemp
fine:
end function
Grazie.


title: CompactDatabase ERRORE description

author: Karl Donaubauer

text:
ulderico wrote:
> stamani improvvisamente in fase di backup del Db mi restitutisce
> l'errore "impossibile trovare il campo description" e facendo il debug
> si arresta nella seguente riga:
>
> mjet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> ...
Di solito il messaggio significa una corruzione del db.
Fai una copia di sicurezza del file e prova se puoi compattare il db
a mano. Se no, vedi p.e.
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/81dd1fa7f4e7891a/b03fdbae68651b2d
e
http://groups.google.com/group/it.comp.appl.access/msg/3ef7ce3e20f92e6e
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: CompactDatabase ERRORE description

text:
On 23 Giu, 13:10, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> ulderico wrote:
> > stamani improvvisamente in fase di backup del Db mi restitutisce
> > l'errore "impossibile trovare il campo description" e facendo il debug
> > si arresta nella seguente riga:
>
> > mjet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> > ...
>
> Di solito il messaggio significa una corruzione del db.
> Fai una copia di sicurezza del file e prova se puoi compattare il db
> a mano. Se no, vedi p.e.
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/.
..
> ehttp://
groups.google.com/group/it.comp.appl.access/msg/3ef7ce3e20f92e6e
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Provando e riprovando dopo aver fatto la copia di backup a mano, mi ha
restituito un errore sulla riga:
  fs.copyfile mpath & CurrentProject.Name
in effetti non riusciva a copiare il file.
Il problema era (ho risolto) la lentezza delle rete di stamani,
infatti riflettendoci con calma il file da copiare è sulla rete.
Probabilmente il primo messaggio nascondeva l'impossibilità di
applicare il metodo Copyfile anche se l'errore avveniva sulla riga
successiva, sei d'accordo con questa teoria ??
Grazie Karl.


title: CompactDatabase ERRORE description

text:
ulderico wrote:
> Karl Donaubauer wrote:
>>> stamani improvvisamente in fase di backup del Db mi restitutisce
>>> l'errore "impossibile trovare il campo description" e facendo il
>>> debug si arresta nella seguente riga:
>>
>>> mjet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data
>>> Source=" & ...
> ...
> Provando e riprovando dopo aver fatto la copia di backup a mano, mi ha
> restituito un errore sulla riga:
>
>   fs.copyfile mpath & CurrentProject.Name
>
> in effetti non riusciva a copiare il file.
>
> Il problema era (ho risolto) la lentezza delle rete di stamani,
> infatti riflettendoci con calma il file da copiare è sulla rete.
>
> Probabilmente il primo messaggio nascondeva l'impossibilità di
> applicare il metodo Copyfile anche se l'errore avveniva sulla riga
> successiva, sei d'accordo con questa teoria ??
Se ho capito bene, il tuo codice fai una copia del db corrente. (?)
Copiare un file aperto è sempre una lotteria e puo risultare
in una copia danneggiata. Questo potrebbe spiegare l'errore
che hai segnalato prima.
Compattare il db corrente (da A00 a A03) è molto più facile con
il codice che trovi qui:
www.donkarl.com/it?FAQ6.6
.
Se sbaglio e si tratta di un db diverso che vuoi compattare,
prova con il codice che trovi qui:
www.donkarl.com/it?FAQ6.7



title: CompactDatabase ERRORE description

text:

> Access FAQ:
www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -
hai capito bene,  il codice fa una copia del db corrente rinominadolo
(mfiletemp = "backup_" & CurrentProject.Name )
poi compatta  "backup_****" che è chiuso e poi lo copia rinominadolo
ancora (MAT o POM)  e alla fine "killa" il temporaneo
("backup_****" )  ...---  forse è più facile se leggi il codice.
Grazie ancora Karl,  sempre puntuale e preciso.


title: Problema su  query campi incrociati e maschera

author: Winston Smith

text:
Salve a tutti,
vorrei una dritta su un problema.
Avendo una query a campi incrociati tipo:

           GEN  FEB  MAR  APR ecc
ARTICOLO1   5    6    8    8  ecc
ARTICOLO2   3              6  ecc
...
...

che vado a visualizzare su una maschera prefincata.

Mi capita che su alcune analisi magari non ho il dato
dei primi 5 mesi per esempio.
Mancando il campo nella query sulla maschera viene
visualizzato l'errore #NOME?.

Come potrei gestire il problema? Mi basterebbe riuscire
a nascondere l'errore nella visualizzazione della maschera
mantenedo la fincatura invariata.
E' possibile ?

Grazie


author: Riccardo Baldinotti

text:

Dovrebbe essere sufficiente impostare i nomi dei campi nella query. Fai così: in modalità Visualizza struttura, hai sopra le origini dati e sotto i campi. Vai al menu Progettazione; nel ribbon hai, in fondo a destra, l'icona Finestra delle proprietà: se questa non è aperta, ci clicchi sopra; a questo punto clicchi sulla sezione di sopra della query, quella con le tabelle di origine dati; nelle Proprietà avrai diverse righe di opzioni, la terza è Intestazioni colonne; lì scriverai i nomi dei campi, per esempio: "GEN";"FEB";"MAR";... I nomi vanno fra virgolette e separati dal punto e virgola.
Quando visualizzi i dati, hai tutte le colonne, anche se alcune sono prive di dati.
Buon lavoro
Riccardo Baldinotti


title: errore di runtime 6 overflow aprendo recorset da vba

text:
richiamo una sub da codice vba come riportato qui sotto
    PrelevaBanca (Forms![fatturamom]![Bancaid])
il codice della sub è il seguente:
--- CODE -----------
Public Sub PrelevaBanca(ID As Integer)
    'incremento il contatore
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("select * from banche where(banche.cont=" & ID
& ")")
    If rs.RecordCount = 1 Then
        Reports![Fatturapre]![banca] = rs!NOMEBANCA & " AGENZIA:" &
rs!SEDEBANCA & " ABI:" & rs!ABI & " CAB:" & rs!CAB
    Else
        MsgBox "BANCA NON TROVATA!", , ""
    End If
    rsContatore.Close
    Set db = Nothing
End Sub
la tabella contine 28000 record, può dipendere dal numero eccessivo di
record?
Grazie a tutti.


text:
>
> la tabella contine 28000 record, può dipendere dal numero eccessivo di
> record?
> Grazie a tutti.
>
ho trovato il problema era dovuto al tipo del parametro della sub che era
integer e gli passavo un valore ID oltre il massimo consentito per l'integer
ho risolto mettendo tipo LONG nel parametro
Grazie lo stesso a tutti.


title: convertire boolenai in valorei di un campo txt

author: Alb

text:
ho una tabella "professionisti" con i soliti campi (ID_prof, nome,
cognome,..) ed in piu' dei campi si/no (per l'esattezza questi ultimi sono:
a_alta, a_bassa, b_alta, b_bassa,c_alta,c_bassa), dove la lettera indica la
tipologia di lavori che puo' compiere, e "alta" o "bassa" la fascia di
reddito.
(a=prog. architettonica, b=prog. opere strutturali, c=prog. impianti a
fluidi)
Ho poi una tabella "prestazioni", parte a-molti della relazione con la
tabella "professionisti".
Ho creato relativa maschera di inserimento dati per inserire le  ogni
prestazione effettuata da ogni professionista.
Problema:
nella maschera voglio creare una combo che mi permetta
1) di selezionare SOLO le tipologie richieste
2) dovrei vedere il testo (es."prog. architettonica"), non "a".
ma a_alta, e gli altri sono campi booleani i uno stesso record. Come faccio
a trasferire la loro denominazione (es. "prog. opere strutturali) come
valori di un'unico campo su cui creare la combo efare la requery (altro
mistero!)???
grazie a tutti, e spero stavolta di essere stato chiaro
Alb:-)


title: problemi su invio mail con winsock

author: Wild

text:
ho provato ad utilizzare l'esempio presente sul sito comune dell'invio di
e-mail tramite winsock.
non so come mai mi da errore nell'invio. ho già istallato e registrato
l'ocx.ho office xp.
sapete come aiutarmi?
grazie a tutti


title: problemi su invio mail con winsock

text:
ho provato ad inserire il controllo sul form e mi dice che non ho la licenza
per utilizzarlo...come posso fare?


title: MDB per antiriciclaggio

author: Pilan Simone

text:
Sto realizzando un database per la gestione personale dell'antiriciclaggio,
le specifiche tecniche, mi impongono di non poter effettuare nessuna
modifica sui dati inseriti. A questo punto mi chiedo se è possibile
impostare la tabella affinchè sia consentito variare o cancellare i dati
inseriti ad eccezione di qualche campo, o se questa impostazione è da
applicare solamente alle maschere.
Ciao e grazie


title: MDB per antiriciclaggio

author: Michele (Giò)

text:
"Pilan Simone" <
pilan...@virgilio.it
> ha scritto nel messaggio
news:45a107de$0$16153$4faf...@reader3.news.tin.it...

Direi solo alle maschere, che sono l'unico mezzo che l'utente dovrebbe avere per avere una
comunicazione attiva con le tabelle. Dalle maschere fai tutto quel che vuoi.
Michele


title: MDB per antiriciclaggio

author: eSQueL

text:
"Pilan Simone" <
pilan...@virgilio.it
> ha scritto nel messaggio
news:45a107de$0$16153$4faf...@reader3.news.tin.it...

Non so se ho compreso bene il problema. Tuttavia, mi sembra che tu debba
passare dalla protezione a livello utente.
Potresti provare a dividere le tabelle, separando i campi modificabili da
quelli non modificabili. A questo punto e con la protezione a livello utente
opportunamente settata, le prime sarebbero modificabili dall'utente e le
seconde solo dall'amm/ore. Infine, potresti costruire le form sulle prime e
gestire l'aggiornamento delle seconde da codice.
In tal modo potresti avere delle forms che espongono in sola lettura i dati
delle tabelle riservate.
Non ho provato niente di quel che ho scritto, ma mi sembra che potrebbe
fungere :)
Ciao.
eSQueL


title: MDB per antiriciclaggio

author: Sergio MAZZA

text:
"Pilan Simone" <
pilan...@virgilio.it
> ha scritto nel messaggio
news:45a107de$0$16153$4faf...@reader3.news.tin.it...

Probabilmente dovrai tenere traccia di tutte le operazioni sul record:
- inserimento
- (eventuale) modifica;
- (eventuale) cancellazione...
Ciao.
--
Sergio MAZZA


title: MDB per antiriciclaggio

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ent3v4$sv3$1...@tdi.cu.mi.it...

Si, devo tenere traccia di ogni variazione intervenuta sul record, per cui
sono previsti appositi campi, che deve essere sempre all'interno dello
stesso file, che servono ad indicare se una registrazione è stata modificata
o cancellata e della relativa data di variazione.
Il problema è che, utilizzando software di altri sviluppatori, ho l'accesso
solamente alle maschere in quanto le tabelle sono protette da una pasword
che non conosco.
Visto che il programma l'ho sviluppato io, vorrei dare l'impressione, in
caso di verifica del software, di non avere la possibilità di accedere alle
tabelle, anche se effettiamente vorrei, in caso di necessità, usufruire di
questa possibilità.
Suddividendo le tabelle dalle maschere e applicando le protezioni a  livello
utente, in caso tentassi di aprire il database delle tabelle, o tentassi di
accedervi, mediante la funzione collega tabelle, da un altro db, access mi
richiederebbe la password?
Tutto questo mi serve solamente nel caso in cui l'accertatore conoca il
funzionamento di access, in modo da fargli credere che solamente chi ha
sviluppato il software è in grado di aprire le tabelle e che a mè è concesso
utilizzare solamente le maschere.
Ciao e grazie


title: MDB per antiriciclaggio

author: PBsoft

text:
> Si, devo tenere traccia di ogni variazione intervenuta sul record, per
> cui sono previsti appositi campi, che deve essere sempre all'interno
> dello stesso file, che servono ad indicare se una registrazione è
> stata modificata o cancellata e della relativa data di variazione.
Un sistema di log, insomma.
> Visto che il programma l'ho sviluppato io, vorrei dare l'impressione,
> in
> caso di verifica del software, di non avere la possibilità di accedere
> alle
> tabelle, anche se effettiamente vorrei, in caso di necessità,
> usufruire di questa possibilità.
Perché "fare finta" quando invece puoi proprio fare quello che vuoi?
> Suddividendo le tabelle dalle maschere e applicando le protezioni a
> livello utente, in caso tentassi di aprire il database delle tabelle,
> o tentassi di accedervi, mediante la funzione collega tabelle, da un
> altro db, access mi richiederebbe la password?
Sì.
> Tutto questo mi serve solamente nel caso in cui l'accertatore conoca
> il funzionamento di access, in modo da fargli credere che solamente
> chi ha sviluppato il software è in grado di aprire le tabelle e che a
> mè è concesso utilizzare solamente le maschere.
Secondo me puoi semplificarti la vita adoperando SQL 2005 Express come BE.
Con questo prodotto puoi definire tutte le autrorizzazioni che ti pare sulle
tabelle e permettere l'operatività sulle tabelle solamente a ruoli applicazione.
Non è una cosa tutta rose e fiori, ma funziona egregiamente e non devi stare
ad implementare meccanismi che sono invece presenti nativamente.
Ovviamente goderesti anche del fatto che SQL Server ha i trigger, tramite
i quali potresti allestire un sistema di log nativo del DBMS, indipendente
dall'applicazione che accede ai dati.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: MDB per antiriciclaggio

text:
> Non è una cosa tutta rose e fiori, ma funziona egregiamente e non devi
> stare ad implementare meccanismi che sono invece presenti nativamente.
Com'è vero!
Quanto tempo ci vuole (mediamente) per passare a SQL Server? E' da un po'
che ci sto pensando ma ancora non mi sono deciso.
eSQueL


title: MDB per antiriciclaggio

text:
> Quanto tempo ci vuole (mediamente) per passare a SQL Server? E' da un
> po' che ci sto pensando ma ancora non mi sono deciso.
E' meno tragico di quello che sembra.
Per quanto riguarda i dati, oggi non mi appoggio più nemmeno a "Upsize Wizard"
di Access, bensì a "SQL Server Migration Assistant for Access".
Per l'applicazione, puoi affidarti in prima istanza anche a "Upsize Wizard"
ma poi devi sicuramente metterci le mani per aggiustare qua e là.
In ogni caso, il tempo che impieghi adesso nello sforzarti a passare a SQL
Server come BE te lo ritrovi in futuro, quando vorrai ad esempio realizzare
un'applicazione web o un'applicazione WinForm basate su SQL.



title: MDB per antiriciclaggio

author: Simone Calligaris

text:
"eSQueL" <
> Quanto tempo ci vuole (mediamente) per passare a SQL Server? E' da un po'
> che ci sto pensando ma ancora non mi sono deciso.
Convertire un BE richiede poco lavoro, il problema è legato al lato FE.
Gli .ADP richiedono molti sforzi (in buona parte legati a bug e stranezze) e
non hanno futuro, sulla base degli sviluppi della release 2007 di Access.
ODBC funziona bene a patto che si leggano a fondo le specifiche e le si
recepiscano: varie abitudini buone per JET non lo sono in tale
configurazione (FindFirst, query eterogenee, alcuni tipi di query a campi
incrociati, etc).
Saluti.


title: MDB per antiriciclaggio

text:
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea355a5b38...@news.tin.it...

Ma questo sql 2005 express è un applicativo che si integra ad access oppure
è una cosa totalmente estranea per cui si dovrebbero avere altri tipi di
consoscenze?
Leggendo su internet mi sembra di aver capito che se ho una licenza di
access, regolare, posso scaricare gratuitamente l'aggiornamento.
Ciao e grazie


title: MDB per antiriciclaggio

text:
> Ma questo sql 2005 express è un applicativo che si integra ad access
> oppure
> è una cosa totalmente estranea per cui si dovrebbero avere altri tipi
> di consoscenze?
SQL Server 2005 Express Edition è un server database relazionale sviluppato
da Microsoft.
Access è un lontanissimo parente.
Le conoscenze per utilizzare SQL 2005 sono nettamente differenti da quelle
necessarie per utilizzare Access.
Access può collegarsi alle tabelle definite all'interno di un database SQL
Server, sfruttando la tecnica dei progetti (ADP) con connessioni OLEDB, oppure
i normali MDB in combinazione con i driver ODBC.
> Leggendo su internet mi sembra di aver capito che se ho una licenza di
> access, regolare, posso scaricare gratuitamente l'aggiornamento.
Non esiste un aggiornamento da Access a SQL Server. Sono due prodotti differenti.
Cio che è gratuito è il download della versione Express di SQL Server 2005.
