mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: impostare da codice sql una relazione 1 a molti

qualcuno sa dirmi come creare da codice una relzione uno a molti fra il 
campo id e idprodotto di 2 tabelle con referenza aggiorna ed elimina a 
catena?
' con questo codice aggiungo il campo ma poi sempre da codice vba dovrei 
creare la relazione di cui sopra.
db.Execute "ALTER TABLE miatabella " & "ADD COLUMN idprodotto integer"
Grazie a tutti. 

 ha scritto nel messaggio 
news:46707068$0$37202$4faf...@reader3.news.tin.it...

Ciao Nicolas73,
prova a guardare questa mia vecchia risposta
http://groups.google.it/group/microsoft.public.it.office.access/msg/d62302cac84de293
Ciao
-- 
Giorgio Rancati
[Office Access MVP] 

 [Office Access MVP]
Grazie mille, provo a studiarmelo. 

 [Office Access MVP]
ho provato ad eseguire il codice per la creazione della relazione con update
e delete a catena ma nel codice non c'è come connettersi, mi spiego meglio,
io attualmente mi collego al db e lo modifico nel seguente modo:
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase("C:\miodb.mdb", False, False, ";
pwd=123456")
    'Creazione Tabella ArchivioArrangiatori
    db.Execute "CREATE TABLE tabell1"
    db.Execute "ALTER TABLE tabell1 " & "ADD COLUMN Id
counter;"
    db.Execute "ALTER TABLE tabell1 " & "ADD COLUMN IdBilancio
float;"
    Set db = Nothing
dopo quest'ultima istruzioni mi devo collegare con ADO e creare la relazione
con il tuo codice, ma come mi collego con password? hai un esempio?
grazie.

trovato
Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\Inetpub\wwwroot\mdb-database\MyDB.mdb;Jet OLEDB:Database 
Password=mypass

 ha scritto nel messaggio 
news:46728ff8$0$10619$4faf...@reader2.news.tin.it...

yesss :-)
come avrai letto dalla mia risposta, bisogna usare una connessione ADO, nel 
mio esempio le tabelle erano nel db corrente quindi usavo la connessione ADO 
Currentproject.Connection del db stesso
Cia


 ha scritto nel 
messaggio news:46729c3e$0$21208$5fc...@news.tiscali.it...

Ho aperto un altro post forse sbagliando puoi vedere il problema? Grazie.

Newsgroup: it.comp.appl.access
Titolo: Elenco maschere

Ho due progetti di accesss primo.adp  e  secondo.adp.
Ho necessità di ottenere l'eleco delle maschere contenute nel progetto
secondo.adp dal progetto corrente che sto utilizzando che è primo.adp.
E' Possibile?
Sono in grado di farlo solo per il progetto corrente.
Qualcuno mi può aiutare?
Grazie a tutti in anticipo.
Marco D

 ...
Puoi usare codice di automazione (v.a.  
www.donkarl.com/it?FAQ1.21
).
Dim appAcc As Access.Application
Dim obj As AccessObject
Set appAcc = New Access.Application
appAcc.OpenCurrentDatabase "PercorsoENomeDelSecondo.adp"
For Each obj In appAcc.CurrentProject.AllForms
    Debug.Print obj.Name
Next obj
appAcc.Quit
Set appAcc = Nothing
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 


Giravo in torno alla soluzione  ma  "OpenCurrentDatabase"  proprio mi
mancava.
Ho decisamente bisogno di conoscere un po' del codice di automazione
di cui parli ma non so dove trovarlo.
Grazie infinite
Marco Dell'Oca
Newsgroup: it.comp.appl.access
Titolo: Salvare Report

Ciao, chi mi dice qual'e' il problema?
Ho creato con un Report da codice con CreateReport
Al termine della Sub vorrei salvare il Report con un nome a mia scelta,
ed ho inserito:
docmd.openreport (
rpt1.name
, acViewPreview
docmd.save
str = "Titolo del Report"
if doesreportexist(str) then
   docmd.deleteobject acReport, str
endif
docmd.save, str
docmd.close
E funziona, ma avendo necessita di leggere alcuni campi di una tabella
ho inserito in testa alla sub:
set rst = new adodb.recordset
with rst
    .Activeconnection 'il mio db'
    .open "myTab",,,,adcmdtable
end with
Leggo i dati faccio tutto quello che voglio, ma non riesco piu' a
salvare ed ottengo il msg di errore: Errore di runtime 2501: L'azione
Save e' stata annullata.
Se qualcuno sa' dove sbaglio...
Grazie
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Semplifichiamo la domanda, se NON utilizzo i RecordSet riesco a Salvare,
utilizzandoli ottengo: 'Errore di run-time: L'azione di Save e' stata
annullata'.
Perche'?


Scoperto!!
Avevo chiuso il recordset (rst.Close) ma non lo avevo settato a
nothing!!


Newsgroup: it.comp.appl.access
Titolo: medicina generale, schede geriatriche

qualcuno ha un programmino per fare le schede geriatriche di medicina
generale
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 generale
Con access non fai programmi, tutt'al più applicativi...
Antonio

 ha scritto nel messaggio
news:GPiKb.232730$e6.91...@twister2.libero.it...

Mi...che precisino :-)

 ha scritto nel messaggio
news:sxjKb.23211$Jw2....@tornado.fastwebnet.it...

Beh...
non è che mi avesse fornito molti dati per una risposta più esauriente!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: Scaricare una maschera

mediante codice apro una maschera di access però quando tento di scaricarla
con il comando unload nome maschera, mi dice che la maschera non può essere
scaricata.
Qualcuno può aiutarmi ?
Grazie
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:151Z99Z208Z33Y1...@usenet.iol.it...

Amico mio ti hanno già risposto; per la precisione ti ha risposto Roberto da
casa il 7/6/2002 alle ore 11:13...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Perchè dal modulo VB posso accedere solo al Form che contiene il modulo in questione?

Salve, c'è qualcosa che mi sfugge...
ho un DB con vari form che sto progettando, nel modulo associato ad un
form ho una funzione che deve accedere ai dati contenuti in uno degli
altri form.... la cosa assurda è che non li vedo!
ho provato a fare (dalla funzione in questione) un:
dim frm as form
for each frm in Forms 
  debug.print 
