mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Codice Fiscale

Dopo una lunga assenza torno con il programma del Macellaio. Mi sono
state richieste alcune aggiunte, una delle quali è la verifica del CF.
Nulla di male: un giro sul sitocomune e trovo una "funzione" adatta
(portate pazienza, non conosco tutto il gergo). Ho creato un modulo,
copiato ed incollato la funzione, salvato il modulo. Ora sull'evento
"dopo aggiornamento" della casella di inserimento del CF avrei voluto
far eseguire la funzione. La domanda è semplice. Da VB come si esegue
una funzione? La funzione restituisce il valore Falso se il CF nonè
corretto, ma una istruzione tipo (per assurdo) If CheckCodFiscale =
False ... non mi funge!


Non ricordo la funzione sul sitoocomune, ma sicuramente gli devi passare 
l'argomento del valore del controllo da verificare
quindi sarà, se il tuo controllo si chiama "codicefiscale" - scusami 
l'eccessiva fantasia per la nomenclatura -
If CheckCodFiscale(ME!codicefiscale) = False then
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa
 

> If CheckCodFiscale(ME!codicefiscale) = False then
Verifico... niente. Mi restituisce "Errore di compilazione: Prevista
variabile o routine e non modulo".

 variabile o routine e non modulo".
Ummmm... devo aver combinato qualcosa di Ab-Normal. Resta il fatto che
adesso quantomeno non mi restituisce più errori, ma d'altro canto non
effettua la verifica e nel ciclo di istruzione if... then... else non
mi visualizza i messaggi di "CF non corretto" quando CheckCodFiscale
(me!codicefiscale) = False e "CF corretto" quando è True.

Fatto e risolto. C'erano alcuni problemi di sequenza di istruzioni
if...
La verifica viene effettuata correttamente.
E questo è risolto.

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

vorrei impostare una dimensione fissa al corpo di un report
indipendentemente dal numero dei record visibili nello stesso!
Parlo di una fattura, a fatica sono riuscito ad impaginarla in modo
decoroso, e adesso vorrei che la base di questa, con tutti i suoi campi
dinamici, fosse sempre nella stessa posizione!
Grazie


vai nella ez report di 
www.sitocomune.com
"Inserire lo stesso numero di righe" o giů di lě č il titolo
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: codice da eseguire su tasto invio

Ho la necessita di far eseguire il codice sotto riportato dopo che ho
schiacciato il tasto invio essendo attivo il controllo "Elenco173" in
questione.
Ho provato a posizionarlo "Su INVIO" ma ho scoperto non essere quello che fa
per me.
Ringrazio tutti fin d'ora
Saluti Bix
Dim frmName, stCriteria As String
frmName = "Anagrafica DIPtg"
stCriteria = "[idAnagraficaDIPtg]=" & [Forms]![Dipendenti]![Elenco173]
DoCmd.OpenForm frmName, acNormal, , stCriteria
[Forms]![Anagrafica DIPtg].Caption = StrChk

 per me.
Prova ad inserire il tuo codice nell'evento "Su Clic"
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 ha scritto nel messaggio
news:8uepuc$ol2$1...@fe1.cs.interbusiness.it...


per me.
Su invio non ha niente a che fare con il tasto invio.
Corrisponde a on enter. W le traduzioni.
--
Lorenzo Coronati
--
<<P.S. Mi scuso con il NG per la polemica, ma proprio 
non digerisco questo atteggiamento da professorini di 
provincia, che alternano risposte saccenti date con 
sufficienza a prese in giro da terza elementare.>>
(Giovanni D'Orazio, 1/11/2000)
--

 codice in questione
Allora i casi possono essere 2:
1°) hai un criterio che riconosce il record e che puoi implementare a
codice: in questo caso inserisci il codice sull'evento su corrente della
maschera, cominciando appunto a controllare che se sei sul record desiderato
esegui il resto della routine, altrimenti esci senza fare altro;
2°) il riconoscimento varia al variare di situazioni non parametrizzabili:
in questo caso inserirei un pulsante, con ordine di spostamento 0 in modo da
ricevere immediatamente il focus, e nell'evento su clic inserirei il tuo
codice da eseguire.
Comunque sei pregato di rispondere dopo il quoting, cioè dopo i messaggi
precedenti, così come ho fatto io (compresa la correzione della posizione
del tuo precedente).
Il motivo? Migliora la leggibilità di un thread, specie se lungo e se
sviluppato in + giorni.


 [Forms]![Anagrafica DIPtg].Caption = StrChk
Nell'evento su Tasto giů del controllo Elenco173 inserisci il riconoscimento
del codice del tasto premuto, prendendo in considerazione il tuo esempio:
private Sub Elenco173_KeyDown(KeyCode As Integer, Shift As Integer)
 Dim frmName, stCriteria As String
 frmName = "Anagrafica DIPtg"
 If KeyCode = 13 then ' *** riconoscimento tasto invio ***
    stCriteria = "[idAnagraficaDIPtg]=" & [Forms]![Dipendenti]![Elenco173]
    DoCmd.OpenForm frmName, acNormal, , stCriteria
    [Forms]![Anagrafica DIPtg].Caption = StrChk
 end if
end sub
--
RoDAgo
Newsgroup: it.comp.appl.access
Titolo: Problema su totali

Ho creato una maschera che contiene tutta una serie di record. Poi ho creato
due queri che mi fanno i totali dei campi DARE e AVERE presenti nella
tabella che è anche origine dati della sudetta maschera, e ancora una query
che faccia la differenza tra il totale dare e quello avere. Poi ho aggiunto
alla maschera prima maschera una sottomaschera che come origine dati ha
l'ultima query, quella dei totali.
Vorrei sapere se esiste la possibilità far in modo che quando vario un
valore nella maschera principale, venga aggiornata automaticamente anche la
sottomashera.
Grazie.
Marco

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

 ha scritto nel messaggio
news:9TTt9.71499$RO.18...@twister1.libero.it...

