mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Conversione Importo in lettere

Salve a tutti, ho la necessità di convertire un importo in Euro in Lettere.
Ho visto l'esempio sul Sito Comune, e non ho avuto problemi a utilizzarlo in
maschere o report, ma ho difficoltà ad utilizzare la funzione in una query.
Come posso Visualizzare in una colonna della query il valore in lettere di
un campo "ImportoRata"?
Ho visto che la funzione EuroCheque via codice si sviluppa su più righe, ma
nella query come faccio dopo aver passato i diversi argomenti richiesti ad
estrarre sCaseValue? Se richiamo solo la funzione EuroCheque ottengo uno
zero.
Garzie a tutti
Nina

 un campo "ImportoRata"?
Io non l'ho vista quella funzione, ma, supponendo che sia di questo tipo:
Public Function Eurocheque(param as double) as string
nella query scriverai un campo calcolato
Lettere: Eurocheque([SOMMA IN NUMERO])
Antonio


 Grazie Antonio,  ma la funzione è un pochino più complessa. Da controllo in
maschera viene richiamata in questo modo:
    Private Sub txtCifre_Change()
        Dim sNumberValue As String, sCaseValue As String
        EuroCheque Me.txtCifre.Text, sNumberValue, sCaseValue,
Me.cmbLanguage
        Me.txtCifreEuro = sNumberValue
        Me.txtLettereEuro = sCaseValue
    End Sub
mentre la funzione a cui fa riferimento è questa:
    Public Function EuroCheque(ByVal vValue As Variant, ByRef sNumberValue
As String, ByRef sCaseValue         As String, Optional ByVal Language As
Byte) As Long
        On Error GoTo EuroChequeError
        Dim sTempCaseValue As String
        'Controlli su vValue
        If IsNull(vValue) Then GoTo EuroChequeError
        If vValue = vbNullString Then GoTo EuroChequeError
        If Not IsNumeric(vValue) Then GoTo EuroChequeError
        If LongCur2Str(CCur(Int(vValue)), sTempCaseValue, Language) Then
GoTo EuroChequeError
        sCaseValue = StrConv(sTempCaseValue & "/" & Right$(Format$(vValue,
".00"), 2), vbProperCase)
        sNumberValue = Format$(vValue, "#,##0.00")
        Exit Function
    EuroChequeError:
        sNumberValue = "Error"
        sCaseValue = "Error"
        EuroCheque = 1
    End Function
Se ti serve ti posto il modulo intero, che è un po' lungo
Grazie ancora e spero tu possa aiutarmi
Ciao a presto
Nina

 Grazie ancora e spero tu possa aiutarmi
Questa funzione così come è non la puoi utilizzare in query.
Fa infatti uso di variabili globali passate per riferimento alla funzione
stessa.
Direi che dovresti modificare la funzione utilizzando solo parametri per
valore e facendo sì che la funzione restituisca la stringa desiderata in mod
da poter fare coem ti avevo detto prima.
Strano però che sul sitocomune non ci sia la funzione come dico io...
Antonio

 Antonio
Grazie mille, spero di essere in grado di fare queste modifiche
Ciao
Tonina
Newsgroup: it.comp.appl.access
Titolo: int

Ho una tabella con un campo "nr" che contiene dei numeri con decimali.
Vorrei attraverso una query calcolare l'intero di quei numeri ma con la
funzione int([nr]) mi dice errore di compilazione.
Cosa sto' sbagliando?
Grazie a tutti.
Sigar

 ha scritto nel messaggio
news:9g7srt$o4g$1...@serv1.iunet.it...

In una colonna vuota della griglia di struttura della query scrivi:
nrIntero: Int([nr])
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:i_RV6.3859$7S1.1...@news.infostrada.it...

Stesso errore...gulp!!!:
errore di compilazione nell'espressione della query 'Int([nr])'.
Allego anche la query:
SELECT Tabella1.ID, Tabella1.nome, Tabella1.nr, Int([nr]) AS nrIntero
FROM Tabella1;
Il campo nr sulla tabella1 e' di tipo numerico a precisione doppia.
Sigar.

 ha scritto nel messaggio
news:9ga5hr$5ol$1...@serv1.iunet.it...

Il codice SQL della query per me è corretto.
Probabilmento il tuo database non ha i riferimenti giusti per usare la
funzione Int. Prova a controllarli.
Ma in tutti i database non riesci ad usare tale funzione?


 ha scritto nel messaggio
news:Ra2W6.6337$7S1.2...@news.infostrada.it...

Ho creato un nuovo db e funziona perfettamente.
Va a capire!!!!
Grazie comunque.
Ciao.

 ha scritto nel messaggio
news:9ganev$4aa$1...@serv1.iunet.it...

Beh, allora è quasi sicuro che per il database in cui avevi problemi erano
andati a puttane i riferimenti.
Comunque, tutto è bene ciò che finisce bene.

Newsgroup: it.comp.appl.access
Titolo: Corruzione di Back End mdb

Dunque: il Back End (mdb di jet 4.0 - Access 2000) è su un server con SO Win
2000 Server.
I client (in genere 5 utenti, ma a volte 10 - access 2000) sono su PC con
Win 2000 Pro. Il BE ogni tanto si corrompe
(4 volte negli ultimi 6 mesi. Le prime 3 volte il file l'ho recuperato ma
l'ultima volta
sono andati persi 3 mega di dati. Insomma, meno male che faccio back up
frequenti ...).
Ho letto che il problema potrebbe essere il meccanismo di Opportunistic Lock
predefinito in
Win 2000.
C'e' qualcuno che ha esperienza in proposito e che mi potrebbe aiutare a
perlomeno ridurre
il rischio di danneggiamento del file (e il conseguente rischio di
"infarto") ?
Quanto serve poi installare i service pack per Jet 4.0?
Grazie
Marco

 Quanto serve poi installare i service pack per Jet 4.0?
Fai quanto ti suggerisce MS.
E poi ... come state a schede di rete?
Succede a volte che alcuni clients facciano le bizze, si spengano, etc?
Ciao.


Pare che tutto si svolga normalmente (io però sotto sotto ho qualche dubbio
... possibile che i
file mdb si possano corrompere senza valide ragioni?).
Grazie per l'interessamento
Ciao

 file mdb si possano corrompere senza valide ragioni?).
