title: Prodotto composto

author: Vanna

text:
Un caloroso saluto a tutto ng.
Ho un problemino che non riesco a risolvere e spero che qualcuno mi aiuti.
Spero di non chiedervi una cosa banale. Ho provato a trovare nel vs. sito
cose simili al mio problema ma la mia ricerca non ha portato a niente. Sto
facendo un piccolo DB per la mia azienda che produce sedie in plastica e
vorrei sapere come posso impostare  delle tabelle/query per creare un
prodotto composto da un elencodi altri articoli.
Es. io ho questi articoli:
Articolo A
Articolo C
Articolo E
Il prodotto Gigi è formato dall' Articolo A + Articolo C
Il prodotto Cicci è formato dall' Articolo E + Articolo C
Ect ....
Vi chiedo cortesemente di spiegarmi in maniera molto semplice con i vari
passaggi che devo fare perchè sono alle prime armi ....
Vi ringrazio della vostra attenzione in anticipo
Vanna


title: Prodotto composto

author: Sandro

text:
"Vanna" <
zai...@tin.it
> ha scritto nel messaggio
news:8i2qd.415054$35.18...@news4.tin.it...

>Ciao Vanna,
in  pratica devi creare una sorta di distinta base di prodotti finiti ??
secondo me è una tipica relazione molti a molti
io farei cosi :
creo una tabella con tutti i prodotti finiti.
un'altra con i componenti dei prodotti finiti.
crei un terza tabella che raccoda le due precedenti che avrà le chiavi
primarie delle due precedenti e magari i coefficienti di impiego degli
stessi all'interno della distinta base.
una volta create le tabelle le devi mettere in relazione 1 a molti
richiamandole nella finestra relazioni.
Per creare le query per effettuare una sorta di implosione in pratica hia
già le tre tabelle relazionate e il gioco è fatto !
spero di esserti stato utile, Sandro.


title: Prodotto composto

text:
Ciao Sandro,
grazie per la tua gentile e celere risposta .... Si, io devo creare una
distinta base di prodotti finiti.
Allora, se ho capito bene io devo creare:
- Tabella Prodotti
IdProdotto (chiave primaria) - e faccio la relazione con la tab. XX
...........
- Tabella Componenti prodotti finiti
IdComponenti (chiave primaria) - e faccio la relazione con la tab. XX
.........
- Tabella XX
Idxx (chiave primaria)
IdProdotto
IdComponenti
..........
E fino a qui tutto ok .... Non ho capito che cosa siano "i coefficienti di
impiego degli
stessi all'interno della distinta base" .... e anche come "creare la query
per effettuare una sorta di implosione ...".
Ti chiedo gentilemte di spiegarmi in maniera pratica e se riesci anche con
un piccolo esempio?
Ti ringrazio tanto della tua attenzione.
Ciao Vanna
"Sandro" <
sape...@tiscali.it
> ha scritto nel messaggio
news:coai2h$pt1$1...@lacerta.tiscalinet.it...



title: Prodotto composto

text:
[cut]
Ciao Vanna,
ti chiedo gentilemente di scrivere dopo la risposta così da rendere il tutto
più leggibile anche agli altri.
Grazie.
Non ho capito che cosa siano "i coefficienti di
> impiego degli
> stessi all'interno della distinta base"
siccome anch'io tempo fa mi sono scontrato con una situazione simile alla
tua, nella tabella di raccordo tra prodotti e componenti, ci devi mettere
l'unità di misura di quel componente per quel prodotto, lì, e non da altre
parti
es. se per la sedia 1 devi usare kg.10 di quella determinata plastica allora
nella tabella di raccordo dovrai inserire sicuramente un campo unità di
misura e un altro campo che io chiamo coefficiente di impiego che mi indica
la quantità di quel determinato componente in quel prodotto finito. Ok?
per creare la query  per effettuare una sorta di implosione ...".
allora quando hai completato l'inserimento delle distinte basi potrebbe
essere interessante capire i fabbisogni, per ad esempio produrre 100 sedie
di un  determinato modello (esplosione), oppure capire su quali prodotti
finiti ci siamo determitati componenti (implosione).
Questo è possibile facendo 2 semplici query di selezione.
Ciao e buon lavoro.
ps.la
 stessa tecnica la puoi applicare per la creazione di cicli di
lavorazione, inserendo nella tabella di raccordo, tra gli altri, i tempi di
lavorazione, che ti possono determinare i carichi di lavoro...
Sandro
>
>


title: Sito Comune Funzione Cerca tabelle e query

author: lismax

text:
La funzione di Lorenzo Coronati e Davide La Mantia sul Sito Comune - Sezione
General - "Verifica se una tabella o una query è usata in una form o in un
report" funziona egregiamente sotto A97.
La stessa sotto AccessXP dà il seguente errore:
- Errore 17 sotto l'esecuzione della Function Segugio -
Skippando l'errore prosegue e sembra... funzionare.
Inoltre il processo di esame è rallentato notevolmente dalla continua
apertura e chiusura a video dei moduli che non riesco ad eliminare con
DoCmd.Echo False.
E' possibile capire da cosa è originato l'errore e se è possibile apportare
delle rettifiche che migliorino le prestazioni sotto  AXP ?
lismax


author: Roberto da casa

text:
"lismax" <
lismax...@tiscali.it
> ha scritto nel messaggio
news:YuI5a.143902$YG2.4...@twister1.libero.it...

Il problema è che la funzione è stata scritta su Access 97, per il quale i
riferimenti alla libreria Microsoft DAO sono di default, cosa che non è vera
per Access XP.
Prova a sostituire la riga:
Dim ro As Recordset
con:
Dim ro As DAO.Recordset
e la riga:
Dim qdf As QueryDef
con:
Dim qdf As DAO.QueryDef
e ad inserire nel tuo database il riferimento alla libreria Microsoft DAO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:WoJ5a.144105$YG2.4...@twister1.libero.it...

Ho provato ma segnala sempre errore 17


author: Sib

text:
"lismax" <
lismax...@tiscali.it
> ha scritto nel messaggio
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> > "lismax" <
lismax...@tiscali.it
> ha scritto nel messaggio
> > > La funzione di Lorenzo Coronati e Davide La Mantia sul Sito Comune -
Sezione
> > > General - "Verifica se una tabella o una query è usata in una form o
in un
> > > report" funziona egregiamente sotto A97.
> > >
> > > La stessa sotto AccessXP dà il seguente errore:
> > > - Errore 17 sotto l'esecuzione della Function Segugio -
> > > Skippando l'errore prosegue e sembra... funzionare.
> > > Inoltre il processo di esame è rallentato notevolmente dalla continua
> > > apertura e chiusura a video dei moduli che non riesco ad eliminare con
> > > DoCmd.Echo False.
cut
> > Il problema è che la funzione è stata scritta su Access 97, per il quale
i
> > riferimenti alla libreria Microsoft DAO sono di default, cosa che non è
vera
> > per Access XP.
cut
> Ho provato ma segnala sempre errore 17
Ciononostante l'osservazione di Roberto rimane valida.
Hai anche verificato che tra i riferimenti vi sia anche quello alla libreira
DAO?
Oltretutto non hai specificato per quale istruzione ti viene restituito
questo errore.
Per finire, gli oggetti e' normale che si vedano, soprattutto se
l'esecuzione viene interrotta e poi ripresa. d'altro canto la funzione
segugio non prende neanche in esame il problema delle prestazioni, poco
importa se impiega un secondo o un minuto, l'importante e' che restituisca
informazioni utili a strutturare correttamente il db, infatti si usa solo in
fase di sviluppo.
Sib


title: Maschere con sottomaschere su pagina accesso ai dati

author: MorenoM

text:
Gentili partecipanti al newsgroup,
ho un database con access 2003, con tabella generale ed a lei
relazionate altre tabelle con tipologia molti a uno.
Ho creato la relativa maschera con le sottomaschere relative, tutto
funziona molto bene.
Ora quella maschera vorrei gestirla con una pagina di accesso ai dati,
in modo che altri utenti della intranet locale possano interagire con
essa imputanto dati, visualizzarli, ecc. ecc.
Il problema che vorrei risolvere, chiedendo a voi, è quello relativo
alle sottomaschere non gestite da queste benedette pagine di accesso
ai dati.
Forse dovrei utilizzare Frontpage per risolvere tale enigma ?
Grazie a tutti per l' attenzione e l' eventuale aiuto e/o consiglio.


author: Roberto da Parma

text:
"MorenoM" <
mor...@gmail.com
> ha scritto nel messaggio
news:d40af9db-55eb-4d85...@o11g2000yql.googlegroups.com...
Gentili partecipanti al newsgroup,
ho un database con access 2003, con tabella generale ed a lei
relazionate altre tabelle con tipologia molti a uno.
Ho creato la relativa maschera con le sottomaschere relative, tutto
funziona molto bene.
Ora quella maschera vorrei gestirla con una pagina di accesso ai dati,
in modo che altri utenti della intranet locale possano interagire con
essa imputanto dati, visualizzarli, ecc. ecc.
Il problema che vorrei risolvere, chiedendo a voi, č quello relativo
alle sottomaschere non gestite da queste benedette pagine di accesso
ai dati.
Forse dovrei utilizzare Frontpage per risolvere tale enigma ?
Grazie a tutti per l' attenzione e l' eventuale aiuto e/o consiglio.
e chi lo dice che le pagine di accesso ai dati non gestiscono le
sottomaschere?
se le relazioni tra le tabelle sono corrette ottieni una visualizzazione
simil tabelle con foglio dati secondario...
ma la creazione delle pagine č anche abbastanza guidato...fai qualche prova
in piů...
se non ci salti fuori spiega meglio cosa non riesci a fare...
ciao
--
Roberto da Parma


text:
On 28 Mar, 15:29, "Roberto da Parma" <
arisi.robe...@tin.it
> wrote:
> "MorenoM" <
more...@gmail.com
> ha scritto nel messaggionews:d40af9db-55eb-4d85...@o11g2000yql.googlegroups.com...
> Gentili partecipanti al newsgroup,
> ho un database con access 2003, con tabella generale ed a lei
> relazionate altre tabelle con tipologia molti a uno.
> Ho creato la relativa maschera con le sottomaschere relative, tutto
> funziona molto bene.
> Ora quella maschera vorrei gestirla con una pagina di accesso ai dati,
> in modo che altri utenti della intranet locale possano interagire con
> essa imputanto dati, visualizzarli, ecc. ecc.
> Il problema che vorrei risolvere, chiedendo a voi, è quello relativo
> alle sottomaschere non gestite da queste benedette pagine di accesso
> ai dati.
> Forse dovrei utilizzare Frontpage per risolvere tale enigma ?
> Grazie a tutti per l' attenzione e l' eventuale aiuto e/o consiglio.
>
> e chi lo dice che le pagine di accesso ai dati non gestiscono le
> sottomaschere?
> se le relazioni tra le tabelle sono corrette ottieni una visualizzazione
> simil tabelle con foglio dati secondario...
> ma la creazione delle pagine è anche abbastanza guidato...fai qualche prova
> in più...
> se non ci salti fuori spiega meglio cosa non riesci a fare...
>
> ciao
>
> --
>
> Roberto da Parma
Grazie proverò, tuttavia tale affermazione è scritta nel libro Access
2003 oltre ogni limite, ma forse come dici te ci si riesce lo stesso,
proverò essendo anche certo di avere fatto le relazioni corrette.
Altra domandina: se nel caso ci si riesca (ne sono ottimista) gli
utenti che utilizzeranno tale pagina, possono essere almeno una
trentina contemporanemente ?
Grazie ancora.


text:
"MorenoM" <
mor...@gmail.com
> ha scritto nel messaggio
news:ffcec11c-2537-4319...@e21g2000yqb.googlegroups.com...
On 28 Mar, 15:29, "Roberto da Parma" <
arisi.robe...@tin.it
> wrote:
> "MorenoM" <
more...@gmail.com
> ha scritto nel
> messaggionews:d40af9db-55eb-4d85...@o11g2000yql.googlegroups.com...
> Gentili partecipanti al newsgroup,
> ho un database con access 2003, con tabella generale ed a lei
> relazionate altre tabelle con tipologia molti a uno.
> Ho creato la relativa maschera con le sottomaschere relative, tutto
> funziona molto bene.
> Ora quella maschera vorrei gestirla con una pagina di accesso ai dati,
> in modo che altri utenti della intranet locale possano interagire con
> essa imputanto dati, visualizzarli, ecc. ecc.
> Il problema che vorrei risolvere, chiedendo a voi, č quello relativo
> alle sottomaschere non gestite da queste benedette pagine di accesso
> ai dati.
> Forse dovrei utilizzare Frontpage per risolvere tale enigma ?
> Grazie a tutti per l' attenzione e l' eventuale aiuto e/o consiglio.
>
> e chi lo dice che le pagine di accesso ai dati non gestiscono le
> sottomaschere?
> se le relazioni tra le tabelle sono corrette ottieni una visualizzazione
> simil tabelle con foglio dati secondario...
> ma la creazione delle pagine č anche abbastanza guidato...fai qualche
> prova
> in piů...
> se non ci salti fuori spiega meglio cosa non riesci a fare...
>
> ciao
>
> --
>
> Roberto da Parma
Grazie proverň, tuttavia tale affermazione č scritta nel libro Access
2003 oltre ogni limite, ma forse come dici te ci si riesce lo stesso,
proverň essendo anche certo di avere fatto le relazioni corrette.
Altra domandina: se nel caso ci si riesca (ne sono ottimista) gli
utenti che utilizzeranno tale pagina, possono essere almeno una
trentina contemporanemente ?
Grazie ancora.
Mmmmmmmm.....ti direi..prova....ma stai sul sicuro sui 10....oltre rischi e
dovresti passare a un db piů solido...MySQL o SQLexpress...ecc



