mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: problema numeri trattati come lettere

Ciao a tutti, in una maschera a griglia vengono visualizati dati id,
nome come
1|cane
10|gatto
2|elefante
id è un contatore ma viene considerato come lettera pur avendo
impostato il formato numero...come risolvo?Grazie

 impostato il formato numero...come risolvo?Grazie
Ciao quel campo č un campo calcolato?
Se sě metti il cmpo contatore nell amaschera e poi lo nascondi
Altrimenti calcolati il cotatore con left e instr
e poi rdini per quello
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa
 

 
www.donkarl.com/it/cisa
ho risolto con la funzione val:
select val(id), nome from 
;)
Ciao e grazie per la risposta.

 Ciao e grazie per la risposta.
e se hai
1|cane1???


 --
Non capisco cosa vuoi dire.
Nella tabella ho due campi: il primo è id di tipo numerico e
contatore, il secondo è di tipo testo.
Quando richiamavo la maschera, che a sua volta richiamava una query di
tipo:
select id, nome from tipo
 venivano visualizzati i vari record con un problema: il campo id
veniva considerato come  lettera e non come numero per cui avevo
id   |  nome
1    | cane
10  | gatto
2    | elefante
..      ..
Ho risolto scrivendo la query:
select val(id),nome from tipo
 Spero di essermi spiegato meglio, ciao

Alcibiade ha scritto:

TI sei spiegato bene, ma personalmente la ritengo una cosa poco
utile...!
Perchè mai convertire in Numero un Testo in quel modo quando sarebbe
conveniente
convertire il Campo in tabella....??
Sono misteri della scenza....!!!
@Alex

Alessandro Baraldi ha scritto:

Convertire in quale modo? se leggi il mio primo post avevo scritto che
id era di tipo contatore(numerico, autoincrementante )...mentre nella
maschera avevo settato il campo id come numero generico con 0 cifre
dopo la virgola....ma veniva considerato lo stesso come
lettera....misteri della scienza veramente!!!

 e poi rdini per quello
Accidenti!!!
Massimilia' ma sei ubriaco o la tua tastiera non funziona bene??
hai fatto piů errori tu che io quando fui bocciato a scuola  :-)))))))
luigi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 luigi
Ops, ho usato una tastiera non mia

Newsgroup: it.comp.appl.access
Titolo: Sottoreport Corpo Fattura

Per la stampa di un report Fattura ho creato un sottoreport Corpo e ho messo
come intestazione pagina la riga di intestazione (Articolo, decrizione, ecc)
e ho disegnato un rettangolo dell'altezza corrispondente allo spazio
disponibile per il corpo, per le righe di dettaglio.
La prima pagina è ok, ma nelle pagine successive non mi stampa
l'intestazione e mi chiude il riquadro dopo l'ultima riga di dettaglio
anziché arrivare fino al piede (come correttamente avviene nella prima
pagina  anche quando ci sono solo poche righe di dettaglio).
Spero di essere riuscito a far capire i due problemi e avere una dritta su
dove posso sbagliare.
Grazie
Sandro

 ha scritto nel messaggio
news:k06Db.189847$e6.71...@twister2.libero.it...

Se il tuo problema è quello di stampare un numero costante di righe nel
corpo di un report che stampa fatture, vai sul Sito Comune (link qui sotto)
e nella Sezione Reports leggi la FAQ di Federico Luciani intitolata
"Stampare un numero N costante di righe per pagina".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 "Stampare un numero N costante di righe per pagina".
No, non è problema di numero di righe o, almeno, non vorrei gestirlo.
Il report contiene intestazione e pièdipaginaPagina da stampare su ogni
pagina; il corpo è una sottomaschera che a sua volta ha una intestazione
pagina e il corpo prelevato da una query. Se per questo non è sufficiente
una pagina va alla pagina successiva, ma, come ho spiegato sopra, nelle
pagine successive il sottoreport non appare come per la prima pagina.
Saluti.
Sandro

 ha scritto nel messaggio
news:CWhDb.186218$vO5.7...@twister1.libero.it...

Avevo ben capito, ma io implicitamente ti ho consigliato di NON usare un
sottoreport come corpo della fattura ma di usare il corpo del report
principale e risolvere il tuo problema come indicato sul Sito Comune.
Se altri ti suggeriranno qualche cosa di diverso sarò contento di impararlo
anche io.



Per i "duri di testa" purtroppo non bastano i messaggi impliciti!
Grazie
Sandro

Newsgroup: it.comp.appl.access
Titolo: northwind compromesso

Ho compromesso ahimè in database di esempio,
qualcuno sarebbe così gentile da dirmi dove potrei trovare il file, in
italiano magari
grazie

 italiano magari
Sul CD di installazione di Office
Antonio
Newsgroup: it.comp.appl.access
Titolo: richiamare un dato

Scusate ho un problema su una sottomascherà dovrei fare in modo che
cliccando su un menu a discesa possa selsezionare il codece prodotto ed in
automatico mi aggiorni anche il campo descrizione salvando questo dato nella
tabella magazzino.... ho provato in vari modi ma non riesco proprio in
quanto essendo una sottomaschera collegata in base ad un id nonposso nenache
creare una casella combinata che mi cerchi un valore ed in base a quello
aggiorni il record.
Spero in una vostra soluzione se esiste .
grazie

 ha scritto nel messaggio
news:c12ou7$nv1$1...@newsreader.mailgate.org...

hai creato una query con il criterio form!nome_form!casella_combinata
nell'ID e messo gli id in "collega campi secondari" e "collega campi
master"?
se fai così dovrebbe funzionare
stwe

No lui deve prendere il dato nel momento in cui io clicco nella finestra
della casella combinata per esempio (casella combinata_codice)scelgo il
codice e su descrizione lui si tira la descrizione relativa al codice    e
non riesco a farlo

 ha scritto nel messaggio
news:c12rvb$sif$1...@newsreader.mailgate.org...

scusa ma descrizione è nella maschera o nella sottomaschera?
stwe