Ci sono valide ragioni, vecchie come i motori File-Sharing  :-)
PC che si spengono, schede di rete che funzionano male, sbalzi di tensione.
Se non risolvi (non ti consiglio di riscrive usando un BE SQLSVR perchè so
quanto tempo serva) ti consiglio di prendere in considerazione i servizi
Terminal Server.
Saluti.

 ha scritto nel messaggio
news:sHS%a.247678$lK4.7...@twister1.libero.it...

Da quando ho fatto l' aggiornamento ( credo basti caricare la sp3 di w2k) e
aggiornato i driver delle skede di rete non mi ha dato più quel problema.
A volte mi da però il messaggio che un altro utente ha tentato di modificare
i dati in una tabella mentre ci stava già lavorando qualcuno e mi scrive un
dato strano in un record dellla tab in questione che per poterlo cancellare
devo importare la tabella in un altro db.
anch' io w2k server e 5 client  w2kprof

 "infarto") ?
Tutti abbiamo esperienza in proposito, e tutti abbiamo cambiato schede di
rete per motivi simili.
Sib

 l'hai letto?
Sul sito di Microsoft (cerca "Jet  Top Working condition") e su un altro
sito
(Data Access, mi pare), ma non a proposito di Jet. Perň pare che questo
meccanismo di OpLock di win 2000 sia un po' bacato, quindi vale un po' per
tutti i file
ai quali sono richiesti piů accessi simultanei (la parte quindi l'ho dedotta
io, mi scuso
se dico stupidate ...).
Ciao
Marco
Newsgroup: it.comp.appl.access
Titolo: problema apertura database

Seguendo il consiglio di Sib cerco di essere più preciso:
Ciao,
tento di sfruttare le vostre conoscenze per risolvere un problema in 
ufficio.
Ho win 98 se e access 97 installato.
stranamente se lo faccio partire mi esce la scritta:
"impossibile trovare il database specificato oppure database non 
specificato.
Specificare il nome valido nella riga comando in modo che sia possibile 
trovare l'applicazione".
A questo punto posso solo schiacciare ok, ed il risultato è che si chiude 
la finestra di dialogo.
Ho ormai tentato di tutto nel tenattivo di risolvere questo problema ma 
sembra non esserci soluzione (ho chiaramente installato 
disinstallato tutto,ecc.ecc).
Sto leggendo alcuni siti trovati tramite google ma ora mi trovo 
abbastanza in difficoltà.
Temo che il problema sia stata l'installazione di Office 2000 assieme 
all'access 97.
L'ho poi rimosso, utilizzando solo Word 2000, ma questo strano problema è 
rimasto.
Il programma di gestione che uso per lavoro(fatto in access) che utilizzo 
viene aperto  
ma la maschera non è la solita, non ho la barra strumenti con i vari 
filtri, nei report non posso stampare, insomma una serie di problemi 
fastidiosi.
Inoltre, come ho già detto sopra, se apro access dall'exe principale mi 
da 
quello strano errore, che probabilmente è alla abse di tutto.
Scrivo nella speranza di trovare qualche idea...che non sia naturalmente 
quella drastica del format C:  
:-)
Preciso che nel disperato tentativo, ho cercato tutte le cartelle dei 
vari access e office installati e li ho rimossi per reinstallare il solo 
access 97, ma anche questo non è servito.
Ciao a tutti 

 
Dopo 2 ore di tentativi ho risolto il problema e posto la soluzione nel 
caso possa servire a qualcun'altro.
Tramite google ho ritrovato alcune spiegazioni nel sito microsoft che in 
pratica consigliavano di disinstallare tutto e rinominare il file 
"hatten.ttf" che ho trovato nella cartella C:\windows\font in 
"hatten.old".
poi reinstallare Access 97.
Il problema č risolto

 Il problema č risolto
mi fa piacere che hai risolto, ma e' strano il come.
di solito la procedura che hai usato serve a risolvere un problema simile ma
che da un errore di licenza d'uso mancante.
sinceramente pensavo che ti desse proprio un errore di licenza, per questo
ti avevo chiesto di riportare con esattezza l'errore.
Ciao
Sib
Newsgroup: it.comp.appl.access
Titolo: Cambio orientamento report

A2000
 
Ho un report in cui la prima pagina deve essere orientata verticalmente 
mentre la seconda orizzontale.
 
E' possibile?


Ho sbagliato a porre la domanda che nessuno mi risponde?


sulla prima pagina imposta la proprietà "Verticale" a tutte le label e 
alle textbox
 
ciao
BFS

Il 28/02/2012 08:19, Zut ha scritto:

mi sa che ho detto una cazzata...dipende dal contenuto della prima 
pagine...se è un elenco di dati o semplici scritte.
potresti dividere il tuo report in due report. uno oriz e l'altro vert
e quando lo stampi in realtà esegui la stampa di entrambi
 
ciao
BFS

 e quando lo stampi in realtà esegui la stampa di entrambi
 
Per la stampa finale non avrei particolari problemi ...
ma preferirei che l'utente potesse visualizzare l'anteprima del report e 
quindi mi farebbe comodo un report unico.
 
 


se una delle due pagine non ha tabelle (no corpo report) puoi mettere 
come ti dicevo le label e le textbox in verticale
 
ciao
BFS
 

 come ti dicevo le label e le textbox in verticale
 
L'idea era buona ... ma purtroppo è un report con corpo ... 
raggruppamenti ecc...
Quindi mi sembra di capire che non esiste una possibilità di cambio 
sezione tipo word .
 
Vediamo allora di ragionare diversamente e non preoccuparci 
dell'anteprima....
Ho n record e devo stampare due pagine che riassumono i dati relativi a 
ogni record (la prima verticale la seconda in orizzontale). Mi devono 
venir fuori n file pdf
 
Ho per ora creato i due report (pag 1 e pag 2)
Da una form comando l'invio in stampa dove all'interno di un ciclo 
stampo il report 1 e il 2 salvandolo con Nome1.pdf
 
Tutto giusto fin qui? Suggerimenti?

Newsgroup: it.comp.appl.access
Titolo: Eliminare arrotondamento campi

Ciao,
cosa bisogna fare per eliminare l' arrtondamento di campi numerici
decimali ?
Grazie
Fabrizio

 Fabrizio
devi andare in visualizzazzione struttura della tabella e la 'dimensione
campo' deve essere impostata su 'intero'
prego
-- 
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: Come risultato totale = #Errore