title: Blocca esecuzione codice

author: max

text:
Ciao a tutti.......
Mi date una dritta sulla funzione call o simele?......
Su una maschera Movimenti Contabili con un pulsante denominato Salva,
confermo l'inserimento del movimento e allo stesso tempo apro un'altra
maschera Movimenti Magazzino con un pulsante Ok, e fin qui tutto bene......
Vorrei interrompere l'esecuzione del codice nella determinata riga del
pulsante Salva, e farlo continuare alla pressione del pulsante Ok della
maschera Movimenti Magazzino....
Esempio:
Private Sub salva_Click()
If Me.TipoDocumento= "Fattura" then
Docmd.OpenForm "MovimentiMagazzino",
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Bloccare il codice su End If se l'istruzione è vera, e al clik del pulsante
Ok della maschera Movimenti Magazzino continuare il codice da
DoCmd.GoToRecord, , acNewRec.
Mi Mandate un esempio?
Grazie a tutti
Ciao


title: Blocca esecuzione codice

author: Andytre

text:
Il 27 Ott 2003, 19:47, "max" <
mas...@inwind.it
> ha scritto:
> Ciao a tutti.......
>
> Mi date una dritta sulla funzione call o simele?......
>
> Su una maschera Movimenti Contabili con un pulsante denominato Salva,
> confermo l'inserimento del movimento e allo stesso tempo apro un'altra
> maschera Movimenti Magazzino con un pulsante Ok, e fin qui tutto
bene......
> Vorrei interrompere l'esecuzione del codice nella determinata riga del
> pulsante Salva, e farlo continuare alla pressione del pulsante Ok della
> maschera Movimenti Magazzino....
>
> Esempio:
>
> Private Sub salva_Click()
> If Me.TipoDocumento= "Fattura" then
> Docmd.OpenForm "MovimentiMagazzino",
> End If
> DoCmd.GoToRecord , , acNewRec
> End Sub
>
> Bloccare il codice su End If se l'istruzione č vera, e al clik del
pulsante
> Ok della maschera Movimenti Magazzino continuare il codice da
> DoCmd.GoToRecord, , acNewRec.
>
> Mi Mandate un esempio?
> Grazie a tutti
> Ciao
Non so se ho capito ma prova cosě:
Private Sub salva_Click()
If Me.TipoDocumento <> "Fattura" then
Docmd.OpenForm "MovimentiMagazzino"
DoCmd.GoToRecord , , acNewRec
Exit Sub
Else
Docmd.OpenForm "MovimentiMagazzino"
End If
End Sub
E su Click del pulsante OK
Private Sub OK_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
Ciao,
Andrea
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Blocca esecuzione codice

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:bnjp99$b6q$2...@lacerta.tiscalinet.it...

Ho già risposto al tuo messaggio precedente.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Collegamento caselle associate

author: Massimo

text:
Ciao
In una maschera ho un flag di conferma di avvenuto pagamento, dandogli la
spunta mi esce automaticamente la data, io vorrei che oltre alla data nella
casella associata 'acconto' mi inserisca automaticamente l'importo della
fattura della casella associata 'versato' che a sua volta mi viene data
calcolandola da una sottocartella.
Casella 'acconto' in quanto, visto che a volte l'utente pagando con un
c.c.p. o altro, non paga l'intero importo, per avere in un'altra casella
associata 'rimanenza'  la differenza da incassare.
Ho modificato il codice del flag in questo modo:
Private Sub Pagato_AfterUpdate()
If Me![Pagato] = True Then    'flag di spunta'
    Me![Data Pagamento] = Date
    Me![Liquidato] = [versato]
Else
    Me![Data Pagamento] = ""
    Me![Liquidato] = ""   'mi cancella l'importo tolta la spunta'
    Me![Rimanenza] = ""  'mi cancella l'importo tolta la spunta'
End If
End Sub
Mentre l'originale era:
Private Sub Pagato_AfterUpdate()
If Me![Pagato] = True Then    'flag di spunta'
    Me![Data Pagamento] = Date
Else
    Me![Data Pagamento] = ""
End If
End Sub
Il tutto diciamo che funziona, però se inserisco l'importo incassato diverso
da quello che dovrei ricevere ho un errore di run time 2110 Impossibile
spostare lo stato attivo al controllo 'Da Pagare' controllo che serve per
immettere il valore sulla tabella utenti. Tenete presente che comunque il
calcolo viene effettuato.
Questo è il codice:
Private Sub Da_Pagare_GotFocus()
Me.Da_Pagare = Me.versato
End Sub
Private Sub Form_Current()
End Sub
Private Sub Liquidato_AfterUpdate()
Me!Rimanenza = Me![versato] - [Liquidato]
Me.Da_Pagare.SetFocus
End Sub
Naturalmente prima che effettuavo le mie modifiche non avevo alcun problema.
spero di essere stato abbastanza chiaro
Grazie
Massimo


title: Collegamento caselle associate

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:93rpui$972$1...@lacerta.tiscalinet.it...

Prova ad eliminare la routine:
Private Sub Da_Pagare_GotFocus()
Me.Da_Pagare = Me.versato
End Sub
e modifica la routine "Dopo aggiornamento" del controllo Liquidato in
Private Sub Liquidato_AfterUpdate()
Me!Rimanenza = Me![versato] - [Liquidato]
Me.Da_Pagare = Me.versato
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Collegamento caselle associate

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:zFn86.52288$eB2.4...@news.infostrada.it...
>
> Prova ad eliminare la routine:
>
> Private Sub Da_Pagare_GotFocus()
> Me.Da_Pagare = Me.versato
> End Sub
>
> e modifica la routine "Dopo aggiornamento" del controllo Liquidato in
>
> Private Sub Liquidato_AfterUpdate()
> Me!Rimanenza = Me![versato] - [Liquidato]
> Me.Da_Pagare = Me.versato
> --
> Roberto
------
Perfetto come sempre.
Ieri avevo trovato una soluzione, anche se poco elegante, dopo vari
tentativi ho notato che l'errore usciva quando rendevo la casella
'Da_Pagare' non visibile sulla maschera, allora dandogli i colori della
maschera  ho risolto il problema!
Perň adesso mi chiedo perchč? Cosa c'entra, se rendere visibile o meno la
casella di testo per il funzionamento del codice?
Avrei un'altro problema con i filtri. Come ho detto in precedenza nella
maschera č presente una sottomaschera 'sottoutenti' Se lancio dal menů
strumenti il 'filtro maschera', inserisco la voce da ricercare nella
sottomaschera, quando applico il filtro non ottengo alcun risultato.
Ciao e Grazie
Massimo


title: Collegamento caselle associate

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:93vbo1$duv$1...@lacerta.tiscalinet.it...
>
[CUT]
> Ieri avevo trovato una soluzione, anche se poco elegante, dopo vari
> tentativi ho notato che l'errore usciva quando rendevo la casella
> 'Da_Pagare' non visibile sulla maschera, allora dandogli i colori della
> maschera  ho risolto il problema!
> Perň adesso mi chiedo perchč? Cosa c'entra, se rendere visibile o meno la
> casella di testo per il funzionamento del codice?
>
Perché per definizione non si puň spostare il fuoco su un controllo non
visibile, come daltronde non riusciresti a farlo con il tasto invio o
tabulazione.
> Avrei un'altro problema con i filtri. Come ho detto in precedenza nella
> maschera č presente una sottomaschera 'sottoutenti' Se lancio dal menů
> strumenti il 'filtro maschera', inserisco la voce da ricercare nella
> sottomaschera, quando applico il filtro non ottengo alcun risultato.
Poiché quando lanci il 'filtro maschera' hai attiva la maschera principale,
la ricerca la devi effettuare in base ad un controllo della maschera
principale.
> Ciao e Grazie
> Massimo



title: Collegamento caselle associate

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:%mJ86.59872$eB2.4...@news.infostrada.it...
>
> > Avrei un'altro problema con i filtri. Come ho detto in precedenza nella
> > maschera č presente una sottomaschera 'sottoutenti' Se lancio dal menů
> > strumenti il 'filtro maschera', inserisco la voce da ricercare nella
> > sottomaschera, quando applico il filtro non ottengo alcun risultato.
>
> Poiché quando lanci il 'filtro maschera' hai attiva la maschera
principale,
> la ricerca la devi effettuare in base ad un controllo della maschera
> principale.
Ciao
Allora ci debbo rinunciare, a meno che non copio i dati anche sulla maschera
principale.
    Stamattina in ufficio (il solito pignolo) mi ha fatto notare, sempre
tornando al discorso della casella di spunta, se č mancante sulla casella
'rimanenza' dovrebbe essere indicato l'intero importo della fattura e non
solo la differenza tra l'importo della fattura ed il pagato. Ricapitolando:
Flag di spunta 'Pagato' se attivo mi inserisce automaticamente la data del
versamento e l'importo della fattura nella casella associata 'liquidato' che
viene copiato dalla casella associata 'Versato'
Nella casella associata 'versato' ho l'intero importo della fattura che mi
viene dato da una espressione che mi va a contare le quote della
sottomaschera sottoutenti e le moltiplica per il valore della quota.
Se l'utente non paga l'intero importo della fattura sulla casella associata
'rimanenza' mi viene calcolato la differenza.
Senza flag di spunta al momento ho solo il dato della casella associata
'versato' e se inserito erroneamente quando viene tolto mi ripulisce tutto.
Sin qui non ci sono problemi.
Adesso mi occorrerebbe che senza il flag, sulla casella 'Rimanenza' mi
compaia l'intero importo della fattura, (molto comodo per sapere ancora cosa
si deve ancora incassare) naturalmente senza rinunciare al discorso del flag
inserito erroneamente.
Per una migliore comprensione inserisco il codice vb:
Private Sub Da_Pagare_gotFocus()
Me.Da_Pagare = Me.Rimanenza  'Riporta il valore da incassare sulla tabella
Da_Pagare'
End Sub
----
Private Sub Liquidato_AfterUpdate()
Me!Rimanenza = Me![versato] - [Liquidato]
Me.Da_Pagare.SetFocus
End Sub
-----
Private Sub Pagato_AfterUpdate()
If Me![Pagato] = True Then   'Flag di spunta'
    Me![Data Pagamento] = Date
    Me!Liquidato = versato
Else
    Me![Data Pagamento] = ""
    Me!Liquidato = ""
    Me!Rimanenza = ""
    Me.Da_Pagare = ""
End If
End Sub
--------
Grazie
Massimo


title: Collegamento caselle associate

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:942e19$f08$1...@lacerta.tiscalinet.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:%mJ86.59872$eB2.4...@news.infostrada.it...
> >
> > > Avrei un'altro problema con i filtri. Come ho detto in precedenza
nella
> > > maschera è presente una sottomaschera 'sottoutenti' Se lancio dal menù
> > > strumenti il 'filtro maschera', inserisco la voce da ricercare nella
> > > sottomaschera, quando applico il filtro non ottengo alcun risultato.
> >
> > Poiché quando lanci il 'filtro maschera' hai attiva la maschera
> principale,
> > la ricerca la devi effettuare in base ad un controllo della maschera
> > principale.
>
> Ciao
> Allora ci debbo rinunciare, a meno che non copio i dati anche sulla
maschera
> principale.
>
>     Stamattina in ufficio (il solito pignolo) mi ha fatto notare, sempre
> tornando al discorso della casella di spunta, se è mancante sulla casella

Quanto a cautelarsi dal fatto di modificare accidentalmente il flag, a
fronte dell'evento "Prima di aggiornare" del controllo relativo al flag,
tramite una MsgBox, chiedi conferma all'operatore se vuole veramente
modificare il flag, e se la risposta è no, tramite il comando Undo (vedi
help) annulla la modifica.
Quanto al resto, se fa quello che volevi, vuol dire che è OK.



title: Collegamento caselle associate

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:00596.69794$eB2.5...@news.infostrada.it...
>
> Quanto al resto, se fa quello che volevi, vuol dire che č OK.
>
> --
> Roberto
Veramente non fa tutto che volevo, non riesco ad avere tutto l'importo della
fattura su 'Rimanenza' quando il flag non č spuntato.
Ciao
Massimo


title: Collegamento caselle associate

