title: Cambio icona a menu personalizzato

text:
sv ha scritto:
> ALESSANDRO Baraldi ha scritto:


> > @Alex.

> --
> rgrds
> SC
Ho provato con Win98. Bisogna aprire il file .ICO con Explorer e poi
salvarlo come file .BMP. Riaprirlo con MSPaint e poi al solito: copia e
incolla.



title: DAO in Access 12

author: Mirko Caporali

text:
Ciao a tutti,
Ho letto che in Access 12 il motore sarà notevolmente rinnovato. Se ho
capito bene, dovrebbe cambiare anche l'estensione del file.
Mi chiedo se continueranno ad esistere gli oggetti DAO così come oggi,
o se invece, subiranno notevoli modifiche; se oggi realizzo un database
con Access 2003 facendo un abbondante uso di DAO e poi passo ad Access
12 convertendo il DB realizzato, spero di non incorrere in alcun tipo
di problema.
Qualcuno mi sa dire qualcosa a tal proposito?
Grazie.


title: DAO in Access 12

author: Roberto La Forgia

text:
"Mirko Caporali" <
mirko.c...@tin.it
> wrote in message
news:1134390686.8...@o13g2000cwo.googlegroups.com

Beh, se sviluppi qualcosa in DAO supponiamo, dovresti per un bel pò di
tempo per utilizzare la libreria DAO 3.6 ad esempio.
Creado che sia ragionevole pensare che gli investimenti software fatti
finora siano utilizzabili,
altrimenti i clienti potebbero arrabbiarsi un pochino con Microsoft :-)
Ciao,
Roberto
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: DAO in Access 12

text:
Roberto La Forgia ha scritto:
> altrimenti i clienti potebbero arrabbiarsi un pochino con Microsoft :-)
..tanto per usare un eufemismo :-)


title: Chi usa regolarmente "replica database"?

author: MT

text:
Vorrei utilizzare per l'applicazione che ho creato (backend+frontend) questa funzionalità di
"replica" database per garantire una maggiore sicurezza e backup con Access'97, funziona bene o
devo lasciar perdere?
Ringrazio chi risponde.
Marco


title: Maschere continue e colore sfondo

author: Paolo Donnarumma

text:
Ciao maggiciii!
In una maschera continua mi piacerebbe colorare gli sfondi dei vari record
alternativamente di bianco e azzurro per migliorarne la visibilità: ho visto
che qualcosa c'è sul sito comune, il problema è che avendo Access 95 non
riesco ad aprire i file allegati.
Per caso c'è qualcuno che sa come si potrebbe fare?
Ri-ciao!


title: fare ricerca codice in maschere continue.

author: Napoleone

text:
Come da oggetto nella mia maschera in visualizzazione maschere continue,
vorrei posizionarmi su un preciso record, selezionandolo calla casella
combinata.
Sto tentando con questo codice, ma non succede nulla.
----------------------------------------
Private Sub CasellaCombinata48_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[lCodiceBarreProdotto] = '" & Me![CasellaCombinata48] &
"'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
--------------
Napoleone


author: Karl Donaubauer

text:
Napoleone wrote:
> Come da oggetto nella mia maschera in visualizzazione maschere continue,
> vorrei posizionarmi su un preciso record, selezionandolo calla casella
> combinata.
> Sto tentando con questo codice, ma non succede nulla.
> ----------------------------------------
> Private Sub CasellaCombinata48_AfterUpdate()
>    ' Trova il record corrispondente al controllo
>    Dim rs As Object
meglio, se già sai cosa vuoi:
    Dim rs As DAO.Recordset
>
>    Set rs = Me.Recordset.Clone
>    rs.FindFirst "[lCodiceBarreProdotto] = '" & Me![CasellaCombinata48] &
> "'"
>    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> End Sub
> --------------
Non vedo un errore ma sei sicuro che
Me![CasellaCombinata48]
fornisce il valore aspettato?
Ovviamente dipende dalla colonna associata e il tipo di dato.
Prova con
MsgBox Me![CasellaCombinata48]
o
Debug.Print Me![CasellaCombinata48]
e BTW per i controlli usa nomi più signicativi di "CasellaCombinata48".
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3gvmmnF...@individual.net...
> Napoleone wrote:
>> Come da oggetto nella mia maschera in visualizzazione maschere continue,
>> vorrei posizionarmi su un preciso record, selezionandolo calla casella
>> combinata.
>> Sto tentando con questo codice, ma non succede nulla.
>> ----------------------------------------
>> Private Sub CasellaCombinata48_AfterUpdate()
>>    ' Trova il record corrispondente al controllo
>>    Dim rs As Object
>
> meglio, se già sai cosa vuoi:
>    Dim rs As DAO.Recordset
PERFETTO (Sear Gut)
A questo punto ho portato il focus sul controllo sDescrizione, cosi
identifico meglio il record
Me.sDescrizione.SetFocus
> HTH
> Karl
> *********
Grazie e Buona Domenica
Napoleone


title: Da Access97 ad Access2003

author: Franco

text:
Ho convertito con Access 2003 un robusto file mdb creato
tempo fa con Access 97, contenente tante routine e macro, e
sembra funzionare bene con la nuova versione.
E' affidabile questa conversione?
Posso essere sicuro di che tutte le routine e le macro siano
state convertite bene?
Non avrò qualche sopresa in futuro?
Ciao


title: Da Access97 ad Access2003

author: IvanDaBologna

text:
"Franco" <
fc2...@virgilio.it
> ha scritto nel messaggio
news:470fc367$0$4785$4faf...@reader4.news.tin.it...

La conversione è sicura. Il codice l'hai compilato senza errori?
Tieni conto che il linguaggio regge da molti anni e non ha problemi se non
il fatto che non vede nuove classi di oggetti. Quindi può solo essere che
alcune procedure potrebbero essere state sostituite da una unica funzione,
magari più efficiente. Un male da poco se hai deciso di fare manutenzione
del codice per ottimizzarlo.
IvanDaBologna


title: velocizzare query con Union o Union ALL?

author: pfm

text:
salve!

per velocizzare una query che ha una relazione con una tabella o con un'altra in base al valore di un campo

pensavo di creare 2 select (filtrato con solo i dati che hanno la relazione con la prima tabella)
union
con la select dei dati (filtrato con solo i dati che hanno la relazione con la seconda tabella)

essendo recordset con gli stessi campi va con valori diversi e' meglio UNION o UNION ALL

Grazie


author: GiorgioDaPrato

text:

per quel che ricordo UNION ALL è più veloce:
NON controlla se ci sono doppioni (cosa che fa invece Union "da sola")

e ovviamente raccoglie anche i doppioni ...


text:
grazie

in questo modo vedo che si e' velocizzata ma la maschera pivot rimane molto lenta.
avete dei consigli al riguardo?

GRAZIE


text:

query union (di altre query) E maschera pivot (quindi raggruppamenti) ...

quando ho la necessità di simili concatenazioni di elaborazioni stabilizzo la sorgente dati finale (o una delle elaborazioni intermedie) in una tabella temporanea.


text:
Grazie mi interessa molto approfondire l'argomento perché noto che il collo di bottiglia è ora la pivot. Ma non so come fare se l'utente vuole espandere i dati

I dati posso farli arrivare in una tabella temporanea ma poi? Se non sbaglio è la maschera pivot che elabora


text:
Il giorno giovedì 24 maggio 2018 19:08:20 UTC+2, pfm ha scritto:
> Grazie mi interessa molto approfondire l'argomento perché noto che il collo di bottiglia è ora la pivot. Ma non so come fare se l'utente vuole espandere i dati
>
> I dati posso farli arrivare in una tabella temporanea ma poi? Se non sbaglio è la maschera pivot che elabora

purtroppo NON ho mai adoperato le maschere pivot,
vedo che c'è un 3D contemporaneo
https://groups.google.com/forum/#!topic/it.comp.appl.access/P9jXCOD7bEI

in cui viene segnalato che "va in deprecazione"
magari accoda la richiesta a quel 3D

comunque la tabella temporanea
(da cancellare dei contenuti e da riempire dei valori attuali ad ogni sua "chiamata in scena")
penso possa essere origine di codesta form pivot
(direttamente o indirettamente tramite query)


text:
Salve,

Giorgiodaprato ha scritto:
> pfm ha scritto:
>> ...Se non sbaglio è la maschera pivot che elabora
>
> purtroppo NON ho mai adoperato le maschere pivot,
> ...
> in cui viene segnalato che "va in deprecazione"
> ...

Sì, di solito non è una buona idea di ancora creare o estendere
soluzioni sulla base della technica non supportata da 5 anni e 2
versioni (fra pochi mesi 3 versioni).

Vedi il quarto punto qui:
https://support.office.com/it-it/article/bc006fc3-5b48-499e-8c7d-9a2dfef68e2f

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

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


title: Req: collegare più tabelle

text:
Salve a tutti.
Ho questo problema:
devo creare un archivio in cui i campi che mi interessano sono 430 (o
giù di lì), ma una tabella di access 2000 mi contiene max 255 (se non
erro) campi. Creando 2 tabelle con i campi messi in successione, come
faccio poi a collegarli (meno problemi per la maschera)?
La mia necesistà è di poter inserire come collegati i dati e poi
elaborarli (ma a questo ci penserò dopo)
Grazie per l'aiuto (spero di esesre stato chiaro


title: Req: collegare più tabelle

author: Matteo Palmieri

text:
Azz'... 430 campi? :)
Cmq, direi che la procedura consiste nel creare due tabelle con la stessa
chiave primaria e relazionarle tra loro con una relazione uno a uno.
Ciao, Matteo.


title: Req: collegare più tabelle

text:
grazie.
altra curiositŕ: se le tabelle fossero piů di due da collegare? come
dovrei fare?



title: Req: collegare più tabelle

text:
<
ci64.nonspamm...@hotmail.com
> ha scritto nel messaggio
news:mrej8us3mae99nr86...@4ax.com...
> altra curiosità: se le tabelle fossero più di due da collegare? come
> dovrei fare?
Procedi allo stesso modo: crei una terza tabella sempre con la stessa chiave
primaria e la metti in relazione alle altre.
Ciao, Matteo.


title: Req: collegare più tabelle

text:
Molte grazie!
saprò dire come è andata.
:-)



title: eseguire un operazione solo sui record che riespettano una certa condizione

author: Arold

text:
utilizzo
    Me.Filter = CostruisciFiltro
    Me.FilterOn = True
dvove costruisci filtro imposta le condizioni di visualizzazione dei record
vorrei da codice vba avere un recordset per poi fare un operazione (esempio
aggiungere 5 al campo totale) solo sui record che attulmente sono visibili
nella form perchè è stato applicato il filtro.
spero di essere stato chiaro. Grazie.


author: namor

text:
Arold ha scritto:

Se hai un totale nella maschera o sottomaschera puoi usare quello:
(Me.Totale + 5)
O puoi prendere i dati dalla tabella o query con DSum sfruttando il
criterio già pronto:
DSum("nomecampo","nometabella",Me.Filter) + 5
O se stai imparando e vuoi fare esperienza con i recordset, te ne puoi
aprire uno, scorrerlo e farci i totali, subtotali e qualsiasi altro
calcolo ti venga in mente.
Ciao.
Namor
--

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


author: Sib

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio

Non tanto.
con "aggiungere" intendi "sommare" o "impostare"?
Comunque non devi fare altro che una query di aggiornamento:
Currentdb.execute "UPDATE TuaTabella SET TuoCampo=TuoCampo+5 WHERE "&
CorstruisciFiltro
Sib


author: Alessandro Baraldi

text:
"namor" <
na...@nospm.inwind.it
> wrote in message
news:bhvt5k$jjj$
1...@news.newsland.it
> Arold ha scritto:
> > utilizzo
> >     Me.Filter = CostruisciFiltro
> >     Me.FilterOn = True
> > dvove costruisci filtro imposta le condizioni di visualizzazione dei record
> > vorrei da codice vba avere un recordset per poi fare un operazione (esempio
> > aggiungere 5 al campo totale) solo sui record che attulmente sono visibili
> > nella form perchè è stato applicato il filtro.
> > spero di essere stato chiaro. Grazie.
>
> Se hai un totale nella maschera o sottomaschera puoi usare quello:
> (Me.Totale + 5)
> O puoi prendere i dati dalla tabella o query con DSum sfruttando il
> criterio già pronto:
> DSum("nomecampo","nometabella",Me.Filter) + 5
> Namor
Se non ho capito male le cose stanno diversamente.....!
Mi pare che voglia filtrare in base ad alcuni criteri
il Recordset origine della Form e, sui Records Filtrati
applicare la modifica al campo Totale di ogni singolo Record...!
In effetti però non è chiaro, ma a prescindere ciò non è
bello farlo, solitamente se vuoi fare una cosa simile devi
eseguire una QRY_UPDATE nella quale inserisci i Criteri
tramite la condizione WHERE e nella quale imposti nell'istruzione
SET la variazione voluta.
Chiedo scusa se ho frainteso la questione.
Saluti.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
> Arold ha scritto:
> > utilizzo
> >     Me.Filter = CostruisciFiltro
> >     Me.FilterOn = True
> > dvove costruisci filtro imposta le condizioni di visualizzazione dei
record
> > vorrei da codice vba avere un recordset per poi fare un operazione
(esempio
> > aggiungere 5 al campo totale) solo sui record che attulmente sono
visibili
> > nella form perchè è stato applicato il filtro.
> > spero di essere stato chiaro. Grazie.
>
>
> Se hai un totale nella maschera o sottomaschera puoi usare quello:
> (Me.Totale + 5)
>
> O puoi prendere i dati dalla tabella o query con DSum sfruttando il
> criterio già pronto:
> DSum("nomecampo","nometabella",Me.Filter) + 5
>
> O se stai imparando e vuoi fare esperienza con i recordset, te ne puoi
> aprire uno, scorrerlo e farci i totali, subtotali e qualsiasi altro
> calcolo ti venga in mente.
Non cerdo che intendesse parlare di totali nel senso di somma di campi,
credo intendere un nome di campo qualsiasi.
Sib