Ho una mascera [Clienti] ed una sottomaschera [Sottomaschera Ordini per
cliente], nella maschera [Clienti] ho impostato il totale degli ordini della
sottomaschera clienti ora se la sottomaschera [Sottomaschera Ordini per
cliente]non ha record il totale che si trova nella maschera [Clienti] mi da
come risultato #Errore. Sapete come impostare per default 0 quando non vi
sono record?
Ho provato con "nz" ma non da risultati, ed ho impostato come valore
predefinito 0.
questa è la pr.
=IIf(IsNull([IDCliente]);0;([Sottomaschera Ordini per
cliente].[Form]![TotaleVendita]))
Grazie xmas

 ha scritto nel messaggio
news:8pCv8.35385$vF6.1...@news2.tin.it...

 =IIf(IsNull([IDCliente]);0;iif(IsError([Sottomaschera Ordini per
cliente].[Form]![TotaleVendita]);0;[Sottomaschera Ordini per
cliente].[Form]![TotaleVendita]))
Antonio


Provata ma continua a dare errore anche se diverso : Nome?
Probabilmente non trova il riferimento ma la condizione è giusta, ho poi
provato a sostituirla con :
=IIf(IsNull([IDCliente]);0;iif(IsNull([Sottomaschera Ordini per
cliente].[Form]![IDOrdine]);0;[Sottomaschera Ordini per
cliente].[Form]![TotaleVendita]))
mi da sempre nome?
dopo con
=IIf(IsNull([IDCliente]) Or ([Sottomaschera Ordini per
cliente].[Form]![IDOrdine]);0;[Sottomaschera Ordini per
cliente].[Form]![TotaleVendita]))
mi da gli 0 ma su tutto..anche su record con importi esistenti, bo non ho
idea provo ancora ad impastare.
Grazie xmas

 ha scritto nel messaggio
news:uVDv8.2184$8D3....@news1.tin.it...

Allora, prova a confrontare con un caso che a me funziona adattandolo al
tuo:
=IIf(IsError([righe].[Form].[totale_globale]);"";[righe].[Form].[totale_glob
ale])
Questa espressione si trova nell'origine controllo di un controllo che sta
nel piè di pagina di una maschera.
Nella maschera c'è il controllo sottomaschera righe. Nella maschera puntata
dalla sottomaschera c'è un controllo, totale_globale che da il totale dei
record, ed è posto nel piè di maschera e ha come origine =Somma([Euro]) dove
euro è il campo dei soldi.
A me funziona...
ma...
MA TU NON HAI SCRITTO ISERROR COME TI AVEVO GIA' DETTO DI FARE?!?!?!?!
Antonio

 ha scritto nel messaggio
news:8pCv8.35385$vF6.1...@news2.tin.it...

Ti ho risposto nell'altro tuo thread aperto il 18/4/2002 ore 11:12
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 MA TU NON HAI SCRITTO ISERROR COME TI AVEVO GIA' DETTO DI FARE?!?!?!?!
No, l'ho provata ma non funzionava...
...ma con l'ultimo tentativo che mi hai suggerito (;"";) è andato tutto ok,
non voleva saperne dello 0 grazie a e buon rendere
ho letto qualcosa sulla gestione di questi errori ma non l'ho ancora provata
se ti va dagli un'occhiata magari ti torna utile
http://www.mvps.org/access/forms/frm0022.htm
ciao xmas

 ha scritto nel messaggio
news:CNSv8.59890
Grazie Roberto tutto ok
dai un'occhiata anche tu a
http://www.mvps.org/access/forms/frm0022.htm
ciao xmas
Newsgroup: it.comp.appl.access
Titolo: Probelmi Stampa fronte retro report con codice da sitocomune

Ciao Amici del news,
vi prego di volermi aiutare in merito alla stampa fronte-retro di un report
procedendo prima con la stampa dei fogli dispari poi quella dei fogli pari.
Dal  sitocomune  ho preso la risposta di Federico Luciani ed in merito ai
codici non ho avuto difficoltà in merito a queste righe:
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
   If (g_Pagine = 2 And Me.Page Mod 2 = 1) Or _
      (g_Pagine = 1 And Me.Page Mod 2 = 0) Then _
      Cancel = True
End Sub
e
    Private Sub IntestazionePagina_Print(Cancel As Integer, PrintCount As
Integer)
    If (g_Pagine = 2 And Me.Page Mod 2 = 1) Or _
       (g_Pagine = 1 And Me.Page Mod 2 = 0) Then _
       Cancel = True
End Sub
Infatti ho capito dove inseire i codici. Le mie difficoltà nascono quando
devo inserire la dichiarazione Global g_Pagine As Integerin in un altro
modulo
Scusate la mia ignoranza cosa significa che devo inserire la suddetta
dichiarazione in un altro modulo? Il modulo devo crearlo?
E il codice:
        g_Pagine = 2
   DoCmd.OpenReport "nomeReport", acViewPreview
dove devo inserirlo?
Vi sarei grato se vorreste darmi una mano. Grazie

Crea un qualsiasi modulo di codice e inserisci la dichiarazione; poi lo
salvi.
g_Pagine = 2
DoCmd.OpenReport "nomeReport", acViewPreview
li inserisci dove ti servono...
Giorgio

 ha scritto nel messaggio
news:b1l8id$4ka$1...@newsreader.mailgate.org...

Grazie Giorgio
Newsgroup: it.comp.appl.access
Titolo: Evento NotInList: errorino

Ciao a tutti,
su un evento NotInList  in una casella combinata associata ho questo errore
al punto che ho segnato con gli asterischi:
Errore Run-Time 2118, E' necessario salvare il campo corrente prima di
eseguire l'azione Requery, inserendomi comunque lo stesso il nome digitato.
Private Sub ListaDesti_NotInList(NewData As String, Response As Integer)
Dim Msg As String
    Dim ws As Workspace
    Dim rec As Recordset
    Dim dbs As Database
Msg = "Il Nominativo' " & NewData & "' non è stato trovato, vuoi
aggiungerlo?"
If MsgBox(Msg, vbInformation + vbYesNo, "nominativo non trovato") = vbYes
Then
    Set ws = DBEngine.Workspaces(0)
    Set rec =