author: Roberto dal portatile

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:943hb4$sge$1...@lacerta.tiscalinet.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:00596.69794$eB2.5...@news.infostrada.it...
> >
> > Quanto al resto, se fa quello che volevi, vuol dire che è OK.
> >
> > --
> > Roberto
>
> Veramente non fa tutto che volevo, non riesco ad avere tutto l'importo
della
> fattura su 'Rimanenza' quando il flag non è spuntato.
> Ciao
> Massimo
>
>
Scusami ma la tua realizzazione mi sembra un pochino contorta. Fra l'altro
non capisco perché, dopo che, con tua piena soddisfazione, avevamo tolto il
giochino del SetFocus mi vedo riproporre un codice VBA vecchia maniera.
Io ho capito che nel controllo Versato c'è l'importo della fattura, che nel
controllo Liquidato digiti ciò che il cliente ti paga e contiene un valore
non significatovo (zero o null) se il cliente non ti ha pagato; non ho
capito invece che differenza c'è tra il controllo Rimanenza ed il controllo
Da_Pagare (mi sembra che contengano sempre gli stessi valori), pertanto nel
mio ragionamento del secondo controllo non terrò conto.
Mi sembra che tu abbia asserito (causa il pignolo) che è vero che Rimanenza
è SEMPRE uguale alla differenza tra Versato e Liquidato, infatti se il
cliente non ha pagato Rimanenza deve assumere il controllo di Versato
(ovvero della fattura).
Se così è non ho capito a che ti serve il flag Pagato (visto la possibilità
di errore in cui puoi accidentalmente incorrere); tutti i tuoi test per
sapere se un cliente ha pagato li puoi fare basandoti sul fatto che il
controllo Liquidato sia significativo o meno.
Insomma a fronte dell'evento "Su corrente" della tua maschera genererei il
seguente codice VBA:
If IsNull(Me!Liquidato) OR Me!Liquidato=0 Then
    Me!Liquidato=0
    Me![Data Pagamento] = ""
End If
Me!Rimanenza = Me!Versato - Me!Liquidato
e a fronte dell'evento "Dopo aggiornamento"  del controllo Liquidato
genererei il seguente codice VBA:
If IsNull(Me!Liquidato) OR Me!Liquidato=0 Then
    Me!Liquidato=0
    Me![Data Pagamento] = ""
Else
    Me![Data Pagamento] = Date()
End If
Me!Rimanenza = Me!Versato - Me!Liquidato
Ti sconsiglio di effettuare calcoli a fronte dell'evento "Su attivato" di un
controllo; tale calcolo ti verrà eseguito anche se accidentalmente ti ci
posizioni con il mouse o con il tasto Invio o Tabulazione.
Io la vedo così, ora decidi tu.



title: Collegamento caselle associate

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Elm96.74718$eB2.5...@news.infostrada.it...
>
>
> Scusami ma la tua realizzazione mi sembra un pochino contorta. Fra l'altro
> non capisco perché, dopo che, con tua piena soddisfazione, avevamo tolto
il
> giochino del SetFocus mi vedo riproporre un codice VBA vecchia maniera.
Scusami, ma ti ho spedito il codice del DB di casa dove ancora non
effettuavo la modifica, cmq adesso ho tolto completamente la casella
associata da pagare, dopo aver capito che era un doppione.
> Io ho capito che nel controllo Versato c'è l'importo della fattura, che
nel
> controllo Liquidato digiti ciò che il cliente ti paga e contiene un valore
> non significatovo (zero o null) se il cliente non ti ha pagato;
Sin qui ci siamo, anche se al momento digito nel controllo Liquidato, solo
se il cliente non paga l'intero importo, altimenti come do il flag del
Pagato automaticamente mi viene inserita la data e l'intero importo da
pagare nel controllo Liquidato
 non ho
> capito invece che differenza c'è tra il controllo Rimanenza ed il
controllo
> Da_Pagare (mi sembra che contengano sempre gli stessi valori), pertanto
nel
> mio ragionamento del secondo controllo non terrò conto.
Vedi sopra
> Mi sembra che tu abbia asserito (causa il pignolo) che è vero che
Rimanenza
> è SEMPRE uguale alla differenza tra Versato e Liquidato, infatti se il
> cliente non ha pagato Rimanenza deve assumere il controllo di Versato
> (ovvero della fattura).
Qui mi sarò spiegato male, se sul controllo Liquidato non è presente alcun
valore o 0 sul controllo Rimanenza non mi da l'intero importo della fattura,
cioè Rimanenza non assume il valore del controllo Versato.
Al contrario se sul controllo Liquidato viene digitato un importo inferiore
della fattura, ecco che su Rimanenza mi esce la differenza.
> Se così è non ho capito a che ti serve il flag Pagato (visto la
possibilità
> di errore in cui puoi accidentalmente incorrere);
Per snellire la digitazione, adesso che ho inserito il MsgBox, mi calza
proprio a pennello
 >tutti i tuoi test per
> sapere se un cliente ha pagato li puoi fare basandoti sul fatto che il
> controllo Liquidato sia significativo o meno.
> Insomma a fronte dell'evento "Su corrente" della tua maschera genererei il
> seguente codice VBA:
>
> If IsNull(Me!Liquidato) OR Me!Liquidato=0 Then
>     Me!Liquidato=0
>     Me![Data Pagamento] = ""
> End If
> Me!Rimanenza = Me!Versato - Me!Liquidato
>
> e a fronte dell'evento "Dopo aggiornamento"  del controllo Liquidato
> genererei il seguente codice VBA:
>
> If IsNull(Me!Liquidato) OR Me!Liquidato=0 Then
>     Me!Liquidato=0
>     Me![Data Pagamento] = ""
> Else
>     Me![Data Pagamento] = Date()
> End If
> Me!Rimanenza = Me!Versato - Me!Liquidato
>
> Ti sconsiglio di effettuare calcoli a fronte dell'evento "Su attivato" di
un
> controllo; tale calcolo ti verrà eseguito anche se accidentalmente ti ci
> posizioni con il mouse o con il tasto Invio o Tabulazione.
> Io la vedo così, ora decidi tu.
Inserito il tuo codice e disabilitato per il momento il discorso del flag
ottengo questi risultati:
All'apertura della maschera, senza aver inserito alcun dato sul controllo
Liquidato, sul controllo Rimanenza non appare nulla. Se inserisco l'importo
pagato uguale od inferiore al controllo Versato mi da automaticamente la
data del versamento e l'eventuale differenza degli importi, se però dopo
aver fatto operazioni su altri record ci ritorno con grande stupore, sul
controllo Rimanenza mi compare il valore del controllo Liquidato in
negativo, cioè tanto per essere più chiari, incasso L.10.000 e su Rimanenza
ho L.0 se poi ritorno sul record su controllo Rimanenza mi appare  - L.
10.000.
Può dipendere dal fatto che il controllo versato ha come origine la somma
dei sottoutenti della sottomaschera moltiplicata l'importo della quota. Sul
controllo Versato il valore mi esce leggermente in ritardo rispetto agli
altri dati.
Comunque mi è molto comodo il flag Pagato, il tempo di digitazione si riduce
notevolmente.
Allego il codice attuale:
Private Sub Form_Current()
If IsNull(Me!Liquidato) Or Me!Liquidato = 0 Then
    Me!Liquidato = 0
    Me![Data Pagamento] = ""
End If
Me!Rimanenza = Me.versato - Me!Liquidato
End Sub
Private Sub Form_Open(Cancel As Integer)
   'Personalizza l'icona della barra del titolo della Form
   Call SendMessage(hWnd, WM_SETICON, 0, ByVal LoadImage(0&, "c:\Logo.ico",
IMAGE_ICON, 64, 64, LR_LOADFROMFILE))
  'Impostazioni d'ambiente
   With Application
        .SetOption "Mostra barra di stato", False
        .SetOption "Sottolinea collegamenti", False
        .SetOption "Conferma modifiche record", False
        .SetOption "Conferma query di comando", False
        .SetOption "Comportamento cursore nel campo", 0
        .SetOption "Con INVIO passa a", 1
   End With
End Sub
Private Sub Liquidato_AfterUpdate()
If IsNull(Me!Liquidato) Or Me!Liquidato = 0 Then
    Me!Liquidato = 0
    Me![Data Pagamento] = ""
Else
    Me![Data Pagamento] = Date
End If
Me!Rimanenza = Me.versato - Me!Liquidato
End Sub
Private Sub CasellaCombinata65_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Cod Ut] = " & Str(Me![CasellaCombinata65])
    Me.Bookmark = rs.Bookmark
End Sub


title: Collegamento caselle associate

text:
"Massimo" <
massimo...@tiscalinet.it
> ha scritto nel messaggio
news:94abom$qmk$1...@lacerta.tiscalinet.it...
>
[CUT]
>
> Inserito il tuo codice e disabilitato per il momento il discorso del flag
> ottengo questi risultati:
> All'apertura della maschera, senza aver inserito alcun dato sul controllo
> Liquidato, sul controllo Rimanenza non appare nulla. Se inserisco
l'importo
> pagato uguale od inferiore al controllo Versato mi da automaticamente la
> data del versamento e l'eventuale differenza degli importi, se però dopo
> aver fatto operazioni su altri record ci ritorno con grande stupore, sul
> controllo Rimanenza mi compare il valore del controllo Liquidato in
> negativo, cioè tanto per essere più chiari, incasso L.10.000 e su
Rimanenza
> ho L.0 se poi ritorno sul record su controllo Rimanenza mi appare  - L.
> 10.000.
> Può dipendere dal fatto che il controllo versato ha come origine la somma
> dei sottoutenti della sottomaschera moltiplicata l'importo della quota.
Sul
> controllo Versato il valore mi esce leggermente in ritardo rispetto agli
> altri dati.
Sicuramente il motivo è quello. Bisognerebbe capire come e quando effettui
il calcolo del controllo Versato.
Una cosa è sicura, non puoi effettuare il calcolo del controllo Rimanenza se
non hai già a disposizione il valore del controllo Versato.
>
> Comunque mi è molto comodo il flag Pagato, il tempo di digitazione si
riduce
> notevolmente.
Ripristina il flag Pagato e ripeti i calcoli effettuati per a fronte di
"Dopo aggiornamento" di Liquidato anche a fronte dell'evento su clic di
Pagato, facendoli precedere dalla MsgBox e dal caricamento del valore di
Versato nel controllo Liquidato se Pagato è True.



title: Axp: problemi di visualizzazione con caselle di testo e formattazione condizionale.

author: Gaetano Di Zanni

text:
Non so se Vi è già capitato: caselle di testo con formattazione condizionale
(di qualunque tipo) vanno benissimo in A2000/2 ed invece, in Axp non vanno
bene affatto!
Bisogna passarci su il mouse per dare effetto alla formattazione
condizionale!
Sapete dirmi se è un problema riscontrato anche da Voi e sopratutto se è
risolvibile.
Auguri di Buona Pasqua a tutto il  NG e ai Suoi Autori.


author: Mondrian

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:c58ooo$pa7$1...@lacerta.tiscalinet.it...

