title: Maschera-Sottomaschera filtra con Caselle Combinate

author: AMR-Giuseppe

text:
Ciao a tutti
Ho provato diverse soluzioni , tra cui molte altre risposte sul NG dello
stesso problema o simile
ma ho fatto una grande confusione  e ora sono i tilt ,spero che qualcuno
abbia "pietà".
Situazione:
Maschera (ApriliaCatalogo)
Sottomaschera (ApriliaCatalogoStm)
Casella riepilogo (Elenco Tavole)
Casella combinata   FiltroAnno
Casella combinata   FiltroPaese
Casella combinata   FiltroVarianti
Per aprire la maschera ApriliaCatalogo ci sono diversi pulsanti
uno per ogni modello di moto che mi apre la maschera con questa  istruzione:
DoCmd.Echo False
DoCmd.OpenForm "ApriliaCatalogo", acNormal
Me.Visible = True
Forms!ApriliaCatalogo.RecordSource = "GruppoTavoleRSV_2001-02"
Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
"GRUPPO_RSV1000+R_2001-02"
Forms!ApriliaCatalogo.elenco_TAVOLE.SetFocus
La maschera aperta mi visualizza nella sottomaschera i tutti i record
filtrati della
prima tavola , esempio la prima tavola  è tavola fanaleria e allora il primo
record della sottomaschera
è N° 1 Faro Ant.   codice 123456  anno 2000  paese  USA   Varianti
NeroRacing   il secondo
è N° 1 Faro Ant.   codice 987654  anno 2000  paese  GB     Varianti
NeroRacing   il terzo
è N° 1 Faro Ant.   codice 256478  anno 2001  paese  USA   Varianti
NeroRacing   il quarto
è N° 1 vetro ant.   codice 524861  anno   -       paese    -
    Varianti   -      e così via
 il  segno ( - ) indica  tutti gli anni   tutti i paesi  ecc. ecc.
A queto punto vorrei poter filtrare con delle Caselle combinate  esempio
tutti i record
nella  sottomaschera  solo dell' anno 2000  e del paese  USA  e della
variante  Blu
da notare che per ogni filtro devo aggiungere esempio tutti i record
dell'anno  2000 +
i record  tutti uguali  ( - )
possibilmente un filtro non deve escludere l'altro
Ciao Giuseppe


author: Antonio Biso

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:od9Z9.120465$AA2.5...@news2.tin.it...
> Ciao a tutti
>
> Ho provato diverse soluzioni , tra cui molte altre risposte sul NG dello
> stesso problema o simile
> ma ho fatto una grande confusione  e ora sono i tilt ,spero che qualcuno
> abbia "pietà".
Sarà la terza volta oggi che scrivo la stessa cosa...
Mah...
> Forms![ApriliaCatalogo]!ApriliaCatalogoStm.Form.RecordSource =
> "GRUPPO_RSV1000+R_2001-02"
> A queto punto vorrei poter filtrare con delle Caselle combinate  esempio
> tutti i record
> nella  sottomaschera  solo dell' anno 2000  e del paese  USA  e della
> variante  Blu
Modifica la query recordsource della sottomaschera mettendo una serie di
criteri sotto i campi filtro fatti così
Like nz([forms]![formprincipale][comboFiltro1];"*")
All'aggiornamento delle combo fai una requery della sottomaschera
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:xhaZ9.51495$YG2.1...@twister1.libero.it...

Grazie Antonio
il sistema comincia a funzionare ho solo qualche problema
cioè devo aggiungere al valore che scelgo sulla combo ( "*" )
anche un  valore fisso che è  in questo caso il carattere  trattino ( - )
il risultato dovrebbe essere  es. Tutti i record
con anno 2000 +  tutti i record con  trattino - .
Per escludere tutte le scelte fatte ? ovvero non  avere filtri in
esecuzione?
Grazie ancora
Ciao Giuseppe


text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:YHfZ9.123607$AA2.5...@news2.tin.it...
>
> > Modifica la query recordsource della sottomaschera mettendo una serie di
> > criteri sotto i campi filtro fatti così
> > Like nz([forms]![formprincipale][comboFiltro1];"*")
> > All'aggiornamento delle combo fai una requery della sottomaschera
> >
> > Antonio
> >
> >
>
> Grazie Antonio
> il sistema comincia a funzionare ho solo qualche problema
> cioè devo aggiungere al valore che scelgo sulla combo ( "*" )
> anche un  valore fisso che è  in questo caso il carattere  trattino ( - )
> il risultato dovrebbe essere  es. Tutti i record
> con anno 2000 +  tutti i record con  trattino - .
Non ho capito bene la situazione
>
> Per escludere tutte le scelte fatte ? ovvero non  avere filtri in
> esecuzione?
Con un pulsante vai a scrivere null in tutte le combo e fai la requery della
sottomaschera
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:EIrZ9.55273$ZE.15...@twister2.libero.it...
> "AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> news:YHfZ9.123607$AA2.5...@news2.tin.it...
> >
> > > Modifica la query recordsource della sottomaschera mettendo una serie
di
> > > criteri sotto i campi filtro fatti cosě
> > > Like nz([forms]![formprincipale][comboFiltro1];"*")
> > > All'aggiornamento delle combo fai una requery della sottomaschera
> > >
> > > Antonio
> > >
> > >
> >
> > Grazie Antonio
> > il sistema comincia a funzionare ho solo qualche problema
> > cioč devo aggiungere al valore che scelgo sulla combo ( "*" )
> > anche un  valore fisso che č  in questo caso il carattere  trattino
( - )
> > il risultato dovrebbe essere  es. Tutti i record
> > con anno 2000 +  tutti i record con  trattino - .
>
> Non ho capito bene la situazione
cerco di spiegarmi meglio,
quando scelgo dalla combo un valore da restituirmi nella sottomaschera ,
succede che  ho come risultato solo i record
corrispondenti al valore scelto ,esempio:
sottomaschera con 100 record  di cui 10 con valore 2000 nel controllo Anno
10 con valore 2001  10 con valore 2002  + i restanti 70 record il cui valore
č  - (trattino) che significa  tutti gli anni ,
dopo la scelta  nella combo del valore 2000  vorrei che mi restituisse oltre
i
10 record con anno 2000 anche  i 70 record con - (trattino)  che sono
record uguali a prescindere dal valore scelto   2000 o 2001 o 2002
spero  tu mi abbia capito
Giuseppe
>
> >
> > Per escludere tutte le scelte fatte ? ovvero non  avere filtri in
> > esecuzione?
>
> Con un pulsante vai a scrivere null in tutte le combo e fai la requery
della
> sottomaschera
>
> Antonio
>
so che mi risponderai con un " ignorante" , ma come faccio a scivere
null in tutte le combo.
Grazie per la pazienza
Ciao


text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:o4sZ9.126424$AA2.5...@news2.tin.it...
>
> > > > criteri sotto i campi filtro fatti cosě
> > > > Like nz([forms]![formprincipale][comboFiltro1];"*")
> > > > All'aggiornamento delle combo fai una requery della sottomaschera
> > > >
> > > > Antonio
> > > >
> > Non ho capito bene la situazione
>
> cerco di spiegarmi meglio,
> quando scelgo dalla combo un valore da restituirmi nella sottomaschera ,
> succede che  ho come risultato solo i record
> corrispondenti al valore scelto ,esempio:
> sottomaschera con 100 record  di cui 10 con valore 2000 nel controllo Anno
> 10 con valore 2001  10 con valore 2002  + i restanti 70 record il cui
valore
> č  - (trattino) che significa  tutti gli anni ,
> dopo la scelta  nella combo del valore 2000  vorrei che mi restituisse
oltre
> i
> 10 record con anno 2000 anche  i 70 record con - (trattino)  che sono
> record uguali a prescindere dal valore scelto   2000 o 2001 o 2002
>
> spero  tu mi abbia capito
Adesso sě!
Dove ti avevo detto di scrivere
Like nz([forms]![formprincipale][comboFiltro1];"*")
scrivi ora
Like nz([forms]![formprincipale][comboFiltro1];"*") OR "-"
> > > Per escludere tutte le scelte fatte ? ovvero non  avere filtri in
> > > esecuzione?
> >
> > Con un pulsante vai a scrivere null in tutte le combo e fai la requery
> della
> > sottomaschera
> >
> > Antonio
> >
> so che mi risponderai con un " ignorante" , ma come faccio a scivere
> null in tutte le combo.
combo1 = null
combo2 = null
Antonio


text:
[CUT]
> > so che mi risponderai con un " ignorante" , ma come faccio a scivere
> > null in tutte le combo.
>
> combo1 = null
> combo2 = null
>
> Antonio
>
>
Tutto  OK
Ciao e Grazie
Giuseppe


title: Conversione in Maiuscolo

author: antcim

text:
Cordialita' a chi mi legge.
Volendo registrare i dati sempre in Miuscolo:
In una maschera associata ad una tabella,
per inserimento nuovi record, trovo la proprieta'
'formato' delle caselle di testo che permette il simbolo ">".
Sin qui tutto ok..! Cioe', se scrivo in minuscolo, ho la
conversione in maiuscolo.
Purtroppo la registrazione dei dati nella tabella avviene
sempre in minuscolo..!!!
Esiste qualcosa che permette la registrazione dei dati in
Maiuscolo   (..senza ricorrere di volta in volta alla funzione
UCase()  )..?
Grazie in anticipo.
Antcim


title: Conversione in Maiuscolo

author: Roberto da casa

text:
"antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
news:65aw9.68382$TD1.3...@news2.tin.it...

Se usi Access 2000, a causa di un noto bug, la maschera input con >  per
avere i caratteri tutti in maiuscolo non funziona.
E' giocoforza che usi o la funzione UCase o la funzione Format per ottenere
quello che Access avrebbe dovuto fare con la maschera input se le cose
avessero funzionato come in A97.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Conversione in Maiuscolo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:v4bw9.99430$RO.25...@twister1.libero.it...
>
> "antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
> news:65aw9.68382$TD1.3...@news2.tin.it...
> > Cordialita' a chi mi legge.
> > Volendo registrare i dati sempre in Miuscolo:
> > In una maschera associata ad una tabella,
> > per inserimento nuovi record, trovo la proprieta'
> > 'formato' delle caselle di testo che permette il simbolo ">".
> > Sin qui tutto ok..! Cioe', se scrivo in minuscolo, ho la
> > conversione in maiuscolo.
> > Purtroppo la registrazione dei dati nella tabella avviene
> > sempre in minuscolo..!!!
> > Esiste qualcosa che permette la registrazione dei dati in
> > Maiuscolo   (..senza ricorrere di volta in volta alla funzione
> > UCase()  )..?
> > Grazie in anticipo.
> > Antcim
>
> Se usi Access 2000, a causa di un noto bug, la maschera input con >  per
> avere i caratteri tutti in maiuscolo non funziona.
> E' giocoforza che usi o la funzione UCase o la funzione Format per
ottenere
> quello che Access avrebbe dovuto fare con la maschera input se le cose
> avessero funzionato come in A97.
>
> --
> Roberto
Ciao Roberto
Uso Access 97
Ottengo il maiuscolo nella casella di testo ma non nella registrazione
sulle tabella..!!
Ciao e grazie.
Cordialita'.
Antcim


title: Conversione in Maiuscolo

text:
"antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
news:rbbw9.68936$TD1.3...@news2.tin.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:v4bw9.99430$RO.25...@twister1.libero.it...
> >
> > "antcim" <
gabriel...@virgilio.it
> ha scritto nel messaggio
> > news:65aw9.68382$TD1.3...@news2.tin.it...
> > > Cordialita' a chi mi legge.
> > > Volendo registrare i dati sempre in Miuscolo:
> > > In una maschera associata ad una tabella,
> > > per inserimento nuovi record, trovo la proprieta'
> > > 'formato' delle caselle di testo che permette il simbolo ">".
[CUT]
>
> Ciao Roberto
> Uso Access 97
> Ottengo il maiuscolo nella casella di testo ma non nella registrazione
> sulle tabella..!!
> Ciao e grazie.
> Cordialita'.
> Antcim
Non avevo letto attentamente il tuo messaggio e non avevo notato che il
carattere > lo avevi usato nella proprietà Formato.
Invece non devi scrivere nulla nella proprietà Formato, invece nella
proprietà Maschera input devi scrivere:
!>??????????;0;_
Il numero dei punti interogativi è funzione della lunghezza massima del
campo.
Per maggiori delucidazioni leggi l'help circa Maschera input.



title: Conversione in Maiuscolo

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:INbw9.100391$%M1.25...@twister2.libero.it...

Ciao Roberto
Grazie di cuore
Antcim


title: Ciclo Do Loop su query (Errore 3061)

author: Alan