text:
Sib ha scritto:


Eh, già, rileggendo potrebbe essere questa l'interpretazione corretta, nel
qual caso le query di aggiornamento che avete proposto risolvono
egregiamente il problema.
Saluti.



author: Simone Calligaris

text:
"Arold" <> utilizzo

Basta utilizzare il "recordsetclone" della Form.
Ciao.


text:
> >
> > spero di essere stato chiaro. Grazie.
>
> Basta utilizzare il "recordsetclone" della Form.
>
> Ciao.
>
mi spiego meglio pensavo che l'esempio che ho fatto calzasse ma ora penso di
no, possiedo 10 record nella tabella io filtro i record nella form con
me.filter e ne ottengo solo 5
siccome ho aggiunto un controllo texttospeak per far leggere al pc il testo
in italiano, vorrei che il pc leggesse i 5 record in sequenza e non tutti e
10
devo fare un ciclo for sui soli record che sono a video nella form e ad ogni
iterazione del for fagli leggere il testo corrente
es:
for i 1 = to numrecordfiltrati
    textspeak1.speak "questo è il messaggio" & i
next i
Grazie.


text:
"Arold"
> for i 1 = to numrecordfiltrati
>     textspeak1.speak "questo è il messaggio" & i
> next i
Appunto, e io che ho detto?
With me.recordsetclone
     do
            <quello che devi fare>
            .movenext
    loop until .eof()
end with


text:

Ma sai, spesso chi posta ha il problema chiaro in testa e pensa che sia
chiaro anche per gli altri, quindi ho sviluppato un sesto senso per leggere
tra le righe e capire cosa vogliano fare le persone che chiedono aiuto.
Sib
--
http://www.sitocomune.com


text:
> Appunto, e io che ho detto?
>
> With me.recordsetclone
>      do
>             <quello che devi fare>
>             .movenext
>     loop until .eof()
> end with
>
si grazie, ho fatto cosi
TextToSpeech1.Initialized = 1
TextToSpeech1.LanguageID (&H410) ' x LA PRONUNCIA ITALIANA
With Me.RecordsetClone
     Do
        TextToSpeech1.Speak "In data" & Me.data & " alle ore " & Me.ora & ",
" & Me.IMPEGNO
        .MoveNext
    Loop Until .EOF()
End With
però continua a leggermi il primo record selezionato nella form anzichè
leggerli di seguito tutti e 5.
mi sai dire cosa sbaglio?


text:
"Arold" <
>     TextToSpeech1.Speak "In data" & Me.data & " alle ore " & Me.ora & ",
> " & Me.IMPEGNO
Devi fare riferimento ai campi del recordsetclone:
!data
!ora
!Impegno
Saluti.


text:
>
> Devi fare riferimento ai campi del recordsetclone:
>
> !data
> !ora
> !Impegno
>
> Saluti.
ho fatto come dici
TextToSpeech1.Initialized = 1
TextToSpeech1.LanguageID (&H410) ' x LA PRONUNCIA ITALIANA
With Me.RecordsetClone
     Do
        TextToSpeech1.Speak "In data" & Me!data & " alle ore " & Me!ora & ",
" & Me!IMPEGNO
        .MoveNext
    Loop Until .EOF()
End With
legge sempre il primo anche se non metto Me.
        TextToSpeech1.Speak "In data" & !data & " alle ore " & !ora & ", " &
!IMPEGNO
dice elemento non trovato in questo insieme
??????


text:
"Arold" <
> dice elemento non trovato in questo insieme
>
> ??????
Le caselle di testo a cui fai riferimento avranno dei campi associati,
giusto?
Bene, fai riferimento a quei campi.
Il recordsetclone è un recordset a tutti gli effetti, lavoraci come fai
sempre con taluni oggetti.
Non posso sapere come hai denominato i campi legati ai controlli...
Ciao.


text:
>
> Il recordsetclone è un recordset a tutti gli effetti, lavoraci come fai
> sempre con taluni oggetti.
> Non posso sapere come hai denominato i campi legati ai controlli...
>
> Ciao.
perfetto funziona grazie.


title: Come trasferire alcuni dati da una tabella ad un'altra?

author: Leo

text:
Ciao, sono poco pratico di access, ho creato una tabella di cui mi servono
aalcuni dati da inserire in un altra tabella che ha solo due campi in pių
rispetto all'altra.
Io infatti effettuo l'inserimento tarmite una maschera, che ha origine da
una query,  alcuni recordi della tabella 1 devono essere trasferiti nella
tabellaa2 che contiene solo due campi.
Come posso fare?


author: Antonio Biso

text:
"Leo" <
Leo2...@yahoo.it
> ha scritto nel messaggio
news:alHh9.5717$Av4.1...@twister2.libero.it...

Query di accodamento da una tabella ad un'altra.
Per i campi in pių o non ci metti nulla o ci metti qualcosa deciso da te
(es. un trattino -)
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:ioHh9.6840$Hc7.1...@twister1.libero.it...

Allora laa maschera che mi dovro' creare per inserire i due campi in piu'
avra' origine dalla query d'accodamento?


author: Roberto da casa

text:
"Leo" <
Leo2...@yahoo.it
> ha scritto nel messaggio
news:alHh9.5717$Av4.1...@twister2.libero.it...
> Ciao, sono poco pratico di access, ho creato una tabella di cui mi servono
> aalcuni dati da inserire in un altra tabella che ha solo due campi in più
> rispetto all'altra.
> Io infatti effettuo l'inserimento tarmite una maschera, che ha origine da
> una query,  alcuni recordi della tabella 1 devono essere trasferiti nella
> tabellaa2 che contiene solo due campi.
> Come posso fare?
A fronte dell'evento "Dopo inserimento" della tua maschera genera una codice
VBA che esegue una query di accodamento in tabella2 prelevando i dati dai
controlli della maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wAHh9.6884$Hc7.1...@twister1.libero.it...

Caro Roberto purtroppo sono scarso a VBA se puoi darmi qualche indicazione
oppure consigliarmi un libro adatto. ti ringrazio.


text:
"Leo" <
Leo2...@yahoo.it
> ha scritto nel messaggio
news:TxHh9.5757$Av4.1...@twister2.libero.it...
>
> > Query di accodamento da una tabella ad un'altra.
> > Per i campi in più o non ci metti nulla o ci metti qualcosa deciso da te
> > (es. un trattino -)
> >
> > Antonio
> Allora laa maschera che mi dovro' creare per inserire i due campi in piu'
> avra' origine dalla query d'accodamento?
Ma guarda che per inserire dati in una tabella non c'è solo la maschera, ma
anche le query!!!
Antonio


text:
"Leo" <
Leo2...@yahoo.it
> ha scritto nel messaggio
news:QDHh9.6902$Hc7.1...@twister1.libero.it...
>
>[CUT]
>
> Caro Roberto purtroppo sono scarso a VBA se puoi darmi qualche indicazione
> oppure consigliarmi un libro adatto. ti ringrazio.
Di fatto con del codice VBA devi crearti dinamicamente la stringa SQL di una
query di accodamento, prelevando i valori dei dati da trsferire nei campi
della tabella dai controlli della tua maschera; quindi esegui la stringa SQL
usando il metodo RunSQL.
Quanto a manuali specifici non saprei cosa consigliarti, ma puoi cercare
sull'help in linea i seguenti argomenti:
1) Tipi di query che è possibile creare in Microsoft Access.
2) Query di comando: definizione ed utilizzo
3) Query di comando <definizione>
4) Query di comando
5) Query di acccodamento <definizione>
6) Istruzione INSERT INTO (SQL di Microsoft Jet)
7) Metodo RunSQL
8) Esempio di metodo RunSQL
Inoltre creati, usando la griglia di struttura, una query di accodamento e
dai uno sguardo a come è fatto il suo codice SQL.
Eventualmente, prima di impiccarti, rifatti vivo. :-)



text:


Ho creato la fatidica qry di accodamento, ma nonostante la tabella si
aggiorni mi restituisce all'esecuzione della qry un errore:
"imposibile accodare tutti i record nella query di accodamento"
....; numero  di record non aggiunti alla tabella a causa di
violazioni chiavi:10; ....
Io ho un tabella (tabella1) con 8 campi (campo1...campo8) piena di
dati, mentre mi sono creato un'altra tabella ma vuota (che voglio
riempire con alcuni dati della tabella1) nella quale ci sono gli
stessi campi della tabella1 con in piu' altri due campi
(campo9-campo10).
Mi sono creato una maschera che prende i dati aggiornati nella
tabella2 e mi permette di inserire i campi mancanti.
Ora pero' da questa tabella2 devo ricavarmi tre report che mi
permettono la stampa di tutti quei record che abbiano un campo uguale
tra loro.
E' possibile far in modo che la qry di accodamento si aggiorni in
automatico all'apertura della maschera? ed inoltre avendo io una
casella combinata con tre vaoli all'interno voglio crearmi tre report
differenti tra loro che abbiano all'interno della casella compinata lo
stesso valore (acqua, vino, birra).


text:
"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
news:3d89fa2d...@powernews.libero.it...

Hai problemi con la chiave primaria della tabella in cui stai accodando i
dati.
>
> Io ho un tabella (tabella1) con 8 campi (campo1...campo8) piena di
> dati, mentre mi sono creato un'altra tabella ma vuota (che voglio
> riempire con alcuni dati della tabella1) nella quale ci sono gli
> stessi campi della tabella1 con in piu' altri due campi
> (campo9-campo10).
> Mi sono creato una maschera che prende i dati aggiornati nella
> tabella2 e mi permette di inserire i campi mancanti.
> Ora pero' da questa tabella2 devo ricavarmi tre report che mi
> permettono la stampa di tutti quei record che abbiano un campo uguale
> tra loro.
>
> E' possibile far in modo che la qry di accodamento si aggiorni in
> automatico all'apertura della maschera? ed inoltre avendo io una
> casella combinata con tre vaoli all'interno voglio crearmi tre report
> differenti tra loro che abbiano all'interno della casella compinata lo
> stesso valore (acqua, vino, birra).
>
Quale è la chiave primaria di Tabella2 (quella con 10 campi)?
Se come spero è un campo di tipo contatore, non lo usare nella query di
accodamento, se lo gestisce da solo Access.



text:
On Fri, 20 Sep 2002 10:15:22 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:

Io ho copiato la tabella1 e da questa ho creto la tabella2 che ha la
stessa chiave primaria gli stessi campi, ma ha due campi in piu'.


text:
"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
news:3d8c3efc...@powernews.libero.it...
[CUT]
> Io ho copiato la tabella1 e da questa ho creto la tabella2 che ha la
> stessa chiave primaria gli stessi campi, ma ha due campi in piu'.
Ho capito!
Ma se la chiave primaria č un contatore non copiare questo campo.



text:
On Sat, 21 Sep 2002 09:57:45 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
>news:3d8c3efc...@powernews.libero.it...
>[CUT]
>> Io ho copiato la tabella1 e da questa ho creto la tabella2 che ha la
>> stessa chiave primaria gli stessi campi, ma ha due campi in piu'.
>
>Ho capito!
>Ma se la chiave primaria č un contatore non copiare questo campo.
>
>--
>Roberto
>
--------------------------------------
Non č un campo contatore. E' semplicemente un caampo testo.


text:
"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
news:3d8e403...@powernews.libero.it...
[CUT]
> Non è un campo contatore. E' semplicemente un caampo testo.
Ciò significa che come chiave primaria di un record da accodare hai usato il
valore di una chiave primaria di un record già accodato precedentemente:
questo non può eesere.
Una soluzione al tuo problema è proprio quella di usare come chiave primaria
un contatore che non andrai ad accodare nella query di accodamento; il
contatore potrebbe non avere altro compito che rendere i record univoci:
d'altra parte questo è il compito di una chiave primaria.



