title: Non riesco a fare una query

author: Antonio Misericordia

text:
Ti mando una funzione che totalizza i dati per centro di costo e
combinazioni di Check. Credo sia abbastanza veloce. Ricordati che devi
creare una tabella di appoggio (sta scritto nei commenti). Spero di non aver
capito male, cioč che non ci sono altri Check4, Check5, Check6, etc...
Comunque, anche in questo caso, facendo una piccola modifica puoi espandere
il numero dei Check (Vedi la parte relativa alla generazione dei record
vuoti).
'//////////////////////////////////////////////////////
Public Function CalcoloTotaliCentroCheck() As Boolean
'//////////////////////////////////////////////////////
' Titolo: CalcoloTotaliCentroCheck
' Autore: Antonio Misericordia
' Data  : 22-10-2000
' Note:
' Questa funzione legge i dati presenti nella tabella relativa ai costi
' e li totalizza in una tabella relativa ai centri di costo ed a tutte
' le possibili combinazioni dei check 1 2 e 3.
' Preliminarmente viene azzerata la tabella totali ed in essa vengono
inseriti
' tanti record vuoti per quante sono le possibili combinazioni dei 3 check.
' (Nota: viene inserita anche la configurazione con i 3 check = false)
' La tabella totali puň essere utilizzata come tabella sorgente della
' query (o del report) che presenta i totali.
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim vCheck(1 To 3) As Boolean
Dim dbc As Database
Dim dsDati As Recordset
Dim dsTotali As Recordset
Set dbc = CurrentDb
' /////////////////////////////////////////////////////////////////////////
' Questa č una tabella locale che devi creare nel database programmi.
' La sua struttura č perfettamente identica alla tabella contenente i dati.
' In piů deve avere la chiave primaria ("PrimaryKey") composta dai campi:
' CENTRO_DI_COSTO
' CHECK1
' CHECK2
' CHECK3
' /////////////////////////////////////////////////////////////////////////
GoSub InizializzaTabellaTotali
Set dsDati = dbc.OpenRecordset("TabellaCentrieCheck") ' quella di cui
riporti il tracciato record.
If Not dsDati.EOF Then
    GoSub CreaCombinazioni
    dsDati.MoveFirst
    Do Until dsDati.EOF
        dsTotali.Seek "=", dsDati("CENTRO_DI_COSTO"), dsDati("CHECK1"),
dsDati("CHECK2"), dsDati("CHECK3")
        If dsTotali.NoMatch Then
            dsTotali.AddNew
            dsTotali("CENTRO_DI_COSTO") = dsDati("CENTRO_DI_COSTO")
            dsTotali("CHECK1") = dsDati("CHECK1")
            dsTotali("CHECK2") = dsDati("CHECK2")
            dsTotali("CHECK3") = dsDati("CHECK3")
            dsTotali("COSTO") = dsDati("COSTO")
            dsTotali.Update
        Else
            dsTotali.Edit
            dsTotali("COSTO") = dsTotali("COSTO") + dsDati("COSTO")
            dsTotali.Update
        End If
        dsDati.MoveNext
    Loop
End If
dsTotali.Close
dsDati.Close
Set dbc = Nothing
CalcoloTotaliCentroCheck = True
Exit Function
'////////////////////
CreaCombinazioni:
'////////////////////
dsDati.MoveFirst
Do Until dsDati.EOF
    dsTotali.Seek ">=", dsDati("CENTRO_DI_COSTO")
    If dsTotali.NoMatch Then
        GoSub InserisceRecordCombinazioni
    ElseIf dsTotali("CENTRO_DI_COSTO") <> dsDati("CENTRO_DI_COSTO") Then
        GoSub InserisceRecordCombinazioni
    End If
    dsDati.MoveNext
Loop
Return
'///////////////////////////
InserisceRecordCombinazioni:
'///////////////////////////
    For i = 0 To 1
        For j = 0 To 1
            For k = 0 To 1
                vCheck(1) = (i = 1)
                vCheck(2) = (j = 1)
                vCheck(3) = (k = 1)
                dsTotali.AddNew
                dsTotali("CENTRO_DI_COSTO") = dsDati("CENTRO_DI_COSTO")
                For l = 1 To 3
                    dsTotali("Check" & l) = vCheck(l)
                Next l
                dsTotali.Update
            Next k
        Next j
    Next i
Return
'////////////////////////
InizializzaTabellaTotali:
'////////////////////////
    Set dsTotali = dbc.OpenRecordset("TotaliCentriCheck")
    dsTotali.Index = "PrimaryKey"
    ' Reset Tabella costi totali:
    Do Until dsTotali.EOF
        dsTotali.Delete
        dsTotali.MoveNext
    Loop
    dsTotali.Close
    Set dsTotali = dbc.OpenRecordset("TotaliCentriCheck")
    dsTotali.Index = "PrimaryKey"
Return
End Function
Spero di esserti stato di aiuto.
Ciao e Buon Lavoro. Se hai problemi puoi contattarmi.
Antonio Misericordia
--
Posted from
smtp5.libero.it
 [193.70.192.55]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Non riesco a fare una query

author: LC

text:
Con una bella query a campi incrociati potresti risolvere il problema,
ho riprodotto il tuo DB ed ho posto il campo CENTRO_DI_COSTO come
intestazione di riga, il campo COSTO come valore e in Formula somma ed
un nuovo campo CHECK:=CHECK1&CHECK2&CHECK3 (con formule di conversione
e qualche iif si può fare molto meglio...) come intestazione colonna.
Non so se è quanto ti aspettavi ma questo è quanto in 5 minuti tra una
query e l'altra mi
è venuto in mente.
Ciao, Luigi.
Pivo <
hge...@tiscalinet.it
> wrote in message
8t1b3j$36q0$1...@stargate1.inet.it...



title: Non riesco a fare una query

author: Pivo

text:
> Spero di esserti stato di aiuto.
>
azz! acc!
una cosetta di base...... provo ad adattarla, grazie a tutti comunque


title: Anomalia db (Modulo non trovato)

author: NETisLANd

text:
Ieri ho eseguito uno storage di 40 gb di dati da un server ad un altro dove
risiedeva il database di access contenente tabelle collegate al db oracle,
il completamento del backup č terminato senza segnalazioni anomale. Questa
mattina gestendo le stesse tabelle con maschere create ad hoc lo stesso db
ha segnalato inizialmente "Modulo non trovato" e successivamente errore di
disco o rete. Dopo aver sia compattato (con i privilegi di user) e riavviato
il server il problema persiste anche se non segnala piů errore di disco o
rete.
Saluti spero di ricevere presto qualche consiglio.
Grazie
Giordano.


title: Anomalia db (Modulo non trovato)

author: MA

text:
"NETisLANd" <
n...@net.net
> ha scritto nel messaggio
news:brc3m7$nk7$1...@fata.cs.interbusiness.it...

Prova a vedere se son spuntati tutti i riferimenti.
MAssimiliano


title: Anomalia db (Modulo non trovato)


title: Anomalia db (Modulo non trovato)

text:
> Prova a vedere se son spuntati tutti i riferimenti.
> MAssimiliano
>
>
I riferimenti non dovrebbero essere stati toccati, comunque sono invariati.
Non so proprio da cosa dipenda.
Giordano


title: Anomalia db (Modulo non trovato)

text:
"NETisLANd" <
n...@net.net
> ha scritto nel messaggio
news:brc6qa$3kb$1...@fata.cs.interbusiness.it...

cioč hai aperto un modulo qualsiasi, strumenti, riferimenti
e non hai notato nessun "MANCA: .."?
MAssimiliano


title: Anomalia db (Modulo non trovato)

author: Porello

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:HuhCb.15721$i_5....@news.edisontel.com...

Il problema e' capitato anche a me......e succede quando cerchi di duplicare
un oggetto!!!!
Risolvi il tutto installando tutti i SP.
Dopo averli installati apri un mdb nuovo e importi tutti gli oggetti del
vecchio danneggiato.
Ciao
>
>


title: Anomalia db (Modulo non trovato)

text:
> > > I riferimenti non dovrebbero essere stati toccati, comunque sono
> > invariati.
> > > Non so proprio da cosa dipenda.
> > > Giordano
> > >
> > cioč hai aperto un modulo qualsiasi, strumenti, riferimenti
> > e non hai notato nessun "MANCA: .."?
> >
> > MAssimiliano
>
> Il problema e' capitato anche a me......e succede quando cerchi di
duplicare
> un oggetto!!!!
i riferimenti erano tutti spuntati,
cmq l'ultima soluzione di porello č troppo laboriosa, cmq č sicuro che le
cause sono soltanto quando si tenti di duplicare un oggetto?
Grazie Giordano.



title: Test prestazioni: quantità dei dati inseriti in una tabella.

author: OneEDP

text:
Sto cercando di testare delle connessioni ODBC.
Per quanto riguarda cronometrare ci sono diverse soluzioni, ok.
Ciņ che mi manca č sapere quanti dati ho ricevuto dolo l'esecuzione di una
query pass-through, magari, che ne so usando, un OCX da qualche parte del
mondo.
Cerco la luna?
Il dato che VERAMENTE servirebbe č sapere durante una determinata
connessione TCP/IP (e non tutto il traffico TCP/IP di quel PC) la quantitą
di byte inviata e ricevuta (nonché i tempi). Il tutto sotto controllo da
VBA...
Una soluzione abbastanza accettabile:
Sarebbe sufficiente sapere ad esempio di quanto č "cresciuta" (in termini di
byte) una tabella locale dopo una
INSERT INTO ... SELECT * qryPassThrough.
C'č una soluzione meno macchinosa che contare le righe nuove e moltiplicarle
per la dimensione teorica di ogni riga?
Grazie
Daniele


author: Carlo Costarella

text:
"OneEDP" <
one.e...@tin.it
> ha scritto nel messaggio
news:eqWFa.82008$Ny5.2...@twister2.libero.it...
> Sto cercando di testare delle connessioni ODBC.
> Per quanto riguarda cronometrare ci sono diverse soluzioni, ok.
> Ciò che mi manca è sapere quanti dati ho ricevuto dolo l'esecuzione di una
> query pass-through, magari, che ne so usando, un OCX da qualche parte del
> mondo.
>
> Cerco la luna?
> Il dato che VERAMENTE servirebbe è sapere durante una determinata
> connessione TCP/IP (e non tutto il traffico TCP/IP di quel PC) la quantità
> di byte inviata e ricevuta (nonché i tempi). Il tutto sotto controllo da
> VBA...
>
> Una soluzione abbastanza accettabile:
> Sarebbe sufficiente sapere ad esempio di quanto è "cresciuta" (in termini
di
> byte) una tabella locale dopo una
> INSERT INTO ... SELECT * qryPassThrough.
> C'è una soluzione meno macchinosa che contare le righe nuove e
moltiplicarle
> per la dimensione teorica di ogni riga?
>
> Grazie
> Daniele
>
>
Una funzione del genere ti permette di sapere delle notizie su di un file,
quindi anche sul db che contiene le tabelle.
Potresti usare "Dimensione" da memorizzare in un campo di tabella e
confrontarlo con "Dimensione" dopo l'accodamento dei dati.
Dim FileObj, Dato1, Dato2
  Set FileObj = CreateObject"Scripting.FileSystemObject")
  Set Dato1 = FileObj.GetFile("c:\windows\leggimi.txt")
  Dato2 = UCase("c:\windows\leggimi.txt") & vbCrLf
  Dato2 = Dato2 & "Data di creazione: " & Dato1.DateCreated & vbCrLf
  Dato2 = Dato2 & "Ultimo accesso: " & Dato1.DateLastAccessed & vbCrLf
  Dato2 = Dato2 & "Ultima modifica: " & Dato1.DateLastModified & vbCrLf
  Dato2 = Dato2 & "Dimensione: " & Dato1.Size & vbCrLf
Debug.Print Dato2
Ciao, Carlo


author: Sib

text:
"OneEDP" <
one.e...@tin.it
> ha scritto nel messaggio
> Sto cercando di testare delle connessioni ODBC.
> Per quanto riguarda cronometrare ci sono diverse soluzioni, ok.
> Ciò che mi manca è sapere quanti dati ho ricevuto dolo l'esecuzione di una
> query pass-through, magari, che ne so usando, un OCX da qualche parte del
> mondo.
>
> Cerco la luna?
> Il dato che VERAMENTE servirebbe è sapere durante una determinata
> connessione TCP/IP (e non tutto il traffico TCP/IP di quel PC) la quantità
> di byte inviata e ricevuta (nonché i tempi). Il tutto sotto controllo da
> VBA...
>
> Una soluzione abbastanza accettabile:
> Sarebbe sufficiente sapere ad esempio di quanto è "cresciuta" (in termini
di
> byte) una tabella locale dopo una
> INSERT INTO ... SELECT * qryPassThrough.
> C'è una soluzione meno macchinosa che contare le righe nuove e
moltiplicarle
> per la dimensione teorica di ogni riga?
Cosa c'e' di macchinoso in questo?
o trovi meno macchinoso iniziare a definire funzioni e riferimenti a
librerie a piu' non posso per leggere la quantita' di byte transitati?
Sib


