title: [OT] Idea per sito AccessGroup...

text:
Pablitomf ha scritto:
> namor ha scritto:
> > > Ah! Ho capito vuoi un posto sul "balcone" di
accessgroup.it
> > > Ciao.
> > Aoh, ma è solido 'sto balcone? Non è che verrà giù alla prima scossettina
> > di terremoto? Sai, dalle mie parti...
> > Namor
> Dipende dal peso...
Per ora contenuto, ma durante le ferie mi rimpinzo di gelato e porcherie
varie, e giusto ieri sera ho inaugurato la griglia nuova, a gas con
piastra in pietra ollare, fantastica, speciale! Credo che prossimamente
metterò su qualche chiletto...
Ciao. Buone vacanze.
Attento al cambio dei pesos, se non sei già stato a Cuba.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: [OT] Idea per sito AccessGroup...

author: Sergio MAZZA

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cevo05$d3r$1...@news.newsland.it...
>
> No, dalla parte sbagliata del letto c'ho il muro, non ci si può scendere.
> Fino a mercoledì ero in ferie. Da ieri sono in ufficio. Esaurimento
> rapido. Ma Lum-mar-mer sto di nuovo a casa. Sto pensando di finire
> l'estate lavorando solo i gio e ven, non è male come idea.
Se sei in queste condizioni poveri colleghi!
Io oggi faccio come Pablitomf ma senza HAVANACLUB, vado ad OstiaBeach e poi in PugliaBeach...
> Aoh, ma è solido 'sto balcone? Non è che verrà giù alla prima scossettina
> di terremoto? Sai, dalle mie parti...
Tranquillo; quel balcone oramai non lo butti giù neanche con il martello e la falce...
> Namor
>
>
> --
> namor at inwind punto it
Ciao.
--
Sergio MAZZA


title: [OT] Idea per sito AccessGroup...

author: Pablitomf

text:
Sergio MAZZA ha scritto:
[CUT]
> vado ad OstiaBeach
Questa non la conosco bene, quindi non mi pronuncio...
> poi in PugliaBeach...
Questa si... se sei sul gargano ti aspetta un gran mare e proprio dei bei
posticini... e cosa che non guasta "mai", gran belle donne (ma là fermati
altrimenti la dolce metà mena!) :-)
Buone vacanze Sergio.
PS
Mi sento un 15enne... sai del tipo "ci sentiamo... mi raccomando
scrivimi..." :-)
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito



title: [OT] Idea per sito AccessGroup...

author: namor

text:
Sergio MAZZA ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
news:cevo05$d3r$1...@news.newsland.it...
> >
> > No, dalla parte sbagliata del letto c'ho il muro, non ci si puň scendere.
> > Fino a mercoledě ero in ferie. Da ieri sono in ufficio. Esaurimento
> > rapido. Ma Lum-mar-mer sto di nuovo a casa. Sto pensando di finire
> > l'estate lavorando solo i gio e ven, non č male come idea.
> Se sei in queste condizioni poveri colleghi!
> Io oggi faccio come Pablitomf ma senza HAVANACLUB, vado ad OstiaBeach e poi
in PugliaBeach...
Colleghi? Quali colleghi? QUA SONO TUTTI IN FERIEEEE!!! Organico ridotto
al 30%. Perň si lavora meglio in agosto, come sotto natale, nessuno che
rompe, telefoni che tacciono...
Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti sulla
costiera triestina, qualche weekend in croazia e un bel matrimonio (non
mio) il 14 agosto alle 16.00, sicuramente sotto un sole che la death
valley gli fa un baffo!
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: [OT] Idea per sito AccessGroup...

author: Antonio Biso

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cevpnd$t0h$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti sulla
> costiera triestina, qualche weekend in croazia e un bel matrimonio (non
Salutaci Federico Luciani, pace all'anima sua!!!
Antonio


title: [OT] Idea per sito AccessGroup...

text:
Antonio Biso ha scritto:



Perchč, č di Trieste? O č in montagna? Io vado in zona Sauris. Vi porto un
prosciuttino?



title: [OT] Idea per sito AccessGroup...

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio news:cevpna$t0a$1...@news.newsland.it...
>
> Questa non la conosco bene, quindi non mi pronuncio...
Ahmbé!
> Questa si... se sei sul gargano ti aspetta un gran mare e proprio dei bei
> posticini... e cosa che non guasta "mai", gran belle donne (ma là fermati
> altrimenti la dolce metà mena!) :-)
Sì vicino Vieste; i "posticini" e le "gran belle donne" li conosco c'ho fatto il militare...
> Buone vacanze Sergio.
Anche a te/voi.
> PS
> Mi sento un 15enne... sai del tipo "ci sentiamo... mi raccomando
> scrivimi..." :-)
Smac! Smac! (bacioni)
> --
> Pablitomf (Maurizio Facciuti)
>
> Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
> domande sugli argomenti che non conosce, chi non risponde quando gli
> chiedono qualcosa che conosce. (P.Neruda)
Ciao.
--
Sergio MAZZA


title: [OT] Idea per sito AccessGroup...

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cevpnd$t0h$1...@news.newsland.it...
>
> Colleghi? Quali colleghi? QUA SONO TUTTI IN FERIEEEE!!! Organico ridotto
> al 30%. Perň si lavora meglio in agosto, come sotto natale, nessuno che
> rompe, telefoni che tacciono...
Vero;
> Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti sulla
> costiera triestina, qualche weekend in croazia e un bel matrimonio (non
> mio) il 14 agosto alle 16.00, sicuramente sotto un sole che la death
> valley gli fa un baffo!
cavoli che programmino;
> Namor
>
>
> --
> namor at inwind punto it
Ciao.
--
Sergio MAZZA


title: [OT] Idea per sito AccessGroup...

author: MA

text:

          Sì ma dopo c'è stata la II guerra mondiale...



title: [OT] Idea per sito AccessGroup...

text:

          Mandamelo che vedo di pubblicarlo.



title: [OT] Idea per sito AccessGroup...

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cevr4g$aeq$1...@news.newsland.it...
> Antonio Biso ha scritto:
>
> > "namor" <
do...@spam.me
> ha scritto nel messaggio
> > news:cevpnd$t0h$1...@news.newsland.it...
> > > Sergio MAZZA ha scritto:
> > >
>
> > > Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti sulla
> > > costiera triestina, qualche weekend in croazia e un bel matrimonio
(non
>
> > Salutaci Federico Luciani, pace all'anima sua!!!
> > Antonio
>
> Perchč, č di Trieste?
S'č cuccato una triestina e ormai vive lě!!!
O č in montagna? Io vado in zona Sauris. Vi porto un
> prosciuttino?
Buongioooooorno
Antonio


title: [OT] Idea per sito AccessGroup...

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:82Z51Z173Z84Y1...@usenet.libero.it...
>
>           Sě ma dopo c'č stata la II guerra mondiale...
> MAssimiliano
Io parlavo del dopo...
Ciao.
--
Sergio MAZZA


title: [OT] Idea per sito AccessGroup...

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto
> > > > Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti
sulla
> > > > costiera triestina, qualche weekend in croazia e un bel matrimonio
> > > Salutaci Federico Luciani, pace all'anima sua!!!
> > > Antonio
> > Perchè, è di Trieste?
> S'è cuccato una triestina e ormai vive lì!!!
Buon per lui, le triestine sono tutte gran fighe! Non so come facciano a
farle tutte così bene, la costiera di barcola (TS) è la strada più
pericolosa della regione perchè tutti guidano guardando le bellezze al bagno
che passeggiano in costume sul marciapiede!
> O è in montagna? Io vado in zona Sauris. Vi porto un
> > prosciuttino?
> Buongioooooorno
> Antonio
Io l'avevo proposto di fare il raduno a Sauris, ci mettevo pure la casa, poi
avete scelto Roma... sarà per la proxima.
Namor


title: [OT] Idea per sito AccessGroup...

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cevs7d$q1g$1...@canarie.caspur.it...
> "namor" <
do...@spam.me
> ha scritto nel messaggio
news:cevpnd$t0h$1...@news.newsland.it...
> > Colleghi? Quali colleghi? QUA SONO TUTTI IN FERIEEEE!!! Organico ridotto
> > al 30%. Però si lavora meglio in agosto, come sotto natale, nessuno che
> > rompe, telefoni che tacciono...
> Vero;
> > Buon bagnetto allora. Io mi faccio 2-3 gg in montagna, bagnetti sulla
> > costiera triestina, qualche weekend in croazia e un bel matrimonio (non
> > mio) il 14 agosto alle 16.00, sicuramente sotto un sole che la death
> > valley gli fa un baffo!
> cavoli che programmino;
> Ciao.
> --
> Sergio MAZZA
Che programmino... e non siamo forse tutti programmatori qua, eh, eh???
A parte quelli di trieste, che devono essere dei superman per fare i
programmatori.
Guarda qua i testi dell'ultimo concorso per programmatore (1.200 euro/mese)
dell'ASS Triestina, secondo me cercano piuttosto un amministratore di rete
con i controca**i (che dovrebbe essere inquadrato al livello superiore)!
http://www.ass1.sanita.fvg.it/reposurp/concorsi/Prova%20scritta%20programmat
ore
Namor


title: [OT] Idea per sito AccessGroup...

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:63PQc.31058$1V3.7...@twister2.libero.it...
> > O č in montagna? Io vado in zona Sauris. Vi porto un
> > > prosciuttino?
>
> > Buongioooooorno
> > Antonio
>
> Io l'avevo proposto di fare il raduno a Sauris, ci mettevo pure la casa,
poi
Ben in effetti si poteva fare dietro l'angolo a Sauris...
Antonio


title: [OT] Idea per sito AccessGroup...

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:73PQc.31059$1V3.7...@twister2.libero.it...
>
> Che programmino... e non siamo forse tutti programmatori qua, eh, eh???
> A parte quelli di trieste, che devono essere dei superman per fare i
> programmatori.
> Guarda qua i testi dell'ultimo concorso per programmatore (1.200
euro/mese)
> dell'ASS Triestina, secondo me cercano piuttosto un amministratore di rete
> con i controca**i (che dovrebbe essere inquadrato al livello superiore)!
>
http://www.ass1.sanita.fvg.it/reposurp/concorsi/Prova%20scritta%20programmat
> ore
> Namor
Piuttosto? Di pure che cercano solo un amministratore di rete; un
programmatore non sa cosa è active directory/DNS/DHCP/etc. etc. e neanche lo
deve sapere... Bah!
Ciao.
--
Sergio MAZZA


title: Gestione fatture

author: Igor

text:
Salve a tutti
Ho realizzato un modulo per fatture in excel per mio padre, però, siccome
non ha molta dimestichezza col pc, si incasina su alcune cose (salvare con
nome, trovare l'ultima fattura per vedere il numero, ecc), volevo realizzare
un qualcosa in access, solo che lo conosco ben poco (per non dire nulla
|  )
Ecco, mi servirebbero degli spunti per capire da che parte muovermi.
Cercando nel web, mi sono imbattuto in questo articolo:
http://business.msn.it/italy/pmi/comefare/gestioneimpresa/fatture/article/article4.mspx
Ecco, vorrei realizzare una cosa simile, utilizzando però il modello di
fattura che ho creato io.
Ho provato a visionare il codice VB, ma non è che ci capisco molto :|
Le "funzioni" principali che dovrebbe svolgere sono:
- Salvare la fattura con nome scelto dall'utente + numero di fattura
progressivo automatico
- Ricerca delle fatture in base a qualche campo (nome, data, ecc)
E..uhm..direi che può bastare :D
Qualsiasi tipo di materiale è ben accetto (link, file di esempio, ecc)
Mi sa che mi sono imbattuto in una cosa + grande di me :D
Grazie a chiunque risponderà :)


title: Gestione fatture

text:

          Credo di sì, cmq da settembre credo che sarà on line un tutorial per quanto
dici tu su
www.accessgroup.it
MAssimiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Collegare più tabelle ad una stessa maschera

text:
Vorrei che tramite una scelta da fare con dei pulsanti di opzioni la mia
maschera si collegasse o alla tabella tbl2000 o tbl2001 o mi accodasse i
record di entrambe.


author: Silvio Berruti

text:
"Marco75" <
no_...@sorry.it
> ha scritto nel messaggio
news:9k3141$lsa$1...@news.flashnet.it...
> Vorrei che tramite una scelta da fare con dei pulsanti di opzioni la mia
> maschera si collegasse o alla tabella tbl2000 o tbl2001 o mi accodasse i
> record di entrambe.
Invece di crearti una tabella x ogni anno, aggiungi ad una sola tabella il
campo annogest e gestisci la selezione dei record con una query.
In alternativa potresti farti una query di accodamento in una tabella
temporanea...
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


text:
Marco75 <
no_...@sorry.it
> wrote in message 9k3141$lsa$1...@news.flashnet.it...
> Vorrei che tramite una scelta da fare con dei pulsanti di opzioni la mia
> maschera si collegasse o alla tabella tbl2000 o tbl2001 o mi accodasse i
> record di entrambe.
Se le tabelle hanno la stessa struttura e quindi i nomi dei campi sono gli
stessi e quindi i controlli comunque puntano a nomi di campi sempre uguali,
ti basta cambiare la proprietą recordsource della maschera.
Su aggiornamento del gruppo di opzioni andrai a scrivere nella proprietą
me.recordsource o la tabella 2000 o la tabella 2001 o una query di unione su
entrambe
Antonio