text:
Buongiorno, ho un DB con 2 tabelle Anagrafica e Contratti.
Anagrafica IdAna,  ProANA, Cognome, Nome
Contratti IdCon, RifANA, Numero, data Importo
Ho una Maschera Anagrafica, con una sottomaschera contratti (che ha come
origine dati una query QryCont, in cui il RifANA = ProANA e NumeroC è il
numero di contratto),
Vorrei visualizzare in una casella di testo l'elenco del numero dei
contratti. Utilizzo il seguente codice:
Dim DBCor as DAO.database
Dim RST as DAO.Recordset
Dim Testo
Set DbCor = CurrentDB
Set RST = DbCor.openrecordset("QryCont")
Do While not rst.EOF
Testo = Testo & rst.fields ("NumeroC")
rst.movenext
Loop
rst.close
DBcor.close
Ma mi da errore "Errore di run-time '3061'
Parametri insufficienti. Previsto 1
se sostituisco la query con la tabella, il ciclo funziona correttamente, ma
"concatena" tutti i record della tabella.
Grazie


title: Ciclo Do Loop su query (Errore 3061)

author: MA

text:

Guarda bene, ci potrebbero essere errori nei nomi dei campi
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Ciclo Do Loop su query (Errore 3061)

author: Cinzia

text:
"Alan" <
Al...@libero.it
> ha scritto nel messaggio
news:ZTWNk.181114$FR.4...@twister1.libero.it...

Ciao Alan,
mostra il codice SQL di QryCont, l'errore è abbastanza significativo,
sembrerebbe che la query si aspetta un parametro che tu non gli passi.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.spaces.live.com
----------------------------------------


title: Ciclo Do Loop su query (Errore 3061)

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ge9ee9$loq$1...@tdi.cu.mi.it...

Ciao, grazie per la pronta risposta, ho controllato il nome della query e
dei campi ed è esatto, ho messo al posto del nome della query, il nome della
tabella e funziona, (ma mi concatena tutti i record e non quelli selezionati
dalla query).


title: Ciclo Do Loop su query (Errore 3061)

text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:49083d90$0$14503$5fc...@news.tiscali.it...

SELECT Contratti.ID, Contratti.RifAna, Contratti.Data, Contratti.NumeroC,
FROM Contratti
WHERE (((Contratti.RifAna)=[Forms]![ANAGRAFICA]![PROANA]));


title: Ciclo Do Loop su query (Errore 3061)

author: Geppo

text:
Ciao "Alan" <
Al...@libero.it
> ha scritto nel messaggio
news:EaXNk.181131$FR.4...@twister1.libero.it...
---cut---
> Ciao, grazie per la pronta risposta, ho controllato il nome della query e
> dei campi ed č esatto, ho messo al posto del nome della query, il nome
> della tabella e funziona, (ma mi concatena tutti i record e non quelli
> selezionati dalla query).
Non hai risposto a Cinzia.
mostra sql della query.
--
Ciao
Geppo


title: Ciclo Do Loop su query (Errore 3061)

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:1oXNk.181160$FR.4...@twister1.libero.it...
> Ciao "Alan" <
Al...@libero.it
> ha scritto nel messaggio
> news:EaXNk.181131$FR.4...@twister1.libero.it...
> ---cut---
>> Ciao, grazie per la pronta risposta, ho controllato il nome della query e
>> dei campi ed è esatto, ho messo al posto del nome della query, il nome
>> della tabella e funziona, (ma mi concatena tutti i record e non quelli
>> selezionati dalla query).
>
>
> Non hai risposto a Cinzia.
>
> mostra sql della query.
> --
> Ciao
> Geppo
Ciao geppo  ho postato, cmq eccolo anche a te, Grazie tante



title: Ciclo Do Loop su query (Errore 3061)

text:
ciao "Alan" <
Al...@libero.it
> ha scritto nel messaggio
news:5wXNk.92014$Ca.2...@twister2.libero.it...
>
> "Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
> news:1oXNk.181160$FR.4...@twister1.libero.it...
>> Ciao "Alan" <
Al...@libero.it
> ha scritto nel messaggio
>> news:EaXNk.181131$FR.4...@twister1.libero.it...
>> ---cut---
>>> Ciao, grazie per la pronta risposta, ho controllato il nome della query
>>> e dei campi ed č esatto, ho messo al posto del nome della query, il nome
>>> della tabella e funziona, (ma mi concatena tutti i record e non quelli
>>> selezionati dalla query).
>>
>>
>> Non hai risposto a Cinzia.
>>
>> mostra sql della query.
>> --
>> Ciao
>> Geppo
>
> Ciao geppo  ho postato, cmq eccolo anche a te, Grazie tante
la form anagrafica č aperta quando esegui il codice che hai postato?
> SELECT Contratti.ID, Contratti.RifAna, Contratti.Data, Contratti.NumeroC,
> FROM Contratti
> WHERE (((Contratti.RifAna)=[Forms]![ANAGRAFICA]![PROANA]));
--
Ciao
Geppo


title: Ciclo Do Loop su query (Errore 3061)

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:IJXNk.181187$FR.4...@twister1.libero.it...

> ,
>
> --
> Ciao
> Geppo
La form Anagrafica č aperta, se visualizzo la query  vedo i record filtrati,
uso Access 2007, puo essere questo ?


title: Ciclo Do Loop su query (Errore 3061)

text:
"Alan" <
Al...@libero.it
> ha scritto nel messaggio
news:ZTWNk.181114$FR.4...@twister1.libero.it...

Ho fatto ulteriori test, se nella query inserisco un criterio manuale (es.
RifAna  = 10) il ciclo funziona correttamente, se invece inserisco nei
criteri [Forms]![Anagrafica]![PROANA] mi dice parametri insufficienti


title: Ciclo Do Loop su query (Errore 3061)

text:
"Alan" <
Al...@libero.it
> ha scritto nel messaggio
news:WVXNk.92036$Ca.2...@twister2.libero.it...
>>>> ---cut---
>>>>> Ciao, grazie per la pronta risposta, ho controllato il nome
>>>>> della query e dei campi ed č esatto, ho messo al posto del nome
>>>>> della query, il nome della tabella e funziona, (ma mi concatena
>>>>> tutti i record e non quelli selezionati dalla query).
>>>>
>>>>
>>>> Non hai risposto a Cinzia.
>>>>
>>>> mostra sql della query.
>>>> --
>>>> Ciao
>>>> Geppo
>>>
>>> Ciao geppo  ho postato, cmq eccolo anche a te, Grazie tante
>>
>>
>> la form anagrafica č aperta quando esegui il codice che hai
>> postato?
>>
>>> SELECT Contratti.ID, Contratti.RifAna, Contratti.Data,
>>> Contratti.NumeroC,
>>> FROM Contratti
>>> WHERE (((Contratti.RifAna)=[Forms]![ANAGRAFICA]![PROANA]));
>> ,
>>
>> --
>> Ciao
>> Geppo
>
> La form Anagrafica č aperta, se visualizzo la query  vedo i record
> filtrati, uso Access 2007, puo essere questo ?
Ciao Alan,
il problema dipende dal fatto che la openRecordset non riesce a
valutare il parametro Forms![ANAGRAFICA]![PROANA]
ecco 2 workaround:
1)
strsql = SELECT Contratti.ID, Contratti.RifAna, Contratti.Data,
Contratti.NumeroC FROM Contratti " & _
" WHERE (Contratti.RifAna=" & Forms![ANAGRAFICA]![PROANA] & ")"
Set RST = DbCor.openrecordset(strsql)
......
2)
Set db = CurrentDb
Set qdf = db.QueryDefs("qryCont")
For Each prm In qdf.Parameters
  prm.Value = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset



title: Ciclo Do Loop su query (Errore 3061)

author: Fanciullo

text:
cut
ciao Alan
anche io mi sono scontrato con questo errore.
Pare che se una query č parametrate con forms!miaform!eccetera eccetera
non possa essere usata con  i recordset.
Allora, non mi ricordo chi, mi ha consigliato questo trucchetto.
Prova e vedrai che funziona.
al posto del parametro FORMS!tuaform!tuocontrollo
metti usa una funzione pubblica
mioParametro()
in un modulo crea una funzione pubblica
public function mioparametro() as string ........' o altro
mioparametro = FORMS!tuaform!tuocontrollo
end function
Facendo cosě la query parametrata funziona lo stesso
e se la richiami via codice non ricevi l'errore.
Ciaoo Fanciullo


title: Relazioni.Riempire tabella (1 a molti )

author: robviv

text:
Ho 3 tabelle
Tabella:  Tb_Argomenti
campo:   Argomento
------------------------------------------------------
Tabella: Tb_Libri
campi:   ID_libro (contatore chiave primaria)
              Titolo
              Autore
------------------------------------------------------
Tabella: Tb_argom_libri
              id_libro
              argomento
------------------------------------------------------
Ad ogni libro corrisponde più di un argomento.
Problema:
In sintesi devo:
Per ogni libro (ID_libro), devo avere una MascherA
con tutti gli argomenti (della Tb_Argomenti),  con
a fianco una casella di controllo.
Solo gli argomenti di tutte le caselle spuntate, devono
essere messe dentro una nuova tabella (non so se
Tb_argom_libri va bene).
Devo poter vedere gli argomenti spuntati per ogni libro.
Per ogni libro, alla riapertura della MascherA devo
riavere sempre tutti gli argomenti e con memorizzati
i precedenti valori spuntati.
Al momento:
io inserisco i dati in una tabella (molti)
di una relazione, tramite casella combinata.
Utilizzo una relazione 1 a molti tra:
Tb_Libri  e  Tb_argom_libri
e una
Maschera Base con origine Tb_libri
dove vi è una sottomaschera con origine maschera2
a sua volta con origine Tb_argom_libri .
Inserisco, tramite una casella combinata. (origine
Tb_Argomenti) per ogni libro, i vari argomenti
trattati.
Ora, invece di usare una casella combinata, che devo di volta
in volta riselezionare per poi riscegliere l'argomento
da inserire, ripetendo ciò, per ogni argomento nuovo;
devo creare un'unica maschera, specifica per ogni
ID_libro (cioè per ogni libro) in cui visualizzo tutti
gli argomenti e con a fianco una casella di controllo, in modo
che, posso selezionare più argomenti in una sola volta.
Tali argomenti selezionati, saranno poi inseriti
in automatico, dentro la Tb_argom_libri e
ogni volta che cambio libro, la maschera (con le caselle di
controllo) deve farmi rivedere spuntate i libri che
avevo selezionato in precedenza e quindi già inseriti dentro
la Tb_argom_libri.
Ringrazio anticipatamente
By By


title: Relazioni.Riempire tabella (1 a molti )

author: Roberto

text:
"robviv" <
XXXv...@usa.net
> ha scritto nel messaggio
news:39BB3AA1...@usa.net...

Sei in un caso di relazione molti_a_molti.
La tb_Argomenti strutturala:
Campi:        Id_Argomento    Contatore, chiave primaria
                    Argomento
La tabella: Tb_argom_libri strutturala:
Campi:            Id_libro
                         Id_Argomento
e l'insieme dei due campi rappresentano la chiave primaria.
La tabella tb_Libri è in relazione uno-a-molti con Tb_argom_libri  tramite
Id_libro; la tabella tb_Argomenti è in relazione uno_a_molti Tb_argom_libri
tramite Id_Argomento.
Creati una maschera (Maschera1) che abbia come origine record tb_Libri;
inserisci in Maschera1 una sottomaschera che abbia come origine record
Tb_argom_libri.
Nella sottomaschera il controllo che contiene Id_Argomento deve essere una
casella combinata che ha come origine riga una query basata su tb_Argomenti.
Il controllo sottomaschera di Maschera1 deve avere sia come "Collega campi
secondari" che come "Collega campi master" Id_libro.
Roberto


title: Relazioni.Riempire tabella (1 a molti )

text:
ok funziona tutto
thank you
Solo che, nella sottomaschera (collegata alla tb_argom_libri),
l'inserimento degli argomenti (selezionabili da casella combinata),
è possibile, solo record per record.
Dovrei, invece, inserire in tale tb_argom_libri, più argomenti
contemporaneamente.
come da post:
Invece di usare una casella combinata, devo creare un'unica
maschera, specifica per ogni ID_libro (cioè per ogni libro)
in cui visualizzo tutti gli argomenti e con a fianco una casella di
controllo, in modo che, posso selezionare più argomenti in
una sola volta.
Tali argomenti selezionati (con segno di spunta), saranno poi
inseriti in automatico, dentro la Tb_argom_libri e ogni volta
che cambio libro, la
maschera (con le caselle di controllo) deve farmi rivedere
spuntate i libri che avevo selezionato in precedenza e quindi
già inseriti dentro la Tb_argom_libri.
By By


title: Relazioni.Riempire tabella (1 a molti )

author: Roberto dal portatile

text:
"robviv" <
XXXv...@usa.net
> ha scritto nel messaggio
news:39BD2245...@usa.net...
> ok funziona tutto
> thank you
>
> Solo che, nella sottomaschera (collegata alla tb_argom_libri),
> l'inserimento degli argomenti (selezionabili da casella combinata),
> č possibile, solo record per record.
> Dovrei, invece, inserire in tale tb_argom_libri, piů argomenti
> contemporaneamente.
>
Se non ho capito male il tuo problema dovrebbe essere sufficiente dichiarare
la sottomaschera con visualizzazione a Maschere continue.
[CUT]
>
> By By
>
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Relazioni.Riempire tabella (1 a molti )

