mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: TABELLA CON CAMPI CON LO STESSO CONTENUTO

Buondì a tutti,
avrei bisogno di un piccolo aiuto per risolvere questo problema :
Ho importato da excel su una tabella "clienti" un anagrafica proveniente da
un altro software, questa anagrafica ha come campi il codice, la ragione
sociale ecc..., il codice nella tabella è la chiave primaria, è un contatore
con duplicati ammessi = no, la ragione sociale è indicizzata con duplicati
ammessi = si.
Mi sono accorto che ci sono diversi clienti con la ragione sociale uguale e
codice diverso se effettuo la ricerca per ragione sociale (alfabetica) da
una casella combinata per richiamare il record e modificarlo nel caso in cui
ci sono clienti con codici diversi e ragione sociale uguale questa si
posiziona sempre sul cliente che ha il codice con il valore più basso,
quindi non riesco a selezionare l'altro, l'unico sistema è utilizzando i
pulsanti di spostamento fra record, ma questa soluzione non va bene perchè i
clienti sono circa 2000. Non posso neanche creare una chiave primaria con i
due campi codice + ragionesociale in quanto la tabella è relazionata con
altre, e non posso neanche eliminare questi record. Come posso risolvere ?
Es.
codice     ragionesociale
100        pinco pallino
201        pinco pallino
302        pinco pallino
Grazie
Sasa.

 ha scritto nel messaggio
news:chktso$j7e$1...@lacerta.tiscalinet.it...

Ciao Sasa,
se come origine della combo metti codice e ragione sociale, dici che sono 2
colonne, e la prima la nascondi mettendo
larghezza Colonne = 0cm; 6cm ,
 e come campo associato metti il codice del cliente
dovrebbe posizionarsi correttamente sul record .  Chiaramente devi
modificare il codice VBA che effettua il posizionamento andando a cercare
anzichè la rag.sociale, il codice del cliente.
Saluti
Cinzia
Newsgroup: it.comp.appl.access
Titolo: Compressione Unicode Jet 4.0

Di default JET 4.0 imposta a "True" la compressione Unicode per i campi
testo.
Tuttavia leggendo l'Help di Access a riguardo mi sovvengono dei dubbi:
"Per rappresentare i dati nei campi di tipo Testo, Memo o Collegamento
ipertestuale, in Microsoft Access 2000 o versioni successive viene
utilizzato il sistema di codifica dei caratteri Unicode. Unicode rappresenta
ogni carattere come due byte, pertanto, i dati in un campo di tipo Testo,
Memo o Collegamento ipertestuale richiedono più spazio di memorizzazione
rispetto ad Access 97 o versioni precedenti in cui ogni carattere viene
rappresentato come un byte.
Per compensare questa conseguenza della rappresentazione dei caratteri nel
sistema Unicode e per garantire prestazioni ottimali, il valore predefinito
della proprietà Compressione Unicode di un campo di tipo Testo, Memo o
Collegamento ipertestuale è Sì. Se la proprietà Compressione Unicode di un
campo è impostata su Sì, qualsiasi carattere il cui primo byte sia 0 viene
compresso al momento della memorizzazione ed espanso quando viene
recuperato. Poiché il primo byte di un carattere latino (ovvero un carattere
di una lingua europea occidentale come l'inglese, l'italiano o il tedesco) è
0, la rappresentazione dei caratteri Unicode non ha effetto sulla quantità
di spazio richiesta per la memorizzazione dei dati compressi che consistano
esclusivamente di caratteri latini."
Sembrerebbe quindi che la proprietà "compressione" unicode sia ininfluente
per i caratteri latini ... voi come vi regolate?
Ciao a tutti:  Max


Forse non sono la persona giusta per esprimere la cosa
in (quasi-) italiano ;-) ma come anche il testo originale in
inglese sembra "dedicato" a causare malintesi lo provo
lo stesso:
Non lasciarti confondere dall'ultima frase del testo.
Non parla della "compressione" ma della "rappresentazione"
dei caratteri Unicode. Vuol dire che per lingue di caratteri
latini (grazie al 0 nel primo byte) la Compressione Unicode
puo _sempre_ compressare i dati e così puo evitare che
Unicode ha un effeto sullo spazio richiesta nella memoria.
Se invece non hai impostato la proprietà a Sì, non c'è niente
compressione e tutti caratteri (anche latini) sono memorizzati
con 2 Bytes e richiedono il doppio spazio.
È chiaro adesso o più incasinato di prima?
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + CISA2
Conferenza Italiana per Sviluppatori di Access, Ancona, 22+23/4/2006 

 È chiaro adesso o più incasinato di prima?
Sei stato chiarissimo...
Ciao!
Max Bertoglio
Newsgroup: it.comp.appl.access
Titolo: RowSource Casella di combinata

Ciao a tutti,
io vorrei utilizzare una query parametrica nel rowsource di casella
combinata il problema č che non so come passargli il parametro.
Qualcuno sa aiutarmi?
Grazie.
Luca

 Luca
Non capisco dove sia il problema; usa un codice SQL di una query parametrica
come origine riga della casella combinata: quando userai la prima volta,
dopo l'apertura della maschera, la casella combinata ti comparirà la
finestra  con la quale Access ti chiederà di digitare il parametro di
selezione.
Oppure memorizza il parametro di selezione in una casella di teso non
associata contenuta nella stessa maschera in cui si trova la casella
combinata e poi nella WHERE del codice SQL fai riferimento a tale casella di
testo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Oppure memorizza il parametro di selezione in una casella di teso...
Il problema non è avere il parametro ma passarlo, provo a spiegarmi meglio:
mettiamo che la mia casella combinata si chiami Casella, io ho:
Me.Casella.RowSourceType = "Table/Query"
Me.Casella.RowSource = "Query1"
Quando accedo alla casella mi viene richiesto il parametro che la Query1
cerca, io come faccio a dirgli che il valore si trova in Me.Parametro, in
modo da non far comparire la finestra di immissione parametro?
Grazie.
Luca

 Luca


Newsgroup: it.comp.appl.access
Titolo: azzerare campo contatore tabella..

Ancora una cosa..Se cancello tutti i record di una tabella, se ho un 
campo contatore riparte dall'ultimo numero a cui è arrivato..Come 
faccio a farlo ripartire da zero?..Thanks
-- 
Alby
Inviato da 
www.mynewsgate.net

 faccio a farlo ripartire da zero?..Thanks