ws.OpenDatabase("c:\POSTACOPIA\POSTADAT.MDB").OpenRecordset("lista
destinatario")
        rec.AddNew
        rec!DESTINATARIO = NewData
        rec.Update
        rec.Close
    Set dbs = Nothing
    Set ws = Nothing
***************
Me.ListaDesti.Requery
***************
Response = 2
Else
    MsgBox "Selezionare un nominativo dalla lista", vbInformation +
vbOKOnly, "Seleziona un nominativo diverso"
    Response = 0
    Me.ListaDesti.Undo
End If
End Sub
Ringrazio anticipatamente tutti quelli che mi illuminano d'immenso.
Ale

 eseguire l'azione Requery, inserendomi comunque lo stesso il nome digitato.
Se non ricordo male, non serve il requery, dovresti gia' averlo, dopotutto
l'hai appena inserito.
FAmmi sapere.

-- 
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
--------------------------------------


Avevi ragione, adesso funziona.
Grazie Grazie ed ancora Grazie.
Ale

Newsgroup: it.comp.appl.access
Titolo: Non ne capisco niente

Scusate, sarà che ho la testa dura, ma non ci capisco niente. Avete qualche 
dritta per partire dalla base, ma proprio dalla base?
Saluti Claudio 

[cut]
Il tuo oggetto era completamente OT e in questo NG è difficeile avere
risposte.
...intendevo dire che è difficile averne se non si è chiari nell'esposizione
del problema, definendolo a priori con un oggetto significativo ... siate
clementi x il mio errore!!!!!  ;o)
-- 
===
strano...mavero
Di fronte a tutti i pericoli,
di fronte a tutte le minacce,
le aggressioni, i blocchi, i sabotaggi,
tutti i frazionisti,
tutti i poteri che cercano di frenarci,
dobbiamo dimostrare,
una volta di più,
la capacità del popolo di costruire la propria storia.
Che Guevara (1928 - 1967)

 ha scritto nel messaggio
news:PAGvd.23184$Lg7.7...@twister1.libero.it...

Newsgroup: it.comp.appl.access
Titolo: ringraziamenti a Roberto da casa

 Asociale
Qui di seguito posto il messaggio ricevuto da asociale e la relativa mia
risposta:
DOMANDA
===========
Gent.mo roberto da casa,
mi rivolgo a te per risolvere un problema con un controllo di testo, che mi
sta facendo impazzire.
Digitando
nome cognome
tutto minuscolo vorrei ottenere
Nome, COGNOME
Ho provato più volte a farlo da solo ma non ci sono riuscito. Ho scritto
alla newsgroup access ma i suggerimenti che mi hanno inviato non ottengono
ciò che io desidero.
So benissimo che scriverti una e-mail privata è una cosa scorretta, e di
questo mi scuso, ma, avendo già postato il messaggio e non avendo ottenuto
ciò che cerco sto tentando in tutti i modi di arrivare a capo del problema.
Ringrazio anticipatamente
RISPOSTA
=========
Se il controllo in cui hai digitato il nome e cognome tutto in miniscolo si
chiama AUTORE, a fronte dell'evento "Dopo aggiornamento" di tale casella di
testo genera il seguent codice VBA:
Private Sub AUTORE_AfterUpdate()
AUTORE = StrConv(Left(AUTORE, InStr(AUTORE, " ") - 1), _
vbProperCase) & ", " & UCase(Mid(AUTORE, _
InStr(AUTORE, " ") + 1))
End Sub
Naturalmente il tutto funzionerà solo a condizione che il nome sia composto
da una SOLA parola, in quanto la routine prevede che il nome sia la prima
parola di ciò che hai digitato e che il resto sia il cognome.
Nella rispetto di una regola del NG, non dialogo mai di Access in privato,
ma solo sul NG; quindi, spero che non mi riterrai scortese, ma cestinerò
eventuali tuoi futuri messaggi che parlino di Access ed inviati al mio
indirizzo e-mail.
Ciao
Roberto




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

 Mimmo
Non sono mica un orco! ;-)
La tua soluzione non risolve il problema di asociale per questi motivi:
1) Non inserisce una virgola tra la prima parola e le successive contenute
nel controllo.
2) Converte la stringa (sia nome che cognome) tutta in maiuscolo, invece
asociale vuole che la prima parola abbia la prima lettera in maiuscolo le
altre lettere in minuscolo.
3) impostando il formato risolvi solo il problema della visualizzazione del
dato che verrebbe però registrato nella tabella così come è stato digitato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: SQL Jet