text:
>
> > Solo che, nella sottomaschera (collegata alla tb_argom_libri),
> > l'inserimento degli argomenti (selezionabili da casella combinata),
> > è possibile, solo record per record.
> > Dovrei, invece, inserire in tale tb_argom_libri, più argomenti
> > contemporaneamente.
>
>
> Se non ho capito male il tuo problema dovrebbe essere sufficiente dichiarare
> la sottomaschera con visualizzazione a Maschere continue.
n.b La maschera è già in modalità continua.
Ipotizzo, che serva un'altra maschera, in cui
ho tutti i miei argomenti, e poi (quelli spuntati) li ficco
dentro tale sottomaschera. (forse con un insert into?);
ma non so proprio come fare, anche perchè, tale
maschera di inserimento (colegata non so a cosa), deve inserire i dati
nel record del libro (id_libro) corrente.
Poi per il nuovo record, idem.
Quando la riapro, per ogni record, deve rivisualizzarmi tutti gli argomenti
con la spunta a fianco di quelli già inseriti.
By by


title: Relazioni.Riempire tabella (1 a molti )

text:
Ho ripostato, visto anche la velocità con cui crescono le intestazioni.
Nella prima parte, ho inserito, solo ai fini semplificativi
della spiegazione, le tabelle con una sola relazione,
anche se, giustamente, come hai postato tu, le relazioni
sono molti a molti (ammetto che non le ho mai usate e mi sfugge
se possono creare qualche problema; se non ricordo bene
da qualche libro ho letto che è meglio usarle quando è
proprio necessario; forse possono creare problemi se si setta male le
integrità referenziali o altro boo!!!).
Penso, che non incidano sul fatto di  poter inserire nella sottomaschera,
per ogni libro, in modo automatico, tutte gli argomenti con le caselle spuntate
(non ne sono certo).
ripost:
Inserire molti Record in una tabella molti
By By


title: Relazioni.Riempire tabella (1 a molti )

text:
"robviv" <
XXXv...@usa.net
> ha scritto nel messaggio
news:39BE76D5...@usa.net...

Forse ora ho capito cosa ti serve.
Presupposti:
1) Le tre tabelle sono strutturate come hai indicato tu nel tuo messaggio
del 10/9/2000 ore 09:38.
2) Tb_argom_libri è in relazione uno_a_molti con Tb_Argomenti tramite il
campo Argomento.
3) Tb_argom_libri è in relazione uno_a_molti con Tb_Libri tramite il campo
ID_libro.
4) Creati una maschera (Maschera1) che ha come origine record Tb_Libri e NON
inserirci alcuna sottomaschera.
5) Creati una query (Query1) che ha il seguente codice SQL:
SELECT Tb_argom_libri.ID_libro, Tb_argom_libri.Argomento,
IIf(IsNull([ID_libro])," ","*") AS Spunta
FROM Tb_argom_libri
WHERE (((Tb_argom_libri.ID_libro)=[Forms]![Maschera1]![ID_libro]));
6) Creati un'altra query (Query2) che ha il seguente codice SQL:
SELECT Query1.ID_libro, Tb_Argomenti.Argomento, Query1.Spunta
FROM Query1 RIGHT JOIN Tb_Argomenti ON Query1.Argomento =
Tb_Argomenti.Argomento;
7) Nell'intestazione di Maschera1 inserisci una casella di riepilogo non
associata che chiami elenco; deve avere tre colonne, di cui la prima non
deve essere visibile (metti a zero la lunghezza della prima colonna)
8) Come origine riga della casella di riepilogo metti Query2
9) A fronte dell'evento "Su corrente" di Maschera1 genera il seguente codice
VBA:
    Me![elenco].Requery
10) A fronte dell'evento "Dopo aggiornamento" del controllo Titolo di
Maschera1 genera il seguente codice VBA:
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
11) A fronte dell'evento "Su clic" della casella di riepilogo genera il
seguente codice VBA:
If Me![elenco].Column(2) = " " Then
Dim dbMio As Database
Dim rcdMio As Recordset
Set dbMio = CurrentDb()
Set rcdMio = dbMio.OpenRecordset("Tb_argom_libri")
rcdMio.AddNew
rcdMio![ID_libro] = Me![ID_libro]
rcdMio![Argomento] = Me![elenco].Column(1)
rcdMio.Update
rcdMio.Close
Me![elenco].Requery
End If
A questo punto apri Maschera1: nella casella di riepilogo ti compare
l'elenco di tutti gli aromenti, quelli spuntati del libro corrente hanno a
destra un asterisco; per spuntare altri argomenti "non spuntati" cliccaci
sopra con il mouse.
Spero che era quello che volevi.
Questa soluzione l'ho testata con un DB di prova e a me funziona.
Fammi sapere
Roberto


title: Relazioni.Riempire tabella (1 a molti )

text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39BF6A90...@usa.net...
> Uaoo!!
> Eccezionale!!
> Veramente tosto!!
> Grazie 1000, anzi 2000 ed oltre!!
Troppo buono :o)
[CUT]
> Se posso, ti volevo chiedere, le ultime tre cose:
> 1) nella casella di riepilogo, quando ho l'*, e io clicco sopra dovrei
> ripristinare la situazione di partenza;
> praticamente dovrei ritogliere il record inserito in precedenza.
> Ipotizzo che: nel codice del click, vada un if ...= "*" allora
> cancella il record corrispondente e aggiorna tabella (solo che non riesco
> ad impostare il codice).
Questa è infatti la soluzione: naturalmente devi prima posizionarti sul
record da cancellare, utilizzando i dati della riga della casella di
riepilogo selezionata e poi fai un delete di detto record; provaci un
pochino da solo e poi eventualmente fatti vivo.
> 2) siccome prevedo che, nell'elenco della casella di riepilogo, di avere
> molte voci, se, necessariamente, tale casella deve stare dentro la sezione
> intestazione o si riesce ad inserirla in una maschera esterna e quindi in
> una sottomaschera o ancora meglio direttamente nella sezione corpo
> della maschera stessa (non so se è possibile con il supporto di codice).
> Riuscirei così ad organizzare meglio l'interfaccia.
E' un pò una mia mania quella di mettere caselle di riepilogo e caselle
combinate non associate nell'intestazione e non nel corpo, questo mi dà la
libertà di decidere in seguito di dare alla maschera una visualizzazione a
maschere continue; nel caso specifico puoi farlo tranquillamente.
> O viceversa, se tutti i controlli del corpo, li posso inserire dentro
> l'intestazione.
Maiiiiiiiii.
> 3) per quanto riguarda DoCmd.DoMenuItem ....,  non ho capito
> la funzione esatta e se era possibile usare del codice, visto che
> prevedo ad opera finita, di togliere la stessa.
>
Innanzi tutto la DoCmd è appunto parte di un codice VBA.
Ho dei dubbi che tu potrai mai toglierla in quanto è INDISPENSABILE al
momento che inserisci un nuovo libro, e penso che è una eventualità che
avrai sempre; Access non ti permetterà mai di inserire dei record figli in
Tb_argom_libri se prima non è stato effettivamente registrato fisicamente il
record padre in Tb_Libri; e DoCmd.DoMenuItem ... questo fa. Se hai notato è
ancora in gestazione nel NG un caso in cui qualcuno lamenta il fatto che
Access si rifiuta di inserire dei record figli perchè non è stato ancora
registrato il codice padre: anche a lui ho consigliato di usare la
DoCmd.DoMenuItem ... , ma il suggerimento forse non è stato capito.
Ciao
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------
>
> >La chiave primaria  di Tb_argom_libri è l'insieme dei campi ID_libro e
> >Argomento
> Ok
>
>
>
> By  By
>
>


title: Relazioni.Riempire tabella (1 a molti )

text:
Solo per completezza, aggiungi ai presupposti:
3bis) la chiave primaria di Tb_argom_libri è l'insieme dei campi ID_libro e
Argomento



title: Relazioni.Riempire tabella (1 a molti )

text:
Uaoo!!
Eccezionale!!
Veramente tosto!!
Grazie 1000, anzi 2000 ed oltre!!
Capperi, ma che esistono dei prodotti alimentari a base di Access; ho
l’impressione (da come lo mastichi) che tu ne faccia uso, a prescindere dal
fatto che io ne sono a dieta, o quasi!!!!
Se posso, ti volevo chiedere, le ultime tre cose:
1) nella casella di riepilogo, quando ho l’*, e io clicco sopra dovrei
ripristinare la situazione di partenza;
praticamente dovrei ritogliere il record inserito in precedenza.
Ipotizzo che: nel codice del click, vada un if …….= “*” allora
cancella il record corrispondente e aggiorna tabella (solo che non riesco
ad impostare il codice).
2) siccome prevedo che, nell’elenco della casella di riepilogo, di avere
molte voci, se, necessariamente, tale casella deve stare dentro la sezione
intestazione o si riesce ad inserirla in una maschera esterna e quindi in
una sottomaschera o ancora meglio direttamente nella sezione corpo
della maschera stessa (non so se è possibile con il supporto di codice).
Riuscirei così ad organizzare meglio l’interfaccia.
O viceversa, se tutti i controlli del corpo, li posso inserire dentro
l’intestazione.
3) per quanto riguarda DoCmd.DoMenuItem ……..,  non ho capito
la funzione esatta e se era possibile usare del codice, visto che
prevedo ad opera finita, di togliere la stessa.
>La chiave primaria  di Tb_argom_libri è l’insieme dei campi ID_libro e
>Argomento
Ok
By  By


title: Relazioni.Riempire tabella (1 a molti )

text:
> > 3) per quanto riguarda DoCmd.DoMenuItem ....,  non ho capito
> > la funzione esatta e se era possibile usare del codice, visto che
> > prevedo ad opera finita, di togliere la stessa.
Scusa ho errato nello scrivere.
La frase finale č::
e se era possibile usare del codice, visto che
prevedo ad opera finita di togliere la barra dei menů
e lavorare solo con i pulsanti.
Quindi l docmd non lo posso piů riferire ai menů.
Riguardo i punti 1 e 2 precedentemente postati, farň
delle prove.
By By


title: Relazioni.Riempire tabella (1 a molti )

text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39C07264...@usa.net...

Mi dispiace, ma non sono in grado di darti una risposta; ho perň la certezza
che avrai una risposta se poni il quesito esplicitamente al NG.



title: Relazioni.Riempire tabella (1 a molti )

text:
> Mi dispiace, ma non sono in grado di darti una risposta; ho perņ la certezza
> che avrai una risposta se poni il quesito esplicitamente al NG.
Per il momento provo ad approfondire la ricerca sull'help
e faq, eventualmente posterņ.


title: Formattazione valore da Visual Basic

author: Cocchieri

text:
Buongiorno a tutti, ho un quesito da porvi
Ho un campo numerico formattato con due decimali
Avrei la necessità di variare la formattazione (eliminare i decimali) da
codice  Visual basic al verificarsi di una certa condizione.
Qualcuno sa come devo fare (mi servirebbe solo il codice per la
formattazione)?
Ringrazio anticipatamente per l'aiuto.
Luigi


title: Formattazione valore da Visual Basic

author: Riccardo

text:
Cocchieri <
a.coc...@tiscalinet.it
> wrote in message
9saq7n$aul$1...@pegasus.tiscalinet.it...

_________
Int(numero)
ciao Riccardo


title: Formattazione valore da Visual Basic

author: Patrick

text:
potresti usare la funzione int ma poi questa ti restituisce solo la parte
intera non considerando i decimali e gli eventuali arrotondamenti.
Perchè non guardi la funzione Format dovrebbe andare bene
ciao ciao
"Cocchieri" <
a.coc...@tiscalinet.it
> wrote in message
news:9saq7n$aul$1...@pegasus.tiscalinet.it...



title: Formattazione valore da Visual Basic

text:
Riccardo <
ricc...@free.panservice.it
> wrote in message
9sargo$4jv$1...@news.panservice.it...

Grazie mille per la dritta
Luigi


title: Formattazione valore da Visual Basic

text:
Patrick <
patr...@gmx.it
> wrote in message
Uy7G7.21218$zl4.6...@news2.tin.it...

Mi spieghi meglio il funzionamento?
Ecco il mio caso
Allora io ho un valore sul campo X
ed un valore numerico sul campo totale
Se il valore del campo  x  corrisponde a "Lire"
allora di deve cambiare la formattazione del campo denominato totale
(impostato predefinito con 2 decimali) senza decimali.
La routine da me scritta è la seguente (ma non funziona)
if  Me. x = "Lire" then
Me.totale = format (Me.totale,"#.##0")
end if
Dove ho sbagliato?


title: Formattazione valore da Visual Basic

text:
Cocchieri <
a.coc...@tiscalinet.it
> wrote in message
9sbfkc$np0$1...@pegasus.tiscalinet.it...

________
 if  Me. x = "Lire" then
 Me.totale = format (Me.totale,"#,##0")
 end if
ciao Riccardo


title: Formattazione valore da Visual Basic

text:
Cocchieri <
a.coc...@tiscalinet.it
> wrote in message
9sb5pg$hgl$1...@pegasus.tiscalinet.it...

Ho provato ad  applicare la funzione su un campo del report e mi dice che
non è possibile perche' è di sola lettura,
Come è possibile?


title: Percentuale sconto

text:
eseguo questa operazione
=[Testo_Prezzo]*[Testo_Sconto]-100*100

testo prezzo 100  testo sconto 30   ricevo  -7000

