title: Query parametrica con ADO. Dov'e' l'errore?

author: Matteo

text:
Ciao
Con il seguente codice per chiamare una query parametrica di Access con ADO
ricevo il seguente errore al momento dell'esecuzione di rec.movefirst "Data
provider or other service returned an E_FAIL status."
Qualcuno sa dirmi dov'e' l'errore e come correggerlo?
La mia query in Access e' definita cosi' e l'ho chiamata QUERY
PARAMETERS [nome] text (255);
SELECT *
FROM children LEFT JOIN project ON children.id_child=project.id_child where
children.child_name = [nome]
e il codice usato e' questo
Dim rec As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cnn = New ADODB.Connection
Set rec = New ADODB.Recordset
Set cmd = New ADODB.Command
Set prm = New ADODB.Parameter
cnn.ConnectionString = "Driver={Microsoft Access Driver
(*.mdb)};DBQ=C:\Db.mdb"
cnn.CursorLocation = adUseClient
cnn.Open
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "QUERY"
cmd.Parameters.Append cmd.CreateParameter("[nome]", adVarChar, adParamInput,
255, "teo")
Set rec = cmd.Execute
rec.MoveFirst
e qui mi da' l'errore...
Qualche idea?
Grazie in anticipo


title: Access97 - Copiare il contenuto di una directory

author: Raffaele Di Maio

text:
Giorno, sera a tutti
ho una directory ALFA che contiene n...file.
Voglio copiare gli n...file in una Directory BETA
come faccio in VBA - Access97???
Grazie
Raffaele


author: Lbo

text:
>ho una directory ALFA che contiene n...file.
>Voglio copiare gli n...file in una Directory BETA
>come faccio in VBA - Access97???
scorri il contenuto della directory con la funzione dir e file per
file lo copi con il comando filecopy o copyfile, mo' nun me ricordo.
vedi l'help.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


author: RAffaele Di MAio

text:
"Lbo" <
L...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3aa4472b...@news.edisons.it...
> >ho una directory ALFA che contiene n...file.
> >Voglio copiare gli n...file in una Directory BETA
> >come faccio in VBA - Access97???
>
> scorri il contenuto della directory con la funzione dir e file per
> file lo copi con il comando filecopy o copyfile, mo' nun me ricordo.
>
> vedi l'help.
> --
Grazie Lbo sarŕ fatto:-)))
il comando č FileCopy:-)))))


title: usare la clipboard in access

text:
sto cercando di usare una funziona che copia alcuni dati nella clipboard
l'esempio era in vb ma in vba mi da errore non riconosce l'oggetto
avete mai usato la clipboard in access? avete un esempio?
Grazie.


usare la clipboard in access


title: usare la clipboard in access

author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c5oe17$2m4$1...@lacerta.tiscalinet.it...

ClipBoard a parte cosa devi fare....?
Io ho una Classe già fatta che si appoggia alle API di gestione ClipBoard
ma non è detto che faccia quello che vuoi tu....?
@Alex.


title: usare la clipboard in access

text:
>
> ClipBoard a parte cosa devi fare....?
> Io ho una Classe già fatta che si appoggia alle API di gestione ClipBoard
> ma non è detto che faccia quello che vuoi tu....?
>
> @Alex.
>
devo creare da codice vba una bitmap in c:\ da allegare poi ad una email che
il cliente mi invierà in caso di errori per vedere la schermata dell'errore.
per mandare la email non ce problema solo che usavo un esempio in vb6 che
faceva questo preso dal sito comune ma il codice preso e messo in vba dice
oggetto non conosciuto "clipboard"
sai aiutarmi? grazie.


title: usare la clipboard in access

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c5p4p3$sgi$1...@lacerta.tiscalinet.it...

Come sempre no dovresti proporre tu la soluzione, ma spiegare il fine.
Clipboard o meno se vai sul sito di Lebans trovi un'esempio di come
salvare lo Sfondo in bmp o wmf non ricordo.....!
PEr usare Clipboard servono le API e sicuramente l'utilizzo dell'Handle
nonchè dell'Hdc, cosa che in Access si ricava con altre API :
HWND devi prima spostare il Focus sull'Oggetto con l'API GetFocus
poi ricavare l'Hwnd
Per l'HDC devi usare GetDC, ma la sua gestione non è sempre elementare.
Prova quello già fatto
www.lebans.com
@Alex.


title: usare la clipboard in access

author: Alessandro Cara

text:
ALESSANDRO Baraldi wrote:
[cut]
>
> PEr usare Clipboard servono le API
e io che le usavo per fare il miele.
Che devo fare? dove le devo mettere? nel portabicchieri va bene?
--
a.cara
>


title: usare la clipboard in access

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c5pc08$4e0bh$2...@ID-163946.news.uni-berlin.de...

Nel portaTazza è meglio.
Ti ricordi quel post di qualche anno fà a riguardo del Portatazza...?
@Alex.
**************************************************
DICHIARAZIONI API PER CLIPBOARD
**************************************************
Private Declare Function IsClipboardFormatAvailable _
    Lib "user32" _
    (ByVal uFormat As Integer) As Integer
Private Declare Function OpenClipboard _
    Lib "user32" _
    (ByVal hWnd As Long) As Integer
Private Declare Function GetClipboardData _
    Lib "user32" _
    (ByVal uFormat As Integer) As Long
Private Declare Function GlobalSize _
    Lib "kernel32" _
    (ByVal hMem As Long) As Integer
Private Declare Function GlobalLock _
    Lib "kernel32" _
    (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory _
    Lib "kernel32" Alias "RtlMoveMemory" _
    (ByVal strDest As Any, _
    ByVal lpSource As Any, _
    ByVal Length As Long)
Private Declare Function GlobalUnlock _
    Lib "kernel32" _
    (ByVal hMem As Long) As Integer
Private Declare Function CloseClipboard _
    Lib "user32" () As Integer
Private Declare Function GlobalAlloc _
    Lib "kernel32" _
    (ByVal uFlags As Integer, ByVal dwBytes As Long) As Long
Private Declare Function EmptyClipboard _
    Lib "user32" () As Integer
Private Declare Function SetClipboardData _
    Lib "user32" _
    (ByVal uFormat As Integer, ByVal hData As Long) As Long
Private Declare Function GlobalFree _
    Lib "kernel32" _
    (ByVal hMem As Long) As Long
Private Const GMEM_MOVABLE = &H2&
Private Const GMEM_DDESHARE = &H2000&
Private Const CF_TEXT = 1
'Error return codes from Clipboard2Text
Private Const CLIPBOARDFORMATNOTAVAILABLE = 1
Private Const CANNOTOPENCLIPBOARD = 2
Private Const CANNOTGETCLIPBOARDDATA = 3
Private Const CANNOTGLOBALLOCK = 4
Private Const CANNOTCLOSECLIPBOARD = 5
Private Const CANNOTGLOBALALLOC = 6
Private Const CANNOTEMPTYCLIPBOARD = 7
Private Const CANNOTSETCLIPBOARDDATA = 8
Private Const CANNOTGLOBALFREE = 9


title: usare la clipboard in access

text:
ALESSANDRO Baraldi wrote:
> "Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
> news:c5pc08$4e0bh$2...@ID-163946.news.uni-berlin.de...
>
>>ALESSANDRO Baraldi wrote:
>>
>>[cut]
>>
>>>PEr usare Clipboard servono le API
>>
>>e io che le usavo per fare il miele.
>>Che devo fare? dove le devo mettere? nel portabicchieri va bene?
>>--
>>a.cara
>
>
> Nel portaTazza è meglio.
> Ti ricordi quel post di qualche anno fà a riguardo del Portatazza...?
era a quello che mi riferivo
;<)
> @Alex.
>
> **************************************************
> DICHIARAZIONI API PER CLIPBOARD
> **************************************************
tutte e 12 le hai prese!
Complimenti
;<)
--
a.cara


title: usare la clipboard in access

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c5r1m3$4m1ld$1...@ID-163946.news.uni-berlin.de...

Quando ce vò ce vò.....!
Ciao Buon Week End.
@Alex.


title: DoCmd.GotoRecord

author: Franco

text:
Salve, č possibile muovere il puntatore ai record di una sottomaschera
(tabella Clienti) da una maschera principale?
Nella maschera Sfoglia_clienti ho dei pulsanti che dovrebbero gestire lo
spostamento ai record di una sottomaschera che contiene la tabella Clienti;
ho cercato di usare docmd.Gotorecord acdataform,
Me!Sottomaschera_Sfoglia_Cliente.form.clienti, acFirst...
Niente!
č possibile farlo? credo di si... ma qual'č la giusta sintassi?
Grazie a tutti !


title: DoCmd.GotoRecord

author: Karl Donaubauer

text:
Franco ha scritto:
> Salve, è possibile muovere il puntatore ai record di una sottomaschera
> (tabella Clienti) da una maschera principale?
>
> Nella maschera Sfoglia_clienti ho dei pulsanti che dovrebbero gestire lo
> spostamento ai record di una sottomaschera che contiene la tabella
> Clienti; ho cercato di usare docmd.Gotorecord acdataform,
> Me!Sottomaschera_Sfoglia_Cliente.form.clienti, acFirst...
> Niente!
Me!Sottomaschera_Sfoglia_Cliente.SetFocus
docmd.Gotorecord , , acFirst
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Modificare origine file

author: Alberto A.

text:
SAlve volevo sapere se è possibile spostare l'origine di un file_be.
devo ambiare la directory di partenza.
Saluti
Alberto
--------------------------------
Inviato via
http://usenet.libero.it


title: Modificare origine file

author: Sergio MAZZA

text:
"Alberto A." <
anto...@libero.it
> ha scritto nel messaggio
news:80Z18Z96Z134Y1...@usenet.libero.it...
> SAlve volevo sapere se è possibile spostare l'origine di un file_be.
> devo ambiare la directory di partenza.
>
> Saluti
> Alberto
>
Sul sito comune hai anche un esempio per riallegare il be con VBA...
Ciao.
--
Sergio MAZZA


title: controllo delle finestre di messaggio

author: Mimmo

text:
In access 2002, per disattivare le finestre di messaggio relative a conferma
o eliminazione, bisogna spuntare le relative caselle in
Strumenti/Opzioni/modifica/trova/Conferma.
e' possibile effettuare tale tale operazione dall'interno di una
applicazione, per poi sostituirla con messaggi personalizzati?
grazie per la risposta.


title: controllo delle finestre di messaggio

author: Roberto da casa

text:
"Mimmo" <
dom...@tin.it
> ha scritto nel messaggio
news:Fchv8.23704$b62.6...@news1.tin.it...

Hai provato con:
DoCmd.SetWarnings False
per disattivarle e
DoCmd.SetWarnings True
per riattivarle
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Stampa due copie di un report

author: bb

text:
Come posso impostare il numero di copie da inviare alla stampante di
un report senza passare per l'antepriama. Per lanciare una stampa
utilizzo "DoCmd.OpenReport NomeReport"
Grazie Gianluca


title: Stampa due copie di un report

author: Antonio Biso

text:
bb <
bb...@linbero.it
> wrote in message 3be65ee4...@news.libero.it...

Prova ad usare printout
Antonio


title: Stampa due copie di un report

text:
On Mon, 05 Nov 2001 09:53:21 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

Grazie... piů facile del previsto.


title: Stampa due copie di un report

text:
bb <
bb...@linbero.it
> wrote in message 3be6685c...@news.libero.it...

> Grazie... più facile del previsto.
Consiglio:
Help on line su OpenReport
Clic su link Vedere Anche
Clic su PrintOut
Antonio


title: Errore di sintassi DMAX

author: Massimo

text:
Salve a tutti sto diventando matto con la funzione dmax con due
criteri.
Il campo IDCODICE è di tipo testo
Il campo CODMANU è di tipo numerico
Questa è la riga in questione:
lastData = DMax("[DATA_DA_FARE]", "Tbl_Scadenze", "[IDCODICE]= '" &
Me.IDCODICE & "'" & " And [CODMANU]= & Me.CODMANU")
L'errore che mi segnala è num 3075 ovvero errore di sintassi operatore
mancante..
Ho provato in mille modi ma non riesco a capire dove sbaglio.
Grazie per l'aiuto
Massimo


title: Errore di sintassi DMAX

text:
Massimo ha scritto:
> Salve a tutti sto diventando matto con la funzione dmax con due
> criteri.
> Il campo IDCODICE � di tipo testo
> Il campo CODMANU � di tipo numerico
> Questa � la riga in questione:
> lastData = DMax("[DATA_DA_FARE]", "Tbl_Scadenze", "[IDCODICE]= '" &
> Me.IDCODICE & "'" & " And [CODMANU]= & Me.CODMANU")
> L'errore che mi segnala � num 3075 ovvero errore di sintassi operatore
> mancante..
"[IDCODICE]= '" &  Me.IDCODICE & "'" & " And [CODMANU]= " & Me.CODMANU
--
ac


title: Errore di sintassi DMAX

