title: limiti access

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ft4qvu$3oi$1...@tdi.cu.mi.it...
>
> "fausto" <
negri...@tiscali.it
> ha scritto nel messaggio
> news:47f5edf0$0$37197$4faf...@reader3.news.tin.it...
>>
>> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
>> news:ft4pfl$214$1...@tdi.cu.mi.it...
>> fausto wrote:
>>> Buongiorno
>>> volevo chiedere se secondo voi access č in grado di gestire un db di
>>> 30 mb con una tabella prodotti con 30000 record e altre tabelle e a
>>> questo be residente su un server si collegano 10 utenti con la parte
>>> fe sul pc
>>>
>>> voi cosa fareste?
>>> potrei procedere o č meglio cambiare db?
>>> grazie per le info
>>
>> Vai tranquillissimo!!!!
>>
>> fino a quanti utenti si potrebbero collegare contemporaneamente al db??
>>
>> il limite di access be č di 2 gb ma fino a che dimensione č affidabile??
>>
>> grazie di nuovo
>>
>
> Valuta anche una soluzione tipo XPUnlimited che non genera traffico di
> rete se non in minima parte (il refresh dello schermo) a patto di avere
> macchine con XP.
> 30000 record sono una bazzecola...tutto dipende da come scrivi il codice,
> dal livello "mission critical" dell'applicativo, dagli accessi concorrenti
> al singolo record, ecc.
>
> Ciao, Carlo
cosa sarebbe questo xpunlimited.
io ho fatto pochi db e quasi sempre con 2 utenti che lavoravano sul be e non
ho mai avuto problemi fino adesso
sto cercando di istruirmi un pň di piů
grazie mille


title: limiti access

text:
On 4 Apr, 11:41, "fausto" <
negrifau...@tiscali.it
> wrote:
> "Carlo Costarella" <
carlocoslib...@libero.it
> ha scritto nel messaggionews:ft4qvu$3oi$1...@tdi.cu.mi.it...
>
>
>
>
>
> > "fausto" <
negrifau...@tiscali.it
> ha scritto nel messaggio
> >news:47f5edf0$0$37197$4faf...@reader3.news.tin.it...
>
> >> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> >>news:ft4pfl$214$1...@tdi.cu.mi.it...
> >> fausto wrote:
> >>> Buongiorno
> >>> volevo chiedere se secondo voi access è in grado di gestire un db di
> >>> 30 mb con una tabella prodotti con 30000 record e altre tabelle e a
> >>> questo be residente su un server si collegano 10 utenti con la parte
> >>> fe sul pc
>
> >>> voi cosa fareste?
> >>> potrei procedere o è meglio cambiare db?
> >>> grazie per le info
>
> >> Vai tranquillissimo!!!!
>
> >> fino a quanti utenti si potrebbero collegare contemporaneamente al db??
>
> >> il limite di access be è di 2 gb ma fino a che dimensione è affidabile??
>
> >> grazie di nuovo
>
> > Valuta anche una soluzione tipo XPUnlimited che non genera traffico di
> > rete se non in minima parte (il refresh dello schermo) a patto di avere
> > macchine con XP.
> > 30000 record sono una bazzecola...tutto dipende da come scrivi il codice,
> > dal livello "mission critical" dell'applicativo, dagli accessi concorrenti
> > al singolo record, ecc.
>
> > Ciao, Carlo
>
> cosa sarebbe questo xpunlimited.
> io ho fatto pochi db e quasi sempre con 2 utenti che lavoravano sul be e non
> ho mai avuto problemi fino adesso
> sto cercando di istruirmi un pò di più
> grazie mille
Ciao Fausto , io stò lavorando da diverso tempo su un DB Access 30 Mb
che lavora in rete con 5 utenti.
Sulla capacità di memoria e numero record niente da dire , ma ho
vissuto momenti di terrore quando si è corrotto il BE .
Se accetti un suggerimento passa tutto su SQL Express come base dati
che è affidabile e sicura ( io ho ci stò già lavorando da circa 1.5
anni) e poi tieniti il FE mdb
condiviso in rete sul server.
Con qs. formazione dormi sonni tranquilli .
Saluti
MOGANO


title: limiti access

author: Carlo Costarella

text:
"fausto" <
negri...@tiscali.it
> ha scritto nel messaggio
news:47f5f7c6$0$37202$4faf...@reader3.news.tin.it...
cut
>>
>> Valuta anche una soluzione tipo XPUnlimited che non genera traffico di
>> rete se non in minima parte (il refresh dello schermo) a patto di avere
>> macchine con XP.
>> 30000 record sono una bazzecola...tutto dipende da come scrivi il codice,
>> dal livello "mission critical" dell'applicativo, dagli accessi
>> concorrenti al singolo record, ecc.
>>
>> Ciao, Carlo
>
> cosa sarebbe questo xpunlimited.
> io ho fatto pochi db e quasi sempre con 2 utenti che lavoravano sul be e
> non ho mai avuto problemi fino adesso
> sto cercando di istruirmi un pň di piů
> grazie mille
>
Cerca con google ma sopratutto in questo NG.
In pratica ti consente un accesso remoto ad una macchina "server" dove
risiede non solo il BE ma anche tutti i FE, uno per ogni utente. Tutte le
operazioni avvengono sul server...a cui possono accedere molti client anche
con macchine datate o con sistemi operativi diversi.
Il costo di XPUnlimited va da 112 a 455 euro a seconda della versione
acquistata e dal numero di utenti che possono accedere con un minimo di tre
per la versione demo a indefiniti per la versione full. Per dieci utenti ci
vogliono 145 euro.
Correggo quello che ho detto prima a proposito dell'obbligo di avere XP:
oggi XPUnlimited rulla anche su Vista o W2003.
Ciao, Carlo


title: limiti access

author: Fabrizio Conti (Panathos)

text:
On 4 Apr, 11:41, "fausto" <
negrifau...@tiscali.it
> wrote:
> cosa sarebbe questo xpunlimited.
Una genialata. Trasforma un normale PC con XP Professional in un
Terminal Server, con relativi vantaggi (facilità di gestione
sistemistica, semplificazione nel controllo degli accessi degli
utenti, pochi vincoli nella scelta dei client poiché il protocollo rdp
è disponibile per svariati sistemi operativi).
XPunlimited sta girando su una macchina single core 3 Ghz con dischi
SCSI da un annetto (quando Carlo l'ha segnalato in questo ng) e non ha
mai creato problemi di nessun tipo.
con l'accesso contemporaneo di 5 utenti (connessi da client Windows
XP, Windows 2000, palmare PocketPC, Puppy Linux, Kubuntu), le
prestazioni "a occhio" non sono degradate poi tanto.
> io ho fatto pochi db e quasi sempre con 2 utenti che lavoravano sul be e non
> ho mai avuto problemi fino adesso
Sì, ci siamo passati tutti. Un giorno non potrai più dirlo :-)
> sto cercando di istruirmi un pò di più
Allora informati sui "Terminal Server"; sui problemi derivanti dalle
scritture concorrenti di più utenti sugli stessi file e sulle
differenze tra un "gestore centralizzato" come SQL Server ed i
file .mdb.
(fermo restando che un rdbms come SQL server fa molto di più che
risolvere il problema degli accessi concorrenti)
ciao,
Panathos


title: limiti access

author: RobertoA

text:
> cosa sarebbe questo xpunlimited.
Una genialata. Trasforma un normale PC con XP Professional in un
Terminal Server, con relativi vantaggi (facilità di gestione
sistemistica, semplificazione nel controllo degli accessi degli
utenti, pochi vincoli nella scelta dei client poiché il protocollo rdp
è disponibile per svariati sistemi operativi).
XPunlimited sta girando su una macchina single core 3 Ghz con dischi
SCSI da un annetto (quando Carlo l'ha segnalato in questo ng) e non ha
mai creato problemi di nessun tipo.
con l'accesso contemporaneo di 5 utenti (connessi da client Windows
XP, Windows 2000, palmare PocketPC, Puppy Linux, Kubuntu), le
prestazioni "a occhio" non sono degradate poi tanto.
----------------------------------------------------------
C'e' qualche parere autorevole sul fatto che usare XpUnlimited su XP sia
legale ?
Giustificazioni del produttore a parte, ovviamente
Ciao
RobertoA


title: limiti access

author: Thomas

text:
"Fabrizio Conti (Panathos)" <
pana...@gmail.com
> ha scritto nel messaggio
news:95fd1cfc-4277-4c7f...@1g2000prg.googlegroups.com...

> cosa sarebbe questo xpunlimited.







ciao,
Panathos
---------------------
___________________________________
per curiosità come si comporta con la mappatura delle stampanti locali? una
quaresima come con terminal server?
ciao, T.


title: limiti access

text:
"Thomas" <
t...@in.it
> ha scritto nel messaggio
news:47f72c8b$0$10620$4faf...@reader2.news.tin.it...
cut
> per curiosità come si comporta con la mappatura delle stampanti locali?
> una quaresima come con terminal server?
>
> ciao, T.
...per curiosità.
Lo usi?
La mappatura delle stampanti locali è molto semplice, bisogna fare due cose:
condividere la stampante locale;
aggiungere alla macchina "server" tutte le stampanti che si desidera usare
in locale.
Da questo momento tu stampi sul server e la pagina esce in locale.
Unica accortezza: se si hanno sistemi operativi diversi, bisogna accertarsi
di avere i driver corrispondenti.
Ciao, Carlo


title: limiti access

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:47f72293$1...@newsgate.x-privat.org...
cut
> C'e' qualche parere autorevole sul fatto che usare XpUnlimited su XP sia
> legale ?
> Giustificazioni del produttore a parte, ovviamente
> Ciao
> RobertoA
Ne abbiamo già parlato sia in questo NG che alla CISA di Milano.
Ne sono usciti pareri discordanti.
Io faccio una considerazione:
se Microsoft, così attenta alle violazioni delle sue policy, non si è ancora
lamentata, vuol dire che è proprio legale.
Mi parrebbe molto strano che una qualsiasi società, che opera a livello
mondiale, decidesse di rischiare una denuncia da parte di Microsoft.
Aggiungo di più: ora XPUnlimited è stato rilasciato sia per Vista (non tutte
le versioni) e Windows server 2003 e allo stesso prezzo.
Ciao, Carlo


title: limiti access

text:
On 5 Apr, 08:58, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> C'e' qualche parere autorevole sul fatto che usare XpUnlimited su XP sia
> legale ?
Uhm... i nostri non lo sono a sufficienza? :-) Cmq se ne trovi uno
postalo sul ng che ci facciamo la birra.
L'unica che può avere voce in capitolo è Microsoft, e se sta ancora
permettendo che sviluppino e vendano il prodotto significa che gli va
bene così.
> Giustificazioni del produttore a parte, ovviamente
Perché le chiami giustificazioni? A me paiono solo motivazioni
tecniche: il loro prodotto non fa altro che usare un workaround per
aggirare una limitazione imposta per motivi non tecnici.
Chi usa XPunlimited probabilmente non comprerebbe un server 2003 o
2008; e con questo prodotto (che mi pare continui a restare di
nicchia, visto che è fuori da un bel po', funziona bene, e ne parlano
in pochissimi) "l'alternativa" continua essere Microsoft.
ciao,
Panathos


title: limiti access

text:
On 5 Apr, 09:38, "Thomas" <
t...@in.it
> wrote:
> per curiosità come si comporta con la mappatura delle stampanti locali? una
> quaresima come con terminal server?
Nulla di così religioso, sono le due mosse che ha spiegato Carlo
(condividi la stampante sul server, gli metti i driver aggiuntivi per
altri sistemi operativi se ti servono, e sei a posto).
Ovviamente vale anche per PDFcreator, lo installi una volta sul
"server" e hai tutti i pc in rete già predisposti per stampare in PDF
da qualsiasi applicazione.
ciao,
Panathos


title: limiti access

text:
On 5 Apr, 17:46, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> Ne abbiamo già parlato sia in questo NG che alla CISA di Milano.
A proposito di CISA, quest'anno niente?
> se Microsoft, così attenta alle violazioni delle sue policy, non si è ancora
> lamentata, vuol dire che è proprio legale.
> Mi parrebbe molto strano che una qualsiasi società, che opera a livello
> mondiale, decidesse di rischiare una denuncia da parte di Microsoft.
> Aggiungo di più: ora XPUnlimited è stato rilasciato sia per Vista (non tutte
> le versioni) e Windows server 2003 e allo stesso prezzo.
Concordo, ed aggiungo le mie: probabilmente per Microsoft meglio
XPunlimited che qualcun altro che si affacci al mondo open source,
dove i desktop environment sono da sempre "terminal server".
E del resto, se permette l'esistenza di progetti come ReactOS; oppure
lo sviluppo che sta avendo wine negli ultimi mesi, o alcune "aperture"
verso il mondo open source (alcune obbligate, come le specifiche di
samba)... avrà i suoi imprerscrutabili motivi :-)
ciao,
Panathos