Ho notato anch'io questo problema; database fatto in XP e utilizzato con
access 2003.
Come è risolvibile secondo voi?
(ovviamente senza sostituire l'intero office)


title: Totale per Ordine

author: CIDI

text:
ciao a tutti
ho questa query :
SELECT tblConti.NumeroConto, tblConti.Conto,
Sum(CCur([PrezzoAcquisto]*[QtaOrdinata]*([Iva]/100)))+[totIvaShipping]
AS TotIva, Sum(CCur([PrezzoAcquisto]*[QtaOrdinata])) AS TotImporto1,
Nz([TotImporto],0)+Nz([TotIva],0) AS TotOrdini, tblDettagliOrdini.Iva,
tblDettagliOrdini.IDConto, ([Shipping]*([Iva]/100)) AS TotIvaShipping,
[TotImporto1]+[shipping] AS TotImporto, tblOrdini.Shipping
FROM tblConti INNER JOIN (tblOrdini INNER JOIN tblDettagliOrdini ON
tblOrdini.IDOrdine = tblDettagliOrdini.IDOrdine) ON tblConti.IDConto =
tblOrdini.IDConto
GROUP BY tblConti.NumeroConto, tblConti.Conto, tblDettagliOrdini.Iva,
tblDettagliOrdini.IDConto, ([Shipping]*([Iva]/100)), tblOrdini.Shipping
ORDER BY tblConti.NumeroConto;
vorrei ottenere il totale degli Ordini per IDConto....

IDOrdine 1            IDConto 1
IDOrdine  2           IDConto  1

ringrazio per l'attenzione e per i consigli che vorrete darmi.

Daniele


title: Totale per Ordine

text:

ho risolto, aggirato, il problema.
ho fatto una nuova query:
SELECT  tblConti.IDConto, Sum(tblOrdini.Shipping) AS SommaDiShipping,
Sum(([Shipping]*((22/100)))) AS TotIvaShipping
FROM tblConti INNER JOIN tblOrdini ON tblConti.IDConto = tblOrdini.IDConto
GROUP BY tblConti.IDConto;

che ho messo in join con la prima dopo aver tolto lo shipping..
però ho dovuto scrivere L'Iva, il che non andrebbe bene perchè una
eventuale modifica Iva
si dovrebbe modificare il campo.
certamente si potrebbe fare meglio...spero che qualcuno possa darmi
un'idea migliore.
buona domenica a tutti

Daniele


title: Casella combinata in ordine alfabetico

author: roob

text:
Ho una casella combinata all'interno di una maschera; la casella combinata
ha come origine dati una query. è possibile visualizzare i valori che mi
vengono restituiti al suo interno in ordine alfabetico?


title: Casella combinata in ordine alfabetico

text:
"roob" <
ro...@freemai.it
> ha scritto nel messaggio
news:rgnD6.50223$s93.4...@news.infostrada.it...
> Ho una casella combinata all'interno di una maschera; la casella combinata
> ha come origine dati una query. è possibile visualizzare i valori che mi
> vengono restituiti al suo interno in ordine alfabetico?
>
>
Apri la struttura che è origine riga della casella combinata (clicca sui tre
puntini che ti compaiona a destra della proprietà origine riga); effettua
l'ordinamento per il campo che ti interessa; chiudi e salva la struttura
della query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: dividi testo

author: tiziano

text:
          ciao a tutto il ng,
io ho una tabella con un campo in cui ci sono i seguenti valori:
CAMPO1
(tipo di dati)TESTO
u0038001
u0038002
u0038003
dovrei dividere la colonna "valore numerico" in cui il valore u0038001
dovrebbe diventare
CAMPO1 CAMPO2
038 001
038 002
spero di essere stato chiaro.
Grazie
Tz
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: dividi testo

author: Carlo Costarella

text:
"tiziano" <
tiziano...@libero.it
> ha scritto nel messaggio
news:130Z251Z87Z242Y...@usenet.libero.it...
>
>
>          ciao a tutto il ng,
>
>
> io ho una tabella con un campo in cui ci sono i seguenti valori:
> CAMPO1
> (tipo di dati)TESTO
> u0038001
> u0038002
> u0038003
>
> dovrei dividere la colonna "valore numerico" in cui il valore u0038001
>
> dovrebbe diventare
> CAMPO1 CAMPO2
>
> 038 001
> 038 002
>
> spero di essere stato chiaro.
> Grazie
> Tz
>
Se la struttura dei dati contenuti è sempre la stessa: lettera + 7 numeri
allora non mi sembra molto complessa.
In una query: MioCampo:Mid([Campo1];3;Len([Campo1])) qui ottieni solo la
parte numerica (in realtà è ancora una stringa); MiocampoPrimo:
Left([MioCampo];3); MiocampoSecondo: Right([MioCampo];3)
A questo punto ottieni una query con i valori ben divisi. Sarà questa query
ad alimentare una query di accodamento sulla tabella che ti interessa.
Ciao, Carlo


title: dividi testo

text:
                    Il 23 Giu 2005, 13:32, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto:

Ciao,
io sono un pò tardo o meglio faccio difficoltà a capire...
mi dici di creare una query in cui inserire come i dati che mi hai inviato?
> In una query: MioCampo:Mid([Campo1];3;Len([Campo1])) qui ottieni solo la
> parte numerica (in realtà è ancora una stringa); MiocampoPrimo:
> Left([MioCampo];3); MiocampoSecondo: Right([MioCampo];3)
scusami.
ciao,Tiziano



title: dividi testo

text:
"tiziano" <
tiziano...@libero.it
> ha scritto nel messaggio
news:212Z63Z101Z207Y...@usenet.libero.it...

Se la tua tabella si chiama Tabella1 e contiene i campi A, B e C e nel campo
A sono contenuti i valori da trattare, puoi scrivere una query di
aggiornamento così:
UPDATE Tabella1 SET Tabella1.B = Left(Mid([A],3,Len([A])),3), Tabella1.C =
Right(Mid([A],3,Len([A])),3);
Tutto questo se i dati presenti in A hanno la struttura che hai riportato.
Ovviamente se non hai i campi B e C (di tipo testo) dovrai crearli  nella
tabella prima di realizzare la query.
L'esempio che ti ho appena riportato è leggermente diverso dal primo anche
se sostanzialmente non cambia molto. Nella prima risposta immaginavo tu
volessi creare una seconda tabella con i dati opportunamente "divisi" e
provenienti dalla prima tabella. In questo caso sarebbe bastata una query di
accodamento con le caratteristiche già dette.
Dimmi se è più chiaro.
Ciao, Carlo


title: ridimensionamento controlli

author: Riccardo

text:
Ciao a tutti, ho provato la funzione di Alberto Marchi
che sta sul sitocomune.
Funziona perfettamente se si ridimensiona un form.
Ma nel caso che il form sia impostato con il Bordo Sottile e
quindi non ridimensionabile, che il form sia stato progettato
quasi a tutto schermo su una risolizione 1024x768, qualora venisse
aperto su un pc con ris. a 800x600 ,  naturalmente tutta la sezione
destra del form non viene visualizzata, in quanto i controlli non si
adattano in base alla risoluzione adottata.
Qualcuno sa come ovviare a questo problema?
grazie
Riccardo


title: forse ot forse no

author: liviaeilario

text:
Ciao a tutti
sapreste come mai non trovo nelle proprietą di un campo valuta come simbolo
della valuta da scegliere quello dell Euro?
Grazie 1000
Ilario


title: forse ot forse no

author: Sergio MAZZA

text:
"liviaeilario" <
liviae...@libero.it
> ha scritto nel messaggio
news:OQPg7.5576$423.2...@news.infostrada.it...

Il simbolo della valuta lo imposti nel pannello di controllo di windows -
"impostazioni internazionali"...
Ciao.


title: Problema su sottomashera

author: Fabrizio

text:
Ho creato una maschera di inserimento dati, che tra gli altri contiene un
controllo VALORE.
Succesivamente alla maschera ho aggiunto una sottomaschera che contiene
anch'essa il controllo VALORE.
Vorrei sapere se c'è la possibilità far si che i dati che inserisco nel
controllo VALORE della maschera principale vengano riportati automaticamente
per tutti i record che inserirò nella sottomaschera.
Ringrazio tutti quelli che mi volessero dare una mano.
Fabrizio


title: Problema su sottomashera

author: Alessandro Cara

text:

ma porca miseria hai fatto un casino con la storia
del default.value e gia' te la sei scordata?
--
a.cara


title: Problema su sottomashera

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3DB7FC02...@blunet.it...

Non so di che parli forse mi confondi con qualcun'altro.


title: Problema su sottomashera

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3DB7FC02...@blunet.it...

Scusate ma outlook ha fatto un casino!!!!
Mi ha inserito il messaggio tre volte.
Fabrizio


title: Problema su sottomashera

text:

e' vero ti ho confuso con un'altro, esattamente quello del post
precedente al tuo
cmq
sul sito comune  (
www.sitocomune.com
) c'e' la risposta al tuo quesito
che dovrebbe recitare pressapoco cosi'
sull'evento after update di VALORE (della maschera principale)
me!ControlloSottomaschera.Form!valore.defaultvalue = me!valore
tale cosa potrebbe andare anche sulla proprieta' relativa
--
a.cara


title: Problema su sottomashera

text:
On Thu, 24 Oct 2002 16:16:53 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Fabrizio wrote:
>>
>> "Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
>> news:3DB7FC02...@blunet.it...
>> > Fabrizio wrote:
>> > >
>> > > Ringrazio tutti quelli che mi volessero dare una mano.
>> > >
>> > > Fabrizio
>> >
>> > ma porca miseria hai fatto un casino con la storia
>> > del default.value e gia' te la sei scordata?
>> > --
>> > a.cara
>>
>> Non so di che parli forse mi confondi con qualcun'altro.
>
>e' vero ti ho confuso con un'altro, esattamente quello del post
>precedente al tuo
RIMBAMBITOOOOOO !!!! :-)))
Ciao. Fabrizio


title: Problema su sottomashera

text:
Fabrizio wrote:
[cut]
> RIMBAMBITOOOOOO !!!! :-)))
caso mai bambito. Lo sono dal concepimento
cmq "...chi fatto spia..."
--
a.cara


title: Problema su sottomashera

text:
On Thu, 24 Oct 2002 16:38:27 +0200, Alessandro Cara <
al...@blunet.it
>
wrote:
>Fabrizio wrote:

Per me rinasci nuovo ad ogni post.  :-)))
Ciao. Fabrizio


title: campo visibile dopo condizione

author: Giady

text:
Dovrei fare in modo che il campo di testo con nome Frequenza sia visibile
soltanto al verificarsi della condizione campo TerapistaAssegnataAsl Si o No
su Si..
Inserendo questo codice non succede nulla, qualcuno sa dirmi dove sbaglio?
Private Sub Form_Current()
If TerapistaAssegnataAsl = Vero Or IsNotNull(TerapistaAssegnataAsl) Then
  Frequenza.Visible = True
  Exit Sub
End Sub
Grazie.


title: campo visibile dopo condizione

author: Karl Donaubauer

text:

Me!Frequenza.Visible = (Me!TerapistaAssegnataAsl = True)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: campo visibile dopo condizione

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:67eiacF...@mid.individual.net...

>E' una maschera continua... con il tuo codice mi visualizza sempre il campo
>Frequenza se anche solo uno dei campi TerapistaAssegnataAsl č true, mentre
>a me serve che la condizione si verifichi ad ogni riga....


title: campo visibile dopo condizione

text:
Giady wrote:
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
>>> Dovrei fare in modo che il campo di testo con nome Frequenza sia
>>> visibile soltanto al verificarsi della condizione campo
>>> TerapistaAssegnataAsl Si o No su Si..
>>> Inserendo questo codice non succede nulla, qualcuno sa dirmi dove
>>> sbaglio?
>>> Private Sub Form_Current()
>>> If TerapistaAssegnataAsl = Vero Or IsNotNull(TerapistaAssegnataAsl)
>>>  Then Frequenza.Visible = True
>>>  Exit Sub
>>> End Sub
>>
>> Me!Frequenza.Visible = (Me!TerapistaAssegnataAsl = True)
>>
>> E' una maschera continua...
Peccato.
>> con il tuo codice mi visualizza sempre
>> il campo Frequenza se anche solo uno dei campi TerapistaAssegnataAsl è
>> true,
No. Ma lo stato del tuo campo nel _record corrente_
decide sulla visibilità del controllo in tutti record.
> mentre a me serve che la condizione si verifichi ad ogni riga....
Questo che vuoi non è possibile per la visibilità.
Al massimo puoi usare la Formattazione Condizionale (FC)
per gestire la proprietà "Abilitato" del controllo. Per farlo puoi
impostare la proprietà a No. Poi nel menu Formato scegli la
Formattazione Condizionale e nel dialogo della FC usi:
L'espressione é    [TerapistaAssegnataAsl] = True
e l'ultimo simbolo a destra (Attivo) dev'essere incassato
com'è già predefinito.



title: [OT] un doveroso ringraziamento...

author: iperworld

text:
>> Leggi attentamente:
>>
>>
http://www.granite.ab.ca/access/performancefaq.htm
>>
>> Soprattutto, in questi casi:
>>
>>
http://www.granite.ab.ca/access/performanceldblocking.htm
>>
>> Ciao!
>Grazie leggerň conm molta attenzione e riferirň prontamente
ciao
avevo detto
da cui l'oggetto e nello specifico a
a Bruno Campanini e Oscar Manfredini
che faccio in ossequio al motto:
"meglio tardi che mai"
ciao a tutti


title: Importazione immagini in db

author: PdA

text:
Partendo da Access come è possibile importare da scanner un'immagine?
Dove potrei documentarmi?
Grazie 1000.
PdA


title: Importazione immagini in db

author: Paj

text:
"PdA" <
and...@nspmpettenontrasporti.it
> ha scritto nel messaggio
news:afp9jp$4hb$1...@fe1.cs.interbusiness.it...

Allego delle funzioni sia Ado che Dao che possono esserti utili.
Pietro
'********************************************************************
'Funzione Ado per recuperare un oggetto blob e ricostruirlo su disco
'********************************************************************
Option Compare Database
Option Explicit
Private Const BlockSize = 32768
Private Const ERR_INVALID_FIELD_TYPE = vbObjectError + 1000
Function getBlobAdo(strFilename As String, fld As ADODB.Field) As Long
On Error GoTo Err_Handler
Dim intFile As Integer, lngCount As Long
Dim lngFileLength As Long, lngLeftOver As Long, lngNumBlocks As Long
Dim abytFileData() As Byte
If Not fld.Type = adLongVarBinary Then _
  Err.Raise ERR_INVALID_FIELD_TYPE, "GetBlob", "Il campo non è un oggetto
(OLE)."
lngFileLength = fld.ActualSize
If Not lngFileLength > 0 Then GoTo Exit_Here
lngNumBlocks = Fix(lngFileLength / BlockSize)
lngLeftOver = lngFileLength Mod BlockSize
intFile = FreeFile
Open strFilename For Output As intFile
Close intFile
Open strFilename For Binary Access Write Lock Write As intFile
abytFileData() = fld.GetChunk(lngLeftOver)
Put #intFile, , abytFileData()
For lngCount = 1 To lngNumBlocks
  abytFileData() = fld.GetChunk(BlockSize)
  Put #intFile, , abytFileData()
Next lngCount
getBlobAdo = lngFileLength
Exit_Here:
  On Error Resume Next
  Close intFile
  Exit Function
Err_Handler:
  MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  Resume Exit_Here
End Function
'--------------------------------------------------------
'Per lanciare la funzione utilizzare il seguente codice
'la tabella1 contiene un campo blob rs!immagine
'--------------------------------------------------------
    Dim rs As New ADODB.Recordset
    rs.Open "Tabella1", CurrentProject.Connection, adOpenDynamic,
adLockBatchOptimistic
    While Not rs.EOF
        'Call getBlobAdo("inserire campo o percorso file", 'inserire campo
blob')
        Call getBlobAdo("c:\miaimmagine.jpg", rs!immagine) 'esempio
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
'********************************************************************
'Funzione Ado per scrivere un oggetto blob in tabella
'********************************************************************
Function putBlobAdo(strFilename As String, fld As ADODB.Field) As Long
On Error GoTo Err_Handler
Dim intFile As Integer
Dim lngNumBlocks As Long, lngFileLength As Long
Dim lngLeftOver As Long, lngCount As Long
Dim abytFileData() As Byte
If Not Len(Dir$(strFilename)) > 0 Then GoTo Exit_Here
If Not fld.Type = adLongVarBinary Then _
  Err.Raise ERR_INVALID_FIELD_TYPE, "GetBlob", "Il campo non è un oggetto