title: Problema A97

author: Vincenzo Carella

text:
Cercando di cambiare la pw di un DB noto
che le relative voci di menu( protez,cambia pw,annulla
pw etc.) sono tutte disabilitate,come pure le voci
salva e salva con nome.
Inoltre all'avvio mi compare il msg " impossibile
apportare modifiche al DB,perchè scritto con una
versione preced di access,convertire il DB ?"
I due fatti sono collegati ?
Saluti e grazie.


title: [OT]Sempre ASP e Access

text:
n una pagina Asp efefttuo l'inserimento di un record in una tabella del Db
Access.Per fare questo eseguo l'istruzione SQL INSERT INTO.
Nella stessa pagina però in seguito mi serve recuperare l'id del nuovo
record inserito che access assegna automaticamente.qual'è il modo piu
veloce per farlo?
Grazie FRa
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [OT]Sempre ASP e Access

text:
"francesco73" <
f...@bar.it
> ha scritto nel messaggio news:ceqcs2$la2$1...@news.newsland.it...
> n una pagina Asp efefttuo l'inserimento di un record in una tabella del Db
> Access.Per fare questo eseguo l'istruzione SQL INSERT INTO.
> Nella stessa pagina però in seguito mi serve recuperare l'id del nuovo
> record inserito che access assegna automaticamente.qual'è il modo piu
> veloce per farlo?
> Grazie FRa
>
> --
Dopo che hai registrato il record, chiudi il recorset (non la connessione) e ne apri un altro che legge il max dell'id o metti in
ordine inverso il campo e ti fai restituire un solo record... Insomma devi ricrearti un altro recordset...
Per evitare questo lavorio potresti utilizzare
Ciao.
--
Sergio MAZZA


title: [OT]Sempre ASP e Access

text:
Sergio MAZZA ha scritto:



> Ciao.
quello che temevo :-)
quindi potrebbe essere piu conveniente utilizzare il metodo addnew dl
recordset per inserire il record?in modo da avere subito disponibile l'id?
O sto dicendo una cavolata?
e poi tanto che ci sono...(visto che nel subject sono stato generico)...
fino a qui ho inserito i dati relativi a un cliente..se voglio inserire i
prodotti acquistati dal cliente come faccio?utilizzo l'id del cliente e lo
uso come chiave esterna per la tabella acquisti.Ma il quesito è :per
inserire piu prodotti in successione come faccio?
Ho pensato a una pagina(mi viene da dire maschera...) che invia i dati
della form a se stessa in modo da consentire l'inserimento di piu prodotti.
Fra



title: [OT]Sempre ASP e Access

text:
"francesco73" <
f...@bar.it
> ha scritto nel messaggio news:ceqe01$1ju$1...@news.newsland.it...
> quello che temevo :-)
> quindi potrebbe essere piu conveniente utilizzare il metodo addnew dl
> recordset per inserire il record?in modo da avere subito disponibile l'id?
> O sto dicendo una cavolata?
Sě ma cambia la "tipologia" del recordset;
> e poi tanto che ci sono...(visto che nel subject sono stato generico)...
> fino a qui ho inserito i dati relativi a un cliente..se voglio inserire i
> prodotti acquistati dal cliente come faccio?utilizzo l'id del cliente e lo
> uso come chiave esterna per la tabella acquisti.Ma il quesito č :per
> inserire piu prodotti in successione come faccio?
Piů query in cascata, ma scommetto che temevi anche questo;
> Ho pensato a una pagina(mi viene da dire maschera...) che invia i dati
> della form a se stessa in modo da consentire l'inserimento di piu prodotti.
Non la vedo molto bene; l'utente vedrebbe sempre la stessa pagina e potrebbe essere indotto a pensare che non č successo niente.
Invece č meglio inviare tutto ad una pagina che esegue il lavoro e restituisce un messaggio alla fine del lavoro; poi magari ci
metti un link alla form per proseguire con altri inserimenti.
> Fra
Ciao.
--
Sergio MAZZA


title: [OT]Sempre ASP e Access

text:
Sergio MAZZA ha scritto:






> > Fra
> Ciao.
Le mie sottomascherine...:-)
CIao e grazie



title: [OT]Sempre ASP e Access

text:
"francesco73" <
f...@bar.it
> ha scritto nel messaggio news:ceqlld$8aj$1...@news.newsland.it...
>
> Le mie sottomascherine...:-)
>
> CIao e grazie
>
Seee...
Ciao.
--
Sergio MAZZA


title: Casella combinata con ricerca attiva durante digitazione

author: Maroso Marco

text:
Ciao a tutti, ho un db con una maschera ordini e relativa sottomaschera dettaglio ordini inglobata sotto forma di foglio dati.

Dalla sottomaschera dettagli ordini scelgo da una casella combinata il prodotto da inserire, ma la lista è lunga e spesso digitando le prime lettere non azzecco il prodotto risultando in una perdita di tempo.

Mi domandava se invece fosse possibile ricercare tutti i prodotti che hanno al loro interno i caratteri digitati nella casella combinata, filtrando la stessa mostrando solo quelli corrispondenti alla digitazione.

Non voglio usare un campo testo per cercare nella casella combinata in quanto non mi sembra funzionale e non saprei come gestire la cosa sulle varie n righe di prodotti che devo inserire nella sottomaschera dettaglio ordini in visualizzazione foglio dati.

Qualche idea?

Grazie in anticipo.


author: RobertoA

text:

Se vuoi usare le combo standard, devi adattarti
Potresti farti una combo personalizzata con textbox+button+listbox


author: BFS

text:
Il 12/06/2017 20:25, Maroso Marco ha scritto:

campo testo
combo larga quanto il solo simbolo della freccia in giu posizionata
vicino al capo testo

sull'evento dopo aggiornamento del campo testo imposti l'origine dati
della tua combo. qualcosa tipo

Me.tuacombo.rowsource="selecet ... from... where articolo like '*" &
me.tuoCasellaTesto & "*'"

e sempre sull'evento
me.tuacombo.setfocus
me.tuacombo.dropdown

ti apparirà al tendina di tutti gli articoli che contengono la parte
digitata.

Oppure se tutti gli articoli hanno un barcode, usa uno scanner barcode e
passa la paura

ciao


author: Akery

text:
Il 12/06/2017 20:25, Maroso Marco ha scritto:

questo codice funziona una favola!

Private Sub Combo0_Change()
' Function Description:
' Filter a combo box list as the user types, similarly to how application
' launchers like Colibri, AppRocket and LaunchBar opperate.
     ' e.g. if the list contains the names of U.S. Presidents, and
     ' the user types "gw," then the resulting SQL WHERE clause will
     ' look like "Name Like '*g*w*'" and the resulting list
     ' will include George Washington, George H. W. Bush and
     ' George W. Bush, among others.
     ' The order is preserved, so that typing "wg" creates an SQL WHERE
     ' clause like "Name Like '*w*g*'" and the resulting list would
     ' include George Washington but not the Bushes.

' This is accomplished by grabbing the text typed by the user in the
' combo box's edit field, creating an SQL SELECT statement from it,
' and finally applying that SQL statement to the combo box's
' .RowSource property.

' Form design settings:
'  Set AutoExpand to No
'  Column Count 3
'  Keyed on column 1 (record primary key)
'  Showing column 2 (user-readable data) column 2 width > 0
'  First and Second column width=0

Dim strText, strFind

' Get the text that the user has typed into the combo box editable field.
strText = Me.Combo0.Text

' If the user has typed something in, then filter the combobox
' list to limit the visible records to those that contain the
' typed letters.
' Otherwise (if the field is blank), the user has deleted whatever
' text they typed, so show the entire (unfiltered) list
If Len(Trim(strText)) > 0 Then
     ' Show the list with only those items containing the typed
     ' letters.

     ' Create an SQL query string for the WHERE clause of the SQL
     ' SELECT statement.
     strFind = "Name Like '"
     For i = 1 To Len(Trim(strText))
         If (Right(strFind, 1) = "*") Then
             ' When adding another character, remove the
             ' previous "*," otherwise you end up with
             ' "*g**w*" instead of "*g*w*."
             ' This has no apparent impact on the user, but
             ' ensures that the SQL looks as intended.
             strFind = Left(strFind, Len(strFind) - 1)
         End If
         strFind = strFind & "*" & Mid(strText, i, 1) & "*"
     Next
     strFind = strFind & "'"

     ' Create the full SQL SELECt string for the combo box's
     ' .RowSource property.
     strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName
Where " & _
     strFind & " ORDER BY SortOrder;"

     '' NOTE: to remove the order requirement, such that typing "wg"
     '' and "gw" return the same results, the SQL WHERE clause needs
     '' to look like "Name Like '*w* AND *g*'."
     '' The code above should be changed as follows:
     ''For i = 1 To Len(Trim(strText))
     ''   strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*'
And "
     ''Next
     ''
     ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from
tblApps Where " & _
     ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder"

     ' Filter the combo list records using the new SQL statement.
     Me.Combo0.RowSource = strSQL

Else
     ' Show the entire list.
     strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM
tName ORDER BY tName.SortOrder; "
     Me.Combo0.RowSource = strSQL
End If

' Make sure the combobox is open so the user
' can see the items available on list.
Me.Combo0.Dropdown

End Sub

Akery

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


text:

Ho risolto in altro modo ed ora posto il codice .
Grazie mille comunque.


text:

Ho risolto in altro modo ed ora posto il codice .
Grazie mille comunque, la tua soluzione implicava l'uso di altro campo oltre la combobox giusto?.


text:

Grazie mille a tutti coloro che hanno risposto.

Ho risolto semplicemente eseguendo quanto segue :

Ho impostato la sorgente riga della combobox alla tabella prodotti che contiene tutti i campi che mi occorrono

Ho creato una query chiamata ricercaprodotto (che contiene tutti i campi della tabella prodotti) ed ho messo un criterio sul campo nomeprodotto che volevo "filtrare" in base al digitato.
Il criterio del campo nomeprodotto è semplicemente [Tempvars]![nomeprodotto]

Sul codice relativo alla combobox sull'evento cambia ho scritto quanto segue :

Private Sub IDProdotto_Change()
On Error GoTo ErrorHandler

If idprodotto Is ActiveControl Then
    If Not IsNull(idprodotto.Text) And Len(idprodotto.Text) > 2 Then
        TempVars.Add "NomeProdotto", Me.idprodotto.Text
        idprodotto.RowSource = "ricercaprodotto"
        If Not IsNull(Me.IDOrdine) Then
           'abilito e disabilito la combo in modo da chiuderla
           'senza usare sendkey esc in quanto creava problemi con il blocnum
            Me.idprodotto.Enabled = False
            Me.idprodotto.Enabled = True
            Me!idprodotto.Dropdown

        End If
    End If
End If

ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Errore IDProdotto_Change N.: " & Err.Number & "; Descrizione: " & _
      Err.Description
   Resume ErrorHandlerExit

End Sub

gli altri eventi sono i seguenti:

Private Sub idprodotto_GotFocus()
If Not IsNull(Me.idprodotto) Then GoTo fine

If Not IsNull(Me.IDCategoria) Then
    Me.idprodotto.RowSource = "select * from prodotti where idcategoria=" & Me.IDCategoria
    If Not IsNull(Me.IDOrdine) Then
        Me!idprodotto.Dropdown
    End If
Else
 If IsNull(Me.idprodotto) Then Me.idprodotto.RowSource = "select * from prodotti"
     If Not IsNull(Me.IDOrdine) Then
         Me!idprodotto.Dropdown
     End If
End If

fine:
End Sub

Private Sub IDProdotto_LostFocus()
TempVars.Remove "NomeProdotto"
End Sub

Private Sub IDProdotto_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
If Not IsNull(Me.IDOrdine) Then
    Me!idprodotto.Dropdown
End If
End Sub


title: Indirizzi Pagine Gialle

author: Alberto Franveschetti

text:
Buon giorno a tutti.
Ho la ncessità di creare una tabella contenente gli indirizzi di una
determinata categoria di azienda, estraendoli dalle Pagine Gialle.
Esiste una funzione, oppure un sistema che attraverso una applicazione
access mi possa consentire questo in modo automatico?
Grazie a quanti voranno darmi una risposta.
Alberto
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Indirizzi Pagine Gialle

text:
Alberto Franveschetti wrote:
> Buon giorno a tutti.
> Ho la ncessità di creare una tabella contenente gli indirizzi di una
> determinata categoria di azienda, estraendoli dalle Pagine Gialle.
> Esiste una funzione, oppure un sistema che attraverso una applicazione
> access mi possa consentire questo in modo automatico?
> Grazie a quanti voranno darmi una risposta.
>
> Alberto
E' illegale.
Pure essendo publica, quella lista è coperta da copyright
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: ODBC da Access 2003 ad altro db Access 2003 su rete VPN

author: leonardo esposito