dove sbaglio , qual' è la giusta sintassi

Giuseppe


title: Percentuale sconto

author: Alberto S

text:

=[Testo_Prezzo] - [Testo_Prezzo]*[Testo_Sconto]/100

... poi ci sarebbe la questione del tipo di dati e dell'arrotondamento
(ma forse ci stiamo allargando troppo?)
Alberto S


title: Percentuale sconto

author: Ammammata

text:
Il giorno Mon 14 Feb 2022 08:13:15p, *
g.com
* ha inviato su
it.comp.appl.access il messaggio news:9e2ef6d2-7ebc-4aae-8c03-
af6b52...@googlegroups.com
. Vediamo cosa ha scritto:

la giusta sintassi è quella che fai mentalmente per arrivare al prezzo
giusto

la risposta te la hanno già data, ma è sempre utile provare un passo alla
volta

se nella tua testa dici: 100 - 30 fa 70 non è l'approccio migliore in
quanto parti da una base (100) che è troppo bella per essere vera, inoltre
la percentuale (30) è parimenti suggestiva

fai piuttosto 345 - 67% di sconto, ci ragioni su un passo alla volta (come
scritto sopra) e mettili su carta: alla fine li concateni usando le
parentesi, vedi se il risultato è giusto e metti in pratica nella formula

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: Percentuale sconto

text:
Il giorno Tue 15 Feb 2022 08:27:15a, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAE3F560008312am...@127.0.0.1
. Vediamo cosa ha
scritto:

> alla fine li concateni usando le
> parentesi, vedi se il risultato č giusto e metti in pratica nella formula

aggiungo: non dimenticare che il computer č estremamente stupido ma č anche
estremamente veloce, per cui quello che a te sembra un calcolo lunghissimo
una volta che lo metti su carta (un passo alla volta), non dimenticare che
il coso lo fa decine di milioni di volte piů velocemente che nella tua
testa



title: Percentuale sconto

text:

Perfetto tutto  ok
Grazie
Giuseppe


title: Da SubForm trovare nome della mainForm

author: Franco dellavalle

text:
ciao a tutti

come faccio da SubForm trovare il
nome della mainForm?

Grazie


title: Da SubForm trovare nome della mainForm

text:

me.parent.name


title: Come creare mde via codice vba (Access 2013) ?

author: RobertoA

text:
Usando il 2003, con la riga

appAcc.SysCmd 603, nome_file_2003, nome_file_mde

potevo tirarmi fuori l'mde
Col 2013 sembra non si possa piu' fare
Che alternative?
Ciao e grazie
RobertoA


title: funzione LCase

text:
in una query ho inserito la funzione LCase per convertire tutto in
minuscolo.
sul mio pc tutto bene. Ho spedito il file ad un collega, ma a lui da il
seguente errore:
L'espressione su clic .......ha provocato il seguente errore:
Funzione non disponibile nelle espressioni
nell'espressione della query
'LCase([scadenze].[descrizione])'.
per caso c'entrano i riferimenti?
se cosě fosse, i riferimenti non se li porta in automatico il programma?
Io sul mio pc ho i seguenti riferimenti installati:
Visual Basic for Applications
Ms Access 8.0 Object Library
Ms DAO 3.51 Object Library
Ms Word 8.0 Object Library
Ms Masked Edit Control 6.0 (č l'unica che forse non ha installato, ma l'ho
usata per creare
una casella in un form che non ha niente a che vedere con quella query)
grazie
Riccardo


title: funzione LCase

author: Roberto - Syd

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:a7a5rj$dt4$1...@news.panservice.it...

Il problema č proprio dove hai pensato te, infatti quando si tenta di
eseguire una funzione come LCase access cerca di compilare e non avendo
trovato una libreria necessaria al db ti da errore soluzione aprire i
riferimenti e disattivare la libreria dove c'č scritto MANCA.
Ciao Roberto - Syd


title: Output Report in Word

author: Cris

text:
Ciao a tutti,
ho creato un report che simula un fax con tanto di carta intestata, logo e
formattazioni "aziendali" e vorrei spedirlo per e-mail al cliente. Ho
provato con SendObject ma sia in formato RTF che txt il risultato non è
eccezionale e si perdono parecchie formattazioni compresi bordi e loghi.
C'è, magari passando ad Access 2000, la possibilità di inviare il report a
WORD oppure altri modi per renderlo pià aderente al report originale?
Grazie a tutti per la risposta.
Ciao
Cristina


title: Output Report in Word

author: Fabio Montagner

text:

Sì, puoi convertirlo in formato .pdf. Mi pare ci sia qualcosa nel sito
comune.
>


title: Output Report in Word

author: Federico Luciani

text:

L'alternativa piu' economica e' esportare in formato Snapshot, il
contro e' che il destinatario deve avere il visualizzatore, che cmq
e' gratis e scaricabile dal sito MS.
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Ultimo numero in fattura

author: Alberto Luzi

text:
Salve!
in una casella di testo nella maschera fatture ho questo codice:
=Nz(DMax("numeroFatt";"TbFatture");0)
per vedere l'ultimo numero emesso;
ho provato anche con:
=Nz(DMax("numeroFatt";"TbFatture";"IdFattura");0)
senza successo.
Però a causa di un errore di numerazione (più alto del dovuto)
ora non riesco più a vedere il vero numero perchè mi mostra
sempre quello più alto emesso.
Come posso fare?
Grazie per l'aiuto.


title: Ultimo numero in fattura

text:
Il giorno mercoledì 29 novembre 2023 alle 10:54:27 UTC+1 Alberto Luzi ha scritto:

 Ho fatto in questo modo, ma non so se c'è un modo migliore
 =Nz(DLookUp("numeroFatt";"TbFatture";"IdFattura=" & DMax("IdFattura";"TbFatture"));0)


title: Fabio

author: fidel

text:
In questo momento sto lavorando su un database ed è un susseguirsi di
maschere che si aprono, anteprime di report, inserimento codice etc etc e,
cosa rara per me, ho inserito in una maschera il Calendar Control 9,
(access 2000)e puntualmente ogni 2 ore circa sono costretto ad un reboot
della macchina per GDI a zero. A fatica si ripittano le finestre, strani
messaggi di memoria esaurita. Sospetto sia colpa delll'ocx, e Voi?
Grazie e scusate se sono leggermente OT
Fabio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Fabio

author: Alessandro Cara

text:
fidel wrote:
>
> In questo momento sto lavorando su un database ed è un susseguirsi di
> maschere che si aprono, anteprime di report, inserimento codice etc etc e,
> cosa rara per me, ho inserito in una maschera il Calendar Control 9,
> (access 2000)e puntualmente ogni 2 ore circa sono costretto ad un reboot
> della macchina per GDI a zero. A fatica si ripittano le finestre, strani
> messaggi di memoria esaurita. Sospetto sia colpa delll'ocx, e Voi?
> Grazie e scusate se sono leggermente OT
>
> Fabio
hai infettato anche il NG, compaiono strani messaggi con strani soggetti
;<)
Perche' OT? Non mi sembra
--
a.cara
Togli qualcosa dall'email


title: Fabio

author: Antonio Biso

text:
"fidel" <
fid...@katamail.com
> ha scritto nel messaggio
news:bc5a7b$rlh$1...@news.newsland.it...
Fabio cos'è? un nuovo controllo OCX?
Antonio


title: Fabio

author: MA

text:
Il 10 Giu 2003, 21:06,
fid...@katamail.com
 (fidel) ha scritto:
> In questo momento sto lavorando su un database ed è un susseguirsi di
> maschere che si aprono, anteprime di report, inserimento codice etc etc e,
> cosa rara per me, ho inserito in una maschera il Calendar Control 9,
> (access 2000)e puntualmente ogni 2 ore circa sono costretto ad un reboot
> della macchina per GDI a zero. A fatica si ripittano le finestre, strani
> messaggi di memoria esaurita. Sospetto sia colpa delll'ocx, e Voi?
> Grazie e scusate se sono leggermente OT
>
> Fabio
Io lo uso molto il calendario e non mi ha mai dato noia. Probabilmente il
problema è altrove.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Fabio

text:

Porc... m'era sfugggito il subject...
Mi cospargo il capo di cenere...



title: Attivazione di un combobox presente in una sottomaschera

author: kaal

text:
Salve a tutti,
in una sottomaschera ho un combobox che all'evento AfterUpdate esegue
determinati calcoli. Vorrei sapere da voi se dalla maschera principale
ho la possibilitï¿œ di aggiornare l'indice del combobox e di conseguenza
richiamare la procedura dell'evento AfterUpdate della combo.
Un grazie in anticipo a tutti.
Kaal
P.S. Ovviamente se si sono altre alternative per poter eseguire la
procedura di cui sopra, ben vengano.


author: Cosimo S,

text:
On 16 Gen, 20:49, "kaal" <
k...@tele2.it
> wrote:
> Salve a tutti,
> in una sottomaschera ho un combobox che all'evento AfterUpdate esegue
> determinati calcoli. Vorrei sapere da voi se dalla maschera principale
> ho la possibilità di aggiornare l'indice del combobox e di conseguenza
> richiamare la procedura dell'evento AfterUpdate della combo.
> Un grazie in anticipo a tutti.
> Kaal
>
> P.S. Ovviamente se si sono altre alternative per poter eseguire la
> procedura di cui sopra, ben vengano.
Prova con
Forms![TuaMaschera]![TuoControllo].Recalc
oppure al posto di Recalc - Requery


title: Unione di 2 o più campi in un report...