(OLE)."
intFile = FreeFile
Open strFilename For Binary Access Read Lock Read Write As intFile
lngFileLength = LOF(intFile)
If Not lngFileLength > 0 Then GoTo Exit_Here
lngNumBlocks = Fix(lngFileLength / BlockSize)
lngLeftOver = lngFileLength Mod BlockSize
abytFileData = StrConv(String$(lngLeftOver, vbNullChar), vbFromUnicode)
'String() gives a Unicode string, need to convert to ANSI
Get #intFile, , abytFileData
fld.AppendChunk abytFileData
abytFileData = StrConv(String$(BlockSize, vbNullChar), vbFromUnicode)
For lngCount = 1 To lngNumBlocks
  Get intFile, , abytFileData
  fld.AppendChunk abytFileData
Next lngCount
putBlobAdo = lngFileLength
Exit_Here:
  On Error Resume Next
  Close intFile
  Exit Function
Err_Handler:
  MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  Resume Exit_Here
End Function
'--------------------------------------------------------
'Per lanciare la funzione utilizzare il seguente codice
'la tabella1 contiene un campo blob rs!immagine
'--------------------------------------------------------
    Dim rs As New ADODB.Recordset
    rs.Open "Tabella1", CurrentProject.Connection, adOpenDynamic,
adLockPessimistic
    While Not rs.EOF
        rs.addnew
        'Call putBlobAdo("percorso del file da caricare", "campo Blob")
        Call putBlobAdo("c:\miaimmagine.jpg", rs!immagine) 'esempio
        rs.Update
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
'********************************************************************
'Funzione Dao per recuperare un oggetto blob e ricostruirlo su disco
'********************************************************************
Function getBlob(strFilename As String, fld As DAO.Field) As Long
On Error GoTo Err_Handler
Dim intFile As Integer
Dim lngNumBlocks As Long, lngFileLength As Long
Dim lngLeftOver As Long, lngCount As Long
Dim abytFileData() As Byte
If Not Len(Dir$(strFilename)) > 0 Then GoTo Exit_Here
If Not fld.Type = dbLongBinary Then _
  Err.Raise ERR_INVALID_FIELD_TYPE, "GetBlob", "Il campo non è un oggetto
(OLE)."
intFile = FreeFile
Open strFilename For Binary Access Read Lock Read Write As intFile
lngFileLength = LOF(intFile)
If Not lngFileLength > 0 Then GoTo Exit_Here
lngNumBlocks = Fix(lngFileLength / BlockSize)
lngLeftOver = lngFileLength Mod BlockSize
abytFileData = StrConv(String$(lngLeftOver, vbNullChar), vbFromUnicode)
'String() gives a Unicode string, need to convert to ANSI
Get #intFile, , abytFileData
fld.AppendChunk abytFileData
abytFileData = StrConv(String$(BlockSize, vbNullChar), vbFromUnicode)
For lngCount = 1 To lngNumBlocks
  Get intFile, , abytFileData
  fld.AppendChunk abytFileData
Next lngCount
getBlob = lngFileLength
Exit_Here:
  On Error Resume Next
  Close intFile
  Exit Function
Err_Handler:
  MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  Resume Exit_Here
End Function
'--------------------------------------------------------
'Per lanciare la funzione utilizzare il seguente codice
'la tabella1 contiene un campo blob rs!immagine
'--------------------------------------------------------
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tabella1")
    While Not rs.EOF
    'Call getBlobAdo("inserire campo o percorso file", 'inserire campo
blob')
        Call getBlobAdo("c:\miaimmagine.jpg", rs!immagine) 'esempio
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
'********************************************************************
'Funzione Dao per scrivere un oggetto blob in tabella
'********************************************************************
Function putBlob(strFilename As String, fld As DAO.Field) As Long
On Error GoTo Err_Handler
Dim intFile As Integer, lngCount As Long
Dim lngFileLength As Long, lngLeftOver As Long, lngNumBlocks As Long
Dim abytFileData() As Byte
If Not fld.Type = dbLongBinary Then _
  Err.Raise ERR_INVALID_FIELD_TYPE, "GetBlob", "Il campo non è un oggetto
(OLE)."
lngFileLength = fld.FieldSize()
If Not lngFileLength > 0 Then GoTo Exit_Here
lngNumBlocks = Fix(lngFileLength / BlockSize)
lngLeftOver = lngFileLength Mod BlockSize
intFile = FreeFile
Open strFilename For Output As intFile
Close intFile
Open strFilename For Binary Access Write Lock Write As intFile
abytFileData() = fld.GetChunk(0, lngLeftOver)
Put #intFile, , abytFileData()
For lngCount = 1 To lngNumBlocks
  abytFileData() = fld.GetChunk((lngCount - 1) * BlockSize + lngLeftOver,
BlockSize)
  Put #intFile, , abytFileData()
Next lngCount
putBlob = lngFileLength
Exit_Here:
  On Error Resume Next
  Close intFile
  Exit Function
Err_Handler:
  MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  Resume Exit_Here
End Function
'--------------------------------------------------------
'Per lanciare la funzione utilizzare il seguente codice
'la tabella1 contiene un campo blob rs!immagine
'--------------------------------------------------------
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tabella1")
    While Not rs.EOF
    rs.AddNew
    'Call getBlobAdo("inserire campo o percorso file", 'inserire campo
blob')
        Call getBlobAdo("c:\miaimmagine.jpg", rs!immagine) 'esempio
    rs.Update
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing


title: REPORT: evidenziare righe...

author: sd

text:
Salve a tutti,
avrei la necessità di evidenziare in NERETTO
tutta i controlli posti nel corpo del report
se un controllo ha un determinato valore. E'
possibile?
grazie
sdamy


title: REPORT: evidenziare righe...

author: Roberto dal portatile

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:9vahfe$19i$1...@pegasus.tiscalinet.it...

Non dovresti aver problemi a farlo generando, a fronte dell'evento "Su
formattazione" del corpo del report, del codice VBA che modifica la
proprietà Spessore carattere dei controlli condizionando il tutto (If ...
Then) al valore dei controlli stessi.
Poi mi sembra di aver capito cha da A2000 in avanti esiste anche la
formattazione condizionale come per Excel.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: REPORT: evidenziare righe...

author: MegaMax

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:9vahfe$19i$1...@pegasus.tiscalinet.it...

io per fare queste cose, sia su maschere che su report, uso uno sporco
trucco...
nel tuo caso creerei 2 caselle di testo, assolutamente identiche... ma una
col carattere normale, e l'altra col carattere grassetto.
Le 2 caselle sono sovrapposte, nella stessa identica posizione, ed hanno
sfondo trasparente.
e contengono 2 cose diverse, ad esempio
una (quella in grassetto) contiene             =IIF(Grassetto=true;[nome
cliente];"")
l'altra (quella normale) contiene                =IIF(Grassetto=false;[nome
cliente];"")
Così soltanto una delle 2 scriverà qualcosa, e l'altra risulterà trasparente
:-)
ovviamente tu metterai qualcosa tipo     =IIF(fatturato>1000;[mio campo];"")
Così puoi creare maschere e report molto spettacolari :-)
Ciao, Max


title: REPORT: evidenziare righe...

text:
"MegaMax" <
a...@a.com
> ha scritto nel messaggio
news:YWnS7.5593$o9.2...@news1.tin.it...

bel trucchetto!!!
grazie
ciao ciao
sdamy


title: REPORT: evidenziare righe...

author: Sib dal portatile

text:
"MegaMax" <
a...@a.com
> ha scritto nel messaggio
> "sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
> > avrei la necessità di evidenziare in NERETTO
> > tutta i controlli posti nel corpo del report
> > se un controllo ha un determinato valore. E'
> > possibile?
>
> io per fare queste cose, sia su maschere che su report, uso uno sporco
> trucco...
CUT
Nulla in contrario ai "trucchetti" come dici, ma non c'e' alcun dubbio che
in questo caso sia estremamente piu' facile percorrere la via "ortodossa"
sfruttando con estrema semplicita' l'evento SuFormattazione:
If TuoControllo Cosi' Then
    Fallo vedere cosi'
Else
    Fallo vedere coli'
End If
Ciao
Sib


author: MA

text:
E' nato!!!!
Ora bisognerà lavorare a quella brutta scritta
"Under costruction"
MAssimiliano


author: sv

text:
MA ha scritto:
> E' nato!!!!

AUGURONI!
Ma era già visibile da alcuni giorni.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel
messaggio news:cdnqa2$rca$1...@news.newsland.it...
> MA ha scritto:
>
> > E' nato!!!!
>
> > Ora bisognerà lavorare a quella brutta scritta
> > "Under costruction"
> > MAssimiliano
>
> AUGURONI!
>
> Ma era già visibile da alcuni giorni.
Ah, non lo sapevo... sono sempre l'ultimo a sapere
le cose.
ciao zio SC
MAssimiliano


author: Angie

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:z2KLc.4032$B06....@news.edisontel.com...

Auguri
E buon lavoro


text:
MA ha scritto:


> MAssimiliano
Accetto lo "zio".... ma almeno i confetti!!



author: Nick

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:2XJLc.4029$B06....@news.edisontel.com...

bene bene...
e ora .. al lavoro!!!
ciao
Nick


author: Valerio Valentini

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:2XJLc.4029$B06....@news.edisontel.com...

Sempre disponibili ... a controllare quello che man mano farai ;-)
Ci sentiremo totalmente liberi ad ogni possibile critica.
Ci impegneremo a contestarti puntulamente quanto pubblicato.
Ti promettiamo che le pagine ci piaceranno solo quando ognuno di noi ti avrà
fatto cambiare qualcosa.
Semmai qulcuno di noi dovesse darti del materiale, lo faremo nel modo più
disorganizzato e scarno possibile.
Con la promessa qunidi della nostra massima disponibilità un'augurio di BUON
LAVORO TUO!!!!!!!
Ciao Valerio.


author: Pablitomf

text:
Valerio Valentini ha scritto:
> Sempre disponibili ... a controllare quello che man mano farai ;-)
> Ci sentiremo totalmente liberi ad ogni possibile critica.
> Ci impegneremo a contestarti puntulamente quanto pubblicato.
> Ti promettiamo che le pagine ci piaceranno solo quando ognuno di noi ti avrà
> fatto cambiare qualcosa.
> Semmai qulcuno di noi dovesse darti del materiale, lo faremo nel modo più
> disorganizzato e scarno possibile.
> Con la promessa qunidi della nostra massima disponibilità un'augurio di BUON
> LAVORO TUO!!!!!!!
> Ciao Valerio.
Onorati per la disponibilità ci sentiamo obbligati a ricambiare la cortese
dimostrazione di stima con la cancellazione del tuo account :-D
Ciao. Maurizio
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)



text:
"Valerio Valentini" <
val...@accessgroup.it
> ha
scritto nel messaggio
news:q1MLc.35740$5D1.1...@news4.tin.it...

BASTARDOOOOOOOOOOooooooooo................... . .
. .  . .
;-P
MAssimiliano


text:

Sbaglio o oggi batti la fiacca con le
traduzioni????
Raus!
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:y8MLc.4065$B06...@news.edisontel.com...
> > > > E' nato!!!!
> > > >
> > > > Ora bisognerà lavorare a quella brutta
> scritta
> > > > "Under costruction"
> > > > MAssimiliano
> > > >
> > >
.............
> > >
> > > Ciao Valerio.
> > BASTARDOOOOOOOOOOooooooooo................... .
> .
> > . .  . .
> > ;-P
> > MAssimiliano
>
>
> Sbaglio o oggi batti la fiacca con le
> traduzioni????
> Raus!
> MAssimiliano
>
Mi capita poco spesso per fortuna, ma qualche volta lavoro anch'io ;-)
In serata farò un pensierino per la notte.
Ciao Valerio.


text:
MA ha scritto:
> Sbaglio o oggi batti la fiacca con le
> traduzioni????
"Volgia de lavorar sartame addosso, lavora babbo mio che io non posso!"
:-P ...così te la vuoi guadagnare la pagnotta??? vuoi che ti mandiamo da
Biso per punizione in castigo a togliere le pagliuzze di fieno dal suo
monitor B/N 12 pollici? Giuro che lo facciamo è... e ti assicuro che nella
Valle non sarà una bella esperienza!!! OOOOOooooooo! :-)



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cdo2n4$sms$1...@news.newsland.it...
> Valerio Valentini ha scritto:
>
>
> > Sempre disponibili ... a controllare quello che man mano farai ;-)
> > Ci sentiremo totalmente liberi ad ogni possibile critica.
> > Ci impegneremo a contestarti puntulamente quanto pubblicato.
> > Ti promettiamo che le pagine ci piaceranno solo quando ognuno di noi ti
avrà
> > fatto cambiare qualcosa.
> > Semmai qulcuno di noi dovesse darti del materiale, lo faremo nel modo
più
> > disorganizzato e scarno possibile.
> > Con la promessa qunidi della nostra massima disponibilità un'augurio di
BUON
> > LAVORO TUO!!!!!!!
>
> > Ciao Valerio.
>
> Onorati per la disponibilità ci sentiamo obbligati a ricambiare la cortese
> dimostrazione di stima con la cancellazione del tuo account :-D
>
> Ciao. Maurizio
>
  .azz. già non funziona più :-(
Ciao Valerio.


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cdo327$1lr$1...@news.newsland.it...
> MA ha scritto:
>
> > Sbaglio o oggi batti la fiacca con le
> > traduzioni????
>
> "Volgia de lavorar sartame addosso, lavora babbo mio che io non posso!"
> :-P ...così te la vuoi guadagnare la pagnotta??? vuoi che ti mandiamo da
> Biso per punizione in castigo a togliere le pagliuzze di fieno dal suo
> monitor B/N 12 pollici? Giuro che lo facciamo è... e ti assicuro che nella
> Valle non sarà una bella esperienza!!! OOOOOooooooo! :-)
>
Ho sempre amato il lavoro all'aria aperta in campagna ........
.... se poi me lo paragoni alle traduzioni .........
..... Biso, aspettamiiiii,
ma siete sicuri se la condanna sia per me o per lui ????
Ciao Valerio.