Descrizione è nella sottomaschera ma è un campo vuoto che devo rimepire

Newsgroup: it.comp.appl.access
Titolo: importare dati tabelle da file testo?

come posso fare per importare un file di testo con campi separati da
";" in una tabella di access senza dover ricopiare manualmente il
tutto?


Ciao tazzastazzas,
ma davvero ti chiami cosě?!
Scherzi a parte, menu File --> Carica dati esterni --> Importa
ti si apre la classica finestra per scegliere il file, devi assicurarti di 
impostare il Tipo file = File di testo (*.txt, *csv,....
Ecco! il CSV ( comma separated value), con valori separati da virgola ( o 
quello che vuoi tu) č il tipo giusto di file da scegliere.
Gli dirai quali sono i caratteri separatori e dai un'occhiata alla divisione 
in colonne.
Dopo dovrai dirgli dove mettere i dati (prob in una tabella creata al 
momento), da cui infine potrai prelevare i dati per usarli come vupoi.
-- 
... spero di esserti stato d'aiuto, (facci sapere)
-- 
-- 
      /)/)               IVAN                (\/)
     (  '.')         NMCBRMC         ( '.' )
  o(_('')('')                               (")(")_)*
Non Microsoft Certified But Regular
             Microsoft Consumer
Newsgroup: it.comp.appl.access
Titolo: modifica valori in una casella combinata

Salve a tutti,
mi chiedevo se fosse possibile fare una cosa del genere.
una casella combinata ha come origine una query che preleva due campi da una
tabella e ne aggiunge un terzo, cosě:
12        Ciccio        1
45        Tizio          1
88        Caio           1
il valore della terza colonna č sempre "1".
Vorrei che, al verificarsi di un certo evento, si potesse cambiare l'"1" con
"0" nel valore che in quel momento č selezionato nella casella combinata.
La guida in linea di access mi da riferimenti soltanto a proprietŕ che
leggono i dati (listcount, column, ecc.), ma niente che modifichi.
Si puň fare?
Grazie.
Frigster.

L'evento che si verifica dovrebbe entrare con una routine sulla 
tabella e modificare i dati presenti portandoli da 1 a 0 (se poi 
hai bisogno che sulla tabella resti il valore 1 in chiusura 
della maschera puoi sempre impostare il ritorno a 1). Il 
problema che potresti avere, se è simile a ciò che è capitato a 
me e che la query che crea la lista della casella combinata non 
si aggiorna e continua a riproporti i valori dell'ultima 
lettura. Io comunque una prova la farei, il caso che avevo io 
era leggermente diverso.
Diversamente puoi fare in questo modo:
1) crea due tabelle nella prima scrivi i tuoi dati con l'uno 
finale
Paolo, 1
Fabrizio, 1
Davide, 1
nella seconda metti gli stessi dati con lo zero finale
Paolo, 0
Fabrizio, 0
Davide, 0
Crea sulla maschera due caselle combinate la prima legge la 
tabella 1 la seconda legge la tabella 2, entrambe però vanno ad 
immettere il dato scelto nello stesso campo di origine dati.
Imposta la proprietà VISIBILE della casella combinata 2, quella 
che leggi la tabelle con gli zero, su NO. In questo modo 
all'apertura della maschera la casella combinata visibile sarà 
quella con l'uno finale. Nel momento in cui si verifica l'evento 
la proprietà VISIBLE della casella combinata che visualizza gli 
uno passa su NO mentre quella della caselle combinate che 
visualizza gli zero passa su SI. Naturalmente potrai sempre 
impostare con una routine, al verificarsi dell'evento contrario 
il ritorno alla casella combinata che visualizza gli uno.
Graficamente devi solo far sovrapporre, in modo perfetto, le due 
caselle combinate in modo che al verificarsi dell'evento sulla 
maschera non si noti alcun cambiamento di grafica.
a proposito io ti ho parlato origine dati delle tabelle ma, 
naturalmente, la tua origine può essere sempre la tua query che 
aggiunge un dato alla lista già presente in tabella.
Ciao, Paolo.
-- 
Inviato da Virgilio 
http://newsgroup.virgilio.it
.. molto piu' di un servizio di news via web

 Frigster.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Come inserire solo il mese corrente in un report?

Come inserire solo il mese corrente in un report?
Si deve usare la parola chiave "Date" ma come?

 Si deve usare la parola chiave "Date" ma come?
= Month(Date())
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

= Month(Date())
Grazie

= Month(Date())
Non Va mi restituisce sempre la data completa 01/01/1900, mentre io
vorrei che uscisse il mese corrente in lettere.

 ha scritto nel messaggio
news:8hkjl09i8qpv9pq8r...@4ax.com...

Prova Cosě:
=(Format(Now();"mmmm"))
Ciao CiPiStO


Perfetto Grazie

Newsgroup: it.comp.appl.access
Titolo: problema di conversione database

Sto cercando di convertire il database alla versione precedente cioè da
access 2000 ad access 97. La conversione parte poi si arresta con il
seguente messaggio:
"Tipo di dati del campo non valido" Ok >> Si sono verificati errori durante
la conversione. Nessun database convertito generato.
Il mio scopo sarebbe quello di creare un database, in versione mde inoltre,
da spostare su un Pc che non ha il 2000 (suppongo che se creo l'mde poi non
lo possa aprire con Access 97 giusto ?).
Da cosa può dipendere ? E' possibile che ci sia qualche codice che gli da
fastidio ? Non so proprio da che parte dirigermi !!!
Grazie mille a tutti
Antonio

Non ci posso credere !!
Vi scrivo per dire che ci sono riuscito ma la cosa è proprio strana (almeno
per me che sono un profano !!)
Vi risulta che nella versione di Access 97 non ci sia come possibilità
quella di settare la dimensione di un campo Numerico a decimale ?
Infatti il problema che vi avevo esposto è stato risolto appena ho
cancellato un campo in cui assegnavo un punteggio ad ogni record: questo
campo era numerico decimale.
Ciao a tutti e scusate per l'OT . Ma se può essere di aiuto a qualchen'altro
meglio (è da ieri che ci sto impazzendo !)
Antonio