Ho provato a fare quello che mi hai suggerito nella prima parte del tuo
messaggio (non conoscevo questa funzione), e ho inserito sul controllo la
seguente funzione:
=DSum([SALDO_DARE_EURO   ]-[SALDO_AVERE_EURO  ];"BILANCIO")
Ma quando vado a visualizzare la maschera sul controllo mi compare #Errore
Il controllo l'ho inserito nel Pièdi pagina Maschera.
Vorrei sapere se ho sbagliato qualcosa.
Ti ringrazio in anticipo Marco

 ha scritto nel messaggio
news:ap94fq$mts$1...@lacerta.tiscalinet.it...

Tutto dipende da cosa sono [SALDO_DARE_EURO   ], [SALDO_AVERE_EURO  ] e
"BILANCIO": tu lo sai perchè hai davanti il database, io no.
Comunque io avevo commesso un errore formale nello scriverti la DSum nel mio
messaggio precedente, prova con:
=DSum("[SALDO_DARE_EURO]-[SALDO_AVERE_EURO]";"BILANCIO")
--

Newsgroup: it.comp.appl.access
Titolo: lentezza front end

bunas dias a tutti
ho un problema di lentezza di una delle mie applicazioni in rete.
ve spiego:
ho un database front end che rilascia numerini e altre piccole
amenità...per ora il db è quasi vuoto. ciò nonostante ogni maschera
dei front end ci mette sette ore per aprirsi...il db collega le
tabelle dinamicamente le tabelle all'apertura dell'applicazione dopo
di che io pensavo le cose accelereranno...invece una volta dentro
l'apertura delle maschere è veloce come le azioni di un
bradipo...anziano!!!
c'aggia fà???
perchè è così lento? pensavo fosse l'interazione server nt4 e client w
2000 ma ho provato anche con client nt4 e sempre lento è.
qualcuno ha avuto simili esperienze negative?
non è la prima volta che faccio un db front end..anzi a dirla tutta
negli altri casi ho  dovuto porre il le tabelle su client (ai tempi
non avevo server di sorta) ed era applicazioni lippa rispetto a questa
lumaca claudicante e canuta...caspiterolla...se trovo la solution ve
la comunico suuuuuuuubito.
ciao
thanks
david

 qualcuno ha avuto simili esperienze negative?
Hai dato pochi dettagli sull'applicazione per dare una risposta plausibile
ai tuoi problemi :-)
Una domanda: se tieni aperta una mascherina "associata" e poi apri le altre,
i tempi di risposta migliorano?
Ciao, Simone

 ha scritto nel messaggio
news:3b99cbc7...@News.CIS.DFN.DE...

Non c'è nessuna soluzione! Ahimè con DAO  e maschere associate.
Ciao

 Non c'č nessuna soluzione! Ahimč con DAO  e maschere associate.
In questi casi č sempre meglio premettere un "a mio parere".
Se qualcuno ti dice che si trova bene con le tabelle collegate, perchč
dovrebbe mentire?
Ciao, Simone

purtroppo nulla...nessun miglioramento...tra l'altro ho notato che la
lentezza č considerevole anche quando apro e chiudo in visualizzazione
struttura ste cavoline di maschere.
grazie
david


 struttura ste cavoline di maschere.
Deve dipendere dal fatto che non scrivi DOPO il quoting!!!
Antonio


wrote:

mi vuoi far sentire ignorante? o stuzzicare la mia curiosità?
bè hai centrato entrambe le cose....what's quoting????
se me lo spieghi correggo quest'errore madornale!!!
dico davvero.
grazie
david

 se me lo spieghi correggo quest'errore madornale!!!
O anche inframmezzando va bene, così...
Antonio


bè il problema non l'ho risolto ma ti ringrazio lo stesso per
l'interessamento.
david

 >> struttura ste cavoline di maschere.
Cosa di per se assurda ... a meno che il file che contiene maschere e codice
sia "sporco"?
Voglio dire, hai provato a creare un DB nuovo e reimportare tutti gli
oggetti?
Ciao, Simone
Newsgroup: it.comp.appl.access
Titolo: Rotazione Immagine

Nel report del database ho inserito la cornice e il controllo immagine per
visualizzare le immagini inserite in precedenza nella maschera di
inserimento dati.
L'immagine che verrà visualizzata nel report, è possibile ruotarla di 90° ?

 ha scritto nel messaggio 
news:E7q9e.47763$Of5....@nntpserver.swip.net...

una occhiatina a 
www.lebans.com
Ciao, Carlo 

 L'immagine che verrą visualizzata nel report, č possibile ruotarla di 90°
?
Puoi ruotare un immagine usando i controlli ActiveX Kodak.
Per maggiori ragguagli puoi andare sul Sito Comune (link qui sotto) e nella
Sezione General leggi la mia FAQ intitolata "6.115 Come č possibile
scannerizzare, visualizzare, modificare, stampare e salvare files immagine
usando gli ActiveX Kodak?".
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: CommonDialog

Salve a tutti!
ma non esiste negli strumenti, in fase di progettazione maschere, l'oggetto 
CommonDialog (devo sfogliare le directory) già pronto o bisogna per forza 
scrivere il codice o copiarlo da qualche applicazione già esistente?
Grazie anticipatamente.
Marco. 

Mark ha scritto:

Serve un pò di codice se usi una versione di Access dal 2002 in
avanti.
Vedi l'Help l'oggetto FileDialog.
Se invece hai una versione precedente serve molto più codice....!
Vai sul SitoComune alla sezione moduli
oppure vedi questo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=27
@Alex

Newsgroup: it.comp.appl.access
Titolo: Rimozione spazi davanti a carattere

Buongiorno ng, dovrei rimuovere degli spazi davanti a del testo.
Ho una tabella tabella1 che contiene un campo descrizione.
In descrizione. il testo è preceduto da 1 o 2 o 3 o 4 spazi, io vorrei
eliminarli.
Manualmente non è possibile, perche la tabella contiene 5000 record con
testo completamente diverso.
Io pensavo di utilizzare un cilco for , ma non so come dirgli "se il primo
carattere è = a spazio, rimuovilo)
Come posso fare?
Grazie Nadir
--------------------------------
Inviato via 
http://usenet.libero.it

"Nao" <naon...@iol.itOOO> ha scritto nel messaggio
news:212Z159Z223Z113Y...@usenet.libero.it...

usa la funzione Ltrim (vedi help)

 "Nao" <naon...@iol.itOOO> ha scritto nel messaggio
