author: Popi - TheBadHabits

text:
On 25 Giu, 18:46, "radicale.002" <
radicale....@gmail.com
> wrote:

Jack, questa potrebbe essere una soluzione (o, quantomeno, uno spunto
per idee ulteriori).
In un mdb ho due tabelle:
- Costruttori, anagrafica con i dati usuali di indirizzo ecc. ed un
codice Cage,
- MaterialiDiConsumo, con il codice del costruttore, la denominazione,
il partnumber, l'indicazione se il P/N e' reale o farlocco, ecc.
Per estrarre tutti i costruttori e, per ognuno, gli N materiali che
produce, in un documento word ho assegnato l'origine dati ad una query
(una banalissima "SELECT Cage FROM Costruttori;", giusto per testare
la cosa) memorizzata nel mdb.
Ho poi inserito un campo MERGEFIELD "Cage" nella prima riga ed un
campo DATABASE tramite il quale estraggo i dati collegati nella
tabella MaterialiDiConsumo.
Questo e' il contenuto (in formato testo) del documento che ho creato.
================BEGIN================
Questa è la pagina relativa al costruttore MERGEFIELD "Cage"
DATABASE  \d "T:\\Commesse\\999_RisorseDB\\DatiStandard.mdb" \c
"Provider=Microsoft.Jet.OLEDB.4.0;Password=\"\";User ID=Admin;Data
Source=T:\\Commesse\\999_RisorseDB\
\DatiStandard.mdb;Mode=Read;Extended Properties=\"\";Jet OLEDB:System
database=\"\";Jet OLEDB:Registry Path=\"\";Jet OLEDB:Database Password=
\"\";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet
OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk
Transactions=1;Jet OLEDB:New Database Password=\"\";Jet OLEDB:Create
System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't
Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica
Repair=False;Jet OLEDB:SFP=False" \s "SELECT IIf([PnReale]=True,
[MATPN],'') AS PN, MATDESC AS Denominazione, ICC FROM
`MaterialiDiConsumo` WHERE (Cage='MERGEFIELD "Cage"');" \h
=================END=================
Come puoi vedere, nella SELECT del campo DATABASE ho inserito
nuovamente il campo MERGEFIELD (fra apici, essendo un dato testuale).
Possibili miglioramenti: la query di partenza che seleziona i
Costruttori, potrebbe estrarre solo quei Cage per i quali esista
almeno un record nella MaterialiDiConsumo.
Just my 2 cents e, per questa volta, niente VBA.
Magari, pero', sui ng di word trovi gente che sia almeno un po'
preparata e che ti sa meglio indirizzare ;)
HTH
Popi


title: problema stampa unione word da access: tabella relazionata

author: Popi

text:
jack <
gian...@gmail.com
> ha scritto:

Paraparapï¿œ paraparapï¿œ parapparappappï¿œ chefiguraacciaaa.
Popi


title: assegnare valore tramite pulsante a una form in asp

text:
Salve e scusatemi per la domanda banalissima ma nn ci sto proprio arrivando
in una pagina asp ho un campo chiamato txtmessage, vorrei dare un pulsante che quando si clicca in questo txtmessage aggiunge  un valore , esempio txtmessage = txtmessate & "ciao" per capirci , ma mi sto incartando col pulsante e il comando . Qualcuno puo aiutarmi?


author: Alessandro Cara

text:
Il 19/07/2013 11.11,
loli...@gmail.com
 ha scritto:
> Salve e scusatemi per la domanda banalissima ma nn ci sto proprio arrivando
> in una pagina asp ho un campo chiamato txtmessage, vorrei dare un pulsante che quando si clicca in questo txtmessage aggiunge  un valore , esempio txtmessage = txtmessate & "ciao" per capirci , ma mi sto incartando col pulsante e il comando . Qualcuno puo aiutarmi?
>
< input .....
onclick="document.getElementById('idtextmessage').value='quellochetipare'">

bada e' javascript maiuscole e minuscole fanno differenza

--

ac (x=y-1)


title: DVD

author: bobbit

text:
Qual'è il formato dei file dei DVD?
Esiste un lettore free per leggerli?
Ciao, Bobbit


title: DVD

author: Roberto da casa

text:
"bobbit" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:oNLS5.15891$FV2.4...@news.infostrada.it...
> Qual'è il formato dei file dei DVD?
> Esiste un lettore free per leggerli?
>
> Ciao, Bobbit
>
>
Il DVD non è un tipo di file, è una periferica del PC così come un
masterizzatore, uno ZIP o un lettore di CD-ROM.
Un lettore di DVD, oltre a leggere dei normali CD-ROM e CD musicali, può
leggere supporti specifici contenenti dei file Movie Clip di grandi
dimensioni (filmati per intenderci).
Al momento che acquisti tale periferica, ti vengono forniti i driver per
gestirla, tra i quali un DVD player.
Per utilizzare il DVD player è necessario che il tuo PC sia dotato anche di
una buona scheda video (ti consiglio che non abbia meno di 16 MB di RAM) e
una buona scheda audio.
Per la registrazione dei dati è poco commerciabile ed ancora poco
affidabile.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: DVD

text:
Grazie!
>
>


title: DVD

text:
"bobbit" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:lLNS5.16398$FV2.4...@news.infostrada.it...
> Grazie!
> >
> >
>
>
Prego



title: DVD

text:
Esite un programma FREE per visualizzare i DVD?
Ciao Bobbit


title: DVD

author: Roberto dal portatile

text:
"bobbit" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:rPqT5.30454$FV2.9...@news.infostrada.it...
> Esite un programma FREE per visualizzare i DVD?
>
> Ciao Bobbit
>
>
Quando compri il lettore di DVD troverai a corredo tutto il software che ti
serve, oppure puoi collegarti al sito del fornitore per scaricarti i driver
che ti servono.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: DVD

text:
Roberto dal portatile <
r.ma...@libero.it
> wrote in message
dptT5.31300$FV2.9...@news.infostrada.it...

Purtroppo con la ATI non è così, il software si compra a parte.
Ciao, Bobbit


title: DVD

text:
"bobbit" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:vPuT5.31814$FV2.9...@news.infostrada.it...

> Purtroppo con la ATI non č cosě, il software si compra a parte.
>
> Ciao, Bobbit
>
>
Non so se le cose nell'ultimo anno sono cambiate, ma quando ho comprato la
mia scheda video (appunto una ATI 128 16MB) ho ricevuto in dotazione due Cd
della ATI: in uno c'č il driver della scheda e nell'altro il DVD Player.
Inoltre il rivenditore mi ha assicurato che potevo collegarmi con il sito
della ATI per scaricare gratuitamente gli aggiornamenti ai driver
(onestamente non l'ho mai fatto).



title: Mancanza di esperienza.

author: Mike Pritt

text:
Peccati di inesperienza.
Ho scritto un programma ma, per inesperienza, ho messo nello stesso file la
base dati ed il codice.
Nel tentativo di rimediare mi sono messo a fare le prove di "Collegamento";
ovvero, ho separato la base dati dal codice e tento di accedere alla prima
dal secondo file.
In alcuni casi la cosa mi è riuscita, ma ora mi sono imbattuto in problemi
ai quali non riesco a dare soluzione.
Nel proprietà "valore predefinito" di un campo di una form avevo scritto:
=DMax("IDCliente";"ANAGRAFICA")+1
Ora, la base dati l'ho spostata sul dektop:
c:\windows\desktop\Base_Dati
ma non so più come far puntare sulla tabella ANAGRAFICA della base dati.
Grazie a tutti coloro che sapranno/potranno darmi una mano.
Ciao a tutti, Mike.


title: Mancanza di esperienza.

author: All Eyez On me

text:

devi ri-aggiornare i collegamenti... o con l'apposita utility oppure:
cancelli da tabelle tutte le tabelle collegate, menu file,
caricadatiesterni, collega tabelle e richiami il tuo archivio sul desktop.
AEOM


title: Mancanza di esperienza.

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:ama0jv$dmn$1...@lacerta.tiscalinet.it...
>
>
> devi ri-aggiornare i collegamenti... o con l'apposita utility oppure:
>
> cancelli da tabelle tutte le tabelle collegate, menu file,
> caricadatiesterni, collega tabelle e richiami il tuo archivio sul desktop.
>
> AEOM
>
> devi ri-aggiornare i collegamenti... o con l'apposita utility
A quale utility ti riferisci?
> cancelli da tabelle tutte le tabelle collegate, menu file,
> caricadatiesterni, collega tabelle e richiami il tuo archivio sul desktop.
Si, la soluzione che mi hai proposto funzione. GRAZIE.
Hai, comunque, un'idea sul come sarebbe possibile modificare la formula
indicata nel primo post:
=DMax("IDCliente";"ANAGRAFICA")+1
Per far si che nella stessa compaia anche il percorso della tabella nella
base dati?
GRAZIE per il valido aiuto.
Ciao, Mike


title: Parametri di ricerca

author: Max

text:
Scusate se riposto, ma mi sto scervellando con sta roba
Devo ricercare
una dati in una tabella usando vari parametri (e fin qui gli
 esempi postati sono molti e funzionali),
 Quindi nella maschera1 ho i controlli per la ricerca che mi aprono una
 maschera a maschere continue con i record risultanti... e fin qui nessun
 problema
 Il problema č che o devo selezionare dei valori in tutti i controlli di
 ricerca (se ne lascio qualcuno vuoto non esegue la ricerca)
 Oppure i controlli sono tutti scollegati, ogni volta che ne seleziono uno
 gli altri vengono abbandonati:
 Per il primo caso ho usato una query con la stringa
 Like Nz([Forms]![Maschera1]![ControlloA]; "*")
 Like Nz([Forms]![Maschera1]![ControlloB]; "*")
 ecc.. (postato da Roberto il 20/07/01 alle 18.34)
 e su un bottone di comando ho cambiato recordsource alla maschera
 form.recordsource = "query1"
 Nel secondo caso
 Sull'evento Afterupdate  dei controlli di ricerca ho messo il
 seguente codice:
 es.:
 Private Sub Chirurgo_AfterUpdate()
     Dim strNuovoRecord As String
     strNuovoRecord = "SELECT IDRicovero, IDIntervento, DataInt, IDChirurgo
 FROM RicovInterv WHERE IDChirurgo =[forms]![SubfrmInterventi]![Chirurgo]"
     Me.RecordSource = strNuovoRecord
 Le soluzioni funzionano, ma non sono funzionali
 Io avrei bisogno che fosse possibile eseguire la ricerca su uno o piů campi
 (lasciandone al bisogno anche qualcuno vuoto)
 Come potrei fare?
 Grazie
Max


title: Parametri di ricerca

text:
"Max" <
borto...@tiscalinet.it
> ha scritto nel messaggio
news:9kb1g5$3ev1o$1...@ID-84832.news.dfncis.de...

Hai provato, nella WHERE della stringa SQL ad usare la funzione Like + la
funzione Nz?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Parametri di ricerca

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9kb3n7$1t0q$1...@stargate1.inet.it...
>
> "Max" <
borto...@tiscalinet.it
> ha scritto nel messaggio
> news:9kb1g5$3ev1o$1...@ID-84832.news.dfncis.de...
> > Scusate se riposto, ma mi sto scervellando con sta roba
> >
> > Devo ricercare
> > una dati in una tabella usando vari parametri (e fin qui gli
> >  esempi postati sono molti e funzionali),
> >  Quindi nella maschera1 ho i controlli per la ricerca che mi aprono una
> >  maschera a maschere continue con i record risultanti... e fin qui
nessun
> >  problema
> >  Il problema è che o devo selezionare dei valori in tutti i controlli di
> >  ricerca (se ne lascio qualcuno vuoto non esegue la ricerca)
> >  Oppure i controlli sono tutti scollegati, ogni volta che ne seleziono
uno
> >  gli altri vengono abbandonati:
> >
> >  Per il primo caso ho usato una query con la stringa
> >  Like Nz([Forms]![Maschera1]![ControlloA]; "*")
> >  Like Nz([Forms]![Maschera1]![ControlloB]; "*")
> >  ecc.. (postato da Roberto il 20/07/01 alle 18.34)
> >
> >  e su un bottone di comando ho cambiato recordsource alla maschera
> >  form.recordsource = "query1"
> >
[CUT]
> Hai provato, nella WHERE della stringa SQL ad usare la funzione Like + la
> funzione Nz?
>
> --
> Roberto
>
Infatti ho sperimentato meglio la tua soluzione con esito positivo
Il problema è che tra i vari parametri della query c'è anche un between tra
date:
SELECT RicovPatol.IDRicovero, RicovPatol.IDpatologie, RicovPatol.Descrizpat,
Ricoveri.DataRicovero
FROM Ricoveri INNER JOIN RicovPatol ON Ricoveri.IDRicovero =
RicovPatol.IDRicovero
WHERE (((RicovPatol.IDRicovero) Like
Nz([Forms]![Frmsearchpat]![ControlloB],"*")) AND ((RicovPatol.Descrizpat)
Like Nz([Forms]![Frmsearchpat]![ControlloA],"*")) AND
((Ricoveri.DataRicovero) Between [forms]![Frmsearchpat]![dataA] And
[forms]![Frmsearchpat]![dataB]));
Ho risolto preparando 2 query, la seconda senza il parametro between per le
date e sulla maschera sul click del pulsante che esegue la query ho usato il
seguente codice
if dataB >0 then form.recordasource = "query1"
else
form.recordsource = "query2"
end if
e sembra funzionare tutto
Come soluzione è sicuramente efficace, magari ce n'è qulacuna migliore....
Grazie
Max


title: Parametri di ricerca

text:
"Max" <
borto...@tiscalinet.it
> ha scritto nel messaggio
news:9kdia8$3vimu$1...@ID-84832.news.dfncis.de...
>
[CUT]
> Come soluzione è sicuramente efficace, magari ce n'è qulacuna migliore....
>
L'importante è che funzioni. ;-)
> Grazie
> Max



title: Formattazione con valori interi su una query abbastanza complessa

text:
buongiorno a tutti,
mi cospargo il capo di cenere e faccio penitenza per la mia ignoranza.
In una casella combinata il risultato di questa query:

SELECT Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, IIf([TotBUO]>0,(Nz([TotBUO])+Nz([TotTRANS])),"0") AS ConsumatoSAP, Nz([TotBUO])+Nz([TotORD])+Nz([TotTRANS]) AS ConsumatoTeorico, Nz([totaleribassato])-Nz([ConsumatoTeorico]) AS RimanenzaTEO, Nz([totaleribassato])-Nz([ConsumatoSAP]) AS RimanenzaSAP, Nz([ConsumatoSAP])+Nz([TotTRANS]) AS ConsumatoEFF, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Sum(NumerazioniRoberto.IMPORTOBuono) AS TotBUO, Sum(NumerazioniRoberto.IMPORTOOrdinativo) AS TotORD, Sum(NumerazioniRoberto.TRANSRDA) AS TotTRANS
FROM Ditte LEFT JOIN NumerazioniRoberto ON Ditte.ACCORDOQUADRO = NumerazioniRoberto.ACCORDOQUADRO
GROUP BY Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Ditte.contrattovalido
HAVING (((Ditte.contrattovalido) Like "attivo"))
ORDER BY Ditte.DITTA, Ditte.ACCORDOQUADRO;

ho impostato il formato di ogni campo possibile standard con 0 decimali tranne che per il sottostante "ConsumatoSAP" che non riesco a settare:
ConsumatoSAP: IIf([TotBUO]>0;(Nz([TotBUO])+Nz([TotTRANS]));"0")

Questo campo, per alcuni valori mi visualizza due, tre, quattro,otto decimali rendendo di fatto impossibile capirne qualcosa.
Qualcuno di buon cuore mi sa dire come "forzare" la formattazione di questo valore ?

grazie infinite


text:
un altra cosa che non capisco.

La query mi mostra i decimali solo sul campo "ConsumatoSAP"
La casella combinata che ha come origine controllo la query stessa, impostata a decimali = 0, per tutti i campi mi inserisce due o più decimali.

grazie infinite a chiunque potrà darmi aiuto.


author: Karl Donaubauer

text:
Salve,

ignazio.pilone ha scritto:
> mi cospargo il capo di cenere e faccio penitenza per la mia ignoranza.

Meritato, siccome di nuovo non sei preciso nella domanda. ;-)