text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:XWWFa.127200$g92.2...@news2.tin.it...

L'unico problema è che le dimensioni del DB dipendono da molti fattori. E'
vero che le insert accrescono le dimensioni ma anche il transito dei dati
accresce sensibilmente del dimensioni e tante altre circostanze.
Grazie cmq
Daniele


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:p0XFa.78639$pR3.1...@news1.tin.it...

Speravo di trovare qualcosa di già confezionato... Ne sai qualcosa?
Anche perché il risultato finale sulla tabella locale può essere frutto
anche del 100% in più di banda ( tra bit inviati/ricevuti)...
a quel punto, per il mio scopo, preferisco scrivere 300 righe di codice, ma
almeno ho un dato attendibile.
Qualsiasi suggerimento è ben accetto.
Ciao.
Daniele


text:
"OneEDP" <
one.e...@tin.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > "OneEDP" <
one.e...@tin.it
> ha scritto nel messaggio
cut
> Speravo di trovare qualcosa di già confezionato... Ne sai qualcosa?
> Anche perché il risultato finale sulla tabella locale può essere frutto
> anche del 100% in più di banda ( tra bit inviati/ricevuti)...
> a quel punto, per il mio scopo, preferisco scrivere 300 righe di codice,
ma
> almeno ho un dato attendibile.
> Qualsiasi suggerimento è ben accetto.
Guarda, io non l'ho mai usato, ma credo che SQL Server abbia funzioni di
monitor delle prestazioni pronte, documentati in questo senso se vedi che ti
sono utili.
Ciao
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:QnXFa.78776$pR3.1...@news1.tin.it...

Il monitor dovrebbe essere implementato in Access 2000. Non so se mi
conviene fare voli pindarici, installare MSDE, riconfezionare tutte le
autorizzazioni e per alcune query pass-thorugh... e magari alla fine
scoprire che non funziona.
Vedrò in internet se c'è qualcosa.
Ciao
Daniele


title: Maschera aggiornabile

text:
Salve a tutti.
Dovrei ottimizzare un db,ed in particolare dovrei soddisfare questa
esigenza...
Creare una maschera principale,alla destra di questa maschera mettere dei
bottoni(o quello che mi consiglierete voi) che permettono di aprire
differenti grafici.Al click su ogni bottone si dovrebbe aprire nella sezione
sinistra il grafico selezionato con il click,insomma una sezione sinistra
aggiornabile in base alle scelte.
E' possibile effettuarlo?
Vi ringrazio per le risposte


title: Maschera aggiornabile

text:

Sì guardati nel'help Sourceobject
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: Maschera aggiornabile

text:
Guardato e non ho trovato molto non potresti essere un pň piů chiaro
grazie,
Alfredo
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:RVN9e.3399$TR5....@news.edisontel.com...
> @lfredo wrote:
>> Salve a tutti.
>> Dovrei ottimizzare un db,ed in particolare dovrei soddisfare questa
>> esigenza...
>> Creare una maschera principale,alla destra di questa maschera mettere
>> dei bottoni(o quello che mi consiglierete voi) che permettono di
>> aprire differenti grafici.Al click su ogni bottone si dovrebbe aprire
>> nella sezione sinistra il grafico selezionato con il click,insomma
>> una sezione sinistra aggiornabile in base alle scelte.
>> E' possibile effettuarlo?
>> Vi ringrazio per le risposte
>
>
> Sě guardati nel'help Sourceobject



title: Maschera aggiornabile

text:
@lfredo wrote:
> Guardato e non ho trovato molto non potresti essere un pň piů chiaro
> grazie,
> Alfredo
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:RVN9e.3399$TR5....@news.edisontel.com...
>> @lfredo wrote:
>>> Salve a tutti.
>>> Dovrei ottimizzare un db,ed in particolare dovrei soddisfare questa
>>> esigenza...
>>> Creare una maschera principale,alla destra di questa maschera
>>> mettere dei bottoni(o quello che mi consiglierete voi) che
>>> permettono di aprire differenti grafici.Al click su ogni bottone si
>>> dovrebbe aprire nella sezione sinistra il grafico selezionato con
>>> il click,insomma una sezione sinistra aggiornabile in base alle
>>> scelte.
>>> E' possibile effettuarlo?
>>> Vi ringrazio per le risposte
>>
>>
>> Sě guardati nel'help Sourceobject
Scrivi DOPO il quoting come faccio io. Grazie
Inserisci un grafico.
cancellane l'origine dati.
usa lo scheletro Pluto per inserirci poi il grafico che ti serve
ci metti un gruppo di opzioni "Pippo"
    select case me.pippo
        case 1
    me.pluto.sourceobject = "grafico 1"
        case 2
    me.pluto.sourceobject = "grafico 2"
    end select



title: Maschera aggiornabile

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:eaQ9e.3446$TR5....@news.edisontel.com...

Grazie per i preziosi consigli.


title: Maschera aggiornabile

text:
"@lfredo" <
sloopy...@hotmail.com
> ha scritto nel messaggio
news:612ae.78267$zZ1.2...@twister1.libero.it...

Ciao.
Ho eseguito tutta la procedura che mi hai descritto.Ho usato lo scheletro
del grafico,creato un gruppo opzioni.Ho inserito il codice che mi hai dato
negli eventi dello scheletro del grafico su clic.Una volta che lancio la
maschera sembra funzionare tutto,mi si visualizza il il primo grafico che ho
impostato come grafico di default,quandoclicco sugli altri bottoni del
gruppo opzioni mi esce in basso a sinistra la scritta "elaborazione in
corso" ma non mi si aggiorna il grafico.Rimane sempre quello di default.Nel
codice vba non mi segnala errori.
Puoi aiutarmi?
Grazie,
Alfredo


title: Calcolo percentuale

author: ALCAU (STZ01)

text:
Salve a tutti,
Ho un piccolo problema con le %
Se ho un prodotto che acquisto a 100 e lo vendo a 120 come faccio a sapere
che percentuale di guadagno ho ?
Grazie, Alberto


title: Calcolo percentuale

author: Giorgio Valsangiacomo

text:
ALCAU (STZ01) <
pro...@tin.it
> wrote in message
BKaE4.33980$pn3.4...@news.infostrada.it...

>Ciao,diciamo che 100 sia X e 120 Y
100-(X/Y*100)
Giorgio


title: Calcolo percentuale

author: Antonio Biso

text:
Giorgio Valsangiacomo ha scritto nel messaggio
<8brjgd$f8i$
1...@bw107zhb.bluewin.ch
>...

Non gli dare il pesce, insegnagli a pescare.
Quando calcoli una percentuale che si fa?
c'hai X che è il valore iniziale e vuoi calcolare quanto sarà il ricarico
dovuto ad uno Z% di X. Il risultato Y sarà
Y = X + (X * Z / 100)
Ma allora la percentuale Z sarà
100 Y = 100 X + XZ da cui
Z = (100Y - 100X) / X = 100 * (Y - X) / X
Antonio


title: Calcolo percentuale

author: lbo dal portatile

text:
>Ho un piccolo problema con le %
>Se ho un prodotto che acquisto a 100 e lo vendo a 120 come faccio a sapere
>che percentuale di guadagno ho ?
ma scusa, il 20%, no?  :-)
percguadagno=(vendita-costo)/(costo/100)
costo e' quello che lo paghi tu, vendita e' a quanto lo vendi.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Calcolo percentuale

text:
No non mi sembra cosě, infatti Antonio mi ha dato la soluzione (Verificata
anche con il mio commercialista :-))) )
Adesso come faccio ad arrotondare un valore?
Grazie, Alberto


title: Calcolo percentuale

text: Comunque il risultato è lo stesso.


title: Calcolo percentuale

author: sib

text:
ALCAU (STZ01) <
pro...@tin.it
> wrote in message
ERpE4.36881$pn3.4...@news.infostrada.it...
> No non mi sembra cosě, infatti Antonio mi ha dato la soluzione
Ti sbagli, e' esattamente la stessa cosa.
> (Verificata
> anche con il mio commercialista :-))) )
Questo non e' confortante (conoscendo i commercialiesti)  ;-)
> Adesso come faccio ad arrotondare un valore?
Mi pare che sul sito comune trovi qualcosa, se no riposta.
Ciao, Sib


title: Calcolo percentuale

author: Lorenzo Coronati

text:
Scrisse
l...@NOSPAM.blunet.it
 (lbo dal portatile):
>percguadagno=(vendita-costo)/(costo/100)
La terminologia corretta, credo, e':
ricarico = differenza in base al costo:
120-100 = 20 = 20% di 100
margine = differenza in base al prezzo:
120-100 = 20 = 13.3% di 120
guadagno = 20, non si esprime in %
Bai
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Calcolo percentuale

text:
>Comunque il risultato è lo stesso.
meno male... sai quella storia che dicevano a scuola, che se sposti un
moltiplicatore dall'altra parte dell'uguale di un'equazione lo devi
far diventare un divisore... :-)
per arrotondare usa la funzione int.



title: Calcolo percentuale

text:
>120-100 = 20 = 13.3% di 120
>guadagno = 20, non si esprime in %
si esprime in db/m^2?



title: Calcolo percentuale

text:
Scrisse
l...@NOSPAM.blunet.it
 (lbo dal portatile):
>si esprime in db/m^2?
decibel al metroquadro?
database al minuto al quadrato?
due balle alla mazza al quadrato?



title: Calcolo percentuale

text:
Lorenzo Coronati <
lore...@tin.it
> wrote in message
38e25492...@news.libero.it...
> Scrisse
l...@NOSPAM.blunet.it
 (lbo dal portatile):
>
> >percguadagno=(vendita-costo)/(costo/100)
>
> La terminologia corretta, credo, e':
> ricarico = differenza in base al costo:
> 120-100 = 20 = 20% di 100
> margine = differenza in base al prezzo:
> 120-100 = 20 = 13.3% di 120
> guadagno = 20, non si esprime in %
a Lore'!! la calcolatrice t'ha fatto cilecca!
20 e' il 16,67% di 120.
;-)
Ciao, Sib


title: Calcolo percentuale

text:
Scrisse "sib" <
sibN...@iol.it
>:
>a Lore'!! la calcolatrice t'ha fatto cilecca!
>20 e' il 16,67% di 120.
Ahem...
8-|



title: [help] sottoquery

author: Stefano

text:
Salve a tutti, ho sviluppato questa query che deve calcolare il campo
arretrato e mora soltanto per quei soci che scaturiscono dalla sottoquery:
UPDATE Quote
INNER JOIN Rendiconto ON [Quote].[esercizio]=[Rendiconto].[esercizio]
SET Rendiconto.arretrato = [Quote].[quota]/2, Rendiconto.mora =
[Quote].[quota]/2
WHERE (((Rendiconto.pagato)=0)) AND Rendiconto.nome = (SELECT
Anagrafica.nome
                                                                                FROM Anagrafica
                                                                                WHERE Anagrafica.Iscritto - ORL> 1
                                                                                AND Anagrafica.Iscritto - ORL <=3
                                                                                AND Year(Date()) - Anagrafica.Iscritto <=3);
Il problema è che mi restituisce un messaggio che non capisco: "la
sottoquery può restituire al massimo un record". Eppure mi sembra tutto
corretto: se prendo la sola sottoquery mi tira fuori 11 record dalla tabella
Anagrafica...!
Stefano
--------------------------------
Inviato via
http://usenet.libero.it


title: [help] sottoquery

author: Roberto dalla campagna

text:
Stefano <
s-me...@libero.it
> wrote in message
212Z131Z182Z2Y1...@usenet.libero.it...

