mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Qry con totali per soglie di importo

Buongiorno a tutti,
avrei bisogno del vostro prezioso aiuto in questo:
impostata una tabella (tblsoglie) di questo tipo
Imp min    Imp max
0,00         100,00
100,01      200,00
200,01      300,00
etc.
vorrei in qualche modo linkarla ad un'altra (tblimporti) dove vi è un
campo importo:
nrodoc        Importo
aaa             19,00
aab             151,00
aac             272,06
aad             299,00
etc..
per ottenere la somma in base alla tblsoglie previste.
Potreste darmi qualche indicazione?
Grazie
Paolo

 Paolo
Potresti dare qualche indicazione in piů per capire meglio il problema?
Per esempio nel caso di cui sopra cosa dovrebbe uscire?
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -Marco-
Ok,
Il risultato della qry dovrebbe dare la somma per soglia es:
CampoSoglia                 CampoTotale
0,00         100,00            19,00
100,01      200,00           151,00
200,01      300,00           571,06
Grazie ancora
Paolo




 Paolo
Potresti fare una query in cui metti entrambe le tabelle, SENZA relazioni;
dalla tbl soglie prendi la soglia min e max, e inserisci un terzo campo
calcolato con una formula simile:
totale: Somma(IIf([importo]>=[min] And [importo]<=[max];[importo];0))
Raggruppi per min e max; sul campo calcolato "totale" metti come formula
"Espressione".
Cosě perň non prende valori che siano fuori dalle soglie indicate, per
esempio se hai un importo di 500 euro non lo considera perchč non rientra
in nessuna delle soglie della tabella.
Se ti interessa  tenere conto anche di valori fuori soglia bisogna
modificare la formula.


 --
Marco, così già funziona alla grande, imposto l'ultima soglia max a
100000000 e va. Ma se volessi non correre rischi e ottenere i fuori
soglia cambia di molto la formulona...?
Ho provato ad ottenere un conteggio anche delle posizioni variando
l'espressione con "Conteggio" al posto di "Somma", ma mi conteggia
solo la prima solgia e me la riporta su tutte le altre, forse non
basta modificare solo quello vero?
Grazie ancora Marco
Paolo

 Paolo
Devi aggiungere una soglia iniziale (min vuoto, max zero) e una finale
(min 300,01 max vuoto), e modificare la formula per tenerne conto:
totale: Somma(IIf(([importo]>=[min] Or IsNull([min])) And
([importo]<=[max] Or IsNull([max]));[importo];0))
così tiene conto dei fuori soglia (oltre i 300) ed eventualmente anche
negativi (fino a zero).
Ovviamente sostituisci il 300 con il valore max della tua ultima soglia. 
Se poi aggiungi nella tabella soglie una riga con entrambe le soglie vuote
la query ti darà anche il totale generale.
Attenzione che "zero" e "campo vuoto" sono due cose diverse!


 -Marco-
Ah dimenticavo: per il conteggio aggiungi un altro campo calcolato, sempre
con formula di raggruppamento "Espressione", copi la formula dal totale e
cambi solo la parte finale da ";[importo];0))" a ";1;0))"


 - Mostra testo tra virgolette -
Marco, ...funzionissima!!!
Grazie ancora...
Paolo

 - Mostra testo tra virgolette -
Grazie Marco, funzionissima...
Paolo
Newsgroup: it.comp.appl.access
Titolo: Caratteri di riempimento in listbox

Ciao!
E' possibile visualizzare i caratteri di riempimento in una casella di
riepilogo (list box)?
E' possibile visualizzare una linea con colori diversi se si verifica
una certa condizione?
grazie!
  luca

 una certa condizione?
No!
Antonio

 ha scritto nel messaggio
news:6qF0c.40300$Kc3.1...@twister2.libero.it...

La 1° non l'ho capita nemmeno io.
la 2° in realtà e +/- fattibile ma occorre un'APICULTORE
come Lebans.
Su 
www.lebans.com
 trovi una soluzione molto complessa
per implementare una ListBox di Colori dedicati, l'esempio
in Oggetto usa una metodologia Random per la colorazione
tu però puoi sviluppando il Codice adattarla alle tue Esigenze.
P.S. quando ho detto Complessa intendevo Molto Complessa
ma fattibile.
Ciao.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: Ci sono problemi noti tra Access 2003 e Xp pro sp3 ?

Ho un'installazione con cinque pc, tutti xp pro sp2 ad eccezione di un che 
e' un sp3
Guarda caso su quest'ultimo non parte una form, non e' che si blocca o da 
errore, resta la' a 'pensare'
Sul processo Msaccess.exe il tempo cpu e' a zero, l'occupazione di ram e' 
simile a quella degli altri pc
Ci sono problemi noti su xp pro sp3 ed Access 2003 ?
Ciao e grazie
RobertoA 


Sulla form che non parte (form continua), nel form load ci sono alcune 
valorizzazionei di variabili globali, il rinfresco del recordset, il 
setfocus su una textbox del corpo
RobertoA
 

 wrote in message 
news:4940bd33$1...@newsgate.x-privat.org...

Intanto verifica se la Form parte escludendo tutto il
codice OnLoad.
Poi inseriscilo pezzo per pezzo onde verificare cos'è
che disturba (sempre che sia lì il disturbo...)
Bruno 

"RobertoA" <amorosik@tiscalinet,it > wrote in message 

Personalmente anche io uso Xp pro SP 3 e Access 2003 e nn ho mai avuto problemi....La versione di Access è la stessa su tutte le macchine? hai messo l'SP3 + hotfix?
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 messo l'SP3 + hotfix?
No, e' un pc con Xp professional Sp3 come lo vendono da cd-rom, appena 
installato e col driver laserjet Hp e basta, oltre ovviamente a run-time 
Access
Non e' attaccato ad internet e per il momento niente aggiornamenti Windows
Per hotfix intendi le patch che arrivano via Windows Update o qualcosa di 
specifico ?
Ciao e grazie
RobertoA

RobertoA ha scritto:

Hot fix è una patch per l'SP3 di Access ma se hai il runtime nn ti serve.....anche sulle altre macchine usi il runtime o hai access installato? Quale runtime usi? stessa versione su tutte le macchine?
Scusa le domande ma è per capire meglio.....il motivo per cui va solo su alcune macchine mi vien da pensare che vada ricercato sulle differenza tra i pc stessi..ma SP3 di win nn dovrebbe dare problemi