Cerco una guida online su l'SQL di Jet, cioe' tutte le istruzioni che
implementa. Ho cercato un po' in giro ma non ho trovato niente.
Nella Guida di access poi molti riferimenti mancano.
Scusate se' oggi sto abbusando un po' troppo, ma sono in piena fase di
sviluppo, dove le idee devono diventare codice.
-- 
   \  /_ _ : _ _           
    \/(_|/_|| | |          
  mail me  :  
vazim_at_libero.it
 
  view me  :  
http://www.vazim.net

sviluppo, dove le idee devono diventare codice.
Prova qui:
http://www.w3schools.com/sql/sql_join.asp

Newsgroup: it.comp.appl.access
Titolo: msmapi32.ocx errore operazione sull'oggetto MAPISession non riuscita

?operazione sull'oggetto MAPISession non riuscita
è possibile che il server OLE non sia registrato
Per registrarlo rieseguirne l'operazione
QUalcuno ha idea di cosa debba fare? l'hò gia registrato con regsvr32 ed è 
presente nei riferimenti, che altro vuole?
Grazie. 

 ha scritto nel messaggio 
news:4caf1dfe$0$41846$4faf...@reader5.news.tin.it...

Sistema operativo? Versione di Access. Presenza di Outlook Express?
Devi inviare posta? Magari con allegati?
Hai mai pensato di usare Blat?
Ciao, Carlo 

 Ciao, Carlo
win xp, thunderbyrde e c'è outlook express ma nel pc a fianco identico 
funziona correttamente, comunque si ho usato blt per un altro caso ti chiedo 
è possibile inviare a blat un email presa da un campo email da una tabella?
grazie in anticipo. 

 ha scritto nel messaggio 
news:4cb090fa$0$41851$4faf...@reader5.news.tin.it...

Intendi prendere l'indirizzo email da una tabella? Sì è possibile.
Anche in questo ng si è parlato spesso di Blat. Per esempio solo 2 giorni fa 
il tread:
"avere l'esito invio email da blat è possibile?"
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Dove cerca i riferimenti esterni Access ?

Stavo vedendo questo articolo
http://support.microsoft.com/kb/824255
 
per capire che logica viene usata da Access per trovare i riferimenti 
esterni
Sto usando Win7pro e Access 2003
Nella mezzeria del documento c'e' scritto  ".. Access utilizza l'Api 
SearchPath per cercare...."
E se non trova niente dovrebbe cercare, come ultima possibilita', anche 
nella "Directory di file" intendendo la directory dove risiede l'mdb/mde 
avviato che necessita di un file perche' impostato come riferimento esterno
Bene, prendo una procedura che ha bisogno della mdivwctl.dll, mi assicuro 
che la dll sia presente solo nella directory dove risiene l'mde che avvio e 
tento di avviare l'mde stesso, errore 2426
Per assicurarmi che l'errore sia 'colpa' della libreria mancante provo a 
spostare la mdivwctl.dll nella WindDir (nel mio caso c:\winsows), tutto 
funziona
Allora la cancello dalla WinDir, la metto in C:\RIF  e provo a seguire le 
indicazioni dell'articolo e creo la riga col RefLibPaths nel registry, 
errore 2426
Sposto la libreria nella directory di sistema (c:\windows\system32 nel mio 
caso) e tutto rifunziona correttamente
Allora le domande sono:
- le librerie aggiunte come riferimenti esterni, possono essere presenti 
fisicamente SOLO nella directory di installazione dell'mdb/mde principale?
- come mai la sul registry non ha avuto effetto 
(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Access) con chiave 
RefLibPaths e variabile C:\REF\ ?
- dove li va a cercare i riferimenti esterni Access?
Ciao e grazie
RobertoA
 
 
 


ciao
 
grazie per averci condiviso le prove.
 
non so se ti interessa ma c'e' una discussione 
http://forums.asp.net/t/1542601.aspx
 
 
non e' che quella dll deve essere registrata?
 
Saluti

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

Ciao a tutti
Chiedevo se era possibile aprire un report non alla prima pagina ma
all'ultima se per esempio il report contiene 3 pagine mi si apra alla terza
,č possibile?
grazie

 wrote in message
8o0bvn$alt$1...@fe1.cs.interbusiness.it...

Si č possibile,
sull'evento SuPagina del report scrivi ;
SendKeys "{F5}"
SendKeys Me.Pages
SendKeys "{ENTER}"
dovrebbe funzionare.-
Ciao Marco
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 ha scritto nel messaggio
news:8o0k9q$smd$1...@lacerta.tiscalinet.it...


Prego, e ciao Miro

Newsgroup: it.comp.appl.access
Titolo: Condizione su apertura

Nell'evento su apertura di uma maschera devo imporre un controllo
Ossia:  se è presente un valore ad esempio "ID" mi deve eseguire una macro
altrimento me ne esegue un'altra
Private Sub Form_Open(Cancel As Integer)
If Me.ID xxxxxx Then
(COSA CI DEVO SCRIVERE PER FARGLI CONTROLLARE SE IL CAMPO  IDE' PRESENTE...
SE CI METTO "IS NULL" MI VA IN ERRORE, COSA CI SCRIVO)
stDocName = "Inizio compilazione"
    DoCmd.RunMacro stDocName
    Else
stDocName = "Continua compilazione"
    DoCmd.RunMacro stDocName
    End If
End Sub
Ciao e grazieeeeeeeeeeee
__________________________________________________________________ Marco
Marco ICQ#: 50378902 Current ICQ status: + More ways to contact me
__________________________________________________________________


Fammi sapere
SunRex

 >
OK GRAZIEEEEEEEeeeeeeeeeeeeeeeeeeeeeeeeeeeee

Newsgroup: it.comp.appl.access
Titolo: Aiuto Stampa Report

Il problema è il seguente:
Ho due tabelle correlate da una relazione uno a molti con i campi idditta
della tabella1(idditta chiave principale) e della tabella2 (idordine chiave
principale, idditta campo necessario per la correlazione).
L'immissione dei dati avviene attraverso due mascere
1) Ditta (orgine tabella ditta)
2) Ordini (Origine query "queryordini")
Dalla tabella Ordini devo a questo punto stampare il report "dittaordini"che
contiene informazioni visualizzate in quel momento, provenienti sia dalla
maschera ditta che da quella Ordini .
Ora io ho fatto l seguente:
ho creato una query denominandola  querystampa  rendendola origine per i
dati del report "dittaordini" in questa query ho inserito tutti i campi
della tabella Ditta e di quella Ordini nonche un campo idordine proveniente
dalla query "queryordini"  con il campo "mostra" selezionato e come criteri
la seguente espressione [Forms]![Ordini]![idordine].
 Ora il problema è che quando dò l'ordine di stampa o di anteprima di stampa
mi viene sempre richisto di immettere il valore dell'idordine  cosa che
invece non dovrebbe fare usando come defaul quello indicato nella maschera
corrente
COME CAVOLO RISOLVO IL PROBLEMA???
Stesso risultato ce l'ho se deseleziono la casella "mostra" o cambio il
criterio in   [Forms]![Queryordini]![idordine].
AIUTO
Grazie
Stefano

 wrote in message
P3w28.3563$Rv3.2...@news2.tin.it...

prova a inserire nel criterio [quale ditta vuoi visualizzare ?] (query con
parametri) e lui ti fa vedere tutte le informazioni(ordini) di quella ditta.
Newsgroup: it.comp.appl.access
Titolo: Errore Filtro Date con tabelle SQL collegate via ODBC

Ciao a tutti
mi sono collegato via ODBC ad un database SQL
Se provo a fare dei report e filtrarli per data mi da sempre "Report 
Vuoto"...
Anche se metto le date a mano nella query: Es: >= 01/01/2004 che access 
trasforma in >=#01/01/2004#
Che modo devo usare? Se non metto filtri di date funziona tutto...
Il problema è che se visualizzo la query funziona normalmente, se apro il 
report basato sulla query non va +! Mi sembra assurdo...
Grazie
Ciao
Luca 


L' errore non aveva senso... infatti lo dava solamente con archivi 
particolarmanete corposi
La query conteneva una decina di tabelle e credo che access con centinaia di 
migliaia di record andasse in tilt
Ho fatto una vista in SQL e mi sono collegato a quella: ora faccio 
normalmente tutti i filtri che voglio senza problemi ed è moooolto + veloce
Grazie a tutti lo stesso
Ciao
Luca
Newsgroup: it.comp.appl.access
Titolo: Somma