text:
Buonasera,
vorrei sapere se posso far utilizzare un db di Access 2003 a più
utenti senza migrare le tabelle in SQL SERVER (dato che non lo conosco
e sto incontrando molte difficoltà), ma utilizzando solo Access come
FE e BE; allora ho copiato questo db di Access 2003 sul Server al
quale possono accedere i vari utenti me compreso (collegati con la
VPN).
Ma non riesco ad accedere con l'ODBC a questo db, mi da sempre errore!
Io seguo questa sequenza:
Collega tabelle - Tipo file ODBC - Nome DSN NUOVO - Driver MICROSOFT
ACCESS DRIVER (*.mdb) - Nome file origine xxx - e qui non so più
andare avanti in quanto non riesco a trovare il Server sul quale è
presente il db a cui voglio collegarmi. Dov'è che sbaglio?
Grazie per l'aiuto
Leo


author: Cinzia

text:
"leonardo esposito" <
esposi...@gmail.com
> ha scritto nel messaggio
news:09da682d-3397-4194...@s12g2000prg.googlegroups.com...

Grazie per l'aiuto
Leo
Ciao Leo,
se la VPN è su rete geografica, e gli utenti si collegano via Modem
56K o ADSL, questa strada non è praticabile, quello che puoi fare è
usare i servizi terminal, trovi un articolo su come fare su
www.accessgroup.it
 , invece dei servizi terminal potresti usare anche
XPunlimited, trovi info sempre su AccessGroup oppure cerchi con google
xpunlimited su questo NG.
--
Cinzia [Office Access MVP]
_______________________

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


text:
On 9 Dic, 23:00, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> "leonardo esposito" <
esposito.l...@gmail.com
> ha scritto nel messaggionews:09da682d-3397-4194...@s12g2000prg.googlegroups.com...
> Buonasera,
> vorrei sapere se posso far utilizzare un db di Access 2003 a più
> utenti senza migrare le tabelle in SQL SERVER (dato che non lo conosco
> e sto incontrando molte difficoltà), ma utilizzando solo Access come
> FE e BE; allora ho copiato questo db di Access 2003 sul Server al
> quale possono accedere i vari utenti me compreso (collegati con la
> VPN).
> Ma non riesco ad accedere con l'ODBC a questo db, mi da sempre errore!
> Io seguo questa sequenza:
> Collega tabelle - Tipo file ODBC - Nome DSN NUOVO - Driver MICROSOFT
> ACCESS DRIVER (*.mdb) - Nome file origine xxx - e qui non so più
> andare avanti in quanto non riesco a trovare il Server sul quale è
> presente il db a cui voglio collegarmi. Dov'è che sbaglio?
>
> Grazie per l'aiuto
>
> Leo
>
> Ciao Leo,
> se la VPN è su rete geografica, e gli utenti si collegano via Modem
> 56K o ADSL, questa strada non è praticabile, quello che puoi fare è
> usare i servizi terminal, trovi un articolo su come fare
suwww.accessgroup.it
, invece dei servizi terminal potresti usare anche
> XPunlimited, trovi info sempre su AccessGroup oppure cerchi con google
> xpunlimited su questo NG.
>
> --
> Cinzia [Office Access MVP]
> _______________________
>
www.riolab.org
> ----------------------------------------
grazie Cinzia e buona serata


author: fabio

text:

ODBC non ti collega due file mdb tra di loro. Ti serve solo per vedere
le tabelle "dentro" ad un motore di database come mysql o sql server
express.
Io ho collegato le tabelle del BE facendo puntare il FE all'indirizzo
fisico della macchina, così, anche chi sta dall'altra parte della lan
riesce a vedere in vpn le tabelle collegate.
Io ho fatto così: file, collega tabelle, (scrivo il percorso della
macchina e della cartella condivisa es \\192.168.0.10\cartellaBE\).
Visto il file mdb del BE seleziono le tabelle da collegare.
Il problema è che con una adsl da 4 mega è lento in modo inaccettabile
su diversi punti (elenchi a tendina, maschere continue, maschere con
molti oggetti e nascosti, soprattutto).
Aggionare i record ha una leggera latenza.
Nel complesso il risultato non va bene...
Sto spostando le tabelle quasi mai da modificare nel FE, nelle
maschere sto togliendo il toglibile, le query di visualizzazione le
modifico in snapshot. Che possa servire??
Ho provato con xpunlimited e 65000 colori con 800x600 come terminal
server e la cosa funziona molto molto meglio ed è accettabile anche
per chi usa le maschere per inserire i dati.
Sto provando, via odbc, ad usare il FE collegato al BE in sql server
express 2005  e qui però ho difficoltà a riscrivere il codice che
largamente non funziona più. (ho provato su mysql ma il suo driver
odbc funziona peggio)
Certo, quel poco che funziona però è super veloce.....
Sto mettendo a posto le tebelle e le loro relazioni per importarle al
meglio nel server.
Vi chiedo se potete indirizzarmi su come ad esempio, far tornare
funzionante un menù a tendina che ora peschi i dati via odbc....
Purtroppo non sono un programmatore....
Spero cmq di esserti stato utile,
F


title: la freccetta della listbox

author: crivella

text:
É possibile in qualche modo eliminare la freccetta delle caselle
combinate?
Per intenderci, quella (solitamente a destra) che apre l'elenco se ci
si clicca sopra.
Oppure, in qualche modo, è possibile creare un controllo che svolga le
stesse funzioni della casella combinata ma che non la sia?
Il mio problema è che ho una tabella "CATEGORIE" , con ID e NOME ;
in una maschera vorrei poter inserire (o scegliere con la casella
combinata) l'ID (esempio 01) e vedere in un controllo a parte il nome
corrispondente (esempio VERDURA) .
Purtroppo riesco solo usando due caselle combinate, ma sta davvero
male la freccetta anche perchè il secondo controllo è bloccato e solo
a scopo visivo!
Ho anche provato a creare un controllo con origine
=Dlookup(...where([ID]=Me!ID)) ... funziona, ma è lentissimo e non
penso valga la pena usare l'aggregazione sui domini...
Grazie a tutti


title: la freccetta della listbox

author: ALESSANDRO Baraldi

text:
"crivella" <
inte...@email.it
> ha scritto nel messaggio
news:bbfe9526.04020...@posting.google.com...

Leggi il Post di Ferrari Rino "Combo Box" del 31/01/2004
Ciao.
@Alex.


title: la freccetta della listbox

author: Roberto da casa

text:
"crivella" <
inte...@email.it
> ha scritto nel messaggio
news:bbfe9526.04020...@posting.google.com...