-----------------------------------------------
Elora, il problema era nel corpo della form continua
Per 'evidenzare' il record attivo, uso una routine che, sull'evento Form 
Current, inserisce una condizione di formattazione su tutte le textbox del 
corpo
Non ho ancora capito esattamente perche' ma le texbox avevano gia' tre 
condizioni memorizzate e l'inserimento di una quarta bloccava tutto
Ora, prima di 'condizionare' le textbox, 'scondiziono' tutto
Probabilmente il salvataggio della form in modalita' struttura a volte (ma 
quando esattamente)  mantiene le informazioni sulle formatcondition
Ciao
RobertoA

RobertoA ha scritto:

Questo si che è un problema noto!!!!! Se non lavori in MDE Access tende a memorizzare le formattazioni condizionali passate da codice.....vedi anche Sitocomune, li è spiegato tutto
Ciao e buon lavoro

Newsgroup: it.comp.appl.access
Titolo: Guida in linea: lacune

Ho notato che la guida in linea di VBA (ma anche di Access) mostra di aver
trovato dei risultati corrispondenti alla ricerca chiesta, però non
visulaizza l'argomento, come a dire: ho trovato l'argomento, ma non te lo
dico.
Ad es, ho cercato RecordCount, mi dice che lo ha trovato ma non lo
visualizza, e così una altra infinità di ricerche.
é un problema di installazione della guida, oppure è così, punto e basta?
Andrea



se usi la guida di access2000.......LO DEVE FA' ! :))))))
access 97 andava bene, acc2000 ce l'ha per difetto

Newsgroup: it.comp.appl.access
Titolo: Come 'sveltire' ricollegamento a tabelle

Usiamo delle procedure realizzate con Access 2003, che lavorano su dati 
tenuti da Firebird, acceduti via odbc come tabelle collegate
Se devo collegarmi ad un'altra fonte dati, il tempo di ricollegamento 
tabelle e' proporzionale al numero di tabelle usate
Nel caso il db sia di qualche centinaio di tabelle, il tempo diventa 
davvero fastidioso
C'e' modo, sempre usando il sistema delle tabelle collegate, di sveltire 
questo tempo di attesa?
Ciao e grazie
RobertoA

 ricollegamento tabelle e' proporzionale al numero di tabelle usate ....
 
Ma come fai a ricollegarti ???
 
.


Dim tdf As DAO.TableDef
 
CICLA SU TUTTE LE TABELLE
 
Set tdf = CurrentDb.CreateTableDef(nome_tabella)
tdf.Connect = "ODBC;DSN=NOME_DATABASE;UID=UTENTE;PWD=PASSWORD"
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = nome_tabella
CurrentDb.TableDefs.Append tdf
 
FINE CICLO
 
Set tdf = Nothing
 

 tdf.Attributes = dbAttachSavePWD
 
Quindi le tabelle NON le riconnetti 
bensi le RICREI
 
Non so se è più rapido ma potresti provare cosi:
si tratta di una riconnessione SOLO se la attuale connect
è diversa dalla connect che vuoi impostare
 
 
' <code>
Public Sub Riconnetti()
 
Dim Conny As String
Conny = "ODBC;DRIVER=SQL Server;SERVER=NomeServer;UID=NomeUtente;PWD=ValorePass;DATABASE=NomeDataBase"
 
' Questa riconnette le tabelle SOLAMENTE se la connessione è diversa
Dim tbl As DAO.TableDef
For Each tbl In DBEngine(0)(0).TableDefs
     If InStr(tbl.Connect, "ODBC") > 0 Then
        If tbl.Connect <> Conny Then
            tbl.Connect = Conny
            tbl.RefreshLink
        End If
     End If
Next
 
' Questa fa la stessa cosa sulle Query PassTrough  ( nel caso usi anche quelle )
Dim qdf As DAO.QueryDef
For Each qdf In DBEngine(0)(0).QueryDefs
    If Len(qdf.Connect) > 0 Then
        If qdf.Connect <> Conny Then
            qdf.Connect = Conny
        End If
    End If
Next
 
End Sub
' </code>
 
Facci sapere
Newsgroup: it.comp.appl.access
Titolo: AIUTO: recupero dati cancellati

Ciao a tutti
Ho il seguente problema, ho aperto access, stavo lavorando con una query che
elencava dei record che avevano un determinato campo che rispettava i
criteri impostati (un prefisso telefonico) io ho selezionato tutti questi
dati e gli ho cancellati, automaticamente sono stati cancellati dal
database.
Mi sono poi accorto che avevo cancellato quelli sbagliati!!
Nel file mdb perň i dati ci sono ancora, ma non sono piů visibili, li vedo
con un editor esadecimale.
La mia domanda č questa: č possibile recuperare questi dati dal file e farli
tornare con non cancellati?
Premetto che il file non ha subito modifiche.
Grazie in anticipo
--
Andrea Z.

con un editor esadecimale.
Forse e dico forse con l'editor esadecimale...
Antonio

tornare con non cancellati?
Un tecnico Microsoft, su un NG per sviluppatori, alla stessa domanda a
risposto NO.
Spiacente.
====================
Maurizio Spada
E-mail 
m.s...@esedra.it
Bergamo - Italy
====================

Newsgroup: it.comp.appl.access
Titolo: un bel carrellino...

Ciao ragazzi, ho un problemino!
    mi serve un carrello funzionante abbastanza complesso
qualcuno puň aiutarmi?
Grazie

 wrote in message
sCO46.6815$jT6.3...@twister2.tin.it...

Sarebbe importante sapere se lo vuoi con le 500 lire per sbloccarlo o senza
niente...
Antonio

 Antonio
RoDAgo riprese...
Si potrebbe avere anche la versione in Euro? :-)
A proposito, funzioneranno con le monete da 20 cent?
Cią Antonio


Credo che il tutto debba essere riportato all'indice NASDAQ! :-)
Alfio

qualcuno puņ aiutarmi?
certo, quanto mi dai?
--
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: report specifico





Salve a tutti,


ho l'esigenza che da una maschera nella quale vegano immesse 
delle informazioni con un pulsante di comando apra il report specificato dale in 
formazione immesse;


Per quanto concerne l'intervallo di tempo ho inserito nel 
campo Data della Query il criterio Between [Forms]![Mia maschera]![Mio 
controllo1] and [Forms]![Mia maschera]![Mio controllo2] e non ci sono problemi. 
Ora però ho la necessita di inserire una casella combinata che riporta i 
prodotti dei quali voglio visualizzare il report e Vi chiedevo la strada da 
seguire, devo impostare un criterio nella query origine del report? Se si 
quale?


Grazie a tutti per l'aiuto



 ha scritto nel messaggio
news:000801c07f9f$5c801780$0700...@tiscalinet.it...