frm.name
next frm
e mi stampa SOLO il nome del form che contiene il modulo da cui lancio
la funzione.
il bello che che in un altro DB invece me li vede tutti.... e non
capisco dove stia la differenza.
ho anche provato a creare un form nuovo con solo un pulsante che
esegue la funzione riportata sopra, e anche li la stessa cosa... vedo
solo il form da cui lancio la funzione.
Chi mi da qualche raguaglio?
ho pure provato a fare un
Dim ap As Application
set ap = Application
e poi sono andato a vedere cosa c'era in ap.forms.... ed anche li vedo
1 solo form, quello da qui faccio il test, e NON vedo nessuno degli
altri forms.... boh....
perchè non va?
grazie a tutti
ciao, Max

[SUPER-CUTTTTTTTT]
mi rispondo da solo..... l'insieme forms contiene solo le forms
aperte, non tutte le forms(in effetti è pure logico)...
Cavoli... si vede che fa caldo e che è tutto il giorno che
programmo..... :-)))))))))))))))))))))
Ciao, Max
Newsgroup: it.comp.appl.access
Titolo: HELP maschera come foglio dati

Ciao a tutti, Vi chiedo per l'ennesima volta aiuto e Vi ringrazio
anticipatamente.
Ho una maschera "entrate diverse" alla quale ho attribuito come
visualizzazione di default "foglio dati" così come "visualizzazione
consentita".
In una seconda maschera ho messo un tasto con l'autocomposizione per aprire
"entrate diverse". Il codice generato è il seguente:
Private Sub Comando225_Click()
On Error GoTo Err_Comando225_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Entrate diverse"
    stLinkCriteria = "[Data]=" & "#" & Me![Data] & "#"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando225_Click:
    Exit Sub
Err_Comando225_Click:
    MsgBox Err.Description
    Resume Exit_Comando225_Click
End Sub
Mi sapreste dire come mai non riesco ad aprire "entrate diverse" dalla
maschera principale in modalità foglio dati ma solo in modalità maschera che
per altro credevo d'aver disattivato?
Grazie a tutti, spero d'essere stato chiaro.

     DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm stdocname, acFormDS,,stLinkCriteria
Ciao Nicola
--
email:sostituire tin a NOSPAM

per altro credevo d'aver disattivato?
Vai col cursore su Openform e premi F1
--
Lorenzo Coronati
--
<<Complimenti per la risposta disinteressata a 
differenza di altri che sul NG ci mangiano sopra.>>
(Voltolini, 20/04/2000)
--
<<[...] Altrimenti ci arrabbiamo....>>
(Voltolini, 10/10/2000)
--

Newsgroup: it.comp.appl.access
Titolo: Copia di cartelle

In un applicativo che finora ha sempre funzionato
copio il contenuto di una cartella, con relativi file e sottocartelle, 
in un'altra posizione:
 
   source= "Percorso_1"
   destination ="Percorso_2"
   Set fso = CreateObject("Scripting.FileSystemObject")
   result = fso.CopyFolder(source, destination, True)
 
Finora ha sempre funzionato mentre ora se lo lancio mi copia solo alcune 
cartelle poi mi segnala errore di "Percorso non trovato" riferito alla 
source.
 
Quale può essere il problema?


Forse ho trovato ... e penso che abbia a che fare con la lunghezza del 
percorso dovuto a sottocartelle e nomi luuunghi di file e cartelle.
 
Ancora un po' e scrivevano tutto nel nome della cartella!!!!!!
 
C'è un modo per bypassare il problema o devo costringerli a ridurre 
tutti i nomi?
 
Grazie
Newsgroup: it.comp.appl.access
Titolo: stampa su report di un testo condizionato da un campo

ho una tabella con vari campi numerici
in un report vorrei inserire una etichetta non associata dove se in uno
dei campi numerici della tabella, o in più di uno, vi sia "0", mi esca un
testo fisso abbinato al campo , se lo "0" sta in piu campi, nell'etichetta
del report mi dovrebbero comparire tutte i testi abbinate ai singoli campi
con valore "0".
Se esiste questa possibilità, io non so minimamente come realizzarla e vi
chiedo aiuto.
grazie
luigi
ps. il problema è lo stesso del post precedente ma posto in forma diversa
scusatemi!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


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
 
---------------------------------------------


Invece di una etichetta usa una textbox
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007

MA ha scritto:

ok ma come faccio a farci comparire i testi abbinato ai valori 0 dei
singoli campi?
es.
campo 1  se valore = 0 testo da visualizzare nella textbox del report
"mare"
campo 2  se valore = 0 testo da visualizzare nella textbox del report
"terra"
campo 3  se valore = 0 testo da visualizzare nella textbox del  report
"sole"
quindi nella textbox del report mi deve apparire:
mare - terra - sole
se invece campo 2 valore = 1
mare - sole
se invece campo 2 valore = 1 e campo 3 valore = 2
mare
ecc
mi sono spiegato?
mare 



Vincenzo Turturro 


 Vincenzo Turturro 


> Vincenzo Turturro 

Newsgroup: it.comp.appl.access
Titolo: Aggiornare un valore dal risultato di una query di raggruppamento

Ciao a tutti, uso Access97,
Sto cercando di fare una cosa apparentemente semplice ma mi sta creando un
po' di difficoltà.
Non riesco ad aggiornare un campo della tabella A tramite una query di
aggiornamento, che abbia come origine dati da aggiornare, il risultato di
un'altra query
stavolta di selezione, che non fa altro che raggruppare un valore e farne la
relativa somma.
Se non c'e modo di farlo tramita la query di aggiornamento, come posso fare
per scrivere la somma ottenuta in tutti i record della Tabella A?
Grazie mille
Andrea

 ha scritto nel messaggio
news:VGVj6.35361$LM4.4...@twister1.tin.it...

Ti sconsiglio nel modo più assoluto di memorizzare un campo calcolato in una
tabella: è contro ogni regola di un database relazionale.
Comunque, nel caso in cui la tua tabella si chiami Tabella1, il campo da
aggiornare si chiami Totale, la query di raggruppamento composta da una sola
riga si chiami Query1, il campo della query da usare per l'aggiornamento si
chiami SommaDiImporto, il codice SQL della tua ipotetica query di
aggiornamento è il seguente:
UPDATE Tabella1 SET Tabella1.Totale = DLookUp("[SommaDiImporto]","Query1");
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Creare fatturazione automatica

