author: VT @ work

text:
Il Sun, 26 Dec 1999 23:44:42 +0100, "alberto" <
joh...@ciaoweb.it
>
scrisse:
>Ciao Vincenzo,
>non conosco la struttura della maschera ma pensi sia possibile creare una
>tabella SIMBOLI (codice, descrizione, simbolo) dove nel campo simbolo
>incolli (prelevandoli dalle mappe caratteri di win) i vari simboli che ti
>servono. Nella maschera inserisci poi le caselle combinate che ti servono
>(sperando siano poche) e per la stampa aggiungi la tabella simboli alla
>query sottostante il report... ma questo non te lo devo certamente dire....
> :-))
>
>Ciao
>
>Alberto
Grazie, ma non credo di poter fare come suggerisci: ogni simbolo può
essere composto da un numero variabile di caratteri, ognuno dei quali
può essere un carattere dell'alfabeto latino, un carattere
dell'alfabeto greco, un simbolo scientifico, un'esponente;
per esempio il simbolo dell'unità di misura "microgrammi per
centimetro cubo" è composto da 6 caratteri:
la emme greca (mu)
la g latina
la barra (/)
la c
la m
l'esponente 3
La tua soluzione, se ho capito bene, potrebbe servire nel caso di
simboli composti da un solo carattere, a patto comunque di cambiare il
font del controllo a secondo della combo da cui il simbolo viene
selezionato.
Vincenzo Turturro
----------------------------------
Niuna impresa, per minima che sia,
può avere cominciamento e fine
senza queste tre cose:
e cioè senza sapere,
senza potere,
senza con amore volere



title: Utilizzo di tabledefs

author: Roland Mayr - Chipware

text:
Ciao a tutti,
forse qualcuno riesce ad aiutarmi. Dovrei creare un campo tipo contatore ma
non so come fare:
db1.TableDefs.Append tdf1
.Fields.Append .CreateField("Contatore", dbInteger)
db1.TableDefs.Append tdf1
Forse qualcuno riese a darmi una dritta.
ciao
roland


title: Utilizzo di tabledefs

author: Bruno Campanini

text:
"Roland Mayr - Chipware" <
info.c...@tin.it
> wrote in message
news:ermgeu$q1p$1...@newsreader.mailgate.org...

Dim db As Database, NewField As Field
Dim tdf1 As TableDef
Set db = CurrentDb
Set tdf1 = db.CreateTableDef("tdf1")
Set NewField = tdf1.CreateField("Contatore", dbInteger)
tdf1.Fields.Append NewField
db.TableDefs.Append tdf1
Bruno


title: Utilizzo di tabledefs

text:
Ciao Bruno,
> Set db = CurrentDb
> Set tdf1 = db.CreateTableDef("tdf1")
> Set NewField = tdf1.CreateField("Contatore", dbInteger)
> tdf1.Fields.Append NewField
> db.TableDefs.Append tdf1
cosi ha funzionato ! Forse mi sai anche indicare come faccio a far diventare
il campuo nuovo un campo con chiave primaria. Ho cercato sotto primary però
non ci sono riuscito.
saluti
roland


title: Stampa report fronte-retro

author: Federico Luciani

text:
Alberto Fracassi wrote:
> Sarà certamente una FAQ che però sul sito comune non ho trovato:
> come faccio a stampare di un report prima le pagine dispari e poi le
> pagine pari per ottenere una stampa fronte-retro?
> Ciao. Alberto
Si potrebbe fare cosi':
- inserisci il seguente codice nel modulo del report
(evento Su stampa del corpo del report)
Private Sub Corpo_Print(Cancel As Integer, PrintCount As
Integer)
    If g_Pag = 2 And [Page] Mod 2 = 1 Then Cancel = True
'Pari
    If g_Pag = 1 And [Page] Mod 2 = 0 Then Cancel = True
'Dispari
End Sub
- poi crea un nuovo modulo ed inserisci il seguente codice:
Global g_Pag As Integer
Sub stmpDifferenziata(cosaStampo As Integer)
    g_Pag = cosaStampo '1 dispari - 2 pari
    DoCmd.OpenReport "nomeReport", acViewPreview
End Sub
ora prova a lanciare la procedura 'stmpDifferenziata'
passando 1 o 2 a seconda delle pagine che vuoi stampare.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Stampa report fronte-retro

author: Jamas

text:
Perché non usare un comune drive di stampa che si interpone tra Windows e
drive di stampante che faccia tutto questo in modo trasparente e molt'altro?
Vedi FinePrint.
Rimane comunque molto interessante il suggerimento di Federico.
Ciao


title: cambiare colore mouse over su record maschera foglio dati + varie

author: Raul

text:
ho una maschera in visualizzazione foglio dati, vorrei che al passaggio del
mouse lo sfondo del record  cambiasse e che cliccando due volte, si aprisse
una maschera i cui dati sono filtrati dal codice id del record della
maschera precendente. Ancora una cosa: mi piacerebbe allineare le maschere
in una posizione specifica
spero mi possiate aiutare
TIA


title: Gestione in real time di + negozi

author: Silvio Berruti

text:
Ciao a tutti,
mi è stato chiesto di valutare la realizzazione di un programma di magazzino
che permetta ad un gruppo di negozi (inizialmente 3, poi forse 5),
appartenenti allo stesso proprietario, di sapere, oltre alla disponibilità
di merce di ogni singolo punto vendita, anche la disponibilità dei prodotti
degli altri negozi, in tempo reale.
Cioè la situazione è questa: entra il cliente, chiede un prodotto non
disponibile nel negozio e il gestore del negozio vuol sapere se esiste la
disponibilità di quel prodotto in uno degli altri negozi collegati, in modo
da poter dare la risposta al cliente immediatamente.
Idee? Soluzioni? Realizzazioni già pronte?
Grazie.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Gestione in real time di + negozi

author: Lorenzo Coronati

text:
Scrisse "Silvio Berruti" <
s...@libero.it
>:
>Cioè la situazione è questa: entra il cliente, chiede un prodotto non
>disponibile nel negozio e il gestore del negozio vuol sapere se esiste la
>disponibilità di quel prodotto in uno degli altri negozi collegati, in modo
>da poter dare la risposta al cliente immediatamente.
Beh, se la richiesta si limita a questo, basta stabilire una
connessione remota col be del negozio ed eseguirci una
query, no?
Ma immagino che le problematiche siano ben piu' complesse...
In effetti penso ti convenga trovare qualcosa di gia' pronto
e testato.
Bai
--
Lorenzo Coronati
--
[si parla di ODE/MOD, ndr]
<<chi sarebbe cosi' gentile da passarmelo?
in caso posso ricambiare con qualache mp3...:)))>>
(Koala, 5/3/2001)
--


title: Gestione in real time di + negozi

author: Luciano (DOC)

text:
Silvio Berruti ha scritto nel messaggio ...
>Idee?
Piu' di una!:-)
> Soluzioni?
Access, ASP e ADSL.
Se il server ASP lo monti un uno dei negozi risparmi pure lo spazio presso
un provider ed hai la possibilita' di scrivere direttamente con Access tutto
quello che riguarda la manutenzione dell'archivio (che comuqnue avere a
casetta propria fa sempre comodo) e risparmi bei soldini (o li cresti al
cliente!:-) perche' lo sviluppo con Access costa un decimo che con ASP. Il
resto (interfaccia vendite/magazzini)  lo fai con
ASP/VBscript/Javascrip/JScript. Poi, con 50 sacchi al mese/negozio hai ADSL
e quindi il real time delle vendite e dei magazzini.
> Realizzazioni già pronte?
No, ma se ti interessa una collaborazione per la parte ASP ne possiamo
parlare!:-)
Saluti.
Luciano
(DOC)


title: Gestione in real time di + negozi

author: Sib dal portatile

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
cut
> Poi, con 50 sacchi al mese/negozio hai ADSL
> e quindi il real time delle vendite e dei magazzini.
50 sacchi? con chi?
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Gestione in real time di + negozi

text:
Sib dal portatile ha scritto nel messaggio
<8UzE6.74819$
s93.7...@news.infostrada.it
>...
>50 sacchi? con chi?
Cumpa', tu m'u dicisti...:-)
Saluti.
Luciano
(DOC)


title: Gestione in real time di + negozi

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:VhfE6.170784$lj4.5...@news6.giganews.com...
>
> Silvio Berruti ha scritto nel messaggio ...
>
> >Idee?
>
> Piu' di una!:-)
Meno male!  ;-)
>
> > Soluzioni?
>
> Access, ASP e ADSL.
> Se il server ASP lo monti un uno dei negozi risparmi pure lo spazio presso
> un provider ed hai la possibilita' di scrivere direttamente con Access
tutto
> quello che riguarda la manutenzione dell'archivio (che comuqnue avere a
> casetta propria fa sempre comodo) e risparmi bei soldini (o li cresti al
> cliente!:-) perche' lo sviluppo con Access costa un decimo che con ASP. Il
> resto (interfaccia vendite/magazzini)  lo fai con
> ASP/VBscript/Javascrip/JScript. Poi, con 50 sacchi al mese/negozio hai
ADSL
> e quindi il real time delle vendite e dei magazzini.
Purtroppo niente ADSL, dobbiamo accontentarci di avere ISDN, anche perché a
50 sacchi/mese non saprei dove trovarla.
Il server ASP lo posso montare anche in uno dei negozi, ma non mi è chiaro
che cosa richieda come S.O., come soft x funzionare e x farne sviluppo (non
ho mai affrontato il problema), inoltre non mi è chiaro cosa vuoi dire con
"hai la possibilita' di scrivere direttamente con Access tutto quello che
riguarda la manutenzione dell'archivio (che comuqnue avere a casetta propria
fa sempre comodo)".
> > Realizzazioni già pronte?
>
>
> No, ma se ti interessa una collaborazione per la parte ASP ne possiamo
> parlare!:-)
Cerrrrto che mi interessa la TUA collaborazione! :-)))
> Saluti.
>
> Luciano
> (DOC)
>
Saluti anche a te.



title: Gestione in real time di + negozi

text:
"Silvio Berruti" <
s...@libero.it
> wrote in message
news:ZXTE6.80658$s93.7...@news.infostrada.it...
> Purtroppo niente ADSL, dobbiamo accontentarci di avere ISDN, anche perché
a
> 50 sacchi/mese non saprei dove trovarla.
Non c'e' nessuno che offre adsl a Savona? Possibile? Hai fatto i conti
quanto ti costa con ISDN? Un botto!!!
Allora e' meglio che fai tre flat RTC (sempre 50 sacchi/mese/negozio), tanto
il traffico di rete e' scarso.
> Il server ASP lo posso montare anche in uno dei negozi, ma non mi è chiaro
> che cosa richieda come S.O., come soft x funzionare e x farne sviluppo
(non
> ho mai affrontato il problema),
W2000 server (forse basta W2000 pro ma non sono sicuro), IIS 4 o 5 e
notepad!:-)
Anche NT4 va bene casomai ce l'avessi gia'.
> inoltre non mi è chiaro cosa vuoi dire con
> "hai la possibilita' di scrivere direttamente con Access tutto quello che
> riguarda la manutenzione dell'archivio (che comuqnue avere a casetta
propria
> fa sempre comodo)".
Voglio dire 2 cose:
1) che se devi fare degli aggiornamenti/modifiche fai copia e incolla sul
tuo PC anziche' ore di ftp.
2) che le procedure di manutenzione e aggiornamemnte te le scrivi con Access
anziche in ASP e ci metti un decimo del tempo.
> > No, ma se ti interessa una collaborazione per la parte ASP ne possiamo
> > parlare!:-)
>
> Cerrrrto che mi interessa la TUA collaborazione! :-)))
Perche' enfatizzi? Io che ho detto?:-))
Saluti.
Luciano
(DOC)


title: Gestione in real time di + negozi

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9c166h$b3n2p$1...@ID-86073.news.dfncis.de...
>
> "Silvio Berruti" <
s...@libero.it
> wrote in message
> news:ZXTE6.80658$s93.7...@news.infostrada.it...
>
> > Purtroppo niente ADSL, dobbiamo accontentarci di avere ISDN, anche
perché
> a
> > 50 sacchi/mese non saprei dove trovarla.
>
> Non c'e' nessuno che offre adsl a Savona? Possibile? Hai fatto i conti
> quanto ti costa con ISDN? Un botto!!!
> Allora e' meglio che fai tre flat RTC (sempre 50 sacchi/mese/negozio),
tanto
> il traffico di rete e' scarso.
Hai ragione da vendere, devo far fare 2 conti al cliente... qui da noi
l'offerta ADSL c'è solo da TIN e da ARUBA
>
> > Il server ASP lo posso montare anche in uno dei negozi, ma non mi è
chiaro
> > che cosa richieda come S.O., come soft x funzionare e x farne sviluppo
> (non
> > ho mai affrontato il problema),
>
> W2000 server (forse basta W2000 pro ma non sono sicuro), IIS 4 o 5 e
> notepad!:-)
> Anche NT4 va bene casomai ce l'avessi gia'.
OK sul server, e sugli altri basta Win ME?
>
> > inoltre non mi è chiaro cosa vuoi dire con
> > "hai la possibilita' di scrivere direttamente con Access tutto quello
che
> > riguarda la manutenzione dell'archivio (che comuqnue avere a casetta
> propria
> > fa sempre comodo)".
>
> Voglio dire 2 cose:
> 1) che se devi fare degli aggiornamenti/modifiche fai copia e incolla sul
> tuo PC anziche' ore di ftp.
> 2) che le procedure di manutenzione e aggiornamemnte te le scrivi con
Access
> anziche in ASP e ci metti un decimo del tempo.
e qui ancora non ci sono, ma credo che sia causato dal fatto che non ho le
idee chiare
> > > No, ma se ti interessa una collaborazione per la parte ASP ne possiamo
> > > parlare!:-)
> >
> > Cerrrrto che mi interessa la TUA collaborazione! :-)))
>
> Perche' enfatizzi? Io che ho detto?:-))
Enfatizzavo perché sono felice di sentirtelo proporre.
Ariciao