text:
Valerio Valentini ha scritto:
> Ho sempre amato il lavoro all'aria aperta in campagna ........
> ..... se poi me lo paragoni alle traduzioni .........
> ...... Biso, aspettamiiiii,
> ma siete sicuri se la condanna sia per me o per lui ????
> Ciao Valerio.
MA, come è bello quando si parla senza "SAPERE" è?... buona fortuna. Caro
Antonio, lo affidiamo a te...
Valerio, ti aspettano, mura di fango e radici e 1/4 di candela a notte...
minestra di mandragola (quella che nasce sotto gli alberi degli
impiccati... bhè là la polizia non è arrivata ancora e ci si fa giustizia
da soli o in gruppo) e vestiario da stalliere... l'energia per il PC è
alimentata da una modifica fatta al mulino, che funge da dinamo (tipo
bicicletta) per l'alternatore.



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha
scritto nel messaggio
news:cdo3rg$bhe$1...@news.newsland.it...
> Valerio Valentini ha scritto:
>
> > Ho sempre amato il lavoro all'aria aperta in
campagna ........
> > ..... se poi me lo paragoni alle traduzioni
.........
> > ...... Biso, aspettamiiiii,
> > ma siete sicuri se la condanna sia per me o
per lui ????
> > Ciao Valerio.
>
> MA, come è bello quando si parla senza "SAPERE"
è?... buona fortuna. Caro
> Antonio, lo affidiamo a te...
>
> Valerio, ti aspettano, mura di fango e radici e
1/4 di candela a notte...
> minestra di mandragola (quella che nasce sotto
gli alberi degli
> impiccati... bhè là la polizia non è arrivata
ancora e ci si fa giustizia
> da soli o in gruppo) e vestiario da stalliere...
l'energia per il PC è
> alimentata da una modifica fatta al mulino, che
funge da dinamo (tipo
> bicicletta) per l'alternatore.
Ma lo stai mandando da Biso o a La Fattoria su
Italia 1.
Oh, occhio alle bestemmie
MAssimiliano


text:
MA ha scritto:
> Ma lo stai mandando da Biso o a La Fattoria su
> Italia 1.
:-)
> Oh, occhio alle bestemmie
Che bestemmie?



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha
scritto nel messaggio
news:cdo447$eh4$1...@news.newsland.it...
> MA ha scritto:
>
> > Ma lo stai mandando da Biso o a La Fattoria su
> > Italia 1.
>
> :-)
>
> > Oh, occhio alle bestemmie
>
> Che bestemmie?
pare che da quelle parti se bestemmi, se farcito e
hai i baffi ti caccino.
MAssimiliano


text:
MA ha scritto:
> pare che da quelle parti se bestemmi, se farcito e
> hai i baffi ti caccino.
> MAssimiliano
Allora l'estradizione è assicurata... MA, ma la funzione che ti ho spedito
ti è servita, l'hai usata? Carino il metodo è? una bella stringa dinamica
di filtro sui campi a mono/multi scelta, l'applicazione alla form e il
gioco è fatto... funge che è una meraviglia... dimmi, dimmi.



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha
scritto nel messaggio
news:cdo4jj$k02$1...@news.newsland.it...
> MA ha scritto:
>
> > pare che da quelle parti se bestemmi, se
farcito e
> > hai i baffi ti caccino.
> > MAssimiliano
>
> Allora l'estradizione è assicurata... MA, ma la
funzione che ti ho spedito
> ti è servita, l'hai usata? Carino il metodo è?
una bella stringa dinamica
> di filtro sui campi a mono/multi scelta,
l'applicazione alla form e il
> gioco è fatto... funge che è una meraviglia...
dimmi, dimmi.
La sto applicando. Il metodo è effettivamente
simpatico.
per come funge ti faccio sapere alla fine.
MAssimiliano


text:
On line la home page temporanea
MAssimiliano
p.s. non demolitela troppo l'ho fatta in mezz'ora


author: Sergio MAZZA

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:C1OLc.4102$B06....@news.edisontel.com...
> On line la home page temporanea
>
> MAssimiliano
>
>
>
> p.s. non demolitela troppo l'ho fatta in mezz'ora
Te possino! Ma che sviluppi le pagine web in word?
Ciao.
--
Sergio MAZZA


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:C1OLc.4102$B06....@news.edisontel.com...
> On line la home page temporanea
>
> MAssimiliano
>
>
>
> p.s. non demolitela troppo l'ho fatta in mezz'ora
E PURE CON I FRAAMEEEE!!!??? NOOOOOO..
Quello in alto lo devi stringere...
Ciao.
--
Sergio MAZZA


author: Gaetano Di Zanni

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdoaoj$1l9$1...@canarie.caspur.it...

Dove dice "Presto ondine la possibilità di....." immagino che sia "presto
online...!"
Ciao.
Comunque Auguri!!
Gaetano DI ZANNI


text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha
scritto nel messaggio
news:cdocd1$2fn$1...@lacerta.tiscalinet.it...

Non è il bollletino nautico...
> Ciao.
> Comunque Auguri!!
> Gaetano DI ZANNI
Auguri a tutti noi.
MAssimiliano


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdoaoj$1l9$1...@canarie.caspur.it...

> Sergio MAZZA
Ho sempre detto che di web ne capisco meno che di
Access (cioč meno di zero)...
č che so' forte con el donne... ;-P
FrontPage č solo un modo per occupare mb sul mio
Hd... e poi ha un'iconcina cosě carina....
Forza mago dell'asp facci sognare.
Cmq ti piace?
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:4YOLc.4115$B06...@news.edisontel.com...
>
> Ho sempre detto che di web ne capisco meno che di
> Access (cioč meno di zero)...
> č che so' forte con el donne... ;-P
>
> FrontPage č solo un modo per occupare mb sul mio
> Hd... e poi ha un'iconcina cosě carina....
Frontpage??? Chi era costui? Puoi scaricarti free 1st Page 2000.
> Forza mago dell'asp facci sognare.
Dormi, dormi bel bambino...
> Cmq ti piace?
il lato sx e centrale si.
> MAssimiliano
Ma non avevi detto che non si doveva usare asp?
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdofsn$31m$1...@canarie.caspur.it...
> "MA" <
m...@accessgroup.it
> ha scritto nel
messaggio
news:4YOLc.4115$B06...@news.edisontel.com...
> >
> > Ho sempre detto che di web ne capisco meno che
di
> > Access (cioè meno di zero)...
> > è che so' forte con el donne... ;-P
> >
> > FrontPage è solo un modo per occupare mb sul
mio
> > Hd... e poi ha un'iconcina così carina....
>
> Frontpage??? Chi era costui? Puoi scaricarti
free 1st Page 2000.
Non credo di voler usare questi tool per le mie
future applicazioni (che web finora sono 0)
Mi muovo così bene il word ;-P
>
> > Forza mago dell'asp facci sognare.
>
> Dormi, dormi bel bambino...
>
> > Cmq ti piace?
> il lato sx e centrale si.
In quello superiore ci andrà il logo che ancora
devo pensare
>
> > MAssimiliano
>
> Ma non avevi detto che non si doveva usare asp?
>
> Ciao.
Non credo di averlo detto, ci sono tante cose in
cui asp ci può aiutare
MAssimiliano


text:
Per il logo è carina la scritta che c'è tutt'ora; anzi si potrebbe utilizzare il tema centrale come tema di tutto il sito.
E' una proposta chiaramente...
Ciao.
--
Sergio MAZZA


text:
Forza ragazzi la casella in cui inviare il
materiale
è
proposte(at) conoscente l'account
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:P9TLc.4187$B06....@news.edisontel.com...

Fatto! (senza abbondante colla vinilica)
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:wrTLc.32023$OR2.1...@news3.tin.it...

Letto.
Come te la cavi con aspnuke?
Con aspnuke rimaniamo bloccati ai loro skin?
e se invece lo facciamo in asp ma tutto nostro?
di cosa hai bisogno per l'installazione e
configurazione della base asp?
Sono a tua completa disposizione (per quello che
posso)
MAssimiliano


text:
MAURIZOOOOO!!!!
Accessgroup è un'idea non un idea
MAssimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:mBTLc.4195$B06....@news.edisontel.com...
>
> Letto.
> Come te la cavi con aspnuke?
Solo visto sporadicamente;
> Con aspnuke rimaniamo bloccati ai loro skin?
che io sappia, no;
> e se invece lo facciamo in asp ma tutto nostro?
va bene ma ci dobbiamo costruire la procedura di upload dei contributi con
relative autorizzazioni;
> di cosa hai bisogno per l'installazione e
> configurazione della base asp?
in locale nulla; non ho idea se il "sito" lo supporta.
> Sono a tua completa disposizione (per quello che
> posso)
Idem con patate.
> MAssimiliano
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdqfsd$idq$1...@canarie.caspur.it...

Riprendo dalla mail ricevuta:
"Percorso assoluto (path) della cartella del sito
:
d:\inetpub\webs\nomedominioxxx
nomedominioxxx e' il nome del suo dominio senza
www e senza alcun .
Se il percorso deve essere indicato in uno script
php la \ deve
essere sostituita da //
Se il percorso deve essere indicato in uno script
perl la \ deve
essere sostituita da /
Al momento dell'attivazione vengono create alcune
cartelle e files
"speciali" che consentono il funzionamento delle
estensioni di
Front Page 2000. Le cartelle iniziano con il
carattere _ ; i files
sono postinfo.html e _vti_inf.html. Questi files e
cartelle non devono
essere cancellati per non compromettere il
funzionamento delle
estensioni di Front Page.
Oltre a queste sono presenti le seguenti cartelle
con proprieta' specifiche :
cgi-bin : questa cartella puo' contenere files
eseguibili quali cgi e simili.
Non ha i permessi di scrittura.
public : questa cartella puo' contenere tutti i
files sui quali e' necessario
che qualsiasi utente possa scrivere. Di solito e'
utilizzata per contenere i
files di contatori, o forum o altri script che
devono scrivere sui files di archivio.
mdb-database : ha le stesse caratteristiche di
public, ma il suo contenuto
non puo' essere "scaricato". E' adatta a contenere
i database mdb sui quali
possono comunque "lavorare" e scrivere pagine asp.
Il file default.asp e' la pagina provvisoria
"Under Construction" e puo' essere
tranquillamente rimosso o modificato.
Non appena il suo sito sara' pubblicato potra'
scegliere i servizi piu' appropriati
per la promozione dello stesso nell'apposita
sezione 'promuovi il tuo sito'
raggiungibile dalla nostra home page
http://www.aruba.it
.
Per assistenza, informazioni o chiarimenti
riguardo ai nostri servizi può utilizzare
il servizio di supporto tecnico tramite forum
all'indirizzo
http://forum.aruba.it
."
Ciao MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:Qt3Mc.4286$B06....@news.edisontel.com...

Sto leggendo le "specifiche" per far girare asp-nuke; sembra che utilizzi
filesystemobject, se il server non lo supporta, asp-nuke potrebbe non
funzionare...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdqjiq$jiq$1...@canarie.caspur.it...

Potremmo provare
Magari chi l'ha già configurato potrebbe mandarmi
un file che provo ad uploadare
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:On4Mc.4297$B06....@news.edisontel.com...
>
> Potremmo provare
> Magari chi l'ha già configurato potrebbe mandarmi
> un file che provo ad uploadare
> MAssimiliano
Ti basta uno script che tenta di leggere i files o cartelle; se non hai i
permessi non crea l'istanza all'oggetto filesystem...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdql3s$jv1$1...@canarie.caspur.it...

Mi mandi questo script: Vuoi la mail dei permessi
Ftp?
MAssimiliano


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:u65Mc.4306$B06...@news.edisontel.com...
>
> Mi mandi questo script: Vuoi la mail dei permessi
> Ftp?
> MAssimiliano
Che aspetti?
Ciao.
--
Sergio MAZZA


text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:u65Mc.4306$B06...@news.edisontel.com...
>
> Mi mandi questo script: Vuoi la mail dei permessi
> Ftp?
> MAssimiliano
Ho piazzato un script che elenca i file in una cartella; funziona.
Ciao.
--
Sergio MAZZA


author: Napoleone

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdqnt1$kqd$1...@canarie.caspur.it...

Come home page.. non c'č male!!
Napoleone


title: DSN non presente....!