Strumenti-Utilità database-Compatta database
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ed azzerarlo da codice?


 Ed azzerarlo da codice?
Un po' di Google sul NG spesso toglie il medico di torno.



Non è documentata ma devi gestire il contatore con update e values
MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: stampa di report stabilito da maschera

ciao,
ho realizzato una maschera che contiene alcuni campi:
cognome
nome
indirzzo
data
gara
...
io vorrei che quando l'utente si posiziona al''interno della maschera (ad
esempio su campo nome  cognome rispettivamente pico pallino) si possa
visualizzare e stampare il report di solo quel nome e cognome stabilito.
come posso fare
grazie  a tutti quelli che mi risponderanno Sara
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie  a tutti quelli che mi risponderanno Sara
Vedi su help
docmd.openreport con particolare attenzione al parametro criterioWHERE
Antonio
Newsgroup: it.comp.appl.access
Titolo: Copiare dati da colonne listbox a text box

Ciao a tutti,
questoè il mio quesito:
ho creato 2 tabelle:
1)tb_fornitori
Codice (Numerico) --> Chiave primaria
RagioneSociale (Testo)
Indirizzo (Testo)
Citta (Testo)
2)tb_registrazioni
IdCodice (Numerico)
Commessa (Testo)
Ordine (Testo)
DataOrd (Data)
Q.ta (Numerico)
CodArt (Testo)
Descrizione (Testo)
La relazione fra le tabelle è : Codice (1) -------> (oO) IdCodice
Poi ho creato 2 maschere rispettivamente alle tabelle di cui sopra:
1)fr_fornitori
2)fr_registrazioni
Nella maschera fr_fornitori ho posto una LISTBOX di nome "Elenco" che
contiene l'anagrafica fornitori ovvero la tabella tb_fornitori,
Sulla maschera fr_registrazioni oltre a quelle gia presenti, ho creato 3
nuove textbox "non associate"
textbox1
textbox2
textbox3
Quello che vorrei fare è che nel momento in cui faccio doppioclick su una
riga della listbox "Elenco" si apre la maschera fr_registrazioni e copiare
i campi Ragione Sociale, Indirizzo, Città  visibili nella listbox (di cui
sopra)nelle tre rispettive textbox
textbox1-->Ragione Sociale
textbox2-->Indirizzo
textbox3-->Citta
Spero di essere stato chiaro
Grazie in anticipo
all'interno di nuove text box che mi vado a creare
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Domy1973 ha scritto:

sull'evento doppio click della list box usi questo codice
Dim Nome as string
Dim Indirizzo as string
Dim Citta as string
Dim Dbs as database
Dim StrSql as string
Dim Rst as recordset
Set dbs = currentdb
StrSql = "SELECT Ragione Sociale, Indirizzo, Citta " & _
"FROM tb_fornitori " & _
"WHERE [Codice]=" & me.Elenco.Column(0) & ";"
Set Rst = dbs.operecordset(StrSql)
Nome = Rst![Ragione Sociale]
Indirizzo = Rst![Indirizzo]
Citta  = Rst![Citta]
Rst.close: Set Rst=nothing
docmd.openForm "fr_registrazioni"
Forms!fr_registrazioni.textbox1.value = nome
Forms!fr_registrazioni.textbox2.value = Indirizzo 
Forms!fr_registrazioni.textbox3.value = Citta  
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it
Newsgroup: it.comp.appl.access
Titolo: Che differenze ci sono tra DAO ed ADO?

Come da subject... chi me le spiega velocemente?
Quando č meglio usare ADO che DAO?
Vengo da Access, ed ho sempe usato DAO.
Ora mi affaccio su MSDE e leggo che ha un ottimo supporto ADO, si vede che
serve a qualcosa... ma a cosa?
Con ADO posso accedere a delle tabelle ODBC?
Perchč nessuno mi sa dire come accedere a delle tabelle ODBC da un progetto
ADP di Access?
Grazie, Max

 Grazie, Max
Prego,
Pietro

 Msde non ha questa funzionalita'.
Ho cannato .......
Questa funzione c'e' anche per Msde ......
Start>Programmi>Msde>Importa ed Esporta Dati
Parte il Wizard del DTS di sql server
Sorry,
Pietro

 The connect string varys with the different odbc-drivers
Ciao, Max

I due linguaggi sono messi a confronto
E' una parola. Se vado nell'help in linea di access 2000 non ho
accesso ne' ai riferimenti di Microsoft Jet ne' a DAO.
-- 
ing. Franco Varoli
fva...@tin.it
fva...@libero.it

 accesso ne' ai riferimenti di Microsoft Jet ne' a DAO.
Nell'Help generale di access ci sono due voci apposite nel sommario

Nell'Help generale di access ci sono due voci apposite nel sommario
Saresti cosi' gentile da indicarmi dove sono. Non riesco a trovarle.
Grazie.

Newsgroup: it.comp.appl.access
Titolo: Raggruppamento con campi calcolati in SQL

Con Access sono abituato a raggruppare i campi calcolati senza problemi, ma
pare che con SQL io abbia delle difficolta'.
Sapete se c'e' una sintassi particolare o come si possa ottenere questo
risultato?
Grazie
Ciao
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio

Ho risolto.
Chiedo scusa, era una svista.
Ma aggiungo, qualcumo sa come si facciano le "stored procedure" di "stored
procedure" (nidificate)?
Sib

Sib ha scritto:

JET SQL è vicino al standard SQL e al TSQL in questo rispetto.
Sono solo qualche differenza p.e. che riguardo il ORDER BY con
un campo calcolato dove JET non capisce un alias.
Per questo è meglio di citare lo tuo statement SQL che non funzione.
BTW Come abbiamo scritto nel altro thread è meglio di scrivere
"SQL Server" se intendi il Server perché SQL hai anche con JET.
--
cu
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 "SQL Server" se intendi il Server perché SQL hai anche con JET.
Hai ragione.
Ciao
Sib

Newsgroup: it.comp.appl.access
Titolo: problemi di date