title: Gestione in real time di + negozi

text:
Silvio Berruti ha scritto nel messaggio ...
>Hai ragione da vendere, devo far fare 2 conti al cliente... qui da noi
>l'offerta ADSL c'è solo da TIN e da ARUBA
Aruba e' economica....solo che i pareri sul suo fuzionamento sono discordi.
Per la scelta dai un'occhiata a it.tlc.telefonia.adsl.
>OK sul server, e sugli altri basta Win ME?
GGGGRRRRR, che domande fai???!!!!!!:-))))
Basta windows 3.11 con Mosaic 1.1......anzi, basta il DOS con Lynx!!!:-))
>e qui ancora non ci sono, ma credo che sia causato dal fatto che non ho le
>idee chiare
Se il DB e' presso un provider e devi fare una modifica ad una tabella o ad
una relazione e' probabile che devi uploadare nuovamente tutto il DB. O
ancora: se devi fare una query stupida che con Access fai in tre secondi,
metti in conto una o due ore di ASP. Inoltre si presume che avrai delle
routine di manutenzione, delle maschere con statistiche, conteggi
ecc....beh, anche queste con Access sono molto piu' semplici. Ecco perche'
il DB in locale e' molto comodo. Viceversa con ASP fai tutta la parte client
per i negozi.
>Enfatizzavo perché sono felice di sentirtelo proporre.
Forse allora al telefono facciamo pirma a capirci...:-)
Saluti.
Luciano
(DOC)


title: like in sql

author: MarcoP

text:
Buongiorno
Non riesco a capire dove sbaglio con la seguente stringa sql
Dim rst As Recordset
qualificatore = "*" & Forms!ins_anag!qualif & "*"
SQL = "SELECT anag.cognome, anag.nome, anag.naz, anag.cid, anag.qualif " _
   & " WHERE  anag.qualif like " & Chr(34) & qualificatore & Chr(34)
   SQL = SQL & " ORDER BY conco.num "
Set rst = CurrentDb().OpenRecordset(SQL, dbOpenSnapshot)
grazie per la collaborazione
Marco

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


title: like in sql

author: Roberto dal portatile

text:
"MarcoP" <
produ...@pica.it
> ha scritto nel messaggio
news:euvppj$f0c$1...@news.newsland.it...
> Buongiorno
> Non riesco a capire dove sbaglio con la seguente stringa sql
>
> Dim rst As Recordset
> qualificatore = "*" & Forms!ins_anag!qualif & "*"
>
> SQL = "SELECT anag.cognome, anag.nome, anag.naz, anag.cid, anag.qualif " _
>   & " WHERE  anag.qualif like " & Chr(34) & qualificatore & Chr(34)
>   SQL = SQL & " ORDER BY conco.num "
>
> Set rst = CurrentDb().OpenRecordset(SQL, dbOpenSnapshot)
Per prima cosa nella tua stringa SQL manca la proposizione FROM senza la
quale è normale che le cose non funzionano.
Poi non è possibile aprire da VAB una query parametrica nel modo in cui hai
fatto tu: è necessario passare i parametri contestualmente all'apertura
della query parametrica.
Per maggiori dettagli vai sul Sito Comune (link qui sotto) e nella Sezione
Queries leggi la FAQ di Federico Luciani e Roberto intitolata "2.2 Aprire
una query parametrica da codice VBA.".
>
> grazie per la collaborazione
Prego.
> Marco
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: like in sql

author: Karl Donaubauer

text:
Roberto dal portatile wrote:
> MarcoP ha scritto:
> ...
>> Non riesco a capire dove sbaglio con la seguente stringa sql
>>
>> Dim rst As Recordset
>> qualificatore = "*" & Forms!ins_anag!qualif & "*"
>>
>> SQL = "SELECT anag.cognome, anag.nome, anag.naz, anag.cid,
>>   anag.qualif " _ & " WHERE  anag.qualif like " & Chr(34) &
>>   qualificatore & Chr(34) SQL = SQL & " ORDER BY conco.num "
>>
>> Set rst = CurrentDb().OpenRecordset(SQL, dbOpenSnapshot)
>
> Per prima cosa nella tua stringa SQL manca la proposizione FROM senza
> la quale è normale che le cose non funzionano.
>
> Poi non è possibile aprire da VAB una query parametrica nel modo in
> cui hai fatto tu: è necessario passare i parametri contestualmente
> all'apertura della query parametrica.
>...
Ciao Roberto,
dove vedi una query parametrica?
Io vedo solo una stringa SQL dove manca la clausola FROM
come già hai scritto. Non ci sarebbe un problema di aprire
un Recordset sulla base di una stringa SQL giusta.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: like in sql

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:57i9asF...@mid.individual.net...

Hai ragione: la presenza della WHERE mi ha tratto in inganno senza leggere
tutto il predicato.
Buona Pasqua.
>
> --
> cu
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
--



title: inviare file via email con access

author: Maura

text:
Un ciao a tutti. Forse qualcuno può aiutarmi?
Vorrei da codice VBA poter inviare un file via posta elettronica. Come posso
fare? Cosa devo scrivere nel codice?
In pratica clicco su un pulsante e il file miofile.mdb viene inviato
automaticamente come allegato al mio
indi...@posta.com
 con oggetto: invio
file.
Cosa dite? Si può fare?
Grazie a tutti.


title: inviare file via email con access

author: Antonio Biso

text:
"Maura" <
Mau...@yahoo.com
> ha scritto nel messaggio
news:EqQ8a.174595$YG2.5...@twister1.libero.it...
> Un ciao a tutti. Forse qualcuno puņ aiutarmi?
>
> Vorrei da codice VBA poter inviare un file via posta elettronica. Come
posso
> fare? Cosa devo scrivere nel codice?
Vedi sendobject
Antonio


title: maschere continue

author: Alessandro Goiorani-LIBERO

text:
salve a tutto il ng, avrei un problema su una sottomaschera, che non è altro
che una specie di calendario, avrei bisogno di evidenziare il giorno
Domenica di un colore diverso, ho cercatoun po' in giro ma non ho trovato
nulla. Qualcuno può aiutarmi?
Grazie in anticipo Goio.


title: maschere continue

text:
"Alessandro Goiorani-LIBERO" <
algo...@libero.it
> ha scritto nel messaggio
news:h1jkg.2967$zy5....@twister1.libero.it...
> salve a tutto il ng, avrei un problema su una sottomaschera, che non č
> altro che una specie di calendario, avrei bisogno di evidenziare il giorno
> Domenica di un colore diverso, ho cercatoun po' in giro ma non ho trovato
> nulla. Qualcuno puň aiutarmi?
> Grazie in anticipo Goio.
>
Chiedo scusa, ma spulciando con piů attenzione ho trovato la formattazione
condizionale ed ho risolto. Grazie comunque a tutti.


title: Problema con ricerca

author: mouse

text:
Ho un problema un pò complicato spero possiate aiutarmi!
Ho due tabelle PRODOTTI e VENDUTO.
Ho creato una maschera dove immetto il venduto mettendo un campo combinato
di ricerca dove ho generato una routine:
Sub CasellaCombinata15_AfterUpdate()
    ' Trova il record corrispondente al controllo
Me.RecordsetClone.FindFirst "[codprodotto] = '" & Me![CasellaCombinata15]
& "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
La casella combinata ha come orgine il codice prodotto e descrizione della
tabella prodotto.
Ma se seleziono il prodotto nel campo codice prodotto del venduto non
appare nulla.
Perchè?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Problema con ricerca

author: Roberto da casa

text:
"mouse" <
mchioc...@nospamlibero.it
> ha scritto nel messaggio
news:c22dg6$im$1...@news.newsland.it...
> Ho un problema un pò complicato spero possiate aiutarmi!
> Ho due tabelle PRODOTTI e VENDUTO.
> Ho creato una maschera dove immetto il venduto mettendo un campo combinato
> di ricerca dove ho generato una routine:
>
> Sub CasellaCombinata15_AfterUpdate()
>     ' Trova il record corrispondente al controllo
> Me.RecordsetClone.FindFirst "[codprodotto] = '" & Me![CasellaCombinata15]
> & "'"
> Me.Bookmark = Me.RecordsetClone.Bookmark
> End Sub
>
> La casella combinata ha come orgine il codice prodotto e descrizione della
> tabella prodotto.
>
> Ma se seleziono il prodotto nel campo codice prodotto del venduto non
> appare nulla.
> Perchè?
>
> --
1) Che versione di Access usi?
2) Quante colonne ha la casella combinata?
3) Quale è il codice SQL che è Origine riga della casella combinata?
4) Come è impostata la proprietà Colonna associata della casella combinata?
5) il campo codprodotto è di tipo Numerico o di tipo Testo?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema con ricerca

text:
mouse ha scritto:
> Ho un problema un pò complicato spero possiate aiutarmi!
> Ho due tabelle PRODOTTI e VENDUTO.
> Ho creato una maschera dove immetto il venduto mettendo un campo combinato
> di ricerca dove ho generato una routine:
>
> Sub CasellaCombinata15_AfterUpdate()
>     ' Trova il record corrispondente al controllo
> Me.RecordsetClone.FindFirst "[codprodotto] = '" & Me![CasellaCombinata15]
> & "'"
> Me.Bookmark = Me.RecordsetClone.Bookmark
> End Sub
>
> La casella combinata ha come orgine il codice prodotto e descrizione della
> tabella prodotto.
>
> Ma se seleziono il prodotto nel campo codice prodotto del venduto non
> appare nulla.
> Perchè?
Sei sicuro che viene trovato qc.?
La colonna associata della [CasellaCombinata15] è dal tipo testo?
Fai una semplice prova p.e. con
Me.RecordsetClone.FindFirst "[codprodotto] = '" & Me![CasellaCombinata15] &
"'"
Msgbox Me![CasellaCombinata15]
If Me.RecordsetClone.NoMatch Then
    Msgbox "Non ho trovato niente con questo valore!"
End If
Me.Bookmark = Me.RecordsetClone.Bookmark
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Problema con ricerca

text:
Roberto da casa ha scritto:
> "mouse" <
mchioc...@nospamlibero.it
> ha scritto nel messaggio
> news:c22dg6$im$1...@news.newsland.it...
> > Ho un problema un pò complicato spero possiate aiutarmi!
> > Ho due tabelle PRODOTTI e VENDUTO.
> > Ho creato una maschera dove immetto il venduto mettendo un campo combinato
> > di ricerca dove ho generato una routine:
> >
> > Sub CasellaCombinata15_AfterUpdate()
> >     ' Trova il record corrispondente al controllo
> > Me.RecordsetClone.FindFirst "[codprodotto] = '" & Me![CasellaCombinata15]
> > & "'"
> > Me.Bookmark = Me.RecordsetClone.Bookmark
> > End Sub
> >
> > La casella combinata ha come orgine il codice prodotto e descrizione della
> > tabella prodotto.
> >
> > Ma se seleziono il prodotto nel campo codice prodotto del venduto non
> > appare nulla.
> > Perchè?
> >
> > --
> 1) Che versione di Access usi?
> 2) Quante colonne ha la casella combinata?
> 3) Quale è il codice SQL che è Origine riga della casella combinata?
> 4) Come è impostata la proprietà Colonna associata della casella combinata?
> 5) il campo codprodotto è di tipo Numerico o di tipo Testo?
1) access 2000
2)2 colonne (codice prodotto e descrizione)
3)SELECT DISTINCTROW [Prodotti].[CodProdotto], [Prodotti].[Desprodotto]
FROM Prodotti ORDER BY [Prodotti].[CodProdotto];
4)1
5)testo



title: Problema con ricerca

text:
Karl Donaubauer ha scritto:




> Me.Bookmark = Me.RecordsetClone.Bookmark
Infatti lui non l'ho trova perchè cerca il prodotto in VENDUTO e invece io
voglio che lo cerchi in PRODOTTI. Come si fa?



title: Problema con ricerca

text:
"mouse" <
mchioc...@nospamlibero.it
> ha scritto nel messaggio
news:c242hs$khb$1...@news.newsland.it...