Invece che con
Rendiconto.nome = (SELECT ...
prova con
Rendiconto.nome In (SELECT ...
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [help] sottoquery

text:
Il 29 Lug 2003, 19:49, "Roberto dalla campagna" <
r.ma...@libero.it
> ha
scritto:
>
> Invece che con
>
> Rendiconto.nome = (SELECT ...
>
> prova con
>
> Rendiconto.nome In (SELECT ...
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Perfetto !!! Grazie :-)



title: INDIRIZZO DEL SITO COMUNE?

author: alex

text:
HO Letto che c'e' un sito comune di access ma io non lo trovo me lo date per
favore?


title: INDIRIZZO DEL SITO COMUNE?

author: Emyr

text:
On Mon, 04 Mar 2002 17:41:25 GMT, "alex" <
ales...@tin.it
> wrote:
>HO Letto che c'e' un sito comune di access ma io non lo trovo me lo date per
>favore?
>
www.sitocomune.com
Saluti.
Emanuele.


title: INDIRIZZO DEL SITO COMUNE?

text:
Emyr <
fan...@lavoro.com
> wrote in message
f5d78ucvm47crkn1j...@4ax.com...

grazie mille!


title: INDIRIZZO DEL SITO COMUNE?

author: Roberto da casa

text:
"alex" <
ales...@tin.it
> ha scritto nel messaggio
news:9lOg8.33542$_u5.1...@news1.tin.it...
> HO Letto che c'e' un sito comune di access ma io non lo trovo me lo date
per
> favore?
http://www.sitocomune.com
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: No duplicati clienti su immisione maschera!

author: NicLoi

text:
Sto cercando di evirare di creare dei duplicati clienti in una maschera di
immissione nella casella di testo CognomeContatto dopo aggiornamento, con il
seguente codice:
Private Sub CognomeContatto_AfterUpdate()
Dim FilterWhere As String
Dim FindDup As Variant
Dim FindIfIs As Variant
Dim DupCliente As String
Dim DupNomeSocietą As String
FindDup = DLookup("CognomeContatto", "Clienti", FilterWhere)
If Not IsNull(FindDup) Then
DupCliente = DLookup("IDCliente", "Clienti", FilterWhere)
DupNomeSocietą = DLookup("NomeSocietą", "Clienti", "[IDCliente] = " &
DupCliente)
MsgBox "Cliente gią inserito N. " & DupCliente & "." & " Nome Societą: " &
DupNomeSocietą, vbOKOnly + vbExclamation, "Cliente gią inserito"
Me.CognomeContatto.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acCmdExit
End If
End Sub
per aiutarvi a comprendere:
' Clienti č la tabella che contiene le tre tabelle sotto citate
' CognomeContatto - "testo"
' NomeSocietą - "testo" composta da numeri e testo
' IDCliente - "contatore"
nell'evento mi legge sempre il primo record con il seguente risultato
(ovviamente errato) :
Msg:Cliente gią inserito N. 1 Nome Societą: 01-99 Cliente gią inserito
Grazie Nicolas


author: Tappo

text:
 Mi sembra che tu non abbia impostato il filtro ovvero la variabile
FilterWhere!
Se così è la funzione DLookUp non cerca nessun record e ti restituisce il
record su cui è posizionato, giusto?
Ciao
--
Togli il tappo per rispondermi


text:
In effetti la procedura l'avevo ricavata da una ricerca con casella
combinata per cui cosa mi consigli ?
ciao nic


author: Max De Poli

text:
"NicLoi" <
nicol...@tin.it
> wrote in message news:<V%0x8.51388$
vF6.1...@news2.tin.it
>...
> nell'evento mi legge sempre il primo record con il seguente risultato
> (ovviamente errato) :
> Msg:Cliente già inserito N. 1 Nome Società: 01-99 Cliente già inserito
Ma non fai molto, molto prima a crearti un indice univoco nella
tabella clienti?
Se poi ti fa schifo il messaggio di errore, lo intercetti nell'evento
beforeupdate della maschera e ci metti quello che vuoi... (questo tra
l'altro ti mette anche al sicuro nel caso qualche imbecille decidesse
di collegarsi le tabelle e modificarle...)
Cia'
Max


text:
"Max De Poli" <
rocc...@katamail.com
> ha scritto nel messaggio
news:c2f1e49e.02042...@posting.google.com...

Non posso crearlo ho già dei duplicati, e poi mi serve per sapere cosa ha
già acquistato e a quali condizione...
Grazie Nicolas


text:
--
Togli il tappo per rispondermi
> In effetti la procedura l'avevo ricavata da una ricerca con casella
> combinata per cui cosa mi consigli ?
di impostare il criterio: nel primo DLookup per es. dovresti scrivere
qualcosa del genere:
FindDup=DLookup("CognomeContatto","Clienti","nomecampo=" & nomecontrollo)


text:
"Tappo" <
tappopol...@libero.it
> ha scritto nel messaggio
news:aa3nov$7pp$1...@fe2.cs.interbusiness.it...

Forse questa e la procedura adatta, per cercare con stringa di testo
FindDup = DLookup("CognomeContatto", "Clienti", "CognomeContatto=" &
Chr$(34) & Me!CognomeContatto & Chr$(34))
provato e funziona
Ciao grazie Nicolas


title: Collaborazione Editoriale

author: Gianfranco Forlino

text:
Salve, sono Gianfranco Forlino, mi occupo della rivista ioProgrammo, edita
dalla Edizioni Master. Cerco persone che siano addentrate nell'ambito
informatico e piů precisamente in grado di scrivere un o una serie di
articoli riguardanti le ultime tecnologie informatiche; il tutto ovviamente
č retribuito. Se pensate di essere in grado di svolgere una tale tipologia
di lavoro, contattatemi pure, sarň ben felice di valutare quanto propostomi
e se il caso lo prevede di proporre una collaborazione. Grazie
Gianfranco Forlino
(
gfr...@edmaster.it
)


title: Gestione Colonne in un Report Dinamico

author: RoDAgo

text:
Ciao a tutti.
Vi spiego subito il problema, ho creato un report dinamico con un numero di
colonne compreso tra 1 ed n, dato che l'orientamento del report è
orizzontale dopo più o meno una 15 di colonne, il resto del report si sposta
nella pagina successiva.
La stampa su più pagine non è un problema, ma vorrei fare in modo che le
colonne non risultino troncate.
Facendo un esempio, se l'insieme dei controlli della 16a colonna si ritrova
per metà stampata nella prima pagina e per metà nella seconda allora la
sudetta colonna si deve spostare per intiero nella 2a pagina.
Avevo pensato di calcolare l'area stampabile orizzontale del foglio e la
somma delle Width dei vari controlli ed infine aggiungere la differenza al
Left dei controlli delle colonne da spostare.
Qualche consiglio?
--
RoDAgo


title: Gestione Colonne in un Report Dinamico

author: Ferdinando Landi

text:
Ciao,
Io l'ho risolto cosi come tu dici e cioè facendo la somma dei width di
tutte le colonne che aggiungo e confronto l'area di stampa.
Un'altro problema che ti pongo invece è che se si aggiungono n colonne e
la somma dei width sfora le due pagine, e cioè un controllo non può
avere come margine da sx (se non sbaglio) più di 54 o giu di li cm,
Access da errore.
Non so se tu o qualcun altro vi siete trovati di fronte a questo
problema. Eventualmente fatemi sapere se avete una soluzione.

--
Ferdinando Landi       e-mail:
la...@mi.camcom.it


title: Gestione Colonne in un Report Dinamico

text:
Ferdinando Landi scrisse...
> Ciao,
Ciao Ferdinando.
> Io l'ho risolto cosi come tu dici e cioè facendo la somma dei width di
> tutte le colonne che aggiungo e confronto l'area di stampa.
Difatti ho fatto come avevo scritto e funge ottimamente!
> Un'altro problema che ti pongo invece è che se si aggiungono n colonne e
> la somma dei width sfora le due pagine, e cioè un controllo non può
> avere come margine da sx (se non sbaglio) più di 54 o giu di li cm,
> Access da errore.
Ora mi ci scervello un pò e ti faccio sapere.
Ciao e grazie lo stesso.  :-)
> Ferdinando Landi
 RoDAgo


title: Gestione Colonne in un Report Dinamico

text:
> Ferdinando Landi scrisse...
[cut]
> > Un'altro problema che ti pongo invece è che se si aggiungono n colonne e
> > la somma dei width sfora le due pagine, e cioè un controllo non può
> > avere come margine da sx (se non sbaglio) più di 54 o giu di li cm,
> > Access da errore.
Ed allora la soluzione non è semplice, ma forse con un escamotage si può
aggirare il problema dei 54cm.
Sulla formattazione dei controlli sul report (che io ho chiamato <Report
Consuntivo>) ho messo una if che testa la width del report stesso, quando si
arriva ad oltre 28000 (valore che ho messo io, ma può esser variabile) mi
creo un secondo report in questo modo:
            Dim rpt As Report
            Set rpt = CreateReport(, "Report Consuntivo")
            ' Creerà un report in base alla formattazione del precedente
(stesse dimensioni in Header, Detail ecc...)
           ' In questo secondo report che Access chiamerà automaticamente
Report1, imposterai i vari controlli
           'Esempio...
               Dim ctltesto As Control
               Set ctltesto = CreateReportControl("report1", acTextBox, , ,
, 0, 0, 1758, 240)
                ctltesto.Name = "col18"
                ctltesto.ControlSource = rstReport(IntX - 1).Name
            'Alla fine stampi sia il primo che i vari report che
dinamicamente di sei creato
               DoCmd.OpenReport rpt , acNormal            .
 Stò testando il tutto e ti faccio sapere, certo non è un'ottima soluzione
ma per ora non mi viene altro.
Naturalmente conviene non dare in Preview la visualizzazione dei report ma
stamparli direttamente.
Ciao Ferdinando
> > Ferdinando Landi
>  RoDAgo
>
>


title: controllo treelist

text:
Ciao Ragazzi,

stò realizzando un DB con access 2010, ma ho la necessità di usare in una
maschera il controllo ad albero treelist.

Ma non so come fare, qualche esempio ?
Grazie per l'aiuto


title: controllo treelist

text:

Prima di tutto il controllo si chiama TreeView, secondo per usarlo non
basta avere installato Access, in quanto non ti consentirà di usarlo
non avendone la licenza...
Una volta serviva la Licenza di SVILUPPO, oppure VisualBasic6 o
VisualStudio...

Detto questo, risolto il problema di base, in rete ci sono migliaia di
esempi...

@Alex


title: SDD, SDD Core e riconciliazione bancaria

author: mario rossi

text:
Buongiorno a tutti,

Qualcuno di voi sa se si possono integrare i sistemi bancari in oggetto in gestionali access?

Chiedo anche un vostro parere in merito al SDD Core che mi sembra un assurdità, viene inserito un pulsante all'interno del pdf generato dal gestionale in questo modo il cliente che riceve la fattura clicca il pulsante e si apre un link che chiede se si vuole pagare con carta di credito o iban chiedendo i relativi dati

la cosa che mi sembra assurda (forse ho capito male io) è che, se chi emette la fattura conosce i dati email, iban e intestatario conto del cliente e li inserisce lui direttamente preleva i soldi del pagamento dal conto del cliente

ho capito male? qualcuno ne sa qualcosa di più?

grazie.


author: BFS

text:

nessuno può addebitare nulla se non autorizzi l'addebito
è come una rid...il creditore preleva la somma dal tuo conto ma solo se
tu l'hai autorizzato

per il resto se non è cambiato qualcosa si tratta di produrre appositi
xml da importare in home banking

ciao
BFS


title: access & web

author: W. A. V. A.

text:
Dove trovo materiale per collegare un form in un sito web con un db ?
Grazie mille


title: access & web

author: Giordano

text:
cosa intendi? ASP?
sito comune!
"W. A. V. A." <
wava...@libero.it
> ha scritto nel messaggio
news:397C4263...@libero.it...



title: access & web

text:
nel mio file html ho i campi con in fondo un tasto submit .
Vorrei che una volta schiacciato submit i dati vengano accodati nel mio db
access .
Dove trovo il materiale per creare questa struttura???



title: access & web

author: lbo dal portatile

text:
>nel mio file html ho i campi con in fondo un tasto submit .
>
>Vorrei che una volta schiacciato submit i dati vengano accodati nel mio db
>access .
>
>Dove trovo il materiale per creare questa struttura???
so di fare cosa sgradita, ma qualcuno lo deve pur fare.
se hai fatto questa domanda vuol dire che sei alle basi delle basi.
se sei alle basi delle basi non devi dare per scontato che tutto si
possa fare.
ammesso e non concesso che si possa fare, non e' facile spiegare come,
e purtroppo non e' nemmeno facile spiegare dove documentarti per
capire il modello teorico che ti permetterebbe di capire se si puoi'
fare quello che vorresti fare.
in due parole: nun e' cosa.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: access & web

text:
no c'e' problema , avevo capito che non era forse possibile o semplice e' per
questo che ho voluto porre la domanda qui!



title: comando shell

author: Ivan

text:
Salve a tutti
scusate la mia ignoranza , mi sembra di aver capito che il programma non
aspetta la fine dell'esecuzione della shell.
In che modo posso dire al programma di aspettare finchč l'istruzione
contenuta nella shell non sia terminata?
Grazie


title: comando shell

author: Karl Donaubauer

text:
Ivan wrote:
> scusate la mia ignoranza , mi sembra di aver capito che il programma non
> aspetta la fine dell'esecuzione della shell.
>
> In che modo posso dire al programma di aspettare finchè l'istruzione
> contenuta nella shell non sia terminata?
www.donkarl.com/it
 FAQ 6.14 Attendere fino a Shell è terminato
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: due espressioni in un controllo

author: Piero

text:
ciao a tutti

� possibile inserire in un controllo di una maschera 2 espressioni
p.e.
=Maschere!MiaMaschera!IdCarico
=Maschere!MiaMaschera_2!IdCarico

in modo di avere l'Id dell'una o l'altra mschera
Grazie


title: due espressioni in un controllo

author: Alessandro Cara

text:
Il 25/11/2013 19.00, Piero ha scritto:
> ciao a tutti
>
> ï¿œ possibile inserire in un controllo di una maschera 2 espressioni
> p.e.
> =Maschere!MiaMaschera!IdCarico
> =Maschere!MiaMaschera_2!IdCarico
>
> in modo di avere l'Id dell'una o l'altra mschera

per avere  l'id di un form /o/ dell'altro la espressione deve essere
sottoposta a /valutazione/ (i.e. if).
Quello che metti nella proprieta' (immagino valore iniziale) viene
valutato con una /eval/ ergo se in quella proprieta' metti una cosa che
faccia pressappoco quello che ho descritto e sia valutabile con una
/eval/ , in genere, funziona
una cosa del tipo
=iif(cond;Maschere!MiaMaschera!IdCarico;Maschere!MiaMaschera_2!IdCarico))

--

ac (x=y-1) e non uso il KillFile.
La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)