ciao a tutti, vorrei eseguire una semplice operazione di filtraggio date ma
non vuole funzionare perchč???? non visualizza nulla(com se non c fossero
dati)
nel DB, data č un campo data.
   Dim stDocName As String
    Dim stLinkCriteria As String
    Dim gg
     gg = #12/2/2001#
    stLinkCriteria = "data<" & gg
    stDocName = "visual partite mese"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

 ha scritto nel messaggio
news:bXOk6.226$k55....@news.infostrada.it...

Se vuoi selezionare il 12 febbraio 2001, prova con
gg= #2/12/2001
Access si aspetta la costante data nella forma mm/gg/aaaa, oppure usa la
funzione Format.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: [A97] Intercettare il termine di un'istruzione FileCopy

Nell'evento SuClick di un pulsante di una form, ho scritto del codice
per copiare alcuni file su un disco selezionato dall'utente.
La copia viene effettuata da un'istruzione FileCopy.
Avrei necessità di intercettare il completamento delle operazioni di
copia per inviare un messaggio appropriato.
TIA
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Così disse Ivan Lelli Ven 25 Aug 2000 09:34:52 +0200)
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------

 TIA
spero di aver capito ;-)
se non ricordo male, FileCopy blocca il processo fino a quando non
finisce la copia, quindi puoi inserire il messaggio subito dopo:
FileCopy a, b
MsgBox "Ciao"
se cosi' non fosse, potresti controllare la dimensione del file che
stai creando, cioe':
...
FileCopy a, b
Do
  DoEvents
Loop While FileLen(b) = 0 (oppure FileLen(b) <> FileLen(a))
Msgbox "Ciao"
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

----------------------------------
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Cosě disse Ivan Lelli Ven 25 Aug 2000 09:34:52 +0200)
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
... e quello di it.comp.as400:
http://www.faq400.com/
---------------------------------------------

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

Devo fare un report in cui in funzione del valore assunto da un controllo mi
si attivano solo determinate voci.
Si può fare?
Ciao e grazie


certo con vba
if valorecontrollo=1 then
    reports![nome]![controllo1].visible=true
    reports![nome]![controllo2].visible=true
    reports![nome]![controllo3].visible=false
elseif valorecontrollo=2 then
    reports![nome]![controllo1].visible=false
    reports![nome]![controllo2].visible=true
    reports![nome]![controllo3].visible=false
ecc....
end if
Newsgroup: it.comp.appl.access
Titolo: Le librerie DAO 3.6 sono il vero problema?

Ho creato un Db con Access 2000 e trovandomi nell'esigenza di Convertirlo
come Db Access 97 ho attivato la librerie DAO 3.51 nel Access2000,ma
nonostante questo accorgimento suggeritomi da un amico del newgroup Access97
continua a non ricoscermi la tabella principale del Db, ho controllato le
funzioni utilizzate per scrivere il Db e non dovrebbero essere tra quelle
che danno problemi di converione allla versione97.
Andanto pero' a cliccare Riferimenti trovo attivato sul 2000:
1) Visual Basic for Applications
2) Microsoft Access 9.0 Object Library
3) OLE Automation
4) Microsoft DAO 3.51 Object Libray
Non essendo io un esperto di Access mi sono limitato a confrontare questi
due pannelli nella versione 97 e nella 2000 e tra i diue varia il punto
2)...e' per questo che Access97 non riconosce la mia tabella?
Grazie
Matteo

 2)...e' per questo che Access97 non riconosce la mia tabella?
Direi di no.
Come hai convertito il file mdb?
Sib

non lo prende nel senso che mi dice che la 'Tabella1' non e' corretta e mi
suggerisce di risciverla o riacquisirla da un backup....
Il file l'ho convertito con utilita' DataBase ..Converti alla Versione
precedente...
Qualche idea?
grazie
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:PS4F9.291$Y04....@news1.tin.it...


 precedente...
cut
no, non l'avevo presa affatto cosi'.
comunque sinceramente non vedo quale possa essere il motivo.
hai provato a rieseguire la conversione?
hai provato se A2000 riesce a vedere la tabella nel file in formato 97
(senza riconvertirlo)?
Sib
PS molto importante: scrivi dopo il quoting

 Qualche idea?
Vogliamo cominciare a scrivere correttamente DOPO il quoting?!?!
Antonio

OK ... ora ho scritto dopo il quoting ... va bene !!!
Grazie...per il ripetuto invito....

 > suggerisce di risciverla o riacquisirla da un backup....
cut
Se la tabella non contiene dati sensibili e se il db e' piccolo, crea una
copia e elimina tutti gli oggetti tranne la tabella, lo zippi e me lo mandi
all'indirizzo sopra perche' mi incuriosisce la cosa.
sib
Newsgroup: it.comp.appl.access
Titolo: Corretta relazione di tre tabelle

Un aiuto per cominciare bene!
Tre tabelle: Prefissi,  Centrali,  Zone.
Non devo fare calcoli ma solo ricerca.
[TbPrefisso]
Id    (contatore)
Prefisso  (testo)
---------------
[TbCentrali]
Id    (contatore)
Nome  (testo)
Citta  (testo)
Indirizzo (testo)
------------
[TbZona]
Id     (contatore)
Zona  (testo)   può contenere numeri e lettere
etcc..
--------------
Devono lavorare così;
Un prefisso, tante centrali;
una centrale, tante zone.
cè qulcosa di superfluo nei campi?
Qualè il giusto modo di relazionarli?
Saluti...

Principiante ha scritto:

io fare così:
[TbPrefisso]
Id_pref    (contatore)
Prefisso  (testo)
---------------
[TbCentrali]
Id_Centrali    (contatore)
id_prefisso (numerico)
Nome  (testo)
Citta  (testo)
Indirizzo (testo)
------------
[TbZona]
Id_zona     (contatore)
id_centrali (numerico)
Zona  (testo)   può contenere numeri e lettere
etcc..
--------------
id_pref ---> id_prefisso(tbcentrali)
                 id_Centrali ---------------------> id_centrali(tbzona )
Ciao

 - Mostra testo citato
Qualcunaltro potrebbe esprimersi? Grazie....

Saluti...
Premesso che sarebbe opportuno sapere se esiste una qualche relazione diretta fra Prefisso e Zone, una soluzione
potrebbe essere:
Centrale
---------------------------
ID_Centrale (PK)
Descrizione
...
Zona
---------------------------
ID_Zona (PK)
Descrizione
...
Assegnazione
---------------------
ID_Zona	(FK su PK di Zona)
ID_Centrale	(FK su PK di Centrale)
Prefisso
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: E' possibile recuperare il nome della routine in esecuzione ?