title: limiti access

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ft86i4$6nr$1...@tdi.cu.mi.it...

usavo TS per superare la lentezza degli mdb in rete con molti utenti...da
quando ho migrato su SQL server non lo uso più se non per connettere sedi
staccate.
so che c'erano delle difficolta con le stampanti USB per questo chiedevo
http://groups.google.it/groups/search?hl=it&ie=UTF-8&q=terminal+server+e+problemi+stampanti&qt_s=Ricerca
con stampanti con scheda di rete invece mai avuto problemi.
ciao. T.


title: proprietà Tag e Caption su una Form

author: Sandrobi

text:
Come nell'oggetto, chiedo se è possibile impostare per una form le proprietà
Tag e Caption da codice dentro il form stesso e lascairlo memorizzato per le
successive aperture del database. Dall'help sembra che sia possibile ma non
ci sono riuscito, o per lo meno, alla riapertura ritorna il valore
originario.
Ciao.
Sandrobi


title: proprietà Tag e Caption su una Form

author: ALESSANDRO Baraldi

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:i2aQd.32600$QG6.5...@twister2.libero.it...

E' possibile solo aprendo la Maschera in modalità Design, quindi
accedi alle proprietà, poi chiudi salvando.
Sei sicuro sia la strada giusta...??
Su evento Load caricare 2 dati da una tabella ed impostarli RUNTIME
non è meglio...?
Se distribuisci un MDE la cosa ti tronca le mani, in quanto non è fattibile.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Query ricerca duplicati

text:
Premessa.
Ho una query di ricerca duplicati  basata su 5 campi, che è
origine record di una msk che viene aperta sull'evento afterupdate
del 5° campo, in ordine di tab,se la query contiene duplicati,
visualizzandomi dove è presente l'altro duplicato
-Come far visualizzare anche i duplicati che in un campo
non presentano valori ma per i restanti sono uguali?
L'altro problema è che se l'operatore decide cmq di
salvare il duplicato anzichè eliminarlo,
al successivo inserimento di un
altro duplicato, la rivisualizzazione ne conterrà 4.
- Come fare per escludere quello che ho deciso
 di salvare.