text:
On Mon, 23 Sep 2002 16:25:42 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
>news:3d8e403...@powernews.libero.it...
>[CUT]
>> Non è un campo contatore. E' semplicemente un caampo testo.
>
>Ciò significa che come chiave primaria di un record da accodare hai usato il
>valore di una chiave primaria di un record già accodato precedentemente:
>questo non può eesere.
>
>Una soluzione al tuo problema è proprio quella di usare come chiave primaria
>un contatore che non andrai ad accodare nella query di accodamento; il
>contatore potrebbe non avere altro compito che rendere i record univoci:
>d'altra parte questo è il compito di una chiave primaria.
>
>--
>Roberto
grazie ho fatto come hai detto ed oraa va bene. Ho bisogno di un
ultimo aiuto. Ho letto qualcosaa sul Metodo RunSQL, ma ho capito poco.
Su evento dopo inserimento dovrei creaare un codice VBA ne quale
dovrei inserire il comando DoCmd.RunSQL?
Dove richiamo la Qry d'accodamento precedentemente creata giusto?
Ma da quello che ho letto nella guida non ho capito molto cosa devo
inserire come istruzione SQL, il nome della qry d'accodamento creata?


text:
On Mon, 23 Sep 2002 16:25:42 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
>news:3d8e403...@powernews.libero.it...
>[CUT]
>> Non è un campo contatore. E' semplicemente un caampo testo.
>
>Ciò significa che come chiave primaria di un record da accodare hai usato il
>valore di una chiave primaria di un record già accodato precedentemente:
>questo non può eesere.
>
>Una soluzione al tuo problema è proprio quella di usare come chiave primaria
>un contatore che non andrai ad accodare nella query di accodamento; il
>contatore potrebbe non avere altro compito che rendere i record univoci:
>d'altra parte questo è il compito di una chiave primaria.
>
>--
>Roberto
>
Grazie dell'aiuto ho risolto l'errore.
Ora però non sono riuscito aa capire sull'evento dopo inserimento come
impostare il codice VBA.
Ho letto sulla guida il metodo RunSQL, ma ho caapio molto poco.
Dovrei inserire nella funzione suddetta l'oggetto DoCmd.RunSQL che fa
partire la query d'accodamento, giusto?
DoCmd.RunSQL Query1
dove Query1 è la query d'accodamento?


text:
"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
news:3d921922...@powernews.libero.it...

No, non è giusto quello che hai scritto.
Se la query di accodamento te la sei preparata prima e si chiama Query1 per
eseguirla devi scrivere:
DoCmd.OpenQuery "Query1"
Il metodo RunSQL si adopera per eseguire direttamente una stringa SQL
presente nel codice VBA e che contiene il codice SQL della query di
accodamento.
Ad esempio, per accodare tutti i campi di tutti i record di Tabella1 nella
Tabella2, scriveresti:
DoCmd.RunSQL "INSERT INTO Tabella2 SELECT Tabella1.* FROM Tabella1;"
Per maggiori chiarimenti vedi sull'help il Metodo RunSQL ed il suo relativo
esempio.



text:
On Wed, 25 Sep 2002 22:05:17 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:

Ho capito, ma ora è sorto un problema quando parte la query
d'accodamento aggiunge sempre ogni volta che apro la maschera gli
stessi record perche'?
Come posso evitare che accada questo?
Io ho fatto come hai detto ho aaggiunto lla tabella2  un campo
contatore che non ha riferimenti con la tabella1. Ma quando faccio
partire la query questa mi aggiunge gli stessi record.


text:
"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
news:97q6pu87iq5cil0ce...@4ax.com...
[CUT]
>
> Ho capito, ma ora č sorto un problema quando parte la query
> d'accodamento aggiunge sempre ogni volta che apro la maschera gli
> stessi record perche'?
> Come posso evitare che accada questo?
>
> Io ho fatto come hai detto ho aaggiunto lla tabella2  un campo
> contatore che non ha riferimenti con la tabella1. Ma quando faccio
> partire la query questa mi aggiunge gli stessi record.
Guarda che il mio era solo un esempio per farti capire come funziona il
metodo RunSQL: questo esempio copia tutti i record della Tabella1 in
Tabella2.
Ora sta a te creare la giusta query che ti accoda solo i record che vuoi
accodare.
Il thread č diventato lunghetto ed i problemi sono cambiati strada facendo:
non mi ricordo piů cosa volrvi accodare in Tabella2, ma tu lo saprai
benissimo, quindi puoi condizionare adeguatamente la query di accodamento.



text:
On Fri, 27 Sep 2002 09:07:55 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Leo" <
leo2...@yahoo.it
> ha scritto nel messaggio
>news:97q6pu87iq5cil0ce...@4ax.com...
>[CUT]
>>
>> Ho capito, ma ora è sorto un problema quando parte la query
>> d'accodamento aggiunge sempre ogni volta che apro la maschera gli
>> stessi record perche'?
>> Come posso evitare che accada questo?
>>
>> Io ho fatto come hai detto ho aaggiunto lla tabella2  un campo
>> contatore che non ha riferimenti con la tabella1. Ma quando faccio
>> partire la query questa mi aggiunge gli stessi record.
>
>Guarda che il mio era solo un esempio per farti capire come funziona il
>metodo RunSQL: questo esempio copia tutti i record della Tabella1 in
>Tabella2.
>Ora sta a te creare la giusta query che ti accoda solo i record che vuoi
>accodare.
>Il thread è diventato lunghetto ed i problemi sono cambiati strada facendo:
>non mi ricordo più cosa volrvi accodare in Tabella2, ma tu lo saprai
>benissimo, quindi puoi condizionare adeguatamente la query di accodamento.
Grazie per la tua disponibilità, vedrò come posso fare.


title: aggiornamento campi in una maschera

author: Alessia

text:
Buongiorno a tutti.
Quesito: E' possibile aggiornare dei campi valore direttamente in una
maschera?
Devo rivalutare un campo tariffa con una percentuale di incremento
variabile, il problema č lo stesso che vi ho posto ultimamente. E che ancora
non sono riuscita risolvere.
Ho riprovato in queste ore con delle query di aggiornamento, ma pur
aggiornando le tariffe richieste, fin qui tutto bene, le stesse vengono
visualizzate invariate sulla maschera per il calcolo delle fatture, quindi
devo agire manualmente per cambiarle. Ho provato ad aggiornare la maschera,
ma non mi da retta.
Sto sbagliando, sono piů che sicura ma non so dove.
Grazie a tutti.
Saluti Alessia


title: aggiornamento campi in una maschera

author: lbo dal portatile

text:
>Quesito: E' possibile aggiornare dei campi valore direttamente in una
>maschera?
cosa intendi con campi valore?  intendi delle caselle di testo
collegate a dei campi di una tabella le quali contengono i valiori di
questi campi per il record corrente?
>Devo rivalutare un campo tariffa con una percentuale di incremento
>variabile, il problema è lo stesso che vi ho posto ultimamente. E che ancora
>non sono riuscita risolvere.
cioè tu hai n caselle di testo con dentro dei numerelli, poi un'altra
casella di tersto con dentro un numerello speciale.
quando cambi quel numerello speciale vuoi che siano ricalcolati gli
altri numerelli?
vedi sull'help dopoaggiornamento.
vuoi che questi risultati siano scritti in tabella?  salva il record
corrente.
il record corrente si salva digitando shift-invio.  se vedi sull'help
sendkeys vedrai che si può simulare la pressione di quei tasti con
l'istruzione
sendkeys "+~".
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Assolutamente OT!!!

author: lucianab64 on libero

text:
Ciao a tutto il NG!
E' da un po' che non intervengo attivamente alle discussioni perche' sono
stata troppo presa. Questo che vi scrivo e' un messaggio di sfogo e una
richiesta di solidarieta'.
Cosa ne pensate dei clienti sempre piu' ignoranti che non capiscono quanto
sia difficile e faticoso e lungo produrre un buon sw, progettare e costruire
un buon sistema informativo e che continuano a richiedere le cose piu'
stupide o banali o assurde facendovi perdere un sacco di tempo? Non parliamo
poi di fare capire loro che qualsiasi loro richiesta deve essere
monettizzata! Apriti cielo!
Perche' quando vado a comprare un paio di scarpe non mi viene neanche in
mente di uscire senza pagare o pagando la meta' e invece i clienti che
acquistano sw hanno pretese inconcepibili?
Qualche spiegazione ce l'ho, ma volevo sentire la vostra opinione.
Voi quale tecnica adottate?
Grazie. Luciana


title: Assolutamente OT!!!

author: sdamy

text:
lucianab64 on libero <
lucia...@libero.it
> wrote in message
Hxaj6.17417$7U4.3...@news.infostrada.it...

TI CAPISCO PERFETTAMENTE!!!!
E' UN PROBLEMA COMUNE A TUTTI I SVILUPPATORI SOFTWARE.... L'UNICO COSA CHE
POSSO DIRE SULL'ARGOMENTO E' QUESTA: PRIMA DI PRENDERE UN LAVORO BISOGNA
ESSERE DEI MANIACI SULLA PROGETTAZIONE DEL LAVORO... BISOGNA GIOCARE IN
CONTROPIEDE, LA SVILUPPO DEVE ESSERE VISTO COME ULTIMO PUNTO.
CIAO
DAMIANO


title: Assolutamente OT!!!

author: Silvio Berruti

text:
"lucianab64 on libero" <
lucia...@libero.it
> ha scritto nel messaggio
news:Hxaj6.17417$7U4.3...@news.infostrada.it...

Cara Luciana,
sfondi una porta aperta e comprendo appieno la necessità del tuo sfogo.
Sulla difficoltà di monetizzare il mio impegno e sulla difficoltà a far
capire che quello che a loro pare semplice, potrebbe anche non essere così
immediato, ho una certa esperienza, non intensa, ma diluita in molti anni.
Con tali clienti, anche se non mi è mai piaciuta la figura, ho imparato a
comportarmi come quelli che ti fanno cadere dall'alto ogni cosa, come se
venisse sempre chiesta la luna: l'idea ce l'ho già chiara in mente, ma
preferisco prendere tempo e riservarmi nella risposta e nella
quantificazione dell'importo da pagare.
Ho notato che, tali clienti, in genere apprezzano questo comportamento,
perché, nella loro mente contorta, si traduce in professionalità,
ponderatezza, capacità nello sviscerare la problematica.
Inoltre, sono anche + propensi a credere che tutto questo tempo, necessario
alla risposta, gli sia uscito gratis,  che siano riusciti a gabbarmi in
qualche modo rubandomi la consulenza e sono + disponibili nel pagare il
lavoro eseguito.
Si tratta di una tecnica imparata quando facevo l'agente di assicurazioni:
era difficile riuscire a vendere una polizza che proponevi tu, ma se ti
vendevi gratis come consulente, uscivano dall'ufficio contenti con la loro
polizza sotto braccio.
Valli a capire! Comunque, contenti loro, + contento io... l'importante è non
perdere mai un aspetto serioso, pensoso, attento alle loro necessità e,
soprattutto, mai arrabbiarsi, qualunque caz...ta dicano.
Inoltre, non comincio mai lo sviluppo di un software nuovo o di un
aggiornamento, se prima non abbiamo definito il compenso, sia che venga
quantificato complessivamente, sia che venga retribuito a ore di lavoro.
Poi ho anche imparato a dire di no ai lavori quando pretendevano di
stabilire loro cosa dovevo fare, come lo dovevo fare, per quando doveva
essere pronto e quanto mi veniva pagato. Un semplice no, accompagnato dalla
preghiera di trovarsi un altro consulente, e che fosse disposto a svendersi
alle loro condizioni: + volte, mi è successo di vederli tornare, chiedendo
di svolgere io il compito che qualche scalzacane improvvisato aveva promesso
di fare x poche lire e che invece li aveva lasciati nella bratta, e, a quel
punto, sono molto + malleabili, anche nel prezzo.
Porta pazienza, non tutti sono così... x fortuna! :-))
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Assolutamente OT!!!

author: ema

text:
Mio cuggino mi ha detto che lucianab64 on libero <
lucia...@libero.it
> scrisse:
> Qualche spiegazione ce l'ho, ma volevo  sentire  la  vostra  opinione.
> Voi quale tecnica adottate?
>
chiedi di lavorare presso il loro studio,  possibilimente  in  mezzo  ai
piedi.	Si accorgeranno sicuramente delle ore necessarie allo  sviluppo.
:)
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX  x  rispondere  ICQ	#8814554

Scoperta di Fresco:
	Se tu sapessi cio' che	stai  facendo,	probabilmente  ti  annoieresti.


title: evidenziare celle a passaggio mouse

author: peppino

text:
Prendendo spunto dall'esempio della form.ClassiControlli dal sito
comune, vorrei applicare tale procedura al Pannello di Controllo del
mio database con la differenza che nell'esempio del sito comune colora
le celle sul doppio click, mentre io lo vorrei al passaggio del mouse.
Ho importato nel mio database il modulo clsActivate e incollato la
funzione su caricamento dalla maschera dell'esempio nel mio pannello
di controllo sostituendo il nome del campo "testo" con il mio
"OptionLabel".
Non mi funziona, l'avviso è:
L'espressione su apertura immessa come impostazione della proprietà di
evento ha provocato il seguente errore: Non valido all'esterno di una
routine. Dove ho sbagliato?
Spero di essere stato chiaro e ringrazio anticipatamente per l'aiuto.
Saluti.
N.B. Siccome il pannello di controllo ha anche il pulsante, vorrei
applicare tale funzione anche a quest'ultimo.