====
Basta inserire la casella combinata e legarla al codice prodotto (se usi
l'autocomposizione fai subito). La proprietà che identifica il prodotto
scelto è 'Value'; attento però a controllare il valore nullo (cioè nessun
prodotto selezionato).
Ciao
LaLo
P.S.: perchè non scrivi in testo normale invece di HTML? Guarda il post di
Federico Luciani con oggetto INFO.

LaLo <reg...@LLtin.it> wrote in message 9415rb$ee$1...@pluto.sm.dsi.unimi.it...

Ciao io ho praticamente la stessa esigenza di "ILC Carrara", ho provato ad
applicare i suggerimenti offerti da Lalo ma con esito negativo, ti prego
potresti essere più chiaro?
potresti indicarmi il criterio da seguire?
Grazie per la tua disponibilità


Inserisci una combo box nella maschera; l'autocomposizione chiede quali
colonne inserire, specifica il codice prodotto e la descrizione. Lega il
controllo per il campo codice prodotto al campo della tabella sottostante.
Quando si tratta di effettuare una query e ti occorre il codice prodotto
scelto, utilizza la proprietà Value (ad esempio, se il controllo si chiama
cboProdotti, devi utilizzare cboProdotti.Value).
HTH
LaLo
Newsgroup: it.comp.appl.access
Titolo: DateDiff con risultato tipo h.m.s

Sono nuovo di access e per la tesi sto cercando di creare una colonna 
che calcoli il tempo intercorso tra l'arrivo e l'uscita (entrambi 
espressi in una data del tipo 08/10/2012 20:34.56). Con DateDiff riesco 
a visualizzare i minuti o i secondi totali di differenza, ma non riesco 
a formattarli in modo che al posto di, ad esempio, 126 minuti mi scriva 
2:06 o 2h06m o simile. Qualche suggerimento?
 
Grazie
 
 

Galerio ci ha detto :

soluzione trovata:
 
DateDiff("n",[Check In/Out].[Check In],[Check In/Out].[Check Out]) \ 60 
& " Hours " & DateDiff("n",[Check In/Out].[Check In],[Check 
In/Out].[Check Out]) MOD 60 & " Minutes" As ElapsedTime
 
 

 MOD 60 & " Minutes" As ElapsedTime
 
Volendo però complicare la cosa e cioè volendo che mi appaia il tempo 
nel formato:
giorni : ore : minuti
Come posso fare?
Ho pensato di fare una cosa del tipo
 
DateDiff("n",[Check In/Out].[Check In],[Check In/Out].[Check Out]) \ 
1440 & " Days " & (DateDiff("n",[Check In/Out].[Check In],[Check 
In/Out].[Check Out]) MOD 1440) MOD 60 & " Hours " & DateDiff("n",[Check 
In/Out].[Check In],[Check In/Out].[Check Out]) MOD 60 & " Minutes" As 
ElapsedTime
 
 
In pratica prendo il resto della divisione dei minuti per 1440 (un 
giorno) e lo ridivido per 60 prendendo ancora solo il resto (quindi 
faccio un MOD 1440 MOD 60) ma non mi funziona... speravo di poter 
risolvere con le parentesi ma non va. Il fatto è che se un intervallo 
di tempo è superiore ai 1440 minuti (cioè un giorno) se uso la 
divisione "/60" mi da anche numeri maggiori di 24. Per cui salta fuori 
una cosa del tipo:
1 giorno 27 ore
quando invece sarebbe dovuto essere 1 giorno e 3 ore (cioè 27 ore in 
totale).
 
Se invece potessi dividere due volte le ore prendendo per due volte 
solo il resto, allora riuscirei ad ottenere il risultato voluto.
 
Idee?
 
 
DateDiff('n',[Sepsi e shock settici]![Arrivo],[Sepsi e shock 
settici]![Uscita])\60
 
 

Segnalo XPOST:
http://www.iprogrammatori.it/forum-programmazione/access/datediff-che-mostri-giorni-ore-minuti-t15886.html#p8490386
 
 
@Alex



 Segnalo XPOST:
 
Scrivo anche direttamente la soluzione al mio caso:
 
DateDiff("n",inizio,fine) \ 1440 & " g " &
(DateDiff("n",inizio,fine) Mod 1440) \ 60 & " h " &
DateDiff('n',inizio,fine) Mod 60 & " m "

Newsgroup: it.comp.appl.access
Titolo: Non funziona

Ciao a tutti
Ho un DB che va quando vuole vi spiego:
qundo parte il db ho una maschera d'avvio predefinita con dei pulsanti che
tramite rutine abilitano varie opzioni ebbene a volte e non sempre prementdo
i pulsanti non succede niente; chiudo e riapro la maschera tutto ritorna a
funzionare.
Qualcuno mi sa spiegare il motivo.
Grazie mille salute a tutti.
--

"Marina F." <HIaz7.35257$1H1.3...@news.infostrada.i> ha scritto nel
messaggio news:WCm_7.41258$s04.1...@news.infostrada.it...

Che versione usi?
Magari se spieghi come sono fatte le routine posso aiutarti
Newsgroup: it.comp.appl.access
Titolo: Esiste una Mailist per Access?

Vorrei sapere se esiste una mailist per Acces!

Vorrei sapere se esiste una mailist per Acces!
No che io sappia, non esiste una mailist per Acces!
che io sappia non esiste neppure un compilatore per Access!
So pero' che esiste un ottimo ng dove trovi tanta gente che posta domande di
tutti i tipi
e molta altra che cerca di dare delle risposte utili e spesso ci riesce !
Se puo' andarti bene lostesso scrivi che ti posto l'indirizzo
Carlo Ve

Newsgroup: it.comp.appl.access
Titolo: grafici e access

ciao
ho un database in Access 2003 che gestisce i dati di una casa famiglia per 
persone disabili. Funziona piuttosto bene ma vorrei implementarlo con dei 
grafici che restituiscano delle statistiche, per esempio su quante persone 
vi entrano ogni mese, quante se ne vanno, da dove vengono ecc...
diciamo che la madre di tutte le tabelle è la tabella RESIDENTI:
IDUtente (PK)
Nome
Cognome
Data di Nascita (00/00/0000)
Data ingresso (00/00/0000)
Provenienza (Combo: Struttura Privata, Struttura Pubblica, Altro)
Sesso (Combo: M, F)
Devo creare una query apposita?  Ho provato con la creazione guidata grafico 
ma mi sono perso; forse non avevo i dati ottimizzati nel modo giusto...
Se mi spiegate come fare almeno per questa tabella come fare il resto lo 
trovo. Dovrei creare un grafico per avere gli ingressi per mese, la 
proporzione tra maschi e femmine, l'età media dei presenti mese per mese e 
suddividerne la provenienza.
grazie mille anticipate

 ha scritto nel messaggio
news:RRBbd.37197$b5.18...@news3.tin.it...

Ciao Luciano,
per creare il grafico, devi prima costruirti la query che ti rappresenti i
dati che vuoi visualizzare.
Ad esempio per avere gli ingressi per mese
dovrai costruire una query che sommi le presenze raggruppate per mese, anno,
con i tui dati sarà qualcosa di questo tipo:
Select Somma(IDUtente) as Tot, Year([Data Ingresso]) as Anno, Month([Data
INgresso]) as Mese from RESIDENTI Group BY Year([Data Ingresso]),
Month([Data Ingresso])
Userai poi questa query come origine dati nella creazione grafico.
Spero che per iniziare possa bastare, se serve altro aiuto chiedi pure.
saluti
Cinzia

ti ringrazio per il consiglio: con un po' di applicazione ho fatto tutto!!!
Ho creato le query (avevo intuito che partiva tutto da li9 e con la 
creazione guidata grafico nella finestra dei report ho fatto tutto.
ho un vecchio problema sulle maschere perň: come disabilitare lo scrolling 
del mouse? ho scaricato dal sito comune un database con una maschera di 
esempio ma č gestita da un modulo in VB che non so come "infilare" nella mia 
maschera. Non c'č qualcosa di piů semplice?
grazie
Newsgroup: it.comp.appl.access
Titolo: esecuzione query da pannello comandi

 
          Ciao, vorrei eseguire una query dal pannello comandi, ma quando vado in
"comando" tra le voci del menů a tendina non č prevista, devo creare una
macro ed eseguirla dal pannello? Grazie
montanaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

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

Newsgroup: it.comp.appl.access
Titolo: Report con troppi Record

Da novizio qual che sono ho utilizzato il database Northwind per adattarlo
alle mie esigenze, modificando il meno possibile.
In particolare ho sostituito la tabella impiegati con la tabella "Veicoli" e
ho inserito nella maschera "Clienti" la sottomaschera "Veicoli" collegate
attraverso il campo IDCliente.
La tabella "Veicoli" è in relazione con IDVeicoli della tabella Ordini.
Tutto funziona, ma quando faccio un'estrazione con i parametri per lo stesso
Cliente con i seguenti criteri passati alla Query Fattura
- tutte le targhe
- interventi dalla data alla data
ho come risultato un report con una infinità di record doppi, tripli e così
via a seconda del numero di targhe che sono presenti nella sottomaschera
Veicoli.
Mentre se faccio una estrazione singola utilizzando il pulsante "Fattura" il
tutto funziona.
Ringrazio per la Vs collaborazione e con l'occasione Buona Pasqua.
Giovanni

 ha scritto nel messaggio 
news:l5g1e.1119865$35.41...@news4.tin.it...

Ciao Giovanni da quanto ho capito(molto confuso)
dovresti gestire clienti autoveicoli  riparazioni.
Bene prova ad utilizzare in db di esempio(auto-composizione)
Gestione Manutenzione e parti da quello per le ulteriori
modifiche.
Ciao
Rino®
Newsgroup: it.comp.appl.access
Titolo: Testare se riga in elenco è selezionata!

Salve..Ancora io, ma ho ancura un dubbio:In una form ho una casella di 
riepilogo con alcune righe..Quando l'utente seleziona una riga gli 
propongo il msg se vuole una stampa e sì la lancio..Il problema è che, 
essendo a selezione multipla, cliccando su una voce già selezionata, e 
quindi con l'intenzione di deselezionarla,il pgm mi chiede se voglio 
una stampa, cosa che non voglio..Come posso fare il controllo sulla 
procedura on:click :Se riga non ancora selezionata chiedi stampa, se 
già selezionata non chiederla?Thanks!
-- 
Alby
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio 
news:200411191...@mynewsgate.net...

Ciao Alby
potresti risolvere il problema usando un pulsante di comando oppure 
sull'evento disattivato della casella di riepilogo. Il codice è lo stesso in 
entrambi i casi:
Private Sub Elenco2_LostFocus()
If Me.Elenco2.ItemsSelected.Count = 0 Then
    Exit Sub
    Else
    MsgBox "Vuoi la stampa?"
    End If
End Sub
Ciao, Carlo 

 ha scritto nel messaggio 
news:200411191...@mynewsgate.net...

Dal codice che ti ho spedito è possibile fare quello che tu vuoi,
aggiungendo
lo spezzone di codice che verifica se vi sono record selezionati:
Dim varItm As Variant
For Each varItm In TuaCasellaRiepilogo.ItemsSelected
'scrivi qui quello che vuoi fare
Next varItm
In pratica con il primo codice che ti ho mandato "conti" i record
selezionati;
è evidente che se non ci sono record selezionati esci dalla funzione.
Con l'integrazione di cui sopra, "scannerizzi" tutti i record selezionati e
per ogni record compi l'azione che ti serve.
Un consiglio è quello di leggerti bene il FONDAMENTALE file della guida,
ricco di spiegazioni, esempi e trucchi.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: dati sottomaschera non visualizzati

ciao
con A2000 sto cercando di realizzare una sottomaschera che, per ogni record 
della maschera principale, mi consenta di inseire nella sottomaschera.delle 
date, dei commenti ecc...
Ho creato 2 Tabelle:
Tabella 1 per i dati principali
Tabella 2 per i dati in di sottomaschera.
Ho creato Maschera 1 per i dati di Tabella 1.
Per creare la sottomaschera di Tabella 2 ho provato sia a crearla inserndola 
direttamente dal bottone "inserisci Sottomaschera" sia direttamente da 
Tabella 2 sia creando una Maschera 2 dedicata.
Il problema � che mi fa correttamente inserire per ogli record i dati ed in 
Tabella 2 me li ritrovo ma se Sfoglio in visualizzazione Maschera 1 con la 
sottomaschera non me li visualizza pi�.
In sostanza non collega i dati di Tabella 2 con quelli di Tabella 1, ovvero 
quanto inserisco nella sottomaschera non � in alcun modo collegato al record 
di riferimento... come posso fare?
Grazie 1000
cio 

 cio
Ciao,
Per fare quello che vuoi tu, ci deve essere un campo in "tabella 2"
che sia la chiave esterna di "tabella 1", esempio
Clienti (tabella1)
IDCliente (Chiave primaria)
Ragione sociale ...
...
NoteCliente (tabella2)
IDNota (Chiave Primaria)
IDCliente (Chiave esterna)
testo nota ....
....
Se la struttura è come questa, esistono le relazioni corrette, anche
la creazione guidata maschera fa quello che vuoi tu.
Ciao,
Max
Newsgroup: it.comp.appl.access
Titolo: PF una spinta grazie !





Ciao a tutti


 


So che sul sito comune oppure su Karl c'è una 
soluzione al mio quesito, ma non riesco a trovarla


Devo generare una numero di decisione progressivo 
del tipo AAAA.nnn (2006.001) che naturalmente il fattore "nnn" deve 
azzerarsi


al cambio anno


Mi date una prima spinta PF, lascio le pedate per 
dopo :-)


 


Grazie


 


Fabio



 ha scritto nel messaggio 
news:43f75f88$0$19497$5402...@news.sunrise.ch...
Ciao a tutti

Grazie
Fabio
Ciao Fabio
in questo NG non si usa rispondere a post con oggetto simile al tuo.
leggi il post di Roberto su come comportarsi in questo newsgroup.
cerca sul sito comune la faq 6.17 numerazione crescente per fatture e altro
e riposta, con un oggetto adeguato, la soluzione che trovi, potrà servire ad 
altri.
Daniele

Newsgroup: it.comp.appl.access
Titolo: aiuto mysql

salve non riesco a risolvere questa query in modo corretto, mi prende la data corretta ma le generalità del dipendente e il reparto dove lavora me li riporta errati e non capisco il perchè. Volevo inoltre chiedere, se il dipendente in questione risulta deceduto dalla tabella generale, può influire con il risultato finale della query?. Grazie.
 
#Considerando i dipendenti ancora in carica, si trovi quello che e' in carica da meno tempo. Si scrivano le generalità, il reparto dove lavora, la sua età e la durata del periodo lavorativo in mesi:
select g.nome, g.cognome, g.codice_fisc, r.codice as reparto, round(datediff(d.data_assunzione,g.nascita)/365.25) as eta,  max(d.data_assunzione)  as ultimo_dip,
round(d.data_assunzione/30.25) as mesi_lav
from generale g, reparti r, dipendenti d
where g.codice_fisc=d.codice_fisc and r.codice=d.reparto and d.data_dimissione is null 
 
 
PS: ho messo max perché con  la min selezionava la data errata, in questo modo seleziona la data più recente. Per il /30.25 e 365.25, l'insegnante faceva così durante il corso per la conversione mese e anno. Grazie ancora.

 
 
 
intanto :
round(datediff(d.data_assunzione,g.nascita)/365.25) as eta
 
non ha senso, ti da la differenza tra la data di nascita e quella di 
quando è stato assunto...
 
poi non capisco perchè nome e cognome tu li prendi da generale e non da 
dipendenti. in un db normalizzato tutti i dati del dipendente dovresti 
averli in dipendenti
 
poi round(d.data_assunzione/30.25) as mesi_lav non ti da i mesi lavorati...
i mesi lavorati li hai facendo la differenza tra data odierna e data 
assunzione specificando che vuoi il risultato in mesi
 
TIMESTAMPDIFF(MONTH,CURDATE(), d.data_assunzione);
 
 
 > Per il /30.25 e 365.25, l'insegnante faceva così durante il corso per 
la conversione mese e anno.
 
insegnante di cosa? non ha senso questa divisione "a caso"
 
 
BFS
 


salve, allora purtroppo le generalità come nome, cognome e nascita sono solo nella  tabella generale, in tutte le altre tabelle è presente solo il codice fiscale. Poi per la conversione in mesi o anni durante il corso si è usata sempre la divisione per 365.25 o 30.25. Grazie ora riproverò con questa soluzione.
Newsgroup: it.comp.appl.access
Titolo: accodamento senza duplicati

buongiorno,
ho la seguente query di accodamento:
 
INSERT INTO class_formazione ( nome, cognome, [codice fiscale], mail, 
RADRL, Categoria, Afferenza, cdl, matricola )
SELECT Sheet1.Nome2, Sheet1.Cognome, Sheet1.[Codice Fiscale], 
Sheet1.[Posta elettronica], Sheet1.RADRL, Sheet1.Categoria, 
Sheet1.Afferenza, Sheet1.[Corso di Laurea], Sheet1.Matricola
FROM Sheet1 LEFT JOIN formaz_dati ON Sheet1.[Codice Fiscale] = 
formaz_dati.CF
WHERE (((formaz_dati.CF) Is Null));
 
per creare classi senza duplicati ma non funziona, cosa sto sbagliando?
 
Akery
 
-- 
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 

 Akery
 
INSERT INTO T1 ( F1 )
SELECT F1
FROM T2
WHERE F1 Not In (SELECT F1
FROM T1;);
 
Questa APPEND tutti i record di T2, esclusi quelli che si trovano
già in T1.
 
Bruno

Newsgroup: it.comp.appl.access
Titolo: ListView...selezionare/deselezionare Items...ECCO QUA !!!

Hai ragione Maurizio...quindi ecco qua la soluzione:
Poniamo che LV si il nome dato alla ListView
Dim LV As MSComctlLib.ListView
Set LV = Me!LV.Object
Dim itm As ListItem
For Each itm In LV.ListItems
itm.Selected = False     'oppure True per selezionarli'
Next
Set itm = Nothing   'release object

 Set itm = Nothing   'release object
    Ottimo. Prova anche cosi' e dicci se funziona.
Private m_lvw1 As MSComctlLib.ListView
Private Sub Form_Load()
    Set m_lvw1 = Me.lvw1.Object
    With m_lvw1
        .View = lvwReport
        .MultiSelect = True
        .FullRowSelect = True
    End With
End Sub
Private Sub Form_Unload( _
  ByRef Cancel As Integer)
    Set m_lvw1 = Nothing
End Sub
'
' Deseleziona lvw1
'
Private Sub Command1_Click()
    DoEvents
    Me.lvw1.SetFocus
    With m_lvw1
        .MultiSelect = False
        .ListItems(1).Selected = True
        .MultiSelect = True
    End With
End Sub
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: problema con BeforeUpdate

sull'evento beforeupdate di una maschera, ho una routine che verifica che le
modifiche siano volute e chiede conferma.
il msg appare, con i suoi bravi bottoncini (yes/no), ma il tutto si inchioda
quando viene generato da una nuova selezione in una combo box.
mi spiego meglio:
maschera dettagli fornitore.
nell'intestazione maschera ho una combo che mi permette di selezionare il
fornitore.
modifico i dati relativi al fornitore selezionato
dalla combo scelgo un'altro fornitore
messaggio di controllo
se rispondo sì, tutto fila liscio, se dico no (e quindi cancel=true)  tutto
si blocca sulla riga in cui reimposto la prop Form.RecordSource dicendo
"impostazione di proprietà non valida"
credo che sia perchè io annullo l'evento beforeupdate, ma non posso
annullare gli eventi che si verificano dopo (modifica combo e AfterUpdate
della combo)
mi sapete dare una mano a trovare un altro modo per controllare le modifiche
alla maschera?
tia
    Paolo
--
+----
| no reply-to address available
| use the newsgroup
| tnx
+----

 alla maschera?
Io di solito faccio così
Private Sub Form_BeforeUpdate(Cancel As Integer)
If test_vari=true Then
  messaggi di errore vari per controllare i dati inseriti
End If
Select Case MsgBox("Salvare la Commessa?", vbQuestion + vbYesNoCancel +
vbDefaultButton2, "Salvataggio")
  Case vbYes
     'non fare nulla, esegue il salvataggio
  Case vbNo
     DoCmd.RunCommand acCmdUndo 'annulla le modifiche
  Case vbCancel
     Cancel = True  'resta in editing, non salva e non annulla
End Select
End Sub
ciao, max

Newsgroup: it.comp.appl.access
Titolo: eseguire una sub presente in un altra form

da una form2 vorrei eseguire una sub contenuta in una form1 dichierata in 
modo privato
visto che la form1 è aprta c'è un modo di richiamarla da form2 oppure 
siccome è una sub privata
la posso richiamare solo da form1?
grazie. 

 ha scritto nel messaggio 
news:434e5759$0$8481$5fc...@news.tiscali.it...

La puoi richiamare dalla form esterna solo se la dichiari pubblica
Mat. 

 ha scritto nel messaggio news:434e5759$0$8481$5fc...@news.tiscali.it...

Qualche messaggio fa si è parlato di questo; cercalo...
Ciao.
-- 
Sergio MAZZA 

La puoi richiamare solo dalla Form1.
Non ho mai provato ma potresti istanziare nella Form2 un oggetto di
tipo Access.Form(dove la form è la Form1) e vedere se eseguendo un
frm.NomeSub viene eseguita...!
dim frm as Access.Form
Set frm=Forms!Form1
frm.NomeSub()
Ciao
@Alex
Newsgroup: it.comp.appl.access
Titolo: Problema con Eval()

Buongiorno a tutti/e,
sto impazzendo su questo codice, all'esecuzione del quale Access
risponde: "impossibile trovare il nome di funzione immesso
nell'espressione". Eppure la funzione
contatti_leggi(msc as form)
esiste, pure nello stesso modulo dove sto scrivendo questo codice; se
la chiamo senza eval funziona correttamente. Dove sto sbagliando???
Dim msc As Access.Form, tipo As String, stringa As String
Set msc = [Forms]![input1]
tipo = "contatti"
stringa = tipo & "_leggi([Forms]![" & msc.Name & "])"
' chiamata alla funzione, OK
Call contatti_leggi([Forms]![input1])
' visualizza la stringa passata ad eval...
MsgBox stringa
' dovrebbe eseguire la stessa chiamata ma non va
Call Eval(tipo & "_leggi([Forms]![input1])")
Perché Eval non trova quella funzione?
ciao,
Panathos


Non è Eval che sbaglia ma tu...!
Se la funzione è come hai detto questa:
contatti_leggi(msc as form)
ti devi accorgere che l'oggetto da passare come parametro non è il
NOME della maschera ma l'oggetto stesso, quindi non potrà mai
funzionare, se togli Eval mi piacerebbe sapere come la chiami perchè
se passi il NomeForm la dove è previsto un oggetto Form non ci credo
nemmeno se lo vedo che funziona....!
Non è possibile usare EVAL per passare Oggetti, quindi devi modificare
la Function/Sub in modo che prenda una Stringa come NomeForm, quindi
all'interno
userai il riferimento Implicito:
Forms(NomeForm)
Ovviamente perdi la flessibilità della ricorsione.
@Alex

 nemmeno se lo vedo che funziona....!
Si si infatti anche nel codice che avevo postato la prima chiamata va
a buon fine, ed infatti viene passato l'oggetto maschera.
Grazie,
Panathos

Newsgroup: it.comp.appl.access
Titolo: salvare immagini da link web

ciao ragazzi
per creare codici qr sfrutto le api di google e ottengo i codici che mi 
servono per gli articoli di magazzino
es:
http://chart.apis.google.com/chart?chs=200x200&cht=qr&chl=quanto+%C3%A8+bello+lavorare+con+access
come posso in automatico salvare l'immagine del link dentro una cartella 
locale del pc con nome a mia scelta? adesso è una operazione che faccio 
a mano con il classico "salva con nome"
grazie dell'aiuto
BFS


risolto
grazie lo stesso. se può servire:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As 
Long
da richiamare con
returnValue = URLDownloadToFile(0, "
http://miosito.ii/miafoto
", _
"c:\x.jpg", 0, 0)
ciao BFS
Newsgroup: it.comp.appl.access
Titolo: uso corretto di Opneargs

Salve!
su doppio clik pulsante ho:
dim mVar as variante
 mVar = 
Me.Parent.Name
 & "|" & Me!CboProdotto
 DoCmd.OpenForm "M_Prodotti", , , , , acDialog, mVar
 
Ora se imposto IdCtl as integer ho errore
mentre come string no, ma credo che non sia corretto
    Dim strFrm As String, idCtl As String
 
    If Not IsNull(Me.OpenArgs) Then
      strFrm = Split(Me.OpenArgs, "|")(0)
      IdCtl = Split(Me.OpenArgs, "|")(1)
    End If
 
    If strFrm = "MOrdini" Then
        ecc..
    End If
 
    If IdCtl > "" Then
      Me.Recordset.FindFirst "IdProdotto = " & idCtl
    Else
      DoCmd.GoToRecord , , acNewRec
    End If
 
grazie


aggiungo ...
ho errore se Me!CboProdotto è su record vuoto
e anche con nz(Me!CboProdotto) ho errore

Il giorno venerdì 22 gennaio 2021 alle 11:05:49 UTC+1 Alberto Luzi ha scritto:

Il Dato restituito in quel caso dallo Split è Variant(String) quindi non va bene.
Eventualmente: IdCtl = Cint(Split(Me.OpenArgs, "|")(1))
 
Tuttavia se quello che passi è un IDCounter, userei LONG.
 
Eppure qualche cazzaro, non dichiara nulla così non ha errori...  
 
@Alex

Vuoto = NULL ed Integer, nè LONG non supporta NULL.
Quindi o dichiari Variant o metto un NZ(Me!CboProdotto, -1) e gestisci il -1 come valore non valido.
 
@Alex


grazie Alex
ha senso questo codice?
con due
if Not IsNull(Me.OpenArgs) Then


Certo, teoricamente, ma non nel tuo caso in quanto OpenArgs avrà sempre valorizzata la 1° parte, mentre non è detto per la 2° come hai visto:
Args=
Me.Parent.Name
 & "|" & Me!CboProdotto 
 
Di fatto non devi discriminare OpenArgs, ma il 2° Parametro...
 
@Alex


Dim strFrm As String, IdCtl As Long
strFrm = Split(Me.OpenArgs, "|")(0)
IdCtl = Split(Me.OpenArgs, "|")(1)
 
If strFrm = "MOrdini" Then
ecc..
End If
 
If IdCtl <> -1 Then

Newsgroup: it.comp.appl.access
Titolo: Alternative al Campo contatore

Il seguente codice sostituisce un campo di tipo contatore (che non
voglio/posso usare), in valore predefinito del campo [CODICE].
=IIf((DMax("[RUBRICA]![CODICE]";"RUBRICA";"[RUBRICA]![CODICE]")+1) Is
Null;10001;DMax("[RUBRICA]![CODICE]";"RUBRICA";"[RUBRICA]![CODICE]")+1)
Funziona benissimo ma non con le maschere continue si inseriscono più record
alla volta, il nuovo record presenta lo stesso valore di quello appena
inserito.
Naturalmente si può fare con un apposito codice evento, ma col valore
predefinito sarebbe tutto più svelto e pratico.
Si può fare?

 ha scritto nel messaggio

Io userei l'evento corrente:
Private Sub Form_Current()
    If Me.NewRecord Then
        Me.Cam1.DefaultValue = "'" & TuaFormula & "'"
    End If
End Sub
Sib

 ha scritto nel messaggio
news:3o4w7.46292$0Y2.4...@news.infostrada.it...

Che comodità l'auto-gestione dei progressivi, così come l'ha semplificata
Sib poi...
Io per comodità gestisco così che i ogni caso è esattamente come dice Sib:
 Private Sub Form_Current()
     If Me.NewRecord Then
         Me.Cam1.DefaultValue = NewProgress
     End If
 End Sub
Private Sub NewProgress()
    .......... Tutto iltuo codice
End Sub
@Alex.

 Io per comoditŕ gestisco cosě che i ogni caso č esattamente come dice Sib:


 > > End Sub
Sib
PS ovviamente devi sostituire i punti e virgola con le virgole e fare
precedere i riferimenti ai controlli da Me.

 Sib poi...
Cioe'?

"Sib dall'ufficio" <cerrise...@SPAMtiscalinet.it> ha scritto nel
messaggio news:9puq16$fjb$1...@serv1.iunet.it...

Ti pregherei di ripostare la formula in quanto non la riesco ad utilizzare
=IIf((DMax("[RUBRICA]![CODICE]";"RUBRICA";"[RUBRICA]![CODICE]")+1)
IsNull;10001;DMax("[RUBRICA]![CODICE]";"RUBRICA";"[RUBRICA]![CODICE]")+1)
c'è forse qualche errore?
grazie in anticipo

 grazie in anticipo
Come ripostare, basta guardare l'help:
=IIf(IsNUll(DMax("[CODICE]";"RUBRICA")+1);10001;DMax("[CODICE]";"RUBRICA")+1)
Dai un'occhiata alle Parentesi...!
@Alex
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie in anticipo
Qualche errore....??? Guarda l'help sull'utilizzo di DMAX:

Newsgroup: it.comp.appl.access
Titolo: Calcolo in SM

Ciao,
Nella "miaSMaschera" vorrei effettuare un calcolo a fronte dopo
aggiornamento del controllo "qtà"
nel controllo "Prezzo" inserisco il prezzo
nel controllo "Qtà" inserisco la quantità movimentata
nel controllo "Sconto" inserisco la percentuale di sconto a numero
nel controllo "ImportoSconto" vorrei calcolare lo sconto praticato in valuta
ho pensato di inserire questa formula:
Me![ImportoSconto] = Me![Prezzo] * Me![Qtà] / 100 * Me![Sconto]
ma è stato un cattivo pensiero.
ciao a tutti CF

 ciao a tutti CF
Me![ImportoSconto] = Me![Prezzo] * Me![Qtà] * ( Me![Sconto] / 100 )
Dove lo Sconto deve essere un numero tra 0 e 100, nel caso in cui la
percentuale la memorizzi con un numero da 0 a 1 basta togliere il / 100
dalla formula precedente.
Per capirci se io compro un prodotto da 1000 euro e mi fanno lo sconto del
10% per calcolare l'importo dello sconto:
1000 * ( 10 / 100) = 1000 * 0, 1 = 100 Euro.
Ciao, Antonio.

 grazie antonio, faccio le dovute prove e .... ci sentiamo.
saluti CF

 Tutto OK Grazie CF
Newsgroup: it.comp.appl.access
Titolo: ancora sui beeee... che pecora :-)