> In una casella combinata il risultato di questa query:
>
> SELECT Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, IIf([TotBUO]>0,(Nz([TotBUO])+Nz([TotTRANS])),"0") AS ConsumatoSAP, Nz([TotBUO])+Nz([TotORD])+Nz([TotTRANS]) AS ConsumatoTeorico, Nz([totaleribassato])-Nz([ConsumatoTeorico]) AS RimanenzaTEO, Nz([totaleribassato])-Nz([ConsumatoSAP]) AS RimanenzaSAP, Nz([ConsumatoSAP])+Nz([TotTRANS]) AS ConsumatoEFF, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Sum(NumerazioniRoberto.IMPORTOBuono) AS TotBUO, Sum(NumerazioniRoberto.IMPORTOOrdinativo) AS TotORD, Sum(NumerazioniRoberto.TRANSRDA) AS TotTRANS
> FROM Ditte LEFT JOIN NumerazioniRoberto ON Ditte.ACCORDOQUADRO = NumerazioniRoberto.ACCORDOQUADRO
> GROUP BY Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Ditte.contrattovalido
> HAVING (((Ditte.contrattovalido) Like "attivo"))
> ORDER BY Ditte.DITTA, Ditte.ACCORDOQUADRO;
>
> ho impostato il formato di ogni campo possibile standard con 0 decimali tranne che per il sottostante "ConsumatoSAP" che non riesco a settare:
> ConsumatoSAP: IIf([TotBUO]>0;(Nz([TotBUO])+Nz([TotTRANS]));"0")

Dove e come hai "impostato il formato"?
Nella proprietà "Posizioni decimali" della colonna nella query?
Questo spesso non funziona, soprattutto per valori calcolati.

Per la mica visualizzazione nella query stessa prova con 0 nella
proprietà "Formato" della colonna. Però di solito dovresti ripetere
questa formattazione nelle maschere e nei report.

> Questo campo, per alcuni valori mi visualizza due, tre, quattro,otto decimali rendendo di fatto impossibile capirne qualcosa.
> Qualcuno di buon cuore mi sa dire come "forzare" la formattazione di questo valore ?

Se invece nella query veramente vuoi arrotondare i valori a 0 decimali,
prova così:

IIf([TotBUO]>0;Format(Nz([TotBUO])+Nz([TotTRANS]);"0");0)

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


text:
ciao Karl,
grazie mille per il tuo costante e prezioso aiuto.

Nella query ho arrotondato a zero i decimali (con la formula che mi hai suggerito per ConsumatoSAP) e funziona tutto perfettamente (tutte le colonne intere e senza nessun decimale).

Nella mia casella combinata invece la combo visulizza due decimali per ciascun campo.
Se metto "0" nella Proprietà formato della casella combinata non mi visualizza piu la colonna Consumato SAP.
Se vado nella combinata in origine riga e apro la query di provenienza mi da un formato standard, molto generale, senza consentirmi di scegliere il numero di decimali.
Posso forzare il formato di qui ?

grazie infinite


text:
Salve,

ignazio.pilone:
> Nella query ho arrotondato a zero i decimali (con la formula che mi hai suggerito per ConsumatoSAP) e funziona tutto perfettamente (tutte le colonne intere e senza nessun decimale).
>
> Nella mia casella combinata invece la combo visulizza due decimali per ciascun campo.
> Se metto "0" nella Proprietà formato della casella combinata non mi visualizza piu la colonna Consumato SAP.
> Se vado nella combinata in origine riga e apro la query di provenienza mi da un formato standard, molto generale, senza consentirmi di scegliere il numero di decimali.
> Posso forzare il formato di qui ?

Non capisco.
Prima hai scritto che la combo usa "la query stessa". In questo caso non
ci sarebbe più nessun decimale.

--> ?



text:
Ciao Karl,
grazie per l'attenzione,
Non ci capisco nulla nemmeno io.
La query è perfetta, non visualizza nessun decimale in nessun campo.
La casella combinata, avente come origine dati la query stessa, presenta invece due o più decimali.

Preciso che nelle proprietà/formato della combinato alla voce decimali è impostato a "0" mentre la voce formato è vuota, se metto "0" non mi visualizza più il campo "ConsumatoSAP" che è quello che mi hai suggerito :

ConsumatoSAP: IIf([TotBUO]>0;Format(Nz([TotBUO])+Nz([TotTRANS]);"0");0)


text:
Salve,

ignazio.pilone:
> ...
> La query è perfetta, non visualizza nessun decimale in nessun campo.
> La casella combinata, avente come origine dati la query stessa, presenta invece due o più decimali.

Dove? Nella sua casella di testo o nella sua lista?

> Preciso che nelle proprietà/formato della combinato alla voce decimali è impostato a "0" mentre la voce formato è vuota, se metto "0" non mi visualizza più il campo "ConsumatoSAP" che è quello che mi hai suggerito :

Questa proprietà si riferisce alla casella cioè il valore scelto nella
combo. Non serve a nulla se hai già tagliato i decimali nella query. Se
capisco bene (cioè almeno la metà ;-) togli cosa hai scritto nelle
proprietà "Formato" e "Posizioni decimali" della combo.

> ConsumatoSAP: IIf([TotBUO]>0;Format(Nz([TotBUO])+Nz([TotTRANS]);"0");0)

Posta la stringa SQL (della query) che fa l'origine dati della combo e
cosa si trova nelle proprietà "Numero colonne", "Larghezza colonne" e
"Colonna associata".



text:
>
> Dove? Nella sua casella di testo o nella sua lista?

Se apro la query e ne visualizzo i risultati con pulsante visualizza foglio dati, ho tutti dati interi in tutte le colonne senza nessun decimale.
>
> > Preciso che nelle proprietà/formato della combinato alla voce decimali è impostato a "0" mentre la voce formato è vuota, se metto "0" non mi visualizza più il campo "ConsumatoSAP" che è quello che mi hai suggerito :
>
> Questa proprietà si riferisce alla casella cioè il valore scelto nella
> combo. Non serve a nulla se hai già tagliato i decimali nella query. Se
> capisco bene (cioè almeno la metà ;-) togli cosa hai scritto nelle
> proprietà "Formato" e "Posizioni decimali" della combo.

...se tu capisci la metà io mi esprimo sottozero e capisco ancor meno   ;-)
comunque ho cancellato"Formato" e "Posizioni decimali" della combo.

> Posta la stringa SQL (della query) che fa l'origine dati della combo e
> cosa si trova nelle proprietà "Numero colonne", "Larghezza colonne" e
> "Colonna associata".

SELECT Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, IIf([TotBUO]>0,Format(Nz([TotBUO])+Nz([TotTRANS]),"0"),0) AS ConsumatoSAP, Nz([TotBUO])+Nz([TotORD])+Nz([TotTRANS]) AS ConsumatoTeorico, Nz([totaleribassato])-Nz([ConsumatoTeorico]) AS RimanenzaTEO, Nz([totaleribassato])-Nz([ConsumatoSAP]) AS RimanenzaSAP, Nz([ConsumatoSAP])+Nz([TotTRANS]) AS ConsumatoEFF, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Sum(NumerazioniRoberto.IMPORTOBuono) AS TotBUO, Sum(NumerazioniRoberto.IMPORTOOrdinativo) AS TotORD, Sum(NumerazioniRoberto.TRANSRDA) AS TotTRANS
FROM Ditte LEFT JOIN NumerazioniRoberto ON Ditte.ACCORDOQUADRO = NumerazioniRoberto.ACCORDOQUADRO
GROUP BY Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Ditte.contrattovalido
HAVING (((Ditte.contrattovalido) Like "attivo"))
ORDER BY Ditte.DITTA, Ditte.ACCORDOQUADRO;

"Numero colonne"    ------> 13
"Larghezza colonne" ------> 5,503cm;3,3cm;0cm;9,801cm;1,401cm;2,2cm;2,2cm;2,2cm;0cm;2cm;2,2cm;2,2cm;3,2cm
"Colonna associata" ------> 2

ti preciso infine che qui è presente una proprietà "posizioni decimali" che ho impostato a "0" e che non è possibile lasciare vuota.

grazie infinite.


text:
Salve,

ignazio.pilone:
> ...
> SELECT Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, IIf([TotBUO]>0,Format(Nz([TotBUO])+Nz([TotTRANS]),"0"),0) AS ConsumatoSAP, Nz([TotBUO])+Nz([TotORD])+Nz([TotTRANS]) AS ConsumatoTeorico, Nz([totaleribassato])-Nz([ConsumatoTeorico]) AS RimanenzaTEO, Nz([totaleribassato])-Nz([ConsumatoSAP]) AS RimanenzaSAP, Nz([ConsumatoSAP])+Nz([TotTRANS]) AS ConsumatoEFF, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Sum(NumerazioniRoberto.IMPORTOBuono) AS TotBUO, Sum(NumerazioniRoberto.IMPORTOOrdinativo) AS TotORD, Sum(NumerazioniRoberto.TRANSRDA) AS TotTRANS
> FROM Ditte LEFT JOIN NumerazioniRoberto ON Ditte.ACCORDOQUADRO = NumerazioniRoberto.ACCORDOQUADRO
> GROUP BY Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore], Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato, Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Ditte.contrattovalido
> HAVING (((Ditte.contrattovalido) Like "attivo"))
> ORDER BY Ditte.DITTA, Ditte.ACCORDOQUADRO;

Non ha nessun impatto ai decimali ma sembra che potresti ottimizzare la
query:

SELECT ...
FROM Ditte LEFT JOIN NumerazioniRoberto ON Ditte.ACCORDOQUADRO =
NumerazioniRoberto.ACCORDOQUADRO
WHERE Ditte.contrattovalido = "attivo"
GROUP BY Ditte.DITTA, Ditte.ACCORDOQUADRO, Ditte.[Nr Fornitore],
Ditte.[Descrizione oggetto], Ditte.ribasso, Ditte.totaleribassato,
Ditte.decorrenza, Ditte.scadenza, Ditte.tipologia, Ditte.contrattovalido

Cioè, il tuo HAVING molto probabilmente è un WHERE e l'ORDER BY non
serve perché il raggruppamento già ordina in sequenza delle colonne.

> "Numero colonne"    ------> 13
> "Larghezza colonne" ------> 5,503cm;3,3cm;0cm;9,801cm;1,401cm;2,2cm;2,2cm;2,2cm;0cm;2cm;2,2cm;2,2cm;3,2cm
> "Colonna associata" ------> 2