text:
Semplice semplice... ma non trovo soluzione....
Ho un report con campi CAP, CITTA' e PROV per unificarli in un unica casella
in origine controllo ci scrivo =[CAP]+[CITTA']+[PROV] ed in effetti li
unifica in una unica casella.... ma gli spazi????
Questo è il risultato: 20123MILANOMI
Aiuto???
Grazie, AnnA
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Unione di 2 o più campi in un report...

author: Gabriele Bertolucci

text:
> Semplice semplice... ma non trovo soluzione....
> Ho un report con campi CAP, CITTA' e PROV per unificarli in un unica
> casella
> in origine controllo ci scrivo =[CAP]+[CITTA']+[PROV] ed in effetti li
> unifica in una unica casella.... ma gli spazi????
Basta che tu le aggiunga :-)
Inoltre, per concatenare dei campi non devi utilizzare il "+" ma la "&"
=[CAP] & " " & [CITTA'] & " " & [PROV]
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: Unione di 2 o più campi in un report...

text:
Gabriele Bertolucci wrote:
>> Semplice semplice... ma non trovo soluzione....
>> Ho un report con campi CAP, CITTA' e PROV per unificarli in un unica
>> casella
>> in origine controllo ci scrivo =[CAP]+[CITTA']+[PROV] ed in effetti
>> li unifica in una unica casella.... ma gli spazi????
>
> Basta che tu le aggiunga :-)
>
> Inoltre, per concatenare dei campi non devi utilizzare il "+" ma la
> "&"
>
> =[CAP] & " " & [CITTA'] & " " & [PROV]
o meglio
(Cap+" - ") & (città) & ("("+Ucase(prov)+")")
così se non ci sono i campi non mette spazi o segni
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Accesso esclusivo perso lavorando con i recorset

author: Tony Bragagnolo

text:
Sto sviluppando un db in locale (mdb con tabelle collegate da un altro mdb)
e ogni tanto mi capita che lavorando da codice con DAO sui recordset per
aggiungere record, ad esempio:
dim rst as recordset
Set rst = CurrentDb.OpenRecordset("tabella") 'tab collegata
rst.AddNew
rst!n°= numero
rst!testo = testo
rst.Update
alla fine della procedura (che funziona correttamente) tentando di andare in
modalità struttura mi trovi il messaggio di "non si dispone di accesso
esclusivo al database...". Questo accade appunto solo dal momento in cui
eseguo queste sub. Non capisco perchè visto che chiudo sempre il recordset
con
rst.Close
Set rst = Nothing
qualche idea?
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
ovviamente intendevo "Accesso CONDIVISO perso lavorando con i recordset"...



title: ripristino barra strumenti

author: Matteo F

text:
Guardando uno dei milioni di file di esempio che ho trovato sui siti di
discussione di access mi è scomparsa la barra menù: file, modifica,
visualizza...
visto che sono già in crisi per conto mio vorrei sapere urgentemente
come faccio a far tornare la barra


title: ripristino barra strumenti

text:

Creati una maschera e mettici
docmd.showtoolbar "menubar", actoolbaryes
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


title: ripristino barra strumenti

text:
MA ha scritto:

non mi interessano le maschere! io quando avvio access mi ritrovo una
finestra grigia senza nemmeno un opzione. voglio solo sapere la
combinazione di tasti per far ricomparire la barra file, modifica ecc
altrimento non riesco a fare niente con access


title: ripristino barra strumenti

text:
so che è una domanda stupida ma sono nelle vostre mani: come faccio a
far tornare tutto come prima???
la guida in linea mi fornisce procedure di click qui, click su ma io
non posso fare click da nessuna parte perchè non ho niente!
HELP


title: ripristino barra strumenti

author: Marco Pizzamiglio

text:
Matteo F ha scritto:

Chiudi il database e riaprilo tenendo premuto sulla tastiera il tasto
Shift.
Ciao.
-Marco-
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ripristino barra strumenti

text:
Marco Pizzamiglio ha scritto:

non succede niente
spero che una reinstallazione di access risolva il problema
non aprirò mai più un file di esempio che mi consigliate per avere
tutti questi problemi :-(


title: ripristino barra strumenti

text:
Matteo F wrote:
> MA ha scritto:
>
>> Matteo F wrote:
>>> Guardando uno dei milioni di file di esempio che ho trovato sui siti
>>> di discussione di access mi è scomparsa la barra menù: file,
>>> modifica, visualizza...
>>> visto che sono già in crisi per conto mio vorrei sapere urgentemente
>>> come faccio a far tornare la barra
>> Creati una maschera e mettici
>> docmd.showtoolbar "menubar", actoolbaryes
>> --
>
> non mi interessano le maschere! io quando avvio access mi ritrovo una
> finestra grigia senza nemmeno un opzione. voglio solo sapere la
> combinazione di tasti per far ricomparire la barra file, modifica ecc
> altrimento non riesco a fare niente con access
Guarda che devi farlo Una Tantum



title: ripristino barra strumenti

author: sv

text:
Matteo F ha scritto:
> Marco Pizzamiglio ha scritto:

Scusami ma Access si apre sì o no? Sei in condizioni di crearti un
database?
Eventualmente utilizza Ctrl+N.
--
sv
--



title: ripristino barra strumenti

text:
alla fine ho reinstallato access.
cmq mi si avviava normalmente ma non compariva nemmeno un pulsante o
barra. potevo giusto chiudere, ridurre a icona o ingrandire


title: [QUERY] esclusione di alcuni record da una tabella linjata ad un'altra tabella

author: Nicola Di Martino

text:
Ciao
ho due tabelle linkate tramite idanagrafica
le due tabelle sono
ANAGRAFICA: idanagrafica, nome, ecc
FATTURE:idfattura,idanagrafica,ecc
Vorrei tutti i record di anagrafica che non hanno un record in fatture, in
sostanza quali non hanno la fattura
la mia query è:
SELECT anagrafica.nome, anagrafica.email
FROM anagrafica INNER JOIN fatture ON anagrafica.idanagrafica =
fatture.idanagrafica
WHERE (((anagrafica.idanagrafica)<>[fatture].[idanagrafica]))
ORDER BY anagrafica.nome;
ma non funziona. le ho provate "quasi" tutte
Grazie
Nik


text:
"Nicola Di Martino" <
nic.dim...@libero.it
> ha scritto nel messaggio
news:45f01809$0$20809$5fc...@news.tiscali.it...
> Ciao
> ho due tabelle linkate tramite idanagrafica
> le due tabelle sono
> ANAGRAFICA: idanagrafica, nome, ecc
> FATTURE:idfattura,idanagrafica,ecc
>
> Vorrei tutti i record di anagrafica che non hanno un record in fatture, in
> sostanza quali non hanno la fattura
> la mia query č:
>
> SELECT anagrafica.nome, anagrafica.email
> FROM anagrafica INNER JOIN fatture ON anagrafica.idanagrafica =
> fatture.idanagrafica
> WHERE (((anagrafica.idanagrafica)<>[fatture].[idanagrafica]))
> ORDER BY anagrafica.nome;
>
> ma non funziona. le ho provate "quasi" tutte
> Grazie
> Nik
SELECT anagrafica.nome, anagrafica.email
FROM anagrafica INNER JOIN fatture ON anagrafica.idanagrafica =
fatture.idanagrafica
WHERE ((([fatture].[idanagrafica]) is null))
ORDER BY anagrafica.nome;
Antonio


text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:Q8VHh.16723$zG1.1...@twister2.libero.it...

Grazie
esageratamente banale
grazie ancora
Nik


title: Insert into condizionale

author: Carmelo

text:
Ho una tabella "Config" con due campi
Key Testo (chiave primaria)
Valore Testo

Dovrei fare una INSERT INTO solo se il testo della key non esiste
qualcosa del genere:
Insert into config (Key, Valore) Value ("Pippo", "Topolino")
Where Key = "Pippo" not exist.

Ho letto in rete alcuni esempi con Not exist e subquery ma non funzionano.

Se ï¿œ possibile quale sintassi usare?

Carmelo


title: Insert into condizionale

text:
Carmelo ha scritto:

> Ho una tabella "Config" con due campi
> Key Testo (chiave primaria)
> Valore Testo
> Dovrei fare una INSERT INTO solo se il testo della key non esiste
> qualcosa del genere:
> Insert into config (Key, Valore) Value ("Pippo", "Topolino")
> Where Key = "Pippo" not exist.
> Ho letto in rete alcuni esempi con Not exist e subquery ma non funzionano.
> Se � possibile quale sintassi usare?
> Carmelo

Puoi eseguire la query senza criteri, togliendo del tutto il Where. Se Key
�
la chiave primaria della tabella i record gi� esistenti verranno
automaticamente scartati, previa comparsa di un avviso.
Altrimenti prova cos�, che � pi� professionale:
WHERE NOT EXISTS (SELECT Key from Config WHERE Key="Pippo")
Ciao.
-Marco-

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Insert into condizionale

author: Karl Donaubauer

text:
Marco Pizzamiglio wrote:
> Carmelo ha scritto:
>
>> Ho una tabella "Config" con due campi
>> Key Testo (chiave primaria)
>> Valore Testo
>> Dovrei fare una INSERT INTO solo se il testo della key non esiste
>> qualcosa del genere:
>> Insert into config (Key, Valore) Value ("Pippo", "Topolino")
>> Where Key = "Pippo" not exist.
> ...
> Puoi eseguire la query senza criteri, togliendo del tutto il Where.
> Se Key �
> la chiave primaria della tabella i record gi� esistenti verranno
> automaticamente scartati, previa comparsa di un avviso.
> Altrimenti prova cos�, che � pi� professionale:
> WHERE NOT EXISTS (SELECT Key from Config WHERE Key="Pippo")

Ciao Marco,

come stringa sembra molto pi� professionale ;-) ma come comando
non puo funzionare. SQL dopo la clausola VALUES non consente niente.
Quindi un WHERE dopo VALUES deve dare un errore di sintassi.

Se assolutamente � necessario di fare il controllo nell'enunciato SQL
(invece del PK o un If in codice) puo usare SELECT invece di VALUES
e giochetti come:

INSERT INTO config (Key, Valore)
SELECT "Pippo", "Topolino" FROM config
WHERE 0 = (SELECT Count(*) FROM config WHERE Key="Pippo")
GROUP BY "Pippo"

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Anno a 4 cifre

author: Harry Evans

text:
Come posso fare per impostare che tutte le date dei miei programmi siano con
anno a 4 cifre? Ho visto che questo dipende dall'impostazione della data
breve nel pannello di controllo e infatti ho impostato la forma breve a
dd/mm/aaaa, ma vorrei impostare questo nel programma, senza dover ogni volta
andare a modificare le impostazioni del computer dell'utente.
Esiste una impostazione o una proprietą di access per fare questo?
--
*****************************
** Harry Evans - Bolzano
** Clipper Specialist & Magician
** e-mail:
harry...@tin.it
*****************************


title: Anno a 4 cifre

author: AntoGal

text:
Harry Evans <
ha...@pns.it
> scrisse...
> Come posso fare per impostare che tutte le date dei miei programmi siano
con
> anno a 4 cifre?
Se non vuoi/puoi agire direttamente da pannello di controllo, credo che
l'unica soluzione sia la proprietą formato delle caselle di testo sulle
maschere.
Imposta il formato a:
gg/mm/aaaa
senza virgolette. Nota che si usa la versione italiana, e non dd/mm/yyyy.
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)

www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


title: Convertire formule excel in access

author: Santilli Marco

text:
Devo trasferire un foglio fatto in excel in access
In excel si usa SE, O, ecc.
In access IF THE ELSE, ecc.
Cè un qualcosa che possa interagire tra i dure e creare una conversione.
Sicuramente la risposta è negativa, però tenetar non nuoce
Ciao e grazieeeeeeeee


title: Convertire formule excel in access

author: mayerlink

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cncq65$km5$1...@grillo.cs.interbusiness.it...

Se il foglio Excel è correttamente strutturato come database, tutti i dati
li puoi facilmente importare in Access. Solo i dati opportunamente
formattati. Poi...entri in un altro mondo!
Fai sapere
Ciao
mayerlink


title: Convertire formule excel in access

text:
"mayerlink" <
maye...@virgilio.it
> ha scritto nel messaggio
news:3%7nd.187939$b5.93...@news3.tin.it...

Dei dati faccio poco, a me serve proprio i controlli, cioè tutte le varie
condizione di calcolo.
Il foglio in excel è quello che ti ho spedito l'altra sera per posta


title: Impostazione formato in campo calcolato

author: cranze

text:
Ciao a tutti,
ho due problemi.
1) In una maschera continua imposto il formato di un capo in questo modo:
0\.00\.00, tale che mi faccia vedere per esempio il numero 1002030 così
100.20.30
In un campo calcolato che ha origine controllo: ="Totale Area: " &
Somma([Area])
non è sufficiente ipostare il formato dalle proprietà, quindi come posso
fare per leggere p.e.
Totale Area: 14400.20.30 invece di Totale Area: 144002030
2) Nella stessa maschera continua imposto il formato di un capo in questo:
Euro, decimali: 2, tale che mi faccia vedere per esempio il numero 200,5865
così ?200,59
In un campo calcolato che ha origine controllo: ="Totale Valore: " &
Somma([Valore])
non è sufficiente ipostare il formato dalle proprietà, quindi come posso
fare per leggere p.e.
Totale Valore: ?175.180,42 invece di ?175.180,4188
Grazie a chiunque sappia rispondere


title: Impostazione formato in campo calcolato

author: Carlo Costarella

text:
"cranze" <
cranze_...@tiscali.it
> ha scritto nel messaggio
news:43921244$0$343$5fc...@news.tiscali.it...

1) Hai provato con
="Totale Area: " & Format(Somma([Area]);"00\.00\.00")
2) Qui oltre a impostare i decimali a due cifre puoi usare una delle
funzioni di arrotondamento dell'euro presenti nel sitocomune. Inoltre così
dovrebbe funzionare:
="Totale Valore: " & format(Somma([Valore]);"0.00")
Tieni presente che l'arrotondamento dell'euro segue un criterio diverso
dall'arrotondamento standard.
Ciao, Carlo


title: Impostazione formato in campo calcolato

text:
> 1) Hai provato con
> ="Totale Area: " & Format(Somma([Area]);"00\.00\.00")
>
> 2) Qui oltre a impostare i decimali a due cifre puoi usare una delle
> funzioni di arrotondamento dell'euro presenti nel sitocomune. Inoltre cosě
> dovrebbe funzionare:
> ="Totale Valore: " & format(Somma([Valore]);"0.00")
> Tieni presente che l'arrotondamento dell'euro segue un criterio diverso
> dall'arrotondamento standard.
>
> Ciao, Carlo
>
>
Grazie Carlo, č perfetto
Ciao, cranze


title: Impostazione formato in campo calcolato

text:
"cranze" <
cranze_...@tiscali.it
> ha scritto nel messaggio
news:4392aba3$0$340$5fc...@news.tiscali.it...

Anzi grazie al tuo suggerimento ho fatto vari tentativi e per il 2° problema
ho risolto cosě:
="Totale Valore: ? " & format(Somma([Valore]);"Standard")
Ciao e ancora grazie


title: Sequenze di Escape stampante....

author: norica

text:
Sono alle prese con ste cazzo di stampanti ad aghi....
Ho creato una routine che esporta un report di Access in un file di testo
(.txt) e tramite Shell avvio un programmino DOS (.BAT) che invia il file
alla stampante tramite COPY C:\prova.TXT \\CLIENT1\GENERICA.
E tutto funziona, cioè stampa...
Il problema ora è quello di impostare le dimensioni del foglio, visto che
esportando il report in file di testo le formattazioni (altezza-larghezza
etc.) vengono perse...
A me interessa solo l'altezza del foglio visto che sono dei modelli
prestampati di altezza circa 10 cm. (bollettini di spedizione).
Ora, come cavolo faccio ad inviare alla stampante l'altezza in righe del
foglio ?!
Io ho il manuale dove ci sono i comandi ESCAPE ma è un bel casino !!!!
Nel driver di stampante Generica c'e la possibilità di inserire questi
codici ma non capisco come ???!!!
Sia lodato chi mi aiuta !
Grazie mille.
--------------------------------
Inviato via
http://usenet.libero.it


title: Grafico su più pagine

author: Pio Pio

text:
Ciao a tutto il NG
Sto sviluppando una piccola applicazione per il bilancio familiare e ho creato un report con un
grafico a barre che misura il livello raggiunto di ogni tipo di spesa (abbigliamento, casa,
automobile, viaggi). Fino a quando i tipi di spesa sono pochi nessun problema, quando cominciano ad
essere 7/8 la lettura del grafico diventa difficile perchè il grafico risiede in una sola pagina e
le barre, i valori e le legende si avvicinano sovrapponendosi. Quando, come nel mio caso, i tipi di
spesa sono una ventina non si capisce più niente perchè i valori del grafico sono scritti in
piccolissimo e sono completamente sovrapposti. E' possibile fare in modo che il grafico venga
visualizzato su più pagine e ogni pagina contenga sono un numero limitato di barre ?
Grazie a tutti
Stay alive !
Pio Pio (utente newbe)
Win XP & Office 2000
www.ticom.it/tennisbuscate