Cioe' c'e' qualche istruzione / funzionalita' che mi permette
di mettere in una variabile stringa il nome della routine che
l' applicazione sta eseguendo ?
Grazie.

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

 No.
Ecco perche' non riuscivo a trovare come ... :D


Dipende cosa vuoi...
Se vuoi leggere lo Stack delle chiamate no...
Se invece vuoi scrivere in una PUBLIC VAR il nome della funzione in
esecuzione si...
Dipende dall'esigenza.
@Alex

 esecuzione si...
La seconda delle due. :-)
Come si fa ?


Metti una Public Var in un modulo... ed ad ogni Function valla a
scrivere...!
Più banale farlo che dirlo...
Public NomeFunctionEsecuzione as string
Private/Public Sub/Function NomeFunction(....)
    NomeFunctionEsecuzione ="NomeFunction"
   .....
End Sub/Function
Ovviamente il tutto è da fare a MANINA... ;-)
Ora a cosa possa servirti non sò...  soprattutto se le Function sono
eseguite in modo SINCRONO... quindi dall'interno
sarà impossibile leggerla...
Ma dall'esterno puoi via OLE interrogare la Public VAR e leggerela
aggiornandola.
Per finezza poi potresti fare una Public Property ....
Ciao
@Alex

Ora a cosa possa servirti non sò ...  
No, niente ...
Mi serve per la gestione centralizzata degli
errori e della messaggistica mia.
Grazie mille !


Ci sono molti tool che fanno questo
tra cui 
http://www.fmsinc.com/MicrosoftAccess/VBACodingTools.html
Ciao
-- 
Daniele
Rispondere scartando OneEDP, spam e 32

 tra cui 
http://www.fmsinc.com/MicrosoftAccess/VBACodingTools.html
Secondo me l'unico tool che lo fa è
http://www.everythingaccess.com/simplyvba-global-error-handler.htm



Grazie per la segnalazione.

Newsgroup: it.comp.appl.access
Titolo: Office XP Developer (Distribuzione SQL)

Nel contenuto di office XP Developer si trova SQL Desktop Edition,
Non ho capito bene la gestione delle licenze:
se faccio un Access.adp per 5 utenti (da questi utenti non esiste SQL
server) posso distribuirlo gratuitamente e legalmente? ..... e se gli utenti
superano le 5 Unitŕ?
Grazie!

 superano le 5 Unità?
Devono acquistare SQL-Server per 10 utenti e tu smazzarti la documentazione
per upgradare col minimo sforzo MSDE --- SQL-Server.
Ciao, Tony

 ha scritto nel messaggio
news:BAH99.96224$lu5.2...@twister1.libero.it...

Ma se ipoteticamente gli utenti sono solo 6 succede qualche casino
nell'utilizzo si questo SQL_Ridotto?

 ha scritto nel messaggio
news:KUH99.9841$pX1.3...@news2.tin.it...

MSDE è liberamente distribuibile nel numero di copie che vuoi.
Chi accede ad un server dove è installata la versione di SQL Server presente
nel cd di Office Developer XP, può farlo insieme ad altri quattro client.
Per questo se ne sconsiglia l'installazione della versione Server ma solo di
quella Desktop (entrambi sono presenti).
D'altra parte al client non serve avere SQL Server.
L'alternativa da implementare sul Server è Small Bussines dove, la versione
SQL Server inserita, consente fino a 50 utenti connessi contemporaneamente e
il costo delle singole licenze aggiuntive dopo le prime 10 è veramente
modesto.
Ciao, Carlo

 nell'utilizzo si questo SQL_Ridotto?
Alla sesta connessione ... ti formatta il Server!
Dai scherzo, sicuramente è una segnalazione con divieto d'accesso
all'ultimo: stranamente non l'ho mai verificato di persona (abbiamo impianti
piccoli da 3/4 postazioni e grossi da 25/35, non mi sono ancora trovato
sulla "linea d'ombra").
Ciao, Tony

Newsgroup: it.comp.appl.access
Titolo: E' possibile che

2005 kb.
quanto spazio libero avevi sul disco del file che non funzionava?
-----------------------------------
ATTENZIONE: il ng it.comp.database.access cambia nome e diventa it.comp.appl.access
linkatelo!
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access

quanto spazio libero avevi sul disco del file che non funzionava?
Perchè da alcuni giorni le tue risposte aprono un nuovo thread ?!
Bye, Ste

-----------------------------------


>Perchè da alcuni giorni le tue risposte aprono un nuovo thread ?!
sono quelli che scrivono solo su icda: crossposto le risposte su icaa.


Ardu
Newsgroup: it.comp.appl.access
Titolo: Copiare e cancellare report

Ciao a tutti.
    Qualcuno mi sa dire come posso, da Visual Basic:
    (a) cancellare i report di un database
    (b) copiare gli oggetti di un database in un altro database
Ho provato con l'oggetto Access.Application ad untilizzare il metodo
DoCmd.DeleteObject, ma esce con l'errore 2501 (L'azione DeleteObject è stata
annullata). Cosa può essere?
    Grazie!
        Giovanni

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