Ok, ma non posso riprodurre il problema. Se nella query imposto una
colonna (con Format ecc.) come lo fai per ConsumatoSAP non vedo decimali
per questa colonna nella lista della combo. Per le altre colonne
numeriche/calcolate certo ci sono i decimali.

> ti preciso infine che qui è presente una proprietà "posizioni decimali" che ho impostato a "0" e che non è possibile lasciare vuota.

Non è possibile di lasciarla vuota, ma per lasciarla "quasi vuota" puoi
reimpostare il valore predefinito: Automatiche


title: Comuni d'italia

text:
Scusate, io sono entrato nel sitocomune ma il database in questione non l'ho
trovato. Sapreste indicarmi il link giusto?
Grazie
Endi275


title: Comuni d'italia

author: Gianpaolo Aganetti

text:
"Endi275" <
ale...@tiscalinet.it
> wrote in message
news:a4b9h7$2ek$1...@pegasus.tiscalinet.it...

Si trova sotto la sezione "General"
Ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: report su file excel è possibile ?

author: Marco

text:
Ciao a tutti
Posto che :
a) I miei utenti hanno tutti excel
b) La tabella che devo stampare ha dimensioni eccessive per la stampa su
access
Io vorrei creare un pulsante che faccia questo :
1 ) mi copi tutto il contenuto di una tabella
2 ) mi apra excel e ci incolli sopra il risultato della copia
è possibile ?
se si, qualcuno mi dice come ?
Grazie
Marco


title: report su file excel è possibile ?

author: Emyr

text:


vedi su sitocomune l'esempio per l'automazione di excel
Saluti.
Emanuele.


title: Impostazione stampante di rete multi modulo

author: michele

text:
Ho realizzato un database per il mio ufficio in grado di stampare le
cartoline di ritorno postali. In ufficio ci sono 2 stampanti di rete modello
lexmark T630 che danno la possibilità, tramite opportuno settaggio nelle
proprietà, di scegliere l'origine del modulo o da uno dei due cassetti A4 o
dal modulo multiuso.
Quest'ultimo consente di inserire qualsiasi tipo di modulo da stampare es.
buste, ricevute di ritorno ecc...
Una volta impostato il report se stampo dalla mia stampante predefinita es.
prt1 il db memorizza i parametri scelti e tranquillamente la stampa viene
indirizzata al modulo selezionato.
Il problema sorge quando il db Front-end viene utilizzato in una postazione
con stampante predefinita diversa
dalla mia es. prt2 , in questo caso il report viene indirizzato al modulo di
default es. cassetto 1.
E' possibile risolvere in qulache modo?
grazie
michele
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Carlo Costarella

text:
"michele" <
mic...@inwind.it
> ha scritto nel messaggio
news:193Z227Z215Z155Y...@usenet.libero.it...

Vedi se ti può essere d'aiuto questo (leggi bene tutto):
http://www.donkarl.com/it?FAQ5.1
Ciao, Carlo


title: modalita stampa in report

author: Ras Judah

text:
Ciao vorrei sapere come impostare un report in modo che la stampa venga
fatta con orientamento orizzontale invece che col classico verticale.
MI serve specificarlo per il singolo report in quanto nello stesso database
alcuni vanno stampanti inn verticale e altri in orizzontale
grazie
Stefano


title: modalita stampa in report

text:
On Mon, 03 Mar 2003 11:02:11 GMT, "Ras Judah" <
stef...@libero.it
>
wrote:

metti una stampante specifica ed imposta le proprietà
oppure su xo usa l'oggetto printer
Saluti.
Emanuele.


title: modalita stampa in report

text:
cioè dovrei creare una seonda stampante e impostarla su foglio
orizzontale...
pero rimane il fatto che al comando "stampa report" non posso scegliere
quale stampante usare
poi..non capisco cosa è "usa su XO l'oggetto printer"
grazie
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:6ud66vsll9gfku3uu...@4ax.com...



title: modalita stampa in report

author: MA

text:

Primo quota bene altrimenti sembra ce stia rispondendo ad Emanuele.
Secondo Emyr probabilemente si riferiva all'oggetto printer di xp, una
novità che dovrebbe essere ineteressante (che devo verificare)
terzo: lui intendeva dire che se vai in File ->imposta pagina e selezioni
una stampante specifica (anche se è uguale a quella di default) puoi settare
la stampa in orizzontale
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Immagini ripetitive nei report... si puo' ?

author: Fabio

text:
Altro problema nuovo:
ho un report su cui stampo i risultati di alcuni calcoli, fra questi ad
esempio mi dice che occorrono 3 pezzi di "lego" (quelli che si montano).
Ora io ho la foto di un "lego" e vorrei venisse stampata nel report, non una
valta ma bensi' tante volte quante sono i risultanti del calcolo...in
pratica dovrei ottenere un disegno che mi rappresenta in orizzontale tutti i
pezzi necessari...
che sia possibile ?


text:


potresti inserire già n disegni e rendere visibili solo quelli che ti
servono
Saluti.
Emanuele.


title: Copiare gli oggetti da un DB ad un altro

author: Omar Carrara

text:
Ciao a tutti.
Qualcuno sa come risolvere questo problema?
Ho un DBUno.mdb   e un DBDue.mdb
Devo copiare alcuni oggetti (tabelle, query, etc indistintamente) del
DBUno.mdb  nel DBDue.mdb, badando a NON sovrascrivere quelli che hanno lo
stesso nome.
In pratica aggiungere solamente quegli oggetti che ancora non sono contenuti
in DBDue.mdb.
Qual'č il codice per scorrere tutti gli oggetti di un DB?
E quello per copiare un oggetto da un DB ad un altro?
Grazie a chi saprą darmi un consiglio.
Omar


author: Alex

text:
Ma lo devi fare perforza con un codice?
Menù "File--->Carica dati Esterni ---->Impporta"
Se importi Tabelle, Query o altro, quando vede che è già esistente la
rinomina automaticamente mettendo un suffisso numerico progressivo alla fine
del nome, è impossibile fare danni.
Forse però tu volevi automatizzare tutto?
Ciao Alex
--
Posted from
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Omar Carrara - Spidernet S.r.l. - ISP Certificato.

text:
Hai ragione, forse manca il motivo per cui ho
bisogno di fare questo tramite codice.

Vorrei poter spedire per posta a clienti ai quali
ho distribuito una applicazione, un file mdb che, una volta lanciato, vada a
copiare in quello presente sul PC gli oggetti in esso contenuti, in modo da fare
un update, come dire, comodo, delle applicazioni in giro (senza cioè andarci di
persona - o peggio ancora, farci mettere le mani da loro!).

In ogni caso, non hai risposto alla mia
domanda:

come si fa tramite codice?

Grazie comunque.

Omar


author: AntoGal

text:
""Omar Carrara - Spidernet S.r.l. - ISP Certificato."" <
om...@spidernet.it
> ha scritto nel
  messaggio

Vorrei poter spedire per posta a clienti ai quali
  ho distribuito una applicazione, un file mdb che, una volta lanciato, vada a
  copiare in quello presente sul PC gli oggetti in esso contenuti, in modo da
  fare un update, come dire, comodo, delle applicazioni in giro (senza cioè
  andarci di persona - o peggio ancora, farci mettere le mani da
  loro!).

Mannaggia a 'sto HTML....

Comunque, il discorso potrebbe sembrare relativamente semplice
se aggiungi intere tabelle. Ma se aggiungi solo un campo in una tabella? E se
cambi solo un indice o il formato da Intero a Intero Lungo?

Voglio dire... dovresti controllarti tutte le proprietà di
tutte le tabelle e non la vedo una cosa tanto immediata.

Secondo me ti converrebbe fare la cosa opposta:

Inviare l'applicazione nuova e da questa prevedere una
semplice importazione dei dati dell'utente.

Se vuoi seguire questa strada, controlla sul Sito Comune che
ci deve essere una FAQ.

--
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: Controllo Rich Text

author: Roberto dal portatile

text:
"Andrea Sciamanna" <andrea.s...@libero.it.cancellami> ha scritto nel
messaggio news:8pnjio$8r2$1...@serv1.iunet.it...
> Sto sperimentando il controllo in oggetto, con Access 2000.
> Va alla grande.
>
> Mi chiedo solo una cosa: dov'è il trucco?
>
> Quando su questo NG si pongono domande tipo "come faccio a giustificare il
> testo?", "Come posso mettere in grassetto solo alcune parole di un
campo?",
> "Come faccio a formattare questo e quest'altro?", non si risponde mai con
> "usa in Rich Text Control della MS",a si dice che non si può fare, o che
si
> possono utilizzare certe routines o altro.
>
> Quindi immagino che qualche inconveniente, quel controllo, lo abbia.
>
Hai mai ipotizzato il fatto che la maggioranza dei partecipanti al NG non
usano Access2000, ma versioni precedenti dove magari i controlli Rich Text
non esistono?? ;-)
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Controllo Rich Text

author: Andrea Sciamanna


title: Controllo Rich Text

text:
> Hai mai ipotizzato il fatto che la maggioranza dei partecipanti al NG non
> usano Access2000, ma versioni precedenti dove magari i controlli Rich Text
> non esistono?? ;-)
Sě, l'ho ipotizzato, ma il controllo Rich Text c'č anche in Access 97. Il
solo dubbio che ho č che, forse, non ti permette di utilizzarlo, come per
quasi tutti i controlli ActiveX et similia, mentre ACC2000 non si fa
problemi.
Ma non so se č questo il motivo.


title: Pulsante di comando

author: clo

text:
Buongiorno,

quando creo un pulsante di comando di stampa, non mi si visualizza l'anteprima e se cerco di stampare. A me serve stampare una maschera o un report specifico, invece viene lanciata la stampa dei più di 3000 record che ho nel database.

Potete aiutarmi?
Gtrazie, Claudia


title: Pulsante di comando

text:
Claudia, facci vedere il codice assegnato all'evento CLICK del Button...!
Devi semplicemente inserire al parametro WHERE della funzione OPENREPORT il Criterio che consenta di FILTRARE il Record VISUALIZZATO nella Maschera...

@Alex


title: differenza fra ore

author: Sergio

text:
Ciao a tutti.
In una query ho il campo calcolato "differenza" che calcola [ora fine]-[ora
inizio]; i due campi hanno tipo Data/Ora breve 24h, ma il risultato esce in
decimale (0,0138 eccetera).
Come mostro il risultato in Tipo Data/Ora?
Grazie e ciao!
Sergio


title: differenza fra ore

author: Alessandro Baraldi

text:
Sergio ha scritto:

Per le differenze di dati in formato Ora è bene usare la funzione
DateDiff, vedi l'help.
Poi se vuoi formattare in modo diverso applica la funzione Format al
risultato.
Entrambe sono ben documentate nell'Help con Esempio allegato.
@Alex


title: Visualizzare una pagina html in una form

author: Pisinho

text:
Buongiorno,
dopo i suggerimenti avuti per ricavare i dati da una pagina web, vorrei far
visualizzare i dati sotto forma di pagina HTML in una form o report.
C'� un modo veloce per farlo ? esiste qualche controllo tipo una TextBOX che
visualizza codice HTML senza usare l'activex Web Browser ?
grazie mille.
SAluti


author: Sergio MAZZA

text:
"Pisinho" <
pis...@gmail.com
> ha scritto nel messaggio
news:4b2a00be$1...@news.x-privat.org...

(curiosit�)
Come mai dovresti scaricare il codice HTML in una casella di testo? Dopo
averlo ottenuto che ci fai? Ritieni che sia pi� leggibile/interpretabile se
� contenuto in una casella di testo o da un editor HTML?
Ciao.
--
Sergio MAZZA


text:
> (curiosit�)
> Come mai dovresti scaricare il codice HTML in una casella di testo? Dopo
> averlo ottenuto che ci fai? Ritieni che sia pi� leggibile/interpretabile
> se � contenuto in una casella di testo o da un editor HTML?
>
> Ciao.
> --
> Sergio MAZZA
Prima di tutto, grazie Sergio per la tua dritta e grazie anche a Pablitonf,
sono riuscito ad avere i dati fra i TAG html TABLE che mi interessano.
Per la visualizzazione dato che non posso sapere a priori quante righe
contengono ma credo che al massimo siano 3 o 4, volevo mostrarle
direttamente nella form o nel report in forma HTML avendo gi� tutto pronto
senza dover scrivere del codice per estrapolare ulteriormente i dati.
Se � possibile meglio altrimenti prendo la strada dell'estrapolazione.
E se usassi il controllo Web Browser, � difficile ?
Grazie a tutti.


text:
"Pisinho" <
pis...@gmail.com
> ha scritto nel messaggio
news:4b2a0d31$1...@news.x-privat.org...
> Prima di tutto, grazie Sergio per la tua dritta e grazie anche a
> Pablitonf, sono riuscito ad avere i dati fra i TAG html TABLE che mi
> interessano.
>
> Per la visualizzazione dato che non posso sapere a priori quante righe
> contengono ma credo che al massimo siano 3 o 4, volevo mostrarle
> direttamente nella form o nel report in forma HTML avendo gi� tutto pronto
> senza dover scrivere del codice per estrapolare ulteriormente i dati.
>
> Se � possibile meglio altrimenti prendo la strada dell'estrapolazione.
>
> E se usassi il controllo Web Browser, � difficile ?
Non pi� di altri.
Se non vuoi utilizzare il controllo webbrowser e vuoi far vedere solo i
valori contenuti nelle celle puoi inserire i riferimenti alla libreria di
I.E..
Es.
'---------------------
'--> Microsoft Internet Controls
'--> Microsoft HTML Object Library
On Error GoTo LeggiTabellaHTML_err
Dim oBrws As New SHDocVw.InternetExplorer
Dim oDoc As MSHTML.IHTMLDocument
Dim oTbl As Object 'MSHTML.IHTMLTable
Dim oTblRw As Object 'MSHTML.IHTMLTableRow
Dim oTblCll As Object 'MSHTML.IHTMLTableCell
oBrws.Navigate2 "
http://www.dovesaitu/nomepaginaweb.htm
"
Do
    If oBrws.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
    DoEvents