E' proprio cosi'. Il tipo Decimale e' una novita' di Access 2000
-- 
Posted from 
pop09-acc.tin.it
 [212.216.176.72] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: casella combinata valore non in elenco

Ho creato una casella combinata "Lavoro" nella quale se inserisco un valore
non in elenco, che non intendo però aggiungere all'elenco, ho generato il
seguente codice:
Private Sub Lavoro_NotInList(NewData As String, Response As Integer)
Me.Lavoro.Value = NewData
Response = acDataErrContinue
Me.Nome_Ente.SetFocus
End Sub
In effetti se memorizzo il record tutto procede bene e viene memorizzato il
valore non in elenco inserito, ma se copio il record, cosa che mi succede
abbastanza spesso di fare, i dati inseriti non facenti parte dell'elenco non
vengono copiati e rimane la casella vuota.
Cosa posso fare perchè anche i dati non in elenco possano essere copiati
insieme a tutto il resto del record?
Grazie per la collaborzione.

 ha scritto nel messaggio
news:ug5%b.1107$mt1...@tornado.fastwebnet.it...

Forse manca un requery della casella combinata?
O forse non ho capito...
Ciao.
--
Sergio MAZZA

In sostanza vorrei che la casella mi accettasse un valore senza aggiungerlo
però all'elenco, ma solo come dato nel caso non risulti in elenco.


Mi sembra una contraddizione, come fai ad accettare un valore senza
aggiungerlo; ma lo fai (aggiungerlo) solo se non in elenco. Se non è in
elenco si scatena l'evento "su non in elenco" della casella combinata e li
puoi decidere se aggiungere il nuovo valore o no.
Nell'help in linea (Evento NonInElenco) c'è un esempio:
Dim ctl As Control
 ' Restituisce l'oggetto Control che fa riferimento alla casella combinata.
 Set ctl = Me!Colori
 ' Richiede di verificare se si desidera aggiungere un nuovo valore.
 If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) =
vbOK Then
  ' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
  Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
  ctl.RowSource = ctl.RowSource & ";" & NewData
 Else
 ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le
modifiche.
  Response = acDataErrContinue
  ctl.Undo
 End If
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Report in .xls .doc

Ciao a tutti,
vorrei salvare im miei report generati
in access in formato excel oppure word.
Mi picerebbe fare in modo (in automatico)
che alla pertura del report si generi un file .xls
magari in un cartella predefinita da me...
Grazie Marco

 wrote in message 96vtai$cp2$1...@pinco.nettuno.it...

DoCmd.OutputTo acOutputReport, "rptArea", acFormatRTF, "C:\report.doc" per
word
DoCmd.OutputTo acOutputReport, "rptArea", acFormatXLS, "C:\report.xls" per
excel
CIAO
JJ8


Grazie :-))
Newsgroup: it.comp.appl.access
Titolo: 2 utenti su una maschera singola sullo stesso record

salve
ho una maschera singola collegata a una tabella di un back-end 
 
se 2 utenti che aprono il front-end (salvato in locale su ciascun pc) se puntano allo stesso record come posso evitare che non si abbia la possibilità di salvare?
 
c'e' un corrispondete dbseechanges da inserire nelle proprietà della maschera?
 
GRAZIE


Ovviamente no, ma qualche cosa di simile...
Dalle Proprietà della Form, [DATI]---[Blocco Record]=Tutti i Record/Record Modificati
 
Valuta bene quale delle 2 Opzioni... leggiti i PRO/CONTRO...
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: Problema grafico dato null linea mancante

Salve a tutti.
Ho creato un grafico con linee che mi dice la quantità di un certo
prodotto venduto per ogni mese dell'anno. Fin qui tutto apposto. Il
problema è che in determinati mesi il prodotto non è stato venduto e
non trovando il dato nella tabella (credo si dica null) non imposta il
valore a 0 quindi la linea in quel mese non c'è! Ho fatto degli screen
per rendere meglio l'idea.
Il grafico:
http://img91.imageshack.us/img91/4610/graficolineamancantemb4.jpg
istruzioni SQL:
http://img150.imageshack.us/img150/1723/istruzionesqlws2.jpg
visualizzazione dati:
http://img136.imageshack.us/img136/4163/risultanteib5.jpg

 ha scritto nel messaggio 
news:7f9ee41f-1ae4-4856...@i18g2000prf.googlegroups.com...

Il grafico:
http://img91.imageshack.us/img91/4610/graficolineamancantemb4.jpg
istruzioni SQL:
http://img150.imageshack.us/img150/1723/istruzionesqlws2.jpg
visualizzazione dati:
http://img136.imageshack.us/img136/4163/risultanteib5.jpg
nell'sql devi dare nz es nz(rr;0)
ciao
max 

 ha scritto nel messaggionews:7f9ee41f-1ae4-4856...@i18g2000prf.googlegroups.com...

ciao ho messo Espr2: nz([dossier];0) formula conteggio campi
incrociati Valore ma mi restiuisce gli stessi dati ( senza lo 0 dove
null )

 ha scritto nel messaggio 
news:736a89c1-893b-4d8c...@r37g2000prr.googlegroups.com...


espr2:nz(conteggio([dossier]);0) e metti espressione sotto
ciao
max

 ha scritto nel messaggionews:736a89c1-893b-4d8c...@r37g2000prr.googlegroups.com...

grzie mille!!
Newsgroup: it.comp.appl.access
Titolo: stampa report in fronte-retro

Buongiorno a tutti.
Access97
Vorrei stampare un report in fronte-retro impostando il dimensionamento dei
margini destro e sinistro in modo che risultino simmetrici per le pagine
pari e dispari.
Come posso fare?
Grazie in anticipo.
Carlo