Ci ho provato, ma esce l'errore 2501 (L'azione DeleteObject è stata
annullata), come avevo riportato nel mio post (chiedo scusa di non aver
riportato il tentativo integrale: sia DoCmd.DeleteObject sia
DoCmd.CopyObject danno lo stesso errore.



Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.
Prova a postare il codice VBA completo che hai usato.


 Prova a postare il codice VBA completo che hai usato.
Nel primo post ho scritto che si tratta di VB, non di VBA, comunque il
codice con cui pensavo di cancellare i report è questo:
    ' destinazione è il percorso del database
     Dim appDest As New access.Application
     Dim i As Integer
     appDest.OpenCurrentDatabase destinazione, False
     ' cancello i report del db destinazione
     For i = 0 To appDest.CurrentProject.AllReports.Count - 1
        appDest.DoCmd.DeleteObject acReport,
appDest.CurrentProject.AllReports(i).Name
     Next i
Quello per copiarli è analogo...

 ha scritto nel messaggio
news:b3licl$1noko5$1...@ID-181212.news.dfncis.de...

Io non avevo capito che programmi in VB e non in VBA; VB non lo conosco
quindi non ti posso aiutare.
Ma se lavori in VB perchè ti rivolgi a questo NG che tratta problemi di
Access e non a quello che tratta i problemi di VB???????
Potresti avere almeno l'accortezza di indicare che la tua richiesta è [OT]!


 Potresti avere almeno l'accortezza di indicare che la tua richiesta č
[OT]!
    Il mio quesito tratta anche di Access, e non credo di essere cosě OT.
Nel primo post era scritto chiaramente che si trattava di VB, e non credo -
a occhio - che ci siano queste grandi differenze in questo caso. Io ho
semplicemente chiesto un parere, un consiglio...
    Grazie cmq.
    Ciao
        Giovanni

         Giovanni

Newsgroup: it.comp.appl.access
Titolo: immagini e report

Chiedo scusa, so benissimo che è un topic già discusso, ma mi trovo in
difficoltà e non riesco a spiegarmi il perchè di quanto accade.
Dovrei fare i cartellini dei dipendenti con foto e scritte annesse.
Vorrei collegare il tutto al db che già ho predisposto e vorrei stampare a
mo' di etichette anche le fotografie.
Ho guardato il sitocomune e ho sistemato le maschere con il percorso del
file memorizzato in un campo e poi
all'evento corrente aggiorno il controllo immagine, tutto funzia bene.
Dim path As String
path = "J:\foto dipendenti\" & Me.foto & ".jpg"
Me![Immagine].Picture = path
Se provo però a fare la stessa cosa in un report mi esce errore di run-time
2427 nessun valore nell'espressione immessa.
Il comportamento dei report differisce da quello delle maschere?
Grazie a chi vorrà indirizzarmi ...

 ha scritto nel messaggio
news:c91oc3$plt$1...@hulme.interac.it...

ok scusate risolto ... evento su formattazione ... vero Roberto da Casa?
si sa poi il perchè?
 ... sempre lui!

 ha scritto nel messaggio
news:c91oc3$plt$1...@hulme.interac.it...

Nei report non esiste l'evento "Su corrente" quindi devi impostare la
proprietà Picture del controllo Immagine a fronte dell'evento "Su
formattazione" o "Su stampa" della sezione del report che contiene il
controllo Immagine.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
--------------------------------------------- 

 ha scritto nel messaggio
news:c91p1h$pmt$1...@hulme.interac.it...

Esatto!!


Newsgroup: it.comp.appl.access
Titolo: accesso a un campo di tipo griglia

Devo migrare da un database di tipo b-trieve ad un database
Microsoft Access (mdb) e ho la necessita' di dichiarare il
campo di una tabella di tipo array, insomma una griglia.
Come faccio a specificare questo tipo di dato ?
Se accedo da vb a questo tipo di dato lo devo trattare
come fosse un array ?
Potete indicarmi un esempio ?
Grazie
Roby

 ha scritto nel messaggio
news:3be2bfaa...@news.iunet.it...

Non so se hai un driver ODBC per fare questa operazione o ti avvali di
procedure per fare il passaggio dei dati, a me è capitata la stessa cosa
anche se l'origine non era b-trieve, nel mio caso il driver ODBC vedeva i
campi array come dei semplici campi contigui tanti quanto era la lunghezza
dell'array es.:
se avevo l'array Prezzo(5) il driver mi faceva vedere Prezzo1, Prezzo2,
Prezzo3, 1Prezzo4, Prezzo5, quindi potresti adottare questa metodologia.
Ciao Roberto - Syd
Newsgroup: it.comp.appl.access
Titolo: auguri a tutti

Faccio un augurio di cuore a tutti gli appassionati all'Ng
per un felice natale e un buon anno
Uu augurio speciale ai Grandi di questo Ng perchè è grazie a loro che oggi
questo gruppo di discussione Esiste.
ciao Gianni

Faccio un augurio di cuore a tutti gli appassionati all'Ng
Auguri
Saluti.
Emanuele.

 ha scritto nel messaggio
news:3e02b...@news.dada.it...

Buon Natale ed un felice 2003 a te.
Roberto


Auguri
Roberto - Syd

ciao Gianni
mi associo e sottoscrivo in pieno!
ciao, Davide
--
Il filosofo scrive cose che non capisci, poi ti fa credere che č colpa
tua.
(Boris Makaresko)

per un felice natale e un buon anno
Tantissimi auguri di Buone Feste anche a te.
--
Alberto
Newsgroup: it.comp.appl.access
Titolo: Errore di Tipo non Corrispondente?

Buona sera a tutti!
chiedo ancora una volta il vostro aiuto per sbrogliare una matassa di cui non
vengo a capo.
Il database e' sempre quello a cui lavoro da prima di Natale (sono un osso duro,
io!), cioe' un piccolo database per la gestione di ordini di materiale da
vendere alle fiere del fumetto.
Sinceramente credevo di averlo finito. Ho iniziato ad inserire i dati e ho
creato i primi reports, ma a questo punto ho scoperto che c'e' qualcosa che non
quadra: vorrei ordinare i reports in base ad un certo campo "titolo" (cioe' il
fumetto a cui il prodotto fa riferimento), ma i dati non vengono ordinati. Se
vado ad aprire la query in visualizzazione foglio dati e cerco di ordinare i
dati in base al titolo, mi viene restituito l'errore di "tipo non
corrispondente". Lo stesso accade in tutte le tabelle. Ho provato a cancellare e
rifare la query, ma il risultato non cambia. Forse e' normale e io sbaglio a
creare la query?
L'origine dei dati è una semplice tabella con due campi, uno contatore e uno
testuale. 
Non so proprio dove sbattere la testa e spero di essere stata passabilmente
chiara.
Grazie a tutti!
Erika
-- 
Per rispondermi... Togli "nospam"


Il messaggio restituito di solito viene dato quando un criterio cerca un
dato numerico ma è stato trattato come testo.
dagli elementi che ci dai abbiamo pochino.
Manda l'istruzione Sql della query: cioè nella struttura della query cambi
visualizzazione.
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Leggere Il Nome Computer

