title: Lira euro come gestirli

author: Carlo Ve

text:
Luca Proietti <
sis...@tiscalinet.it
> wrote in message
195Z230Z211Z43Y...@usenet.iol.it...
> Salve a tutti.
> Sto realizzando ua applicazione e mi sono posto il dubbio
> di come visualizzare il doppio sistema monetario cioč:
> come memorizzarlo e
> come far comparire il simbolo dell'euro o quello della lira a seconda del
> tipo di moneta scelta.
Ti dico come li ho voluto gestiti nelle mie applicazioni
ho creato doppi campi per tutti i valori numerici che contengono  valori
monetari
non assegnando a nessuno il formato valuta bensi formato numerico
Standard con decimali = 0 per i valori in L.
precisione doppia fromato #.## decimali 2 per i campi con formato in Euro
nelle maschere ho inserito tutti i controlli numerici doppi ma sovrapposti e
a seconda
dell'opzione scelta anche in sede di singola maschera vengono visualizzati
solo i controlli in Euro piuttosto che Lire
che poi  hanno anche uno sfondo differente. Chiaro che dopo l'aggiornamento
di ogni singolo controllo
viene eseguita una funzione che converte Lire in Euro o viceversa tenedo
conto delle relative regole di arrotondamento (se cerchi nei messaggi
indietro dovresti trovarne una appostia).
by
Carlo Ve


title: Lira euro come gestirli

author: Fabio Dalla Villa

text:
> Salve a tutti.
> Sto realizzando ua applicazione e mi sono posto il dubbio
> di come visualizzare il doppio sistema monetario cioè:
> come memorizzarlo e
> come far comparire il simbolo dell'euro o quello della lira a seconda del
> tipo di moneta scelta.
>
> --------------------------------
Io per ora tengo solo le Lire: nelle maschere e nei report aggiungo una
casella dove divido per 1936.27 (dove occorre) per la doppia
rappresentazione.
Mi pare che dal 1° Marzo 2002 ci saranno solo gli euro e quindi allora
convertirò le lire in euro (aggiungendo i 3 decimali prescritti) ed
eliminerò le caselle che dividono per 1936.27. L'unico accorgimento sarà
tradurre quegli importi che si tramandano (tipo crediti e debiti per calcoli
di interessi di mora, ecc.).
--
Fabio Dalla Villa
Biella (BI) 13900


title: Lira euro come gestirli

text:
Fabio Dalla Villa <
f...@gvo.it
> wrote in message
9903ij$ltl$1...@pegasus.tiscalinet.it...

Permettimi un'osservazione
la vedo un po' limitativo come discorso
come fai a gestire quelle situazioni a metà del guado
ad esempio una fattura arrivata in dicembre 2001 in lire e che dovra essere
pagata
a marzo in Euro ?
inoltre cosi' facendo  non avresti alcuna forma di continutità'
che fai ceri due programmi separati uno il lire ed uno in Euro?
Carlo Ve


title: Lira euro come gestirli

author: eliop

text:
>ho creato doppi campi per tutti i valori numerici che contengono  valori
>monetari
>non assegnando a nessuno il formato valuta bensi formato numerico
>Standard con decimali = 0 per i valori in L.
>precisione doppia fromato #.## decimali 2 per i campi con formato in Euro
>........
>Chiaro che dopo l'aggiornamento
>di ogni singolo controllo
>viene eseguita una funzione che converte Lire in Euro o viceversa tenedo
>conto delle relative regole di arrotondamento (se cerchi nei messaggi
>indietro dovresti trovarne una appostia).
Premetto che sto ancora cercando di capirci qualcosa di +
mi sembra che si debba distinguere (nel caso di emissione fattura)
trale singole voci della fattura e gli importi finali (imponibile,
totale IVA e Totale attura).
Inoltre il calcolo dell'IVA va effettuato DOPO aver sommato le voci
di imponibile e non coincide necessariamente con la somma dei
vari importi IVA derivati dalle singole voci della fattura.
Riassumendo: non mi sembra che l'introduzione dell'euro sia
un banale problema di arrotondamento a due decimali.
Mi piacerebbe sapere cosa ne pensi e cosa ne pensano
gli altri amici dell'ng che stanno affrontando questo problema.
Ciao. ElioP.
PS:
ti riporto un pezzo preso da
http://www.carime.it/euro/euro10.asp
:
A) Arrotondamento dell'importo finale
Per "importo finale" s'intende un importo autonomo da contabilizzare o
da pagare. Se dovete effettuare un arrotondamento di un importo finale
in euro, lo arrotonderete al centesimo più vicino; se, viceversa,
dovrete arrotondare un importo finale in lire (convertendo quindi la
cifra da euro in lire) lo arrotonderete all'unità più vicina.
Se la cifra del terzo decimale è minore di 5, la cifra che la precede
resta invariata, diversamente viene arrotondata alla cifra superiore.
B) Arrotondamento dell'importo intermedio
Per "importo intermedio" s'intende un singolo dettaglio d'importo, non
oggetto di contabilizzazione o pagamento. Per un importo intermedio è
necessario mettere un determinato numero di decimali: due soli non
bastano.
Se, per esempio, vi si presentasse il problema di prezzare in euro una
vite che vendete a 8 lire, potreste scoprire che la vostra vite in
euro non vale più nulla! infatti:
lire 8: 1.936,27=0,004131 che per effetto degli arrotondamenti,
diventa 0,00.
Quindi è necessario considerare un numero maggiore di decimali, come
prevede il Decreto Legge n. 213 del 24/12/1998.
Euro 0,004131 X 1.000 (numero di viti di una confezione ad es.) = euro
4,13.
Nell'esempio seguente, l'importo di euro 1.205,34499598
· se fosse "intermedio", utilizzando 5 decimali, potrebbe essere
troncato a 1.205,34499 senza arrotondamenti
· se fosse "finale" dovrebbe essere arrotondato al 1.205,34.
È evidente che la somma di importi intermedi sarà tanto più precisa
quanti più decimali verranno mantenuti.
L'arrotondamento va comunque eseguito solo su importi totali e non su
singoli dettagli.
Riassumendo :
Quando occorre convertire in euro un importo originario in lire che
non costituisce importo monetario autonomo da contabilizzare o da
pagare, la somma convertita va utilizzata con almeno:
· 5 cifre decimali per gli importi espressi originariamente in unità
di lire
· 4 cifre decimali per quelli originariamente espressi in decine di
lire
· 3 cifre decimali per quelli originariamente espressi in centinaia di
lire
· 2 cifre decimali per quelli originariamente espressi in migliaia di
lire.
Ed ecco un esempio pratico di arrotondamento applicato alla
conversione lira/euro per un importo finale:
poichè 1 euro è uguale a 1.936,27 lire a
quanti euro corrispondono 100.000 lire?
100.000 / 1.936,27 lire = 51,64568990895
Arrotondando al centesimo di euro: lire 100.000 = euro 51,65.
=====================================
Pezzo preso da
http://www.techdataitalia.com/techdata/euro/Euro_Arrotonda.asp
:
Negli scontrini fiscali, ricevute, fatture, ed altri documenti
contabili ai fini del pagamento il controvalore in euro è calcolato
convertendo ed arrotondando solo l'importo totale in lire e non gli
importi delle singole voci.
=====================================
Pezzo preso da
http://www.crediop.it/Euro1998/Cap_1_4.htm
:
Altri problemi di ordine pratico, peraltro connessi tra loro, meritano
un rapido cenno.
Uno di essi è il problema degli arrotondamenti: l'Euro, come si è già
visto, avrà due cifre decimali, potrà cioè essere scomposto in
centesimi; nel caso di conversione da lire ad Euro si avrà dunque
l'arrotondamento al centesimo, nel caso di conversione da Euro a lire
si avrà l'arrotondamento alla lira più vicina.
Nel caso in cui l'operazione dia origine ad un risultato esattamente a
metà l'arrotondamento avverrà al centesimo o alla lira superiori.
Un secondo problema è quello dei punti di conversione: questione
rilevante perché la sommatoria di singoli importi convertiti può
risultare diversa dalla conversione del totale degli importi.
Vi è un orientamento a far sì che la conversione avvenga soltanto al
livello più aggregato e cioè, per esempio, nel punto di imputazione
finale. Nell'ambito della pubblica amministrazione saranno definite
delle regole comuni sulla identificazione di tali punti di
conversione; esse non impediranno, in ogni caso, accordi bilaterali
che possano favorire la trasparenza dei rapporti tra amministrazioni e
cittadini.
Un terzo problema riguarda la gestione degli scarti derivanti dalle
operazioni di conversione e di arrotondamento.
Un quarto problema è quello del cosiddetto "dual pricing" e cioè della
necessità di predisporre i listini prezzo sia in Euro che in lire e
con gli opportuni arrotondamenti.
========================================
Pezzo preso da
http://www.federtrasporti.it/provaeuro/eunov00026.htm
:
I Riflessi contabili, fiscali e societari dell'introduzione dell'euro.
Modalità di conversione delle fatture.
Con riferimento alla conversione in euro di fatture emesse in lire, la
Circolare, soffermandosi su un tema trascurato dal citato D.Lgs.
213/98, prevede che debba procedersi convertendo i singoli elementi
fiscalmente rilevanti (imponibile, imposta, ritenute) contenuti nella
fattura, sommando gli importi convertiti in euro al fine di ottenere
il totale nella stessa valuta.
Questo metodo comporta che il valore del totale ricavato "per somma"
dei singoli importi convertiti, possa non coincidere con il
controvalore in euro del totale della fattura.
A tale proposito, il Ministero precisa che un'eventuale differenza
sarebbe, in ogni caso, "scarsamente rilevante". Per quanto riguarda la
conversione in lire di fatture espresse in euro, si applica il
medesimo criterio, con la conseguenza che "dovranno essere convertiti
in lire l'imponibile e l'imposta indicati in euro nella fattura" e gli
arrotondamenti che sorgono in sede di conversione verranno arrotondati
per eccesso o per difetto alla lira più vicina.
.........
Anche nella fatturazione emergono i noti problemi degli
arrotondamenti.
Giuridicamente occorre fare riferimento alle regole di arrotondamento
contenute:
o nell'art. 5 del Regolamento (Ce) n. 1103/97 per gli importi monetari
da pagare o contabilizzare (regole di arrotondamento per eccesso o per
difetto al centesimo di euro o all'unità divisionale più vicina della
moneta nazionale);
o nell'art. 3 del d.lgs. 213/98 per i cosiddetti calcoli intermedi
riferibili ai valori in lire da convertire in euro e viceversa che non
costituiscono autonomi importi da pagare o contabilizzare
(arro-tondamento almeno a cinque cifre decimali per gli importi
originariamente espressi in unità di lire, almeno a quattro per gli
importi originariamente espressi in decine di lire, almeno a tre per
importi originari espressi in centinaia di lire e almeno a due per
importi originari espressi in migliaia di lire).
Occorre, inoltre, tenere in conto le precisazioni fornite dal
Ministero delle Finanze nella circolare n. 291/E del 1998.
Un problema particolarmente sentito attiene all'emissione di fatture
in euro relative a beni e servizi dal costo unitario in lire
particolarmente contenuto che, se convertiti in euro secondo le regole
di arrotondamento valide per gli importi da pagare o contabilizzare,
produrrebbero scostamenti del prezzo in euro troppo elevati rispetto
al prezzo in lire. Più generalmente tale questione attiene al problema
dell'uniformità dei prezzi in lire ed in euro nel periodo transitorio.
Quanto alle fatture, tale tipo di problema, che attiene
sostanzialmente all'uniformità tra prezzi in lire ed in euro nel
periodo transitorio, trova soluzione considerando che i prezzi unitari
esposti in fattura non rientrano nella nozione di autonomi importi da
pagare o contabilizzare, tra cui rientrano, invece, l'imponibile,
l'Iva e il totale esposto in fattura.
In tal modo, la conversione del prezzo unitario segue le regole dei
calcoli intermedi, con ciò minimizzando il problema degli
arrotondamenti attraverso l'obbligo, di utilizzare un numero minimo di
decimali superiore (cfr. l'art. 3, d.lgs. n. 213/98) a quello previsto
per la conversione di importi da pagare o contabilizzare.
La circostanza che la fattura sia espressa in euro non comporta che la
moneta di regolamento della stessa sia la medesima della fattura.
Conformemente a quanto previsto dall'articolo 8, paragrafo 3, del
Regolamento (CE) n. 974/98, qualsiasi importo denominato in moneta
nazionale o in euro e pagabile in uno dei Paesi aderenti mediante
accredito sul conto del creditore può essere versato a scelta del
debitore indifferentemente in unità euro o in moneta nazionale.
>


title: Lira euro come gestirli

author: ST

text:
"Luca Proietti" <
sis...@tiscalinet.it
> ha scritto nel messaggio
news:195Z230Z211Z43Y...@usenet.iol.it...
> Salve a tutti.
> Sto realizzando ua applicazione e mi sono posto il dubbio
> di come visualizzare il doppio sistema monetario cioč:
> come memorizzarlo e
> come far comparire il simbolo dell'euro o quello della lira a seconda del
> tipo di moneta scelta.
Ho trovato parecchie informazioni su
http://www.abconsul.it/
Consiglio a tutti di non sottovalutare il problema Euro.
Io ho creato doppi campi per tutto:
PrezzoLire PrezzoEuro
ImportoLire ImportoEuro
IvaLire IvaEuro
etc etc
seguendo le approssimazioni consigliate nel sito abconsult:
prezzo alla 4/5a cifra
importo alla 2a cifra
imponibile=somma degli importi quindi 2a cifra
iva = 20% di imponibile approssimato alla 2a cifra
totale=imponibile+iva quindi alla 2a cifra
ATTENZIONE: il totale fattura in euro si calcola sommando
ImportoEuro+IvaEuro e NON dividendo il totale in lire per 1936,27.
Questo comporta che la stessa fattura in lire e in euro possa presentare
differenze che vanno ben oltre la solita approssimazione alla 2a cifra.
Infine consiglio l'uso intensivo della funzione EuroConvert (giusto per
evitare problemi di approssimazione e battitura del 1936.27).
Ciao
Silvio