Visto che usi Access 2000 e visto che con Me.RecordsetClone.FindFirst  si fa
riferimento alla libreria Microsoft DAO, verifica che nel tuo database si
faccia correttamente riferimento a tale libreria, avendo cura che tale
liferimento preceda nella lista i riferimenti alle altre librerie.
Se poi tale riferimento, come io penso, manca, aggiungilo (Microsift DAO 3.6
Library) avendo cura di inserirlo prima di un eventuale riferimento alla
libraria ADO.



title: Problema con ricerca

text:



Scusami ma sono proprio zero ma come si fa ad aggiornare la libreria ADO?



title: Problema con ricerca

text:
"mouse" <
mchioc...@nospamlibero.it
> ha scritto nel messaggio
news:c24n7o$f9a$1...@news.newsland.it...
[CUT]
>
>
> Scusami ma sono proprio zero ma come si fa ad aggiornare la libreria ADO?
>
>
Non ti ho suggerito di aggiornare la libreria ADO, ma ti ho scritto di
aggiungere, se già non c'è, ai riferimenti del tuo database la libreria
Microsoft DAO 3.6 .
Per fare questo apri l'editing di un qualsiasi modulo VBA contenuto nel tuo
database; dal menu Strumenti seleziona il comando Riferimenti; nell'elenco
che compare nella finestra di dialogo che si apre verifica se è selezionata
l'opzione a sinistra della libreria di cui sopra e se non è selezionata
selezionala, quindi  evidenzia tale rifemento ed agendo sulla relativa
freccia spostalo più in alto possibile nell'elenco.



title: Creare ACTIVEX

author: Alessandro

text:
Come da oggetto volevo provare a creare un ACTIVEX, solo
per capire com'è.
Ovviamente ho VB6, ma non trovo nulla di chiaro sulla modalità
di realizzazione.
Qualcuno ha riferimenti in merito.....!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errore !!! " un'altro utente..."

author: Enrico Virginio

text:
USO UN DB SIA SU SERVER CHE SU CLIENT (tramite tabelle collegate) E NON RIESCO
A CAPIRE PER QUALE MOTIVO, DA 2 GIORNI, INSPIEGABILMENTE, DURANTE L'
INSERIMENTO DI DATI IN UNA MASCHERA (collegata ad una tabella condivisa in
rete...)SU TUTTI I CAMPI APPARE "#ERRORE !" POI SI PIANTA ED ESCE COME ERRORE:
" UN ALTRO UTENTE STA CERCANDO DI MODIFICARE I DATI PRESENTI NELLA TABELLA...."
CHE VUOL DIRE ??? E' STRANO VISTO CHE PRIMA NON LO FACEVA, POI TUTTO D'UN
TRATTO.....
HEEEELP !!!!!
--
Posted from
ppp-198-100.25-151.libero.it
 [151.25.100.198]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errore !!! " un'altro utente..."

text:
Enrico Virginio <
nor...@libero.it
> wrote in message
4862b411bf6e34a059...@mygate.mailgate.org...
> USO UN DB SIA SU SERVER CHE SU CLIENT (tramite tabelle collegate) E NON
RIESCO
> A CAPIRE PER QUALE MOTIVO, DA 2 GIORNI, INSPIEGABILMENTE, DURANTE L'
> INSERIMENTO DI DATI IN UNA MASCHERA (collegata ad una tabella condivisa in
> rete...)SU TUTTI I CAMPI APPARE "#ERRORE !" POI SI PIANTA ED ESCE COME
ERRORE:
> " UN ALTRO UTENTE STA CERCANDO DI MODIFICARE I DATI PRESENTI NELLA
TABELLA...."
> CHE VUOL DIRE ??? E' STRANO VISTO CHE PRIMA NON LO FACEVA, POI TUTTO D'UN
> TRATTO.....
>
>
> HEEEELP !!!!!
Mortacci tui, m'hai assordito!!!
Antonio


title: errore !!! " un'altro utente..."

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Vjyw7.55329$0Y2.5...@news.infostrada.it...
> Mortacci tui, m'hai assordito!!!
L'accento e' di Cambrige vero? Meno aspro di quello di Oxford...:-))
Saluti.
Luciano


title: errore !!! " un'altro utente..."

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
9putff$jurcr$1...@ID-86073.news.dfncis.de...

Veramente ho usato un francesismo....
Antonio


title: errore Access 2000

author: ato

text:
Aprendo un db che ho sul server quando lancio una macro o un comando su un
bottone mi appare una finestra con scritto:
errore durante l'accesso al file. Potrebbe non essere + attiva la
connessione di rete
tutti i componenti del db (maschere report tabelle) si aprone regolarmente
dalla finestra del DB ma non con i comandi creati sulle maschere.
Grazie in anticipo
ciao
marco


title: errore Access 2000

text:
"ato" <
paol...@libero.it
> ha scritto nel messaggio
news:KeYBb.182503$e6.68...@twister2.libero.it...

Aprendo un nuovo DB ed importando tutto rifunziona correttamente.... per
fortuna...
Sarei comunque curioso di sapere cosa è successo....
ciao
marco


title: errore Access 2000

author: Antonio

text:
"ato" <
paol...@libero.it
> ha scritto nel messaggio
news:KeYBb.182503$e6.68...@twister2.libero.it...

E' un noto bug di Access 2000 che si verifica quando elimini o duplichi nua
maschera o nu report contenente codice Visual Basic.
E' risolvibile con il SP1 oppure, meglio, passando a Access 2002.
Ciao


title: Relazioni tra tabelle

author: vuLCan Karayan

text:
Chi mi da una mano? Non so come uscirne!
_Tabella 1 : Corsi
IDCorso
NomeCorso
_Tabella2 : Partecipanti
IDPartecipante
Nome
Cognome
Come faccio a memorizzare nella tabella Corsi i partecipanti a quel corso?
Ovvero:
Corso A:
Partecipante 1
Partecipante 2
[...]
Partecipante n
Corso B:
Partecipante 1
Partecipante 2
[...]
Partecipante m
ecc.
Mi sono impallato... o_O


title: Relazioni tra tabelle

author: Nick

text:
"vuLCan Karayan" <noEmail...@NoSpam.com> ha scritto nel messaggio news:3k6dd.58331$b5.29...@news3.tin.it...

con una tabella di "transizione" che sfrutti per creare una relazione "MOLTI a MOLTI"
fatta almeno cos':
rif_corso (numerico lungo da relazionare con IDCorso)
rif_partecipante (numerico lungo da relazionare con IDPartecipante).
ciao
NIck


title: Relazioni tra tabelle

author: Cinzia

text:
"vuLCan Karayan" <noEmail...@NoSpam.com> ha scritto nel messaggio
news:3k6dd.58331$b5.29...@news3.tin.it...

Ciao vuLCan Karayan,
E' un tipico caso di relazione Molti a Molti, un partecipante può
partecipare a più corsi, un corso è frequentato da più partecipanti.
Per fare questo tipo di relazione hai bisogno di una terza tabella
CorsiPartecipanti  contenente i campi :
IDCorso      (Chiave Esterna)
IDPartecipante   (chiave Esterna)
IDCorsoPartecipante     (Chiave Primaria)   in alternativa puoi usare la
coppia   IDCorso, IDPartecipante come chiave primaria.
Saluti
Cinzia


title: Relazioni tra tabelle

text:
> con una tabella di "transizione" che sfrutti per creare una relazione
"MOLTI a MOLTI"
> fatta almeno cos':
>
> rif_corso (numerico lungo da relazionare con IDCorso)
> rif_partecipante (numerico lungo da relazionare con IDPartecipante).
>
> ciao
> NIck
Si!
Esatto.
Scusate.. Ho lavorato troppo oggi!


title: Relazioni tra tabelle

text:
> Ciao vuLCan Karayan,
> E' un tipico caso di relazione Molti a Molti, un partecipante può
> partecipare a più corsi, un corso è frequentato da più partecipanti.
> Per fare questo tipo di relazione hai bisogno di una terza tabella
> CorsiPartecipanti  contenente i campi :
> IDCorso      (Chiave Esterna)
> IDPartecipante   (chiave Esterna)
> IDCorsoPartecipante     (Chiave Primaria)   in alternativa puoi usare la
> coppia   IDCorso, IDPartecipante come chiave primaria.
>
> Saluti
> Cinzia
Si, Cinzia, esatto.
Grazie.
E' che oggi non riesco a ingranare!


title: apertura query parametrata

author: Davide Pigoni

text:
Ho la necessità di creare ed aprire una query con parametri.
La query la crea senza problemi, ma quando provo ad aprire mi da un
messaggio di errore:
"Troppi pochi parametri, previsti 2."
Ho consultato il manuale dello sviluppatore di access97, e mi presentava
questa soluzione, ma non va.
Ecco il codice da me utilizzato (chiaramente la maschera fattura è aperta):
    Dim rt As Recordset, rm As Recordset, rr As Recordset, mq As QueryDef
    Dim strSQL As String, strPRM As String
    strPRM = "PARAMETERS daID Text, aID Text;"
    strSQL = strPRM & "SELECT IDCliente FROM [Bolle] WHERE ((IDCLiente)
between daID and aID);"
      Set mq = CurrentDb.CreateQueryDef("contacl", strSQL)
          mq.Parameters!daID = Forms!fattura!daIDCliente
          mq.Parameters!aID = Forms!fattura!aIDCliente
      Set rr = CurrentDb.OpenRecordset("contacl")
Grazie per l'interessamento.
Davide Pigoni


title: apertura query parametrata

author: Federico Luciani

text:

se devi aprirla non e' necessario parametrizzarla.
strSQL = "SELECT IDCliente FROM [Bolle] WHERE IDCLiente between " &
Forms!fattura!daIDCliente & " and " & Forms!fattura!aIDCliente
Set mq = CurrentDb.CreateQueryDef("contacl", strSQL)
mq.close
docmd.openquery "contacl"
se pero' e' una query che usi abitualmente, ti sconsiglio di ricrearla di
continuo;
createne una che fa riferimento ai due campi, cioe'
SELECT IDCliente FROM [Bolle] WHERE IDCLiente between Forms!fattura!daIDCliente
and Forms!fattura!aIDCliente
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: apertura query parametrata

text:
Federico Luciani wrote:
> se devi aprirla non e' necessario parametrizzarla.
>
> strSQL = "SELECT IDCliente FROM [Bolle] WHERE IDCLiente between " &
> Forms!fattura!daIDCliente & " and " & Forms!fattura!aIDCliente
> Set mq = CurrentDb.CreateQueryDef("contacl", strSQL)
> mq.close
> docmd.openquery "contacl"
>
> se pero' e' una query che usi abitualmente, ti sconsiglio di ricrearla di
> continuo;
> createne una che fa riferimento ai due campi, cioe'
>
> SELECT IDCliente FROM [Bolle] WHERE IDCLiente between
Forms!fattura!daIDCliente
> and Forms!fattura!aIDCliente
>
> --
> Federico
Grazie a Federico Luciani per avermi risposto,
ho provato a fare come nel II caso ma mi dice che ci sono: Troppi pochi
parametri.
Il motivo per il quale ho parametrizzato la query è che i controlli
daIDCliente e aIDCliente
sono delle caselle combinate non associate appartenenti alla maschera
fattura.
Sul manuale ho trovato che in questi rari casi è necessario definire i
parametri poiché altrimenti
si genera il suddetto errore.
Probabilmente non ho capito bene io la questione.
Ti sarò grato se potrai darmi maggiori delucidazioni.
Ciao e Buon Lavoro.
Davide


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Federico Luciani wrote:
> > se devi aprirla non e' necessario parametrizzarla.
> > strSQL = "SELECT IDCliente FROM [Bolle] WHERE IDCLiente between " &
> > Forms!fattura!daIDCliente & " and " & Forms!fattura!aIDCliente
> > Set mq = CurrentDb.CreateQueryDef("contacl", strSQL)
> > mq.close
> > docmd.openquery "contacl"
> > se pero' e' una query che usi abitualmente, ti sconsiglio di ricrearla di
> > continuo;
> > createne una che fa riferimento ai due campi, cioe'
> >
> > SELECT IDCliente FROM [Bolle] WHERE IDCLiente between
> Forms!fattura!daIDCliente
> > and Forms!fattura!aIDCliente
> Grazie a Federico Luciani per avermi risposto,
> ho provato a fare come nel II caso ma mi dice che ci sono: Troppi pochi
> parametri.
>
> Il motivo per il quale ho parametrizzato la query è che i controlli
> daIDCliente e aIDCliente
> sono delle caselle combinate non associate appartenenti alla maschera
> fattura.
> Sul manuale ho trovato che in questi rari casi è necessario definire i
> parametri poiché altrimenti
> si genera il suddetto errore.
> Probabilmente non ho capito bene io la questione.
> Ti sarò grato se potrai darmi maggiori delucidazioni.
Lascia stare il codice.
Crea una query senza scegliere alcuna tabella, visualizza SQL e copiaci dentro
questo:
SELECT IDCliente FROM Bolle WHERE IDCLiente Between Forms!fattura!daIDCliente
And Forms!fattura!aIDCliente
poi visualizza la struttura, cosi' puoi capire come funziona e salvala.
Adesso apri la form fattura, inserisci dei valori nei controlli daIDCliente e
aIDCliente e poi lancia la query.
Se vuoi aprire la query da codice, con un pulsante dalla form fattura, ti basta
eseguire:
Docmd.openquery "nomeQuery"