Esiste unam piccola funzione che legge il nome del compute che si sta
usando?
1000 Grazie
Graziano
-- 

 ha scritto nel
messaggio news:bjsguo$mfk$1...@lacerta.tiscalinet.it...

Ciao Franchi
Puoi ricorrere alle API o a WSH, io preferisco WSH è più semplice
Sub UserName()
Dim WshN As Object
Set WshN = CreateObject("WScript.Network")
Debug.Print "Dominio = " & WshN.UserDomain
Debug.Print "Nome computer = " & WshN.ComputerName
Debug.Print "Nome utente = " & WshN.UserName
End Sub
Ciao Giorgio.

con la API invece:
Private Const LUNGMAX As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Private Function MostraNome() As String
   Dim Lunghezza As Long
   Dim Nome As String
   Lunghezza = LUNGMAX + 1
   Nome = String(Lunghezza, "X")
   GetComputerName Nome, Lunghezza
   Nome = Left(Nome, Lunghezza)
   MostraNome = Nome
End Function

 ha scritto nel
messaggio news:bjsguo$mfk$1...@lacerta.tiscalinet.it...

Interaction.Environ("Computername")
Con la stessa funzione puoi leggere tutte le altre variabili d'ambiente
(username, prompt, ecc...). Tutte quelle che compaiono digitando SET al
prompt dei comandi.
Namor

Newsgroup: it.comp.appl.access
Titolo: Access ed oggetto OLE

Ciao a tutti.
Ho il seguente problema:
In un DB Access sono stati memorizzati (embedded) in un campo OLE dei
file Word (i file esterni originali non ci sono più)
Tutti questi file attualmente hanno lo stesso piè di pagina
conetenente un indirizzo che deve essere modificato in un nuovo
indirizzo.
E' possibile creare una routine per modificare l'indirizzo di tutti i
documenti?
Grazie per l'aiuto
Anna

 ha scritto nel messaggio
news:f578b232.04031...@posting.google.com...

Non credo sia possibile intervenire direttamente nel contenuto, se è questo
che intendevi...
Ciao.
-- 
Sergio MAZZA

...

Ciao,
mi hai confermato quello che già sospettavo.
Grazie 
Anna

Newsgroup: it.comp.appl.access
Titolo: ALT +F4

Ciao a tutti.
E' possibile disabilitare la comb. di tasti ALT + F4 in access 2000 ?
Grazie in anticipo
RG

 E' possibile disabilitare la comb. di tasti ALT + F4 in access 2000 ?
Non penso dipenda da Access, è n comando di windows.
Smanettando a basso livello tra API e DLL sicuramente si può baypassare...
ma io non ne so abbastanza :-)
Maz



prova ad assegnare la combinazione alt+F4 sulla macro autokeys
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: problema di normalizzazione

Ciao e buona pasqua a tutti!
Devo normalizzare 3 tabelle che rappresentano altrettante classi di informazioni che riguardano
il gigantesco mondo del TESSILE.
(1) tblCategorie
(2) tblSottoCategorie
(3) tblAziende
Nel mondo reale le categorie del tessile possono avere più sottocategorie, ma ogni sottocategoria
si puo' presentare in più di una categoria.  Nello stesso tempo ad ogni sottocategoria corrispondono più aziende,
ma ogni azienda può trovarsi in più sottocategorie. --> ne conseguono le seguenti relazioni:
  (1)  molti-a-molti  (2)  molti-a-molti  (3)
Ho già costruito la relazione fra la 1 e la 2 utilizzando una tabella di congiunzione
i cui unici campi sono le chievi esterne delle chiavi primarie delle tabelle 1 e 2 e che (insieme)
rappresentano la chave primaria.
Ho fatto la stessa cosa per la relazione fra 2 e 3.
Credo che con questo tipo di impostazione è impossibile avere ridondanza e/o duplicati nelle informazioni
contenute nelle tabelle.
Il mio problema è trovare un modo che mi permetta di inserire i dati in modo agevole e veloce tramite una maschera
(magari con caselle combinate e/o di riepilogo che so gestire molto bene)  in modo tale che una stessa categoria
o sottocategoria o azienda compaia una e una sola volta all'interno del database.
Mi piacerebbe una maschera nella quale seleziono prima la categoria, poi la sottocategoria di appartenenza (tramite
caselle combinate) e infine inserisco la ragione sociale dell'azienda. E' ovvio che se l'azienda è già presente in altre categorie,
devo avere la possibilità di richiamarne tutti i dati e quindi di doverne ripetere l'inserimento da zero.
Io ho pensato ad una maschera basata su query codtruite in modo opportuno... le solite query che si usano per gestire
l'introduzione dei data nelle relazioni molti-a-molti... ma mi sono intrecciato...!
Avete dei consigli?
Anche generici...
cià!
	luca

 ha scritto nel messaggio
news:g7h8avk5ogdohf9ah...@4ax.com...
Sě, perň normalizziamola in un solo thread eh?
Antonio

Newsgroup: it.comp.appl.access
Titolo: ripristinare la grandezza di una maschera

dal menù avvio apro una maschera con docmd.maximize e vorrei che all'uscita
mi aprisse di nuovo il menù avvio ma accade che lo apre in modo massimizzato
prorietà ereditata dalla maschera precedente, come ripristino lo stato non
assimizzato? grazie a tutti.


restore
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Sql per Tab. Appoggio

Ciao a tutti.
Ho 2 tabelle in relazione molti a molti, potreste farmi un esempio di
istruzione sql per popolare una tabella d'appoggio .
Grazie.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie.
Prego
ah, non ti lamenentare se non ti serve.
Domanda generica = risposta generica
domanda specifica = risposta specifica
Ciao,
Massimo


;-) 


E' vero, è troppo generica.
Tabella Articoli, Campo NumeroArticolo
Tabella Colori, Campo Colore
Ogni Articolo può avere molti colori e ogni colore si può trovare in molti
articoli, quindi l'unico modo per mettere in relazione queste 2 tabelle è
farne una che abbini ogni singolo IDarticolo agli id dei colori interessati
e viceversa. Domanda:
Per non farlo manualmente sulla tabella, con l'sql come posso fare a
popolare questa tabella?
Spero di essere stato chiaro
Ciao.



Ciao,
Massimo

 ottinei 1000*100 record in tblAppoggio