Se la prima casella combinata (quella in cui vuoi digitare/selezionare e
visualizzare l'ID) si chiama MiaCombo.
Fai in modo che la prima casella combinata abbia due colonne di cui la
seconda non visibile; fai in modo che sia impostata a 1 la sua proprietà
Colonna associata; infine usa come origine riga di questa casella combinata
il segunete codice SQL:
SELECT ID, NOME
FROM CATEGORIE
ORDER BY NOME;
Al posto della seconda casella combinata (nella quale vuoi ti compaia la
descrizione) metti una normale casella di testo chiamata DESCRIZIONE.
A fronte dell'evento "Dopo aggiornamento" della casella combinata MiaCombo
genera il deguente codice VBA:
Me!DESCRIZIONE = Me!MiaCombo.Column(1)
Per maggiori dettagli leggiti sull'help la Proprietà Column.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: la freccetta della listbox

author: AntoRau

text:
Da far notare che la seconda (la descrizione per intederci) dovrebbe essere
una semplice
casella di testo
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:fbRTb.12040$U4.4...@twister1.libero.it...



title: la freccetta della listbox

text:
"AntoRau" <
antonin...@fipavcatania.it
> ha scritto nel messaggio
news:K3ZTb.186309$VW.76...@news3.tin.it...
> Da far notare che la seconda (la descrizione per intederci) dovrebbe
essere
> una semplice
> casella di testo
[CUT]
Per prima cosa quando rispondi scrivi DOPO e non prima del testo dei
messaggi precedenti: rispetterai cosě una delle regole di questo NG.
Ti faccio poi presente che nella mia risposta ho chiaramente precisato che
la seconda casella combinata doveva essere trasformata in una casella di
testo.



title: Testo evidenziato

text:
Nuovamente saluti a tutti
Nel mio precedente messaggio avevo scritto:
Uso Access 97.
Per poterlo usare e anche per la curiosità di un principiante, come è
possibile far si che digitando del testo in un controllo, che si trova in
intestazione maschera, per la ricerca, che
si trova in una maschera che come origine dati fa riferimento ad una query,
dopo avere attivato la ricerca evidenziare (in un colore che non sia il
nero) il testo trovato in base al parametro.
In poche parole una cosa uguale a quello che accade sul Sitocomune quando si
fa una ricerca in Archivio messaggi ICCA.
 Poi scopiazzando dal famoso libro di Access "F1"
ho messo il seguente codice su corrente della form:
Dim StrRicerca As String, intdove As Integer
StrRicerca = Me.TxtTrova
intdove = InStr(Me.Parola.Value, StrRicerca)
If intdove Then
Me.Parola.SetFocus
Me.Parola.SelStart = intdove - 1
Me.Parola.SelLength = Len(StrRicerca)
Else
MsgBox "parola non trovata"
End If
E tutto funziona se quello che cerco esiste (fermo restando che non so come
cambiare il colore che evidenzia il testo cercato).
Però se per esempio nel controllo di ricerca digito un qualcosa che non
esiste tipo xjyhj mi appare il messaggio errore 94 "Utilizzo non valido di
Null"
PS  come mai i precedenti messaggi non mi appaiono nell'elenco del NG,quando
lo apro con Outlook ma li ho solo trovati in Google.


title: Testo evidenziato

text:
"F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
news:arg8ia$g78$1...@lacerta.tiscalinet.it...

la stringa all'interno della parola verrà evidenziata in negativo del colore
di primo piano del controllo Parola.
> Però se per esempio nel controllo di ricerca digito un qualcosa che non
> esiste tipo xjyhj mi appare il messaggio errore 94 "Utilizzo non valido di
> Null"
A mio modesto parere quell'errore te lo dà se la casella di testo TxtTrova
contiene Null, mentre, se ha il valore di una stringa NON contenuta nel
controllo Parola, aprirà la finestra di dialogo che ti segnala "parola non
trovata".
Per evitare l'errore prova così:
Dim StrRicerca As Variant, intdove As Integer
If Not IsNull(Me.TxtTrova) Then
    StrRicerca = Me.TxtTrova
    intdove = InStr(Me.Parola.Value, StrRicerca)
    If intdove Then
        Me.Parola.SetFocus
        Me.Parola.SelStart = intdove - 1
        Me.Parola.SelLength = Len(StrRicerca)
    Else
        MsgBox "parola non trovata"
    End If
End If
> PS  come mai i precedenti messaggi non mi appaiono nell'elenco del
NG,quando
> lo apro con Outlook ma li ho solo trovati in Google.
Ma precedenti di quanti giorni?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Testo evidenziato

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
CfSC9.2130$2B1....@twister2.libero.it...
>
> "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> news:arg8ia$g78$1...@lacerta.tiscalinet.it...
> > > >
> > Uso Access 97.
> > Per poterlo usare e anche per la curiosità di un principiante..........
In poche parole una cosa uguale a quello che accade sul Sitocomune quando
> si fa una ricerca in Archivio messaggi ICCA.
Grazie per la risposta
ho provato il codice corretto, ma non funziona bene
Per evitare l'errore prova così:
>
> Dim StrRicerca As Variant, intdove As Integer
> If Not IsNull(Me.TxtTrova) Then
>     StrRicerca = Me.TxtTrova
>     intdove = InStr(Me.targa.Value, StrRicerca)
>     If intdove Then
>         Me.Targa.SetFocus
>         Me.Targa.SelStart = intdove - 1
>         Me.Targa.SelLength = Len(StrRicerca)
>     Else
>         MsgBox "parola non trovata"
>     End If
> End If
Cerco di spiegare il mio progetto:
ho una maschera con dei controlli collegati ad una tabella che mi serve per
gestire dei permessi di sosta rilasciati ai dipendenti.
Nell'intestazione della maschera ho un controllo nel quale digito il
parametro di ricerca (evento afterUpdate Me.Requery).la maschera ha come
origine dati una Query, questa:
> SELECT Tabpermessi.[N_PERMESSO], Tabpermessi.NOMINATIVO, Tabpermessi.[TIPO
VEICOLO], Tabpermessi.TARGA, Tabpermessi.NOTE
FROM Tabpermessi
WHERE (((Tabpermessi.[N_PERMESSO]) Like
nz([forms]![mscpermessi]![TxtTrova],"*"))) OR (((Tabpermessi.TARGA) Like
IIf(IsNull([forms]![mscpermessi]![TxtTrova]),"*",[forms]![mscpermessi]![TxtT
rova] & "*"))) OR (((Tabpermessi.NOMINATIVO) Like
IIf(IsNull([forms]![mscpermessi]![TxtTrova]),"*",[forms]![mscpermessi]![TxtT
rova] & "*")));
Il campo N_PERMESSO è numerico gli altri testo.
Che mi dovrebbe permettere di fare una ricerca sia per targa del veicolo o
il numero del permesso o il nominativo.
Se digito la targa o parte di questa tutto OK, cancello il contenuto del
controllo di ricerca ,digito un numero di permesso e premo invio mi da il
messaggio di debug errore 94, ma sotto mi appare il record cercato. Digito
un nominativo che so esistente nela tabella, mi appare l'MsgBox è sotto a
questo vedo il record relativo al nominativo cercato.Provo a digitare
qualcosa di astruso , non appare nessun messaggio e non visualizzo i
controlli della maschera.
> >
> > PS  come mai i precedenti messaggi non mi appaiono nell'elenco del
> NG,quando
> > lo apro con Outlook ma li ho solo trovati in Google.
>
> Ma precedenti di quanti giorni?
>
Giorno 18/11/02 ore 0,08 e 19/11/02 ore 16,12
> --
> Roberto
>
Grazie dell'interessamento
Franco



title: Testo evidenziato

text:
"F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
news:arh87b$5ph$1...@lacerta.tiscalinet.it...
>
> Roberto da casa <
r.ma...@libero.it
> wrote in message
> CfSC9.2130$2B1....@twister2.libero.it...
> >
> > "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> > news:arg8ia$g78$1...@lacerta.tiscalinet.it...
> > > > >
> > > Uso Access 97.
> > > Per poterlo usare e anche per la curiosità di un
principiante..........
> In poche parole una cosa uguale a quello che accade sul Sitocomune quando
> > si fa una ricerca in Archivio messaggi ICCA.
>
> Grazie per la risposta
> ho provato il codice corretto, ma non funziona bene
Cosa intendi quando dici che non funziona bene??

Anche io uso A97.
Mi sono fatto un esempio di quello che tu ci hai raccontato (la query me la
sono creata facendo un copia/incolla del codice SQL che hai postato).
A me funziona tutto a puntino e non ricevo alcun errore 94 da Access.
> > >
> > > PS  come mai i precedenti messaggi non mi appaiono nell'elenco del
> > NG,quando
> > > lo apro con Outlook ma li ho solo trovati in Google.
> >
> > Ma precedenti di quanti giorni?
> >
> Giorno 18/11/02 ore 0,08 e 19/11/02 ore 16,12
E come è impostato Elimina i messaggi delle news... di Strumenti => Opzioni
=> Manutenzione?
> > --
> > Roberto
> >
> Grazie dell'interessamento
>
> Franco
--
Roberto



title: Testo evidenziato

text:
----- Original Message -----
From: Roberto da casa <
r.ma...@libero.it
>
Newsgroups: it.comp.appl.access
Sent: Thursday, November 21, 2002 3:41 PM
Subject: Re: Testo evidenziato
>
> "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> news:arh87b$5ph$1...@lacerta.tiscalinet.it...
> >
> > Roberto da casa <
r.ma...@libero.it
> wrote in message
> > CfSC9.2130$2B1....@twister2.libero.it...
> > >
> > > "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> > > news:arg8ia$g78$1...@lacerta.tiscalinet.it...
> > > > > >
> > In poche parole una cosa uguale a quello che accade sul Sitocomune
quando
> > > si fa una ricerca in Archivio messaggi ICCA.
> >
> > Grazie per la risposta
> > ho provato il codice corretto, ma non funziona bene
>
> Cosa intendi quando dici che non funziona bene??
>
> >Premesso che la visualizzazione maschera è a maschere continue,
il non funzionare bene è questo: se digito nel controllo di ricerca un
numero di targa mi trova i record corrispondenti e mi evidenzia il testo
cercato.
Invece se digito un numero di permesso mi appare la finestra di debug errore
94, che mi segnala l'errore alla riga di codice -
intdove = Instr(Me.targa.value,StrRicerca)
Invece se digito un nominativo mi appare l'MsgBox immesso nel codice , ma
sotto c'è il record cercato
> >
> > Per evitare l'errore prova così:
> > >
> > > Dim StrRicerca As Variant, intdove As Integer
> > > If Not IsNull(Me.TxtTrova) Then
> > >     StrRicerca = Me.TxtTrova
> > >     intdove = InStr(Me.targa.Value, StrRicerca)
> > >     If intdove Then
> > >         Me.Targa.SetFocus
> > >         Me.Targa.SelStart = intdove - 1
> > >         Me.Targa.SelLength = Len(StrRicerca)
> > >     Else
> > >         MsgBox "parola non trovata"
> > >     End If
> > > End If
> >
> Anche io uso A97.
> Mi sono fatto un esempio di quello che tu ci hai raccontato (la query me
la
> sono creata facendo un copia/incolla del codice SQL che hai postato).
> A me funziona tutto a puntino e non ricevo alcun errore 94 da Access.
E' forse che questi errori si verificano perchè il codice inserito è
relativo solo al controllo targa (che poi è solo quello nel quale mi serve
evidenziare quanto cercato)
Ho provato a togliere tutto il codice e naturalmente, come ai detto anche
tu, la query funziona.
Resta un unico inconveniente, ho provato a digitare nel controllo di ricerca
ad esempio - jkyh - cioè qualsiasi cosa che non trova nei campi della
tabella, premendo invio nella maschera non sono più visibili i controlli e
nel controllo di ricerca scompare il testo digitato.
> > > > PS  come mai i precedenti messaggi non mi appaiono nell'elenco del
> > > NG,quando
> > > > lo apro con Outlook ma li ho solo trovati in Google.
> > >
> > > Ma precedenti di quanti giorni?
> > >
> > Giorno 18/11/02 ore 0,08 e 19/11/02 ore 16,12
>
> E come è impostato Elimina i messaggi delle news... di Strumenti =>
Opzioni
> => Manutenzione?
>
 la casella non ha il segno di spunta
> > > Roberto
> > >
> > Grazie dell'interessamento
> >
> > Franco
>
> --
> Roberto
>
Scusa i discorsi contorti da novizio
Franco


title: Testo evidenziato

text:
F.Piccardi <
il.p...@tiscali.it
> wrote in message
armaaf$lt0$1...@lacerta.tiscalinet.it...
>
> ----- Original Message -----
> From: Roberto da casa <
r.ma...@libero.it
>
> Newsgroups: it.comp.appl.access
> Sent: Thursday, November 21, 2002 3:41 PM
> Subject: Re: Testo evidenziato
>
>
> >
> > "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> > news:arh87b$5ph$1...@lacerta.tiscalinet.it...
> > >
> > > Roberto da casa <
r.ma...@libero.it
> wrote in message
> > > CfSC9.2130$2B1....@twister2.libero.it...
> > > >
> > > > "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> > > > news:arg8ia$g78$1...@lacerta.tiscalinet.it...
> > > > > > >
> > > In poche parole una cosa uguale a quello che accade sul Sitocomune
> quando
> > > > si fa una ricerca in Archivio messaggi ICCA.
> > >
> > > Grazie per la risposta
> > > ho provato il codice corretto, ma non funziona bene
> >
> > Cosa intendi quando dici che non funziona bene??
> >
> > >Premesso che la visualizzazione maschera č a maschere continue,
> il non funzionare bene č questo: se digito nel controllo di ricerca un
> numero di targa mi trova i record corrispondenti e mi evidenzia il testo
> cercato.
> Invece se digito un numero di permesso mi appare la finestra di debug
errore
> 94, che mi segnala l'errore alla riga di codice -
> intdove = Instr(Me.targa.value,StrRicerca)
> Invece se digito un nominativo mi appare l'MsgBox immesso nel codice , ma
> sotto c'č il record cercato
>
>
> Dopo aver postato il messaggio precedente credo di  essere riuscito ad
eliminare l'errore di debug 94.
Ho cambiato  intdove= Instr(me.targa. value ......
con intdove=instr(me.targa.text..........
e la cosa sembra funzioni
fermo restando che rimangono le altre problematiche
Franco


title: Testo evidenziato

text:
"F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
news:armaaf$lt0$1...@lacerta.tiscalinet.it...
>
[CUTTISSIMO]
Fermo restando la query che resta quella che tu hai postato qualche
messaggio fa.
Per evidenziare la porzione di controllo in base al quale hai effettuato la
selezione, a fronte dell'evento "Su corrente" della maschera prova a
generare il seguente codice VBA:
Private Sub Form_Current()
Dim StrRicerca As Variant, intdove As Integer
If Not IsNull(Me.TxtTrova) Then
If Not IsNull(Me.TARGA) Then
StrRicerca = Me.TxtTrova
intdove = InStr(Me.TARGA, StrRicerca)
If intdove Then
    Me.TARGA.SetFocus
    Me.TARGA.SelStart = intdove - 1
    Me.TARGA.SelLength = Len(StrRicerca)
Else
    intdove = InStr(Me.NOMINATIVO, StrRicerca)
    If intdove Then
        Me.NOMINATIVO.SetFocus
        Me.NOMINATIVO.SelStart = intdove - 1
        Me.NOMINATIVO.SelLength = Len(StrRicerca)
    Else
        intdove = InStr(Me.N_PERMESSO, StrRicerca)
        If intdove Then
            Me.N_PERMESSO.SetFocus
            Me.N_PERMESSO.SelStart = intdove - 1
            Me.N_PERMESSO.SelLength = Len(StrRicerca)
        End If
    End If
End If
Else
    MsgBox "parola non trovata"
End If
End If
End Sub
Verrà evidenziata la stringa di ricerca indistintamente nei tre controlli
possibili, ovvero N_PERMESSO, o TARGA o NOMINATIVO.



title: Testo evidenziato

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
RfJD9.12332$3l.3...@twister1.libero.it...

>Grazie
 Non avevo dubbi che funzionasse, ho dovuto solo aggiungere un
If Not IsNull(Me.N_PERMESSO) Then
Rimane solo un inconveniente: se digito una targa, un numero di permesso o
un nominativo non esistenti nei campi della tabella,dopo invio non appare
l'MsgBox , scompaiono tutti i controlli collegati e nel controllo di ricerca
non appare più quanto digitato, ma la cosa buffa è che se in questo comincio
a digitare qualcosa mi riappare anche il testo che avevo scritto in
precedenza.
Comunque, ripeto, funziona benissimo con l'evidenziazione in tutte e tre i
casi.
Rigrazie e dico poco
Franco



title: Testo evidenziato

text:
"F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
news:aroqgj$ld7$1...@lacerta.tiscalinet.it...
[CUT]
>  Non avevo dubbi che funzionasse, ho dovuto solo aggiungere un
> If Not IsNull(Me.N_PERMESSO) Then
Secondo me serve solo se esistono record che non hanno il numero di
permesso.
>
> Rimane solo un inconveniente: se digito una targa, un numero di permesso o
> un nominativo non esistenti nei campi della tabella,dopo invio non appare
> l'MsgBox ,
Io ho provato; invece a me compare il messaggio della MsgBox e naturalmente
la maschera risulta vuota.
> scompaiono tutti i controlli collegati e nel controllo di ricerca
> non appare più quanto digitato, ma la cosa buffa è che se in questo
comincio
> a digitare qualcosa mi riappare anche il testo che avevo scritto in
> precedenza.
A me questo non succede; propbabilmente nel tuo database c'è qualche altro
codice VBA che ti crea questo problema, ma non ho la più pallida idea che
cosa possa essere: il database ce lo hai in mano tu.
>
> Comunque, ripeto, funziona benissimo con l'evidenziazione in tutte e tre i
> casi.
>
> Rigrazie e dico poco
>
> Franco
--
Roberto



title: Testo evidenziato

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
ME5E9.16665$2B1.4...@twister2.libero.it...
>
> "F.Piccardi" <
il.p...@tiscali.it
> ha scritto nel messaggio
> news:aroqgj$ld7$1...@lacerta.tiscalinet.it...
> [CUT]
> >  Non avevo dubbi che funzionasse, ho dovuto solo aggiungere un
> > If Not IsNull(Me.N_PERMESSO) Then
>
> Secondo me serve solo se esistono record che non hanno il numero di
> permesso.
>
> > E' verissimo
>
> A me questo non succede; propbabilmente nel tuo database c'è qualche altro
> codice VBA che ti crea questo problema, ma non ho la più pallida idea che
> cosa possa essere: il database ce lo hai in mano tu.
>
Provo a rivedere tutto il codice. Fino a ripartire da capo se necessario.
Grazie
Franco



title: Attivare funzione mediante Listbox

author: Riccardo Baldinotti

text:
Ho una Listbox "sottoMenu" che elenca alcune opzioni. Cliccando su una di
queste è avviata la funzione corrispondente.
Sono fissato con l'idea che i miei programmi si debbano poter usare anche
col solo uso della tastiera, perciò l'utente dovrebbe poter premere
freccia giu per trovare l'opzione desiderata e premere Invio per attivarla.
Purtroppo appena si va di freccia si attiva l'evento SuClick che produce
l'evento per la prima opzione, cioè questo:
   Call Eval(Forms!menu!sottoMenu.Column(3)).
Ho provato a spostare da SuClick a MouseDown l'attivazione dell'evento, ma
la prima volta ottengo "Utilizzo non valido di Null", se clicco sulla
stessa opzione mi parte la routine voluta, se clicco su un'opzione
differente ottengo "Errore di sintassi nell'espressione".
Riassumendo: vorrei che la routine si potesse avviare sia premendo Invio
dopo essersi spostati sulla voce desiderata, che cliccandoci sopra. Come
posso risolvere?
Grazie a tutti
Riccardo Baldinotti

--

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


title: Attivare funzione mediante Listbox

author: Pablitomf

text:
> Ho una Listbox "sottoMenu" che elenca alcune opzioni. Cliccando su una di
> queste è avviata la funzione corrispondente.

sposta su "doppio clik"

> Sono fissato con l'idea che i miei programmi si debbano poter usare anche
> col solo uso della tastiera, perciò l'utente dovrebbe poter premere
> freccia giu per trovare l'opzione desiderata e premere Invio per attivarla.

SendKeys{DOWN} (freccia giu')
SendKeys{UP} (freccia su)
SendKeys{ENTER} (invio)

da usare nell'evento "SU TASTO GIU'"

> Purtroppo appena si va di freccia si attiva l'evento SuClick che produce
> l'evento per la prima opzione, cioè questo:
>    Call Eval(Forms!menu!sottoMenu.Column(3)).

vedi sopra

> Ho provato a spostare da SuClick a MouseDown l'attivazione dell'evento, ma
> la prima volta ottengo "Utilizzo non valido di Null", se clicco sulla
> stessa opzione mi parte la routine voluta, se clicco su un'opzione
> differente ottengo "Errore di sintassi nell'espressione".
> Riassumendo: vorrei che la routine si potesse avviare sia premendo Invio
> dopo essersi spostati sulla voce desiderata, che cliccandoci sopra. Come
> posso risolvere?
> Grazie a tutti
> Riccardo Baldinotti
>

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.


title: Attivare funzione mediante Listbox

text:
Pablitomf ha scritto:

> > Ho una Listbox "sottoMenu" che elenca alcune opzioni. Cliccando su una di
> > queste è avviata la funzione corrispondente.

> sposta su "doppio clik"

In effetti... Di solito cerco di evitarlo perché: a) è un gesto "nervoso";
b) molte colleghe fanno doppio clik anche quando non è necessario e tento
di scoraggiarlo.

> > Sono fissato con l'idea che i miei programmi si debbano poter usare anche
> > col solo uso della tastiera, perciò l'utente dovrebbe poter premere
> > freccia giu per trovare l'opzione desiderata e premere Invio per attivarla.

> SendKeys{DOWN} (freccia giu')
> SendKeys{UP} (freccia su)
> SendKeys{ENTER} (invio)

> da usare nell'evento "SU TASTO GIU'"

Scusa, non ho capito. Uso già TastoGiu per intercettare la pressione di
Invio e ealtri tasti, ma se aggiungo i SendKeys il cursore impazzisce.
Comunque il doppio click mi risolve tutto.

Grazie ancora



title: report  con immagine

author: maestro

text:
Buongiorno, è possibile inserire un immagine come sfondo su un report
per poi centrare i campi.
Esempio  se ho un file immagine o pdf di un modulo fattura  posso
inserirlo come sfondo per poi avere le giuste posizioni dei campi da
riempire per ottenere la fattura completa.
grazie


title: report  con immagine

author: CIDI

text:
"maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
news:gojapo$vqf$1...@tdi.cu.mi.it...
> Buongiorno, č possibile inserire un immagine come sfondo su un report per

certo che puoi! :-)
che problema hai?
Ciao
Daniele


title: report  con immagine

text:
CIDI ha scritto:
> "maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
> news:gojapo$vqf$1...@tdi.cu.mi.it...
>> Buongiorno, ï¿œ possibile inserire un immagine come sfondo su un report per
>> poi centrare i campi.
>> Esempio  se ho un file immagine o pdf di un modulo fattura  posso
>> inserirlo come sfondo per poi avere le giuste posizioni dei campi da
>> riempire per ottenere la fattura completa.
>> grazie
>
> certo che puoi! :-)
> che problema hai?
>
> Ciao
> Daniele
>
>
non riesco a inserirla..


title: report  con immagine

text:
"maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
news:goo3l8$89f$1...@tdi.cu.mi.it...
> CIDI ha scritto:
>> "maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
>> news:gojapo$vqf$1...@tdi.cu.mi.it...
>>> Buongiorno, è possibile inserire un immagine come sfondo su un report
>>> per poi centrare i campi.
>>> Esempio  se ho un file immagine o pdf di un modulo fattura  posso
>>> inserirlo come sfondo per poi avere le giuste posizioni dei campi da
>>> riempire per ottenere la fattura completa.
>>> grazie
>>
>> certo che puoi! :-)
>> che problema hai?
>>
>> Ciao
>> Daniele
> non riesco a inserirla..
niente paura! ti dirò io come fare ;-))
struttura report.....
proprietà....
immagine....clic sui puntini laterali ....
scegli l'immagine che vuoi.
ciao
Daniele