Loop
Set oDoc = oBrws.Document '<-- documento HTML
For Each oTbl In oDoc.getElementsByTagName("TABLE") '<-- per ogni tabella
contenuta nel documento
  For Each oTblRw In oTbl.Rows
    a = 0
    For Each oTblCll In oTblRw.Cells
      Debug.Print "valore contenuto: " & oTblCll.innerText
      a = a + 1
    Next oTblCll
  Next oTblRw
Next oTbl
Set oTbl = Nothing
Set oTblRw = Nothing
Set oTblCll = Nothing
Set oDoc = Nothing
Exit Sub
LeggiTabellaHTML_err:
    DoCmd.SetWarnings True
    Set oTbl = Nothing
    Set oTblRw = Nothing
    Set oTblCll = Nothing
    Set oDoc = Nothing
    MsgBox "Errore: " & Application.AccessError(Err.Number) & vbCrLf &
"Riga: " & Erl & vbCrLf & "Numero: " & Err.Number
'---------------------
> Grazie a tutti.
Ciao.
--
Sergio MAZZA


title: Si/No

author: maria teresa bruno

text: Scusate la mia grande ignoranza, ho bisogno di sapere come si fa. In una maschera ho inserito un campo Si/No quale codice  bisogna scrivere per far comparire una altro campo, ad esempio [relazione], se il valore è si?  Vi ringrazio per la risposta.


title: Si/No

author: Mancini

text:
Se ho capito bene intendi questo:

=IIf([Tabella1].[Campo1]=-1;"relazione";"")

nei booleani:
-1 corrisponde a True, Sì, On, eccetera
0 corrisponde a False, No, Off, eccetera


title: Si/No


title: Si/No

text:

si è proprio questo. volevo sapere però dove si inserisce questo codice es: private sub..... ecc. grazie!!!


title: Si/No

text:
Questo dipende da cosa vuoi o preferisci fare,
alcune delle possibilita sono:

Direttamente in un controllo di una maschera o report
=IIf([Campo1]=-1;"relazione";"")

In una query ( visualizzazione grafica )
Espr1: IIf([Tabella1].[Campo1]=-1;"relazione";"")
Espr2: IIf([Campo1]=-1;"relazione";"")

in una query ( visualizzazione SQL )
IIf([Tabella1].[Campo1]=-1,"relazione","") AS Espr1
IIf([Campo1]=-1,"relazione","") AS Espr2

___________________________________________________

oppure metti in un modulo questo:
	'
	Public Function Prova(ing As Boolean) As String
    		If ing = True Then
        		Prova = "relazione"
    		Else
        		Prova = ""
    		End If
	End Function
	'

dopo puoi richiamarlo in questo modo:
Direttamente in un controllo di una maschera o report
=Prova([Campo1])

In una query ( visualizzazione grafica )
Espr3: Prova([Tabella1].[campo1])
Espr4: Prova([campo1])

in una query ( visualizzazione SQL )
Prova([Tabella1].[campo1]) AS Espr3
Prova([campo1]) AS Espr4

____________________________________________________

In tutti gli esempi fatti i puoi sempre sostituire
fra di loro "-1" con "True"  ( e viceversa )


title: Si/No

text:
Direttamente in un controllo di una maschera o report
=IIf([Campo1]=-1;"relazione";"")
Ma in quale controllo si mette e a quale voce?  Grazie ancora!


title: Si/No

text: Qualcuno gentile che mi risponde!😊


title: inserire valori in sottomaschera

author: Cecio

text:
devo copiare un valore di un TB in una serie di righe di una sottomaschera.
esempio
prima di click
data 12/09/2008   (valore nel corpo della maschera princ.)
nome    data            (sottomaschera)
fat1
fat2
fat3
dopo click
data 12/09/2008
nome    data
fat1    12/09/2008
fat2    12/09/2008
fat3    12/09/2008
Ho provato ad eseguire via codice la routine:
form!nomesottomaschera![data]=me!textbox
purtroppo il risultato è che mi copia solo nella prima riga della
sottomaschera e non in tutte le righe...
devo fare un loop?? oppure c'è un metodo diverso?
grazie


title: inserire valori in sottomaschera

text:
Ho provato con questo codice:
Private Sub Comando35_Click()
Dim rst As Recordset
   Dim cont As Long
    Set rst = Me!NOMESOTTOMASCHERA.Form.RecordsetClone
    rst.MoveFirst
    Do Until rst.EOF
    Form!NOMESOTTOMASCHERA![DATA] = Me!CasellaCombinata36
    rst.MoveNext
   Loop
End Sub
Niente... continua ad operare solo sulla prima riga...
qualcuno sa aiutarmi??
Grazie a tutti


title: inserire valori in sottomaschera

text:

fai prima un rs.movelast
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: inserire valori in sottomaschera

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:gadv6f$15s$1...@tdi.cu.mi.it...


Intendevi questo ???... forse no...visto che il risultato non cambia...
Private Sub Comando35_Click()
Dim rst As Recordset
   Dim cont As Long
    Set rst = Me!QRYREGIVAENT2.Form.RecordsetClone
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
    Forms![MASF24]![QRYREGIVAENT2].Form![IDF24] = Me!CasellaCombinata36
    rst.MoveNext
   Loop
End Sub
grazie!


title: inserire valori in sottomaschera

author: Geppo

text:
Ciao Cecio wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:gadv6f$15s$1...@tdi.cu.mi.it...
> Cecio wrote:
>> Ho provato con questo codice:
>>
>>
>> Private Sub Comando35_Click()
>> Dim rst As Recordset
>>   Dim cont As Long
>>
>>    Set rst = Me!NOMESOTTOMASCHERA.Form.RecordsetClone
>>    rst.MoveFirst
>>
>>    Do Until rst.EOF
>>
        rst!data = Me!CasellaCombinata36
>>
>>    rst.MoveNext
>>
>>   Loop
>>
>>
>> End Sub
>>
>> Niente... continua ad operare solo sulla prima riga...
>> qualcuno sa aiutarmi??
>>
>> Grazie a tutti
--
Ciao
Geppo


title: inserire valori in sottomaschera

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:9cNyk.60707$Ca.1...@twister2.libero.it...

Un grazie di cuore a tutti voi che avete cercato di aiutarmi...
Purtroppo non conosco per niente VB quindi qualunque sciocchezza per me è
una montagna da scalare!
Come ho già detto prima, sto cercando di creare un comando che copi un dato
presente in una maschera principale in una serie di righe filtrate di una
sottomaschera.
Ho cercato di seguire i vs consigli ma ancora il risultato non è quello
desiderato...
Vi pregherei, se possibile, di non stravolgere il metodo che sto utilizzando
perchè sto cominciando a capirci qualcosa (poco)... altre soluzioni mi
costringerebbero a ricominciare tutto... quindi se la soluzione è
percorribile vi chiedo di mantenerla.
Questa è l'ultima routine scritta:
Private Sub Comando35_Click()
Dim rst As Recordset
    Set rst = Me!QRYREGIVAENT2.Form.RecordsetClone
    rst.MoveFirst
    Do Until rst.EOF
    rst.Edit
    rst!IDF24 = Me!CasellaCombinata36
    rst.MoveNext
   Loop
End Sub
Il risultato... non fa nulla! completamente nulla!
Qualche ulteriore chiarimento:
QRYREGIVAENT2 è la sottomaschera filtrata
IDF24 è la colonna in cui deve essere scritto il valore di
CasellaCombinata36
Avete qualche suggerimento?
Grazie 1000!
Guido


title: inserire valori in sottomaschera

author: Alessandro Cara

text:
Cecio ha scritto:

Si. Metterci un rst.update
--
ac


title: inserire valori in sottomaschera

text:
Ciao Cecio wrote:
---cut---
> Un grazie di cuore a tutti voi che avete cercato di aiutarmi...
> Purtroppo non conosco per niente VB quindi qualunque sciocchezza per
> me è una montagna da scalare!
> Come ho già detto prima, sto cercando di creare un comando che copi
> un dato presente in una maschera principale in una serie di righe
> filtrate di una sottomaschera.
> Ho cercato di seguire i vs consigli ma ancora il risultato non è
> quello desiderato...
>
> Vi pregherei, se possibile, di non stravolgere il metodo che sto
> utilizzando perchè sto cominciando a capirci qualcosa (poco)... altre
> soluzioni mi costringerebbero a ricominciare tutto... quindi se la
> soluzione è percorribile vi chiedo di mantenerla.
>
> Questa è l'ultima routine scritta:
>
> Private Sub Comando35_Click()
> Dim rst As Recordset
>
>    Set rst = Me!QRYREGIVAENT2.Form.RecordsetClone
>
>    rst.MoveFirst
>
>    Do Until rst.EOF
>
>    rst.Edit
>
>    rst!IDF24 = Me!CasellaCombinata36
     rst.update
>    rst.MoveNext
>
>   Loop
>
>
> End Sub
>
> Il risultato... non fa nulla! completamente nulla!
>
> Qualche ulteriore chiarimento:
> QRYREGIVAENT2 è la sottomaschera filtrata
> IDF24 è la colonna in cui deve essere scritto il valore di
> CasellaCombinata36
>
> Avete qualche suggerimento?
>
> Grazie 1000!
>
> Guido
--
Ciao
Geppo


title: Inserimento valore in un campo da codice

author: Massimiliano

text:
Salve a tutti.
In una maschera ho due pulsanti che aprono due maschere: Magazzino_Nuovo e
Magazzino_Usato.
Entrambe hanno come origine dati la tabella Magazzino ma essa ha un campo
Sě/No (Nuovo) che vorrei settare automaticamente a true nella maschera
Magazzino_Nuovo e a false in Magazzino_Usato.
Pensavo di farlo sull'evento Prima Di Aggiornare ma non ci sono riuscito.
E' possibile farlo?
Ci sono altre soluzioni?
Grazie in anticipo!


author: Emyr

text:


sull'evento sucaricamento della maschera imposti il valore di default
del campo a SI o No
al limite puoi rendere invisibile il campo
me.flag.visible=false
me.flag.defaultvalue="False"
Saluti.
Emanuele.


title: Re: screen.activecontrol....help

author: Roberto da casa

text:
"fausto" <
fca...@tin.it
> ha scritto nel messaggio
news:212Z141Z48Z42Y1...@usenet.libero.it...
>
> Buongiorno a tutti,
> ho un problema con lo scambio di dati tra due maschere al quale ancora non
> ho trovato soluzione. La situazione è la seguente:
> Tramite doppio click sul campo 1A (dei 6 esistenti) della maschera A apro
> una maschera B con la quale attraverso la selezione di varie opzioni
compilo
> il campo 1B.
> Fatto questo chiudo la maschera B ed il contenuto del campo 1B deve
> sostituire il contenuto del campo 1A nella maschera A.
> Come faccio a fare ciò da qualsiasi dei 6 campi della maschera A?
> Credo sia qualche combinazione di .Setfocus, .Activecontrol.
accommandpaste
> e accommandcopy ma non riesco a venirne a capo.
> La versione di access è 97.
> Potete darmi una mano epr favore?
Innanzitutto in una maschera non ci sono i campi ma i controlli: i campi
esistono solamente nelle tabelle e nelle queries.
Dopo aver modificato il controllo 1B esegui il seguente codice VBA:
Forms!A!1A = Me!1B
> grazie
> ciao
> fausto
--
Roberto
----------------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
---------------------------------------------------------


title: Re: screen.activecontrol....help

author: fausto

text:
Buongiorno a tutti,
ho un problema con lo scambio di dati tra due maschere al quale ancora non
ho trovato soluzione. La situazione è la seguente:
Tramite doppio click sul campo 1A (dei 6 esistenti) della maschera A apro
una maschera B con la quale attraverso la selezione di varie opzioni compilo
il campo 1B.
Fatto questo chiudo la maschera B ed il contenuto del campo 1B deve
sostituire il contenuto del campo 1A nella maschera A.
Come faccio a fare ciò da qualsiasi dei 6 campi della maschera A?
Credo sia qualche combinazione di .Setfocus, .Activecontrol. accommandpaste
e accommandcopy ma non riesco a venirne a capo.
La versione di access è 97.
Potete darmi una mano epr favore?
grazie
ciao
fausto
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Re: screen.activecontrol....help

text:
                    Il 02 Dic 2004, 12:41, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "fausto" <
fca...@tin.it
> ha scritto nel messaggio
> news:212Z141Z48Z42Y1...@usenet.libero.it...
> > Come faccio a fare ciň da qualsiasi dei 6 campi della maschera A?
> Dopo aver modificato il controllo 1B esegui il seguente codice VBA:
>
> Forms!A!1A = Me!1B
>
Ciao e grazie della risposta. La questione perň č leggermente diversa. Il
risultato del controllo 1B deve sostituire il contenuto del controllo (nel
mio caso uno dei 6 controlli della maschera A) da cui č partito l'evento di
apertura della maschera B.
grazie a presto



