text:
"vale" <
va...@virgilio.it
> ha scritto nel messaggio
news:b2i73c$1bqhoj$1...@ID-168410.news.dfncis.de...
[CUT]
Rieccomi qua: sono quel "solone" di cui sopra che si permette di parlare di
"pappa pronta"; che ci vuoi fare, ho la cattiva abitudine di scrivere ciò
che penso, dopo che per decenni (sottolineo decenni) ho incontrato molte
persone che vogliono programmare ma di studiare non se ne parla.
>
> Ti ringrazio Alberto, sono naturalmente in sintonia con te e meno con
certi
> "soloni" che si permettono di parlare di "pappa pronta" senza conoscere le
> persone, le situazioni e/o il tempo che spesso non è sufficiente per
sapere
> tutto.
Ho la presunzione di pensare che per avere una discreta conoscenza di Access
sarebbe stato sufficiente dedicare al suo studio la metà del tempo che perdi
a non riuscire a risolvere i tuoi problemi di programmazione.
> Comunque io insisto:
>
> se qualcuno mi sostiene che nell'help in linea è scritto chiaramente che
> oltre alla proprietà orderby bisogna impostare anche oderbyon="true",
allora
> farò ammenda e la prossima volta leggerò l'help con più attenzione,
Lo sostengo io e senza paura di essere smentito e adesso tu dovresti fare
ammenda.
Quando si va sull'help e qualcosa non è chiaro, per maggiori chiarimenti
OCCORRE cliccare sulla scritta *Vedere anche* che si trova scritto in verde
in alto a sinistra della pagina; se tu l'avessi fatto mentre visualizzavi la
proprietà OrderBy, ti saresti accorto che Access ti rimandava anche alla
proprietà OrdinaAdAvvio (italiano), alias OrderByOn.
Già ma tu eri troppo impegnato a polemizzare con @Alex perché ti aveva dato
solo una dritta su come risolvere il tuo problema, ma non ti aveva
spiattellato per filo e per segno la soluzione: non avevi tempo per leggere
tutto quello che era scritto sull'help circa il tuo problema.
> altrimenti ai "soloni" di cui sopra suggerisco di non dare per scontato
cose
> che scontate non sono per chi non è un conoscitore del VBA.
>
> Grazie a tutti comunque per il suggerimento (se posso aggiungere una cosa
> utile per altri, ho notato che me.orderby "nomecampo" non funziona su dei
> campi calcolati ma solo su campi già presenti nella query).
E qui riemerge la necessità che tu studi almeno un po' Access.
In una maschera non esistono, come tu dici, i campi calcolati (che sono
contenuti nella queries) ma i controlli calcolati; se avessi letto
attentamente l'help ti saresti accorto che c'è scritto:
==============
La proprietà OrdinaPer è un'espressione stringa che è il nome del campo o
dei campi in base a cui si desidera ordinare i record. Quando si utilizza
più di un nome di campo, separare i nomi con una virgola (,).
==============
Parla di nome di campi (di una tabella o di una query) e non nomi di
controlli (di una maschera o di un report). Quindi nella tua precisazione
avresti dovuto scrivere che in una OrderBy si deve fare riferimento al nome
di campi e non a nomi di controlli, ma questo era superfluo visto quello che
c'è scritto sull'help.
Se tu non sai la differenza che esiste tra un campo ed un controllo non puoi
poi dire che è colpa dell'help che non è chiaro, ma è colpa tua che non
studi.



title: Ordinamento campi calcolati (Form popup)

author: Antonio Biso

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Aj73a.117592$ZE.32...@twister2.libero.it...
>
> "vale" <
va...@virgilio.it
> ha scritto nel messaggio
> news:b2i73c$1bqhoj$1...@ID-168410.news.dfncis.de...
> [CUT]
>
> Rieccomi qua: sono quel "solone" di cui sopra che si permette di parlare
di
> "pappa pronta"; che ci vuoi fare, ho la cattiva abitudine di scrivere ciň
> che penso, dopo che per decenni (sottolineo decenni) ho incontrato molte
> persone che vogliono programmare ma di studiare non se ne parla.
Quanto mi piacerebbe che tu possa conoscere il mitico LBO!!!
Pace all'anima sua...
Antonio


author: Alessandro Cara

text:
Antonio Biso wrote:
[cut]
> Quanto mi piacerebbe che tu possa conoscere il mitico LBO!!!
> Pace all'anima sua...
secondo me il "Boccia"  gia' se sta a gratta'.
Cmq, mi sa che s.valentino (oltretutto l'iniziatore del post
si nickka "vale") deve creare qualche problema.
--
a.cara
Togli qualcosa dall'email


author: Alex

text:
"Alberto S." <
sartori.SPA...@tin.it
> wrote in message
news:krun4vskodabj18od...@4ax.com

Ciao Albero....!
E' un pò di tempo che scrivi, e ritengo tu possa avere un tuo giudizio
in merito che non voglio minimamente contraddire.
Ti invito però a rileggere il 3D, io lo spunto utile l'ho dato
in modo educato, ma quando mi sento dire che invece di consigliare
l'HELP avrei fatto prima a postare il CODICE perchè gli faccio
perdere tempo................ mi incazzo di brutto, perchè io
sono tra quei coglioni che il tempo per leggere l'help lo perde,
magari per dare le DRITTE a chi non ha nemmeno per le palle di
schiacciare
F1.....come in questo caso.
Lo sfogo non era nei tuoi confronti, ma ti assicuro che l'esigere
risposte non rientra nei comportamenti del NG, esigere proprio
non rientra in nessun comportamento, solo pagando hai il diritto di
esigere
 ma solo ciò che ti spetta(Contratto).
Quì nessuno è pagato per fare nulla, nessuno è obbligato nè a rispondere
nè a tacere nè a nulla.
L'unico obbligo "Morale" è quello di rispettare le regole che il NG
si è dato, e quì...... mi fermo.
Ora invece rispondo a te Alberto:
Il carattere personale non è nemmeno da mettere in discussione
ognuno ha il suo, sono brusco, può essere, ma solitamente solo
con motivo.
Non è obbligatorio sorridere sempre a tutti solo per essere simpatici
io preferisco dire quello che penso senza mezze misure, e preferisco
che le persone con qui parlo usino altrettanta "delicatezza".....!
Saluti.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:UkU2a.115331$
YG2.3...@twister1.libero.it
[CUT]

> Che poi Alex a 'sto giro sia stato più realista del re (IO) beh, vabbeh...
> capita...
>
> magari aveva appena saputo che la sua morosa domani, San Valentino, avrà le
> sue cose, costringendolo a saltare così la trombata semestrale...
>
> Hehe heh ehe ehee e ee eheheehehhe ehhee
>
> Antonio
Ti diverti vero....???
Bada bene che è mia moglie(compagna), quindi non si tratta di
Semestrale, ma annuale, quindi se salta questa se ne riparla nel
2004...!
E dici poco...!!!
P.S. non mi permetterei mai di SurClassarti, semmai SubClassarti...!
Questa battuta non tutti la capiranno, solo i "SOLONI"
;-)
@Alex



author: Roberto da casa

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:5u73a.117631$ZE.32...@twister2.libero.it...

Ho avuto il piacere di conoscerlo personalmente durante gli ultimi due
raduni nazionali di ICAA.



author: vale

text:
>
> Lo sfogo non era nei tuoi confronti, ma ti assicuro che l'esigere
> risposte non rientra nei comportamenti del NG, esigere proprio
> non rientra in nessun comportamento, solo pagando hai il diritto di
> esigere
>  ma solo ciò che ti spetta(Contratto).
> Quì nessuno è pagato per fare nulla, nessuno è obbligato nè a rispondere
> nè a tacere nè a nulla.
> L'unico obbligo "Morale" è quello di rispettare le regole che il NG
> si è dato, e quì...... mi fermo.
Caro Alex io non ho mai preteso nulla!!!
se mi rileggi ti accorgi che ho sempre usato un tono cortese, a parte il
"soloni" che mi è scappato, ma non era certo in tono offensivo.
il mio disappunto derivava soltanto dalle circostanze che mi mettevano una
gran fretta nel risolvere il mio problema, e speravo in un suggerimento
"definitivo" per, come si dice, "venirne fuori". Lo so anch'io che avendo
tempo a disposizione è meglio leggersi dei testi (li ho comprati) l'help in
linea e i precedenti post, ma  sarà capitato anche a te di avere una
tremenda fretta e sperare in una scorciatoia gratuita offerta dai colleghi
del newsgroup che io aprezzo sempre e ringrazio ogni volta.
I vari "Roberto da casa" "Antonio Biso" e tu stesso sono molto utili e, come
poi tu sottolinei, lo spirito del newsgroup deve essere proprio quello di
aiutarsi a vicenda, non di far polemiche.
Ti posso garantire che per chi non usa la programmazione di access a livello
professionale, spesso l'help risulta un pò astruso, e se non si ha il giusto
tempo a disposizione può scoraggiare tante persone.
In definitiva speravo in un suggerimento come quello che mi ha dato "Roberto
da Casa" su "microsoft.public.it.office.access" del 12/02/2003
che mi ha risolto il problema con due righe.
Sotto a quel post poi ci poteva stare il tuo suggerimento di documentarsi e
leggere meglio l'help, ma intanto i "mastini" della mia azienda che volevano
delle statistiche ordinate stavano buoni per un pò.
In ogni caso, bando alle polemiche, se vieni dalle mie parti (Brescia) ti
offro un caffè.
ciao a tutti e.... grazie.
vale



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hi83a.117836$YG2.3...@twister1.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:5u73a.117631$ZE.32...@twister2.libero.it...
> > "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> > news:Aj73a.117592$ZE.32...@twister2.libero.it...
> > >
> > > "vale" <
va...@virgilio.it
> ha scritto nel messaggio
> > > news:b2i73c$1bqhoj$1...@ID-168410.news.dfncis.de...
> > > [CUT]
> > >
> > > Rieccomi qua: sono quel "solone" di cui sopra che si permette di
parlare
> > di
> > > "pappa pronta"; che ci vuoi fare, ho la cattiva abitudine di scrivere
> ciň
> > > che penso, dopo che per decenni (sottolineo decenni) ho incontrato
molte
> > > persone che vogliono programmare ma di studiare non se ne parla.
> >
> > Quanto mi piacerebbe che tu possa conoscere il mitico LBO!!!
> > Pace all'anima sua...
> >
> > Antonio
>
> Ho avuto il piacere di conoscerlo personalmente durante gli ultimi due
> raduni nazionali di ICAA.
Ecco, per questo tipo di argomenti avete le idee molto simili...
Antonio


title: sono in crisi profonda con la modifica di una sottomaschera

author: stwe

text:
generalizzo il problema:
ho una maschera non associata che mi permette di selezionare prima il
cliente, poi la moto ed infine ho una sottomaschera con descrizione prezzo e
importo, e fin quì tutto bene, anche e sopratutto grazie al ng.
ora ecco la novità, in fondo alla sottomaschera (piè pagina maschera) dove
ho messo il totale, dovrei aggiungere un bel campo "note", ma non ci riesco,
la mia idea di partenza era quella di aggiungere tale campo nella tabella
descrizione, ma non funziona assolutamente, ovviamente, ora sono 6 ore di
fila che ci provo (ne ho fatte di cotte e di crude: dalle query più strane,
alle tabelle, ho provato via codice, con strane sottomaschere di
sottomaschere, insomma ne ho provate tante, ma non sono arrivato da nessuna
parte)
grazie a chiunque mi dia una mano.
by
stwe


text:
stwe <
st...@stwe.org
> wrote in message
0_tq7.10659$Lp6.3...@news.infostrada.it...

Perchè non metti un controllo non associato nella mschera principale e poi
con un pulsante non la salvi da qualche parte?
Potresti per esempio farti una tabella note con il numero di ordine come
chiave
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:p_Aq7.11580$Lp6.4...@news.infostrada.it...

grazie per il suggerimento, ma non ci sto riuscendo comunque
by
stwe


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:26Eq7.12391$Lp6.4...@news.infostrada.it...

allora questo è quanto ho fatto fin ora:
ho aggiunto il campo note alla tabella descrione che è origine della
sottomaschera, poi io scelgo il cliente, scelgo la moto, riempo i dati della
sottomaschera, ed infine scrivo la nota (che si trova a piè
pagina/sottomaschera). Solo che quando vado in anteprima di stampa mi mette
un campo record in più per visualizzare la nota.
Es.:
data        descrizione     quantità        prezzo         importo
10/5/01    jjsfhjsdfjh           1                100            1000
10/5/01                              0                0                    0
note: la mia nota
in pratica come posso non far creare questo campo vuoto?????
by
stwe


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:ieFq7.12831$Lp6.4...@news.infostrada.it...

[un campo record] è già bella come espressione eh...
era record


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:0_tq7.10659$Lp6.3...@news.infostrada.it...

Tanto per seguire meglio il thread, ma le note non sono relative alla moto
selezionata?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
ho risolto
bastava spostare il focus prima sull'ultimo record di descrizione e poi di
nuovo su note in questo modo funziona tutto, ovviamente non credo sia una
soluzione elegante, però funziona, ora la farò testare e vedrò che mi
dicono.
Per Roberto, la nota è riferita alla "scheda di lavorazione" qualcosa di
simile a ordini in NW, quindi alla moto e di conseguenza al cliente.
grazie a tutti per l'interessamento
by
stwe