title: apertura query parametrata

text:
Federico Luciani wrote:
> Lascia stare il codice.
> Crea una query senza scegliere alcuna tabella, visualizza SQL e copiaci
dentro
> questo:
> SELECT IDCliente FROM Bolle WHERE IDCLiente Between
Forms!fattura!daIDCliente
> And Forms!fattura!aIDCliente
> poi visualizza la struttura, cosi' puoi capire come funziona e salvala.
>
> Adesso apri la form fattura, inserisci dei valori nei controlli
daIDCliente e
> aIDCliente e poi lancia la query.
>
> Se vuoi aprire la query da codice, con un pulsante dalla form fattura, ti
basta
> eseguire:
> Docmd.openquery "nomeQuery"
Ti ringrazio per avermi risposto un'altra volta.
E ho paura di aver creato una gran confusione.
La query suddetta non mi serve aperta per visualizzarne i dati o utilizzare
l'istruzione Docmd.openquery,
ma ho bisogno di utilizzare il metodo openrecordset per esguire un ciclo di
controllo così:
'La query è già creata con l'oggetto querydef, istruzioni SQL e PARAMETERS.
Set rs=currentdb.openrecordset ("miaquery")      ' e qui mi da il messaggio
di errore, oppure
Set rs= mq.openrecordset() 'stessa cosa
        'Vorrei poter fare così:
        rs.movefirst
        Do Until rs.EOF
        'Istruzioni
        Loop
Mi dispiace averti fatto perdere del tempo, e non voglio disturbarti
ulteriormente, mi hai già dedicato abbastanza tempo.
Ti sarò comunque grato se vorrai rispondermi.
Grazie Mille.
Davide


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Federico Luciani wrote:
> > [cut]
> La query suddetta non mi serve aperta per visualizzarne i dati o utilizzare
> l'istruzione Docmd.openquery,
> ma ho bisogno di utilizzare il metodo openrecordset per esguire un ciclo di
> controllo così:
> 'La query è già creata con l'oggetto querydef, istruzioni SQL e PARAMETERS.
> Set rs=currentdb.openrecordset ("miaquery")      ' e qui mi da il messaggio
> di errore, oppure
> Set rs= mq.openrecordset() 'stessa cosa
>         'Vorrei poter fare così:
>         rs.movefirst
>         Do Until rs.EOF
>         'Istruzioni
>         Loop
> Mi dispiace averti fatto perdere del tempo, e non voglio disturbarti
> ulteriormente, mi hai già dedicato abbastanza tempo.
allora, a meno che tu non abbia esigenze particolari, non ti serve creare la
query;
ti basta aprire un recordset sulla tabella filtrata, cioe'
dim strSQL as string
dim rs as recordset
strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente between " &
Forms!fattura!daIDCliente & " and " & forms!fattura!aIDCliente
Set rs = CurrentDb.openrecordset(strSQL)
rs.movefirst
Do
 'Istruzioni
 rs.movenext
Loop Until rs.EOF
quindi se:
Forms!fattura!daIDCliente = 1
Forms!fattura!aIDCliente = 100
la stringa sql diventa:
SELECT IDCliente FROM Bolle WHERE IDCLiente between 1 and 100



title: apertura query parametrata

text:
Federico Luciani wrote:
> allora, a meno che tu non abbia esigenze particolari, non ti serve creare
la
> query;
> ti basta aprire un recordset sulla tabella filtrata, cioe'
>
> dim strSQL as string
> dim rs as recordset
> strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente between " &
> Forms!fattura!daIDCliente & " and " & forms!fattura!aIDCliente
> Set rs = CurrentDb.openrecordset(strSQL)
>>[cut]
Grazie di nuovo, hai davvero una gran pazienza per sopportarmi ;-)
Il problema è che:
Set rs = CurrentDb.openrecordset(strSQL)
non lo fa.
In Debugging da il messaggio d'errore "Troppi pochi parametri".
Boh?!#*
Che dire? Se mi rispondi nuovamente...     G R A Z I E.
Davide


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Federico Luciani wrote:
> > allora, a meno che tu non abbia esigenze particolari, non ti serve creare
> la
> > query;
> > ti basta aprire un recordset sulla tabella filtrata, cioe'
> >
> > dim strSQL as string
> > dim rs as recordset
> > strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente between " &
> > Forms!fattura!daIDCliente & " and " & forms!fattura!aIDCliente
> > Set rs = CurrentDb.openrecordset(strSQL)
> >>[cut]
> Grazie di nuovo, hai davvero una gran pazienza per sopportarmi ;-)
> Il problema è che:
> Set rs = CurrentDb.openrecordset(strSQL)
> non lo fa.
> In Debugging da il messaggio d'errore "Troppi pochi parametri".
Hai messo i doppi apici al posto giusto?
Copia e incolla questo, funziona al 100%
Dim strSQL As String
Dim rs As Recordset
strSQL = "SELECT IDCliente FROM Bolle " & _
   "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
   " And " & Forms!fattura!aIDCliente
Debug.Print strSQL
Set rs = CurrentDb.OpenRecordset(strSQL)
rs.MoveFirst
Do
 Debug.Print rs![IdCliente]
 rs.MoveNext
Loop Until rs.EOF



title: apertura query parametrata

text:
Federico Luciani wrote:
> Hai messo i doppi apici al posto giusto?
> Copia e incolla questo, funziona al 100%
>
> Dim strSQL As String
> Dim rs As Recordset
> strSQL = "SELECT IDCliente FROM Bolle " & _
>    "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
>    " And " & Forms!fattura!aIDCliente
> Debug.Print strSQL
> Set rs = CurrentDb.OpenRecordset(strSQL)
> rs.MoveFirst
> Do
>  Debug.Print rs![IdCliente]
>  rs.MoveNext
> Loop Until rs.EOF
Ho paura che funzioni al 99.99999%, ed io ho proprio paura di essere quel
0.00001 sfortunato %.
Scherzi a parte, quanti reply si possono fare prima di bucare il monitor?
Io non so più che pesci prendere.
Il codice che mi hai dato và bene.
Infatti la stringa strSQL nell'immediata del debug è =
SELECT IDCliente FROM Bolle WHERE IDCLiente Between 12515 And 12516
ma su
Set rs = CurrentDb.OpenRecordset(strSQL)
mi salta furoi quel maledetto errore:
Errore di run-time '3061':
Parametri insufficienti. Previsto 1.
Grazie davvero tanto per il tuo interessatissimo interessamento.
Davide


title: apertura query parametrata

text:
Federico Luciani wrote:
> Hai messo i doppi apici al posto giusto?
> Copia e incolla questo, funziona al 100%
>
> Dim strSQL As String
> Dim rs As Recordset
> strSQL = "SELECT IDCliente FROM Bolle " & _
>    "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
>    " And " & Forms!fattura!aIDCliente
> Debug.Print strSQL
> Set rs = CurrentDb.OpenRecordset(strSQL)
> rs.MoveFirst
> Do
>  Debug.Print rs![IdCliente]
>  rs.MoveNext
> Loop Until rs.EOF
Ho paura che funzioni al 99.99999%, ed io ho proprio paura di essere quel



title: apertura query parametrata

text:
Io non lo so cosa diavolo è successo comunque adesso va!!
Federico, Grazie Mille per il tempo che mi hai dedicato ed ecco qui il
codice
per manipolare dati con controlli non associati di maschere.  "Funziona".
' Maschera "Valori" già aperta
  Dim rs As Recordset
  Dim strSQL As String, strPar As String
      strPar = "PARAMETERS daValore Text, aValore Text;"
      strSQL = strPar & "SELECT IDCliente FROM [Bolle] WHERE IDCliente
between " & _
      "[daValore] and [aValore];"
      ' verifica la stringa SQL
      Debug.Print strSQL
      Set mq = CurrentDb.CreateQueryDef("miaquery", strSQL)
      mq.Parameters("daValore") = Forms![Valori]!daValore
      mq.Parameters("aValore") = Forms![Valori]!aValore
      Set rs = mq.OpenRecordset()
      rs.quello che vuoi
  rs.close
  CurrentDb.QueryDefs.Delete ("miaquery")
Grazie e scusate per lo spazio occupato con tutti questi reply.
Ciao e Buon Lavoro
Davide


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Io non lo so cosa diavolo è successo comunque adesso va!!
> [cut]
Ok, ma ti ripeto, non ha senso che tu crei ed elimini una query tutte le volte
che devi fare operazioni di questo tipo.
Provala cosi e fammi sapere.
Dim strSQL As String
Dim dbs as database
Dim rs As Recordset
strSQL = "SELECT IDCliente FROM Bolle " & _
   "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
   " And " & Forms!fattura!aIDCliente
set dbs = currentdb()
Set rs = dbs.OpenRecordset(strSQL)
rs.MoveFirst
Do
 Debug.Print rs![IdCliente]
 rs.MoveNext
Loop Until rs.EOF
rst.close
set dbs = nothing



title: apertura query parametrata

text:
Davide Pigoni wrote:
> Io non lo so cosa diavolo è successo comunque adesso va!!
> [cut]
Ok, ma ti ripeto, non ha senso che tu crei ed elimini una query tutte le volte
che devi fare operazioni di questo tipo.
Provala cosi e fammi sapere.
Dim strSQL As String
Dim dbs as database
Dim rs As Recordset
strSQL = "SELECT IDCliente FROM Bolle " & _
   "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
   " And " & Forms!fattura!aIDCliente
set dbs = currentdb()
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
rs.MoveFirst
Do
 Debug.Print rs![IdCliente]
 rs.MoveNext
Loop Until rs.EOF
rst.close
set dbs = nothing



title: apertura query parametrata

text:
Federico Luciani wrote:
> Ok, ma ti ripeto, non ha senso che tu crei ed elimini una query tutte le
volte
> che devi fare operazioni di questo tipo.
>
> Provala cosi e fammi sapere.
>
> Dim strSQL As String
> Dim dbs as database
> Dim rs As Recordset
> strSQL = "SELECT IDCliente FROM Bolle " & _
>    "WHERE IDCLiente Between " & Forms!fattura!daIDCliente & _
>    " And " & Forms!fattura!aIDCliente
> set dbs = currentdb()
> Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
> rs.MoveFirst
> Do
>  Debug.Print rs![IdCliente]
>  rs.MoveNext
> Loop Until rs.EOF
> rst.close
> set dbs = nothing
Grazie per essere ancora qui.
Ho provato con il codice esattamente come sopra.
Risultato...
NIENTE DA FARE "Err. '3061'.
E' vero è assurdo creare una query ogni volta e poi cancellarla, solamente
per un'interrogazione.
Ma altrimenti cosa devo fare?
Come ho letto su un libro:
Inviate la risposta in busta chiusa a: Microsoft via Bill Gates, 1.
Scherzi a parte se ti viene in mente qualcos'altro sono prontissimo a
provarlo.
Grazie ancora.
Davide


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Federico Luciani wrote:
> [cut]
mah!!
prova a non usare i riferimenti, cioe':
strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente Between 1 And 10000"



title: apertura query parametrata

text:
Federico Luciani wrote:
> mah!!
> prova a non usare i riferimenti, cioe':
>
> strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente Between 1 And 10000"
E' assurdo mi da errore anche cosě ma che cos'č un problema di tabella o
cosa?
Davide


title: apertura query parametrata

text:

ma se crei una query di quel tipo funziona?
prova anche:
strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente >= 1 And IDCLiente <=
110000"



title: apertura query parametrata

text:
Federico Luciani wrote:
> ma se crei una query di quel tipo funziona?
>
> prova anche:
> strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente >= 1 And IDCLiente
<=
> 110000"
Stessa cosa.
Il problema che il dato IDCliente non è numerico ma è composto da un codice
alfanumerico di 6 caratteri (es.: FRASDF)
Se io creo una query con Access (senza codice e senza SQL) basata sulla
tabella
Bolle e nei criteri IDCliente Between Forms!Fattura...
La esegue senza problemi.


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Federico Luciani wrote:
> > ma se crei una query di quel tipo funziona?
> > prova anche:
> > strSQL = "SELECT IDCliente FROM Bolle WHERE IDCLiente >= 1 And IDCLiente
> Stessa cosa.
> Il problema che il dato IDCliente non è numerico ma è composto da un codice
> alfanumerico di 6 caratteri (es.: FRASDF)
ma porca malora!!! :-)
sbaglio o non m'avevi detto che IDCliente no e' numerico?
prova cosi', attento agli apici:
Dim strSQL As String
Dim dbs as database
Dim rs As Recordset
strSQL = "SELECT IDCliente FROM Bolle " & _
   "WHERE IDCLiente Between '" & Forms!fattura!daIDCliente & _
   "' And '" & Forms!fattura!aIDCliente & "'"
set dbs = currentdb()
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
rs.MoveFirst
Do
 Debug.Print rs![IdCliente]
 rs.MoveNext