FAQ: 'Come faccio a stampare di un report prima le pagine dispari e poi le
pagine pari per ottenere una stampa fronte-retro?'
sul Sito Comune (link qua sotto)
per quanto riguarda i margini, credo che l'unica soluzione sia formattare il
corpo via codice in funzione della pagina (pari o dispari)
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


Grazie!
non so per quale motivo non ho ancora visto apparire il mio messaggio, che
ho potuto visualizzare solo attraverso la tua risposta.......
Carlo

Newsgroup: it.comp.appl.access
Titolo: Maschera di input

Buon giorno a tutto il n.g.
Ho la necessità di impostare una maschera di input per l'imissione dei 
numeri telefonici.
Vorrei poterla impostare in questo modo 4 cifre per il prefisso, barra di 
separazione / e 8 cifre per il numero.
Con le prove che ho fatto mi divide il prefisso dal numero in modo 
sbagliato, esempio:
0309/946726, anzichè 030/9946726.
Dovrebbe essere strutturata in modo tale da tenere in considerazione che i 
prefissi, ovviamente solo quelli nazionali, possono essere formati da 3 o 4 
cifre.
Grazie per l'attenzione.
Roberto


Ma perchè non dividi il campo prefisso da quello di numero telefonico?


 4 cifre.
La tua maschera è qualcosa del genere: 0000/00000000.
Questo significa che il prefisso sono 4 numeri e non 3.
L'immissione è obbligatoria a 4.
Tu devi scrivere così: 9000/00000000.
Il marcatore 9 significa immissione facoltativa, quindi puoi non metterlo.
Anzichè il numero scrivi uno spazio.
Ciao
Marco
Newsgroup: it.comp.appl.access
Titolo: Mantenere il valore di una variabile sul Form Unload

Ho la necessità di mantenere il valore di una variabile sull'evento Unload 
di una form.
Purtroppo anche dichiarandola in un modulo ciò non avviene.
Cioè sembra che sull'evento unload anche impostando cancel = true vengano 
persi tutti i valori delle variabili.
Che ne pensate?
Morgan 

 ha scritto nel messaggio
news:44f70676$0$35072$4faf...@reader4.news.tin.it...

Che devi usare una variabile globale dichiarata in un modulo non della form
ma esterno.
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:LNDJg.89000$zy5.1...@twister1.libero.it...

E così faccio ma sul cancel=true dell'Unload non ho più il valore dentro a 
sta variabile.
Morgan 

 ha scritto nel messaggio
news:44f70b8b$0$35074$4faf...@reader4.news.tin.it...

Non è possibile
Come l'hai dichiarata e dove?
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:2mEJg.89044$zy5.1...@twister1.libero.it...

Scusa,hai ragione è che sbagliavo il nome della variabile.
Morgan 

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:2mEJg.89044$zy5.1...@twister1.libero.it...

Ciao sono Michele, anche a me una volta è successa una cosa quasi analoga. 
Dovevo mantenere il valore
di un campo calcolato e passarlo ad una variabile globale prima di chiudere 
la maschera. In modalità debug,
su evento close, tutto OK, in modalità normale, la variabile globale non 
riceveva nessun valore. Dopo 3 giorni
ho capito che l'aggiornamento maschera (Me.refresh) fatto eseguire prima del 
passaggio di consegne tra il campo
calcolato e la variabile lasciava vuoto il campo stesso perchè 
l'aggiornamento del calcolo era come arrivasse in
ritardo rispetto al passaggio di valore, per cui la variabile globale mi 
rimaneva semnpre vuota. Se hai un refresh
prima del passaggio, prova a toglierlo o a posizionarlo molto prima.
Saluti 

 Scusa,hai ragione è che sbagliavo il nome della variabile.
Mi pareva... :-D
Antonio

Newsgroup: it.comp.appl.access
Titolo: Contatti

Buonasera ragazzi,
è possibile avere dei contatti skype per suggerimenti e consigli sulle funzionalità di access.
grazie mille
italo
 
contatto skype:
 
italo.c...@tiscali.it
 
 
italo.criscuolo

 ha scritto:

sarebbe?
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 


Ciao come descritto cerco contatti su skype per consiglio per access a completamento di un mio programmino.
grazie
italo
Ps:se ti può confortare sono anche io napoletano hahahahaha
Newsgroup: it.comp.appl.access
Titolo: RICERCA DI PROGRESSIVI NULLI

Buongiorno a tutti e grazie per la pazienza che fino ad ora avete 
dimostrato nei miei confronti.
Il mio problema:
In un record (Progressivi) ho un codice alfanumerico in cui gli ultimi 
3 catteri sono Numeri teoricamente progressivi che distinguono prodotti 
diff.:Es(1A1001 dove 001 è progr.)
Quando mi capita di eliminare un prodotto es. il primo 1A1001 essendo 
già presente il secondo 1A1002, all'inserimento di un nuovo prodotto mi 
viene proposto 1A1003.
Come posso fare per eventualmente individuare che il codice 1A1001 per 
es. è disponibile.
Per attribuire il codice progressivo ho utilizzato:
X=1+Dmax("Progressivo","QryCodici")ma chiaramente mi evidenzia il 
problema di cui vi Ho accennato.
 
--
Posted from 146.133.1.2 by way of 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Per non perdere tempo, farei in modo di tenere una tabella ausiliaria con
i codici scartati. Se c'è un codice nella tabella, lo usi e lo togli,
altrimenti ne generi uno nuovo.
Ciao,
Matteo

Newsgroup: it.comp.appl.access
Titolo: test per evitare doppio inserimento

Ciao a tutti; da maschera1 (di tabella1) con un evento su tasto apro
maschera2 che crea un nuovo record e inserisce i dati in una tabella2,
relazionandoli tra loro con due campi comuni, text1 e text2. Vorrei fare un
test,nello stesso evento tasto, che mi consente l'apertura di maschera2, per
sapere se esso già esiste, allora torna a maschera1, altrimenti esegue il
nuovo inserimento. Ho fatto una serie di prove ma senza successo
grazie
Francesco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Francesco
Devi gestire l'evento "prima di aggiornare" della maschera2, dove
controllerai la presenza o meno in tabella1 di text1; magari utilizzando il
dllokup (vedi help). Se presente imposti Cancel = true e chiudi la maschera
(metodo Close)...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Abilitazione modifche record