title: Caricare una foto solo se esiste....

author: RaffiFast

text:
Scusate ancora l'intrusione ma...ritornando al problema del post
precedente, brillantemente risolto grazie all'aiuto di Riccardo e
Alessandro, mi trovo di fronte ad un altro piccolo bug...
la mia maschera "Album" carica le foto dei prodotti grazie ad un
controllo in una query che chiamo
foto:"D:\Immagini\" & Format([Riff]) & ".jpg"
ed un "img" immagine collegata al controllo tramite la routine evento
"su corrente" della maschera che ordina:
Private Sub Form_Current()
     Me.Img.Picture = Me.Foto
End Sub
Ora il problema nasce se di un determinato prodotto non ho lo foto nella
cartella immagini....mi da un errore di debug....molto fastidioso...
come risolvere?? una soluzione potrebbe essere ad esempio che se non
esiste la foto A5678, mi carichi un'immagine prestabilita, tipo "no
Foto"...ma non so come fare.
Ovviamente sono ben accette altre soluzioni...
Grazie!!


title: Caricare una foto solo se esiste....

author: Riccardo Baldinotti

text:

Potresti cominciare a mettere un
On Error GoTo errore:

e scrivi
errore:
   MsgBox Err.Number, Err.Description

così vedi il numero di errore.
Poi puoi sostituire con:
On Error Resume Next
e, dopo l'istruzione che ti dà errore:
If Err.Number = <quello che avrai trovato> Then
   MsgBox "Foto non presente"
   Exit Sub
End If
o cose del genere.


title: Caricare una foto solo se esiste....

text:
Il 22/09/2011 11.36, RaffiFast ha scritto:
> Scusate ancora l'intrusione ma...ritornando al problema del post
> precedente, brillantemente risolto grazie all'aiuto di Riccardo e
> Alessandro, mi trovo di fronte ad un altro piccolo bug...
>
> la mia maschera "Album" carica le foto dei prodotti grazie ad un
> controllo in una query che chiamo
> foto:"D:\Immagini\" & Format([Riff]) & ".jpg"
>
> ed un "img" immagine collegata al controllo tramite la routine evento
> "su corrente" della maschera che ordina:
>
> Private Sub Form_Current()
> Me.Img.Picture = Me.Foto
> End Sub
>

on error resume next
> Ora il problema nasce se di un determinato prodotto non ho lo foto nella
> cartella immagini....mi da un errore di debug....molto fastidioso...
if err.number <> 0 them
   text="No picture avalaible"
endif
> come risolvere?? una soluzione potrebbe essere ad esempio che se non
> esiste la foto A5678, mi carichi un'immagine prestabilita, tipo "no
> Foto"...ma non so come fare.
>
> Ovviamente sono ben accette altre soluzioni...
> Grazie!!

--

ac (x=y-1)


title: Caricare una foto solo se esiste....

text:
>
> Potresti cominciare a mettere un
> On Error GoTo errore:
>
> e scrivi
> errore:
>     MsgBox Err.Number, Err.Description
>
> così vedi il numero di errore.
> Poi puoi sostituire con:
> On Error Resume Next
> e, dopo l'istruzione che ti dà errore:
> If Err.Number =<quello che avrai trovato>  Then
>     MsgBox "Foto non presente"
>     Exit Sub
> End If
> o cose del genere.

Non funziona....cioè...se inserisco le righe che scrivi

On Error GoTo errore:
errore:
	MsgBox Err.Number, Err.Description

nella sezione "su corrente" mi da un "Errore di Run-Time '13' - Tipo non
corrispondente" anche sui record dei quali c'è la foto....non funziona
proprio più insomma....
forse devo scrivere queste righe in un'altra sezione della routine?


title: Caricare una foto solo se esiste....

author: Popi - TheBadHabits

text:
On 22 Set, 11:36, RaffiFast <
rachietsenzas...@aruba.it
> wrote:

Ciao!

Una cosa di questo genere potrebbe andare bene?

Private Sub Form_Current()
    if (dir(me.foto)<>"")then
        Me.Img.Picture = Me.Foto
    else
        Me.Img.Picture = x:\path\MancaFoto.jpg
    end if
End Sub

HTH
Popi


title: Caricare una foto solo se esiste....

text:
>
> on error resume next
>> Ora il problema nasce se di un determinato prodotto non ho lo foto nella
>> cartella immagini....mi da un errore di debug....molto fastidioso...
> if err.number <> 0 them
> text="No picture avalaible"
> endif
>> come risolvere?? una soluzione potrebbe essere ad esempio che se non
>> esiste la foto A5678, mi carichi un'immagine prestabilita, tipo "no
>> Foto"...ma non so come fare.
>>
>> Ovviamente sono ben accette altre soluzioni...
>> Grazie!!
>
>

In questo caso nasce il problema che anziche un avviso di debug
generico, mi da un msgbox con scritto:
Errore di run-time '2220' Impossibile aprire il file D:......


title: Caricare una foto solo se esiste....

text:
Il 22/09/2011 12:39, Popi - TheBadHabits ha scritto:
> On 22 Set, 11:36, RaffiFast<
rachietsenzas...@aruba.it
>  wrote:
>> Scusate ancora l'intrusione ma...ritornando al problema del post
>> precedente, brillantemente risolto grazie all'aiuto di Riccardo e
>> Alessandro, mi trovo di fronte ad un altro piccolo bug...
>>
>> la mia maschera "Album" carica le foto dei prodotti grazie ad un
>> controllo in una query che chiamo
>> foto:"D:\Immagini\"&  Format([Riff])&  ".jpg"
>>
>> ed un "img" immagine collegata al controllo tramite la routine evento
>> "su corrente" della maschera che ordina:
>>
>> Private Sub Form_Current()
>>       Me.Img.Picture = Me.Foto
>> End Sub
>>
>> Ora il problema nasce se di un determinato prodotto non ho lo foto nella
>> cartella immagini....mi da un errore di debug....molto fastidioso...
>> come risolvere?? una soluzione potrebbe essere ad esempio che se non
>> esiste la foto A5678, mi carichi un'immagine prestabilita, tipo "no
>> Foto"...ma non so come fare.
>>
>> Ovviamente sono ben accette altre soluzioni...
>> Grazie!!
>
> Ciao!
>
> Una cosa di questo genere potrebbe andare bene?
>
> Private Sub Form_Current()
>      if (dir(me.foto)<>"")then
>          Me.Img.Picture = Me.Foto
>      else
>          Me.Img.Picture = x:\path\MancaFoto.jpg
>      end if
> End Sub
>
> HTH
> Popi

Grazie!! Ho risolto cosě:

Siccome, non so perchč, ma mi dava errori in tutti i modi, anche che
questa soluzione...ho creato un campo nella query di partenza della
maschera in questo modo:
Fotor:"C\foto mancante.jpg"

poi, nella routine evento della maschera ho scritto:

  Private Sub Form_Current()
       if (dir(me.foto)<>"")then
           Me.Img.Picture = Me.Foto
       else
           Me.Img.Picture = me.Fotor
       end if
  End Sub

Cosě funziona!
Grazie a tutti!


title: Caricare una foto solo se esiste....

text:
....
> Cos funziona!
> Grazie a tutti!

Si ma è una CAVOLATA bestiale...!

@Alex


title: Caricare una foto solo se esiste....

text:
Il 22/09/2011 19:29, @Alex ha scritto:
> ....
>> Cos funziona!
>> Grazie a tutti!
>
> Si ma � una CAVOLATA bestiale...!
>
> @Alex
si..hai ragione...ma...potresti allora spiegarmi perch� non funzionano i
suddetti metodi? premetto e ripeto di non essere una "cima"...e si
vede....quindi....se possibile...una spiegazione davvero semplice e
maccheronica... Grazie comunque!


title: Caricare una foto solo se esiste....

text:

Il riferimento alla cavolata era ed è rivolto alla necessità di usare
INUTILMENTE un controllo TEXTBOX ovviamente, poi tu puoi fare come
credi.

I motivi per i quali non funzionava possono essere molti, e
condizionati da errori che magari non hai esposto...
Ad esempio perchè hai usato FORMAT in questa Format([Riff])...?
Ovviamente non serve, ma giusto per farti capire che se banalmente,
per inesperienza commetti errori di questo tipo, potresti
averne commessi altri che celano il vero motivo del malfunzionamento.

Io farei così:

  Private Sub Form_Current()
       Me.Img.Picture=vbNullstring
       if EsisteFile(me.foto) then
             Me.Img.Picture = Me.Foto
       Else
              Me.Img.Picture = mFakeImage
       End If
  End Sub

questo in un Modulo:

Public Const cFakeImage= "C\foto mancante.jpg"

Public Function EsisteFile(ByVal str As String) As Boolean
    On Error Resume Next
    EsisteFile = (GetAttr(str) And vbDirectory) = 0
End Function

Per i PIGNOLI delle performances... la funzione usata per la verifica
dell'esistenza del FILE è decisamente più veloce dell'uso di DIR....
ovviamente la considerazione è nel caso si debba CICLARE... ma a
prescindere se è meglio io la uso.

@Alex


title: Caricare una foto solo se esiste....

text:

Grande Alex...e grazie per la cortese e completa risposta!
Purtroppo, credo che tutto questo sia davvero al disopra delle mie
capacità..intendo....voglio fare qualcosa che riesco anche a capire e
controllare...e le funzioni che tu esponi sono per me "arabo"...
Terrò comunque in serbo questo post, per quando sarò (spero presto) più
capace.
A presto, Raf


title: L'azione openform è stata annullata

author: Franco

text:
Salve
ho l'Errore 2501
L'azione openform è stata annullata
su questo punto
DoCmd.OpenForm stDocName, , , stLinkCriteria

questo è il codice completo
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FattureFornitori"

    stLinkCriteria = "[nFatturaFo]=" & Me![nFatturaFo]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Grazie


title: L'azione openform è stata annullata

text:

Come fai a dire (essere certo) che sia in questo punto?
Se hai qualcosa sulla load o sull'open del form "FattureFornitori"
(sempre che il nome sia giusto, ho qualche dubbio) potrebbe essere
tranquillamente li.

--

ac (x=y-1)


title: L'azione openform è stata annullata

author: Karl Donaubauer

text:

Il campo nFatturaFo nella tabella è di quale tipo?
Se si tratta di un campo testo, ma il valore contiene solo delle ciffre,
devi usare delle virgolette:

stLinkCriteria = "nFatturaFo="  & Chr$(34) & Me!nFatturaFo & Chr$(34)

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


title: L'azione openform è stata annullata

text:
Il 18/11/2011 19.27, Karl Donaubauer ha scritto:
> Franco wrote:
>> ho l'Errore 2501
>> L'azione openform è stata annullata
>> su questo punto
>> DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>> questo è il codice completo
>>     Dim stDocName As String
>>     Dim stLinkCriteria As String
>>
>>     stDocName = "FattureFornitori"
>>
>>     stLinkCriteria = "[nFatturaFo]="&  Me![nFatturaFo]
>>     DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Il campo nFatturaFo nella tabella è di quale tipo?
> Se si tratta di un campo testo, ma il valore contiene solo delle ciffre,
> devi usare delle virgolette:
>
> stLinkCriteria = "nFatturaFo="&  Chr$(34)&  Me!nFatturaFo&  Chr$(34)
>
Stavo per fare un P.S. , fatica risparmiata ;-{)

--

ac (x=y-1)


title: L'azione openform è stata annullata

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:Nuxxq.100269$GZ3....@tornado.fastwebnet.it...

Grazie Alessandro e Karl
è testo e con il codice di Karl ora funziona


title: Inviare carattere a Excel

author: fafino

text:
Salve,
dopo aver aperto un foglio Excel con
Dim oApp As Excel.Application
Dim oWks As Excel.Workbook
Dim oWsh As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
Set oWks = oApp.Workbooks.Open("pippo.xls")
Set oWsh = oWks.Worksheets(1)
come faccio a mandare nella cella 1,1 la funzione    =
CONTA.SE
(D10:AH10;"F")
con oWsh.Cells(1,1) = "=
CONTA.SE
(D10:AH10;"F")"
non va
GRAZIE 1000
faf...@tiscalinet.it


title: Inviare carattere a Excel

author: Sergio MAZZA

text:
"fafino" <
faf...@tiscalinet.it
> ha scritto nel messaggio
news:QWBQ8.46015$j65.1...@twister1.libero.it...

Se ti serve eseguire il
conta.se
 senza scriverlo puoi fare cosě:
'---------
  Dim MyXL As Excel.Application
  Set MyXL = CreateObject("Excel.Application")
  MyXL.Workbooks.Open "pippo.xls"
  MyXL.ActiveWorkbook.Sheets(1).Select
  MyXL.Visible = False
  MsgBox MyXL.WorksheetFunction.CountIf(MyXL.Range("A1:A1000"), 11)
  MyXL.Quit
'---------
Considera che puoi utilizzare qualsiasi formula controllando nell'help (di
excel) la voce: Elenco delle funzioni del foglio di lavoro disponibili in
Visual Basic.
Ciao.
P.S. Inserisci anche una gestione di errori per non rimanere con gli oggetti
creati "appesi"...
--
Sergio MAZZA