Posso aggiungere anche una condizione al Select?
In qualche caso un Articolo ha solo un gruppo di colori come riferimento, e
viceversa.
Ti ringrazio.


 Ciao.
Di nulla,
Ciao,
Massimo

Newsgroup: it.comp.appl.access
Titolo: Conversione da Quick  basic ad access

Salve a tutti come si p� convertire una stampa fatta in qb45 utilizzando il 
comando LPRINT In ACCESS  senza fare un Report.
garzie
Marcello Riaudo

 ha scritto nel messaggio 
news:4a2e69fd$0$1116$4faf...@reader4.news.tin.it...

Prova aprendo un canale direttamente sulla porta LPT e inviagli il testo:
...
OPEN "LPT1:" for random as #1
...
PRINT #1, "Testo da stampare"
(oppure )
WRITE #1, Testo da stampare
...
CLOSE #1
...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Istruzione più veloce di DlookUp

Buongiorno a tutti, vi chiedo se siete a conoscenza di un istruzione più performante del DlookUp perchè su apertura di una form e poi su evento timer ogni 5 secondi vado ad affettuare 3 DlookUp per la lettura di 3 campi diversi di un unica tabella
 
forse c'è un modo per ottenere tutti e 3 i valori con un unico dlookup?
oppure c'è qualche altro tipo di interrogazione più performante?
 
grazie a tutti.


Apri una volta il recordset coi tre campi
Leggi e metti su tre variabili
Chiudi il recordset (per buona educazione, non e' indispensabile)
 
set MyRs.openrecordset("select c1, c2, c3 from tab where codice=123")
campo1=MyRs("c1"):campo2=MyRs("c2"):campo3=MyRs("c3")
MyRs.close
 
Non ho provato ma e' sicuramente molto piu' rapida una lettura di tre 
campi piuttosto che tre letture di un campo come le tre dlookup
Ma la grande differenza la fa il where che deve agire su campi 
indicizzati, se la selezione comprende campi non indicizzati e' normale 
che la risposta sia lenta perche' deve leggersi tutte le righe della 
tabella prima di sapere quali prendere


provo grazie.
Newsgroup: it.comp.appl.access
Titolo: Propblema con le caselle di ripilogo

Allora, cercherò di essere più chiaro:
Ho la seguente casella di riepiolgo:
A        B        C        D        E        F        G
1        1          1        1        1        1        1
2        2        2           2        2        2        2
3        3        3            3        3        3        3
4        4        4            4        4        4        4
5        5        5           5        5        5        5
ora cliccando ad esempio su C3 devo riportare questo valore in una casella
di testo cliccando su C3.
Nel record successivo mi serve ad esempio F5 e così via.
Se indico nella casella di testo come "Origine
ontrollo"=[Elenco].Column(...)
dove... sta per la colonna chiaramente mi sceglie solo la colonna indicata,
ma a me magari non mi serve quel valore in quel record!
Aiutatemi per favore!
Se qualcuno mi vuole ulteriori informazioni posso inviargli il file ma sono
3MB!
luca.lac...@libero.it

 ma a me magari non mi serve quel valore in quel record!
Se non ti serve quel valore in quel record, perche' ce lo metti?
Soprattutto, se non ti serve quel valore, che valore ti serve?
Aiutami ad aiutarti. Non e' che sia molto chiaro quello che dici!
Ciao, Sib

Nel record successivo mi serve ad esempio F5 e così via.
la cosa non è possibile perché una casella di riepilogo (o listbox)
riporta sempre e solo il valore della colonna legata: non si accorge,
cioè, in quale colonna è stata cliccata.
potresti inventarti cose complicatissime sull'evento clic del mouse,
che prendano in considerazione la posizione (top e left) della
listbox, la larghezza (width) delle colonne ecc., ma forse faresti
prima a mettere un gruppo opzioni con dei checkbox sopra la listbox in
corrispondenza delle colonne.
sul dopo aggiornamento del gruppo opzioni modifichi la proprietà
colonna legata della listbox.  certo, per ogni "record" probabilmente
dovrai fare due clic, uno per scegliere la colonna, uno per cliccare
la riga.
ah, già che ci siamo, *non si può* cambiare colore alle singole
colonne.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Newsgroup: it.comp.appl.access
Titolo: ...problemi di date...

Ciao a tutti!
Ho creato questa espressione in A97 (per altro perfettamente funzionante):
Data: DateAdd("m";[Mese];"31-12-2000")
Avrei bisogno di sostituire 2000 con "anno corrente - 1"
come posso farlo?
posso farlo all'interno della stessa espressione?
grazie infinite!
-- 
Posted from 
ppp-12-248.25-151.libero.it
 [151.25.248.12] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 posso farlo all'interno della stessa espressione?
DateAdd("m";[Mese];"31-12-" & Year(Date())-1)
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Checkbox con casellina a dx anzichè a sx

Quando aggiungo un checkbox, Access mi mette la casellina da spuntare a
sinistra della etichetta. A me piace invece a destra e ogni volta la devo
spostare.
Non è possibile impostare che per default sia a destra?
bye
--
*****************************
** Harry Evans - Bolzano
** Clipper Specialist & Magician
** e-mail:  
harry...@tin.it
*****************************
---------------------------------------------------------
->C.N.G.E.I. - Sezione di Bolzano
->
www.edp-progetti.it/cngei.bz
---------------------------------------------------------

 wrote in message 8d4rlf$6l5$1...@nslave2.tin.it...


Non è possibile impostare che per default sia a destra?
Mi pare che se, dopo aver spostato la label, dal menu
formato dai "imposta valori predefiniti controllo" o qlc di
simile, da quel momento in poi te la dovrebbe mettere come
vuoi tu.
Ho detto mi pare, eh! ;-)
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

 wrote in message
38f71945...@news.libero.it...


Newsgroup: it.comp.appl.access
Titolo: Modifica proprietà campo di una tabella con adox

Avrei la necessità di modificare le proprietà di un campo di una tabella 
tramite codice, nello specifico le voci 'Richiesto' e 'Consenti lunghezza 
zero'
Non sono riuscito a trovare nulla al riguardo ne sull'help e nemmeno sul 
sito comune.
Grazie per le eventuali risposte
 

 Non sono riuscito a trovare nulla al riguardo ne sull'help e nemmeno sul