title: Lira euro come gestirli

text:
>
>Infine consiglio l'uso intensivo della funzione EuroConvert (giusto per
>evitare problemi di approssimazione e battitura del 1936.27).
>
Dove trovo EuroConvert() ?
Uso A97
Grazie. ElioP.


title: Lira euro come gestirli

text:

Credo che in A97 non ci fosse Euroconvert()
Ti invio un post di lucio.r di qualche tempo fa che dava un paio di funzioni
per le conversioni Euro->Lira e Lira->Euro.
Io queste funzioni NON le ho provate!!
E in realtà non so come considerino gli arrotondamenti.
Spero comunque ti possno servire.
Spreo di esserti stato utile.
Ciao.
Silvio
->da lucio.r (post del 18/11/2000)
Per convertire il valore euro il lire basta una moltiplicazione
Per convertire il valore  lire in euro bisogna considerare gli
arrotondamenti
'************************************************************
'Titolo:       Converte un valore EURO in lire
'              Secondo Circolare Ministeriale
'
'************************************************************
Function CLire(Euro As Currency)
CLire = Euro * 1936.27
End Function
'************************************************************
'Titolo:       Converte un valore Lire in Euro
'              Secondo Circolare Ministeriale (arrotondamenti)
'************************************************************
Function CEuro(lire As Currency)
Dim EURO1, EURO2 As Currency
EURO1 = lire / 1936.27
EURO2 = Int((EURO1 - Int(EURO1)) * 1000)
EURO2 = CLng(EURO2 / 10)
If Int(lire) < 184 Then EURO2 = EURO2 / 10
'************************************************************
'
'  Nota:  questo passo è dovuto all'arrotondamento
'  da effettuarsi secondo circolare ministeriale
'
'************************************************************
If Int(lire) < 184 Then
   CEuro = Int(EURO1) + (EURO2 / 10)
Else
   CEuro = Int(EURO1) + (EURO2 / 100)
End If
End Function


title: Sottomaschera & Combobox

author: marco

text:
E' possibile in una sottomaschera a maschere continue riferirsi ad una
singola casella cobinata?
Il problema è questo dovrei cambiare l'origine dei dati nelle combox di una
sottomaschera e l'origine dovrebbe essere differente per ogni combo box
della sottomaschera.... Grazie quindi per ogni combo box di ogni campo della
relazione "molti" (detail). Grazie in anticipo.


title: formattazione campo in automatico -Aiuto

author: Fabrizio

text:
Salve Ragazzi,
ho bisogno del vostro aiuto , nel mio programma di gestioni ordini
fin'adesso ho utilizzato per l'inserimendo di ordini a miei clienti mel
campo Codice Ordine la seguente formattazione :
XX 07-0001
cioč : due lettre-spazio -due numeri - 4 numeri, (tutto ok)
ora io mio boss,  vuole cambiare le cose, vuole che l'ordine sia in questo
formato :
XX -0000001 due lettere -trattino 6 numeri,
come posso fare ad  inserire  nel mio campo, nella maschera di inserimento
ordini , solo XX-1 e in automatico quando mi salva il numero me lo salva
sotto XX-0000001 per evetirare di scrivere 6 zeri?-- e cosi via per esempio
XX-14 il mio codice ordine diventa XX-000014.
P.S:
per non perdere tutta la codifca degli ordini dovrei poter aggiornare tutti
gli ordini con la vecchia farmattazione con quella nuova č possibile ?
Grazie


author: AndreaPapi

text:
Fabrizio ha scritto:
> Salve Ragazzi,
>
> ho bisogno del vostro aiuto , nel mio programma di gestioni ordini
> fin'adesso ho utilizzato per l'inserimendo di ordini a miei clienti mel
> campo Codice Ordine la seguente formattazione :
>
> XX 07-0001
>
> cioè : due lettre-spazio -due numeri - 4 numeri, (tutto ok)
>
> ora io mio boss,  vuole cambiare le cose, vuole che l'ordine sia in questo
> formato :
>
> XX -0000001 due lettere -trattino 6 numeri,
>
> come posso fare ad  inserire  nel mio campo, nella maschera di inserimento
> ordini , solo XX-1 e in automatico quando mi salva il numero me lo salva
> sotto XX-0000001 per evetirare di scrivere 6 zeri?-- e cosi via per esempio
> XX-14 il mio codice ordine diventa XX-000014.
>
>
> P.S:
>
> per non perdere tutta la codifca degli ordini dovrei poter aggiornare tutti
> gli ordini con la vecchia farmattazione con quella nuova è possibile ?
>
>
>
> Grazie
potresti utilizzare una funzione che ti controlla il valore immesso ed
eventualmente ti inserisce gli zeri mancanti.
per es.
se nella Maschera di input imposti la seguente formattazione
LL"-"999999
puoi utilizzare l'evento dopo aggiornamento della casella di testo per
completare il valore del codice
Private Sub CodiceOrdine_AfterUpdate()
    Me!CodiceOrdine= fz_completaCodice(Me!CodiceOrdine)
End Sub
Private Function fz_completaCodice(vCod As String) As String
    fz_completaCodice = Left(vCod, 2) & "-" & String(6 - Len(Mid(vCod,
3)), "0") & Mid(vCod, 3)
End Function
ciao
Andrea Papi


text:
"AndreaPapi" <
ap...@libero.it
> ha scritto nel messaggio
news:1170885552....@a34g2000cwb.googlegroups.com...
Fabrizio ha scritto:
> Salve Ragazzi,
>
> ho bisogno del vostro aiuto , nel mio programma di gestioni ordini
> fin'adesso ho utilizzato per l'inserimendo di ordini a miei clienti mel
> campo Codice Ordine la seguente formattazione :
>
> XX 07-0001
>
> cioč : due lettre-spazio -due numeri - 4 numeri, (tutto ok)
>
> ora io mio boss,  vuole cambiare le cose, vuole che l'ordine sia in questo
> formato :
>
> XX -0000001 due lettere -trattino 6 numeri,
>
> come posso fare ad  inserire  nel mio campo, nella maschera di inserimento
> ordini , solo XX-1 e in automatico quando mi salva il numero me lo salva
> sotto XX-0000001 per evetirare di scrivere 6 zeri?-- e cosi via per
> esempio
> XX-14 il mio codice ordine diventa XX-000014.
>
>
> P.S:
>
> per non perdere tutta la codifca degli ordini dovrei poter aggiornare
> tutti
> gli ordini con la vecchia farmattazione con quella nuova č possibile ?
>
>
>
> Grazie
potresti utilizzare una funzione che ti controlla il valore immesso ed
eventualmente ti inserisce gli zeri mancanti.
per es.
se nella Maschera di input imposti la seguente formattazione
LL"-"999999
puoi utilizzare l'evento dopo aggiornamento della casella di testo per
completare il valore del codice
Private Sub CodiceOrdine_AfterUpdate()
    Me!CodiceOrdine= fz_completaCodice(Me!CodiceOrdine)
End Sub
Private Function fz_completaCodice(vCod As String) As String
    fz_completaCodice = Left(vCod, 2) & "-" & String(6 - Len(Mid(vCod,
3)), "0") & Mid(vCod, 3)
End Function
ciao
Andrea Papi
Grazie mi hai salvato funzionaaaaaaaaaaaaaaaaaaaaaaa!!!!!!!!
scusa se approfitto,dato che con quetsa procedura cambio la formattazione
del mi ordine , quelli che ho immesso con il vecchio formato non possono
essere + ripresi naturlamente , comeposso fare ad aggiornare in automatico ,
magari con una query di aggiornamento tutti quelli vecchi?
per sempio
vecchio ordine XX 07-0001 ----->> XX-000001 puň essere fatto?


title: INSERIMENTO DA MASCHERA

author: ANGRIN

text:
NEL MIO DATABASE (UN PROTOCOLLO CASERECCIO) VORREI CHE IL CAMPO A TENDINA
ASSOCIATO AD UNA TABELLA CONTENTENTE I DATI DEI MITTENTI/DESTI, MI
PERMETTESSE L'INSERIMENTO AUTOMATICO DI NUOVE VOCI, SENZA DOVER
INTERROMPERE IL LAVORO E INSERIRE MANUALMENTE NELLA TABELLA CIň CHE MI
SERVE.
GRAZIE!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: INSERIMENTO DA MASCHERA


title: INSERIMENTO DA MASCHERA

author: ciroteo

text:
"ANGRIN" <
angelo....@tiscali.it
> ha scritto nel messaggio
news:coi2n9$13r$1...@news.newsland.it...
> NEL MIO DATABASE (UN PROTOCOLLO CASERECCIO) VORREI CHE IL CAMPO A TENDINA
> ASSOCIATO AD UNA TABELLA CONTENTENTE I DATI DEI MITTENTI/DESTI, MI
> PERMETTESSE L'INSERIMENTO AUTOMATICO DI NUOVE VOCI, SENZA DOVER
> INTERROMPERE IL LAVORO E INSERIRE MANUALMENTE NELLA TABELLA CIò CHE MI
> SERVE.
> GRAZIE!
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
ABBIAMO CAPITOOOO!!!
se non urli magari qualcuno ti risponderà. E soprattutto ti converrà
ripostare il messaggio con un oggetto significativo.


title: Gestione evento newrecord in access

author: jvffrancesco

text:
Buon Giorno, premetto che sn nuovo del sito e di access. Ho una maschera Mask_tblPartNew in cui inserisco degli articoli. Ho un'altra maschera Mask_stringa in cui vi è un tasto che si chiama cmdAssegna. In pratica vorrei che ogni qualvolta si inserisca un nuovo record nella prima tabella venga aperta la seconda mediante un filtro che lega i due campi ID delle 2 maschere ed attivi il tasto cmdAssegna (insomma simuli il mio click sul tasto). Come devo fare?
io nell'evento current della prima maschera ho inserito il seguente codice
If Form.NewRecord = -1 Then
    MsgBox "è stato inserito un nuovo record" _
     '   & "@Do you want to add new data?" _
      '  & "@If not, move to an existing record."
      Dim criterio1 As String
        criterio1 = "[id]=" & Me![id]
        'DoCmd.Close acForm, "Mask_tblPart"
        DoCmd.OpenForm "Mask_stringa", , , criterio1
        Form_Mask_stringa.IdIn8 = Me.id
        Form_Mask_stringa.IdFin8 = Me.id
        Form_Mask_stringa.cmdAssegna.Enabled = True
        Form_Mask_stringa.cmdAssegna_Click = True
    End If
in cosa sbaglio? Grazie d tutto
--
Vedi su Narkive:
http://narkive.com/3zbAaQ6o


title: Gestione evento newrecord in access

text:

Che errore ti da? La routine sotto cmdAssegna è stata dichiarata Public? Cmq per richiamare l'evento sul pulsante non devi mettere = true


title: Gestione evento newrecord in access

author: Geppo

text:
Ciao "jvffrancesco" <
kn8toajug02yvtze...@user.narkive.com
> ha
scritto nel messaggio news:3zbAaQ6o...@narkive.com...
> Buon Giorno, premetto che sn nuovo del sito e di access. Ho una maschera
> Mask_tblPartNew in cui inserisco degli articoli. Ho un'altra maschera
> Mask_stringa in cui vi è un tasto che si chiama cmdAssegna. In pratica
> vorrei che ogni qualvolta si inserisca un nuovo record nella prima tabella
> venga aperta la seconda mediante un filtro che lega i due campi ID delle 2
> maschere ed attivi il tasto cmdAssegna (insomma simuli il mio click sul
> tasto). Come devo fare?
> io nell'evento current della prima maschera ho inserito il seguente codice
> If Form.NewRecord = -1 Then
>    MsgBox "è stato inserito un nuovo record" _
>     '   & "@Do you want to add new data?" _
>      '  & "@If not, move to an existing record."
>      Dim criterio1 As String
>        criterio1 = "[id]=" & Me![id]
>        'DoCmd.Close acForm, "Mask_tblPart"
>        DoCmd.OpenForm "Mask_stringa", , , criterio1
>        Form_Mask_stringa.IdIn8 = Me.id
>        Form_Mask_stringa.IdFin8 = Me.id
>        Form_Mask_stringa.cmdAssegna.Enabled = True

        call Form_Mask_stringa.cmdAssegna_Click

>    End If
> in cosa sbaglio? Grazie d tutto

L'evento del controllo cmdAssegna deve iniziare per public e non private,
quindi:

public sub cmdAssegna_click()

....
....

end sub
--
Ciao
Geppo


title: MSAccess

author: Basjlico

text:
http://www.microsoft.com/AccessDev/Articles/BApp97/BApp97.htm
Era il Sat, 19 Feb 2000 11:13:09 +0100 quando  scrisse:
>Qualcuno può gentilmente indicarmi dove posso scaricare il manuale
>"Costruire un'applicazione con MSAccess97"?
>
>Grazie
>
Ciao
Basjlico