Un saluto a tutto il NG.
sulla scorta di un quesito che ho postato venerdě scorso, per il quale il
buon Lorenzo mi ha dato giusti lumi,
mi trovo adesso a risolvere un problema successivo:
ho un fe che punta un file be che si trova in rete. Tutto ok (dopo l'aiuto
di cui sopra..eheheh)
accade perň che vi sono maschere nelle quali avevo inserito del codice con
il quale aprivo delle tabelle del file be.
Ovviamente anche questo codice, per poter funzionare, deve essere
modificato, perchč deve contenere il percorso di rete dove risiede il file
be.
Ed eccomi al dunque.
Vorrei fare in modo che, dichiarando una variabile che funzioni in tutto il
db, ad essa assegno il percorso di rete dove risiede il file che mi
interessa e la inserisco direttamente nel codice delle singole maschere.
Cosě facendo non dovrei impazzirmi in caso di cambiamenti nel path del file
be.
Vi sembra un modo di procedere corretto?
Modo di procedere corretto = true: come si dichiara una variabile
'globale'???
Modo ci procedere corretto=false ... anzi č proprio schifoso: che sistema
posso adottare per velocizzare questi aggiornamenti?
Un grazie anticipato
Goose

'globale'???
Non lo so ...non so neanche se esiste una cosa cosi'. Ho creato una
tabella nei miei fe, con un solo record, e li' metto i percorsi dei
diversi file e gruppi di file esterni che vengono manipolati (percorsi
che potrebbero anche essere diversi da un utente all'altro). Nel
codice la funzione dlookup legge il percorso che serve.


Io ho fatto proprio così creando un modulo "dichiarazioni" e dichiarando le
variabili:
Public Const hdlav = "c:\"
Public Const dirlav = "C:\Mattia\mio\progetti\Confcoop"
Public Const miodb_fe = "gestcop.mdb"
Public Const miodb_be = "db_gestcop.mdb"
Aloa                Mattia


Vi ringrazio della consulenza.
Adesso vado molto piů spedito.
Un saluto
Goose

 > Aloa                Mattia
Questo va bene se tu sai questi dati a priori. Altrimenti ti dichiari delle
variabili globali (quindi come sopra ma senza il const e senza
l'assegnamento) e poi in qualche punto del programma, magari all'avvio, ti
fai dare dall'utente o lo ricavi da qualche parte il valore da dare a quella
variabile e lo assegni. Sarà visibile per tutta la sessione da qualunque
parte!
Antonio
Newsgroup: it.comp.appl.access
Titolo: proteggere un database

sto cercando di rendere inacessibile la parte delle strutture di un database
come posso fare. Voglio evitare che un utente con la combinazione ALT+F4
riesca ad entrare nella maschera del database. Qualcuno sa aiutarmi?
Grazie

 ha scritto nel messaggio
news:sHWna.33534$LB6.7...@news1.tin.it...

prova a convertire il tuo db da mdb a mde per maggiori informazioni prova la
guida in linea F1 oppure fatti un giro sul sito comune 
www.sitocomune.com
ciao e buona pasqua a tutti

 ha scritto nel messaggio
news:TBYna.52373$T34.1...@news2.tin.it...


 ha scritto nel messaggio
news:AT9oa.35755$LB6.8...@news1.tin.it...

Sarebbe buona cosa rispondere inserendo il proprio messaggio dopo quello
ricevuto, per una migliore leggibilità del 3D.
In ogni caso esiste la protezione a livello Utente, nella quale puoi
definire
Tipologia di Utenti e relativi privilegi, tra i quali gli accessi agli
oggetti.
Penso però che la soluzione della creazione del MDE sia decisamente
soddisfacente, tieni conto in'oltre che è possibile disabilitare la
pressione
del tasto SHIFT all'avvio, il che ti garantisce ulteriormente....!
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: collegare un docmunto word

mi piacerebbe creare una maschera che abbia un pulsante che mi apra un
documento word riferito al valore prenente in un campo, Esempio:
Nome: Mario
Cognome : ROSSI
Curriculum: c:\cartella\documenti\rossi_curriculum.doc
E' evidente che il campo: Curriculum (formato collegamento ipertestuale)
debba essere digitato dall'utente. GRAZIE

 ha scritto nel messaggio
news:ca2cn7$o0l$1...@lacerta.tiscalinet.it...

Non è affatto necessario usare campi di tipo Collegamento ipertestuale.
Se il controllo in cui l'utente digita il cognome si chiama appunto Cognome
ed il pulsante di comando si chiama MioPulsante, esegui la seguente riga di
codice VBA:
Me!MioPulsante.HyperlinkAddress = "c:\cartella\documenti\" _
& Me!Cognome & "_curriculum.doc"
Ciò fatto, quando pigerai il pulsante di comando verrà aperto il file word
specificato.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Ciň fatto, quando pigerai il pulsante di comando verrŕ aperto il file word

Newsgroup: it.comp.appl.access
Titolo: Una condizione su un report che non vuole funzionare.

Buongiorno a tutti.
Ho un report che contiene un campo "CostoInvestimento" che può essere uguale a "Costo" o a "Investimento".
Sul retro di questo report, fisicamente è una cartellina cartacea formato A3, ho una serie di etichette non visibili delle quali, per semplicità espositiva, ne considero solo due.
 
"etichetta78" pari a una casella vuota con solo il bordo visibile.
"etichetta341" una etichetta con la scritta "non necessario".
 
in pratica vorrei che se il campo "CostoInvestimento" è uguale a:
---> "Costo" visualizzasse la casella con la scritta "non necessario"
---> "Investimento" visualizzasse la casella vuota con il bordo
 
Ho scritto questo codice su corrente ma non funziona e non mi ci raccapezzo più....
 
Private Sub Report_Current()
If Me.CostoInvestimento.Value = "Costo" Then
    Me!Etichetta78.Visible = False
    Me!Etichetta341.Visible = True
Else
    Me!Etichetta78.Visible = True
    Me!Etichetta341.Visible = False
 
     End If
End Sub
 
 
Qualche anima buona ha voglia di darmi un occhiata  ? grazie

 ...
 
Direi che � colpa dell'evento che hai scelto.
"Su corrente" solo succede se apri il report in vis. report o layout
e fai clic su un record.
 
Prova il codice p.e. nell'evento "Su stampa" o "Su formattazione"
della sezione dove si trova il controllo con CostoInvestimento.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

ciao Karl....
perfetto puntuale e preciso, come sempre.
 
grazie infinite e buon fine settimana.
Newsgroup: it.comp.appl.access
Titolo: Campi oggetto ole

Qualcuno sa come ricavare il path completo di un oggetto ole salvato in un
campo oggetto ole di una tabella?
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 campo oggetto ole di una tabella?
http://support.microsoft.com/?id=170531
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

Newsgroup: it.comp.appl.access
Titolo: [OT]Informazione su A2KSR1.exe

Buona Sera  a tutti,
sto cercando da una settimana di aggiornare il mio office 2000 con la
versione Sr1 dopo una formattazione, ma dopo UN PO' (circa 2 ore)  di
collegamento il download si blocca dicendo che è stato impossibile
effettuare il download dei file di office Sr1.
Chiedo se qualcuno ha da darmi qualche link dove trovare l' intero file da
scaricare senza passare per il update della microsoft.
Per non creare nessuna polemica, la mia versione è regolarmente registrata è
solo che non avendo ancora una flat e un modem da 56K, mi scoccia dover fare
il collegamento per 2 ore ogni volta e poi vedermi sto' messaggio.
Grazie Comunque.
Alessandro

"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:M_s6a.152397$ZE.44...@twister2.libero.it...

Prova con questo link:
http://office.microsoft.com/italy/downloads/2000/wecsec.aspx
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Per non creare nessuna polemica, la mia versione č regolarmente registrata
č
Attento ai focheracci alle tue spalle...
Ehje eeh heehee ee hehehhheh
Antonio


Grazie Roberto, ci provo anche se adesso ho finito di attivare una Flat e
non dovrei avere problemi per lo scarico.
Grazie per il tuo interessamento.
Alessandro


Ciao Antonio,
essendo un poco "duro"  non ho capito cosa intendi.
Quando mi sveglierņ un pņ magari capirņ il tuo 3D :-)
Buona Giornata
Alessandro

 Quando mi sveglierņ un pņ magari capirņ il tuo 3D :-)
Parlavo di coda di paglia... :-P
Antonio


Se ti può essere di aiuto per dormire la notte ti posso anche inviare tutti
i dati delle Licenze office 2000 e Xp che ho nella ditta...
Basta che me lo chiedi....
Ciao
Alessandro

"Alex De Rossi" <omis...@SPAMlibero.it> ha scritto nel messaggio
news:taP6a.154847$YG2.4...@twister1.libero.it...

Ecco perchè non riuscivo a dormire stanotte...
Pensavo fossero quelle due mulatte, invece...
Ehe hee hhee ehe hehe ehe
Antonio