Siete cuGGini?!?!
Antonio

 ha scritto nel messaggio
news:tRzeb.621$e6.1...@twister2.libero.it...

chi lo sa..
forse si ....
mah chiediamo a morpheus che sa sempre tutto :-)
Newsgroup: it.comp.appl.access
Titolo: DSum e criterio Data

Buonasera a tutto il Ng.
Devo utilizzare la funzione DSum per sommare i record, come criterio
uso la data e la causale.
Questo è il codice che sto utilizzando:
Private Sub Comando111_Click()
Dim rstNewData As DAO.Recordset
Dim rstData As String
Dim rtot As Variant
Set rstNewData = CurrentDb.OpenRecordset("Tbl_Movimenti",
dbOpenDynaset)
    rstNewData.FindFirst "[Data]=#" & Format(Me.TxtData.Value, "mm/dd/
yyyy") & "#"
    If rstNewData.NoMatch Then
        MsgBox "Data inesistente"
    Else
        rstNewData.MovePrevious
            If rstNewData.BOF Then
                Exit Sub
            End If
        rstData = "#" & Format(rstNewData![Data], "mm/dd/yyyy") & "#"
'giusto
        rtot = DSum("[IMporto]", "Tbl_Movimenti", "[Data]=" & rstData
And [IDCausale]<  9")
        Debug.Print rtot
    End If
End Sub
Dunque sto diventando pazzo perchè se uso solo il criterio data mi
restituisce la somma se invece aggancio l'operatore And mi
restittuisce errore (in questo caso: Tipo non corrispondente).
Insomma nn riesco a capire come unire i due criteri.
Grazie x l'aiuto
Massimo

 Massimo
Le condizioni WHERE della DSum vanno tra " ".
--
sv
-- 
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: tabelle collegate

Ho due tabelle. Una anagrafica del paziente e una coi dati dell'intervento
eseguito. Relazione di uno a molti (cioè per ogni paziente la possibilità di
inserire più interventi).
Vorrei creare un pulsante che mi consentisse, dalla maschera anagrafica, di
aprire una maschera collegata ai dati intervento.
In pratica questo pulsante deve permettermi di creare un nuovo record nella
tabella interventi che però sia univocamente collegato all' Id del paziente
che è stato operato.
In più dovrei essere in grado , sempre dalla maschera anagrafica, di aprire
tutti i record relativi agli interventi di quel paziente...
E'probabilmente una stupidaggine ma ci peno da qualche settimana. Qualcuno
può aiutarmi?
Grazie (comunque)

 ha scritto nel messaggio
news:b3qdjf$ib$1...@lacerta.tiscalinet.it...

C'è un motivo per cui non usi la tecnica maschera/sottomaschera.
Io creerei una maschera principale con visualizzazione a Maschera singola
che abbia come origine record la tabella anagrafica dei pazienti; in questa
maschera inserirei anche una sottomaschera che abbia visualizzazione a
Maschere continue e che abbia come origine record la tabella interventi.
Comunque puoi anche crearti due maschere distinte, però devi poi
programmarti tutta una procedura per tenerla sincronizzate tra di loro.
Pensi cge valga la pena, quando con una maschera/sottomaschera ottieni tutto
"gratuitamente"?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: problema gestione contatti

Ciao a tutti, ho un problema da sottoporvi. Vi ringrazio fin d'ora per
l'eventuale risposta.
Devo creare una sorta di programmino che mi gestisce contatti. Per quanto
riguarda la creazione della tabella e maschera non c'è problema. Il problema
che ho è il seguente:
devo dare la possibilità di effettuare una ricerca dei contatti attraverso
parametri incrociati. Per farmi capire meglio porto un esempio:
Tabella: NOME, COGNOME, CITTA, CAP, .....
Devo poter cercare le persone che si chiamino Alberto e visualizzare dove
abitano.
Tutto questo metodo di ricerca attraverso un'interfaccia grafica. Chiedo se
qualcuno gentilmente può darmi una mano. Grazie Alberto

 ha scritto nel messaggio
news:SCu9f.40020$Pe2.7...@twister2.libero.it...

Creati una query di selezione parametrica.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: traferimento dati

Sono sempre io, c'e' un istruzione in Vb per lo spostamento totale ti un
record da una tabella all'altra (ovviamente con gli stessi campi) senza
dover fare tutte le 30 righe ( rst.campo1 = rec.campo1 ecc. ecc.)
Grazie Enrico

 ha scritto nel messaggio
news:8pqt0p$ko4$1...@pegasus.tiscalinet.it...

Con una query di accodamento?
Tipo:
DoCmd.RunSql "INSERT INTO TabellaB ( campo1 ) SELECT TabellaA.campo1 FROM
TabellaA;"
Ciao.

dover fare tutte le 30 righe ( rst.campo1 = rec.campo1 ecc. ecc.)
oltre alla query sql, come diceva sergio, se i campi si chiamano nello
stesso modo e sono dello stesso tipo puoi fare un ciclo for..next
sulla collezione fields di un recordset:
dim rstO as recordset
dim rstB as recordset
dim fld as field
set rstO = currentdb.openrecordset("TabellaOrigine")
set rstB = currentdb.openrecordset("TabellaBersaglio")
[ti posizioni sul record che ti interessa]
rstB.addnew
	for each fld in rstB.fields
		rstB(
fld.name
) = rstO(
fld.name
)
	next fld
rst.update
--
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: ?: Additem aggiungere una riga

Una cavolata, come faccio ad inserire + colonne con lo stesso comando in una
listbox
Se digito cosě mi riempe solo la prima colonna della prima riga.
   Listbox.AddItem "PROVA"
Se digito cosě prende il secondo valore come indice di inserimento invece
che come valore di una seconda colonna
   Listbox.AddItem "PROVA", "PROVA2"
come risolvo?
<***********************************>
Vigna Federico...CED L'Abbondanza
Email: 
in...@labbondanza.it
Http: 
www.labbondanza.it
<***********************************>

 ha scritto nel messaggio
news:8pknm3$d6n$1...@fe1.cs.interbusiness.it...
| Una cavolata, come faccio ad inserire + colonne con lo stesso comando in
una
| listbox
|
|
| Se digito così mi riempe solo la prima colonna della prima riga.
|    Listbox.AddItem "PROVA"
|
| Se digito così prende il secondo valore come indice di inserimento invece


 come risolvo?
Ciao Bova,
stai attento, hai invito la richiesta sia su ICAA che ICLVB, creando un po' di
confusione.
Il problema sta nel fatto che in Access il metodo Additem per le listbox non
esiste, inoltre, al contrario di VB, in access tale controllo piu' essere
multicolonna.
In definitiva, essendo molto diversi tra loro, ti consiglio di riformulare la
richiesta indirizzandola al NG di competenza.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: re i recordset sib o gt (sono disperato)

Ciao, scusa la mia insistenza ma non capisco niente!!
Per prima cosa, non posso trovare in commercio un libro valido su cui poter
studiare gli oggetti recordset, possibilmente con esempi?
Per quanto riguarda il solito codice con le modifiche che mi hai  suggerito
mi sembra di aver risolto il problema tranne nella fase finale cioè quella
in cui devo aumentare di una unità il campo della tabella che sta alla base
del recordset, infatti il compilatore mi visualizza il seguente errore:
metodo update o cancelupdate senza addnew o edit.
ho provato a risolvere il problema così:
Dim wintras1 As DAO.Database
Dim numeratore As DAO.Recordset
Dim var As Integer
Set wintras1 = CurrentDb
Set numeratore = wintras1.OpenRecordset("SELECT ANAG_NUME.NUME_TRAS FROM
ANAG_NUME WHERE (((ANAG_NUME.ANNO)=" & [Forms]![maschera1]![ANNO] & "));")
var = numeratore!NUME_TRAS
numeratore.Edit    =====================> parte di codice che ho aggiunto
numeratore!NUME_TRAS = var + 1
con il risultato che non viene visualizzato nessun errore, però aprendo la
tabella anag_nume nel campo nume_tras trovo ancora il mio valore iniziale.
Ciao e grazie mille.

tabella anag_nume nel campo nume_tras trovo ancora il mio valore iniziale.
hai messo, dopo, numeratore.update ?
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:pbUo6.8922$yl2.1...@news1.tin.it...

prova con:
Set numeratore = wintras1.OpenRecordset("SELECT NUME_TRAS FROM
ANAG_NUME WHERE ANNO =  " & [Forms]![maschera1]![ANNO])
Newsgroup: it.comp.appl.access
Titolo: Funzione Inserisci oggetto - (Immagine bitmap)

In una maschera ho creato una "cornice oggetto associato" collegato a un
campo di una tabella.
Ho la necessita di far partire in automatico una routine che mi permette di
inserire oggetto --> immagine bitmap.
questo mi darà la possibilità di visualizzare la barra degli strumenti per
poter disegnare all'interno.
Grazie Zax

 ha scritto nel messaggio
news:429acf1d$0$15898$5fc...@news.tiscali.it...

Nella tabella invece del campo OLE contenente l'immagine bitmap, inseriasci
un normale campo di tipo Testo nel quale memorizzerai il path completo del
file immagine che lascerai esterna al database, diminuendi di molto la
dimensione del tuo database.
Nella maschera, invece che una "cornice oggetto associato" inserisci un
controllo Immagine e per visualizzare il contenuto del file immagine in quel
controllo imposta la sua proprietà Picture con il path contebuto nel campo
testo di cui sopra.
Per maggiori dettagli vai sul Sito Comune (link qui sotto) e nella Seziobe
General leggi le seguenti FAQ:
1) 6.13 Come implementare correttamente un archivio di immagini di Stefano
Bettini
2) 6.75 Implementare un archivio di immagini di Silvio Savoldi.
3) 6.96 Archiviazione immagini di Franco Cappellaro
4) 6.125 Applicativo per la gestione delle immagini di Alessandro Baraldi
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Casella Dialogo