title: Su creazione nuovo record, valorizzare campi predefiniti come funzione

author: RobertoA

text:
Sto cercando di automatizzare l'inserimento di alcuni campi predefiniti
ad ogni creazione nuovo  record su diverse tabelle
Prendiamo ad esempio la tabella classica degli Aspetti Beni
Per l'inserimento nuovo record, uso il classico

DoCmd.GoToRecord , , acnewRec

perche' predispone l'inserimento del nuovo record e consente, premendo
l'Esc da tastiera, di rinunciare all'inserimento (funzionalita' che
vorrei mantenere)
Quindi il codice che uso e' questo

-------------------------------------------------------
DoCmd.GoToRecord , , acNewRec
Me!ID_ASPETTOBENI = NEW_GEN_GLOB()
Me!CODICE = NUOVO_CODICE_TABELLA("ASPETTOBENI")
Me!CREAZIONE_IP_ADDRESS = GetIP()
Me!CREAZIONE_NOME_PC = Environ("computername")
ecc ...
-------------------------------------------------------

Fin qua tutto bene
Ora vorrei concentrare in una sola funzione la valorizzazione di alcuni
campi comuni su tutte le tabelle, come ad esempio il
CREAZIONE_IP_ADDRESS, CREAZIONE_NOME_PC che si vedono sopra
Ho scritto una funzione del tipo

-------------------------------------------------------
Function dati_testata_record(ByVal mio_recordset As Recordset)
mio_recordset("creazione_ip_address") = GetIP()
mio_recordset("CREAZIONE_NOME_PC ") = nome_picci()
End Function
-------------------------------------------------------

Speravo che bastasse sostituire alla form per la gestione Aspetti Beni
di cui sopra il codice, richiamando la funzione per settare i campi
predefiniti, passandogli come parametro il me.Recordset della form, in
questo modo

-------------------------------------------------------
DoCmd.GoToRecord , , acNewRec
Me!ID_ASPETTOBENI = NEW_GEN_GLOB()
Me!CODICE = NUOVO_CODICE_TABELLA("ASPETTOBENI")
dummy = dati_testata_record(Me.Recordset)
ecc ...
-------------------------------------------------------

Ma dentro la funzione dati_testata_record, alla prima istruzione, mi
spara fuori un 3020 "Metodo Update o CancelUpdate senza AddNew o Edit"
La domanda e':  il comando    DoCmd.GoToRecord , , acNewRec  impartito
all'inizio della creazione record non e' equivalente ad un ADDNEW ?
Dov'e' lo sballio?

Se per la creazione uso la classica creazione recordset
Set MyRS=Currentdb.openrecordet("SELECT * FROm ASPETTOBENI")
MyRS.addnew
MyRS("ID_ASPETTOBENI") = NEW_GEN_GLOB()
MyRS("CODICE") = NUOVO_CODICE_TABELLA("ASPETTOBENI")
dummy = dati_testata_record(MyRS)
MyRS.update

funziona tutto perfettamente
Ma non vorrei operare cosi', perche' non posso rinunciare alla creazione
a meta' strada, come e' invece possibile fare col
DoCmd.GoToRecord , , acnewRec  premendo l'Esc


author: GiorgioDaPrato

text:

SOLO come osservazione sull'argomento

come sai c'è anche la proprietà valore predefinito
che, di fatto, non avvia le registrazioni
(e quindi "tutto tace")

NON è utilizzabile nella tua situazione ?


text:

Si, il fatto e' che non ho i campi bindati con dei controlli
sulla form
E non vorrei neanche metterceli perche' sono piu' d'uno
La form ha come RecordSource la tabella, che contiene i campi 'predefiniti'
Ma sulla form ho solo i controlli per Codice e Descrizione, non ho i
controlli corrispondenti ai campi predefiniti
Credo la proprieta' "predefinito" si possa valorizzare solo sui
controlli visuali
O no?


text:
> Si, il fatto e' che non ho i campi bindati con dei controlli
> sulla form
> E non vorrei neanche metterceli perche' sono piu' d'uno
> La form ha come RecordSource la tabella, che contiene i campi 'predefiniti'
> Ma sulla form ho solo i controlli per Codice e Descrizione, non ho i
> controlli corrispondenti ai campi predefiniti
> Credo la proprieta' "predefinito" si possa valorizzare solo sui
> controlli visuali
> O no?

"no Martini, no party":
se non c'è l'oggetto (il controllo) non c'è la proprietà ...


text:
>
> "no Martini, no party":
> se non c'è l'oggetto (il controllo) non c'è la proprietà ...

mah, m'era venuto di aggiungere questo (con l'evento sbagliato):

è attuabile aggiornare all'evento AfterUpdate ?
(ci sarà certamente una id di record or ora registrato)


author: Bruno Campanini

text:
RobertoA wrote on 20-01-19 :

> Sto cercando di automatizzare l'inserimento di alcuni campi predefiniti ad
> ogni creazione nuovo  record su diverse tabelle
"su diverse tabelle" significa che in sol colpo vuoi inserire un nuovo
record su più di una tabella? operando via codice attivato per
esempio da un Button o da un evento su una Form?

> Prendiamo ad esempio la tabella classica degli Aspetti Beni
> Per l'inserimento nuovo record, uso il classico
>
> DoCmd.GoToRecord , , acnewRec
>
> perche' predispone l'inserimento del nuovo record e consente, premendo l'Esc
> da tastiera, di rinunciare all'inserimento (funzionalita' che vorrei
> mantenere)
L'operazione più semplice di inserimento record su una tabella è
quella di compilarne i vari campi da una Form, dalla quale puoi
interrompere l'inserimento di nuovo record con ESC, cancellare e
modificare record già esistenti, etc.
Se poi ogni nuovo record deve essere riportato anche su una o più
tabelle, allora in AfterUpdate della Form puoi scrivere quelle
quattro righe di codice che ti servono.
Il tutto è talmente semplice che mi sto chiedendo se abbia
correttamente inteso la tua richiesta.

Bruno


title: modifica di una query

author: Gabriele

text:
Questa č la query di partenza :
UPDATE tabellaA
INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
SET tabellaA.CAPITALE = tabellaDATESTO.capitale;
siccome i campi da impostare con il SET sono due e non uno , si puň
riscrivere cosě la query ?
UPDATE tabellaA
INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
SET tabellaA.CAPITALE = tabellaTESTO.capitale , tabellaA.abitanti =
tabellaDATESTO.abitanti;
grazie e saluti


title: modifica di una query

author: Alessandro Baraldi

text:
Gabriele ha scritto:
> Questa è la query di partenza :
>
> UPDATE tabellaA
> INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
> SET tabellaA.CAPITALE = tabellaDATESTO.capitale;
>
> siccome i campi da impostare con il SET sono due e non uno , si può
> riscrivere così la query ?
>
>
> UPDATE tabellaA
> INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
> SET tabellaA.CAPITALE = tabellaTESTO.capitale , tabellaA.abitanti =
> tabellaDATESTO.abitanti;
>
> grazie e saluti
Ma perchè non hai provato a farlo.....??? magari su una copia di
prova....
Se funziona significa che è corretto, altrimenti posti il quesito...!
Ora che fai...? Aspetti che qualche persona ti dica che va bene per
provare....???
Hai paura di fare male al DB facendo qualche prova in autonomia...?
@Alex


title: modifica di una query

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:1168111506.4...@q40g2000cwq.googlegroups.com...
Ma perchè non hai provato a farlo.....??? magari su una copia di
prova....
Se funziona significa che è corretto, altrimenti posti il quesito...!
Ora che fai...? Aspetti che qualche persona ti dica che va bene per
provare....???
Hai paura di fare male al DB facendo qualche prova in autonomia...?
@Alex
=====================================
Forse pensa che la griglia QBE sia un optional...
Auguri, vecchio filibustiere!
Bruno


title: modifica di una query

text:
:
>
> UPDATE tabellaA
> INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
> SET tabellaA.CAPITALE = tabellaDATESTO.capitale;
>
> siccome i campi da impostare con il SET sono due e non uno , si puň
> riscrivere cosě la query ?
>
>
> UPDATE tabellaA
> INNER JOIN tabellaDaTESTO ON tabellaA.idNAZ = tabellaDaTESTO.idNAZ
> SET tabellaA.CAPITALE = tabellaTESTO.capitale , tabellaA.abitanti =
> tabellaDATESTO.abitanti;
>
> grazie e saluti
Ma perchč non hai provato a farlo.....???
a casa purtroppo non ho MS Access ....
La sintassi č giusta comunque ?( la prima query  funziona )
grazie


title: modifica di una query

text:
Bruno Campanini ha scritto:
[CUT]
> Forse pensa che la griglia QBE sia un optional...
>
> Auguri, vecchio filibustiere!
>
> Bruno
Ciao Bruno, auguri anche a te e famiglia, mi ha fatto veramente piacere
il tuo saluto.
@Alex


title: Accesso contemporaneo ad un file Access

author: Piero Solli

text:
Ho un problema quando accedono due utenti sullo stesso file access,
depositato su una directory di rete (NetWare), più precisamente l'utente
che cerca di accedere al file per secondo riceve il messaggio "file già in
uso" e non riesce ad aprirlo.
Sapreste darmi una spiegazione.
Grazie anticipatamente
Piero
---------------------------------------------------------------------------
Messaggio inviato attraverso
http://www.trucchiperpc.it
 - sezione newsgroup


title: Accesso contemporaneo ad un file Access

author: Sib

text:
"Piero Solli" <
piero...@ala.bitron-ind.com
> ha scritto nel messaggio
> Ho un problema quando accedono due utenti sullo stesso file access,
> depositato su una directory di rete (NetWare), più precisamente l'utente
> che cerca di accedere al file per secondo riceve il messaggio "file già in
> uso" e non riesce ad aprirlo.
> Sapreste darmi una spiegazione.
Prima di tutto disapprovo la scelta di netware (ma questa e' un'altra
storia)
ad ogni modo probabilmente aveta access impostato per aprire il file in
modalita' esclusiva.
Strumenti/Opzioni
Sib


title: Accesso contemporaneo ad un file Access

author: SunRex

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:VVbNa.22038$HU3.6...@news2.tin.it...

Scusa se mi intrometto ma è per cultura personale.
Perchè disapprovi la scelta di netware?
Sai tanto per farsi un'idea ;)
SunRex


title: Accesso contemporaneo ad un file Access

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > "Piero Solli" <
piero...@ala.bitron-ind.com
> ha scritto nel messaggio
> > > Ho un problema quando accedono due utenti sullo stesso file access,
> > > depositato su una directory di rete (NetWare), più precisamente
l'utente
> > > che cerca di accedere al file per secondo riceve il messaggio "file
già in
> > > uso" e non riesce ad aprirlo.
> > > Sapreste darmi una spiegazione.
> >
> > Prima di tutto disapprovo la scelta di netware (ma questa e' un'altra
> > storia)
> > ad ogni modo probabilmente aveta access impostato per aprire il file in
> > modalita' esclusiva.
> > Strumenti/Opzioni
> >
> > Sib
> >
> Scusa se mi intrometto ma è per cultura personale.
> Perchè disapprovi la scelta di netware?
> Sai tanto per farsi un'idea ;)
Ma sai, non e' che mi abbia fatto qualcosa di male, ma quando ho avuto a che
fare con netware (molto probabilmente per mia ignoranza) e' stato peggio che
con linux (almeno con linux me lo posso rigirare un po' come mi pare, con
netware e' stato difficile pure far capire ai pc con win che l'altro
esisteva e viceversa).
Quando una cosa mi risulta piu' difficile di quando non dovrebbe io mi
disaffeziono, anche pensando a quando il cliente si trovera' ad avere anche
il minimo problema.
Sib


title: posizionarsi su determinato record in una casella di riepilogo

author: MarcoMac

text:
Ho una maschera MASK1
Nella MASK1 esiste una casella di riepilogo CRP_Elenco la quale, sull'evento
CURRENT aggiorna una sottomaschera SOTT_MASK1.
La casella di riepilogo mostra alcuni dati che vengono modificati nella
SOTT_MASK1 per cui vorrei che a fronte nell'evento AFTER UPDATE di un
controllo della SOTT_MASK1, la CRP_Elenco effettuasse un requery ed il focus
andasse sul record in questione.
Cerco di spiegarmi meglio:
CRP_Elenco:
ID    Data    Cliente    Merce    Carico    Scarico
01    01/01     A01      324        Y                Y
02    01/01     A01      247        Y                Y
03    01/01     A01      333        Y                N
...
Selezionando una di queste righe mi si aggiorna una sottomaschera con i
dettagli, tra cui SCARICO
Quello che vorrei è questo:
Se nella sottomaschera posizionata sul record 3, modifico il campo SCARICO,
impostandolo a Y, vorrei che mi si aggiornasse automaticamente la CRP_Elenco
in modo da mostrami questo:
ID    Data    Cliente    Merce    Carico    Scarico
01    01/01     A01      324        Y                Y
02    01/01     A01      247        Y                Y
03    01/01     A01      333        Y                Y
posizionandosi al contempo sul record 3 in modo che non mi cambino i dati
nella sottomaschera.
Senza dubbio devo far fare un requery alla  CRP_Elenco, ma come faccio poi a
posizionarmi sul record?
Forse sono stato un pò contorto, spero di no.
Ciao e grazie


title: Antogal - Tips & Tricks

author: MM