Loop Until rs.EOF
rst.close
set dbs = nothing
--



title: apertura query parametrata

text:
> #zxy$!?%&$ malora!!! :-)
> sbaglio o non m'avevi detto che IDCliente no e' numerico?
>
> prova cosi', attento agli apici:
> Dim strSQL As String
> Dim dbs as database
> Dim rs As Recordset
> strSQL = "SELECT IDCliente FROM Bolle " & _
>    "WHERE IDCLiente Between '" & Forms!fattura!daIDCliente & _
>    "' And '" & Forms!fattura!aIDCliente & "'"
> set dbs = currentdb()
> Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
> rs.MoveFirst
> Do
>  Debug.Print rs![IdCliente]
>  rs.MoveNext
> Loop Until rs.EOF
> rst.close
> set dbs = nothing
Mai detto...   e mai smentito
Mi dispiace proprio tanto d'averti fatto perdere tanto tempo.
Adesso va tutto.
Era quindi solamente un problema di apici?
PaZzEsCo!!
Vado a ripassarmi bene a modino il metodo Openrecordset e tutta la sintassi
di VB.   :-((
Grazie e scusami ancora.
Alla prossima.
P.S.
Mi pare di aver capito tu sia del Lazio (forse). Io sono dell'Emilia.
Quando passi da queste parti  devo proprio offrirti da bere!!  :-)


title: apertura query parametrata

text:
Davide Pigoni wrote:
> Era quindi solamente un problema di apici?
> PaZzEsCo!!
> Vado a ripassarmi bene a modino il metodo Openrecordset e tutta la sintassi
> di VB.   :-((
il problema non e' in openrecordset.
quando si creano stringhe SQL usando delle variabili come criteri per i campi,
bisogna stare attenti:
- se IDCliente e' in formato testo
"SELECT IDCliente FROM Bolle WHERE IDCLiente='" & pippo & "'"
se pippo = 15
SELECT IDCliente FROM Bolle WHERE IDCLiente='15'
- se IDCliente e' in formato numerico
"SELECT IDCliente FROM Bolle WHERE IDCLiente= " & pippo
se pippo = 15
SELECT IDCliente FROM Bolle WHERE IDCLiente=15
> P.S.
> Mi pare di aver capito tu sia del Lazio (forse). Io sono dell'Emilia.
> Quando passi da queste parti  devo proprio offrirti da bere!!  :-)
Vivo a Trieste, ma per lavoro vado spesso a Bologna ;-)



title: apertura query parametrata

author: Davide

text:
Ti ringrazio ancora per questo ulteriore chiarimento.
Possiamo allora considerare chiuso questo argomento?
>> Mi pare di aver capito tu sia del Lazio (forse). Io sono dell'Emilia.
>Vivo a Trieste, ma per lavoro vado spesso a Bologna ;-)
Ci sono andato vicino vero? :-/
Io sono di Reggio Emilia, quindi se passi...
Scherzi a parte devo ancora farmi le ossa con Access.
Quindi potrà capitare ancora che io crei questi ingorghi.
Ciao e buon lavoro.
Davide
-----------------------
rimuovi mail per e-mail
-----------------------


title: NUMERAZIONE PROGRESSIVA PER FATTURE ETC.

text:
Ciao a tutti,
io avrei la necessità di creare un campo con numerazione progressiva
che non sia il campo contatore.
Smanettando qua e là nell'NG e nel sito comune ho trovato quello che
mi serviva, esattamente nella sezione General
6.17 Numerazione crescente per fatture ed altro.
Io però ho un esigenza in più, ovvero:
TbOrdini
IDOrdine - contatore - chiave primaria
IDCliente - testo
IDBolla - Testo o numerico (indifferente)
FleggBolla - sì/no
...e tutte le varie info relative all'ordine
QyBolle
Criteri FleggBolla - Vero
Ora, dalla MsOrdini inserisco tutti gli ordini e quando devo evaderne
uno fleggo il campo bolla e creo in automatico la bolla nella MsBolle
che ha come origine dati QyBolle.
Mi servirebbe che nel campo IDBolla ci fosse una numerazione
progressiva, quindi, nel momento in cui fleggo il campo bolle e mi si
aggiunge un nuovo record alla QyBolle a questo sia assegnato un numero
progressivo.
Con le info sopra citate questo ovviene solo nel nuovo record, nel
campo IDBolla del record appena inserito tramite il sistema appena
descritto non c'è nulla, ma se vado su un nuovo record è presente la
numerazione.
Mi scuso fin d'ora per la confusione e per la lunghezza del post.
Qualcuno sa aiutarmi?
Grazie mille.
Myc


author: Pablitomf

text:
<
m...@hotmail.it
> ha scritto nel messaggio
news:1193067038....@i13g2000prf.googlegroups.com...
> Ciao a tutti,
> io avrei la necessità di creare un campo con > numerazione progressiva
> che non sia il campo contatore.
ti fossilizzi a quanto pare...
che ne dici di dare un occhiatina ad accessgroup?
http://www.accessgroup.it/HomeArgomenti.asp?ID=126&Oggetto2=DB%20Fatturazione
Pablitomf


text:
>
> ti fossilizzi a quanto pare...
> che ne dici di dare un occhiatina ad accessgroup?
http://www.accessgroup.it/HomeArgomenti.asp?ID=126&Oggetto2=DB%20Fatt.
..
>
> Pablitomf
Grazie davvero per quest'indicazione, ma sono proprio alle prime armi
e non sono stata in grado di trarne alcun spunto.
Ho provato a copiare la formula presente nella Query1 relativa al
numero (cambiando le variabili) ma il campo rimane bianco.
Ho provato a copiare le proprietà della casella di controllo Num
presente nella maschera Fatture ma tutto ciò che ho ottenuto è il
colore giallo.
Ho provato a copiare la formula presente nella casella di controllo
Numero2 presente nella maschera Fatture, ma probabilmente sbaglio
qualcosa perchè una volta in modalità visualizzazione maschera nel
controllo c'è scritto #Nome?.
Saresti così gentile da darmi un ulteriore aiuto?
Grazie mille.
Myc


author: Davide (Sib)

text:
<
m...@hotmail.it
> ha scritto nel messaggio
CUT
Ora, dalla MsOrdini inserisco tutti gli ordini e quando devo evaderne
uno fleggo il campo bolla e creo in automatico la bolla nella MsBolle
che ha come origine dati QyBolle.
Mi servirebbe che nel campo IDBolla ci fosse una numerazione
progressiva, quindi, nel momento in cui fleggo il campo bolle e mi si
aggiunge un nuovo record alla QyBolle a questo sia assegnato un numero
progressivo.
CUT
-----------
Valorizza il campo nell'evento con la stessa formula.
Saluti
Davide (Sib)
--
www.gestionedati.com


text:
>
> Valorizza il campo nell'evento con la stessa formula.
>
> Saluti
>
> Davide (Sib)
Temo di non aver capito.
Dovrei copiare la formula che ho inserito nel Valore predefinito del
controllo IDBolla e copiarla in uno degli eventi dello stesso
controllo, esatto? ma quale? ho provato in tutti e non cambia nulla.
Scusa la mia ignoranza, mi sto impegnando per colmarla ;o)
Grazie
Myc


author: CIDI

text:
<
m...@hotmail.it
> ha scritto nel messaggio
news:1193213137....@k35g2000prh.googlegroups.com...

immagino che il tuo campo IDBolla sia numerico,
mentre la faq di Sib funziona con un campo Testo, controlla.
Daniele


text:
>
> immagino che il tuo campo IDBolla sia numerico,
> mentre la faq di Sib funziona con un campo Testo, controlla.
>
> Daniele
L'ho già modificato ma il problema rimane.
Grazie comunque.
Myc


text:
<
m...@hotmail.it
> ha scritto nel messaggio

Lo devi mettere nell'evento afterupdate del flag che spunti.
Davide(Sib)
--
www.gestionedati.com


text:

Con copia/incolla ho inserito la stessa formula presente nel valore
predefinito del campo IDBolla (MsBolle - origine dati QyBolle)
nell'evento Dopo aggiornamento del campo che fleggo, ovvero Bolla
(MsOrdiniClienti - origine dati Tb|OrdiniClienti)
="" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("[IDBolla]";"[QyOrdiniClienti]";"[IDBolla] like
'" & Format(Date();"aa") & "/???'"));
1;Right(DMax("[IDBolla]";"[QyOrdiniClienti]";"[IDBolla] like '" &
Format(Date();"aa") & "/???'");3)+1);"000")
ho provato anche a cambiare le variabili e a mettere
="" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("[Bolla]";"[Tb|OrdiniClienti]";"[Bolla] like '"
& Format(Date();"aa") & "/???'"));1;Right(DMax("[Bolla]";"[Tb|
OrdiniClienti]";"[Bolla] like '" & Format(Date();"aa") & "/???'");
3)+1);"000")
ma anche in questo caso non cambia nulla.
Non capisco in cosa sbaglio.
Grazie mille per la pazienza.
Myc