title: report  con immagine

text:
CIDI ha scritto:
> "maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
> news:goo3l8$89f$1...@tdi.cu.mi.it...
>> CIDI ha scritto:
>>> "maestro" <
m_avv...@yahoo.it
> ha scritto nel messaggio
>>> news:gojapo$vqf$1...@tdi.cu.mi.it...
>>>> Buongiorno, è possibile inserire un immagine come sfondo su un report
>>>> per poi centrare i campi.
>>>> Esempio  se ho un file immagine o pdf di un modulo fattura  posso
>>>> inserirlo come sfondo per poi avere le giuste posizioni dei campi da
>>>> riempire per ottenere la fattura completa.
>>>> grazie
>>> certo che puoi! :-)
>>> che problema hai?
>>>
>>> Ciao
>>> Daniele
>> non riesco a inserirla..
>
> niente paura! ti dirò io come fare ;-))
>
> struttura report.....
> proprietà....
> immagine....clic sui puntini laterali ....
> scegli l'immagine che vuoi.
> ciao
> Daniele
>
>
grazie Daniele,
ho visto che non posso inserire il formato pdf, ma comunque lo posso
trasformare in immagine.


title: Divisione per zero

author: Giulio Simeone

text:
Salve a tutti,
ho un report collegato ad una tabella. Una casella di testo del report
contiene il risultato di un'operazione che, per certi record della
tabella, è una divisione per zero e quindi è impossibile.
Questa divisione per zero provoca l'uscita da Access (ho Windows 98 e
Access XP). Come faccio a risolvere il problema? Il problema è reso più
difficile dal fatto che l'operazione è impossibile solo per alcuni record,
non per tutti.
Tante grazie!
            GS
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Divisione per zero

text:
"Giulio Simeone" <
viandan...@yahoo.it
> ha scritto nel messaggio
news:ckglam$rfj$1...@news.newsland.it...
> Salve a tutti,
> ho un report collegato ad una tabella. Una casella di testo del report
> contiene il risultato di un'operazione che, per certi record della
> tabella, è una divisione per zero e quindi è impossibile.
>
> Questa divisione per zero provoca l'uscita da Access (ho Windows 98 e
> Access XP). Come faccio a risolvere il problema? Il problema è reso più
> difficile dal fatto che l'operazione è impossibile solo per alcuni record,
> non per tutti.
>
> Tante grazie!
>
>             GS
>
Ciao Giulio,
il tuo campo che da problemi sarà qualcosa di questo tipo:
campoX= [CampoA]/[CampoB]
per evitare la divizione per zero puoi fare:
campoX = iif(CampoB=0;0; [CampoA]/[CampoB])
Strano però che ti faccia addirittura uscire da Access di solito si limita a
visualizzare #Error
Saluti
Cinzia


title: Divisione per zero

author: Alessandro Baraldi

text:
"Giulio Simeone" <
viandan...@yahoo.it
> wrote in message
news:ckglam$rfj$
1...@news.newsland.it
> Salve a tutti,
> ho un report collegato ad una tabella. Una casella di testo del report
> contiene il risultato di un'operazione che, per certi record della
> tabella, č una divisione per zero e quindi č impossibile.
>
> Questa divisione per zero provoca l'uscita da Access (ho Windows 98 e
> Access XP). Come faccio a risolvere il problema? Il problema č reso piů
> difficile dal fatto che l'operazione č impossibile solo per alcuni record,
> non per tutti.
>
> Tante grazie!
>
>             GS
Puoi usare NZ(Calcolo attuale), ovviamente non posso essere
piů preciso non sapendo che calcolo fai e che tipo di dati
dovrebbe ritornare....!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Divisione per zero

text:
Alessandro Baraldi ha scritto:
> Puoi usare NZ(Calcolo attuale), ovviamente non posso essere
> più preciso non sapendo che calcolo fai e che tipo di dati
> dovrebbe ritornare....!
> @Alex.
Grazie per la risposta tempestiva, purtroppo però esce da Access anche
usando NZ (e ho verificato che il problema sta proprio lì, non altrove).
La casella di testo è di tipo standard, il calcolo è del tipo
(A - B) * 100 / A
dove A e B sono valori contenuti in altre due caselle di testo di tipo
standard. Quando A = 0, chiaramente, si ha una divisione per zero.
Grazie!



title: Divisione per zero

text:
Cinzia ha scritto:
> per evitare la divizione per zero puoi fare:
> campoX = iif(CampoB=0;0; [CampoA]/[CampoB])
Grazie Cinzia, finalmente ho risolto!



title: Sincronizzazione di combo

author: John B

text:
Un salve a tutti,
ho realizzato due combo tra di loro sincronizzate, ma quando vado a settare
l'origine controllo della Combo1 e colonna associata a 2 non funziona piů
niente.
Mentre se la colonna associata č settata a 1, ovvero nella tabella appaiono
i valori numeri, anzichč la descrizione alfanumerica tutto funziona.
Dove sto sbagliando.
Grazie e un cordiale saluto
Giovanni


title: Sincronizzazione di combo

text:
"John B" <
b...@infinito.it
> ha scritto nel messaggio
news:KQMB9.25698$Yw.12...@news2.tin.it...

Se la combo ha due colonne.
Prova con Colonna associata settata a 1 e rendi la prima colonna non
visibile (indica la sua lunghezza unguale a zero: Larghezza colonne
0cm;2cm ).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Sincronizzazione di combo

text:
  Ciao e grazie,
ho provato, ma ancora niente.
Le due combo le ho realizzate come da esempio Microsoft
http://support.microsoft.com/support/kb/articles/Q97/6/24.asp?PR=ACC
bisogna forse intervenire sulla query?
Grazie ancora
Giovanni


title: Sincronizzazione di combo

text:
"John B" <
b...@infinito.it
> ha scritto nel messaggio
news:uhQB9.26816$Yw.13...@news2.tin.it...

Oltre a leggerti quando indicato in quel link, ti sei scaricato il database
di esempi?
Detto database di esempi è scaricabile anche dal Sito Comune (link qui
sotto), essendo allegato alla FAQ intitolata "Esempi di utilizzo delle
forms" che trovi nella Sezione Forms.
Ma la combo quante colonne ha?
Cosa hai come origine riga delle due combo?
Fai il requery della seconda combo?
Onestamente mi sembra strano che con la spiegazione dettagliata fornita
dalla Microsoft ed avendo a portata di mano l'esempio tu non ne venga fuori.



title: Sincronizzazione di combo

text:
Grazie delle tue infos; il tutto funziona. Nell'esempio le combo  non sono
associate; io le ho associate ad un relativo campo di una tabella diciamo
principale. E funzionano ancora; ma quando modifico la colonna associata
della combo1 da uno a due, (per far apparire in una tabella principale la
descrizione, piuttosto che il numero del record) il tutto si pianta.
Dove sto sbagliando, oppure è logico quello che sto tendando di fare?
Spero di essermi spiegato.
Grazie ancora dell'aiuto che è anche poi stimolo ad imparare.
Un cordiale saluto
Giovanni


title: Sincronizzazione di combo

text:
"John B" <
b...@infinito.it
> ha scritto nel messaggio
news:IicC9.33901$Yw.16...@news2.tin.it...

Per chiarirti un po' le idee è bene che ti dai una letta sull'help a
Proprietà ColonnaAssociata.
Se cambia da 1 a 2 tale proprietà della prima combo è naturale che succeda
un macello per la sincronizzazione delle due combo: così facendo, come
criteri della query che è origine riga della seconda combo avrai la
descrizione invece che il numero del record, con tutte le conseguenze del
caso.
In definitiva devi impostare a 1 la Colonna associata; e così risolvi il
problema della sincronizzazione delle due combo.
Se poi vuoi risolvere il fatto che nella tabella vuoi visualizzare per il
campo associato alla combo la descrizione invece del codice numerico, devi
fare appunto quello che dice l'help, ovvero, devi aprire la struttura della
tabella e per il campo in questione devi eseguire L'Autocomposizione
Ricerca...
Insomma hai da risolvere due problemi e devi trovare quindi due soluzioni
che non entrino in conflitto fra di loro.



title: Chiamata a DLL

author: tommy

text:
Ho realizzato una DLL in delohi ed ora devo chiamarla da Access.
Se realizzo una applicazione con un altro linguaggio che chiama la DLL tutto
ok.
Se la chiamo da VB di Access.
Mi da un errore tipo " la memoria non poteva essere READ..."
La Dll fa solo un passaggio di una stringa e le istruzioni di chiamata e
dichiarazione mi sembrano essere ok .
Qualcuno ha mai fatto qualcosa di simile e sa aiutarmi ??
Grazie a tutti