author: MA

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:44bfn.116557$813....@tornado.fastwebnet.it...

su sua correzione cara,
 "[IDCODICE]= '" &  Me.IDCODICE & "' And [CODMANU]= " & Me.CODMANU
che senso ha aprire e concatenre la stringa?
> --
> ac


title: Errore di sintassi DMAX

text:
MA ha scritto:

Alcune volte per evidenziare i singoli blocchi.
Questo puo' essere ancora piu' didascalico
& "'" & " And " & "[CODMANU]= "
E comunque mi sono limitato a copiare e correggere. Con una certa fatica
  ho spostato un "virgoletta".  ;-{)
--
ac


title: Errore di sintassi DMAX

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:Nrcfn.116639
> E comunque mi sono limitato a copiare e correggere. Con una certa fatica
> ho spostato un "virgoletta".  ;-{)
> --
> ac
hai ragione, scusami, tu che sei una figura mitologica met� uomo met� divano


title: Errore di sintassi DMAX

text:
On 18 Feb, 18:35, "MA" <
s...@spam.it
> wrote:
> "Alessandro Cara" <
alessandro.c...@ay-1anetwork.it
> ha scritto nel messaggio
> news:Nrcfn.116639
>
> > E comunque mi sono limitato a copiare e correggere. Con una certa fatica
> > ho spostato un "virgoletta".  ;-{)
> > --
> > ac
>
> hai ragione, scusami, tu che sei una figura mitologica metà uomo metà divano
Figure mitologiche o meno grazie lo stesso....
Maledette virgolette e chi le ha inventate.
Ciao


title: Campi contatore

author: franco

text:
Ho una maschera Clienti  (IDCliente come contatore) con un pulsante di
comando che apre una maschera Animali (con IDAnimale come contatore e
IDCliente come numerico) in modalità "Immissione dati" impostata a Sì. Le
due maschere (tabelle) sono collegate da una relazione uno a molti. Quando
apro la maschera Animali, il controllo IDCliente della maschera stessa è 0
(zero). Vorrei sapere se è possibile fare in modo che all'apertura della
maschera Animali, il controllo IDCliente riporti lo stesso numero del
controllo IDCliente che appare nella maschera Clienti.
Grazie.
--------------------------------
Inviato via
http://usenet.iol.it


title: Campi contatore

text:
"franco" <
rugger...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z210Z80Y...@usenet.iol.it...
> Ho una maschera Clienti  (IDCliente come contatore) con un pulsante di
> comando che apre una maschera Animali (con IDAnimale come contatore e
> IDCliente come numerico) in modalità "Immissione dati" impostata a Sì. Le
> due maschere (tabelle) sono collegate da una relazione uno a molti. Quando
> apro la maschera Animali, il controllo IDCliente della maschera stessa è 0
> (zero). Vorrei sapere se è possibile fare in modo che all'apertura della
> maschera Animali, il controllo IDCliente riporti lo stesso numero del
> controllo IDCliente che appare nella maschera Clienti.
>
> Grazie.
Per quello che ci hai raccontato sembrerebbe che tu aggiorni le due tabelle
in maniera autonoma, con due maschere slegate tra di loro, forse solamente
sincronizzate.
Normalmente l'aggiornamento di due tabelle in relazione tra di loro
uno-a-molti, come sono quelle del tuo caso, viene effettuato con la tecnica
di maschera/sottomaschera.
Ovvero fai in maniera che la tua maschera Animali sia di tipo tabellare
(visaualizzazione a Maschere continue).
Quindi nell'attuale tua maschera Clienti elimina il pulsante di controllo e
inserisci un controllo sottomaschera che deve avere come Oggetto origine la
tua maschera Animali e come Collega campi secondari e Collega campi master
IDCLiente.
Così facendo, quando aprirai la maschera Clienti, nella sottomaschera in
essa contenuta ti compariranno automaticamente tutti gli animali di quel
cliente, e quando inserirai un nuovo animale Access compilerà autonomamente
l'IDCliente del record Animali rilevandolo appunto da quello del record
corrente della maschera principale.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Campi contatore

text:
Il 13 Mar 2001, 23:35, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
>"franco" <
rugger...@hotmail.com
> ha scritto nel messaggio
>news:151Z29Z210Z80Y...@usenet.iol.it...
>> Ho una maschera
Clienti  (IDCliente come contatore) con un pulsante di
>> comando che apre
una maschera Animali (con IDAnimale come contatore e
>> IDCliente come
numerico) in modalità "Immissione dati" impostata a Sì.
>>>
>> Grazie.
>>Normalmente l'aggiornamento di due tabelle in relazione tra di loro
>uno-a-molti, come sono quelle del tuo caso, viene effettuato con la
>tecnica
>di maschera/sottomaschera.
>Ovvero fai in maniera che la tua
maschera Animali sia di tipo tabellare
>(visaualizzazione a Maschere
continue)...................
>
>--
>Roberto
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Ti ringrazio per la
risposta. Ma forse non ti ho detto tutto. Infatti la mia maschera Animali
apre a sua volta una maschera Scheda tramite un pulsante di comando. Se
faccio come dici Tu, come posso poi aprire la maschera Scheda che è
collegata a quella Animali da una relazione uno a uno ?
Grazie
Franco (neofita alle prime armi).



title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z209Z24Y...@usenet.iol.it...

Intanto le relazioni (uno-a-uno, uno-a-molti o molti-a-molti) sono tra
tabelle e non tra maschere.
Quindi, eventualmente, avrai un'altra tabella che è collegata uno-a-uno con
la tabella Animali.
E se oggi con un pulsante di comando apri una maschera Scheda sincronizzata
alla maschera Animali, chi ti vieta di continuarlo a fare anche nella
soluzione che ti ho proposto?
Secondo me ti conviene prima provare ed eventualmente poi dire cosa non ti
funziona.



title: Campi contatore

text:
Il 15 Mar 2001, 00:53, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
>"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
>news:151Z29Z209Z24Y...@usenet.iol.it...
>> Il 13 Mar 2001,
23:35, "Roberto da casa" <
r.ma...@libero.it
> ha
>scritto:
>> >
>>
>"franco" <
rugger...@hotmail.com
> ha scritto nel messaggio
>>
>news:151Z29Z210Z80Y...@usenet.iol.it...
>> >>
>---------------------------------------------
>> >il Sito Comune di
>>
it.comp.appl.access:
>> >
http://www.sitocomune.com
>>
>---------------------------------------------
>>
>>
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Ok sulla questione
relazioni tra tabelle.
- tabella Clienti (IDCliente contatore)
- tabella
Animali (IDAnimale contatore, IDCLiente numerico)
- tabella Scheda
(IdAnimale numerico)
- relazione uno a molti tra tab.Clienti e tab.Animali
- relazione uno a uno tra tab.Animali e tab.Scheda
OK sulla questione
maschera+sottomaschera
Quello che mi serve è un pulsante che mi apra la
maschera Scheda relativa al record selezionato nella sottomaschera Animali,
in modo da poter aggiungere o modificare i dati presenti nella maschera
Scheda.
Grazie per la tua pazienza e spero comprensione.
Franco



title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z211Z12Y...@usenet.iol.it...
> Il 15 Mar 2001, 00:53, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
> >
[CUT]
> Ok sulla questione
> relazioni tra tabelle.
> - tabella Clienti (IDCliente contatore)
> - tabella
> Animali (IDAnimale contatore, IDCLiente numerico)
> - tabella Scheda
> (IdAnimale numerico)
> - relazione uno a molti tra tab.Clienti e tab.Animali
> - relazione uno a uno tra tab.Animali e tab.Scheda
> OK sulla questione
> maschera+sottomaschera
> Quello che mi serve è un pulsante che mi apra la
> maschera Scheda relativa al record selezionato nella sottomaschera
Animali,
> in modo da poter aggiungere o modificare i dati presenti nella maschera
> Scheda.
>
> Grazie per la tua pazienza e spero comprensione.
>
> Franco
>
Ipotizzando che nella maschera Animali il controllo associato al campo
IDAnimale di tabAnimali si chiami anche lui IDAnimale, inserisci nella
maschera Animali un pulsante di comando: a fronte dell'evento "Su clic" del
pulsante di comando genera il seguente codice VBA:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Scheda"
    stLinkCriteria = "[IDAnimale]=" & Me![IDAnimale]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Se il pulsante di comando lo crei con l'Autocomposizione controllo, e
rispondi correttamente alle domande che ti pone il wizard di
autocomposizione, il codice VBA di cui sopra te lo crea automaticamente
Access.
Una curiosità: perchè i dati contenuti in tabScheda non li metti in
tabAnimali, così ti levi tutti i dolori di pancia di una gestione di due
tabelle in relazione uno-a-uno?
Volendo puoi lasciare l'architettura delle maschere così come l'hai decisa,
oppure modifichi anche la maschera Animali inserendoci anche i controlli
della maschera Scheda; eviti così anche tutte le complicanze di tenere
sincronizzate le maschere Animali e Scheda.
--
Roberto



title: Campi contatore