text:
<
m...@hotmail.it
> ha scritto nel messaggio
> On 25 Ott, 00:04, "Davide \(Sib\)" <sedavideN...@Mtiscali.it> wrote:
>> <
m...@hotmail.it
> ha scritto nel messaggio
>>
>> >> Valorizza il campo nell'evento con la stessa formula.
>>
>> >> Saluti
>>
>> >> Davide (Sib)
>>
>> > Temo di non aver capito.
>> > Dovrei copiare la formula che ho inserito nel Valore predefinito del
>> > controllo IDBolla e copiarla in uno degli eventi dello stesso
>> > controllo, esatto? ma quale? ho provato in tutti e non cambia nulla.
>> > Scusa la mia ignoranza, mi sto impegnando per colmarla ;o)
>>
>> Lo devi mettere nell'evento afterupdate del flag che spunti.
>> Davide(Sib)
>>
>> --
www.gestionedati.com
>
> Con copia/incolla ho inserito la stessa formula presente nel valore
> predefinito del campo IDBolla (MsBolle - origine dati QyBolle)
> nell'evento Dopo aggiornamento del campo che fleggo, ovvero Bolla
> (MsOrdiniClienti - origine dati Tb|OrdiniClienti)
>
> ="" & Format(Date();"aa") & "/" &
> Format(IIf(IsNull(DMax("[IDBolla]";"[QyOrdiniClienti]";"[IDBolla] like
> '" & Format(Date();"aa") & "/???'"));
> 1;Right(DMax("[IDBolla]";"[QyOrdiniClienti]";"[IDBolla] like '" &
> Format(Date();"aa") & "/???'");3)+1);"000")
Scusa l'eccessiva sintesi delle mie risposte, la fretta purtroppo regna.
Comunque copiando la formula nel codice VBA devi sostituire i punti e
virgola con la virgola e le aa in yy.
Saluti
Davide(Sib)
--
www.gestionedati.com


text:

> --www.gestionedati.com- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Perfetto, ce l'abbiamo fatta!
Inserito questo codice:
IDBolla.Value = "" & Format(Date, "yy") & "/" &
Format(IIf(IsNull(DMax("[IDBolla]", "[QyOrdiniClienti]", "[IDBolla]
like '" & Format(Date, "yy") & "/???'")), 1, Right(DMax("[IDBolla]",
"[QyOrdiniClienti]", "[IDBolla] like '" & Format(Date, "yy") &
"/???'"), 3) + 1), "000")
Grazie infinite!!
Myc


title: eliminare spazi prima e dopo i due punti

author: Alberto Luzi

text:
Salve!
è possibile da questa stringa
165/22 mio.Bl  :    4385940
ottenere: 165/22 mio.Bl: 4385940
in vba?
ma gli spazi qui (mio.Bl  :    4385940) non sono sempre gli stessi, possono variare.
Grazie


author: BFS

text:

fino a 20 spazi

Dim strStart As String
Dim i As Integer

strStart = "165/22 mio.Bl  :       4385940"

For i = 1 To 20
     strStart = Replace(strStart, ":  ", ": ")
     strStart = Replace(strStart, " :", ":")
Next i

Debug.Print strStart

BFS


text:

grazie


text:

oppure cosi ti funziona per qualsiasi numero di spazi

Dim strStart As String
Dim strParti() As String

strStart = "165/22 mio.Bl     :          4385940"
strParti = Split(strStart, ":")

strStart = RTrim(strParti(0)) & ": " & LTrim(strParti(1))

Debug.Print strStart

BFS


text:

ancora grazie


author: Ammammata

text:
Il giorno Fri 25 Feb 2022 02:22:18p, *BFS* ha inviato su
it.comp.appl.access il messaggio news:sval6a$1g76$
1...@gioia.aioe.org
.
Vediamo cosa ha scritto:

soluzioni agili e intelligenti, bravo

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


text:

e nei casi in cui manca  "mio.Bl : 4385940"?
mi da errore


text:

descrivi bene che tipo di casistiche possono esserci

io ho dato per scontato che sono tutte stringe del tipo
"165/22 mio.Bl : 4385940"

se le casistiche sono solo due, questa qui sopra e quella senza "mio.Bl
  : .."

ti basta modificarla cosi

Dim strStart As String
Dim strParti() As String

strStart = "165/22 mio.Bl     :          4385940 "
strParti = Split(strStart, ":")
If UBound(strParti) = 0 Then
     strStart = RTrim(strParti(0))
Else

     strStart = RTrim(strParti(0)) & ": " & LTrim(strParti(1))
End If
Debug.Print strStart

il tutto funziona se hai solo un ":" nella tua stringa

BFS


text:

grazie 1000


title: Immagine collegata in access 2007

author: mimì

text:
Ciao a tutti,
ho creato una maschera del personale dipendente e copiando un modulo
che ho trovato in rete sono riuscito a collegare la foto, formato jpg,
di ogni dipendente nella maschera.
Nella maschera ho una cornice Immagine (ImageFrame), dove si vede la
foto, ed un campo txt (txtImageName), in cui vado ad inserire il
percorso dove si trova la foto collegata.
Ora vorrei capire come si fà con un CmdButton ad inserire il percorso
senza doverlo scrivere ogni volta che aggiungo un nuovo dipendente.
Grazie


title: Immagine collegata in access 2007

author: Lolince

text:

in un modulo codia il seguente codice:
Option Compare Database
Option Explicit
'Dichiarazioni
 Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
             Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
 Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
 End Type
 Public Function cmdlg_file(sInitDir As String, sFilter As String)
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    OpenFile.hwndOwner = Application.hWndAccessApp
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = sInitDir
    OpenFile.lpstrTitle = "Selezione"
    OpenFile.Flags = 0
    lReturn = GetOpenFileName(OpenFile)
    If lReturn = 0 Then
       cmdlg_file1 = ""
    Else
       cmdlg_file1 = Left(OpenFile.lpstrFile,
InStr(OpenFile.lpstrFile, Chr$(0)) - 1)
    End If
 End Function
poi nel tuo pulsante :
Dim strDatabase As String
    strDatabase = cmdlg_file()
    If strDatabase = "" Then Exit Sub
    Me.percorso = strDatabase ' (il percorso e il campo dove inserisci
il percorso).
Ciao


title: Immagine collegata in access 2007

text:

Ps. Chiedo scusa devi eliminare il numero 1su cmdlg_file1 deve essere
cmdlg_file
Ciao


title: Immagine collegata in access 2007

text:

> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
Innanzitutto grazie,
ho copiato il tuo codice sia nel modulo (l'ho nominato modulo2) che
nel pulsante, ma quando clicco sul pulsante si apre la finestra VB e
sulla riga
    strDatabase = cmdlg_file()
mi appare l'errore di compilazione: argomento non facoltativo.
Scusa l'ignoranza ma non capisco che cosa manca.
Ciao e grazie


title: Immagine collegata in access 2007

text:

Manca il riferimento dao 3.6, apri il modulo , vai in strumenti e
riferimenti , ricerca e attiva Microsoft dao 3.6
Ciao


title: Immagine collegata in access 2007

text:

Ho messo la spunta sul riferimento Microsoft dao 3.6, ma ricevo lo
stesso messaggio di prima.
P.S.
nella maschera ho anche un campo txt non associato, chiamato
txtImageNote, dove mi appare la nota se l'immagine c'è o non è stata
trovata. Può influire anche quello?
grazie e ciao


title: Immagine collegata in access 2007

text:
Allora ricapitoliamo:
 nel modulo copio il seguente codice:
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _

Public Function cmdlg_file() As String
   'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Database di Microsoft Access (*.*)" & Chr(0) & "*.*" &
Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Seleziona file"
   OpenFile.Flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
   End If
End Function
nel pulsante della maschera:
Dim strDatabase As String
    strDatabase = cmdlg_file()
    If strDatabase = "" Then Exit Sub
    Me.percorso = strDatabase
e attivo il riferimento dao 3.6
Ps. ricopia la funzione nel modulo spesso copiando e incollando salta
qualcosa
Ciao


title: Immagine collegata in access 2007

text:

Funziona perfettamente ora, ancora grazie mille
Ciao


title: L'operatore Like

text:
Ciao,
devo realizzare una query con un parametro.
Per esempio la query di base potrebbe essere questa:
SELECT [LISTA].NOME
FROM [LISTA]
ORDER BY [LISTA].NOME;
Per poter inserire un parametro l'ho trasformata cosě:
SELECT [LISTA].NOME
FROM [LISTA]
WHERE ((([LISTA].NOME) Like [Forms]![contab]![RIC_NOME] & '*'))
ORDER BY [LISTA].NOME;
Perň in questo modo mi fa vedere solo quei record pieni, scartandomi tutti i
campi vuoti. Mentre per il lavoro che devo realizzare devo visualizzare pure
quelli.
Qualcuno conosce la forma corretta (o un'istruzione simile al like)per far
questo?
Grazie e buona giornata
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: L'operatore Like

author: Antonio Biso

text:
"port77" <
ghigl...@libero.it
> ha scritto nel messaggio
news:81Z72Z97Z125Y1...@usenet.libero.it...
> Ciao,
> devo realizzare una query con un parametro.
> Per esempio la query di base potrebbe essere questa:
>
> SELECT [LISTA].NOME
> FROM [LISTA]
> ORDER BY [LISTA].NOME;
>
> Per poter inserire un parametro l'ho trasformata cosě:
>
> SELECT [LISTA].NOME
> FROM [LISTA]
> WHERE ((([LISTA].NOME) Like [Forms]![contab]![RIC_NOME] & '*'))
> ORDER BY [LISTA].NOME;
>
> Perň in questo modo mi fa vedere solo quei record pieni, scartandomi tutti
i
> campi vuoti. Mentre per il lavoro che devo realizzare devo visualizzare
pure
> quelli.
Il criterio like mettilo sotto un campo calcolato fatto cosě
nz([LISTA].NOME;"-")
Antonio


title: L'operatore Like

author: Alessandro S

text:
SELECT [LISTA].NOME
FROM [LISTA]
WHERE ((([LISTA].NOME) Like [Forms]![contab]![RIC_NOME] & '*'))
       OR [LISTA].NOME is null
ORDER BY [LISTA].NOME;
cosě dovrebbe andare bene!
ghigl...@libero.it
 (port77) wrote in message news:<
81Z72Z97Z125Y1...@usenet.libero.it
>...



title: Dettagli MDB Libri - HELP!!

author: Stefano Amadei

text:
Ciao,
Il mio DB funzionava così:
All'apertura c'era il classico autorun (macro normale di A97) che diceva
questo:
MACRO AUTOEXEC
Azione:
RiduciAIcona
ApriMaschera (e questa me la apre!!)
                            Nome Maschera: Selezione
                            Visualizza: Maschera
                            Modalità finestra: Normale
Questa maschera contiene dei bottoni che sono collegati a una macro.
Uno di questi bottoni doveva far ridurre a icona la maschera coi bottoni e
aprire la maschera Libri Letti.
La macro dice così:
MACRO LIBRI LETTI
Azione:
RiduciAIcona (FIN QUI LA ESEGUE)
ApriMaschera (e questa NON me la apre!!)
                            Nome Maschera: Libri Letti
                            Visualizza: Maschera
                            Modalità finestra: Normale
e mi presenta questo:
Azione non riuscita:
 Nome macro: Macro1
 Condizione: Vero
 Nome azione: ApriMaschera
 Argomenti: Libri letti; Maschera; ; ; ; Normale
A mio avviso lui la Maschera me la aprirebbe anche, ma deve esserci qualcosa
che non quaglia all'interno della tabella perchè non me la apre dicendomi
questo
 Impossibile aprire la tabella in visualizzazione foglio dati. (in struttura
me la apre!!)
Sono quasi disperato. Cosa c'è che non va? saranno i collegamenti
uno-a-molti con le altre tabelle (che apre normalmente???) O le ricerche che
vi ho scritto l'altro giorno?
Ripeto non c'è una riga di codice.
Ho anche provato a rifarla da zero vuota, ma non la apre ugualmente. Dubito
suano i dati, quindi deve essere qualcosa nell'impostazione. Ho provato
anche atogliere l'integrità preferenziale ma nulla di fatto!!
Io per macro intendo quelle sceme selezionate con le combo, non mi sono
messo a scrivere codice VBA, perchè non ne sono capace.
Come faccio a convertire le macro e, una volta convertite, come faccio se
qualcosa non va?
Ringrazio in anticipo, Stefano


title: Dettagli MDB Libri - HELP!!

author: Sergio MAZZA

text:
"Stefano Amadei" <
ama...@ngi.it
> ha scritto nel messaggio
news:6hOx4.21$O3....@news.infostrada.it...
------------- ommissis ----------------------
> Io per macro intendo quelle sceme selezionate con le combo, non mi sono
> messo a scrivere codice VBA, perchè non ne sono capace.
>
> Come faccio a convertire le macro e, una volta convertite, come faccio se
> qualcosa non va?
>
> Ringrazio in anticipo, Stefano
>
Vorresti convertire le macro in codice? Diciamo che è semplice; ogni azione
che imposti nelle macro la puoi impostare nei moduli integrandola con codice
(simil-basic) VBA. Come inizio consulta l'help e vedrai che non scriverai
più una macro..
Comunque; per il tuo caso:
per quanto riguarda i bottoni che aprono le maschere, l'autocomposizione già
ti aiuta a crearne uno che fa quello che vuoi, poi in struttura maschera
prendi le proprietà del bottone e scegli la scheda "eventi", noterai che
l'unico evento presente è "su clic"; clicca sulla riga dell'evento, alla
destra compare un bottone (piccolo) con tre punti (generatore di
espressioni), cliccaci sopra e sei dentro l'azione che eseguirà il bottone.
Dovresti trovare una cosa del tipo:
Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "campi"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando2_Click:
    Exit Sub
Err_Comando2_Click:
    MsgBox Err.Description
    Resume Exit_Comando2_Click
End Sub
l'istruzione che ti interessa è "docmd" che esegue dei comandi (appunto) e
in questo caso è openform, per i parametri basta che clicchi su openform e
premi F1.
Per ridurre ad icona (minimizzare) la maschera precedente dovrai inserire
l'istruzione  DoCmd.Minimize. Avrai notato che appena scrivi docmd ed il
punto Access ti presenta una lista delle possibili scelte, non devi fare
altro che trovare quella che fa al caso tuo e premere invio o tab; Access
nella maggior parte della scrittura del codice ti guiderà segnalandoti se
hai omesso parametri o commesso errori. Un consiglio, scrivi in minuscolo e
access se hai scritto l'istruzione bene te la "capitalizza"
(maiuscoletto?!).
Quindi per farla breve il tuo codice sarebbe:
Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.Minimize    'minimizza questa maschera
    stDocName = "campi"
    DoCmd.OpenForm stDocName, , , stLinkCriteria    'apre la maschera
Exit_Comando2_Click:
    Exit Sub
Err_Comando2_Click:
    MsgBox Err.Description
    Resume Exit_Comando2_Click
End Sub
Poi chiudi ed esegui la maschera..
Ciao.


title: per prelevare solo la directory al posto del file

author: Arold

text:
sapete come poter modificare la funzione qui sotto per prelevare una
cartella anzichč un file
Public Sub ShowFile3(frm As Form, fb As OPENFILENAME)
    Dim fName As String
    Dim result As Long
    Dim path As String
    path = "c:\"
    With fb
        .lStructSize = Len(fb)                      'Size of the structure
        .hwndOwner = frm.hwnd                       'Handle to window
opening the dialog
        .hInstance = 0                              'Handle to calling
instance (not needed)
        .lpstrFilter = "Tutti i File (*.mdb)" & vbNullChar & "*.mdb" &
vbNullChar
                        '& "GIF Files (*.gif)" & vbNullChar & "*.bmp" &
vbNullChar _
                        '& "JPG Files (*.jpg)" & vbNullChar & "*.bmp" &
vbNullChar & vbNullChar
        '.lpstrCustomFilter is ignored -- unused string
        .nMaxCustomFilter = 0
        .nFilterIndex = 1                           'Default filter is the
first one (Text Files, in this case)
        .lpstrFile = Space(256) & vbNullChar        'No default filename.
Also make room for received path and _
                                                     filename of the user's
ion.
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar   'Make room for filename
of the user's ion
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar        'Initial directory is
C:\
        .lpstrTitle = "Seleziona la Foto" & vbNullChar    'Title of file
dialog
        .Flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0                            'The rest of the options
aren't needed.
        .nFileExtension = 0
        '.lpstrDefExt is ignored -- unused string
        .lCustData = 0
        .lpfnHook = 0
        '.lpTemplateName is ignored -- unused string
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
grazie.


author: Jonathan Canova

text:
Servito:
Option Compare Database
Option Explicit
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lparam As Long
    iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = &H1&
' Sfoglia cartelle
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function BrowseFolder(szDialogTitle As String) As String
  Dim X As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    If X Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = ""
    End If
End Function
--
Jonathan Canova
www.aladinoinformatica.com


text:
wseFolder = ""
>     End If
> End Function
>
>
>
grazie.


text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bhsq0m$49t$1...@lacerta.tiscalinet.it...
> wseFolder = ""
> >     End If
> > End Function
> >
> >
Ho un problema perň
io la mia funzione postata  la usavo cosi su click del pulsante
    Call ShowFile(Me, fb)
    fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    If fName <> "" Then
        Forms![aziendali]![percorso]![PathTabelle] = fName
    End If
come uso la tua?
Grrazi.e


text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bht966$bjj$1...@lacerta.tiscalinet.it...
> Ho un problema perň
> io la mia funzione postata  la usavo cosi su click del pulsante
...
> come uso la tua?
fName = BrowseFolder("Titolo")
If fName <> "" Then
     Forms![aziendali]![percorso]![PathTabelle] = fName
End If
Ciao!


title: Individuare posizione attuale in un file di testo

author: Nick

text:
è possibile mentre si scrive un file di testo (aperto in append) sapere
dopo aver scritto una determinata stringa a quale numero di colonna sono
arrivato?
Avrei questa necessità perchè devo creare un file di testo in cui ogni
record è lungo 1900 caratteri ( o colonne che dir si voglia) e ci sono
acluni tipi di record che hanno numerosi campi facoltavivi che vengono
omessi, pertanto mi serve sapere (una volta scritta l'ultima cosa per
quel record) sapere a che colonna sono e aggiungere tanti spazi quanti
ne servono per arrivare a 1900 (evitando di dover chiudere e riaprire il
file ogni volta).
Avete suggerimenti?
Grazie
ciao
Nick


author: Gaspare

text:
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio
news:Uuc4e.45044$zZ1.1...@twister1.libero.it...

Ciao,
mi puoi dire quali campi (nomi e tipologie) costituiscono i tuoi records?


text:
Nick ha detto: in data 05/04/2005 9.26:
> [CUT]
>
>>
>>
>> Ciao,
>> mi puoi dire quali campi (nomi e tipologie) costituiscono i tuoi records?
>>
>
> che c'entra?
> sono i dati di una dichiarazione... in omi e valori di campi sono
> rissunti in 100 pagine..non so se è il caso :)
>
> ciao
> Nick
dimenticavo, se vuoi le info dettagliate le trovi su
www.inpdap.it

(sezione DMA)
ciao
Nick


text:
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio
news:H5r4e.26180$IN.5...@twister2.libero.it...

Scusa,
effettivamente sono un "ignorante"..vedrai che qualcuno ti aiuterà
Gaspare


text:
[CUT]
>
>
> Ciao,
> mi puoi dire quali campi (nomi e tipologie) costituiscono i tuoi records?
>
>
che c'entra?



text:
Gaspare ha detto: in data 05/04/2005 9.34:

Oggi sono un po' pignolo e non voglio lasciare i discorsi a metà (ormai
siamo pure OT) non capisco il tuo "ignorante" e non vorrei che tu abbia
frainteso le mie risposte...
quello che intendevo dire è che il mio quesito va oltre il tipo di dato
che scrivo...pertanto la tua domanda mi sembrava OT rispetto
all'argomento. Tutto qua.
Ciao
Nick


text:
"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio
news:Mjr4e.26200$IN.5...@twister2.libero.it...

Io pensavo che sulla base di come è strutturato un file si può dedurre la
maniera migliore per accedervi....evidentemente mi sbaglio...
Buona giornata
Gaspare :-)