text:
Ciao, mi serve un consiglio su come è più conveniente
risolvere la cosa.
Utilizzo MySQL e A97 con DAO ed accedo via ODBC ad Database.
Ora, ho trovato come rilevare la presenza del DSN per validare la
connessione,
ma nel caso non sia presente,  per evitare di installarlo o generarlo
manualmente
pensavo alla possibilità di generarlo via CODICE alla prima esecuzione del
programma.
Ora non sò se è la soluzione più utile, ma mi rimaneva il dubbio di come
generarlo.
Pensavo sempre alle API, ma ho trovato poco, confuso e non chiaro, in
pratica non
funziona.
Sto sbagliando strada...?
Grazie.
--
@Alex
ik2...@libero.it
http://digilander.iol.it/ik2zok


title: DSN non presente....!

author: Sandro

text:
Il 02 Dic 2002, 23:31, "@Alex" <
ik2...@libero.it
> ha scritto:
> Utilizzo MySQL e A97 con DAO ed accedo via ODBC ad Database.
Anch'io. Io uso Access XP Developer.
> Ora, ho trovato come rilevare la presenza del DSN per validare la
> connessione,
> ma nel caso non sia presente, per evitare di installarlo o generarlo
> manualmente
> pensavo alla possibilità di generarlo via CODICE alla prima esecuzione del
> programma.
Scusa, Alex, ma a che ti serve testare la presenza del dsn? La cosa
fondamentale è che sul client siano istallati i driver MyODBC giusti. Se
rilasci una versione dell'applicativo Access con Userid e passwd salvati
nelle stringhe di collegamento, queste ti faranno funzionare l'applicazione
anche su quelle macchine che non hanno il DSN da quale tu, originariamente,
hai costruito il collegamento.
Basta che il driver utilizzato sia il medesimo.
Provo a spararla.
Se proprio ti occorre un DSN, non potresti rilasciare, insieme al software,
anche il "file" del DSN?
Ciao, Sandro.
--------------------------------
Inviato via
http://usenet.libero.it


title: DSN non presente....!

author: Alex

text:
"Sandro" <
sandro...@yahoo.com
> wrote in message
news:212Z210Z230Z100Y...@usenet.libero.it
> > Ora, ho trovato come rilevare la presenza del DSN per validare la
> > connessione,
> > ma nel caso non sia presente, per evitare di installarlo o generarlo
> > manualmente
> > pensavo alla possibilità di generarlo via CODICE alla prima esecuzione del
> > programma.
>
> Scusa, Alex, ma a che ti serve testare la presenza del dsn? La cosa
> fondamentale è che sul client siano istallati i driver MyODBC giusti. Se
> rilasci una versione dell'applicativo Access con Userid e passwd salvati
> nelle stringhe di collegamento, queste ti faranno funzionare l'applicazione
> anche su quelle macchine che non hanno il DSN da quale tu, originariamente,
> hai costruito il collegamento.
>
> Basta che il driver utilizzato sia il medesimo.
>
> Provo a spararla.
>
> Se proprio ti occorre un DSN, non potresti rilasciare, insieme al software,
> anche il "file" del DSN?
>
> Ciao, Sandro.
Forse mi perdo qualche pezzo......!
Il DRIVER MyODBC devono essere installati sul CLIENT...OK.
I collegamenti del FE alle Tabelle contenute sul BE del SERVER
necessitano del DSN nella Stringa di connessione
, almeno con MySQL, SQL_SERVER è DSN_Free(forse..).
In alternativa all'installazione del DSN servirebbe, che sappia io,
un componente COM.............!!!
Quindi......! Nn sò se ho cazzeggiato........!
Il discorso del File, invece mi interessa, ma poi deve essere
registrato per essere visto...????
Mah...!
Grazie @Alex.
Quindi se non
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: DSN non presente....!

text:
Il 03 Dic 2002, 16:22, "Alex" <
ik2...@libero.it
> ha scritto:
> I collegamenti del FE alle Tabelle contenute sul BE del SERVER
> necessitano del DSN nella Stringa di connessione
In realtà non credo. Sicuramente, no nel caso di Access 2000 e XP. Cerco di
spiegare come mi comporto io.
Sulla mia macchina ho un dsn che punta ad server MySQL. Quando collego le
tabelle uso quel DSN. Ma una volta fatta questa connessione il DSN me lo
posso anche cancellare, perchè Access si è conservato, nelle stringhe di
connessione, tutti i parametri utili per connettersi al server.
Quello che NON posso assolutamente fare è (ovviamente) rimuovere i driver
MyODBC, o cambiarne la versione da 2.5 a 3.5
Non so se su Access97 le cose vadano così.
Tanto per curiosità. Che succede se ti fai fuori il DSN?



title: DSN non presente....!

author: Oscar Manfredini

text:
>
> > Utilizzo MySQL e A97 con DAO ed accedo via ODBC ad Database.
> Anch'io. Io uso Access XP Developer.
Ti trovi bene?


title: DSN non presente....!

text:
"Oscar Manfredini nospam" <
osca...@tiscalinospam.it
> ha scritto nel
messaggio news:VJ5H9.53388$2B1.1...@twister2.libero.it...
>
> >
> > > Utilizzo MySQL e A97 con DAO ed accedo via ODBC ad Database.
>
> > Anch'io. Io uso Access XP Developer.
>
> Ti trovi bene?
>
A cosa ti riferisci.....??
Se a MySQL no......!, ma č gratuito, ed č una scelta forzata......!
@Alex.


title: DSN non presente....!

text:
"@Alex" <
> A cosa ti riferisci.....??
> Se a MySQL no......!, ma è gratuito, ed è una scelta forzata......!
Beh, no: mi riferivo ad Access 'XP DEV ;-)


title: DSN non presente....!

text:
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
news:212Z210Z230Z100Y...@usenet.libero.it...

Ciao Sandro, penso che i casi siano 2:
1)Usi SQL_SERVER
2)Usi Access con collegamento ODBC (Spero di no........!)
Come ti accennavo, premetto che ho un pò di lacune, questi 2 DB
sono DSN_Free, non necessitano di DSN, per cui è valido il tuo
ragionamento, basta relinkare le Tabelle.......!!
MySQL non ha questa possibilità, senza DSN non si fà nulla, in quanto
fa parte della ConnectionString di DAO oppure ADO.
Non essendo DSN_Free, non posso fare altro che averlo.
E quì ritorniamo all'origine.
Ciao.
@Alex.


title: DSN non presente....!

author: Sandro Binetti

text:
Il 03 Dic 2002, 23:16, "@Alex" <
ik2...@libero.it
> ha scritto:
> Ciao Sandro, penso che i casi siano 2:
> 1)Usi SQL_SERVER
NO!
> 2)Usi Access con collegamento ODBC (Spero di no........!)
SI. Mi collego ad un server MySQL attraverso le tabelle collegate ODBC di
Access. E ti confermo che l'applicazione gira anche senza il DSN.
Forse ho compreso male tutta la questione?



title: DSN non presente....!

text:
Il 03 Dic 2002, 18:20, "Oscar Manfredini"
<oscarman>nospam<@
tiscalinospam.it
> ha scritto:
>
> >
> > > Utilizzo MySQL e A97 con DAO ed accedo via ODBC ad Database.
>
> > Anch'io. Io uso Access XP Developer.
>
> Ti trovi bene?
Beh. Io provengo dalle interfacce a caratteri con Curses e da applicazioni
gtk su ambienti Linux/Unix ... Capirai che avere un framework semplice e
funzionale come quello di Access non può che essere una libidine ...
BTW, si. Direi che mi trovo bene. La collaborazione Access-MySQL è molto
buona, le strategie di risoluzione di Jet si riescono quasi sempre ad
ottimizzare indicizzando ad-hoc le tabelle MySQL; se poi occorre sfruttare
qualche espressione dialettale di MySQL ho anche ODBCDirect ...
Non conosco le versioni 97 e precedenti di Access, ma dal 2000 in poi direi
che sono pienamente soddisfatto, e lo sono anche i miei utenti.
C'è da dire che non mi spezzo mai a fare, con Access e VBA, cose lontane
dalla logica stretta dello strumento ...



title: DSN non presente....!

text:
"Sandro Binetti" <
sandro...@yahoo.com
> wrote in message
news:212Z210Z230Z100Y...@usenet.libero.it
[CUT]
> SI. Mi collego ad un server MySQL attraverso le tabelle collegate ODBC di
> Access. E ti confermo che l'applicazione gira anche senza il DSN.
>
> Forse ho compreso male tutta la questione?
>
> Ciao, Sandro.
Non sò, ho provato a rinominare il DSN e non va nulla.
Poi vado a vedere nella Connect delle Tabelle di Sistema....!
Vedo che c'è il DSN.
D'altra parte quando alleghi tabelle da MySQL lo devi pur selezionare
il DSN....!
Ma io non uso Tabelle Collegate, ma un collegamento dinamico
sfruttando il metodo OpenConnection di WorkSpace..........!!
@Alex.



title: DSN non presente....!

text:
Il 04 Dic 2002, 12:06, "Alex" <
ik2...@libero.it
> ha scritto:
> Non sò, ho provato a rinominare il DSN e non va nulla.
> Poi vado a vedere nella Connect delle Tabelle di Sistema....!
Copio ed incollo la stringa di connessione presa dalla tabella collegata:
ODBC;DRIVER={MySQL ODBC 3.51
Driver};DESC=;DATABASE=contabilita;SERVER=servername;PASSWORD=myapasswd;PORT=;OPTION=0;STMT=;;TABLE=miatabella
Qui non c'è nessun riferimento al DSN, ma solo al driver 3.51.
Ciao, Sandro.
> Vedo che c'è il DSN.
> D'altra parte quando alleghi tabelle da MySQL lo devi pur selezionare
> il DSN....!
>
> Ma io non uso Tabelle Collegate, ma un collegamento dinamico
> sfruttando il metodo OpenConnection di WorkSpace..........!!
>
> @Alex.
>
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
--------------------------------
Inviato via
http://usenet.libero.it


title: DSN non presente....!

text:
"Sandro" <
sandro...@yahoo.com
> wrote in message
news:212Z210Z230Z100...@usenet.libero.it
> Il 04 Dic 2002, 12:06, "Alex" <
ik2...@libero.it
> ha scritto:
>
> > Non sò, ho provato a rinominare il DSN e non va nulla.
> > Poi vado a vedere nella Connect delle Tabelle di Sistema....!
>
>
> Copio ed incollo la stringa di connessione presa dalla tabella collegata:
>
> ODBC;DRIVER={MySQL ODBC 3.51
> Driver};DESC=;DATABASE=contabilita;SERVER=servername;PASSWORD=myapasswd;PORT=;OPTION=0;STMT=;;TABLE=miatabella
>
> Qui non c'è nessun riferimento al DSN, ma solo al driver 3.51.
>
> Ciao, Sandro.
>
Forse ho capito il problema, c'è voluto un pò, ma........!
L'unica cosa è che non mi funziona......!
Ho ovviamente dovuto eseguire un ciclo dell'oggetto Tabledef
sulle tabelle in cui Len(Tdf.Connect)>0 ed aggiornare
la proprietà Connect=StringaDSN_LESS (Praticamente quella che mi hai
passato)
poi con RefreshLink dovrebbe andare.....!!
In realtà mi da connessione ODBC FALLITA....!
Va beh, provo ancora un pochetto, sarà sicuramente una sciocchezza...!
Grazie per la pazienza.....!



title: aprire un file di word da access

author: Mama

text:
Usando l'autocomposizione sono riuscito con un bottone a passare da un
access a word.
Private Sub Comando68_Click()
On Error GoTo Err_Comando68_Click
    Dim oApp As Object
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
Exit_Comando68_Click:
    Exit Sub
Err_Comando68_Click:
    MsgBox Err.Description
    Resume Exit_Comando68_Click
Ho però un problema!
Vorrei aprire per ogni  record del database un file di word che abbia il
nome di un campo (es nomeprodotto.doc) e che si salvi in una directory
predefinita.
Qualcuno mi sa aiutare?
Grazie


title: aprire un file di word da access

text:
"Mama" <
mmanfr...@asmez.it
> ha scritto nel messaggio
news:BgoXa.16053$an6.5...@news1.tin.it...

Cerca tra i vecchi messaggi e nel sito comune (
www.sitocomune.com
) "Esempi
di automazione OLE"...
Ciao.
--
Sergio MAZZA


title: Funzione overloaded in database di libreria linkato da MDB o ADP

author: Gabriele Bertolucci

text:
Per cercare di non riscrivere il codice decine di volte, io e Gionata
abbiamo realizzato un database di libreria con dentro una valangata di
funzioni che ci fanno comodo pressoché in tutti i nostri applicativi Access,
siano essi MDB o ADP.
Una delle funzioni che Gionata riscrisse a suo tempo si chiama "Round",
ovviamente per risolvere il problema dell'arrotondamento finanziario di
Access.
Altrettanto ovviamente dovrebbe risultare la scelta del nome della funzione.
Poiché è identico ad una funzione di libreria di Access, quando si va ad
utilizzare un riferimento alla funzione "Round" nel codice, Access dà
maggiore priorità a quella ridefinita dall'utente. Questo ci ha permesso di
non andare a correggere vecchi applicativi dove l'utilizzo della Round è
pervasivo, soprattutto a livello di query e maschere.
Finché questa nostra funzione "Round" stava in un modulo di ogni
applicazione che avevamo realizzato, nessun problema.
Adesso che l'abbiamo spostata in un database di libreria, Access non gli
riserva più la stessa priorità e va ad utilizzare la propria "Round",
nonostante nelle nostre applicazioni abbiamo inserito un riferimento al
database di libreria.
Mi sapete dire come posso risolvere?
Non vorrei dover spostare nuovamente il codice della nostra "Round"
all'interno degli applicativi.
--
Gabriele Bertolucci
PBsoft
www.pbsoft.it