text:
Il 18 Mar 2001, 12:02, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
>"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
>news:151Z29Z211Z12Y...@usenet.iol.it...
>> Il 15 Mar 2001,
00:53, "Roberto da casa" <
r.ma...@libero.it
> ha
>scritto:
>> >
>[CUT]
>> >>
>inserisci nella
>maschera Animali un pulsante di comando: a
fronte dell'evento "Su clic"
>del
>pulsante di comando genera il seguente
codice VBA:
>    Dim stDocName As String
>    Dim stLinkCriteria As
String
>    stDocName = "Scheda"
>    stLinkCriteria = "[IDAnimale]=" &
Me![IDAnimale]
>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>
>--
>Roberto
>---------------------------------------------
>il Sito Comune
di it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Ho bisogno di riordinare
un poco le idee :-(
Toglimi però questa curiosità: poniamo che mi vada
bene  la struttura maschera Clienti con sottomaschera Animali; il pulsante
che mi apre la maschera Scheda lo devo inserire per forza nella maschera
Clienti in quanto non sono mai riuscito ad inserirlo nella sottomaschera
Animali. Il codice VBA che mi hai proposto non dovrebbe andar bene o
sbaglio ? Inoltre come faccio a dirgli che deve aprirmi la maschera Scheda
relativa al record selezionato nella sottomaschera Animali ?
Grazie.



title: Campi contatore

text:
"Franco" <franco...@Hotmail.com> ha scritto nel messaggio
news:151Z29Z211Z167...@usenet.iol.it...

> Toglimi perň questa curiositŕ: poniamo che mi vada
> bene  la struttura maschera Clienti con sottomaschera Animali; il pulsante
> che mi apre la maschera Scheda lo devo inserire per forza nella maschera
> Clienti in quanto non sono mai riuscito ad inserirlo nella sottomaschera
> Animali. Il codice VBA che mi hai proposto non dovrebbe andar bene o
> sbaglio ? Inoltre come faccio a dirgli che deve aprirmi la maschera Scheda
> relativa al record selezionato nella sottomaschera Animali ?
>
> Grazie.
> Franco
>
Il codice che ti ho suggerito puň funzionare SOLO a condizione che tu
inserisca il pulsante di comando nella sottomaschera Animali.
Non riesco proprio a capire cosa ti impedisca di inserire un pulsante di
comando nel corpo della sottomaschera Animali.



title: Campi contatore

text:
"Franco" <franco...@Hotmail.com> ha scritto nel messaggio
news:151Z29Z211Z167...@usenet.iol.it...

> Toglimi perň questa curiositŕ: poniamo che mi vada
> bene  la struttura maschera Clienti con sottomaschera Animali; il pulsante
> che mi apre la maschera Scheda lo devo inserire per forza nella maschera
> Clienti in quanto non sono mai riuscito ad inserirlo nella sottomaschera
> Animali. Il codice VBA che mi hai proposto non dovrebbe andar bene o
> sbaglio ? Inoltre come faccio a dirgli che deve aprirmi la maschera Scheda
> relativa al record selezionato nella sottomaschera Animali ?
>
> Grazie.
> Franco
>
Il codice che ti ho suggerito puň funzionare SOLO a condizione che tu
inserisca il pulsante di comando nella sottomaschera Animali.
Non riesco proprio a capire cosa ti impedisca di inserire un pulsante di
comando nel corpo della sottomaschera Animali.
--



title: Campi contatore

text:
>>Non riesco proprio a capire cosa ti impedisca di inserire un pulsante di
>comando nel corpo della sottomaschera Animali.
>--
>Roberto
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Riesco ad inserire il
pulsante solo se la sottomaschera è in formato Tabulare, ma non ci riesco
nel formato Foglio dati.
Sai cosa ho fatto? Ho inserito il codice VBA che
mia hai proposto nell'evento SU click del controllo iDAnimale della
sottomaschera Animali in formato Foglio dati. In questo modo quando clicco
sul controllo IDAnimale si apre la maschera Scheda (....devo essere proprio
impazzito! :-)



title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z210Z145Y...@usenet.iol.it...
[CUT]
> Riesco ad inserire il
> pulsante solo se la sottomaschera è in formato Tabulare, ma non ci riesco
> nel formato Foglio dati.
Se la visualizzazione della maschera è Foglio dati, è normale; sarebbe come
volerlo inserire in una tabella.
Perché non puoi usare la visualizzazione a Maschere continue?
> Sai cosa ho fatto? Ho inserito il codice VBA che
> mia hai proposto nell'evento SU click del controllo iDAnimale della
> sottomaschera Animali in formato Foglio dati. In questo modo quando clicco
> sul controllo IDAnimale si apre la maschera Scheda (....devo essere
proprio
> impazzito! :-)
Perché impazzito? E' comunque una soluzione.
Forse però è meglio che scegli l'evento "Su doppio clic" anziché quello "Su
clic", forse ti creerà meno fastidi.



title: Campi contatore

text:
>Perché impazzito? E' comunque una soluzione.
>Forse però è meglio che
scegli l'evento "Su doppio clic" anziché quello
>"Su
>clic", forse ti
creerà meno fastidi.
>--
>Roberto
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Grazie per la risposta
(... non ci speravo!)
Comunque mi rimane sempre il problema con cui
eravamo partiti all'inizio e che voglio riproporti in modo più esplicito:
mettiamo che io voglia mantenere le tre maschere separate (mClienti,
mAnimali, mScheda). Quando inserisco un "nuovo record" nella mClienti ho un
determinato IDCliente mettiamo uguale a 3 (contatore); quando apro la
mAnimali il controllo IdCliente della stessa maschera è uguale a 0 (zero);
se io non introduco manualmente il valore 3 in questo controllo, non posso
salvare il nuovo record nella mAnimali.
Chiedo: è possibile fare in modo
che all'apertura della mAnimali tramite un pulsante di comando il controllo
IDCliente della stessa venga impostato automaticamente uguale a quello
presente nel controllo IDCliente della mClienti (cioè uguale a 3) ?
La
ruotine che mi hai indicato funziona solo se io imposto manualmente
l'IDCliente della mAnimali uguale all'IDCliente della mClienti.
Grazie
mille
Franco (...il veterinario).



title: Campi contatore

text:
"franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z209Z163Y...@usenet.iol.it...
[CUT]
>
> Grazie per la risposta
> (... non ci speravo!)
Uomo di poca speranza! :-)
> Comunque mi rimane sempre il problema con cui
> eravamo partiti all'inizio e che voglio riproporti in modo più esplicito:
> mettiamo che io voglia mantenere le tre maschere separate (mClienti,
> mAnimali, mScheda). Quando inserisco un "nuovo record" nella mClienti ho
un
> determinato IDCliente mettiamo uguale a 3 (contatore); quando apro la
> mAnimali il controllo IdCliente della stessa maschera è uguale a 0 (zero);
> se io non introduco manualmente il valore 3 in questo controllo, non posso
> salvare il nuovo record nella mAnimali.
> Chiedo: è possibile fare in modo
> che all'apertura della mAnimali tramite un pulsante di comando il
controllo
> IDCliente della stessa venga impostato automaticamente uguale a quello
> presente nel controllo IDCliente della mClienti (cioè uguale a 3) ?
Come Valore predefinito del controllo IDCliente  della maschera mAnimali
scrivi:
= [Forms]![mClienti]![IDCliente]
Siccome non conosco il resto del tuo database non ti garantisco in questa
maniera la tranquillità che manterrai l'integrità referenziale tra le 3
tabelle, garanzia che avresti ottenuto sia eliminando la tabella Scheda,
portando i suoi campi nella tabella Animali, e sia aggiornando le due
tabelle restanti con la tecnica maschera/sottomaschera: non ti saresti certo
dovuto preoccupare di immettere l'IDCliente nella maschera mAnimali, ci
pensava da solo Access.
Se ne avrai voglia poi un giorno me lo spiegherai.
A mio avviso questo significa complicarsi inutilmente la vita; se ti consola
non sei l'unico che negli ultimi giorni si rifiuta di adottare una soluzione
più garantista e più razionale, specie se vista nell'ottica dei database
relazionali. Sembrerebbe che tu sia condizionato dall'uso di schedari
cartacei.
> Franco (...il veterinario).



title: Campi contatore

text:
Il 24 Mar 2001, 00:57, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
>"franco" <
franco...@hotmail.com
> ha scritto nel messaggio
>news:151Z29Z209Z163Y...@usenet.iol.it...
>[CUT]
>>
>Come
Valore predefinito del controllo IDCliente  della maschera mAnimali
>scrivi:
>= [Forms]![mClienti]![IDCliente]
>
>--
>Roberto
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
Provo per curiosità e ti
faccio sapere. Sto comunque riscrivendo il programma sulla base dei tuoi
suggerimenti.
Grazie.



title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z210Z164Y...@usenet.iol.it...
[CUT]
> Provo per curiosità e ti
> faccio sapere. Sto comunque riscrivendo il programma sulla base dei tuoi
> suggerimenti.
>
> Grazie.
>
OK, a presto.



title: Campi contatore

text:



Per quanto riguarda il
mio data base, esso si basa per il momento solo sulle tre tabelle che di ho
detto (tClienti, tAnimali, tScheda).
La maschera scheda però è molto
grande (occupa tutto lo schermo) in quanto contiene molti controlli (è in
pratica una scheda clinica). Per questo motivo mi riesce difficile
raggruppare tutti i controlli nella tabella Animali, più che altro per un
motivo estetico.
Attualmente stavo tentando la soluzione maschera Clienti
con sottomaschera Animali, cercando di aprire la maschera Scheda con la
routine VBA che mi avevi indicato, inserendola nella proprietà evento su
Doppio click del campo IDAnimale della sottomaschera Animali in
visualizzazione Foglio dati. Ho poi inserito nel controllo IDAnimale della
maschera Scheda l'espressione:
=[Forms]![SottomascheraAnimali]![IDAnimale]
Purtroppo però quando apro la
maschera Scheda, nel campo IDAnimale di questa appare la scritta: #Nome?
Cosa sara mai?
Grazie.
Franco .....l'incorreggibile!
PS. Se riesco a
sistemare questa faccenda, vorrei ampliare il DBase con una parte dedicata
alla fatturazione( Roberto permettendo!)



title: Campi contatore

text:



Per quanto riguarda il
mio data base, esso si basa per il momento solo sulle tre tabelle che di ho
detto (tClienti, tAnimali, tScheda).
La maschera scheda però è molto
grande (occupa tutto lo schermo) in quanto contiene molti controlli (è in
pratica una scheda clinica). Per questo motivo mi riesce difficile
raggruppare tutti i controlli nella tabella Animali, più che altro per un
motivo estetico.
Attualmente stavo tentando la soluzione maschera Clienti
con sottomaschera Animali, cercando di aprire la maschera Scheda con la
routine VBA che mi avevi indicato, inserendola nella proprietà evento su
Doppio click del campo IDAnimale della sottomaschera Animali in
visualizzazione Foglio dati. Ho poi inserito nel controllo IDAnimale della
maschera Scheda l'espressione:
=[Forms]![SottomascheraAnimali]![IDAnimale]
Purtroppo però quando apro la
maschera Scheda, nel campo IDAnimale di questa appare la scritta: #Nome?
Cosa sara mai?
Grazie.
Franco .....l'incorreggibile!
PS. Se riesco a
sistemare questa faccenda, vorrei ampliare il DBase con una parte dedicata
alla fatturazione( Roberto permettendo!)
--------------------------------
Inviato via
http://usenet.iol.it


title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z209Z39Y...@usenet.iol.it...
[CUT]
> Per quanto riguarda il
> mio data base, esso si basa per il momento solo sulle tre tabelle che di
ho
> detto (tClienti, tAnimali, tScheda).
> La maschera scheda però è molto
> grande (occupa tutto lo schermo) in quanto contiene molti controlli (è in
> pratica una scheda clinica). Per questo motivo mi riesce difficile
> raggruppare tutti i controlli nella tabella Animali, più che altro per un
> motivo estetico.
OK, mi hai quasi convinto che per motivi di spazio sul monitor o
estetici/funzionali sia necessario aprire, in qualche maniera, dalla
maschera Animali anche la maschera Scheda; ma chi ti vieta però di eliminare
comunque la tabella tScheda inglobando i suoi campi in tAnimale e basare
ambedue queste maschere su un'unica tabella, ovvero tAnimali? Ti
semplificheresti di molto la vita.
Naturalmente, in fase di inserimento di un nuovo record in tAnimali, prima
di aprire la maschera Scheda dovrai salvarti il record corrente (ovvero If
Me.NewRecord Then DoCmd.RunCommand acSaveRecord).
> Attualmente stavo tentando la soluzione maschera Clienti
> con sottomaschera Animali, cercando di aprire la maschera Scheda con la
> routine VBA che mi avevi indicato, inserendola nella proprietà evento su
> Doppio click del campo IDAnimale della sottomaschera Animali in
> visualizzazione Foglio dati.
Ed anche qui devi spiegarmi perché Foglio dati e non a Maschere continue;
potresti così inserirci un pulsante di comando.
> Ho poi inserito nel controllo IDAnimale della
> maschera Scheda l'espressione:
> =[Forms]![SottomascheraAnimali]![IDAnimale]
> Purtroppo però quando apro la
> maschera Scheda, nel campo IDAnimale di questa appare la scritta: #Nome?
> Cosa sara mai?
>
Perché, se la maschera clienti si chiama mClienti, devi scrivere:
= [Forms]![mClienti]![SottomascheraAnimali]![IDAnimale]
sempre che il controllo sottomaschera contenuto in mClienti si chiama
SottomascheraAnimali.
> Grazie.
> Franco .....l'incorreggibile!
>
> PS. Se riesco a
> sistemare questa faccenda, vorrei ampliare il DBase con una parte dedicata
> alla fatturazione( Roberto permettendo!)
>
--



title: Campi contatore

text:
Il 27 Mar 2001, 01:00, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
>"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
>news:151Z29Z209Z39Y...@usenet.iol.it...
>[CUT]
>OK, mi hai
quasi convinto che per motivi di spazio sul monitor o
>estetici/funzionali
sia necessario aprire, in qualche maniera, dalla
>maschera Animali anche
la maschera Scheda; ma chi ti vieta perň di
>eliminare
>comunque la
tabella tScheda inglobando i suoi campi in tAnimale e basare
>ambedue
queste maschere su un'unica tabella, ovvero tAnimali? Ti
>semplificheresti
di molto la vita.
>Naturalmente, in fase di inserimento di un nuovo record
in tAnimali, prima
>di aprire la maschera Scheda dovrai salvarti il record
corrente (ovvero If
>Me.NewRecord Then DoCmd.RunCommand acSaveRecord).
NOn credo di avere capito bene. Elimino la tScheda pur tenendo una maschera
Scheda ?!?!???? (scusa la mia ignoranza...)
>> Attualmente stavo
tentando la soluzione maschera Clienti
>> con sottomaschera Animali,
cercando di aprire la maschera Scheda con la
>> routine VBA che mi avevi
indicato, inserendola nella proprietŕ evento su
>> Doppio click del campo
IDAnimale della sottomaschera Animali in
>> visualizzazione Foglio dati.
>Ed anche qui devi spiegarmi perché Foglio dati e non a Maschere continue;
>potresti cosě inserirci un pulsante di comando.
Proverň, te lo
prometto!!!!
Ok sull'espressione che mi hai indicato (che incompetente!
:-( )
Grazie mille! Ti farň sapere.
Franco
>---------------------------------------------
>il Sito Comune di
it.comp.appl.access:
>
http://www.sitocomune.com
>---------------------------------------------
--------------------------------
Inviato via
http://usenet.iol.it


title: Campi contatore

text:
"Franco" <
franco...@hotmail.com
> ha scritto nel messaggio
news:151Z29Z228Z61Y...@usenet.iol.it...

Hai capito benissimo.Non inorridire, non ho mica detto una bestemmia. E'
abbastanza usuale farlo quando, come nel tuo caso, c'č da risolvere un
problema di leggibilitŕ e di razionalizzazione dello spazio sul monitor.
D'altra parte che differenza logica c'č tra un'unica tabella e due tabelle
in relazione uno-a-uno?
Cosa ti rende tanto strano il fatto di aprire in maniera sincronizzata due
maschere diverse su un'unica tabella?
>
>
> >> Attualmente stavo
> tentando la soluzione maschera Clienti
> >> con sottomaschera Animali,
> cercando di aprire la maschera Scheda con la
> >> routine VBA che mi avevi
> indicato, inserendola nella proprietŕ evento su
> >> Doppio click del campo
> IDAnimale della sottomaschera Animali in
> >> visualizzazione Foglio dati.
> >Ed anche qui devi spiegarmi perché Foglio dati e non a Maschere continue;
> >potresti cosě inserirci un pulsante di comando.
>
> Proverň, te lo
> prometto!!!!
>
> Ok sull'espressione che mi hai indicato (che incompetente!
> :-( )
>
>
>
> Grazie mille! Ti farň sapere.
>
> Franco
--
Roberto