text:
Ho utilizzato, prelevandola dal sito comune, la funzione di Antogal per
rimuovere i pulsanti di chiusura e ridimensionamento di Access.
Tutto funziona regolarmente in ambiente Win9X, ma in ambiente NT (sia server
che workstation) quando viene richiamata la funzione genera un errore di
Overflow.
Dove sbaglio ?
Grazie in anticipo
Marco


title: Antogal - Tips & Tricks

author: Valerio

text:
Purtroppo il tips è compatibile fino a win98. Per win2000 e nt, ti consiglio
di seguire il tips creato da Dario da Pd che sul sito comune intitolato:
Come evitare che l'utente chiuda l'applicativo tramite Alt-F4?
Io l'ho sperimentato e adattato alle mie esigenze e funziona sia sotto win98
e win2000 e nt, poichè se vuoi consentire una anteprima di stampa non puoi
classificare la maschera come modale; questo putroppo fa si che compaia il
tasto di chisura di windows.
Ciao Valerio
"MM" <
in...@soluzionigestionali.it
> ha scritto nel messaggio
news:8v1btd$1bv$1...@lacerta.tiscalinet.it...



title: Antogal - Tips & Tricks

author: Federico Luciani

text:
MM wrote:
> Ho utilizzato, prelevandola dal sito comune, la funzione di Antogal per
> rimuovere i pulsanti di chiusura e ridimensionamento di Access.
> Tutto funziona regolarmente in ambiente Win9X, ma in ambiente NT (sia server
> che workstation) quando viene richiamata la funzione genera un errore di
> Overflow.
> Dove sbaglio ?
> Grazie in anticipo
> Marco
probabilmente c'e' qualche problema di api, prova a
debuggarla per vedere dove viene generato l'errore.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Antogal - Tips & Tricks

text:
"Valerio" <
valeri...@fsmrt.nettuno.it
> ha scritto nel messaggio
news:8v2sh1$39c$1...@pinco.nettuno.it...
> Purtroppo il tips è compatibile fino a win98. Per win2000 e nt, ti
consiglio
> di seguire il tips creato da Dario da Pd che sul sito comune intitolato:
> Come evitare che l'utente chiuda l'applicativo tramite Alt-F4?
> Io l'ho sperimentato e adattato alle mie esigenze e funziona sia sotto
win98
> e win2000 e nt, poichè se vuoi consentire una anteprima di stampa non puoi
> classificare la maschera come modale; questo putroppo fa si che compaia il
> tasto di chisura di windows.
>
> Ciao Valerio
>
Grazie dell'informazione, provero'.
Ciao Marco


title: Antogal - Tips & Tricks

text:
"Federico Luciani" <
fluc...@paperino.libero.it
> ha scritto nel messaggio
news:3A150474...@paperino.libero.it...
> MM wrote:
> > Ho utilizzato, prelevandola dal sito comune, la funzione di Antogal per
> > rimuovere i pulsanti di chiusura e ridimensionamento di Access.
> > Tutto funziona regolarmente in ambiente Win9X, ma in ambiente NT (sia
server
> > che workstation) quando viene richiamata la funzione genera un errore di
> > Overflow.
> > Dove sbaglio ?
> > Grazie in anticipo
> > Marco
>
> probabilmente c'e' qualche problema di api, prova a
> debuggarla per vedere dove viene generato l'errore.
>
> --
> Federico
>
No, e' un problema che si verifica sotto NT vedi risposta di Valerio.
Grazie comunque, ciao Marco.


title: Verifica scadenze con data di sistema

author: Norica

text:
Ho una tabella TARIFFE dove per ogni IDCLIENTE oltre ai prezzi
di listino ci sono due campi data usati per immettere la validità del contratto
in essere

es. Cliente PIPPO validità dal 01/01/00 al
31/07/00

vorrei che arrivati alla data di scadenza es.31/07/00, un
msgbox mi avvisi che per quel cliente il contratto è scaduto.....(più clienti
possono avere la stessa data...)

Grazieda Enrico


title: Verifica scadenze con data di sistema

author: LaLo

text:
""Norica"" <
nor...@libero.it
> ha scritto nel messaggio
news:000801c07007$b480dd40$31761997@c7x0k5...

Ciao
prima di tutto non postare in HTML (regola del NG); potresti essere più
chiaro? Quando devi far apparire la msgbox? All'apertura di una maschera?
Dopo una certa operazione? La prima soluzione che mi viene in mente è quella
di aprire la tabella (se non l'hai già aperta per altri scopi) scorrere
tutti i record e confrontare con la data odierna (funzione Now() per
intenderci).
Saluti
LaLo


title: Verifica scadenze con data di sistema

author: Vittò

text:
Devi lavorare sulle macro oppure sulla
query

1° caso - sulla macro se agisci su maschera a
record singolo

nella sezione "Condizione" puoi impostare il nome
del controllo di maschera a cui è associato il campo DataScadenza (Il Nome
controllo NON il nome del campo...a volte gli automatismi associano il nome del
campo anche al nome del controllo e va bene ugualmente, però controlla che sia
così)

es:

Condizione= [DataScadenza]=>
Date()       Azione = Finestra messaggio ( e
scrivi quello che vuoi..) ... ho previsto che possa essere passato qualche
giorno e quindi ho impostato uguale o maggiore ....

La condizione verrà eseguita solo se vera,
altrimenti verrà ignorata....

Associa la macro a Dopo Apertura e Su
Corrente  dovrebbe funzionare il tutto

2° caso -  se vuoi in un'attimo estrarre
tutti quelli che scadono fai una query e nella griglia sotto al campo
"DataScadenza"

immetti il parametro  =>
Date()

Spero aver dato quache idea concreta

Ciao Vittò

""Norica"" <
nor...@libero.it
>
  ha scritto nel messaggio
news:000801c07007$b480dd40$31761997@c7x0k5
...




title: Variabili globali, come?

author: roby

text:
Nel mio db per l'immissione e visualizzazione dati ho bisogno di tenere
in "memoria" i valori di alcuni campi i quali mi servono per filtrare
delle maschere in apertura....
Avevo pensato a delle variabili globali che siano viste da tutti i
forms e modificafibi dagli stessi.
E' possibile?
Se si come e dove devo dichiarare queste variabili globali?
Come faccio riferimento nei form ( nel codice VBA )?
Grazie,
Roby
Inviato da
www.mynewsgate.net


title: Variabili globali, come?

author: Nick

text:
"roby" <
8604i...@mynewsgate.net
> ha scritto nel messaggio news:200409031...@mynewsgate.net...

si è possibile!
basta che crei un nuovo modulo VBA e subito dopo la scritta Option explicit dichiari le tue variabili nella forma
Public nomevariabile as tipo variabile
poi dagli altri moduli VBA richiami la tua variabile semplicemente digitando il nome
ciao
Nick


title: Variabili globali, come?

author: MA

text:
"roby" <
8604i...@mynewsgate.net
> ha scritto nel
messaggio
news:200409031...@mynewsgate.net...

non ti basta OpenArgs?
MAssimiliano


title: Variabili globali, come?

author: Marco Antonioli

text:
> si è possibile!
> basta che crei un nuovo modulo VBA e subito dopo la scritta Option explicit dichiari le tue variabili nella forma
>
> Public nomevariabile as tipo variabile
>
> poi dagli altri moduli VBA richiami la tua variabile semplicemente digitando il nome
Attenzione che pero che in caso di errore non gestito (lo so, non
dorebbe succedere ...) le variabili vengoni inizializzate a null.
Ciao+
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Variabili globali, come?

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio news:88b9110be323208f73a...@mygate.mailgate.org...

si giusto...
l'ho dato per scontato perchè cmq visto che gli servono per passare i dati cisarà un'izializzazione da qualche parte, cmq ottima
precisazione è sempre utile evitare gli errori o per lo meno capire ciò che mi propone access :D
ciao
Nick


title: origine controllo

author: Marco

text:
ciao a tutti,
domanda veramente banale:
ho 2 tabelle una botte e l'altra movimenti collegate 1 ad N (una botte
può avere n movimenti, etc)
creato una maschera dove viene visualizzata la botte con tutti i
movimenti.
vorrei che ci fosse un campo di testo dove mi da il riepilogo dei
litri presenti in quella botte (basterebbe la somma algebrica dei vari
movimenti:
ho creato un campo di testo e su origine controllo ho scritto:
=Somma([movimento]![Litrii])
mi dà errore, dove sbaglio? grazie a tutti di cuore
marco


title: origine controllo

author: Prometeo

text:
Marco ha scritto:
> ciao a tutti,
> domanda veramente banale:
> ho 2 tabelle una botte e l'altra movimenti collegate 1 ad N (una botte
> puņ avere n movimenti, etc)
> creato una maschera dove viene visualizzata la botte con tutti i
> movimenti.
> vorrei che ci fosse un campo di testo dove mi da il riepilogo dei
> litri presenti in quella botte (basterebbe la somma algebrica dei vari
> movimenti:
> ho creato un campo di testo e su origine controllo ho scritto:
> =Somma([movimento]![Litrii])
> mi dą errore, dove sbaglio? grazie a tutti di cuore
> marco
Ciao Marco
Immagino che tu abbia creato una sottomaschera [SM_Movimenti] all'interno
di una maschera [M_Botti]
Se č cosģ puoi creare nella sottomaschera una casella di testo con origine
controllo =Somma([Litri]) dove [Litri] deve essere il nome dell'origine
dati e non del controllo della sottomaschera.
Se poi vuoi visualizzare il dato nella maschera principale in una casella
di testo scriverai come origine dati = parent!NomecontrolloSottomaschera]
Ciao
Prometeo
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: origine controllo

text:
Marco wrote:
> ciao a tutti,
>
> domanda veramente banale:
>
> ho 2 tabelle una botte e l'altra movimenti collegate 1 ad N (una botte
> puņ avere n movimenti, etc)
>
> creato una maschera dove viene visualizzata la botte con tutti i
> movimenti.
>
> vorrei che ci fosse un campo di testo dove mi da il riepilogo dei
> litri presenti in quella botte (basterebbe la somma algebrica dei vari
> movimenti:
>
> ho creato un campo di testo e su origine controllo ho scritto:
>
> =Somma([movimento]![Litrii])
>
> mi dą errore, dove sbaglio? grazie a tutti di cuore
>
> marco
Ciao
in quel controllo ci devi mettere dsum("[litri]";[movimento]; e qui il
criterio)
Chiaramento devi vedere tu che criterio metterci (probabilmente i campi che
relazionano le due tabelle)
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: evento su pressione pulsante di comando

author: Fabrizio

text:
Salve ragazzi ,
problema :
nella mia masachera ho creato un pulsante di comando che mi invia il mio
ordine quindi un sendReport eccc....
ora vorrei che quando vado a pigiare il mio pulsante a lato mi si
spuntasse o mi comparisse una scritta "Spedito" o mi si flaggasse in
automatico una casella di controllo!
Avete idee in merito?
Premetto che la maschera su cui devo appricare il tutto e a maschere con
visualizzazione continue.
Ciao grazie


title: evento su pressione pulsante di comando

author: Carlo Costarella

text:
"Fabrizio" <
f_j...@libero.it
> ha scritto nel messaggio
news:kmcZf.70953$A83.1...@twister1.libero.it...

Aggiungi un campo alla tabella: spedito di tipo vero o falso e includilo tra
i controlli della maschera.
Al codice aggiungerai:
Me!Spedito = True
Ciao, Carlo


title: Imposta valore in casella di testo da casella combinata

text:
Buon giorno a tutti
avrei bisogno del vostro aiuto per risolvere un broblema che a rigor
di logica dovrebbe essere semplice, ma non per me...
Dunque:
ho una tabella tblClienti con i campi IDCliente (chiave primaria),
NomeAttività ecc.
Ho una tbella tblFatture con campi IDFattura (chive primaria),
Data,IDCliente ecc
collego tblClienti con tblFatture tramite IDCliente 1 a molti
Creo una query qryfrmFatture che è l'origine dati della mia maschera
frmFatture
Nella maschera inserisco
una casella combinata CboNomeAttività non associata che prende i dati
dalla tabella tblCliente, così quando comincio a scivere il nome del
cliente mi compare l'elenco dei clienti
una casella di testo IDCliente che prende i dati dalle query e si
riferisce all'IDCliente della tblFatture
Come faccio a selezionere un cliente della casella combinata e a fare
in modo che nella casella di testo IDCliente venga scritto l'IDCliente
relativo al cliente scelto?
Sono stata troppo prolissa e poco chiara?
Avete qualche idea, suggerimento, esempio da segnalarmi?
Grazie a tutti


author: Roberto da Parma

text:
<
elena...@gmail.com
> ha scritto nel messaggio
news:4642fe65-1d54-463e...@q9g2000yqc.googlegroups.com...





Grazie a tutti
nella combo dai come origine la query clienti con i campi
ID e Nome
nascondi poi la prima colonna.
Richiami il valore dell'id poi con due righe di codice
Su evento Dopo aggiornamento della combo
tuacasellatxt = tuacombo.column (0)
ciao
--
Roberto da Parma


text:
On 16 Mar, 13:44, "Roberto da Parma" <
arisi.robe...@tin.it
> wrote:
> <
elenach...@gmail.com
> ha scritto nel messaggionews:4642fe65-1d54-463e...@q9g2000yqc.googlegroups.com...

Grazie ci provo e ti faccio sapere
La tua mano dovrebbe essere in via di guarigione... buona convalescenza


text:
"Elena_Elena" <
elena...@gmail.com
> ha scritto nel messaggio
news:91589fb6-4fe1-433b...@w34g2000yqm.googlegroups.com...



Eh...per quella ci vuole ancora tempo...il 18 visita e poi altri 25
gg...tempo al tempo....anche se ormai è da un pò che mi son stufato...
Grazie del pensiero :-))
--
Roberto da Parma