Sono alle prese con una finestra di dialogo,ma non riesco a farla
funzionare!
mi da un errore di compilazione [impossibile trovare il metodo o il membro
dei dati] in elenco0
questo è il listato. Potete darmi un aiuto? Grazie.
Private Sub Elenco0_AfterUpdate()
MostraRecord.Enabled = True
 End Sub
Private Sub MostraRecord_Click()
Dim rst As Recordset
Set rst = Forms!VIT_VIN.RecordsetClone
rst.FindFirst "Nome = " & Elenco0
Forms!VIT_VIN.Bookmark = rst.Bookmark
DoCmd.Close "VaiADialogoRecord"
End Sub

 End Sub
Se stai utilizzando A2000 č normale, in quanto stai utilizzando le librerye DAO
che normalmente non sono caricate.
Vai in Riferimenti e inseriscile, oppure fai riferimento esplicito quando
dimensioni una variabile:
Dim rst as DAO.Recordset
Ovviamente č meglio inserire la Lib nei Riferimenti....
@Alex
-- 
Posted from  [62.98.12.40] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:1237eb8ee3346bff9a...@mygate.mailgate.org...

Innanzituttt Ti ringrazio per l'attenzione e l'aiuto.
In effetti sto utilizzando access 2000 con codici che funzionavano benissimo
con access 97.
Ho fatto come dici ,ma ottengo sempre un
"Errore di compilazione:Tipo definito dall'utente non definito"

 Scusa Alex se mi infilo....
Hai messo la lib DAO prima di quella ADO?
Paolo

 "Errore di compilazione:Tipo definito dall'utente non definito"
Mi sono scordato di precisare che se utilizzi DAO, come stai facendo puoi
evitare di inserire ADO, o, in ogni caso deve essere dopo di DAO...!
Io solitamente escluto ADO.
@Alex
-- 
Posted from  [62.98.108.160] 


 Paolo
Non serve se usi il riferimento esplicito, quello che dici è vero se fai così
Dim rs as Recordset
ma se fai così no:
Dim rs as DAO.Recordset
Ciao Paolo.
@Alex
-- 
Posted from  [146.133.1.30] 


Newsgroup: it.comp.appl.access
Titolo: vista sql - recordset NON aggiornabile

salve!
 
ho un database sql server con alcune viste 
con  sql management studio aprendo le viste riesco a modificare i dati dei record.
 