title: apertura access

author: sara

text:
quando apro access mi da questo
errore:

"impossibile avviare microsoft Access. non è stata
concessa la licenza d'uso su questo computer"

che posso fare?

Ho installato + volte office, ho dato i permessi
nel regedit come consigliato nel sito microsoft, ma niente

HELP!!!!!!!!!


title: apertura access

author: Simone

text:
c'e' una patch apposita sul sito della microsoft. A me è
successo quando ho reinstallato Access97 dopo aver disinstallato
Access2000

""sara"" <
cs...@softhome.net
> ha scritto nel
  messaggio
news:000c01c05ad2$502fb630$022811ac@info01
...



title: apertura access

author: Federico Luciani

text:
> sara wrote:
> quando apro access mi da questo errore:
> "impossibile avviare microsoft Access. non è stata concessa la licenza d'uso
> su questo computer"
> che posso fare?
> Ho installato + volte office, ho dato i permessi nel regedit come consigliato
> nel sito microsoft, ma niente
> HELP!!!!!!!!!
1) non si posta in html
2) prima di fare una richiesta, accertarsi che la stessa non sia stata fatta
recentemente.
per problemi di licenza con access 97, prova con questo:
http://support.microsoft.com/download/support/mslfiles/AcLicn97.exe
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: apertura access

text:
1) non si posta in html
2) si risponde dopo il quoting



title: apertura access

text:
[INFO] Siete pregati di leggerlo - Istruzioni per l'uso di questo ng
----------------------------------------------------------------------------
             Come ci si dovrebbe comportare in un newsgroup
                    ovvero 'Istruzioni per l'uso'
----------------------------------------------------------------------------
Anche i newsgroups, come tutte le comunita' di esseri umani, hanno delle
regole la cui conoscenza e rispetto permette un profiquo utilizzo del ng da
parte di tutti i partecipanti evitando incomprensioni, malintesi ed inutili
polemiche.
Alcune regole sono generali e di elementare educazione, altre proprie di
questo gruppo di discussione cresciute e consolidate nel tempo soprattutto
con il contributo dei frequentatori piu' anziani.
Premesso che
il ng e' gestito da 'volontari' che mettono a disposizione gratuitamente il
proprio tempo, le proprie conoscenze e la loro professionalita' per aiutare
chiunque, persone che spesso non conoscono e che dalle quali non riceveranno
alcun compenso, per cui qualsiasi forma di pretesa o obbligo da parte di chi
scrive sono decisamente fuori luogo:
- prima di inviare la propria richiesta provate a verificare se nei messaggi
  dei giorni precedenti non siano gia' presenti delle soluzioni al quesito
  che si vuole porre.

  Non e' il massimo delle figure fare una domanda a cui e' gia' stata
  data ampia ed esauriente risposta magari il giorno prima, di sicuro
  poi l'eventuale replica difficilmente potra' essere piu' completa.
  Volendo si possono effettuare anche delle ricerche nell'archivio storico
  dei messaggi presso il sito:

http://www.deja.com/home_ps.shtml
- provate anche a verificare che i vostri dubbi e le relative soluzioni
  non siano gia' presenti sul Sito Comune di questo newsgroup:

http://members.xoom.it/it_db_access
  Sul Sito Comune, inoltre, sono raccolti tutti i messaggi del ng
  relativi a qualche anno.
Se si decide comunque di scrivere al ng sarebbe bene tenere presente:
Il SUBJECT
-------------------
Nel scrivere l'oggetto del messaggio si dovrebbe dare maggiore importanza
perche' contribuisce ad identificare immediatamente l'argomento e il tipo di
problema, attirando subito l'attenzione di chi legge

Si sconsiglia di inserire subject insignificanti come:
  'AIUTO','URGENTE','PROBLEMA ACCESS', 'SOLO PER ESPERTI'
  'SONO PRINCIPIANTE', 'SONO DEFICENTE', 'come si fa...' ECC.,
nel marasma generale dei messaggi perdono visibilita'.
Ecco invece alcuni esempi da considerarsi corretti:
- Gestire il tasto Applica Filtro/Rimuovi Filtro
- Sincronizzare repliche via Internet con Access 2000
- Formattazione diversa per il solo record selezionato
- Come ricercare in una casella combinata
- Formato Numerico Nelle query
- Copia e incolla di piu' dati nello stesso campo
TESTO DEL MESSAGGIO
-------------------
Anche qui soprattutto nell'interesse di chi posta il messaggio, il suo
contenuto dovrebbe essere pensato e redatto con attenzione al fine di evitare
la spedizione di messaggi incomprensibili, che non potranno avere risposte
immediate soddisfacenti.
E' consigliabile indicare la versione di MSAccess a cui ci si riferisce
ed il sistema operativo utilizzato (A2/W95, A95/W98, A97/NT4, A00/W00),
Se dopo aver inviato un messaggio non si dovessero ricevere risposte si puo'
provare a riformularla evitando pero' di assumere un tono polemico del tipo
'Possibile che nessuno sappia come ...', 'Perche' non mi volete rispondere'
I motivi per cui certi messaggi non ricevono risposte possono essere i piu'
svariati dalla domanda mal posta, al fatto che nessuno effettivamente abbia
una risposta da dare.
*Alcuni consigli per chi risponde*
- Scrivere dopo il quoting
Quando si replica (risponde) ad un messaggio si dovrebbe iniziare a scrivere
sempre dopo il testo del percedente.
Lasciare il contenuto del testo originario se breve, oppure riassumere il
contenuto tagliano le parti meno significative, lasciando quelle piu'
interessanti per la comprensione del discorso.
- Non farsi coinvolgere in polemiche o con altri partecipanti e eventuali
disaccordi sarebbe meglio proseguire in e-mail private.
Alcune richieste o comportamenti *sicuramente* non graditi in questo ng:
- chiedere di programmi per 'sproteggere' database e quindi presumibilmente
  il lavoro di altre persone.
  Oltre a non essere moralmente corretto, e' illegale, inoltre, considerando
  che in questo ng possono esserci persone che si guadagnano la
  pagnotta sviluppando programmi con access, non ci sembra corretto
  contribuire a diffondere questo, tipo di informazioni;
- richiedere risposte personalizzate al proprio indirizzo e-mail e' contro
  lo spirito di questo ng in cui presuppone che tutte le domande e tutte
  le risposte debbano essere visibili perche' potrebbero interessare a tutti;
- contattare direttamente altri frequentatori del ng inviando richieste di
  informazioni via e-mail, magari a quelli che sembrano piu' bravi e piu'
  disponibili di tutti ad aiutare gli altri;
- chiedere del compilatore di access, semplicemente perche' non esiste,
  lo sanno anche i bambini ormai;
- chiedere l'invio di programmi gia' fatti con la scusa di dover imparare,
  vedere, bla bla bla;
- inviare messaggi con pubblicita' commerciale anche se riferita all'oggetto
  del ng. (ben vengano segnalazioni di siti o iniziative free che parlano di
  access, anche se personali, ma il tutto deve sempre essere senza scopo di
  lucro;
Alcune regole legate invece alla netiquette,
dove con il termine netiquette 'retichetta', si intende l'insieme di
regole nate col tempo per autoregolare il comportamento degli utenti delle
news.
- EVITARE DI SCRIVERE IN MAIUSCOLO sia gli oggetti e soprattutto il testo dei
  messaggi che nelle regole equivale ad urlare;
- Scrivere in formato testo e non in HTLM (quindi con formattazioni varie).
  questo perche' non tutti i lettori di messaggi (newsreader) visualizzano
  correttamente questo formato;
- Evitate le polemiche personali con gli altri partecipanti.
  Se proprio non potete farne a meno cercate di trasferirle in privato.
Alcuni link per chi volesse approfondire:
The Net: Guida per l'utente e Netiquette, di Arlene Rinaldi
http://www.inferentia.it/netiquette/
Etica e norme di buon uso dei servizi di rete
http://web.tiscalinet.it/enterprise_videotext/itamidi/netiquette/netiquetteit.htm
ATTENZIONE
I successivi sono testi carichi d'ironia, cioe' sono suggerimenti da EVITARE!
GALAMAILEO di John of the Homepage
http://www.geocities.com/bourbonstreet/9518/galamaileo.html
Cara Emily Postnews...
http://www.geocities.com/Athens/Parthenon/9704/galareteo.html
Grazie per la collaborazione
Questo documento e' stato redatto da Carlo VE
----------------------------------------------------------------------------
Alcune utili abbreviazioni (acronimi)
AFAIK      As Far As I Know
BTW        By The Way
CU         See You
CUL        See You Later
CUT        Taglio (quando non si riporta tutto il testo a cui si risponde)
HTH        Hope This Helps
IMO        In My Opinion
IMHO       In My Humble Opinion
LOL        Laughing over laughing
NEWBIE     Nuovo arrivato, persona nuova per il NG
NG         Newsgroup
OT         Off-Topic: fuori argomento
ROTFL      Rolling on the floor laughing
ROTFLASTC  Rolling on the floor laughing and scaring the cat
ROTFLMAO   Rolling on the floor laughing my ass off
RTFM       Read the fuckin' manual
SPAM       Messaggio pubblicitario fortemente OT, sui NG è assolutamente
vietato
TIA        Thanks In Advance
TROLL      Persona che vuole solo creare disturbo e scompiglio
c'e' ne sono tanti altri, li trovate qui:
http://www.acronymfinder.com
----------------------------------------------------------------------------


title: apertura access

author: Sib

text:
>
>""sara"" <
cs...@softhome.net
> ha scritto nel messaggio
news:000c01c05ad2$502fb630$022811ac@info01...
>quando apro access mi da questo errore:
>"impossibile avviare microsoft Access. non è stata concessa la licenza
d'uso su questo computer"
>che posso fare?
>Ho installato + volte office, ho dato i permessi nel regedit come
consigliato nel sito microsoft, ma niente
>HELP!!!!!!!!!
Prima di tutto non postare in html.
Se leggevi (o semplicemente cercavi col comando trova) i messaggi relativi
alla licenza d'uso trovavi la risposta gia' bella e' pronta.
Ci sono varie soluzioni, una delle quali, la puoi trovare qui (l'unica FAQ
che c'e' :-)
http://digilander.iol.it/syb
Sib


title: apertura access

text:
Dov'e' che si risponde?
"Federico Luciani" <
fluc...@paperino.libero.it
> ha scritto nel messaggio
news:3A2678A9...@paperino.libero.it...



title: apertura access

text:
Spiritosone, ti ci metti anche tu ;-)



title: Problema con SQL

author: -= Max Power =-

text:
Innanzitutto porgo l'occasione x salutare tutto il NG.
Ho un problema: ho creato una tabella con Access riguardo ad un orario
scolastico così fatta:
ore\id_prof      0              1
----------------------------
1                   1a            1b
2                   1a            3c
3                   2b            5c
4                   2b            2a
5                   3c            1a
Voglio quindi estrarre l'orario, per esempio della classe 1a, ma ho un
problema: siccome l'id_prof è uguale sia x la 1° che per la 2° ora
quando faccio una select mi restituisce solo un'istanza del id_prof mentre
invece vorrei che me ne stampasse 2
l'istruzione SQL che ho adottato è:   Select id_prof from Lunedi where
1='1a' or 2='1a' or 3='1a' or 4='1a' or 5='1a'
Come devo fare x far comparire i campi duplicati ??
Grazie a tutti quello che mi vorranno aiutare
-= Max =-


title: Copia valore su combo

author: ggac

text:
Salve a tutti. Pur praticamente non avendo conoscenze di access, grazie a
questo NG ed al sitocomune, ho messo insieme un un databese che gestisce il
magazzino, pienamente rispondente alle mie necessità, e quindi vorrei
passare alle "finezze". Della maschera principale che gestisce gli scarichi
e provvede a riempire la distinta di base giornaliera, effettuo la ricerca
degli articoli attraverso una casella combinata che riceve l'input da un
lettore di barcode ed effettua la selezione attraverso questo codice su
afterupdt:
Me.RecordsetClone.FindFirst "[CasellaBar] = '" & Me![CasellaCombinata] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.CasellaCombinata24 = Null
Se però voglio ricavare l'articolo attraverso la descrizione, ho costruito
una maschera basata su una query parametrica che mi restituisce il barcode
che viene copiato nella maschera principale
così:Forms!MascheraPrinc!CasellaCombinata = CasellaConIlCodice
docmd.close.
A questo punto, bisogna abbassare la combo e selezionare. Non posso fare in
modo che tutto avvenga automaticamente (intendo la selezione del record)? E'
forse necessario usare il DLookUp? Scusate la prolissità, e ringrazio chi mi
dedicherà attenzione. Cld


title: Copia valore su combo

author: CarloCos

text:
"ggac" <
nr...@tin.it
> ha scritto nel messaggio
news:Tqpi7.60079$TS4.3...@news2.tin.it...