title: Access a SQL Server - massimo numero record insert into select

author: caezan

text:
Buongiorno, ho Microsoft Access 2013 e devo fare upload di record da una tabella locale a un'identica tabella in SQL Server.
Per l'upload utilizzo una query Access di tipo INSERT INTO <tabella SQL-Server> ... SELECT... <tabella Access>.
Mi viene restituito l'errore "Risorse di sistema insufficienti" e il trasferimento fallisce lasciando la tabella SQL Server completamente vuota.
Ho verificato che l'errore si verifica con un numero di record maggiore di 8000 circa.
Ho provato a lanciare la query impostando alternativamente il parametro "Utilizza transazione" in Si/No ma l'errore persiste.
Premetto che non mi si è mai posto questo problema forse perché come backend utilizzavo database diversi da SQL Server.
Vi chiedo se avete una soluzione su come risolvere il problema, in particolare:
- posso programmare inserimenti "a tranche" con filtri sui record;
- esiste un parametro nel database Access oppure SQL Server da configurare, quale?
- devo usare inserimento bulk esportando i dati in file di appoggio?
- altra soluzione?
Grazie per l'aiuto.


text:
> Buongiorno, ho Microsoft Access 2013 e devo fare upload di record da una tabella locale a un'identica tabella in SQL Server.
> Per l'upload utilizzo una query Access di tipo INSERT INTO <tabella SQL-Server> ... SELECT... <tabella Access>.
> Mi viene restituito l'errore "Risorse di sistema insufficienti" e il trasferimento fallisce lasciando la tabella SQL Server completamente vuota.

Il trasferimento ha avuto successo con la soluzione di INSERT INTO a tranche.
Ho impostato una tranche di TOP 2000 e non esaurisce le risorse.
L'idea è molto semplice:

Do While DCount("[ID]", "TabellaAccess") > 0
     DoCmd.OpenQuery "qCaricaTabellaCampioneConTOP2000diCodiciChiavedellaTabellaAccess"
     DoCmd.OpenQuery "qInsertSQLServerdelCampioneCodiciChiave"
     DoCmd.OpenQuery "qDeleteTabellaAccessdelCampioneCodiciChiave"
Loop


author: Davide La Mantia

text:

Ciao

Di pronto accomodo, la tua soluzione è buona, ma per curiosità, che sistema hai?
Perchè avere un alert di risorse insufficienti per 8000 record è abbastanza strano...

Ciao
Davide


text:
> > Il trasferimento ha avuto successo con la soluzione di INSERT INTO a tranche.
> > Ho impostato una tranche di TOP 2000 e non esaurisce le risorse.
> > L'idea è molto semplice:
> > Do While DCount("[ID]", "TabellaAccess") > 0
> > DoCmd.OpenQuery "qCaricaTabellaCampioneConTOP2000diCodiciChiavedellaTabellaAccess"
> > DoCmd.OpenQuery "qInsertSQLServerdelCampioneCodiciChiave"
> > DoCmd.OpenQuery "qDeleteTabellaAccessdelCampioneCodiciChiave"
> > Loop
> Di pronto accomodo, la tua soluzione è buona, ma per curiosità, che sistema hai?
> Perchè avere un alert di risorse insufficienti per 8000 record è abbastanza strano...

Ciao Davide, anche a me pare strano ma non rischio di fare interventi su SQL Server 2016 in quanto ci gira l'ERP.
Inoltre, uso Microsoft Access 2013.


text:

Capisco. A2013 non dovrebbe dare questi problemi.
Comunque ERP a parte, le tue query si basano su viste o direttamente sulle tabelle di origine?
Mi viene in mente che se non gestisci bene gli indici su Access delle tabelle collegate le query potrebbero incasinarsi un po'.

Ciao


title: formato testo integrazione con outlook

author: Akery

text:
buongiorno,

attraverso il seguente script invio delle email

lo script funziona abbastanza bene ma mi piacerebbe formattare porzioni
di testo e inserire i link come hypertext sulle parole chiavi

in pratica come faccio a formattare una parola in grassetto e parte di
testo come cliccabile?

Dim destinatario As String
Dim mytext As String
Dim dest As String
Dim link, qui As String

Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
Dim oggetto As String

dest = ""
DoCmd.GoToRecord , , acFirst
Do While IsNull(Me.ID) = False
dest = dest & Me.mail & ";"
DoCmd.GoToRecord , , acNext
Loop
dest = Left(dest, Len(dest) - 1)

Dipartimento = InputBox("Dipartimento?")
periodo = InputBox("periodo?")
link = "mio link"
qui = "mio qui"

oggetto = "Formazione specifica " & Dipartimento & " del " & periodo

mytext = "Salve a tutti, " & vbCrLf & _
"" & vbCrLf & _
"le SS. LL. sono state convocate a seguire il corso OBBLIGATORIO sui
...etc etc" & link & qui

With outmail
.To = dest

.Subject = oggetto
.body = mytext
'.Attachments.Add (Me.foto)
.Display
'.Send
End With

Akery

--
Questa email è stata esaminata alla ricerca di virus dal software antivirus Avast.
www.avast.com


title: formato testo integrazione con outlook

author: BFS

text:

al posto di .body devi usare
  .htmlBody

e passargli il testo in formato html
cosi puoi usare i tag di html per impostare colori, grassetti immagini
etc etc

BFS


title: formato testo integrazione con outlook

text:

in esempio

...

mytext="grassetto" & "link"

...
.htmlbody=mytext

....

dove vado a specificare questi attributi sulle porzioni di testo?

grazie



title: formato testo integrazione con outlook

text:

penso di aver capito, vi darò aggiornamenti



title: formato testo integrazione con outlook

text:

no, devi usare i tag html
tipo per il grassetto

"<B>questo testo è in grassetto</B>questo no"


title: formato testo integrazione con outlook

text:

ha funzionato perfettamente! grazie per il suggerimento
Akery



title: Chiusura database A2000 e Win ME

author: IBO

text:
Ho il seguente problema con win ME e Access2000:
Dopo aver lanciato un file MDB e aver chiuso access (non importa se ho
modificato dati o strutture o VB) non č piů possibile lanciare alcun MDB.
Dopo alcuni secondi di clessidra non si apre nulla di nulla.
Se invece apro Access e dal menu apri chiamo un MDB funziona.
Ho notato che:
Lancio Access: Task Manager mi da "Microsoft Access"
Chiudo Access: Task Manager mi da un per me sconosciuto "Msaccess"
Se do Termina applicazione su Msaccess tutto torna a funzionare
regolarmente, e posso richiamare qualsiasi MDB senza bisogno di lanciare
prima Access.
- Ho qualcosa che non va in Access o nel SO?
- E' normale tutto questo e non devo scassare?
- Ho qualcosa che non va nella mia mente malata?
Grazie e scusate il disturbo
--


title: filtro maschera in base a textBox

text:
Salve Ragazzi,
ho biosgno estremo del vostro aiuto.
Sto creando un database di fatturazione per il mio capo , sono quasi
alla fine ... tutto Ok.
allora il mio problema è quello di poter filtrare i dati della mia
maschera  in base ad un periodo.
l'unico dato per me disponibile è una sola data DATE: che è la data in
cui materialmente spedisco l'oridne ed è su questa che si rifà la
fattura.
allora da premettere che ho creato una maschera in visulaizzazione
maschere continue di nome Fattura,
dove ho posto due caselle di testo una DataInizio ed una Datafine.
ora vorrei che avendo tutta la lista dei miei dati quando metto una
data su queste due caselle di testo mi vadano a filtrare il
contenututo dei dati della mia maschere.
Posso dargli come parametro DataInizio e DataFine solo quella di
Date:?
Poi vorrei filtrare il contenuto della stessa maschera in base
all'anno per esempio anno 2007 quindi crere un text box anno e
mettergli il paramettro annao e mi filtra solo i valori di quell'anno.
Grazie della disponibilitià


title: filtro maschera in base a textBox

text:
"Fabrizio_LOL" <
f_j...@libero.it
> ha scritto nel messaggio
news:1174482947....@y80g2000hsf.googlegroups.com...
Salve Ragazzi,







Grazie della disponibilitià
----------------------
Se il valore DATE è quello che ti interessa certo che puoi applicare il
filtro: Between #tuadata# And #FineData#
Nella query di sconsiglio di mettere il criterio che si riferisce al
controllo sulla maschera. Meglio due funzioni che prelevano i valori dalla
maschera:
Public function DataInizio() as date
DataInizio = Froms!TuoNomeMaschera!TuoControlloDataInizio
End Function
Public function DataFine() as date
DataFine= Froms!TuoNomeMaschera!TuoControlloDataFine
End Function
Nella query salvata il criterio diventa: Between DataInizio() And DataFine()
Applicherai questa query come origine record della maschera e poi un bel
requery.
Me.RecordSource = "TuaQueryTraDate"
Me.Requery
Quanto all'anno
prima di tutto ti serve una query con tutti gli anni raggruppati presenti
nel campo DATE:
il campo potrebbe essere Anni: Year([CampoData]), raggruppi e con il solo
campo Anni alimenti una combo nella maschera.
Con il solito sistema della funzione pubblica:
Public Function DimmiAnno() as integer
DimmiAnno = Forms!TuaMaschera!TuaCombo
End Function
La nuova query che ti filtra per l'anno avrà, oltre a tutti i campi della
maschera anche il campo Anno: Year([TuoCampoData]) e subito sotto nel
criterio DimmiAnno()
Anche qui reimposti l'origine record della maschera e un bel requery.
Ciao, Carlo


title: filtro maschera in base a textBox

text:
On 21 Mar, 15:20, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Fabrizio_LOL" <
f_j...@libero.it
> ha scritto nel messaggionews:1174482947....@y80g2000hsf.googlegroups.com...

Ciao Carlo, intanto grazie della riposta .......
ok ho fatto come dici tu allora ho messo due funzioni pubblice una
datainizio e una datafine .
nella mia maschera Chiamata "Fattura" ho due caselle di testo con nome
elemento DataInizio e DataFine
allora nelle pubblic funtion ho messo
Public function DataInizio() as date
DataInizio = Froms!Fattura!DataInizio
End Function
etc...
non capisco in quale query slavata dvo impostare il between fra
DataInizio() and DataFine() io ho solo una query chiamata Fattura che
è origine dati della mia maschera io ho provato a metterlo su questa
query nella condizione where del campo Date....
me.recordsource="Fattura"
me.requery
Si apllica nell'evento after update della Maschera?
Grazie ancora
P.S.. io avrei risolto già con questa soluzione trovata ed adattata
posta sul condizione where della query fattura :
Between NZ([Forms]![Fattura]![DataInizio];DMin("[Date:]";"[Ordini]"))
And NZ([Forms]![Fattura]![DataFine];DMax("[Date:]";"[Ordini]"))
mifunziona perfettamente, naturalmente impostando questa condizione
non mi funge un'alltra evento applicato alla maschera che sfruttava la
condizione Select * from Fattura.... che mi esportava tuto in excel
grazie ad un modulo di automazione...
come posso far rifunzionare il tutto affinche funzionino tutte e due
le cose?
Grazie


title: filtro maschera in base a textBox

text:
"Fabrizio_LOL" <
f_j...@libero.it
> ha scritto nel messaggio
news:1174490008....@y80g2000hsf.googlegroups.com...
cut
non capisco in quale query slavata dvo impostare il between fra
DataInizio() and DataFine() io ho solo una query chiamata Fattura che
è origine dati della mia maschera io ho provato a metterlo su questa
query nella condizione where del campo Date....
--------------------
E' una query del tutto simile a quella (o alla tabella) che alimenta
attualmente la maschera; solo che ha il criterio appena visto nel campo
Data.
Se salvi la query con il nome di MiaQuery il codice diventa:
Me.RecordSource = "MiaQuery"
Me.Requery
-------------------------
Si apllica nell'evento after update della Maschera?
-----------------------
No, nel tuo caso si applica dopo aver inserito DataFine o, meglio, dopo aver
inserito datainizio e datafine e su click di un pulsante.
--------------------------------------------------------------
P.S.. io avrei risolto già con questa soluzione trovata ed adattata
posta sul condizione where della query fattura :
Between NZ([Forms]![Fattura]![DataInizio];DMin("[Date:]";"[Ordini]"))
And NZ([Forms]![Fattura]![DataFine];DMax("[Date:]";"[Ordini]"))
mifunziona perfettamente, naturalmente impostando questa condizione
non mi funge un'alltra evento applicato alla maschera che sfruttava la
condizione Select * from Fattura.... che mi esportava tuto in excel
grazie ad un modulo di automazione...
come posso far rifunzionare il tutto affinche funzionino tutte e due
le cose?
Grazie
----------------------------------------
Use le query salvate e esporta queste in Excel.
Ciao, Carlo


title: filtro maschera in base a textBox

text:
On 21 Mar, 16:41, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Fabrizio_LOL" <
f_j...@libero.it
> ha scritto nel messaggionews:1174490008....@y80g2000hsf.googlegroups.com...

Grazie carlo ci sono riuscito!!!!


title: generatore di ricerca....

author: AP