Ciao a tutti,
ho costruito un database di nominativi (nome cognome indirizzo etc..)
Nella pagina di inserimento ho messo due pulsanti: "Modifica" che permette
di modificare i record gia inseriti (premendolo la prima volta mi compare
l'avviso :Abilitazione modifica=Vero, la seconda volta invece mi compare
Abilitazione modifica= Falso)  e "Nuovo" che mi porta sul nuovo record..
Su load della pagina ho scritto Me.AllowEdits = False.
Sull evento su click del pulsante modifica ho scritto :
        Me.AllowEdits = Not Me.AllowEdits
        Me.Elimina.Enabled = Not
a.Enabled          -------------->riferito al pulsante elimina.
        MsgBox "Abilitazione Modifica = " & Me.AllowEdits, vbInformation,
"Avviso..."
Mentre sull'evento su click del pulsante "Nuovo" ho messo :
    Me.AllowEdits = True
    DoCmd.GoToRecord , , acNewRec
Ho notato un problemino:
se apro la pagina di inserimento e apporto solo modifiche ai record gia
inseriti non succede nulladi strano tuto ok..
se invece premo Nuovo, mi abilita la scrittura anke nei record
precedentemente immessi e mi stravolge cosi l'avviso del pulsante modifica,
nel senso che posso modificare quando l'abilitazione di modifica è falsa e
viceversa i record sono protetti quando l'avviso di abilitazione è vero.
Ci sarebbe un rimedio a questo "bug":-)
grazie mille x l'aiuto ludovico..


Impedisci l'edit a meno che non sia
me.NewRecord
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Interruzione codice ad evento

ciao
ho la possibilità di interrompere il codice ( o di far eseguire del
codice che derinisco io) al verificarsi di una certa condizione?
Ad esempio vorrei far fermate il codice vba di access nel momento in
cui  una variabile assume un valore preciso o diventa + grande di un
valore che definisco io.
Grazie
ciao

 ho la possibilit� di interrompere il codice ( o di far eseguire del

Se intendi uscire dalla sub vedi Exit Sub o Exit Function
Se intendi eseguire istruzioni al verificarsi di una condizione vedi
If...Then...Else...End If
Se intendi proprio fermare il codice in quel punto mettici uno STOP.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 > ho la possibilità di interrompere il codice ( o di far eseguire del

se ho una variabile impostata molte volte nell'arco del codice e non
capisco in quale punto "sballa" vorrei poter mettere una condizione
non "volta per volta" ma una sola volta per dire " quando la variabile
assume un valore errato allora msgbox con punto di interruzione"
vorrei questo

 vorrei questo
Non esiste un evento "Su modifica contenuto variabile".
Metti un punto di interruzione all'inizio della sub ed eseguila passo
passo con F8 cos� puoi verificare esattamente come viene eseguito il
codice e dove viene (a)variato il valore della variabile.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
ecco
è questo che temevo....
la sub è abbastanza grossetta.... e complicata...
non è mia...
grazie  comunque

 grazie  comunque
Ottima occasione per studiarla e capire come funziona. Cos� le fai una
revisione generale, visto che sembra avere dei problemi.
Senn� metti dei debug.print qua e l� per verificare il valore della
variabile in diversi punti del flusso, finch� individui l'errore.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 -Marco-
Le cose non sono mai semplici come le si raccontano!!!
;-))))
grazie
Newsgroup: it.comp.appl.access
Titolo: Apri maschera e visualizza determinati record

Salve ragazzi.... tanto per cambiare .. ho un piccolo problema.
Vengo e mi spiego, quando apro una maschera vorrei visualizzare un
determinato record attraverso il richiamo del cognome del dipendente.
Premetto che nella tabella dipendenti ho un id contatore come chiave
primaria.
Ho pensato bene di utilizzare l'autocreazione di access che permette di far
"comunicare" (passatemi il termine) due campi testo di due maschere diverse.
Con mio grande disappunto ho scoperto che funziona bene con qualunque
cognome a patto che .....
non ci siano apostrofi nel cognome!!!!!
Non vorrei utilizzare la solita query di selezione collegata alla tabella...
Come posso fare???
Ringrazio anticipatamente tutti coloro che mi aiuteranno... questo NG č
davvero ... ISTRUTTIVO!
Ciao

 ha scritto nel messaggio
news:ZiBK6.2577$iC1....@news6.giganews.com...

Non inviando il codice che utilizzi per aprire la maschera mi butto ad
indovinare.
Prova con:
'---------
DoCmd.OperForm "nomeMaschera",,,"[cognome] = " & chr(34) & me!cognome &
chr(34)
'---------
Ciao.
P.S. Sul sito comune (
www.sitocomune.com
) č spiegato come ovviare al
problema "dell'apostrofo"...

 ha scritto nel messaggio
news:9dfvf3$5gi$1...@canarie.caspur.it...

Ti sei buttato bene......
Grazie funziona!!

Newsgroup: it.comp.appl.access
Titolo: Azione InviaOggetto-Modello HTML

 Inviato via 