La strada che hai scelto è una delle più complicate...ma se fà al caso
tuo...
Quello che conta nelle combo è la "Colonna associata" sia che tu decida di
visualizzarla, sia che resti nascosta.
Se la chiave primaria è CasellaBar, alimenta la combo con una query che
abbia CasellaBar e Descrizione Articolo. Imposta la colonna associata a 1 e
la larghezza di questa colonna a 0.
Quello che vedrai è la sola descrizione (dagli un ordinamento crescente). Se
le nella combo digito Penne Rigate il valore restituito dalla combo non è
Penne Rigate ma il BarCode associato.
Quindi una istruzione simile alla tua ti restituisce l'articolo
corrispondente:
Sull'evento clic della combo:
Me.CasellaBar.setfocus 'oppure DoCmd.GoToControl "CasellaBar"
Docmd.FindRecord  Me.Combo
Ciao, Carlo


title: Copia valore su combo

text:
"CarloCos" <
carloco...@libero.it
> ha scritto nel messaggio
news:1Wvi7.19543$%a4.7...@news.infostrada.it...

Grassie.cld


title: Disabilitare testo descrizione controllo.......

author: Nicola Dainoli

text:
Salve a tutti!
E' possibile disabilitare la visualizzazione di tutti i messaggi "testo
descrizione controllo" in A2000/XP?
Ho previsto tutte le maschere con queste descrizioni, ma come sempre c'è
qualcuno a cui danno fastidio........
Ringrazio chi mi saprà dare indicazioni utili!
Nicola.


author: Alessandro

text:
"Nicola Dainoli" <
ni...@katamail.com
> wrote in message
news:adpurn$iq9$
1...@serv1.albacom.net

Fai una Funzione che cicla tutti i Controlli e modifica la
proprietà ControlTipText.
Function RemoveToolTips(f as form)
Dim ctl as control
For Each Ctl in f.Controls
  If Len(ctl.ControlTipText)>0 then ctl.ControlTipText=Vbnullstring
Next
Ovviamente la Chiami così: RemoveToolTips Me
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Nicola Dainoli" <
ni...@katamail.com
> ha scritto nel messaggio

Non preoccuparti, quando li avrai disabilitati tutti ti telefonera' per
chiederti a cosa servono i vari controlli e ti dira' che le tue maschere
sono poco chiare e che era molto meglio quando usava quel suo bel
programmino DOS che non gli aveva mai dato problemi.
Sib


author: Silvia Slosar

text:
>Non preoccuparti, quando li avrai disabilitati tutti ti telefonera' per
>chiederti a cosa servono i vari controlli e ti dira' che le tue maschere
>sono poco chiare e che era molto meglio quando usava quel suo bel
>programmino DOS che non gli aveva mai dato problemi.
^_^
Ciao
Silvia.
--
www.silvietta.it
...everyone's invited!


text:
> Non preoccuparti, quando li avrai disabilitati tutti ti telefonera' per
> chiederti a cosa servono i vari controlli e ti dira' che le tue maschere
> sono poco chiare e che era molto meglio quando usava quel suo bel
> programmino DOS che non gli aveva mai dato problemi.
>
> Sib
>
>
...........eh già, per quanta fatica si faccia nel creare applicazioni che
agevolino il più possibile il lavoro dell'utente c'è sempre qualcuno che
pretende che il programma faccia anche il caffè...........
Nicola.
P.S.: grazie ad Alessandro per il suggerimento!


title: LOV

author: Kekko

text:
Salve a tutti,
come si possono creare LOV (list of values) in una form per prelevare le
descrizioni di dati da una tabella correlata a quella su cui si basa la
form? Per esempio io vorrei che nella form comparissero le descrizioni
delle tipologie di specializzazioni e nella tabella andasse il codice
corrispondente (su cui si basa la relazione).
Grazie
Kekko
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: LOV

author: Emyr

text:
On Tue, 25 Jun 2002 12:22:45 +0000 (UTC), "Kekko" <
din...@adr.it
>
wrote:
>Salve a tutti,
>come si possono creare LOV (list of values) in una form per prelevare le
>descrizioni di dati da una tabella correlata a quella su cui si basa la
>form? Per esempio io vorrei che nella form comparissero le descrizioni
>delle tipologie di specializzazioni e nella tabella andasse il codice
>corrispondente (su cui si basa la relazione).
>Grazie
>Kekko
usando una casella combinata a più colonne?
Saluti.
Emanuele.


title: LOV

author: Carlo Costarella

text:
"Kekko" <
din...@adr.it
> ha scritto nel messaggio
news:bf0198941631de7b627...@mygate.mailgate.org...

Forse non ho ben capito.
Le lov si applicano per esempio alle caselle combinate mettendo nel "Tipo
Origine Riga" "Elenco Valori".
Se č quello che cerchi la cosa puň essere fatta da codice.
Se la combo si chiama MiaCombo e vuoi popolarla all'apertura della maschera
prelevando i dati da una tabella che si chiama MiaTabella e usare un campo
che si chiama MioCampo, puoi provare cosě:
Private Sub Form_Open(Cancel As Integer)
Dim rcs As Recordset, i As Integer
Set rcs = CurrentDb.OpenRecordset("MiaTabella")
Me.MiaCombo.RowSourceType = "Elenco Valori"
rcs.MoveLast
rcs.MoveFirst
Me.MiaCombo.RowSource = rcs!MioCampo
rcs.MoveNext
For i = 2 To rcs.RecordCount
With rcs
Me.MiaCombo.RowSource = Me.MiaCombo.RowSource & ";" & !MioCampo
End With
Next i
rcs.Close
End sub
Il codice funziona se nella tabella vi sono almeno due record, in caso
contrario bisogna modificare il codice.
Ciao, Carlo


title: sincronizzare sub maschere....

author: bcesare

text:
In una maschera di fondo (frmMascherone) ho piazzato due
sottomaschere(frmMaschera1 e frmMaschera2) .Sulla seconda è collegata una
tbl che contiene record messi in relazione con la prima.
Non so se mi sono spiegato, ma la mia pia intenzione era quella che al
posizionarmi su di un record della prima sottomashera, nella seconda
dovrebbero comparire solo i record in relazione .
Ho provato ad inserire sull'evento current della prima subform  il
recordsource della seconda subform opportunamente modificato in sql... ma
niente.
Mi dite come si fa ?
grazie in anticipo..
Saluti
CB


title: sincronizzare sub maschere....

author: cidi

text:
"bcesare" <
bce...@tiscali.it
> ha scritto nel messaggio
news:bmj52f$kl8$1...@lacerta.tiscalinet.it...

Ciao CB
Forse dovresti collegare la 2 maschera con la 1 con: collega campi master e
secondari in visualizzazione struttura del mascherone che contiene  le due
subform.
sperando di averci azzeccato :-)
Ciao Daniele


title: sincronizzare sub maschere....

author: Roberto da casa

text:
"bcesare" <
bce...@tiscali.it
> ha scritto nel messaggio
news:bmj52f$kl8$1...@lacerta.tiscalinet.it...

Inserisci in frmMascherone una casella di testo non associata e non visibile
chiamata Pippo.
A fronte dell'evento "Su corrente" di frmMaschera1 metti in Pippo il valore
della chiave primaria di frmMaschera1.
Come Collega campi master del controllo sottomaschera di frmMascherone che
contiene frmMaschera2 scrivi Pippo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: spostarsi alla prima occorrenza

author: cio

text:
ciao,
sto continuando il mio progettino.
Ho preso il valore di una TextBox e l'ho messo in una variabile.
Poi ho eseguito la seguente
CodProd= DLookup("[IDCodiceProdotto]", "Tabella2", BarcodeIns)
e ottengo la orima occorrenza (ed unica) del codice prodotto associato alla
stringa contenuta nella variabile BarcodeIns.
A questo punto dovrei cercare nella Tabella1 nel campo specifico il valore
CodProd, spostarmici, aggiornare il valore e salvare il dato.
Come dovrei procedere per i primi due punti? Ho gi� fatto scritto la
procedura per incrementare/decrementare il valore ma prima mi devo spostare
sul record corretto.
In alternativa potrei cercare la prima occorrenza del valore in CodProd e
spostarmi al numero di record corrispondente, ma come posso fare ad ottenere
il numero di record in cui sono?
Grazie 1000 a chi mi risponder�.
cio


title: spostarsi alla prima occorrenza

author: marcopio

text:
On 24 Nov, 15:45, "cio" <
c...@cio.it
> wrote:
> ciao,
>
> sto continuando il mio progettino.
>
> Ho preso il valore di una TextBox e l'ho messo in una variabile.
>
> Poi ho eseguito la seguente
>
> CodProd= DLookup("[IDCodiceProdotto]", "Tabella2", BarcodeIns)
>
> e ottengo la orima occorrenza (ed unica) del codice prodotto associato alla
> stringa contenuta nella variabile BarcodeIns.
>
> A questo punto dovrei cercare nella Tabella1 nel campo specifico il valore
> CodProd, spostarmici, aggiornare il valore e salvare il dato.
>
> Come dovrei procedere per i primi due punti? Ho già fatto scritto la
> procedura per incrementare/decrementare il valore ma prima mi devo spostare
> sul record corretto.
>
> In alternativa potrei cercare la prima occorrenza del valore in CodProd e
> spostarmi al numero di record corrispondente, ma come posso fare ad ottenere
> il numero di record in cui sono?
>
> Grazie 1000 a chi mi risponderà.
>
> cio
Io uso sempre una query chiamata qryStandard, tu puoi darci il nome
che vuoi, è sufficiente che esista nel tuo db.
ho presupposto che in Tabella2 il record lo identifichi con
IDCodiceProdotto, il campo da aggiornare con CampoDaAggiornare:
CurrentDb.QueryDefs("qryStandard").SQL = "UPDATE Tabella2" _
    & " SET Tabella2.CampoDaAggiornare= '" & Valore & "'" _
    & " WHERE (((Tabella2.IDCodiceProdotto)='" & CodProd & "'))"
CurrentDb.QueryDefs("qryStandard").Execute
HTH, mpio.


title: spostarsi alla prima occorrenza

text:
"marcopio" <
mdre...@more-oxy.com
> ha scritto nel messaggio
news:ee05ab5f-00ae-4692...@s31g2000yqs.googlegroups.com...
On 24 Nov, 15:45, "cio" <
c...@cio.it
> wrote:
>Io uso sempre una query chiamata qryStandard, tu puoi darci il nome
>che vuoi, � sufficiente che esista nel tuo db.
>ho presupposto che in Tabella2 il record lo identifichi con
>IDCodiceProdotto, il campo da aggiornare con CampoDaAggiornare:
>CurrentDb.QueryDefs("qryStandard").SQL = "UPDATE Tabella2" _
>    & " SET Tabella2.CampoDaAggiornare= '" & Valore & "'" _
>    & " WHERE (((Tabella2.IDCodiceProdotto)='" & CodProd & "'))"
>CurrentDb.QueryDefs("qryStandard").Execute
ciao
tiu ringrazio non sono ancora riuscito a provare la tua query perch� ho un
problema prima.
Ho trovato il CodProd da inserire per aggiornare, ma mi manca il Valore di
partenza per calcolare l'incremento/decremento.
La prima parte mi funziona bene
CodProd = DLookup("[IDCodiceProdotto]", "Tabella2", BarcodeIns)
A questo punto devo estrarre il valore corrispondente al CodProd da inserire
nella variabile Valore (Integer)
Valore = DLookup("[Carico]", "Tabella1", CodProd)
Purtroppo per� mi dice che il si � verificato un Errore run-time 3075 Errore
di di sintassi (operatore mancante).
Onestamente non capisco dove sia l'errore formale visto che in debug la
variabile CodProd � correttamente valorizzata...
Queste sono l edichiarazioni di variabili all'inizio...
Dim BarcodeIns As String
Dim CodProd As String
Dim Valore As Integer
Dove sta il problema? Il campo Carico in Tabella1 NON � chiave primaria, non
so se � necessario per usare correttamente DLookup...
cio


title: spostarsi alla prima occorrenza

author: Marco Pizzamiglio

text:
cio ha scritto:



> ciao











Non basta mettere il valore come condizione della dlookup, devi
specificare tutta la condizione.
Es.:  DLookup("[Carico]", "Tabella1", "CodProd=" & CodProd)
Per la query di aggiornamento basta che usi questo sistema:
UPDATE ... SET Campo=Campo-1;
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: spostarsi alla prima occorrenza

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:hej9jr$tqc$1...@news.newsland.it...
>
> Non basta mettere il valore come condizione della dlookup, devi
> specificare tutta la condizione.
> Es.:  DLookup("[Carico]", "Tabella1", "CodProd=" & CodProd)
> Per la query di aggiornamento basta che usi questo sistema:
> UPDATE ... SET Campo=Campo-1;
> Ciao.
> -Marco-
ciao
ho inserito questa
Valore = DLookup("[Carico]", "Tabella1", "CodProd=" & CodProd) ma mi da lo
stesso errore di prima
Errore di Run-Time 3075
Errore di sintassi (operatore mancante) nell'espressione della query
'CodProd=AAAAAA'.
Se gli do debug mi valorizza correttamente il valore della variabile
CodProd=AAAAAA, ma nella variabile Valore mi mette 0 mentre il valore
corretto � un altro.
non capisco cosa si aspetta e perch�, invece, con la funzione appena sopra
funziona semplicemente mettendo la stessa variabile BarcodeIns (String) come
condizione...:
BarcodeIns = CaricoScarico.Text
CodProd = DLookup("[IDCodiceProdotto]", "ConsumabiliCarico", BarcodeIns)
Non capisco la funzione cosa vuole che gli passi... di che operatore parla?
Grazie 1000 a chi mi risponder�
cio