title: doppia ricerca con casella combinata

author: Fabrizio

text:
Ragazzi scusate la domanda forse un pò banale ma ho questo problema:
Sto sviluppando un database per la gestione di articoli di magazzino
ora ho creato una maschera Fornitori e su questa si poggia una
sottomaschera da me chiamata SubListino. Collegata con i campi master e
secondario ID_Aricolo.
per esempio all'ID_Articolo 101 mi corrisponde un nome Fornitore Pinco.
ecc ecc
ed la mia sottomaschera SubListino mi fa vedere tutti gli articoli dell
Fornitore Pinco.
ora quando faccio un'ordine merce ho creato una casella combinata la
quale trae origini dati dalla tabellla listino ,
per facilitare la ricerca di un determinato tipo di articolo la mia
casella combinata mi permette di selezionare solo l'ID_Articolo
io vorrei che la  mia casella combinata mi permettesse di selezionare
prima L'idArticolo e successivamente ance la descrizione dell'articolo.
per esempio selezione da casella combinata
ID_Articolo    descrizione
101           nastro adesivo.
Grazie in aticipo


title: doppia ricerca con casella combinata

author: Fabio

text:
Ciao
nella casella combinata puoi visualizzare più di una colonna se ti
aggrada, così vedi anche la descrizione dell'articolo.
Ciao
Fabio


title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro wrote:
> DoCmd.RunSQL "DELETE * FROM Nometabella"
>
> in questo modo, riesco a svuotare le tabelle, ma una alla volta ..
> per poterle eliminare tutte in un solo click?
Dim db As DAO.Database
Dim i As Integer
Set db = CurrentDb
For i = db.TableDefs.Count - 1 To 0 Step -1
    db.Execute "DELETE FROM " & db.TableDefs(i).Name
Next i
Ma sei molto prudente con un tale codice, Cataldo! ;-)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> DoCmd.RunSQL "DELETE * FROM Nometabella"
> in questo modo, riesco a svuotare le tabelle, ma una alla volta ..
> per poterle eliminare tutte in un solo click?
> Ciao
Forse 3d dimenticato..:-))
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/87d962cbee27fb61/589801ea368d3f72?lnk=gst&q=svuotare+tutte+le+tabelle#589801ea368d3f72
Ciao
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Re: Svuotare tutte le tabelle del db

text:
Karl Donaubauer wrote:
> Cataldo Formaro wrote:
>> DoCmd.RunSQL "DELETE * FROM Nometabella"
>>
>> in questo modo, riesco a svuotare le tabelle, ma una alla volta ..
>> per poterle eliminare tutte in un solo click?
>
> Dim db As DAO.Database
> Dim i As Integer
>
> Set db = CurrentDb
>
> For i = db.TableDefs.Count - 1 To 0 Step -1
>    db.Execute "DELETE FROM " & db.TableDefs(i).Name
> Next i
>
> Ma sei molto prudente con un tale codice, Cataldo! ;-)
Ahh, sono io che è troppo prudente quando si tratta di cancellare
qualcosa. Certo che puoi meglio usare un semplice ciclo sui tabledef
e con l'esclusione delle tabelle di sistema come scritto da AntoGal
nel thread citato da Salvino.
--
cu



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> "sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
> news:gms5qi$l38$1...@news.newsland.it...

> Carissimo sv,
> senza guardare ho capito a cosa ti riferisci, un vecchio mio tread, ma
> allora parlavo di svuotare una sola tb, mi pare... cmq me lo rivedo.
> Ciao
Ti quoto parte della risposta di Antogal:
 'svuota tutte le tabelle, tranne quelle di sistema
 For Each tdf In CurrentDb.TableDefs
  If (tdf.Attributes And dbSystemObject) = False And (tdf.Attributes And
dbHiddenObject) = False Then
   DoCmd.RunSQL "DELETE * FROM " & tdf.Name
  End If
 Next tdf



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro wrote:
> "sv" ha scritto:
>>
>> Ti quoto parte della risposta di Antogal:
>>
>> 'svuota tutte le tabelle, tranne quelle di sistema
>> For Each tdf In CurrentDb.TableDefs
>>  If (tdf.Attributes And dbSystemObject) = False And (tdf.Attributes
>> And dbHiddenObject) = False Then
>>   DoCmd.RunSQL "DELETE * FROM " & tdf.Name
>>  End If
>> Next tdf
>> ...
> ho visto,
> mi restituisce errore di compilazione, variabile non definita.
Come prima riga manca:
Dim tdf As DAO.Tabledef
--
HTH



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> "sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
> news:gms71c$qc3$1...@news.newsland.it...

> ho visto,
> mi restituisce errore di compilazione, variabile non definita.
Cosa? tdf?
Allora poni nei Riferimenti DAO
Sotto l'evento click di un pulsante metti:
Dim tdf As TableDef



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> "Cataldo Formaro" <
formaro...@alice.it
> ha scritto nel messaggio
> news:4991b47c$0$1128$4faf...@reader1.news.tin.it...
> > [CUT]
> > Alla fine ho cosi scritto:
> > ---
> > Dim tda As DAO.TableDef
> >        For Each tda In CurrentDb.TableDefs
> >        If (tda.Attributes And dbSystemObject) = False And (tda.Attributes
> > And dbHiddenObject) = False Then
> >        DoCmd.RunSQL "DELETE * FROM " & tda.Name
> >        End If
> >            Next tda
> > -----
> > tutto ben funzionante!!
> > Grazie ad entrambi!
> >
> > --
> > Cataldo Formaro
> Anche se pare tutto funzionare bene, alla fine esce sempre il problemino; ci
> sono due tabelle che non debbo svuotare: Tb_Documenti e tb_Tipo_Documenti
> è possibile escludere solo queste due nell'esecuzione del codice?
Utilizza tda.Name:
 Dim tda As DAO.TableDef
 For Each tda In CurrentDb.TableDefs
 If (tda.Attributes And dbSystemObject) = False _
 And (tda.Attributes And dbHiddenObject) = False _
 And tda.Name <> "Tb_Documenti" And tda.Name <> "tb_Tipo_Documenti" Then
 DoCmd.RunSQL "DELETE * FROM " & tda.Name
 End If
 Next tda



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> "sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
> news:gmts3k$9u5$1...@news.newsland.it...

