text:
Il Sun, 7 Oct 2007 22:44:46 +0200, "RobertoA" <
amor...@tiscalinet.it
> ha scritto:
>(.....)
>Quindi possono esistere piu' ragioni sociali diverse con la stessa partita
>iva ?
Intendiamoci: all'ufficio IVA è registrata una sola P.IVA a cui è associata una sola ragione sociale.
Però io per la mia attività posso avere necessità (spesso perchè così richiede il cliente) di codificare n clienti con
la medesima partita IVA e con ragioni sociali diverse.
>Mi potresti fare un esempio ?
P.IVA		Ragione sociale				   Indirizzo
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
12345678901
	Trenitalia s.p.a. - Divisione U.M.T.R.	   Viale Strozzi 42 FI
12345678901
	Trenitalia s.p.a. - D.L. Romito		   Via del Romito 21 FI
12345678901
	Trenitalia s.p.a. - Officina manutenzione m.r. Via del Cantone - Osmannoro - Sesto F.no
01987654321	Comune di Firenze - Consiglio di quartiere 4   Via xxxx
01987654321	Comune di Firenze - Consiglio di quartiere 2   Via yyyy
01987654321	Comune di Firenze - Assessorato urbanistica  Piazza zzzzz
>Non e' che magari poi all'ufficio Iva risulta essere presente un'unica
>anagrafica ?
Ovviamente sì.
>Perche' se cosi fosse allora non sarebbe corretto mettere come cliente in
>una fattura vendita la ASL 10 DIP. FIRENZE P.Iva 123  e su un'altra ASL 10
>FIRENZE SERVIZIO LOGISTICA P.Iva 123
>Bisognerebbe mettere sempre ASL 10 FIRENZE, P.Iva 123
Perchè non sarebbe corretto ?
Tanto nel documento è riportata anche la P.IVA che è sempre la solita e quindi individua in maniera univoca il cliente
inteso come soggetto fiscale.
>La ragione della mia richiesta e' che vedo che molti gestionali impediscono
>la memorizzazione di due clienti con la stessa partita iva
Che impediscono ne ho visti pochi; che avvertono del rischio ma lo consentono, moltissimi.
>Un cliente mi ha espressamente richiesto tale funzione
>Pero' se fosse possibile avere due ragioni sociali diverse con la stessa
>partita iva allora questa limitazione (quella di un cliente per partita iva)
>non ha ragione d'essere
>Ciao e grazie
>RobertoA
>



title: [OT]controllo correttezza file clienti e fornitori

author: Ivan

text:
"VT @ home" <
V...@home.it
> ha scritto nel messaggio
news:n8vhg3duudf7rf53d...@4ax.com...
> Il Sat, 6 Oct 2007 14:01:24 +0200, "Ivan" <
fasdfsad...@tin.it
> ha
> scritto:
>>(.....)
>>Mi sono rimasti ancora due dubbi..
>>il nome del file che genero deve avere un nome particolare  o
>>un'estenzione
>>particolare?
>
> No
>
>>Una presenzatione mi era stata scartata per partita iva doppia. Quindi se
>>un
>>cliente ha cambiato ragione sociale ma non partita iva i due dati devono
>>essere sommati giusto?
>
> Per quanto ne so ed ho sperimentato, se un soggetto IVA modifica la
> propria ragione sociale, cambia necessariamente
> anche la partita IVA.
ti sbagli, ho parecchi clienti che con cambi tipo "ditta CercaTrova" a
"Ditta CercaTrova di pinco pallo" mantengono la stessa p.iva
ciao
Ivan


author: giorgio rancati

text:
"Ivan" <
fasdfsad...@tin.it
> ha scritto nel messaggio
news:4709d285$0$4791$4faf...@reader4.news.tin.it...
>
> ti sbagli, ho parecchi clienti che con cambi tipo "ditta CercaTrova" a
> "Ditta CercaTrova di pinco pallo" mantengono la stessa p.iva
idem
:-)



author: MA

text:
giorgio rancati wrote:
> "Ivan" <
fasdfsad...@tin.it
> ha scritto nel messaggio
> news:4709d285$0$4791$4faf...@reader4.news.tin.it...
>>
>> ti sbagli, ho parecchi clienti che con cambi tipo "ditta CercaTrova"
>> a "Ditta CercaTrova di pinco pallo" mantengono la stessa p.iva
>
> idem
> :-)
wao avete lo tesso cliente???
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:fei7b5$it$1...@tdi.cu.mi.it...
>>> ti sbagli, ho parecchi clienti che con cambi tipo "ditta CercaTrova"
>>> a "Ditta CercaTrova di pinco pallo" mantengono la stessa p.iva
>>
>> idem
>> :-)
>>wao avete lo tesso cliente???
sě!!, la "ditta CercaTrova" ha sedi in tutto il mondo!
:-D



title: Strano Report

author: Santilli Marco

text:
Se imposto ad un campo l'ordine crescente non me lo visualizza come io
vorrei.
Ecco come mi visualizza:
1
10
12
14
2
20
24
26
3
Invece io vorrei
1
2
3
10
12
14
20
24
26
Come devo fare
Vi prego aiutatemi!!!!!!!!!!!!


title: Strano Report

author: Antonio Biso

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:apak8b$3mb$1...@fata.cs.interbusiness.it...
> Se imposto ad un campo l'ordine crescente non me lo visualizza come io
> vorrei.
Alle 8.52 ti ho già risposto, è inutile che torni indietro nel tempo e
riposti lo stesso messaggio!!!
Antonio


title: Strano Report

author: Claudio

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:apak8b$3mb$1...@fata.cs.interbusiness.it...
> Se imposto ad un campo l'ordine crescente non me lo visualizza come io
> vorrei.
E la risposta di Antonio che fine ha fatto?? L'hai mangiata?


title: Strano Report

text:
Il 25 Ott 2002, 07:22, "Santilli Marco" <
marco.s...@libero.it
> ha
scritto:
> Se imposto ad un campo l'ordine crescente non me lo visualizza come io
> vorrei.
>
> Ecco come mi visualizza:
>
> 1
> 10
> 12
>
> Invece io vorrei
>
> 1
> 2
> 3
L'"inconveniente" nasce dal fatto che questo tuo campo č di tipo testo non
numerico. Per averlo numerico devi imporre una conversione cInt(tuocampo) in
pratica converte in intero un valore testo. Va da sč che non dovrai
inserirci lettere.
ciao MAssimiliano

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


title: Strano Report

author: Roberto da casa

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:apak8b$3mb$1...@fata.cs.interbusiness.it...

A quanto pare il tuo campo è di tipo testo.
Devi normalizzare il campo su cui fai l'ordinamento.
Nella query in cui fai l'ordinamento, se il campo in questione si chiama
Pippo, creati un campo calcolato nella seguente maniera:
PippoBis: Val(Pippo)
e ordina per questo campo calcolato invece che per Pippo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Strano Report

text:
Ho risolto!!!!
Visto che in quel campo andrò a inserirci solo numeri, ho convertito il
campo in numerico, ho provato a fare la nuova query ed ora me li ordina
proprio come io volevo
Grazie a tutti
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:cLbu9.75064$RO.18...@twister1.libero.it...



title: Strano Report

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:apc022$687$1...@grillo.cs.interbusiness.it...
> Ho risolto!!!!
MADDECHEAHO?
Continui a non scrivere correttamente DOPO il quoting!!!
Antonio


title: Strano Report

text:
> > Ho risolto!!!!
>
> MADDECHEAHO?
ALT!!! usa la lingua indigena, scordati il vernacolo romanesco... stai in
Lucania e usa quello...
Un episodio... io ho vissuto per un anno a Potenza per giocare a calcio. In
una partita contro una squadra di Napoli fecero un fallo da rigore netto su
di un mio compagno di squadra di Tursi (in provincia di Matera) e questo
iniziò a sbraitare e bestemmiare. Gli avversari: "Oh!, c'hanno pure lo
straniero.... "
Mi dispiace per la tua permanenza forzata in quella valle... ma che stai a
fa???



title: Strano Report

text:
"MA" <
kk...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...
> > > Ho risolto!!!!
> >
> Mi dispiace per la tua permanenza forzata in quella valle... ma che stai a
> fa???
C'è l'AGIP qui, con i pozzi di petrolio.
Io lavoro per la ditta che ha l'appalto per la manutenzione degli stessi.
Antonio


title: Strano Report

text:
> > >
> > Mi dispiace per la tua permanenza forzata in quella valle... ma che stai
a
> > fa???
>
> C'č l'AGIP qui, con i pozzi di petrolio.
> Io lavoro per la ditta che ha l'appalto per la manutenzione degli stessi.
>
Che fai... er Fusto!!!



title: Strano Report

text:
"MA" <
kk...@kksrl.com
> ha scritto nel messaggio
news:81Z73Z224Z132Y1...@usenet.libero.it...
> > > >
> > > Mi dispiace per la tua permanenza forzata in quella valle... ma che
stai
> a
> > > fa???
> >
> > C'è l'AGIP qui, con i pozzi di petrolio.
> > Io lavoro per la ditta che ha l'appalto per la manutenzione degli
stessi.
> >
>
> Che fai... er Fusto!!!
ha ha ha...
Antonio


title: Strano Report

author: desio

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:0Tev9.87416$RO.22...@twister1.libero.it...

si si er fusto. certo dopo il messaggio di tatiana mi hai "fiaccato" il dito
sulla rotellina del mouse


title: risultato errato

author: Luigi

text:
ciao a tutti

nella sottomaschera ho una casella di testo "Val_nColli"
dove in oridine controllo ho inserito
=Somma(nz([nColli]))-nz([nRecord]) con risultati da 0 a <0

Poi sull'evento dopo aggiornamento della sottomaschera
ho riportato questo codice:
Forms![MiaMascheraPricipale]!Testo1 = Me!Val_nColli

Ma il valore che mi riporta � errato, perch� � sempre zero.

Chi mi puo' spiegare il motivo?
Grazie


title: casella di riepilogo scelte multiple

author: andy

text:
sono finalmente riuscito a capire come utillizzare una casella di riepilogo
ma .... ancora non riesco ad utilizzare la proprieta selezione multipla
quando l'attivo in modalita' semplice mi restituisce questo errore :ERRORE
RUN TIME 94 UTILIZZO NON VALIDO DI NULL
percaso qualcuno saprebbe spiegarmi il motivo
la maschera e composta da :
una maschera origine tabella ore
una casella combinata non associata
una sottomaschera origine tabella ore
 grazie comunque


title: casella di riepilogo scelte multiple

author: namor

text:
andy ha scritto:

L'errore sarà nel codice che legge i valori della casella di riepilogo,
non nella casella in sé. Forse la usi per costruire un filtro e non tieni
conto dei casi in cui non è stato selezionato nessun elemento?
Com'è il codice?
Namor
--

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


title: casella di riepilogo scelte multiple

text:
e' quello che genera automaticamente access quando seleziono la proprieta
semplice
Private Sub Elenco59_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Me![Elenco59])
    Me.Bookmark = rs.Bookmark
End Sub
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnm6fn$ln$1...@news.newsland.it...



title: casella di riepilogo scelte multiple

text:
andy ha scritto:



Si scrive sempre DOPO al messaggio originale.
La function la puoi modificare così (quella che hai adesso nemmeno chiude
rs):
if not isnull(Me![Elenco59]) then
   me.recordsetclone.FindFirst "[ID] = " & Str(Me![Elenco59])
   if not me.recordsetclone.nomatch then
      Me.Bookmark = me.recordsetclone.Bookmark
   end if
end if
Per il fatto che ti dà errore dovresti controllare che la colonna
associata della casella corrisponda al campo ID della tabella "Ore" (che è
di tipo numerico, o no?).



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnm8fp$gqu$1...@news.newsland.it...

Ciao grazie sto provando la function putroppo non mi funziona ancora ....
sto cercando comuque di capire dove sbaglio, una curiosita se invece della
sottomaschera con origine la tabella ore la sostituissi con una query con
origine tabella ore sarebbe possibile ottenere dei dati filtrati tipo:
seleziono milano e mi restituisce tutti i clienti quindi seleziono anche
bologna e mi aggiunge anche tutti i clineti di bologna ???? e si potrebbe
ottenere la stessa cosa anche come sta adesso con la sottomaschera con
origine tabella ore ???
grazie


title: casella di riepilogo scelte multiple

text:




> Ciao grazie sto provando la function putroppo non mi funziona ancora ....
> sto cercando comuque di capire dove sbaglio, una curiosita se invece della
> sottomaschera con origine la tabella ore la sostituissi con una query con
> origine tabella ore sarebbe possibile ottenere dei dati filtrati tipo:
> seleziono milano e mi restituisce tutti i clienti quindi seleziono anche
> bologna e mi aggiunge anche tutti i clineti di bologna ???? e si potrebbe
> ottenere la stessa cosa anche come sta adesso con la sottomaschera con
> origine tabella ore ???
> grazie
Ma allora hai bisogno di spostarti sul record selezionato nella
combo/listbox, o ti serve un filtro?
Il filtro viene meglio se fatto con la sottomaschera, così nella maschera
principale avrai la casella di riepilogo e nella sottomaschera vedrai
comparire i dati man mano che selezioni le città, però questo metodo
richiede la scrittura di una funzione che restituisca il filtro nella
forma "(valore1, valore2, valore3,...)" da applicare poi alla
sottomaschera (come filtro o direttamente come criterio nell'origine
dati). Dovrebbe esserci qualcosa sul
www.sitocomune.com
 su come costruire
un filtro simile a partire da una listbox.



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bno1o0$n4$1...@news.newsland.it...

mi servirebbe un filtro tipo scelgo milano e restituisce tutti i clienti di
milano poi non sono contento vorrei vedere anche i clineti di bologna quindi
seleziono anche bologna e mi aggiunge anche i clineti di bologna sempre
nella stessa sottomaschera... e' possibile fare cio????
ho cercato nel sito
www.sitocomue.it
 ma non ho trovato questo esempio o
qualcuno che si avvicini


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
[cut]
> mi servirebbe un filtro tipo scelgo milano e restituisce tutti i clienti di
> milano poi non sono contento vorrei vedere anche i clineti di bologna quindi
> seleziono anche bologna e mi aggiunge anche i clineti di bologna sempre
> nella stessa sottomaschera... e' possibile fare cio????
> ho cercato nel sito
www.sitocomue.it
 ma non ho trovato questo esempio o