title: spostarsi alla prima occorrenza

text:
"cio" <
c...@cio.it
> ha scritto nel messaggio news:helc4u$2o7$1...@aioe.org...
> CodProd = DLookup("[IDCodiceProdotto]", "ConsumabiliCarico", BarcodeIns)
>
ciao
questa � la riga corretta e che mi da il valore giusto nel campo carico
Valore = DLookup("[Carico]", "Tabella2", "[IDCodiceProdotto] = '" & CodProd
& "'")
Non ho capito perch� ma era un problema di apici...
Ora posso valorizzare tutto e provare la query!
Grazie 1000
cio


title: spostarsi alla prima occorrenza

text:
cio ha scritto:
> questa � la riga corretta e che mi da il valore giusto nel campo carico
> Valore = DLookup("[Carico]", "Tabella2", "[IDCodiceProdotto] = '" & CodProd
> & "'")
> Non ho capito perch� ma era un problema di apici...
> Ora posso valorizzare tutto e provare la query!
> Grazie 1000
> cio
Quando lavori con valori di tipo testo bisogna racchiuderli tra apici,
semplici o doppi.
Quando lavori con valori numerici non serve, anzi non devi.
Quindi i criteri saranno in questo formato:
  numerico:  ID=20
  testo:     ID="abc"
Fai attenzione con l'uso degli apici singoli, se uno dei codici dovesse
contenere un apice il criterio cos� come l'hai scritto ti darebbe di nuovo
errore.



title: spostarsi alla prima occorrenza

text:
"marcopio" <
mdre...@more-oxy.com
> ha scritto nel messaggio
news:ee05ab5f-00ae-4692...@s31g2000yqs.googlegroups.com...


ciao
la Query funziona perfettamente!! Grazie 1000!
cio


title: spostarsi alla prima occorrenza

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:helgd0$cd7$1...@news.newsland.it...
> Quando lavori con valori di tipo testo bisogna racchiuderli tra apici,
> semplici o doppi.
> Quando lavori con valori numerici non serve, anzi non devi.
> Quindi i criteri saranno in questo formato:
>  numerico:  ID=20
>  testo:     ID="abc"
> Fai attenzione con l'uso degli apici singoli, se uno dei codici dovesse
> contenere un apice il criterio cos� come l'hai scritto ti darebbe di nuovo
> errore.
> Ciao.
> -Marco-
>
grazie non av� mai ' apici singoli nel campo, ma perch� allora se scrivo
DLookup("[Carico]", "Tabella1", "CodProd=" & "CodProd")
Mi dice che "l'oggetto non contiene l'oggetto di automazione"?
Eppure in CodProd ho sempre del testo e l'ho messo tra doppie virgolette...
cio


title: spostarsi alla prima occorrenza