Ciao a tutti. Ho un problema: ho già un database che uso per registrare i 
pazienti che visito. Adesso ho la necessità di creare delle fatture da 
questo database. In questo è già presente una tabella di dati anagrafici e 
vorrei collegarmi a questa per creare la fattura. I problemi sono due:
1) Vorrei usare il campo contatore come numerazione automatica delle fatture 
ma alla fine di ogni anno avrei la necessità di riazzerare il contatore 
senza perdere i dati precedenti. Esiste qualche sistema ad es. anche 
accoppiando numero fattura ed anno??
2)Vorrei calcolare automaticamente il codice fiscale.
Vo prego di spiegarvi semplicemente in quanto non sono un veterano. Grazie 
tanto. 

 tanto.
http://www.sitocomune.com/
Ciao Merlino
Daniele
Newsgroup: it.comp.appl.access
Titolo: disattivare db ogni anno e chiederne la riattivazione

vorrei distribuire a più clienti un mio db con la possibilità che ogni anno scada senza però permettere di modificare la data del pc o altri trucchi simili, esiste un controllo che consente questo?
 
qualcuno ha già affrontato il problema?
 
grazie.


Potresti scrivere delle informazioni su diversi posti, registry, dir 
system, dir windows, directory programma, ecc..
Se le informazioni lette non corrispondono a quanto atteso fermi tutto
Il vero problema e' sapere data/ora esatti
Se il pc e collegato ad internet puoi andare a leggere su qualche server 
ntp, ma non e' detto che tu ci riesca, se c'e' un firewall ben 
configurato il tuo programma non 'esce' su internet
Se poi e' isolato, e' un problema, ma oramai i pc isolati sono davvero 
pochini

>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


grazie a entrambi avevo sentito anche un certo activelock che forse è stato progettato per questo tipo di problemi

Newsgroup: it.comp.appl.access
Titolo: Query: Estrarre ultimo prezzo in ordine di data.

Salve a tutti,
devo realizzare un DB per magazzino in cui per determinare il valore degli
articoli si usa il medo F.I.F.O.
In pratica il valore delle rimanenze di fine anno (inventario) deve tener
conto del ultimo prezzo dell'articolo.
Esempio:
Tabella_Registrazione_Acquisti
Codice;Quantità;Prezzo;Data_Acquisto
01            10        2,00     03/04/2008
01            20        2,50     15/05/2008
01            15        2,55     13/12/2008
Tabella_Inventario
Codice;Quantità;Prezzo
01            45        2,55 (cioè l'ultimo in ordine di data)
Come posso fare perchè nella Tabella_Inventario ogni articolo prenda
l'ultimo prezzo in ordine di data ?
Grazie Luca.


Lo raggruppi e metti la somma nelle quantità e Ultimo nella data
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


Prova a leggere questo Demo ed ad applicarlo all'estrazione dei Prezzi
per Prodotti sul Max(Data):
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=294
@Alex

 ha scritto nel messaggio
news:d405bb46-5993-44c5...@8g2000hse.googlegroups.com...


http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=294
@Alex
Grazie @Alex funziona correttamente.
Newsgroup: it.comp.appl.access
Titolo: REPORTS SUBMASK - UNO SCHIFO

Spiegatemi perché, senza variare nulla, un report basato su una 
maschera avente sottomaschere di colpo scrive l'odioso "#Errore" su 
ogni controllo.
Non solo, ma se scrivo a mano l'origine controllo, aggiunge in 
automatico le parentesi quadre e non esiste santo che le tolga. 
Es:
=Maschere!Maschera1!Sottomaschera1!Cognome diventa
=[Maschere]![Maschera1![Sottomaschera1]![Cognome]
mentre negli altri controlli, se non tocco nulla rimangono senza 
parentesi quadre
Direte: ma tanto che cambia? Non cambia nulla, ma sicuramente Access si 
è rovinato. Infatti mentre lavoro capita che passando da modalità 
struttura a visualizza Access si chiude in un nano secondo. Insomma un 
bel baco merdoso(chiedo scusa per il termine volgare) che mi è successo 
un'altra volta in passato.
Correggendo in automatico gli errori di "Office Xp" non cambia un 
casso...
qualcuno sa qualcosa?
Grazie
Ciauz
Ditemi perché succede, perché qui do' di testa
-- 
'gnurant come una cucuzza
Inviato da 
www.mynewsgate.net

 casso...
Togli la spunta a tieni traccia delle correzioni.
MAssimiliano

 ha scritto:

Mi rispondo, visto che ho capito la gabula(così se capita anche a voi vi 
saprete destreggiare). Il db in questione si era piantato su 
un'esecuzione di codice Vba. All'apertura successiva del db(ma l'ho 
scoperto solo ora) alla voce "Compila NomeDb" compariva invece "Compila 
NomeDb222"...ricompilo e salvo(come suggerisce l'analisi delle 
prestazioni) ma non cambia nulla.
Allora importo tutti gli oggetti su un nuovo db(ma non funziona ancora), 
ricompilo e salvo e sono a posto
Ciauz
P.S.: ma si scrive poco oppure sono io che vedo pochi post?


'gnurant ha scritto:







1) "Maschere" cambialo...ad Access spesso non piace...usa "Forms"
2) Se importi tutto su un nuovo DB? magari il tuo si è corrotto, e ai
voglia a buttarci il sangue...prova e facci sapere.
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
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: Ripristino visualizzazione Menu standard

Sono andato nel menů strumenti e alla voce avvio e o deselezionato la
visualizzazione di tutti i menu e della barra di stato.
Ora non riesco piů a vedere la tabelle del database, come posso ripristinare
la sutuazione precedente ?
Grazie

CUT
Quando apri il tuo mdb tieni premuto il tasto SHIFT e come per magilla
potrai tornare al menu strumenti-->avvio a ripristinare la situazione!
Newsgroup: it.comp.appl.access
Titolo: Scusate l'OT......

Ciao a tutti, qualcuno sa indicarmi dove poter scaricare esempi e file di
Access e Excel.
Grazie in anticipo a tutti quelli che mi risponderanno.
FeliX

 wrote in message
92td9e$ec$1...@nread2.inwind.it...

Nel Cd di Office 97!
come dafault vengono installati in
C:\Programmi\Microsoft Office\Office\Esempi
trovi
Soluzini.mdb
Ordini.mdb
Northwind.mdb
Esempi.xls
e nella directory
C:\Programmi\Microsoft Office\Modelli
trovi i modelli dei vari programmi!
ciao Riccardo

 ha scritto nel messaggio