title: due espressioni in un controllo

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:zHMku.8165$Th2....@tornado.fastwebnet.it...
> Il 25/11/2013 19.00, Piero ha scritto:
>> ciao a tutti
>>
>> � possibile inserire in un controllo di una maschera 2 espressioni
>> p.e.
>> =Maschere!MiaMaschera!IdCarico
>> =Maschere!MiaMaschera_2!IdCarico
>>
>> in modo di avere l'Id dell'una o l'altra mschera
>
> per avere  l'id di un form /o/ dell'altro la espressione deve essere
> sottoposta a /valutazione/ (i.e. if).
> Quello che metti nella proprieta' (immagino valore iniziale) viene
> valutato con una /eval/ ergo se in quella proprieta' metti una cosa che
> faccia pressappoco quello che ho descritto e sia valutabile con una /eval/
> , in genere, funziona
> una cosa del tipo
> =iif(cond;Maschere!MiaMaschera!IdCarico;Maschere!MiaMaschera_2!IdCarico))
>
ciao Alessandro

che condizione devo mettere se ho questo errore?
#Nome?
ho provato con isnull, "", nz
ma nulla


title: due espressioni in un controllo

text:
Il 25/11/2013 19.41, Piero ha scritto:
> "Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
> news:zHMku.8165$Th2....@tornado.fastwebnet.it...
>> Il 25/11/2013 19.00, Piero ha scritto:
>>> ciao a tutti
>>>
>>> ï¿œ possibile inserire in un controllo di una maschera 2 espressioni
>>> p.e.
>>> =Maschere!MiaMaschera!IdCarico
>>> =Maschere!MiaMaschera_2!IdCarico
>>>
>>> in modo di avere l'Id dell'una o l'altra mschera
>>
>> per avere  l'id di un form /o/ dell'altro la espressione deve essere
>> sottoposta a /valutazione/ (i.e. if).
>> Quello che metti nella proprieta' (immagino valore iniziale) viene
>> valutato con una /eval/ ergo se in quella proprieta' metti una cosa che
>> faccia pressappoco quello che ho descritto e sia valutabile con una /eval/
>> , in genere, funziona
>> una cosa del tipo
>> =iif(cond;Maschere!MiaMaschera!IdCarico;Maschere!MiaMaschera_2!IdCarico))
>>
> ciao Alessandro
>
> che condizione devo mettere se ho questo errore?
> #Nome?
> ho provato con isnull, "", nz
> ma nulla
>
>
Dovresti riportare l' /intera/ espressione che hai impostato
#Nome dice semplicemente che non riconosce qualcosa.
Ahhh, io ho scritto /cond/ quello deve essere sostituito da una
condizione valida.



title: due espressioni in un controllo

text:
>>
>> che condizione devo mettere se ho questo errore?
>> #Nome?
>> ho provato con isnull, "", nz
>> ma nulla
>>
>>
> Dovresti riportare l' /intera/ espressione che hai impostato
> #Nome dice semplicemente che non riconosce qualcosa.
> Ahhh, io ho scritto /cond/ quello deve essere sostituito da una condizione
> valida.
>
> --
>
> ac (x=y-1) e non uso il KillFile.
> La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)

ciao Alessandro

ho fatto una prova, inserendo su origine controllo
=IIf((IsNull(Maschere!MiaMaschera!IdCarico);"")
nel caso di maschera: "Maschere!MiaMaschera" chiusa.
In questo caso avrei dovuto avere il controllo vuoto
ma ho #Nome?

Perche?


title: due espressioni in un controllo

text:

iif prevede  tre parametri 1) condizione, 2; Valore per vero 3) valore
per falso ed a quanto mi ricordi non ha parametri /optional/ nel tuo
caso fai, di fatto, iif("","") o iif(valore,"")  e poi?