> qualcuno che si avvicini
Il sito è
www.sitocomune.com
Sezione reports, titolo "Come si può filtrare un report in base alla
selezione multipla effettuata su una casella di riepilogo?".
Non è immediatamente applicabile alle tue esigenze però ci trovi la
funzione che crea la lista degli ID selezionati in una listbox. Devi
cercare di capire come funziona, inserirla nella tua maschera ed usarla
per filtrare la sottomaschera (con l'operatore "In()").



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bno7s7$g5h$1...@news.newsland.it...

grazie ci stavo guardando proprio adesso .... e' parecchio complessa ma ci
provo .... io comunque esagero .... mi faresti un esempio secondo quello che
ti ho scritto te ne sarei grato


title: casella di riepilogo scelte multiple

text:
"andy" <
dar...@libero.it
> ha scritto nel messaggio
news:bno81b$23l$1...@grillo.cs.interbusiness.it...

finalmete ci sono .... quasi ... sono riuscito a far aprire un form
filtrando i dati che mi servono anche selezionandone piu' di uno ....ora
pero vorrei che il form che sono riuscito ad aprire lo allegassi come
sottomaschera nella maschera stessa come posso fare ??


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
[cut]
> finalmete ci sono .... quasi ... sono riuscito a far aprire un form
> filtrando i dati che mi servono anche selezionandone piu' di uno ....ora
> pero vorrei che il form che sono riuscito ad aprire lo allegassi come
> sottomaschera nella maschera stessa come posso fare ??
Quindi hai già la funzione che a partire dalla listbox ti prepara la
stringa "(ID1, ID2, ID3,....)" per il filtro.
Allora basta che metti la form (quella da filtrare) come sottomaschera
della maschera principale, e al posto di docmd.openform metti una riga che
cambia l'origine record della sottomaschera, tipo questa:
Me.sottomaschera.form.recordsource=
"SELECT * FROM tabella WHERE ID In " & strFiltro & ";"
Non so se la funzione che costruisce il filtro mette già le parentesi,
altrimenti aggiungile tu, comunque la stringa finale che verrà assegnata
all'origine record della sottomaschera deve essere una query SQL valida,
per esempio:
"SELECT * FROM tabella WHERE ID In (1, 6, 8, 15, 12);"



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnojdg$rld$1...@news.newsland.it...

scusa la mia iggnoranza ma potrebbe andare bene riporato cosi' ???
-----------------------------------------------------------------------
    Dim varItem As Variant
    If Me!Elenco.ItemsSelected.Count = 0 Then Exit Sub
    For Each varItem In Me!Elenco.ItemsSelected
        strLista = strLista & _
            Me!Elenco.Column(0, varItem) & ","
        Me!lista = Me!lista & _
            Me!Elenco.Column(1, varItem) & ", "
    Next varItem
    strLista = Left$(strLista, Len(strLista) - 1)
    Me!lista = Left$(Me!lista, Len(Me!lista) - 2)
    strCriteri = "[codice] IN (" & strLista & ")"
    Dim stDocName As String
    Me.report_ore1.Form.RecordSource = "SELECT * FROM ore WHERE ID In " &
strFiltro & ";"
    Dim Cont As Integer
    For Cont = 0 To Me!Elenco.ListCount - 1
        Me!Elenco.Selected(Cont) = False
    Next Cont
Exit_Comando5_Click:
    Exit Sub
Err_Comando5_Click:
    MsgBox Err.Description
    Resume Exit_Comando5_Click


title: casella di riepilogo scelte multiple

text: Ci sono riuscito grazie ............non senza il tuo aiuto


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
> news:bnojdg$rld$1...@news.newsland.it...
> > andy ha scritto:
[cut]
> > > finalmete ci sono .... quasi ... sono riuscito a far aprire un form
> > > filtrando i dati che mi servono anche selezionandone piu' di uno ....ora
> > > pero vorrei che il form che sono riuscito ad aprire lo allegassi come
> > > sottomaschera nella maschera stessa come posso fare ??
> > Quindi hai già la funzione che a partire dalla listbox ti prepara la
> > stringa "(ID1, ID2, ID3,....)" per il filtro.
> > Allora basta che metti la form (quella da filtrare) come sottomaschera
> > della maschera principale, e al posto di docmd.openform metti una riga che
> > cambia l'origine record della sottomaschera, tipo questa:
> > Me.sottomaschera.form.recordsource=
> > "SELECT * FROM tabella WHERE ID In " & strFiltro & ";"
> > Non so se la funzione che costruisce il filtro mette già le parentesi,
> > altrimenti aggiungile tu, comunque la stringa finale che verrà assegnata
> > all'origine record della sottomaschera deve essere una query SQL valida,
> > per esempio:
> > "SELECT * FROM tabella WHERE ID In (1, 6, 8, 15, 12);"
> > Namor
> scusa la mia iggnoranza ma potrebbe andare bene riporato cosi' ???


Questi non ti servono, perchè non li usi da nessuna parte:
strCriteri = "[codice] IN (" & strLista & ")"
Dim stDocName As String
La parte da "Dim Cont" a "Next Cont" dovrebbe servire a deselezionare le
righe dalla listbox, per l'uso che ne fai tu è più bello lasciarle
selezioante, puoi toglierla (o commentarla con ')
Queste servono per cerare un elenco in una text box della maschera, ma tu
hai già la listbox quindi le puoi togliere:
>         Me!lista = Me!lista & _
>             Me!Elenco.Column(1, varItem) & ", "
>     Me!lista = Left$(Me!lista, Len(Me!lista) - 2)
strFiltro non contiene le parentesi, quindi devi aggiungerle:
RecordSource = "SELECT * FROM ore WHERE ID In (" & strFiltro & ");"
Con queste modifiche la sub si riduce molto, prova se funziona e casomai
ripostala.



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnomnc$mce$1...@news.newsland.it...

si funziona benissimo grazieeeeeeeeeeeee ho imparato molto ........secondo
te sarebbe possibile nella suddetta maschera mettere un controllo per
filtrare le date che ne so due campi data con la possibilita' di selezionare
se si vuol sapere quante ore ho fatto dal----- al ?????


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
[cut]
> si funziona benissimo grazieeeeeeeeeeeee ho imparato molto ........secondo
> te sarebbe possibile nella suddetta maschera mettere un controllo per
> filtrare le date che ne so due campi data con la possibilita' di selezionare
> se si vuol sapere quante ore ho fatto dal----- al ?????
Si, dato che dalla form principale imposti direttamente il recordsource
della sottomaschera, nella sottom. ti resta disponibile la proprietà
"Filter".
Metti le due caselle nell'intestazione della sottom. e sugli eventi
afterupdate di ognuna costruisci il filtro (tenendo conto anche dei casi
in cui è presente una sola delle due date!) e lo assegni con Me.Filter=...
e Me.FilterOn=True.



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnoran$mca$1...@news.newsland.it...

mi faresti un esempio


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
> news:bnoran$mca$1...@news.newsland.it...
> > andy ha scritto:
[cut]
> > > si funziona benissimo grazieeeeeeeeeeeee ho imparato molto
> .........secondo
> > > te sarebbe possibile nella suddetta maschera mettere un controllo per
> > > filtrare le date che ne so due campi data con la possibilita' di
> selezionare
> > > se si vuol sapere quante ore ho fatto dal----- al ?????
> > Si, dato che dalla form principale imposti direttamente il recordsource
> > della sottomaschera, nella sottom. ti resta disponibile la proprietą
> > "Filter".
> > Metti le due caselle nell'intestazione della sottom. e sugli eventi
> > afterupdate di ognuna costruisci il filtro (tenendo conto anche dei casi
> > in cui č presente una sola delle due date!) e lo assegni con Me.Filter=...
> > e Me.FilterOn=True.
> > Namor
> mi faresti un esempio
Questa la metti come public sub nella form, e la richiami negli eventi
afterupdate di entrambe le tabelle.
dim Filtro as string
filtro=""
if not isnull(Me.dataDal) then filtro=" AND data>=#" &
format(me.datadal,#mm/gg/aaaa#) & "#"
if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
format(me.dataal,#mm/gg/aaaa#) & "#"
if len(filtro)>0 then
  Me.filter=right(filtro,len(filtro)-5)
else
  me.filter=""
end if
Me.filteron=true



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bnqhml$t4b$1...@news.newsland.it...
> andy ha scritto:
> > "namor" <
do...@spam.me
> ha scritto nel messaggio
> > news:bnoran$mca$1...@news.newsland.it...
> > > andy ha scritto:
>
> [cut]
>
> > > > si funziona benissimo grazieeeeeeeeeeeee ho imparato molto
> > .........secondo
> > > > te sarebbe possibile nella suddetta maschera mettere un controllo
per
> > > > filtrare le date che ne so due campi data con la possibilita' di
> > selezionare
> > > > se si vuol sapere quante ore ho fatto dal----- al ?????
>
>
> > > Si, dato che dalla form principale imposti direttamente il
recordsource
> > > della sottomaschera, nella sottom. ti resta disponibile la proprietà
> > > "Filter".
> > > Metti le due caselle nell'intestazione della sottom. e sugli eventi
> > > afterupdate di ognuna costruisci il filtro (tenendo conto anche dei
casi
> > > in cui è presente una sola delle due date!) e lo assegni con
Me.Filter=...
> > > e Me.FilterOn=True.
> > > Namor
>
>
> > mi faresti un esempio
>
>
> Questa la metti come public sub nella form, e la richiami negli eventi
> afterupdate di entrambe le tabelle.
>
> dim Filtro as string
> filtro=""
> if not isnull(Me.dataDal) then filtro=" AND data>=#" &
> format(me.datadal,#mm/gg/aaaa#) & "#"
> if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
> format(me.dataal,#mm/gg/aaaa#) & "#"
> if len(filtro)>0 then
>   Me.filter=right(filtro,len(filtro)-5)
> else
>   me.filter=""
> end if
> Me.filteron=true
>
> Namor
>
>
> --
>
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
grazie la provo e ti dico


title: casella di riepilogo scelte multiple

text:

Ciao grazie per l'esempio ci sto lavorando sopra per capire come funziona
per ora buio assoluto .....


title: casella di riepilogo scelte multiple

text:
namor ha scritto:
[cut]
> Questa la metti come public sub nella form, e la richiami negli eventi
> afterupdate di entrambe le tabelle.
Ehm... di entrambe le "CASELLE" (le due textbox "dataDal" e "dataAl")!



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bo607q$24t$1...@news.newsland.it...

e' li che non ci arrivo cioe' ho creato una routine evento nella form
principale su caricamento ed ho incollato la tua routine ma mi mette in
rosso questa parte
    if not isnull(Me.dataDal) then filtro=" AND data>=#" &
    format(me.datadal,#mm/gg/aaaa#) & "#"
    if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
    format(me.dataal,#mm/gg/aaaa#) & "#"
perche????
mi sa che non ci arrivo .... ma ci sto provando


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
> news:bo607q$24t$1...@news.newsland.it...
> > namor ha scritto:
[cut]
> > > Questa la metti come public sub nella form, e la richiami negli eventi
> > > afterupdate di entrambe le tabelle.
> > Ehm... di entrambe le "CASELLE" (le due textbox "dataDal" e "dataAl")!
> > Namor
> e' li che non ci arrivo cioe' ho creato una routine evento nella form
> principale su caricamento ed ho incollato la tua routine ma mi mette in
> rosso questa parte
>     if not isnull(Me.dataDal) then filtro=" AND data>=#" &
>     format(me.datadal,#mm/gg/aaaa#) & "#"
>     if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
>     format(me.dataal,#mm/gg/aaaa#) & "#"
> perche????
> mi sa che non ci arrivo .... ma ci sto provando
Te la segna in rosso perchè col copia-incolla dal ng gli if sono andati su
due righe. Il format non va a capo, va subito dopo il "&" (separato da uno
spazio).
E non va sull'evento caricamento della form principale.
Scrivi una sub FUORI dalle routine evento, e la metti nella sottomaschera,
non nella form principale:
Private sub Filtra()
  <corpo della routine>
End Sub
Nell'intestazione della sottomaschera ci metti due caselle che chiami
"dataDal" e "dataAl" e sugli eventi afterupdate di ognuna richiami la sub
Filtra:
Private sub dataDal_afterupdate
  Filtra
end sub
Namor
--
Aiuta chi ne ha bisogno, non ti costa niente:
http://www.shopmon.it/



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bo7p37$oqi$1...@news.newsland.it...

ok ho capito dove collocare la sub ma mi sfugge ancora qualcosa ti riporto
sotto la sub :
 Dim Filtro As String
    Filtro = ""
    if not isnull(Me.dataDal) then filtro= #AND data>=#" &
format(me.datadal,#mm/gg/aaaa#) & "#"
    if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
format(me.dataal,#mm/gg/aaaa#) & "#"
    If Len(Filtro) > 0 Then
    Me.Filter = Right(Filtro, Len(Filtro) - 5)
    Else
    Me.Filter = ""
    End If
    Me.FilterOn = True
le due righe if anora me le segna in rosso


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
[cut]
> ok ho capito dove collocare la sub ma mi sfugge ancora qualcosa ti riporto
> sotto la sub :
>  Dim Filtro As String
>     Filtro = ""
>     if not isnull(Me.dataDal) then filtro= #AND data>=#" &
> format(me.datadal,#mm/gg/aaaa#) & "#"
>     if not isnull(Me.dataAl) then filtro=filtro & " AND data<=#" &
> format(me.dataal,#mm/gg/aaaa#) & "#"
>     If Len(Filtro) > 0 Then
>     Me.Filter = Right(Filtro, Len(Filtro) - 5)
>     Else
>     Me.Filter = ""
>     End If
>     Me.FilterOn = True
> le due righe if anora me le segna in rosso
Questo non va:   filtro= #AND
Deve essere:     filtro= " AND
Questo non va:   #mm/gg/aaaa#
Deve essere:     "mm/gg/aaaa"
e i due format NON devono stare lě sotto, li devi riunire ciascuno al suo
if in modo che stiano sulla stessa linea del loro if:
if .... then .... data>=#" & FORMAT(...) & "#"
if .... then .... data<=#" & FORMAT(...) & "#"



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bo814o$mio$1...@news.newsland.it...

mi sa che ci sono l'unica cosa e' che quando provo dare un lasso di tempo mi
da questo errore
errore di sintassi nella data nell' espressione della query
'data>=#06/gg/aaaa# AND data<=#06/gg/aaaa#'


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
> "namor" <
do...@spam.me
> ha scritto nel messaggio
> news:bo814o$mio$1...@news.newsland.it...
> > andy ha scritto:
[cut]
> mi sa che ci sono l'unica cosa e' che quando provo dare un lasso di tempo
> mi da questo errore
> errore di sintassi nella data nell' espressione della query
> 'data>=#06/gg/aaaa# AND data<=#06/gg/aaaa#'
Ah sě, č vero, in vba non si puň usare "mm/gg/aaaa", bisogna usare la
versione english "mm/dd/yyyy".
Namor
--
Aiuta chi ne ha bisogno, non ti costa niente:
www.shopmon.it
  -
www.porloschicos.com



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bo8du5$vb7$1...@news.newsland.it...

grande ora funziona ....... ancora una volta grazie
ora provo a fare delle combinazioni per vedere cosa mi viene fuori


title: casella di riepilogo scelte multiple

text:
[cut]
un altro quesito se volessi stampare il filtrato ????
ho provato immettendo direttamente un tasto nella sottomaschera con questa
sub
DoCmd.OpenReport "report_ore", acViewPreview, , "codice = " & codice


title: casella di riepilogo scelte multiple

text:
"andy" <
dar...@libero.it
> ha scritto nel messaggio
news:bo8fba$qj1$1...@fata.cs.interbusiness.it...

:( non capisco ogni tanto mi da dei dati sbagliati quando filtro utilizzando
la sub sulla data a volte no filtra oppure riporta lassi di tempo errati
tipo io scrivo nalla box datada 01/10/2003 e nella box dataal 30/10/2003 e
mi riporta anche le date di agosto .... secondo te come mai fa cosi' ????


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
> "andy" <
dar...@libero.it
> ha scritto nel messaggio
> news:bo8fba$qj1$1...@fata.cs.interbusiness.it...
[cut]
> > > > mi sa che ci sono l'unica cosa e' che quando provo dare un lasso di
> > tempo
> > > > mi da questo errore
> > > > errore di sintassi nella data nell' espressione della query
> > > > 'data>=#06/gg/aaaa# AND data<=#06/gg/aaaa#'
> > > Ah sì, è vero, in vba non si può usare "mm/gg/aaaa", bisogna usare la
> > > versione english "mm/dd/yyyy".
> > > Namor
> > grande ora funziona ....... ancora una volta grazie
> > ora provo a fare delle combinazioni per vedere cosa mi viene fuori
> :( non capisco ogni tanto mi da dei dati sbagliati quando filtro utilizzando
> la sub sulla data a volte no filtra oppure riporta lassi di tempo errati
> tipo io scrivo nalla box datada 01/10/2003 e nella box dataal 30/10/2003 e
> mi riporta anche le date di agosto .... secondo te come mai fa cosi' ????
Perchè interpreta 01/10/2003 come 10 gennaio invece che primo ottobre.
Allora devi cambiare il formato da "mm/dd/yyyy" a "dd/mm/yyyy". Si vede
che la proprietà Filter delle maschere lavora con le date nel formato
locale delle "impostazioni internazionali", invece che con quello inglese
del vba.
Bisogna stare molto attenti alle date perchè in alcuni posti viene usato
il formato locale (in italia giorno/mese/anno) e in altri quello inglese
(mese/giorno/anno), in alcuni casi in italiano (gg/mm/aaaa) e altre volte
in inglese (dd/mm/yyyy). Nel caso di 30/10/2002 non ci sono problemi
perchè può essere interpretata in un modo solo. Fai sempre qualche prova
con date "ambigue" tipo 1/10/2003 o 4/7/2003, ecc... quanto devi testare
filtri e criteri.
Magari prima o poi qualche buon anima metterà sul sitocomune la mappa
delle date di Access, indicando dove vuole i formati locali e dove quelli
inglesi...



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bodghs$ok9$1...@news.newsland.it...

e' si speriamo che lo facciano sempre grazie
una curiosita e' possibile stampare il filtrato ottenuto dopo aver eseuito
un filtro sulle date ????


title: casella di riepilogo scelte multiple

text:
andy ha scritto:
[cut]

Rispondo qua perchè sull'altro post ho problemi.
Tu hai due filtri: uno nella SELECT origine dati della sottomaschera e
l'altro nella proprietà Filter.
O stampi direttamente la sottomaschera (con DoCmd.PrintOut acSelection), o
fai un report e sull'evento apertura gli assegni da vba la stessa origine
dati della sottomaschera e lo stesso filtro.



title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bog48f$gs7$1...@news.newsland.it...

Mi sembra che il primo sia il piu' semplice ci provo


title: casella di riepilogo scelte multiple

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bog48f$gs7$1...@news.newsland.it...

una curiosita' come mai lo stesso file sono sempre riuscito a convertirlo in
mde dopo le modifiche e' ora non riesco piu mi dice impossibile creare file
mde ???? forse se effettui un errore nel codice vb non lo converte in
seguito ??


title: casella di riepilogo scelte multiple

text:
"andy" <
dar...@libero.it
> ha scritto nel messaggio
news:bogf18$4ir$1...@fata.cs.interbusiness.it...

Problema con le date risolto grazie


title: casella di riepilogo scelte multiple

text:
ciao  sono stato bloccato a letto un po causa brutta influenza e hanno
cancellato la tua risposta potresti ripostarla ???? il quesito era :
e' possibile stampare un filtrato dopo aver eseguito un ulteriore filtraggio
sulle date datadal dataal.
in oltre ti pongo un altro quesito sarebbe possibile dalla funzione su
apertura di una maschera aprirne un altra utilizado la funzione data ???? se
mi sono espresso male sorry .
sempre grazie di tutto


title: Modifica record corrente

text:
Ho il seguente problema:
ho una maschera dove visualizzo record ordinati per data
per rendere piů veloce l'utilizzo dovrei inserire un tasto di ricerca in
modo d non dover scorrere avanti ed indietro tutti i record. come faccio per
trovare il record che voglio ricercare e farlo diventare i lrecord corrente
visualizzato???
inoltre come posso fare che all'apertura della maschera mi posiziono sul
record del giorno o in sua assenza di quello appena successivo??
grazie per le indicazioni
Magic_One


title: Modifica record corrente

text:
"Magic_One" <
Magi...@infinito.it
> ha scritto nel messaggio
news:KGmL9.25284$ab2.7...@news1.tin.it...
> Ho il seguente problema:
> ho una maschera dove visualizzo record ordinati per data
> per rendere più veloce l'utilizzo dovrei inserire un tasto di ricerca in
> modo d non dover scorrere avanti ed indietro tutti i record. come faccio
per
> trovare il record che voglio ricercare e farlo diventare i lrecord
corrente
> visualizzato???
>
Così come la stai raccontando, ti consiglio di non creare alcun pulsante di
comando per posizionarti su un determinato record cercato: sposta il mouse
sul controllo sul quale vuoi fare la ricerca; dalla barra dei comandi pigia
il pulsante Trova (quello con il binocolo, per intenderci): si aprirà una
finestra di dialogo tramite la quali eggettuerai la ricerca e quindi il
posizionamento sul record cercato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Compattare BE da FE. Come fare?

author: G. Palumbo

text:
Salve a tutti.
Leggo con estremo interesse sul Sito Comune la Sub CompattaBE di Luciani e
Pozzi.
Mi trovo nella necessità di dover utilizzare questa routine, ma essendo
disgraziatamente alle prime armi non capisco quali riferimenti utilizzare
per adattarla al mio db.
Supponendo di aver chiamato il mio db MIODB e il be MIODB_be, immagino che
per poter utilizzare la routine sia sufficente sostituire il termine
"Database" della sub con il termine "MIODB" e il termine "backend" (o
"Database backend"?) con "MIODB_be". E' corretto? Inoltre viene specificato
a chiare lettere che occorre chiudere tutte le maschere legate. Che vuol
dire?
Grazie per l'aiuto.


title: Compattare BE da FE. Come fare?

text:
"G. Palumbo" <
gius...@tin.it
> ha scritto nel messaggio
news:ViwXb.315212$_P.10...@news4.tin.it...
> Salve a tutti.
> Leggo con estremo interesse sul Sito Comune la Sub CompattaBE di Luciani e
> Pozzi.
> Mi trovo nella necessità di dover utilizzare questa routine, ma essendo
> disgraziatamente alle prime armi non capisco quali riferimenti utilizzare
> per adattarla al mio db.
> Supponendo di aver chiamato il mio db MIODB e il be MIODB_be, immagino che
> per poter utilizzare la routine sia sufficente sostituire il termine
> "Database" della sub con il termine "MIODB" e il termine "backend" (o
> "Database backend"?) con "MIODB_be". E' corretto?
Non è necessario in alcun modo personalizzare la Sub CompattaBE() pubblicata
sul Sito Comune, usala così coem la trovi scritta; la sub si ricava
automaticamente quali siano i BE da compattare e backuppare leggendoli dalla
tabella MSysObjects del FE.
> Inoltre viene specificato
> a chiare lettere che occorre chiudere tutte le maschere legate. Che vuol
> dire?
Vuol dire che le tabelle collegate contenute nei BE non debbono essere
attive (altrimenti ricevi un errore): a tale scopo ti viene consigliato di
chiudere tutte le maschere che abbiano come origine record tali tabelle.
Per non avere di tali problemi io normalmente la compattazione ed il backup
del BE la effettuo all'apertura del database richiamando la Sub di cui sopra
dalla macro Autoexec, prima addirittura di collegare le tabelle.
> Grazie per l'aiuto.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Compattare BE da FE. Come fare?

text:
Salve a tutti.
dopo i rimproveri di Biso, riposto un quesito spero più chiaramente di
prima.
Trovo sul Sito Comune alla sezione General, la Sub CompattaBE di Luciani e
Pozzi.
La sub è la seguente:
Sub CompattaBE()
   'Autore: Riccardo Pozzi e Federico Luciani
On Error GoTo gestErr
   Dim backend As String
   Dim strSQL As String
   Dim rs As Recordset
   Dim risp As Integer
   Dim copia As String
   Dim msg As String
   strSQL = "SELECT Trim([Database]) AS DB " & _
            "FROM MSysObjects " & _
            "GROUP BY Trim([Database]), MSysObjects.Type " & _
            "HAVING (((MSysObjects.Type)=6));"
   Set rs = CurrentDb.OpenRecordset(strSQL)
   If rs.EOF And rs.BOF Then GoTo esci
   risp = MsgBox("Procedere con salvataggio e compattazione?",  _
      vbQuestion + vbYesNo)
   If risp <> vbYes Then Exit Sub
   DoCmd.Hourglass True
   DoCmd.SetWarnings False
   rs.MoveFirst
   msg = ""
   Do
       backend = rs![DB]
       msg = backend & vbCrLf & msg
       DBEngine.RepairDatabase backend
       DBEngine.CompactDatabase backend, backend & ".new"
       copia = Dir(backend & ".bak")
       If copia <> "" Then Kill backend & ".bak"
       Name backend As backend & ".bak"
       Name backend & ".new" As backend
       rs.MoveNext
   Loop Until rs.EOF
   MsgBox "Compattazione terminata per i seguenti DB:" & _
      vbCrLf & msg, vbExclamation
esci:
   rs.Close
   DoCmd.SetWarnings True
   DoCmd.Hourglass False
   Exit Sub
gestErr:
   MsgBox Err.Number & " - " & Err.Description
   GoTo esci
End Sub
Mi trovo nella necessità di dover utilizzare questa routine, così ho
inserito in un modulo generico del mio db la sub in oggetto, ho
creato un pulsante sulla maschera iniziale che chiama attraverso una Call la
medesima sub, e mi trovo questo avviso: 3251 Operazione non supportata per
questo tipo di oggetto.Dove sbaglio?Grazie


title: Compattare BE da FE. Come fare?

text:
"G. Palumbo" <
gius...@tin.it
> ha scritto nel messaggio
news:qYwZb.265271$VW.10...@news3.tin.it...

Se usi una versione di Access successiva ad Access 97, fossi in te
comincerei a sostituire la riga di codice:
Dim rs As Recordset
con:
Dim rs As DAO.Recordset
e poi aggiungerei al tuo database i riferimenti alla libreria Microsoft DAO.



title: Compattare BE da FE. Come fare?


title: VBA: recordset & chiavi

author: ringo

text:
Salve a tutti,
volevo sapere se le chiavi e gli indici definiti a livello
delle tabelle incidono in positivo sulle prestazioni dei
recordset (ricerca, aggiunta....)
grazie
ringo


title: VBA: recordset & chiavi

author: Alessandro Cara

text:

normalmente
ricerca --> incidono positivamente
aggiunta --> incidono negativamente
il modo ed il perche' possono essere diversi ed avere pesi diversi a
seconda del DBMS e non tanto, strettamente, sul recordset quanto in
fase di estrazione dati(select) o consolidamento (insert,update,delete).
Mediamente, poiche' le funzioni di ricerca sono quantitativamente
superiori alle funzioni di aggiornamento, avere gli indici
migliora sensibilmente le performance di una applicazione.
Nei casi limite di insert di massa, talvolta, e' conveniente
definire gli indici "dopo" l'inserimento o distruggere quelli che
ci sono e poi ricrearli.
Piu' o meno mi sembra che "tutti" i dbms utilizzano indici a
struttura btree e quindi tali strutture subiscono degrado a fronte
di inserimenti o modifica del valore dei campi chiave.
Come ultima notazione e' perfettamente "inutile" mettere un indice,
che so, di tipo contatore se poi in fase di ricerca (select)
quell'indice non dovra' essere utilizzato o non entra nelle
relazioni di integrita'. Questo e' un caso in cui "non" definire
l'indice e' vantaggioso e consente anche un migliore utilizzo
del "dataspace" (nel senso di parte del db riservato ai dati)
--
a.cara
Togli qualcosa dall'email


title: VBA: recordset & chiavi

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E54FD2B...@blunet.it...

chiarissimo! ed esauriente.... ma le visite ricorsive
sugli alberi per le mie tangenti provvigionali non vuoi spiegarmele? :-(
grazie!
ringoooo


title: VBA: recordset & chiavi

text:
ringo wrote:
> chiarissimo! ed esauriente.... ma le visite ricorsive
> sugli alberi per le mie tangenti provvigionali non vuoi spiegarmele? :-(
Le ho viste, purtroppo, per te, ho un po' di altre cose da fare e il tuo
problema richiede un attimo di attenzione. Cmq e' un po' che ci stai
lavorando
abbi pazienza. Se qualcun altro nel frattempo si interessa al tuo caso
"pietoso"
;<)  (me tocca fare cosi' altrimenti vengo frainteso) bene, altrimenti,
ti tocchera' aspettare lunedi' (stavo proprio pensando a un btree). Stai
riuscendo a farmi fare qualcosa che mi ero ripromesso di non fare,
cioe',
analizzare, scrivere e testare insomma fare quello che Roberto appella
"pappapronta" (ari  ;<).
Vabbe' vuol dire che ti chiedero' la "tangente"



title: VBA: recordset & chiavi

text:
ringo wrote:
[cut]
>
> chiarissimo! ed esauriente.... ma le visite ricorsive
> sugli alberi per le mie tangenti provvigionali non vuoi spiegarmele? :-(
fatto stanno sull'altro 3d (il suo)



title: errore runtime all'avvio, senza spiegazione

author: Ammammata

text:
tradotto dall'inglese: l'esecuzione è stata interrotta a causa di un
errore runtime

capita subito all'apertura, visualizza mezzo menu, nessun codice di
errore, nessuna spiegazione

sul computer c'è office 2021 + runtime Office 2019/365 a 64bit
c'è il driver ODBC SQL versione 18 a 64 bit

su versioni più datate talvota funziona talaltra no

ci sono anche altre due applicazioni access che invece partono senza
dire nè a nè ba, ergo il problema è nel file access

all'inizio di uno dei due che funzionano c'è questa roba, che manca
nell'altro e in quello che non funziona:

Option Compare Database

#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long
    Private Declare PtrSafe Function GetDesktopWindow Lib "USER32" ()
As Long
#Else
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long
#End If

(nota: la parte dopo #else è in rosso, come se fosse un errore)

ho tolto la 2019/365 e ho provato a mettere la 2016: non si installa,
dice che c'è un conflitto di tipo di software, uno è click-to-run,
l'altro non si capisce

ho provato a mettere la 2013: si installa ma poi si comporta come la
2019

nel log eventi di windows non trovo nulla

che si fa se il sistema non dice di che errore si tratta?

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


text:
Non ho ben capito il problema ma mi saltano all'occhio le dichiarazione API... sei sicuro di aver scritto correttamente il codice Condizionato...?
Da quanto capisco stai usando la versione 64Bit... e quelle API sono per il 32...

Esempio, ShellExecute e GetDesktopWindow, secondom e si usano così:

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
    Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr

#Else
   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                          ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Declare Function GetDesktopWindow Lib "user32" () As Long
#End If

Con il 64Bit serve capire se il VarType Long richiede la modifica al LongPtr ecc....
Questo molto probabilmente è una possibile causa del ROSSO...

Chiaramente se poi usi delle Dichiarazioni nelle Funzioni o Sub, dovrai anche li condizionare il Type...

Es:
Public Function EseguiCodice()
#If VBA7 Then
Dim dskHwnd As LongPtr
#Else
Dim dskHwnd As Long
#End If
dskHwnd=GetDesktopWindow ()
.....
End Function

Vedi tu poi...
Saluti
@Alex


text:
Ammammata wrote:
> Option Compare Database
>
> #If VBA7 Then
> Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA" _
>     (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
> _
>     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd
> As Long) As Long
>     Private Declare PtrSafe Function GetDesktopWindow Lib "USER32" () As Long
> #Else
> Private Declare Function GetDesktopWindow Lib "USER32" () As Long
> Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
> _
>     (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
> _
>     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd
> As Long) As Long
> #End If
>
> (nota: la parte dopo #else è in rosso, come se fosse un errore)

Non so come sia finito il codice qui sopra in questo post :(

oggi lo ho riguardato, c'è questo:

#If VBA7 And Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
#End If

(la parte #Else è sempre in rosso)

c'è una mia nota del 14.04.2022 che dice che ho sostituito quella
vecchia (adesso sono righe REM) in quanto avevo problemi sul server

effettivamente sul server funziona, nulla da dire, non va invece quando
la "installo" su alcuni pc

intando grazie per la dritta, verifico bene il codice



text:
Hai provato a COPIA/INCOLLARE il mio suggerimento...?
Come ti ho provato a spiegare, quel codice NON va bene...è errato, ma non comprendo se hai capito bene...

@Alex


text:
@Alex laid this down on his screen :
> Hai provato a COPIA/INCOLLARE il mio suggerimento...?
> Come ti ho provato a spiegare, quel codice NON va bene...è errato, ma non
> comprendo se hai capito bene...

eccomi, un po' in ritardo: ho provato: esce sempre un errore di runtime
non specificato (non c'è traccia nemmeno nel registro eventi) per cui
non so che pesci pigliare



author: Karl Donaubauer

text:
Salve,

Ammammata:
> ...
> #If VBA7 Then
> Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA" _
> ...
> #Else
> Private Declare Function GetDesktopWindow Lib "USER32" () As Long
> ...
> #End If
>
> (nota: la parte dopo #else è in rosso, come se fosse un errore)

Questo è normale nella compilazione condizionale. La parte di codice non
utilizzabile è rossa, ma non ha importanza perché non viene eseguita.
> ...
> che si fa se il sistema non dice di che errore si tratta?

L'errore generico senza spiegazione è normale nel Runtime se manca
un'adeguata gestione degli errori. Per questo motivo, c'è il vecchio
consiglio di utilizzare una gestione degli errori eccessiva in
un'applicazione che deve funzionare con il runtime.

Cosa che ho fatto nei casi in cui non è stato fatto:

1. Fornire all'applicazione una gestione degli errori che includa
messaggi significativi in punti "sospetti". Nel tuo caso, tutto ciò che
viene eseguito all'avvio.

Se questo non è d'aiuto:

2. Ho commentato ampie sezioni di codice e le ho testate col Runtime. A
seconda del risultato, ho esteso il commento o riattivato parte del
codice commentato e l'ho testato finché non ho trovato il punto debole.

3. Se non è servito a nulla, ho sostituito il runtime con la versione
completa alcune volte. Se l'errore si verificava comunque, ho potuto
eseguire il debug. Poi ho tolto di nuovo la versione completa e ho
rimesso il runtime.

--
Ciao
Karl
*********
Access Info:
https://AccessForever.org

Access News:
https://youtu.be/aKqZX4eE5NA

Access DevCon:
https://www.donkarl.com/devcon

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


text:
Karl Donaubauer wrote:
> 1. Fornire all'applicazione una gestione degli errori che includa messaggi
> significativi in punti "sospetti". Nel tuo caso, tutto ciò che viene eseguito
> all'avvio.

nel codice che viene eseguito On Load della maschera Menu, che è quella
impostata nelle opzioni, ho messo questo, copiato da un esempio sul
web:

Err_Comando_Click:
strMsg = "An unexpected situation arose in your program." & vbCrLf & _
  "Please write down the following details:" & vbCrLf & vbCrLf & _
  "Calling Proc: " & strCallingProc & vbCrLf & _
  "Error Number " & lngErrNumber & vbCrLf & strErrDescription & vbCrLf
& vbCrLf & _
  "Unable to record because Error " & Err.Number & vbCrLf &
Err.Description
MsgBox strMsg, vbCritical, "LogError()"

le prime istruzioni sono:

Private Sub Form_Load()
On Error GoTo Err_Comando_Click

la modifica qui sopra non ha fornito aiuto in quanto l'errore si
manifesta subito dopo aver mostrato la maschera, però... (suspance)

fecendo molta attenzione a quello che succede ho notato che prima di
mostrare il menu iniziale (e piantarsi subito) c'è un messaggio a
video, in una finestrella piccolina, che scompare in un batter d'occhio

ho avviato il programma almeno 20 volte prima di riuscire a mettere a
fuoco quello che c'era scritto: Missing c:\windows\system\qualcosa.dll

nella cartella della applicazione access ci sono una serie di DLL e OCX
che non ho mai toccato, li aveva messi lo sviluppatore nel lontano 1998
e io mi son sempre guardato bene dallo spostarli

ACEDAO.DLL
comdlg32.dll
dynapdf.dll
msadox.dll
StrStorage.dll
comdlg32.OCX
SNAPVIEW.OCX

li ho copiati in c:\windows\system (come amministratore) ed oplà,
errore sparito, programma avviato, elaborazione effettuata, risultato
ottenuto

dall'alto dei cieli mi son giunte voci...
https://i.imgur.com/Arla1jE.jpeg

ok, prossimo passo provare il trucco anche su altre installazioni



title: Beep su MsgBox

author: Massimo

text:
Come mai quando appare una MsgBox in access 2000 contemporaneamente
 si sente il classico Beep o avviso critico mentre in access 97 se non
metti  nel codice ( prima di MsgBox ) il comando Beep questo non compare ?
 Voglio che in access 2000 non esegua nessun segnale acustico, perchè
 utilizzo un mio file .wav all'esecusione della MsgBox, ed allora succede
 immediatamente prima del messaggio viene eseguito il mio file e
 successivamente all'apertura del messaggio ricompare il beep del
messaggio.


title: riallegare tabelle

author: Saburo Sakai dall'ufficio

text:
Ho trovato interessante sul sito comune le funzioni che permettono di
riallegare le tabelle. Ora, il problema che si presenta è controllare
all'apertura se i collegamenti sono corretti, altrimenti far partire la
funzione che riallega. E qui, per me, c'è il pb:  io intercetto l'errore di
collegamento file mancante (errore 3024) e lo inserisco nell'evento "on
open" di una maschera di apertura. Però tale errore avviene PRIMA
dell'evento citato, che paraltro è il primissimo (mi sembra) che si attiva
all'apertura della maschera. Morale, ho la segnalazione del collegamento
mancante e la mia funzioncina non serve a niente. Come fare?
Grazie


title: riallegare tabelle

author: Andrea Sciamanna

text:
> riallegare le tabelle. Ora, il problema che si presenta č controllare
> all'apertura se i collegamenti sono corretti, altrimenti far partire la
> funzione che riallega. E qui, per me, c'č il pb:  io intercetto l'errore
di
> collegamento file mancante (errore 3024) e lo inserisco nell'evento "on
> open" di una maschera di apertura. Perň tale errore avviene PRIMA
> dell'evento citato, che paraltro č il primissimo (mi sembra) che si attiva
> all'apertura della maschera. Morale, ho la segnalazione del collegamento
> mancante e la mia funzioncina non serve a niente. Come fare?
Io faccio cosě. Apro la tabella degli oggetti di sistema, leggendomi solo i
record che contengono una stringa di connessione nel campo DATA (mi pare).
Faccio un raggruppamento in base a quel campo, cosě, se ho piů connessioni,
le verifico tutte.
Fatto questo, tento di aprire un oggetto ADODB.Connection, usando le
stringhe di connessione che ho ottenuto. Intercetto l'errore e mi comport di
conseguenza.
Tutto questo lo metto nell'evento "Su apertura" di una maschera alla quale
non č associato nessun recordset (o, almeno, al quale non č associato un
recordset di una tabella allegata).


title: riallegare tabelle

author: Dott. Michele Amato

text:
Che ne dici di una invocazione della funzione di riallegatura delle tabelle
all'apertura dell'applicazione?
Macro Autoexec, EseguiCodice: ReAttachLinkedTable()
Spero di essere stato utile.
Michele Amato
***************************************************************
su
http://utenti.worldonline.it/micheleamato
puoi trovare alcune add-in per Access 97 scritte da me;
mi piacerebbe avere la tua opinione...


title: riallegare tabelle

text:
> Che ne dici di una invocazione della funzione di riallegatura delle
tabelle
> all'apertura dell'applicazione?
> Macro Autoexec, EseguiCodice: ReAttachLinkedTable()
>
> Spero di essere stato utile.
Puň andare bene, ma io non uso piů le macro da quando c'č Access Basic (poi
ribattezzato Visual Basic for Application).
Cmq, se non ricordo male c'č l'equivalente in VBA della macro Autoexec.


title: cerca record

author: Mike Dens

text:
ciao a tutti ho un problema nn riesco a capire come sia possibile
passare da un record di una sottomaschera allo tsesso record ma in una
sottomaschera diversa usando un tasto...mi spiego meglio: sono nella
sottomaschera 1 e sono al record 10, io desideravo potere tramite un
pulsante passare allo stesso record ma all sottomaschera 2..spero di
esser stato chiaro
grazie e ciao
michele
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: cerca record

author: MM

text:
Nella proprietà evento su click del pulsante che deve farti passare alla
sottomaschera2 imposta il seguente codice (supponendo che il pulsante sia
comando143):
Private Sub Comando143_Click()
On Error GoTo Err_Comando142_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
    stDocName = "sottomaschera2"
    stLinkCriteria = "[record10sottomaschera2]=" &
Me![record10sottomaschera1]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando142_Click:
    Exit Sub
Err_Comando142_Click:
    MsgBox Err.Description
    Resume Exit_Comando142_Click
End Sub
ciao.
spero sia utile.
ps: al posto di   "record10sottomaschera1" metti il nome del campo che
contiene il record e così vale per  "record10sottomaschera2".
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:d5b0ff71694c2b2b73...@mygate.mailgate.org...



title: La proprietà LEN

author: ultrareflex

text:
Salve....ho un problemino......avrei bisogno di conoscere la lunghezza di un
campo testo. Sò che si può usare LEN per saperlo....solo che non sò come si
faccia....qualche idea????


title: La proprietà LEN

author: Antonio Biso

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:A7wv9.90993$RO.23...@twister1.libero.it...
> Salve....ho un problemino......avrei bisogno di conoscere la lunghezza di
un
> campo testo. Sň che si puň usare LEN per saperlo....solo che non sň come
si
> faccia....qualche idea????
Sě!
Andare nell'help on line (F1) e cercare la funzione Len
Antonio


title: La proprietà LEN

text:
Credi che non lo abbia fatto???
LUNGHEZZA
Restituisce il numero di caratteri in una stringa di testo.
Sintassi
LUNGHEZZA(testo)
Testo      č il testo di cui si desidera conoscere la lunghezza. Gli spazi
vengono considerati come caratteri.
Se per te č CHIARO sono felice per te!
Grazie per l'aiuto!
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:zdwv9.91016$RO.23...@twister1.libero.it...



title: La proprietà LEN

author: Antonio Ganci

text:

Come Ti ha suggerito Biso devi cercare nell'help la funzione Len.
Comunque ecco un esempio:
Len("Ciao")
restituisce  4
oppure per il contenuto di un controllo:
Len(Me.NomeControllo)
Antonio.


title: La proprietà LEN

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:kuwv9.91107$RO.23...@twister1.libero.it...
> Credi che non lo abbia fatto???
Sicuramente non hai scritto correttamente DOPO il quoting!
>
> LUNGHEZZA
> Restituisce il numero di caratteri in una stringa di testo.
> Sintassi
> LUNGHEZZA(testo)
> Testo      è il testo di cui si desidera conoscere la lunghezza. Gli spazi
> vengono considerati come caratteri.
>
> Se per te è CHIARO sono felice per te!
Hai ragione, non è chiaro...
E' SOLARE!
Dove sarebbe il problema?!?
Antonio


title: La proprietà LEN

text:
"Antonio Ganci" <
a.ganciNO...@megattera.it
> ha scritto nel messaggio
news:apm4e5$2shd4$1...@ID-162989.news.dfncis.de...

> Ok....grazie..... Solo che qualcosa non va......io ho bisogno di un campo
numerico che mi indichi di volta in volta la lunghezza del controllo testo
DESCRIZIONE!
Quandio scrivo =Len(DESCRIZIONE) lui mi scrive in automatico :
=LEN([Description]) e mi dà ovviamente errore.
Questo è il mio problema :)
Mi potete Aiutare??
Ultrareflex
>


title: La proprietà LEN

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:Y_wv9.92307$%M1.23...@twister2.libero.it...
>
> > Ok....grazie..... Solo che qualcosa non va......io ho bisogno di un
campo
> numerico che mi indichi di volta in volta la lunghezza del controllo testo
> DESCRIZIONE!
> Quandio scrivo =Len(DESCRIZIONE) lui mi scrive in automatico :
> =LEN([Description]) e mi dà ovviamente errore.
> Questo è il mio problema :)
>
> Mi potete Aiutare??
Cambia il nome del campo. Descrizione è una parola chiave
Antonio


title: La proprietà LEN

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Rcxv9.91302$RO.23...@twister1.libero.it...

Ok Antonio ora va benissimo......Grazie!
Ultrareflex


title: La proprietà LEN

author: Emyr

text:
On Tue, 29 Oct 2002 14:48:17 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

però a me ha sempre funzionato....
Saluti.
Emanuele.


title: La proprietà LEN

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:qni1suc8g2k17s05s...@4ax.com...

Funzionare funziona. Però in alcuni casi, soprattutto nelle espressioni,
access lo interpreta come parola chiave e ti scombina le carte.
Se in un report il controllo e il campo si chiamano Descrizione, tutto ok.
Ma prova a fare un'espressione
="Desc:" & Descrizione
Antonio


title: La proprietà LEN

author: Roberto da casa

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:qni1suc8g2k17s05s...@4ax.com...

Forse ti funziona in uno script VBA o SQL, ma prova a scriverlo, ad esempio,
nell'origine controllo di una casella di testo in una maschera e vedi cosa
succede.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Cisa]: Referendum fissato per il 25 giugno

author: MA

text:
cari frequentatori,
falco-sv (che ringrazio) mi ha segnalato questa notizia
http://www.ansa.it/main/notizie/fdg/200604271351239746/200604271351239746.html
Il referendum è stato fissato, quindi le date che avevmo in mente per il
cisa rimangono valide.
Aspettiamo conferme da oltraple
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
MA wrote:
> cari frequentatori,
> falco-sv (che ringrazio) mi ha segnalato questa notizia
>
http://www.ansa.it/main/notizie/fdg/200604271351239746/200604271351239746.html
>
> Il referendum è stato fissato, quindi le date che avevmo in mente per
> il cisa rimangono valide.
> Aspettiamo conferme da oltraple
Allora è chiaro che prendiamo il 17/18 per la CISA2 SP1.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


author: Napoleone

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4bc7jgF...@individual.net...

Ciao ragazzi,
per poter partecipare?
Napoleone


text:

Ciao Napoleone,
Adesso Karl riapre le iscrizioni



author: Alessandro Baraldi

text:
Ciao Karl e MA.
Quando avremo la conferma del fatto che si farà...?
Intendo come termini limite di tempo.
Ciao
@Alex


text:

karl è off line in questi giorni
All'inizio della prossima settimana pubblica l'iscrizione e a quel punto
sapremo i partecipanti.
Quindi solo qualche giorno di pazienza



title: Caselle obbligatorie

author: luigi corinna

text:
Buon Giorno
Access 97...
Maschera MOVIMENTI
voglio che le caselle di testo della maschera siano obbligatoriamente tutte
compilate...pena non poter uscire e non poter stampare report (collegati
all' ID movimento)....
Come possso fare
Grazie


title: Caselle obbligatorie

author: TANNHAUSER

text:
luigi corinna ha scritto:
> Buon Giorno
> Access 97...
> Maschera MOVIMENTI

> Come possso fare
> Grazie
Pensa che già il 17 febbraio 2000 (quasi 5 anni fa) Antonio Biso dava la
seguente risposta a domanda analoga del 3D "Controlli obbligatori"
(trovata in 0.75 sec con Google in questo NG):
***********************************************************************
Io ho sempre fatto così, il test del valore dei controlli obbligatori al
salvataggio del record, usando magari un pulsante che non salva se il
controllo non è superato.
Se ti rompe scrivere una serie di if per ogni controllo obbligatorio,
potresti usare questo stratagemma.
Metti davanti al solito nome che hai dati ai controlli obbligatori un
acronimo, per esempio "OBB_"
Esempio "OBB_codice_fiscale"
Poi ti scrivi una funzione fatta così:
Function controlla(x as form) as boolean
For i = 0 To x.Controls.Count - 1
   Set myctl = x.Controls(i)
   If Left(myctl.Name, 4) = "OBB_" Then
     if isnull(myctl.value) or trim(myctl.value) = "" or
altricontrolli(myctl.value) then
       msgbox "Il campo " & mid(
myctl.name
,5) & " è obbligatorio:
provvedere
ad inserire il dato!"
       controlla = false
       exit function
     end if
   end if
next i
controlla = true
end function
Poi, sul clic del pulsante di validazione farai
if controlla(Me) then
  procedi e salva il record
end if
***********************************************************************
L'idea mi sembra chiara (verificare attraverso un ciclo lo stato dei
valori nei controlli e decidere di conseguenza).
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Automazione Invio Dati da Access ad Outlook

author: Charliebo

text:
Ciao al NG,
Dalla sezione General del Sito Comune ho scaricato ed utilizzato "Esempio di
automazione per l'invio e la formattazione di dati da Access a Word usando i
bookmarks" numero 6.137, postato da Namor. Il tutto funziona egregiamente,
uso Office 2003. Avendo bisogno di fare la stessa cosa, però verso Outlook,
mi chiedevo se era possibile farlo, e se eventualmente qualcuno sapesse
darmi qualche dritta.
Grazie


author: vtt

text:
"Charliebo" <
utente...@jumpy.it
> ha scritto nel messaggio
news:b3YVd.1002723$35.37...@news4.tin.it...

E' possibile.
Per prima cosa devi installare la libreria di Outlook dall'Editor vba di
Access: Strumenti\Riferimenti\Microsoft Outlook 11.0 object library. In
questo modo dal visualizzatore oggetti puoi agevolmente consultare la guida
vba di outlook che ha un sacco di oggetti strani e curiosi. Un viaggio
esotico.
L'automazione funziona allo stesso modo, ma con application.outlook al posto
di application.word. Ovviamente gli oggetti VBA sono completamente diversi e
bisogna studiarseli dalla guida.
Per farti qualche esempio è posibile creare da access, nuove cartelle di
posta, modificare contatti, inserire appuntamenti, inviare mail, ecc. ecc.
Prova a descrivere meglio quello che vuoi fare esattamente e, se ne sarò
capace, proverò a darti qualche info in più.
vtt


text:
"vtt" <
fottutoblu...@hotmail.com
> ha scritto nel messaggio
news:d2bmpe$oop$1...@fata.cs.interbusiness.it...

Grazie per la risposta,
Cercavo dei pezzi di codice di esempio per riuscire a capire come posso
gestire le varie funzionalità di Outlook da Access.
Mi sarebbe utile avere sotto mano il codice per aprire Outlook da Access e
gestire i vari destinatari della mail, l'oggetto e il corpo della mail
recuperando questi dati tramite una query su access.
Ciao Charliebo59


text:
[CUT]
>
> Grazie per la risposta,
> Cercavo dei pezzi di codice di esempio per riuscire a capire come posso
> gestire le varie funzionalità di Outlook da Access.
> Mi sarebbe utile avere sotto mano il codice per aprire Outlook da Access e
> gestire i vari destinatari della mail, l'oggetto e il corpo della mail
> recuperando questi dati tramite una query su access.
>
> Ciao Charliebo59
>
Riscrivo perché la prima risposta non è mai arrivata. Chissà cosa ho
combinato...
Dicevo che non mi è molto chiaro cosa vorresti fare di preciso, ma ti
inserisco alcune query che recuperano i dati da Outlook ed un esempio di
invio mail che aggiusterai a seconda delle tue esigenze.
Purtroppo non è un argomento di cui ho una forte esperienza, ma
arabbattandomi con la quida in linea sono riuscito a fare alcune cose
interessanti: di consiglio quindi di smanettare e rismanettare...
Queste query ISAM di esempio frugano nele cartelle di OL e permettono anche
la cancellazione dei dati quindi okkio!
Dovresti incollarle così come sono (su una stessa se le vedi a capo) in
visualizzazione sql, l'unica cosa da modificare è il nome della eventuale
sottocartella. Dopo aver testato il funzionamento le puoi perfezionare dalla
visualizzazione struttura.
Recupero dei dati dai contatti:
SELECT * FROM [Contatti] IN 'C:\'[Outlook 9.0;MAPILEVEL=Cartelle
personali|];
Recupero dei dati da una sottocartella dei contatti:
SELECT * FROM [Sottocartella] IN 'C:\'[Outlook 9.0;MAPILEVEL=Cartelle
personali|Contatti];
Recupero dei dati dalla posta in arrivo:
SELECT * FROM [Posta in arrivo] IN 'C:\'[Outlook 9.0;MAPILEVEL=Cartelle
personali|];
Recupero dei dati da una sottocartella della posta in arrivo:
SELECT * FROM [Sottocartella] IN 'C:\'[Outlook 9.0;MAPILEVEL=Cartelle
personali|Posta in arrivo];
Tutto questo funziona senza automazione, ma devi avere OL installato e come
client di posta predefinito.
Per poter inviare mail tramite OL, prova a modificare questa routine scritta
su Access, magari creando un recodset basato sulle query ISAM:
Sub CreateOutlookMail()
    Dim olApp               As Outlook.Application
    Dim olMailMessage       As Outlook.MailItem
    Dim olRecipient         As Outlook.Recipient
    Dim blnKnownRecipient   As Boolean
    ' Create new instance of Outlook or open current instance.
    Set olApp = New Outlook.Application
    ' Create new message.
    Set olMailMessage = olApp.CreateItem(olMailItem)
    ' Prompt for message recipient, attempt to resolve address, and
    ' then send or display.
    With olMailMessage
        Set olRecipient = .Recipients.Add(InputBox("Enter name of message
recipient", _
            "Recipient Name"))
        blnKnownRecipient = olRecipient.Resolve
        .Subject = "Testing mail by Automation"
        .Body = "This message was created by VBA code running Outlook
through Automation."
        If blnKnownRecipient = True Then
            .Send
        Else
            .Display
        End If
    End With
    Set olMailMessage = Nothing
    olApp.Quit
    Set olApp = Nothing
End Sub
Ricorda che devi avere il riferimento alla library di OL come da post
precedente.
Buon lavoro! ...e consulta l'help!
vtt


text:
"vtt" <
fottutoblu...@hotmail.com
> ha scritto nel messaggio
news:d2ttrm$2k$1...@balena.cs.interbusiness.it...

Ti ringrazio, era esattamente ciò che mi serviva !
Ciao Charliebo59


title: campo contatore

author: Mino

text:
Salve a tutti,
ho un problema con access che non riesco a risolvere. Ho una tabella (che
chiamerò A) dalla quale devo selezionare dei record (tramite check-box) in
modo da comporre un elenco. Ad ogni record selezionato dovrà essere
associato un numero che ovviamente dovrà essere identico per tutti i record
appartenenti a quell'elenco. Quindi elenchi diversi avranno numeri
identificativi diversi ma tutti i record appartenenti allo stesso elenco
dovranno avere lo stesso numero di lista. Questo numero è importante perchè
è in base a questo che potrò in seguito richiamare (e visualizzare) tutti i
record che compongono quell'elenco. Spero di essere stato chiaro!!!
Ringrazio in anticipo tutti quelli che sapranno darmi una mano.
P.S.: Nonostante sia un prncipiante sto tentando di sviluppare un progetto
più ampio e il problema descritto ne fa parte. Chi fosse interessato a
partecipare lasci un messaggio e gli fornirò l'analisi. Grazie a tutti.
Buona giornata.
Mino
--


title: campo contatore

author: PBsoft

text:
[omissis]
Scusa, ma la domanda qual'è?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: campo contatore

text:
In effetti non sono stato molto chiaro!!! ;P
Ho una maschera principale che contiene diversi pulsanti. Uno di questi mi
apre uno sottomaschera che mi permette di selezionare (tramite check box)
una serie di record. Il click sul bottone che mi fa aprire la sottomaschera
genera un numero univoco che dovrà essere associato anche a ciascun record
che selezionerò con la check-box. Non so se c'è un sistema migliore...la
cosa fondamentale è che io possa richiamare tutti i record della lista
tramite un numero univoco.
Non so se sono riuscito a spiegarmi meglio...nel caso basta un fischio.
Grazie mille!!
Mino
--
Autotrasporti Cuccu S.n.c.
Mino
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea3552e4db8...@news.tin.it...



title: campo contatore

text:
> Non so se sono riuscito a spiegarmi meglio...nel caso basta un
> fischio.
Fiiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!!



title: campo contatore

text:
Ciao!
Non sono espertissimo ma tenterò cmq di darti una mano :P
Dunque ammetto che non mi è chiaro neanche a me cosa vuoi ottenere
veramente.. Dici di avere un tasto che "apre" una sottomaschera.. ma
le sottomaschere sono sempre aperte O_o
Che intendi con aprire? Renderla visibile?
Poi.. hai un campo checkbox per ogni record no? Quindi la tua
sottomaschera è in realtà una sottomaschera continua, ed ogni record
ha un campo di tipo "si/no" che puoi spuntare appunto tramite
checkbox.
Ci ho azzeccato fin'ora? :P
Beh, se fosse tutto così allora per creare un nuovo elenco partendo
dai record "selezionati" ti basterebbe fare una query con la
condizione:
"WHERE condizione = true;"
Così la query risultante ti creerà un elenco (dove ogni record ha un
id progressivo diverso dall'id della tabella iniziale) e potrai
lavorare su quei dati come meglio credi :P
Spero di aver capito il tuo problema hihi
ciau!


title: campo contatore

text:
Ti ringrazio Alex....ho usato termini impropri ma hai capito benissimo il
tutto. La soluzione che mi consigli potrebbe andare...la verificherò sul
campo. SOno ancora in fase di analisi...poi magari pubblicherò anche il
lavoro in modo che chi avese se le stesse mie necessità può tranquillamente
utilizzare il programma. Grazie mille...
--
Mino
<
pda...@gmail.com
> ha scritto nel messaggio
news:1192090579.8...@g4g2000hsf.googlegroups.com...



title: record corrente - spostamenti

author: Galvy

text:
Salve a tutti oggi vorrei porre una domanda che magari è estremamente stupid
ma in cui io mi sono perso da giorni......
- Esiste maniera di sapere su che record sto lavorando? esempio se esiste
una propietà che mi dice sei al 1° record in modo da poterlo associare ad un
variabile quindi ad una casella di testo..
Detto in parole povere vorrei ricreare i pulsanti di spostamento tra record
e onn usare quelli di default di access quindi mi servirebbe la "variabile"
che mi restituisce il numero di record  corrente
 - Vorrei anche sapere se esiste modo di sapare se sono al primo oppure
ultimo record di una maschera


title: record corrente - spostamenti

author: Hermano

text:
"Galvy" <
ga...@libero.it
> ha scritto nel messaggio
news:BAZR8.63681$Kt3.1...@twister2.libero.it...

utilizza la proprietà CurrentRecord per sapere il numero del record corrente
e DCount per sapere quanti sono i record nel DB, usa F1 per le spiegazioni,
ora hai tutti gli elementi.
Ciao
Maurizio


title: record corrente - spostamenti

text:
"Hermano" <
mbel...@marcheok.com
> ha scritto nel messaggio
news:af9qi1$gpp$1...@newsreader.mailgate.org...

OK current record ma non trovo nulla su DCount ?? è una funzione creata in
visual basic oppure cosa????


title: record corrente - spostamenti

text:
"Galvy" <
ga...@libero.it
> ha scritto nel messaggio
news:%v_R8.65905$j65.1...@twister1.libero.it...
>
> "Hermano" <
mbel...@marcheok.com
> ha scritto nel messaggio
> news:af9qi1$gpp$1...@newsreader.mailgate.org...
> > "Galvy" <
ga...@libero.it
> ha scritto nel messaggio
> > news:BAZR8.63681$Kt3.1...@twister2.libero.it...
> > > Salve a tutti oggi vorrei porre una domanda che magari è estremamente
[cut]
> OK current record ma non trovo nulla su DCount ?? è una funzione creata in
> visual basic oppure cosa????
E' una funzione di VB, la funzione DCount serve per stabilire il numero di
record contenuti in un determinato set di record. Si può utilizzare in
Visual Basic, in una macro, in una espressione nella query o in un controllo
calcolato.
È possibile, ad esempio, utilizzare la funzione DCount in un modulo per
restituire il numero di record contenuti in una tabella o in una query.
Sintassi:
DCount(espr, dominio[, criteri])
ti posto un esempio che mi calcola di quanti fogli da 24 etichette debbo
disporre per la stampa
Dim NRec As Long
NRec = DCount("COGNOME", "QAuguri da Elenco 1") 'conteggia quante sono le
ricorrenze di cognome nella query QAuguri da Elenco 1
Forms![Auguri main].[NumeroRecord] = NRec 'stampa nella casella di testo non
associata NumeroRecord quanti sono i record presenti nella query Auguri da
Elenco 1
Forms![Auguri main].[numeropagine] = Fix((NRec / 24) + 1) 'stampa nella
casella di testo non associata numeropagine quanti fogli di etichette
occorrono
Con questa semplicissima routine (ti bastano le prime due righe) sai quanti
record ci sono nella tabella.
Cià
Maurizio


title: record corrente - spostamenti

text:
Grazie mille tutto ok sono riuscito a ricreare i pulsanti di spostamnto...
:)
Ciao


title: record corrente - spostamenti

text:
"Galvy" <
ga...@libero.it
> ha scritto nel messaggio
news:Uh0S8.66463$j65.1...@twister1.libero.it...
> Grazie mille tutto ok sono riuscito a ricreare i pulsanti di spostamnto...
> :)
> Ciao
>
>
Visto che usi CurrentRecord dell'oggetto RECORDSETCLONE di DAO conviene poi
usare RECORDCOUNT ...!!!
Alessandro.


title: Lista dei formati di stampa.

author: Pleiadi

text:
E' possibile ottenere, in una casella combinata, l'elenco dei formati di
stampa di una specifica stampante?
Sono riuscito ad ottenere l'elenco delle stampanti presenti nel sistema,
comprese quelle remote, ma non quello dei relativi formati di di stampa.
Il tutto mi serve per dare la possibilità all'utente di settare il formato
di stampa del report XXXX tramite una form, mi manca solo l'elenco dei
formati........
Grazie per l'eventuale aiuto.
Alfio


title: selezionare tutto il contenuto di una textbox su attivato della textbox

text:
vorrei che diventasse tutto nero ovvero selezionato il testo all'interno di
una textbox quando la si attiva cliccandoci sopra
sapete dirmi come fare?
grazie.


author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cjho2h$ms6$1...@lacerta.tiscalinet.it...

Vedi SelStart e SelLenght nell'Help
Me.Nomecontrollo.SelStart=Me.NomeControllo.SelLenght
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
>> grazie.
>
> Vedi SelStart e SelLenght nell'Help
> Me.Nomecontrollo.SelStart=Me.NomeControllo.SelLenght
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
> ---------------------------------------------------------------------------
ho provato come dici ma non me lo accende


author: Karl Donaubauer

text:
Simba883 wrote:
> ...
> su click del controllo deve accendersi tutto il valore che c'è dentro
> come se io trascinassi il mouse con tasto sinistro cliccato per
> selezionare tutto il contenuto e farlo diventare nero
> ...
Me!NomeControllo.SelStart = 0
Me!NomeControllo.SelLength = Len("" & Me!NomeControllo)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Access e Mysql

author: Gianni Conte

text:
	Salve a tutti, sono un utente appassionato di Access e di databse, ma
nuovo del NG. Volevo sollevare un problema, che forse in passato è stato
gia proposto. In pratica per una serie di motivazioni volevo utilizzare
access con tabelle collegate ad un server mysql.
Nel mio caso mysql le versioni sono: mysql 5.0, access 2000. S.O. XP.
L'inconveniente al quale ne io ne altri del mio ufficio hanno saputo
trovare una soluzione è che le tabelle di mysql, una volta collegate o
importate su access, perdono la formattazione dei campi data (in tutti i
diversi formati) diventando campi testo, impedendone l'utilizzo ai fini
propri dei campi data.
Esiste una soluzione?  Oppure c'è qualcuno che conosce la causa di ciò?
Saluti e grazie.
Gianni


title: Access e Mysql

text:
Gianni Conte ha scritto:

Prova ad usare un campo TimeStamp
Leggi questo:
http://webdocs.math.univ-rennes1.fr/MySQL/mysql-3.23.52/manual_MyODBC_clients.html
@Alex


title: Access e Mysql

text:
Gianni Conte wrote:
Ciao e Benvenuto,
> Salve a tutti, sono un utente appassionato di Access e di databse, ma
> nuovo del NG. Volevo sollevare un problema, che forse in passato č
> stato gia proposto. In pratica per una serie di motivazioni volevo
> utilizzare access con tabelle collegate ad un server mysql.
>
> Nel mio caso mysql le versioni sono: mysql 5.0, access 2000. S.O. XP.
>
> L'inconveniente al quale ne io ne altri del mio ufficio hanno saputo
> trovare una soluzione č che le tabelle di mysql, una volta collegate o
> importate su access, perdono la formattazione dei campi data (in
> tutti i diversi formati) diventando campi testo, impedendone
> l'utilizzo ai fini propri dei campi data.
>
> Esiste una soluzione?  Oppure c'č qualcuno che conosce la causa di
> ciň?
>
> Saluti e grazie.
>
> Gianni
Access con Mysql vuole un campo Timestamp che mette un pň a posto un paio di
inconvenienti
Una preghiera Gianni, non ascoltare i vecchi detti e torna su questo Ng
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Access e Mysql

text:
>>
>> Esiste una soluzione?  Oppure c'è qualcuno che conosce la causa di
>> ciò?
>>
>> Saluti e grazie.
>>
>> Gianni
> Access con Mysql vuole un campo Timestamp che mette un pò a posto un paio di
> inconvenienti
>
> Una preghiera Gianni, non ascoltare i vecchi detti e torna su questo Ng
>
Grazie per gli aiuti, il campo timestamp lo avevo gia utilizzato, per
sicurezza ho riprovato, ma il risultato è lo stesso. Access lo converte
in campo testo....
Proprio non capisco !  Sto perdendo le speranze non so piu cosa
fare...qualcuno mi puo confermare se è riuscito in quello che a me non
riesce, cosi posso pensare ad un eventuale errore mio di configurazione.
Grazie.
Ha proposito...che vuoi dire con: Una preghiera Gianni, non ascoltare i
vecchi detti e torna su questo Ng???
Ciao a tutti


title: Access e Mysql

text:
Gianni Conte wrote:
>>> Esiste una soluzione?  Oppure c'è qualcuno che conosce la causa di
>>> ciò?
>>>
>>> Saluti e grazie.
>>>
>>> Gianni
>> Access con Mysql vuole un campo Timestamp che mette un pò a posto un
>> paio di inconvenienti
>>
>> Una preghiera Gianni, non ascoltare i vecchi detti e torna su questo
>> Ng
>>
>
>
> Grazie per gli aiuti, il campo timestamp lo avevo gia utilizzato, per
> sicurezza ho riprovato, ma il risultato è lo stesso. Access lo
> converte in campo testo....
> Proprio non capisco !  Sto perdendo le speranze non so piu cosa
> fare...qualcuno mi puo confermare se è riuscito in quello che a me non
> riesce, cosi posso pensare ad un eventuale errore mio di
> configurazione. Grazie.
Le volte (sporadiche) che ho collegato Mysql no ho avuto di questi problemi.
>
> Ha proposito...che vuoi dire con: Una preghiera Gianni, non ascoltare
> i vecchi detti e torna su questo Ng???
Io so che i Conti non tornano mai e la cosa mi sarbbe dispiaciuta
>
> Ciao a tutti



title: mdb show/hide access window sul sito comune

author: UncleSam

text:
ho trovato questo sul sitocomune
      Funzione per Nascondere o Mostrare la Finestra di MSAccess.
        Alessandro Baraldi
      Sfruttando le API è possibile nascondere la finestra principale di
MSAccess.
      Download:
        Show_Hide_Access_W.zip (36Kb) MSAccess97 database
http://www.sitocomune.com/download/Show_Hide_Access_W.zip
solo che come apro l'mdb, questo scompare, e devo anche chiudere il processo
msaccess nascosto :)
come faccio a sfruttarlo?
ps: piccola critica (costruttiva!) mi sarebbe piaciuto incollare
semplicemente l'url della pagina, ma ci sono i frames
avrei incollato l'url del frame,
http://www.sitocomune.com/general/general100.htm
 , ma aprendola c'è uno
script che riporta su
sicocomune.com
, quindi è impossibile segnalare a
qualcuno una specifica pagina
Pierpaolo


title: Aggiornamento valori di menù a tendina

text:
Sarà una cosa chiesta mille volte!
E prima che mi inondiate di insulti ve lo dico io...
Si,ho provato a cercare negli altri post....ma nn ho trovato molto.
Il problema è il seguente...
ho una maschera di inserimento cha chiamerò MascheraA...ed in questa
mascheraA c'è una casella combinata che pesca i valori da un'atra
tabella(tabellaB)e li fa selezionare con un menù a tendina...
fin qui tutto bene e tutto semplice....
difianco alla casella combinata c'è un bottone "Aggiungi" che consente
di aprire un'altra maschera, machera B, per aggiungere valori nella
sotto tabella B da cui la casella combinata pesca...
Serve per aggiungere le possibilità presenti nel menù a tendina se
quella che si vuole inserire nn è già presente...
e fin qui funziona tutto...
quindi mi si apre la mascheraB ed aggiungo il valore...che
effettivamente compare nella tabellaB da cui la casella pesca i
valori...
ma in realta quando la mascheraB viene chiusa e si torna alla mascheraA
il nuovo valore inserito non compare nel menù a tendina,,,,
devo chiudere la maschera A e riaprirla...e allora lo trovo...
deve essere qualcosa legato all'aggiornamento dei valori...magari una
smplice riga di codice in VBA...
ditemi voi
Grazie mille a tutti per le risposte
Teo


title: Aggiornamento valori di menù a tendina

text:
[omissis]
Presupponendo che la MascheraA sia ancora caricata,
Forms("MascheraA").Controls("ComboBoxDaAggiornare").Requery
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: Azione InviaTasti

text:
in un db creato da altri ho una macro che contiene all'inizio questa
istruzione due volte, ho provato a guardare la guida, ma non ne ho ricavato
molto. Il carattere presente nell'argomento SequenzaTasti è la tilde; qual'è
il significato di questa azione e perchè inviare un simile carattere?
grazie mille
m


title: Azione InviaTasti

author: Sergio MAZZA

text:
"2emme" <
m2...@fastwebnet.it
> ha scritto nel messaggio
news:o2_vh.33529$bH4....@tornado.fastwebnet.it...

Nell'help in linea dell'istruzione SendKeys c'è scritto che corrisponde
all'INVIO {ENTER}...
Ciao.
--
Sergio MAZZA


title: Funzione IsNull su campo Memo

author: Cippalippa

text:
E' vero che l'utilizzo della funzione IsNull è l'unico metodo
per determinare se un'espressione contiene o meno un valore Null?
Ho necessità di intercettare il campo [Difetto] quando è vuoto,
ma essendo un campo 'Memo' la funzione IsNull non funziona!
Vorrei se possibile evitare di ridurre il campo a 'Testo',
visto che in questo modo funziona benissimo,
poichè ho la necessità di avere più spazio nel campo.
If IsNull(![Difetto]) = True Then MyRoutineIsNull = False
Grazie dell'aiuto!


title: Funzione IsNull su campo Memo

text:

IsNull() non ha un problema con un memo.
Se questo è il tuo vero codice il problema è il "!" che
devi cancellare.
Se si tratta solo di un errore di battuta qui nel NG devi
rivelare il messagio di errore che ricevi, spiegare dove
si trova il codice e cos'è [Difetto]. Solo un campo in una
tabella o anche un controllo in un form o report o...?
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


title: Funzione IsNull su campo Memo

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:38kdj0F...@individual.net...

Hai ragione Karl,
[Difetto] è il campo tabella di origine dei dati,
ed io mi ostinavo a fare riferimento a quello,
e non alla textbox associata 'txtDifetto',
visto che variando il tipo dati il problema non si è più presentato!
Vorrei però fare riferimento all'origine dati,
perché in alcune condizioni di utilizzo la textbox risulta disabilitata e
non può ricevere il focus.
Comunque non visualizzava alcun errore,
si limitava solamente a non intercettare quando IsNull!
If IsNull(Me![txtDifetto]) = True Then MyRoutineIsNull = False 'OK
Grazie ancora!


title: Funzione IsNull su campo Memo

author: MA

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:38kdj0F...@individual.net...
> Cippalippa wrote:
>> E' vero che l'utilizzo della funzione IsNull è l'unico metodo
>> per determinare se un'espressione contiene o meno un valore Null?
>> Ho necessità di intercettare il campo [Difetto] quando è vuoto,
>> ma essendo un campo 'Memo' la funzione IsNull non funziona!
>> Vorrei se possibile evitare di ridurre il campo a 'Testo',
>> visto che in questo modo funziona benissimo,
>> poichè ho la necessità di avere più spazio nel campo.
>>
>> If IsNull(![Difetto]) = True Then MyRoutineIsNull = False
>
> IsNull() non ha un problema con un memo.
> Se questo è il tuo vero codice il problema è il "!" che
> devi cancellare.
> Se si tratta solo di un errore di battuta qui nel NG devi
> rivelare il messagio di errore che ricevi, spiegare dove
> si trova il codice e cos'è [Difetto]. Solo un campo in una
> tabella o anche un controllo in un form o report o...?
Secondo me è la scelta del termine. Del resto in caso contrario che difetto
sarebbe??!
MAssimiliano


title: Tasto ESC

author: vf

text:
In un programmino di lavoro per registrare dei dati, che consistono in 4
campi numerico - data - testo, il campo contatore funge anche da numero di
archiviazione.
Però c'è un problema qualcuno al momento dell'utilizzo erroneamente preme il
tasto ESC, e questo una volta iniziato l'inserimento elimina anche l'ID che
fa da contatore e dunque salta quel numero.
Nel sito comune ho trovato questa funzione sottostante. Se il tasto ESC
viene premuto nel primo campo funziona benissimo e dunque uscendo non
elimina il numero di contatore,  cosa che non fa se viene premuto nel
secondo campo o comunque funziona solamente in certi casi.
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
   MsgBox "ATTENZIONE!!!! "
  End If
End Sub
Dove è che ho sbagliato.
Si potrebbe su INVIO, del primo campo,  fare in modo che mi salvi il Record
Grazie Valter


title: Come gestire un errore generico ?

author: Biblioteca di Vittuone

text:
Ho una maschera di un database il cui autore vorrebbe gestire un errore di
inserimento, diciamo una mancata corrispondenza in altra tabella per un
campo di ricerca.
Il mio problema è capire DOVE va gestito questo errore, perchè se metto la
solita on error goto sull'uscita dal campo mi dà comunque l'errore generico
e non riesco a intercettare quello specifico (credo sia 3301), non c'è un
sistema a livello form o applicazione di gestire per qualsiasi evenienza
l'errore numero x ?
Grazie e ciao a tutti
Davide


title: Come gestire un errore generico ?

text:
"Biblioteca di Vittuone"
<
bibliotec...@tiscalinet.it
> ha scritto nel
messaggio
news:c9ru4k$rdu$1...@lacerta.tiscalinet.it...

Form_error
MAssimiliano


title: Problema con la stampa di report

text:
Salve a tutti!
Ho un problema alquanto "strano" che riguarda la stampa di report
dinamici da una maschera. In pratica non riesco a stampare su una
stampante di rete.
Mi spiego, tramite la maschera posso scegliere l'id di un prodotto e
stampare il report relativo solo a quel prodotto... premetto che
visualizzando il record in anteprima tutto funziona ok... i problemi
sorgono quando reindirizzo il report sulla stampante. In particolare:
- se uso il comando:
   DoCmd.OpenReport "Tutti gli articoli", acViewNormal, , reportFilter
   dove reportFilter è una variabile che contiene la clausula WHERE
composta secondo i dati immessi dall'utente nella form
  e "Tutti gli articoli" è il report da stampare
  la stampa mi viene inviata sulla stampante predefinita! :o
Purtroppo questo effetto non è il massimo e mi piacerebbe che la
stampante venga scelta dall'utente. Allora ho fatto qualcosa del
genere:
///////////Popola la combo con le stampanti installate sul sistema
Private Sub Form_Open(Cancel As Integer)
    Set defPrinter = Application.printer
    Dim i As Integer
    Dim prnCount As Integer
    prnCount = Application.Printers.Count
    For i = 0 To prnCount - 1 Step 1
        printerLabel.RowSource = printerLabel.RowSource &
Application.Printers(i).DeviceName & ";"
    Next i
    printerLabel.Value = defPrinter.DeviceName
End Sub
//////////////Cambia stampante predefinita
Private Sub printerLabel_Change()
printer = Application.Printers(printerLabel.ListIndex)
End Sub
//////////////Procedura di stampa classica, al termine riporta la
stampante predefinita alle sue impostazioni originali
Private Sub printBtn_Click()
Dim reportFilter As String
reportFilter = createReportFilter(idCiclo.Value)
If recordsCount(reportFilter) = 0 Then
        msgBoxRes = MsgBox("Attenzione! Id prodotto non valido o
inesistente", vbOKOnly, "Stampa prodotto")
    Else:
        DoCmd.OpenReport "Tutti i cicli di Test", acViewNormal, ,
reportFilter
        'printer = defPrinter
    End If
End Sub
Il problema è che cmq la stampa mi viene reindirizzata sulla stampante
predefinita locale :(
Come posso risolvere questo fastidioso problema?
Grazie 1000
ciao ciao
Sergio


title: Problema con la stampa di report

author: Roberto da casa

text:
<
sergio...@gmail.com
> ha scritto nel messaggio
news:1129883298.1...@f14g2000cwb.googlegroups.com...

Onestamente devo ammettere di non aver lettoattentamente tutto il tuo
messaggio, ma ho la sensazione che tu ti stia complicando la vita cercando
di reinventare l'ombrello invece solamente di usare quello che già eiste.
;-)
Se vuoi eseguire il report in uscita su una stampante dando la possibilità
all'utente finale di decidere circa i parametri di stampa compresa la
stampante da usare, credo che la cosa migliore sia non usare il metodo
OpenReport, ma usare la finestra di dialogo della stampante, ovvero, se il
report da eseguire si chiama MioReport" eseguire la stampa nel seguente
modo:
On Error GoTo No_Stampa
DoCmd.SelectObject acReport, "MioReport", True
DoCmd.RunCommand acCmdPrint
DoCmd.SelectObject acForm, Me.Name, False
Exit_Stampa:
    Goto Esci_Stampa
No_Stampa:
    If Err.Number = 2501 Then
        MsgBox "Stampa annullata dall'utente", vbInformation, "Stampa
MioReport"
        DoCmd.SelectObject acForm, Me.Name, False
    Else
        MsgBox Err.Number & " " & Err.Description
    End If
    Resume Exit_Stampa
Esci_Stampa:
>Grazie 1000
Prego.
>ciao ciao
>Sergio
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Problema con la stampa di report

text:
> Onestamente devo ammettere di non aver lettoattentamente tutto il tuo
> messaggio
[CUT]
Già devo ammettere che ho esagerato un pò con la lunghezza!  ;)
sorry!
> Se vuoi eseguire il report in uscita su una stampante dando la possibilità
> all'utente finale di decidere circa i parametri di stampa compresa la
> stampante da usare, credo che la cosa migliore sia non usare il metodo
> OpenReport, ma usare la finestra di dialogo della stampante, ovvero, se il
> report da eseguire si chiama MioReport" eseguire la stampa nel seguente
> modo:
[CUT]
Ho provato subito il metodo da te proposto! E' molto efficiente ed
effettivamente mi semplifica parecchio la vita! ;)
C'è solo un piccolo problema: il report che voglio mandare in stampa
è una versione "filtrata" di quello presente nei reports del DB.
(Ottenevo questo tramite la funzione DoCmd.OpenReport "MioReport",
acViewNormal, , reportFilter, dove reportFilter rappresentava le
condizioni da rispettare)...
A quanto ho capito usando:
  DoCmd.SelectObject acReport, "Tutti i cicli di Test", True
non posso imporre altre condizioni al report...
Esiste un modo per soddisfare anche questo ultimo requisito?
Di nuovo grazie 1000
Ciao ciao
Sergio


title: Problema con la stampa di report

text:
<
sergio...@gmail.com
> ha scritto nel messaggio
news:1129899671.7...@g14g2000cwa.googlegroups.com...


Uno dei modi per risolvere il problema potrebbe essere questo:
In un modulo standard del datbase definisciti la seguente variabile globale:
Public MioFiltro As String
Quindi se vuoi lanciare il report senza filtro, prima delle righe di codice
con cui esegui il report genera questa riga di codice:
MioFiltro = ""
Se invece il report va filtrato nella variabile MioFiltro memorizzi i
criteri di filtraggio; se ad esempio il devi stampare solo i record per cui
il campo numerico MioCampo è maggiore di 9, scriverai:
MioFiltro = "MioCampo = 9"
A questo punto a fronte dell'evento "Su apertura del report generi il
segiente codice VBA:
Me.Filter = MioFiltro
Me.FilterOn = True
>
>Di nuovo grazie 1000
Prego
>Ciao ciao



title: Problema con la stampa di report

text:
Funziona perfettamente! Ottima idea!
Grazie 100000000 del tuo utilissimo aiuto! :DDDD
Ciao ciao
Sergio


title: Problema con la stampa di report

author: toni

text:
sergio...@gmail.com
 ha scritto:

ciao ho letto il tuo mess.
ho bisogno di visualizzare il report di un campionato di calcio.
Nella maschera chiedo di inserire il nome della squadra di cui si vuol
visualizzare il calendario, poi dovrei stampare il report del calendario
di sola quella squadra invece me lo visualizza dell'intero campionato:
ES: inserisci team: lazio
vorrei che mi uscisse nel report:
lazio-inter
juve-inter
invece mi escono tutte le partite del campionato! come posso fare ?!!?!
potresti aiutarmi
grazie toni


title: Problema con la stampa di report

text:
"toni" <
schia...@virgilio.it
> ha scritto nel messaggio
news:%N66f.24515$Pe2.4...@twister2.libero.it...
>
sergio...@gmail.com
 ha scritto:
[CUT]
> >
> ciao ho letto il tuo mess.
> ho bisogno di visualizzare il report di un campionato di calcio.
> Nella maschera chiedo di inserire il nome della squadra di cui si vuol
> visualizzare il calendario, poi dovrei stampare il report del calendario
> di sola quella squadra invece me lo visualizza dell'intero campionato:
> ES: inserisci team: lazio
> vorrei che mi uscisse nel report:
> lazio-inter
> juve-inter
> invece mi escono tutte le partite del campionato! come posso fare ?!!?!
> potresti aiutarmi
Ci sono tanti modi per filtrare un report, uno di questi lo trovi sul Sito
Comune (link qui sotto) nella  Sezione Reports nella FAQ di Silvestrini
Nazzareno intitolata "4.9 Come ottenere un report pronto per la stampa con i
record filtrati da una maschera".
>
>
> grazie toni
Prego



title: Problema con la stampa di report

text:
Roberto da casa ha scritto:
> "toni" <
schia...@virgilio.it
> ha scritto nel messaggio
> news:%N66f.24515$Pe2.4...@twister2.libero.it...
>
>>
sergio...@gmail.com
 ha scritto:
>
> [CUT]
>
>>ciao ho letto il tuo mess.
>>ho bisogno di visualizzare il report di un campionato di calcio.
>>Nella maschera chiedo di inserire il nome della squadra di cui si vuol
>>visualizzare il calendario, poi dovrei stampare il report del calendario
>>di sola quella squadra invece me lo visualizza dell'intero campionato:
>>ES: inserisci team: lazio
>>vorrei che mi uscisse nel report:
>>lazio-inter
>>juve-inter
>>invece mi escono tutte le partite del campionato! come posso fare ?!!?!
>>potresti aiutarmi
>
>
> Ci sono tanti modi per filtrare un report, uno di questi lo trovi sul Sito
> Comune (link qui sotto) nella  Sezione Reports nella FAQ di Silvestrini
> Nazzareno intitolata "4.9 Come ottenere un report pronto per la stampa con i
> record filtrati da una maschera".
>
>
>>
>>grazie toni
>
>
> Prego
>
guarad che pero il mio problema è un altro siccome ho una maschera che è
il risutlatao di una query e quindi mi mostra un solo campo ho necessita
di filtrare il report con il nome del campo chiave, seguendo
quell'indicazione mi mostra tutti i campi chiave dti tutti i record del db !