title: evidenziare celle a passaggio mouse

author: VT @ Work

text:
On Fri, 23 Nov 2007 01:38:29 -0800 (PST), peppino <
gcard...@tin.it
>
wrote:
 (...)

In access XP e successivi puoi usare l'evento "Su mouse spostato".
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

---------------------------------------------
risorse Access:
http://www.accessgroup.it

---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com

---------------------------------------------


title: evidenziare celle a passaggio mouse

text:
On 23 Nov, 11:56, "VT @ Work" <V...@Work.it> wrote:
> On Fri, 23 Nov 2007 01:38:29 -0800 (PST), peppino <
gcardas...@tin.it
>

Grazie per la risposta, ma il problema non è quello di applicare la
funzione su un evento o sull'altro. Il problema è che la funzione di
seguito riportata nella mia maschera non funziona.
Private Sub Form_Load()
   Dim mCls   As clsActivate
   Dim x As Integer
   For x = 0 To 9 ' numero dei giorni o controlli
      Set mCls = New clsActivate
      ' Differenzio l'effetto volutamente per i primi 5
      If x <= 4 Then
         mCls.ActiveColor = vbGreen
      End If
      c.Add mCls
      Set mCls.Controllo = Me("OptionLabel" & x)
   Next
End Sub
Cosa devo cambiare olre a questa che ho già cambiato "Set
mCls.Controllo = Me("OptionLabel" & x)"?
Poi magari cercherò di applicarla su mouse spostato. Grazie ancora.


title: evidenziare celle a passaggio mouse

text:

> Poi magari cercherò di applicarla su mouse spostato. Grazie ancora.- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Questo esempio mi pare di riconoscerlo.... ;-)
Cosa intendi quando dici che hai cambiato :
      Set mCls.Controllo = Me("OptionLabel" & x)
In cosa l'avresti cambiato...?
Sei certo di aver assegnato a tutte le Label il nome con
l'indicizzazione in fondo...?
Nel Demo che hai scaricato, dal quale proviene questo codice,
funziona...?
Ti sei importato la Classe che gestisce il tutto...?
@Aled


title: evidenziare celle a passaggio mouse

text:

Allora, mi spiego meglio.
Ho importato nel mio database il modulo di classe.
Poi sono andato nella mia maschera e su caricamento ho inserito la
funzione di cui nel messaggio precedente.
Siccome nel database di esempio le caselle di testo si chiamano Testo1
- Testo 2 e così via, mentre nel mio Pannello di controllo si chiamano
OptionLabel1 - OptionLabel1 ecc. allora nella stringa originale c'era
<   Set mCls.Controllo = Me("Testo" & x) > ed io l'ho modificato in
< Set mCls.Controllo = Me("OptionLabel" & x) >
Il messaggio di errore è:
L'espressione su apertura immessa come impostazione della proprietà di
evento ha provocato il seguente errore: Non valido all'esterno di una
routine. Dove ho sbagliato?
Comunque il mio pannello di controllo è quello generato da access
quando si crea un database da quelli di esempio. Grazie per l'aiuto.
Ciao.


title: evidenziare celle a passaggio mouse

text:
On 23 Nov, 14:41, Alessandro Baraldi <
ik2...@libero.it
> wrote:

Scusate forse voglio ottenere lo stesso risultato applicando una
procedura sulla mia maschera che ha evidentemente una struttura
diversa da quella dell'esempio.
In poche parole quello che vorrei ottenere è che al passaggio del
mouse sui comandi del pannello di controllo le righe avessero uno
sfondo colorato.
Potete indicarmi un esempio o come modificare il codice di
quell'esempio se è possibile.
Scusate per la confusione.


title: evidenziare celle a passaggio mouse

author: ALESSANDRO Baraldi