Salve,
Sottomaschera che ha come origine dati una query...
questa query contiene il campo IMPORTO...
Dovrei visualizzare il totale nella maschera principale...
Quindi ho inserito nalla sottomaschera un controllo non associato che fa la
somma dell'importo..
Nella maschera principale un altro controllo mi richiama il campo calcolato
della sottomaschera...
Funziona tutto tranne in un caso:
Quando la maschera viene aperta, la sottomaschera non ha record (è solo per
inserimento..) per cui
i campi calcolati mi danno errore..
come posso ovviare a questo problema?
Grazie

 ha scritto nel messaggio
news:xTdXa.223605$Ny5.6...@twister2.libero.it...

Prova ad usare NZ(RiferimentoSubFormSomma,0)
@Alex.

 ha scritto nel messaggio
news:eveXa.223897$lK4.6...@twister1.libero.it...

Già fatto mannaggia...
Grazie Cmq!
ma se non esiste nessun record ed io importo l'origine dati del controllo a
: =SOMMA([Importo]) non dovrebbe darmi Null?
Quindi scrivendo NZ(Somma([Importo]);0) non dovrebbe darmi uno 0 nel
controllo?
mah! non capisco proprio...
altri consigli?

 altri consigli?
Tu non volevi proprio che nel caso di Record=0 restituisse
ZERO...???
Allora forse ho capito male...!
Rispiegami bene.
@Alex. 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:xTdXa.223605$Ny5.6...@twister2.libero.it...

Ciao SamR
Quando un form non ha record gli oggetti della stessa non vengono caricati
in  memoria.
Quindi o controlli la presenza di record con
"sottomaschera!form.Recordset.Recordcount"  oppure prova
Iserror([nomecontrollo])
Ciao Giorgio.

 ha scritto nel messaggio
news:xTdXa.223605$Ny5.6...@twister2.libero.it...

Ho fatto qualche prova:
Uso Access 2000 SR-1, sembrerebbe che se non ci sono record da visualizzare
(nenche quello vuoto pronto per la creazione), non voglia eseguire nessuna
formula presente in un controllo calcolato, neanche una formuletta a
risultato fisso tipo =1+1.
Ho ovviato a questo eliminando le formule dal controllo ed eseguendole in
VBA, per poi mettere il risultato nel controllo originale.
Per non far dare errore nelle formule in caso non ci siano record, ho
testato la condizione:
            Me.RecordSet.RecordCount > 0
Le formule le ho messe in una routine unica che richiamo dalle routine
evento della maschera 'Su caricamento', 'Su corrente' e 'Dopo conferma
eliminazione'.
Come ultima istruzione della routine di calcolo, ho dovuto mettere:
            Me.Refresh
Xchè in alcune situazioni, il calcolo dei valori veniva eseguito ed il
risultato veniva messo nei relativi controlli, ma non veniva visualizzato;
non sò se dipende dalla versione di Access.
Se qualcuno ha altre soluzioni ben vengano.
Ciao.
Newsgroup: it.comp.appl.access
Titolo: esportare dati casella combinata in word

ciao
scusate ho una domanda:
io ho una maschera giudizi con delle caselle combinate contenente le varie
voci dei giudizi.
vorrei esportare queste voci(che di volta in volta cambiano per le diverse
configurazioni), in un foglio word.
voi sapete dirmi come si fa??
grazie in anticipo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:cnhl4r$p0c$1...@news.newsland.it...

Automazione Access-Word.
Nei post precedenti trovi diversi esempi. Anche su Google, nella ricerca 
gruppi, trovi molto materiale.
Ciao, Carlo 

 Ciao, Carlo
grazie


Newsgroup: it.comp.appl.access
Titolo: Recordset per inserimento dati all'apertura di una maschera

Salve a tutti e un augurio di una serena Pasqua a tutti....
 
... proprio la vigilia di pasqua sto diventando pazzo.. nel senso che
non riesco a far girare quattro righe di codice del piffero.
Vorrei utilizzare il codice sottostante per inserire il nome del
computer (sconosciuto al db) che accede ad un file presente su una
cartella condivisa su rete:
 
Dim NuovoComputer As New ADODB.Recordset
Dim Computer As String
Dim SQL As String
 
Computer = Environ("ComputerName")
 
SQL = "SELECT * FROM Computers WHERE [Computers.NomeComputer] = " &
Computer & " "
 
Call NuovoComputer.Open(SQL, CurrentProject.Connection, adOpenKeyset,
adLockOptimistic)
With NuovoComputer
    If .EOF Then
        NuovoComputer.AddNew
        NuovoComputer("NomeComputer") = Computer
        NuovoComputer.Update
    End If
End With
 
NuovoComputer.Close
Set NuovoComputer = Nothing
 
solo che alla riga: Call NuovoComputer.Open  ecc. ecc. mi da il
seguente errore:
Errore di run-time 
2147217904
 (80040e10) Nessun valore specificato per
alcuni parametri necessari.
 
Da premettere che codice tipo questo lo utilizzo in migliaia di altre
procedure e fila tutto liscio.
Dove caspita sto sbagliando oggi?
O visto che è la vigilia di Pasqua, vba non ne vuole proprio sentire e
lascio tutto a martedì?
 
Rinnovo tanti auguri sinceri di buona Pasqua a tutto l'NG.
Grazie per la gentile collaborazione

 ...
 
Siccome si tratta di stringhe, devi usare apostrophi:
 
...WHERE [Computers.NomeComputer] = '" & Computer & "'"
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 - Mostra testo citato -
 
Quando si dice perdersi in un bicchier d'acqua.
Ti ringrazio infinitamente e ancora tanti auguri di Buona Pasqua.
M7a1x
Newsgroup: it.comp.appl.access
Titolo: Query selezione prezzi diversi

Vi chiedo un consiglio su come impostare una query che faccia questo:
da una tabella con i campi Cliente, Articolo, Prezzo, Numero Documento mi restituisca solo le righe in cui per lo stesso Cliente/Articolo siano presenti prezzi diversi.
Quindi devono essere escluse solo le righe se Cliente/Articolo è presente una sola volta oppure più volte ma con gli stessi prezzi.
E' difficile a dirsi ma ancora di più a farsi!
-- 
Ciao, Sandrobi
"De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus logico-philosophicus")

 E' difficile a dirsi ma ancora di più a farsi!
Forse:
SELECT Cliente, Articolo, Prezzo FROM miaTabella GROUP BY
Cliente, Articolo, Prezzo HAVING COUNT(*) > 1;
HTH.
Alessandro