text:
scusate la ... mia memoria.
ricordavo che access(2000) avesse da qualche parte un bottone per generare
un controllo di ricerca dentro la tabella in una maschera.
Non lo trovo piu'... me lo sono sognato o non riesco a focalizzarlo?


title: generatore di ricerca....

author: Karl Donaubauer

text:
AP wrote:
> ricordavo che access(2000) avesse da qualche parte un bottone per
> generare un controllo di ricerca dentro la tabella in una maschera.
> Non lo trovo piu'... me lo sono sognato o non riesco a focalizzarlo?
Forse intendi questo:
Nel toolbox per i controlli attiva la bacchetta magica.
Poi scegli la casella combinata e nella prima maschera della
creazione guidata scegli la terza opzione "Trova un record
nella maschera basato sul valore nella casella combinata".
Se non č questo, descrivi meglio quale tipo di
"ricerca dentro la tabella" intendi.
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: generatore di ricerca....

text:
Il Sat, 26 Jun 2010 10:49:28 +0200, Karl Donaubauer ha scritto:
> Forse intendi questo:
grandissimo, grazie!
--
"That's part of your problem: you haven't seen enough movies. All of life's
riddles are answered in the movies. "  (grand canyon)
UFV
25 sett.: Hot Tub Time Machine
23 sett.: Ondine - Gentlemen Broncos - She's Out of My League
22 sett.: Unthinkable - Zombieland
20 sett.: Perdona e dimentica (Life During Wartime) - Green Zone - Robin
Hood - Gli amori folli (les herbes folles)
www.iaciners.org


title: Cambiare segno all'interno di una cella

text:
Ciao a tutti,
devo creare le bolle di reso (oppure le bolle di storno).
La mia tabella bolle è composta dagli estremi della bolla, da un campo
"quantità" e da una casellina di "storno" in modalità SI/NO.
Devo far si che quando la casellina "storno" è selezionata, il valore
"quantità" si imposti automaticamente in negativo al file di stornare
correttamente la quantità.
Non so quindi, dove, come e quando inserire il comando per effettuare
l'inversione di segno automatico.....
Rigrazio anticipatamente Andrea


title: Cambiare segno all'interno di una cella

author: Antonio Biso

text:
"Andrea.C" <
andrea...@inwind.it
> ha scritto nel messaggio
news:LUE7a.163442$ZE.48...@twister2.libero.it...

Immagino quando andrai a fatturare l'insieme delle bolle no?
Avrai quindi un campo calcolato in qualche query fatto così
Vera Somma: iif([storno]=Vero;-quantità;quantità)
Antonio


title: Cambiare segno all'interno di una cella

author: omasnc

text:
"Andrea.C" <
andrea...@inwind.it
> ha scritto nel messaggio
news:LUE7a.163442$ZE.48...@twister2.libero.it...

Se utilizzi una maschera per l'inserimento dei valori e se i tuoi controlli
si chiamano "quantita" e "storno"
puoi inserire a fronte dell'evento AfterUpdate del controllo quantita un
codice del genere:
Private Sub quantita_AfterUpdate()
    If storno = -1 Then Me.quantita = Abs(quantita) * -1
End Sub
La funzione Abs (valore assoluto) viene utilizzata perchè l'utente potrebbe
inserire il segno meno di sua iniziativa.
Ma poichè l'utente potrebbe cambiare idea o comunque inserire la quantità
prima di selezionare la casellina di storno, a fronte dell'evento
AfterUpdate di quest'ultima sarà opportuno inserire un codice del tipo:
 Private Sub storno_AfterUpdate()
    If storno = -1 Then
        Me.quantita = Abs(quantita) * -1
    Else
        Me.quantita = Abs(quantita)
    End If
End Sub
Ciao
Galliano


title: protezione

author: Mike Fre

text:
Buongiorno a tutti. Avrei bisogno di sapere se è possibile, avendo un
programma in Access, farlo diventare un eseguibile, per far si che non
sia copiabile se non avendo il "setup".
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: protezione

text:
> Buongiorno a tutti. Avrei bisogno di sapere se è possibile, avendo un
> programma in Access, farlo diventare un eseguibile, per far si che non
> sia copiabile se non avendo il "setup".
> Grazie
Come da miliardi di volte ripetuto "Access Developer Edition" (se lo trovi e
se sei disposto a sborsare un bel po di soldi)...
Cmq se il risultato che vuoi è quello di proteggere il tuo DB, bhè ce ne
sono di modi!!!
(Es. Autorizzazioni e verifiche su seriali HD)


title: protezione

author: Emyr

text:
On Tue, 12 Mar 2002 09:05:42 +0000 (UTC), "Mike Fre"
<
mike...@inwind.it
> wrote:
>Buongiorno a tutti. Avrei bisogno di sapere se è possibile, avendo un
>programma in Access, farlo diventare un eseguibile, per far si che non
>sia copiabile se non avendo il "setup".
>Grazie
vedi su
sitocomune.com
Saluti.
Emanuele.


title: protezione

text:
Ti ringrazio, solo che sul
sitocomune.com
 ci sono esempi, ma fattibili
solo su Access 97!!!



title: protezione

text:
On Tue, 12 Mar 2002 16:10:35 +0000 (UTC), "Mike Fre"
<
mike...@inwind.it
> wrote:
>Ti ringrazio, solo che sul
sitocomune.com
 ci sono esempi, ma fattibili
>solo su Access 97!!!
la maggior parte funziona anche sul 2000 e penso anche su XP
vedi la parte relativa alla procedura per leggere il nr seriale
dell'HD ed altro..
Saluti.
Emanuele.


title: protezione

text:
Purtroppo niente da fare, sul
sitocomune.com
 ho trovato programmi, ma
per Access97, NON convertibili in 2000 o 2002!!!
Forse la miglior cosa da fare è rifare il programma in VB e creare un
eseguibile.
GRAZIE
ANDREA



title: protezione

text:
On Wed, 13 Mar 2002 09:54:52 +0000 (UTC), "Mike Fre"
<
mike...@inwind.it
> wrote:
>Purtroppo niente da fare, sul
sitocomune.com
 ho trovato programmi, ma
>per Access97, NON convertibili in 2000 o 2002!!!
>Forse la miglior cosa da fare è rifare il programma in VB e creare un
>eseguibile.
>GRAZIE
>
>ANDREA
ma se il programma del nr. seriale a me che uso il 2000 funziona
benissimo!!!
Saluti.
Emanuele.


title: File Excel

author: Giorgio

text:
Salve
Come posso fare per avviare da access un file di excel ??
Ho provato a cercare nel newsgroup , ma non sono riuscito a trovare niente.
Grazie
Giorgio


title: File Excel

author: Sib

text:
"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
> Come posso fare per avviare da access un file di excel ??
>
> Ho provato a cercare nel newsgroup , ma non sono riuscito a trovare
niente.
prova con l'autocomposizione di un pulsante.
Sib


title: File Excel

author: Claudio(BS)

text:
Sib ha scritto:

ecco uno spunto:
Option Compare Database
' Dichiara le routine API necessarie:
Declare Function FindWindow Lib "user32" Alias _
                 "FindWindowA" (ByVal lpClassName As String, _
                                ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
                 "SendMessageA" (ByVal hWnd As Long, _
                                 ByVal wMsg As Long, _
                                 ByVal wParam As Long, _
                                 ByVal lParam As Long) As Long
Sub GetExcel()
     Dim MyXL As Object    ' Memorizza il riferimento a Microsoft Excel.
     Dim ExcelWasNotRunning As Boolean    ' Flag per il rilascio finale.
     ' Prova per verificare se vi è già una copia di Microsoft Excel in
esecuzione.
     On Error Resume Next
     ' La funzione GetObject chiamata senza il primo argomento
restituisce un
     ' riferimento a un'istanza dell'applicazione. Se l'applicazione non
è in
     ' esecuzione viene generato un errore.
     Set MyXL = GetObject(, "Excel.Application")
     Select Case Err.Number
         Case 429: Set MyXL = CreateObject("Excel.Application") 'crea
l'oggetto
         Case 0: ExcelWasNotRunning = False
         Case Else: ExcelWasNotRunning = True
     End Select
     Err.Clear    ' Cancella l'oggetto Err in presenza di errori.
     ' Ricerca Microsoft Excel. Se Microsoft Excel è in esecuzione, lo
inserisce
     ' nella tabella Running Object.
     DetectExcel
     ' Imposta la variabile oggetto in modo che faccia riferimento al file
     ' che si desidera visualizzare.
     Set MyXL = GetObject("c:\windows\temp\file.xls")
     ' Visualizza Microsoft Excel tramite la proprietà Application,
quindi visualizza
     ' la finestra effettiva che contiene il file utilizzando l'insieme
Windows
     ' del riferimento all'oggetto MyXL.
     MyXL.Application.Visible = True
     MyXL.Parent.Windows(1).Visible = True
     ' Posizione per operazioni di modifica del file.
     MyXL.Workbooks.Add "C:\windows\temp\file.xls"
     MyXL.Worksheets(1).Cells(1, 1) = "Tanti saluti da Access"
     ' Se questa copia di Microsoft Excel non era già in esecuzione
dall'inizio,
     ' la chiude utilizzando il metodo Quit della proprietà Application.
     ' Si noti che quando si cerca di uscire da Microsoft Excel, la
barra del titolo
     ' lampeggia e viene visualizzato un messaggio per richiedere se si
desidera
     ' salvare i file caricati.
     If ExcelWasNotRunning = True Then
         MyXL.Application.Quit
     Else
         MyXL.Quit acPrompt
         MyXL.Application.Quit
     End If
     ' Rilascia il riferimento alla applicazione e al foglio di lavoro.
     Set MyXL = Nothing
End Sub
Sub DetectExcel()
     ' La routine individua un'istanza di Excel in esecuzione e la registra.
     Const WM_USER = 1024
     Dim hWnd As Long
     ' Se Excel è in esecuzione questa chiamata API restituisce l'handle
corrispondente.
     hWnd = FindWindow("XLMAIN", 0)
     If hWnd = 0 Then    ' 0 significa che Excel non è in esecuzione.
         Exit Sub
     Else
     ' Poiché Excel è in esecuzione è necessario utilizzare la funzione
     ' API SendMessage per inserirlo nella tabella Running Object.
         SendMessage hWnd, WM_USER + 18, 0, 0
     End If
End Sub
Function DetectXLS() As Boolean
     ' Funzione che individua un'istanza di Excel in esecuzione.
     Dim hWnd As Long
     ' Se Excel è in esecuzione questa chiamata API restituisce l'handle
corrispondente.
     hWnd = FindWindow("XLMAIN", 0)
     If hWnd = 0 Then    ' 0 significa che Excel non è in esecuzione.
         DetectXLS = False
     Else
         DetectXLS = True
     End If
End Function
byez
--
Claudio(BS)
per rispondere aggiungi claudio
** Articolo inviato tramite i servizi gratuiti di
www.x-privat.org
 **


title: File Excel

text:
"Claudio(BS)" <
0...@hotmail.com
> ha scritto nel messaggio
> Sib ha scritto:
> > "Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
> >
> >>Come posso fare per avviare da access un file di excel ??
> >>
> >>Ho provato a cercare nel newsgroup , ma non sono riuscito a trovare
> >
> > niente.
> >
> > prova con l'autocomposizione di un pulsante.
> >
> > Sib
> >
> >
>
> ecco uno spunto:
>
> Option Compare Database
>
> ' Dichiara le routine API necessarie:
cut
Esagerato!
perche' scomodare le api (che pungono)?
Private Sub Excel_Click()
On Error GoTo Err_Excel_Click
    Dim ExcelWorksheet As Object
    Dim stNote As String
    Dim stParam() As String
    Dim vParam() As Variant
    Dim NumPar As Integer
    'Apre il file excel
    Set ExcelWorksheet = GetObject(DLookup("Testo", "Servizio",
"Impostazione='Moduli'"))
    'Imposta a visibile l'applicazione
    ExcelWorksheet.Application.Visible = True
    'Imposta a visibile il file aperto
    ExcelWorksheet.Parent.Windows(1).Visible = True
    'Seleziona il Foglio
    ExcelWorksheet.sheets("Inviti da DBAccess").Select
    'Espande a tutto schermo excel
    ExcelWorksheet.Application.windowstate = MaximizeExcel
    'Ritrova le note da inserire nel modulo per gli inviti
    stNote = DLookup("Testo", "Servizio", "Impostazione= 'NoteInviti'")
    'Verifica che stNote non sia null per evitare errori
    stNote = IIf(IsNull(stNote), " ", stNote)
    'Imposta i parametri
    If stSQLCorsisti <> "ListaInvitiNonAbbonati Query" Then
        ReDim stParam(3)
        ReDim vParam(3)
        stParam(1) = "[Forms]![CorsoPerInviti]![IntAbbonati]"
        stParam(2) = "[Forms]![CorsoPerInviti]![TuttiCorsisti]"
        stParam(3) = "[Forms]![corsoperinviti]![VediSospesi]"
        vParam(1) = Me![IntAbbonati]
        vParam(2) = Me![TuttiCorsisti]
        vParam(3) = Me![VediSospesi]
        NumPar = 3
    End If
    'Riempie le celle del foglio
    RiempiCelle ExcelWorksheet, ExcelWorksheet.sheets("Inviti da DBAccess"),
stSQLCorsisti, stParam, vParam, NumPar, stNote
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    ExcelWorksheet.UserControl = True
Exit_Excel_Click:
    Exit Sub
Err_Excel_Click:
    MsgBox Err.Description
    Resume Exit_Excel_Click
End Sub
Questa e' una sub di una mia applicazione.
A parte la sezione che predispone i parametri di una mia funzione che va a
riempire le celle, apre perfettamente qualsiasi file excel senza problemi.
Sib


title: File Excel

text:
Sib ha scritto:
> "Claudio(BS)" <
0...@hotmail.com
> ha scritto nel messaggio
>
>>Sib ha scritto:
>>
>>>"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
>>>
>>>
>>>>Come posso fare per avviare da access un file di excel ??
>>>>
>>>>Ho provato a cercare nel newsgroup , ma non sono riuscito a trovare
>>>
>>>niente.
>>>
[CUT]
>
> Esagerato!
Beh! A volte mi lascio prendere la mano :-)
Comunque mi sembrava un buon punto *di partenza*.
> perche' scomodare le api (che pungono)?
[CUT]
Ma sono solo 2! Mica un'alveare!
Al massimo le puoi sempre eliminare, anche se quelli del WWF non saranno
contenti :-) ed ottieni una sub *simile* alla tua.