title: Re: screen.activecontrol....help

text:
"fausto" <
fca...@tin.it
> ha scritto nel messaggio
news:212Z141Z48Z42Y...@usenet.libero.it...
>                     Il 02 Dic 2004, 12:41, "Roberto da casa"
<
r.ma...@libero.it
> ha scritto:
> >
> > "fausto" <
fca...@tin.it
> ha scritto nel messaggio
> > news:212Z141Z48Z42Y1...@usenet.libero.it...
> > > Come faccio a fare ciò da qualsiasi dei 6 campi della maschera A?
>
> > Dopo aver modificato il controllo 1B esegui il seguente codice VBA:
> >
> > Forms!A!1A = Me!1B
> >
> Ciao e grazie della risposta. La questione però è leggermente diversa. Il
> risultato del controllo 1B deve sostituire il contenuto del controllo (nel
> mio caso uno dei 6 controlli della maschera A) da cui è partito l'evento
di
> apertura della maschera B.
A seconda su quale controllo di A aveva il fuoco al momento dell'apertura
della maschera B dovresti ottenere il nome del controllo che t interessa con
Screen.ActiveControl.Name
 o
Screen.PreviousControl.Name
 (vedi help); per
avere poi il nome della maschera chiamante prova ad usare CodeContextObject
(vedi help).
> grazie a presto
> fausto
--
Roberto



title: Re: screen.activecontrol....help

author: Carlo Costarella

text:
"fausto" <
fca...@tin.it
> ha scritto nel messaggio
news:212Z141Z48Z42Y...@usenet.libero.it...
>                    Il 02 Dic 2004, 12:41, "Roberto da casa"
> <
r.ma...@libero.it
> ha scritto:
>>
>> "fausto" <
fca...@tin.it
> ha scritto nel messaggio
>> news:212Z141Z48Z42Y1...@usenet.libero.it...
>> > Come faccio a fare ciň da qualsiasi dei 6 campi della maschera A?
>
>> Dopo aver modificato il controllo 1B esegui il seguente codice VBA:
>>
>> Forms!A!1A = Me!1B
>>
> Ciao e grazie della risposta. La questione perň č leggermente diversa. Il
> risultato del controllo 1B deve sostituire il contenuto del controllo (nel
> mio caso uno dei 6 controlli della maschera A) da cui č partito l'evento
> di
> apertura della maschera B.
> grazie a presto
> fausto
>
>
In aggiunta a quello che ti ha detto Roberto potresti usare la strada del
tag o di una variabile globale.
Quella del tag:
il doppio click sul controllo
da codice apri la maschera e imposti il tag della maschera B al nome del
controllo chiamante
cosě:
DoCmd.OpenForm "B"
Forms!B.Tag =
Me.ActiveControl.Name
Su chiusura della maschera B, o quando vuoi tu, hai il nome del controllo
sulla maschera A e potresti usarlo per esempio cosě:
Dim ctr As Control, frm As Form
Set frm = Forms!A
For Each ctr In frm.Controls
    If ctr.Name = Me.Tag Then
    frm(ctr.Name) = "QuelloCheVuoi"
    End If
Next
Quella della variabile globale prevede la creazione di una variabile globale
di tipo control
Global MioCTR as Control
il resto č identico salvo che per assegnare il valore scriverai dalla A
MioCTR =
Me.ActiveControl.Name
non assegnerai nessun tag alla maschera B
il codice If ctr.Name = Me.Tag Then diventa
If ctr.Name = MioCTR Then
Sono possibili anche altre strade come quella di creare un controllo
nascosto nella maschera B e passargli il nome del controllo della maschera A
e poi eseguire una query di aggiornamento...
Ciao, Carlo


title: Re: screen.activecontrol....help

text:
                    Il 03 Dic 2004, 15:39, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha > Sono possibili anche altre strade
come quella di creare un controllo
> nascosto nella maschera B e passargli il nome del controllo della maschera
A
> e poi eseguire una query di aggiornamento...
>
> Ciao, Carlo
Ciao Carlo e grazie per le info. Ho proceduto con la 3 soluzione, creando
quindi un controllo nascosto nella maschera B e poi ho utilizzato
accommandcopy per copiare l'informazione da portare nella maschera A e la
funzione Screen.ActiveControl.Text per incollare il contenuto degli appunti
sul controllo (precedentemente) attivo.
Grazie comunque delle idee, le tengo in mente per un prossimo utilizzo.
ciao a tutti



title: Combo da UNION SELECT con prima riga fissa

author: Pablitomf

text:
Ciao ragazzi...
ho la necessità di una combo il cui contenuto derivi da Query di unione
tra i record di una tabella e un medesimo tracciato record con carattere
jolly "*"... la particolarità è che dovrebbe poter mantenere anche in
scorrimento valori la prima riga del carattere jolly...
Es.Contenuto combo
*     **Tutti**
A     Pippo
B     Pluto
C     Paperino
D     Antonio Biso (Ops! :-D )
Su scorrimento dovrebbe mantenere lo stesso formato per la prima riga
Es.
*     **Tutti**
B     Pluto
C     Paperino
D     Antonio Biso (Ops! :-D )
E     ...
...
Possibile in questo o in altro modo?
Tnks
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: MA

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cviasl$dho$1...@news.newsland.it...
> Ciao ragazzi...
>
> ho la necessità di una combo il cui contenuto derivi da Query di unione
> tra i record di una tabella e un medesimo tracciato record con carattere
> jolly "*"... la particolarità è che dovrebbe poter mantenere anche in
> scorrimento valori la prima riga del carattere jolly...
>
> Es.Contenuto combo
>
> *     **Tutti**
> A     Pippo
> B     Pluto
> C     Paperino
> D     Antonio Biso (Ops! :-D )
>
> Su scorrimento dovrebbe mantenere lo stesso formato per la prima riga
>
> Es.
> *     **Tutti**
> B     Pluto
> C     Paperino
> D     Antonio Biso (Ops! :-D )
> E     ...
> ...
>
>
> Possibile in questo o in altro modo?
> Tnks
>
Mettici un campo calcolato nella query e ordina in base a quello
Select CartoneAnimato, "1" as Pos from ....
union
Select CartoneAnimato, "2" as Pos from ....
e poi ordini in base a Po e cartone animato
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:7k2Td.570$tY2...@news.edisontel.com...

Scusami rileggendo penso di non aver capito
MAssimiliano


title: Stampante ad aghi in rete

author: Luca

text:
Salve, avrei bisogno di stampare su una stampante ad aghi che è
installata su un PC in rete sulla porta parallela LTP1. Il programma in
access fatto stampa direttamente li da codice VBA e funziona bene.
Su questa stampante ho un modulo continuo e avrei la necessità di
stampare anche da altre postazioni. Come posso indicare nel codice VBA
che deve stampare su una stampante ad aghi su un altro computer in
rete?
Grazie.


title: Stampante ad aghi in rete

text:
"Luca" <
meo...@hotmail.it
> ha scritto nel messaggio news:1116405820.7...@g44g2000cwa.googlegroups.com...

Devi condividere la stampante, installarla nei client (tramite risorse di rete) e con l'esempio sul sito comune (
www.sitocomune.com
)
fai scegliere all'utente quale stampante utilizzare...
Ciao.
--
Sergio MAZZA


title: Evento Stampa report

author: andres

text:
Ho bisogno di eseguire una query solo se un report che apro in
anteprima viene effetivamente stampato.
Esiste qualche evento apposito?
Ho letto nel newsgroup di sostituire il pulsante di Stampa ma non so
come si fa
Grazie


title: compilare altro campo da casella combo

author: coop

text:
Salve
innanzitutto vi ringrazio ancora per i consigli datimi precedentemente.
Vi espongo un nuovo problema, sospetto che non sia difficile ma non mi
viene:
Dunque, se in una maschera ho un controllo combo denominato città, come
posso fare per far apparire, una volta selezionata la città, il
corrispondente cap in un altro controllo (campo di tabella)? e poi posso
evitare che si inseriscano valori manualmente in questo cap?
per adesso mi fermo qui, se poi non vi "rompo" troppo ho altri quesiti da
esporvi.
ciao e grazie  a tutti
Lu


title: compilare altro campo da casella combo

text:
"coop" <------
cooperativaba...@inwind.it
> ha scritto nel messaggio
news:pcqAa.33944$lK4.1...@twister1.libero.it...
> Salve
> innanzitutto vi ringrazio ancora per i consigli datimi precedentemente.
>
> Vi espongo un nuovo problema, sospetto che non sia difficile ma non mi
> viene:
>
> Dunque, se in una maschera ho un controllo combo denominato città, come
> posso fare per far apparire, una volta selezionata la città, il
> corrispondente cap in un altro controllo (campo di tabella)?
Quante colonne ha la combo?
Quele è il codice SQL che è origine riga della combo?
Quale è la struttura della tabella su cui è basata la query che è origine
riga della combo?
> e poi posso
> evitare che si inseriscano valori manualmente in questo cap?
Imposta a Si la proprietà Bloccato della casella di testo associata al campo
CAP.
>
> per adesso mi fermo qui, se poi non vi "rompo" troppo ho altri quesiti da
> esporvi.
> ciao e grazie  a tutti
> Lu
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: compilare altro campo da casella combo

text:
Il 26 Mag 2003, 17:15, "coop" <------
cooperativaba...@inwind.it
>
ha scritto:

Se nella tua combo ci sono 3 colonne: la prima città, la seconda il cap e la
terza la prov puoi usare su combo_afterupdate
cap = tuacombo.column(1)
prov = tuacombo.column(2)
e' stato bello aiutarti del resto ho aiutato anche me stesso, perchè la coop
sono io...
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: compilare altro campo da casella combo

text:
>
> Se nella tua combo ci sono 3 colonne: la prima città, la seconda il cap e
la
> terza la prov puoi usare su combo_afterupdate
> cap = tuacombo.column(1)
> prov = tuacombo.column(2)
>
> e' stato bello aiutarti del resto ho aiutato anche me stesso, perchè la
coop
> sono io...
> ciao MAssimiliano
certo! la coop siamo tutti noi
ciao e grazie


title: compilare altro campo da casella combo

text:
ciao Roberto rispondo subito alle tue domande
> Quante colonne ha la combo?
    solo una con i nomi delle città
> Quele è il codice SQL che è origine riga della combo?
     l'origine è un semplice elenco di valori
> Quale è la struttura della tabella su cui è basata la query che è origine
> riga della combo?
    questa non l'ho capita :-)
si può fare qualcosa?
ciao e ancora grazie
Luigi


title: compilare altro campo da casella combo

text:
"coop" <------
cooperativaba...@inwind.it
> ha scritto nel messaggio
news:01wAa.35293$lK4.1...@twister1.libero.it...
> ciao Roberto rispondo subito alle tue domande
>
> > Quante colonne ha la combo?
>
>     solo una con i nomi delle città
>
> > Quele è il codice SQL che è origine riga della combo?
>
>      l'origine è un semplice elenco di valori
Quindi il Tipo origine riga della combo è impostato a Elenco valori.
Non è certo la soluzione migliore per risolvere il tuo problema.
>
> > Quale è la struttura della tabella su cui è basata la query che è
origine
> > riga della combo?
>
>     questa non l'ho capita :-)
Come dicevo sopra la soluzione migliore per risovere il tuo problema sarebbe
quella che tu ti crei una tabella che contenga l'elenco delle città nel
campo Città e per ogni città il proprio CAP memorizzato nel campo CAP dell
tabella.
Quindi usare questa tabella come origine riga della combo oppure come
tabella sulla queale è basata la query che è origine riga della combo;
naturalmente il Tipo origine riga della combo dovrà in questo caso essere
impostato a Tabella/query.
Questa organizzazione ti permetterà fra l'altro di aggiornare l'elenco delle
città senza modificare ogni volta l'applicativo (dovrai modificare l'origine
riga della combo); sara sufficiente aggiornare la tabella.
>
> si può fare qualcosa?
Si, ma se vuoi mantenere la tua organizzazione la cosa risulterà abbastanza
ferraginosa.
Se attualmente l'origine riga della combo è il seguente:
"Roma";"Milano"
dovrai modigicarla in:
"Roma";"00100";"Milano";"00200"
ovvero alla stringa con la descrizione di ogni città dovrai far seguire
nell'origine riga una stringa contenente il relativo CAP.
Dovrai quindi impostare a 2 il numero delle colonne della combo.
Dovrai anche impostare le lunghezze delle due colonne della combo,
impostando a 0 (zero) la lunghezza della seconda colonna.
Se la casella combinata si chiama MiaCombo e la casella di testo dove vuoi
visualizzare il cap si chiama MioCAP, a fronte dell'evento "Dopo
aggiornamento" della combo genera il seguente codice VBA:
Me!MioCAP = Me!MiaCombo.Column(1)
> ciao e ancora grazie
>
> Luigi
--



title: compilare altro campo da casella combo

text:

Grazie Roberto
in effetti ho preferito l'elenco valori per l'origine riga inquanto mi
servono solo 5 comuni e relativi cap.
ho fatto come mi hai detto generando il relativo codice, però quando
aggiorno la combo "città" nella casella cap non appare nulla (anzi mi
cancella l'eventuale cap che avevo inserito prima manualmente).
che potrebbe essere?
grazie della pazienza
ciao
Lu


title: compilare altro campo da casella combo

text:
"coop" <------
cooperativaba...@inwind.it
> ha scritto nel messaggio
news:YPIAa.36454$Ny5.1...@twister2.libero.it...

Beh, se la casella combinata si chiama Città il codice VBA dovrebbe essere:
Me!MioCAP = Me!Città.Column(1)
Per il resto, se in questa maniera ti viene cancellato l'eventuale CAP che
avevi digitato manualmente in MioCAP, penso che tu non abbia impostato a 2
la proprietà Numero colonne della casella combinata, ma la abbia lasciata
impostata a 1.
Se non è questo il motivo del malfunzionamento, non avendo a portata di mano
il database e non avendo il dono della chiaroveggenza, non saprei proprio
che dire, se non che, se avessi fatto correttamente ciò che ti ho suggerito
la cosa avrebbe dovuto funzionare.
L'unica cosa che puoi provare a fare è quella di cancellare la casella
combinata e di ricrearla con due colonne usando l'autocomposizione: così
facendo Access risistemerà da solo tutte le proprietà della combo.
> ciao
> Lu



title: Aiuto acces

author: giovanni zangheri

text:
A qualche anima pia
sono neofita di acces ed ho un problema
come posso fare a:
attribuire il valore al campo Comm. della tabella Portf ( o maschera Portf )
il quale deve essere uguale al valore del campo Commissioni Tabella Legenda
a condizione che il campo Gestore tabella legenda sia uguale al valore del
campo Istituto nella tabella Portf ( o Maschera Portf )
esemp.
tab, Legenda                                       Tab. Portf
Gestore    Commissione                    Istituto    Comm.
   A                 ?                                   A             X
Spero di essermi spiegato
Un Grazie immenso a chi di Voi potrà spiegarmelo
Gi...@hi-net.it
Giovanni


title: Aiuto acces

author: Sergio MAZZA

text:
"giovanni zangheri" <
gi...@hi-net.it
> ha scritto nel messaggio
news:8dori8$brf$1...@fe2.cs.interbusiness.it...

> Un Grazie immenso a chi di Voi potrŕ spiegarmelo
>
Gi...@hi-net.it
> Giovanni
>
>
>
>
Hai messo in relazione le tabelle?


title: Runtime 2007 e Windows 2000

author: MC

text:
Salve,
come da oggetto, un db che gira distributo con runtime 2007,
funzionerà senza problemi sotto un 2000 Server\Professional o potrei
riscontrare dei problemi? Esperienze?
Grazie e buona giornata.
MCX


title: Runtime 2007 e Windows 2000

author: Oscar Manfredini

text:
"MCSalve,

----------------------------------------------------------------------------
---
Access 2007 gira solo sotto Win XP e VISTA.
Ciao


title: Runtime 2007 e Windows 2000

text:
On 5 Feb, 10:28, "Oscar Manfredini" <
oscar.manfred...@libero.it
>
wrote:
> "MCSalve,
> come da oggetto, un db che gira distributo con runtime 2007,
> funzionerà senza problemi sotto un 2000 Server\Professional o potrei
> riscontrare dei problemi? Esperienze?
> Grazie e buona giornata.
>
> ----------------------------------------------------------------------------
> ---
>
> Access 2007 gira solo sotto Win XP e VISTA.
>
> Ciao
Oh rabbia ... (mi sembro winnie the pooh!!!).
Niente, opterò per A2003 allora, grazie!
MCX


title: Che limiti di spazio ha una listbox ?

author: RobertoA

text:
Sto usando una listbox per visualizzare tante righe di un db, ogni riga
con alcuni campi
Se la selezione visualizza diverse righe, nerlla listbox non vengono
visualizzate tutte
La domanda e' quanti caratteri ci stanno in una listbox?


title: Che limiti di spazio ha una listbox ?

author: Karl Donaubauer

text:
Salve,

RobertoA:

Non mi è chiaro il significato della domanda.

Righe: 65536
Colonne: 255
Caratteri per colonna: 255

Quindi, se la domanda è davvero "caratteri in una listbox", allora
teoricamente 65536 * 255 * 255 = 4.261.478.400

Non credo che quelli vadano davvero dentro. Non l'ho mai testato per
mancanza di necessità pratica. :-)

Ciao
Karl
*********
http://AccessDevCon.com

Access FAQ:
https://www.donkarl.com/it


title: Che limiti di spazio ha una listbox ?

text:

Si, era questa la richiesta
Ho chiesto questo perche' caricando 100 righe va tutto a posto
Caricando 2000 righe, ne mostra solamente 200 circa
Ogni riga ha 20 colonne circa, in tutto 200 caratteri circa
Il valore di 200 righe mi sembravano molto ridotto, per questo ho chiesto


title: Che limiti di spazio ha una listbox ?

text:

Coi limiti indicati sopra, mi pare strano avere sempre al mx 154 righe
nella listbox
Ho provato a capire se sia qualche riga strana che scassa il caricamento
dellal iistbox ma amche con righe completamente diverse sempre 154 al
max ne carica
Ci deve essere qualche altro vincolo oltre a quelli sopra indicati
Per caricare la lista uso questo codice:

--------------------------------------------------------
Me.lstFileXml.RowSource = ""
Me.Painting = False

Me.Recordset.MoveFirst
Do Until Me.Recordset.EOF
    id_fe = Me.Recordset("ID_FERICEVUTE")
    flag_car = Me.Recordset("FLAG_CARICATO")
    .................
    dat_imp = Me.Recordset("DATA_IMPORTAZIONE")
    nom_fil = Me.Recordset("NOME_FILE_COMPLETO")
    Me.lstFileXml.AddItem flag_car & ";" & flag_contab & ";"
    Me.Recordset.MoveNext
    Loop

Me.Painting = True
Me.lstFileXml.Requery
--------------------------------------------------------

Nell'esempio le colonne sono due in realta' sono una ventina
Ci vedete qualche anomalia?
Access 2013, file accde


title: Che limiti di spazio ha una listbox ?

text:
Se invece di caricarla con AddItem che si fa solo quando si hanno pochi records... assegni il recordset direttamente cosa succede...?

Dim rs as dao.recordset
Set rs=...
Set Me!TuaListBox.Recordset=rs

Saluti
@Alex


title: Che limiti di spazio ha una listbox ?

text: Solo un'osservazione se ti può essere utile : potrebbe esserci qualche carattere esadecimale strano alla riga in cui si interrompe il caricamento ?


title: istruzione SQL

author: Galvy

text:
Ciao a tutti.....
ho il seguente problema:
2 Tabelle
la 1° tabella con un elenco articoli
la 2° tabella con un elenco famiglie articoli
ovviamente nella 1° tabella esiste un campo che va a puntare al campo chiave
primaria della 2° con relazione infiniti(articoli)-1(famiglia) (con
integrità referenziale applicata)
Questo è l'elenco dei dati presenti nelle 2 tabelle
1° tabella            2° Tabella
matita                cancelleria
penna                cucina
temperino
forchetta
coltello
Questo è il risultato della query di selezione
1° Tabella           2° Tabella
Es. astuccio                cancelleria
      penna                cancelleria
    temperino              cancelleria
    forchetta            cucina
    coltello                cucina
ecc ecc
ora il mio problema è il seguento:
devo poter consultare tutta la 1 Tabella con tutti i record correlati della
2° tabella tramite una query di selezione però:
vorrei ordinare il risultato della query di selezione per ordine alfabetico
crescente della famiglia e successivamente in ordine alfabetico crescente
dell'articolo.
Praticamente l'ordinamento alfabetico per nome articolo  è un ordinamento
all' interno dell'ordine alfabetico delle famiglie
Esempio del risultato che voglio ottenere
forchetta                  cucina
coltello                     cucina
temperino                 cancelleria
penna                       cancelleria
astuccio                    cancelleria


title: istruzione SQL

author: Il Gatto

text:
Galvy ha scritto:

SELECT Prodotti.NomeProdotto, Famiglia.NomeFamiglia FROM Prodotti INNER
JOIN Famiglia ON Prodotti.IDFamiglia=Famiglia.IDFamiglia ORDER BY
Famiglia.NomeFamiglia, Prodotto.NomeProdotto
--
       ^    ^
oOo (Il Gatto) oOo


title: istruzione SQL

text:
"Il Gatto" <
no...@nowhere.no
> ha scritto nel messaggio
news:3D2C6203...@nowhere.no...

OK grazie....


title: è possibile assegnare un valore ad un textbox...

author: luca

text:
è possibile assegnare un valore ad un textbox senza fare prima il
setfocus?
Inviato da
www.mynewsgate.net


author: TANNHAUSER

text:
luca ha scritto:
> è possibile assegnare un valore ad un textbox senza fare prima il
> setfocus?
> Inviato da
www.mynewsgate.net
Intendi sul verificarsi di un evento di qualche altro controllo, sugli
eventi delle maschere o come dato preimpostato?
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
TANNHAUSER <
tannau...@virgilio.it
> ha scritto:
>
> luca ha scritto:
>
> > è possibile assegnare un valore ad un textbox senza fare prima il
> > setfocus?
>
> > Inviato da
www.mynewsgate.net
>
> Intendi sul verificarsi di un evento di qualche altro controllo, sugli
> eventi delle maschere o come dato preimpostato?
>
vorrei scrivere un alcuni textbox, da codice, in seguito ad una richiesta
di un utente.
es:
'textbox1.setfocus
if textbox1.text=1 then
   'textbox2.setfocus
   textbox2.text="UNO"
endif
>
Inviato da
www.mynewsgate.net


text:
luca ha scritto:
> TANNHAUSER <
tannau...@virgilio.it
> ha scritto:

> Inviato da
www.mynewsgate.net
Se ho ben capito vorresti che la tua textbox2 assumesse un determinato
valore (ad esempio "UNO") dopo che l'utente ha inserito nella textbox1 un
altro determinato valore (ad esempio 1).
Se vuoi gestire solo questo valore puoi utilizzare l'evento "Dopo
aggiornamento" della textbox 1 ed inserire il codice:
If Me.textbox1 = 1 Then
Me.textbox2 = "UNO"
End If
Come vedi il focus non si dichiara.



author: namor

text:
luca ha scritto:
> TANNHAUSER <
tannau...@virgilio.it
> ha scritto:
> > luca ha scritto:
> > > è possibile assegnare un valore ad un textbox senza fare prima il
> > > setfocus?
> > Intendi sul verificarsi di un evento di qualche altro controllo, sugli
> > eventi delle maschere o come dato preimpostato?
> vorrei scrivere un alcuni textbox, da codice, in seguito ad una richiesta
> di un utente.
> es:
> 'textbox1.setfocus
> if textbox1.text=1 then
>    'textbox2.setfocus
>    textbox2.text="UNO"
> endif
C'è una differenza tra la proprietà predefinita Value delle caselle di
testo e la proprietà Text che usi tu. Sull'help è spiegato.
Sostituisci .Text con .Value o toglilo, e non serve più il setfocus.
Namor
--
namor at inwind punto it



text:
> C'è una differenza tra la proprietà predefinita Value delle caselle di
> testo e la proprietà Text che usi tu. Sull'help è spiegato.
> Sostituisci .Text con .Value o toglilo, e non serve più il setfocus.
> Namor
>
> GRAZIE MI HAI RISOLTO MOLTI PROBLEMI !!!!!!!!!!!!!
Inviato da
www.mynewsgate.net


title: Stop/ripresa codice finchè form aperta

author: Alby

text:
Salve!Questo problema l'ho già avuto, ma son sempre riuscito ad aggirare
l'ostacolo..Avrei bisogno  di eseguire del codice, in cui vado a scrivere in
un archivio, ad un certo punto fermare l'avanzamento di esso, aprire una
form dove chiedo un paio di dati, e al momento della conferma riprendere il
codice, che nel frattempo è stato in attesa, e concluderlo inserendo nel mio
archivio i dati immessi dall'utente tramite la form..Domanda: E' POSSIBILE?
o devo per forza salvare i dati nel mio archivio, dopo di chè aprire la form
e al momento della conferma andare a ricercare il record giusto
nell'archivio e modificarlo? Vi ringrazio anticipatamente!
Alberto


title: Stop/ripresa codice finchè form aperta

author: Gaspare

text:
"Alby" <
NOSPAMa...@sistemics.it
> ha scritto nel messaggio
news:d36ifo$p42$1...@carabinieri.cs.interbusiness.it...

Ciao,
prima prelevi i valori del form e poi scrivi nell'archivio?
Se ho capito bene è possibile...


title: Stop/ripresa codice finchè form aperta

author: Roberto da casa

text:
"Alby" <
NOSPAMa...@sistemics.it
> ha scritto nel messaggio
news:d36ifo$p42$1...@carabinieri.cs.interbusiness.it...

Si è possibile sospendere il codice di una routine VBA dopo aver con esso
aperto una maschera e riprendere la sua esecuzione dopo la chiusura di
quella maschera.
Per farlo occorre che tu imposti a Si sia la proprietà Popup che la
proprietà A scelta obbligatoria di quella maschera ed aprirla in maniera
modale, ovvero impostando ad acDialog l'argomento modalitàfinestra del
metodo OpenForm (vedi help) che usi per aprire la maschera.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Stop/ripresa codice finchè form aperta

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:ohy5e.35294$IN.6...@twister2.libero.it...

Ciao Roberto :-)


title: Stop/ripresa codice finchè form aperta