text:
Scusate forse voglio ottenere lo stesso risultato applicando una
procedura sulla mia maschera che ha evidentemente una struttura
diversa da quella dell'esempio.
In poche parole quello che vorrei ottenere è che al passaggio del
mouse sui comandi del pannello di controllo le righe avessero uno
sfondo colorato.
Potete indicarmi un esempio o come modificare il codice di
quell'esempio se è possibile.
Scusate per la confusione.
Innanzitutto parli di Caselle di Testo.... ma nell'esempio sono Label e la
cosa è MOLTO diversa
anche perchè nella Classe(vado a memoria perchè l'ho fatta diversi mesi fà)
è esplicito il Riferimento
al controllo label...!
Quindi se nel tuo caso non hai LABEL la modifica sarebbe da valutare, sempre
tu sia in una Maschera
Singola e non continua... allora ovviamente non è usabile.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: evidenziare celle a passaggio mouse

text:

Ti confermo che la maschera è singola e che il risultato da me sperato
siano etichette.
Ci sono esempi per applicare quanto da me richiesto? Cosa devo
studiare/cercare?
Grazie.


title: Striga su recordset come fare?

author: max

text:
Mi succede una cosa strana che non riesco più a sistemare....
Filtro un recordset tramite un campo denominato descrizione nel modo
seguente
Private Sub OK_Click()
 Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open "qryIntMovimentiMagazzino", CurrentProject.Connection
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
And Me.Descrizione > 0 Then
rst.Filter = rst.Filter = "descrizione like " & "'" & Me.Descrizione & "'" &
""
Else
Set Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset
= rst
Set  = Nothing
End Sub
Se digito sul campo descrizione una sola parola, mi trova tutti i record che
contengono nel campo descrizione quella parola...
Esempio : Parola di Giancarlo e Giancarlo è di parola
Se invece digito una frase, mi trova tutti i record che iniziano con quella
frase...
Esempio : Parola di Giancarlo
Io vorrei, e vi faccio un esempio, trovare i record in questo modo:
Se scrivo Rubinetto mi deve ritornare tutti i record che iniziano con
rubinetto
Esempio: Rubinetto per lavabo e non Lavabo per rubinetto
Ho provato a modificare il filtro, di seguito elencato, come da consiglio di
Roberto da casa , ma non succede niente anzi mi ritorna un errore.
rst.Filter = "descrizione like " & "'" & Me.Descrizione & "'" & "*"
Sono tre giorni che cerco di sistemare sta benedetta stringa ma non ci
riesco....... POSSIBILE?
Saluti Massimo


title: Striga su recordset come fare?

author: giorgio rancati

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:GfBvc.89328$Qc.34...@twister1.libero.it...
> Mi succede una cosa strana che non riesco più a sistemare....
>
> Filtro un recordset tramite un campo denominato descrizione nel modo
> seguente
>
>
[CUT]
> rst.Filter = rst.Filter = "descrizione like " & "'" & Me.Descrizione & "'"
&
[CUT]
>
> Io vorrei, e vi faccio un esempio, trovare i record in questo modo:
>
> Se scrivo Rubinetto mi deve ritornare tutti i record che iniziano con
> rubinetto
> Esempio: Rubinetto per lavabo e non Lavabo per rubinetto
>
> Ho provato a modificare il filtro, di seguito elencato, come da consiglio
di
> Roberto da casa , ma non succede niente anzi mi ritorna un errore.
>
> rst.Filter = "descrizione like " & "'" & Me.Descrizione & "'" & "*"
>
>
> Sono tre giorni che cerco di sistemare sta benedetta stringa ma non ci
> riesco....... POSSIBILE?
>
> Saluti Massimo
>
Ciao Max,
stai usando ADO, i caratteri jolly dell'operatore Like sono diversi da DAO.
Sostituisci il * con %
Cerca nel manuale la sezione [progetti di Access]-->[Utilizzo Di
Query]-->[Operazioni fondamentali]-->[Esempi di utilizzo dei caratteri
Jolly] troverai le informazioni del caso.
Ciao Giorgio


title: Striga su recordset come fare?

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:c9mo6a$rgb$1...@lacerta.tiscalinet.it...
>
> "max" <
mas...@inwind.it
> ha scritto nel messaggio
> news:GfBvc.89328$Qc.34...@twister1.libero.it...
dimenticavo, c'è anche un errore di sintassi, il simbolo % deve essere
incluso nel parametro
---------------------
rst.Filter = "descrizione like " & "'" & Me.Descrizione & "%'"
---------------------
in ogni caso trovi tutto negli esempi del manuale.
Ciao Giorgio


title: Striga su recordset come fare?

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:c9mojq$rr0$1...@lacerta.tiscalinet.it...

> Grazie giorgio
Comunque l'asterisco funzione nei campi con una sola parola tipo il codice
articolo......
rst.Filter = "descrizione like " & "'%" & Me.Descrizione & "%'"
Come vedi ho inserito il percentuale all'inizio per creare una routine per
la ricerca di una parola all'interno del campo descrizione e funziona
regolalmente...
L'unico endicap è ricercare una parola con l'apostrofo come fare? dove
inserisco Chr(34)?
Graie Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:irCvc.34547$Wc.11...@twister2.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> messaggio news:c9mojq$rr0$1...@lacerta.tiscalinet.it...
> >
> > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> > messaggio news:c9mo6a$rgb$1...@lacerta.tiscalinet.it...
> > >
> > > "max" <
mas...@inwind.it
> ha scritto nel messaggio
> > > news:GfBvc.89328$Qc.34...@twister1.libero.it...
> >
> >
> > dimenticavo, c'è anche un errore di sintassi, il simbolo % deve essere
> > incluso nel parametro
> > ---------------------
> > rst.Filter = "descrizione like " & "'" & Me.Descrizione & "%'"
> > ---------------------
> >
> > in ogni caso trovi tutto negli esempi del manuale.
> >
> > Ciao Giorgio
> >
> > Grazie giorgio
>
> Comunque l'asterisco funzione nei campi con una sola parola tipo il codice
> articolo......
no, l'asterisco non funziona con ADO!!! vedi compatibilità SQL92
> rst.Filter = "descrizione like " & "'%" & Me.Descrizione & "%'"
> Come vedi ho inserito il percentuale all'inizio per creare una routine per
> la ricerca di una parola all'interno del campo descrizione e funziona
> regolalmente...
> L'unico endicap è ricercare una parola con l'apostrofo come fare? dove
> inserisco Chr(34)?
> Graie Max
In Sql standard se devi passare una stringa che contiene un apice bisogna
raddoppiarlo
-------------
rst.Filter = "descrizione like " & "'%" & Replace(Me.Descrizione,"'","''") &
"%'"
-------------
se poi stai usando un database di access potresti anche racchiudere la
stringa tra doppi apici rinunciando alla compatibilità verso altri database
----------
rst.Filter = "descrizione like " & CHR(34) & "%" & Me.Descrizione & "%" &
CHR(34)
----------
Ciao Giorgio


title: Striga su recordset come fare?

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:c9mtfc$t5$1...@lacerta.tiscalinet.it...

> Pultroppo non succede niente con tutti e due gli esempi....
Non riesco a capire il motivo....
Se uso solamente i CHR(34) senza apici e segni di perc. mi trova la stringa
apostrofata perchè?
Può essere un problema di riferimenti?
Cia e grazie ancora Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:XCFvc.89915$Qc.34...@twister1.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> messaggio news:c9mtfc$t5$1...@lacerta.tiscalinet.it...
> >
> > "max" <
mas...@inwind.it
> ha scritto nel messaggio
> > news:irCvc.34547$Wc.11...@twister2.libero.it...
> > >
> > > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto
nel
> > > messaggio news:c9mojq$rr0$1...@lacerta.tiscalinet.it...
> > > >
> > > > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto
> nel
> > > > messaggio news:c9mo6a$rgb$1...@lacerta.tiscalinet.it...
> > > > >
> > > > > "max" <
mas...@inwind.it
> ha scritto nel messaggio
> > > > > news:GfBvc.89328$Qc.34...@twister1.libero.it...
[CUT]
> Pultroppo non succede niente con tutti e due gli esempi....
> Non riesco a capire il motivo....
> Se uso solamente i CHR(34) senza apici e segni di perc. mi trova la
stringa
> apostrofata perchè?
> Può essere un problema di riferimenti?
> Cia e grazie ancora Max
non saprei, hai postato un pezzo di codice che è incompleto e con errori
macroscopici  (manca la End If , Set = Nothing  ???).
Nel tuo post scrivi
-----------------------------
>Se digito sul campo descrizione una sola parola, mi trova tutti i record
che
>contengono nel campo descrizione quella parola...
>Esempio : Parola di Giancarlo e Giancarlo è di parola
>Se invece digito una frase, mi trova tutti i record che iniziano con quella
>frase...
>Esempio : Parola di Giancarlo
------------------------------
quindi dai per scontato che funziona, ho pensato che hai tralasciato
volutamente alcuni pezzi perchè non importanti o perchè scontati e per
questo ho spostato l'interesse sulla stringa del filtro che era sbagliata.
forse se ci mostri il codice completo .....
Ciao Giorgio


title: Striga su recordset come fare?

text:
> non saprei, hai postato un pezzo di codice che è incompleto e con errori
> macroscopici  (manca la End If , Set = Nothing  ???).
>
> forse se ci mostri il codice completo .....
>
> Ciao Giorgio
Scusami infatti lo avevo trascritto male... Il codice completo è il seguente
Private Sub OK_Click()
 Dim rstSuppliers As ADODB.Recordset
    Set rstSuppliers = New ADODB.Recordset
    rstSuppliers.CursorLocation = adUseClient
    rstSuppliers.Open "qryIntMovimentiMagazzino", CurrentProject.Connection
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
And Me.Descrizione > 0 Then
rstSuppliers.Filter = "descrizione like" & " '" & Me.Descrizione & "%'"
Else
If Me.idcausalemagazzino > 0 And Me.Sottocontocf > 0 And Me.CodartVal > 0
Then
rstSuppliers.Filter = "idcausalimovimentimagazzino = " &
Me.idcausalemagazzino & " and SottocontoCliFor = " & Me.Sottocontocf & " and
codart like """ & Me.CodArt & "*"" and descrizione like " & Chr(34) &
Me.Descrizione & Chr(34) & " And Contocfn =   " & Chr(34) & Me.CF & Chr(34)
& " "
Else
If Me.idcausalemagazzino = 0 And Me.Sottocontocf > 0 And Me.CodartVal > 0
Then
rstSuppliers.Filter = "SottocontoCliFor = " & Me.Sottocontocf & "  And
Contocfn =   " & Chr(34) & Me.CF & Chr(34) & " and codart like """ &
Me.CodArt & "*"" and descrizione like " & Chr(34) & Me.Descrizione & Chr(34)
& " "
Else
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal > 0
Then
rstSuppliers.Filter = "codart like """ & Me.CodArt & "*"" and descrizione
like " & Chr(34) & Me.Descrizione & Chr(34) & " "
Else
If Me.idcausalemagazzino > 0 And Me.Sottocontocf = 0 And Me.CodartVal > 0
Then
rstSuppliers.Filter = "idcausalimovimentimagazzino = " &
Me.idcausalemagazzino & " and codart like """ & Me.CodArt & "*"" and
descrizione like " & Chr(34) & Me.Descrizione & Chr(34) & " "
Else
If Me.idcausalemagazzino > 0 And Me.Sottocontocf > 0 And Me.CodartVal = 0
Then
rstSuppliers.Filter = "idcausalimovimentimagazzino = " &
Me.idcausalemagazzino & " and SottocontoCliFor = " & Me.Sottocontocf & " And
Contocfn =   " & Chr(34) & Me.CF & Chr(34) & " and descrizione like " &
Chr(34) & Me.Descrizione & Chr(34) & " "
Else
If Me.idcausalemagazzino = 0 And Me.Sottocontocf > 0 And Me.CodartVal = 0
Then
rstSuppliers.Filter = "SottocontoCliFor = " & Me.Sottocontocf & " And
Contocfn =   " & Chr(34) & Me.CF & Chr(34) & " and descrizione like " &
Chr(34) & Me.Descrizione & Chr(34) & " "
Else
If Me.idcausalemagazzino > 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
Then
rstSuppliers.Filter = "idcausalimovimentimagazzino = " &
Me.idcausalemagazzino & " and descrizione like " & Chr(34) & Me.Descrizione
& Chr(34) & " "
Else
End If
End If
End If
End If
End If
End If
End If
End If
Set Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset
= rstSuppliers
Set rstSuppliers = Nothing
End Sub
Tutto il suddetto codice mi funziona alla perfezione, il problema era che
sul campo descrizione non riuscivo a ricercare la descrizione che iniziasse
solamente con alcune lettere iniziali.......
Adesso con la modifica fatta grazie a te tutto va bene.....il problrema
rimane se la parola che voglio cercare è apostrofata...
ES: D'africa mi ritorna errore 3001
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:F1Gvc.89957$Qc.34...@twister1.libero.it...
>
[CUT]
>
> Scusami infatti lo avevo trascritto male... Il codice completo è il
seguente
>
[CUT]
> If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
> And Me.Descrizione > 0 Then
> rstSuppliers.Filter = "descrizione like" & " '" & Me.Descrizione & "%'"
> Else
> Tutto il suddetto codice mi funziona alla perfezione, il problema era che
> sul campo descrizione non riuscivo a ricercare la descrizione che
iniziasse
> solamente con alcune lettere iniziali.......
> Adesso con la modifica fatta grazie a te tutto va bene.....il problrema
> rimane se la parola che voglio cercare è apostrofata...
> ES: D'africa mi ritorna errore 3001
> Ciao Max
come già detto prima se non raddoppi il singolo apice non può funzionare.
---------------------
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
And Me.Descrizione > 0 Then
rstSuppliers.Filter = "descrizione like" & " '" &
Replace(Me.Descrizione,"'","''") & "%'"
Else
-------------------
Ciao Giorgio


title: Striga su recordset come fare?

text:
 come già detto prima se non raddoppi il singolo apice non può funzionare.
 ---------------------
 If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0
 And Me.Descrizione > 0 Then
 rstSuppliers.Filter = "descrizione like" & " '" &
 Replace(Me.Descrizione,"'","''") & "%'"
 Else
 -------------------
 Ciao Giorgio
Ciao Giorgio scusami se ti stò assillanto........ ho sistemato il codice,
funziona benissimo, però appena voglio cercare una parola con l'apostrofo
non mi visualizza più l'errore, ma non mi ritorna nessuna riga....pultroppo
non riesco più a capire quale possa essere il motivo...
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:i3Wvc.91183$Qc.35...@twister1.libero.it...
> Ciao Giorgio scusami se ti stň assillanto........ ho sistemato il codice,
> funziona benissimo, perň appena voglio cercare una parola con l'apostrofo
> non mi visualizza piů l'errore, ma non mi ritorna nessuna
riga....pultroppo
> non riesco piů a capire quale possa essere il motivo...
>
Ciao Max,
metti un punto di interruzione, dopo l'istruzione *rstSuppliers.Filter =
"descrizione like ecc ecc" * stampa nella finestra immediata il contenuto di
:
-------------------
? rstSuppliers.Filter
? rstSuppliers.RecordCount
? rstSuppliers!Descrizione
-------------------
e postalo, cosě vediamo cosa non va
Ciao Giorgio


title: Striga su recordset come fare?

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:c9pcg3$u88$1...@lacerta.tiscalinet.it...

Scusami ma non riesco piů a focalizzare.......
come faccio


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:djXvc.36798$Wc.12...@twister2.libero.it...
>
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
> messaggio news:c9pcg3$u88$1...@lacerta.tiscalinet.it...
> >
> > "max" <
mas...@inwind.it
> ha scritto nel messaggio
> > news:i3Wvc.91183$Qc.35...@twister1.libero.it...
> >
>[CUT]
> >
> > Ciao Max,
> >
> > metti un punto di interruzione, dopo l'istruzione *rstSuppliers.Filter =
> > "descrizione like ecc ecc" * stampa nella finestra immediata il
contenuto
> di
> > :
> > -------------------
> > ? rstSuppliers.Filter
> > ? rstSuppliers.RecordCount
> > ? rstSuppliers!Descrizione
> > -------------------
> > e postalo, cosě vediamo cosa non va
> >
> > Ciao Giorgio
> >
> Scusami ma non riesco piů a focalizzare.......
> come faccio
Da VBA tramite il menu Debug-->Imposta punto di interruzione metti la manina
dopo l'istruzione *rstSuppliers.Filter = "descrizione like ecc ecc", esegui
e poi dalla finestra immediata stampi quello che ti ho postato sopra. Se non
hai la fionestra immediata puoi visualizzarla con Visualizza-->Finestra
immediata.
Per maggiori informazioni cerca sull'help DEBUG e poi vai a Barra degli
strumenti Debug
Ciao Giorgio


title: Striga su recordset come fare?

text:
> Da VBA tramite il menu Debug-->Imposta punto di interruzione metti la
manina
> dopo l'istruzione *rstSuppliers.Filter = "descrizione like ecc ecc",
esegui
> e poi dalla finestra immediata stampi quello che ti ho postato sopra. Se
non
> hai la fionestra immediata puoi visualizzarla con Visualizza-->Finestra
> immediata.
>
> Per maggiori informazioni cerca sull'help DEBUG e poi vai a Barra degli
> strumenti Debug
>
> Ciao Giorgio
>
Ho provato ad eseguire le tue indicazioni non so in cosa sbaglio..
ho messo il punto di interruzione nella riga rstsuppliers.filter  ed ho
eseguito la riga nella finestra immediata...
mi ritorna "la variabile non è ancora stata creata in questo contesto".....
Cosa mi consigli di fare?...... ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:hY%vc.92036$Qc.35...@twister1.libero.it...
>
> > Da VBA tramite il menu Debug-->Imposta punto di interruzione metti la
> manina
> > dopo l'istruzione *rstSuppliers.Filter = "descrizione like ecc ecc",
> esegui
> > e poi dalla finestra immediata stampi quello che ti ho postato sopra. Se
> non
> > hai la fionestra immediata puoi visualizzarla con Visualizza-->Finestra
> > immediata.
> >
> > Per maggiori informazioni cerca sull'help DEBUG e poi vai a Barra degli
> > strumenti Debug
> >
> > Ciao Giorgio
> >
> Ho provato ad eseguire le tue indicazioni non so in cosa sbaglio..
>
> ho messo il punto di interruzione nella riga rstsuppliers.filter  ed ho
> eseguito la riga nella finestra immediata...
> mi ritorna "la variabile non č ancora stata creata in questo
contesto".....
>
> Cosa mi consigli di fare?...... ciao Max
>
solo quello che ti ho detto, il punto di interruzione lo metti DOPO!!!
rstSuppliers.Filter, poi esegui il programma o apri la maschera insomma lo
fai funzionare, quando il codice si ferma sulla riga con lo stop dalla
finestra di debug scrivi ...
? rstSuppliers.Filter
ne piů e ne meno.
Ciao Giorgio


title: Striga su recordset come fare?

text:
> > Cosa mi consigli di fare?...... ciao Max
> >
>
> solo quello che ti ho detto, il punto di interruzione lo metti DOPO!!!
> rstSuppliers.Filter, poi esegui il programma o apri la maschera insomma lo
> fai funzionare, quando il codice si ferma sulla riga con lo stop dalla
> finestra di debug scrivi ...
>
> ? rstSuppliers.Filter
>
> ne più e ne meno.
>
> Ciao Giorgio
Sono riuscito ad eseguire il debug.... appena si blocca il codice sulla riga
ed eseguo ? rstSuppliers.Filter nella finestra immediata mi stampa 0
Che significa?
Ciao
Max


title: Striga su recordset come fare?

text:
Dimenticavo
Se nella finestra immediata digito ? rstSuppliers.RecordCount, mi stampa il
numero totale dei record del recordset
Se nella finestra immediata digito ? rstSuppliers!Descrizione, mi stampa la
descrizione del primo record del recordset
Ciao


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:zikwc.39481$Wc.12...@twister2.libero.it...

Ciao,
se hai messo il punto di interruzione nell'assegnazione del filtro premi il
tasto F8 in modo che il codice prosegue di un'istruzione e poi stampa nella
finestra di debug il filtro *? rstSuppliers.Filter*
Ciao Giorgio


title: Striga su recordset come fare?

text:
> Ciao,
> se hai messo il punto di interruzione nell'assegnazione del filtro premi
il
> tasto F8 in modo che il codice prosegue di un'istruzione e poi stampa
nella
> finestra di debug il filtro *? rstSuppliers.Filter*
>
> Ciao Giorgio
Ciao
Ho cambiato il filtro con il seguente
rstSuppliers.Filter = "descrizione like" & " '" & Replace(Me.Descrizione,
"'", "''") & "%'"
Ho eseguito tutte le tue istruzioni (scusami se non capivo bene il
debug...adesso credo di saperlo usare )....
descrizione like 'lavabo%'
La suddetta riga viene stampata nella finestra immediata dopo aver digitato
? rstsuppliers.Filter
Le ricerche funzionano alla perfezione.....se ricerco il seguente articolo
L'avabo
non mi da piů errore, ma non mi filtra niente, il recordset rimane vuoto
anche se esistono due record con la suddetta descrizione.
Pensi che sia risolvibile la cosa?


title: Striga su recordset come fare?

text:
> se hai messo il punto di interruzione nell'assegnazione del filtro premi
il
> tasto F8 in modo che il codice prosegue di un'istruzione e poi stampa
nella
> finestra di debug il filtro *? rstSuppliers.Filter*
>
> Ciao Giorgio
>
Giorgio scusami la stringa che stampa la finestra immediata è la seguente e
non quella di prima
descrizione like 'l''avabo%'


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:D20xc.96959$Qc.37...@twister1.libero.it...

Ciao,
l'istruzione è corretta, sei sicuro di avere due record con il campo
descrizione che inizia con L'avabo ? Non è che prima c'è qualche spazio ?
Ciao Giorgio


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:D20xc.96959$Qc.37...@twister1.libero.it...

Ciao,



title: Striga su recordset come fare?

text:
> Ciao,
> l'istruzione č corretta, sei sicuro di avere due record con il campo
> descrizione che inizia con L'avabo ? Non č che prima c'č qualche spazio ?
>
> Ciao Giorgio
Ho controllato il campo descrizione....non ci sono spazi
descrizione like 'l''avabo%'
E corretto descrizione like 'l''avabo%'  con doppio apice dopo la L?
Non so piů cosa pensare
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:eQdxc.44238$Wc.14...@twister2.libero.it...

si č corretto, puoi verificarlo anche con una Dlookup, vai nella finestra di
debug e scrivi
-------------------------
? Dlookup("Descrizione","qryIntMovimentiMagazzino","Descrizione LIKE
'l''avabo*' ")
-------------------------
(qui ho usato l'asterisco perchč Dlookup usa DAO e non ADO)
Che versione di ADO stai usando ?
Ciao Giorgio


title: Striga su recordset come fare?

text:
> si è corretto, puoi verificarlo anche con una Dlookup, vai nella finestra
di
> debug e scrivi
> -------------------------
> ? Dlookup("Descrizione","qryIntMovimentiMagazzino","Descrizione LIKE
> 'l''avabo*' ")
> -------------------------
>
> (qui ho usato l'asterisco perchè Dlookup usa DAO e non ADO)
>
> Che versione di ADO stai usando ?
> Ciao Giorgio
Ho verificato la riga di comando e stampa .....NULLO
Ti elenco tutti i riferimenti presenti:
Visual Basic For Applications
Microsoft Access 11.0 Object Library
Ole Automation
Microsoft Activex Data Objects 2.1 Library
Microsoft DAO 3.6 Objects Library
Microsoft Data Access Components Installed Version
Pensi sia un problema di librerie?
Ciao Max
Grazie per la pazienza...


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:TJfxc.98112$Qc.38...@twister1.libero.it...
>
> > Ciao Giorgio
>
> Ho verificato la riga di comando e stampa .....NULLO
>
> Ti elenco tutti i riferimenti presenti:
>
> Visual Basic For Applications
> Microsoft Access 11.0 Object Library
> Ole Automation
> Microsoft Activex Data Objects 2.1 Library
> Microsoft DAO 3.6 Objects Library
> Microsoft Data Access Components Installed Version
>
> Pensi sia un problema di librerie?
>
Ciao,
per quanto riguarda le librerie Microsoft Activex Data Objects 2.1 Library è
un po' vecchia, l'ultima versione è la 2.8, puoi scaricarla da questo link,
cerca MDAC 2.8
http://msdn.microsoft.com/data/downloads/updates/default.aspx
per quanto riguarda la ricerca il mistero è svelato, se con questo comando
---------------
? Dlookup("Descrizione","qryIntMovimentiMagazzino","Descrizione LIKE
'l''avabo*' ")
---------------
 hai ricevuto NULLO vuol dire che in qryIntMovimentiMagazzino non c'è
nessuna riga con il campo descrizione che inizia con l'avabo.
Ciao Giorgio


title: Striga su recordset come fare?

text:
> per quanto riguarda la ricerca il mistero č svelato, se con questo comando
> ---------------
> ? Dlookup("Descrizione","qryIntMovimentiMagazzino","Descrizione LIKE
> 'l''avabo*' ")
> ---------------
>  hai ricevuto NULLO vuol dire che in qryIntMovimentiMagazzino non c'č
> nessuna riga con il campo descrizione che inizia con l'avabo.
>
> Ciao Giorgio
Infatti, nel controllare la query effettivamente gli mancava la descizione
con la riga, perchč per fare le prove
modificavo il campo descrizione di un'altra tabella articoli....
Adesso nella finestra immediata mi stampa tutta la descrizione esatta.
Il problema rimane nel fatto, che non mi visualizza la riga nella
sottomaschera con origine record, il recordset assegnatogli con
Set Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset
= rstSuppliers
Se invece cerco la descrizione senza l'apostrofo nella sottomaschera mi
visualizza la riga trovata...
Perchč non mi assegna alla sottomaschera i record trovati con l'apostrofo?
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:Zrjxc.44875$Wc.14...@twister2.libero.it...

Max,
deve trovarla, insisti nel capire cosa succede con l'aiuto della finestra di
debug inserendo i punti di interruzione nel tuo codice.
Ciao Giorgio


title: Striga su recordset come fare?

text:
> Max,
> deve trovarla, insisti nel capire cosa succede con l'aiuto della finestra
di
> debug inserendo i punti di interruzione nel tuo codice.
>
> Ciao Giorgio
Credimi č un mistero, ho fatto mille prove sulla finestra immediata ed con i
punti di interruzione....
Mi assegna il recordset nella sottomaschera solamente se la descrizione č
senza apostrofo....
Cosa posso provare ancora?


title: Striga su recordset come fare?

text:
> Max,
> deve trovarla, insisti nel capire cosa succede con l'aiuto della finestra
di
> debug inserendo i punti di interruzione nel tuo codice.
>
> Ciao Giorgio
Dimenticavo.... ho persino creato un campo nella maschera principale dove
assegno il valore, tramite un pulsante, della descrizione ricercata con
l'apostrofo
? rstsuppliers!descrizione
e funziona regolarmente


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:EPjxc.98625$Qc.38...@twister1.libero.it...

Max, che posso dirti Bo!!. Piu che ricreare la tua situazione e testarla non
posso fare, a me funziona bene.
Ciao Giorgio


title: Striga su recordset come fare?

text:
> Max, che posso dirti Bo!!. Piu che ricreare la tua situazione e testarla
non
> posso fare, a me funziona bene.
>
> Ciao Giorgio
Ti elenco tutto il codice che ho assegnato al pulsante della maschera per
popolare la sottomaschera:
Private Sub OK_Click()
 Dim rstSuppliers As ADODB.Recordset
    Set rstSuppliers = New ADODB.Recordset
    rstSuppliers.CursorLocation = adUseClient
    rstSuppliers.Open "qryIntMovimentiMagazzino", CurrentProject.Connection
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal = 0And
Me.Descrizione > 0 Then
rstSuppliers.Filter = "descrizione like" & " '" &
Replace(Me.Descrizione,"'", "''") & "%'"
Else
End If
Set Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset=
rstSuppliers
Set rstSuppliers = Nothing
End Sub
Pensi che possa aver sbagliato a compilare il codice?
Adesso funziona tutto alla perfezione, l'unico problema rimane che non mi
popola la sottomaschera ...
Boooooooo
Che succede?
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:KLlxc.45168$Wc.14...@twister2.libero.it...
>
> Pensi che possa aver sbagliato a compilare il codice?
> Adesso funziona tutto alla perfezione, l'unico problema rimane che non mi
> popola la sottomaschera ...
> Boooooooo
> Che succede?
> Ciao Max
>
Ciao Max,
il codice va benissimo,  infatti ti trova il record con l'avabo. Il problema
è quando assegni il recordset alla maschera, non si capisce il perchè ma non
visualizza nulla.
Evidentemente la compatibilità tra i form e  ADO non è ancora ben definita,
peccato ci tocca usare una sintassi non standard.
per risolvere fai così
-------------------
 Private Sub OK_Click()
  Dim rstSuppliers As ADODB.Recordset
     Set rstSuppliers = New ADODB.Recordset
     rstSuppliers.CursorLocation = adUseClient
     rstSuppliers.Open "qryIntMovimentiMagazzino", CurrentProject.Connection
 If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal =
0And
 Me.Descrizione > 0 Then
 rstSuppliers.Filter = "descrizione like " & CHR(34) & Me.Descrizione & "%"
& CHR(34)
 Else
 End If
 Set
Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Recordset=
rstSuppliers
 Set rstSuppliers = Nothing
 End Sub
-------------------
Ciao Giorgio


title: Striga su recordset come fare?

text:
> Ciao Max,
> il codice va benissimo,  infatti ti trova il record con l'avabo. Il
problema
> è quando assegni il recordset alla maschera, non si capisce il perchè ma
non
> visualizza nulla.
> Evidentemente la compatibilità tra i form e  ADO non è ancora ben
definita,
> peccato ci tocca usare una sintassi non standard.
>
Effettivamente è strano.....comunque credo di abbandonare il tipo di ricerca
anche se ti confesso che sono molto cocciuto....
Il problema rimane se fai la ricerca con più parole...Es: L'avabo clio
Ritorna sempre l'errore...
Ti ringrazio nuovamente
Ciao Max


title: Striga su recordset come fare?

text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:niFxc.46976$Wc.15...@twister2.libero.it...

vero, ma ti rimane la strada del filter sulla subform
---------------------
 Private Sub OK_Click()
If Me.idcausalemagazzino = 0 And Me.Sottocontocf = 0 And Me.CodartVal =0 And
Me.Descrizione > 0 Then
     Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Filter =
"descrizione like " & CHR(34) & Me.Descrizione & "*" & CHR(34)
Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.FilterOn=True
Else
    Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.Filter =
""
Forms!frmintmovimentimagazzino!sfrmIntMovimentiMagazzino.Form.FilterOn=True
End If
End Sub
---------------------
Ciao Giorgio


title: come posso utilizzare una qry in un recordset??

author: MarcoBA

text:
Ho bisogno di inserire una qry come origine di un recordset come si fa??
grazie per l'eventuale aiuto
Marco
--
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:
MarcoBA wrote:
> Ho bisogno di inserire una qry come origine di un recordset come si
> fa?? grazie per l'eventuale aiuto
>
> Marco
Dim rst as dao.recordset
set rst = currentdb.openrecordset("TuaQuery")
with rst
...
end with
rst.close: set rst =  nothing
--
_ _
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


author: MarcoBa

text:
MA ha scritto:
> MarcoBA wrote:
> > Ho bisogno di inserire una qry come origine di un recordset come si
> > fa?? grazie per l'eventuale aiuto
> >
> > Marco
> Dim rst as dao.recordset
> set rst = currentdb.openrecordset("TuaQuery")
> with rst
> ...
> end with
> rst.close: set rst =  nothing
ho provato ma mi genera il seguente errore:
errore di run-time 3061
parametri insufficienti previsto 2



author: sv

text:
MarcoBa ha scritto:
> MA ha scritto:
> > MarcoBA wrote:
> > > Ho bisogno di inserire una qry come origine di un recordset come si
> > > fa?? grazie per l'eventuale aiuto
> > >
> > > Marco
> > Dim rst as dao.recordset
> > set rst = currentdb.openrecordset("TuaQuery")
> > with rst
> > ...
> > end with
> > rst.close: set rst =  nothing
> ho provato ma mi genera il seguente errore:
> errore di run-time 3061
> parametri insufficienti previsto 2
http://www.donkarl.com/it/
FAQ 6.4
--
rgrds
SC



title: Funzione IIF

author: maurizio

text:
Chiedo scusa, ma dovendo operare su una query con più parametri, è possibile
usare più funzioni IIF concatenate oppure no?
es IIF(val1="";val2;iif(val3;val4)) ecc..
Ringrazio per la cortesia
Maurizio
--
     Di solito gli uomini
disprezzano le cose
    che non capiscono
                  Johann Wolfgang von Goethe


title: Funzione IIF

author: Vittò

text:
certo
non ricordo come chiama i parametri qundi la descrivo come con excel.
IIF(Test;se_vero;se_falso)
Test metti il valore di confronto
se_vero - la risposta che darà se trova il valore corrispondente a ciò che
hai scritto in Test
se_falso - la risposta che darà se  trova il valore NONcorrispondente a ciò
che hai scritto in Test
come nidificare altre IFF
es.
IIF(Test;IIF(Test;IIF(Test;se_vero;se_falso);se_falso);se_falso)
per capirci devi sempre rispettare i tre parametri che la formula IFF
richiede
non ricordo ma anche l'help di Excel per la Formula SE() ti dovrebbe dare
diversi esempi
Buon lavoro...
ciao Vittò


title: Funzione IIF

author: Antonio Biso

text:
"maurizio" <
cal...@libero.it
> ha scritto nel messaggio
news:0ypd8.5352$v7.2...@twister1.libero.it...
> Chiedo scusa, ma dovendo operare su una query con piů parametri, č
possibile
> usare piů funzioni IIF concatenate oppure no?
> es IIF(val1="";val2;iif(val3;val4)) ecc..
Sě
Anche se lě ci manca l'opzione else del secondo iif
Antonio


title: Funzione IIF

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> Sě
> Anche se lě ci manca l'opzione else del secondo iif
>
> Antonio
>
Ringrazio tutti per la cortesia, ma il mio problema era appunto se la potevo
trattare come la funzione IF (scusate ma la funzione IIF la sto usando solo
in ACCESS)
Maurizio


title: Funzione IIF

text:
"maurizio" <
cal...@libero.it
> ha scritto nel messaggio
news:DOud8.6888$v7.2...@twister1.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> > Sì
> > Anche se lì ci manca l'opzione else del secondo iif
> >
> > Antonio
> >
> Ringrazio tutti per la cortesia, ma il mio problema era appunto se la
potevo
> trattare come la funzione IF (scusate ma la funzione IIF la sto usando
solo
> in ACCESS)
> Maurizio
La iif in realtà è un'espressione condizionale (e via con la semantica dei
linguaggi di programmazione)
Significa che ritorna sempre un'espressione (combinazione di valori e
operatori) e i parametri sono 3 espressioni, la prima che deve ritornare un
valore booleano, le altre a loro volta possono essere iif
Antonio


title: Crea campo con 2 decimali

author: Greg

text:
Access 2003 con dao 3.6

sto cercando di aggiungere un campo numerico con 2 posizioni decimali:
 DB.Execute "ALTER TABLE [Tab1] ADD COLUMN [campo3] Decimel (4,2)",
dbFailOnError
Ma ottego: errore nella sintasi di definizione del campo.
Forse non si può e devo ricorrere a tabledef?
Grazie

--
Greg


title: Crea campo con 2 decimali

text:

A parte l'errore di scrittura [Decimel] che forse voleva essere [Decimal]... mi chiedo se sei sicuro di quello che hai fatto o di quello che chiedi...

Secomdo me hai confuso il FieldType [DECIMAL] con con il DECIMALPLACE oppure con il FORMAT di visualizzazione che può essere limitato a 2 DECIMALI...

In sostanza un Campo di tipo Numerico che non sia Integer/Byte/Long(non hanno decimali) NON ha l'opzione di ridurre i decimali archiviati nel campo.

Quello che puoi fare è limitare il numero di Decimali da VISUALIZZARE, con DECIMALPLACE o FORMAT(...), come dalla modifica in Struttura di una Tabella.

Per questo hai 2 Opzioni:

1° ARROTONDI alla 2° cifra( e quì si apre iun mondo sul tipo di arrotondamento).
2° Usi un FORMAT o il DECIMALPLACE per visualizzare solo 2 decimali...

P.S.(la 2° è da evitare come la peste, perchè poi i calcoli vengono eseguiti con tutti i Decimali, ed entra in gioco l'arrotondamento dei dati in virgola mobile ed di conseguenza gli errori):

Quindi quello che hai chiesto è abbastanza assurdo.

Quello che si deve fare e che di norma si fa è ARROTONDARE IL DATO in fase di inserimento o POST CALCOLO.

Direi completamente OT, ma giusto per chiarire...
Quel comando DDL invece, non è eseguibile con DAO nè ODBC, ma solo con ADO/OLEDB.

Qui vedi i FieldType esposti da DAO su Access e come puoi notare DECIMAL non esiste:
https://msdn.microsoft.com/en-us/library/windows/desktop/ms714540%28v=vs.85%29.aspx

Uando ADO:
Application.CurrentProject.Connection.Execute _
  "ALTER TABLE tblCategory " & _
  " ADD COLUMN MyDecField DECIMAL(18,3)"

@Alex


title: Crea campo con 2 decimali

text:

Io volevo riprodurre da codice il "posizioni decimali" della tabella di
access. Comuque grazie per le delucidazione, adesso mi è piu chiaro. Ho
visto che il campo può contenere un numero variabile di decimali e
penso che la cosa migliore sia conservare tutto e in fase di
visualizzazione usare il format. Grazie ancora  buon anno :)

--
Greg


title: Dimensionare dinamicamente SubForm...

author: Gilberto

text:
Ciao a tutti.
Ho inoltrato questa domanda qualche tempo fa, ma non ho ottenuto
risposte. ero convinto che fose relativamente semplice... invece sembra
di no.
Giusto nella speranza che chi mi sapia rispondere non l'abbia vista, la
ripropongo qui:
In una maschera di dati (caratteristiche di un sistema modulare) uno dei
campi è, appunto, il numero di moduli installati.
Sotto, ho una subform in "Continuous Form" per l'inserimento dei dati di
ciascun modulo - ci sta tutto in una sola "riga" così che posso vedere
tutti i moduli nella stessa "schermata", uno per riga.
Quando uso la form/subform per la visualizzazione, ridimensiono la
subform a seconda del valore trovato nel campo "numero di moduli
installati" in modo da farmi vedere esattamente il numero di record
effettivamente trovati.
In modalità inserimento dati vorrei che dopo che l'utente ha inserito un
valore nel campo "numero di moduli installati" la form "si
ridimensionasse" (evento after update) presentando quello stesso numero
di record vuoti, pronti per ricevere dati.
Invece mi compare UN SOLO record vuoto e si aggiunge uno nuovo (e vuoto)
soltanto quando si preme "tab" dopo il riempimento dell'ultimo campo del
record.
Come faccio ad avere la subform con i record vuoti TUTTI visibili?
C'è qualcuno che mi possa dare qualche suggerimento?
Ringrazio anticipatamente chi mi aiuterà.
Gilberto
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Dimensionare dinamicamente SubForm...

author: Alberto S.

text:
[CUT]
> In modalità inserimento dati vorrei che dopo che l'utente ha inserito un
> valore nel campo "numero di moduli installati" la form "si
> ridimensionasse" (evento after update) presentando quello stesso numero
> di record vuoti, pronti per ricevere dati.
> Invece mi compare UN SOLO record vuoto e si aggiunge uno nuovo (e vuoto)
> soltanto quando si preme "tab" dopo il riempimento dell'ultimo campo del
> record.
>
> Come faccio ad avere la subform con i record vuoti TUTTI visibili?
> C'è qualcuno che mi possa dare qualche suggerimento?
>
>
> Ringrazio anticipatamente chi mi aiuterà.
>
> Gilberto
>
Un modo sarebbe questo...
sul dopo aggiornamento del controllo 'numero dei moduli'
- aggiungere al recordset che è origine record della sottomaschera X record
con i campi da visualizzare vuoti
- fare un bel Requery della sottomaschera
- impostare la proprietà 'Consenti aggiunte' della sottomaschera a falso
Ciao
--
Alberto


title: Dimensionare dinamicamente SubForm...

author: Abcd Efgh

text:
"Alberto S." <
sartor...@tin.it
> wrote in message
news:adr7sd$1p27f$
2...@ID-134626.news.dfncis.de
 [CUT]
> Un modo sarebbe questo...
> sul dopo aggiornamento del controllo 'numero dei moduli'
> - aggiungere al recordset che è origine record della sottomaschera X record
> con i campi da visualizzare vuoti
> - fare un bel Requery della sottomaschera
> - impostare la proprietà 'Consenti aggiunte' della sottomaschera a falso
>
> Ciao
> --
> Alberto
Grazie



title: Dimensionare dinamicamente SubForm...

text:
[CUT]
>
> Grazie
>
> Gilberto
>
Di niente
Ciao
--
Alberto


title: ESECUZIONE COMANDO BAT DA ACCESS 2010

author: Leonardo

text:
Buongiorno a tutti,
avrei la necessità di eseguire la seguente routine da Access su clic
di un pulsante (sono due operazioni):
(copy \\W98_01\w98_01_c\Multiced\AZ30C0Rifa.txt  \\W98_01\w98_01_c
\Multiced\AZ30C0Rifa.bol)
(del \\W98_01\w98_01_c\Multiced\AZ30C0Rifa.txt)
Potete per favore indicarmi come impostare l'evento?

Grazie sempre del prezioso aiuto e approfitto per augurare a tutti voi
tanta Serenità e Gioia.
Leo


title: ESECUZIONE COMANDO BAT DA ACCESS 2010

text:

Perchè non usi come tutti i nornali comandi VBA per fare una Copia di
un file ed il Delete...??

C'è un motivo che ti spinge a complicarti la vita a Natale...?

@Alex


title: ESECUZIONE COMANDO BAT DA ACCESS 2010

text:

Hai ragione Alex, a volte le cose semplici le facciamo diventare
complicate...
Grazie!


title: Problema con Riesegui Query

text:
Salve a TUTTI,
mi trovo nella situazione di avere un sottomaschera in foglio dati,
nidificata in una maschera che chiamer� "master", nella maschera master ho
inserito una casella di testo e nella propriet�: Origine controllo ho
inserito la seguente stringa:
=DSum("[nome_campo_da_sommare]";"nome_query";"[nome_campo_SI/NO] = -1")
questo per ottenere il totale dei record spuntati nella sottomaschera che
trae origine dei dati dalla stessa query e che ha un campo da sommare e un
campo SI/NO.
Tutto funziona, ma se appongo una spunta in un'altro record non riesco in
nessun modo a fare il riesegui query sulla casella di testo che ho messo
nella master. Sono costretto ad entrare con il cursore nella casella di
testo e fare MAISC+F9. Mi piacerebbe che su evento, per esempio: dopo
aggiornamento, riuscire ad aggiornare in automatico il valore nella casella
di controllo. Ora con tutte le prove che ho fatto, credo di capire che
access non vede come aperto l'oggetto maschera "master". Spero di avere
descritto bene la situazione.
Potete aiutarmi?
Grazie a TUTTI
Fabio


title: Problema con Riesegui Query

author: Geppo

text:
Ciao "Z.Fabio" <
fabio...@alice.it
> ha scritto nel messaggio
news:4a6618d5$0$554$4faf...@reader4.news.tin.it...

prova ad inserire su dopo aggiornamento della casella di controllo della
sottomaschera:
parent.recalc
> Grazie a TUTTI
> Fabio
--
Ciao
Geppo


title: Problema con Riesegui Query

text:
> prova ad inserire su dopo aggiornamento della casella di controllo della
> sottomaschera:
 parent.recalc
>> Grazie a TUTTI
>> Fabio
> --
> Ciao
> Geppo ---
Potresti farmi un esempio di codice da usare?
Fino ad ora usando la macro di access: o mi da errore 2950 oppure mi legge
il contenuto della casella di testo e dice che non lo trova nel recor
corrente. Io purtroppo non so scrivere in VBA
Grazie Fabio


title: Problema con Riesegui Query

author: Sergio MAZZA

text:
"Z.Fabio" <
fabio...@alice.it
> ha scritto nel messaggio
news:4a66a563$0$14403$4faf...@reader5.news.tin.it...

Le macro, come e perchï¿½ giï¿½ ti ho anticipato, non si utilizzando se non in
casi mooolto particolari.
Il suggerimento di Geppo ï¿½ quello di utilizzare il Metodo Recalc
(
http://msdn.microsoft.com/en-us/library/aa221552(office.11).aspx
) con la
Proprietï¿½ Parent
(
http://msdn.microsoft.com/en-us/library/aa173191(office.11).aspx
).
Parent, in questo caso, nella sottomaschera fa riferimento alla maschera
principale e il Recalc esegue il rinfresco di tutti i controlli calcolati
(quello con la DSum).
Ora; come fare per eseguire l'istruzione? Devi gestire gli eventi (es.
Click, DoppioClick, nuovo record, etc. etc.) della sottomaschera e Geppo ti
suggeriva l'evento "dopo aggiornamento" dell'oggetto "casella di controllo".
Quindi il codice VBA (non macro) che dovrai scrivere nell'evento "dopo
aggiornamento" sarï¿½:
Parent.Recalc
Ciao.
--
Sergio MAZZA


title: MAchera Ordini Northwind

author: Alez

text:
Salve a tutti,
Ho creato una maschera Vendite scopiazzando da Northwind, cioè una maschera
principale con Id e data di vendita e un sottomaschera con Dettagli vendita
in relazione con Vendite per Id e Prodotti con cod barre.
Mi succede che alla masc. Vendite non funziona il contatore, quindi non
posso ottenere un nuovo record. Eppure mi sembra di aver scopiazzato bene,
tranne per un particolare a cui non vengo a capo:
la maschera Dettagli Ordini di North. ha una chiave primaria su Id (val.
Numerico) con duplicati ammessi, a me Access, invece,  permette di averla
solo con duplicati non ammessi.
Pecchè!!


title: MAchera Ordini Northwind

author: Max De Poli

text:
"Alez" <
music...@inwind.it
> wrote in message news:<LOGf8.48247$
fa5.1...@twister2.libero.it
>...
> Ho creato una maschera Vendite scopiazzando da Northwind, cioè una maschera
> principale con Id e data di vendita e un sottomaschera con Dettagli vendita
> in relazione con Vendite per Id e Prodotti con cod barre.
> Mi succede che alla masc. Vendite non funziona il contatore, quindi non
> posso ottenere un nuovo record. Eppure mi sembra di aver scopiazzato bene,
> tranne per un particolare a cui non vengo a capo:
Hai creato le relazioni forzando l'integrità referenziale?
> la maschera Dettagli Ordini di North. ha una chiave primaria su Id (val.
> Numerico) con duplicati ammessi, a me Access, invece,  permette di averla
> solo con duplicati non ammessi.
No, questo non e' assolutamente possibile. Una chiave, per
definizione, non ammette duplicati (e che razza di chiave e',
altrimenti?)
(Comunque le maschere non hanno chiavi... le hanno le tabelle.)


title: Ricerca con query

author: Andrea

text:
Salve,
ho realizzzato una quary che va a prendere in più tabelle delle informazioni
che sono state inserite in un intervallo di tempo ben preciso(due date).Fin
qui tutto ok,adesso questo intervallo devo prenderlo da input (anche qui
tutto ok) ma come faccio a modificare dinamicamente la mia query?
Grazie


title: Ricerca con query

author: Antonio Ganci

text:

Devi creare la query come parametrica.
Basta che nello spazio delle condizioni scrivi:
>=[Data inizio] and <= [Data fine]
Quando lancerai la query ti verrà chiesto di inserire i due parametri.


title: Ricerca con query

text:
Ok...funziona
GRAZIE
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:ajt030$ld1$1...@newsreader.mailgate.org...



title: Database ACCESS e pagine Web

author: Mauro

text:
Come posso inserire il DB Access con le pagine web????
Ciao
Mauro
--------------------------------
Inviato via
http://usenet.iol.it


title: Database ACCESS e pagine Web

text:
Mauro <
Ma...@libero.it
> wrote in message
62Z110Z75Z180Y1...@usenet.iol.it...

ASP...
ma non è semplice se non hai esperienza in merito
--
Maurizio75


title: Database ACCESS e pagine Web

author: Dr. A.

text:
"Mauro" <
Ma...@libero.it
> ha scritto nel messaggio
news:62Z110Z75Z180Y1...@usenet.iol.it...

Beccati sto esempio e studiatelo:
'PAGINA PER L'INVIO DEI DATI

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>INSERIMENTO DI DATI IN UN DATABASE</title>

INSERIMENTO DI DATI IN UN DATABASE

Questo esempio consente di inserire i dati un database.

<form method="POST" action="Inserimento1b.asp">

Nome: <input type="text" name="nome" size="20">

Cognome: <input type="text" name="cognome" size="20">

Email: <input type="text" name="email" size="20">

<input type="submit" value="Salva i dati nel database">

</form>

'PAGINA PER IL SALVATAGGIO DEI DATI

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>INSERIMENTO DI DATI IN UN DATABASE</title>

INSERIMENTO DI DATI IN UN DATABASE

Questo esempio consente di inserire i dati un database.

<%
on error resume next
nome = Request.form("nome")
cognome = Request.form("cognome")
email = Request.form("email")
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "tutorial", "", ""
SQL = "INSERT INTO insertData (nome, cognome, email) "
SQL = SQL & "VALUES ('" & nome & "','" & cognome & "','" & email & "')"
rs.Open SQL, conn
If err.number>0 then
    response.write "
? - Attenzione, hai commesso un errore nello script,
controlla e riprova.
"
elseif conn.errors.count> 0 then
    response.write "
Attenzione!
"
    response.write "
I dati inseriti non sono corretti, controllare se i
campi obbligatori sono stati compilati.
"
Else
    response.write "
Ok, i dati sono stati inseriti correttamente!!!!
"
End if
conn.Close
%>

<%
Response.Write("Torna alla pagina
precedente")
%>

Ciao.
ndr  il Ciao non devi inserirlo nella pagina ASP  ;-)))))