title: Chiamata a DLL

author: Giorgio prx

text:
"tommy" <
tomjo...@hotmail.com
> ha scritto nel messaggio
news:b5uki4$dvb$1...@fata.cs.interbusiness.it...

Ciao Tommy
Io ho realizzato delle DLL utilizzando C++ della Borland e forse essendo
della stessa famiglia puoi trovare qualche analogia sulle dichiarazioni
delle funzioni, provo a passartene una semplice.
1) funzione che deve essere inclusa in tutte le DLL
---------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
    return 1;
}
2) funzione di prova stringa in ingresso e stringa in uscita
-----------------------------------------------------------
extern "C" char* FAR PASCAL __export prova(char *x)
{
    return ("**** "+AnsiString(x)+" *****").c_str();
}


title: Problema: Tabella non si completa!!

author: Backbone

text:
Dunque, ho una tabella "Clienti" con i campi: NOME, COGNOME, INDIRIZZO,
COMUNE, CAP e PROVINCIA.
Ho associato una maschera per inserire i dati.
Il controllo COMUNE della maschera è una casella combinata di tre colonne
che pesca i dati da una tabella "Città". In questa tabella ci sono i comuni,
i cap e le provincie necessarie.
Nel controllo COMUNE si visualizza solo la colonna comune, mentre le colonne
cap e provincia hanno lunghezza 0.
Il controllo CAP è posto = al controllo COMUNE, solo che le colonne di
lunghezza 0 sono comune e provincia.
La stessa cosa per il controllo PROVINCIA.
Così è sufficiente scegliere il Comune dalla casella combinata che il cap e
la provincia escono in automatico.
Nella tabella "Clienti" però compare solo il comune scelto e i campi cap e
provincia restano vuoti.
A me servono anche quei campi!
Come posso fare perchè anche la tabella "Clienti" si completi?
Grazie sono alle prime armi e non so che fare, Paolo.


title: Problema: Tabella non si completa!!

author: Roberto dal portatile

text:
"Backbone" <
Backb...@mail.com
> ha scritto nel messaggio
news:9dk57.90046$q77.8...@news2.tin.it...

Se nella maschera i controlli associati ai campi CAP e PROVINCIA della
tabella si chiamano anche loro CAP e PROVINCIA.
Se la casella combinata si chiama COMUNE.
Verifica che questi due controlli risultino ancora associati ai relativi
campi; ho il dubbio che tu sia andato a scrivere qualcosa nell'origine
controllo tipo =COMUNE.
Se tutto OK, a fronte dell'evento "Dopo aggiornamento" della casella
combinata COMUNE genera il seguente codice VBA:
Me!CAP = Me!COMUNE.Column(1)
Me!PROVINCIA = Me!COMUNE.Column(2)
> Grazie sono alle prime armi e non so che fare, Paolo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema: Tabella non si completa!!

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9j4kc4$1fua$1...@stargate1.inet.it...

In effetti nel controllo CAP nell'origine controllo ho scritto
=[comune].[Column](1) perché così facendo è sufficiente scegliere il comune
che esce in automatico anche il cap.
Quel che ho fatto per il cap naturalmente lo faccio anche per la provincia.
La casella combinata COMUNE, formata dalle tre colonne comune, cap e
provincia, pesca questi dati dalla tabella "Città"; o meglio da
un'istruzione SQL, una query che mi isola i tre campi che mi servono (la
tabella "Città" in realtà contiene altri campi).
Inserendo i dati nella maschera la tabella"Clienti" si compila da sè nei
campi NOME etc. ma non nei campi CAP e PROVINCIA.
Si dovrebbe trovare il sistema per dire alla Tabella "Clienti" che il suo
campo Cap sia = a quello della maschera! Credo sia una soluzione!? ma non so
se si può fare!!
Intanto grazie per l'interessamento.
Paolo


title: Problema: Tabella non si completa!!

text:
"Backbone" <
Backb...@mail.com
> ha scritto nel messaggio
news:4vz57.137238$cd.7...@news1.tin.it...

Per quello che so io si può fare solamente associando i campi della tabella
ai controlli della maschera.
> Intanto grazie per l'interessamento.
> Paolo
>
E' innegabile che, se vuoi registrare nei campi CAP e PROVINCIA della
tabella Clienti i valori ricavati tramite le colonne 1 e 2 della casella
combinata COMUNE, devi rendere associate le caselle di testo CAP e
PROVINCIA; quindi nella loro Origine controllo devi scrivere i nomi dei
campi della tabella Clienti cui sono associate. Dopo di che ricaverai
automaticamente i valori tramite il codice VBA che ti ho indicato nel mio
messaggio precedente, codice VBA che genererai a fronte dell'evento "Dopo
aggiornamento" della casella combinata COMUNE.
In alternativa puoi valutare la possibilità di non inserire nella tabella
Clienti i due campi CAP e PROVINCIA, ma visualizzare cap e provincia in
caselle di testo non associate (di maschere o report) con l'ausilio di una
casella combinata (come hai già fatto) o usando la funzione DLookup.



title: eliminare record uguali in 2 tabelle

author: oscar

text:
ho due tabelle cosi' composte:
tabella1
id
cognome
nome
codice
indirizzo
la tabella2 e' identica e contiene alcune delle persone gia' presenti
nella tabella1.
come posso eliminare i record presenti  contemporaneamente nelle 2
tabelle (considerando soltanto cognome, nome e codice) dalla tabella1?
ho gia guardato nel sito e c'e' una routine , ma non mi sembra utile
in questo caso, o forse non l'ho capita.
qualcuno sa dirmi come fare?
grazie per la collaborazione
oscar


title: eliminare record uguali in 2 tabelle

author: Antonio Biso

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3dbd23ba...@news.tiscalinet.it...
> ho due tabelle cosi' composte:
>
> tabella1
> id
> cognome
> nome
> codice
> indirizzo
>
> la tabella2 e' identica e contiene alcune delle persone gia' presenti
> nella tabella1.
> come posso eliminare i record presenti  contemporaneamente nelle 2
> tabelle (considerando soltanto cognome, nome e codice) dalla tabella1?
> ho gia guardato nel sito e c'e' una routine , ma non mi sembra utile
Fai una query di eliminazione dalla tabella 1 dopo aver messo in join le due
tabelle sui tre campi...
Antonio


title: eliminare record uguali in 2 tabelle

text:
On Mon, 28 Oct 2002 12:34:20 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

non funziona. mi da il messaggio: impossibile eliminare dalle tabelle
specificate. forse ho sbagliato qualcosa?
1) ho creato una query di eliminazione in modalita' struttura con le
due tabelle
2) ho fatto le join fra le due tabelle
3) ho trascinato con l'asterisco la tabella dalla quale voglio
eliminare i record nella prima colonna
4)  l'anteprima della  tabella cosi' formata e' corretta, ma se lancio
la query mi da il messaggio di errore di cui sopra.
hai qualche suggerimento?
grazie di nuovo
oscar


title: eliminare record uguali in 2 tabelle

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3dbe6a2c...@news.tiscalinet.it...


Il tuo SQL è qualcosa del genere?
DELETE tab1.*
FROM tab1 INNER JOIN tab1 ON (tab1.cognome = tab2.cognome) AND (tab1.codice
= tab2.codice);
Ci sono mica delle relazioni sul tuo database?
Antonio


title: eliminare record uguali in 2 tabelle

author: Claudio

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3dbe6a2c...@news.tiscalinet.it...
> On Mon, 28 Oct 2002 12:34:20 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
> >Fai una query di eliminazione dalla tabella 1 dopo aver messo in join le due
> >tabelle sui tre campi...
>
> non funziona. mi da il messaggio: impossibile eliminare dalle tabelle
> specificate. forse ho sbagliato qualcosa?
Non credo sia possibile eliminare i record in questo modo. Credo che, nel
momento in cui fai la join, la query diventi non aggiornabile.
Qui però chiedo aiuto a qualcuno più esperto, perché non sono affatto sicuro.
Se questo è vero, si potrebbe fare in un altro modo, ma vorrei evitare di dire
due sciocchezze nello stesso post! :-)
(Devo aggiungere questa possibilità nella mia funzione NuovoMessaggio)
Ciao. Claudio.


title: eliminare record uguali in 2 tabelle

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3dbd23ba...@news.tiscalinet.it...

Se i campi Cognome, Nome e Codice sono di tipo testo, prova con una query di
eliminazione che abbia il seguente codice SQL:
DELETE Tabella1.*, DLookUp("Cognome","Tabella2","Codice=" & Chr$(34) &
[Codice] & Chr$(34) & " And Cognome=" & Chr$(34) & [Cognome] & Chr$(34) & "
And Nome=" & Chr$(34) & [Nome] & Chr$(34)) AS Espr1
FROM Tabella1
WHERE ((Not (DLookUp("Cognome","Tabella2","Codice=" & Chr$(34) & [Codice] &
Chr$(34) & " And Cognome=" & Chr$(34) & [Cognome] & Chr$(34) & " And Nome="
& Chr$(34) & [Nome] & Chr$(34))) Is Null));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: eliminare record uguali in 2 tabelle

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:N0wv9.90954$RO.23...@twister1.libero.it...
>
> DELETE Tabella1.*, DLookUp("Cognome","Tabella2","Codice=" & Chr$(34) &
> [Codice] & Chr$(34) & " And Cognome=" & Chr$(34) & [Cognome] & Chr$(34) & "
> And Nome=" & Chr$(34) & [Nome] & Chr$(34)) AS Espr1
> FROM Tabella1
> WHERE ((Not (DLookUp("Cognome","Tabella2","Codice=" & Chr$(34) & [Codice] &
> Chr$(34) & " And Cognome=" & Chr$(34) & [Cognome] & Chr$(34) & " And Nome="
> & Chr$(34) & [Nome] & Chr$(34))) Is Null));
Eheh! Pensavo anch'io una cosa del genere nell'altro ramo del thread...
Ciao. Claudio.


title: eliminare record uguali in 2 tabelle

text:
On Tue, 29 Oct 2002 11:32:14 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
>news:3dbe6a2c...@news.tiscalinet.it...
>> On Mon, 28 Oct 2002 12:34:20 GMT, "Antonio Biso" <
ch...@etruria.net
>
>> wrote:
>>
>
>> >Fai una query di eliminazione dalla tabella 1 dopo aver messo in join le
>due
>> >tabelle sui tre campi...
>> >
>> >Antonio
>> >
>> non funziona. mi da il messaggio: impossibile eliminare dalle tabelle
>> specificate. forse ho sbagliato qualcosa?
>> 1) ho creato una query di eliminazione in modalita' struttura con le
>> due tabelle
>> 2) ho fatto le join fra le due tabelle
>> 3) ho trascinato con l'asterisco la tabella dalla quale voglio
>> eliminare i record nella prima colonna
>> 4)  l'anteprima della  tabella cosi' formata e' corretta, ma se lancio
>> la query mi da il messaggio di errore di cui sopra.
>
>Il tuo SQL è qualcosa del genere?
>DELETE tab1.*
>FROM tab1 INNER JOIN tab1 ON (tab1.cognome = tab2.cognome) AND (tab1.codice
>= tab2.codice);
l'SQL e' il seguente:
DELETE tabella1.*
FROM tabella1 INNER JOIN tabella2 ON (tabella1.codice =
tabella2.codice) AND (tabella1.nome = tabella2.nome) AND
(tabella1.cognome = tabella2.cognome) AND (tabella1.ID = tabella2.ID);
>Ci sono mica delle relazioni sul tuo database?
non c'e' nessuna relazione
ciao e grazie
oscar
>


title: eliminare record uguali in 2 tabelle

text:


funziona perfettamente!!!!
ma il codice e' numerico (ho dovuto trasformarlo in testo perdendo gli
zeri che ci sono davanti al numero), ma non credo mi crei dei
problemi.
comunque se volessi lasciare il codice in formato numerico quali
aggiustamenti dovrei fare (sempre che sia possibile)
grazie infinite
oscar
>


title: eliminare record uguali in 2 tabelle

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3dbfb8a9...@news.tiscalinet.it...
[CUT]
> funziona perfettamente!!!!
> ma il codice e' numerico (ho dovuto trasformarlo in testo perdendo gli
> zeri che ci sono davanti al numero), ma non credo mi crei dei
> problemi.
> comunque se volessi lasciare il codice in formato numerico quali
> aggiustamenti dovrei fare (sempre che sia possibile)
> grazie infinite
> oscar
Se il campo Codice è di tipo Numerico, prova così:
DELETE Tabella1.*, DLookUp("Cognome", "Tabella2", "Codice =" & [Codice] & "
And Cognome = " & Chr$(34) & [Cognome] & Chr$(34) & " And Nome=" & Chr$(34)
& [Nome] & Chr$(34)) AS Espr1
FROM Tabella1
WHERE ((Not (DLookUp("Cognome","Tabella2","Codice =" & [Codice] & " And
Cognome=" & Chr$(34) & [Cognome] & Chr$(34) & " And Nome=" & Chr$(34) &
[Nome] & Chr$(34))) Is Null));
--



title: eliminare record uguali in 2 tabelle

author: Lorenzo Coronati