text:
>Ciao,
> prima prelevi i valori del form e poi scrivi nell'archivio?
> Se ho capito bene č possibile...
Sě esatto!


title: Stop/ripresa codice finchè form aperta

text:
"Alby" <
NOSPAMa...@sistemics.it
> ha scritto nel messaggio
news:d36jqu$qac$1...@carabinieri.cs.interbusiness.it...

Ti ha risposto Roberto dandoti i dettagli ...


title: Lavorare con le date aaaammgg

author: Pino

text:
Devo lavorare con mdb di Access 2000 su file fisici (PF) di AS400 con le
date registrate in formato aaaammgg e non posso usare "DataSerial ......"
perchè non devo solo visualizzare ma anche scrivere sui file AS. Qualcuno ha
scritto per caso la routine completa per convertire la data da "aaaammgg" a
"ggmmaaaa" e viceversa?. Grazie


title: Lavorare con le date aaaammgg

author: Roberto in campagna

text:
"Pino" <
pn...@tin.it
> ha scritto nel messaggio
news:mw447.93536$cd.5...@news1.tin.it...

Se il controllo da normalizzare si chiama DataAMG ed è associato ad un campo
di tipo testo.
Se il controllo che deve contenere la data nella forma ggmmaaaa si chiama
DataGMA.
Nel codice VBA che deve effettuare la normalizzazione scrivi:
Me!DataGMA = Right(Me!DataAMG, 2) & Mid(Me!DataAMG, 5, 2) & Left(Me!DataAMG,
4)
Per fare la conversione inversa:
Me!DataAMG = Right(Me!DataGMA, 4) & Mid(Me!DataGMA, 3, 2) & Left(Me!DataGMA,
2)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Lavorare con le date aaaammgg

author: Pippo

text:
C.....o è possibile che debba usare una sub esterna?. Dal controllo non
funziona.
Roberto in campagna <
r.ma...@libero.it
> wrote in message
%le47.10398$m06.4...@news.infostrada.it...



title: Lavorare con le date aaaammgg

author: Roberto dal portatile

text:
"Pippo" <
pn...@tin.it
> ha scritto nel messaggio
news:35B47.76115$q77.6...@news2.tin.it...
> C.....o è possibile che debba usare una sub esterna?. Dal controllo non
> funziona.
>
Ti ricordo che in questo NG si risponde dopo e non prima dei messaggi
precedenti.
Certo che funziona. Se DataGMA è una casella di testo non associata, nella
sua origine controllo scrivi:
=Right([DataAMG];2) & Mid([DataAMG];5;2) & Left([DataAMG];4)
Ma se DataGMA è una casella di testo associata devi necessariamente inserire
la formula di conversione in un codice VBA, visto che nell'origine controllo
hai impostato il nome di un campo.



title: Casella combinata.

author: Ringhitt

text:
Qual è la dimensione massima di una casella combinata, 255 caratteri?
Grazie per la risposta
Ringhitt


title: Casella combinata.

text:
Ho risolto tutto, grazie lo stesso
"Ringhitt" <
dfl.a...@tiscalinet.it
> ha scritto nel messaggio
news:a04bls$ms4$1...@pegasus.tiscalinet.it...



title: Casella combinata.

author: stwe

text:
"Ringhitt" <
dfl.a...@tiscalinet.it
> ha scritto nel messaggio
news:a05955$bn3$1...@pegasus.tiscalinet.it...

anche la fame nel mondo?
scusa non ho resistito...
by
stwe
scrivi dopo il quoting


title: Casella combinata.

author: Emyr

text:
On Sun, 23 Dec 2001 11:28:47 +0100, "Ringhitt"
<
dfl.a...@tiscalinet.it
> wrote:
>Qual č la dimensione massima di una casella combinata, 255 caratteri?
>Grazie per la risposta
>Ringhitt
>
ho fatto una prova e mi sembra tu abbia ragione alla fine mi mostra
ABCD(simbolo del quadrattino)
Saluti.
Emanuele.


title: Access 2007 Runtime msg di avvio sulle macro

author: Ganimede

text:
Ciao,
come tolgo in A2007 runtime il messaggio di protezione sulle
macro ? ... con un chiave di registry ?
THX.
Ganimede Dignan.


author: Cinzia

text:
"Ganimede" <
newto...@yahoo.com
> ha scritto nel messaggio
news:a6b73cf0-1f03-4d6e...@t54g2000hsg.googlegroups.com...

Ciao Ganimede,
forse questo ti puň servire
http://accessdaziacin.spaces.live.com/blog/cns!1889C8F1671B10DC!424.entry
--
Cinzia [Office Access MVP]
_______________________

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


title: contatore manuale in sql query accodamento

author: mario mengozzi

text:
buongiorno,

sto incominciando a preparare un programmino per la gestione rette di un piccolo asilo,

ci sono due persone che fatturano

vorrei un contatore univoco per ogni persona e per ogni anno

ho una tabella presenze ed una tabella testata e righe rette

ogni volta che vengono aggiornate le presenze lancio una query di cancellazione totale delle testate  e delle righe rette e successivamente lancio una query di accodamento

vorrei che accodi in un campo un contatore che

parta da 0 sempre e comunque dall'inizio (le tabelle vengono sempre cancellate prima dell'accodamento)

incrementi ad ogni cambiamento dell'ID della persona che deve fatturare e riparta da 0 da ogni ANNO di riferimento

è un caso simile a DDT (presenze) e FATTURE (rette) ma con una gestione di due ditte

le mie conoscenze di sql non arrivano a tanto, ho solo visto che è consigliato usare un DMAX

e' possibile utilizzare direttamente il codice sql nella query di accodamento? o meglio usare vba?

grazie a tutti per il supporto


text:
> sto incominciando a preparare un programmino per la gestione rette di un piccolo asilo,
>
> ci sono due persone che fatturano
>
> vorrei un contatore univoco per ogni persona e per ogni anno
>

ciao,
ci sto provano da solo con le informazioni che riesco a reperire, al momento vorrei avanzare un contatore: se un campo di una tabella e' 0 scrivi il contatore CONTA0, se 1 CONTA1, se 2 CONTA2 nel campo CONTATORE

purtroppo non funziona (ottengo un unico contatore) dove sbaglio?

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sqlstring As String

Set dbLocal = CurrentDb
sqlstring = "SELECT EDUCATRICE,ANNO,CONTATORE FROM RETTA_TRAVASO_TESTATA_aghe"

Set rs = CurrentDb.OpenRecordset(sqlstring, dbOpenDynaset)

Dim CONTA0 As Integer
Dim CONTA1 As Integer
Dim CONTA2 As Integer
CONTA0 = 1
CONTA1 = 1
CONTA2 = 1

Do Until rs.EOF

Select Case (EDUCATRICE)
Case 0

    rs.Edit

    rs.Fields("CONTATORE") = CONTA0
    rs.Update
    CONTA0 = CONTA0 + 1

Case 1
    rs.Edit

    rs.Fields("CONTATORE") = CONTA1
    rs.Update
    CONTA1 = CONTA1 + 1

Case 2

    rs.Edit

    rs.Fields("CONTATORE") = CONTA2
    rs.Update
    CONTA2 = CONTA2 + 1

End Select

rs.MoveNext

Loop

rs.Close


author: Roberto Zannoni

text:
Per un attimo lascia perdere la struttura del tuo database e il spiega a parole, nel dettaglio, cosa vuoi fare.
Poi pensiamo al codice.


text:
Il giorno martedì 31 luglio 2018 19:43:56 UTC+2, Roberto Zannoni ha scritto:
> Per un attimo lascia perdere la struttura del tuo database e il spiega a parole, nel dettaglio, cosa vuoi fare.
> Poi pensiamo al codice.

grazie per la risposta,

ho due campi
EDUCATRICE      popolato con 0,1,2
ANNO            popolato con 2018,2019,2020,etc

vorrei un terzo campo da popolare tramite codice che conti progressivamente le modifiche che trova

esempio

EDUCATRICE        ANNO      CONTATORE
0                 2018          1
0                 2018          2
0                 2018          3
0                 2019          1
0                 2019          2
1                 2018          1
1                 2019          1

tenere un contatore singolo per ogni EDUCATRICE E ANNO, avanza se trova campi diversi da prima (la tabella e' gia' ordinata per EDUCATRICE e ANNO)

grazie


text:
Conta0, conta1 e conta2 devono ritornare a 1 quando educatrice o anno cambia.
La conseguenza è che non servono tre contatori ma ne basta 1.


title: Ciclo per password

author: Franco

text:
Access 2000
Ho una maschera con un controllo testo, maschera inmput a password, ed un
pulsante.
Sul click del pulsante ho questa procedura:
Private Sub cmdPass_Click()
For i = 1 To 4
    If Me.Testo3 = "entra" Then
        Exit For
        DoCmd.Close ' chiude la maschera di digitazione password
        DoCmd.OpenForm "mascCerca" 'apre una maschera del database
    Else
    MsgBox "La password non č esatta", vbCritical, "Attenzione"
    Me.Testo3.SetFocus
    Me.Testo3.Text = ""
    End If
Next i
    End Sub
Vorrei che ad ogni immissione sbagliata della password appaia il messaggio,
come nel codice, e al quarto tentativo sbagliato il messaggio appaia tipo
"ultimo tentativo il db verrą chiuso"e quindi il database si chiuda.
Solo che con quello che ho fatto se sbaglio password, appare il messaggio,
ma ogni volta che faccio click su ok del messaggio questo rimane visibile e
solo al quarto click scompare.
Ciao Franco


title: Ciclo per password

text:
"Franco" <
f.pic...@tin.it
> ha scritto nel messaggio
news:8jU8e.795543$b5.35...@news3.tin.it...
> Access 2000
>
> Ho una maschera con un controllo testo, maschera inmput a password, ed un
> pulsante.
> Sul click del pulsante ho questa procedura:
>
> Private Sub cmdPass_Click()
> For i = 1 To 4
>    If Me.Testo3 = "entra" Then
>        Exit For
>        DoCmd.Close ' chiude la maschera di digitazione password
>        DoCmd.OpenForm "mascCerca" 'apre una maschera del database
>    Else
>    MsgBox "La password non è esatta", vbCritical, "Attenzione"
>    Me.Testo3.SetFocus
>    Me.Testo3.Text = ""
>    End If
> Next i
>    End Sub
>
> Vorrei che ad ogni immissione sbagliata della password appaia il
> messaggio,
> come nel codice, e al quarto tentativo sbagliato il messaggio appaia tipo
> "ultimo tentativo il db verrà chiuso"e quindi il database si chiuda.
>
> Solo che con quello che ho fatto se sbaglio password, appare il messaggio,
> ma ogni volta che faccio click su ok del messaggio questo rimane visibile
> e
> solo al quarto click scompare.
>
>
> Ciao Franco
>
>
Ciao,
puoi raggiungere il tuo obiettivo nel seguente modo
-----------------------------------------------
-) dichiari 3 variabili nella sezione generale
 Option Compare Database
  Dim i, j, x As Integer
----------------------------------------------
-) inizializzi le variabile in fase di apertura del form
       i = 1
       j = 1
       x = 0
-----------------------------------------------------------
-) All'interno dell'evento click del pulsante puoi utilizzare il costrutto
condizionale (if...then...end if) incrementando le variabili...
Private Sub cmdPass_Click()
     If x = 1 Then
       If Me.Testo3 = "entra" Then
          DoCmd.Close ' chiude la maschera di digitazione password
          DoCmd.OpenForm "mascCerca" 'apre una maschera del database
       Else
          MsgBox "chiudo il db"
        End If
      End If
   If i < 4 Then
      If j < 4 Then
         If Me.Testo3 = "entra" Then
          DoCmd.Close ' chiude la maschera di digitazione password
          DoCmd.OpenForm "mascCerca" 'apre una maschera del database
       Else
          MsgBox "La password non è esatta", vbCritical, "Attenzione"
          Me.Testo3.SetFocus
          Me.Testo3.Text = ""
          j = j + 1
         End If
     End If
    End If
     If i = 4 Then
       MsgBox "Ultimo tentativo il db verrà chiuso", vbCritical,
"Attenzione"
       Me.Testo3.SetFocus
       Me.Testo3 = ""
       x = 1
     End If
    i = i + 1
End Sub
--------------------------------------------
Notte
Gaspare


title: Ciclo per password