news:92urfi$qfe$1...@news.panservice.it...



Forse fai riferimento al sito comune di questo NG (indirizzo + sotto).
Sei comunque vivamente invitato a rispondere dopo i messaggi precedenti,
ovvero, come direbbe il buon Biso, dopo il quoting.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 ha scritto nel messaggio
news:92td9e$ec$1...@nread2.inwind.it...

Agli inizi ho adoperato molto i database che si possono creare (completi di
record di esempio) con l'Autocomposizione Database. Si ottengano database
mediopiccoli che perň contengono soluzioni veramente apprezzabili;
sicuramente a quei tempi mi sono risultati molto piů "digeribili" di
Northwind: spesso li ho adoperati come base per realizzare delle procedure
piů complesse.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: ID come contatore o numerico

Ho un db diviso in FE e BE il tutto gira in rete in multiutenza. Ora mi
è venuto un dubbio. L'ID prende il numero tramite DMAX quindi presumo
che se due utenti caricano contemporaneamente nuovi record si potrebbe
verificare che prendano per la loro pagina  lo stesso numero
progressivo. Ovviamente quando aggiornaranno la pagina solo il più
veloce verrà accettato, l'altro avrà errore per duplicazione chiave
primaria. Con l'ID in un campo contatore questo invece non dovrebbe
succedere. Giusto? 
Gradirei dei chiarimenti in merito.
Marco

in teoria si ed anche in pratica presumo...pero' visto che il db gira
in multiutenza dovresti a mio avviso implementare la funzione da cui
ricavi il progressivo con ul metodo transazionale la transazione per
intenderci, con la transazione nn dovrebbero esserci problemi di
replicare la chiave, ma potrei sbagliarmi, magari qualcuno che ne
mastica molto piu' di me potrebbe darti maggiori chiarimenti
saluti
Diego

dimenticavo....intanto a mio avviso il progressivo dovrebbero prenderlo
al salvataggio del record o comunque all'evento before update, e poi
perche' usare il contatore di default di access? a mio modesto parere
crea problemi ed e' piuttosto seccantre da gestire in quanto molto
rigido e per nulla flessibile, potresti invece crearti un campo
numerico incrementale e svincolarti dal contatore di access
saluti 
Diego