author: Alessandro Baraldi

text:
Nick ha scritto:



Che tipo di file di testo stai parlando...?
Se fosse NotePad non esiste nessuna divisione in Colonne, ma
eventualmente in Righe.
Il fatto che tu possa usare un File di Testo per esportare
dati del Database non significa che mantenga formattazioni
da Database.
Access riconosce i caratteri di Separazione ma sono all'interno
della singola RIGA e solo dopo l'importazione hai la conversione
in Colonne.
Per il tipo d'informazioni che hai dato servirebbe una Sfera di cristallo
per capire cosa devi fare, ma soprattutto se realmente stai facendolo
nel modo corretto.
Saluti.
@Alex
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Alessandro Baraldi ha detto: in data 05/04/2005 13.32:
> Nick ha scritto:
>
>
>>è possibile mentre si scrive un file di testo (aperto in append) sapere
>>dopo aver scritto una determinata stringa a quale numero di colonna sono
>>arrivato?
>
>
>>Avrei questa necessità perchè devo creare un file di testo in cui ogni
>>record è lungo 1900 caratteri ( o colonne che dir si voglia) e ci sono
>>acluni tipi di record che hanno numerosi campi facoltavivi che vengono
>>omessi, pertanto mi serve sapere (una volta scritta l'ultima cosa per
>>quel record) sapere a che colonna sono e aggiungere tanti spazi quanti
>>ne servono per arrivare a 1900 (evitando di dover chiudere e riaprire il
>>file ogni volta).
>
>
>>Avete suggerimenti?
>>Grazie
>>ciao
>>Nick
>
>
> Che tipo di file di testo stai parlando...?
> Se fosse NotePad non esiste nessuna divisione in Colonne, ma
> eventualmente in Righe.
aprendo anche con bolc note (di Winxp) o con un decente programma per
edit di file testo (EditPad, DevC++, ecc)  c'è quella che io (e questi
programmi) chiamo la colonna, ovvero la posizione del cursore definita
in riga (record) e colonna (carattere)
> Il fatto che tu possa usare un File di Testo per esportare
> dati del Database non significa che mantenga formattazioni
> da Database.
>
Le formattazioni le gesisco, non è questo il problema
> Access riconosce i caratteri di Separazione ma sono all'interno
> della singola RIGA e solo dopo l'importazione hai la conversione
> in Colonne.
>
> Per il tipo d'informazioni che hai dato servirebbe una Sfera di cristallo
> per capire cosa devi fare, ma soprattutto se realmente stai facendolo
> nel modo corretto.
>
> Saluti.
> @Alex
>
Provo a rispiegare...
Sto creando un file di testo nel quale inserisco i vari dati (per ogni
record o riga) uno in coda all'altro.
Purtroppo essendoci dei campi facoltativi, può capitare che la riga che
sto scrivendo sia minore della lunghezza di 1900 caratteri (o colonne).
Chiedevo se esistema un metodo (mentre il file è aperto in scrittura)
attraverso il quale scritto l'ultimo elemento della riga mi dia il
numero della colonna in cui sono, ovvero quanti caratteri ho scritto
fino ad ora per quel record.
Ad esempio questo si può ottenere con la funzioen get che carica in una
variabile stiringa la riga letta in un file, successivamente con
len(variabile) posso sapere quanti caratteri sono.
Il mio problema è che vorrei evitare di dover riaprire il file ogni
volta per modificare la lunghezza della riga e portarla a 1900.
Ho espresso meglio il problema?
Grazie
Ciao
Nick


author: namor

text:
Nick ha scritto:



Accoda i vari valori in una stringa e conta i caratteri prima di scriverli
sul file accodando direttamente il numero di spazi mancanti.
dim str as string
  str = ...
  str = str & .....
  str = str & .....
  ...
  print #1, str & space$(1900-len(str))
Namor
--
namor at inwind punto it



text:
namor ha detto: in data 05/04/2005 14.54:
> Nick ha scritto:
>
>
>>è possibile mentre si scrive un file di testo (aperto in append) sapere
>>dopo aver scritto una determinata stringa a quale numero di colonna sono
>>arrivato?
>
>
>>Avrei questa necessità perchè devo creare un file di testo in cui ogni
>>record è lungo 1900 caratteri ( o colonne che dir si voglia) e ci sono
>>acluni tipi di record che hanno numerosi campi facoltavivi che vengono
>>omessi, pertanto mi serve sapere (una volta scritta l'ultima cosa per
>>quel record) sapere a che colonna sono e aggiungere tanti spazi quanti
>>ne servono per arrivare a 1900 (evitando di dover chiudere e riaprire il
>>file ogni volta).
>
>
>>Avete suggerimenti?
>>Grazie
>>ciao
>>Nick
>
>
> Accoda i vari valori in una stringa e conta i caratteri prima di scriverli
> sul file accodando direttamente il numero di spazi mancanti.
>
> dim str as string
>   str = ...
>   str = str & .....
>   str = str & .....
>   ...
>   print #1, str & space$(1900-len(str))
>
> Namor
>
>
Questa era una delle solzioni che mi erano venute in mente.. se non ne
trovo altre mi sa che usaerò questa.
Grazie
ciao
Nick


text:
Nick ha scritto:




Non vedo perchè cercarne altre, questa è la più semplice e veloce.
O c'è qualche altro elemento da valutare?



text:
namor ha detto: in data 05/04/2005 15.47:

Ci sto pensando se c'è altro :)...(oltre a cambiare le istruzioni che ho
già scritto)
Grazie per l'interessamento, al max mi faccio risentire ;)
Ciao
Nick


title: query con parametro "Si" - "No"

author: maurizio

text:
Ciao a tutti
in una query ho un campo del tipo si/no vorrei che mandando in
esecuzione la query l'utente sia costretto s scegliere se si o no
rispondendo ad una semplice domanda.
mi sto perdendo in una stro.....ta ma non ne esco
chi mi da una mano?


title: query con parametro "Si" - "No"

text:
"maurizio" <
vos...@email.it
> wrote in message
news:DfNJe.42086$
2U1.2...@news3.tin.it

Per filtrare i dati conviene usare una Maschera come interfaccia
in modo da sfruttare i controlli come OptionGroup(oppure
option button a seconda di come vpreferisci) oppure una Combo
per la selezione del criterio.
Tieni presente che dovrai poi costruire il criterio da passare
inserendo un condizionamento nellla clausola WHERE della
query stessa(esempio con OptionButton):
SELECT * FORM NomeTabella
WHERE IIF(Forms!NomeControllo=1;True;False)
Non avendo specificato l'uso che ne fai della Query non posso
aggiungere altro.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: query con parametro "Si" - "No"

text:
Alessandro Baraldi ha scritto:

con la query creo un report, inoltre siccome nella query c'è già un
criterio WHERE Between [data di inizio] And [data di fine] pensavo di
poter inserire un ulteriore criterio di filtro senza creare maschere


title: query con parametro "Si" - "No"

text:
"maurizio" <
vos...@email.it
> wrote in message
news:umNJe.57127$
fm.37...@news4.tin.it
[CUT]
> con la query creo un report, inoltre siccome nella query c'è già un
> criterio WHERE Between [data di inizio] And [data di fine] pensavo di
> poter inserire un ulteriore criterio di filtro senza creare maschere
Questione di abitudine o di preferenze.
Io non uso mai quel metodo per l'inserimento dei parametri
in quanto non ti consente l'eventuale gestione di Errori
o di errate immissioni.
Ovviamente puoi benissimo fare come dici, ma devi poi digitare
-1(per SI) o 0(per NO), quindi diventa decisamente poco agevole.



title: sincronizzare combobox che si trovano in forms diverse

text:
Salve a tutti
Vorrei sincronizzare due combobox non associate che si trovano in due
forms diverse.
La situazione è questa:
Ho una forms denominata "MsTaglie" con all'interno una combo "taglia"
basata sulla tabella "TbTaglie" con i seguenti campi: IdTaglia (contatore
e chiave primaria) e Taglia (testo).
Ho un'altra forms denominata "MsNrTaglie" con all'interno una combo
"NrTaglia" che si basa sulla tabella "TbNrTaglia" con i seguenti campi:
IdNrTaglia (contatore e chiave primaria), taglia (testo) e NrTaglia
(testo).
Entrambe, dopo aver selezionato un valore, si chiudono ed inseriscono il
dato nella casella di testo "Val" che si trova all'interno di una subform
continua denominata "SmMagazzino" (inserita in una mainform denominata
"MsMagazzino"). Vorrei sincronizzare la combo "Nrtaglia" con la scelta
fatta nella combo "taglia" oppure (se è più facile) sincronizzare la combo
"Nrtaglia" con il valore inserito nella casella di testo "Val".
Mi è stato suggerito questo:
metti Forms!Mstaglie!taglia.column(1) nell'origie controllo dell'altra
form come criterio
Ma devi fare un requery del controllo su Enter
Io però non credo di aver capito.
"metti forms!MsTaglie!Taglia.column(1) nell'origine controllo dell'altra
form".... si intende dire  - origine riga - , come espressione criterio
sotto al campo taglia....giusto? O sbaglio....
Poi cosa si intende per "fare un requery del controllo su Enter"?
Così?:
Private Sub NrTaglia_Enter()
Me!Taglia.Requery
End Sub
Ringrazio tutti quelli che avranno tempo di aiutarmi
Ciao


text:

Hai già seguito l'esempio sul sito comune?
Sezione Form
3.77 Sincronizzare in una maschera due o più caselle combinate ASSOCIATE tra
loro in gerarchia
3.73 Sincronizzare in una maschera due o più caselle combinate tra loro NON
in gerarchia
3.72 Sincronizzare in una maschera due o più caselle combinate tra loro in
gerarchia
Ciao.
--
Sergio MAZZA


title: tabella di access convertita

author: Gabriele

text:
Dopo aver convertito un software  da access 2000 a sql ( in particolare
MSDE ) , non ci sono piů i file MDB !
Come apro le tabelle del database adesso?
Ciao e grazie