title: Inviare carattere a Excel

text:
> Se ti serve eseguire il
conta.se
 senza scriverlo puoi fare cosě:
> '---------
>   Dim MyXL As Excel.Application
>
>   Set MyXL = CreateObject("Excel.Application")
>
>   MyXL.Workbooks.Open "pippo.xls"
>
>   MyXL.ActiveWorkbook.Sheets(1).Select
>   MyXL.Visible = False
>
>   MsgBox MyXL.WorksheetFunction.CountIf(MyXL.Range("A1:A1000"), 11)
>
>   MyXL.Quit
Purtroppo devo scriverlo, perche' chiuso Access devo lavorare con Excel.
Il problema del comando:
oWsh.Cells(1,1) = "=
CONTA.SE
(D10:AH10;"F")"
sono i doppi apici che contengono la F, dato che il primo di questi viene
visto come la chiusura della stringa.
Ho provato con :
oWsh.Cells(1,1) = "=
CONTA.SE
(D10:AH10;""F"")"
ottenendo una stringa che contiene i doppi apici, ma niente da fare.
N.B. Se faccio
oWsh.Cells(1,1) = "paperino"
funziona.
GRAZIE 1000
faf...@tiscalinet.it


title: Inviare carattere a Excel

author: namor

text:
"fafino" <
faf...@tiscalinet.it
> ha scritto nel messaggio
news:QWBQ8.46015$j65.1...@twister1.libero.it...

Non ho avuto il tempo di verificare, ma credo che il problema sia dovuto al
fatto che la proprietà predefinita dell'insieme cells è "value". Tu non ci
devi scrivere un valore ma una formula. Prova così:
oWsh.Cells(1,1).Formula = "=
CONTA.SE
(D10:AH10;"F")"
o così:
oWsh.Range("A1").Formula = "=
CONTA.SE
(D10:AH10;"F")"
-Marco-


title: Inviare carattere a Excel

author: Emyr

text:
On Fri, 21 Jun 2002 16:51:54 +0200, "fafino" <
faf...@tiscalinet.it
>
wrote:

al posto degli apici metti chr$(39)
Saluti.
Emanuele.


title: Inviare carattere a Excel

text:
> Non ho avuto il tempo di verificare, ma credo che il problema sia dovuto
al
> fatto che la proprietà predefinita dell'insieme cells è "value". Tu non ci
> devi scrivere un valore ma una formula. Prova così:
> oWsh.Cells(1,1).Formula = "=
CONTA.SE
(D10:AH10;"F")"
> o così:
> oWsh.Range("A1").Formula = "=
CONTA.SE
(D10:AH10;"F")"
>
> -Marco-
>
Rettifico... ci vogliono sempre i "doppi doppi apici", se vengono inclusi in
una stringa:
oWsh.Cells(1,1).Formula = "=
CONTA.SE
(D10:AH10;""F"")"
oWsh.Range("A1").Formula = "=
CONTA.SE
(D10:AH10;""F"")"


title: odffice 365 e problema eportazione dati .CopyFromRecordset rs

author: pfmarro

text:
  salve!
  per esportare dei dati da MsAccess a Excel utilizzava

    Dim xlApp   As Object   ' Oggetto EXCEL
    Dim oWkb    As Object   ' Oggetto WORKBOOK

    Dim X       As Integer
    Dim rs      As DAO.Recordset

    Exp2XLS = False

    ' APRE SE ESISTE GIA' UN'OGGETTO EXCEL
    Set xlApp = CreateObject("Excel.Application")

    Set oWkb = xlApp.Workbooks.Add()

    Select Case xlApp.Version   ' la versione di Excel
      Case "11.0"
           ' ver 2003
           nParametro_xSalvare = 43
      Case "14.0"
           ' ver 2016
           nParametro_xSalvare = 56
      Case Else
           ' altre versioni
           nParametro_xSalvare = 56
    End Select

    oWkb.SaveAs NomeFile, nParametro_xSalvare

    oWkb.Sheets(1).Name = sNomeFoglio

    Set rs = CurrentDb.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

    oWkb.Sheets(1).Range("A4").CopyFromRecordset rs   <================= se metto la stringa SQL IN una query visualizzo i dati ma da codice mi dice

                                                                         "9 subìndice fuera del intervalo"

mentre lo stesso eseguito con versioni precedenti funziona tutto correttamente
                                                                         "9 subìndice fuera del intervalo"


title: Conteggio record in una sottomaschera

author: Federico Campoli

text:
Ho costruito grazie ai consigli di Sib una maschera che ne contiene altre.
Una di queste memorizza in una tabella relazionata dei dati. Ora vorrei
estrarre il numero di record in funzione dell'id di relazione con laprima.
Mi spiego meglio.
TAB1
--------
id
nome
cognome
idFiglio
TAB2
---------
id
idFiglio
Nome
Cognome
Voglio sapere quanti record ho trovato in TAB2 quando TAB1.Idfiglio =
TAB2.Idfiglio .
Stavo pensando di scrivere una routine con l'utilizzo di ADO (che in VB 6
conosco bene), ma in access non mi so raccapezzare.
Grazie a chi mi risponderà
Fede


title: Conteggio record in una sottomaschera

text:
Whoops
Ho dimenticato di dire che voglio avere un riscontro di questo tipo.
In TAB2 voglio inserire in un campo apposito il progressivo in funzione
dell'idfiglio.
Cioč se ho
TAB1
-------------
Nome: pippo
idFiglio: 3
In TAB2 vorrei avere
idFiglio: 3
progFiglio:  1
nome: ciccio
idFiglio: 3
progFiglio:  2
nome: cocco
idFiglio: 2
progFiglio:  1
nome: pasquale
E cosě via.
Grazie ancora.
Fede


title: Conteggio record in una sottomaschera

text:
"Federico Campoli" <
f.ca...@wayin.net
> ha scritto nel messaggio
news:8smq5r$iagko$1...@ID-35431.news.cis.dfn.de...

Ipotizzando che il controllo Cognome della sottomaschera non abbia mai il
valore Null, nel piè di pagina della sottomaschera inserisci una casella di
testo non associata nella cui origine controllo scrivi:
    =Conteggio([Cognome])
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Conteggio record in una sottomaschera

text:
"Federico Campoli" <
f.ca...@wayin.net
> ha scritto nel messaggio
news:8smqlp$kmnjv$1...@ID-35431.news.cis.dfn.de...

E se poi cancelli il record di tabella2 con nome uguale a cocco cosa vuoi
fare?



title: vi prego aiuto urgente!

author: Tex

text:
sto diventando matto da settimane!
ho windows 2000 ed office xp professional installato.
non mi vanno + le procedure guidate in Access! mi da l'errore:
"Impossibile trovare la procedura guidata, la procedura guidata non è stata
installata oppure è presente un errore di sintassi nella sezione
Dichiarazioni di un modulo di Visual Basic.
E' possibile che la porcedura guidata richiesta non sia inclusa nella chiave
Libraries della sezione di Microsoft Access del Registro di sistema di
Windows
"
Le ho provate veramente tutte... ho disinstallato office, ho cancellato a
mano tutti i riferimenti ad office dal registro, ho ripristinato il sistema,
poi ho reinstallato completamente office. Risultato? non è cambiato nulla!
mi dice che le procedure guidate non sono installate, ma invece non è vero!
Purtroppo adesso non posso proprio riformattare tutto... vi prego aiutatemi!


title: vi prego aiuto urgente!

text:


riporto
Giuseppe Ciccolella ha scritto:
> Come attivare le creazioni guidate di access. Ho già provato a
> selezionare la bacchetta magica dalla barra degli strumenti, ma niente.
> Poi ho provato a reinstallare office, ma non succede niente lo stesso.
> Come posso fare???
Rivelare la tua versione di Access?
Se si tratta di A00, forse aiuta
ACC2000: Nothing Happens When You Try to Start a Microsoft Access
Wizard
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q242218
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com
Saluti.
Emanuele.


title: vi prego aiuto urgente!

text:
si tratta di Access 2002 XP. ho già provato a sostituire i file riportati
nel sito della microsoft ma niente da fare...
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:o4gc9uopev0eqv38k...@4ax.com...



title: aggiungere dati in un  record

author: Stef

text:
salve ho una tabella con i campi idprog (contatore), inizio(numerico),
fine(numerico) e anni(numerico).
i campi inizio e fine contngono annualità iniziale e finale del prodotto, mi
occorre che nel campo anno si inserisca l'intervallo di anni fra inizio e
fine.
esempio:
prog = 1 inizio = 2000 fine= 2003 in anni devono andare i dati  da 2001 fino
a 2003
prog  = 1 inizio = 2000 fine= 2003  anni = 2001
prog  = 1 inizio = 2000 fine= 2003  anni = 2002
prog  = 1 inizio = 2000 fine= 2003  anni = 2003
prog = 2 inizio 2001 fine = 2004 anni = 2002
prog = 2 inizio 2001 fine = 2004 anni = 2003
prog = 2 inizio 2001 fine = 2004 anni = 2004
e cosi via.
quando inserisco un nuovo record con inizio e fine differenti non deve
mutare i dati de records precedenti è possibile farlo? e come?
grazie per l'aiuto


title: Cerco risposta disperatamente

author: Claudio

text:
Il report "A" ha come origine di dati la Query "B".
La query "B" č il risultato di una selezione sulla tabella "C" di cui
utilizza i campi
"C1" "C2" "C3"............"Cn" + un campo calcolato es. "S1" (Dati="C2+C3").
Il mio report prevede l'ordinamento dei record della query e raggruppamento
es. su campo "C2".
Le righe di dettaglio sono corrette.
Nel pič di pagina del raggruppamento inserisco due "caselle di testo" la cui
origine dei dati č:
1- = Somma ([C3])       (Esegue correttamente la somma)
2- = Somma ([S1])        (Durante la formattazione del report errore
"Overflow")
Come si puň bypassare il problema? (senza buttare Access dala finestra)
Claudio


title: Cerco risposta disperatamente

author: Ditta Cerri

text:
Claudio scrive:
> "C1" "C2" "C3"............"Cn" + un campo calcolato es. "S1"
(Dati="C2+C3").
> Il mio report prevede l'ordinamento dei record della query e
raggruppamento
> es. su campo "C2".
> Le righe di dettaglio sono corrette.
> Nel pič di pagina del raggruppamento inserisco due "caselle di testo" la
cui
> origine dei dati č:
> 1- = Somma ([C3])       (Esegue correttamente la somma)
> 2- = Somma ([S1])        (Durante la formattazione del report errore
> "Overflow")
Il problema sta nel fatto che non puoi sommare un controllo calcolato.
inserisci S1 nella query in modo da poterla trattare come un campo e fanne
la somma
Ciao, Sib


title: Cerco risposta disperatamente

text:
Ma S1 è già un campo della query (che naturalmente non fa solo la somma di
due campi ma è un calcolo ben più complesso su due campi della tabella
utilizzata dalla query).
Ditta Cerri <
cerriserv...@tiscalinet.it
> wrote in message
83l17n$q01$1...@pegasus.tiscalinet.it...
>
> Claudio scrive:
> > "C1" "C2" "C3"............"Cn" + un campo calcolato es. "S1"
> (Dati="C2+C3").
> > Il mio report prevede l'ordinamento dei record della query e
> raggruppamento
> > es. su campo "C2".
> > Le righe di dettaglio sono corrette.
> > Nel piè di pagina del raggruppamento inserisco due "caselle di testo" la
> cui
> > origine dei dati è:



title: Cerco risposta disperatamente

author: sib

text:
Non vorrei dire un'ovvietà, ma che ordine di grandezza dovrebbe avere questa
somma?
Sib


title: Cerco risposta disperatamente

text:
Massimo tre,quattro interi e due decimali.
sib <
sibN...@iol.it
> wrote in message
k1y74.27155$m62.3...@news.infostrada.it...



title: scrivere su files txt

author: Tiziano

text:
Ciao a tutti!
Ho cercato in vari posti ma inutilmente notizie a riguardo della
scrittura su file txt da vba.
Esiste da qualche parte qualche fonte di informazione completa oppure
dei tutorials?
Grazie in anticipo!


title: scrivere su files txt

author: Roberto dalla campagna

text:
"Tiziano" <
tpas...@areatrix.com
> ha scritto nel messaggio
news:cicbm6$p9k$1...@balena.cs.interbusiness.it...

Prova ad usare l'istruzione Put (vedi help); guardati anche le istruzioni
Open, Get e Close.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Ftp da codice

author: Gra

text:
Perdonatemi ho gia postato la domanda mi è stato risposto da MA che su
www.sitocomune.com
 trovo la soluzione. Probalbimente mi sto rincoglionendo o
qualcosa di simile, ma da due giorni che guardo e non riesco trovare come
poter effettuare tramite codice dei comandi FTP per passare un file TXT da
una macchina all'altra, potete darmi qualche indizio....ve ne sarei grato!!!
Saluti


title: Ftp da codice

text:
"Gra" <
studio...@tiscali.it
> ha scritto nel messaggio
news:cnhpp0$ltd$1...@fata.cs.interbusiness.it...

questo è un esempio di codice da usare, devi mettere il controllo INET nella
form
Public Sub Uploadfile()
        user = tuauser
        psw = tua password
        ftp = percorsoftp
        'eseguo l'upload
        Dim Comando As String
        Comando = "PUT """ & "c:\tuofile.txt" & """ """ &