iif((IsNull(Maschere!MiaMaschera!IdCarico)="",;qualcosa;qualcosaltro)



title: due espressioni in un controllo

text:
Il 25/11/2013 22.31, Alessandro Cara ha scritto:

> iif((IsNull(Maschere!MiaMaschera!IdCarico)="",;qualcosa;qualcosaltro)
>
iif((IsNull(Maschere!MiaMaschera!IdCarico)="";qualcosa;qualcosaltro)



title: due espressioni in un controllo

text:
Il 25/11/2013 22.32, Alessandro Cara ha scritto:
> Il 25/11/2013 22.31, Alessandro Cara ha scritto:
>
>> iif((IsNull(Maschere!MiaMaschera!IdCarico)="",;qualcosa;qualcosaltro)
>>
> iif((IsNull(Maschere!MiaMaschera!IdCarico)="";qualcosa;qualcosaltro)
>

orrore: isnull restituisce true/false (un po' di confusione con nz :-) )
iif((IsNull(Maschere!MiaMaschera!IdCarico);qualcosa;qualcosaltro)



title: due espressioni in un controllo

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:C3Rku.8255$Th2....@tornado.fastwebnet.it...

Grazie


title: Formattare un dischetto

author: Graziano

text:
Scusate oggi vi sto rompendo, come faccio a formattare un dischetto con i
comandi VB??? Esiste o devo usare il format del dos???.
Grazie e scusate.


title: Formattare un dischetto

author: Antonio Biso

text:
Graziano <
tron...@tiscalinet.it
> wrote in message
9ukupg$avp$1...@pegasus.tiscalinet.it...
> Scusate oggi vi sto rompendo, come faccio a formattare un dischetto con i
> comandi VB??? Esiste o devo usare il format del dos???.
Con il comando shell e la sintassi dos
Antonio


title: [OT] Software

author: Sergio MAZZA (Ufficio Stampa)

text:
Ciao ragazzi;
un amico cerca del software con licenza:
- Office 97
- Corel Draw vers. 6
- Adobe PhotoShop vers. 5
Se siete in possesso delle predette o sapete dove reperirle, fatemelo
sapere...
Grazie.


title: inserire condizione.

author: Cataldo Formaro

text:
BUON NATALE ai partecipanti.
_____________________________________
Con il clik del mio Comando4_Click
chiudo la maschera corrente ed effettuo
un requery alla mia combo37 (allego la riga di codice)
    DoCmd.Close
    Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Vorrei inserire la condizione
if...
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37
..è aperta..
..than...Requery
altrimenti, non effettuare requery.
Come impostarlo?
Grazie ed AUGURI !!!!
Cataldo Formaro


title: inserire condizione.

text:
"Cataldo Formaro" <
formaro...@inwind.it
> ha scritto nel messaggio
news:COEO9.51748$TC5.1...@twister1.libero.it...

Inserisci questa Funzione in un Modulo poi chiami la condizione così:
If IsLoaded("M_AE_Pazienti_Nuovo") then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Public Function IsLoaded(ByVal strFormName As String) As Integer
'*****************************************************************
'Name      : IsLoaded (Function)
'Purpose   : Verifie if Form passed is already OPEN
'Author    : xxxx
'Called by :
'Calls     :
'Inputs    : String=Form.Name
'Output    : Return True if Form is Open
'*****************************************************************
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
End Function
Ciao @Alex.


title: inserire condizione.

text:
>CUT
--- Dovrei aprire un nuovo modulo, copiarci poi il tutto dentro?
> Public Function IsLoaded(ByVal strFormName As String) As Integer
> '*****************************************************************
> 'Name      : IsLoaded (Function)
> 'Purpose   : Verifie if Form passed is already OPEN
> 'Author    : xxxx
> 'Called by :
> 'Calls     :
> 'Inputs    : String=Form.Name
> 'Output    : Return True if Form is Open
> '*****************************************************************
>     Const conObjStateClosed = 0
>     Const conDesignView = 0
>     If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
> conObjStateClosed Then
>         If Forms(strFormName).CurrentView <> conDesignView Then
>             IsLoaded = True
>         End If
>     End If
> End Function
>
--- Questo a fronte dell'evento click ??
> If IsLoaded("M_AE_Pazienti_Nuovo") then
> Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
Abbi un pň di pazienza.
Saluti CF


title: inserire condizione.

text:
"Cataldo Formaro" <
formaro...@inwind.it
> ha scritto nel messaggio
news:nwGO9.52080$Ou4.1...@twister2.libero.it...

Io ho pazienza, ma se provavi a farlo, mica esplodeva il Computer.....!
ESATTO..........!
@Alex.


title: inserire condizione.

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:I1LO9.52986$TC5.1...@twister1.libero.it...

Sai, ieri sera era tardi, un botto a quell'ora, avrebbe svegliato tutti,
quindi avrebbero chiamato i vigili del fuoco e se poi venivano anche i
carabinieri, avrebbero pensato che stavo fabbricando qualche petardo per la
notte di capodanno e quindi mi avrebbero portato in caserma e tenuto fermo
fino a stamattina. Perciň ho preferito aspettare stamattina e fare le prove.
A parte lo svago, avevo gia provato e mi segnala:
Errore di compilazione:
Prevista variabile o routine nel modulo.
E' influente se ho chiamato il modulo "IsLoaded" ??
Allego il codice
____________________________
Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
If IsLoaded("M_AE_Pazienti_Nuovo") Then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
    DoCmd.Close
  Exit_Comando4_Click:
    Exit Sub
Err_Comando4_Click:
    MsgBox Err.Description
    Resume Exit_Comando4_Click
End Sub
___________________________________
Ciao. CF


title: inserire condizione.

author: Roberto da casa

text:
"Cataldo Formaro" <
formaro...@inwind.it
> ha scritto nel messaggio
news:%iUO9.53868$TC5.1...@twister1.libero.it...

> > > Abbi un pò di pazienza.
> > > Saluti CF
> > >
> >
> >
> > Io ho pazienza, ma se provavi a farlo, mica esplodeva il Computer.....!
> >
> > ESATTO..........!
> > @Alex.
> >
> Sai, ieri sera era tardi, un botto a quell'ora, avrebbe svegliato tutti,
> quindi avrebbero chiamato i vigili del fuoco e se poi venivano anche i
> carabinieri, avrebbero pensato che stavo fabbricando qualche petardo per
la
> notte di capodanno e quindi mi avrebbero portato in caserma e tenuto fermo
> fino a stamattina. Perciò ho preferito aspettare stamattina e fare le
prove.
>
> A parte lo svago, avevo gia provato e mi segnala:
> Errore di compilazione:
> Prevista variabile o routine nel modulo.
>
> E' influente se ho chiamato il modulo "IsLoaded" ??
> Allego il codice
> ____________________________
> Private Sub Comando4_Click()
> On Error GoTo Err_Comando4_Click
>
> If IsLoaded("M_AE_Pazienti_Nuovo") Then
> Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
>
>     DoCmd.Close
>   Exit_Comando4_Click:
>     Exit Sub
>
> Err_Comando4_Click:
>     MsgBox Err.Description
>     Resume Exit_Comando4_Click
>
> End Sub
> ___________________________________
> Ciao. CF
Il modulo NON DEVI assolutamente chiamarlo IsLoaded, visto che in quella
maniera si chiama la funzione.
L'errore te lo dà perchè ti sei dimenticato ti scrivere la End If, ovvero
devi scrivere:
If IsLoaded("M_AE_Pazienti_Nuovo") Then
Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: inserire condizione.

text:
CUT
> If IsLoaded("M_AE_Pazienti_Nuovo") Then
> Forms!M_AE_Pazienti_Nuovo.CasellaCombinata37.Requery
> End If
>
> --
> Roberto
>
Grazie Robč!!
Alex si č preso le ferie?? Oggi non si č visto.
Naturalmente bontŕ sua.
ciao CF


title: Somma di campi di tipo ora

text:
Ho il seguente problema: ho dei record che hanno un campo di tipo
data/ora che indica la durata di un intervallo temporale, ho l'esigenza,
tramite query, di fare la somma di questo campo x  tutti i record x
trovare la durata complessiva. Come posso fare?
Grazie.
--
Posted from
smtp3.libero.it
 [193.70.192.53]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Somma di campi di tipo ora

text:
<
manci...@libero.it
> ha scritto nel messaggio
news:39FF10D0...@libero.it...
> Ho il seguente problema: ho dei record che hanno un campo di tipo
> data/ora che indica la durata di un intervallo temporale, ho l'esigenza,
> tramite query, di fare la somma di questo campo x  tutti i record x
> trovare la durata complessiva. Come posso fare?
> Grazie.
>
Sito Comune, Sezione Tips & Triks, "Somma di tempi o di orari senza tener
conto dei giorni" di Silvio Berruti.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Modificare in due la struttura dello stesso MDB

author: Raffaele Alberoni

text:
Buon pomeriggio a tutti.
Volevo sapere se esite un modo per lavorare da due PC in rete nello stesso
MDB a livello di modifiche, ovviamente in oggetti diversi.
Per esempio: dovendo fare manutenzione o aggiornamento ad un programma, io
lavoro alle maschere ed il mio collega ai Report...
Saluti.
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:bve210$67o$1...@news.newsland.it...
> Buon pomeriggio a tutti.
> Volevo sapere se esite un modo per lavorare da due PC in rete nello stesso
> MDB a livello di modifiche, ovviamente in oggetti diversi.
> Per esempio: dovendo fare manutenzione o aggiornamento ad un programma, io
> lavoro alle maschere ed il mio collega ai Report...
> Saluti.
>
>
> --
> Raffaele Alberoni
Normalmente un database che va tenuto in rete viene diviso in due parti
diverse: la prima, detta BE, contiene solo le tabelle e verrą tenuta in un
server condivisa da tutti gli utenti; la seconda, detta FE, contiene tutti
gli altri oggetti; della parte FE se ne fanno tante copie quantoi sono gli
utenti ed ognuno la installa sul suo computer.
Puoi capire quindi come, mentre un tuo collega usa il database tu puoi
tranquillamente modificare il tuo FE senza che lui ne subisca conseguenze;
quando avrai finito di realizzare e testare le modifiche sul tu PC,
risdistribuirai la nuova versione aggiornata del FE a tutti gli utilizzatori
che la sotituiranno sul loro PC alla vecchia versione del FE.
Per spaccare in due (Be ed FE) un database o lo fai manualmente oppure usa
Strumenti => Aggiunte => Divisione database.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Roberto da casa ha scritto:
> "Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
> news:bve210$67o$1...@news.newsland.it...
> > Buon pomeriggio a tutti.
> > Volevo sapere se esite un modo per lavorare da due PC in rete nello stesso
> > MDB a livello di modifiche, ovviamente in oggetti diversi.
> > Per esempio: dovendo fare manutenzione o aggiornamento ad un programma, io
> > lavoro alle maschere ed il mio collega ai Report...
> > Saluti.
> >
> >
> > --
> > Raffaele Alberoni
> Normalmente un database che va tenuto in rete viene diviso in due parti
> diverse: la prima, detta BE, contiene solo le tabelle e verrà tenuta in un
> server condivisa da tutti gli utenti; la seconda, detta FE, contiene tutti
> gli altri oggetti; della parte FE se ne fanno tante copie quantoi sono gli
> utenti ed ognuno la installa sul suo computer.
> Puoi capire quindi come, mentre un tuo collega usa il database tu puoi
> tranquillamente modificare il tuo FE senza che lui ne subisca conseguenze;
> quando avrai finito di realizzare e testare le modifiche sul tu PC,
> risdistribuirai la nuova versione aggiornata del FE a tutti gli utilizzatori
> che la sotituiranno sul loro PC alla vecchia versione del FE.
> Per spaccare in due (Be ed FE) un database o lo fai manualmente oppure usa
> Strumenti => Aggiunte => Divisione database.
Come al solito Roberto sei sempre molto esauriente nelle tue risposte, ma
come forse avrai notato altre volte io cerco sempre una qualcosa di
diverso(effetivamente devo imparare a spiegarmi meglio!!)
Il modo che mi hai descritto è quello che io applico abitualmente, io però
dovrei fare una cosa diversa. Provo a spiegarmi meglio:
Io devo modificare FE ma per tutti non solo il mio. Ma questo non è il
problema.
Io cercavo una cosa per aumentare la produttività delle modifiche, nel
senso che io e un mio collega siamo gli "sviluppatori" (beh non voglio
esagerare)  che dobbiamo modificare un programma. esempio perchè il nostro
cliente ci ha chiesto una nuova tabella, relativa maschera di gestione e
relativo report (esempio generico per capire il nostro problema)
Allora io mi "specializzo" in Maschere e lui in Report.
Noi vorremmo lavorare tutti e due nello stesso FE appunto io facendo le
maschere e lui i Report.
Ma credo che non sia possibile il programma segnala che è già in uso da
altri e le modifiche non saranno salvate.
Ecco io volevo sapere se esiste un modo . opziani ... VBA e qualcos'altro
per permetterci di modificare tutti e due lo stesso FE.
Grazie e saluti.



text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:bve7em$4q4$1...@news.newsland.it...

Penso che l'unica soluzione è che tu sviluppi la  nuova maschera, lui il
nuovo report, poi vi incontrate importate su uno dei due database l'oggetto
realizzato dall'altro, così avrete il nuovo FE che consegnerete al cliente.



title: come velocizzare?

author: Slave

text:
ciao a tutti, sto cercando un metodo per creare dei report sempre con lo
stesso layout senza dover ogni volta impostarlo manualmente praticamente ne
ho creato uno che usa una query ora ne devo creare uno identico che ne usa
un'altra come faccio senza dover reimpostare tutto il report?
-------------------
s[L]a[V]e


title: come velocizzare?

author: Maurizio Borrelli

text:
> "Slave" [...]:
> ciao a tutti, sto cercando un metodo per creare dei report sempre con lo
> stesso layout senza dover ogni volta impostarlo manualmente praticamente
ne
> ho creato uno che usa una query ora ne devo creare uno identico che ne usa
> un'altra come faccio senza dover reimpostare tutto il report?
    Fai le query in modo che i campi abbiano sempre gli stessi nomi:
    SELECT
        Tabella1.Campo1 As ControlloDelReport1
      , Tabella1.Campo2 As ControlloDelReport2
      ...
    SELECT
        Tabella2.CampoA As ControlloDelReport1
      , Tabella2.CampoB As ControlloDelReport2
      ...
e leggi la guida a proposito di:
        Event Open(Cancel As Integer)
            Membro di Access.Report
        Property RecordSource As String
            Membro di Access.Report
        Sub OpenReport( _
            ReportName _
          , [View As AcView = acViewNormal] _
          , [FilterName], [WhereCondition])
            Membro di Access.DoCmd
    Come puoi notare, DoCmd.OpenReport, a differenza di DoCmd.OpenForm, non
ha l'argomento OpenArgs quindi dovrai lavorare un po' di piu' con gli
oggetti.
    Mi pare che invece il DoCmd.OpenReport di XP abbia l'argomento OpenArgs.
Confermate?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: ricreare tutto il FrontEnd da codice. Si riesce ?

author: Ivan da casa

text:
La domanda mi nasce perchè vorrei rendere abbastanza 'automatica' la fase di
rigenerazione del FE in caso di MDB che si corrompe.
Non ho problemi per le tabelle, sia collegate che create in loco.
Non saprei come affrontare l'importazione delle maschere, reports, (query
forse ce la faccio..), e moduli.
E' chiaro che partirei da un DB pulito e con solo il modulo che contiene
questa procedura di 'rigenerazione'.
Mi indicate, anche brevemente, quali comandi per importare
maschere,reports,query e moduli?
Chiaramente ho in archivio un DB che contiene tutti questi oggetti.
grz
Ivan


author: ALESSANDRO Baraldi

text:

Idea abbastanza anomala... non credi...?
La cosa è un pò complessa ma  questo sarebbe il meno....
Ciclati gli oggetti del DB e usa CopyObject se proprio oppure
TransfertDatabase
dipende da come lo vuoi fare.
Ripeto che è assurdo a mio avviso anche perchè dovresti delegare il tutto ad
un applicativo
separato che dovresti in ogni caso lanciare a mano... ma allora non ti
convene farlo a mano
con il Wizard che ci si impiega 3 secondi...?
Boh
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f46nq0$tri$1...@aioe.org...

Ciao Alex,
okkey è una esigenza anomala e vedrò di percorrere la strada meno irta.
Ma cosa intendi quando dici il Wizard ??
Io conosco quelli di autocomposizione di qualche elemento
(tabelle,query,maschere) ma tu cosa intendi?
IvanDaBologna


text:
> Ciao Alex,
> okkey č una esigenza anomala e vedrň di percorrere la strada meno irta.
> Ma cosa intendi quando dici il Wizard ??
> Io conosco quelli di autocomposizione di qualche elemento
> (tabelle,query,maschere) ma tu cosa intendi?
>
> IvanDaBologna
Menů(File)
------> Carica Dati Esterni
         ------> Importa



text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f46upq$p9i$1...@aioe.org...

Ho capito,
vabbč quello lo uso per forza.
Perň il DB ha in comune oggetti provenienti da piů MDB, (solo) alcune
tabelle collegate, altre locali, (solo alcuni) Moduli ben precisi, + un MDE
da mettere nei riferimenti ... insomma č proprio per evitare di dimenticarmi
qualcosa per strada che volevo costruirmi questa procedura.
Tra l'altro mi sembra che possa essere utile anche come esercizio .. ;))
ciao (e comunque se ottengo un codice compatto lo metto anche qui a titolo
di esempio)
IvanDaBologna


author: Sergio MAZZA

text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio news:4666d6a9$0$4793$4faf...@reader4.news.tin.it...

Se hai problemi frequenti di corruzione di mdb, io farei dei frequenti backup.
Poi indagherei del perché succede.
Infine, se devo tamponare in qualche modo, potrei provare con uno script VBS ad intercettare l'errore di apertura dell'mdb; in caso
positivo sovrascriverei l'mdb con uno salvato in una cartella (magari nascosta) di appoggio...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f489gh$kr4$1...@tdi.cu.mi.it...
> "Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio
> news:4666d6a9$0$4793$4faf...@reader4.news.tin.it...
>> La domanda mi nasce perchč vorrei rendere abbastanza 'automatica' la fase
>> di rigenerazione del FE in caso di MDB che si corrompe.
>> Non ho problemi per le tabelle, sia collegate che create in loco.
>>
>> Non saprei come affrontare l'importazione delle maschere, reports, (query
>> forse ce la faccio..), e moduli.
>>
>> E' chiaro che partirei da un DB pulito e con solo il modulo che contiene
>> questa procedura di 'rigenerazione'.
>>
>> Mi indicate, anche brevemente, quali comandi per importare
>> maschere,reports,query e moduli?
>>
>> Chiaramente ho in archivio un DB che contiene tutti questi oggetti.
>>
>>
>> grz
>>
>> Ivan
>
>
> Se hai problemi frequenti di corruzione di mdb, io farei dei frequenti
> backup.
> Poi indagherei del perché succede.
> Infine, se devo tamponare in qualche modo, potrei provare con uno script
> VBS ad intercettare l'errore di apertura dell'mdb; in caso positivo
> sovrascriverei l'mdb con uno salvato in una cartella (magari nascosta) di
> appoggio...
>
> Ciao.
> --
> Sergio MAZZA
Ciao Sergio,
purtroppo l'errore č nascosto in un solo modulo e bisogna che il codice vada
in esecuzione per ottenere il messaggio esplicito.
La tua soluzione non č da scartare, anzi direi che č la via piů breve per
'ripristinare'.
Ma ... e c'č sempre un ma! Il problema non accade sul mio PC, bensě su
quelli dove andrň ad istallare quello che creo in laboratorio. Non ho ben
compreso il perchč, ma la soluzione č solo una ... reimportare il tutto in
un MDB vuoto.
Ecco il perchč del mio quesito.
Ho cominciato a scrivere la procedura .... spero di arrivarci in fondo!
IvanDaBologna


text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio
news:4667d070$0$10621$4faf...@reader2.news.tin.it...
> Ciao Sergio,
> purtroppo l'errore è nascosto in un solo modulo e bisogna che il codice
> vada in esecuzione per ottenere il messaggio esplicito.
> La tua soluzione non è da scartare, anzi direi che è la via più breve per
> 'ripristinare'.
> Ma ... e c'è sempre un ma! Il problema non accade sul mio PC, bensì su
> quelli dove andrò ad istallare quello che creo in laboratorio. Non ho ben
> compreso il perchè, ma la soluzione è solo una ... reimportare il tutto in
> un MDB vuoto.
> Ecco il perchè del mio quesito.
> Ho cominciato a scrivere la procedura .... spero di arrivarci in fondo!
>
> IvanDaBologna
Hai provato a mettere il modulo su un mdb esterno e inserirlo nei
riferimenti?
Da lo stesso errore?
Ciao.
--
Sergio MAZZA


title: PULSANTE F10

author: ndb

text:
Altra domanda. Come posso fare per creare un pulsante che si attivi premendo
F10. Tipo F10 Nuovo record?
Ho provato con la creazione automatica ma se metto &F10 mi evidenzia solo la
F


title: PULSANTE F10

author: geppo

text:

Imposta nelle proprietą della form scheda "Evento":
Anteprima Tasti = Si
poi scrivi sotto l'evento KeyDown della form:
private sub forms_keyDown(KeyCode as integer, shift as integer)
if keyCode = 121 then
docmd.gotorecord , , acnewrec
end if
end sub
--
Ciao
Geppo


title: PULSANTE F10

text:
geppo wrote:
> ...
> if keyCode = 121 then
> ...
o per vedere subito di cosa si tratta
If KeyCode = vbKeyF10 Then
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: richiamare files con word

author: Ivano

text:
Buongiorno!!!
Vorrei sottoporvi un piccolo quesito, non tanto per me, visto che non
riesco!!!!
devo fare un database per archiviare leggi, circolari DPR ecc. un campo dove
mettere che tipo di documento (magari un menu a tendina), un campo con
l'anno di riferimento, uno con l'oggetto e un altro con il percorso ed il
nome del file in formato word!! ora, con un pulsante, devo far aprire word
ed il file specificato nel campo! dopo svariati tentativi e letture del file
Help sono riuscito ad far aprire word ma non il file specificato nel campo!!
grazie per l'aiuto
Ivano Tamburrini


title: richiamare files con word

text:
"Ivano" <
tambu...@tiscalinet.it
> ha scritto nel messaggio
news:9tad57$t9h$1...@lacerta.tiscalinet.it...

Oltre ai vari esempi che trovi nel sito comune (
www.sitocomune.com
) e nei
precedenti messaggi; invia il tuo codice che lo correggiamo...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


title: Cancella TAB

author: Mauro

text:
C'è la possibilità di cancellare tutte le tabelle di un database .mdb
senza la necessità di andare singolarmente a farlo una per una ?
Grazie


title: Cancella TAB

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.04050...@posting.google.com...
> C'è la possibilità di cancellare tutte le tabelle di un database .mdb
> senza la necessità di andare singolarmente a farlo una per una ?
> Grazie
Con DAO o con una query ricavati l'elenco delle tabelle presenti nel
database e cancellale con il metodo Delete (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cancella TAB

author: Simone

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:KuPlc.168107$Kc3.5...@twister2.libero.it...

Ci provo grazie...


title: Cancella TAB

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:KuPlc.168107$Kc3.5...@twister2.libero.it...

> Scusa Roby ma non rieasco nell'intento.
Mi potresti aiutare ?


title: Cancella TAB

text:
"Simone" <
m.lo...@tin.it
> ha scritto nel messaggio
news:xySlc.194667$rM4.8...@news4.tin.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:KuPlc.168107$Kc3.5...@twister2.libero.it...
> >
> > "Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
> > news:dadb67f6.04050...@posting.google.com...
> > > C'è la possibilità di cancellare tutte le tabelle di un database .mdb
> > > senza la necessità di andare singolarmente a farlo una per una ?
> > > Grazie
> >
> > Con DAO o con una query ricavati l'elenco delle tabelle presenti nel
> > database e cancellale con il metodo Delete (vedi help).
> >
> > --
> > Roberto
> >
> Scusa Roby ma non rieasco nell'intento.
> Mi potresti aiutare ?
Un modo per cancellare TUTTE le tabelle del database corrente che non siano
di sistema e non siano nascoste, usando DAO, è eseguire il seguente codice
VBA:
Dim td As DAO.TableDef
For Each td In CurrentDb.TableDefs
    If (td.Attributes And dbSystemObject) Or _
        (td.Attributes And dbHiddenObject) Then
    Else
        CurrentDb.TableDefs.Delete td.Name
    End If
Next
Il codice VBA di cui sopra, come precedentemente detto, fa riferimento alla
libreria Microsoft DAO quindi, se usi una versione di Access successiva ad
Access 97 devi aggiungere al tuo database i riferimenti a tale libreria.



title: Cancella TAB

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<a%1mc.169124$
Kc3.5...@twister2.libero.it
>...

Grazie ci provo...


title: query non modificabile

author: tipo

text:
ho due tabelle con chiavi multiple, se (in una query) faccio un join con una
sola chiave (quella comune) la query non è modificabile.
si può superare il problema? devo modificare la struttura delle tabelle o
c'è qualche trucco?
grazie.


title: query non modificabile

author: MA

text:
"tipo" <
va...@virgilio.it
> ha scritto nel messaggio
news:c6qjng$eu9cd$1...@ID-168410.news.uni-berlin.de...

NOn è chiarissimo quello che hai detto, però,
nelle relazioni hai settato bene le corrispondenze
tra le due tabelle?
Sii + ricco di particolari.
MAssimiliano


title: query non modificabile

text:
> NOn è chiarissimo quello che hai detto, però,
> nelle relazioni hai settato bene le corrispondenze
> tra le due tabelle?
> Sii + ricco di particolari.
> MAssimiliano
dunque,
la prima tabella "tabella1" ha come chiave il campo "cod" e il campo
"component" (in quanto a parità di cod possono esistere più component)
la seconda tabella "tabella2" ha come chiave il campo "cod" e il campo
"type" (stesso motivo di cui sopra)
se faccio il join fra le tabelle 1 e 2 attraverso il campo "cod" la query
non è modificabile.
se le due tabelle avessero delle chiavi singole (ad esempio solo il campo
"cod") e facessi il join su "cod" la query sarebbe modificabile.
siccome ho bisogno delle chiavi multiple (1° caso) vorrei sapere se si può
rendere modificabile la query.
grazie.


title: query non modificabile

author: namor

text:
tipo ha scritto:


Non puoi. Per restituire un recordset aggiornabile in una query devi fare
le relazioni utilizzando l'intera chiave primaria, non uno solo dei campi.
Una situazione di questo genere non dovrebbe mai verificarsi, salvo casi
particolarissimi. Il fatto che tu abbia bisogno di una relazione che
interessa uno solo dei due campi di una chiave primaria indica molto
probabilmente un errore di progettazione della struttura tabellare del
database. Probabilmente basta dividere la tabella che ha la doppia chiave
in due tabelle distinte, ciascuna con la sua chiave.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Gestione di un contatore

author: Antonio Biso

text:
Rocco Martino <
roc...@tin.it
> wrote in message
tuTm6.20527$q97.4...@twister1.tin.it...
> Ho una tabella con un contatore come chiave Primaria , che chiamerņ
IdKont.
> Ho neccessita di recuperare  un valore di IdKont, se vi č stata
> un'eliminazione di un record dalla tabella in questione
No!
Se il contatore č usato come chiave primaria, e quindi con nessuno scopo di
numerazione dei record, non devi recuperare il valore ma andare avanti con
quelli proposti.
A parte la problematica di eventuali record correlati che posseggano il
valore eliminato che verrebbe riassociato al nuovo record,
ma che te frega di recuperare il valore?!!?
L'identificazione univoca continui ad averla anche con i nuovi valori
proposti da lui!!!
Antonio


title: Calcolo su Cespiti

author: Luigi

text:
Buongiorno a tutti
Avrei bisogno la Vostra gradita consulenza per il seguente problemino:
Ho una query che mi estrapola dati da un gestionale relativamente ai
cespiti.
Una riga di tale query è la seguente:
GRUPPO   CODICE     AN_ACQ     A_AMM       COSTO_ORI    AMM_INI
RESIDUO_2000    P_MINIST
000007        000191          2000           2000               6610,65
0,00                6610,65                25,00
AN_A corrisponde all'anno di acquisto
A_AM corrisponde all'anno a cui si dovrà calcolare l'ammortamento
COSTO_ORI (chiaramente il costo originario del bene)
AMM_INI (chiaramente a 0 in quanto il bene acquistato nel 2000 deve ancora
essere ammortizzato
RESIDUO_2000 (valore residuo del bene
P_MINIST l'aliquota stabilita dal ministero
La mia necessità sarebbe che (qualora fosse possibile) una query o un modulo
provveda automaticamente a calcolare:
GRUPPO       CODICE       AN_A       A_AM        COSTO_ORI       AMM_INI
RESIDUO_2000     P_MINIST
000007             000191         2000        2000             6610.65
826.33               5.784.32                  12,50
000007             000191         2000        2001             6610.65
1.652,66              4.131,66                  25,00
000007             000191         2000        2002             6610.65
1.652,66              2.479,00                  25,00
000007             000191         2000        2003             6610,65
1.652,66                 826,34                  25,00
000007             000191         2000         2004            6610,65
826,34                      0,00                   12,50
Da notare che il primo anno l'ammortamento corrisponderà al 50% de P_MINIST
e di conseguenza l'ultimo anno sarà sempre 50% del P_MINIST.
Quindi sono necessari due controlli:
il primo per la verifica che ad AN_A = A_AM   P_MINIST = P_MINIST / 2
il secondo che AMM:INI non sia mai superiore di RESIDUO_2000
Prego perdonare la lungaggine ma non sono riuscito a fare meglio ?
Grazie per ogni suggerimento
LuLu


title: telefonate

author: Mike Dens

text:
ciaoa tutti mi ripresento!!!...vi dico quel che mi paicerebbe fare: poter
gestire una chiamata telefonica con access. Mi spiego: desidero poter da una
lista di numeri di telefono poter cliccare su un pulsante ed in automatico
attivare la chiamata. Ho già una scheda ISDN nel pc tramite, con una web cam, e
tramite il prg che mi è stato fornito telefono normalmente. Quel che vorrei
fare è fare un passo più avanti ( forse troppo lungo??? :-) ) e cioè attivare
la chiamata da access!! avete suggerimenti preziosi da darmi????
grazie e ciao
mike
--
Posted from
epid-28-dns.ifc.cnr.it
 [146.48.71.90]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: telefonate

author: Cellofan

text:
Mike Dens wrote:
> ciaoa tutti mi ripresento!!!...vi dico quel che mi paicerebbe fare: poter
> gestire una chiamata telefonica con access. Mi spiego: desidero poter da
> una lista di numeri di telefono poter cliccare su un pulsante ed in
> automatico attivare la chiamata. Ho già una scheda ISDN nel pc tramite,
> con una web cam, e tramite il prg che mi è stato fornito telefono
> normalmente. Quel che vorrei fare è fare un passo più avanti ( forse
> troppo lungo??? :-) ) e cioè attivare la chiamata da access!! avete
> suggerimenti preziosi da darmi???? grazie e ciao
> mike
>
>
se mi ricordo bene, nel database dimostrativo North....  con ACCESS 2.0 vi
era  un script in VB.


title: telefonate

author: principiante

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:8b5bc52804db4bdfca...@mygate.mailgate.org...

Basta che aggiungi il pulsante "telefono" alla barra degli strumenti"
Visualizza-BarreDegliStrumenti-Personalizza-Comandi-Record-ComposizioneAutom
atica.
Naturalmente devi aver caricato con Windows l'esecutivo
"NonMiRicordoComeSiChiama.exe" (forse DialUp..)
Ciao


title: telefonate

text:
"principiante" <
p.pe...@inrete.it
> wrote in message
news:3bf4...@news.opennet.it...
>
Grazie mille 'Principiante'..come vedi io lo sono ancor di più!! :-)
--
Posted from  [62.211.216.110]



title: Automazione con excel ... help me please ...

author: hoyt

text:
Buon giorno a tutto il NG,
sono ormai agli sgoccioli come "pazienza" dopo averle ormai provate
tutte ... ho automatizzato l'esportazione di dati in un file excel,
attingendo i dati da due tabelle distinte che mi permettono, la prima
di inserire i dati nella parte superiore di un foglio, creando
contestualmente tanti fogli di lavoro quante sono le annualità ...
tutto questo utilizzando un "modello" in cui ho inserito dei TAB (nomi
di cella) ... nel momento in cui dovrei popolare la parte inferiore
del foglio ricavando i dati dalla seconda tabella sembra non volerne
sapere di individuare correttamente i TAB successivi di riferimento ma
prende dei riferimento di colonne e righe "a sua testa" ... per
posizionarmi uso questi parametri:
----> per la parte sopra:
        posizioneBianco = Left(.Range(.Names(, "bianco")).Address(),
2)
        posizioneNumero = Left(.Range(.Names(, "atto")).Address(), 2)
        posizioneAnno = Left(.Range(.Names(,
"valore_anno")).Address(), 2)
        posizioneAnno1 = Left(.Range(.Names(,
"valore_anno_1")).Address(), 2)
        posizioneAnno2 = Left(.Range(.Names(,
"valore_anno_2")).Address(), 2)
        posizioneAnnoX = Left(.Range(.Names(,
"valore_anno_X")).Address(), 2)
        rigaArticolo = Val(Mid(.Range(.Names(, "atto")).Address(), 4))
----> per la parte sotto:
        posizioneBianco_C = Left(.Range(.Names(,
"bianco_C")).Address(), 2) '--> .Address() ritorna $A$19
        posizioneNumero_C = Left(.Range(.Names(, "atto_C")).Address(),
2) '--> .Address() ritorna $A$19
        posizioneAnno_C = Left(.Range(.Names(,
"valore_anno_C")).Address(), 2)
        posizioneAnno1_C = Left(.Range(.Names(,
"valore_anno1_C")).Address(), 2)
        posizioneAnno2_C = Left(.Range(.Names(,
"valore_anno2_C")).Address(), 2)
        posizioneAnnoX_C = Left(.Range(.Names(,
"valore_annoX_C")).Address(), 2)
        rigaArticolo_C = Val(Mid(.Range(.Names(, "atto_C")).Address(),
4))
... il popolamento avviene attraverso l'inserimento di righe tramite:
            rst.MoveNext
            If Not rst.EOF Then
                .Selection.EntireRow.Insert
            End If
Come faccio a fargli trovare con certezza la cella della parte
inferiore del foglio, da cui far partire l'inerimento ?
Spero di essere stato abbastanza chiaro, e se non lo sono stato me ne
scuso sin d'ora ...
Grazie a tutti per l'attenzione.
Francesco


text:

... scusate la prolissità dell'intervento ... ma ora sarò decisamente
più breve ...
solo per dire che sbattendo sbattendo ho risolto modificando la
routine in maniera tale
che vada a scrivere la parte sopra del foglio e quella sotto in una
"unica passata" per poi creare
un nuovo foglio al cambio dell'nnualità ... sicuramente più complicato
dal punto di vista dei controlli e
meno "pulito" ma almeno funzionale ...
Grazie lo stesso per l'attenzione e colgo l'occasione per fare a tutti
gli auguri per il prossimo
Ferragosto nella speranza che quanti di voi più possibile siano già in
ferie a riposare.
Francesco


title: Ancora sulla lingua dei messaggi di errori

text:
ciao a tutti
tempo fa una ragazza si lamentava perche il suo access 97 aveva iniziato a
dargli i messaggi di errore in tedesco.
da un giorno all'altro è successa la stessa cosa anche a me, ieri mi dava i
messaggi di errore in inglese, oggi in francese !
sono andato a cercare nello storico del NG le lettere di questa ragazza per
trovare una soluzione ma non le ho piu trovate
chi mi sa aiutare a rimettere i messaggi di errore in inglese (vers. access
97)
grazie


author: Karl Donaubauer

text:
pac77 <
pa...@libero.it
> ha scritto:
> tempo fa una ragazza si lamentava perche il suo access 97 aveva iniziato a
> dargli i messaggi di errore in tedesco.
Beh, dove il problema? :-)
> da un giorno all'altro è successa la stessa cosa anche a me, ieri mi dava i
> messaggi di errore in inglese, oggi in francese !
>
> sono andato a cercare nello storico del NG le lettere di questa ragazza per
> trovare una soluzione ma non le ho piu trovate
>
> chi mi sa aiutare a rimettere i messaggi di errore in inglese (vers. access
> 97)
Succende qualche volta se viene installato un programma come
p.e. Visual Basic in un'altra lingua. In ogni caso un programma
che cambia il file msjint35.dll (normalmente in c:\windows\system
o c:\winnt\system32 ecc.).
Questo file debbi copiare di nuovo dal office-cd o da un altro computer.
Per trovare per sicuro la versione inglese puoi clikkare a destra con
il mouse e vedere le proprietà del file. C'è una che mostra la lingua.
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


text:
pac77 <
pa...@libero.it
> ha scritto:
> tempo fa una ragazza si lamentava perche il suo access 97 aveva iniziato a
> dargli i messaggi di errore in tedesco.
Beh, dove il problema? :-)
> da un giorno all'altro è successa la stessa cosa anche a me, ieri mi dava i
> messaggi di errore in inglese, oggi in francese !
>
> sono andato a cercare nello storico del NG le lettere di questa ragazza per
> trovare una soluzione ma non le ho piu trovate
>
> chi mi sa aiutare a rimettere i messaggi di errore in inglese (vers. access
> 97)
Succede se viene installato un programma che cambia il file
msjint35.dll (normalmente in c:\windows\system o c:\winnt\system32).



title: query di eliminazione: COULD NOT DELETE FROM SPECIFIED TABLES

author: dIna

text:
Ciao e grazie a chiunque mi voglia aiutare,
il mio problema è il seguente:
ho una pagina asp, dedicata alla gestione di date di concerti, che mi
dovrebbe eseguire la seguente query per l'eliminazione di tutte le
date più vecchie di un mese dal giorno corrente (nota bene che la data
nel db è salvata come stringa ed inserita nel formato AA/MM/GG) che
non sono state recensite (quindi con id = null, oppure categoria <> da
2 perchè possono esserci recensioni di album con lo stesso id del
concerto ma che sono distinte grazie alla categoria per l'appunto.):
DELETE tb_concerto.*, tb_concerto_gruppo.*
FROM (tb_concerto LEFT JOIN tb_recensione ON tb_concerto.id_concerto =
tb_recensione.a) LEFT JOIN tb_concerto_gruppo ON
tb_concerto.id_concerto = tb_concerto_gruppo.concerto
WHERE (((tb_concerto.data)<'04/03/10') AND
((tb_recensione.id_recensione) Is Null)) OR
(((tb_concerto.data)<'04/03/10') AND ((tb_recensione.categoria)<>2));
Per darvi un'idea del significato delle tabelle:
tb_concerto -> contiene le info riguardanti la data, tipo il luogo il
giorno ecc...
tb_concerto_gruppo -> ogni record è composto da una sua chiave
primaria, la chiave primaria del concerto e la chiave primaria di un
gruppo (i cui dati (nome, genere, bio, ecc) sono salvati in
un'ennesimo database)
ogni concerto può avere più gruppi associati
tb_recensione -> contiene dati relativi alla recensione (autore,
recensione, data, ecc) le recensioni possono essere oltre di concerti
anche di album.
nella tabella recensoni viene salvato solo l'id del concerto o
dell'album recensito nel campo tb_recensione.a
può capitare che album e concerto abbiano lo stesso id.
la cosa che differenzia nella tabella recensioni una allbum da un
concerto è il campo tb_recensione.categoria
Quando la categoria è = 2 si tratta di un concerto
Il mio problema è che la pagina asp non cancella alcun record e se
eseguo la query da access mi da il seguente errore:
COULD NOT DELETE FROM SPECIFIED TABLES
Però se trasformo la query di eliminazione in query di selezione la
query funziona e mi mostra i record che vorrei cancellare
Spero di essere stato chiaro al punto di avervi fatto capire il
problema e come potermi aiutare.
Grazie in ogni caso.
Sono bene accette anche soluzioni alternative altrettanto efficaci.


title: Disegno "dinamico"

author: Dany

text:
Salve...quesito o richiesta di suggerimenti....
devo inserire in un form e poi report una piccola immagine (bmp o jpg ma
questo ha poca importanza) ed a seconda del punto (sempre gli stessi punti
fissi, ce ne sono vari, mettiamo una ventina) segnare la selezione
dell'utente...ovvero se sceglie porta mettere una "X" se sceglie finestra un
cerchio o altro....
come si potrebbe procedere per fare una cosa del genere ?
Pensavo di "mappare" ciascuno dei punti con un ID univoco ed a seconda delle
selezione contrassegnerlo con la "X" appunto oppure con il cerchio...ma come
si fa ????
Grazie a chi mi potrą aiutare ed illuminare...


title: Disegno "dinamico"

author: Gaspare

text:
[CUT]
Ciao,
scusa la selezione avviene tramite mouse? Cioč a seconda di dove clicca
l'utente ti deve aggiornare una tabella?
Spiegati meglio...


title: Disegno "dinamico"

text:
"Gaspare" <
break...@email.it
> ha scritto nel messaggio
news:Z4lue.60089$75.30...@news4.tin.it...
> [CUT]
>
> Ciao,
> scusa la selezione avviene tramite mouse? Cioè a seconda di dove clicca
> l'utente ti deve aggiornare una tabella?
>
> Spiegati meglio...
>
allora diciamo che in questo disegno ci siano 20 punti fissi (sempre gli
stessi...chiamiamoli P1, P2, P3 etc)...a seconda di DOVE nel disegno
l'utente clicca l'utente...ci sia la possibilità di trasformarlo in una "X"
oppure un cerchio o altro...la selezione avviene tramite mouse.
Diciamo pure che la sorgente dei punti è una tabella...
Grazie per l'interessamento...


title: Disegno "dinamico"

author: Carlo Costarella

text:
"Dany" <
De...@libero.it
> ha scritto nel messaggio
news:42b9dc6c$0$19527$5fc...@news.tiscali.it...

Anche le etichette hanno un evento click e possono essere trasparenti.
Potresti sistemare 20 etichette (P1,P2,P3...) sopra la tua immagine o dove
vuoi e assegnare a ciascuna una funzione.
Ciao, Carlo


title: da codice VBA creare un file testo con più righe

text:
ad ogni iterazione di un ciclo for dovrei creare un file di testo con una
riga aggiuntiva
esempio
for i = 1 to 5
    creafileditesto & riga(i) & chr(10)
next i
alla fine dovrò avere nel file di testo
riga 1
riga 2
riga 3
riga 4
riga 5
Grazie a tutti.


author: Emyr

text:
On Tue, 25 Feb 2003 10:50:20 +0100, "Simba883" <
simb...@libero.it
>
wrote:

vedi write ed open per il ritorno a capo usa la costabte vbcrlf
Saluti.
Emanuele.


title: Sì, so programmare in access! Voi no.

author: RoDAgo

text:
sib scrisse...
> Mi pregio di comunicare al NG che ho inviato questa mail alla signora
> sottoindicata.
>
> Ciao a tutti, Sib
>
[cut]
> Oggetto: Sai programmare in Access?
>
[cut]
> Ho visitato tale sito.
> Come altri membri del NG it.comp.appl.access e collaboratori del relativo
> sito comune esprimo il mio massimo sdegno e disappunto per la
spregiudicata
> operazione di plagio da voi compiuta.
Sti Stron@i, Bastar@i !!!
> Vi invito a rimuovere dal vostro sito tutto il materiale che riporta me
come
> autore, da voi palesemente copiato dal sito comune
>
http://members.xoom.it/it_db_access/
 dove legittimamente si trova.
> Sto già provvedendo ad informare il mio avvocato, peraltro esperto di
frodi
> informatiche, di tale abuso.
> Verificherò entro pochissimi giorni a che voi abbiate provveduto a quanto
da
> me richiesto.
Hai tutto il mio appoggio, se hai bisogno di aiuto legale fammi sapere
tramite mail!!!!
> Sib
--
RoDAgo


title: stampa campi con esclusione

author: cio

text:
ciao
ho una serie di campi in una tabella e vorrei fare stampare i campi che
hanno dei dati inseriti tranne quelli che hanno un carattere particolare
*tutti all'interno di una stessa casella di testo di un report* :
Campo1    "valore"
Campo2    "-"
Campo3    "valore"
Campo4    "valore"
Vorrei nella stampa tutti i campi con qualsiasi valore *tranne* quelli con
il trattino (In questo caso Campo1, Campo3 e Campo4). Non saprei che evento
mettere nel report, come impostereste il codice?
Grazie 1000
cio


title: stampa campi con esclusione

author: VT @ Work

text:
On Fri, 13 Apr 2007 11:44:36 +0200, "cio" <
c...@cio.it
> wrote:
 (...)

Una soluzione (poco efficiente) potrebbe essere la definizione
dell'origine del controllo del report come
=Iif(Campo1="-";"";Campo1) &  Iif(Campo2="-";"";Campo2) &
Iif(Campo3="-";"";Campo3)
Oppure potresti definire una serie di query che restituiscono ciascuna
uno dei campi oltre alla chiave rimaria della tabella solo per i
record dove il campo è diverso da -
Q_Campo1
SELECT ID_Record, Campo1 FROM TuaTabella WHERE Campo1<>"-"
Q_Campo2
SELECT ID_Record, Campo2 FROM TuaTabella WHERE Campo2<>"-"
...
quindi definire una query
SELECT ID_Record  From TuaTabella LEFT JOIN Q_Campo1 ON
TuaTabella.ID_Record=Q_Campo1.ID_Record LEFT JOIN Q_Campo2 ON
TuaTabella.ID_Record=Q_Campo2.ID_Record
e mettere tale query come origine dati del report
oppure potresti scrivere una funzione VBA che restituisce per ogni
record della tabella la concatenazione dei campi che non contengono -
da impostare come origine dati del controllo del report.
>Grazie 1000
>cio
>
>


title: stampa campi con esclusione

text:
"VT @ Work" <V...@Work.it> ha scritto nel messaggio
news:461f5315...@firewall.regione.toscana.it...
> On Fri, 13 Apr 2007 11:44:36 +0200, "cio" <
c...@cio.it
> wrote:
> (...)
> Una soluzione (poco efficiente) potrebbe essere la definizione
> dell'origine del controllo del report come
>
> =Iif(Campo1="-";"";Campo1) &  Iif(Campo2="-";"";Campo2) &
> Iif(Campo3="-";"";Campo3)
Ti ringrazio ho usato quella "poco efficiente" perchč avevo veramente poco
lavoro da far fare (ma non sapevo come farglielo fare!)...
l'ho dovuto correttamente formattare ocsě =IIF([Campo1]= ecc... mettendo
tutte le parentesi quadre ma per il resto funziona che č una meraviglia.
Ti ringrazio e a risentirci... non mancherň di disturbare ancora! :-)
cio


title: Controlla se i campi sono vuoti ma riporta errore 424

author: JoeBlack

text:
Ciao a tutti....
mi sono fermato su un controllo di una maschera...
Private Sub Pl_InsOp_Click()
If Me.c_Nome Is Null Or Me.c_Pass Is Null Then
MsgBox "Non è possibile lasciare campi vuoti", vbCritical, "Attenzione"
Exit Sub
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
sul click mi dice: errore run-time 424 - necessario oggetto?
why????
Saluti Joe e.... grazie :)


author: MA

text:
"JoeBlack" <
web...@email.it
> ha scritto nel
messaggio
news:yVd2d.260860$OR2.11...@news3.tin.it...

if isnull(me.c_nome) ...
MAssimiliano


text:
Grazie MAssimiliano
la vostra pazienza č veramente da lodare...


title: Formattazione condizionale in maschera continua su tutti i Ctrl del record corrente??

author: Mario

text:
Salve a tutti, sebbene possieda Access 2003, non riesco ad applicare la
formattazione condizionale di tutti i controlli del record corrente (
riesco solo con un controllo alla volta), ho cercato vecchi post ma non sono
riuscito.
Sul sito comune c'è pure un esempio ma il codice è troppo complesso per le
mie limitate capacità.
Grazie per gli eventuali consigli
Ciao Mario


author: Sandro

text:
"Mario" <
loverin...@virgilio.it
> ha scritto nel messaggio
news:ahdNd.835706$35.32...@news4.tin.it...

Ciao Mario, io ho utilizzato questa function prelevata sebben ricordo dal
sito di @Alex
Non so se faccia al caso tuo perche non dici nulla di come deve essere la
formattazione dei controlli, questa crea un'alternanza nei colori
Private Function GetRecNum() As Long
  On Error GoTo erh
  Dim Frm As Form
  Set Frm = CodeContextObject
  With Frm.RecordsetClone
        If Not ((.BOF = True) And (.EOF = True)) Then
               .bookMark = Frm.bookMark
               GetRecNum = .AbsolutePosition + 1
        End If
  End With
ext:
  Set Frm = Nothing
  Exit Function
erh:
  GetRecNum = 0
  Resume ext
End Function
 la metti su apertura della tua form.
poi vai su formattazione condizionale dei campi che ti interessa e ci metti
: su nessuna condizione un tipo di formattazione che vuoi tu e poi su
condizione 1 l'espressione è: GetRecNum() Mod 2<>0
Vedi se ti può essere d'aiuto. Ciao.


text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:q_dNd.835815$35.32...@news4.tin.it...

Ciao Sandro, non riesco a usare l'esempio che mi hai postato a causa della
"nidificazione" della Sub Form_Open con la Function GetRecNum (Errore:
prevista End Sub che puntualmente metto ma che non mi accetta), tuttavia a
me servirebbe evidenziare con colore di sfondo tutti i controlli del Record
Corrente, degli altri non mi interessa, devono rimanere come sono
Ciao Mario


text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:q_dNd.835815$35.32...@news4.tin.it...

Sono riuscito ad usare la funzione ( che idiota che sono!) ma come previsto
mi seleziona un record si ed uno no mentre io vorrei solo il record corrente
Grazie
Mario


text:
"Mario" <
loverin...@virgilio.it
> ha scritto nel messaggio
news:kffNd.835945$35.32...@news4.tin.it...

Ciao Mario, se ho ben capito ciò che stai cercando di fare, hai bisogno di
evidenziare il record che viene selezionato in una form a maschere continue
??
Se si, sempre sul sito di @Alex trovi un esempio di Silvio Savoldi nella
sezione Forms "Evidenziare records in viste tabellari".
Provalo.
Ci risentiamo domani nel pomeriggio. Buona notte !!


text:
Mario wrote:
> Salve a tutti, sebbene possieda Access 2003, non riesco ad applicare la
> formattazione condizionale di tutti i controlli del record corrente (
> riesco solo con un controllo alla volta), ho cercato vecchi post ma non
> sono riuscito.
> ...
Ci sono metodi vari. Uno è di programmare la FC.
Se p.e. hai un campo "Id" che identifica un record e vuoi un colore
di fondo verde in ogni casella di testo/combinata/di riepilogo nel
record corrente puoi usare il seguente codice nel evento
"Su Corrente" della maschera:
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox
            With ctl
                .FormatConditions.Delete
                .FormatConditions.Add acExpression, acEqual, "id=" & Me!id
                .FormatConditions(0).BackColor = vbGreen
            End With
    End Select
Next ctl
Oppure se vuoi un colore di fondo per tutta la sezione corpo del
form puoi crearti una casella di testo "txtFondo" grande come la
completa sezione corpo e scegli menu Formato/Porta in secondo
piano. Poi "Su Corrente" della maschera usi:
With Me!txtFondo
    .FormatConditions.Delete
    .FormatConditions.Add acExpression, acEqual, "id=" & Me!Id
    .FormatConditions(0).BackColor = vbGreen
    .FormatConditions(0).Enabled = False
End With
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


author: Ebo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:36mqpeF...@individual.net...
> Mario wrote:
>> Salve a tutti, sebbene possieda Access 2003, non riesco ad applicare la
>> formattazione condizionale di tutti i controlli del record corrente (
>> riesco solo con un controllo alla volta), ho cercato vecchi post ma non
>> sono riuscito.
>> ...
>
> Ci sono metodi vari. Uno č di programmare la FC.
> Se p.e. hai un campo "Id" che identifica un record e vuoi un colore
> di fondo verde in ogni casella di testo/combinata/di riepilogo nel
> record corrente puoi usare il seguente codice nel evento
> "Su Corrente" della maschera:
>
> Dim ctl As Control
> For Each ctl In Me.Controls
>    Select Case ctl.ControlType
>        Case acTextBox, acComboBox, acListBox
>            With ctl
>                .FormatConditions.Delete
>                .FormatConditions.Add acExpression, acEqual, "id=" & Me!id
>                .FormatConditions(0).BackColor = vbGreen
>            End With
>    End Select
> Next ctl
>
>
Perfetto č quello che cercavo!
Puoi spiegarmi qualcosa in piů visto che vorrei applicare piů di un
criterio: cosa significa (0)? perchč l'uso di Delete?
Criterio1    campo1(boleano) = -1    formatconditions.fontbold = true
Criterio2    campo2 isnull              formatconditions.forecolor = vbred
Siccome i criteri possono coesistere devo inserirli in 2 if
o c'č qualche modo diverso(altre istruzioni nel With)?
Ti ringrazio Ebo


text:
Ebo wrote:
> "Karl Donaubauer ha scritto:
>>> Salve a tutti, sebbene possieda Access 2003, non riesco ad applicare la
>>> formattazione condizionale di tutti i controlli del record corrente (
>>> riesco solo con un controllo alla volta), ho cercato vecchi post ma non
>>> sono riuscito.
>>> ...
>> Ci sono metodi vari. Uno è di programmare la FC.
>> Se p.e. hai un campo "Id" che identifica un record e vuoi un colore
>> di fondo verde in ogni casella di testo/combinata/di riepilogo nel
>> record corrente puoi usare il seguente codice nel evento
>> "Su Corrente" della maschera:
>>
>> Dim ctl As Control
>> For Each ctl In Me.Controls
>>    Select Case ctl.ControlType
>>        Case acTextBox, acComboBox, acListBox
>>            With ctl
>>                .FormatConditions.Delete
>>                .FormatConditions.Add acExpression, acEqual, "id=" & Me!id
>>                .FormatConditions(0).BackColor = vbGreen
>>            End With
>>    End Select
>> Next ctl
>>
> Perfetto è quello che cercavo!
> Puoi spiegarmi qualcosa in più visto che vorrei applicare più di un
> criterio: cosa significa (0)? perchè l'uso di Delete?
La FC permette 3 condizioni e formattazioni come vedi anche
nel dialogo dal menu. Nel codice sono numerati 0, 1, 2.
Delete e Add sono solo necessario se non ci sono impostati
condizioni e formattazioni. Se ci sono già basta usare Modify:
With ctl
  .FormatConditions(0).Modify acExpression, acEqual, "id=" & Me!id
  .FormatConditions(1).Modify ...
  .FormatConditions(2).Modify ...
End With
> Criterio1    campo1(boleano) = -1    formatconditions.fontbold = true
> Criterio2    campo2 isnull              formatconditions.forecolor = vbred
> Siccome i criteri possono coesistere devo inserirli in 2 if
> o c'è qualche modo diverso(altre istruzioni nel With)?
Non so se ti capisco bene.
Puoi aggiungere piu condizioni/formattazioi con codice:
.FormatConditions.Delete
.FormatConditions.Add acExpression, acEqual, "id=" & Me!ID
.FormatConditions(0).BackColor = vbGreen
.FormatConditions.Add acExpression, acEqual, "Campo1=-1"
.FormatConditions(1).FontBold = True
.FormatConditions.Add acExpression, acEqual, "IsNull(Campo2)"
.FormatConditions(2).ForeColor = vbRed
Ma come 1 e 2 sono statico puoi anche impostare tutti e tre nel
dialogo (menu format/FC) e modificare solo la prima = l'unica
condizione dinamica "Su Corrente" della maschera:
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case ctl.ControlType
        Case acTextBox, acComboBox, acListBox
            ctl.FormatConditions(0).Modify acExpression, acEqual, "id=" &
Me!id
    End Select
Next ctl
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ:
http://www.donkarl.com


text:
"Mario" <
loverin...@virgilio.it
> ha scritto nel messaggio
news:ahdNd.835706$35.32...@news4.tin.it...
> Salve a tutti, sebbene possieda Access 2003, non riesco ad applicare la
> formattazione condizionale di tutti i controlli del record corrente (
> riesco solo con un controllo alla volta), ho cercato vecchi post ma non
> sono riuscito.
> Sul sito comune c'č pure un esempio ma il codice č troppo complesso per le
> mie limitate capacitŕ.
> Grazie per gli eventuali consigli
> Ciao Mario
>
Ringrazio per la cortesia Sandro e Karl, gli esempi proposti sono proprio
quello che cercavo thanks.


author: Francesco

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> wrote in message news:<
36nie2F...@individual.net
>...

Posso chiedere qualcosa a riguardo ??
  1) E' possibile togliere lo sfarfallio che genera il processo su record corrente ?
  2) E' possibile gestire il tutto su campi non abilitati e bloccati ?
  3) E' possibile elimanare il fastidioso cursore con la sua evidenziazione ?