No, scusa, non avevo letto con attenzione.
Però se lo stesso articolo è presente più volte con prezzo 1 ed una volta
con prezzo 2 dev'essere incluso o no?
Esempio:
Cliente Articolo Prezzo
1          1           1
1          1           1
1          1           2
Se escludo le prime due righe ("presente più volte ma con gli stessi
prezzi") poi dovrò escludere anche la terza ("presente una sola volta"), ma
non credo che intendessi questo.
In ogni caso:
SELECT Cliente, Articolo, Prezzo,(SELECT COUNT(*) FROM
miaTabella T2 WHERE T2.Cliente=T1.Cliente AND
T2.Articolo=T1.Articolo AND T2.Prezzo <> T1.Prezzo) AS ContoDiversi,
COUNT(*) AS ContoUguali FROM miaTabella T1
GROUP BY Cliente, Articolo, Prezzo;
Da questo dovresti poter ricavare quello che ti serve.
HTH.
Alessandro

Ciao, Sandrobi
Creati una query con l'Autocomposizione ricerca duplicati.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 
Provo a crearla anche se per me è molto criptica. 
Comunque il funzionamento dovrebbe essere questo:
 
 Cliente Articolo Prezzo   su risultato
  1             1           1                  SI
  1             1           1                  SI
  1             1           2                  SI
  2             A          3                  NO
  3             B          4                  NO
  3             B          4                  NO
Ora la provo e vedo se già funziona cosi'.
Grazie, Ciao.
Sandrobi

Newsgroup: it.comp.appl.access
Titolo: Scusate se OT ma non ci sono ancora

Scusate ancora ma perchè nelle Impostazioni Internazionali del pannello di
controllo all'etichetta Valuta ho solo la Lira?
Grazie
Ilario

 controllo all'etichetta Valuta ho solo la Lira?
Nel Simbolo Valuta inserisci il simbolo dell'Euro (ALT + 0128).
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: Maschera d'interrogazione





Ciao a Tutti !!!!


 


Ho creato un db di dati anagrafici formativi e 
professionali per un particolare tipologia di lavoratori.


A questo punto per facilitare l'interrogazione del 
db da parte di terzi soggetti ho creato una maschera d'interrogazione 
inserendo alcuni campi di quelli inseriti nel db.


Il problema è che per vedere i record selezionati 
sono costretto a indicare una scelta per ogni campo inserito nella maschera 
d'interrogazione mentre invece vorrei avere la possibilità di selezionare anche 
un solo campo e vedere tutti i record che rispondono alla mia singola 
selezione.


Per completezza d'informazioni ho creato una query 
che per i campi della maschera d'interrogazione risponde al criterio 
[Forms]![mask_interroga]![Casellacombinata_Residenza]


 


Ringrazio anticipatamente per la collaborazione 



Saluti


Mauro


 


E-mail: 
mauro...@ciaoweb.it


 



 ha scritto nel messaggio 
  
news:000d01c0603c$37bb4d20$0201...@tin.it
...

1- per i prossimi messaggi un formato 
  diverso


2- può essere di aiuto il Filtro in base maschera 
  ?


giuseppe
Newsgroup: it.comp.appl.access
Titolo: CODICE VALUTA

Ciao a tutti,
chi conosce l'istruzione per poter recuperare il simbolo della valuta
impostato da
pannello di controllo in  impostazioni internazionali?
 Ciao e grazie
 * SuperDavid *

 ha scritto nel messaggio
news:esuh7.21439$4b5.5...@news6.giganews.com...


 impostato da pannello di controllo in  impostazioni internazionali?
Il codice ho copiate da una discussione con Dev qualche anno fa e in
un altro contesto. Per questo forse si puo tagliare. Ma debbi funzionare.
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
' major parts of the code courtesy of Terry Kreft and Dev Ashish
Public Const LOCALE_SCURRENCY = &H14    '  local monetary symbol
Public Const LOCALE_SINTLSYMBOL = &H15  '  intl monetary symbol
Public Const LOCALE_SYSTEM_DEFAULT& = &H800
Public Const LOCALE_USER_DEFAULT& = &H400
Const cMAXLEN = 255
Private Declare Function apiGetLocaleInfo Lib "kernel32" _
    Alias "GetLocaleInfoA" _
    (ByVal Locale As Long, _
    ByVal LCType As Long, _
    ByVal lpLCData As String, _
    ByVal cchData As Long) _
    As Long
Function fLocaleInfo(lngLCType As Long) As String
Dim lngLocale As Long
Dim strLCData As String, lngData As Long
Dim lngX As Long
    strLCData = String$(cMAXLEN - 1, 0)
    lngData = cMAXLEN
    lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _
                strLCData, lngData)
        If lngX <> 0 Then
        fLocaleInfo = Left$(strLCData, lngX - 1)
        End If
End Function
Function Read_Locale_Info()
    Debug.Print fLocaleInfo(LOCALE_SCURRENCY)
    Debug.Print fLocaleInfo(LOCALE_SINTLSYMBOL)
End Function

Karl Donaubauer ha scritto:
blablabla...
Ho dimanticato il modo di usare.
Copia e incolla in un modulo standard e poi chiama:
Read_Locale_Info
--


 wrote in message
news:9m7ogf$oudr$1...@ID-46617.news.dfncis.de...


 > Ho dimanticato il modo di usare.
Vuol dire che ho dimanticato di spiegare il modo di usare il
codice che ho scritto per recuperare il simbolo della valuta
impostato da pannello di controllo di Windows.
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco): 
http://www.donkarl.com

 E che è solo la lingua...
Vielen Danke,
Tschuß
* SuperDavid *
Newsgroup: it.comp.appl.access
Titolo: Leggere codice SQL di una query da codice

Forse sarà una domanda banale, ma al momento non mi viene in mente
nulla per risolverla.
Come potrei leggere (da codice) l'istruzione SQL che stà "dietro" ad
una query già creata in access!?
Ovvero... vorrei estrarre (e mettere in una stringa per poi
modificarla e ricrearla) l'istruzione SQL che viene mostrata quando si
visualizza la struttura di una query in access (quando si passa dalla
visualizzazione grafica, alla visualizzazione delle istruzioni SQL)!
Grazie del suggerimento.
Marco

 wrote in message
news:a47181a2.05011...@posting.google.com