title: [newbie] query su query campo calcolato e somma di righe.

author: Vincenzo

text:
Salve, scusate la complicazione ma ho bisogno di un piccolo aiuto.
Ho una query dove con un inputbox imposto un parametro di ricerca (mese) e
filtro dei risultati.
Sulla query risultante ho un campo calcolato "fattura: [importo x durata]"
risultante da due campi della query stessa.
Quello di cui ho bisogno è che in una 2a query (o nella stessa) dove possa
vedere la somma di tutte le righe "fattura".
Ho provato con il dsum, ma non riesco bene perchè il parametro iniziale
(mese) mi crea inceppamenti.
Qualche aiutino??
Grazie


author: cidi

text:
"Vincenzo" <
nobod...@tiscali.it
> ha scritto nel messaggio
news:45c05b31$0$7744$5fc...@news.tiscali.it...

Ciao Vincenzo
prova con una query di raggruppamento per idfattura e campo calcolato:
Totalefattura: Somma([importo]*[durata])
Daniele


title: nascondere controlli in sezione report

text:
Ho il solito report per stampare fatture, con la sezione Pièdipaginapagina
che contiene una quindicina di controlli e che deve essere visibile solo
sull'ultima pagina. Basandomi anche su altri post precedenti, ho inserito Su
Formattazione della sezione il codice
if
me.page
=me.pages then
    me.controllo.visible=true