se creo un collegamento in MsAccess a queste viste NON riesco a modificare i dati perche' recordset NON modificabile.
 
Cosa sbaglio?
devo creare una query pass-through?
 
Grazie
 
PFMarro

voglio ancora precisare che la vista o la quesryPass
 
SELECT     TOP (100) PERCENT CASE WHEN ValidatoFlag = 1 THEN 'X' ELSE '-' END AS ccValidato, dbo.MiaTabella.*
FROM         dbo.MiaTabella
ORDER BY DInizio_mp DESC
 
cioe' se aggiungo un campo calcolato NON mi permette di modificare i record.
 
Come devo fare?
 
Grazie
Newsgroup: it.comp.appl.access
Titolo: Copia Record da una maschera con sottomaschera !!

Salve a tutti voi cervelloni, ma non riesco proprio a risolvere questo mio
problemino:
Ho una maschera con all'interno due sottomaschere ed ho la necessita di
copiare tutto il contenuto per poi modificarlo in parte, questo per avere
sempre traccia di come era prima (versione 1, Versione 2 .......).
Ho provato ad aggiungere il COMANDO copia record, ma lui copia solo il
record relativo alla maschera e non quello delle sottomaschere, quindi devo
tornare nelle maschera di origine copiare manualmente gli altri record
(Ctrl+C) e incollarli nella nuova maschera.
Grazie
Cosos




Vedi "Copia incolla con pulsante " del 5/5/01
Penso che potresti risolvere il tuo problema.
Newsgroup: it.comp.appl.access
Titolo: a voi funziona questo codice

sbaglio o
If KeyCode = 33  Then
questa istruzione non funziona ?
Codice se funziona a voi:
1-
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 33  Then beep
End Sub
non mi funziona
-------------------
2-
allora tolgo il sonoro e metto un pulsante7 e lo voglio abilitare e
disabuilitare
e non funziona ancora
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 33  Then
'al posto di una istruzione sonora una visiva che attiva e disattiva un
pulsante
If Me.Comando7.Enabled = True Then
   Me.Comando7.Enabled = False
   Else
   Me.Comando7.Enabled = True
End If
End Sub
---------------------------------
per sicureza ripeto il codice sonoro e visivo dentro il click di un
pulsante 6 e qui funziona tutto
Private Sub Comando6_Click()
Beep
If Me.Comando7.Enabled = True Then
   Me.Comando7.Enabled = False
   Else
   Me.Comando7.Enabled = True
End If
End Sub
-----------
conclusioni
If KeyCode = 33  Then
questa istruzione non funziona
dov'è l'errore
(n.b. tale istruzione è stata varie volte suggerita sotto forma di
select case
per disattivare la rotellina però anche nel codice di select non
funziona allora ho voluto proprio ridurre
all'osso il suggerimento sotto riportato per vedere dove non andava e le
2 prove sopra mi confermano
che If KeyCode = 33 Then  non è una condizione valida
 codice suggerito a me di recente ed in passato ma che non va
e che ho rianalizzato per vedere dove errava (a me solo?)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '33 - PgUp; 34 - PgDown; 9 - Tab; 18=Alt
    Select Case KeyCode
        Case 33, 34, 9, 18
            Beep 'KeyCode = 0
        Case Else
End Select
End Sub

sbaglio o:
If KeyCode = 33  Then
questa istruzione non funziona ?
Codice da provare se a voi funziona:
1-
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 33  Then beep
End Sub
non mi funziona
-------------------
2-
allora tolgo il sonoro e metto un pulsante7 sulla form che voglio
abilitare e disabilitare
praticamente sostituiso l'istruzione sonora con una visiva e non
funziona ancora
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 33  Then
            al posto di una istruzione sonora metto una visiva che
attiva e disattiva un pulsante7
            If Me.Comando7.Enabled = True Then
               Me.Comando7.Enabled = False
               Else
               Me.Comando7.Enabled = True
           End If
       End if
End Sub
---------------------------------
Per sicurezza ripeto il codice sonoro e visivo dentro il click di un


 ha scritto nel messaggio
news:3C34B150...@lycos.it...

a Me Funzione sia in A97 che 2002



che riferimenti hai impostato su visual basic?
e cosa c'è impostato sull'evento keypreview della maschera
interessata?
Saluti.
Emanuele.

 e cosa c'è impostato sull'evento keypreview della maschera
eh già bisognava settare anteprima tasti a no
la riga di codice funziona però la sub non va comunque
lo scroll scrolla, post più avanti dettaglio meglio ulteriori questions
e ipotesi.
grazie per chiarimenti
Newsgroup: it.comp.appl.access
Titolo: stampare report di un record visualizzato

Ho una maschera in cui inserisco i dati nei vari campi del record corrente,
Vorrei a questo punto con un pulsante di comando stampare direttamente un
report (un modulo cartaceo) con i campi del record visualizzato
attualmente sulla mascherasenza passare per una richiesta di filtro.
mi date qualche consiglio?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
Controlla nell'help in linea il metodo OpenReport e il suo paramentro
"condizioneWhere"...
Ciao.
-- 
Sergio MAZZA


I record che visualizzi sono "scelti" per un campo
in particolare: questo campo è di tipo numerico o
alfanumerico?
Se è numerico inserisci questo criterio
dim criterio as string
criterio = "tuocontrollo = " & controlloreport
se invece alfanumerico
dim criterio as string
criterio = "tuocontrollo = '" & controlloreport &
"'"
ciao
MAssimiliano

 MAssimiliano
non è un campo in particolare ma il report da stampare deve riportare solo
alcuni campi del record corrente visualizzato in maschera quindi possono
essere sia numerici, date o testi.

Newsgroup: it.comp.appl.access
Titolo: scusate l'ingnoranza ma......

Scusate l'ingnoranza ma sono ancora alle prese con l'autosave (voglio
decidere se salvare o no i cambiamenti fatti)
ho gią avuto diversi consigli ma non ci sono ancora riuscito!!!!
in un vostro consiglio mi č stato detto di scrivere un determinato codice
"su corrente" , io uso access 2000 e non vedo negli eventi "su corrente"
quindi????? lo stesso vale per "istruzioni precedenti di convalida" e per
"istruzioni che eseguono il salvataggio"
vi incollo qui il consiglio per intero:
Metti una casella di controllo nascosta e chiamala DaSalvare, valore
predefinito No.
 - Su Prima di aggiornare scrivi
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.DaSalvare = False Then
        Cancel = True
        Exit Sub
    End If
End Sub
 - Su Corrente scrivi
Private Sub Form_Current()
    Me.DaSalvare = False
End Sub
- Sull'evento Click del pulsante che di esegue la memorizzazione del record
aggiungi
    ' istruzioni precedenti di convalida
    Me.DaSalvare = True
    ' istruzioni che eseguono il salvataggio
Ciao a tutti e grazie!!!!!!!

Gobbo wrote:
ormai sei un "vecchio" utente possibile che ancora non
matti un subject decente? 
Vedi che succede? Nessuna risposta e la questione 
non e' che sia difficile.
--
a.cara

 wrote in message
3DC54A6B...@blunet.it...

che subjet dovrei mettere??

 che subjet dovrei mettere??
un subject che spiega A BREVE il tuo problema :)
esempio: "come faccio a non autosalvare i dati?"
Fai una form vuota NON collegata a nesusna tabella, che riporta gli stessi
campi pero' della tabella in cui dovrai memorizzare i dati.
Fai uan query di aggiornamento che aggiorna i campi della form scrivendo i
valori nella tabella di cui sopra...metti un bottone sulla form SALVA e su
clic gli fai eseguire la query, che mette id ati nella tabella :)
---------------------------------------------
Private Sub BottoneSalva_OnClick()
docmd.setwarnings false
Dim Salva
Salva = msgbox("Salvare i dati?",+vbYesNo)
If salva = vbno then
    exit sub