title: Controli ActiveX

author: Cristiano

text:
Ho usato il controllo Progress Bar di Microsoft che ho trovato nella lista
di ActiveX disponibili.
Se porto il Database su un altro PC (che ha installato Access) c'è il
rischio che l'oggetto ActiveX non venga trovato?
Devo copiare anche altre librerie?
Grazie


title: Controli ActiveX

text:
"Cristiano" <
cristianopor...@tiscalinet.it
> ha scritto nel
messaggio news:ykyia.44771$Jg1.1...@news1.tin.it...
> Ho usato il controllo Progress Bar di Microsoft che ho trovato nella lista
> di ActiveX disponibili.
> Se porto il Database su un altro PC (che ha installato Access) c'č il
> rischio che l'oggetto ActiveX non venga trovato?
> Devo copiare anche altre librerie?
>
> Grazie
>
C'č la certezza piů che il rischio.....!
Devi portarti dietro anche l'OCX(che deve avere la Licenza)
e registrarlo.....!
L'Activex si appoggia alle Librerie di Windows, quindi č tutto li...!
@Alex.


title: Controli ActiveX

author: yQy

text:
On Wed, 02 Apr 2003 17:14:02 GMT, "@Alex" <
ik2...@libero.it
> wrote:
>
>Devi portarti dietro anche l'OCX(che deve avere la Licenza)
>e registrarlo.....!
>L'Activex si appoggia alle Librerie di Windows, quindi è tutto li...!
>@Alex.
comctl32.dll - comctl32.ocx (che sono i file che hanno la progressbar)
vengono installati o con windows (basta la licenza di windows credo) o
con i runtime vb6, scaricabili gratuitamente da microsoft...
quali altre licenze servono?
Ciao


title: Controli ActiveX

text:
> comctl32.dll - comctl32.ocx (che sono i file che hanno la progressbar)
> vengono installati o con windows (basta la licenza di windows credo) o
> con i runtime vb6, scaricabili gratuitamente da microsoft...
>
> quali altre licenze servono?
Perfetto!
Grazie


title: Controli ActiveX

author: Alex

text:
"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> wrote in message
news:hngm8v02p335ggas4...@4ax.com

Io ti consiglierei di informarti bene prima di usarli.
I controlli OCX non sono Free-Use, ma solo con la LICENZA.
La Dll che hai citato è installata con Windows, e se vuoi
usare la Dll per generare la P-Bar puoi farlo, ma devi saper
usare bene le API.
Riguardo VB6 Runtime, non è distribuibile......!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Controli ActiveX

author: Fabrizio Quercia

text:
On Fri, 4 Apr 2003 05:56:00 +0000 (UTC), "Alex" <
ik2...@libero.it
>
wrote:
>I controlli OCX non sono Free-Use, ma solo con la LICENZA.
>La Dll che hai citato è installata con Windows, e se vuoi
>usare la Dll per generare la P-Bar puoi farlo, ma devi saper
>usare bene le API.
>Riguardo VB6 Runtime, non è distribuibile......!
dicevo i vb6run, mamma microsoft te li fa scaricare liberamente
e se un mio ipotetico cliente se li scarica e se li installa?


title: Copiare immagine negli appunti e salvarla su file

author: Roberto

text:
In pratica mi servirebbe quelloscritto nell'oggetto.
Riesco a:
creare un'immagine salvandola negli appunti (alt+stamp e sendkeys)
Non riesco a:
salvarla su file (magari senza finestra "salva con nome")


author: Alessandro Baraldi

text:
Roberto ha scritto:

Prova questo demo :
http://www.lebans.com/windowtobitmap.htm
@Alex


text:
grazie per la risposta e scusa per il ritardo.
Il mio problema è che se stampo un form con una listview non compaiono
i dati in essa contenuti (se invece uso una listbox riesco a farlo). So
che è un sistema "poco professionale" ma alle volte è utile. Esiste
un sistema un pò più semplice (lebans è un genio e quindi non riesco
a stargli dietro) per aggirare il problema?


text:
Roberto ha scritto:

Con SendKeys invia CTRL+STAMP apri un programma di grafica ed invii il
Paste per incollare....!
Devi fare delle prove dovrebbe essere fattibile....forse con VB era
più facile avendo il controllo PictureBox, ma da Access devi
forzatamente appoggiarti a qualcosa di esterno
oppure ricorrere alla libreria GDI+ e salvare l'immagine in
ClipBoard(ottenuta
con il CTRL+STAMP) come BMP....!
E' tutto fattibile, ma non è una passeggiata.
@Alex


text:
ok, grazie
se risolvo (otttimista !!!) posto la soluzione


text:
altra domandina:
in una label per andare a capo uso vbCrLf
esiste una costante per il tasto TAB ...
vorrei ottenere (sempre in una label senza usare gli spazi e senza
impazzire con la dimensione dei caratteri):
1        pluto
2        pippo
3        topolino


text:
Roberto ha scritto:

la costante per il Tab esiste, ma non ti funziona il visualizzatore
Oggetti....???????
In ogni caso non puoi fare quello che dici se non con 2 considerazioni
importanti:
1)Un font a spaziatura costante come il Currier
2)Per ottenere quello che chiedi serve usare Space(n) che inserisce N
spazzi...!
@Alex


text:
Per il problema originale leggiti questo:
http://support.microsoft.com/kb/161299/en-us
@Alex


title: [query] stilare un campionato

author: Macbeth

text:
ho un tot di squadre diciamo 20 in una tabella
squadra1
squadra2
.
.
.
squadra20
Attraverso una query (se e' possibile...) voglio creare tutte le giornate
del campionato in modo che tutte le squadre giochino una contro l'altra, ci
sia andata e ritorno e che ogni giornata sia separata da 15 gg dalla
successiva....
Io sinceramente non ho ancora pensato a come realizzare il tutto....
sinceramente non so che pesci prendere..... un suggerimento, un idea,...
ogni cosa sarebbe piu' che ben accetta...
ps
ovviamente non sono nemmeno sicuro se attraverso un quary questo si possa
fare....
Grazie a chi mi rispondera :)


title: [query] stilare un campionato

author: Thierry Rega

text:
> ho un tot di squadre diciamo 20 in una tabella
>
> squadra1
> squadra2
> .
> .
> .
> squadra20
>
> Attraverso una query (se e' possibile...) voglio creare tutte le giornate
> del campionato in modo che tutte le squadre giochino una contro l'altra,
ci
> sia andata e ritorno e che ogni giornata sia separata da 15 gg dalla
> successiva....
>
> Io sinceramente non ho ancora pensato a come realizzare il tutto....
> sinceramente non so che pesci prendere..... un suggerimento, un idea,...
> ogni cosa sarebbe piu' che ben accetta...
Onestamente, non è che io sia il massimo esperto (anzi), ma fare questo con
una semplice query, mi sembra troppo tortuoso. Dovresti, nel caso di una
query, ripettere 19 volte nello stesso campo (magari in una altra tabella)
tutte le 20 squadre. Poi nella query metti il campo con le 19x20 squadre, e
nella seconda colonna della query, il campo con le sole 20 squadre, ma con
una condizione: che i due valori nello stesso record siano diversi, cioè
ovviamente squadre diverse!
Oppure un'altra soluzione di cui proprio non ho esperienza, è la query a
campi incrociati con la stessa tabella! Suppongo che una volta letto bene
l'help sulle possibilità di questo genere di query, sia la soluzione più
facile.
Infine esiste la possibilità di crearti una matrice 20x20 dove a l'interno
ci metti le date. in questo caso è più intuitivo, e molto più manipolabile,
però devi crearti le liste di partite "manualmente", cioè  scrivendoti tutto
il codice per presentare dati non da tabelle. Questo è possibile mettendo
una funzione personalizzata nella proprietà TipoOrigineRiga.
Poi per qualunque delle soluzioni devi in qualche modo raddoppiare per il
ritorno.
Ciao
Thierry


title: [query] stilare un campionato

text:
THX grazie per il suggerimento... lo devo fare via asp.... quindi in teoria
posso provare con il tuo primo suggerimento e poi far looppare il tutto :)
speriamo bene :)
.....Poi per qualunque delle soluzioni devi in qualche modo raddoppiare per
il
> ritorno.
> Ciao
> Thierry
>
>
>
>
>


title: [query] stilare un campionato

author: lbo dal portatile