http://arianna.libero.it/usenet/
Grazie MA della risposta. Forse però non ho ancora capito bene
l'uso di
questa azione...:-(
L'help recita:
File Modello: Il percorso e il nome del file che si desidera
utilizzare come
modello per un file HTML. Il file modello è un file contenente
tag HTML.
Ora, io pensavo che ci volesse un file Html come modello, infatti
a questo
scopo avevo creato una directory ed un file html nel mio pc
(c:\gescom\modellihtm\presentazione.htm) e che avevo riporato
nella casella
"modello", che però.... giustappunto non funzia! Posso chiederti
gentilmente
lumi nella la relazione fra quanto scritto nella guida e quanto mi
suggerisci? In secondo luogo(magari nel frattempo mi adopero per
approfondire la questione), se creo un snp posso poi
automatizzare il suo
invio via email, tenuto conto che devo realizzare una sorta di
mailing?
Ti ringrazio ed auguro a tutti buona giornata.
Scusate se ri-posto  la domanda ma con libero stamattina non
riesco proprio a lavorare...
--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it


          Tu puoi usare quel modello e sul sitocomune c'è anche un esempio di
crreazione di una pagina html, però, non vale per le immagini.
Il formato snp sicuramente lo puoi spedire con sendobject
MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: Date serial() dovè l'errore??????????????

 DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
datadoc è un campo contenente solo le date dei documenti.
Mi dice "errore di compilazione"!
(sono in visualizzazione struttura, riga "campo"), è per portare le date
all'ultimo gg del mese.
Montanaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Montanaro
Ciao cos'è f_docrig?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 f_docrig è il nome della tabella che contiene la colonna datadoc.
montanaro


 montanaro
E' qui che ti volevo..
dove usi questa istruzione in una maschera che non ha associata quella
tabella?
Se sě la devi prima dlookupare e poi la passi al dataserial
come hai fatto tu non ha molto senso



Aspettaaaaaaaaaaaaaaaaa x me stai parlando già troppo difficile!!!!!!!!!
Allora, la funzione è usata nella riga campo di una query costruita con
visualizz. struttura.
Se poi mi dici dlookup cosa significa penso che dopo riesco a cavarmela,
l'ho cercato nell'help, ma nn ho capito molto.
Grazie



          Mazza ho capito l'utilità di Dlookup, ma non riesco ad inserirlo
correttamente nell'espressione:
data: DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
puoi darmi la dritta per favore?


 montanaro
Ok hai detto la parolina magica
"Gestore espressioni", ho capito dove sei.
Non muoverti, vengoio a prenderti.
A te cosa server visualizzare, il fine mese?
tuadata: DateSerial(Year(datadoc);Month(datadoc)+1;1)-1
evita di usare parole come data o descrizione, sono parole riservate da
Access ed in questo è un pò permaloso


Sono in struttura query e l'espressione la devo inserire nella riga
"campo". Ho già cambiato il nome "data" con "periodo".


Scusa, mi è scappato il dito. Volevo dire che la tabella f_docrig ha una
colonna con un sacco di date, e io devo prenderla da li (reggruppare le date
del mese in una data unica), non posso prendere la fine del mese corrente.


 Inviato via 
http://arianna.libero.it/usenet/
-- 


 Ok adesso provo, ma x imparare qualcosa di nuovo (DLookup dovrebbe servire
all'utilizzo di un campo di una tabella non presente nella query se nn ho
preso un abbaglio), è possibile ed in caso affermativo, come si inserisce
DLookup nell'espressione qui sopra?
Grazie
montanaro

Newsgroup: it.comp.appl.access
Titolo: Divisione guidata database: problema in rete

Salve a tutti,
in un pc ho diviso un db; nei computer collegati in rete a questo, ho creato
un collegamento al FE.
Quando apro il db dal pc in cui è residente non da nessun problema, quando
lo apro dai pc collegati mi compare un messaggio del tipo:"C/Programmi/"nome
db"....Percorso non valido.
Cosa ho sbagliato?

 wrote in message
news:5wOXe.14644$
Do5.9...@news4.tin.it

In teoria nei Computer sparsi in giro non devi avere un
collegamento al FE, ma il FE proprio.
L'unica parte che rimane in rete sul Server(o sul pc che
fa da Server) è il BE(le tabelle).
A quel punto se i collegamenti al BE sono corretti non
ci devono essere problemi.
Che senso avrebbe dividerlo per poi non distribuirlo...?
Saluti.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Zappus ha scritto:

Se vuoi mantenere questa configurazione cioè BE + FE su un server, anche
se non ha senso come già ti ha fatto notare Alessandro, in questo caso
devi usare il percorso assoluto nelle tabelle collegate. 
In pratica andando sull'FE, in Strumenti->Gestione tabelle collegate devi
scegliere il percorso che ti da' Risorse di rete del tipo
\\mioserver\miacartella\miofile.mdb.
Solo in questa maniera funzioneranno i link all'FE dai vari PC.
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: qualcuno ha avuto problemi con outputto ?

ho un problema un po strano.
ho fatto un database che sta sul mio pc e può essere usato in rete da altri
utenti.
sembra incredibile , ma su alcuni pc (tra cui il mio) funziona sempre, su
altri a volte funziona , altre volte mi  abortisce sull'istruzione
docmd.outputto che scarica una query su un file excell.
notare bene che tutti i pc in questione hanno windows98, access97, excell97.
qualcuno ha qualche suggerimento da darmi ?
che sia un problema di rete ?
grazie in anticipo
frolix8

frolix ha scritto:

Probabilmente il problema risiede nel registro. Infatti il metodo OutputTo
richiede i riferimenti ai drivers ISAM installati con Access o dal RunTime
ODE.
Nel registro, sotto la voce
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\Access\Report Formats
troverai i riferimenti ai vari tipi di esportazione possibili con il comando
DoCmd.OutputTo.
Per esempio alla voce Microsoft Excel troverai: xls,SOA_RptToBIFF,
Biff5,Microsoft Excel (*.xls),0
Senza questi riferimenti non è possibile, per esempio, esportare un report
di Access in un file di Excel.
Spero di esserti stato di aiuto.
Ciao, Carlo
--
Posted from 
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.appl.access
Titolo: routine per trasformare i CODICI FISCALI in un numero (max 11 byte)

Ciao...qualcuno può aiutarmi ?
cerco un algoritmo matematico per trasformare il CODICE FISCALE in un
numero univoco (positivo max 11 caratteri)
stringa alfanumerica di 16              ------>        in numero di 11
(univoco)
non so come cercare!!!
avete qualche consiglio utile ? 
grazie

 wrote in message
news:1135265612.5...@g14g2000cwa.googlegroups.com