author: Giorgio Prx

text:
"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:_Susb.15522$hV.5...@news2.tin.it...

Sarà banale, ma hai provato a spostare il riferimento della libreria in
prima posizione in modo da dargli la priorità assoluta ?
Ciao Giorgio


text:
Giorgio Prx ha scritto:


> Ciao Giorgio
In Acc2000, "Visual basic for Applications" e "Microsoft Access 9.0 Object
Library" non possono essere spostati o sostituiti. Infatti il tasto
Priorità in Riferimenti si disattiva.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> > Sarà banale, ma hai provato a spostare il riferimento della libreria in
> > prima posizione in modo da dargli la priorità assoluta ?
>
> In Acc2000, "Visual basic for Applications" e "Microsoft Access 9.0 Object
> Library" non possono essere spostati o sostituiti. Infatti il tasto
> Priorità in Riferimenti si disattiva.
Infatti, proprio così.
Appena Giorgio mi ha proposto di modificare la priorità ho provato, ma mi
sono scontrato con il problema di non poter scavalcare la priorità delle
seguenti librerie:
Visual Basic for Applications
Microsoft Access 11.0 Object Library
Mi sa che bisogna cercare una seconda soluzione.



title: sottomaschera record continui: in fase di scrittura dovrebbe bloccarsi altrimenti da errore sui campi ???? COME?

author: esseAemme

text:
Ciao NG,
ho questa maschera, dove scelgo da una casella il nome del cliente.
Nella sua sottomaschera scelgo da una combo la data, e in automatico
compila dei valori.
Il problema, è che dal momento in cui io seleziono la data dalla
combo, a quando i valori sono compilati, la maschera mi permette di
andare a selezionare quei record, e dove clicco con il mouse, i valori
diventano pari a #errore.
Se io non clicco con il mouse tutto è ok.
Come posso bloccare quei record nella visualizzazione?
Avevo provato impostando il corpo a non visibile prima
dell'aggiornamento e visibile dopo aggiornamento, ma mi da un problema
di property let e property get...
Questo è l'evento dopo aggiornamento della casella combo data CBODATA
On Error GoTo Err_CBODATA_AfterUpdate
'Forms![sm_cstfly].Form![Corpo].Visible = False
'Me.Section(acDetail).Visible = False
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfmio As QueryDef
Set dbMio = CurrentDb
Set qdfmio = dbMio.QueryDefs("q_smcstfly")
qdfmio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
'Dopo la query devo fare refresh altrimenti mi da un errore di
condivisione 3197
CurrentDb.QueryDefs.Refresh
Me.Refresh
Me.Section(acDetail).Enabled = False
Set rstMio = qdfmio.OpenRecordset()
Set rst = Me.RecordsetClone
If rst.RecordCount <> 0 Then
Me.Refresh
      rst.MoveLast
      rst.MoveFirst
   Do Until rst.EOF
     rst.Edit
     rst.Fields("dist_vsid") = Me!cbodata
     rst.Update
     rst.MoveNext
     Me.Refresh
  Loop
  rst.CLOSE
  rstMio.CLOSE
  Set rstMio = Nothing
  Set rst = Nothing
  Me.Refresh
Me.Section(acDetail).Visible = True
'Nel caso in cui non ci siano prodotti x questo cliente
Else
    MsgBox "Per questo cliente non sono ancora stati creati prodotti"
    rst.CLOSE
    rstMio.CLOSE
    Set rst = Nothing
    Set rstMio = Nothing
    IsNull (cbodata)
    Parent.cboCliente.SetFocus
    Me.Section(acDetail).Visible = True
End If
'[Forms]![MSC_Generalistinovendita]!
[sm_cstfly].Section(acDetail).Visible = True
'[Forms]![MSC_Generalistinovendita]![sm_cstfly].Form![Corpo].Visible =
True
Grazie,
Samantha


text:
On May 29, 9:05 am, esseAemme <
samantha.ci...@gmail.com
> wrote:
> Ciao NG,
>
> ho questa maschera, dove scelgo da una casella il nome del cliente.
>
> Nella sua sottomaschera scelgo da una combo la data, e in automatico
> compila dei valori.
>
> Il problema, è che dal momento in cui io seleziono la data dalla
> combo, a quando i valori sono compilati, la maschera mi permette di
> andare a selezionare queirecord, e dove clicco con il mouse, i valori
> diventano pari a #errore.
> Se io non clicco con il mouse tutto è ok.
>
> Come posso bloccare queirecordnella visualizzazione?

Avevo lo stesso problema in un altra maschera, e con questo codice ho
risolto:
Private Sub CBODATA_AfterUpdate()
DoCmd.SetWarnings False
Forms![sm_Sceltalistino].Corpo.Visible = False
Dim newvers As String
newvers = "q_AGG_VersioneListino_sm_sceltalistino"
DoCmd.OpenQuery newvers, acNormal, acEdit
Forms!sm_Sceltalistino.Refresh 'Obbliga l'aggiornamento immediato
DoCmd.SetWarnings True
Forms![sm_Sceltalistino].Corpo.Visible = True
End Sub
Ossia nascondendo il corpo, ma purtroppo nell'altro caso dove lavoro
in una sottomaschera non va, perchè?
Grazie,
samantha disperata!


text:

Quello che dovrei fare è bloccare per il tempo necessario affinchè i
campi calcolati si compilino, bloccare tutta l'attività da tastiera e/
o mouse, come fare?
Ho fatto un pop up ma anche se clicco con il mouse mi da #errore
...


title: Ancora Listbox

author: Salvatore Greco

text:
Ho usato il metodo consigliatomi da Salvatore, solo che una volta attribuito
il comando mi restituisce questo errore:
Il codice attribuito al doppio click è:
criterio = "[TuoID]=" & "'" & Me.ActiveControl & "'"
DoCmd.OpenForm "TuaMaschera", acNormal, , criterio
Errore di run-time '2501': L'azione OpernForm è stata annullata.
Ho controllato e l'errore è alla riga: DoCmd.OpenForm "TuaMaschera",
acNormal, , criterio.
Ho provato a mettere il mouse su criterio è mi dice che il valore è quello
dell'ID giusto. Ma come mai da problemi? Help me


title: Ancora Listbox

author: ALESSANDRO Baraldi

text:
"Salvatore Greco" <
pis...@tiscali.it
> ha scritto nel messaggio
news:bub2so$1id$1...@lacerta.tiscalinet.it...

Dovevi proseguire il 3D originale per completamento....!!!
Se il Campo ID è Numerico c'è un errore di sintassi.
riprova così:
criterio = "[TuoID]=" &  Me.ActiveControl
DoCmd.OpenForm "TuaMaschera", acNormal, , criterio
Ciao.
@Alex.


title: Ancora Listbox

text:
Grazie 1000. Ho risolto
C'ero già quasi riuscito in quest'altro modo:
criterio = "[ID]=" & "'" & Me.ActiveControl & "'"
DoCmd.OpenForm "modifica", , , "ID = [criterio]"
solo che quando facevo doppio click mi chiedeva il valore di criterio.
Come mi hai suggerito tu funziona alla grande.
Grazie cmq a tutti per l'aiuto
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bubige$f3a$1...@lacerta.tiscalinet.it...



title: modifica struttura

author: CIDI

text:
ciao a tutti
devo modificare nelle relazioni un db e queste sono le tabelle interessate
che parzialmente riporto:
tblFatturaAcquisti:            tblFornitori
IDFatturaAcquisti             IDFornitori
IDFornitore                        Società
DataFattura
NumeroFattura

devo aggiungere:             tblProgetti
                                            IDProgetto
                                            Progetto
prima per ogni fattura si sceglieva il fornitore adesso anche il progetto.
ho messo IDProgetto nella tblFatturaAcquisti e una combo nella maschera
di inserimento
dati per la ricerca del progetto. Dopo l'inserimento del progetto e del
fornitore appena
il focus passa alla sottomaschera dei dettagli mi da errore 3022 com msgbox:
la fattura è già stata registrata - chiave duplicata.
non riesco a trovare la soluzione.
spero nei vostri consigli.
Grazie

Daniele


title: modifica struttura

text:

rileggendomi credo di aver capito che manca una tabella che abbia le
chiavi esterne
delle tabelle fornitori e progetti...riprovo.
Daniele


title: sincorinizzare combobox in sottomaschera

author: maxilius

text:
Buon giorno a tutti.
la mia applicazione per la gestione delle consegne dei verbali e
statini di esami, prevede, tra le altre, le seguenti maschere con i
campi relativi
CONSEGNE (maschera principale)
  id consegna
  Mittente
  Consegnatario
  data consegna
  protocollo
DETTAGLI_CONSEGNE (sottomaschera)
  id consegna (chiave esterna)
  id dettaglio_consegna
  corso di laurea
  materia
  data di esame.
Il campo [corso di laurea] è una combo box, la cui origine è una
query sulla tabella Corsi di laurea
il campo [materia] è una combobox la cui origine è una query con
parametri sulla tabella Materie, i cui parametri sono il Corso di
laurea selezionato.
le tabbelle Corsi di laurea  e Materie sono in relazione 1 a molti
quando viene selezionato un corso di laurea, nella combobox materia
appaiono, ovviamente, solo le materie relative a quel corso di laurea.
Qundi la sincronizzazione funziona perfettamente. tuttavia questo
accade solo quando la sottomaschera è aperta da sola.
quando invece apro la maschera principale (CONSEGNE) con la le relativa
sottomaschera (Dettagli_consegne), nel momento in cui droppo la Combo
delle  materie, appare la finestra "Immettere valore o parametro -
Maschere!DETTAGLI_CONSEGNE!CORSO_DI_LAUREA", come se la sottomaschera
non fosse caricata o non fosse aperta.
ho provato pure con il seguente codice:
Private Sub CORSO_DI_LAUREA_AfterUpdate()
    [Forms]![DETTAGLI_CONSEGNE]![MATERIA].Requery
    Me.MATERIA.Requery
End Sub
ma mi dà: "errore di runtime 2450. impossibile trovare la maschera
DETTAGLI_CONEGNE a cui si fa riferimento nel codice VB......"
non so più cosa fare. aiutatemi.


author: cidi

text:
"maxilius" <
m.mil...@unipa.it
> ha scritto nel messaggio
news:1163426810.5...@b28g2000cwb.googlegroups.com...
Buon giorno a tutti.










Ciao maxilius
prova a legare maschera e sottomaschera.
in visualizzazione struttura - seleziona il controllo sottomaschera:
collega campi master e secondari.
Daniele


text:
"maxilius" <
m.mil...@unipa.it
> ha scritto nel messaggio
news:1163426810.5...@b28g2000cwb.googlegroups.com...
Buon giorno a tutti.
la mia applicazione per la gestione delle consegne dei verbali e
statini di esami, prevede, tra le altre, le seguenti maschere con i
campi relativi
CONSEGNE (maschera principale)
  id consegna
  Mittente
  Consegnatario
  data consegna
  protocollo
DETTAGLI_CONSEGNE (sottomaschera)
  id consegna (chiave esterna)
  id dettaglio_consegna
  corso di laurea
  materia
  data di esame.
Il campo [corso di laurea] č una combo box, la cui origine č una
query sulla tabella Corsi di laurea
il campo [materia] č una combobox la cui origine č una query con
parametri sulla tabella Materie, i cui parametri sono il Corso di
laurea selezionato.
le tabbelle Corsi di laurea  e Materie sono in relazione 1 a molti
quando viene selezionato un corso di laurea, nella combobox materia
appaiono, ovviamente, solo le materie relative a quel corso di laurea.
Qundi la sincronizzazione funziona perfettamente. tuttavia questo
accade solo quando la sottomaschera č aperta da sola.
quando invece apro la maschera principale (CONSEGNE) con la le relativa
sottomaschera (Dettagli_consegne), nel momento in cui droppo la Combo
delle  materie, appare la finestra "Immettere valore o parametro -
Maschere!DETTAGLI_CONSEGNE!CORSO_DI_LAUREA", come se la sottomaschera
non fosse caricata o non fosse aperta.
ho provato pure con il seguente codice:
Private Sub CORSO_DI_LAUREA_AfterUpdate()
    [Forms]![DETTAGLI_CONSEGNE]![MATERIA].Requery
    Me.MATERIA.Requery
End Sub
[CUT]
[Risposta]
Private Sub CORSO_DI_LAUREA_AfterUpdate()
    [Forms]![CONSEGNE]![DETTAGLI_CONSEGNE].Form![MATERIA].Requery
    Me.MATERIA.Requery
End Sub
Ciao
NatPP


text:
Ciao NatPP.
Innanzi tutto grazie per la tua disponibilità. Però la soluzione da
te proposta:
> Private Sub CORSO_DI_LAUREA_AfterUpdate()
>     [Forms]![CONSEGNE]![DETTAGLI_CONSEGNE].Form![MATERIA].Requery
>     Me.MATERIA.Requery
> End Sub
>
> Ciao
>
> NatPP
mi da sempre l'errore
"immettre valore o parametro"
"Maschere!DETTAGLI_CONSEGNE!CORSO_DI_LAUREA"
ho notato però, che tenendo aperta la sottomoschera in background,
insieme alla maschera consegna non mi dà l'errore, ma i dati vengono
filtrati sulla base della sottomaschera aperta autonomamente e non di
quella aperta insieme alla maschera principale