else
    DoCmq.OpenQuery = "nomedellaquerydiaggiornamento"
end if
docmd.setwarnings true
End Sub
---------------------------------------------
Spero ti funzioni.
Ciao, Fabrizio yQy

Newsgroup: it.comp.appl.access
Titolo: vedere i collegamenti delle query

Salve a tutti.
Vorrei sapaere se c'è la possibilità di vedere tutte le relazioni che hanno
le query con le tabelle.
Per spiegarmi meglio intendo come la finestra che mostra le relazioni tra le
tabelle.
Il problema nasce dal fatto che il database ha tante query e tra queste
tante non servono a nulla e vorrei eliminarle.
Qualcuno sa aiutarmi?
Grazie!
Nikes


Purtroppo questa è un utility disponibile solo da A2003
MAssimiliano

 ha scritto nel messaggio
news:g7oUb.14747$Mt6.5...@twister2.libero.it...

Se usi l'analizzatore (da menù strumenti) e dalle opzioni di questo spunti
solo quello che ti interessa vedere per ogni query, potrebbe andare bene?
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Stampa Unione (per Sergio Mazza)

    Le tabelle fanno parte dello stesso database.
    Cosa significa inserire un nome al progetto?


Riporto il "discorso" iniziato con l'e-mail:
---------- inizio da Massimiliano ---------
Scusami e grazie per la tua disponibilità.
Ho creato un file word.
Dal menu Stampa Unione ho inserito come base di dati la tabella CLIENTI
e ho inserito:
Il cliente
{MERGEFIELD «ID_Cliente»}
{MERGEFIELD «Nominativo»}
ha le seguenti porte:
{DATABASE \d "C:\\Mio.mdb" \c "TABLE tbl_PORTA" \s "SELECT [Matricola],[L]
FROM [tbl_PORTA] WHERE (([ID_Cliente]= {MERGEFIELD ID_Cliente}))"
\1"17\b"191"\h}
Sono ritornato nel menu Stampa Unione e ho cliccato su Unisci
La tabella CLIENTI è formato da 150 record e word mi ha aperto 150 istanze
di Access.
Ho sbagliato qualcosa?
Perchè se clicco su Unisci dal tuo file di word non mi apre istanze di
Access?
Grazie ancora.
A presto.
---------- fine da Massimiliano ---------
---------- inizio da Sergio MAZZA -------
- Forse hai inserito un nome al progetto;
- forse hai le due tabelle in due mdb diversi (ma non dovrebbero creare
problemi);
Ma non avevo detto che dovevamo dialogare via NG?
Sergio MAZZA
---------- inizio da Sergio MAZZA -------
Il nome al progetto lo inserisci con: Strumenti - Opzioni - Scheda
"Avanzate", nome progetto.
Comunque a parte questo mi sembra strano quello che ti succede; hai già
diviso l'applicazione in Fe (solo maschere, query, report) e Be (solo
tabelle)?
Se non l'hai fatto, provaci e utilizza il Be come base dati per la stampa
unione.
Ciao.
- - -
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: aggiornamento tabelle

ciao a tutti
devo aggiornare automaticamente una serie di 200 tabelle,
strutturalmente identiche.
qualcuno può dirmi, per favore, come poter scrivere un comando che
esegua la qry di aggiornamento in sequenza su tutte le tabelle.
grazie in anticipo.


          Guarda su 
www.sitocomune.com
c'è una funzione di Biso che fa proprio questo.
MAssimiliano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.appl.access
Titolo: report ... mistero della fede!

ciao,
ho il seguente problema.
da 4 query genero 4 report.
su tutti i report vorrei calcolare il subtotale del campo Importo.
nella prima query/report ho il seguente caso: mostra tutte le fatture
emesse fino ad oggi, pagate e non, e fammi il conto dell'importo
totale per euro, per dollaro etc etc.
nel report ho un campo non associato il cui valore e: =Dsum([Importo],
[QIFattureAperte], "[Valuta] = 2" ) (2 sta per euro) e mi da il
corretto totale
e funziona!
ho un'altro report che mi deve mostrare il subtotale di tutte le rate
(ancora da pagare) che scadranno nel mese immesso da tastiera.
la query funziona e mi ritorna tutte le rate il cui month(Scadenza) =
[input da tastiera].
solo che quando vado a calcolare il subtotale nel report:
campo non associato = dsum([Importo], [QIScadenzaMensileRate],
"[Valuta] = 2 AND [Pagato] = false") mi da sempre #Error!
MA PERCHE'?
(QIScadenzaMensileRate e la query che mi mostra tutte le fatture le
cui rate scadranno il mese immesso da tastiera ... nei criteri del
dsum ho la condizione Pagato = false con [Pagato] = checkbox)
ho provato a fare anche la query che mi filtra gia le rate scadenti il
mese tot e gia filtrate con Pagato= false ma non mi va lo stesso e mi
da sempre #Error!
qualcuno ha qualche idea in proposito?
grazie,
giacomo

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