text:
cio ha scritto:
> > Quando lavori con valori di tipo testo bisogna racchiuderli tra apici,
> > semplici o doppi.
> > Quando lavori con valori numerici non serve, anzi non devi.
> > Quindi i criteri saranno in questo formato:
> >  numerico:  ID=20
> >  testo:     ID="abc"
> > Fai attenzione con l'uso degli apici singoli, se uno dei codici dovesse
> > contenere un apice il criterio cos� come l'hai scritto ti darebbe di nuovo
> > errore.
> > Ciao.
> > -Marco-
> >
> grazie non av� mai ' apici singoli nel campo, ma perch� allora se scrivo
> DLookup("[Carico]", "Tabella1", "CodProd=" & "CodProd")
> Mi dice che "l'oggetto non contiene l'oggetto di automazione"?
> Eppure in CodProd ho sempre del testo e l'ho messo tra doppie virgolette...
> cio
Perch� CodProd � il nome del campo, che contiene un valore, per esempio
"AC34B", mentre "CodProd" � una stringa fissa, come se andassi a cercare
un prodotto il cui codice � "CodProd".
I doppi apici non si aggiungono cos�, hai due possibilit�:
"CodProd=""" & CodProd & """"
"CodProd=" & Chr$(34) & CodProd & Chr$(34)
Nel dubbio metti un punto di interruzione, quando il codice arriva l� vai
nella finestra debug e fai qualche prova, con la sintassi che hai usato
sopra e con queste due, vedrai subito la differenza nei risultati:
?"CodProd=""" & CodProd & """"
?"CodProd=" & "CodProd"



title: Accesso Remto

author: Enrico Pietrobon

text:
Ciao son sempre qua.
Dopo aver, dopo innumerevoli tentativi, fatto partire ad una determinata ora
un codice, finalmente sono riuscito a connettermi ad internet e a scaricare
i listini che mi interessavano.
Riepilogo
Ad un certo orario, impostato da me, usando tutto codice di access, viene
aperta una connessione ad internet, vengono scaricati diversi listini, dopo
di che cengono aggiornati sul programma.
Quesito 1
Come chiudere la connessione internet dopo l'aggiornamento ?
So che basterebbe impostare la disconnessione automatica dopo un certo
tempo, ma posso ugualmente farlo da Access.
Quesito 2
COme posso controllare via internet i messaggi d'errore di ritorno tipo :
una password errata.
il codice per scaricare un listino da internet pů o meno č questo
                     strURL = "
HTTP://Userid:Pa...@www.sito.it//listino.dat
"
                     Internet.AccessType = icUseDefault
Dove internet č il controllo ocx Internet Transfer.
DOve Userid:Pass sono la userid e la password per accedere al sito.
Succede questo se la user o la password sono errati viene eseguita
l'istuzione subito dopo senza che avvenga niente.
se invece tutto č giusto access si ferma a pensare fino a quando a scaricato
tutto il file dopo di che con altre istruzioni salvo il file.
Muble Muble come fare
Grazie
Enrico Pietrobon


title: data formato italiano da database

author: Franco

text:
Salve, uso i dati di una query per stampare delle lettere su word. In
special modo  la data nella tabella di word mi viene fornita nel formato
americano nonostante nella query abbia scelto il formato italiano. Per
stesso problema apparso qualche tempo addietro fu consigliato il comando
Format(CampoData;"dd/mm/yyyy"). Ho tentato di usare questo comando sulla
quesy, ma data la mia scarsa conoscenza di access, non ci sono riuscito.
Come dovrei fare esattamente??? Grazie..


title: data formato italiano da database

author: Riccardo Baldinotti

text:
Franco ha scritto:

Nella query, al posto del valore CampoData, scrivi:
giorno: Format(CampoData;"dd/mm/yyyy")
Usa un nome come "giorno" piuttosto che "data" perché questa č una parola
che Access interpreta a modo suo.
RB

--

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


title: cerco consulente

text:
devo estrapolare ed elaborare dati (articoli prodotti dalla mia ditta) da
una tabella e una maschera che ho già creato (e dove ho esurito le mie
scarse conoscenze) e sono disposto a riconoscere un piccolo compenso da
concordare dopo aver visualizzato il lavoro. potete rispondere anche
privatamente a
pol...@virgilio.it
grazie e ciao
valerio


title: cerco consulente

author: namor

text:
Polpc200 ha scritto:

Qualche dettaglio in più potrebbe essere gradito. Per esempio, è un lavoro
di elaborazione/trasposizione dati da farsi una-tantum, o si tratta di
realizzare maschere report e query? In che città sei?
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: cerco consulente

author: Vale

text:
> Qualche dettaglio in più potrebbe essere gradito. Per esempio, è un lavoro
> di elaborazione/trasposizione dati da farsi una-tantum, o si tratta di
> realizzare maschere report e query? In che città sei?
> Namor
>
sono della prov di bologna (s.giovanni persiceto)
essenzialmente si tratta di ralizzzare qualche tabella e query e una
maschera (una di base l'ho già creata io) e anche per il report dovrei
riuscire ad arrangiarmi.
in un'unica colonna ho inserito i dati come sotto, devo separarli per
elaborarli a parte.devo prendere 1600 e moltiplicarlo per un'altro numero e
lo stesso per 2500 solo che essendo nello stesso campo non riesco a
esrapolarli; poi viene l'elaborazione.
1600 X 2500 stand.
1600 X 2550 stand.
1650 X 1350 stand.
1650 X 1850 stand.
1650 X 2000 stand.
1650 X 2050 stand.
spero di aver chiarito qualcosa.
ciao
Valerio


title: cerco consulente

text:
Vale ha scritto:

Qualche problemino, come questo del separare i due numeri, lo si può
risolvere anche qua sul ng, mentre per un'analisi e la progettazione di
tabelle query e maschera bisognerebbe vedere il database.
In questi casi preferisco parlare di persona per esaminare bene la
situazione, vedere cosa c'è e cosa si vuole ottenere, per poter scegliere
la soluzione migliore. Io sono del Friuli, lontanuccio, ma so che c'è
qualcuno bravo lì dalle tue parti, se hanno tempo magari possono
contattarti per risolvere il problema.



title: cerco consulente

author: Pablitomf

text:
Polpc200 ha scritto:

Senza voler togliere lavoro a nessuno (che il divino mi perdoni)...
inizia dall'help a cercare le funzioni "Left", "Mid", "Right" e
"format"... potresti arrivarci da solo ad estrapolare, elaborare e quindi
risolvere...
Per quanto riguarda la tua "predisposizione" a riconoscere un "piccolo"
compenso, e per lo più da concordare solo "dopo aver visualizzato il
lavoro", bhè quì si potrebbe discutere fino alla notte dei tempi...
(rivedi il tuo concetto tra Grossista, Dettagliante e "Professionista"...)
--
Pablitomf
Chi la dura la vince ;-)
Voglia di lavorar Saltame addosso, lavora babbo mio che io non posso.



title: cerco consulente

text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:c7ns17$8s1$1...@news.newsland.it...
>
> Senza voler togliere lavoro a nessuno (che il divino mi perdoni)...
> inizia dall'help a cercare le funzioni "Left", "Mid", "Right" e
> "format"... potresti arrivarci da solo ad estrapolare, elaborare e quindi
> risolvere...
gia provato ma non capendo un tubo delle espressioni mi continua a dire che
manca una virgola, un punto, o che accidenti ne sň io........
>
> Per quanto riguarda la tua "predisposizione" a riconoscere un "piccolo"
> compenso, e per lo piů da concordare solo "dopo aver visualizzato il
> lavoro", bhč quě si potrebbe discutere fino alla notte dei tempi...
> (rivedi il tuo concetto tra Grossista, Dettagliante e "Professionista"...)
io intendevo dire che era chi DOVEVA fare il lavoro  a visualizzarlo, per
poi sapermi dire quanto vuole come compenso, facendo l'artigiano con una
decina di dipendenti i concetti sopra esposti ce li ho abbastanza
chiari.....spero.....;-)


title: cerco consulente

text:
Vale ha scritto:
> facendo l'artigiano con una
> decina di dipendenti i concetti sopra esposti ce li ho abbastanza
> chiari.....spero.....;-)
lo spero anch'io per te...
cmq, tornando al tuo dilemma...
se il campo "CAMPO1" contiene ad Es. il valore :1600 X 2550
se inserisci un campo d'apppoggio e in origine dati scrivi
=Left([CAMPO1];4) il risultato che ti comparirà in questo campo d'appoggio
sarà 1600... se scrivi =Right([CAMPO1];4) il risultato che ti comparirà in
questo campo d'appoggio sarà 2550
.. ti è + chiaro?



title: cerco consulente

text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio > lo spero
anch'io per te...
> cmq, tornando al tuo dilemma...
> se il campo "CAMPO1" contiene ad Es. il valore :1600 X 2550
> se inserisci un campo d'apppoggio e in origine dati scrivi
> =Left([CAMPO1];4) il risultato che ti comparirà in questo campo d'appoggio
> sarà 1600... se scrivi =Right([CAMPO1];4) il risultato che ti comparirà in
> questo campo d'appoggio sarà 2550
>
> .. ti è + chiaro?
in linea teorica, sì, e dopo il tuo msg ci ho riprovato, ma tu dai per
scontato che io sia in grado di creare un campo d'appoggio e di trovarci
l'origine dati, mentre io, dall'alto della mia ignoranza, impiegherei almeno
un paio di mesi per riuscirci; e qui torniamo alla mia richiesta iniziale di
collaborazione.
non è che a te interessa?
grazie cmq e ciao
valerio


title: cerco consulente

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:c7nqke$krn$1...@news.newsland.it...
> Qualche problemino, come questo del separare i due numeri, lo si può
> risolvere anche qua sul ng, mentre per un'analisi e la progettazione di
> tabelle query e maschera bisognerebbe vedere il database.
> In questi casi preferisco parlare di persona per esaminare bene la
> situazione, vedere cosa c'è e cosa si vuole ottenere, per poter scegliere
> la soluzione migliore. Io sono del Friuli, lontanuccio, ma so che c'è
> qualcuno bravo lì dalle tue parti, se hanno tempo magari possono
> contattarti per risolvere il problema.
> Namor
se cominciamo con gli incontri di persona è automatico che la spesa lievita,
e io, visto che per me quasto è un lavoro con priorità molto bassa, penso
che non ne valga la pena. se ritieni cmq sono disposto a inviarti parte del
db ed una relazione su quello che mi serve, così puoi farti un'idea; poi se
si prosegue ci si può sentire per telefono oppure ciccia.
in quanto al pagamento, immagino che così come io dovrò fidarmi del fatto
che non mi invierai il fratello maggiore incazzato di Sasser per posta, tu
dovrai fidarti della mia parola per il pagamento. e poi esistono anche i
Demo, dico bene?
decidi tu, ciao e grazie
valerio


title: cerco consulente

text:
Polpc200 ha scritto:
> non è che a te interessa?
> grazie cmq e ciao
> valerio
Dai Polpc200... spediscimi questo DB e vedo se posso aiutarti.



title: [NEWS] Subclassing

author: Alessandro Baraldi

text:
Ho aggiunto un TUTORIAL inerente il SubClassing, argomento un pò
oscuro per gli Accessisti.
La nuova pubblicazione comprende un TUTORIAL di discreta complessità
che ho tentato di rendere comprensibile, più diversi DEMO divisi
in 3 tipologie:
1)DEMO SEMPLIFICATI versione A97 e AXP
  Contengono degli esempi base con la tecnica standard
2)DEMO AVANZATI
  Sfruttano una tecnica più complessa ma più funzionale
  che richiede per la comprensione la conoscenza approfondita
  delle API e del polimorfismo delle classi
3)DEMO SPERIMENTALE
  Ripropone i DEMO del punto 2, sfruttando un ulteriore passo
  delle Classi.
  Ho creato una Classe WRAPPER verso la routine di SubClassing che
  genera gli EVENTI non nativi di Access.
  Di fatto inserendo la dichiarazione della classe nella Form e
  sfruttandone la sua ereditarietà otterremo dei nuovi Eventi di
  Maschera personalizzati.
Sarei grato per eventuali segnalazioni di errori o di Malfunzionamenti
dei DEMO, purtroppo la mia pazienza per il DEBUG spesso è carente.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [NEWS] Subclassing

text:
Dimenticavo:
Sezione [API]
Faq:
1.39



title: [NEWS] Subclassing

author: Claudio

text:
Che dire......
Sei grande!!!!!! ;=)
altro sarebbe superfluo
ciao
Claudio


title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:5e3f7b9d19d1e9a247...@mygate.mailgate.org...

Complimenti...vedi che puoi partecipare alla CISA!
A mio avviso la cosa migliore è il pdf che è pure in italiano!
Tra gli esempi si trova qualche errore che è la dimostrazione di quanto sia
difficile subclassare una form di Access.
Sicuramente un ottimo contributo con teoria ed esempi pratici.
Ciao, Carlo


title: [NEWS] Subclassing

text:
Errori...??
;-)
Dimmi che anomalie hai trovato, è molto facile mi sia scappato
qualcosa, dopo averci lavorato quasi un mese non vedevo più
nulla...!
Il PDF è stato un lavoro abbastanza lunghetto, nonostante mi sia
rifatto a MSDN traducendo molte sezioni, il problema è sempre
costruire qualcosa di comprensibile per chi non ha pratica.
Ciao Carlo
@Alex


title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1140160580.3...@f14g2000cwb.googlegroups.com...
Errori...??
;-)
Dimmi che anomalie hai trovato, č molto facile mi sia scappato
qualcosa, dopo averci lavorato quasi un mese non vedevo piů
nulla...!
Il PDF č stato un lavoro abbastanza lunghetto, nonostante mi sia
rifatto a MSDN traducendo molte sezioni, il problema č sempre
costruire qualcosa di comprensibile per chi non ha pratica.
Ciao Carlo
@Alex
[risposta]
per esempio "Blocca maschera" manda in crash il sistema.
"SpostaPerCorpo" non funziona.
"SpostaPerBordo" non sembra funzionare.
Ciao, Carlo


title: [NEWS] Subclassing

text:
"Carlo Costarella" <
carloco...@libero.it
> wrote in message
news:43f5cac3$0$5999$
4faf...@reader2.news.tin.it
[CUT]
> [risposta]
> per esempio "Blocca maschera" manda in crash il sistema.
> "SpostaPerCorpo" non funziona.
> "SpostaPerBordo" non sembra funzionare.
Stranissimo, a quele delle 3 versioni ti riferisci..?
Le ho provate a casa con A97 e XP e non mi danno problemi
le ho provate quì al lavoro con A2003(solo le versioni XP) e non
ho avuto nessuna anomalia....!
Strano un comportamento diverso così però... non trovi ?
> Ciao, Carlo
Grazie



title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1abce270a262229e5b...@mygate.mailgate.org...

Sì è strano.
Il db è "Advanced_SubClass_Simple.mdb".
La maschera "Blocca maschera" manda in crash dopo aver tentato di
ridimensionarla dai bordi. Inoltre la stessa maschera, se bloccata e poi
sbloccata senza compiere alcuna variazione, dopo la chiusura, non si riapre.
Per la "SpostaXCorpo" ho tentato di spostarla cliccando e trascinando a
partire dal corpo ma non funge.
Per la "SpostaXBordo" se si agisce sui bordi si ridimensiona correttamente
ma non si sposta.
Ciao, Carlo


title: [NEWS] Subclassing

text:
Ho visto solo il discorso che dopo la chiusura non si ariapre...!!
Il resto vedo di fare un controllo più attento della cosa anche
se non mi spiego il fatto che da me vada.
Grazie Carlo per il test.
@Alex


title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1140189841.9...@f14g2000cwb.googlegroups.com...



@Alex
Prego,
siamo qui per questo...
Ciao, Carlo


title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1140189841.9...@f14g2000cwb.googlegroups.com...



@Alex
Ciao Alex
ho fatto pure io il test, AXP,  del tuo demo.
"Blocca Maschera" funziona perfettamente.
il sistema non va in crash, ma si chiude access se si va in struttura
oppure si chiude, la maschera principale.
mentre per spostaxcorpo e spostaxbordo non vanno, come dice pure Carlo.
altra anomalia: non posso vedere l'effetto di un demo due volte
consecutive. devo passare ad un altro e poi ritornare.
Daniele


title: [NEWS] Subclassing

text:
"cidi" <
dadonz...@tin.it
> wrote in message
news:43f6150a$0$5993$
4faf...@reader2.news.tin.it
[CUT]
> Ciao Alex
> ho fatto pure io il test, AXP,  del tuo demo.
> "Blocca Maschera" funziona perfettamente.
> il sistema non va in crash, ma si chiude access se si va in struttura
> oppure si chiude, la maschera principale.
> mentre per spostaxcorpo e spostaxbordo non vanno, come dice pure Carlo.
> altra anomalia: non posso vedere l'effetto di un demo due volte
> consecutive. devo passare ad un altro e poi ritornare.
>
> Daniele
Ciao Daniele, rispondo a te sperando che anche Carlo legga.
Allora ho trovato parte dei problemi:
1)Form spostaxcorpo e spostaxbordo è ovvio che non vadano a casa
  provavo la versione precedente che andava, mentre nel sito ho messo
  quella taroccata per vedere se vi accorgevate....!
  In pratica nella pulizia del Codice ho eliminato il SubClassing
  su evento Load delle 2 maschere.
2)La form "Blocca Maschera" invece è anomala, nel senso che se provo
  il DEMO semplificato funziona, mentre come ha segnalato Carlo
  quello Avanzato mi provoca Crash solo se tento di Ridimensionare
  la stessa, su MOVE non da problemi, il bello è che le routine sono
  le stesse....!
  Quì devo vedere con più attenzione.
3)Il fatto che si chiuda Access se passi per il Design è normale
  visto che Access non supporta il SubClassing in IDE, quindi questo
  è OK e risaputo.
4)Per il problema del riaprire la stessa Form dopo averla chiusa
  è una pirlata che ho fatto su evento DoppioClick della ListBox
  ma che ha un motivo, solo devo correggere un baco.
Bene Grazie ad entrambi per le riprove.
Per ora ho già aggiornato il tutto con le correzioni trovate, mi rimane
solo il punto 2 da definire...!



title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:0695f7a376b43c2320...@mygate.mailgate.org...
> "cidi" <
dadonz...@tin.it
> wrote in message
> news:43f6150a$0$5993$
4faf...@reader2.news.tin.it
>
> [CUT]
>> Ciao Alex
>> ho fatto pure io il test, AXP,  del tuo demo.
>> "Blocca Maschera" funziona perfettamente.
>> il sistema non va in crash, ma si chiude access se si va in struttura
>> oppure si chiude, la maschera principale.
>> mentre per spostaxcorpo e spostaxbordo non vanno, come dice pure Carlo.
>> altra anomalia: non posso vedere l'effetto di un demo due volte
>> consecutive. devo passare ad un altro e poi ritornare.
>>
>> Daniele
>
> Ciao Daniele, rispondo a te sperando che anche Carlo legga.
>
> Allora ho trovato parte dei problemi:
>
> 1)Form spostaxcorpo e spostaxbordo è ovvio che non vadano a casa
>  provavo la versione precedente che andava, mentre nel sito ho messo
>  quella taroccata per vedere se vi accorgevate....!
>  In pratica nella pulizia del Codice ho eliminato il SubClassing
>  su evento Load delle 2 maschere.
>
> 2)La form "Blocca Maschera" invece è anomala, nel senso che se provo
>  il DEMO semplificato funziona, mentre come ha segnalato Carlo
>  quello Avanzato mi provoca Crash solo se tento di Ridimensionare
>  la stessa, su MOVE non da problemi, il bello è che le routine sono
>  le stesse....!
scusa Alex, non ho precisato nel mio precedente post, che il test l'avevo
fatto
con il demo avanzato. per scrupolo ho riprovato.
funziona ......boh!
> @Alex
>
Ciao, Daniele


title: [NEWS] Subclassing

text:
"cidi" <
dadonz...@tin.it
> wrote in message
news:43f62dbc$0$5991$
4faf...@reader2.news.tin.it
[CUT]
> scusa Alex, non ho precisato nel mio precedente post, che il test l'avevo
> fatto
> con il demo avanzato. per scrupolo ho riprovato.
> funziona ......boh!
>
> Ciao, Daniele
Meglio così, ma la cosa non mi piace molto, non mi lascia
soddisfatto, deve funzionare sempre e da tutti.
Per ora grazie, ci lavoro su appena posso.



title: [NEWS] Subclassing

author: Simone Calligaris

text:
"Alessandro Baraldi" <
>
> Sarei grato per eventuali segnalazioni di errori o di Malfunzionamenti
> dei DEMO, purtroppo la mia pazienza per il DEBUG spesso č carente.
Per ora gli ho dato solo un'occhiata, comunque congratulazioni per il
lavoro: eccezionale e molto utile.
Ciao, Simone


title: [NEWS] Subclassing

text:
Meno male che ogni tanto ci prendo...! ;-)
Grazie.
@Alex


title: [NEWS] Subclassing

text:
"Alessandro Baraldi" <
> Meno male che ogni tanto ci prendo...! ;-)
>
> Grazie.
C'č poco da ringraziare: le risorse classiche sul subclassing sono troppo
complesse e/o non hanno una dotazione d'esempi ampia e di difficoltŕ
variabile.
Questo č un lavoro davvero pregevole.
Ciao, Simone


title: Access97

author: Simone Sarzano

text:
Salve a tutti,
sto mettendo a posto un programmino sviluppato in VBA su Access97.
Mi capita una cosa strana:
dichiaro una variabile load as integer
nel form load le assegno il valore 0.
Fin qui nulla di strano, ma in un controllo combobox definisco load = load +
1.
Stranamente e lo è, ottengo load = 0.
Che cosa sta succedendo??
A presto,
Simone


title: Access97

author: All Eyez On me

text:
"Simone Sarzano" <
sim...@NOSPAM.sarzano.com
> ha scritto nel messaggio
news:b0gnpj$k70$1...@fata.cs.interbusiness.it...

se cambi il nome della variabile funziona?
AEOM


title: Errore totali su query

author: Wiston Smith

text:
Salve a tutti,
avendo una tabella:
tblArticoli
CODFOR , CODART , UBIC
collegata ad una tabelle
tblFornitoriDesc
CODFOR , RAGSOC
dalle quali eseguo una query:
qryFiltraUbic
CODFOR (Ordine asc) , RAGSOC , CODART , UBIC
Raggrupamento                Primo          Primo          Primo
La query è filtrata sul campo UBIC per estrarre
dalla "tabella articoli" tutti i record che non hanno
l'ubicazione vuota.
Inoltre ho applicato la funzione Totali per
ragguppare il primo articolo di ogni fornitore come
scritto sopra.
La cosa strana è che se non metto il filtro totali
mi trova 10 fornitori (ovviamente con tutto il dettaglio
degli articoli), invece se applico i totali come sopra
ne trova solo 4.
Non riesco a trovare una motivazione logica,
a me sembra tutto ok.
Consigli ?
WS


title: Errore totali su query

text:
"Wiston Smith" <
as...@polert.it
> ha scritto nel messaggio
news:XiDeg.22870$6e2....@news.edisontel.com...
> Salve a tutti,
>
> avendo una tabella:
> Non riesco a trovare una motivazione logica,
> a me sembra tutto ok.
> Consigli ?
>
Risolto.
Ho duvuto fare due passaggi.
prima una Query di selezione
e successivamente filtrarla.
WS


title: automazioni sulla struttura delle tabelle

author: il mago galbusera

text:
ciao
sapete se č possibile fare un minimo di automazioni a livello di struttura
delle tabelle?
voglio dire, prendiamo ad esempio "valore predefinito"
č un modo molto comodo per impostare dei valori costanti o funzioni note a
priori..
ma se io volessi proporre come valore predefinito di un campo una certa
funzione del contatore? che ne so.. per esempio se volessi impostare un
campo a "true" se il valore del contatore č un numero primo..
non posso vero? devo per forza usare una form ?
grazie mille
saluti a tutti


text:
"il mago galbusera" <galb...@katamail.com.NOWAR> ha scritto nel messaggio
news:auq0pp$qsl$1...@fata.cs.interbusiness.it...

Puoi manipolarlo sfruttando Tabledefs e le sue proprietą.....!
In ogni caso secondo me ti conviene sfruttare le Form, anche
perchč se lavori in Multiutenza č poco consigliabile inserire
una ChiavePrimaria subito all'attivazione del Nuovo Record,
ma conviene generarla subito prima di Salvare.....!
@Alex


title: codici a barre

author: marco

text:
Qlc conosce un ActiveX gratuito per la generazione di codici a barre,
oltre a quello che offre compuart??
Il problema e' che il controllo activex di compuart, non e' trasparente,
quindi, dovendolo stampare su un report colorato, non so come fare!!
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Differenza fra due date (funzione completa).

author: UBI

text:
Vorrei suggerire una funzione completa per la differenza fra due date.
(questo è codice freeware, niente di illegale)
La funzione seguente permette il calcolo di una differenza precisa tra due
date/tempi
Si deve specificare come si vuole la differenza tra le due date/tempi
fornendo annno (y), mese (m), giorno (d), ora (h), minuto (n), secondo (s).
Esempio:
?Diff2Dates("y", #06/01/1998#, #06/26/2002#)
4 years
?Diff2Dates("ymd", #06/01/1998#, #06/26/2002#)
4 years 25 days
?Diff2Dates("ymd", #06/01/1998#, #06/26/2002#, True)
4 years 0 months 25 days
?Diff2Dates("d", #06/01/1998#, #06/26/2002#)
1486 days
?Diff2Dates("h", #01/25/2002 01:23:01#, #01/26/2002 20:10:34#)
42 hours
?Diff2Dates("hns", #01/25/2002 01:23:01#, #01/26/2002 20:10:34#)
42 hours 47 minutes 33 seconds
?Diff2Dates("dhns", #01/25/2002 01:23:01#, #01/26/2002 20:10:34#)
1 day 18 hours 47 minutes 33 seconds
?Diff2Dates("ymd",#12/31/1999#,#1/1/2000#)
1 day
?Diff2Dates("ymd",#1/1/2000#,#12/31/1999#)
-1 day
?Diff2Dates("ymd",#1/1/2000#,#1/2/2000#)
1 day
'***************** Codice **************
Public Function Diff2Dates(Interval As String, Date1 As Date, Date2 As Date,
_
Optional ShowZero As Boolean = False) As Variant
'Description:   This function calculates the number of years,
'               months, days, hours, minutes and seconds between
'               two dates, as elapsed time.
'
'Inputs:    Interval:   Intervals to be displayed (a string)
'           Date1:      The lower date (see below)
'           Date2:      The higher date (see below)
'           ShowZero:   Boolean to select showing zero elements
'
'Outputs:   On error: Null
'           On no error: Variant containing the number of years,
'               months, days, hours, minutes & seconds between
'               the two dates, depending on the display interval
'               selected.
'           If Date1 is greater than Date2, the result will
'               be a negative value.
'           The function compensates for the lack of any intervals
'               not listed. For example, if Interval lists "m", but
'               not "y", the function adds the value of the year
'               component to the month component.
'           If ShowZero is True, and an output element is zero, it
'               is displayed. However, if ShowZero is False or
'               omitted, no zero-value elements are displayed.
'               For example, with ShowZero = False, Interval = "ym",
'               elements = 0 & 1 respectively, the output string
'               will be "1 month" - not "0 years 1 month".
On Error GoTo Err_Diff2Dates
   Dim booCalcYears As Boolean
   Dim booCalcMonths As Boolean
   Dim booCalcDays As Boolean
   Dim booCalcHours As Boolean
   Dim booCalcMinutes As Boolean
   Dim booCalcSeconds As Boolean
   Dim booSwapped As Boolean
   Dim dtTemp As Date
   Dim intCounter As Integer
   Dim lngDiffYears As Long
   Dim lngDiffMonths As Long
   Dim lngDiffDays As Long
   Dim lngDiffHours As Long
   Dim lngDiffMinutes As Long
   Dim lngDiffSeconds As Long
   Dim varTemp As Variant
   Const INTERVALS As String = "dmyhns"
'Check that Interval contains only valid characters
   Interval = LCase$(Interval)
   For intCounter = 1 To Len(Interval)
      If InStr(1, INTERVALS, Mid$(Interval, intCounter, 1)) = 0 Then
         Exit Function
      End If
   Next intCounter
'Check that valid dates have been entered
   If Not (IsDate(Date1)) Then Exit Function
   If Not (IsDate(Date2)) Then Exit Function
'If necessary, swap the dates, to ensure that
'Date1 is lower than Date2
   If Date1 > Date2 Then
      dtTemp = Date1
      Date1 = Date2
      Date2 = dtTemp
      booSwapped = True
   End If
   Diff2Dates = Null
   varTemp = Null
'What intervals are supplied
   booCalcYears = (InStr(1, Interval, "y") > 0)
   booCalcMonths = (InStr(1, Interval, "m") > 0)
   booCalcDays = (InStr(1, Interval, "d") > 0)
   booCalcHours = (InStr(1, Interval, "h") > 0)
   booCalcMinutes = (InStr(1, Interval, "n") > 0)
   booCalcSeconds = (InStr(1, Interval, "s") > 0)
'Get the cumulative differences
   If booCalcYears Then
      lngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _
              IIf(Format$(Date1, "mmddhhnnss") <= Format$(Date2,
"mmddhhnnss"), 0, 1)
      Date1 = DateAdd("yyyy", lngDiffYears, Date1)
   End If
   If booCalcMonths Then
      lngDiffMonths = Abs(DateDiff("m", Date1, Date2)) - _
              IIf(Format$(Date1, "ddhhnnss") <= Format$(Date2, "ddhhnnss"),
0, 1)
      Date1 = DateAdd("m", lngDiffMonths, Date1)
   End If
   If booCalcDays Then
      lngDiffDays = Abs(DateDiff("d", Date1, Date2)) - _
              IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0,
1)
      Date1 = DateAdd("d", lngDiffDays, Date1)
   End If
   If booCalcHours Then
      lngDiffHours = Abs(DateDiff("h", Date1, Date2)) - _
              IIf(Format$(Date1, "nnss") <= Format$(Date2, "nnss"), 0, 1)
      Date1 = DateAdd("h", lngDiffHours, Date1)
   End If
   If booCalcMinutes Then
      lngDiffMinutes = Abs(DateDiff("n", Date1, Date2)) - _
              IIf(Format$(Date1, "ss") <= Format$(Date2, "ss"), 0, 1)
      Date1 = DateAdd("n", lngDiffMinutes, Date1)
   End If
   If booCalcSeconds Then
      lngDiffSeconds = Abs(DateDiff("s", Date1, Date2))
      Date1 = DateAdd("s", lngDiffSeconds, Date1)
   End If
   If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then
      varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " years", " year")
   End If
   If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then
      If booCalcMonths Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffMonths & IIf(lngDiffMonths <> 1, " months", "
month")
      End If
   End If
   If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then
      If booCalcDays Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffDays & IIf(lngDiffDays <> 1, " days", " day")
      End If
   End If
   If booCalcHours And (lngDiffHours > 0 Or ShowZero) Then
      If booCalcHours Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffHours & IIf(lngDiffHours <> 1, " hours", " hour")
      End If
   End If
   If booCalcMinutes And (lngDiffMinutes > 0 Or ShowZero) Then
      If booCalcMinutes Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffMinutes & IIf(lngDiffMinutes <> 1, " minutes", "
minute")
      End If
   End If
   If booCalcSeconds And (lngDiffSeconds > 0 Or ShowZero) Then
      If booCalcSeconds Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffSeconds & IIf(lngDiffSeconds <> 1, " seconds", "
second")
      End If
   End If
   If booSwapped Then
      varTemp = "-" & varTemp
   End If
   Diff2Dates = Trim$(varTemp)
End_Diff2Dates:
   Exit Function
Err_Diff2Dates:
   Resume End_Diff2Dates
End Function
'************** fine *****************
Un mondo, un numero:
http://www.phone.my-pci.com


author: Carlo Costarella

text:
CUT
>
>
>
Questo l'adattamento in italiano dell'ottima funzione postata da UBI:
Public Function Diff2Dates(Interval As String, Date1 As Date, Date2 As Date,

'************** Esempi ***************
'Print Diff2Dates("y", #6/1/1998#, #6/26/2002#)
'Print Diff2Dates("ymd", #6/1/1998#, #6/26/2002#)
'Print Diff2Dates("ymd", #6/1/1998#, #6/26/2002#, True)
'Print Diff2Dates("d", #6/1/1998#, #6/26/2002#)
'Print Diff2Dates("h", #1/25/2002 1:23:01 AM#, #1/26/2002 8:10:34 PM#)
'Print Diff2Dates("hns", #1/25/2002 1:23:01 AM#, #1/26/2002 8:10:34 PM#)
'Print Diff2Dates("dhns", #1/25/2002 1:23:01 AM#, #1/26/2002 8:10:34 PM#)
'Print Diff2Dates("ymd", #12/31/1999#, #1/1/2000#)
'Print Diff2Dates("ymd", #1/1/2000#, #12/31/1999#)
'Print Diff2Dates("ymd", #1/1/2000#, #1/2/2000#)
'***************** Fine esempi **************
On Error GoTo Err_Diff2Dates














      varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " anni", " anno")
   End If
   If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then
      If booCalcMonths Then
      varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
      lngDiffMonths & IIf(lngDiffMonths <> 1, " mesi", " Mese ")
      End If
   End If
   If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then
      If booCalcDays Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffDays & IIf(lngDiffDays <> 1, " giorni", " giorno")
      End If
   End If
   If booCalcHours And (lngDiffHours > 0 Or ShowZero) Then
      If booCalcHours Then
         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
                   lngDiffHours & IIf(lngDiffHours <> 1, " ore", " ora")
      End If
   End If
   If booCalcMinutes And (lngDiffMinutes > 0 Or ShowZero) Then
      If booCalcMinutes Then
      varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
      lngDiffMinutes & IIf(lngDiffMinutes <> 1, " minuti", " Minuto ")
      End If
   End If
   If booCalcSeconds And (lngDiffSeconds > 0 Or ShowZero) Then
      If booCalcSeconds Then
        varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
        lngDiffSeconds & IIf(lngDiffSeconds <> 1, " secondi", " Secondo ")
      End If
   End If
   If booSwapped Then
      varTemp = "-" & varTemp
   End If
   Diff2Dates = Trim$(varTemp)
End_Diff2Dates:
   Exit Function
Err_Diff2Dates:
   Resume End_Diff2Dates
End Function
'************** fine *****************
Ciao, Carlo


author: Andrea Parrino

text:
                    Il 27 Mar 2005, 17:41, "Carlo Costarella"
<
carloantonioco...@virgilio.it
> ha scritto:

Ciao Carlo,
ti è possibile mandarmi un esempio di una maschera per capire come
richiamare la funzione Diff2Dates
nella finestra immediata con i Vostri esempi vedo il risultato
non sò come collegare la funzione ed inserire i dati ed avere l'output in
una maschera
Grazie
Andrea Parrino
--------------------------------
Inviato via
http://arianna.libero.it/usenet/