title: tabella di access convertita

author: ALESSANDRO Baraldi

text:
"Gabriele" <pip...@gert.iu> ha scritto nel messaggio
news:URdCe.169732$75.73...@news4.tin.it...
> Dopo aver convertito un software  da access 2000 a sql ( in particolare
> MSDE ) , non ci sono più i file MDB !
> Come apro le tabelle del database adesso?
>
> Ciao e grazie
Le Tabelle solamente sono state spostate, ora devi aprire un File
MDB e realizzare una connessione tramite ODBC al SERVER MSDE
per Linkare le Tabelle.
Utilizza la procedura guidata per il Collegamento delle Tabelle.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: tabella di access convertita

author: gabrieleeee

text:
> Le Tabelle solamente sono state spostate, ora devi aprire un File
> MDB
Questo č un nuovo file MDB vuoto che mi creo , giusto?
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: casella testo ricerca cognome

author: bb

text:
in una maschera done ho le generalità del personale,ho inserito una
casella combinata con tipo origine riga "tabella \query" e nella origine
riga ho messo "SELECT DISTINCTROW Tblanagrafica.cognome,
Tblanagrafica.nome FROM Tblanagrafica;" nell'eseguirla, mi fa vedere i
cognomi e nomi del personale, ma una volta selezionato una persona, la
maschera non si posiziona sul record della persona cercata, ma rimane
sempre il primo record.
Come faccio a selezionare la persona giusta selezionandola da questa
casella combinata?
Dovrei associare la matricola o il cognome alla casella combinata, ma non
so farlo!!!
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: casella testo ricerca cognome

author: Neo

text:
"bb" <
onof...@tin.it
> ha scritto nel messaggio news:bu3glp$crc$1...@news.newsland.it...

nell'evento "dopo aggiornamento" della casella combinata aggiungi:
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Me![CasellaCombinata])
    Me.Bookmark = rs.Bookmark
cambiando il campo [ID] con il nome del campo a cui è associata la tua casella combinata e il campo
[CasellaCombinata] con il nome della tua casella combinata.
se la tua casella non è associata a nessun campo insersci prima di tutte le altre colonen che
visualizzi un campo nascosto con il campo univoco (es. id oppure maticola) e associa nelle proprietà
della casella questo campo...
spero di essere stato chiaro


title: casella testo ricerca cognome

text:
grazie della dritta!!!
anche se ho dovuto fare delle modifiche al tuo suggerimento, ci sono
riuscito!
grazie!



title: Combo in subform.requery

author: Express

text:
è facile intuire cosa tratta il mio messaggio:
nella MiaMaschera ho la MiaSottomaschera in cui ho il controllo combo
"principioa" che è impostata a solo in elenco e prende i dati dalla
MiaTabella.
Quando la voce non'è presente in elenco con doppio click in principioa, vado
in MiaTabella (con la sua relativa maschera) inserisco la voce mancante e
con un click oltre che chiudere la maschera della MiaTabella, vorrei fare un
requery al mio controllo "principioa"
Quando vado ad inserire la nuova voce, la MiaSottomaschera, rimane aperta.
ho provato cosi:
_________________________________________
Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click
    DoCmd.Close
If IsLoaded("MiaSottomaschera") Then
Forms!MiaSottomaschera.Principioa.Requery
'Me.Principioa = vbNullString
End If
Exit_Comando2_Click:
    Exit Sub
Err_Comando2_Click:
    MsgBox Err.Description
    Resume Exit_Comando2_Click
End Sub
___________________________________________________
Però non mi ritrovo la voce appena aggiunta.
Dove sbaglio, Grazie per l'aiuto EXP


title: Combo in subform.requery

author: Roberto da casa

text:
"Express" <
expre...@libero.it
> ha scritto nel messaggio
news:iKEwb.141240$vO5.5...@twister1.libero.it...

Access non conosce una maschera aperta che abbia come riferimento
Forms!MiaSottomaschera ma sicuramente riconosce una sottomaschera aperta che
ha come riferimenti Forms!MiaMaschera!MiaSottomaschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Combo in subform.requery

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:ikGwb.144966$e6.52...@twister2.libero.it...

Scusami, ma sto facendo mille prove e continua a non aggiornarmi il
controllo.
Requery è valido solo per le combo o anche per controlli con origine da
un'altra tabella?
saluti EXP


title: Database msaccess

author: PINO

text:
Ho creato una piccola applicazione con file mdb delle dimensioni di ca. 8-10
Mb compreso i dati delle tabelle che fanno parte tutti di un unico file mdb
almeno per ora.
La mia domanda č se sia possibile usare tale applicazione su un Palm ed
eventualmente che configurazione dovrebbe avere possibilmente oppure devo
necessariamente usare un Pocket Pc?
Grazie.


title: Nascondere finestra DB in Access XP

author: Jingo

text:
Ciao a tutti, ho un db creato con Access 2000 che viene aperto con Access
XP. All'apertura nessun problema però ho notato che nonostante abbia tolto
il segno di spunta da "Visualizza finestra del DB" viene comunque
visualizzata la finestra. In Access 2000 invece veniva giustamente
nascosta.
Come devo fare per nasconderla?
Grazie
Jingo.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: immagini

author: luca

text:
come faccio a visualizzare delle immagine animate gif in una maschera di
access?
è un activex ? quale? le istruzioni in merito dove le posso trovare ?
qualcumo mi puo dare una dritta ?


title: immagini

author: Proli

text:
luca ha scritto nel messaggio <941dhg$j1h$
1...@lacerta.tiscalinet.it
>...

Piacerebbe anche a me saperlo.
Marco Dell'Oca
D.M.Software


title: immagini

author: Asukuo

text:
luca <
luc...@tiscalinet.it
> wrote in message
941dhg$j1h$1...@lacerta.tiscalinet.it...

Vai al seguente indirizzo
http://utenti.tripod.it/bigjohn
alla voce di menu Servizi-Download.
Troverai quanto richiesto.
Saluti.
Gianni


title: Query Pass-Through con variabili.

author: Old-Jack

text:
Salve a tutti,
ho alcune tabelle su Oracle, per non collegarle avevo pensato ti adoperare
le query
pass-through, ma non riesco a fare in modo che alla loro esecuzione mi
permetta di mettere alcune variabili che mi servono nelle condizioni.
Grazie per l'aiuto.
Old-Jack.


title: begintransact,commit,rollback

author: Pierluigi Plebani

text:
In linea teorica utilizzando queste funzioni la gestione degli
aaggiornamenti/modifiche/cancellazioni avviene in maniera transazionale.
questo vuol dire che una volta cominciata la transazione con il
begintransact le operazioni effettuate sino al commit vengono considerate un
tuttuno (atomicita' della transazione) quindi se per qualunque motivo una
delle operazioni suddette non puo' essere esguita effettuando un rollback
tutte le operazioni gia' eseguite verranno annllate ripristinando lo stato
del DB prima della loro esecuzione.
Gigi
W. A. V. A. <
wava...@libero.it
> wrote in message
news:393CF297...@libero.it...
> Chi per favore mi sa dire i difetti e pregi della gestione dei record
> con queste funzioni.
>
> Grazie 1000
>


title: begintransact,commit,rollback

author: W. A. V. A.


title: begintransact,commit,rollback

author: MarcoMax

text:
On Tue, 06 Jun 2000 12:47:13 GMT, "W. A. V. A." <
wava...@libero.it
>
wrote:
>Chi per favore mi sa dire i difetti e pregi della gestione dei record
>con queste funzioni.
so solo che ho provato ad usarle per gestire delle operazioni tramite
maschera... ma sembra che le operazioni che fai tramite le maschere
non sfruttino le transazioni.... non ho provato ad usarle in altri
contesti... e non le ho usate nelleno dove volevo, perchè sembrava che
non funzionassero....
o forse sono io che non sono capace....
ciao, max


title: begintransact,commit,rollback

text:
On Tue, 6 Jun 2000 15:08:38 +0200, "Pierluigi Plebani"
<
gigi.pl...@tin.it
> wrote:
>In linea teorica utilizzando queste funzioni la gestione degli
>aaggiornamenti/modifiche/cancellazioni avviene in maniera transazionale.
>questo vuol dire che una volta cominciata la transazione con il
>begintransact le operazioni effettuate sino al commit vengono considerate un
>tuttuno (atomicita' della transazione) quindi se per qualunque motivo una
>delle operazioni suddette non puo' essere esguita effettuando un rollback
>tutte le operazioni gia' eseguite verranno annllate ripristinando lo stato
>del DB prima della loro esecuzione.
tuttavia non ho chiaro quale sia il concetto di "atomicità" di
access...
visto che se inizio una transazione quando apro una maschera e la
termino quando chiudo la maschera usando rollback, le modifiche
vengono salvate comunque....
boh....
ciao, max


title: begintransact,commit,rollback

author: Dott. Michele Amato

text:
MarcoMax <p...@papapa.pupupu> wrote in message
393cfbcf...@news.tin.it...

Secondo me il problema sta nel workspace (oggetto astratto a cui fan capo i
databases).
Infatti le transazioni non sono "figlie" del database, ma di un workspace.
Le operazioni fatte attraverso la maschera molto probabilmente usano un
workspace diverso da quello attraverso il quale tu hai dato il via alla
transazione (immagino DBEngine.Workspaces(0).BeginTrans).
Saluti
Michele
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Un pò di pubblicità per il mio sito, su
http://utenti.worldonline.it/micheleamato
è possibile trovare una add-in per Access97:
MAE_Navigator (in fase di beta test)
mi piacerebbe conoscere la tua opinione...
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


title: begintransact,commit,rollback

text:
in effetti io uso solo il codice , gestisco lo workspace e i recordset .
Volevo solo sapere se qualcuno ha gia' avuto esperienze positive usando
queste funzioni.
il problema nasce dal fatto dell 'accesso contemporaneo in rete ad un db
access . E' ok fino a 4 -5 utenti poi CRASH!!!
W. A. V. A. wrote:
> Chi per favore mi sa dire i difetti e pregi della gestione dei record
> con queste funzioni.
>
> Grazie 1000


title: begintransact,commit,rollback

author: warp

text:
W. A. V. A. ha scritto nel messaggio <
393D29A5...@libero.it
>...
>in effetti io uso solo il codice , gestisco lo workspace e i recordset .
>Volevo solo sapere se qualcuno ha gia' avuto esperienze positive usando
>queste funzioni.
>il problema nasce dal fatto dell 'accesso contemporaneo in rete ad un db
>access . E' ok fino a 4 -5 utenti poi CRASH!!!
>
Potresti dare maggiori informazioni su questi crash?
Inputi questi problemi all'utilizzo di transazioni?
Sicuro che non siano problemi d'affidabilità legati all'hardware di rete?


title: begintransact,commit,rollback

text:
"Dott. Michele Amato" <
m...@imolanet.com
> ha scritto:
>Secondo me il problema sta nel workspace (oggetto astratto a cui fan capo i
>databases).
>Infatti le transazioni non sono "figlie" del database, ma di un workspace.
>Le operazioni fatte attraverso la maschera molto probabilmente usano un
>workspace diverso da quello attraverso il quale tu hai dato il via alla
>transazione (immagino DBEngine.Workspaces(0).BeginTrans).
mmm.... po esse, po esse...
ma se non dico eresie, a meno che unno non se ne crei di altri, do
workspaces ne esiste uno solo... ed io non ne avevo creati...
quando ho tempo ci risprovo....
ciao, max


title: begintransact,commit,rollback

author: HP

text:
Io ho provato ad utilizzare il metodo delle transizione per
la registrazione dei dati di una fattura ... numero, anagrafe dettagli ...
con una serie di operazioni ( codice ) composta da transizioni
Prendi num.. Fattura
increm. contatore ..
Registra Doc.
Reg.Dettagli
Scarica Ma.
Purtroppo funzionano bene in locale
ma non in rete. Spesso le transizioni
rimanevano in "attesa" e poi si bloccavano ... con
ovvio annullamento della transizione ...
Adesso le uso solo se necessarie ... ad es
per determinare il n . fattura che deve essere univoco e
incrementato adeguatamente ...
Se hai necessità di un controllo del tipo ... esegui o annulla tutto ...
possono andar bene
ma attento che durante la transizione "sembra" che le tabelle debbano essere
vincolate
in maniera esclusiva durante il commit
Dico sembra perché questo è quello che capitava sul mio db, con blocco degli
altri
utenti,  anche se in letteratura nulla è scritto ...
Il problema dei blocchi sul DB forse va ricercato nell'architettura
file/server. Il  metodo delle transizioni .non è detto che migliori  la
situazione anzi ....
Ciao HP
W. A. V. A. <
wava...@libero.it
> wrote in message
393D29A5...@libero.it...



title: Query vuote

text:
Salve,
ho fatto una piccola applicazione in Access 2002 con delle forms associate
a query. Alle volte la query restituisce 0 record e la form mi risulta
bruttina. Come faccio, nel caso di una query vuota, a far apparire una
form diversa (o un messaggio) che mi notifica che la query è vuota. Grazie