else
    me.controllo.visible=false
end if
 e la cosa funziona (in anteprima, in stampa non ho ancora provato). Avendo
però 15 controlli, esiste una sintassi che mi permetta di specificare il
gruppo di oggetti appartenenti alla sezione? Ho cercato nell'help, ma
l'insieme "Controls" appartiene all'oggetto report; in un punto viene poi
citato l'oggetto section che però non esiste (esiste la proprietà, ma
ovviamente non è la stessa cosa).
Altra domanda: nei post precedenti riguardanti i report ho trovato spesso
citato l'evento Format  del report: ma dov'è? Non compare nella scheda
eventi delle  proprietà (in modalità struttura) e nemmeno nella combo degli
eventi in VBA... cos'è che non so?


title: nascondere controlli in sezione report

author: Maurizio Borrelli

text:
> "nic_cardi" news:T9bm9.33863$Eu.7...@twister1.libero.it...:
> Ho il solito report per stampare fatture, con la sezione Pièdipaginapagina
> che contiene una quindicina di controlli e che deve essere visibile solo
> sull'ultima pagina. Basandomi anche su altri post precedenti, ho inserito
> Su Formattazione della sezione il codice
> if
me.page
=me.pages then
>     me.controllo.visible=true
> else
>     me.controllo.visible=false
> end if
>  e la cosa funziona (in anteprima, in stampa non ho ancora provato).
> Avendo
> però 15 controlli, esiste una sintassi che mi permetta di specificare il
> gruppo di oggetti appartenenti alla sezione? Ho cercato nell'help, ma
> l'insieme "Controls" appartiene all'oggetto report; in un punto viene poi
> citato l'oggetto section che però non esiste (esiste la proprietà, ma
> ovviamente non è la stessa cosa).
    Una Proprieta' di un Oggetto puo' essere essa stessa un Oggetto.
    Verifica col Visualizzatore oggetti. Cerca Section e troverai, fra le