A me l'help di Adox non funziona più e non capisco perché...
IG

 ha scritto nel messaggio
news:r%8Kd.13868$2h5....@tornado.fastwebnet.it...

Nemmeno a me....!
Per vedere ADO e ADOX vado su MSDN nel WEB...!
Non ho approfondito, ma mi è successo da quando ho installato
VisualStudio....!
Se trovi qualche soluzione mi farebbe piacere conoscerla.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Grazie per le preziose info.
Anche a me l'help di Adox non funziona...
-Ken

Newsgroup: it.comp.appl.access
Titolo: Copia recordset da Access 97 a Excel 97. Posizione di incollamento.

Salve,
Sto cercando di inviare un intero recordset di access 97 ad un foglio excel
97. In pratica ho copiato spudoratamente il codice trovato nella kb
microsoft all'indirizzo
http://support.microsoft.com/support/kb/articles/Q129/3/04.asp
 e, con un
paio di modifiche ha funzionato al primo tentativo. Il fatto è però che,
prevedibilmente, il recordset viene copiato a partire dalla cella a1 del
foglio. E se io volessi far partire l'incollamento in un altra posizione,
tipo ad es. la cella a5? Si può fare?
Grazie.


L'esempio della Microsoft (quě sotto) ha dei riferimenti predefiniti, ma
nulla vieta che tu possa modificarli a tuo piacimento.
mysheet.cells(1, 1).value = myfield
mysheet.cells(1, 1).font.bold = True
I parametri da passare sono: nomeOggetto.cells(indiceRiga, indiceColonna)
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Controllo Partita IVa

Salve a tutti,
ho trovato sul sito 
www.sitocomune.it
 la funzione per controllare la partita
iva .Avendo una tabella "bolla" con un campo"piva"come faccio ad usare
questa funzione? Ho provato ad inserirla in un modulo ma quando inserisco
una partita iva (es:12345678 )nel campo piva non succede nulla. Premetto che
sono un principiante ,qualcuno può aiutarmi?
Grazie a tutti
Giovanni
Function ControlloPIVA(piva As String) As Boolean
'Restituisce il vero se P.Iva corretta
    Dim DUB As Integer
    Dim DAB(2) As Integer
    Dim NUMO(11) As Integer
    Dim ind As Integer
    Dim TOTDIS As Integer
    Dim TOTPAR As Integer
    Dim NUMERO As Integer
    TOTPAR = 0
    TOTDIS = 0
    If IsNull(Piva) Then
       ControlloPIVA = False
       Exit Function
    End If
    If Not IsNumeric(Piva) Then
       ControlloPIVA = False
       Exit Function
    End If
    For ind = 1 To 11
        NUMO(ind) = Val(Mid$(Format(Piva, "00000000000"), ind, 1))
    Next ind
    For ind = 1 To 9 Step 2
        TOTDIS = TOTDIS + NUMO(ind)
    Next ind
    For ind = 2 To 10 Step 2
        DUB = NUMO(ind)
        DUB = DUB * 2
        If Mid$(Format(Str(DUB), "00"), 1, 1) = "0" Then
           TOTPAR = TOTPAR + DUB
        Else
           TOTPAR = TOTPAR + Val(Mid$(Format(Str(DUB), "00"), 1, 1)) + _
                             Val(Mid$(Format(Str(DUB), "00"), 2, 1))
        End If
    Next ind
    DUB = TOTPAR + TOTDIS
    NUMERO = 10 - Val(Mid$(Format(Str(DUB), "00"), 2, 1))
    If Val(Mid$(Format(Str(NUMERO), "00"), 2, 1)) = NUMO(11) Then
       ControlloPIVA = True
    Else
       ControlloPIVA = False
    End If
End Function

 una partita iva (es:12345678 )nel campo piva non succede nulla.
e cosa dovrebbe succedere ?
hai una tabella e una funzione che si ignorano
per utilizzare la funzione devi dire ad access:
1 quando usarla,
2 passargli i valori richiesti,
3 interpretare il risultato
1 quando usarla
usa la funzione all'uscita della casella ti testo che usi per inserire la
P.I.
(devi avere una maschera da usare per gestire i dati della tabella)
Private Sub Testo1_Exit(Cancel As Integer)
'  2 passargli i valori richiesti,
' passi alla funzione il valore richiesrto (la partita iva da controllare)
' che dovrà essere digitata nel  Testo1
If Not (ControlloPIVA(Testo1.Text)) Then
'3 interpretare il risultato
' se  la PI è falsa allora  Not (ControlloPIVA(Testo1.Text))  allora
'    non esci dal controllo  Cancel = True
 Cancel = True
'   e richiami il msgbox di avvertimento
 MsgBox ("hai sbagliato")
End If
End Sub
ciao

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

Visto che decompliano Visual Basic in C, possibile che non esista un
decompilatore per mde?
Cioao Rossano

Per ora NO!
Alex.
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Cioao Rossano
Perchè vuoi saperlo?
warp

 ha scritto nel messaggio
news:Wjz67.11589$NZ6.4...@news.infostrada.it...




Newsgroup: it.comp.appl.access
Titolo: Avvisi di protezione

Ciao a tutti,
so che l'argomento è già stato trattato a lungo.
Se mi rimandare a un qualche post mi va bene lo stesso
A03 con la classica schermata "avviso di protezione"
- l'applicazione non usa macro
- non mi è possibile abassare la protezione a bassa
- Dove e quale procedura per installare un certificato
Come fare per eliminare il messaggio?
Grazie
Fabio

In news:4724d9f7$0$3814$
5402...@news.sunrise.ch
,
FaVa <F...@F.com> ha scritto:

Ciao, trovi diverse soluzioni in questo elenco
http://groups.google.it/groups?hl=it&q=access%202003%20avvisi%20di%20protezione&oe=UTF-8&um=1&ie=UTF-8&sa=N&tab=wg
Sia per ambienti nativi che in runtime.
-- 
Lorenzo 

Lorenzo(pyx) ha scritto:

Grazie
Ora devo solo capire perchè su alcune macchine non mi accetta di 
abbassare il livello di prot delle macro
Fabio

 Fabio
Che significa ?
Non ti propone la scelta a menu ?
sei in runtime ?
Se cambi utente devi reimpostare il livello.
-- 
Lorenzo