Io ho pensato di creare una cosa di questo tipo:
Creare una condizione,se la query contiene valori attivami
questa casella di controllo che sarà anche il  filtro per
l'esclusione di tale record duplicato alla prossima visualizzazione.
:-)))) Che brava! (modesta).
Si ma come sviluppare il tutto  in codice? :°-(((((((((((((( (che scarsa!)
Mi indichereste la strada? Grazie anticipatamente.
--
Debora


title: Query ricerca duplicati

author: Giansergio

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:a4Kf9.13554$6O4.2...@twister1.libero.it...

Debby? Sei proprio tu? Debora Maniero alias Randy?  wow
da insegnante ad allieva, tesoro ci sono io x te se ha bisogno,
 fammi un fischio e ....corro.
Giansergio


title: Query ricerca duplicati

author: Labirinto

text:
"Giansergio" <
gians...@email.it
> ha scritto nel messaggio
news:alpdr6$ro8$1...@nntp.weblinea.it...

Sei come il prezzemolo, adesso anche qui.
Qualcosa la puoi fare per me ora che ci penso....
non rompere, lo apprezzerei tanto. Grazie.
--
Debora


title: Query ricerca duplicati

text:
[c]
> >
> >
> > Debby? Sei proprio tu? Debora Maniero alias Randy?  wow
> > da insegnante ad allieva, tesoro ci sono io x te se ha bisogno,
> >  fammi un fischio e ....corro.
> > Giansergio
> >
> Sei come il prezzemolo, adesso anche qui.
> Qualcosa la puoi fare per me ora che ci penso....
> non rompere, lo apprezzerei tanto. Grazie.
>
> --
> Debora
>
Scusa ma cosa ti ho fatto, perchč sei cosě sgarbata?
Giansergio
p.s. ma quanti nick hai, labirinto????(orrendo)


title: Query ricerca duplicati

author: Debora

text:
"Giansergio" <
gians...@email.it
> ha scritto nel messaggio
news:alphl2$52a$1...@nntp.weblinea.it...

Hai ragione,perdonami.
il nick? orrendo? infatti non č il mio,
stavo usando il pc da un altro ufficio. (Ora sono col mio,
va bene cosě?)
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:a4Kf9.13554$6O4.2...@twister1.libero.it...

Nessuna risposta! :°-(
Non credevo fosse così difficile.
Pazienza.
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:a4Kf9.13554$6O4.2...@twister1.libero.it...

Nessuna risposta! :°-(



title: Query ricerca duplicati

author: Antonio Biso

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:a4Kf9.13554$6O4.2...@twister1.libero.it...
> Premessa.
> Ho una query di ricerca duplicati  basata su 5 campi, che è
> origine record di una msk che viene aperta sull'evento afterupdate
> del 5° campo, in ordine di tab,se la query contiene duplicati,
> visualizzandomi dove è presente l'altro duplicato
> -Come far visualizzare anche i duplicati che in un campo
> non presentano valori ma per i restanti sono uguali?
Io risolverei il problema a monte.
Metterei un valore di default nel caso in cui il campo non venga riempito,
per esempio un trattino -
In questo modo le query funzioneranno sempre!
> L'altro problema è che se l'operatore decide cmq di
> salvare il duplicato anzichè eliminarlo,
> al successivo inserimento di un
> altro duplicato, la rivisualizzazione ne conterrà 4.
> - Come fare per escludere quello che ho deciso
>  di salvare.
> Io ho pensato di creare una cosa di questo tipo:
> Creare una condizione,se la query contiene valori attivami
> questa casella di controllo che sarà anche il  filtro per
> l'esclusione di tale record duplicato alla prossima visualizzazione.
> :-)))) Che brava! (modesta).
> Si ma come sviluppare il tutto  in codice? :°-(((((((((((((( (che scarsa!)
> Mi indichereste la strada? Grazie anticipatamente.
Aggiungi un campo alla tabella, di tipo Sì/no inizializzato sempre a no.
Quando l'utente decide di salvare il record, tu setti a Sì quel campo.
La query di ricerca duplicati deve filtrare solo i record col valore del
campo a No
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:KWYf9.16185$Oz2.2...@twister2.libero.it...

Ciao Antonio
non pensavo che alla fine mi rispondevi proprio tu,
dopo i miei commenti poco simpatici sul modo che hai
di rispondere evasivamente,faccio un mea culpa!.
Si avevo già aggiunto il campo si/no alla tabella,
 e anche la query.
Sto cercando nei 3d precedenti, alla visualizzazione
del msgbox il modo di "settare" a Si quel campo
ma credo che sia sufficiente un banalissimo
me.caselladicontrollo.value=true sull'ok dato
dall'utente.
Grazie, Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:ztZf9.16328$Oz2.2...@twister2.libero.it...
>
> > Aggiungi un campo alla tabella, di tipo Sì/no inizializzato sempre a no.
> > Quando l'utente decide di salvare il record, tu setti a Sì quel campo.
> > La query di ricerca duplicati deve filtrare solo i record col valore del
> > campo a No
> >
> > Antonio
> >
> Ciao Antonio
> non pensavo che alla fine mi rispondevi proprio tu,
> dopo i miei commenti poco simpatici sul modo che hai
> di rispondere evasivamente,faccio un mea culpa!.
Ho le spalle larghe...
> Si avevo già aggiunto il campo si/no alla tabella,
>  e anche la query.
> Sto cercando nei 3d precedenti, alla visualizzazione
> del msgbox il modo di "settare" a Si quel campo
> ma credo che sia sufficiente un banalissimo
> me.caselladicontrollo.value=true sull'ok dato
> dall'utente.
Se hai messo un controllo associato al campo sì/no ti basta in effetti
assegnare al controllo, quindi al campo il valore true.
Ma allora puoi far sì che l'operazione di salvataggio sia proprio lo
"spunto" della checkbox associata a quel campo.
Altrimenti ti apri un recordset sul record che si vuole salvare (o su tutta
la tabella e poi salti con una findfirst su quel record) e quindi con una
rst.edit
rst.fields("campo") = true e
rst.update
hai risolto
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:xAZf9.16352$Oz2.2...@twister2.libero.it...

ho risolto?  uhmmm... non proprio
devo capire "apri un recordset ....", ma ci voglio
arrivare da sola. Al limite se proprio ho difficoltà
ti rompo ancora. Per ora grazie.
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:yWZf9.18054$6O4.3...@twister1.libero.it...
>
> Altrimenti ti apri un recordset sul record che si vuole salvare (o su
> tutta
> > la tabella e poi salti con una findfirst su quel record) e quindi con
una
> > rst.edit
> > rst.fields("campo") = true e
> > rst.update
> >
> > hai risolto
> >
> > Antonio
> >
>
> ho risolto?  uhmmm... non proprio
> devo capire "apri un recordset ....", ma ci voglio
> arrivare da sola. Al limite se proprio ho difficoltà
> ti rompo ancora. Per ora grazie.
Dai, che mi pagano per questo.
Poi oggi c'è poco traffico di altri utenti...
set rst = currentdb.openrecordset(str)
str può essere una tabella, una query salvata, una stringa SQL
Prepariamola dinamicamente per esempio
str = "SELECT tuatab.* FROM tuatab WHERE ID=" & me.idrecordcorrente
In questo modo il recordset è composto da un unico record, quello del record
corrente sulla maschera.
con rst.movefirst lo punti per farci quello che vuoi e che poi vedremo
Oppure, anche per altri usi, vediamo come aprire il rcordset globale e poi
cosa farci
str = "SELECT tuatab.* FROM tuatab"
set rst = currentdb.openrecordset(str,dbopendynaset)
Perchè c'è un parametro in più?
Perchè, siccome nel recordset ci sono tutti i record della tabella e voglio
trovare quello del record corrente e lo farò con il metodo findfirst, questo
metodo funziona solo se c'è quell'opzione
crit = "IDrecord=" & me.idrecordcorrente
rst.findfirst crit
e abbiamo puntato il primo record che verifica la condizione
a questo punto con l'insieme fields possiamo verificare il contenuto del
record corrente del recordset oppure scriverci dentro.
Per scrivere dobbiamo editarlo
rst.edit
rst.fields("CampoSalvataggio") = true
rst.update con questa vengono salvate le modifiche
facciamo infine un
set rst = nothing
per pulire un po' la memoria ed evitare alcuni effetti collaterali e siamo a
posto
Direi che è tutto per ora...
Antonio


title: Query ricerca duplicati

text:
[cut]
questo dovrebbe essere la tua soluzione
applicata al mio caso:
set rst=currentdb.openrecordset("query ricerda duplicati")
str = "query ricerca diuplicati"
set rst = currentdb.openrecordset(str,dbopendynaset)
crit = "codiceutente=" & me.codiceutente
 rst.findfirst crit
rst.edit
rst.fields("casellacontrollo") = true
rst.update
set rst = nothing
Io ho questo sull'evento primaaggiorn della msk:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strmessaggio As String
Dim intOpzioni As Integer
Dim bytscelta As Byte
If Not IsNull("query ricerca duplicati") Then
docmd.openform (mostra record duplicati)....
strmessaggio = "Questo dato è stato già presente in archivio." & _
"Vuoi salvarlo comunque?"
intOpzioni = vbQuestion + vbOKCancel
bytscelta = MsgBox(strmessaggio, intOpzioni)
If bytscelta = vbCancel Then
Mappale.SetFocus
Cancel = True
If bytscelta = vbOK Then
Me.Caselladicontrollo1.Value = True
DoCmd.Save
End If
End If
End If
End Sub
Il punto è:
la tua soluzione non so proprio dove inserirla.
malgrado mi sia fatta due ore di lettura dell'help.
nella mia, intanto non so se funge, ma in ogni caso
mi manca come far eseguire la queryricdupl.
Probabilmente ho scritto un pò di cavolate
Mi puoi chiarire?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:773g9.762$eG6....@twister1.libero.it...
> [cut]
> questo dovrebbe essere la tua soluzione
> applicata al mio caso:
> set rst=currentdb.openrecordset("query ricerda duplicati")
Questa sopra è inutile
> str = "query ricerca diuplicati"
> set rst = currentdb.openrecordset(str,dbopendynaset)
> crit = "codiceutente=" & me.codiceutente
>  rst.findfirst crit
> rst.edit
> rst.fields("casellacontrollo") = true
> rst.update
> set rst = nothing
Sei sicura che nel controllo codiceutente della form c'è il codice utente
del record che hai deciso di salvare?
>
> Io ho questo sull'evento primaaggiorn della msk:
>
> Private Sub Form_BeforeUpdate(Cancel As Integer)
>
> Dim strmessaggio As String
> Dim intOpzioni As Integer
> Dim bytscelta As Byte
>
> If Not IsNull("query ricerca duplicati") Then
E questo che vor dì?!?
Che fai, testi se è nulla unaa stringa costante che ha un valore?
Caso mai dovresti testare se la dcount su quella query = 0 o no
se è > 0 allora ci sono record e aprirai la form
> docmd.openform (mostra record duplicati)....
> strmessaggio = "Questo dato è stato già presente in archivio." & _
> "Vuoi salvarlo comunque?"
Quale dato scusa?
Tu hai aperto una form basata sulla query duplicati che ti darà quindi più
record. Quale è quello da salvare?
Non dovresti prevedere che l'utente scelga quale di questi record tenersi?
> intOpzioni = vbQuestion + vbOKCancel
> bytscelta = MsgBox(strmessaggio, intOpzioni)
> If bytscelta = vbCancel Then
> Mappale.SetFocus
> Cancel = True
> If bytscelta = vbOK Then
> Me.Caselladicontrollo1.Value = True
Questa abbiamo detto che la fai se hai una checkbox associata al campo sì/no
aggiunto, magari anche non visibile, ma ce la devi avere. Se ce l'hai,
allora non c'è più bisogno di fare quello che abbiamo scritto all'inizio con
i recordset
> DoCmd.Save
> End If
> End If
> End If
> End Sub
>
> Il punto è:
> la tua soluzione non so proprio dove inserirla.
Ripeto, la dovevi inserire quando l'utente dava l'ok di salvataggio, ma solo
se non usi la soluzione di scrivere direttamente nella tabella tramite la
form
> malgrado mi sia fatta due ore di lettura dell'help.
> nella mia, intanto non so se funge, ma in ogni caso
> mi manca come far eseguire la queryricdupl.
Che intendi?
> Probabilmente ho scritto un pò di cavolate
> Mi puoi chiarire?
Spero di averti chiarito, anche se mi devi delle risposte ancora
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:qi3g9.844$eG6....@twister1.libero.it...
> "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> news:773g9.762$eG6....@twister1.libero.it...
> > [cut]
> > questo dovrebbe essere la tua soluzione
> > applicata al mio caso:
> > set rst=currentdb.openrecordset("query ricerda duplicati")
>
> Questa sopra è inutile
>
> > str = "query ricerca diuplicati"
> > set rst = currentdb.openrecordset(str,dbopendynaset)
> > crit = "codiceutente=" & me.codiceutente
> >  rst.findfirst crit
> > rst.edit
> > rst.fields("casellacontrollo") = true
> > rst.update
> > set rst = nothing
>
> Sei sicura che nel controllo codiceutente della form c'è il codice utente
> del record che hai deciso di salvare?
questa non l'ho capita, quando decido di salvare, salvo
i dati contenuti nella form e nella form ce il campo codiceutente.
la funzione della query ricerca duplicati è solo quella di visualizzare
il record doppio.
> > Io ho questo sull'evento primaaggiorn della msk:
> >
> > Private Sub Form_BeforeUpdate(Cancel As Integer)
> >
> > Dim strmessaggio As String
> > Dim intOpzioni As Integer
> > Dim bytscelta As Byte
> >
> > If Not IsNull("query ricerca duplicati") Then
>
> E questo che vor dì?!?
> Che fai, testi se è nulla unaa stringa costante che ha un valore?
> Caso mai dovresti testare se la dcount su quella query = 0 o no
> se è > 0 allora ci sono record e aprirai la form
ti spiego, ho creato un altra query (che casino) di raggruppamento
della query ricerca duplplicati, in cui ho aggiunto fra le righe sql un
conteggio
dei record duplicati.
cosi ho filltrato la query in base al campo conteggio creato dalla prima
query, su cui ho
messo un criterio >1, in modo che mi restituisse un solo record.
> > docmd.openform (mostra record duplicati)....
> > strmessaggio = "Questo dato è stato già presente in archivio." & _
> > "Vuoi salvarlo comunque?"
>
> Quale dato scusa?
> Tu hai aperto una form basata sulla query duplicati che ti darà quindi più
> record. Quale è quello da salvare?
no perche la form è basata sulla seconda query che sarà vuota se non
contiene dplicati
e avrà 1 solo record se i duplicati esistono.
> Non dovresti prevedere che l'utente scelga quale di questi record tenersi?
la scelta è scontata in quanto il record è uno solo.
> > intOpzioni = vbQuestion + vbOKCancel
> > bytscelta = MsgBox(strmessaggio, intOpzioni)
> > If bytscelta = vbCancel Then
> > Mappale.SetFocus
> > Cancel = True
> > If bytscelta = vbOK Then
> > Me.Caselladicontrollo1.Value = True
>
> Questa abbiamo detto che la fai se hai una checkbox associata al campo
sì/no
> aggiunto, magari anche non visibile, ma ce la devi avere. Se ce l'hai,
> allora non c'è più bisogno di fare quello che abbiamo scritto all'inizio
con
> i recordset
>
> > DoCmd.Save
> > End If
> > End If
> > End If
> > End Sub
>
> >
> > Il punto è:
> > la tua soluzione non so proprio dove inserirla.
>
> Ripeto, la dovevi inserire quando l'utente dava l'ok di salvataggio, ma
solo
> se non usi la soluzione di scrivere direttamente nella tabella tramite la
> form
la caselladicontrollo che ho sia nella tbl che nella form verrà
flagata (si dice così) o meglio diventerà =true se l'operatore
decide di cliccare sull'Ok.
> > malgrado mi sia fatta due ore di lettura dell'help.
> > nella mia, intanto non so se funge, ma in ogni caso
> > mi manca come far eseguire la queryricdupl.
>
> Che intendi?
come far eseguire le 2 query da codice
Sicuramente manca qualcosa,ossia quando il record
appena inserito non è un duplicato, la query o meglio
il controllo della query in cui ho inserito il criterio >1
è null, e se questo avviene non deve succedere niente
ma questo mi pare che non  l'ho previsto
dovrei aggiungere un if isnull(controlloquery) then
miocontrollo.setfocus
probabilmente ho fatto il giro della luna per arrivare
allo scopo, ma come dire, se non provi non impari,
poi col tempo si imparano le scorciatoie, o no?


title: Query ricerca duplicati

author: Alessandro Cara

text:
"Debora.Maniero" wrote:
[cut]
> If Not IsNull("query ricerca duplicati") Then
> docmd.openform (mostra record duplicati)....
> strmessaggio = "Questo dato è stato già presente in archivio." & _
> "Vuoi salvarlo comunque?"
> intOpzioni = vbQuestion + vbOKCancel
> bytscelta = MsgBox(strmessaggio, intOpzioni)
> If bytscelta = vbCancel Then
> Mappale.SetFocus
> Cancel = True
> If bytscelta = vbOK Then
> Me.Caselladicontrollo1.Value = True
> DoCmd.Save
> End If
> End If
> End If
> End Sub
[cut]
non riguarda il tuo quesito.
Per quello sei nelle mani del valente Biso.
Hai copiato e incollato?
Quando impari ad "indentare"?
Mi rifiuto di leggere codice non "indentato"
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D80CAC3...@blunet.it...

che vuol dire indentare?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:il4g9.1167$eG6....@twister1.libero.it...
>
> > [cut]
> > non riguarda il tuo quesito.
> > Per quello sei nelle mani del valente Biso.
> > Hai copiato e incollato?
> > Quando impari ad "indentare"?
> > Mi rifiuto di leggere codice non "indentato"
>
> che vuol dire indentare?
Eeehhh... c'ha ragione alessandro... è alla base della stesura di un buon
programma perchè poi è leggibile. Questo è un esempio di indentazione
corretta:
If Not IsNull("query ricerca duplicati") Then
   docmd.openform (mostra record duplicati)....
   strmessaggio = "Questo dato è stato già presente in archivio." & _
   "Vuoi salvarlo comunque?"
   intOpzioni = vbQuestion + vbOKCancel
   bytscelta = MsgBox(strmessaggio, intOpzioni)
   If bytscelta = vbCancel Then
      Mappale.SetFocus
      Cancel = True
      If bytscelta = vbOK Then
          Me.Caselladicontrollo1.Value = True
          DoCmd.Save
      End If
   End If
End If
End Sub
Riesci a notare la differenza?!?
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Tt4g9.1217$my3....@twister2.libero.it...

ahhh...si in effetti è più leggibile.
Ale, ti chiedo umilmente scusa!!!! ;-PPPP
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
[cut]
> > > If Not IsNull("query ricerca duplicati") Then
> > > docmd.openform (mostra record duplicati)....
> > > strmessaggio = "Questo dato è stato già presente in archivio." & _
> > > "Vuoi salvarlo comunque?"
> > > intOpzioni = vbQuestion + vbOKCancel
> > > bytscelta = MsgBox(strmessaggio, intOpzioni)
> > > If bytscelta = vbCancel Then
> > > Mappale.SetFocus
> > > Cancel = True
> > > If bytscelta = vbOK Then
> > > Me.Caselladicontrollo1.Value = True
> > > DoCmd.Save
> > > End If
> > > End If
> > > End If
> > > End Sub
[cut]
>
> che vuol dire indentare?
questo
If Not IsNull("query ricerca duplicati") Then
   docmd.openform (mostra record duplicati)....
   strmessaggio = "Questo dato è stato già presente in archivio." & _
          "Vuoi salvarlo comunque?"
   intOpzioni = vbQuestion + vbOKCancel
   bytscelta = MsgBox(strmessaggio, intOpzioni)
   If bytscelta = vbCancel Then
      Mappale.SetFocus
      Cancel = True
      If bytscelta = vbOK Then
         Me.Caselladicontrollo1.Value = True
         DoCmd.Save
      End If
   End If
End If
End Sub
--
a.cara


title: Query ricerca duplicati

author: Jojo

text:
"Antonio Biso" <
ch...@etruria.net
> wrote:
>Spero di averti chiarito, anche se mi devi delle risposte ancora
Antò, tra le risposte che ti deve la tu' donna, c'è anche quella se ha
intenzione di mettersi a quotare con decenza?


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:om43oukm4s8jmbgul...@4ax.com...

Caro Jojo, sono una persona piuttosto educata, non credo di
che dovresti esserlo anche tu.
le richiesta fatta da te riguarda me non Antonio, pertanto
sei pregato se nn ti vanno le cose che scrivono i visitatori
del NG rivolgiti direttamente a loro. faresti anche una bella
figura.
Sono sicura che,intellegente come sei, avrai capito che non
voglio farti la paternale, ti chiedo solo correttezza.
grazie
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> wrote:
>grazie
Non c'č di che.
PS: Anto', la tu' donna mi cazzia! :-(


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:cej3ou0kauarc42ok...@4ax.com...
> "Debora" <
cbo.ma...@tiscali.it
> wrote:
>
> >grazie
>
> Non c'è di che.
>
> PS: Anto', la tu' donna mi cazzia! :-(
Sei come l'universo, ...non hai confini!
P.S. Non sarai mica geloso?
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> wrote:
>> PS: Anto', la tu' donna mi cazzia! :-(
>
>Sei come l'universo, ...non hai confini!
Anche il Biso, lui però perché è in espansione...
>P.S. Non sarai mica geloso?
Ebbene sì... impossibile competere con un ragazzo brillante e simpa
come il Biso.
(Antò, sono le solite ducentomila all'indirizzo che sai)


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:pX3g9.1024$my3....@twister2.libero.it...
>
Cancello tutto e ricomincio da capo perchè secondo me c'è un approccio non
completamente corretto al tuo problema.
Allora, tu dici che stai caricando qualcosa, e inserisci un codice.
A questo punto, se esiste già un record con quel codice, deve essere data la
possibilità all'utente di salvarlo.
Qui mi vengono due dubbi:
Prima di tutto, che significa salvarlo? Il record è già salvato, infatti
parlammo di settare un campo sì/no, cosicchè quelli a sì non devono più
essere toccati e quindi considerati per altre ricerche duplicati. Ok, ma
allora se si decide di non "salvarlo" che si deve fare con quel record?
Semplicemente lasciare tutto così, cancellarlo dalla tabella o cosa?
Seconda cosa: hai detto che di duplicati ce ne può essere SOLO uno. Perchè?
Non capisco come fai ad essere certa che capiterà solo questa eventualità.
Comunque, lasciando in sospeso questi problemi, direi che le rogne che ti
sei presa con query ricerca duplicati e cose del genere... sono appunto solo
rogne!
All'inserimento del codice, vai a testare in altra maniera se esiste un
record con quel codice, e se esiste, chiedi se si vuole salvarlo e quindi lo
salvi.
Allora, si potrebbe usare una dlookup, ma conviene usare un recordset in
modo che, se devi salvare il record, già hai il mezzo per farlo.
Scriverai:
crit = "Select tab.* from tab where id=" & idinserito & " AND CampoSì/No =
0"
' il crit ti da gli eventuali duplicati mai salvati
set rst = currentdb.openrecorset(crit)
if rst.recordcount > 0 then 'c'è un duplicato
  rst.movefirst
  msg = "Attenzione!@Esiste già un record con quell'id, la cui descrizione è
"
  msg = msg & rst.fields("Desc") & " compilato in data " &
rst.fields("data_comp")
  msg = msg & "@Vuoi salvarlo?"
' ho fatto così per farti vedere che puoi anche fornire info sul record via
msgbox
  if msgbox(msg, vbinformation+vbyesno,"Conferma operazione") = vbno then
    set rst = nothing
    exit sub
  end if
  rst.edit 'se arrivi qui significa che ha risposto yes
  rst.fields("CampoSì/No") = true
  rst.update
end if
set rst = nothing
Altro discorso è se tu lo vuoi anche visualizzare in maschera, ma, a parte
usare query e cose varie, potresti sfruttare i fields, come ho fatto sopra
per la msgbox, per inserire in una serie di caselle di testo, il valore dei
vari campi del record trovato.
Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del campo
idinserito
Ok, per ora mi fermo qui...
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Oqlg9.6775$my3....@twister2.libero.it...
> "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> news:pX3g9.1024$my3....@twister2.libero.it...
> >
>
> Cancello tutto e ricomincio da capo perchè secondo me c'è un approccio non
> completamente corretto al tuo problema.
> Allora, tu dici che stai caricando qualcosa, e inserisci un codice.
> A questo punto, se esiste già un record con quel codice, deve essere data
la
> possibilità all'utente di salvarlo.
> Qui mi vengono due dubbi:
> Prima di tutto, che significa salvarlo? Il record è già salvato, infatti
> parlammo di settare un campo sì/no, cosicchè quelli a sì non devono più
> essere toccati e quindi considerati per altre ricerche duplicati. Ok, ma
> allora se si decide di non "salvarlo" che si deve fare con quel record?
Se decide di non salvarlo si torna sopra con un bel setfocus, e si modifica
con un altro dato.
> Semplicemente lasciare tutto così, cancellarlo dalla tabella o cosa?
> Seconda cosa: hai detto che di duplicati ce ne può essere SOLO uno.
Perchè?
> Non capisco come fai ad essere certa che capiterà solo questa eventualità.
Cavolo, hai ragione!!!!  E qui casca l'asino.  :°-((((((((((((((((


Non è importante visualizzare  all'istante la msk, posso cmq  crearne una
con elencati tutti i duplicati o un report.
>
> Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del campo
> idinserito
>
Allora, ci ho ragionato sopra e ho deciso che mi sparo.
No meglio di no, farei contento solo jojo :-PPPPPPPP
è meglio lasciare che venga visualizzato solo un messaggio
che dica che il record è già esistente, tutto il resto lo elimino.
Imposto solo il campo si/no diventa =true al verificarsi della condizione.
Nelle stampe a video o su stampante, i record duplicati avranno il
campo si/no flagato,in modo che salti subito all'occhio dell'operatore,
e il gioco è fatto.
Le righe di codice che hai scritto su sono ancora valide alla luce
di quello che ho detto?  Scusami Antonio ti sto stressando troppo.


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:1lj3ouk9av11mnh85...@4ax.com...
> "Debora" <
cbo.ma...@tiscali.it
> wrote:
>
> >> PS: Anto', la tu' donna mi cazzia! :-(
> >
> >Sei come l'universo, ...non hai confini!
> Anche il Biso, lui però perché è in espansione...
Ma perchè parli degli altri? Non riesci a rispondere per te stesso!
Che centra Biso, se è in espansione saranno problemi suoi, ti pare?
> >P.S. Non sarai mica geloso?
> Ebbene sì... impossibile competere con un ragazzo brillante e simpa
> come il Biso.
Ohh finalmente hai detto una cosa vera,  però continui a parlare degli
altri.
> (Antò, sono le solite ducentomila all'indirizzo che sai)
Simpaticone. permetti una domanda?
Da dove sei saltato fuori, non avevo ancora visto il tuo nick in giro
--
Debora !


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:xYmg9.7278$my3.1...@twister2.libero.it...
>
> > allora se si decide di non "salvarlo" che si deve fare con quel record?
>
> Se decide di non salvarlo si torna sopra con un bel setfocus, e si
modifica
> con un altro dato.
NON CAPISCO!!!
Sopra dove? Setfocus su cosa? Tu hai davanti la tua maschera, ma io no!!!!
Modifichi con un altro dato, cosa?!?!!
>
> > Semplicemente lasciare tutto così, cancellarlo dalla tabella o cosa?
> > Seconda cosa: hai detto che di duplicati ce ne può essere SOLO uno.
> Perchè?
> > Non capisco come fai ad essere certa che capiterà solo questa
eventualità.
>
> Cavolo, hai ragione!!!!  E qui casca l'asino.  :°-((((((((((((((((
Lo vedi?
Allora, se ci sono più duplicati, l'utente deve decidere su ognuno se
salvarlo?
Se è così, a questo punto potresti avere due strade. una è quella di aprire
la famosa maschera con tutti i record con il codice inserito per farli
salvare. Oppure, se non devi modificare valori di questi record, ma solo
"validarli", potresti usare una casella di riepilogo a scelta multipla
> > Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del
campo
> > idinserito
> >
> Allora, ci ho ragionato sopra e ho deciso che mi sparo.
> No meglio di no, farei contento solo jojo :-PPPPPPPP
> è meglio lasciare che venga visualizzato solo un messaggio
> che dica che il record è già esistente, tutto il resto lo elimino.
> Imposto solo il campo si/no diventa =true al verificarsi della condizione.
> Nelle stampe a video o su stampante, i record duplicati avranno il
> campo si/no flagato,in modo che salti subito all'occhio dell'operatore,
> e il gioco è fatto.
> Le righe di codice che hai scritto su sono ancora valide alla luce
> di quello che ho detto?  Scusami Antonio ti sto stressando troppo.
Per la modifica del campo sì/no direi di sì
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:Flng9.6403$eG6.1...@twister1.libero.it...
>
> > (Antò, sono le solite ducentomila all'indirizzo che sai)
> Simpaticone. permetti una domanda?
> Da dove sei saltato fuori, non avevo ancora visto il tuo nick in giro
Gianni, a questo punto, o mi paghi tu, o lascio che continui a sbranarti!!!
Antonio


title: Query ricerca duplicati

text:
[cut]
> Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del campo
> idinserito
> Antonio
Private Sub Sub_AfterUpdate()
  crit = "Select tab.* from tab where id=" & idinserito & " AND CampoSì/No
=false"
  Set rst = CurrentDb.openrecorset(crit)
If rst.RecordCount > 0 Then 'c'è un duplicato
   rst.MoveFirst
   msg = "Attenzione!@Esiste già un record con quell'id,"" "
   'msg = msg & rst.Fields("Desc") & " compilato in data " &
rst.Fields("data_comp")
   'msg = msg & "@Vuoi salvarlo?"
   If MsgBox(msg, vbInformation + vbYesNo, "Conferma operazione") = vbNo
Then
     Set rst = Nothing
     Exit Sub
   End If
  rst.edit 'se arrivi qui significa che ha risposto yes
  rst.Fields("CampoSì/No") = True
  rst.Update
 End If
Set rst = Nothing
End sub
Questo è quello che ho inserito nell'ultimo dei 4 controlli
(comune,foglio,mapp,sub).
Devo farti alcune domande, citi "idinserito",  cosa intendi?
- "desc" e "data_comp" sono gli ipotetici controlli del record che si è
duplicato ossia del
    primo record inserito? o cosa?
- Li devo sostituire semplicemente col nome del mio controllo o devo
impostargli il percorso?
Scusa se ti faccio queste domande, ma sn necessarie per capire.
P.S. x     A.cara:    va bene l'indentato?  ;-P
        x     Jojo:        il quoting è decente?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:mGog9.6780$eG6.1...@twister1.libero.it...
>
> Questo č quello che ho inserito nell'ultimo dei 4 controlli
> (comune,foglio,mapp,sub).
>
> Devo farti alcune domande, citi "idinserito",  cosa intendi?
Il controllo dove posso andare a recuperare il codice inserito, in modo poi
da ricercare con la query con cui apro il recordset, solo i record che hanno
quel valore nel campo corrispondente
> - "desc" e "data_comp" sono gli ipotetici controlli del record che si č
> duplicato ossia del
>     primo record inserito? o cosa?
desc e data_comp sono i nomi (inventati da me in questo caso) dei campi del
record corrente del recordset che avevo aperto.
Li uso infatti come parametro dell'insieme fields dell'oggetto rst di tipo
recordset.
> - Li devo sostituire semplicemente col nome del mio controllo o devo
> impostargli il percorso?
Vedi sopra. Il problema a questo punto č quello se il recordset ti
restituisce piů record, cioč se ci sono piů record con lo stesso codice che
l'utente ha appena reinserito.
In questo caso infatti tu sei sopra il primo record del recordset, avendo
fatto la rst.movefirst, e dai le info solo del primo record e non di tutti.
Se invece c'č sempre e solo un record, allora va bene cosě
> Scusa se ti faccio queste domande, ma sn necessarie per capire.
Beh, direi che č scontato no?
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> wrote:
>> (Antň, sono le solite ducentomila all'indirizzo che sai)
>Simpaticone. permetti una domanda?
Sě, certo, come no.
>Da dove sei saltato fuori, non avevo ancora visto il tuo nick in giro
Io salto fuori una volta all'anno, quando ho finito di fare il
bugget...
Il resto del tempo lo passo a fare i database per il Biso, in modo che
lui possa fare bella figura spacciandoli per suoi.


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> wrote:
>> Da dove sei saltato fuori, non avevo ancora visto il tuo nick in giro
>
>Gianni, a questo punto, o mi paghi tu, o lascio che continui a sbranarti!!!
Antò, io mica pago gli uomini come fai te! Eccheccazzo...


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:mGog9.6780$eG6.1...@twister1.libero.it...
>
> [cut]
> > Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del
campo
> > idinserito
Private Sub Sub_AfterUpdate()
   crit = "Select tab.* from tab where id=" & codiceditta & " AND CampoSì/No
=0"
nella riga sopra mi da un errore : variabile non definita
   Set rst = CurrentDb.openrecorset(crit)
 If rst.RecordCount > 0 Then 'c'è un duplicato
    rst.MoveFirst
    msg = "Attenzione!@Esiste già un record con quell'id,"" "
    'msg = msg & rst.Fields("Desc") & " compilato in data " &
 rst.Fields("data_comp")
    'msg = msg & "@Vuoi salvarlo?"
    If MsgBox(msg, vbInformation + vbYesNo, "Conferma operazione") = vbNo
 Then
      Set rst = Nothing
      Exit Sub
    End If
   rst.edit 'se arrivi qui significa che ha risposto yes
   rst.Fields("CampoSì/No") = True
   rst.Update
  End If
 Set rst = Nothing
 End sub
 --
 Debora


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:ifa4ouk2b16cjl1a4...@4ax.com...

Si ho visto le tue risposte nei 3d's precedenti.
Hai visto, sai scrivere anche senza citare altre persone. ;-PPPPPPP
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:S7qg9.8248$my3.1...@twister2.libero.it...
>
> "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> news:mGog9.6780$eG6.1...@twister1.libero.it...
> >
> > [cut]
> > > Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del
> campo
> > > idinserito
>
> Private Sub Sub_AfterUpdate()
>    crit = "Select tab.* from tab where id=" & codiceditta & " AND
CampoSě/No
> =0"
>
> nella riga sopra mi da un errore : variabile non definita
E tu definiscila
dim crit as string
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> wrote:
>> Il resto del tempo lo passo a fare i database per il Biso, in modo che
>> lui possa fare bella figura spacciandoli per suoi.
>
>Hai visto, sai scrivere anche senza citare altre persone. ;-PPPPPPP
Fortunatamente anche tu ti sei resa conto che il Biso non è una
persona...


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:63Cg9.9450$eG6.1...@twister1.libero.it...
> "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> news:S7qg9.8248$my3.1...@twister2.libero.it...
> >
> > "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> > news:mGog9.6780$eG6.1...@twister1.libero.it...
> > >
> > > [cut]
> > > > Il codice scritto lo puoi inserire tutto nel dopo aggiornamento del
> > campo
> > > > idinserito
> >
> > Private Sub Sub_AfterUpdate()
bene ora lo da qui ed evidenzia   rst =
Set rst = CurrentDb.openrecordset(crit)
--
Debora


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:pfs5ousss348cisf8...@4ax.com...

Ma sei matto? Sarete sicuramente amici....è l'unica spiegazione.
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:ntCg9.9526$eG6.1...@twister1.libero.it...

Debora!!!!
Devi dichiararle tutte le variabili che usi!!!!
rst è un recordset quindi dovrai fare
dim rst as recordset
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:PvCg9.10182$my3.1...@twister2.libero.it...

Non ti sta venendo il dubbio che sia leggerissimamente invidioso?
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> wrote:
>> Fortunatamente anche tu ti sei resa conto che il Biso non č una
>> persona...
>
>Ma sei matto? Sarete sicuramente amici....č l'unica spiegazione.
Adesso sě che mi ritengo offeso...


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> Debora!!!!
Ti sto facendo perdere la pazienza?
> Devi dichiararle tutte le variabili che usi!!!!
> rst è un recordset quindi dovrai fare
> dim rst as recordset
cmq avevo già dichiarato le variabili.(tutte)
Sono andata avanti da sola, e dopo una serie di
msg di errore, che ho risolto, ne ho incontrato uno
su  rst.edit, mi evidenzia .EDIT. Sono andata a vedere
l'help, ma l'unica cosa che ho trovato è editmode.
Però ho l'impressione che ci sia un problema a monte, magari
nella dichiarazione del "crit". Ti dico come è strutturata la mia Tbl.
Idproprieta (chiave univoca,contatore)
codiceutente(numerico,dupl ammessi)
poi altri campi fra i quali
Comune (testo), foglio (numerico), mapp(numerico), Sub(testo)
questi 4 sono i controlli in cui faccio la ricerca di duplicati.
Poi ho aggiunto una caselladicontrollo (campo si/no).
Ora ti riporto il codice che ho messo sull'evento AfterUpdate del controllo
Sub:
Dim crit as string
Dim rst as recordset
Dim msg as string
Set rst = CurrentDb.openrecorset(crit)
crit = "Select tab.* from tab where id=" & idproprieta & " _
AND caselladicontrollo42=0"
If rst.RecordCount > 0 Then
    rst.MoveFirst
    msg = "Attenzione!@Esiste già un record con quell'id,"" "
    msg = msg & rst.Fields("codiceutente") & " intestato a " &
                rst.Fields("Cognome")
    msg = msg & "@Vuoi salvarlo?"
    If MsgBox(msg, vbInformation + vbYesNo, _
        "Conferma operazione") = vbNo    Then
      Set rst = Nothing
      Exit Sub
    End If
   rst.edit 'se arrivi qui significa che ha risposto yes
   rst.Fields("caselladicontrollo42") = True
   rst.Update
  End If
 Set rst = Nothing
 End sub
Che mi sai dire?
--
Debora


title: Query ricerca duplicati

text:
"Jojo" <sup...@pirotti.ct> ha scritto nel messaggio
news:ms06oug9qil592ptb...@4ax.com...

Ci credo!?  Pufffff!!!!!
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:QMeh9.21260$my3.3...@twister2.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
>
> > Debora!!!!
>
> Ti sto facendo perdere la pazienza?
Beh... i fondamentali...
>
> > Devi dichiararle tutte le variabili che usi!!!!
> > rst è un recordset quindi dovrai fare
> > dim rst as recordset
>
> cmq avevo già dichiarato le variabili.(tutte)
>
> Sono andata avanti da sola, e dopo una serie di
> msg di errore, che ho risolto, ne ho incontrato uno
> su  rst.edit, mi evidenzia .EDIT. Sono andata a vedere
> l'help, ma l'unica cosa che ho trovato è editmode.
Non posso credere che se vai in help e metti la parola edit nopn ti trovi il
metodo edit dei recordset
Ah... ma tu che versione di access usi?
> Però ho l'impressione che ci sia un problema a monte, magari
> nella dichiarazione del "crit". Ti dico come è strutturata la mia Tbl.
> Idproprieta (chiave univoca,contatore)
> codiceutente(numerico,dupl ammessi)
> poi altri campi fra i quali
> Comune (testo), foglio (numerico), mapp(numerico), Sub(testo)
> questi 4 sono i controlli in cui faccio la ricerca di duplicati.
Aspè. Ma i duplicati non erano rispetto all'unico campo codiceutente?
La select sotto ricerca i/il duplicato rispetto a quel campo e basta,
secondo il valore inserito in maschera nel controllo idproprietà
> Poi ho aggiunto una caselladicontrollo (campo si/no).
> Ora ti riporto il codice che ho messo sull'evento AfterUpdate del
controllo
> Sub:
>
> Dim crit as string
> Dim rst as recordset
> Dim msg as string
>
> Set rst = CurrentDb.openrecorset(crit)
> crit = "Select tab.* from tab where id=" & idproprieta & " _
> AND caselladicontrollo42=0"
Caselladicontrollo42 è il nome del campo?
Carissima...
Se tu usi crit nella prima riga, non puoi assegnargli un valore nella riga
successiva.
Devi invertire chiaramente le due righe
>    rst.edit 'se arrivi qui significa che ha risposto yes
>    rst.Fields("caselladicontrollo42") = True
Non posso credere che il CAMPO della tua tabella si chiami
caselladicontrollo42
rst è un recordset, in questo momento sta puntando ad un particolare record,
l'insieme fields è quello di tutti i suoi campi, tu devi prenderne uno in
particolare e scriverci dentro. Per questo devi usare il nome del campo, non
il nome del controllo che poi magari è associato sulla maschera!!!
>    rst.Update
>   End If
>  Set rst = Nothing
>  End sub
>
> Che mi sai dire?
Quello che ho detto!
Antonio


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:5Zfh9.26$wr....@twister1.libero.it...
 >
> > Sono andata avanti da sola, e dopo una serie di
> > msg di errore, che ho risolto, ne ho incontrato uno
> > su  rst.edit, mi evidenzia .EDIT. Sono andata a vedere
> > l'help, ma l'unica cosa che ho trovato è editmode.
>
> Non posso credere che se vai in help e metti la parola edit nopn ti trovi
il
> metodo edit dei recordset
> Ah... ma tu che versione di access usi?
Uso access2000, e ti posso garantire che non ho trovato nessun Edit
tant'è che quando scrivi le righe in Vb  appena metti il punto lui
ti propone una lista, è EDIT non cè.
> > Però ho l'impressione che ci sia un problema a monte, magari
> > nella dichiarazione del "crit". Ti dico come è strutturata la mia Tbl.
> > Idproprieta (chiave univoca,contatore)
> > codiceutente(numerico,dupl ammessi)
> > poi altri campi fra i quali
> > Comune (testo), foglio (numerico), mapp(numerico), Sub(testo)
> > questi 4 sono i controlli in cui faccio la ricerca di duplicati.
>
> Aspè. Ma i duplicati non erano rispetto all'unico campo codiceutente?
> La select sotto ricerca i/il duplicato rispetto a quel campo e basta,
> secondo il valore inserito in maschera nel controllo idproprietà
No, devo controllare i dati di quei 4 campi dell'intera tabella "proprieta"
> > Poi ho aggiunto una caselladicontrollo (campo si/no).
> > Ora ti riporto il codice che ho messo sull'evento AfterUpdate del
> controllo
> > Sub:
> >
> > Dim crit as string
> > Dim rst as recordset
> > Dim msg as string
> >
> > Set rst = CurrentDb.openrecorset(crit)
> > crit = "Select tab.* from tab where id=" & idproprieta & " _
> > AND caselladicontrollo42=0"
>
> Caselladicontrollo42 è il nome del campo?
No del controllo nella mask, ok allora metto quello della tbl.
> Carissima...
> Se tu usi crit nella prima riga, non puoi assegnargli un valore nella riga
> successiva.
> Devi invertire chiaramente le due righe
Già. :-(
>
> >    rst.edit 'se arrivi qui significa che ha risposto yes
> >    rst.Fields("caselladicontrollo42") = True
>
> Non posso credere che il CAMPO della tua tabella si chiami
> caselladicontrollo42
> rst è un recordset, in questo momento sta puntando ad un particolare
record,
> l'insieme fields è quello di tutti i suoi campi, tu devi prenderne uno in
> particolare e scriverci dentro. Per questo devi usare il nome del campo,
non
> il nome del controllo che poi magari è associato sulla maschera!!!
ok.
> >    rst.Update
> >   End If
> >  Set rst = Nothing
> >  End sub
> >
> > Che mi sai dire?
>
> Quello che ho detto!
Ok riprovo.


title: Query ricerca duplicati

text:
Debora wrote:
>
[cut]
>
> Uso access2000, e ti posso garantire che non ho trovato nessun Edit
> tant'č che quando scrivi le righe in Vb  appena metti il punto lui
> ti propone una lista, č EDIT non cč.
usi ADO o DAO?
[cut]


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D85A13B...@blunet.it...

DAO, perchč?
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:7Kgh9.221$j15....@twister2.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:5Zfh9.26$wr....@twister1.libero.it...
>  >
> > > Sono andata avanti da sola, e dopo una serie di
> > > msg di errore, che ho risolto, ne ho incontrato uno
> > > su  rst.edit, mi evidenzia .EDIT. Sono andata a vedere
> > > l'help, ma l'unica cosa che ho trovato è editmode.
> >
> > Non posso credere che se vai in help e metti la parola edit nopn ti
trovi
> il
> > metodo edit dei recordset
> > Ah... ma tu che versione di access usi?
>
> Uso access2000, e ti posso garantire che non ho trovato nessun Edit
> tant'è che quando scrivi le righe in Vb  appena metti il punto lui
> ti propone una lista, è EDIT non cè.
Aspetta, ma la definizione di rst come l'hai fatta?
> > Aspè. Ma i duplicati non erano rispetto all'unico campo codiceutente?
> > La select sotto ricerca i/il duplicato rispetto a quel campo e basta,
> > secondo il valore inserito in maschera nel controllo idproprietà
>
> No, devo controllare i dati di quei 4 campi dell'intera tabella
"proprieta"
Uh, cavolo...
Allora la query del recordset deve essere diversa...
Mo' ce penso...
> > Caselladicontrollo42 è il nome del campo?
>
> No del controllo nella mask, ok allora metto quello della tbl.
Eh certo!
>
> > Carissima...
> > Se tu usi crit nella prima riga, non puoi assegnargli un valore nella
riga
> > successiva.
> > Devi invertire chiaramente le due righe
>
> Già. :-(
Su, su.. pat pat
Antonio


title: Query ricerca duplicati

text:

non mi pare possibile accludo un pezzetto di software
(stesso ambiente 2000 con DAO)
e ti assicuro che funziona perfettamente
***************
                    Set rstclone = Me.RecordsetClone
                    rstclone.FindFirst criterio
                    Do While rstclone.NoMatch = False
                        With rstclone
                            .Edit
                            !Controllo = False
                            !Controllo1 = False
                            .Update
                        End With
                        rstclone.FindNext criterio
                    Loop
                    rstclone.Close
**********
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D85A6DF...@blunet.it...

Non so che dire, ho verificato la libreria, DAO!
Perň non funge.
--
Debora


title: Query ricerca duplicati

text:
"Debora" <
cbo.ma...@tiscali.it
> ha scritto nel messaggio
news:g5jh9.725$wr.1...@twister1.libero.it...
>
>
> Non so che dire, ho verificato la libreria, DAO!
> Però non funge.
>
Hai verificato il solito giochetto dei riferimenti spuntati?
Antonio


title: Query ricerca duplicati

text:
Debora wrote:
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
[cut]
>
> Set rst = CurrentDb.openrecorset(crit)
> crit = "Select tab.* from tab where id=" & idproprieta & " _
> AND caselladicontrollo42=0"
e' questa la tua sequenza!!!!!!!!!!!!!!
ma porca miseria, prima attivi  il recordset e poi valorizzi crit?????
Non so proprio cosa possa esserci in quel recordset!
se e' cosi'. Rimandata in tutte le materie
[cut]


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D85C977...@blunet.it...

Senti! Nummela trattà male!
L'ho già cazziata io!!!
Antonio


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D85C977...@blunet.it...

Ale! Ma che ti succede oggi? Xkè sei così scortese?
Hai percaso fatto cilecca ieri? ;-P
--
Debora


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:0Qjh9.1940$j15....@twister2.libero.it...

Ho verificato tutto, e dato che era spuntata anche la ADO,
ho selezionato la Dao e lo spostata sopra.
Ora riconosce quel rst.edit. ma mi restituisce un errore
3078 (non trova la tab o la query di input)
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
e e' cosi'. Rimandata in tutte le materie
> >
> Ale! Ma che ti succede oggi? Xkè sei così scortese?
> Hai percaso fatto cilecca ieri? ;-P
mica ho scritto che ti bocciavo.
per fare cilecca
(se ho compreso il velato riferimento)
c'e' bisogno della materia prima
in questo momento il mio magazzino ne e' sprovvisto
e la mia azienda fornitrice tarda ad esaudire il
mio ordine
l'hai sistemata la sequenza delle istruzioni?
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D85EA82...@blunet.it...

Si, ma non ci capisco più nulla. Ho paura che fra un pò viene
fuori dal monitor l'assistente di office e cominci a schiaffeggiarmi.
Hai letto il mio post delle 16.16 ?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:9Jlh9.1613$wr.2...@twister1.libero.it...

Ok, allora è scritta male la query contenuta nella crit
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
> Si, ma non ci capisco piů nulla. Ho paura che fra un pň viene
> fuori dal monitor l'assistente di office e cominci a schiaffeggiarmi.
lui si che sarebbe scortese
> Hai letto il mio post delle 16.16 ?
si l'ho letto. per questo ti ho chiesto se avevi sistemato la
sequenza. L'errore poteva essere sulla "set" del recordset.
--
a.cara


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:_kmh9.43$Hc7...@twister1.libero.it...

Mi è venuto un dubbio attroce:
Ma, non è che devo creare un indice su questi 4 campi
nella tabella che li contiene?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
[cut]
> Mi č venuto un dubbio attroce:
> Ma, non č che devo creare un indice su questi 4 campi
> nella tabella che li contiene?
debora non scrivere "bischerate"
gli indici servono solo per far andare le cose piu' velocemente
(generalmente)
cutta e pasta il codice che stai eseguendo
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D86042F...@blunet.it...

Private Sub Sub_AfterUpdate()
Dim crit As String
Dim rst As Recordset
Dim msg As String
Set rst = CurrentDb.openrecordset(crit)
crit = "Select * from proprieta where id=" & IDProprieta & " AND
duplicato=0"
>>>>nella riga sopra sto provando un pň di soluzioni, quella che
  mi ha suggerito Antonio č:
  crit = "Select tab.* from tab where id=" & idinserito & " AND
  CampoSě/No =0"
If rst.RecordCount > 0 Then 'c'č un duplicato
  rst.MoveFirst
  msg = "Attenzione!@Esiste giŕ un record con quell'id,"" "
  'msg = msg & rst.Fields("Desc") & " compilato in data " &
rst.Fields("data_comp")
  'msg = msg & "@Vuoi salvarlo?"
  If MsgBox(msg, vbInformation + vbYesNo, "Conferma operazione") = vbNo Then
    Set rst = Nothing
    Exit Sub
  End If
  rst.Edit
  rst.Fields("duplicato") = True
  rst.Update
End If
Set rst = Nothing
End Sub
--
Debora


title: Query ricerca duplicati

author: Damiano Zorzi

text:
"Debora.Maniero" <
> Si, ma non ci capisco piů nulla. Ho paura che fra un pň viene
> fuori dal monitor l'assistente di office e cominci a schiaffeggiarmi.
> Hai letto il mio post delle 16.16 ?
Ma Debora ... sei almeno una bella topina?  :-))


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:kbnh9.283$Av4....@twister2.libero.it...
>
> > > Ho verificato tutto, e dato che era spuntata anche la ADO,
> > > ho selezionato la Dao e lo spostata sopra.
> > > Ora riconosce quel rst.edit. ma mi restituisce un errore
> > > 3078 (non trova la tab o la query di input)
> >
> > Ok, allora è scritta male la query contenuta nella crit
> >
> > Antonio
>
>
> Mi è venuto un dubbio attroce:
> Ma, non è che devo creare un indice su questi 4 campi
> nella tabella che li contiene?
Debora... non dire bischerate
Cutta e pasta
Antonio


title: Query ricerca duplicati

text:
"Damiano Zorzi" <
damiano.NO...@libero.it
> ha scritto nel messaggio
news:Beoh9.686$Hc7....@twister1.libero.it...

Sai Damiano, noi due abbiamo una cosa in comune:
UN PROBLEMA,
io con access, tu mentale!
--
Debora


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:lioh9.685$Av4....@twister2.libero.it...

Gia fatto, leggi il post precedente. ;-P
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
> Sai Damiano, noi due abbiamo una cosa in comune:
> UN PROBLEMA,
> io con access, tu mentale!
:-(


title: Query ricerca duplicati

text:
"Damiano Zorzi" <
damiano.NO...@libero.it
> ha scritto nel messaggio
news:Lmoh9.731$Hc7....@twister1.libero.it...

ehh, scusami, ma sto diventando pazza con
questo problema e tu ne vieni fuori con una cavolata
simile!
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
> > "Debora.Maniero" <
> > > Sai Damiano, noi due abbiamo una cosa in comune:
> > > UN PROBLEMA,
> > > io con access, tu mentale!
> > :-(
> ehh, scusami, ma sto diventando pazza con
> questo problema e tu ne vieni fuori con una cavolata
> simile!
In realtà mi hai frainteso: non intendevo affatto essere scortese o
offensivo ... la mia era semplice curiosità.
... per il tuo problema, dato che il 3D è ormai antico perchè non lo riposti
con un nuovo subject, così magari altri possono aiutarti.
Fai la brava :-)
Damiano


title: Query ricerca duplicati

text:
"Damiano Zorzi" <
damiano.NO...@libero.it
> ha scritto nel messaggio
news:Dsoh9.773$Av4....@twister2.libero.it...
>
> "Debora.Maniero" <
>
> > > "Debora.Maniero" <
>
> > > > Sai Damiano, noi due abbiamo una cosa in comune:
> > > > UN PROBLEMA,
> > > > io con access, tu mentale!
>
> > > :-(
>
> > ehh, scusami, ma sto diventando pazza con
> > questo problema e tu ne vieni fuori con una cavolata
> > simile!
>
> In realtà mi hai frainteso: non intendevo affatto essere scortese o
> offensivo ... la mia era semplice curiosità.
ne sono certa. La mia è stata una risposta stupida
tento quanto tua domanda. La tua curiosità...
il NG è frequentato da ragazzi che mi conoscono
informati da loro. (spero che non lo faccia nel NG).
Ma ripeto sono qui per access non per cercare
marito!
> ... per il tuo problema, dato che il 3D è ormai antico perchè non lo
riposti
> con un nuovo subject, così magari altri possono aiutarti.
grazie per il suggerimento.
> Fai la brava :-)
> Damiano
>
Io sono sempre brava, finchè gli altri
fanno i bravi con me! ;-)
--
Debora


title: Query ricerca duplicati

text:

tu stai a fa' diventa' pazzo me
--
a.cara


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
> "Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
> news:3D86042F...@blunet.it...
> > "Debora.Maniero" wrote:
> > [cut]
> > > Mi č venuto un dubbio attroce:
> > > Ma, non č che devo creare un indice su questi 4 campi
> > > nella tabella che li contiene?
> > debora non scrivere "bischerate"
> > gli indici servono solo per far andare le cose piu' velocemente
> > (generalmente)
> >
> > cutta e pasta il codice che stai eseguendo
> >
> > --
[cut]
> Set rst = CurrentDb.openrecordset(crit)
> crit = "Select * from proprieta where id=" & IDProprieta & " AND
> duplicato=0"
e poi dici che non mi devo imbufalire
ma 'ste due istruzioni le voi 'nverti' o no
prima "hai" da impostare "crit"
e poi (poiiiiiiiiiiiiiiiiii) aprire il recordset
cosi' com'e' nun va bene!!!!!!!!!!!!!!!
[cut]
--
a.cara


title: Query ricerca duplicati

text:
"Debora.Maniero" <
> Ma ripeto sono qui per access non per cercare
> marito!
Ah, quindi l'avevi già detto! ;-)


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D8614B9...@blunet.it...
> "Debora.Maniero" wrote:
> >
> > "Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
> > news:3D86042F...@blunet.it...
> > > "Debora.Maniero" wrote:
> > > [cut]
> > > > Mi è venuto un dubbio attroce:
> > > > Ma, non è che devo creare un indice su questi 4 campi
> > > > nella tabella che li contiene?
> > > debora non scrivere "bischerate"
> > > gli indici servono solo per far andare le cose piu' velocemente
> > > (generalmente)
> > >
> > > cutta e pasta il codice che stai eseguendo
> > >
> > > --
> [cut]
> > Set rst = CurrentDb.openrecordset(crit)
> > crit = "Select * from proprieta where id=" & IDProprieta & " AND
> > duplicato=0"
> e poi dici che non mi devo imbufalire
> ma 'ste due istruzioni le voi 'nverti' o no
> prima "hai" da impostare "crit"
> e poi (poiiiiiiiiiiiiiiiiii) aprire il recordset
> cosi' com'e' nun va bene!!!!!!!!!!!!!!!
>
> [cut]
> --
> a.cara
o santo Dio,  è giusto. ti spiego, ho
creato una copia del database in cui sto facendo le prove
io ti ho incollato quello in cui non ho ancora apportato le
modifiche.
Sto modificando la crit a tentativi, infatti sono arrivata ad un altro
errore,pare che manchi un parametro, previsto 1.
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:Yjoh9.697$Av4....@twister2.libero.it...

ROTFL!!!
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
[cut]
> o santo Dio,  è giusto. ti spiego, ho
> creato una copia del database in cui sto facendo le prove
> io ti ho incollato quello in cui non ho ancora apportato le
> modifiche.
> Sto modificando la crit a tentativi, infatti sono arrivata ad un altro
> errore,pare che manchi un parametro, previsto 1.
90 su 100 hai sbagliato nome campo
o id o duplicato
controlla i nomi sulla struttura tabella
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D861D91...@blunet.it...

Ti posso chiedere di scrivermi la sintassi per quel crit?
ho i dubbi su
 crit = "Select (????) from (proprieta????) where (id)="_
                        ^^^               ^^^^                        ^
& (IDProprieta) & " AND duplicato=0"
         ^^^
Dopo SELECT che ci va? l'asterisco?
dopo FROM? il nome della tbl ("proprieta")
dopo WHERE ? è un riferimento a un campo o a un
controllo?
dopo & io ci ho messo l'idproprieta (chiave univoca)
La sintassi è corretta? sembra che manchi un parametro!
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
news:veph9.1112$Av4....@twister2.libero.it...
>
>
> Ti posso chiedere di scrivermi la sintassi per quel crit?
> ho i dubbi su
>  crit = "Select (????) from (proprieta????) where (id)="_
>                         ^^^               ^^^^                        ^
>
> & (IDProprieta) & " AND duplicato=0"
>          ^^^
>
> Dopo SELECT che ci va? l'asterisco?
Nome tabella punto *
tuatab.*
> dopo FROM? il nome della tbl ("proprieta")
Tuatab
> dopo WHERE ? è un riferimento a un campo o a un
> controllo?
Debora....
Le query si fanno sulle tabelle. Il where corrisponde a mettere un criterio
sotto un campo di una tabella. Hai mai provato a vedere il codice SQL
generato dal QBE quando fai le query?
Comunque where NOMECAMPO condizione logica costante
> dopo & io ci ho messo l'idproprieta (chiave univoca)
No, where idproprietà =" & Nomecontrollo
dove nomecontrollo è il controllo sulla maschera dove ci va il valore che
vuoi ricercare in tabella nel campo idproprietà
quindi stai cercando i record che hanno come valore nel campo idproprietà
quello inserito nel controllo Nomecontrollo
> La sintassi è corretta? sembra che manchi un parametro!
Adesso è chiaro?
Antonio


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
> "Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
> news:3D861D91...@blunet.it...
> > "Debora.Maniero" wrote:
[cut]
>
> Ti posso chiedere di scrivermi la sintassi per quel crit?
> ho i dubbi su
>  crit = "Select (????) from (proprieta????) where (id)="_
la sintassi e' questa
"Select * from tabella where nomecampo = valore....."
Tabella = nome della tua tabella (proprieta?)
nomecampo = id (sicuro?)
valore = idproprieta (nome controllo form sicuro?)
nomecampo = duplicato (sicuro?)
valore = 0
crit="select * from proprieta where id=" & idproprieta & " and
duplicato=0"
--
a.cara


title: Query ricerca duplicati

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:7vph9.1211$Hc7....@twister1.libero.it...
> "Debora.Maniero" <
debbym...@libero.it
> ha scritto nel messaggio
> news:veph9.1112$Av4....@twister2.libero.it...
> >
> >
> > Ti posso chiedere di scrivermi la sintassi per quel crit?
> > ho i dubbi su
> >  crit = "Select (????) from (proprieta????) where (id)="_
> >                         ^^^               ^^^^                        ^
> >
> > & (IDProprieta) & " AND duplicato=0"
> >          ^^^
> >
> > Dopo SELECT che ci va? l'asterisco?
>
> Nome tabella punto *
> tuatab.*
ok, proprieta.*
>
> > dopo FROM? il nome della tbl ("proprieta")
>
> Tuatab
proprieta
>
> > dopo WHERE ? è un riferimento a un campo o a un
> > controllo?
>
> Debora....
> Le query si fanno sulle tabelle. Il where corrisponde a mettere un
criterio
> sotto un campo di una tabella. Hai mai provato a vedere il codice SQL
> generato dal QBE quando fai le query?
> Comunque where NOMECAMPO condizione logica costante
>
> > dopo & io ci ho messo l'idproprieta (chiave univoca)
>
> No, where idproprietà =" & Nomecontrollo
> dove nomecontrollo è il controllo sulla maschera dove ci va il valore che
> vuoi ricercare in tabella nel campo idproprietà
> quindi stai cercando i record che hanno come valore nel campo idproprietà
> quello inserito nel controllo Nomecontrollo
ecco dovè l'errore
io ci mettevo l'id !!!!
dato che è univoco non può trovarmi altri record con quel id!!!!
>
> > La sintassi è corretta? sembra che manchi un parametro!
>
> Adesso è chiaro?
Sembra di si, adesso provo.
--
Debora


title: Query ricerca duplicati

text:
[cut]
>
> >
> > > La sintassi è corretta? sembra che manchi un parametro!
> >
> > Adesso è chiaro?
>
> Sembra di si, adesso provo.
FUNZIONA!!!!!!!!!!!!!!!!!!!!!!!!!!!
Però cè un problemino.
Ho provato ad inserire un duplicato, ovviamente
(visto che funziona), mi restituisce il msg
"esiste già quel......"
vuoi salvarlo? io rispondo si.
Vado a controllare nella tbl e trovo
che mi va a selezionare a VERO solo la caselladicontrollo
del primo record duplicato.
A me, servirebbe che li selezionasse entrambi i duplicati!
Dai un piccolo sforzo ancora, ci siamo quasi, poi
promesso, vi porto a pranzo, però dovete venire qua da me!!! ;-PPPPPPPPP
--
Debora
P.S. Non sto tentando di corrompervi!!!


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
[cut]
> ecco dovè l'errore
> io ci mettevo l'id !!!!
> dato che è univoco non può trovarmi altri record con quel id!!!!
sono straimbufalito
cosa kaiser c'entra il fatto che non trovi record
con il fatto dell'errore formale sulla select
ahhahhhhahha la "loggica"
--
a.cara


title: Query ricerca duplicati

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3D8628B0...@blunet.it...

La logica?
Meglio non farsi troppe domande?
So solo che il mio ragionamento giusto o sbagliato
che sia ha dato i suoi frutti. Ecco qua il risultato:
Private Sub Sub_AfterUpdate()
Dim crit As String
Dim rst As Recordset
Dim msg As String
crit = "Select proprieta.* from proprieta where mappale=" & Mappale & " AND
duplicato=0"
Set rst = CurrentDb.openrecordset(crit)
If rst.RecordCount > 0 Then 'c'è un duplicato
  rst.MoveFirst
  msg = "Attenzione!@Esiste già un record con quell'id,"" "
  'msg = msg & rst.Fields("Desc") & " compilato in data " &
rst.Fields("data_comp")
  'msg = msg & "@Vuoi salvarlo?"
  If MsgBox(msg, vbInformation + vbYesNo, "Conferma operazione") = vbNo Then
    Set rst = Nothing
    Exit Sub
  End If
  'rst.Update
  rst.Edit
  rst.Fields("duplicato") = True
  rst.Update
End If
Set rst = Nothing
End Sub
Scusa la mia ignoranza ma  where mappale=" & Mappale
non vuol dire :come mappale(campo)=Mappale(controllo) ?
se io ci metto l'id (come condizione) quello mi troverà sempre
e solo un record visto che è univoco!
Invece me ne deve trovare almeno due nel caso di un duplicato!
A me sembra che non faccia una piega il mio ragionamento.
A te non sembra?
--
Debora


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
nuovo topic --> nuovo post
fai sto sforzo che il 3d "Query ricerca duplicati" e' diventato
un gran casino
--
a.cara


title: Query ricerca duplicati

text:
"Debora.Maniero" wrote:
>
[cut]
> Scusa la mia ignoranza ma  where mappale=" & Mappale
> non vuol dire :come mappale(campo)=Mappale(controllo) ?
> se io ci metto l'id (come condizione) quello mi troverà sempre
> e solo un record visto che è univoco!
> Invece me ne deve trovare almeno due nel caso di un duplicato!
> A me sembra che non faccia una piega il mio ragionamento.
> A te non sembra?
di pieghe ne fa una cifra
prima erravi poiche' secondo me non esiste sulla tua tabella
il campo ID et quindi il sistema lo considera un parametro
se l'id  (ma si chiama poi cosi' il campo?) e' univoco e'
chiaro come una birra chiara che te ne trova uno (se l'azzecchi)
altrimenti nessuno
ma se l'id e' univoco mi spieghi come fa  a trovartene 2?
non te lo fa inserire.
mo' me vado a magna' na pizza.
--
a.cara


title: Query ricerca duplicati

author: Maurizio Borrelli

text:
> "Debora" [...]:
> Dim crit as string
> Dim rst as recordset
    Dim rst As DAO.Recordset
> Dim msg as string
> Set rst = CurrentDb.openrecorset(crit)
[...]
> If rst.RecordCount > 0 Then
    Consulta la guida a proposito di
        Property RecordCount As Long
            sola lettura
            Membro di DAO.Recordset
in particolare dove dice:
**********
La proprietą RecordCount non indica il numero di record contenuti in un
oggetto Recordset di tipo dynaset, snapshot o forward-only scrolling finché
non si č avuto accesso a tutti i record.
[...]
Quando si utilizzano oggetti TableDef collegati, la proprietą RecordCount č
sempre impostata a –1.
**********
    Considera il codice seguente:
        If ((rst.BOF=True) And (rst.EOF=True)) Then
            '
            ' Nessun record.
            '
            MsgBox <...>
        Else
            '
            ' Scorre tutti i record.
            '
            Do Until rst.EOF = True
                ' ...
                rst.Movenext
            Loop
        End If
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Query ricerca duplicati

text:
"[cut]
Maurizio, ti ho risposto nel nuovo 3d "Query dupl....(2).
--
Debora


title: Query ricerca duplicati

text:
"Damiano Zorzi" <
damiano.NO...@libero.it
> ha scritto nel messaggio
news:Beoh9.686$Hc7....@twister1.libero.it...

ohhhhh


title: Query ricerca duplicati

text:
"Giansergio" <
gians...@email.it
> ha scritto nel messaggio
news:am6g65$pg6$1...@nntp.weblinea.it...

Damiano ...Damiano, una bella topina?
Debby č un gran pezzo di Fig.....liola.
Qui la chiamano Randy, perchč č identica a Randy Ingermann
ma secondo me č piů bella.
Debby non ti arrabbiare ma loro non ti vedono,
altrimenti non riuscirebbero nemmeno a parlare, dalla
bava che gli si formerebbe in bocca!!!!
Giansergio


title: Query ricerca duplicati

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:am5ca0$2rj18$1...@ID-52090.news.dfncis.de...
> **********
> La proprietą RecordCount non indica il numero di record contenuti in un
> oggetto Recordset di tipo dynaset, snapshot o forward-only scrolling
finché
> non si č avuto accesso a tutti i record.
Questa cosa, con Access 97 non č mai stata vera!!!!
Antonio


title: Query ricerca duplicati

text:
> "Antonio Biso" [...]:
> > "Maurizio Borrelli" [...]:
> > La proprietà RecordCount non indica il numero di record contenuti in un
> > oggetto Recordset di tipo dynaset, snapshot o forward-only scrolling
> > finché non si è avuto accesso a tutti i record.
> Questa cosa, con Access 97 non è mai stata vera!!!!
    Puo' darsi. Ma non e' rilevante. Non ne faccio una questione di come e'
o come non e' ma di prudenza. Capiamoci: si scrive del codice e funziona.
Poi si cambia una riga e non funziona piu'. Magari quella riga funziona, ma
il problema si manifesta in un'altra parte del codice. Credo che tutti noi
conosciamo bene situazioni di questo tipo, no? Perche' succede questo?
Perche' introduciamo delle dipendenze fra le varie parti del codice. Cioe'
una riga funziona *a condizione* che una precedente riga, magari molte righe
piu' su, o in altra routine, sia scritta in un certo modo. A volte non si
possono proprio evitare queste dipendenze perche' sono strutturali del
linguaggio o degli oggetti che manipoliamo. Ma quando si possono evitare va
tutto a nostro vantaggio.
    Se allora il funzionamento del mio programma si basa sul test
dell'esistenza o meno di record in una tabella e quindi scrivo *da qualche
parte* nel mio codice*:
        If <oggetto>.RecordCount > 0 Then
e funziona, e ha sempre funzionato, chi mi garantisce pero' che un
piripicchio qualsiasi, o io stesso, un bel giorno non decidiamo di scrivere,
per esempio:
        Set <oggetto> = Workspaces(0).Databases(0).TableDefs("Tabella1")
?
    Essendo "Tabella1" una tabella collegata --come generalmente e' o
dovrebbe essere-- il valore di RecordCount me lo trovo uguale a -1 e il mio
codice non funziona piu'.
    Caso raro? Puo' darsi. Caso improbabile? Puo' darsi. Pero' come la
mettiamo con la legge di Murphy?
    Percio' personalmente preferisco testare BOF e EOF che sicuramente
producono sempre lo stesso effetto, *indipendentemente* dalle altre righe
del mio codice.



title: Query ricerca duplicati

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:am6vnl$31na5$1...@ID-52090.news.dfncis.de...
>     Essendo "Tabella1" una tabella collegata --come generalmente e' o
> dovrebbe essere-- il valore di RecordCount me lo trovo uguale a -1 e il
mio
> codice non funziona piu'.
>
>     Caso raro? Puo' darsi. Caso improbabile? Puo' darsi. Pero' come la
> mettiamo con la legge di Murphy?
Aspč... per le tabelle allegate č vero, per quelle locali non mi č MAI
successo quello che dice l'help
Antonio


title: Cosa strana

author: Massimo

text:
In access 97 mi č sparito il Beep, qualunque routin che richiama il Beep,
non lo fa piů, cosa č successo ?
Max


title: Cosa strana

author: stwe

text:
"Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
news:tBKu7.16921$0Y2.2...@news.infostrada.it...
> In access 97 mi è sparito il Beep, qualunque routin che richiama il Beep,
> non lo fa più, cosa è successo ?
> Max
>
secondo me non è access, ma o il SO o la motherboard....
by
stwe


title: Cosa strana

text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:rEKu7.16980$0Y2.2...@news.infostrada.it...
>
> "Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
> news:tBKu7.16921$0Y2.2...@news.infostrada.it...
> > In access 97 mi č sparito il Beep, qualunque routin che richiama il
Beep,
> > non lo fa piů, cosa č successo ?
> > Max
> >
> secondo me non č access, ma o il SO o la motherboard....
> by
ma se avvio il 2000 funziona benissimo, anche convrtendo lo stesso db,
Max


title: Cosa strana

text:
"Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
news:QQLu7.17849$0Y2.2...@news.infostrada.it...
>
> "stwe" <
st...@stwe.org
> ha scritto nel messaggio
> news:rEKu7.16980$0Y2.2...@news.infostrada.it...
> >
> > "Massimo" <
ron...@tiscalinet.it
> ha scritto nel messaggio
> > news:tBKu7.16921$0Y2.2...@news.infostrada.it...
> > > In access 97 mi è sparito il Beep, qualunque routin che richiama il
> Beep,
> > > non lo fa più, cosa è successo ?
> > > Max
> > >
> > secondo me non è access, ma o il SO o la motherboard....
> > by
>
> ma se avvio il 2000 funziona benissimo, anche convrtendo lo stesso db,
> Max
>
Allora non so cosa dirti, scusa.
by
stwe


title: Concatenare più record in uno unico.

author: roma

text:
Buon giorno
Ho il seguente problema:
Utilizzo ACCESS 2003
Concatenare una colonna di record in un unico record spaziandolo tra di loro con un simbolo/segno, mi spiego meglio.

NOME     VERSIONE      CILINDRATA     TARGA
500         L            1200         ABCD
500         L            1200         ABCA
500         L            1200         ABCE
500         L            1300         ABCD
500         L            1300         ABCA
500         L            1300         ABBB

il risultato che vorrei è

NOME     VERSIONE      CILINDRATA	   QUANTITA       TARGHE
500        L            1200            3        ABCD,ABCA,ABCE
500        L            1300            3        ABCD,ABCA,ABBB

Come posso fare, significando che non sono molto ferrato con il VBA e vorrei riportare il tutto su un report. grazie

ROMANO


title: Concatenare più record in uno unico.

text:

Sembra che tu vuoi un raggruppamento per Cilindrata.
In un modulo inserisci questa funzione:
Public Function strTarghe(Cilindrata) As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    strTarghe = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("miaTabella", dbOpenDynaset, dbFailOnError + dbSeeChanges)
    Do Until rs.EOF
        If rs!Cilindrata = Cilindrata Then
            strTarghe = strTarghe & rs!targa & ", "
        End If
        rs.MoveNext
    Loop
    If Len(strTarghe) > 0 Then
        strTarghe = Left(strTarghe, Len(strTarghe) - 2)
    End If
    Set rs = Nothing
End Function

E poi la richiami in una query:

SELECT First(miaTabella.Nome) AS PrimoDiNome, First(miaTabella.Versione) AS PrimoDiVersione, miaTabella.Cilindrata, Count(miaTabella.Cilindrata) AS Quantita, strTarghe([Cilindrata]) AS Targhe
FROM miaTabella
GROUP BY miaTabella.Cilindrata;

--
sv


title: Concatenare più record in uno unico.

text:
...
> --
> sv

Buongiorno ;-)

@Alex


title: Concatenare più record in uno unico.

text:

"Vo'scenza benerica"

...

Ci teniamo in allenamento
;-)

--
sv


title: Concatenare più record in uno unico.

author: CIDI

text:

lieto di risentirti... :-)

Daniele

--- news://
freenews.netfront.net/
 - complaints:
ne...@netfront.net
 ---


title: Concatenare più record in uno unico.

text:

Ciao Daniele... Auguri anche se con un po' di ritardo.
:-)

--
sv


title: Concatenare più record in uno unico.

text:

Grazie per la risposta, FUNZIONA PERFETTAMENTE, un'altra domanda, se possibile, mi potresti indicare come raggruppare su più campi e cioè, raggruppare, con conteggio, per campo NOME, VERSIONE, CILINDRATA?
Grazie infinite.
ROMANO


title: Concatenare più record in uno unico.

text:

Di volta in volta utilizza la clausola GROUP BY. Quindi sarà GROUP BY miaTabella.Nome ... e poi GROUP BY miaTabella.Versione.. etc..

--
sv


title: Access e pdf

author: MA

text:
Salve a tutti,
volevo segnalare la presenza su PC prof di Lug/Ago un tool per creare PDF di
buona qualità, PDF Creator 2.11. Basta la registrazione.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Access e pdf

author: OneEDP

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y1...@usenet.libero.it...

C'è un sito dove poterlo scaricare?
Ti ringrazio
Daniele


title: Access e pdf

text:
Il 27 Giu 2003, 09:53, "OneEDP" <
one.emme...@tin.it
> ha scritto:
>
> "MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
> news:62Z94Z197Z191Y1...@usenet.libero.it...
> > Salve a tutti,
> > volevo segnalare la presenza su PC prof di Lug/Ago un tool per creare
PDF
> di
> > buona qualitą, PDF Creator 2.11. Basta la registrazione.
> > ciao MAssimiliano
> >
> >
> >
> > --------------------------------
> > Inviato via
http://usenet.libero.it
>
> C'č un sito dove poterlo scaricare?
> Ti ringrazio
> Daniele
E' un'offerta per i lettori di PC Prof, quindi credo di no.
Sono 6MB di roba



title: Access e pdf

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y1...@usenet.libero.it...
> Il 27 Giu 2003, 09:53, "OneEDP" <
one.emme...@tin.it
> ha scritto:
> >
> > "MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
> > news:62Z94Z197Z191Y1...@usenet.libero.it...
> > > Salve a tutti,
> > > volevo segnalare la presenza su PC prof di Lug/Ago un tool per creare
> PDF
> > di
> > > buona qualità, PDF Creator 2.11. Basta la registrazione.
> > > ciao MAssimiliano
> > >
> > >
> > >
> > > --------------------------------
> > > Inviato via
http://usenet.libero.it
> >
> > C'è un sito dove poterlo scaricare?
> > Ti ringrazio
> > Daniele
>
> E' un'offerta per i lettori di PC Prof, quindi credo di no.
> Sono 6MB di roba
> ciao MAssimiliano
>
>
> --------------------------------
> Inviato via
http://usenet.libero.it
Vato al "sito" in edicola... ok!
Grazie


title: Access e pdf

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z197Z191Y1...@usenet.libero.it...
> Il 27 Giu 2003, 09:53, "OneEDP" <
one.emme...@tin.it
> ha scritto:
> >
> > "MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
> > news:62Z94Z197Z191Y1...@usenet.libero.it...
> > > Salve a tutti,
> > > volevo segnalare la presenza su PC prof di Lug/Ago un tool per creare
> PDF
> > di
> > > buona qualità, PDF Creator 2.11. Basta la registrazione.
> > > ciao MAssimiliano
> > > --------------------------------
> > > Inviato via
http://usenet.libero.it
> >
> > C'è un sito dove poterlo scaricare?
> > Ti ringrazio
> > Daniele
>
> E' un'offerta per i lettori di PC Prof, quindi credo di no.
> Sono 6MB di roba
Solo una precisazione, che magari in questo caso non ha fondamento.
Personalmente ho sempre diffidato dei SW da edicola.
Sono quasi sempre versioni incomplete e soprattutto spesso ti sputtanano il
PC installando dll magari sovrascrivendo quelle esistenti e rendendo
instabile il sistema...
Ma magari sarò stato sfigato io...
Solo una considerazione molto generica....
Antonio


title: Access e pdf

text:
"Antonio Biso" <
ch...@libero.it
> ha scritto nel messaggio
news:_6TKa.124426$Ny5.3...@twister2.libero.it...

E' una sfiga "radioattiva" e contagiosa... penso che MA lo ha già testato.
Danielie


title: Log File

author: lna

text:
Egregi, qualcuno č cosě gentile da suggerirmi se c'č una maniera di creare
una sorta di log file (potrebbe essere, forse,  un file txt) dove
registrare eventuali messaggi di errore durante l'utilizzo di un database ?
Vio ringrazio in anticipo.
Lna
--------------------------------
Inviato via
http://usenet.iol.it


title: Log File

author: Alex

text:
"lna" <
leonardo...@dietsmann.com
> wrote in message
news:213Z137Z129Z235...@usenet.iol.it...

Mi pare che sul SITO COMUNE ci sia qualcosa....!
In ogni caso io mi sono creato un MODULO DI CLASSE che mi torna molto comodo
e mi Genera(se non esiste, altrimenti APPEND) un File.txt in cui registro
gli accessi, ciň non toglie che si possano registrare gli errori....!
@Alex
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Help sensibile al contesto e html

author: LoSoSoloIoChiSono

text:
Domanda Secca!
Si puo' costruire un'help esterno magari con frontpage e linkarlo da access
tramite i parametri normali?
Mercy


title: Help sensibile al contesto e html

author: Sergio MAZZA

text:
"LoSoSoloIoChiSono" <LoSoSolo...@LoSoSoloIoChiSono.it> ha scritto nel
messaggio news:NkVed.81575$b5.39...@news3.tin.it...

Cerca con google nei messaggi precedenti, l'argomento č stato gią ampiamente
trattato...
Ciao.
--
Sergio MAZZA


title: maschera input

author: Roberto

text:
Salve
nel controllo di una maschera continua che ha come origine dati una query ho
inserito la seguente maschera di input
##,##;;
Dovrebbe, in teoria, consentirmi solo l'immissione di cifre.. invece posso
digitare qualunque carattere.ed incorrere naturalmente  nel messagio di
errore di sistema...
Il formato dei dati visualizzato dal controllo e EURO decimali 2
e tale impostazione ho dato sia al campo della tabella da cui origina la
query , sia al campo della Query
La cosa che poi mi disorienta del tutto e' che in access 2003 la maschera di
input funizona perfettamente....in Access 2002 si verifica il problema che
vi ho descritto...
Qualche idea??
Grazie per le risposte


title: combo

author: carlo

text:
ciao a tutti come faccio a inserire i dati che leggo da una
combo tranite query su di una tabella in un'altra tabella.
grazie ciao carlo


title: combo

author: Fabrizio

text:
On Thu, 26 Sep 2002 14:52:12 GMT, "carlo" <
carlo...@cabind.com
>
wrote:
>ciao a tutti come faccio a inserire i dati che leggo da una
>combo tranite query su di una tabella in un'altra tabella.
>
>grazie ciao carlo
>
Query di accodamento ? ci spieghi meglio il tuo problema
Ciao. Fabrizio


title: combo

text:
ciao  a tutti il punto è il seguente:
devo poter selezionare ed inserire da una combo due campi della tab dove la
combo punta ed inserirli in una nuova tabella oppure tab. esistente.
In buona sostanza volevo simulare un progetto di allenamento sulle
ordinazioni di un ristorante da dove ho una tab con tutte le portate ,
tramite la combo devo poter selezionare una o piu' portate e inserirle
sull'ordine del tavolo specifico sul quale devo vedere anche il tot. del
conto.
Questo perchè sono un principiante ed ho bisogno di essere preso per mano.
ancore grazie carlo
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:m886pukg7nd3v3i9v...@4ax.com...



title: combo

text:
On Thu, 26 Sep 2002 16:02:45 GMT, "carlo" <
carlo...@cabind.com
>
wrote:
>....
> sono un principiante ed ho bisogno di essere preso per mano.
>ancore grazie carlo
>
Purtroppo anch'io sono un principiante e sei fuori dalla mia
giuristizione, quindi passo la "mano" a chi è più esperto di me.
Ciao. Fabrizio


title: combo

author: omnitow

text:
"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:qtr6pu00fo5maolla...@4ax.com...

mi sembrava strano
>
> Ciao. Fabrizio


title: combo

author: Roberto da casa

text:
"carlo" <
carlo...@cabind.com
> ha scritto nel messaggio
news:FcGk9.15172$Eu.2...@twister1.libero.it...
> ciao  a tutti il punto è il seguente:
> devo poter selezionare ed inserire da una combo due campi della tab dove
la
> combo punta ed inserirli in una nuova tabella oppure tab. esistente.
> In buona sostanza volevo simulare un progetto di allenamento sulle
> ordinazioni di un ristorante da dove ho una tab con tutte le portate ,
> tramite la combo devo poter selezionare una o piu' portate e inserirle
> sull'ordine del tavolo specifico sul quale devo vedere anche il tot. del
> conto.
> Questo perchè sono un principiante ed ho bisogno di essere preso per mano.
> ancore grazie carlo
>
Quando rispondi scrivi il testo della tua risposta DOPO e non prima del
testo del messaggio cui stai rispondendo.
Se la tabella che contiene le portate si chiama Portate ed ha una struttura
simile:
IDPortata                Contatore e chiave primaria
Portata                    Testo
Prezzo                     Valuta
Se hai una tabella chiamata DettaglioOrdini che abbia una struttura simile a
questa:
IDDettaglio             Contatore e chiace primaria
IDOrdine                Numerico
Portata                    Testo
Prezzo                     Valuta
Se infine hai una tabella Ordini che abbia la seguente struttura:
IDOrdine                Contatore e chiave primaria
NumeroTavolo       Testo
ecc. ecc.
Se la tabella DettaglioOrdine è in relazione uno-a-molti con la tabella
Ordini in base ai campi IDOrdine.
Creati una maschera chiamata Ordini con visualizzazioe a Maschera singola
che abbia come origine record la tabella Ordini: i controlli della maschera
Ordini avranno lo stesso nome dei campi della tabella Ordini cui sono
associati.
Con l'autocomposizione nella maschera Ordini inserisci una sottomaschera
chiamata DettaglioOrdini che abbia come origine record la tabella
DettaglioOrdini.
Nella maschera Ordini inserisci due caselle di testo non associate e non
visibili che si chiameranno rispettivamente DepPortata e DepPrezzo.
Nella maschera ordini inserisci una casella combinata chiamata ScegliPortata
dalla quale sceglierai le portate da ordinare e fai in modo che abbia 3
colonne di cui visibile solo la seconda: la casella combinata dovrà avere
come origine riga il seguente codice SQL:
SELECT DISTINCTROW Portate.IDPortata, Portate.Portata, Portate.Prezzo
FROM Portate ORDER BY Portate.Portata;
Sempre in maschera Ordini inserisci una casella di testo non associata
chiamata TotaleConto e nella sua origine controllo scriverai:
=DSum("Prezzo";"DettaglioOrdini";"IDOrdine=" & [IDOrdine])
A fronte dell'evento "Dopo aggiornamento" della casella combinata
ScegliPortata genera il seguente codice VBA:
Private Sub ScegliPortata_AfterUpdate()
Dim strAccoda As String
Me!DepPortata = Me!ScegliPortata.Column(1)
Me!DepPrezzo = Me!ScegliPortata.Column(2)
strAccoda = "INSERT INTO DettaglioOrdini ( IDOrdine, Portata, Prezzo )" & _
" SELECT [Forms]![Ordini]![IDOrdine] AS Espr3, " & _
"[Forms]![Ordini]![DepPortata] AS Espr1, " & _
"[Forms]![Ordini]![DepPrezzo] AS Espr2;"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunSQL strAccoda
Me!DettaglioOrdini.Requery
Me!TotaleConto.Requery
End Sub
A questo punto apri la maschera Ordini; se l'ordine è nuovo inserisci un
nuovo record e digita il numero del tavolo; dalla casella combinata scegli
una alla volta le portare da ordinare; nella sottomaschera dovresti vedere
le portate scelte e nella casella di testo TotaleConto dovresti vedere
l'importo totale delle portate ordinate.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cercare msaccess.exe nel registro

author: Panathos

text:
Buongiorno a tutti/e,
c'è, nel registro o altrove, una chiave che identifica esattamente il
percorso di msaccess.exe?
Servirebbe per usare shell() indipendentemente dal path di
installazione di Access.
Grazie,
Panathos