text:
"Franco" <
f.pic...@tin.it
> ha scritto nel messaggio
news:8jU8e.795543$b5.35...@news3.tin.it...
> Access 2000
>
> Ho una maschera con un controllo testo, maschera inmput a password, ed un
> pulsante.
> Sul click del pulsante ho questa procedura:
>
> Private Sub cmdPass_Click()
> For i = 1 To 4
>    If Me.Testo3 = "entra" Then
>        Exit For
>        DoCmd.Close ' chiude la maschera di digitazione password
>        DoCmd.OpenForm "mascCerca" 'apre una maschera del database
>    Else
>    MsgBox "La password non è esatta", vbCritical, "Attenzione"
>    Me.Testo3.SetFocus
>    Me.Testo3.Text = ""
>    End If
> Next i
>    End Sub
>
> Vorrei che ad ogni immissione sbagliata della password appaia il
> messaggio,
> come nel codice, e al quarto tentativo sbagliato il messaggio appaia tipo
> "ultimo tentativo il db verrà chiuso"e quindi il database si chiuda.
>
> Solo che con quello che ho fatto se sbaglio password, appare il messaggio,
> ma ogni volta che faccio click su ok del messaggio questo rimane visibile
> e
> solo al quarto click scompare.
>
>
> Ciao Franco
>
>
Ciao,
pardon...puoi ridurre le variabili a 2...il sonno si fà sentire :-)
Option Compare Database
Dim i, x As Integer
Private Sub cmdPass_Click()
     If x = 1 Then
       If Me.Testo3 = "entra" Then
          DoCmd.Close ' chiude la maschera di digitazione password
          DoCmd.OpenForm "mascCerca" 'apre una maschera del database
       Else
          MsgBox "chiudo il db"
        End If
      End If
   If i < 4 Then
         If Me.Testo3 = "entra" Then
          DoCmd.Close ' chiude la maschera di digitazione password
          DoCmd.OpenForm "mascCerca" 'apre una maschera del database
       Else
          MsgBox "La password non è esatta", vbCritical, "Attenzione"
          Me.Testo3.SetFocus
          Me.Testo3.Text = ""
        End If
    End If
     If i = 4 Then
       MsgBox "Ultimo tentativo il db verrà chiuso", vbCritical,
"Attenzione"
       Me.Testo3.SetFocus
       Me.Testo3 = ""
       x = 1
     End If
    i = i + 1
End Sub
Private Sub Form_Load()
i = 1
x = 0
End Sub


title: Ciclo per password

author: SunRex

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:MhY8e.796244$b5.35...@news3.tin.it...

Ma anche ad una.
Private intLogonAttempts As Integer 'questa la dichiari a livello di form
Private Sub cmdPass_Click()
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 2 Then
            MsgBox "Non hai l'autorizzazione per accedere a questo
programma.", vbCritical
            Application.Quit
    End If
    If Me.Testo3 = "entra" Then
        DoCmd.Close ' chiude la maschera di digitazione password
        DoCmd.OpenForm "mascCerca" 'apre una maschera del database
        Exit  sub
    Else
    MsgBox "La password non è esatta", vbCritical, "Attenzione"
    Me.Testo3.SetFocus
    Me.Testo3.Text = ""
   End If
SunRex


title: Ciclo per password

author: Alessandro Baraldi

text:
"Franco" <
f.pic...@tin.it
> wrote in message
news:8jU8e.795543$
b5.35...@news3.tin.it
> Access 2000
>
> Ho una maschera con un controllo testo, maschera inmput a password, ed un
> pulsante.
> Sul click del pulsante ho questa procedura:
>
> Private Sub cmdPass_Click()
> For i = 1 To 4
>     If Me.Testo3 = "entra" Then
>         Exit For
>         DoCmd.Close ' chiude la maschera di digitazione password
>         DoCmd.OpenForm "mascCerca" 'apre una maschera del database
>     Else
>     MsgBox "La password non è esatta", vbCritical, "Attenzione"
>     Me.Testo3.SetFocus
>     Me.Testo3.Text = ""
>     End If
> Next i
>     End Sub
>
> Vorrei che ad ogni immissione sbagliata della password appaia il messaggio,
> come nel codice, e al quarto tentativo sbagliato il messaggio appaia tipo
> "ultimo tentativo il db verrà chiuso"e quindi il database si chiuda.
>
> Solo che con quello che ho fatto se sbaglio password, appare il messaggio,
> ma ogni volta che faccio click su ok del messaggio questo rimane visibile e
> solo al quarto click scompare.
>
>
> Ciao Franco
Credo ci sia qualche errore anche di concetto:
 Private Sub cmdPass_Click()
  Static Ntentativi as integer
  If Ntentativi>3 then
     MsgBox "Hai ultimato i tentativi"
     Docmd.Close
  Else
     If Me.Testo3 = "entra" Then
         Exit For
         DoCmd.Close ' chiude la maschera di digitazione password
         DoCmd.OpenForm "mascCerca" 'apre una maschera del database
         Ntentativi=0
     Else
        MsgBox "La password non è esatta" & vbCrLf & _
               "Tentativo n° " & Ntentativi+1, vbCritical, "Attenzione"
        Me.Testo3.SetFocus
        Me.Testo3.Text = ""
        Ntentativi=ntentativi+1
     End If
 Next i
End Sub
Penso sia la soluzione più semplice.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Ciclo per password

text:
"Franco" <
f.pic...@tin.it
> ha scritto nel messaggio
news:8jU8e.795543$b5.35...@news3.tin.it...

> Purtroppo aprendo oggi il NG non vedo le risposte che mi hanno dato
Gaspare , Sun rex e  Alessandro Baraldi, e che ho trovato cercando su
Google.
Ringrazio tutti per le soluzioni
 A quella di Alessandro ho tolto un  Exit for  e un Next i (forse rimasti
copiando il mio codice) e aggiunto un End if, e funziona . Funziona anche
quella di Gaspare. Quella di Sun Rex mi sembra non esca dal ciclo,
riproverņ.  Poi  vedrņ quale utilizzare.
Grazie di nuovo
Franco


title: Ciclo per password

text:
"Franco" <
f.pic...@tin.it
> wrote in message
news:MeR9e.808620$
b5.35...@news3.tin.it
[CUT]
>  A quella di Alessandro ho tolto un  Exit for  e un Next i (forse rimasti
> copiando il mio codice) e aggiunto un End if, e funziona . Funziona anche
> quella di Gaspare. Quella di Sun Rex mi sembra non esca dal ciclo,
> riproverņ.  Poi  vedrņ quale utilizzare.
> Grazie di nuovo
> Franco
Perfetto erano rimasti per errore.
Saluti.



title: Ciclo per password

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:4eabe3ce506299fb67...@mygate.mailgate.org...
> "Franco" <
f.pic...@tin.it
> wrote in message
> news:MeR9e.808620$
b5.35...@news3.tin.it
>
> [CUT]
>>  A quella di Alessandro ho tolto un  Exit for  e un Next i (forse rimasti
>> copiando il mio codice) e aggiunto un End if, e funziona . Funziona anche
>> quella di Gaspare. Quella di Sun Rex mi sembra non esca dal ciclo,
>> riproverň.  Poi  vedrň quale utilizzare.
>> Grazie di nuovo
>> Franco
>
>
> Perfetto erano rimasti per errore.
>
> Saluti.
> @Alex
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
Ciao,
ovviamente la "migliore" (dal punto di vista "sintattico") č quella di Alex
:-)


title: Ciclo per password

text:
"Franco" <
f.pic...@tin.it
> ha scritto nel messaggio
news:MeR9e.808620$b5.35...@news3.tin.it...

Ciao,



title: Ciclo per password

text:
"Gaspare" <
in...@studioieducation.com
> wrote in message
news:PoR9e.1271060$
35.46...@news4.tin.it
[CUT]
> Ciao,
> ovviamente la "migliore" (dal punto di vista "sintattico") è quella di Alex
> :-)
E' solo più compatto, forse non mi conosci a sufficienza,
ma io meno scrivo e più sono soddisfatto del mio codice.
Alcune volte non è un bene, potrebbe diventare troppo criptico
e dare luogo a dubbi nei mesi a venire....!
Ciao



title: Ciclo per password

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:66ba89b806aac5221f...@mygate.mailgate.org...

Ciao Alex,
sei un "perfezionista" -> non è un male anzi...perchè sprecare righe di
codice invano? Nei tempi passati si economicizzava e sulle variabili per via
della memoria allocata e cmq nella fattispecie, a mio parere, hai ragione tu
in quanto è anche un problema di concetto :-)
Ma quali dubbi? Commenti abbastanza il tuo codice e nei casi in cui non lo
fai si commenta da sè ;-)
Buona serata
Gaspare


title: Ciclo per password

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio
news:ALS9e.1271577$35.46...@news4.tin.it...

E cmq non mi di "litigare" per queste cose... ;-)


title: [OT][CISA1] partenze da lecco-bergamo venerdì 3

author: stkabisa

text:
Colgo l'occasione per chiedere se qualcuno partecipa alla cisa1
provenendo da Lecco -Bergamo -milano o altre città sul percorso
Lecco-Arezzo
PS anche Como va bene
Viaggio in macchina partenza Venerdì 3 ore da stabilire
Stkabisa


author: ciroteo

text:
"stkabisa" <
stka...@tin.it
> ha scritto nel messaggio
news:1116323069.1...@g43g2000cwa.googlegroups.com...

Ciao stkabisa, come già ti avevo accennato facciamo una macchinata che parte
da Milano.
Se tu non hai problemi a raggiungere in trenola Stazione Centrale potremmo
tranquillamente incontrarci li salvo cambiamenti Nick dovrebbe venire in
treno, al momento siamo io, Mario Milani, e Nick.
Altrimenti se per te non è un problema Lecco non è poi così lontana puoi
facilmente scendere in macchina verso como/varese e arrivare a Busto o a
Gallarate. Cosi hai un posto "sicuro" dove lasciare la macchina, perchè a
milano mi sa che è un po' un casino lasciarla tre gg, nonchè un po'
pericoloso.
A disposizione
ciroteo
MC


author: MA

text:

Chi fa prima i caschetti bianchi o i passamontagna neri?
>
> A disposizione
>
> ciroteo
> MC
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


text:
Non ho problemi, ma speravo si riuscisse a fare due macchinate,
quindi pensavo di venire in macchina fino ad arezzo se qualcuno si
vuole aggiungere.
Nick viene dalla bergamasca vero, potrei passare a prenderlo
direttamente
Stkabisa


text:

Porcaccia, pensavo che la Tailandia fosse più lontana.
Che usi la Fastweb Airlines?
p.s. ancora no ho notizie per te



author: Mariolo

text:
"stkabisa" <
stka...@tin.it
> ha scritto nel messaggio
news:1116325286....@g43g2000cwa.googlegroups.com...

La mia macchina č a disposizione... se preferisci fare due macchinate per me
non c'č problema, ma perchč duplicare i costi?
P.S.
Ho cambiato nick name, č per quello che non rispondete piů ai miei
quesiti?...mi sento come la particella di sodio dell'acqua Lete.
Ciao
MArio


text:
Mariolo wrote:
Grazie della risposta alla domanda fatta a Ciroteo.
Ho capito



text:
Parto stanotte per Bancok
ora sono ad anversa
stkabisa


text:
Semplicemente perchè non ho costi auto
e mi piace quidare (macchina sponsorizzata)
stkabisa


text:

Se Ciroteo non pesa troppo me lo potete inviare in allegato.
oh mi raccomando la zip!!!



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:xUjie.10362$TR5....@news.edisontel.com...
> Mariolo wrote:
>
> Grazie della risposta alla domanda fatta a Ciroteo.
> Ho capito
>
> --
Non ho capito! :-(
Mario sei tu? ... ops!


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:%Yjie.10365$TR5....@news.edisontel.com...
> stkabisa wrote:
>> Semplicemente perchè non ho costi auto
>> e mi piace quidare (macchina sponsorizzata)
>> stkabisa
>
> Se Ciroteo non pesa troppo me lo potete inviare in allegato.
> oh mi raccomando la zip!!!
>
> --
guarda che io scrocco volentieri ... e anche se mi zippi ti ci vuole la
fibra ottica ...


text:

S'è firmato Mariolo e tu hai detto che la macchina di stefano non sta
sicura.



text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d6ck5o$ju7$1...@hulme.interac.it...

Certo che sono io... e chi se no...
Ciao
Mario


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:xUjie.10362$TR5....@news.edisontel.com...

Era già poco chiara la battuta sui caschetti bianchi e i passamontagna
neri...
questa però me la devi spiegare perchè proprio non ci arrivo
Ciao
Mario


text:
Mariolo wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:xUjie.10362$TR5....@news.edisontel.com...
>> Mariolo wrote:
>>
>> Grazie della risposta alla domanda fatta a Ciroteo.
>> Ho capito
>>
>
> Era già poco chiara la battuta sui caschetti bianchi e i passamontagna
> neri...
> questa però me la devi spiegare perchè proprio non ci arrivo
> Ciao
> Mario
Sì, scusa, mi sono lasciato andare.
Lui diceva che era poco sicura la tua auto e mi chiedevo se era perchè se la
"ciulavano" i vigili (caschetti bianchi) o
quelli col passamontagna, i ladri.
A napoli poi i ladri si chiamano i mariuoli, e ho giocato col fatto che tu
lo invitavi a venire su a milano.
Ammetto che di solito mi escono più felici le battute, cmq ti chiedo scusa,
ma era solo il gusto della battuta
(anche se poco riuscita, mi rendo conto).



text:
Karl Donaubauer wrote:
> MA wrote:
>> Mariolo wrote:
>>> ...
>>> Era già poco chiara...
>>> questa però me la devi spiegare perchè proprio non ci arrivo
>>
>> Sì, scusa, mi sono lasciato andare.
>> ...
>> Ammetto che di solito mi escono più felici le battute,...
>
> Sono contento di vedere che (di solito?) sei incomprensibile
> persino per i compatrioti.
Sì il problema non è la lingua



author: Karl Donaubauer

text:
MA wrote:
> Mariolo wrote:
>> ...
>> Era giŕ poco chiara...
>> questa perň me la devi spiegare perchč proprio non ci arrivo
>
> Sě, scusa, mi sono lasciato andare.
> ...
> Ammetto che di solito mi escono piů felici le battute,...
Sono contento di vedere che (di solito?) sei incomprensibile
persino per i compatrioti.
--
:-)
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005