Gli autonumbers sono stati implementati nei vari motori proprio per
automatizzare il calcolo dell'ID univoco.
In linea di principio non ha senso, se il motore di DB prevede il formato
autonumber, gestire autarchicamente l'incremento della chiave numerica
(eventuale: c'è chi preferisce ricorrere a chiavi alfanum. multicampo).
Anzitutto l'incremento "autarchico" dell'ID comporta uno sforzo di
programmazione: come hai intuito devi considerare l'ipotesi che in
multiutenza due postazioni ricevano lo stesso ID (e con un file sharing come
JET le transazioni, in rete, non sono una garanzia).
Ma soprattutto il problema è prestazionale: il DMAX che utilizzi comporta un
notevole carico di lavoro in rete.
Oltre alla fase di Data Entry (maschere) devi considerare gli eventuali
aggiornamenti Batch degli archivi: se implementi, per esempio, un batch che
crea automaticamente la prima nota dalle fatture di vendita, dovrai per ogni
record creato invocare un DMAX per calcolare l'ultimo ID creato da
incrementare: un bello spreco di risorse.
I motori di database utilizzano algoritmi Hash per indirizzare gli
autonumbers (è verosimilmente così anche per JET), assicurando ottime
prestazioni in tutte le casistiche.
Detto questo, è giusto ricordare che può accadere che i contatori di JET
(sia 3.5 che 4.0 con Service Packs) vengano erroneamente duplicati.
In verità capita in circostanze assai rare, probabilmente legate a
malfunzionamenti di rete: ma qui si aprirebbe un discorso più ampio legato
ai problemi delle architetture file-based.
Ciao, Oscar
Newsgroup: it.comp.appl.access
Titolo: Azzerare valore di un campo contatore

Ho fatto un programmino in Access con una tabella che contiene un campo
contatore. Dopo tutti i test devo mettere in produzione il programma ma
ho il problema che, nonostante abbia cancellato tutti i record , il
campo contatore parte dal numero con il quale ho terminato le prove.
Come faccio ad azzerare il campo contatore in modo che riparta da 1 ???
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ciao Teresa,
prova a compattare il database.
Saluti
Cinzia

Come faccio ad azzerare il campo contatore in modo che riparta da 1 ???
Dal menu' Strumenti-->Utilita' Database-->Compatta e Ripristina
Database
Ciao
Riccardo

 Come faccio ad azzerare il campo contatore in modo che riparta da 1 ???
Cancella la tabella e ricreala!
Cla

 ha
scritto nel messaggio
news:ch81go$9k$1...@lacerta.tiscalinet.it...

Basta compattare il db.
MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: Come si accede da codice a un dato in una tabella?

Forse è facile, forse è l'ABC di Access ma io non lo so fare.
Come si accede a un dato salvato in una tabella da codice? (ovviamente senza
caricarloprima in una Maschera).
Mi spiego: l'utente scrive in una TextBox la Directory predefinita dove si
trovano alcuni file immagine, da caricare a run time.
La directory è salvata in un campo di una tabella costituita da un solo
record, contenente alcuni parametri generali relativi all'utente.
Dal codice, per realizzare la funzione di apertura dei file, voglio
prelevare la directory predefinita, ma non so come fare.
Grazie
Filippo

 ha scritto nel messaggio
news:9t8jpv$3ob$1...@news.panservice.it...

scusa ma se tu metti il campo nella maschera e poi lo nascondi nella fin.
prop. metti Visualizza no dovresti risolvere
by
stwe

 wrote in message
9t8jpv$3ob$1...@news.panservice.it...

Guardati la funzione DLookup
Antonio
Newsgroup: it.comp.appl.access
Titolo: Come scaricare i vecchi messaggi?

ciao a tutti
ho sempre consultato il ng tramite google, ora sono passato ad outlook
express
vorrei scaricare tutti i precedenti messaggi ma vedo solo quelli degli
ultimi due giorni
qualcuno ha informazioni in merito?
ciao Abele

 ha scritto nel messaggio
news:pVMA9.11497$5a.9...@tornado.fastwebnet.it...

Ti conviene fare così:
annulla la sottoscrizione e rifalla daccapo
poi
1 - clicca sull'account del NG e sulla destra ti apparirà l'elenco dei NG
sottoscritti.
2 - seleziona quello ke ti interessa
3 - clicca su IMPOSTAZIONI e scegli SOLO INTESTAZIONI.
4 - Clicca su SINCRONIZZA ACCOUNT
quando poi ha finito di scaricare (se vuoi scaricare i corpi dei messaggi),
ripeti
il punto 1 e 2. nel punto 3 invece scegli TUTTI I MESSAGGI
Se non hai una connessione veloce, potrebbe richiedere parecchio tempo...
--
Nicola
nick...@libero.it
(per rispondermi togliete
<nospam> dall'indirizzo

 <nospam> dall'indirizzo
ti ringrazio lo farò subito
ho la connessione a fibra ottica e non dovrei avere problemi
ciao abele


ci ho riprovato molte volte ma ottengo solo i messaggi degli ultimi due
giorni
quando seleziono "Solo intestazioni" e "sincorinizzo account", mi da una
maschera che vedo per mezzo secondo e non riesco a leggere cosa c'è scritto
proseguendo come da tue istruzioni mi ritrovo sempe nella stessa situazione.
hai qualche idea?
ciao Abele

 ciao Abele
Se non sei legato per qualche motivo particolare a quel news server prova a
cambiarlo.
p.s. Lasciatelo dire tuo fratello è proprio un b* .... ;-è
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:pVMA9.11497$5a.9...@tornado.fastwebnet.it...

Strumenti => Opzioni => Manutenzione: togli lo "svirgolino" da Elimina i
messaggi delle news...
Ed ora fai quello che ti ha detto di fare Nicola.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


    ricordi il Mistero Buffo di Daro Fo?
Dopo quello non mi preoccupo piů,
(prima di quello ogni tanto un sospetto mi pungeva proprio sotto alla
sfumatura dei capelli)
ciao
Abele

Newsgroup: it.comp.appl.access
Titolo: Query o sql?

Un suggerimento.
Voi di solito quando create una maschera o un report come origine dati create un select all'interno della maschera o fate una query esterna?
Cosa è meglio?

a livello di funzionamento è irrilevante
 
io personalmente se la stessa query la posso usare per altri oggetti allora la tengo sicuramente esterna
 
se invece è ad uso esclusivo della maschera o report o altro allora lo valuto in funzione della complessita della query,
se esterna è più facilmente modificabile e controllabile,  pero è un oggetto in più.....
 
poi comunque sono considerazioni personali di praticità
 
.
Newsgroup: it.comp.appl.access
Titolo: SQL e date

Ciao, ho bisogno di un aiuto...
(in Transact-SQL)
se voglio comporre una query con caratteri jolly nelle date cosa devo
scrivere :
ad esempio: select IdProtocollo, dataP from Protocollo where (IdProtocollo =
1) and (dataP = '??/??/??')
per estrarre tutti i record che abbiano lo stesso numero di protocollo e
caratteri jolly nella data ( il campo dataP nel select devo specificarlo per
forza perchč proviene da una pagina ASP.
Grazie
Giancarlo

 forza perchč proviene da una pagina ASP.
Non puoi usare >, <, = e between? Magari impostando una data fasulla, molto
remota o molto futura.
Saluti.
Luciano

--- cut ---
Potrebbe essere una soluzione... adesso provo.
grazie
Giancarlo

Newsgroup: it.comp.appl.access
Titolo: intercettare l'evento collegamento ipertestuale

Ciao sono Fanciullo,
access97
In una tabella ho un elenco nomi di file, es.
J:\RICETTE\AMATRICIANA.doc
che altro non sono che collegamenti ai file
residenti sul disco fisso.
Sulla penna ottica ho la stessa situazione
ma cambia la lettera iniziale
K:\RICETTE\AMATRICIANA.doc
vorrei intercettare l'evento collegamento per poter
al volo cambiare la prima lettera con una inputbox
cosě posso aprire il file anche sulla penna ottica.
č possibile? 

 l'evento collegamento
?
Parli di un controllo in una maschera o di quale oggetto di Access?
Cosa fai con il percorso dalla tabella?
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Mi spiego meglio Karl:
sono in una maschera dove in una casella di testo ho
il valore:
J:\RICETTE\AMATRICIANA.doc
il campo origine è un campo collegamento ipertestuale quindi
facendo clik sul nome mi apre il file di word.
Se rimango sempre sul mio disco fisso non ci sono problemi.
Sul pendrive ho lo stesso identico percorso ma cambia
 la lettera dell'unità quindi non riesco ad aprire il file.......
insomma prima che parta il collegamento ipertestuale
vorrei - se sono sulla penna - cambiare la lettera iniziale nella casella di
testo sulla maschera che dovrebbe diventare
K:\RICETTE\AMATRICIANA.doc
ciao grazie

"FANCIULLO" <VITO...@toglimiLIBERO.IT> ha scritto nel messaggio 
news:492f9e99$0$18157$4faf...@reader3.news.tin.it...

Io farei cosě:
userei due campi, uno per il disco e uno per il percorso.
In questo modo con opportuna routine posso cambiare il valore di "Disco" ed 
eseguire un codice simile a questo:
Application.FollowHyperlink Me.Disco & Me.NomeFile, , True
...dove in Me.Disco leggo c:\ (oppure F:\ o altro)
e in me.NomeFile leggo MioFile.txt
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: aggiungere nuovo record

ciao 
ho un problema con una maschera. quando clicco su aggiungi nuovo record il db non mi crea un record finchè non inserisco qualche dato e me ne accordo dal campo numero_ord che è di tipo autoincrementale e si genera solo dopo aver inserito manualmente dei dati. Io vorrei invece che mi creasse subito il record cliccando sul tasto Aggiungi. 
 
c'è un opzione oppure bisogna fare con vba, se si come?
grazie mille

Perchè vuoi una cosa simile...? Che vantaggio offre...?
In tutti i casi prova con il SALVA che trovi nelle opzioni di RunCommand...
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: Come controllare il TAB ?!

Ok, dopo numerose peripezie posso dire di aver completato il mio primo
database semiserio in Access 2000 .
Ora mi mancano alcuni dettagli tipo appunto il TAB.
Vorrei come prima cosa evitare/ottenere i seguenti comportamenti:
1. in visualizzazione maschera singola, durante l'inserimento di dati,
arrivato e riempito
    l'ultimo campo, vorrei evitare che al successivo "TAB" si vada in
inserimento di un nuovo record
    ma piuttosto vorrei che tornasse al primo campo
2. Ho utilizzato in una maschera una "Struttura a schede", e' possibile fare
in modo che riempiti i campi della prima scheda, al TAB successivo si vada
al primo campo della seconda scheda e cosi' via ?
Ciao e grazie
Fabio

    ma piuttosto vorrei che tornasse al primo campo
In access 2000 basta impostare la proprietà sequenza della maschera a record
corrente.
Newsgroup: it.comp.appl.access
Titolo: AIUTOOO...cambio ora solare/legale

Nessuno mi sa dare una dritta???
Devo intercettare il momento di cambio dell'ora nell'anno per far
eseguire o meno una certa procedura.....Come si può fare????
Grazie.
raf
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 eseguire o meno una certa procedura.....Come si può fare????
Non credo che esista qualcosa del genere che sia intercettabile.
L'unica cosa che, secondo me, è fattibile, è inserire del codice all'interno
dell'applicazione, dove vai a testare la data e la confronti con quella del
cambiamento dell'ora solare/legale.
-- 
Gabriele Bertolucci
PBsoft

 wrote in message
news:YBn2b.37096$
zN5.1...@news1.tin.it

Ma dove prendo quella del cambiamento? Nel senso: è sempre la stessa?
Scusa la
domanda scema ma...mi sto perdendo!!!


> Ma dove prendo quella del cambiamento? Nel senso: è sempre la stessa?
Dipende dal paese che vai a considerare.
Se non hai esigenze particolari, per l'Italia vige la seguente legge:
notte tra il sabato e ultima domenica di marzo -> entra in vigore l'ora
legale
notte tra il sabato e ultima domenica di ottobre -> entra in vigore l'ora
solare
Per calcolare queste date potresti crearti una funzione che va ad
investigare il giorno della settimana partendo dal 31 del mese e venendo a
ritroso per un massimo di 7 giorni.
Se hai bisogno, fatti sentire.
-- 
Gabriele Bertolucci
PBsoft

Ok. Grazie mille.
Ciao ciao

Newsgroup: it.comp.appl.access
Titolo: Connessione Applicaizone web su Wlan

Ciao a tutti.
Il mio problema:
Su una WLan aziendale costituita da varie lan locali ognuna con un server e 
una serie di client  connesse alla Wlan tramite router ADSL.
Su questi server è installata una applicazione con interfaccia web che usa 
come riconoscimento dell'utente l'accesso al PC di windows 2k. 
quindi se PincoPallino con la password 12345678 accende il pc e avvia 
l'applicazione quest'ultima lo riconosce e gli permette di usarla.
fin qui tutto semplice.
Se io dal mio pc con utente pinco e password 12345678 accedo 
all'applicazione web situata su un'altro server di un'altro workgroup 
dentro lo stesso mio router tutto funziona benissimo.
Se al contrario sempre con il mio utente avvio l'applicazione web sita su 
un server dell'altro workgroup, ma uguale a quello che mi sono appena 
collegato installato fuori dal mio router, non mi funziona, si vede che 
inizia a caricare la pagina ma quando sta caricando il logon (che dovrebbe 
riconoscermi mi dice che è impossibile perchè l'oggetto è chiuso.
Qualcuno sa dirmi il perchè?
Ciao Sthepan


Ciao Stephan,
it.comp.appl.ACCESS si intende il programma compreso in Office non
accessibilità
Non è questo il NG adatto
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: aprire file word

Ciao a tutti .
Ho un piccolo problema dal codice vb di access non riesco ad aprire un
determinato file di word, ho provato con il comando shell, dando prima il
pathname dell'exe e pio quello del *.doc ma non funziona non so proprio come
fare.
Un ultima cosa:
Ho una variabile di tipo string (codice vb)inserire il contenuto della mia
variabile in una tabella?
Ringrazio anticipatamente.

 ha scritto nel messaggio
news:zDQ%5.141821$hk4.5...@news.infostrada.it...

L'esempio del tuo codice?
Ciao.

 wrote in message
91ptnf$sp4$1...@suite03.caspur.it...

ecco l'esempio
Private Sub Comando1_Click()
    Dim a, b
    a = Shell("C:\Programmi\Microsoft Office\Office\Winword.exe,
C:\pre.doc", 1)
    'b = Shell("C:\pre.doc", 1)
End Sub
 questo è il modo con il quale ho provato io (che non sono esperto).
Un altro problema e quello di cancellare e scrivere record in una tabella
tramite codice vb.
es
 Ho una variabile di tipo string:
dim pro as string
pro="toni"
....
...
Ti ringrazio per la cortese attenzione
Luca


Per il primo quesito; se non ti serve il valore restituito dalla funzione
shell puoi modificare l'istruzione in:
'---------------------
Shell "C:\Programmi\Microsoft Office\Office\Winword.exe C:\pre.doc"
'---------------------
Per il secondo quesito; oltre a spiegarti meglio su cosa vuoi fare e come
provo ad abbozzare qualche suggerimento: per cancellare dei record utilizzi
l'istruzione sql "delete" (vedi help).
es.
'---------------------
docmd.runsql "delete * from TabellaAnagrafica where cognome='MAZZA'"
'---------------------
Questa istruzione cancella ogni record, nella tabella chiamata
'TabellaAnagrafica', che ha il cognome uguale al testo 'MAZZA'
Per inserire dei record utilizzi l'istruzione sql "insert into" (vedi help).
es.
'---------------------
docmd.runsql "INSERT INTO Impiegati (Nome, Cognome, Posizione) VALUES
('Marco', 'Fazio', 'In addestramento');"
'---------------------
Questa istruzione inserisce un nuovo record nella tabella impiegati, con i
valori indicati da VALUES nei campi indicati tra le parentesi (prima di
VALUES)...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Report e Stampanti

Domanda hai Guru... Probabilmente scontata, ma non riesco a trovarla..
Mi capita spesso di fare un report che funziona correttamente.
Quando trasferisco il Db dal mio cliente, che ovviamente ha un altra 
stampante, durante il preview dei documenti appare un messaggio del tipo
"il documento è stato impostato con una stampante......"
Dandogli l'Ok tutto va apposto, ma non riesco a capire perchè richiede 
la mia stampante...
Che devo fare ???
Grazie a tutti
Enrico Pietrobon

Enrico Pietrobon ha scritto:

Scusate.......
Ma la mia ingoranza a volte stupisce anche me stesso...
Bastava mettere nelle impostazioni di stampa la stampante predefinita...
Scusate nuovamente..
Enrico Pietrobon
Newsgroup: it.comp.appl.access
Titolo: Grafico nella maschera

Un saluto a tutto il NG.
In un progetto adp ho una maschera nella quale vengono chieste una data 
di inizio ed una data finale relative ad una interrogazione. Premendo un 
bottone nella maschera vorrei che venisse aggiornato un grafico che usa 
come campi e valori i risultati dell'interrogazione.
Suggerimenti?
grazie
-- 
Claudio(BS)
L'unico problema per l'uomo non sta nella difficoltà delle sue imprese
ne' nella quantità di denaro necessario per compierle, ma nella durata
della sua esistenza. (Claudio 14.02.2004)
NB. Protezione antispam
Per rispondere aggiungere claudio

 grazie
Grafico basato su query parametrica... dove i parametri della stessa
saranno la tua_data_inizio e la tua_data_fine
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
------------------------------
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: sql: campi diversi stessa origine

salve a tutti.. volevo chiedere un'aiuto su un istruzione sql..
allora ho una tabella1 con
campi id|citta1|citta2|
id:contatore,
citta1:numerico
citta2:numerico
e un altra tabella2 con |id|citta|
id:contatore
citta:stringa
come si intuisce le tabelle sono collegate per 
tabella2.id
 -
tabella1.citta1 - tabella1citta2
mi serve un istruzione sql che mi visualizzi:
id:numerico
cittaResidenza:testo(preso da tabella2)
cittaNascita:testo(preso da tabella2)
ho provato cosi
select 
tabella1.id
, tabella2.citta as CittaResidenza , tabella2.citta
as CittaNascita
from tabella1, tabella2 where
tabella1.citta1=
tabella2.id
  AND  tabella1.citta2=
tabella2.id
solo che mi da una query vuota..
ovviamente se utilizzo un altra tabella con un altro nome con le stesse
città funziona
spero di essermi spiegato bene..
grazie in anticipo

HO risolto,
grazie :)
a chi intressa basta fare:
select 
tabella1.id
, ren1.citta as CittaResidenza , ren2.citta
as CittaNascita
from tabella1, tabella2 as ren1, tabella2 as ren2 where
tabella1.citta1=
ren1.id
  AND  tabella1.citta2=
ren2.id
dopo un po ci sono arrivato :P
ciao
Newsgroup: it.comp.appl.access
Titolo: effetto pop-up.....

Ciao a tutti, il mio problema č questo:
 su di una maschera, clikkando sul cod_cliente, mi si apre la relativa
maschera al relativo record, e fin qui tutto ok.
All'inizio, avevo impostato le proprieta' della maschera su pop-up, ma mi
comportava qualche problema funzionale.
Come posso ottenere le stesse caratteristiche??
Cioč all'apertura si dovrebbe rimpicciolire, stare al centro dello schermo,e
poi ritornare grande.
Ho provato a fare cio' manualmente, con il pulsante ripristina, per vedere
cosa succede.
L'effetto  č + o - quello voluto, ma ho notato che anche la maschera in
sottofondo č di aspetto ridimensionata
e l'effetto estetico non č certo il massimo!!
Non so se mi sono spiegato, spero di sě......
Fabio

 ha scritto nel messaggio
news:a1fd7q$197a3$1...@news02.it.net...

con il metodo docmd.movesize puoi posizionare e dimensionare un form, ma non
hai l'effetto popup di rimanenre sempre in primo piano.
Scusa, ma che problemi hai con i form popup?
ciao.

........non,nessun problema particolare, era solo una questione mia
personale, di manie estetiche.....
......grazie........

Newsgroup: it.comp.appl.access
Titolo: Regole del NG

Scusami Roberto,
non sono ancora pratico sull'uso del News nell'inviarti la richiesta ho
cliccato sul tasto sbagliato.
Per la cronoca io uso Outlook Express e invece di cliccare su rispondi a
Newsgrup ho cliccato rispondi al Mittente.
Comunque grazie ancora per l'aiuto dato

 ha scritto nel messaggio
news:qLeC8.28844$5k4.6...@twister2.libero.it...

Errare č umano. :-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: nome colonna casella combinata

volevo sapere se � possibile ricavare da vba il numero di colonne ed il
nome dell'intestazione 
se ad esempio io ho 3 colonne la prima si chiama id, la seconda si chiama
cognome, la terza si chiama nome
come posso ottenere il nome di ogni singola colonna ed il numero?
grazie anticipatamente per le eventuali risposte
ciao a titti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 volevo sapere se è possibile ricavare da vba il numero di colonne ed il

il nome lo puoi ottenere con
me.miacaselladitesto1 = nomecasellacombinata.column(0)  per la prima
me.miacaselladitesto2 = nomecasellacombinata.column(1) per la seconda
me.miacaselladitesto3 = nomecasellacombinata.column(2) per la terza
Giuseppe.

 > volevo sapere se � possibile ricavare da vba il numero di colonne ed il


anzitutto grazie per la risposta
in primo luogo devo precisare che il numero di colonne si trova con la
funzione "ColumnCount"
quindi questo problema l'ho gi� risolto (non riuscivo a trovarlo nell'help
in linea)
quello che tu mi scrivi: "nomecasellacombinata.column(0)" mi restituisce
il valore della colonna, non il nome....
giusto?
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 ciao
Giusto ma non proprio... potevi leggere almeno la guida.
Leggi prima di tutto se è abilitata l'intestazione con la proprietà
ColumnHeads vedrai che usando la proprietà Column
ottieni l'intestazione.
Ti posto un banalissimo esempio, vedi cosa succede nella Finestra
Immediata...!
Dim x As Integer
If Me!nomeListBox.ColumnHeads=true
   For X=0 to Me!nomeListBox.Columncount-1
       Debug.print "Intestazione Colonna (" & X & ") = " &  Me!
nomeListBox.Column(X, 0)
   Next
End If
Saluti
@Alex

 ...
Per il numero delle colonne basta:
Me!TuaCombo.ColumnCount
Per i nomi dei campi bisogna un po' pi� codice. P.e
Dim rs As DAO.Recordset
Dim i As Long
Set rs = Currentdb.OpenRecordset(Me!TuaCombo.RowSource)
For i = 1 To Me!TuaCombo.ColumnCount
    ' mostrare i nomi nella finestra debug
    Debug.Print "Colonna " & i & " si chiama " & rs(i - 1).Name
Next i
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Access FAQ:
www.donkarl.com/it
E se usassimo il Recordset di Combo/ListBox direttamente...?
Dim fld As DAO.Field
For Each fld in Me!NomeCombo/List.Recordset.fields
   Debug.Print fld.Name
Next
Pare funzioni abbastanza bene...
;-)
@Alex
Newsgroup: it.comp.appl.access
Titolo: Sintassi per casella combinata

Buongiorno,
Ho la necessitą di aggiornare il valore di un controllo di una maschera al
valore della colonna x di una casella combinata, il tutto da un' altra
maschera, naturalmente la maschera č aperta.
Ho utilizzato la seguente sintassi ma non funge....
forms![nomeform]![nomecontrollo]=forms![nomeform]![casellacombinata1.column(
2)]
Mi aiutate?
Alfio

 Alfio
Se la prima maschera si chiama Maschera1 ed il controllo da aggiornare si
chiama Ctrl1, se la seconda maschera si chiama Maschera2 e la casella
combinata si chiama CasellaCombinata allora sull'evento AfterUpdate della
CasellaCombinata inserisci:
Forms.maschera1.Ctrl1 = Forms.maschera2.CasellaCombinata.Column(2)
Se entrambe le maschere sono aperte, se hai definito bene le colonne della
casella combinata, una volta selezionato un valore dalla casella combinata
vedrai apparire il dato della relativa colonna (in questo caso la terza)
nel controllo della prima maschera.
Ciao,
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Grazie per la risposta, ma il problema è che la casella combinata della 
maschera ha già un valore selezionato.
Ripongo la questione perchè molto probabilmente mi sono espresso male.
Dunque, apro la form1, seleziono il valore che mi interessa dalla casella 
combinata, sull'evento dopo aggiornamento, mi aggiorna dei controlli in base 
ai vari parametri delle colonne della casella combinata. Mi accorgo che 
alcuni valori sono errati o da modificare, clicco sul pulsante modifica 
dati, mi apre la form2, il quale utilizzando il valore presente nell casella 
combinata della form1, mi seleziona il record. A questo punto, una volta 
modificati i valori vorrei che i contrrolli della form1, che erano stati 
popolati dalla prima operazione si ripopolassero con i nuovi dati 
modificati. Ecco perchè vorrei che una volta apportate le modifiche dalla 
form2, sull'evento di chiusura mi andasse a riaggiornare i dati della form1.
Quello che volevo utilizzare era il metodo che avevo proposto prima.....ma 
se hai un qualche consiglio più funzionale sarà il benvenuto.
Spero di essere stato spiegato...... :))
Alfio
Newsgroup: it.comp.appl.access
Titolo: Modulo per trasformare da Ore+Minuti in secondi