Grazie.


text:
Francesco wrote:
> "Karl Donaubauer wrote:
>> ...
>> Ma come 1 e 2 sono statico puoi anche impostare tutti e tre nel
>> dialogo (menu format/FC) e modificare solo la prima = l'unica
>> condizione dinamica "Su Corrente" della maschera:
>>
>> Dim ctl As Control
>> For Each ctl In Me.Controls
>>     Select Case ctl.ControlType
>>         Case acTextBox, acComboBox, acListBox
>>             ctl.FormatConditions(0).Modify acExpression, acEqual,
>> "id=" & Me!id
>>     End Select
>> Next ctl
>
> Posso chiedere qualcosa a riguardo ??
>  1) E' possibile togliere lo sfarfallio che genera il processo su
>  record corrente ?
No.
> 2) E' possibile gestire il tutto su campi non abilitati e bloccati ?
Sě.
> 3) E' possibile elimanare il fastidioso
> cursore con la sua evidenziazione ?
Non capisco.



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:36pbacF...@individual.net...
> Francesco wrote:
>> "Karl Donaubauer wrote:
>>> ...
Ti ringrazio: sei stato esauriente e "a lettura " mi sembra tutto chiaro.
Ciao  Ebo


text:
Ebo wrote:
> "Karl Donaubauer ha scritto:
>>>> ...
> Ti ringrazio: sei stato esauriente e "a lettura " mi sembra tutto chiaro.
Per caso sto scrivendo un articolo per una rivista tedesca
dove tra l'altro la FC è un soggetto. Allora uso questi esempi
anche per l'articolo. --> sinergia
--
:-)