text:
Scrisse
os...@tiscalinet.it
 (oscar):
>non funziona. mi da il messaggio: impossibile eliminare dalle tabelle
>specificate. forse ho sbagliato qualcosa?
devi avere un indice univoco sui campi che usi per il join
bai
--
lorenzo coronati
---


title: ricerca stringa in un'altra stringa

author: AEOM

text:
Ciao a tutti
esiste una funzione più veloce di instr per ricercare la presenza di una
stringa in un'altra?
ciao, AEOM


title: ricerca stringa in un'altra stringa

author: namor

text:
AEOM ha scritto:

Credo che Instr(), come tutte le altre funzioni intrinseche di vba, sia
già ottimizzata per le massime prestazioni.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Oggetti Database Invisibili

author: Mari

text:
Secondo voi, perchč un oggetto database cosě definito in un modulo:
Public dbNetCfg As Database
Set dbNetCfg = OpenDatabase(gstrNetCfgPath & gstrNetCfgName)
che funziona egregiamente all'interno della routine che lo ha definito,
quando esce dalla stessa routine, mi diventa invisibile, cioč perde la
definizione, diventa nullo, ecc.?
Grazie


title: Oggetti Database Invisibili

text:
Oh bella, non risponde nessuno.
Ho forse chiesto una cretinata?
Mari


title: Oggetti Database Invisibili

author: Sib

text:
"Mari" chiede:

In effetti hai sollevato un problema ai limiti dell'attinenza con Access.
Anche se dal tuo post non si evince con certezza, sono sicuro che la
definizione Public ... As ... l'hai inserita all'interno della routine.
In questo caso, infatti, avviene che le altre routine possono vedere
l'oggetto finche' la routine che contiene la definizione e' in esecuzione,
ma poi non la vedono piu' perche' gli oggetti definiti all'interno di una
routine  muoiono con la routine stessa.
La definizione la devi mettere in un modulo qualsiasi, all'esterno delle
routine (proprio sotto Option compare...)
Ciao, Sib


title: Oggetti Database Invisibili

text:
In effetti non pare chiaro, ma io la definizione Public ... As ..., l'ho
proprio messa in um modulo, fuori da qualsiasi routine, proprio in un blocco
di definizioni sotto l'option compare...
Ed è qui che mi è sorto il problema...!!!
Scusatemi per l'imprecisione, e grazie se mi date una risposta.
Ma perchè non sarebbe attinente con Access?
Mari ;-)



title: Oggetti Database Invisibili

text:
Sib in risposta a Mari
> >
> > In effetti hai sollevato un problema ai limiti dell'attinenza con
Access.
> > Anche se dal tuo post non si evince con certezza, sono sicuro che la
> > definizione Public ... As ... l'hai inserita all'interno della routine.
> > In questo caso, infatti, avviene che le altre routine possono vedere
> > l'oggetto finche' la routine che contiene la definizione e' in
esecuzione,
> > ma poi non la vedono piu' perche' gli oggetti definiti all'interno di
una
> > routine  muoiono con la routine stessa.
> > La definizione la devi mettere in un modulo qualsiasi, all'esterno delle
> > routine (proprio sotto Option compare...)
> >
> > Ciao, Sib
> >
"Mari" dice
> In effetti non pare chiaro, ma io la definizione Public ... As ..., l'ho
> proprio messa in un modulo, fuori da qualsiasi routine, proprio in un
blocco
> di definizioni sotto l'option compare...
> Ed è qui che mi è sorto il problema...!!!
Bene, se e' cosi' posta il codice e ci diamo un'occhiata.
> Scusatemi per l'imprecisione, e grazie se mi date una risposta.
> Ma perchè non sarebbe attinente con Access?
Non ho detto che non e' attinente, ho detto che e' ai limiti perche' sembra
un problema piu' legato ai formalismi del linguaggio di programmazione che
alla gestione dei db.
>
> Mari ;-)
>
Ciao, Sib


title: Oggetti Database Invisibili

text:
Option Compare Database
Option Explicit
Public intActualPlant As Integer
Public gstrAppPath As String
Public gstrAppName As String
Public gstrBackEndPath As String
Public gstrBackEndName As String
Public gstrLocCfgName, gstrNetCfgName, gstrNetCfgPath As String
Public dbLocCfg As Database
Public dbNetCfg As Database
Function MainControl()
   Dim dblocal As Database
   Dim intCurrError As Integer, strCurrError As String
   Dim rstDatabasesName, rstDataBasesPath As Recordset
   Dim dbNet As Database
   Dim strBackEndPathNet As String