=DSum("Importo"; "QIScadenzaMensileRate"; "Valuta = 2 AND Pagato = false")
ora riprovo ma, vedi sopra e vedi "sopra sopra" ho win2k in inglese e
funziona.
solo che noto che ho office 2k in italiano e fa un casino bestia!
a volte scrivo "false" e mi corregge in "falso", a volte fa il
contrario!
e cmq il problema non credo sia stato nella sintassi (altrimenti non
mi andava nemmeno il caso base...) 
altri idee?
(grazie ancora, mito!)
-g- 

 -g-

Newsgroup: it.comp.appl.access
Titolo: Errore:Impossibile trovare il file VBA6:DLL

Dopo black-out: pc "in vacca".
Reinstallo tutto (WIN 2000 professional e Office 2000).
Da quel momento inspiegabilmente (per me!) l'applicativo che ho creato
in Access ogni volta che, tramite un pulsante, richiama una routine
VB:
   -  mi da il messaggio in oggetto (Impossibile trovare il file  
       VBA6:DLL) 
  - apre il codice VB e mostra, credo, tutte le routine che
     necessitano tale DLL che non trovo o non so come caricare.
Ho reinstallato tutto più volte ma non cambia.
Indizi per chi, bontà sua, vorrà aiutarmi:
* l'applicativo "punta" ai dati tramite collegamento alle tabelle che
   sono su un altro file mdb.
+ Altri computer in rete (che hanno Win 98SE) che utilizzano lo stesso
   applicativo e che ai dati sul pc con il problema, funzionano
   correttamente.
Grazie fin d'ora, Sandro Berardi


Registra i riferimenti
Moduli-nuovo-strumenti-riferimenti
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

On Thu, 17 Jul 2003 14:45:24 GMT, 
massimilia...@kksrl.com
 (MA)
wrote:

Grazie, ho provato , anche utilizzando il comando "Sfoglia"
e caricando le DLL che "a naso" potevano essere attinenti, ma il
problema persiste.


Vai su 
www.sitocomune.com
 e leggi la registrazione di dll "Errore 492..."
MAssimiliano


E' strano come errore quella Dll è proprio l'interprete VB di Access.....!
@Alex.



Infatti, ma, fra l'altro, non solo non viene caricata ma proprio non è
presente sul disco!

Newsgroup: it.comp.appl.access
Titolo: trasformare file in pdf

Salve!
come si fa a trasformare
un file excel in pdf da codice?
Grazie 


Lo stampi in pdf...
Devi aprirlo via Automazione e da lì stamparlo come PDF.
 
@Alex


grazie
Newsgroup: it.comp.appl.access
Titolo: Evento NotInList: fallito

Buongiorno a tutte le anime buone del NG,
il mio problema è il seguente, ho una casella combinata che contiene una
lista di nominativi l'origine riga è la seguente:
SELECT DISTINCTROW [LISTA DESTINATARIO].[IDDEST], [LISTA
DESTINATARIO].[destinatario] FROM [LISTA DESTINATARIO];
Ho inserito in evento Su non in elenco questo routine:
Private Sub NOMEDESTI_NotInList(NewData As String, Response As Integer)
Dim MyResponse As Variant
Dim Msg As String
Msg = "Il nominativo non è stato inserito, controlla meglio o aggiungilo!"
MyResponse = MsgBox(Msg, vbInformation + vbYesNo, "nominativo non trovato")
If MyResponse = vbYes Then
MsgBox "Mettete il codice aggiunto qui", vbInformation + vbOKOnly, "Sono
pronto per aggiungere"
Me.IDDEST = ""
Else
MsgBox "Seleziona un'altro nominativo dalla lista", vbInformation +
vbOKOnly, "Selezionare un'altro nominativo"
End If
Response = acDataErrContinue
End Sub
che però non mi lascia aggiungere, se non presente, un nuovo Destinatario
alla lista.
Che ho sbagliato un passaggio mi sono accorta ma non ho capito dove.
Grazie come sempre per l'aiuto.
Ale

 Else
ma dove dovresti aggiungerlo?
penso che tu debba, in questo punto, utilizzare Inputbox invece di MsgBox
(ti permette di inserire una stringa che poi puioi passare a Me.IDDEST)
ciao Riccardo

 
Private Sub NOMEDESTI_NotInList(NewData As String, Response As Integer)
  Dim MyResponse As Variant
  Dim Msg As String
  Msg = "Il nominativo non è stato inserito, controlla meglio o aggiungilo!"
  MyResponse = MsgBox(Msg, vbInformation + vbYesNo, "nominativo non trovato")
  If MyResponse = vbYes Then
in questa posizione devi inserire il codice che inserisce il nuovo valore.
cioe' devi aggiungere il nome inserito nella combo (destinatario) come nuovo
record nella tabella [LISTA DESTINATARIO]
il nuovo valore inserito e' contenuto nella variabile NewData
quindi:
 Response = acDataErrAdded
 ...
 rst.Addnew
 rst![IDDEST] = 'se e' un contatore non serve, altrimenti vedi tu cosa ci va
 rst![destinatario] = NewData
 rst.update
 ...
Else
   Response = acDataErrContinue
   Me.NOMEDESTI.Undo
   MsgBox "Seleziona un'altro nominativo dalla lista", vbInformation +
vbOKOnly, "Selezionare un'altro nominativo"
End If
End Sub
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


Hai impostato la proprietà 'Solo in elenco' a sì? Poi seguendo l'esempio
dell'help imposti:
'----------------
Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
  me!nomeCasella.RowSource = me!nomeCasella.RowSource & ";" & NewData
 '---------------
Se non ricordo male dovrebbe bastare questo; mi sono scornato anch'io con il
'Solo in elenco' e non è stato piacevole...
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Impossibile trovare ISAM installabile