altre cose:
        Class Section
            Membro di Access
        Property Section(Index) As Section
            sola lettura
            Membro di Access.Form
        Property Section(Index) As Section
            sola lettura
            Membro di Access.Report
        Property Section As Integer
            Membro di Access.<oggetto>
    Come puoi notare nel caso delle prime due proprieta' la classe Section
e' implementata come Oggetto proprieta' degli oggetti Form e Report. Si
viene informati anche che sia l'oggetto Form che l'oggetto Report possiedono
come proprieta' piu' di un oggetto Section: una insieme di oggetti Section,
numerati per mezzo di Index. La guida ci dice come interpretare Index:
0 acDetail Sezione Corpo della maschera o sezione Corpo del report
1 acHeader Sezione intestazione del report o della maschera
2 acFooter Sezione piè di pagina del report o della maschera
3 acPageHeader Sezione intestazione di pagina del report o della maschera
4 acPageFooter Sezione piè di pagina del report o della maschera
5 acGroupLevel1Header Sezione intestazione livello di gruppo 1 (solo report)
6 acGroupLevel1Footer Sezione piè di pagina livello di gruppo 1 (solo
report)
7 acGroupLevel2Header Sezione intestazione livello di gruppo 2 (solo report)
8 acGroupLevel2Footer Sezione piè di pagina livello di gruppo 2 (solo
report)
    La terza proprieta' Section invece e' una proprieta' di alcuni controlli
(TextBox, Label, ecc.) che ci permette di sapere su quale sezione (della
maschera o del report) giace il controllo stesso.
> Altra domanda: nei post precedenti riguardanti i report ho trovato spesso
> citato l'evento Format  del report: ma dov'è? Non compare nella scheda
> eventi delle  proprietà (in modalità struttura) e nemmeno nella combo
> degli eventi in VBA... cos'è che non so?
    ;-)
    L'evento Format corrisponde a quel "Su formattazione" di cui parlavi
sopra.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: nascondere controlli in sezione report

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:anbhil$cdoj1$1...@ID-52090.news.dfncis.de...
> > "nic_cardi" news:T9bm9.33863$Eu.7...@twister1.libero.it...:
> > Ho il solito report per stampare fatture, con la sezione
Pièdipaginapagina
CUT
>     La terza proprieta' Section invece e' una proprieta' di alcuni
controlli
> (TextBox, Label, ecc.) che ci permette di sapere su quale sezione (della
> maschera o del report) giace il controllo stesso.
>
> > Altra domanda: nei post precedenti riguardanti i report ho trovato
spesso
> > citato l'evento Format  del report: ma dov'è? Non compare nella scheda
> > eventi delle  proprietà (in modalità struttura) e nemmeno nella combo
> > degli eventi in VBA... cos'è che non so?
>
>     ;-)
>
>     L'evento Format corrisponde a quel "Su formattazione" di cui parlavi
> sopra.
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
Senti un po': mi aspettavo un aiuto "preconfezionato" (tipo scrivi le
seguenti righe di codice, ecc), invece mi hai dato un aiuto di gran lunga
superiore alle mie aspettative, mi hai fatto ragionare sulla cosa, così il
mio codice è diventato:
If Me.Page = Me.Pages Then
 For Each ctl In Me.Section(acPageFooter).Controls
    ctl.Visible = True
 Next ctl
Else
....
e FUNZIONA!!!!
GRAZIE! Hai un cappuccino con cornetto pagato! (Se e quando ci
incontreremo... io sono piemontese, tu (forse) romano... per ora
accontentati della gratitudine....)
p.s. l'evento Su Formattazione però appartiene alla Sezione di un report,
non al report stesso... cioè se scrivo una cosa tipo
Private Sub NomeReport_Format(Cancel As Integer, FormatCount As Integer)
.....
non dovrebbe succedere nulla...
Ciao!


title: nascondere controlli in sezione report

text:
> "nic_cardi" news:Vjcm9.34012$Eu.7...@twister1.libero.it...:
> > "Maurizio Borrelli" news:anbhil$cdoj1$1...@ID-52090.news.dfncis.de...:
> > > "nic_cardi" news:T9bm9.33863$Eu.7...@twister1.libero.it...:
[...]
> Senti un po': mi aspettavo un aiuto "preconfezionato" (tipo scrivi le
> seguenti righe di codice, ecc), invece mi hai dato un aiuto di gran lunga
> superiore alle mie aspettative, mi hai fatto ragionare sulla cosa,
    Ne sono lieto.
> così il mio codice è diventato:
> If Me.Page = Me.Pages Then
>  For Each ctl In Me.Section(acPageFooter).Controls
>     ctl.Visible = True
>  Next ctl
> Else
> ....
> e FUNZIONA!!!!
    Evvai!...
> GRAZIE! Hai un cappuccino con cornetto pagato! (Se e quando ci
> incontreremo... io sono piemontese, tu (forse) romano...
    X Regio, Venetia et Istria.
> per ora accontentati della gratitudine....)
> p.s. l'evento Su Formattazione però appartiene alla Sezione di un report,
> non al report stesso... cioè se scrivo
    Ecco il problema: se scrivo... Perche' scriverlo? Fallo scrivere a
Visual Basic. Hai presente le due caselle combinate, Oggetto e Routine, in
testa alla finestra dei moduli Visual Basic? Usa quelle.
> una cosa tipo
> Private Sub NomeReport_Format(Cancel As Integer, FormatCount As Integer)
> .....
> non dovrebbe succedere nulla...
--



title: Immagini JEPG

author: ceci

text:
Ho utilizzato l'utilissimo esempio trovato su Sito Comune "Browser Foto"
Il mio problema è che le immagini JEPG non riesco a vederle mentre non
ci sono problemi con le immagini JPG.
Cosa devo fare. potete aiutarmi
grazie del vostro prezioso aiuto.
Cecilia

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Immagini JEPG

author: Roberto da casa

text:
"ceci" <
cec...@tele2.it
> ha scritto nel messaggio
news:83Z176Z75Z33Y1...@usenet.libero.it...
> Ho utilizzato l'utilissimo esempio trovato su Sito Comune "Browser Foto"
> Il mio problema è che le immagini JEPG non riesco a vederle mentre non
> ci sono problemi con le immagini JPG.
Non ti nascondo che sino alla lettura del tuo messaggio ritenevo che i file
JPEG fossero quelli che hanno come extension del file .JPG, e quindi
ritenevo fossero la stessa cosa.
Ma esistono veramente file immagine che hanno come extension .JPEG?
E se esistono hai provato a modificare JPEG in JPG?
Per i file che non siano .BMP (bitmap) leggi la nota in calce alla FAQ circa
cosa succede in caso usi il runtime del databse.
> Cosa devo fare. potete aiutarmi
> grazie del vostro prezioso aiuto.
Prego.
> Cecilia
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------