......
   DoEvents
   DoCmd.Echo True, "Checking Connections..."
   blnLeaveApplication = False
   Set dblocal = CurrentDb()
   gstrAppPath = Left$(dblocal.Name, ap_LastInStr(dblocal.Name, "\"))
   gstrAppName = Mid$(dblocal.Name, ap_LastInStr(dblocal.Name, "\") + 1)
   gstrLocCfgName = ap_GetDatabaseProp(dblocal, "LocalCfgName")
   Set dbLocCfg = OpenDatabase(gstrAppPath & gstrLocCfgName)
   Set rstDatabasesName = dblocal.OpenRecordset("SharedDB", dbOpenSnapshot)
   Set rstDataBasesPath = dbLocCfg.OpenRecordset("DBsPath", dbOpenDynaset)
   gstrNetCfgName = ap_GetDatabaseProp(dblocal, "NetCfgName")
   gstrNetCfgPath = RecuperaDato(dbLocCfg, "NetConfiguration", "NetCfgName",
CStr(gstrNetCfgName), "str", "NetCfgPath")
   Set dbNetCfg = OpenDatabase(gstrNetCfgPath & gstrNetCfgName)
(Qua c'è altro codice...)
   rstDatabasesName.Close
   rstDataBasesPath.Close
   Set dblocal = Nothing
'   Set dbLocCfg = Nothing    --> notare che sono commentate
'   Set dbNetcfg = Nothing    --> notare che sono commentate
   Set dbNet = Nothing
Exit_MainControl_Init:
   Exit Function
Error_MainControl_Init:
   Beep
   MsgBox "The following error occurred: " & Error$ & vbCrLf & _
           vbCrLf & "The system will now be closed down!"
   Application.Quit
   'Resume
End Function
Ed è tutto.
Ora, perchè i databse aperti dbNetCfg e dbLocCfg, uscendo da qui
regolarmente, perdono la definizione?
Perchè a questo punto non posso accedervi quando mi pare?
Grazie Sib
Mari


title: Oggetti Database Invisibili

text:
"Mari" <
tecs...@tin.it
> ha scritto nel messaggio
news:8olkle$l2f$1...@nslave2.tin.it...
> Option Compare Database
> Option Explicit
>
[cut]
> Ed è tutto.
> Ora, perchè i databse aperti dbNetCfg e dbLocCfg, uscendo da qui
> regolarmente, perdono la definizione?
> Perchè a questo punto non posso accedervi quando mi pare?
O fatto alune prove e mi sono reso conto di quale possa essere il problema.
Qualsiasi operazione che possa reinizializzare il codice (salvataggio di
oggetti, piccole modifiche nelle strutture ecc) azzera tutte le variabili.
Penso che l'unica sia di settare il db in ogni routine e settarlo a nothing
alla fine di ognuna.
Ciao, Sib


title: Oggetti Database Invisibili

author: Nicola Ardito

text:
"Mari" <
tecs...@tin.it
> ha scritto nel messaggio
news:8olkle$l2f$1...@nslave2.tin.it...
> Option Compare Database
> Option Explicit
>
> Public dbLocCfg As Database
> Public dbNetCfg As Database
>
Ho provato usando GLOBAL al posto di PUBLIC e mi funziona (con ACCESS 97)
CUT
> Ora, perchè i databse aperti dbNetCfg e dbLocCfg, uscendo da qui
> regolarmente, perdono la definizione?
> Perchè a questo punto non posso accedervi quando mi pare?
>
> Grazie Sib
> Mari
>
>
Ciao Nicola


title: Oggetti Database Invisibili

text:
"Nicola Ardito" <
nicola...@tin.it
> ha scritto nel messaggio
news:8onqkr$5g8$1...@nslave1.tin.it...
>
> "Mari" <
tecs...@tin.it
> ha scritto nel messaggio
> news:8olkle$l2f$1...@nslave2.tin.it...
> > Option Compare Database
> > Option Explicit
> >
> > Public dbLocCfg As Database
> > Public dbNetCfg As Database
> >
> Ho provato usando GLOBAL al posto di PUBLIC e mi funziona (con ACCESS 97)
>
> CUT
Devo concordare pienamente con Nicola.
Per quanto, sulla guida di Access, Global e Public siano considerati
sinonimi (anzi, per la verita' Global non c'e' proprio come istruzione di
dichiarazione, ma premendo F1 mentre si e' su global l'help apre la
definizione di Public), il comportamento delle due istruzioni e'
sostanzialmente diverso infatti, a differenza di quanto ho detto a proposito
di Public, Global ha un comportamento piu' stabile e fa conservare il valore
alla variabile anche se si eseguono operazioni di salvataggio e modifica.
Bisognerebbe approfondire la cosa.
Ciao, Sib


title: Oggetti Database Invisibili

text:
Grazie ragazzi ;-))
Ciao
Mari


title: WriteLine file di testo per VBS

author: PuntoBat

text:
Ciao,
Utilizzo questo modulo per controllare all'interno di una cartella i
files + vecchi o modificati, in funzione
ai criteri stabiliti li sposto in un altra destinazione. alla fine
creo un file di log per verifica.
Tutto funziona bene sia con Access e VB 6.
Adesso, vorrei esportare il suddetto modulo in un file VBS.
In questo modo evito di installare Access su un altro pc. E da
operazioni pianificate posso gestire al meglio il job.
il modulo.bas
Sub MovefilExt()
' Preleva tutti i files nella directory
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set folderObject = fso.GetFolder("X:\norme\")
  Set filesObject = folderObject.Files
' Definisci un intervallo di controllo in questo caso DATE "d"
  Interval = 45
' Dalla collection files controlla se ci sono file
  For Each file In filesObject
' Se ci sono file
     If fso.GetExtensionName(file) = "PDF" Then
' Controlla la data di ultima modifica
    If DateDiff("d", file.datelastmodified, Now) >= Interval Then
    Dim percors As String
    percors = "X:\archivio\"
    Dim dd, file1 As String
    dd = Date
    file1 = "." & dd & "." & file
 'scrittura
    Open ("X:\history.log") For Append As #1
     ' scrivi
     Print #1, file1 & "." & file.Name & " da " & DateDiff("d",
file.datelastmodified, Now)
      Close #1
    'Move File in Folder
     fso.MoveFile (file), percors
     Else
    'Visualizza
    Debug.Print file
             End If
       End If
  Next
  Set fileObject = Nothing
  Set folderObject = Nothing
  Set fso = Nothing
End Sub
' fine
Da MSD ho trovato questa spiegazione ma non ho ancora trovato la
soluzione questo è il link:
http://msdn2.microsoft.com/en-us/library/t5399c99.aspx
Qualche suggerimento, si può fare?.
Grazie
.Bat


title: WriteLine file di testo per VBS

author: Sergio MAZZA

text:
"PuntoBat" <
punt...@gmail.com
> ha scritto nel messaggio
news:1185314038.3...@g4g2000hsf.googlegroups.com...












     Else
    'Visualizza
    Debug.Print file
             End If
       End If
  Next

End Sub


[risposta]
Dove hai trovato difficoltà?
Ciao.
--
Sergio MAZZA


title: WriteLine file di testo per VBS

text:
On 25 Lug, 08:48, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> "PuntoBat" <
punto...@gmail.com
> ha scritto nel messaggionews:1185314038.3...@g4g2000hsf.googlegroups.com...

Ciao Sergio,
la dificoltà l'ho trovata subito. Ho copiato il modulo.bas all'interno
del file MoveFile_pdf.vbs e posto a desktop
da doppio click si blocca con error di VB. alla riga Dim percors.
Sto leggendo il manuale se ho capito bene, non è possibile utilizzare
diversi comandi tipo Open, Print.
.Bat


title: WriteLine file di testo per VBS

text:
"PuntoBat" <
punt...@gmail.com
> ha scritto nel messaggio
news:1185348419.4...@k79g2000hse.googlegroups.com...
Ciao Sergio,
la dificoltà l'ho trovata subito. Ho copiato il modulo.bas all'interno
del file MoveFile_pdf.vbs e posto a desktop
da doppio click si blocca con error di VB. alla riga Dim percors.
Sto leggendo il manuale se ho capito bene, non è possibile utilizzare
diversi comandi tipo Open, Print.
.Bat
[risposta]
Nella dichiarazione delle variabili non hai bisogno di dichiararne il tipo:
es.
Dim percors As String
(diventa)
Dim percors
La gestione dei file di testo la fai tramite il metodo OpenTextFile:
es.
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\fileprova.txt", ForWriting, True)
   f.Write "Salve gente!"
   f.Close
Ciao.
--
Sergio MAZZA


title: WriteLine file di testo per VBS

text:
On 25 Lug, 10:23, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> "PuntoBat" <
punto...@gmail.com
> ha scritto nel messaggionews:1185348419.4...@k79g2000hse.googlegroups.com...

Grazie Sergio per il suggerimento.
Sembra funzionare, in pratica sostituisco le righe riferite a open,
print con queste :
Dim fso, f
   'Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("X:\history.log", 8, True)
   f.Write file1 & ("." & file.Name & " da " & DateDiff("d",
file.datelastmodified, Now)) & VbCrlF
   f.Close
- -
Ciao
.Bat


title: codice da internet,che peccato che non va!

author: moncicci

text:
ho provato ad usare il codice,ma sono all'inizio e non so se sia giusta.Io
la incollo cosi come l'ho scaricata a voi esperti datemi una mano a
risolvere gli errori.
Talvolta si presenta la necessità di avere un semplice controllo per la
ricerca rapida in uno specifico campo. Si pensi alla ricerca di un cliente
in una maschera.
Vero è che Access possiede una specifica autocomposizione che crea una
casella combinata per la ricerca, ma tale casella ha qualche limite, prima
di tutto cerca il cliente solo dopo l'aggiornamento e cioè quando date
invio, e comunque cerca a partire dall'inizio del campo, e non per
contenuto.
Col mio metodo è sufficiente creare una casella di testo che chiameremo
"Ricerca", poi sarà sufficiente aggiungere il codice che segue:
Dim ChiaveRicerca As String
Private Sub Ricerca_Change()
   Dim rst As Recordset
   Dim strR As String
   strR = Me.Ricerca.Text
   If Not IsNull(Me!Ricerca.Text) Then
      Set rst = Me.RecordsetClone
      rst.FindFirst "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
"*"""
      Me.Bookmark = rst.Bookmark
      rst.Close
      Set rst = Nothing
   End If
   Me!Ricerca = strR
   Me!Ricerca.SelStart = 255 'Len(Me!Ricerca.Text)
End Sub
Private Sub Ricerca_DblClick(Cancel As Integer)
   Select Case Me!Ricerca.SpecialEffect
   Case 1
      Me!Ricerca.SpecialEffect = 2
      ChiaveRicerca = "*"
      Me!Ricerca.ControlTipText = "Ricerca rapida per parte del campo"
   Case 2
      Me!Ricerca.SpecialEffect = 1
      ChiaveRicerca = ""
      Me!Ricerca.ControlTipText = "Ricerca rapida da inizio campo"
   Case Else
      MsgBox "Viene reimpostato l'aspetto della casella", vbExclamation,
"Errore"
      Me!Ricerca.SpecialEffect = 1
      ChiaveRicerca = ""
      Me!Ricerca.ControlTipText = "Ricerca rapida da inizio campo"
   End Select
End Sub
Private Sub Ricerca_KeyPress(KeyAscii As Integer)
   Dim rst As Recordset
   Dim str As String
   If KeyAscii = 13 Then
      If Not IsNull(Me!Ricerca.Text) Then
         Set rst = Me.RecordsetClone
         rst.FindNext "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
"*"""
         If rst.NoMatch Then rst.FindFirst "DITTA like """ & ChiaveRicerca &
Me!Ricerca.Text & "*"""
         Me.Bookmark = rst.Bookmark
         rst.Close
         Set rst = Nothing
      End If
      Me!Ricerca.SetFocus
      Me!Ricerca.SelStart = 255
      KeyAscii = 0
   End If
End Sub
Si noti che "ChiaveRicerca" è una variabile globale del modulo di classe.
Il funzionamento che si ottiene è semplice, basta iniziare a digitare che il
codice troverà immediatamente il primo record il cui campo "DITTA" (voi
userete il campo che vi interessa) inizia per i caratteri che avete
digitato. Se non viene trovato nulla si resta sul primo record. Per trovare
i record successivi al primo è sufficiente premere invio.
Per effettuare una ricerca per "testo contenuto" e non per "Parte iniziale
del campo" basta fare doppio click sul controllo, questi assumerà l'aspetto
incassato e, quando inizierete a digitare, troverà il primo record il cui
campo "DITTA" contiene (non semplicemente inizia) il testo digitato.
Perche' tutto funzioni in modo corretto, bisogna impostare il controllo
Ricerca in visualizzazione In Rilievo nella maschera, sara' poi il codice
che si occupera' del resto.


author: Alessandro Cara

text:
moncicci wrote:
>
> ho provato ad usare il codice,ma sono all'inizio e non so se sia giusta.Io
> la incollo cosi' come l'ho scaricata a voi esperti datemi una mano a
> risolvere gli errori.
Oggi e' una giornata polemica.
L'uso dell'imperativo e' una cosa che mi sta "profondamente" sulle
palle! Anche se non sono un "esperto".
>
> Talvolta si presenta la necessità di avere un semplice controllo per la
> ricerca rapida in uno specifico campo. Si pensi alla ricerca di un cliente
> in una maschera.
> Vero è che Access possiede una specifica autocomposizione che crea una
> casella combinata per la ricerca, ma tale casella ha qualche limite, prima
> di tutto cerca il cliente solo dopo l'aggiornamento e cioè quando date
> invio, e comunque cerca a partire dall'inizio del campo, e non per
> contenuto.
mbe? e cmq molto opinabile.
>
> Col mio metodo è sufficiente creare una casella di testo che chiameremo
> "Ricerca", poi sarà sufficiente aggiungere il codice che segue:
bravo'. Come dicono i franzesi. Il mio metodo? Comincio a non capire.
Sto codice l'hai scaricato o e' tuo. Se e' tuo che c'entra il primo
periodo del tuo post?
[cut di codice "normale" ]
> Si noti che "ChiaveRicerca" è una variabile globale del modulo di classe.
'azz!
>
> Il funzionamento che si ottiene è semplice, basta iniziare a digitare che il
> codice troverà immediatamente il primo record il cui campo "DITTA" (voi
> userete il campo che vi interessa) inizia per i caratteri che avete
> digitato. Se non viene trovato nulla si resta sul primo record. Per trovare
> i record successivi al primo è sufficiente premere invio.
ariazz! e ariazzariazz sul (voi userete il campo che vi interessa)
>
> Per effettuare una ricerca per "testo contenuto" e non per "Parte iniziale
> del campo" basta fare doppio click sul controllo, questi assumerà l'aspetto
> incassato e, quando inizierete a digitare, troverà il primo record il cui
> campo "DITTA" contiene (non semplicemente inizia) il testo digitato.
> Perche' tutto funzioni in modo corretto, bisogna impostare il controllo
> Ricerca in visualizzazione In Rilievo nella maschera, sara' poi il codice
> che si occupera' del resto.
Devo esser proprio stupido per usare la normale gestione di access, che
mi
consente ricerca su: inizio, tutto o parte su tutti i campi,
richiamabile
con una semplice acCmd o un semplice click sulla relativa icona (quella
col binocolo tanto per capirci) quando voglio io e non quando pare a
lui.
Ma il tutto cosa Kaiser (notare la K maiuscola) c'entra con l'oggetto?
Cmq un plauso per la partecipazione, come recita Kerouac, "sulla strada"
per diventare un ottimo MVP.
Tutta colpa dell'imperativo. Oggi me rode proprio!
--
a.cara
Togli qualcosa dall'email


title: Re: Query in Access ed in Mysql

author: geppo

text:
Ciao <
cosi...@gmail.com
> ha scritto nel messaggio
news:fafcdce0-d6b2-4a9a...@g19g2000yql.googlegroups.com...
Salve a tutti
sto cercando di usare Access con Mysql ma per esempio
questa istruzione non funziona
StrSql = "Select * from Miatabella"
docmd.runsql "StrSql"
perchè hai racchiuso la variabile StrSql
--
Ciao
Geppo


title: Re: Query in Access ed in Mysql

author: Pablitomf

text:
docmd.runsql "StrSql"
Perchè ?
---------
...che sono quelle virgolette?
--
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related


title: Da una maschera poter modificare l'origine dati di una tabella  collegata.

text:
Ho realizzato una tabella "retrieveExcel" collegata ad uno dei file
excel contenuti nella mia directory (che ne contiene diversi...) e di
cui, prima appunto del caricamento, avrei bisogno di visualizzare una
anteprima.
In pratica ho una maschera che visualizza le directory con i
files .xls contenuti.
Quando ne scelgo uno, tale scelta viene memorizzata in una casella di
testo (testo33)
Ho un pulsante (Comando42) che avviando una macro vorrei mi
consentisse di visualizzare l'anteprima (del file voluto, indicato
appunto alla casella 33) per verificarne l'allineamento dei campi che
mi interessano prima dell'acquisizione nel db..
La macro dovrebbe aggiornare il percorso del file excel (collegato
alla tabella) con quello indicato nella casella di testo (testo33).
Al momento, adattando un esempio scaricato in rete, ho fatto così:
Private Sub Comando42_Click()
'prova per modificare percorso tabella collegata
Dim Tdf As DAO.TableDef
Dim Db As DAO.Database
Set Db = CodeDb
Set Tdf = Db.TableDefs("retrieveExcel")
Tdf.Connect = Form_OpenFile5.Testo33.Value & "\QRYPROTOCOLLO$"
MsgBox (Form_OpenFile5.Testo33.Value & "\QRYPROTOCOLLO$")
Tdf.RefreshLink
Set Tdf = Nothing
Set Db = Nothing
End Sub
L'istruzione \QRYPROTOCOLLO$ indica il foglio di lavoro all'interno
della cartella.
La msgbox mi restituisce il percorso da assegnare al collegamento.
L'ho messa per una verifica per capire dove sbaglio...
Ho due problemi; il primo è che l'istruzione Tdf.RefreshLink mi dà
errore.
il secondo è che non riesco a modificare i dati in tabella....
Grazie di cuore a chi mi potrà aiutare,


text:

Nessuno riesce molto gentilmente a darmi un aiuto ?
Io continuo a provarci, ma non vorrei che ciò che vorrei realizzare
non sia fattibile...
grazie


author: Roberto da Parma

text:
"ignazio.pilone" <
ignazio...@gmail.com
> ha scritto nel messaggio
news:cd19e096-fa76-4ae3...@c4g2000yqa.googlegroups.com...
> Ho realizzato una tabella "retrieveExcel" collegata ad uno dei file
> excel contenuti nella mia directory (che ne contiene diversi...) e di
> cui, prima appunto del caricamento, avrei bisogno di visualizzare una
> anteprima.
>
> In pratica ho una maschera che visualizza le directory con i
> files .xls contenuti.
> Quando ne scelgo uno, tale scelta viene memorizzata in una casella di
> testo (testo33)
>
> Ho un pulsante (Comando42) che avviando una macro vorrei mi
> consentisse di visualizzare l'anteprima (del file voluto, indicato
> appunto alla casella 33) per verificarne l'allineamento dei campi che
> mi interessano prima dell'acquisizione nel db..
>
> La macro dovrebbe aggiornare il percorso del file excel (collegato
> alla tabella) con quello indicato nella casella di testo (testo33).
>
> Al momento, adattando un esempio scaricato in rete, ho fatto cos�:
>
> Private Sub Comando42_Click()
> 'prova per modificare percorso tabella collegata
> Dim Tdf As DAO.TableDef
> Dim Db As DAO.Database
> Set Db = CodeDb
> Set Tdf = Db.TableDefs("retrieveExcel")
> Tdf.Connect = Form_OpenFile5.Testo33.Value & "\QRYPROTOCOLLO$"
> MsgBox (Form_OpenFile5.Testo33.Value & "\QRYPROTOCOLLO$")
>
> Tdf.RefreshLink
>
> Set Tdf = Nothing
> Set Db = Nothing
>
> End Sub
>
> L'istruzione \QRYPROTOCOLLO$ indica il foglio di lavoro all'interno
> della cartella.
> La msgbox mi restituisce il percorso da assegnare al collegamento.
> L'ho messa per una verifica per capire dove sbaglio...
> Ho due problemi; il primo � che l'istruzione Tdf.RefreshLink mi d�
> errore.
> il secondo � che non riesco a modificare i dati in tabella....
>
> Grazie di cuore a chi mi potr� aiutare,
I dati di una tabella excel collegata non li puoi modificare se non tramite
I  riferimenti di Excel in VBA.
Il comando refresh di dar� errore perch� il file non sar� ancora collegato.
Ciao
--
Roberto da Parma


title: HELP con SELECT TOP

text:
Ciao,
ho una tabella con migliaia di eventi, devo stilare una classifica attribuisco tramite una formula un punteggio per ogni evento.
fin qui niente di particolare
quindi diciamo che al momento mi da 2 campi

utente, punti
per fare la classifica, raggruppo e il risultato è
utente, sum(punti ), count(utente) numero eventi

ok, a questo punto ho la richiesta...se io volessi utilizzare i migliori 100 eventi per ogni utente come potrei fare ? pensavo di utilizzare la funzione select top, ma credo di avere le idee un pò confuse al riguardo.

qualche consiglio ?


title: HELP con SELECT TOP

text:
SELECT a.tournamentId, a.PlayerNickname, a.Points
FROM Query1 AS a
WHERE (((a.tournamentId) In (select top 100 b.tournamentid
                                              from query1 b
                                              where a.playernickname = b.playernickname
                                              order by b.points desc )));

credo che facendo così, funzioni ma l'accesso ai dati è esasperante...uberlento