Ciao a tutti
importando un file di testo mi appare il msg in oggetto, e chiaramente mi 
blocca l'importazione dei dati. Uso A2000 sp3 con Xp Home sp2.
Ho gia' disinstallato e reinstallato Office, ma senza successo.
Help me.... 

Gianlu ha scritto:

Vedi:
www.donkarl.com/it?FAQ7.10
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


www.donkarl.com/it
 7.10
-- 
ac
y-1=x

Newsgroup: it.comp.appl.access
Titolo: Moduli di classe e /Decompile

Dopo aver 'Decompilato' un mdb contenente alcuni Moduli di
classe, non era piu' possibile istanziare tali classi.
In pratica le classi erano considerate come moduli
standard!
Ho dovuto quindi creare delle nuove classi e pastarci
dentro il codice!!
Qualcuno sa dirmi qualcosa in proposito?
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 Qualcuno sa dirmi qualcosa in proposito?
Questo effetto di decompile é conosciuto.
L'hanno rapportato diversi colleghi.
IMO non puoi fare niente altro.
Non usi decompile troppo spesso come gią ha scritto michka:
http://www.trigeminal.com/usenet/usenet004.asp
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com
APP: 
http://www.AccessProfiPool.com

 
http://www.trigeminal.com/usenet/usenet004.asp
Grazie Karl, ero giunto alla stessa conclusione :-)
-- 
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora

Newsgroup: it.comp.appl.access
Titolo: Evitare la visualizzazione degli zeri in un campo con valore Null in presenza della funzione fctRound()

Ciao a tutti e scusate per la domanda forse banale che vi porgo.In
ogni campo calcolato dove ho inserito "LA MITICA" funzione di Karl per
l'arrotondamento cioe' la funzione fctRound() se il valore e' = Null
mi viene visualizzato 0. Es:
Campo "totale" origine del controllo =fctRound([totale];2).se il
valore del campo e' >di zero tutto Ok. se invece e' null mi si
presenta 0,00.
Ho provato inserendo la funzione stessa dentro la funzione Nz() ma il
risultato non cambia.
Ho provato allora ad usare Format (cioe'=Format(fctRound([totale];
2);"#,##").  con il risultato che l'arrotondamento corretto sparisce.
Quindi chiedo a voi come poter in caso di valore nullo non
visualizzare gli zeri.
Grazie in anticipo
Dino

 Dino
Se non ricordo male c'è un exit function se il valore non è numerico.
Aggiungi IsNull e controlla cosa accade.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Ciao e grazie per la risp.Allora inserendo Is null mi da errore.E piu'
precisamente argomento non definito.
Di seguito ti riporto la funzione originale:
Function fctRound(varNr As Variant, Optional varPl As Integer = 2) As
Double
 'by Konrad Marfurt + ("" by) Luke Chung + Karl Donaubauer
    'esce se valore non numerico
    If Not IsNumeric(varNr) Then Exit Function
    fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10
^ varPl)
End Function
Grazie ancora
Dino

 Dino
Hai provato in questo modo?
  =IIf(IsNull([totale]);"";fctRound([totale];2))
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Sì diciamo che funziona ma solo in parte;cioe'  se il calcolo e' 345
*4 = 1.380 il ris e' 1380 e se ci sono dei decimali non
compaiono.Usando Format ho paura di
ritrovarmi al punto di prima.
C'e' la possibilita' di intervenire nella funzione di Karl??Aggiornata
lei si aggiorna tutto il DB.
Grazie
Dino

 - Mostra testo citato -
Ok.Risolto, alambiccando "sapientemente" sia "Isnull" che
"Format".Ribadisco che mi piacerebbe pero' sapere se e' possibile
modificare la funzione di Karl affinche' se un campo numerico ( o
valuta) abbia valore "Null" non compaiano gli zeri
Grazie ancora
Dino

 Dino
La funzione è dichiarata 'As Double' e pertanto restituisce 0.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Quindi non si "scappa"
Grazie
Dino
Newsgroup: it.comp.appl.access
Titolo: Duplicare un record

Ho un maschera che uso per l'immissione o la modifica dei record.
Ho molti record abbastanza simili da creare.
Vorrei quindi creare un pulsante che mi consenta di duplicare il record che
sto modificando in modo che io debba immetere solo la chiave primaria e
possa fare solo le poche modifiche neccessarie ai campi e poi possa salvare
il record appena creato come nuovo senza cancellare quello vecchio.
Qulche idea per il codice da generare?

 wrote in message
news:8FRg7.452$i81....@news.infostrada.it...


 ha scritto nel messaggio
news:8FRg7.452$i81....@news.infostrada.it...


 ha scritto nel messaggio
news:8FRg7.452$i81....@news.infostrada.it...

Se la tua maschera contiene 4 controlli chiamati Controllo1, Controllo2,
Controllo3 e Controllo4.
A fronte dell'evento "Su clic" del tuo pulsante di comando genera il
seguente codice VBA:
Me!Controllo1.DefaultValue = Chr$(34) & _
Me!Controllo1.Value & Chr$(34)
Me!Controllo2.DefaultValue = Chr$(34) & _
Me!Controllo2.Value & Chr$(34)
Me!Controllo3.DefaultValue = Chr$(34) & _
Me!Controllo3.Value & Chr$(34)
Me!Controllo4.DefaultValue = Chr$(34) & _
Me!Controllo4.Value & Chr$(34)
DoCmd.GoToRecord , , acNewRec
A questo punto posizionati sul record che vuoi "quasi" duplicare; premi il
pulsnte di comando;
modifica i valori che devi modificare; salva il record, al limite ripremendo
il pulsante di comando o comunue passando ad un altro record o chiudendo la
maschera.
Se non farai alcuna modifica, non ti verrà inserito alcun nuovo record.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9m0v2n$2a4o$1...@stargate1.inet.it...

Ok! Perfetto.
Ho solo un problema con un campo di  testo
che non riesce a duplicarmi.
Errore di runtime '348'
Proprietà o metodo non supportati dall'oggetto.
La stessa cosa mi capita con due campi memo.
A cosa può essere dovuto.


Mi dispiace, ma non riesco a fare un'ipotesi.