"cartella/tuofile.txt" & """"
        EseguiComando Comando
End Sub
esegui comando è cosi definita
-------------------------------
Sub EseguiComando(ByVal Comando As String)
On Local Error GoTo Esegui_Err
Inet4.Protocol = 2
Inet4.RemoteHost = ftp
Inet4.UserName = "" & user
Inet4.Password = "" & psw
DoCmd.Hourglass True
Inet4.Execute "", Comando
Do
  If Inet4.StillExecuting = False Then Exit Do
  DoEvents
Loop
Esegui_Fine:
DoCmd.Hourglass False
Exit Sub
fammi sapere com'è andata. ciao Simba883


title: Ftp da codice

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cni12i$d5b$1...@lacerta.tiscalinet.it...

Credo di aver avuto problemi con l'adsl, perchè ti avevo
mandato un chiarimento stamattina, ma non lo leggo.
ti volevo chiedere cosa intendi devi mettere il controllo INEt nella
form????
Grazie e saluti.


title: Ftp da codice

author: Graziano

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cni12i$d5b$1...@lacerta.tiscalinet.it...

Ciao, ho letto oggi la tua risposta, prima di provare vorrei capire cosa
intendi quando dici: devi mettere il controllo INET nella form.
Puoi farmi un esempio???
Comunque grazie.


title: problemi con struttura a schede

author: LozioPino

text:
buongiorno, qualcuno di voi ha esperienza con il controllo struttura a
schede? Io ho provato a farne uno "gigante" con tre schede, la prima delle
quali contiene una cinquantina di controlli (la maggiorr parte sono label e
textbox) e le altre, nelle intenzioni, un numero di controlli comunque
sostenuto.
Mi sono fermato alla prima pagina del controllo perchè Access 2k ha
cominciato a fare le bizze.... non riuscivo a settare l'ordine di
tabulazione dei controlli, da VBA avevo, ed ho, la sensazione che i
controlli dipendano dalla maschera e non dalla pagina della struttura
(altrimenti la sintassi per fare riferimento al controllo dovrebbe essere
me.struttura.pagina.controllo.proprietà invece di me.controllo.proprietà),
come invece afferma la guida in linea, ho dovuto modificare la routine di
Alex Baraldi (a proposito, sei grande!) sui controlli in "stile outlook"
perchè, applicata ad una label sulla struttura a schede, entrava in un loop
infinito, mentre spostando la stessa label sulla maschera funziona
benissimo..... insomma un sacco di problemi inaspettati e l'help in linea
non sembra fornire molte informazioni in più... devo ricominciare tutto da
capo? Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: problemi con struttura a schede

author: Alessandro Cara

text:
LozioPino wrote:
[cut]
> non sembra fornire molte informazioni in più... devo ricominciare tutto da
> capo? Grazie
no. Mai avuto problemi clo la struttura a schede
a) generati la maschera col wizard
b) prendi la mascera in disegno
c) disegna la struttura a schede (io sono arrivato fino a una 30na di
pagine)
d) seleziona i controlli che vuoi portare sulla prima pagina
e) ctrl - x
f) seleziona la pagina
g) ctrl - c
h) ...and so on
--
a.cara


title: problemi con struttura a schede

author: LoZiopino

text:

sigh! devo rifare da capo....
grazie, mi ci butto.
LoZioPino



title: problemi con struttura a schede

text:
LoZiopino wrote:
> Il 28 Feb 2004, 11:01, Alessandro Cara <
alexqu...@blunet.it
> ha scritto:
>
[cut]
>
> sigh! devo rifare da capo....
> grazie, mi ci butto.
1 primo e 45 sec netti?
;<)
--
a.cara


title: KeyCode su form che mi restituisce prima 45 poi 17

author: RobertoA

text:
Ho una form continua, nel corpo controlli collegati al db
Per eseguire delle funzioni premendo una combinazione di tasti uso il
classico codice che 'sente' l'evento KeyUP

------------------------------------------------
intCtrlDown = (Shift And acCtrlMask) > 0

If intCtrlDown And KeyCode = vbKeyInsert Then
     KeyCode = 0
     cmdAggiungi_Click
     End If
------------------------------------------------

Ho attivato il flag KeyPreview sulla form
Mi aspetterei che se premo la combinazione CTRL INS  venga avviata la
routine cmdAggiungi_click
Ma cosi' non e' o meglio, non sempre e' cosi
Se il focus e' su delle textbox posizionate su intestazione form, il
KeyCode che viene passato all'evento KeyUP e' un bel 17 e non un 45 (il
valore decimale di vbKeyInsert) come mi attenderei
Se sposto il focus nel corpo della form tutto funziona, mi arriva il 45
tanto atteso

La domanda e':  come mai se il focus e' su una textbox dell'intestazione
form, all'evento KeyUP viene passato un KeyCode=17  ?


title: Funzione per convertire una data di una tabella

author: PinoP

text:
Salve a tutti, avrei bisogno di un aiutino.
In una tabella ho diversi campi con date in formato aaaammgg (provenienti da
altri file importati da altri sistemi) e vorrei convertirle nella stessa
tabella in formato ggmmaaaa con una routine o funzione che legga la tabella
e l'aggiorna nello stesso momento. Come si può fare? Grazie


author: FabioS

text:
"PinoP" <
pn...@tin.it
> ha scritto nel messaggio
news:lhqJ8.7291$b4.1...@news2.tin.it...

> e l'aggiorna nello stesso momento. Come si puň fare? Grazie
V
V
> Ho giusto una funzioncina che uso per convertire date da AS400, č
impostata per convertire formati aammgg > gg/mm/aa e ggmmaa > gg/mm/aa
controllando che sia una data valida (l'argomento InserData č False se il
valore č aammgg); modificala all'occorrenza:
'Converte una data in formato numerico inverso (AAMMGG) nel formato data
(GG/MM/AA);
'Converte una data inserita in formato numerico (GGMMAA) nel formato data
(GG/MM/AA)
Function ConversioneData(InserData As Boolean, Optional ctData As Long,
Optional ctInserData As Control) As Date
On Error GoTo TerminaFunzione
Dim stDataOrigine As String, DataFine As Date, DataFine1 As Date, DataConfr
As String, DataConfr1 As String
Dim lgDataOrigine As Long
Dim lgDimData As Long
Dim stG As String, byG As Byte
Dim stM As String, byM As Byte
Dim stA As String, byA As Byte
MsgLocal = "DATA NON VALIDA"
  If InserData = False Then
    If Not IsNull(ctData) Then
      stDataOrigine = ctData
      lgDimData = Len(stDataOrigine)
      If lgDimData > 6 Or lgDimData < 3 Then GoTo esci
      Select Case lgDimData
      Case Is = 3
        stDataOrigine = "000" + LTrim$(str$(ctData))
      Case Is = 4
        stDataOrigine = "00" + LTrim$(str$(ctData))
      Case Is = 5
        stDataOrigine = "0" + LTrim$(str$(ctData))
      End Select
    Else
      Exit Function
    End If
    stA = Left(stDataOrigine, 2)
    stM = Mid(stDataOrigine, 3, 2)
    stG = Right(stDataOrigine, 2)
    byA = Val(stA)
    byM = Val(stM)
    byG = Val(stG)
'#  Solo per verifica input scrittura:
'#  DataConfr = stG + "/" + stM + "/" + stA:
    DataFine = DateSerial(byA, byM, byG)
'#  DataConfr1 = LTrim$(Str$(DataFine))
'#  If DataConfr <> DataConfr1 Then
'#    MsgBox "DATA NON VALIDA"
'#    Exit Function
'#  Else
      ConversioneData = DataFine
'#  End If
  ElseIf InserData = True Then
    If Not IsNull(ctInserData) Then
      stDataOrigine = ctInserData
      lgDimData = Len(stDataOrigine)
      If lgDimData > 6 Or lgDimData < 3 Then
        Call ControlloDimTesto(ctInserData, False, 6, , 6)
        GoTo esci
      Else
        Select Case lgDimData
        Case Is = 3
          stDataOrigine = "000" + LTrim$(str$(ctInserData))
        Case Is = 4
          stDataOrigine = "00" + LTrim$(str$(ctInserData))
        Case Is = 5
          stDataOrigine = "0" + LTrim$(str$(ctInserData))
        End Select
      End If
    Else
      Exit Function
    End If
    stG = Left(stDataOrigine, 2)
    stM = Mid(stDataOrigine, 3, 2)
    stA = Right(stDataOrigine, 2)
    byG = Val(stG)
    byM = Val(stM)
    byA = Val(stA)
    DataConfr = stG + "/" + stM + "/" + stA
    DataFine = CDate(DataConfr)
    DataFine1 = DateSerial(byA, byM, byG)
    If DataFine <> DataFine1 Then
      MsgBox MsgLocal, , MsgTtl
      ctInserData = Null
      Exit Function
    Else
      ConversioneData = DataFine
      ctInserData = ConversioneData
    End If
  End If
esci:
  Exit Function
TerminaFunzione:
  If Err.Number = 13 Then
    MsgBox MsgLocal, , MsgTtl
    ctInserData = Null
  Else
    MsgBox Err.Number & " " & Err.Description
  End If
  Resume esci
End Function


author: Alessandro

text:
"PinoP" <
pn...@tin.it
> wrote in message
news:lhqJ8.7291$
b4.1...@news2.tin.it

> e l'aggiorna nello stesso momento. Come si puň fare? Grazie
Esistono le QUERY di AGGIORNAMENTO "UPDATE ......ecc....!!"
combinata con la funzione FORMAT(Vedi help)....!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: giulio

text:
"Alessandro" <
ik2...@libero.it
> wrote in message
news:fea8c6548d5884b251...@mygate.mailgate.org...
> "PinoP" <
pn...@tin.it
> wrote in message
> news:lhqJ8.7291$
b4.1...@news2.tin.it
>
> > Salve a tutti, avrei bisogno di un aiutino.
> > In una tabella ho diversi campi con date in formato aaaammgg
(provenienti da
> > altri file importati da altri sistemi) e vorrei convertirle nella stessa
> > tabella in formato ggmmaaaa con una routine o funzione che legga la
tabella
> > e l'aggiorna nello stesso momento. Come si può fare? Grazie
>
>
> Esistono le QUERY di AGGIORNAMENTO "UPDATE ......ecc....!!"
> combinata con la funzione FORMAT(Vedi help)....!
>
concordo docmd.runsql "UPDATE tabella SET campo=format(campo,'dd/mm/yyyy')
WHERE condizione;"


title: Creare valori random

text:
Salve a tutti, ho un problema che non riesco a risolvere:
per un problema di importazione access-sql, ho la necessità di creare un
campo in access dove vengano inseriti 10 caratteri (solo lettere) univoci
per ogni record.
Come faccio a generare dei caratteri alfabetici di 10 cifre, univoci per
ogni record (circa 1000 nella tabella)?
Non importa se sono random o sequenziali, purché non ci siano duplicati.
In un vecchio post ho trovato qualcosa che forse si poteva adattare ma non
sono in grado di farlo funzionare, non so dove vada scritto, per favore
aiutatemi.
Function GeneraPassword() As String
Const Consonanti As String = "BCDFGJKLMNPRSTVWYZ" ' 18 consonanti
Const Vocali As String = "AEIOU" ' 5 vocali
GeneraPassword = GeneraPassword & Mid(Consonanti, Int(Rnd() * 18 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Vocali, Int(Rnd() * 5 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Consonanti, Int(Rnd() * 18 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Vocali, Int(Rnd() * 5 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Consonanti, Int(Rnd() * 18 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Vocali, Int(Rnd() * 5 + 1), 1)
GeneraPassword = GeneraPassword & Mid(Consonanti, Int(Rnd() * 18 + 1), 1)
End Function
Grazie mille.
Andrea


title: Creare valori random

author: Luciano (DOC)

text:
"Andrea12" <
12and...@libero.it
> ha scritto nel messaggio
news:3c91a...@news.dada.it...
> per un problema di importazione access-sql, ho la necessità di creare un
> campo in access dove vengano inseriti 10 caratteri (solo lettere) univoci
> per ogni record.
> Come faccio a generare dei caratteri alfabetici di 10 cifre, univoci per
> ogni record (circa 1000 nella tabella)?
> Non importa se sono random o sequenziali, purché non ci siano duplicati.
Ti butto la' la prima che mi viene in mente.
Crei un campo contatore, poi converti ogni numero nelle lettere da A a L
(0-9) eventualmente preceduto da n L (zero) se il numero dei caratteri deve
essere fisso.
Es:
0000000001 -----> AAAAAAAAAB
0000001234 -----> AAAAAABCDE
Saluti.
Luciano


title: schema ini

author: max

text:
vorrei esportare una tabella in un file di testo, con il seguente comando
DoCmd.TransferText acExportFixed, "schema.ini", "tabella1", "c:\temp.txt"
ne ho creato uno in c:\ secondo questo schema: col1=codice cliente(mio nome
colonna) Char Width 9 (numero caratteri)
ma mi da sempre l'errore 3625 (specifica di testo "schema.ini" inesistente.
impossibile esportare ecc...
dove sbaglio
grazie Max


title: schema ini

author: Carlo Costarella

text:
"max" <
pi...@pippo.it
> ha scritto nel messaggio
news:e8tofh$n2j$1...@nntp.aioe.org...

Se non hai una specifica di esportazione con il nome "schema.ini", come puoi
pretendere che esista?
Creala prima e poi ne riparliamo.
Ciao, Carlo


title: schema ini

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:44b26b95$0$5088$4faf...@reader2.news.tin.it...

perdonami la mia ignoranza...
allora io ho creato un file schema.ini (questo ho capito che dovevo fare) e
l'ho messo nella cartella c:\
ti elenco di seguito il file, puoi dirmi se č corretta la procedura e il
file stesso?
[temp.TXT]
ColNameHeader=False
Format=FixedLength
MaxScanRows=25
CharacterSet=ANSI
col1=codice cliente Char Width 9
col2=numero commessa Char Width 6
col3=data commessa Char Width 10
col4=codice articolo Char Width 18
col5=colore articolo Char Width 8
col6=descrizione articolo Char Width 28
col7=unita di misura 1 Char Width 2
col8=qtą um 1 Char Width 11
col9=unita di misura 2 Char Width 2
col10=qtą um 2 Char Width 11
col11=prezzo um1 Char Width 13
col12=dimensione articolo Char Width 17
col13=note Char Width 30
col14=tipo riga Char Width 1
col15=materiale Char Width 1
col16=blank Char Width 30
col17=crlf Char Width 1
 grazie Max


title: schema ini

text:
"max" <
pi...@pippo.it
> ha scritto nel messaggio
news:e8ts37$5t0$1...@nntp.aioe.org...
>
> "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
> news:44b26b95$0$5088$4faf...@reader2.news.tin.it...
>>
>> "max" <
pi...@pippo.it
> ha scritto nel messaggio
>> news:e8tofh$n2j$1...@nntp.aioe.org...
>>> vorrei esportare una tabella in un file di testo, con il seguente
>>> comando
>>> DoCmd.TransferText acExportFixed, "schema.ini", "tabella1",
>>> "c:\temp.txt"
>>> ne ho creato uno in c:\ secondo questo schema: col1=codice cliente(mio
>>> nome colonna) Char Width 9 (numero caratteri)
>>> ma mi da sempre l'errore 3625 (specifica di testo "schema.ini"
>>> inesistente. impossibile esportare ecc...
>>> dove sbaglio
>>> grazie Max
>>>
>>>
>>
>> Se non hai una specifica di esportazione con il nome "schema.ini", come
>> puoi pretendere che esista?
>> Creala prima e poi ne riparliamo.
>>
>> Ciao, Carlo
> perdonami la mia ignoranza...
> allora io ho creato un file schema.ini (questo ho capito che dovevo fare)
> e l'ho messo nella cartella c:\
> ti elenco di seguito il file, puoi dirmi se è corretta la procedura e il
> file stesso?
>
> [temp.TXT]
> ColNameHeader=False
> Format=FixedLength
> MaxScanRows=25
> CharacterSet=ANSI
> col1=codice cliente Char Width 9
> col2=numero commessa Char Width 6
> col3=data commessa Char Width 10
> col4=codice articolo Char Width 18
> col5=colore articolo Char Width 8
> col6=descrizione articolo Char Width 28
> col7=unita di misura 1 Char Width 2
> col8=qtà um 1 Char Width 11
> col9=unita di misura 2 Char Width 2
> col10=qtà um 2 Char Width 11
> col11=prezzo um1 Char Width 13
> col12=dimensione articolo Char Width 17
> col13=note Char Width 30
> col14=tipo riga Char Width 1
> col15=materiale Char Width 1
> col16=blank Char Width 30
> col17=crlf Char Width 1
>
> grazie Max
Se leggi nella guida la sintassi di DoCmd.TransferText ti accorgerai che
nella posizione dove hai messo la parola "schema.ini" richiede l'eventuale
nome della specifica di importazione/esportazione.
Come si crea una specifica di esportazione? Che cosa è una specifica di
esportazione? Queste sono le domande.
Oppure: come faccio a salvare il contenuto di una tabella in un file di
testo?
Ora ti faccio io una domanda: cosa vuoi realizzare esattamente?
Esportare una tabella in un file di testo? Aggiungere delle righe ad un file
di testo preesistente?
Ciao, Carlo


title: schema ini

text:
Carlo Costarella ha scritto:

vorrei esportare una tabella in un file di testo a spazi fissi
Ciao Max
--
Postato da Virgilio Newsgroup: scopri i nuovi gruppi
Eros, foto e video a
http://newsgroup.eros.virgilio.it


title: schema ini

text:
"max" <
max...@tin.it
> ha scritto nel messaggio
news:12223156.1152605752391.JavaMail.newsgroup@sc-ng-1...
cut
>>
> vorrei esportare una tabella in un file di testo a spazi fissi
> Ciao Max
> --
OK, ora è chiaro.
Dalla finestra di database seleziona la tabella. Dal menù File scegli
Esporta, dalla maschera successiva scegli "in un file esterno" e quindi
scegli tra il tipo di file "File di Testo", dai un nome e un percorso e
scegli esporta. Qui entra in funzione il wizard: scegli "a larghezza fissa",
avanti, Pulsante Avanzate, determini la larghezza dei singoli campi e poi
usa il pulsante "Salva con nome...". Puoi usare il nome che vuoi, importante
è ricordarselo (per esempio SpecificaEsportaAnagrafica). Dai OK e poi puoi
anche chiudere, annullando, il wizard perchè la specifica sarà stata
salvata.
Ora sì che hai la tua specifica di esportazione. La potrai usare nel tuo
codice al posto di "Schema.ini", sempre racchiusa tra virgolette.
Ciao, Carlo


title: schema ini

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:44b3783c$0$5090$4faf...@reader2.news.tin.it...

Ottimo grazie
Ciao Max


title: schema ini

author: Lp

text:
E' possibile fare in modo che i campi memo di access possano accettare
testo formattato?
Facendo una ricerca su internet ho visto che esiste un'utility "Total
Access Memo" in grado di fare questo. Ma non č freeware. Sapete se in
giro esiste qualcosa di simile ma che sia freeware?
Grazie
Luigi


title: schema ini

author: Alessandro Baraldi

text:
Lp ha scritto:
> E' possibile fare in modo che i campi memo di access possano accettare
> testo formattato?
> Facendo una ricerca su internet ho visto che esiste un'utility "Total
> Access Memo" in grado di fare questo. Ma non è freeware. Sapete se in
> giro esiste qualcosa di simile ma che sia freeware?
> Grazie
> Luigi
Aspetta un attimo...!
Solitamente si predispongono 2 campi, uno che conterrà il TXT ed uno
che conterrà RTF
quindi se la RichText è associata al campo RTF vedrai il testo
formattato altrimenti TXT.
Non sò se ho capito la domanda.
@Alex


title: schema ini

text:
Grazie Alex per la risposta.
Tuttavia confesso di non aver capito quel che hai detto. Cosa
significa "RichText associata al campo RTF"?
Io vorrei avere la possibilità di inserire testo formattato in un
campo di Access (per esempio un campo memo). Purtroppo quando si crea
un campo memo, in questo non si può inserire testo formattato. Non so
se mi sono spiegato meglio.
Ad ogni modo di nuovo grazie per l'interessamento
Luigi
On 17 Jul 2006 02:30:11 -0700, "Alessandro Baraldi" <
ik2...@libero.it
>
wrote:



title: schema ini

text:
Lp ha scritto:
> Grazie Alex per la risposta.
> Tuttavia confesso di non aver capito quel che hai detto. Cosa
> significa "RichText associata al campo RTF"?
> Io vorrei avere la possibilità di inserire testo formattato in un
> campo di Access (per esempio un campo memo). Purtroppo quando si crea
> un campo memo, in questo non si può inserire testo formattato. Non so
> se mi sono spiegato meglio.
> Ad ogni modo di nuovo grazie per l'interessamento
> Luigi
No ti sei spiegato.
Un testo Formattato non è altro che Testo normale al quale vengono
applicati TAG
specifici per la formattazione.
In modo nativo se apri un campo MEMO contenente testo formattato in RTF
diventa illegibile, ma se lo metti in un controllo RichTextBox vedrai
che otterrai quello che chiedi.
Vai nel sito di Lebans e scarica il demo dell'OCX RTF2 e vedrai cosa
intendo.
www.lebans.com
@Alex


title: Chiave Primaria Contatore, help.

author: Rex

text:
Ho definito una chiave primaria come contatore, e quando vado a cancellare
un record il numero di quel record viene eliminato con lui. mi spiego
meglio:
ho questi dati ad esempio.
_____________________
codice frutto |  Nome Frutto
        1          |   mele
        2          |   banane
        3          |   pere
__________|___________
quando cancello banane, pere rimarrà a 3 senza scalre a 2...
non c'è un modo per farlo scalare? (sì lo so, è una cosa un pò stupida visto
che stiamo parlando di codici ma a me serve così)
Grazie.
Rex.


title: Chiave Primaria Contatore, help.

author: oliones

text:
Rex <
re...@libero.it
> wrote in message
O9jZ6.22069$8R5.5...@news.infostrada.it...

non credo
l'unico metodo sarebbe compattare il database per recuperare il numero perso
se questo è l'ultimo inserito (non credo sia il tuo caso)
vedi nel sito comune
http://www.sitocomune.com
Numerazione Crescente per fatture ed altro


title: Chiave Primaria Contatore, help.

author: Roberto dal portatile

text:
"Rex" <
re...@libero.it
> ha scritto nel messaggio
news:O9jZ6.22069$8R5.5...@news.infostrada.it...

Il contenuto di un campo contatore non può essere modificato per
definizione, se pertanto hai la necessità di un codice che non debba avere
"buchi" non puoi usare tale tipo di dato per il tuo codice.
Ti consiglio di andare sul Sito Comune (link qui sotto), Sezione Tables:
leggiti tutta la FAQ di Emanuele Cesena intitolata "Cos'è un ID? Contatori,
numeri, e altro."; vi si parla anche degli ID numerici "anti buco".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Chiave Primaria Contatore, help.

text:
> Numerazione Crescente per fatture ed altro
scusa non c'entra nulla


title: Chiave Primaria Contatore, help.

author: Sib dal portatile

text:
"Rex" <
re...@libero.it
> ha scritto nel messaggio
cut
> ho questi dati ad esempio.
> _____________________
> codice frutto |  Nome Frutto
>         1          |   mele
>         2          |   banane
>         3          |   pere
> __________|___________
> quando cancello banane, pere rimarrà a 3 senza scalre a 2...
> non c'è un modo per farlo scalare? (sì lo so, è una cosa un pò stupida
visto
> che stiamo parlando di codici ma a me serve così)
Non e' il contatore che devi usare.
Per fare quello che chiedi devi fare un pesante ricorso a query di
aggiornamento.
Una cosa di cui forse non ti sei ancora accorto ma che rende la tua
situazione ancora piu' precaria e' che se inizi a inserire un nuovo record
per sbaglio e poi annulli l'operazione ti accorgerai che hai bruciato un
numero che ti lascera' un buco all'inserimento successivo.
Se ti serve semplicemente un numeretto progressivo ti consiglio di usare una
query che te lo generi all'occorrenza (vedi sito comune). Se ti serve
proprio un id allora non vedo quale possa essere il problema nell'avere un
buco (estetica a parte).
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: pagine web non OT

author: Lollo Superstar!®

text:
Cerco aiuto nel capire cosa succede al mio access 2000, cerco di creare
pagine web collegate alle tabelle così come propone il programma in
questione, ma al momento di caricare la pagina mi manda questo msg di
warning "This technical Beta Copy of Microsoft web components 9.0 has
expired. Install the retail version or obtain an updated beta release from
Microsoft", se non ho capito male una parte del mio èrogramma dovrebbe
essere in una versione beta non utilizzabile, ma anche se non so dove poter
trovare la versione retail il problema non si limita a questo e mi apre
successivamente la pagina vuota in visualizzazione struttura e quando io
tento solamente di sfiorarla arriva a chiudermi tutto l'applicativo tramite
errore irreversibile.
Tutto ciò è un problema di installzione o che altro??
Se qualcuno può aiutarmi spero di aver rapito la sua attenzione.
Grazie a tutti quelli che sono interessati.
Antonio


title: OT : In ogni occasione.....

author: Akiba

text:
č meglio rimanere in silenzio ed essere sospettato un po' pazzo che aprire
la bocca e rimuovere ogni dubbio (Groucho Marx)
--


title: OT : In ogni occasione.....

author: Roberto da casa

text:
"Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
news:bq7nfd$208to5$1...@ID-24065.news.uni-berlin.de...
> č meglio rimanere in silenzio ed essere sospettato un po' pazzo che aprire
> la bocca e rimuovere ogni dubbio (Groucho Marx)
Mi sembrerebbe un concetto piuttosto mafioso.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: OT : In ogni occasione.....

text:
--
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:EJKxb.153906$e6.55...@twister2.libero.it...
>
> "Akiba" <
akib...@yahoo.it
> ha scritto nel messaggio
> news:bq7nfd$208to5$1...@ID-24065.news.uni-berlin.de...
> > č meglio rimanere in silenzio ed essere sospettato un po' pazzo che
aprire
> > la bocca e rimuovere ogni dubbio (Groucho Marx)
>
> Mi sembrerebbe un concetto piuttosto mafioso.
xchč? č rivolta a se stesso non agli altri ........mi sembra una bella
battuta !
ciao !


title: FtpGetFileSize non funziona per niente

author: OneEDP

text:
Non riesco
hFile = FtpOpenFile(hConnection, strFileRemoto, GENERIC_READ,
FTP_TRANSFER_TYPE_BINARY, 0)
ret = FtpGetFileSize(hFile, lngSize)
lngSize � sempre -1
Che fare?
Daniele


title: FtpGetFileSize non funziona per niente

text:
"OneEDP" <OneEDP@antispam> ha scritto nel messaggio
news:4a799ac4$0$43596$4faf...@reader1.news.tin.it...

Se la dichiarazione � questa:
Public Declare Function FtpGetFileSize Lib "wininet.dll" _
(ByVal hFile As Long, ByRef lpdwFileSizeHigh As Long) As Long
prova con:
ret = FtpGetFileSize(hFile, ret)
 immaginando che ret sia long
Segui questa discussione:
http://www.tek-tips.com/viewthread.cfm?qid=1553082&page=1
e questa:
http://vbnet.mvps.org/index.html?code/internet/ftpdownloadcallback.htm
e soprattutto questo esempio:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=3777
Ciao, Carlo


title: FtpGetFileSize non funziona per niente

text:

Nulla da fare
Anche con le giuste dichiarazioni non funge
?!
Grazie in ogni caso


title: FtpGetFileSize non funziona per niente

text:
On 5 Ago, 16:44, "OneEDP" <OneEDP@antispam> wrote:
> Non riesco
>
> hFile = FtpOpenFile(hConnection, strFileRemoto, GENERIC_READ,
> FTP_TRANSFER_TYPE_BINARY, 0)
> ret = FtpGetFileSize(hFile, lngSize)
>
> lngSize è sempre -1
>
> Che fare?
> Daniele
Cos'è che non funziona...?
Il lngSize rimane a -1 in quanto non viene istanziata la
connessione..., è infatti il tipico risultato di errore....!
Sei certo di arrivare via ftp al server...???
Hai i privilegi di Read sul file...?
Non hai detto nulla... quindi che dire...?
I Link suggerito da Carlo sono funzionanti in quanto li ho usati io
stesso per attivare
connessioni ftp con un Server aziendale, ma ho faticato un pò con i FW
ed i privilegi FTP_GET/PUT e la connessione in Anonimous del Server...
che spesso sono configurati male ed accettano solo quella....!!!!
@Alex


title: FtpGetFileSize non funziona per niente

text:
Alex wrote:
> On 5 Ago, 16:44, "OneEDP" <OneEDP@antispam> wrote:
>> Non riesco
>>
>> hFile = FtpOpenFile(hConnection, strFileRemoto, GENERIC_READ,
>> FTP_TRANSFER_TYPE_BINARY, 0)
>> ret = FtpGetFileSize(hFile, lngSize)
>>
>> lngSize � sempre -1
>>
>> Che fare?
>> Daniele
>
> Cos'� che non funziona...?
> Il lngSize rimane a -1 in quanto non viene istanziata la
> connessione..., � infatti il tipico risultato di errore....!
>
> Sei certo di arrivare via ftp al server...???
> Hai i privilegi di Read sul file...?
>
> Non hai detto nulla... quindi che dire...?
>
> I Link suggerito da Carlo sono funzionanti in quanto li ho usati io
> stesso per attivare
> connessioni ftp con un Server aziendale, ma ho faticato un p� con i FW
> ed i privilegi FTP_GET/PUT e la connessione in Anonimous del Server...
> che spesso sono configurati male ed accettano solo quella....!!!!
>
> @Alex
Ti riepilogo le dichiarazioni
Private Const INTERNET_FLAG_TRANSFER_BINARY = &H2
Private Const INTERNET_DEFAULT_FTP_PORT = 21                      ' default
for FTP servers
Private Const FTP_TRANSFER_TYPE_BINARY = &H2
Private Const INTERNET_OPEN_TYPE_DIRECT = 1                       ' direct
to net
Private Const INTERNET_DEFAULT_FTP_PORT = 21                      ' default
for FTP servers
Private Const INTERNET_FLAG_PASSIVE = &H8000000                   ' used for
FTP connections
Private Declare Function FTPGetFile Lib "wininet.dll" _
 Alias "FtpGetFileA" _
 (ByVal hConnect As Long, _
 ByVal lpszRemoteFile As String, _
 ByVal lpszNewFile As String, _
 ByVal fFailIfExists As Long, _
 ByVal dwFlagsAndAttributes As Long, _
 ByVal dwFlags As Long, _
 ByRef dwContext As Long) As Long
Private Declare Function FtpOpenFile Lib "wininet" _
   Alias "FtpOpenFileA" _
  (ByVal hConnect As Long, _
   ByVal lpszFileName As String, _
   ByVal dwAccess As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Long
Private Const GENERIC_READ As Long = &H80000000
Private Declare Function FtpGetFileSize Lib "wininet.dll" _
 (ByVal hFile As Long, _
 ByRef lpdwFileSize As Long) As Long
    hOpen = _
        InternetOpen("Fantasia FTP", _
            INTERNET_OPEN_TYPE_DIRECT, _
            vbNullString, _
            vbNullString, _
            INTERNET_FLAG_PASSIVE)
    If hOpen = 0 Then
        EseguiFTP = False
        GoTo Exit_EseguiFTP
    End If
    'Apre la connesione con l'FTP Server
    hConnection = _
        InternetConnect(hOpen, _
            "IPSERVER", _
            INTERNET_DEFAULT_FTP_PORT, _
            "user", _
            "password", _
            INTERNET_SERVICE_FTP, _
            INTERNET_FLAG_PASSIVE, _
            0)
    If hConnection = 0 Then
        meblnErroriComando = True
        EseguiFTP = False
        GoTo Exit_EseguiFTP
    End If
        Dim hFile As Long
        hFile = FtpOpenFile(hConnection, "RemoteFile", GENERIC_READ,
FTP_TRANSFER_TYPE_BINARY, 0)
        'qui ho verificao che hfile � sempre diverso da 0
        If hFile = 0 Then
            EseguiFTP = False
            GoTo Exit_EseguiFTP
        End If
        Dim sizeH As Long
        Dim sizeL As Long
        Dim size As long
        Dim maxSize as long
        maxSize = 2 ^ 31 - 1
        sizeH = 0
        sizeL = FtpGetFileSize(hFile, sizeH) 'non funge
        debug.print sizeL, sizeH, sizeH*maxsize+sizeL 'se le dimensioni sono
 > 2^31-1
        size = FtpGetFileSize(hFile, size) 'non funge
        debug.print size
Invece lngRet = FTPGetFile(hConnection, "RemoteFile", "LocalFile" &
meStrNomeFile, False, 0, FTP_TRANSFER_TYPE_BINARY, 0)
funziona benissimo sia in modo passive, che asincrono
Di pi� non so'
Daniele


title: FtpGetFileSize non funziona per niente

text:
@Alex wrote:
> On 5 Ago, 16:44, "OneEDP" <OneEDP@antispam> wrote:
>> Non riesco
>>
>> hFile = FtpOpenFile(hConnection, strFileRemoto, GENERIC_READ,
>> FTP_TRANSFER_TYPE_BINARY, 0)
>> ret = FtpGetFileSize(hFile, lngSize)
>>
>> lngSize � sempre -1
>>
>> Che fare?
>> Daniele
>
> Cos'� che non funziona...?
> Il lngSize rimane a -1 in quanto non viene istanziata la
> connessione..., � infatti il tipico risultato di errore....!
>
> Sei certo di arrivare via ftp al server...???
> Hai i privilegi di Read sul file...?
>
> Non hai detto nulla... quindi che dire...?
>
> I Link suggerito da Carlo sono funzionanti in quanto li ho usati io
> stesso per attivare
> connessioni ftp con un Server aziendale, ma ho faticato un p� con i FW
> ed i privilegi FTP_GET/PUT e la connessione in Anonimous del Server...
> che spesso sono configurati male ed accettano solo quella....!!!!
>
> @Alex
Penso che il probema sia questo:
200 Representation type is binary IMAGE.
227 Entering Passive Mode (192,168,0,250,19,222).
500 Subcommand SIZE not valid.
150 Retrieving member RemoteFile in file RemoteFile in library LibreriaDati.
Il server non riconosce il subcommand size, ma il file � aperto regorlmente
Credo non ci siano strate
Dovr� abbandonare WinInet ed eseguire via dos
Da dos si possono inviare comandi batch nativi del server.
Grazie


title: riesecuzione query in base al valore di un campo

author: massimiliano

text:
salve a tutti ancora,
mi piacerbbe risolvere anche quest'altro problema
ho dei normali record di vendita in cui ci sono tra l'altro il codice
articolo, la qtà e il prezzo praticato
ora nella query richiamata dal
codice io dovrei stabilre quanto mi ha fruttato una determinata qtà.
mi
spiego con un esempio
io ho venduto 1kg del codice 222 in diverse
transazioni
vorrei sapere partendo dall'ultima vendita quanto ho
guadagnato con l'ultimo 1/2kg di merce venduta.
credo sia possibile
saperlo ma non so come
mi date una mano?
grazie Massimiliano
--------------------------------
Inviato via
http://usenet.iol.it


title: Maschera ad apertura temporanea

author: Cataldo Formaro

text:
Ciao a tutti,
all'apertura del DB, si apre automaticamente la maschera "M_A"
come fare affinchè passi automaticamente dopo 10 secondi di apertura alla
maschera "M_B".
Ho provato con proprietà timer ed evento on timer, ma senza risultati.
Mettetemi sulla giusta via.
Grazie a tutti CF


title: Maschera ad apertura temporanea

author: Antonio Biso

text:
"Cataldo Formaro" <
formaro...@inwind.it
> ha scritto nel messaggio
news:1gy09.8723$lu5.2...@twister1.libero.it...

proprietà timer impostata a 10000
su evento timer
docmd.close
docmd.openform "M_B"
Antonio


title: Maschera ad apertura temporanea

author: FC & C.ny

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Dpy09.8469$n04.2...@twister2.libero.it...

PERFETTO!!
Grazie CF


title: errore 3048: impossibile aprire altri database (nuovo bug?)

author: Davide La Mantia

text:
Ciao a tutti,
da un paio di giorni inizio a ricevere questo errore su un db che uso da anni e anche i miei clienti me lo hanno segnalato.
Ho verificato che le maschere , quando aperte, aprono un numero elevato di connessioni senza motivo (23 su una maschera che non ha neanche un collegamento a un recordset) e ancora peggio, non rilasciano le connessioni una volta chiuse, e dopo l'apertura di un paio di maschere dà l'errore in oggetto e non va gpiù avanti.
Addirittura, chiudendo l'applicazione, msaccess resta in esecuzione in bg mantenendo bloccato il database finchè non termino msaccess da gestione attività.
Qualcuno sa qualcosa su questo problema?

Ciao
Davide


text:
Il giorno giovedì 3 febbraio 2022 alle 09:14:54 UTC+1 Davide La Mantia ha scritto:
> Ciao a tutti,
> da un paio di giorni inizio a ricevere questo errore su un db che uso da anni e anche i miei clienti me lo hanno segnalato.
CUT

Continuando a verificare, osservo che nelle sub l'istruzione:

set db=CurrentDB

impegna una connessione, mentre l'istruzione:

set db=Nothing

NON la libera, quindi ad ogni passaggio nella subroutine il numero di connessioni aperte continua ad aumentare fino alle 254 consentite e a qual punto va in errore...


text:
Prima prova per mettere una pezza, dovrebbe usare la Connessione disponibile nel Pool:

Set db=DbEngine(0)(0)

@Alex


author: Karl Donaubauer

text:
Salve Davide,
> ...

Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
la mia risposta qui:

https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

Ciao
Karl
*********
Access News:
https://youtu.be/wpPYu6G_xcY

Access DevCon:
http://AccessDevCon.com

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


text:
Il giorno giovedì 3 febbraio 2022 alle 10:21:55 UTC+1 Karl Donaubauer ha scritto:
> Salve Davide,
> > ...
CUT
> Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
> abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
> la mia risposta qui:
>
>
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

>
> Ciao
> Karl
> *********
> Access News:
https://youtu.be/wpPYu6G_xcY

> Access DevCon:
http://AccessDevCon.com

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

Ciao Karl
come sempre sei una risorsa.
Però io avevo cercato anche in gruppi americani e internazionali senza trovare niente, me ne indichi qualcuno cui iscrivermi?

Ciao


text:
Salve Davide,

Davide La Mantia:
> Karl Donaubauer ha scritto:
>>> ...
> CUT
>> Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
>> abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
>> la mia risposta qui:
>>
>>
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

> ...
> Però io avevo cercato anche in gruppi americani e internazionali senza trovare niente, me ne indichi qualcuno cui iscrivermi?

In principio è sufficiente essere qui in icaa! ;-)

Alcuni altri forum dove puoi trovare molti post su questo problema e
anche le mie risposte degli ultimi giorni:

https://techcommunity.microsoft.com/t5/access/ct-p/Access_Cat

https://docs.microsoft.com/en-us/answers/topics/office-access-dev.html

https://answers.microsoft.com/it-it/msoffice/forum/msoffice_access

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_access

Avrei anche quelli austriaci/tedeschi, francesi e spagnoli da offrire. ;-)



text:
Il giorno giovedì 3 febbraio 2022 alle 12:51:09 UTC+1 Karl Donaubauer ha scritto:
> Salve Davide,
>
> Davide La Mantia:
> > Karl Donaubauer ha scritto:
> >>> ...
> > CUT
> >> Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
> >> abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
> >> la mia risposta qui:
> >>
> >>
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

> > ...
> > Però io avevo cercato anche in gruppi americani e internazionali senza trovare niente, me ne indichi qualcuno cui iscrivermi?
> In principio è sufficiente essere qui in icaa! ;-)
>
> Alcuni altri forum dove puoi trovare molti post su questo problema e
> anche le mie risposte degli ultimi giorni:
>
>
https://techcommunity.microsoft.com/t5/access/ct-p/Access_Cat

>
https://docs.microsoft.com/en-us/answers/topics/office-access-dev.html

>
https://answers.microsoft.com/it-it/msoffice/forum/msoffice_access

>
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_access

>

Ho fatto una domanda del ca...ucaso...
Era evidente dalla tua precedente risposta.

Sono evidentemente io che non ho cercato bene

Ciao e grazie!


text:
Il giorno giovedì 3 febbraio 2022 alle 12:51:09 UTC+1 Karl Donaubauer ha scritto:
> Salve Davide,
>
> Davide La Mantia:
> > Karl Donaubauer ha scritto:
> >>> ...
> > CUT
> >> Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
> >> abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
> >> la mia risposta qui:
CUT

Comunque mi sembra un bug talmente elementare da rilevare che veramente trovo incomprensibile che la MS rilasci questi aggiornamenti così senza accorgersene.
Mi ha fermato clienti a destra e a manca, una tragedia.

Poi i runtime come si fanno?, quella procedura è valida per le installazioni complete e ho quasi tutti i clienti col runtime da fare il downgrade...

Ciao


text:
Salve,

Karl Donaubauer:
>
> Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
> abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
> la mia risposta qui:
>
>
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

Il bug viene risolto con l'aggiornamento di Office di oggi alla build
14827.20192.

Normalmente ci vogliono 1-2 giorni finché gli aggiornamenti vengono
distribuiti automaticamente ovunque. Tuttavia, puoi richiederlo
attivamente e immediatamente con "Aggiorna ora" in Access.



text:
Il giorno martedì 8 febbraio 2022 alle 16:21:31 UTC+1 Karl Donaubauer ha scritto:
> Salve,
>
> Karl Donaubauer:
CUT
> >
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

> Il bug viene risolto con l'aggiornamento di Office di oggi alla build
> 14827.20192.
CUT
> Karl
> *********
> Access News:
https://youtu.be/wpPYu6G_xcY

> Access DevCon:
http://AccessDevCon.com

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

Grazie!


text:
Il giorno martedì 8 febbraio 2022 alle 16:21:31 UTC+1 Karl Donaubauer ha scritto:
> Salve,
>
> Karl Donaubauer:
> >
> > Si tratta di un bug nell'aggiornamento per M365 del 26 gennaio, di cui
> > abbiamo discusso per giorni in tutti i forum Access del mondo. Vedi p.e.
> > la mia risposta qui:
> >
> >
https://techcommunity.microsoft.com/t5/access/access-doesn-t-close-properly-a-remaining-background-process-can/m-p/3103807

> Il bug viene risolto con l'aggiornamento di Office di oggi alla build
> 14827.20192.
CUT

Ciao
ho fatto il downgrade e tutto ha funzionato finora ma adesso il problema si ripresenta.

La mia attuale versione è 16.0.14729.20156

Unica differenza rispetto a prima è che adesso chiudendo e riaprendo access riprende a funzionare per un po'.
Tuttavia alcune query non rilasciano la connessione neanche quando vengono chiuse e alla fine saturano le 255 connessioni possibili.
Nulla cambia chiudendo tutte le maschere e gli oggetti, l'unica cosa che resetta le connessioni è chiudere access.
Credo che non esista un comando esplicito per liberare le connessioni, ma la cosa che mi lascia molto perplesso è che anche maschere molto semplici impegnano da 20 a 50 o anche più connessioni disponibili, cosa che poi limita l'applicazione all'apertura di 5 o 6 maschere, limite che in 25 anni di utilizzo non ho mai riscontrato.

Di contro, se provo a cliccare su Aggiorna ora mi dice che la versione più aggiornata approvata dall'amministratore è già installata.
Ritengo che questo dipenda dalla procedura di downgrade che ha bloccato la versione consentita a quella corrente, ma come si elimina questa limitazione?

Soluzioni?

Ciao


author: Simone Calligaris

text:
> Soluzioni?

BFS ti risponderebbe "google flutter" (e direi, non a torto) .
Considerando che da lustri le innovazioni sul prodotto sono minime, credo i tuoi applicativi possano funzionare pure con vecchie versioni Runtime (come la 2010) probabilmente non toccate dal problema.
Hai fatto qualche test?

Saluti


author: BFS

text:

beh quando c'è di mezzo MS sembre meglio non usare gli ultimi
aggiornamneti di nulla :-)

cmq conferno, uso sempre il runtime di almeno due versioni prima per
evitare problemi di questo genere

BFS


text:

Considerando che distribuisco solo versioni "compilate", purtroppo non si può fare.

Flutter lo stiamo provando per android, ma se qualcuno mi vuole venire a raccontare che flutter (con le sue intricate e assurde modalità di programmazione) ha la minima speranza di sostituire o anche solo affiancare RAD come Access, onestamente la prendo come una battuta.

Ad ogni modo, attivando l'aggiornamento all'ultima versione si è risolto tutto.

Ciao
Davide


text:
Il 23/02/2022 13:04, Davide La Mantia ha scritto:
> con le sue intricate e assurde modalità di programmazione

esempio?

BFS


text:

Esempio di che? di flutter? Ma stai scherzando?
Hai bisogno che ti dimostro che è intricato e assurdo?
O intendevi paragonare la modalità con cui si fa una maschera con Access rispetto alla modalità con cui si fa con flutter?

Davide


text:

no no volevo solo capire cosa ti pareva intricato e assurdo. a me pare
di una facilità disarmante sarebbe dura che tu riuscissi a dimostrarmi
che è intricato. Mi pare pure più semplice di access dopo che l'ho imparato.

poi sul disegnare maschere concordo non c'è proprio paragone.
con uno disegni qualsiasi cosa.
con l'altro fai un rettangolo e ci metti dentro 10 controlli nativi
scarsi che ide ti mette a disposizione e ne accetti i limiti :-)

mi fermo altrimenti sembra che sono stipendiato da google :-)

BFS


title: Suggerimento "piccolo" DW

author: Ganimede

text:
Ciao a tutti,
conoscete qualche "piccolo" (senza dover spendere una fortuna intendo)
datawarehouse da consigliarmi ?
Qualcosa che funzioni su sistemi Windows e meglio se usa come db MSSQL.
Il gestionale da cui prelevare i dati è anch'esso su MSSQL. Vorrei
estrapolare i dati dal gestionale in una seconda basedati su cui
lavorare per la reportistica e analisi.
Grazie.


title: Suggerimento "piccolo" DW

author: Lorenzo(pyx)

text:
In
news:1165394665.8...@16g2000cwy.googlegroups.com
,
Ganimede <
newto...@yahoo.com
> typed:

Ciao,
prova  a vedere se ti possono essere utili questi link.
http://www.datadynamics.com:80/Products/ProductOverview.aspx?Product=DC
http://www.contourcomponents.com/contourcube.htm
Entrambi dispongono di OCX inseribile in access ed entrambi
prevedono una modalità di funzionamento "full demo".
L'origine dati puo' essere tranquillamente anche via odbc e
quindi SQL senza problemi.
Pero' le prestazioni migliori si ottengono tramite un pre-filtro
fatto da access che "normalizza" / elabora i dati presi da SQL
e li porta in locale su un mdb.
--
Lorenzo


title: aiuto!!!

author: mau

text:
salve a tutti e vi ringrazio già da ora!!
Ho un problema con dei database in quanto non riesco ad aprirli.Io nel mio
pc ho installato office 2000 e sicuramente i data base che cerco di aprire
sono fatti con versioni precedenti. Il problema nasce quando provo a
convertirli nella versione aggiornata in quanto compare una finestra in cui
mi dice : questa operazione non è supportata da microsoft access 1.x.
Cosa posso fare????
grazie ancora!!


title: aiuto!!!

author: Salvatore

text:
"mau" <
maur...@tiscali.it
> ha scritto nel messaggio
news:viLqb.2345$uv1....@nntpserver.swip.net...

Prova a scrivere un subject più significativo (chessò, qualcosa come
"conversione di database", "problema con versioni di access differenti"
ecc.)
Ciao
Salvatore


title: ode 2000

author: Alessandro

text:
Salve a tutti,
ho installato ode 2000.
Ho un programmino in access 2000che vorrei provare a rendere indipendente.
Esattamente cosa devo fare?
Grazie
Alessandro


title: ode 2000

author: sdamy

text:
Alessandro <
abia...@freemail.it
> wrote in message
pOxK6.783$Rc5....@news2.tin.it...

ti giro la una risposta che mi era stata data:
Dopo Aver installato il pacchetto premendo ALT+F11 entri nel editor di
Visual basic, dopo di che vai alla voce Aggiunte
vai su gestione aggiunte e poi clicchi due volte su ( VBA  Package and
Deployment Wizard ) di fianco apparirà una voce che dice caricato, sotto
devi spuuntare la voce carica all' avvio.
Il gioco è fatto.
Ora non ti resta che :
1- Creare il File MDE di access.
2- Lanciarlo e sempre premendo ALT+F11 andare nell'editor di Vb
3- Menu Aggiunte - Package and Deployment Wizard
4- Package
5- segui le istruzioni.
Io ho provato sia quello per Access97 che questo e personalmente preferisco
questo, si avvicina molto di più al Wizard per Visual Basic.
Ad un certo punto trovarai una casellina con (Include Access RunTime) serve
per poter creare il package con il runtime, dovrai fornirgli il percorso
dell runTime, che si trova sul CD ORIGINALE nella cartella "accessrt".
Attenzione qui trovari due sottocartelle una chiamata Full e l'altra
chiamata Min, la differenza tra l'una e l'atra dovrebbe stare soltanto che
nel Full viene installato anche Internet Explorer, però solo in inglese, il
risultato è che tutti i menu di Windows si tramuteranno magicamente in
inglese (Che Schifo), so che ci sono in giro ci sono delle dll da sotituire
per trasformarlo in italiano, ma visto e considerato che ormai tutti i
computer montano già IE in italiano puoi usare il rin Time MIN.
Spero di esserti satto utile.
Enrico Pietrobon
Saluti
SDAMY


title: ode 2000

text:
"sdamy" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:qZMK6.2099$cU2....@news1.tin.it...

Scusami ma non ci arrivo.
Ho installato ODE 2000 e tra i programmi, sotto la voce Microsoft Office
2000 Developer ho le seguenti voci:
- About Microsoft Office Developer
-  Code Librarian
- Microsoft Office 2000 Developer ReadMe
- Replication Manager 4.0
Quali di quesi mi fa entrare nel programma?
Grazie
Alessandro


title: ode 2000

text:
Alessandro <
abia...@freemail.it
> wrote in message
chNK6.3000$Rc5....@news2.tin.it...

Non si entra come una normale applicazione....
Dopo aver installato l'ode,
devi per forza aprire l'editor VBA... è da li che  riesci a gestire
l'aggiunta e creare i package:
 Menu Aggiunte - Package and Deployment Wizard
saluti
Sdamy


title: Convertire da MySql ad Access

author: Diego Lavieri

text:
Salve a tutti
 vorrei sapere se è possibile convertire un db da MySql ad Access. In
pratica ho una database libri.sql e vorrei poterlo leggere in Access. E'
possibile fare ciò... e come?
Ho degli strumenti per fare il contrario, cioè da Access a Mysql.
 Grazie


title: Convertire da MySql ad Access

author: Alex

text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> wrote in message
news:aspv9i$1kh$
1...@lacerta.tiscalinet.it

Non devi convertire nulla, collega le Tabelle di MySQL tramite ODBC di
MySQL.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Convertire da MySql ad Access

author: Sib

text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio

Personalmente non l'ho mai fatto, ma come tutti i buoni motori Database,
MySQL ha certamente i suoi bravi driver ODBC che ti consentono di accedervi
da Access.
Sib


title: Convertire da MySql ad Access

author: ringo

text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio
news:aspv9i$1kh$1...@lacerta.tiscalinet.it...

confermo!
colegati via ODBC (scaricati i driver ODBC da
www.mysql.com
)
e importati i dati alla grande!!!
io utilizzo i driver ODBC per esportare i dati da access a mysql
bye
ringo


title: Convertire da MySql ad Access

text:
Per cortesia aiutatemi...mi dite come si fa. Cioč qualche passo che mi
spieghi come collegarle?
Grazie
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:asqb05$ieu$1...@serv1.albacom.net...
>
> "Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio
> news:aspv9i$1kh$1...@lacerta.tiscalinet.it...
> > Salve a tutti
> >  vorrei sapere se č possibile convertire un db da MySql ad Access. In
> > pratica ho una database libri.sql e vorrei poterlo leggere in Access. E'
> > possibile fare ciň... e come?
> > Ho degli strumenti per fare il contrario, cioč da Access a Mysql.



title: Convertire da MySql ad Access

text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> wrote in message
news:assbo9$2t3$
1...@lacerta.tiscalinet.it
> Per cortesia aiutatemi...mi dite come si fa. Cioè qualche passo che mi
> spieghi come collegarle?
> Grazie
Solo se scrivi dopo il QUOTING, altrimenti ci becchiamo
la tirata d'orecchie da ANTONIO...!
Allora, collegare le tabelle è abbastanza semplice:
-Crei il DSN utente dopo esserti assicurato di avere i DRIVE MyODBC
 che puoi scaricare dal sito
www.mysql.com
-Creato il DSN fai il COLLEGA TABELLE.
 Solo che invece dicercare un File MDB, devi cercare un DRIVE ODBC.
 A questo punto si apre la finestra dei DSN disponibili, click su
 quello appena fatto per MySQL e ti da l'elenco delle TABELLE del
DB_MySQL
 Selezioni quelle che vuoi collegare e....FINITO.
Ho appena imparato che poi il DSN non serve più, quindi puoi
Relinkare le tabelle direttamente via ODBC.................!



title: Convertire da MySql ad Access

author: Sandro

text:
Il 07 Dic 2002, 11:15, "Alex" <
ik2...@libero.it
> ha scritto:
> Ho appena imparato che poi il DSN non serve più, quindi puoi
> Relinkare le tabelle direttamente via ODBC.................!
Ce l'hai fatta ??? ;-)
Ciao, Sandro.
--------------------------------
Inviato via
http://usenet.libero.it


title: Convertire da MySql ad Access

text:
"Sandro" <
sandro...@yahoo.com
> wrote in message
news:212Z210Z230Z100...@usenet.libero.it
> Il 07 Dic 2002, 11:15, "Alex" <
ik2...@libero.it
> ha scritto:
> > Ho appena imparato che poi il DSN non serve più, quindi puoi
> > Relinkare le tabelle direttamente via ODBC.................!
>
> Ce l'hai fatta ??? ;-)
>
> Ciao, Sandro.
>
Beh, vorrei ben vedere..........!!!
In effetti ho faticato come pochi, mi sfuggiva qualcosa
che poi mi hai fatto capire. Ora è un giochino.......!!!
Ciao Sandro grazie.



title: Convertire da MySql ad Access

text:
Il 13 Dic 2002, 19:25, "Alex" <
ik2...@libero.it
> ha scritto:
> In effetti ho faticato come pochi, mi sfuggiva qualcosa
> che poi mi hai fatto capire. Ora è un giochino.......!!!
> Ciao Sandro grazie.
Ne sono davvero lieto!
Ciao, Sandro



title: Selezione records

author: Giorgio

text:
Salve
Vorrei un consiglio:
Ho una maschera con all'interno una casella combinata legata alla query
'agenti'
se nella casella combinata non inserisco niente la query mi visualizza tutti
gli agenti, se invece seleziono un agente mi visualizza solo quello.
Mi chiedono la possibilità di selezionare solo alcuni agenti che non voglio
vedere, cioe tutti tranne quei 4 o 5 che non vogliono vedere
Che soluzione posso adottare?
Grazie
Ciao
Giorgio


title: Selezione records

author: Antonio Biso

text:
"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
news:yztgb.15550$vO5.5...@twister1.libero.it...

Casella di riepilogo con selezione multipla e poi via codice ti crei una
stringa SQL che filtra i record sulla base della selezione e che passerai
come origine record della form
Antonio


title: Selezione records

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:9augb.16316$e6.5...@twister2.libero.it...

Grazie per il suggerimento
Non sono molto esperto di programmazione, per quanto riguarda la casella di
riepilogo con selezione multipla estesa ci sono riuscito
Potresti darmi un aiuto sulla stringa SQL per filtrare i records sulla base
della selezione.
Non so proprio come farla.
Grazie
Giorgio


title: Selezione records

text:
"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
news:Lfvgb.15801$vO5.5...@twister1.libero.it...

Prova a vedere sul sito comune la soluzione per aprire un report sulla base
della selezione su casella di riepilogo.
Da lì con poche modifiche dovresti riuscire a fare quello che vuoi
Antonio


title: aggiornamento BE problema codice

author: Ph. Barnum

text:
Ci riprovo, ho preso il codice che segue dal sito comune, "smorfiandolo" con
il mio BE e la mia tabella da aggiornare:
 Public Function EsisteTabella(Anagraficaditta As String, Optional
illetabelle_beold) As Boolean
Dim dbs As Database, tdf As TableDef
If IsMissing("c:\archidittebackend\illetabelle_beold") Then
 Set dbs = CurrentDb
Else
  Set dbs = OpenDatabase("c:\archidittebackend\illetabelle_beold")
 End If
 EsisteTabella = False
 For Each tdf In dbs.TableDefs
  If tdf.Name = NomeTab Then
   EsisteTabella = True
   Exit For
  End If
 Next tdf
 Set dbs = Nothing
 End Function
 Private Sub Comando0_Click()
    Set dbsExt = OpenDatabase("c:\archidittebackend\illetabelle_beold.mdb")
    For Each tdf In dbsExt.TableDefs
  If (tdf.Attributes And dbSystemObject) = False And (tdf.Attributes And
dbHiddenObject) = False Then
   If EsisteTabella(tdf.Name) Then
    DoCmd.RunSQL "INSERT INTO " & tdf.Name & " SELECT * FROM " & tdf.Name &
" IN " & illetabelle_beold
   End If
  End If
  Next tdf
  Set dbsExt = Nothing
End Sub
Qundo clicco sul mio pulsantino non accade assolutamente nulla, nè si apre
il database illetabelle_beold, nè si aggiorna la tabella AngraficaDitta,
stessi risultati si ottengono se apro il vecchio BE.
Qualcuno può risolvermi il problema o anche inviarmi una porzione di codice
funzionante
Specifico che uso Access 2000  e Windows XP.
Grazie
Ph Barnum


title: Aprie db

author: Paola

text:
Salve a tutti,
vorrei mentre visualizzo una maschera avere un pulsante sul quale
ci sia una parola "PROVA" che sia un collegamento ad un'altro DB.
Vorrei quindi che premuto il collegamento mi si apra un  secondo DB
Vorrei che questo procedimento sia indipendente da dove risiede fisicamente
nel disco il secondo db
Qualcuno mi aveva accennato che con Access potevo farlo ma non so come.
Potete aiutarmi?
Ciao e grazie


title: Aprie db

author: Sergio MAZZA

text:
"Paola" <
zx...@libero.it
> ha scritto nel messaggio
news:g8pyb.153975$vO5.6...@twister1.libero.it...

E come fai a capire dove è posizionato il secondo mdb (Prova) se te lo
sposto in un secondo tempo?
Che fai, ogni volta che apri il primo mdb scandagli tutto l'hd in ricerca
del secondo mdb? Ma il problema resta sempre se io lo ri-sposto (o
addirittura lo rinomino) mentre il primo è aperto.
Non fai prima a dire cosa vorresti ottenere?
Ciao.
--
Sergio MAZZA


title: problema con sendkeys

author: Lorenzo Clerici

text:
buon giorno a tutti
ho un problema su un applicazione fatta con access 97, utilizzo la funzione
sendkeys per simulare la pressione del tasto enter, ma quando questa viene
eseguita i controlli num lock e caps lock vengono disattivati.
qualcuno sa come evitare che questo succeda?
grazie mille a tutti anticipatamente
lorenzo


title: problema con sendkeys

author: Carlo Costarella

text:
"Lorenzo Clerici" <
vw...@tin.it
> ha scritto nel messaggio
news:43f6195f$0$12588$4faf...@reader3.news.tin.it...

Leggi al sito di Karl e se proprio vuoi usare il senkey aggiungi virgola e
true.
Ciao, Carlo


title: problema con sendkeys

author: lorenzo clerici

text:
qual'è la sintassi esatta da utilizzare?
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43f61c90$0$5989$4faf...@reader2.news.tin.it...



title: problema con sendkeys

text:
esiste un sistema alternativo per simulare la pressione dei tasti?
si possono utilizzare le api?
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43f61c90$0$5989$4faf...@reader2.news.tin.it...



title: problema con sendkeys

text:
"lorenzo clerici" <
vw...@tin.it
> ha scritto nel messaggio
news:43f6489c$0$28066$4faf...@reader1.news.tin.it...
>
> qual'è la sintassi esatta da utilizzare?
cut
possibile che non hai dato una sbirciatina alla guida?
(Istruzione SendKeys)
sintassi: SendKeys string[, wait]
esempio per invio:
SendKeys "{ENTER}", True
oppure
SendKeys "~", True
Ti ricordo, inoltre, di scrivere dopo la risposta e non prima.
Ciao, Carlo


title: problema con sendkeys

text:
"lorenzo clerici" <
vw...@tin.it
> ha scritto nel messaggio
news:43f64bbe$0$5985$4faf...@reader2.news.tin.it...
>
> esiste un sistema alternativo per simulare la pressione dei tasti?
> si possono utilizzare le api?
>
>> Leggi al sito di Karl e se proprio vuoi usare il senkey aggiungi virgola
>> e
>> true.
>>
>> Ciao, Carlo
 il sito in questione č:
http://www.donkarl.com/it/
 la faq 7.8 dove rimanda anche a
http://www.mvps.org/access/api/api0046.htm
Ciao, Carlo


title: problema con sendkeys

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43f6bbc8$0$5998$4faf...@reader2.news.tin.it...

>ciao grazie ho risolto aggiungendo true


title: raduno romano: bed and breakfast

author: Lbo da casa

text:
a chi interessa: ho trovato un bed and breakfast (che poi sarebbe un
mio vecchio conoscente che non vedevo da un po') a 30 sacchi al
giorno, compresa la colazione, in camere dignitose, in via
dell'Olmata, a due passi da S. Maria Maggiore e quindi a poche
centinaia di metri dalla stazione.
se interessa fatemi sapere che vi dò il recapito, o magari prenoto
direttamente io.
io ho esaurito i posti letto a mia disposizione, se vi volete adattare
col sacco a pelo in un corridoio si può vedere.
---------------
molti umani che conosco non passerebbero il test di Turing. (Lbo)
---------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: raduno romano: bed and breakfast

author: Luciano (DOC)

text:
Lbo da casa ha scritto nel messaggio <
39ff17f0....@news.edisons.it
>...
>a chi interessa: ho trovato un bed and breakfast (che poi sarebbe un
>mio vecchio conoscente che non vedevo da un po') a 30 sacchi al
>giorno, compresa la colazione, in camere dignitose, in via
>dell'Olmata, a due passi da S. Maria Maggiore e quindi a poche
>centinaia di metri dalla stazione.
Aggiungo che e' piuyttosto vicino a casa mia.
Saluti.
Luciano
(DOC)


title: Grafici da query con parametri

author: Andrea Mai

text:
Devo creare un grafico istogramma con sull'asse x le ragioni sociali delle
azienda, sull'asse y il fatturato e con l'anno come serie. I dati sono prese
da una query, quando però imposto come parametro nella query l'equaglianza
fra l'anno e il valore inserito in una form che carica il report contenente
il grafico, questo mi viene visualizzato vuoto.
Come posso impostare dei parametri nella query da una form e ottenere il
grafico corretto?
grazie per l'aiuto...


title: Grafici da query con parametri

author: Roberto - Syd

text:
"Andrea Mai" <
am...@hsgroup.net
> ha scritto nel messaggio
news:Hmtl7.120$2b5....@news.infostrada.it...

Una volta ho avuto lo stesso problema con Access 2.0 e l'ho risolto mettendo
sull'evento apertura del form che conteneva il grafico queste istruzioni:
me![Nome del controllo del grafico].requery ' Aggiorna i dati
me.refresh ' Aggiorna il form
Prova dovrebbe funzionare.
Ciao Fammi sapere Roberto - Syd


title: breakpoint

author: mecch

text:
Azz!!
avevo usato delle sottomaschere per visualizzare dei gruppi di campi
(Entrate e Uscite per i più curiosi :P) poi ho deciso di mettere tutto
sulla form principale perchè non ho trovato vantaggi, quindi ho
Copiato e Incollato sia gli oggetti delle form che il codice.
Risultato:
funziona tutto ma non mi vede più i breakpoint nel codice e quindi il
debug diventa impossibile! C'è qualcuno che ha avuto una esperienza
tipo questa e da cui ne è uscito?
Graaaaaaazieeeeeeeee!!!
Saluti,
Mecch


title: Messaggio su parametri non soddisfatti

author: ggac

text:
Un saluto a tutti.
Il mio problema è questo: in una maschera ho una casella combinata che
popola due controlli, DInizio e DFine, che servono come intervallo di
criteri per poter effettuare una query che origina una maschera per
visualizzare i risultati. Vorrei che quando i criteri non vengono
soddisfatti, si aprisse una MsgBox di avvertimento chiusa la quale, il focus
fosse riportato sulla casella combinata "pulita". E' possibile? Cciao