Perchè questa cosa poco utile....??
Il CF è già UNIVOCO.
Se ci spieghi magari anche lo scopo...
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Allargare un report lanciato da menu personalizzato

Buon pomeriggio,
avrei il seguente problema:
-In un maschera ho un pulsante per la stampa di un report.
-Nell'evento click ho il seguente codice:
    DoCmd.OpenReport "RptTabTraduttori", acPreview
    DoCmd.RunCommand acCmdFitToWindow
    DoCmd.Maximize
 che serve per impostare a tutta pagina il report.
-Ho creato un menu personalizzato dove apro direttamente il report di cui 
 sopra e quindi di conseguenza non riesco a fare eseguire le due istruzioni
    DoCmd.RunCommand acCmdFitToWindow
    DoCmd.Maximize
Come faccio a far si che anche nel menu personalizzato il report venga
aperto a tutta pagina?
Grazie
Saluti
-- 
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:ci9gof$gcd$1...@news.newsland.it...

se vuoi lanciarlo da un pulsante di un menu puoi creare una macro che con la
funzione "aprireport" ti apra il report e successivamente con la funzione
"ingrandisci" lo metta grande quanto la finestra di access.
poi imposti come funzione associata al pulsante la macro appena creata
ciao
d.

 Saluti
Mi chiedevo perchč non hai utilizzato DoCmd.Maximize sull'evento Open del
report.
Sull'evento "Open" del report
DoCmd.Maximize
Sull'evento "Close" del report
DoCmd.Restore.
--
rgrds
SC
-- 


 Raffaele Alberoni
Prova a selezionare l'oggetto sul quale devi far agire il RunCommand:
es.
DoCmd.SelectObject acReport, "prova", False
DoCmd.RunCommand acCmdFitToWindow
DoCmd.Maximize
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: SQL x aggiungere ad una tabella un nuovo campo con un valore predefinito

Col codice seguente ho aggiunto alla tabella Emittente il campo DataMandato.
Private Sub AggiornaBE()
Dim dbs As DAO.Database
Set dbs = OpenDatabase(NomeBE)
dbs.Execute "ALTER TABLE Emittente ADD COLUMN DataMandato DATETIME;"
dbs.Close
End Sub
Come dovrei modificare il tutto per inserire nel campo DataMandato il valore 
predefinito 1/1/1900?
Ho provato con
dbs.Execute "ALTER TABLE Emittente ADD COLUMN DataMandato DATETIME (SET 
DEFAULT #01/01/1900#);"
ma mi dà errore.
Chi mi aiuta?
Ringrazio in anticipo
GioVe 

 ha scritto nel messaggio
news:ubYYd.651375$b5.29...@news3.tin.it...

Ciao Gio.Ve,
la sintassi SQL per creare un nuovo campo con il valore di default è questa
------------
ALTER TABLE Emittente ADD COLUMN DataMandato DATETIME DEFAULT #01/01/1900#
------------
se vuoi modificare un campo già esistente puoi fare così
------------
ALTER TABLE Emittente ALTER COLUMN DataMandato DATETIME DEFAULT #01/01/1900#
------------
Questa sintassi la puoi utilizzare con Jet 4.0
---------------
Description of the new features that are included in Microsoft Jet 4.0
http://support.microsoft.com/default.aspx?scid=kb;en-us;275561
---------------
per mezzo di una nuova query se hai attivato la sintassi compatibile Sql
Server (ANSI 92)
vedi Strumenti-->Opzioni-->Tabelle Query
o per mezzo di una connessione ADO
----------------
CurrentProject.Connection.Execute "ALTER TABLE Emittente ALTER COLUMN
DataMandato DATETIME DEFAULT #01/01/1900#"
----------------
ps. in Access è strana la scelta della data di defaul  #01/01/1900#  forse
volevi mettere #12/30/1899# ?
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: Mi controllate questo!

Ciao! ho creato una form di tipo poup per filtrare un report. In una casella
non associata inserisco il numero dell'ordine e alla pressione del tasto OK
viene eseguito il report filtrato dal numero immesso.
Il codice che ho creato č:
Private Sub OK_Click()
Dim StrFiltro As String
If Not IsNull(Me!IDOrdine) Then
    StrFiltro = "[ID Ordine]= " & Me!IDOrdine
    End If
If IsNull(Me!IDOrdine) Then
    MsgBox ("Devi immettere l'ID Ordine di una Riparazione")
    Exit Sub
    End If
DoCmd.OpenReport ReportName:="Visualizzazione Riparazioni", View:=acPreview,
WhereCondition:=StrFiltro
End Sub
Il mio problema č che all'apertura della maschera il cursore si trova nella
casella non associata pronto per l'inserimento di un numero, ma come faccio
a ritornare in questa condizione se percaso schiaccio il tasto OK senza aver
inserito il numero. Il mio codice genera un messaggio chiuso il quale vedo
ancora la maschera del filtro ma devo cliccare nella casella non associata.
Lo so che č una sottigliezza ma magari qualcuno ...

 wrote in message
news:9dp104$d6f$1...@news.mclink.it...

Ecco...
 If IsNull(Me!IDOrdine) Then
     MsgBox ("Devi immettere l'ID Ordine di una Riparazione")
     Me!IDOrdine.SetFocus
     Exit Sub
End If
Ciao!
Esteban
Hosted by 
www.seber.it

 wrote in message
9dp104$d6f$1...@news.mclink.it...

______
Dovresti inserire per esempio:
if isnull(Me!Ordine) then
    Msgbox "Bisogna inserire un numero ordine", vbOKOnly,"Numero Ordine"
    Exit sub
Else
    Inserisci il codice che hai scritto prima.
End If
ciao Riccardo

Newsgroup: it.comp.appl.access
Titolo: ordinamento crescente in Query

ciao a tutti mi servirebbe ordinare una query sia per data che per 
cognome...
ma ho notato che anche inserendo "crescente" in Ordinamento mi ordina 
solo la data...
coma fare ad ordinare sia la data che i cognomi ???
grazie 