text:
>Attraverso una query (se e' possibile...) voglio creare tutte le giornate
>del campionato in modo che tutte le squadre giochino una contro l'altra, ci
>sia andata e ritorno e che ogni giornata sia separata da 15 gg dalla
>successiva....
con una query non e' possibile.  per curiosita', cosa ti ha fatto
pensare che lo fosse?
quello che ti consiglierei e' di scriverti un po' di codice.  comincia
a dare un'occhiata a for..next e rnd.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: [query] stilare un campionato

text:
bo... sto usando asp e data base da un mese e mezzo.... lo faccio per
hobby... sto mettendo in piedi un progetto che richiede queste
caratteristiche...  ho visto che le query sono molto potenti e pensavo che
fosse possibile utilizzarle anche per cose del genere.... anche perche
sostanzialemente il processo logico e di mettere sia in colonna che in
tabella i nomi delle squadre e poi scegliere alcuni record che soddisfano
alcune condizioni (es se B gioca con A non puo' giocare anche con C etc...)
Ciao
lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
392d158...@news.interbusiness.it...



title: Errore di run time "3075" operatore mancante

author: Dino

text:
Scusate vi trascrivo di seguito il codice dove mi da l'errore sopra
riportato.Non trovo l'errore  che si riscontra:
Dim rst
Set rst = CurrentDb.OpenRecordset("SELECT
[Qr_carico_articoli_per_distinta].* FROM
[Qr_carico_articoli_per_distinta] WHERE
[Qr_carico_articoli_per_distinta].[Codice art fornitore]= " &
Me.Codice_art_fornitore & " AND [Qr_carico_articoli_per_distinta].
[Idfornitore] = " & Me.IDfornitore)
With rst
    .MoveFirst
    If .EOF Then
    .Fields("Pz_def") = Form("Pz_def ")
    End If
    .Close
End With
Grazie
Dino


author: Cinzia Pagani

text:
"Dino"  ha scritto nel messaggio
news:9077446c-7ee4-4d3d...@l14g2000yqb.googlegroups.com...

Grazie
Dino
>>>>>>>>>>>>>>>>>>
Ciao Dino,
se codice art Fornitore + di tipo alfanumerico mancano gli apici:
Set rst = CurrentDb.OpenRecordset("SELECT
[Qr_carico_articoli_per_distinta].* FROM
[Qr_carico_articoli_per_distinta] WHERE
[Qr_carico_articoli_per_distinta].[Codice art fornitore]= '" &
Me.Codice_art_fornitore & "' AND [Qr_carico_articoli_per_distinta].
[Idfornitore] = " & Me.IDfornitore)
Cinzia
Access MVP
http://www.riolab.org
http://accessdaziacin.wordpress.com


text:
On 25 Ott, 13:15, "Cinzia Pagani" <
cinzia-no-spam_ple...@tiscali.it
>
wrote:
> "Dino"  ha scritto nel messaggionews:9077446c-7ee4-4d3d...@l14g2000yqb.googlegroups.com...

Ciao Cinzia e grazie per la risp.E' vero il campo "codice art
Fornitore " e' alfanumerico.Ho quindi inserito gli apici ma
all'apertura del form mi si presenta lo stesso errore.
Dino


author: Bruno Campanini

text:
Dino used his keyboard to write :


Non sarï¿œ alfanumerico anche [IdFornitore]?
"Where Tab1.IdCliente = " & [IdCliente]
"Where Tab1.CodMag = '" & [CodMag] & "'"
"Where Tab1.DataSped = #" & Format([DataSped],"mm/dd/yyyy") & "#"
In ogni caso quel
With rst
     ...
End with
Non funzionerï¿œ mai!
Guardati nell'Help: Recordset.AddNew e Recordset.Edit
Bruno


text:
On 25 Ott, 14:53, Bruno Campanini <
brunoca...@libero.it
> wrote:
> Dino used his keyboard to write :
>
> > On 25 Ott, 13:15, "Cinzia Pagani" <
cinzia-no-spam_ple...@tiscali.it
>
> > wrote:
> > Ciao Cinzia e grazie per la risp.E' vero il campo "codice art
> > Fornitore " e' alfanumerico.Ho quindi inserito gli apici ma
> > all'apertura del form mi si presenta lo stesso errore.
> > Dino
>
> Non sarà alfanumerico anche [IdFornitore]?
>
> "Where Tab1.IdCliente = " & [IdCliente]
> "Where Tab1.CodMag = '" & [CodMag] & "'"
> "Where Tab1.DataSped = #" & Format([DataSped],"mm/dd/yyyy") & "#"
>
> In ogni caso quel
> With rst
>      ...
> End with
> Non funzionerà mai!
> Guardati nell'Help: Recordset.AddNew e Recordset.Edit
>
> Bruno
Ciao Bruno e grazie per la risp.Ho rivisto il tutto ma da sempre lo
stesso errore (ID fornitore e' testuale)
Di seguito ti riporto il codice ti posto il codice per capire dove
sbaglio.
Set rst = CurrentDb.OpenRecordset("SELECT articoli.* FROM articoli
WHERE articoli.[Codice art fornitore]= '" & Me.Codice_art_fornitore &
" AND articoli.[IDfornitore] = '" & Me.IDfornitore)
With rst
    .MoveFirst
    If .EOF Then
        .AddNew
        .Fileds("IDfornitore") = Form("IDfornitore")
        .Fields("Pz_def") = Form("Pz_def ")
        .Update
    Else
    End If
    .Close
End With
L'idea di questo codice e' nata dall'esigenza dell'altro post
"aggiornare dati identici da query A a query B" se vuoi dare
un'occhiata.
Grazie
Dino


text:
Dino formulated on Monday :
> Ciao Bruno e grazie per la risp.Ho rivisto il tutto ma da sempre lo
> stesso errore (ID fornitore e' testuale)
> Di seguito ti riporto il codice ti posto il codice per capire dove
> sbaglio.
> Set rst = CurrentDb.OpenRecordset("SELECT articoli.* FROM articoli
> WHERE articoli.[Codice art fornitore]= '" & Me.Codice_art_fornitore &
> " AND articoli.[IDfornitore] = '" & Me.IDfornitore)
> With rst
>     .MoveFirst
>     If .EOF Then
>         .AddNew
>         .Fileds("IDfornitore") = Form("IDfornitore")
>         .Fields("Pz_def") = Form("Pz_def ")
>
>         .Update
>     Else
>
>     End If
>     .Close
> End With
>
> L'idea di questo codice e' nata dall'esigenza dell'altro post
> "aggiornare dati identici da query A a query B" se vuoi dare
> un'occhiata.
>
> Grazie
>
> Dino
Per come la vedo io, a distanza e senza testarlo:
With rst
     .AddNew
     ![IDFornitore] = [IDFornitore]
     ![Pz_Def] = [Pz_Def]
     .Update
End with
Questo per aggiungere un nuovo record... per editarlo sostituisci
.AddNew con .Edit
Bruno


text:

> Bruno- Nascondi testo citato
>
> - Mostra testo citato -


text:
On 25 Ott, 19:47, Bruno Campanini <
brunoca...@libero.it
> wrote:

> Bruno- Nascondi testo citato
>
> - Mostra testo citato -
Grazie Bruno.Ma il risultato e' ancora quello.Volevo pero' attirare la
tua attenzione sul perche' di questo codice (forse c'e' una soluzione
migliore).Se hai avuto tempo di dare un'occhiata all'altro post io ho
il problema di aggiornare i dati di questa form (distinta base) con i
dati della form articoli.Cioe' in distinta base io ho larticolo 1 con
data 20/10/10 con il prezzo di € 1,00.Se lo stesso articolo l'ho vado
ad acquistare in data 24/10/10 ad € 0,50,nel form distinta base mi si
dovrebbe aggiornare in automatico.Come posso fare???
Dino


title: Modifica di una form via VBA

author: nuts

text:
Ciao a tutti,
Ho un db access che viene distribuito a diversi utenti.
All'interno di una form c'� un controllo (combobox) che deve essere
visibile soltanto ad alcuni utenti. Altri invece non la devono vedere.
Anzich� creare due versioni del db (sarebbero state pi� di due perch� in
realt� il problema si ripete con altre maschere e controlli), ho pensato
di scrivere una procedura VBA che:
Apre la form
setta la propriet� Visible del combobox a False.
chiude la form
Il risultato � che la propriet� viene modificata, ma alla chiusura della
form questa modifica viene persa e la combobox � ancora ben visibile.
Esiste un modo per salvare le modifiche a una form effettuate via VBA?
Grazie


title: Modifica di una form via VBA

author: Karl Donaubauer

text:

No, ma perch� vuoi farlo?
Di solito si legge l'utente (di Access, di Windows o di un proprio
sistema con tabelle ecc.) nel evento Open o Load della maschera
e imposta la propriet� Visibile dei controlli.
Certo si puo anche leggere l'utente una sola volta all'avvio del db,
scriverlo p.e. in una casella di testo nella maschera principale e
poi leggerlo da qui. Ma la visibilit� si imposta sempre di nuovo
OnOpen o OnLoad delle maschere e report.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Modifica di una form via VBA

author: Pablitomf

text:
nuts ha scritto:
> Ciao a tutti,




> Grazie
non si fa come hai previsto tu...
si fa piuttosto cos� :
if CurrentUser = "PIPPO" then :tuoncontrollo.visible=false
if CurrentUser = "PLUTO" then :tuoncontrollo.visible=true
--
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perch� un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Modifica di una form via VBA

text:
Karl Donaubauer wrote:
> No, ma perch� vuoi farlo?
> Di solito si legge l'utente (di Access, di Windows o di un proprio
> sistema con tabelle ecc.) nel evento Open o Load della maschera
> e imposta la propriet� Visibile dei controlli.
grazie, far� cos�


title: Modifica di una form via VBA

author: Riccardo Baldinotti

text:
On 3 Lug, 13:38, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> nuts wrote:
> > ... Esiste un modo per salvare le modifiche a una form
> > effettuate via VBA?
>
> No, ma perché vuoi farlo? ...
Scusate se m'intrometto; le soluzioni prospettate sono senz'altro le
migliori, ma io uso un modo per salvare le modifiche a una form, per
esempio:
   DoCmd.OpenForm stDocName, acDesign
   If Forms!stato!livello = "A" Then
       Forms(stDocName).PopUp = False
       Forms(stDocName).Modal = False
       Forms(stDocName).AutoCenter = False
   Else
       Forms(stDocName).PopUp = True
       Forms(stDocName).Modal = True
       Forms(stDocName).AutoCenter = True
   End If
   DoCmd.Close acForm, stDocName, acSaveYes
   DoCmd.OpenForm stDocName, acNormal
cosa che faccio in un'applicazione affinché la maschera si presenti
diversamente a seconda del valore trovato in una casella di testo.
Altrove, faccio il seguente:
    DoCmd.OpenForm "maschera1", acDesign
    Forms!maschera1!Testo63.DefaultValue = pos.Top
    Forms!maschera1!Testo64.DefaultValue = pos.Left
    Forms!maschera1!Testo56.DefaultValue = u
    Forms!maschera1!Casella46.BackColor = sfondo
    Forms!maschera1!Casella47.BackColor = sfondo
    Forms!maschera1!Testo61.DefaultValue = q
    Forms!maschera1!o1.BackColor = scheda
    Forms!maschera1!o2.BackColor = scheda
    Forms!maschera1!m1.BackColor = scheda
    Forms!maschera1!m2.BackColor = scheda
    Forms!maschera1!s1.BackColor = scheda
    Forms!maschera1!s2.BackColor = scheda
    Forms!maschera1!Testo62.DefaultValue = s
    Forms!maschera1!o1.ForeColor = cifre
    Forms!maschera1!o2.ForeColor = cifre
    Forms!maschera1!m1.ForeColor = cifre
    Forms!maschera1!m2.ForeColor = cifre
    Forms!maschera1!s1.ForeColor = cifre
    Forms!maschera1!s2.ForeColor = cifre
    DoCmd.Close acForm, "maschera1", acSaveYes
per memorizzare sia i colori della maschera, scelti dall'utente, che
la posizione in modo che si riapra nel punto in cui era stata
spostata.
Sono gli arzigogoli di un praticone, e magari mi potete commentare
qualcosa.
Grazie per l'attenzione e scusate ancora.
Riccardo Baldinotti


title: Modifica di una form via VBA

author: Alessandro Cara

text:
Riccardo Baldinotti ha scritto:
[cut]
> Sono gli arzigogoli di un praticone, e magari mi potete commentare
> qualcosa.
Bel modo per degradare il FE
--
ac


title: Report e query sottostante

author: Pino

text:
Esiste un modo tramite VBA di fare in modo che a un report sia
associata una certa query (o un'altra) a seguito di una scelta
dell'utente tramite controlli?
Altrimenti si potrebbero creare n Report > n Query e chiamare questo o
quel report da una serie di if dopo la scelta dell'utente ma mi
sembrerebbe un pò uno spreco.
Vorrei che il report fosse uno.


title: Report e query sottostante

author: robertolaforgia

text:

1a soluzione
=========
Devi impostare la proprietà RecordSource del report, ad esempio quando
questo parte (su apertura).
Chiaramente la scelta su quale sorgente di dati utilizzare la devi
fare in base ad un parametro che passi (può anche essere il nome della
query stessa, c'è qui tra i vari post uno che spiega come fare; cerca
quello dal titolo: "memorizzare valore controllo")
2a soluzione
=========
Crea una tabella con la struttura dei dati che intendi stampare, poi
riempi la tabella con i dati che vuoi tramire query o tramite codice
VBA (chiaramente pulesci prima la tabella).
A questo punto hai un report i cui dati variano a seconda di quello
che devi fare.
Il pregio di questa seconda soluzione è che puoi fare più facilmente
il debug dei programmi in quanto i dati restano fino a nuova
elaborazione nella tabella temporanea utilizzata per la stampa.
Ciao,
Roberto LF


title: creare un report con i dati di un solo record

author: Scintilla

text:
Come creare un report, che riporti tutti i campi relativi perņ ad un solo
record, che seleziono da una casella combinata??
l'idea sarebbe quella di far aprire una maschera, nella quale ci sia una
casella combinata in cui selezionare il record, dopodiche, premendo un
pulsante, si visualizzino tutti i campi relativi a quel record.
Grazie in anticipo!


author: Antonio Biso

text:
"Scintilla" <
ales...@hotmail.com
> ha scritto nel messaggio
news:0gUSa.7107$t92.2...@news1.tin.it...
> Come creare un report, che riporti tutti i campi relativi però ad un solo
> record, che seleziono da una casella combinata??
>
> l'idea sarebbe quella di far aprire una maschera, nella quale ci sia una
> casella combinata in cui selezionare il record, dopodiche, premendo un
> pulsante, si visualizzino tutti i campi relativi a quel record.
Origine record del report: tutta la tabella.
Apri il report con il comando dopcmd.openreport ed utilizzando il parametro
CriterioWHERE di cui puoi vedere ottimi esempi sull'help!
Antonio


text:
> Origine record del report: tutta la tabella.
> Apri il report con il comando dopcmd.openreport ed utilizzando il
parametro
> CriterioWHERE di cui puoi vedere ottimi esempi sull'help!
>
> Antonio
>
Ho risolto scrivendo due righe in SQL, prese d'esempio da un database che ho
trovato:
------------
PARAMETERS [cognome] Text ( 255 );
SELECT [tabella1].ID, [tabella1].Cognome, [tabella1].data di nascita,
[tabella1].sesso
FROM [tabella1]
WHERE (([tabella1].Cognome)=[cognome]));
------------
cosi' funziona, ma vorrei riuscire a fare la selezione del cognome non
scrivendolo ma selezionandolo da una casella combinata, anche se, quando i
record saranno molti, forse la selezione a tendina risulterebbe poco
pratica?
che ne pensi?
Ciao


author: MA

text:

Inserisci nella origine record del report il criterio
form!tuamaschera!tuacombo
Quando i record diverranno + di uno gurdati sul sitocomune i lmultipik.
Quando diverranno tanti record ti consiglio una bella sottomaschera che ti
seleziona tu tti quelli che vuoi.
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Data

author: Giorgio

text:
Salve,
Come posso impostare il valore predefinito di un controllo in una maschera
per far si che mi visualizzi l'anno corrente a 4 cifre?
es.---  2002
Grazie
Giorgio


title: Data

author: Roberto da casa

text:
"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
news:mXd68.1938$kv.4...@twister2.libero.it...

= Year(Date())
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Data

author: Emyr

text:
On Thu, 31 Jan 2002 16:05:38 GMT, "Giorgio" <
gior...@libero.it
>
wrote:

la visualizzazione dipende dal formato del controllo
gg/mm/aaaa
Saluti.
Emanuele.


title: Calcoli

author: Alessio

text:
Ciao a tutti, chi mi puņ aiutare a risolvere questo problema????
Ho fatto una maschera con alcuni campi di cui dovrei fare dei semplici
calcoli, sottrazione, divisione, ecc. in modo automatico.
Grazie, Alessio


title: Calcoli

author: Sergio MAZZA

text:
"Alessio" <
ales...@hotmail.com
> ha scritto nel messaggio
news:b4sluh$q4m$1...@grillo.cs.interbusiness.it...

Se hai sulla form i controlli [primoNumero], [secondoNumero] e [totale];
nella origine dati di [totale] inserisci:
=[primoNumero]-[secondoNumero]
oppure
=[primoNumero]+[secondoNumero]
oppure
=[primoNumero]/[secondoNumero]
oppure
=[primoNumero]*[secondoNumero]
Ciao.
--
Sergio MAZZA