> Ciao sv,
> ho cosi modificato il codice e continua a svuotarle tutte :-((
L'ho testatato e a me funziona. Mettile allora nascoste.



title: Re: Svuotare tutte le tabelle del db

text:
Cataldo Formaro ha scritto:
> "sv" <
salvi...@accessgroup.it
> ha scritto nel messaggio
> news:gmtvuq$n6t$1...@news.newsland.it...

> lo fa ugualmente e mo non trovo piu le tabelle ..
> in A2007 come si fa a rivederle!?!?!?
> (cmq, tranquillo ho la copia del be)
A2007?
Ho inserito il demo in AccessGroup sezione VBA.



title: inserimento immagini in un campo di una tabella

author: Orlando

text:
ciao a tutti!!
Io ho provato a realizzare un database con access ,sono riuscito a creare 2
tabelle parle relazionare ed ho creato una maschera ,sono riuscito ad
inserire in un campo di una tabella (oggetto ole) un documento word
ho provato in egual modo ad inserire anche file immagine jpeg con scarsi
risultati poichč dopo diversi accessi al database non me le visualizza
...volevo capire quale era la procedura corretta per inserire jpeg
all'interno del database .
GRAZIE!!!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: VT @ home

text:
Il Sat, 11 Aug 2007 22:19:52 GMT,
mic...@alice.it
 (Orlando) ha
scritto:

www.sitocomune.com
Sez. General
FAQ:
6.13
6.75
6.93
6.96
6.125
6.160
6.161
6.162
6.197
6.223


author: Sergio MAZZA

text:
Orlando wrote:
> ciao a tutti!!
> Io ho provato a realizzare un database con access ,sono riuscito a
> creare 2 tabelle parle relazionare ed ho creato una maschera ,sono
> riuscito ad inserire in un campo di una tabella (oggetto ole) un
> documento word
Ahi! Male...
> ho provato in egual modo ad inserire anche file immagine jpeg con
> scarsi risultati poichč dopo diversi accessi al database non me le
> visualizza ...volevo capire quale era la procedura corretta per
> inserire jpeg all'interno del database .
Ahi! Malissimo!
> GRAZIE!!!
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
Segui l'estrazione del lotto di VT...
Ciao.
--
Sergio MAZZA


text:

> Grazie per l'aiuto!!!!



title: le tabelle collegate si aggiornano ?

author: Gabriele

text:
In un MDB esistono tabelle collegate , che sono presenti in altri MDB.
Se io sposto fisicamente questi altri file MDB in un path diverso e li
modifico , tali modifiche verranno recepite anche dalle tabelle collegate ?
Grazie


title: le tabelle collegate si aggiornano ?

author: Cinzia

text:
"Gabriele" <arre> ha scritto nel messaggio
news:468940af$0$37204$4faf...@reader3.news.tin.it...

Ciao Gabriele,
se tu sposti gli MDB collegati in un altro percorso e li modifichi, il
db che conteneva i collegamenti non troverà più il database collegato
e quindi non solo non vedrà le modifiche ma non vedrà nemmeno i
dati... a questo punto sarai costretto a rifare il collegamento ai db
modificati e spostati ed in questo modo rivedrai anche le modifiche.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
---------------------------------------->


title: le tabelle collegate si aggiornano ?

text:
> Ciao Gabriele,
> se tu sposti gli MDB collegati in un altro percorso e li modifichi, il db
> che conteneva i collegamenti non troverà più il database collegato e
> quindi non solo non vedrà le modifiche ma non vedrà nemmeno i dati...
però le query e i report vengono creati ugualmente ( con i dati vecchi ) ,
forse perchè le tabelle
collegate sono comunque presenti nel file MDB rimasto orfano .
Come si spiega sennò il fatto che riesco a lanciare la query e il report
anche se il file MDB è orfano ?
ciao


title: le tabelle collegate si aggiornano ?

text:
"Gabriele" <q> ha scritto nel messaggio
news:4689763b$0$4786$4faf...@reader4.news.tin.it...
>> Ciao Gabriele,
>> se tu sposti gli MDB collegati in un altro percorso e li modifichi,
>> il db che conteneva i collegamenti non troverà più il database
>> collegato e quindi non solo non vedrà le modifiche ma non vedrà
>> nemmeno i dati...
>
> però le query e i report vengono creati ugualmente ( con i dati
> vecchi ) , forse perchè le tabelle
> collegate sono comunque presenti nel file MDB rimasto orfano .
Se sono collegate non sono nell'MDB, per esere nell'MDB devono essere
importate
> Come si spiega sennò il fatto che riesco a lanciare la query e il
> report anche se il file MDB è orfano ?
Non sarà che l'hai copiato e non spostato prima di modificarlo?
Controlla in Strumenti - Utilità Database  - Gestione tabelle
collegate   il percorso a cui puntano i collegamenti
>
> ciao



title: le tabelle collegate si aggiornano ?

text:
> Non sarà che l'hai copiato e non spostato prima di modificarlo?
>
> Controlla in Strumenti - Utilità Database  - Gestione tabelle collegate
> il percorso a cui puntano i collegamenti
>
 in effetti ho spostato il file con le tabelle collegate in un'altra
cartella  , ma i file con le tabelle di origine erano sempre al loro posto !
Grazie


title: Date progressive bis

author: Nexus

text:
Salve a tutti,
in un post precedente ho chiesto come fare affichè in una casella di testo
di una maschera compaiano automaticamente delle date progressive
(modificabili) in modo da non doverle digitare.
Il suggerimento che mi è stato dato è:
Me.Data.DefaultValue= "#" & DateAdd("d", 1, Me.Data.Value) & "#" nella
procedura Before_Update
Purtroppo dopo aver testato questa soluzione ho riscontrato che funziona
solo per il record successivo a quello per il quale si inseriscono i dati.
Ad esempio se la data di partenza è 15/05/2000 quella del record che segue è
(correttamente) 16/05/2000 ma quella del record successivo a questo rimane
16/05/2000 al posto di aggiornarsi in 17/05/2000.
Penso che dipenda dal fatto che il valore di Me.Data.Value rimane 15/05/2000
e quindi l'evento Before_Update aggiunge 1 giorno a questa data per ogni
nuovo record creato.
Ho provato a definire una variabile globale (i as integer) modificando la
procedura Before_Update in:
i=i+1
Me.Data.DefaultValue= "#" & DateAdd("d", i, Me.Data.Value) & "#"
ma non funziona. Come posso risolvere la questione?
Grazie.
Nexus.


title: Date progressive bis

author: Thierry Rega

text:
Nexus <Nex...@hotmail.com_nospam> wrote in message
wbjU4.37704$F46.4...@news.infostrada.it...

Se ho capito bene quando metti questo codice nell'evento Before_Update, la
routine, giustamente ti riazzera le variabili dichiarate, e quindi il tuo
i=i+1 ritornerà sempre alla prime volta, cioè: 1=0+1.
Quindi ipoteticamente visto che è vero (non ho verificato di persona) che
non c'è ricorsività nella impostazione del .DefaultValue, sembra voler dire
che manca un aggiornamento in .DefaultValue o .Value. Anche lì non ho
verificato il perché della mancanza di aggiornamento, ma a rigor di logica
per garantirsi una ricorsività sicura è meglio utilizzare la stessissima
variabile dalle due parti dell'uguale, e cioè che al posto di .Value provi
con .DefaultValue.
Se non dovesse funzionare, allora basta rendere pubblica o statica la
variabile i. Non è il massimo dell'eleganza ma almeno funziona di sicuro.
Nel caso di i è meglio renderla statica se no se usi i altrove, ti ritrovi
con un macello!
Ciao
Thierry


title: Codice a barre

author: Marco

text:
Salve a tutti, sto costruendo un programma in Access per la gestione di un
magazzino basata sui codici a barre. Per la lettura non č un problema
utilizzando l'emulazione tastiera ma   :-(   per stampare i codici a barre
da Access? Qualcuno sa come si fa?
Grazie, ciao Marco


title: Codice a barre

author: Roberto da casa

text:
"Marco" <
cosmos...@virgilio.it
> ha scritto nel messaggio
news:HZUt9.28768$aL4.8...@news1.tin.it...
> Salve a tutti, sto costruendo un programma in Access per la gestione di un
> magazzino basata sui codici a barre. Per la lettura non è un problema
> utilizzando l'emulazione tastiera ma   :-(   per stampare i codici a barre
> da Access? Qualcuno sa come si fa?
>
> Grazie, ciao Marco
Se ne parla in continuazione di questo problema sul NG; ad esempio dai
un'occhiata al thread aperto il 27/10/2002 alle ore 7:21 da Emyr.
Comunque se torni indietro trovi molti altri thread.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Contatore più complesso del solito

author: Andy

text:
Il mio problema consiste nel creare un campo contatore tipo "Numerazione
crescente per fatture ed altro" tratto dal sito comune ma con una variante
per poterlo utilizzare in una maschera continua e con la condizione di
riazzerarsi a seconda del tipo di dato selezionato.
Pongo un esempio per essere più chiaro:
Tabella1 Campi:
               MioContatore
               Fornitori
               Ordini
Maschera1 con relativi campi come Tabella1
La funzione dovrebbe darmi un MioContatore tipo Anno/NumerazioneCrescente
(03/0001) e fin qui tutto facile ma il difficile, ovviamente per me, risulta
dover fare in modo che il contatore si riazzeri a 1 ad ogni fornitore
diverso ed ovviamente si riazzeri ogni inizio del nuovo anno, il tutto in
una maschera continua.
Vi ringrazio per l'aiuto che potrete darmi.
Fino ad ora solo leggendo i vostri messaggi ho risolto brillantemente molte
problematiche dei db di access.
--------------------------------
Inviato via
http://usenet.libero.it


title: Contatore più complesso del solito

author: Sib

text:
"Andy" <
and...@tiscali.it
> ha scritto nel messaggio
> Il mio problema consiste nel creare un campo contatore tipo "Numerazione
> crescente per fatture ed altro" tratto dal sito comune ma con una variante
> per poterlo utilizzare in una maschera continua e con la condizione di
> riazzerarsi a seconda del tipo di dato selezionato.
cut
Per farlo in maschere continue, devi valorizzare il campo da codice.
per azzerare in funzione del fornitore basta che ad ogni fornitore assegni
una lettera che poi userai come marcatore
A03/00001    -    fornitore 1
B03/00001    -    Fornitore 2
ecc.
Sib


title: Contatore più complesso del solito

text:

>Grazie per la risposta ma vi sono due piccoli particolari:
  1 - come si valorizza un campo in Vb (sono naturalmente novello in
programmazione).
  2 - Non capisco come posso marcare dei fornitori che possono variare nel
tempo.
  Ho trovato una funzione in Vb (Automazione contatore): > > Private Sub
Form_Current()
> > If Not IsNull(Forms!Maschera1!MioContatore) Then
> > Me!MioContatore.DefaultValue = DCount("MioContatore", _
> > "Tabella1", "Fornitori=" & Forms!Maschera1!Fornitori) + 1
> > End If
> > End Sub
    Questa funzione crea una numerazione crescente per ogni fornitore ma non si
azzera all'inizio di ogni anno come posso fare ad ottenere ciò?
Scusate ma come già detto non sono troppo pratico di Vb.
Andy



title: Utilizzo dell'istruzione Select

author: Bobbygol

text:
Ho recuperato una piccola procedura in Access, e la sto utilizzando per
imparare a capore ed utilizzare il codice VBA.
In particolare mi interessano le istruzioni che mi permettono di utilizzare
l'istruzione SELECT per recuperare informazioni dalle tabelle in funzione di
parametri di maschera.
Ho provato quindi a 'copiare' l'istruzione che mi permette di testare una
password: ho una tabella con user e password che ho chiamato utenti e ho
creato una funzione che testi l'esistenza dello user e la correttezza della
password digitata.
All'interno di questa function ho scritto le istruzioni
    Dim rs As New ADODB.Recordset
    Dim sqlQuery As String
    On Error GoTo Err_Login
    sqlQuery = "SELECT IdUtente, Password FROM Utenti"
    rs.Open sqlQuery, CurrentProject.Connection, adOpenForwardOnly
perň quando cerco di eseguirla mi viene visualizzato un errore "Impossibile
trovare il metodo o il membro di dati"
Temo di non avere scritto correttamente le istruzioni per creare il
Recordset: in effetti la procedura dalla quale copio ha le tabelle su
sqlServer mentre il opero con tabelle in access.
E' cosě o sono fuori strada?
Potete darmi una mano a capire come devo operare?
Grazie
***mauro


title: Utilizzo dell'istruzione Select

text:
"Bobbygol" <
mauro.cinacch...@virgilio.it
> ha scritto nel
messaggio news:Zn81c.52421$gk.22...@news3.tin.it...

Hai provato a creare una nuova connection invece di utilizzare:
CurrentProject.Connection?
Non sarebbe piů semplice l'utilizzo della funzione Dlookup?
Ciao.
--
Sergio MAZZA


title: Utilizzo dell'istruzione Select

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c246ms$li$1...@canarie.caspur.it...

Oh oh..... non so mica come si fa!!!
Non č che posteresti un esempio, cosě poi provo e cerco di capire?
Grazie
> Ciao.
> Sergio MAZZA
>
Ciao e grazie
***mauro


title: Utilizzo dell'istruzione Select

text:
"Bobbygol" <
mauro.cinacch...@virgilio.it
> ha scritto nel
messaggio news:tBq1c.56437$gk.23...@news3.tin.it...
>
> Oh oh..... non so mica come si fa!!!
> Non č che posteresti un esempio, cosě poi provo e cerco di capire?
> Grazie
>
> > Ciao.
> > Sergio MAZZA
> >
> Ciao e grazie
> ***mauro
>
Prova con:
Dim rs As New ADODB.Recordset
Dim sqlQuery As String
Dim conn as string
On Error GoTo Err_Login
conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=momeMDB.mdb"
sqlQuery = "SELECT IdUtente, Password FROM Utenti"
rs.Open sqlQuery, conn, adOpenForwardOnly
Ciao.
--
Sergio MAZZA


title: Utilizzo dell'istruzione Select

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c271h9$oi0$1...@canarie.caspur.it...
> "Bobbygol" <
mauro.cinacch...@virgilio.it
> ha scritto nel
> messaggio news:tBq1c.56437$gk.23...@news3.tin.it...
> >
> > Oh oh..... non so mica come si fa!!!
> > Non è che posteresti un esempio, così poi provo e cerco di capire?
> > Grazie
> >
> > > Ciao.
> > > Sergio MAZZA
> > >
> > Ciao e grazie
> > ***mauro
> >
>
> Prova con:
> Dim rs As New ADODB.Recordset
> Dim sqlQuery As String
> Dim conn as string
>
> On Error GoTo Err_Login
> conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=momeMDB.mdb"
> sqlQuery = "SELECT IdUtente, Password FROM Utenti"
> rs.Open sqlQuery, conn, adOpenForwardOnly
>
>
> Ciao.
>
> --
> Sergio MAZZA
>
Grazie 1000 della gentilezza.
Adesso provo.
***mauro


title: "Oggetto FIELDS non valido o non impostato"

text:
Sapete dirmi che c'è di sbagliato in questo codice?
    Dim TBL As dao.TableDef
    Dim FLD As dao.Field
    Set TBL = CurrentDb.TableDefs("tAltriFile")
    For Each FLD In TBL.Fields
nell'ultima istruzione compare l'errore in oggetto.
La libreria DAO è presente fra i riferimenti del db.
Grazie a tutti.
Riccardo Baldinotti


text:

Chiedo scusa, quella parolina ado. è un refuso.
Riccardo Baldinotti


author: Marco Pizzamiglio

text:
bari...@gmail.com
 ha scritto:


Dove vedi ado. ? Io vedo solo DAO. Mi pare strano che i due dao. nelle Dim
siano in minuscolo, come se mancasse il riferimento alla libreria, di
solito vengono convertiti in automatico in maiuscolo.
Per il resto il codice mi sembra ok.
Torna a verificare i riferimenti, magari togli il DAO, compatta e poi
rimettilo.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: sv

text:
bari...@gmail.com
 ha scritto:
> On 2 Feb, 16:07,
barimo...@gmail.com
 wrote:
> > Sapete dirmi che c'č di sbagliato in questo codice?
> >
> >     Dim TBL As dao.TableDef
> >     Dim FLD As dao.Field
> >     Set TBL = CurrentDb.TableDefs("tAltriFile")
> >     For Each FLD In TBL.Fields
> >
> > nell'ultima istruzione compare l'errore in oggetto.
> > La libreria DAO č presente fra i riferimenti del db.
> > Grazie a tutti.
> > Riccardo Baldinotti
> Chiedo scusa, quella parolina ado. č un refuso.
> Riccardo Baldinotti
ADO non si legge: se mai DAO. Il riferimento alla libreria ci deve essere
e deve essere posto piů in alto possibile. Inoltre anche se il codice č
corretto lo scriverei cosě:
Dim db AS DAO.Database
Set db = CurrentDb
.
.
Set TBL = db.TableDefs("tAltriFile")
.
.
.
--
sv



text:
On 2 Feb, 17:27,
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:
>
barimo...@gmail.com
 ha scritto:
>
> > On 2 Feb, 16:07,
barimo...@gmail.com
 wrote:
> > > Sapete dirmi che c'è di sbagliato in questo codice?
>
> > >     Dim TBL As dao.TableDef
> > >     Dim FLD As dao.Field
> > >     Set TBL = CurrentDb.TableDefs("tAltriFile")
> > >     For Each FLD In TBL.Fields
>
> > > nell'ultima istruzione compare l'errore in oggetto.
> > > La libreria DAO è presente fra i riferimenti del db.
> > > Grazie a tutti.
> > > Riccardo Baldinotti
> > Chiedo scusa, quella parolina ado. è un refuso.
> > Riccardo Baldinotti
>
> Dove vedi ado. ? Io vedo solo DAO. Mi pare strano che i due dao. nelle Dim
> siano in minuscolo, come se mancasse il riferimento alla libreria, di
> solito vengono convertiti in automatico in maiuscolo.
> Per il resto il codice mi sembra ok.
> Torna a verificare i riferimenti, magari togli il DAO, compatta e poi
> rimettilo.
> Ciao.
> -Marco-
Vero, altro refuso.
Uso A2007 e ho questi riferimenti:
Visual Basic for Applications
Microsoft Access 12.0 Object Library
Microsoft DAO 3.6 Object Library
OLE Automation
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft ADO Ext.6.0 for DDL and Security
Microsoft ActiveX Data Objects 6.0 Library
Ho tolto, compattato e rimesso, ma è sempre minuscolo, anche se,
quando aggiungo il punto, mi si apre la tendina con le voci pertinenti
e mi accetta sia TableDef che Field. La parolina FIELDS funziona
correttamente quando scorro campi di un recordset, forse farei prima
ad aprirne uno con una SELECT e scorrerlo, ma avevo voglia di provare
cose nuove.
Riccardo Baldinotti


text:
On 2 Feb, 17:27,
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:
>
barimo...@gmail.com
 ha scritto:

Miracolo! Aggiunte le magiche paroline, non ho più l'errore. E forse
non capirò mai perché... abitualmente scrivo CurrentDb e va bene.
Ora vorrei sapere dove sbaglio qui:
        If FLD.Type = dbBoolean Then
            If FLD.Value = 0 Then
ottenendo errore di run-time 3219, Operazione non valida. Scrivendo
False anziché 0 ho uguale risultato.
Riccardo Baldinotti


text:

> > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagli
 abusi ad
ab...@newsland.it
>
> Miracolo! Aggiunte le magiche paroline, non ho più l'errore. E forse
> non capirò mai perché... abitualmente scrivo CurrentDb e va bene.
>
> Ora vorrei sapere dove sbaglio qui:
>         If FLD.Type = dbBoolean Then
>             If FLD.Value = 0 Then
> ottenendo errore di run-time 3219, Operazione non valida. Scrivendo
> False anziché 0 ho uguale risultato.
> Riccardo Baldinotti- Nascondi testo citato
>
> - Mostra testo citato -
Vabbé, quest'ultima domanda dimostrava solo la mia confusione mentale.
Riassumento: aggiungo, come suggerito, le istruzioni
   Dim db AS DAO.Database
   Set db = CurrentDb
.
.
   Set TBL = db.TableDefs("tAltriFile")
e tutto funziona, anche se non ho capito la differenza.
Però, siccome quello che mi interessava era verificare il valore di un
campo Boolean, riporto qui la sub completa.
Private Sub sCopiaFile(chisono)
    Dim FLD As Field
    Set RST = CurrentDb.OpenRecordset("SELECT * FROM tAltriFile WHERE
tAltriFile.nomehost = '" & chisono & "';")
    For Each FLD In RST.Fields
        If FLD.Type = dbBoolean Then
            If FLD.Value = False Then
                FileCopy "T:\pubblica\rick\sw\personale\" & FLD.Name &
".xls", "D:\sw\personale\" & FLD.Name & ".xls"
                CurrentDb.Execute "UPDATE tAltriFile SET " & FLD.Name
& " = -1 WHERE tAltriFile.nomehost = '" & chisono & "';"
            End If
        End If
    Next
End Sub
La variabile "chisono" è passata dalla routine che accetta la parola
d'accesso dell'utente; la tabella tAltriFile contiene un campo testo
col valore di "chisono", e una serie di campi boolean che per ogni
utente indicano se ha già caricato l'ultima versione di una serie di
fogli Excel; se il campo che si chiama FLD.Name è a zero, si copia il
file corrispondente da una cartella di rete al pc dell'utente,
dopodiché si mette a "Vero" il valore corrispondente.
Lo scopo è di avere una serie di file già pronti per l'esportazione di
dati da Access ad Excel, senza dovere scrivere tutte le istruzioni per
modificare larghezza di colonne eccetera.



title: OT: Cerchiamo addetto commerciale (veneto)

author: Vulcano Team

text:
Vulcano Team s.r.l. (
www.vulcanoteam.it
) è una società di software
specializzata nell'informatica per negozi ed attività commerciali, con sedi
a Belluno e Padova.
Operiamo a livello nazionale con una rete di concessionari e rivenditori.
Per l'assistenza e l'espansione di questa rete
siamo alla ricerca di un (neo)laureato
al quale affidare l'incarico di responsabile commerciale e marketing.
Il candidato ideale ha buone conoscenze di informatica, ha spiccate
attitudini commerciali, è disponibile a trasferte su tutto il territorio
nazionale, ha una bella presenza e facilità di rapporti interpersonali.
Offriamo un contratto nazionale più premi, un periodo di affiancamento e di
formazione, auto aziendale e altri benefit, un ambiente di lavoro giovane e
stimolante.
Gli interessati sono pregati di inviare il proprio curriculum vitae a:
in...@vulcanoteam.it
Ci scusiamo per l'eventuale disturbo arrecato ai frequentatori di questo NG.
Vulcano Team software SRL | Via Montegrappa 448 | 32100 BELLUNO (BL)


title: RAGGIUNGERE UN CONTROLLO IN UNA MASCHERA

author: FANCIULLO

text:
Salve sono Fanciullo,
perché non è possibile impostare come criteri di una casella combinata
un riferimento a un controllo di una stessa maschera dove si trova la
casella combinata?
riporto la stringa SQL:


author: ALESSANDRO Baraldi

text:
"FANCIULLO" <
vito...@libero.it
> ha scritto nel messaggio
news:5r9vh.9595$422.1...@twister2.libero.it...

Dov'è....?
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


author: VedoTondo

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:epj8v0$bi$1...@aioe.org...
> "FANCIULLO" <
vito...@libero.it
> ha scritto nel messaggio
> news:5r9vh.9595$422.1...@twister2.libero.it...
>> Salve sono Fanciullo,
>> perché non è possibile impostare come criteri di una casella combinata
>> un riferimento a un controllo di una stessa maschera dove si trova la
>> casella combinata?
>>
>> riporto la stringa SQL:
>
> Dov'è....?
Suacombobox.visible=false
:-)
--
Saluti @ndrea
Access 2003 - Windows XP


title: per ufficio - codice fiscale

author: lulor

text:
in una tabella inserisco diversi campi (necessari per creare un codice
fiscale) access dovrebbe generare in un campo della stessa tabella il codice
fiscale
come si fà


title: per ufficio - codice fiscale

author: Graziano Franchi (Dal Portatile)

text:
Il Computer č IMBECILLE mi spiego meglio:
E' INTELLIGENTE QUANTO E' INTELLIGENTE IL PROGRAMMATORE.
Quello che sa fare č fare i conti velocissimi.
Comunque per la tua risposta una volta che hai inserito tutti i dati devi
dirgli come si fa a gererare il codice fiscale.
Prova a cercare in questo indirizzo
http://www.sitocomune.com/
Saluti


title: Access 97 su Windows 2000

author: Roberto B.

text:
Stò provando ad installare Access 97 su Windows 2000 Pro. Me lo installa
senza problemi....word ed excel partono access invece mi dà il seguente
errore:
"Impossibile avviare Microsoft access. Non è stata concessa la licenza d'uso
su questo computer"
Qualcuno saprebbe darmi un consiglio?
Ciao
Roberto


title: Access 97 su Windows 2000

author: Jonathan Canova

text:
"Roberto B." <
r.battist...@tiscalinet.it
> ha scritto nel messaggio
news:9qfqjp$np8$1...@nreada.inwind.it...
> Stò provando ad installare Access 97 su Windows 2000 Pro. Me lo installa
> senza problemi....word ed excel partono access invece mi dà il seguente
> errore:
> "Impossibile avviare Microsoft access. Non è stata concessa la licenza
d'uso
> su questo computer"
www.aladinoinformatica.com
 , area download, terz'ultimo file.


title: Access 97 su Windows 2000

author: Sib dall'ufficio

text:
"Roberto B." <
r.battist...@tiscalinet.it
> ha scritto nel messaggio
> Stò provando ad installare Access 97 su Windows 2000 Pro. Me lo installa
> senza problemi....word ed excel partono access invece mi dà il seguente
> errore:
> "Impossibile avviare Microsoft access. Non è stata concessa la licenza
d'uso
> su questo computer"
Sei sicuro che non c'era gia' installato O2000 o qualche suo pezzo?
Sib


title: Access 97 su Windows 2000

author: luigi Onofrio

text:
"Sib dall'ufficio" <cerrise...@SPAMtiscalinet.it> ha scritto nel
messaggio news:9qgk9j$2tp$1...@serv1.iunet.it...

> io mi sono rotto i coglioni a provare di installarlo dopo aver eliminato
office 2000 e alla fine, dopo vari vani tentativi, ho cancellato windows e
l'ho reinstallato d'accapo insieme ad office 97.
Alla faccia della MICROSOFT!!!!!


title: Access 97 su Windows 2000

text:
"luigi Onofrio" <
onofri...@inwind.it
> ha scritto nel messaggio
news:9qi1mn$705$1...@nreada.inwind.it...

Se invece di romperti i "santissimi" a reinstallare Windows 2000 ed Office
97 avessi cercato sui post precedenti del NG avresti risolto in pochi
minuti; è una nota bug di A97 documentata anche dalla Microsoft che ti dice
come avresti risolto semplicemente rinominando un file prima e dopo
l'installazione di A97.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Access 97 su Windows 2000

author: Sib dal portatile

text:
"luigi Onofrio" <
onofri...@inwind.it
> ha scritto nel
CUT
> io mi sono rotto i coglioni a provare di installarlo dopo aver eliminato
> office 2000 e alla fine, dopo vari vani tentativi, ho cancellato windows e
> l'ho reinstallato d'accapo insieme ad office 97.
> Alla faccia della MICROSOFT!!!!!
Perdonami, ma piu' che altro alla faccia tua.
Quando e' capitato a me, grazie all'aiuto del ng, ho risolto in 10 minuti
con le istruzioni che ti ho dato.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Addrecord con campi fissi

author: Albe

text:
Ciao,
innanzitutto complimenti a questo ng che è una vera e propria miniera
di informazioni.
ho una tabella account (tblaccount) e una tabella clienti (tblclienti)
in relazione tra loro tramite ID contatore della tblaccount. Ho creato
una maschera con  casella combinata sulla tblaccount (txtcognome) ed un
bottone,  al cui  evento click associato fa partire  un  maschera  dove
vengono mostrati i clienti accosiati all account scelto.
Il mio problema è questo: quando vado sul bottone addrecord che ho
creato, mi compaiono tutti i campi vuoti, mente io vorrei che il campo
che si riferisce a txtcognome rimanesse ancorato alla selezione
effetuata nel combobox, in maniera tale da non dover ridigitare
l'account per il quale si vuole inserire un nuovo cliente. Ho provato a
bypassare il problema creando un'altra combobox sul campo txtcognome
(quindi invece che digitarlo, si tratterebbe di sceglierlo dal menu) ma
è una soluzione che mi lascia perplesso.
Qualcunomi saprebbe cortesemente indicare qualche dritta?
Grazie mille in anticipo
Alberto


title: Addrecord con campi fissi

author: Cinzia

text:

Ciao Alberto,
se ho capito bene, dovresti sull'evento beforeInsert della maschera con il
bottone Addrecord  assegnare al campo cognome, quello già presente nella
maschera iniziale, qualcosa del tipo:
me.txtCognome = Forms![TuaFormIniziale]!cmbCognome
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


title: Addrecord con campi fissi

text:
Cinzia ha scritto:


Ciao Cinzia,
grazie per la risposta, ma purtroppo non funziona e non capisco dove
commetto l errore...
inserisco la routine che mi hai consigliato tu (provando anche mille
altre varianti)
Private Sub form_BeforeInsert(Cancel As Integer)
Me.txtCognome = Forms![frmMAIN]!combo0
End Sub
dove combo0 è il nome della combo nella maschera frmMAIN
ma nulla. Scusami se ti faccio perdere tempo mi sto avvicinando ora
alla gestione "avanzata"di access ed è possibile che commetta errori
grossolani


title: Addrecord con campi fissi

text:
Cinzia ha scritto:


Ciao Cinzia,
grazie per la risposta, ma purtroppo non funziona e non capisco dove
commetto l errore...
inserisco la routine che mi hai consigliato tu (provando anche mille
altre varianti)
Private Sub form_BeforeInsert(Cancel As Integer)
Me.txtCognome = Forms![frmMAIN]!combo0
End Sub
dove combo0 è il nome della combo nella maschera frmMAIN
ma nulla. Scusami se ti faccio perdere tempo mi sto avvicinando ora
alla gestione "avanzata"di access ed è possibile che commetta errori
grossolani
Grazie mille
Alberto


title: Addrecord con campi fissi

text:

Ciao Alberto,
non funziona non mi aiuta molto ....che errore ti da? non ti da nessun
errore ma non fa quello che vuoi?
Tieni conto del fatto che l'evento BeforeInsert viene scatenato nel momento
in cui inizi a scrivere qualcosa nel nuovo record, per cui appena ti si
presenta la maschera vuota l'evento non è ancora scattato, scatterà appena
inizi a scirvere.
Devi poi anche tenere conto di come è fatta la combo se il valore della
combo è il cognome stesso o se invece è un ID e in modo analago il campo
txtCognome deve contenre proprio il cognome o un id? questo dipende da come
hai impostato le tabelle.



title: Addrecord con campi fissi

text:
Cinzia ha scritto:

Ciao Cinzia,
funziona, non sapevo che il beforeinsert scattasse con l inserimento
dati!
Grazie mille, sei stata gentiilissima
Alberto


title: Importo non a zero

author: Alfonso

text:
in una tabella che ho creato ho messo du campi :
1) ImportoD (numerico Precisione singola)
2) ImportoP (numerico Precisione singola)
dove ci passo dei normalissimi importi
il mio problema è nato quando ho dovuto fare una query di saldi su di questa
tabella.
Mi spiego:
Per scartare i totali con i saldi a zero, mi sono creato una query con un
campo calcolato in cui eseguo :
ImportoD-ImportoP a video mi come 0,00 appena clicco sopra mi viene fuori un
numero lunghissimo
per cui non me li scarta perche' per la query non è un campo a Zero.
come posso fare ????
Premetto che ho provato a usare Format, Tronca eccc. ma il risultato è
sempre lo stesso
doce sbaglio ????


title: Importo non a zero

author: Giorgio prx

text:
"Alfonso" <
losb...@breglia.com
> ha scritto nel messaggio
news:pCLF9.10884$qF1.4...@news2.tin.it...

Ciao Alfonso, non sbagli niente, è semplicemente il prezzo da pagare quando
si utilizzando i campi precisione singola o precisione doppia.
Visto che in questo caso non hai problemi di arrotondamento puoi  utilizzare
nella query la funzione Round([ImportoD]-[ImportoP];2) per testare i totali
con saldo a zero.
Ciao Giorgio.