Abilita DAO reference
Msgbox CurrentDb.Querydefs("NomeQuery").SQL
Secondo me non ti conviene leggerla per modificarla,
ma scriverti una Stringa Costante con il predicato
ed aggiungere eventuali opzioni:
Private Const SQL_A As string="SELECT * FROM NomeTabella "
Poi se devi aggiungere la condizione WHERE sarà
SQL_T=SQL_A & "WHERE bla....bla...."
Ti dico questo perchè fare il Parsing di STRINGHE SQL
è semplice fino a quando è banale....!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:a47181a2.05011...@posting.google.com...

Un esempio di come creare/modificare il codice SQL di una query registrata
lo trovi sul Sito Comune (link qui sotto), nella Sezione Queries, nella mia
FAQ intitolata "Come si può creare in maniera dinamica una query con la
tecnica QBF?".
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Sql in errore

Se in una Sql dopo where inserisco una funzione logica tipo
(a OR b) AND c (con a e b del medesimo campo, diverso per c) si rifiuta 
di eseguirla e mi consegna un bell'errore.
Devo per forza usare il De Morgan??
Giorgio


Puoi scrivere in modo eplicito la concatenazione e spiegare la Logica esatta, perchè io non ho capito.
De Morgan si usa se la logica è veramente complessa per razionalizzare... non so se sia il caso perchè non ho capito cosa devi fare.
 
@Alex


Eseguo un filtro su 2 Tabelle in ADO DELPHI 6:
 
 
Filter:='( DaParte = '+QuotedStr('Casa')+' Or '+ 
'DaParte='+QuotedStr('Chioggia')+')'+
            ' AND '+'Nota='+QuotedStr('Seconda');
 
Dovrebbe restituirmi un solo record, invece va' in errore!
 
Giorgio

 Eseguo un filtro su 2 Tabelle in ADO DELPHI 6:
 
Scusate Sulla Stessa Tabella!


 Giorgio
 
Provato così:
(Instr([DaParte],'Casa')>0 Or Instr([DaParte],'Chioggia')>0') AND Instr([Nota],'Seconda')>0
 
@Alex

Questa senza errori è meglio ;-)
(Instr([DaParte],'Casa')>0 Or Instr([DaParte],'Chioggia')>0) AND Instr([Nota],'Seconda')>0 
 
 
@Alex

>
 
Come mai quello strano paese?
Prova con Milano o Roma, magari funziona
 
 


Perche' era piu' vicino a me...


Le funzioni instr non ci sono in Delphi 6, ma a stare anche agli esempi 
il codice del Filter e' corretto, G


La Pos e' grossomodo stessa roba
 
Pos_Primo_Char := Pos(Stringa_Nella_Quale_Cercare, Stringa_Ricercata);
Newsgroup: it.comp.appl.access
Titolo: Formattazione del testo in un REPORT

Vorrei impostare che la prima lettera me lo scrive grande e poi tutto il
resto in minuscolo
Mettendo < tutto è piccolo
Mettendo > tutto è grande
C'è una soluzione
Ciao e grazieeeeeeeeeeeee

 C'è una soluzione
=strconv([campo],vbProperCase)
Il controllo dove scrivi questo NON deve chiamarsi come il campo (come
avviene con le autocomposizioni)
Antonio

 avviene con le autocomposizioni)
La stringa che mi hai scritto dove la metto nel corpo del REPORT????

 > avviene con le autocomposizioni)
Quindi è un controllo del report, una casella di testo per esempio!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: Calcolo tempo connessione USER

Domandina Pre-Vacanze (sarà che non ho di meglio da fare :-) ) :
Come da oggetto voglio calcolare il tempo di connessione di ogni utente
collegato al DB.
Premetto che gli USER li gestisco con una tab_User con LOGIN (Sì/No).
Nella Tabella, al momento del Login registro il Time() nel campo
"Data_Ora_Login".
Poi ho in tab un campo "Tempo" in cui vorrei calcolare ogni secondo la
durata della connessione di ogni singolo USER.
La Form è a maschere continue :
Allora ho usato su Timer della Form impostato a 1000 :
Me.Tempo = Time() - Me.Data_Ora_LOGIN
La FUNZIONE funziona! ;-P, ma ovviamente si ferma al primo record della
Form... come fare a calcolarli tutti contemporaneamente ?
Dai su... qualche ideuccia.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Dai su... qualche ideuccia.
IDEUCCIA VENUTA e funzionante - se a qualcuno può servire eccola :
sempre sul timer impostato a 1000 della Form :
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl_Operatori SET Tbl_Operatori.Tempo =
Format(Time()-[Data_Ora_LOGIN],'hh:nn:ss') WHERE
(((Tbl_Operatori.LOGIN)=True));"
DoCmd.SetWarnings True
DoCmd.Requery
Ecco tutti gli utenti monitorati. ;-)
Ciao


 wrote in message
news:dct9qh$r6n$
1...@news.newsland.it

Ciao Maurizio.
Non sò se può esserti utile ma io faccio una cosa del Genere:
Uso un Modulo normale nel quale ho definito alcune variabili
Globali:
USER
PASSWORD
PERMISSION
TIME_LOGIN
TIME_LOGOUT
FORCE_LOGOUT
LOGOUT_EXECUTE
ecc....!
Nella Tabella lato server ho gli stessi identici
campi che come hai anche visto tu aggiorno con una
QUERY_ACTION.
Il tutto lo gestisco dalla Form(Login) che nel momento
in cui il Login è fatto diventa Visible=False.
Questo mi serve per alcuni motivi:
1)Disabilitare la chiusura di Access intercettando Unload
della form Login
2)Verifico nell'evento Timer ogni 5 secondi lo stato del Boolean
FORCE_LOGOUT, in quanto ho un applicativo di Manutenzione dal quale
posso forzare il LOGOUT di tutti i Client(ne ho una 50°).
All'uscita per LOGOUT Setto LOGOUT_EXECUTE=1 e scrivo il TIME_LOGOUT 
così che dall'applicativo di Manutenzione sò che la chiusura è andata
a buon fine.
In pratica non scrivo la differenza, ma realmente il Time del Login
e quello di Logout, poi se devo far vedere la differenza è semplice...!
Forse non ho aggiunto nulla a quanto da te già intuito, ma magari
uno spunto...!
P.S. se usi il Metodo EXECUTE dell'oggetto Database(CurrentDb)
non serve il SETWARNING
Ciao Buone ferie.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Grazie, e buone ferie anche a te Ale.