A97.
Qualquno puņ aiutarmi. Grazie...Bruno
Non riesco a far funzionare questa funzione, in quanto conosco poco o nulla
il VBA.
Vorrei poter trasformare le ore e i minuti (es. 10.25) in secondi.
'Questa Funzione converte le ore pił i minuti in secondi nel formato
numerico
Public Function ConvInSec(Ore)
    Dim Secondi As Integer
    Dim Sec As Integer
    Secondi = Sec
    Sec = Hour((Ore) * 60) + Minute((Ore) * 60)
End Function
________
In realtą, l'ideale sarebbe poter effettuare la trasformazione in secondi e
in ore, direttamente dal seguente modulo che ritoccandolo sono riuscito a
far restituire le ore anche in negativo, manca solo il passaggio per
trasformare le ore (es. 10.20) in secondi per poi continuare con gli altri
calcoli.
'Questa Funzione converte i secondi nel formato hh.mm.ss
Public Function ConvertiBis(numSecondi As Long) As String
    Dim Ore, Minuti, Secondi As Byte
    Dim strOre, strMinuti, strSecondi As String
    Dim Orario As String
    Ore = 0
    Minuti = 0
    Secondi = 0
    strOre = "00"
    strMinuti = "00"
    strSecondi = "00"
    'If numSecondi > 86400 Then
        'Converti = "pił di un giorno"
        'Exit Function
    'End If
    If numSecondi > 3599 Then
        Ore = numSecondi \ 3600
        strOre = Format(Ore, "00")
        numSecondi = numSecondi - (3600 * Ore)
    ElseIf numSecondi < 3599 Then
        Ore = numSecondi \ 3600
        strOre = Format(Ore, "00")
        numSecondi = numSecondi - (3600 * Ore)
    End If
    If numSecondi > 59 Then
        Minuti = numSecondi \ 60
        strMinuti = Format(Minuti, "00")
        numSecondi = numSecondi - (60 * Minuti)
    ElseIf numSecondi < 59 Then
        Minuti = numSecondi \ 60
        strMinuti = Abs(Format(Minuti, "00"))
        numSecondi = numSecondi - (60 * Minuti)
    End If
    If numSecondi > 0 Then
        Secondi = numSecondi
        strSecondi = Format(Secondi, "00")
    ElseIf numSecondi < 0 Then
        Secondi = numSecondi
        strSecondi = Abs(Format(Secondi, "00"))
    End If
    ConvertiBis = strOre & "." & strMinuti '& "." & strSecondi
End Function
---------
Ancora grazie da Bruno.

 End Function
[..CUT]
Questa dovrebbe funzionare. Al posto della prima funzione che NON puň andare
perchč:
1) Non č valorizzata mai
2) Il calcolo č errato
Public Function ConvInSec(Ore) As Long
    ConvInSec = (Hour(Ore) * 60 * 60) + (Minute(Ore) * 60)
End Function
La seconda funzione (ConvertiBis) mi sembra funzionare correttamente.
-- 
web: 
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi

 Ciao .. Bruno
Di nulla, l'avevo già fatta simile.
Tanti auguri anche a te.
Ciao,
Massimo