metti crescente anche sotto cognome
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 metti crescente anche sotto cognome
Falla mettere su accessgroup questa, potrebbe tornare utile anche ad altri.
Ciao. ;)
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 altri.
-----------
ROFTL... ;-))) ottima questa...!!
cmq avevo già provato con il crescente sia in data che in cognome...
ma filtra solo la data...strano... ma è normale ???
Ciao

 Ciao
Tieni presente che il tipo di campo è "Data/ora" e salva anche l'orario.
Verifica, per esempio cambiando il formato di visualizzazione, che nelle
tue date non ci siano anche gli orari, nel qual caso l'ordinamento di
secondo livello per cognome potrebbe non funzionare come vorresti.
Eventualmente togli gli orari alle date in un nuovo campo calcolato e
usalo per l'ordinamento:
  SoloData: int([campo data])
Ciao.

Newsgroup: it.comp.appl.access
Titolo: [Repost] Flash in database

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

 ha scritto nel messaggio
news:qT3P8.23577$Kt3.5...@twister2.libero.it...

nell'evento on_load della maschera che contiene il filmato
Me.ShockwaveFlash7.Movie ="c:\.....\tuofilmato.swf"
AEOM
Newsgroup: it.comp.appl.access
Titolo: Arrotonda a Numero Pari

Come possibile trasformare un numero dispari in un numero pari es:
125 = 200
250 = 400
250 = 400
250 = 400
250 = 400
ecc.

 ha scritto nel messaggio
news:CRg6d.9543$75.4...@news3.tin.it...

Ciao Rino,
ma mi sfugge la logica in base all quale vorresti arrotondare il 125 a 200 e
il 250 a 400 perchè non a 300?
Se specifichi meglio l'algoritmo da usare forse una soluzione si potrebbe
trovare.
Forse la specifica dovrebbe essere arrotonda al multiplo di 100 maggiore che
diviso per 100 da un numero pari?
125  200
230   400
350   400
380    400
420    600
Ciao
Cinzia


Si Cinzia i vari esempi da te posti sono esatti quindi
l'arrotondamento deve avvenire ad un numero superiore pari(magari se e
possibile
decidere opzionalmente il parametro di arrotondamento : superiore o
inferiore ), e alla tua domanda :
bisogna andare a gruppi ,il 250 ar. a 400 (pari) e non a 300 che e dispari
solo numeri pari.
Ciao
Ferrari Rino

 Ferrari Rino
Ciao Rino,
mi permetto di farti osservare che 300 č  pari e non dispari, comunque per
fare quello che vuoi tu con arrotondamento superiore la funzione dovrebbe
essere cosě
Public Function Arrotonda(a As Integer) As Integer
    Dim x As Integer
    Dim y As Integer
    x = a Mod 100
    y = IIf((a \ 100) Mod 2 = 0, 2, 1)
    Arrotonda = a - x + (100 * (y))
End Function
saluti
Cinzia


Ciao Cinzia la funzione va bene solo che quando si inserisce un valore tipo
200  lo porta subito a 400
mentre dovrebbe lasciarlo cosi e solo se fosse superiore tipo 201
arrotondarlo a 400.
Non sono riuscito a capire come poter decidere se farlo arrotondare  p.e.
fino a 250 vai a 400
se 240 vai a 200
Ciao Rino

 ha scritto nel messaggio
news:6ju6d.12344$75.5...@news3.tin.it...

Per correggere il problema del 200 dovrebbe bastare questa modifica:
Public Function Arrotonda(a As Integer) As Integer
     Dim x As Integer
     Dim y As Integer
     x = a Mod 100
     y = IIf((a \ 100) Mod 2 = 0, 2, 1)
    if (x=0 ) and (y=2)
        Arrotonda = a
   else
     Arrotonda = a - x + (100 * (y))
   end if
 End Function
Per decidere  se arrotondare in piů o in meno potresti fare cosě
(sono andata a braccio, non l'ho provata ... )
Public Function Arrotonda(a As Integer) As Integer
     Dim x As Integer
     Dim y As Integer
    Dim risultato as Integer
     x = a Mod 100
     y = IIf((a \ 100) Mod 2 = 0, 2, 1)
    if (x=0 ) and (y=2)
        risultato= a
   else
         risultato = a - x + (100 * (y))
   end if
if  (x<50) and (y=2) then     ' metti al posto di 50 la cifra che vuoi
    risultato = a -x
end if
Arrotonda = risultato
 End Function
saluti
Cinzia

[Cut]
Cinzia preciso alla lira opss... all' Euro ;-)
ps.
Derivazione delle conoscenza di strutture algoritmiche ?
Grazie Rino


Cinzia
Newsgroup: it.comp.appl.access
Titolo: QbF

ho importato il database QbF di Getz che ho trovato in giro e devo dire che 
è eccezionale.
Mi chiedevo però se c'è un modo per pulire i campi ogni volta che la 
maschera di ricerca viene avviata.
Infatti, cosi come è, la maschera conserva l'ultimo valore inserito quale 
chiave di ricerca.
Poi, ho provato ad importarlo in un secondo mio database e mi dice che il 
valore listform non è valido come TipoOrigineRiga. Come mai
Grazie 

singer ha scritto:

Puoi utilizzare un pulsante nella form "Query by form"  denominato
cmdReset
su evento
Private Sub cmdReset_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then ctl = vbNullString
        If TypeOf ctl Is ComboBox Then ctl = vbNullString
        If TypeOf ctl Is ListBox Then ctl = vbNullString
        If TypeOf ctl Is CheckBox Then ctl = vbNullString
     'se hai altri tipi di controllo aggiungili
    Next
End Sub
e all'evento su attivazione della  form "Query by form"
Private Sub Form_Activate()
Call cmdReset_Click
End Sub

 ha scritto nel messaggio 
news:1115499018.9...@g14g2000cwa.googlegroups.com...


su evento


    Next
End Sub

ti sono grato!