author: Andrea Beretta

text:
"Ebo"
> Ti ringrazio: sei stato esauriente e "a lettura " mi sembra tutto chiaro.
Ti consiglio di scaricare gli esempi che trovi sul Sito Comune (a cui Karl
si è rifatto): autore Alessandro Baraldi o Silvio Savoldi ... beh, al
momento non ricordo!  :-)
Andrea


text:
Andrea Beretta wrote:
> "Ebo"
> ...
> Ti consiglio di scaricare gli esempi che trovi sul Sito Comune (a cui Karl
> si è rifatto):
Non sono sicuro che vuol dire "si è rifatto".
Non conosco gli esempi sul SC.
Invece conosco la FC e FormatConditions da >5 anni.
> autore Alessandro Baraldi o Silvio Savoldi ... beh, al
> momento non ricordo!  :-)
--



text:
"Karl Donaubauer"
> Non sono sicuro che vuol dire "si č rifatto".
> Non conosco gli esempi sul SC.
Pare impossibile.
> Invece conosco la FC e FormatConditions da >5 anni.
Mah, sul web il primo esempio di formattaz. condizionale per
l'evidenziazione del Record corrente "decente" che abbia trovato č quello
cui mi riferisco.
Le soluzioni proposte da Lebans o altri su aree USA erano troppo complesse.
Andrea


text:
Andrea Beretta wrote:
> "Karl Donaubauer"
>
>> Non sono sicuro che vuol dire "si è rifatto".
>> Non conosco gli esempi sul SC.
>
> Pare impossibile.
>
>> Invece conosco la FC e FormatConditions da >5 anni.
>
> Mah, sul web il primo esempio di formattaz. condizionale per
> l'evidenziazione del Record corrente "decente" che abbia trovato è quello
> cui mi riferisco.
>
> Le soluzioni proposte da Lebans o altri su aree USA erano troppo
> complesse.
Sembra che il mondo di Access è più grande dei siti che conosci tu.
