title: per errore ho protetto dei files access

text:
"Enrico" <
enrico...@superbrico.com
> ha scritto nel messaggio
news:1130057824.3...@g14g2000cwa.googlegroups.com...
salve a tutti,
premetto che non conosco assolutamente access, perň ho un programma
aziendale che aggiorna un database access e per poi estrarne i dati e
scrivere in file xml, dovendo io creare lo stesso file xml partendo da
dati in excel ho pensato di importarli nell database access, per cui ho
aperto il database ed ho cercato di capire come fosse strutturato e
come fare per inserci i miei dati (leggere il manuale č troppo
noioso!!).
Pur seguendo la procedura guidata non riuscivo mai a portarla a termine
per cui mi č venuto il dubbio che il file fosse protetto ed ho
cliccato sul menu' protezione e poi ..... non ho idea di cosa ho
fatto!! credo di aver attivato la protezione utenti senza perň aver
inserito alcuna password.
morale della favola non riesco piů ad aprirlo, potrei chiaramente
farmene mandare un'altro ma dovrei spiegare in azienda (super
multinazionale tedesca ..!!) come mai ho modificato un file del quale
non dovrei nemmeno conoscere l'esistenza, insomma mi aspetta la
fustigazione in mensa se non riesco a sbloccare access.
riuscite ad aiutarmi?
Enrico
Perchč non riesci ad aprirlo? Ti chiede una password? Hai cambiato
proprietario?
Hai provato ad aprirlo tenedo premuto il tasto "Maiusc"?
Facci sapere.
Ciao,Carlo


title: Come tradurre da C# a VBA ?

author: RobertoA

text:
Potete aiutarmi a tradurre la funzionalita' di questo breve spezzone di
codice C# a Vba ?
In sostanza invia dei comandi sulla porta 4090 di un pc in rete e poi
attende risposta, tutto la'
Ciao e grazie
RobertoA
using System;
using System.Net;
using System.Net.Sockets;
using System.Text.RegularExpressions;
using System.Text;
namespace ServerPrototype
{
class AppConsole
{
[STAThread]
static void Main(string[] args)
{
Socket clientSocket = new Socket(AddressFamily.InterNetwork,
SocketType.Stream, ProtocolType.Tcp);
IPEndPoint serverEndPoint = new IPEndPoint(IPAddress.Parse("192.168.1.100"),
4090);
clientSocket.Connect(serverEndPoint);
// Login to the server
clientSocket.Send(Encoding.ASCII.GetBytes("Comando: Login\r\nUsername:
peppe\r\nPassword: peppe123\r\nActionID: 1\r\n\r\n"));
int bytesRead = 0;
do
{
byte[] buffer = new byte[1024];
bytesRead = clientSocket.Receive(buffer);
//Console.WriteLine(bytesRead + " bytes from server.");
string response = Encoding.ASCII.GetString(buffer, 0, bytesRead);
Console.WriteLine(response);
if (Regex.Match(response, "Risposta: Login accettato",
RegexOptions.IgnoreCase).Success)
{
// Send a ping request the server will send back a pong response.
clientSocket.Send(Encoding.ASCII.GetBytes("Comando: Ping\r\nActionID:
2\r\n\r\n"));
}
} while (bytesRead != 0);
Console.WriteLine("Connessione al server interrotta");
Console.ReadLine();
}
}
}


title: Come tradurre da C# a VBA ?

author: Sergio MAZZA

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:481f1473$1...@newsgate.x-privat.org...
> Potete aiutarmi a tradurre la funzionalita' di questo breve spezzone di
> codice C# a Vba ?
> In sostanza invia dei comandi sulla porta 4090 di un pc in rete e poi
> attende risposta, tutto la'
> Ciao e grazie
> RobertoA
>
---omissis---
Forse qui c'è qualcosa che può agevolarti:
http://www.example-code.com/vb/socket.asp
Ciao.
--
Sergio MAZZA


title: Come tradurre da C# a VBA ?

author: Alessandro Baraldi

text:

> }- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Il problema non è tanto tradurre l'uso del Socket... quanto il fatto
che VBA non dispone di un oggetto nativo come NET.
Di fatto hai solo 2 modi per usare il Socket da VBA:
1) Usare Winsock.OCX se ne hai la licenza, quindi programmare l'OCX
per inviare o leggere dati come un normale Client via TCP come fatto
in C#.
2) Usare wsock32.Dll se non disponi dei privilegi di Usare e
Distribuire l'OCX, ma quì ti si apre una voragine in quanto da VBA la
gestione del Socket tramite DLL è un massacro, e faresti prima a farti
tu un OCX che WRAPPA la DLL, ma per questo servono conoscenze
abbastanza pesanti.
Io ho fatto entrambi gli esperimenti... ed il 2° non lo auguro a
nessuno...! ;-)
Se usi l'OCX la cosa è molto semplice, e con il sito suggerito da
Sergio trovi molti spunti, ma in generale in rete trovi moltissimo con
VB6.
@Alex


title: Come tradurre da C# a VBA ?

text:
Ho risolto usando l'ocx, sembra piu' semplice del previsto
Per chi ne avesse bisogno, dopo aver piazzato il controllo Microsoft Winsock
su una form:
---- Per aprire connessione ----
sckControlloFidia1.Connect  "192.168.1.100", 4090
---- Per spedire dati sulla connessione aperta ----
Comando: Ping
sckControlloFidia1.SendData  "Comando: Ping" & vbCrLf
sckControlloFidia1.SendData  "ActionId: 3" & vbCrLf
---- Per ricevere dati dalla connessione aperta ----
(usare questo codice dentro l'evento DATAARRIVAL del controllo Winsock)
Dim strServerMsg As String
sckControlloFidia1.GetData   strServerMsg
Me!Text1.Value =  strServerMsg
Ciao e grazie ad entrambi
RobertoA


title: maschera con campo che elenca valori (v1;v2;v3;...)

author: tinetta

text:
Buongiorno a tutti,
in una maschera (e poi in un report) vorrei creare un box di testo che mi
elenchi tutti i valori di un campo presenti nei record della tabella su
cui è basata la maschera. Insomma non una casella di riepilogo o combinata
ma un elenco testuale
provo ad esemplificare:
tabella:
ID animale categoria
01 cane    mammifero
02 gatto   mammifero
03 squalo  pesce
04 vipera  rettile
...
vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
questo modo:
cane; gatto; squalo; vipera;...
A tal proposito esiste una proprietà da assegnare ad un campo testo in
modo che adatti automaticamente la lunghezza al contenuto?
(così se ho pochi dati resta "basso" se i dati sono molti si allunga)
grazie ciao ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: MA

text:
"tinetta"  ha scritto nel messaggio news:iknj59$vdt$1...@news.newsland.it...
Buongiorno a tutti,
in una maschera (e poi in un report) vorrei creare un box di testo che mi
elenchi tutti i valori di un campo presenti nei record della tabella su
cui è basata la maschera. Insomma non una casella di riepilogo o combinata
ma un elenco testuale
provo ad esemplificare:
tabella:
ID animale categoria
01 cane    mammifero
02 gatto   mammifero
03 squalo  pesce
04 vipera  rettile
...
vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
questo modo:
cane; gatto; squalo; vipera;...
A tal proposito esiste una proprietà da assegnare ad un campo testo in
modo che adatti automaticamente la lunghezza al contenuto?
(così se ho pochi dati resta "basso" se i dati sono molti si allunga)
grazie ciao ciao
--
Ciao
Dunque creati un funzione
Function fctRadicale() as String
Dim strSQL as string
Dim rs as DAO.Recordset
strsql = "SELECT Animale FROM tuatabella"
Set rs = currentdb.openrecordset(strSql)
With rs
if not .eof then
    do
    strsql = strsql & " " & !animale
    .movenext
    loop until .EOF
end if
.close
end with
fctRadicale = strsql
End function
MA


text:
MA ha scritto:
> "tinetta"  ha scritto nel messaggio news:iknj59$vdt$1...@news.newsland.it...
> Buongiorno a tutti,
> in una maschera (e poi in un report) vorrei creare un box di testo che mi
> elenchi tutti i valori di un campo presenti nei record della tabella su
> cui è basata la maschera. Insomma non una casella di riepilogo o combinata
> ma un elenco testuale
> provo ad esemplificare:
> tabella:
> ID animale categoria
> 01 cane    mammifero
> 02 gatto   mammifero
> 03 squalo  pesce
> 04 vipera  rettile
> ...
> vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
> questo modo:
> cane; gatto; squalo; vipera;...
> A tal proposito esiste una proprietà da assegnare ad un campo testo in
> modo che adatti automaticamente la lunghezza al contenuto?
> (così se ho pochi dati resta "basso" se i dati sono molti si allunga)
> grazie ciao ciao
Ti ringrazio molto per l'aiuto.. però... la funzione dove devo metterla?
grazie ancora
tinetta



text:
"tinetta"  ha scritto nel messaggio news:iknld3$5kc$1...@news.newsland.it...
MA ha scritto:

> Buongiorno a tutti,

> provo ad esemplificare:


> grazie ciao ciao

grazie ancora
tinetta
--
La puoi usare come origine record di una textbox e la usi come vuoi
MA


author: Riccardo Baldinotti

text:
On 3 Mar, 09:24, tine...@aaaaa.aa (tinetta) wrote:
> Buongiorno a tutti,
>
> in una maschera (e poi in un report) vorrei creare un box di testo che mi
> elenchi tutti i valori di un campo presenti nei record della tabella su
> cui basata la maschera. Insomma non una casella di riepilogo o combinata
> ma un elenco testuale
>
> provo ad esemplificare:
>
> tabella:
> ID animale categoria
> 01 cane    mammifero
> 02 gatto   mammifero
> 03 squalo  pesce
> 04 vipera  rettile
> ...
> vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
> questo modo:
> cane; gatto; squalo; vipera;...
>
> A tal proposito esiste una propriet da assegnare ad un campo testo in
> modo che adatti automaticamente la lunghezza al contenuto?
> (cos se ho pochi dati resta "basso" se i dati sono molti si allunga)
>
> grazie ciao ciao
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
Per avere l'elenco degli animali, metti nell'origine dati della
maschera e del report la query:
SELECT DISTINCT tabella.animale FROM tabella ORDER BY tabella.animale;
Perché l'elenco sia alto quanto serve, per il report è semplice: metti
una casella di testo alta quanto una riga e nella sua proprietà
Espandibile metti Sì.
Per la maschera è più complicato: nell'evento SuCaricamento della
maschera Maschera1 potresti mettere un comando MoveSize come:
Dim U As Integer
U = Me.RecordsetClone.RecordCount
DoCmd.MoveSize , , , 320 * U + Me.Section(1).Height +
Me.Section(2).Height
cioè: 320 (altezza di una riga) moltiplicato per numero di righe, più
le altezze di intestazione e pie' di pagina.
Oppure nella maschera metti la barra di scorrimento verticale.
Buon lavoro
Riccardo Baldinotti


title: FORMATO DATA HELP

author: AriZonA

text:
Ciao,
Ho un DB Access con dei campi data.
Popolando il db le date subiscono strani comportamenti che seguono
- se la data vale 01/08/2001  quando la vado a ripescare ottengo 08/01/2001
che sembra un formato americano
- se la data vale 13/08/2001 quando la vado  a ripescare ottengo
correttamente 13/08/2001
sapreste aiutarmi?
caizu


title: Immagini! Non riesco!

author: [>lupo<]

text:
Ho letto tutte le faq e quant'altro, ma non riesco a preparare il form in
modo da inserire delle foto residenti in una cartella, senza collegarle o
incorporarle. Se qualche anima pia mi aiutasse. Potrei inviare il file per
una "controllatina". Si tratta di un database per la gestione di carte
d'identità di un piccolo comune.


title: Immagini! Non riesco!

author: Roberto da casa

text:
"[>lupo<]" <mauro.polliotto***@
libero.it
> ha scritto nel messaggio
news:xiYla.31613$DT4.9...@twister1.libero.it...
> Ho letto tutte le faq e quant'altro, ma non riesco a preparare il form in
> modo da inserire delle foto residenti in una cartella, senza collegarle o
> incorporarle. Se qualche anima pia mi aiutasse.
E' difficile dirti di più di quello che hai trovato scritto e realizzato
nelle FAQ del Sito Comune.
Prova a raccontarci cosa hai fatto e che cosa non ti funziona.
>Potrei inviare il file per una "controllatina".
No, grazie. ;-)
> Si tratta di un database per la gestione di carte
> d'identità di un piccolo comune.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Immagini! Non riesco!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:AGbma.33059$DT4.9...@twister1.libero.it...

Allora ho copiato letteralmente il codice che compare nella maschera
"Impiegati" del Database di esempio Northwind che ha sistemate le foto in
una cartella esterna (proprio quello che cerco io)
Quando aziono il pulsante per assegnare la foto mi da un errore di runtime
"438". Il problema viene da:
Sub getFileName()
    ' Visualizza la finestra di dialogo Apri file di Office per selezionare
un file
    ' per il record dell'impiegato corrente. Se l'utente seleziona un file,
tale file
    ' viene visualizzato nel controllo Immagine.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Seleziona foto impiegato"
        .Filters.Add "Tutti i file", "*.*"
        .Filters.Add "JPEG", "*.jpg"
        .Filters.Add "Bitmap", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![Nome].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub
La causa pare essere la variabile fileName
Infatti se metto una interruzione nel file Northwind compare il percorso
dove si trovano le immagini.
Nel mio NO!
Scusate la lungaggine


title: Immagini! Non riesco!

text:
"[>lupo<]" <mauro.polliotto***@
libero.it
> ha scritto nel messaggio
news:Cwgma.33861$DT4.1...@twister1.libero.it...

Non so che versione di Access usi, ma io uso Access 97 e nel mio database di
esempio Northwind nella maschera Impiegati la foto non è visualizzata in un
controllo Immagine ma in una Cornice oggetto associata ad un campo OLE e le
immagini sono quindi inglobate nel database e non sono contenute in una
cartella esterna al database; non sono quindi in grado di aiutarti ad
interpretare e spiegarti cosa fa il programma Northwind che hai installato
sul tuo PC.
Io con Access 97 per aprire una finestra di dialogo Apri file devo usare le
API di Windows: a tale scopo uso infatti normalmente la funzione di Stefano
Bettini contenuta nella FAQ intitolata "Richiamare la finestra di dialogo
per la selezione di un file" che si trova nella Sezione General del Sito
Comune. Prova ad usare quella per selezionare un file: una volta registrato
il codice VBA indicato nella FAQ in un modulo è molto più facile gestire la
selezione del file effettuata.



title: Immagini! Non riesco!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:q2hma.33927$DT4.1...@twister1.libero.it...

Uso il pacchetto Office XP (l'esempio di Northwind è diverso!)
Comunque il database che devo preparare andrà a "girare" con access 97
(faccio la conversione in tale formato)


title: contatore

author: treepwoood

text:
Nella creazione di un database access mediante visual basic, come si può
definire un campo contatore?


title: contatore

text:
"treepwoood" <
treep...@tiscalinet.it
> ha scritto nel messaggio
news:Zz376.18797$eB2.2...@news.infostrada.it...
> Nella creazione di un database access mediante visual basic, come si puň
> definire un campo contatore?
>
>
nella definizione della tabella indica un campo, ad es idcontatore, e poi
come formato dei dati scegli contatore.
piů a dirsi che a farsi.
ciao


title: contatore

text:
Grazie per la tempestività della risposta,
anche se intendo come creare un database access mediante visual basic,
quindi utilizzando il codice visual basic e non la creazione in
visualizzazione struttura...
Grazie


title: [segnalazione] questo è un BEL programma!!

author: IgnazioC

text:
volevo segnalarvi un programa access che a me č piaciuto molto, sia
per la grafica sia per le funzionalitą, inoltre  ho potuto apprezzare
qualche "innovazione" in termini di programmazione access.(fatto da
microsoft)
scaricate e ditemi sa non ne valeva la pena:
www.patx.net/Example/AccessDiary%201.0.zip
saluti a tutti!!!
--
IgnazioC
----------------------
www.sitocomune.com
 >
www.patx.net
       > versione beta
----------------------


author: max

text:
"IgnazioC" <
c.ign...@virgilio.it
> ha scritto nel messaggio
news:crmo129psmclr41ig...@4ax.com...
> volevo segnalarvi un programa access che a me è piaciuto molto, sia
> per la grafica sia per le funzionalità, inoltre  ho potuto apprezzare
> qualche "innovazione" in termini di programmazione access.(fatto da
> microsoft)
>
> scaricate e ditemi sa non ne valeva la pena:
>
>
www.patx.net/Example/AccessDiary%201.0.zip
>
> saluti a tutti!!!
> --
> IgnazioC
> ----------------------
>
www.sitocomune.com
 >
>
www.patx.net
       > versione beta
> ----------------------
Non riesco ad usarlo ......mi dice che manca un riferimento o è presente un
riferimento non più valido al file "msoutl.olb" versione 9.2
Come faccio?


author: Carlo Costarella

text:
"IgnazioC" <
c.ign...@virgilio.it
> ha scritto nel messaggio
news:crmo129psmclr41ig...@4ax.com...
> volevo segnalarvi un programa access che a me č piaciuto molto, sia
> per la grafica sia per le funzionalitą, inoltre  ho potuto apprezzare
> qualche "innovazione" in termini di programmazione access.(fatto da
> microsoft)
>
> scaricate e ditemi sa non ne valeva la pena:
>
>
www.patx.net/Example/AccessDiary%201.0.zip
>
> saluti a tutti!!!
> --
> IgnazioC
 Sģ ne valeva la pena.
Qui trovi la versione italiana...
http://www.frantoiogestione.com/AccessDiaryITA.zip
Ciao, Carlo


author: Simone Calligaris

text:
"IgnazioC" <...
> volevo segnalarvi un programa access che a me è piaciuto molto, sia
> per la grafica sia per le funzionalità, inoltre  ho potuto apprezzare
> qualche "innovazione" in termini di programmazione access.(fatto da
> microsoft)
>
> scaricate e ditemi sa non ne valeva la pena:
La settimana scorsa s'è discusso di un analogo lavoro (italianissimo) di
Rino Ferrari, e prima ancora sul sito di Baraldi erano apparsi esempi di
forms "skinnate" assai gradevoli...
Il problema nel riportare queste Demo alla realtà è il tempo che si deve
perdere con applicativi grafici, soprattutto quando le forms sono decine
;-)
Ciao, Simone


text:
In particolare questo demo è molto carino.
Si il problema principale è proprio quello del tempo.
Detto 100 il tempo di realizzazione, almeno il 70% viene perso
proprio per la grafica in questi casi...!
(Almeno succede a me che non sono molto pratico)
@Alex


author: Fabio Valsangiacomo

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio news:441d2660$0$29730$4faf...@reader2.news.tin.it...

ed in particolare il peso del Db, viene dato quasi più dagli elementi grafici che dai dati inseriti, comunque l'estetica è piacevole
Fabio
> ;-)
>
> Ciao, Simone
>
>
>


author: Sib

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio



@Alex
---------------
Se ti può consolare vale anche per me.
Il massimo che concedo, sempre su esplicita richiesta del cliente, è uno
sfondo statico caricato al momento per non appesantire l'applicazione.
Sib
--
http://www.gestionedati.com


text:
qualcuno mi dice cosa devo fare pervisionarlo?
Mi dà errore.....
manca un riferimento o è presente un
riferimento non più valido al file "msoutl.olb" versione 9.2
perchè?


text:
Già io invece nelle applicazioni di lavoro non metto assolutamente
nulla(Windows Style
al massimo, ma Windows98 Style ;-) ), e visto
che la realizzazione è per il mio ambiente di lavoro per il quale non
sarei io il preposto allo sviluppo, non ci penso nemmeno....!
Cosa diversa è per i giochini che si pubblicano, li mi diverto, quindi
anche perdere
un'oretta per il singolo Demo non è poi male...!
@Alex


text:
"Fabio Valsangiacomo" <
ed in particolare il peso del Db, viene dato quasi piů dagli elementi
grafici che dai dati inseriti, comunque l'estetica č piacevole
Fabio
Sě, la soluzione piů razionale sarebbe evitare d'inglobarle e ficcarle in
una cartella esterna.
Comunque davvero un bell'impatto grafico, anche se nel Demo non ci sono
esempi di maschere in formato tabellare (la cui gestione imho dev'essere
diversa).
Ciao, Simone


author: Rino Ferrari

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1142765058.9...@u72g2000cwu.googlegroups.com...



@Alex
Si Alex  effettivamente e vero, quindi la mia precedente proposta (erano più
esempi in uno) era di fissare
uno standard inizialmente, e poi fare riferimento a tale per tutta
l'applicazione,
proprio per una questione di tempo.
Rino.


text:
"max" <
mas...@inwind.it
> ha scritto nel messaggio
news:Q%bTf.39596$PR2.7...@twister2.libero.it...

E' la libreria di Outlook  che dovresti avere se hai installato Office 2000
(almeno).
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:441d8421$0$18299$4faf...@reader1.news.tin.it...

Ho installato office 2003.....è la stessa cosa?


text:
cut
>> E' la libreria di Outlook  che dovresti avere se hai installato Office
>> 2000 (almeno).
>>
>> Ciao, Carlo
>>
> Ho installato office 2003.....è la stessa cosa?
>
>
Benissimo se hai installato Outlook 2003. La libreria sarà nella versione 11
e la trovi in tuopercorsoinstallazioneoffice\Office11\
Se non funziona ti consiglio di disinstallare e reinstallare il solo
outlook.
Ciao, Carlo


text:
"max" <
> qualcuno mi dice cosa devo fare pervisionarlo?
>
> Mi dà errore.....
Togli quel riferimento dall'Editor Visual Basic, se ti da noie...
Ciao, Simone


text:
IgnazioC wrote:
> volevo segnalarvi un programa access che a me è piaciuto molto, sia
> per la grafica sia per le funzionalità, inoltre  ho potuto apprezzare
> qualche "innovazione" in termini di programmazione access.(fatto da
> microsoft)
>
> scaricate e ditemi sa non ne valeva la pena:
>
>
www.patx.net/Example/AccessDiary%201.0.zip
>
> saluti a tutti!!!
E' una segnalazione vecchia.
Ce la fece +o- un annetto fa Ciroteo.
Grazie cmq
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


author: ciroteo

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:dvlpbd$8c3$1...@area.cu.mi.it...
> IgnazioC wrote:
> > volevo segnalarvi un programa access che a me č piaciuto molto, sia
> > per la grafica sia per le funzionalitą, inoltre  ho potuto apprezzare
> > qualche "innovazione" in termini di programmazione access.(fatto da
> > microsoft)
> >
> > scaricate e ditemi sa non ne valeva la pena:
> >
> >
www.patx.net/Example/AccessDiary%201.0.zip
> >
> > saluti a tutti!!!
> E' una segnalazione vecchia.
> Ce la fece +o- un annetto fa Ciroteo.
> Grazie cmq
> --
> _ _
>
je t'aime! ....


text:
On Mon, 20 Mar 2006 09:32:20 +0100, "MA"
<
mas...@massimilianoamendola.it
> wrote:
>E' una segnalazione vecchia.
>Ce la fece +o- un annetto fa Ciroteo.
>Grazie cmq
 si in effetti era nel mio "archivio" da tempo..ma cercavo un metodo
per rendermi utilie a questo ng, e visto che risposte non ne so dare
mai...spero che a qualcuno possa essere servito.



author: Morgan

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:441d9f8b$0$2268$4faf...@reader4.news.tin.it...

Scusa
a me da errore su .oCal.Move Me.WindowLeft
non riconoscendomi WindowLeft.
Che mi manca?
Morgan


text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:441efd1a$0$36924$4faf...@reader3.news.tin.it...

Access 97 non riconosce l'istruzione che si riferisce ad una proprietà della
form.
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:441f9ee1$0$29723$4faf...@reader2.news.tin.it...

Ma io ho A00
Morgan


text:
cut
> Ma io ho A00
>
> Morgan
Sì, lo stesso, la proprietà WindowLeft è stata aggiunta a partire dalla
versione 2002 (XP).
Qui trovi un elenco delle novità presenti nella versione XP:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaac10/html/acconNewPropertiesO.asp
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:44210542$0$2270$4faf...@reader4.news.tin.it...

Perfetto, mi accingo alle modifiche del caso.
Grazie Carlo
Morgan


title: Selezione record su casella di riepilogo, AIUTO!

author: Il cugino da casa

text:
Salve a tutti, è un po' che mi sto picchiando con una casella di riepilogo,
la situazione è questa: in una form ho dei campi (cognome , nome etc) ed una
casella di riepilogo che mi  visualizza tutti i record inseriti in ordine
crescente per lettera del cognome.
Vorrei attraverso un doppio click su un valore della casella di riepilogo
che fosse visualizzato nel rispettivo campo il recor memorizzato ( ossia :
nella casella di riepilogo ho i campi Rossi Mario via Roma etc ) vorrei che
fosse richiamato il record Rossi Mario per potervi fare delle modifiche.
Se non chiedo troppo mi piacerebbe sapere come diavolo si fa ad aggiornare
la tabella in tempo "reale" nel caso che io inserisca un nuovo record dato
che allo stato attuale rimane piantata su quelli gia inseriti ( che sono
visualizzati correttamente ).
Grazie a chi sarà così paziente da rispondermi!Sono nel casino ;-)(!
Paolo


author: Giacomo Ciani

text:
"Il cugino da casa" <
he...@virgilio.it
> ha scritto nel messaggio
news:%77t7.106548$dJ3.7...@news1.tin.it...

Io sono molto inesperto e se qualcuno degli "anziani" vede che ho provato a
risponderti, dopo che li ho fatti impazzire per delle domande magari banali,
probabilmente impazzisce!!
Nondimeno se ho capito il tuo problema credo di avere la soluzione: per
quando riguarda la visualizzazione nella maschera del record selezionato
nella casella di riepilogo, basta che tu crei la casella di r. con
l'autocomposizione: nella prima scheramta ti viene proprio chiesto a cosa
deve servire la casella e quello che vuoi tu è tipo "ricerca da parte della
maschera di un record selezionato nella casella di riepilogo".
Per quanto riguarda l'aggiornamento, devi trovare un evento che sai si
attiva sempre alla fine dell'operazione di modifica o inserimento: su questo
evento scrivi il codice
me.[nome casella di controllo].requery
Spero di essere stato chiaro, utile e di non aver commesso errori!
Ciao


text:
Sei stato chiarissimo e la soluzione del requery è validissima una volta
trovata un'azione
 che si ripete costantemente ma rimangono cmq dei problemi sulla casella di
riepilogo.
Mi spiego: la mia maschera attinge dati da una combo con + colonne con
associati campi diversi ossia
combo colonna1(Cognome & nome )
            colonna 2 (attività svolta)
            colonna 3 (cognome)
            Colonna 4 (nome)
i valori di colonna 1 sono visualizzati nella combo
mentre quelli di colonna2,3,4 in txtbox chiamate
come i valori che devono andare a contenere (cognometxt , nometxt ,
attivitàtxt)
 la casella di riepilogo mostra in maniera corretta i record inseriti,
il problema sorge quando cerco di cliccare su uno di questi perchè
1) la combo non si aggiorna con il valore (Cognome & Nome ) corretto
2) non aggiornandosi, all'avvio (quindi con combo vuota) mi viene
visualizzato un errore
che dice che il campo selezionato ha valore null
S.O.S non ci sto più a capì nulla.
P.s. ho provato a spostare le righe di codice generate automaticamente dalla
composizione guidata
anche sull'evento doppioclick della casella di riepilogo, ma siamo alle
solite...
Ciao
Paolo


author: CarloCos

text:
"Il cugino da casa" <
he...@virgilio.it
> ha scritto nel messaggio
news:vEht7.107148$dJ3.7...@news1.tin.it...

Se inserisci un nuovo record nella maschera devi salvarlo (me.Refresh) e
fare una requery della combo (me.NomeCombo .Requery).
Se vuoi vedere il record (nella maschera) corrispondente a quello
selezionato dalla Combo (una ricerca per intenderci) allora la colonna
associata della combo deve essere la chiave univoca del Recordset che
alimenta la maschera. Così come hai impostato la combo non vedo una colonna
con valori univoci: Cognome potrebbe ripetersi, così nome o attività. Ti
consiglio di aggiungere, come prima colonna, un campo che identifica in modo
univoco il record. Lo stesso controllo sarà presente sulla maschera. Per
esempio l'ID della tabella persone.
Ovviamente imposti a 0 la larghezza della colonna univoca.
Su clic della combo scriverai:
Docmd.GotoControl "NomeControlloID"
Docmd. FindRecord me.NomeCombo
Chiaro il concetto?
Ciao, Carlo


text:
"Il cugino da casa" <
he...@virgilio.it
> ha scritto nel messaggio
news:vEht7.107148$dJ3.7...@news1.tin.it...

Mi spiace, ma credo di non poterti essere di aiuto... in ogni caso vedo che
sei capitato in mani sicuramente più esperte delle mie!
Ciao


text:
"Giacomo Ciani" <
giacom...@inwind.it
> ha scritto nel messaggio
news:9p4i0k$q4s$1...@nreadb.inwind.it...

Ciao, Giacomo. La tua risposta va bene usando l'autocomposizione. In questo
gli sei stato d'aiuto.
Nei post successivi si è capito che la maschera o meglio la combo non aveva
una colonna associata univoca. Ecco quindi il perchè delle
risposte...l'importante è dimostrare la volontà di collaborare. Tutto OK.
Ciao, Carlo


text:
"CarloCos" <
carloco...@libero.it
> ha scritto nel messaggio
news:Ackt7.7054$C15.1...@news.infostrada.it...

No vorrei avessi intuito nelle mie parole un risentimento che non c'era: non
solo non ho niente da ridire (ci mancherebbe!!) se dai una spiegazione più
esauriente della mia, ma sono anche ben contento di leggerla perche risulta
anche a me molto utile!
Quindi, come hai detto, tutto OK!
Ciao


text:
Ciao a tutti,
ringrazio innanzitutto entrambi per i consigli ed appena ho un secondo ci
provo, poi vi faccio sapere...
Grazie!
Paolo


title: Decimali in una Casella Combinata

author: Sigest

text:
Ciao a tutti i N.G.
Una casella  combinata caricata con una una query
riporta il prezzo in  ?uro.
L'elenco  della casella combinata  viene automaticamente arrotondato alla
cifra intera
e possibile visuallizzare il contenuto in formato numerico .
Grazie a tutti


title: Decimali in una Casella Combinata

author: Potone

text:
"Sigest" <
sige...@tin.it
> ha scritto nel messaggio news:7Zi29.171460$vm5.5...@news2.tin.it...

imposta la proprietą formato della combo su Standard (o addirittura nullo) e la proprietą Posizioni decimali su Automatiche oppure
il formato Fisso e specifica il numero di decimali che vuoi vedere (2 per es) ma verranno troncati i decimali in eccesso.
Matteo


title: Decimali in una Casella Combinata

text:
"Sigest" <
sige...@tin.it
> ha scritto nel messaggio
news:7Zi29.171460$vm5.5...@news2.tin.it...

Certo che è possibile.
Sia la query che la casella combinata devono avere nelleproprietà del
controllo/campo il formato impostato su "Standard" e la posizione decimale
su 2.
Ciao, Carlo


title: Decimali in una Casella Combinata

author: Antonio Ganci

text:

Ho avuto lo stesso problema, la query deve essere salvata nell'elenco delle
query
e non ci deve essere l'SQL nell'origine dati della casella combinata.
Dopodiché nell'editor delle query imposti il formato del campo ad esempio a:
#.##0,00;-#.##0,00;"";""
e la casella combinata ti mostrerà il contenuto nel formato corretto.


title: Decimali in una Casella Combinata

author: Fabio

text:
"Sigest" <
sige...@tin.it
> ha scritto nel messaggio
news:7Zi29.171460$vm5.5...@news2.tin.it...

Nelle proprietà della casella combinata metti:
Formato=Standard
Posizioni Decimali=Automatiche


title: Decimali in una Casella Combinata

author: Massimiliano Amendola  kksrl

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:aid9cn$sej$1...@newsreader.mailgate.org...

Confermo, io addirittura sui tre campi che mostra ci ho impostato il testo
"Finito", "da ordinare" "sottoscorta" ecc.
L'unica cosa che mi sarebbe piaciuta ma non credo lo faccia e colorarne il
valore.
ciao MAssimiliano


title: Decimali in una Casella Combinata

text:
> Confermo, io addirittura sui tre campi che mostra ci ho impostato il testo
> "Finito", "da ordinare" "sottoscorta" ecc.
> L'unica cosa che mi sarebbe piaciuta ma non credo lo faccia e colorarne il
> valore.
> ciao MAssimiliano
>
Potresti creare un campo numerico intero lungo con il seguente formato:
[Verde]"Finito";[Rosso]"Da ordinare";[Blu]"Sottoscorta"
Se è > 0 ti scrive finito in verde
Se è < 0 ti scrive Da ordinare in rosso
Se è = 0 ti scrive sottoscorta in blue
Quindi basta che fai corrispondere ai tre casi altrettanti valori numerici e
il gioco è fatto.
Ciao.


title: Decimali in una Casella Combinata

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:aidf9f$16q$1...@newsreader.mailgate.org...

Ci avevo già provato, ma non funzia. Io uso solo A97.
ciao MAssimiliano


title: Decimali in una Casella Combinata

author: Roberto da casa

text:
"Massimiliano Amendola kksrl" <
massimilia...@kksrl.com
> ha scritto
nel messaggio news:aidp4u$8cs$1...@atlantis.cu.mi.it...

Anche io uso solo A97 e a me ha sempre funzionato; è l'unica formattazione
condizionale di A97.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Pannello dei Comandi

text:
Buongiorno a tutti,
vorrei chidervi una cosa.
Ho creato un pannello dei comandi (utilità database/gestore pannelli
comandi) per interargire con le maschere,ecc..e l'ho messo all'avvio
del mio database
non ho però capito come poter cambiare lo sfondo al pannello, visto
che nella finestra per costruire il pannello non c'è nessuna voce in
merito :(
grazie mille,
fra


title: Pannello dei Comandi

text:
"FraU2" <
acht...@supereva.it
> ha scritto nel messaggio
news:7899227e.0408...@posting.google.com...

Gli esperti di Access sconsigliano l'uso di immagini come sfondo delle
maschere.
Selezionare il "Corpo" della maschera e dal menù Inserisci scegliere
"Immagine..." permette di utilizzare una immagine come sfondo (magari
posizionandola "sotto" i controlli) ma questo può portare via molte risorse
grafiche al sistema operativo.
Vedi un po' tu.
Ciao, Carlo


title: Pannello dei Comandi

text:
"Carlo Costarella" ha scritto:
> Gli esperti di Access sconsigliano l'uso di immagini come sfondo delle
> maschere.
> Selezionare il "Corpo" della maschera e dal menů Inserisci scegliere
> "Immagine..." permette di utilizzare una immagine come sfondo (magari
> posizionandola "sotto" i controlli) ma questo puň portare via molte risorse
> grafiche al sistema operativo.
>
> Vedi un po' tu.
azz.. č come sospettavo.
Purtroppo il tizio che vuole questo programma, non gradisce quei colori
e quindi.. :)
Senti un'altra cosa :) Ho provato a cambiare il nome della maschera,da
"prova" (č di default) a "Menů Principale".
Perň ho notato che questo nome resta per tutte le finestre del menů.
Ho provato a mettere nomi diversi per ogni finestra, ma lui lo cambia
a tutti.
Per caso č possibile metterne uno diverso per ogni pagina?
grazie mille :)
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Pannello dei Comandi

text:
CUT
> Senti un'altra cosa :) Ho provato a cambiare il nome della maschera,da
> "prova" (č di default) a "Menů Principale".
> Perň ho notato che questo nome resta per tutte le finestre del menů.
> Ho provato a mettere nomi diversi per ogni finestra, ma lui lo cambia
> a tutti.
> Per caso č possibile metterne uno diverso per ogni pagina?
>
> grazie mille :)
>
Hai provato a leggere cosa scrive Access nella tabella "Voci pannelli
comandi"?
Ad essere franco non uso una maschera del genere dal almeno 6 anni (1998) e,
se proprio non ci riesci, vedrň di andare a riprendere un vecchio db
(Access97) e capirci qualcosa.
Ciao, Carlo


title: Pannello dei Comandi

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:KaFWc.179891$5D1.8...@news4.tin.it...

Se ho ben capito Carlo, tu dici che si puň fare tranquillamente a meno del
pannello comandi e dela sua cavolo di tabella switchboard ?
In passato ho sudato sette camicie nel cercare di capire che tipo di
procedura ci fosse sotto a tutti i controlli e pulsanti che crea e
soprattutto la causa degli innumerevoli errori che mi dava una volta cercato
di modificare o eliminare tali controlli.
In sostanza come maschera pannello usi una semplice maschera non associata?


title: Pannello dei Comandi

text:
cut
> Se ho ben capito Carlo, tu dici che si può fare tranquillamente a meno del
> pannello comandi e dela sua cavolo di tabella switchboard ?
> In passato ho sudato sette camicie nel cercare di capire che tipo di
> procedura ci fosse sotto a tutti i controlli e pulsanti che crea e
> soprattutto la causa degli innumerevoli errori che mi dava una volta
cercato
> di modificare o eliminare tali controlli.
> In sostanza come maschera pannello usi una semplice maschera non
associata?
>
>
Certo che se ne può fare a meno.
In genere, anzi sempre, uso una maschera Non associata che chiamo Apertura.
Su questa maschera sistemo tutti i pulsanti che voglio e che compino tutte
le operazioni necessarie.
Un esempio di maschera di apertura in un mio programma la puoi trovare qui:
http://www.gestionefrantoio.it/Frantoio/DEMO.htm
oppure qui:
http://www.gestionefrantoio.it/nintefac.htm
Ciao, Carlo


title: Pannello dei Comandi

author: MA

text:
"Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto
nel messaggio
news:Me0Xc.146433$OR2.7...@news3.tin.it...
> cut
> > Se ho ben capito Carlo, tu dici che si può
fare tranquillamente a meno del
> > pannello comandi e dela sua cavolo di tabella
switchboard ?
> > In passato ho sudato sette camicie nel cercare
di capire che tipo di
> > procedura ci fosse sotto a tutti i controlli e
pulsanti che crea e
> > soprattutto la causa degli innumerevoli errori
che mi dava una volta
> cercato
> > di modificare o eliminare tali controlli.
> > In sostanza come maschera pannello usi una
semplice maschera non
> associata?
> >
> >
> Certo che se ne può fare a meno.
> In genere, anzi sempre, uso una maschera Non
associata che chiamo Apertura.
> Su questa maschera sistemo tutti i pulsanti che
voglio e che compino tutte
> le operazioni necessarie.
>
> oppure qui:
>
http://www.gestionefrantoio.it/nintefac.htm
Sì Carlo, ho provato a premere tutti i pulsanti di
questo "Pannello Comandi", ma non funziona
nulla...
;-P
MAssimiliano


title: Pannello dei Comandi

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:Nu0Xc.12063$B06....@news.edisontel.com...

In effetti io volevo un po' di extravergine per l'insalata ... ma l'ho
dovuta mangiare scondita ...a parte gli scherzi xè non costituiamo una
attività di importazione parallela?
io offro ehm...polenta, e cotoletta alla milanese ...
grazie cmq carlo!


title: Pannello dei Comandi

author: Carlo Costarella

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:Nu0Xc.12063$B06....@news.edisontel.com...

Avresti dovuto spremere i pulsanti...
A parte gli scherzi l'interfaccia stile outlook è qualchecosa...nevvero?
Ciao, Carlo


title: Pannello dei Comandi

text:
"Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto
nel messaggio
news:C53Xc.147344$OR2.7...@news3.tin.it...

Sì è molto carina, ne ha fatta una simile Silvio
Savoldi, la dovresti trovare sul sito di @Alex
MAssimiliano


title: Pannello dei Comandi

text:
cut
>
>
> In effetti io volevo un po' di extravergine per l'insalata ... ma l'ho
> dovuta mangiare scondita ...a parte gli scherzi xè non costituiamo una
> attività di importazione parallela?
> io offro ehm...polenta, e cotoletta alla milanese ...
>
>
> grazie cmq carlo!
>
Prego.
Un link per preferire l'olio extra vergine all'olio di semi:
http://www.benessere.com/alimentazione/alimenti/oliva5.htm
Ciao, Carlo


title: Pannello dei Comandi

text:
Cut
> Sě č molto carina, ne ha fatta una simile Silvio
> Savoldi, la dovresti trovare sul sito di @Alex
> MAssimiliano
>
Sono molte le imitazioni...ma una č l'originale.
Ciao, Carlo


title: Pannello dei Comandi

text:
"Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto
nel messaggio
news:u24Xc.147747$OR2.7...@news3.tin.it...

Sě quella di oulook... ;-P
MAssimiliano


title: Pannello dei Comandi

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio
news:iOfXc.12229$B06....@news.edisontel.com...

Perchč, secondo te chi l'ha passata a Bill?
Vedi che se ci rifletti trovi sempre la risposta!
Te lo dicevo io: prima di parlare rifletti.
Ciao, Carlo


title: Query di tipo UNION con campi Memo

author: Maurizio Coffinardi

text:
Con Access 2000 su un sistema Windows 98 ho creato in un database una query
di tipo UNION che semplicemente unisce due query SELECT.
Le 2 query SELECT fanno uso di un campo di tipo memo.
Non ho avuto nessun problema con l'utilizzo di questa UNION finchè ho
trasferito il mio database su un sistema Windows 2000 professional.
Su questo sistema, quando provo ad eseguire la query, ho il seguente errore:
"Impossibile utilizzare il campo memo, OLE o oggetto collegamento
ipertestuale <nome del campo> nella clausola SELECT di una query di unione"
Ho provato ad utilizzare questa query su un PC con Windows ME e tutto
funziona benissimo.
Qualcuno conosce questo problema?
Esistono degli appositi aggiornamenti o patches per Access 2000 o per Win
2000?
Tengo a precisare che l'errore che viene dato non è generato da una stesura
errata del codice SQL ma, a quanto pare, di una violazione di una regola
dettata direttamente dal motore database (nel mio caso Jet 4.0)
Grazie a tutti
Maurizio


title: Query di tipo UNION con campi Memo

text:
Trovata la risposta sull'MSDN di Microsoft all'indirizzo:
http://support.microsoft.com/support/kb/articles/Q208/9/26.ASP?LN=EN-US&SD=g
n&FR=0&qry=query%20UNION&rnk=8&src=DHCS_MSPSS_gn_SRCH&SPR=ACC2000
Ciao
"Maurizio Coffinardi" <
coffi...@secoges.com
> ha scritto nel messaggio
news:Zv2n7.22784$ul3.7...@news.infostrada.it...



title: copiare una stringa negli appunti

author: Domenico Odetti

text:
Devo bisogno di costruire una stringa tramite sql un po' complessi e poi
dovrei poter usare il risultato in altre applicazioni: corel, pm6, word
.. ecc. per cui immagino che la soluzione più semplice sia copiare la
stringa negli appunti ed incollarla dove mi serve successivamente.
Spero che qualcuno mi possa aiutare, grazie
domenico


title: copiare una stringa negli appunti


title: copiare una stringa negli appunti

author: Sergio MAZZA

text:
"Domenico Odetti" <
ode...@libero.it
> ha scritto nel messaggio
news:3A5B4267...@libero.it...

Che significa quello che hai scritto? Hai provato a rileggerlo?
Non capisco cosa centra corel draw o pm6 (chi è costui?) con sql . Posso
capire word per una "stampa unione", per il resto è buio pesto.
E la ciliegina è il fatto che vuoi copiare negli appunti la stringa sql
costruita sempre per utilizzarla con i programmi che hai elencato
aggiungendoci pure l'ecc. come per indicare una lista infinita di programmi.
Sii più chiaro nell'esporre il problema che forse ottieni una risposta...
Ciao.


title: copiare una stringa negli appunti

author: Alessandro Cara

text:

Per quanto riguarda Word e' possibile interagire direttamente attraverso
l'oggetto Word.application. Per quanto riguarda gli altri due non so se
sono compatibili con il modello a oggetti della MS.
Per quando riguarda la gestione degli Appunti (ClipBoard) e' possibile
dall'interno di access eseguire in automatico la scrittura o la lettura.
E necessario scomodare circa una decina di Windows API.
Informazioni su ambedue le cose (con esempi e files di prova) sono
allegati al volume Access 97 (o 2000) Developer's Handbook della SYBEX
(costo intorno ai 170K)
--
Alessandro Cara


title: copiare una stringa negli appunti

author: Rolando Vonlanthen

text:
Domenico Odetti ha scritto nel messaggio <
3A5B4267...@libero.it
>...

Ciao Domenico
Per spedire i dati negli appunti guarda sotto il seguente link:
http://support.microsoft.com/support/kb/articles/Q210/2/16.asp
Saluti
Rolando


title: copiare una stringa negli appunti

author: Ken Getz

text:
I apologize for my English -- I don't speak Italian. Access 2000
Developer's Handbook, Volume I, is now available in Italian. Just
wanted to point that out. -- Ken
In article <
3A5CADDE...@blunet.it
>,

Sent via Deja.com
http://www.deja.com/


title: copiare una stringa negli appunti

text:
Ken Getz wrote:
>
> I apologize for my English -- I don't speak Italian. Access 2000
> Developer's Handbook, Volume I, is now available in Italian. Just
> wanted to point that out. -- Ken
>
I am very proud of your attention. I beg you pardon of my bad english.
Ken Getz e' insieme a Paul Litwin e Mike Gilbert autore del libro
citato.
--
Alessandro Cara


title: copiare una stringa negli appunti

text:
Ken Getz ha scritto:
>
> I apologize for my English -- I don't speak Italian. Access 2000
> Developer's Handbook, Volume I, is now available in Italian. Just
> wanted to point that out. -- Ken
>
Pero' scrive prima della citazione. Caro F. Luciani manda un [INFO]
personalizzata
A. Cara


title: copiare una stringa negli appunti

text:
I promise, your English is far better than my Italian! Thanks -- Ken
In article <
3A5DAF6E...@blunet.it
>,




title: copiare una stringa negli appunti

author: Karl Donaubauer

text:
Ken Getz ha scritto:
> I apologize for my English -- I don't speak Italian. Access 2000
> Developer's Handbook, Volume I, is now available in Italian. Just
> wanted to point that out.
So do you finaly also plan a German translation as the market
is even much bigger?
You'll not remember but I suggested a German translation to you
at the MVP summit in Sep 99 (!).  :-)
*****
Solo chiamo se ci sara finalmente anche una traduzione tedescha
del suo grande libro.
--
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: copiare una stringa negli appunti

text:
Alessandro Cara ha scritto:

Credo che non convincerai un veterano del Usenet e soppratutto
Americano come Ken di questo modo.
Anche io preferisco di scrivere prima della citazione ma negli
newsgroup inglesi la maggioranza scrive soppra della citazione
traditionalmente.
--
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: copiare una stringa negli appunti

author: Federico Luciani

text:

Fare un cazziatone a Getz e' il massimo :-)
cmq, in molti ng americani usano rispondere cosi', che ci vuoi fare
--
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: copiare una stringa negli appunti

text:
Alessandro Cara wrote:
> Pero' scrive prima della citazione. Caro F. Luciani manda un [INFO]
> personalizzata
> A. Cara
Fare un cazziatone a Getz e' il massimo :-)
cmq, in molti ng americani usano rispondere cosi', che ci vuoi fare
--
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
--------X-Mozilla-Status: 0009--------


title: copiare una stringa negli appunti

text:
I hesitate to continue an english discussion in an Italian newsgroup
(it is somewhat rude, and I apologize for starting it), but we have no
control over the translations. It is the foreign offices that decide
these things. I thought there was a German version, but apparently
not. -- Ken
In article <uWB76.349267$
Bq.14...@news.chello.at
>,




title: Smalldatetime problema

author: Yachi

text:
Ho un piccolo problemino, ho importato dei dati da Access XP a MS SQL
Server 2000; dopo la fase di importazione ho una piccola incongruenza.
Il tipo data in Ms Sql Server 2000 è Smalldatetime con lunghezza 4. In
fase di importazione mi tonca i secondi portandomeli a 00. Per cui
12/08/2002 18.36.33 diventa 12/08/2002 18.36.00.
Come posso fare in modo che in fase di importazione mi conservi anche
i secondi??
Grazie


title: Smalldatetime problema

text:
"Yachi" <
ya...@pointel.it
> ha scritto nel messaggio
news:setumuc4ir50mhleu...@4ax.com...

C'è anche datetime e non solo smalldatetime. Non mi ricordo se in fase di
importazione sceglie lui questo formato o se puoi intervenire tu, comunque
se non potessi fai un ciclo che ti importa i dati dopo aver cambiato il tipo
campo.
Ciao, FABIO


title: grafico pivot settimana

author: giorgio

text:
In un grafico pivot è possibile rappresentare i dati per weeks, ma l'inizio
della settimana parte da domenica . E' possibile cambiare il giorno e
partire da lunedi?
grazie


title: Importare alcuni dati da file

author: ziopilvio

text:
Ciao a tutti,
dovrei importare dei dati da un file (un db proprietario) che non ha una
struttura logica.
Avrei bisogno di aprire il file (circa 3,5 mb), ricercare la posizione di
una determinata stringa e poi importare dei dati dalla posizione x alla y
(poi me li seziono e gli importo nei campi giusti).
Non so come fare ad individuare la posizione della stringa. Qualche idea?
ziopilvio


title: Importare alcuni dati da file

author: Marco Pizzamiglio

text:
ziopilvio ha scritto:

Importi l'intero file in una variabile stringa e usi le funzioni di
manipolazione delle stringhe per prenderti i pezzi che vuoi.
Vedi Instr(), Mid$(), ecc...
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: Importare alcuni dati da file

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:foh93s$hbf$1...@news.newsland.it...
> ziopilvio ha scritto:
>
>> Ciao a tutti,
>> dovrei importare dei dati da un file (un db proprietario) che non ha una
>> struttura logica.
>> Avrei bisogno di aprire il file (circa 3,5 mb), ricercare la posizione di
>> una determinata stringa e poi importare dei dati dalla posizione x alla y
>> (poi me li seziono e gli importo nei campi giusti).
>> Non so come fare ad individuare la posizione della stringa. Qualche idea?
>> ziopilvio
>
>
> Importi l'intero file in una variabile stringa e usi le funzioni di
> manipolazione delle stringhe per prenderti i pezzi che vuoi.
> Vedi Instr(), Mid$(), ecc...
> Ciao.
> -Marco-
>
Buona idea! Ci provo.
Grazie
ziopilvio


title: Importare alcuni dati da file

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:foh93s$hbf$1...@news.newsland.it...
> ziopilvio ha scritto:
>
>> Ciao a tutti,
>> dovrei importare dei dati da un file (un db proprietario) che non ha una
>> struttura logica.
>> Avrei bisogno di aprire il file (circa 3,5 mb), ricercare la posizione di
>> una determinata stringa e poi importare dei dati dalla posizione x alla y
>> (poi me li seziono e gli importo nei campi giusti).
>> Non so come fare ad individuare la posizione della stringa. Qualche idea?
>> ziopilvio
>
>
> Importi l'intero file in una variabile stringa e usi le funzioni di
> manipolazione delle stringhe per prenderti i pezzi che vuoi.
> Vedi Instr(), Mid$(), ecc...
> Ciao.
> -Marco-
C'ho provato, ma non riesco ad importare il file completamente in una
stringa.
Anche volendo caricarlo su più stringhe mi da errore alla terza: dice che il
file è finito.
Ma le prime due sono lunghe 15656 e 15524.
Ci devono essere dei caratteri che interrompono l'input.
Io ho scritto così:
Dim Ana(3) As String, X As Byte, Lungh As String, MyPos As Integer
    Open "F:\CONTA\CopiaANACF" For Input Access Read As #1 ' Apre il file
per l'input.
    For X = 1 To 3
        Line Input #1, Ana(X)
        Lungh = Lungh & "- " & Len(Ana(X))
    Next X
    MsgBox Lungh
    Close #1
Come posso rimediare?
ziopilvio


title: Importare alcuni dati da file

text:
ziopilvio ha scritto:
> >> Ciao a tutti,
> >> dovrei importare dei dati da un file (un db proprietario) che non ha una
> >> struttura logica.
> >> Avrei bisogno di aprire il file (circa 3,5 mb), ricercare la posizione di
> >> una determinata stringa e poi importare dei dati dalla posizione x alla y
> >> (poi me li seziono e gli importo nei campi giusti).
> >> Non so come fare ad individuare la posizione della stringa. Qualche idea?
> >> ziopilvio
> > Importi l'intero file in una variabile stringa e usi le funzioni di
> > manipolazione delle stringhe per prenderti i pezzi che vuoi.
> > Vedi Instr(), Mid$(), ecc...
> > Ciao.
> > -Marco-
> C'ho provato, ma non riesco ad importare il file completamente in una
> stringa.
> Anche volendo caricarlo su più stringhe mi da errore alla terza: dice che il
> file è finito.
> Ma le prime due sono lunghe 15656 e 15524.
> Ci devono essere dei caratteri che interrompono l'input.
> Io ho scritto così:
> Dim Ana(3) As String, X As Byte, Lungh As String, MyPos As Integer
>     Open "F:CONTACopiaANACF" For Input Access Read As #1 ' Apre il file
> per l'input.
>     For X = 1 To 3
>         Line Input #1, Ana(X)
>         Lungh = Lungh & "- " & Len(Ana(X))
>     Next X
>     MsgBox Lungh
>     Close #1
> Come posso rimediare?
> ziopilvio
Questo funziona, ho importato in uva variabile stringa un file da 50 Mb.
Per file grossi è un po' lento, ma semplice e funzionante. Per 3,5Mb
dovrebbe stare pochi secondi a leggere il flusso.
Dim ch As String * 32767, buffer As String
buffer = ""
Open "<file>" For Binary Access Read As #1 Len = 32767 ' Apre il file
While Not EOF(1)
    Get 1, , ch
    buffer = buffer & ch
Wend
debug.print len(buffer)
Close #1



title: Importare alcuni dati da file

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:fop6ah$s9u$1...@news.newsland.it...

Caro Marco, non so come ringraziarti. Funziona alla grande!
A buon rendere.
ziopilvio


title: Mde e dintorni

author: Fabiuz

text:
Ho una maschera che in base a delle query crea tramite delle function
un'altra maschera di gestione utile alla attività che deve svolgere
l'applicativo. la maschera creata dalla function non può essere per
qualsiasi motivo ad una maschera diciamo statica.
Con il file mdb funziona
tutto alla perfezione, ma purtroppo con il file mde non funziona più nulla
(Infatti nel file mde non è possibile rimuovere o modificare le maschere
neanche da codice!) Come posso proteggere l'applicativo?
Datemi un idea
Grazie Fabiuz
--------------------------------
Inviato via
http://usenet.iol.it


title: VBA creare oggetto casella combinata

text:
Ciao a tutti, è possibile creare una casella combinata oppure un
qualsiasi oggetto di una maschera tramite VBA.
Ho bisogno di creare N° caselle combinate da popolare in posizioni
precise.
Grazie, ciao


title: VBA creare oggetto casella combinata

text:
HIPPO52 wrote:
> Ciao a tutti, è possibile creare una casella combinata oppure un
> qualsiasi oggetto di una maschera tramite VBA.
Sì, è possibile con il metodo "CreateControl", vedi <F1>,
ma solo in vis. struttura della maschera.
> Ho bisogno di creare N° caselle combinate da popolare in posizioni
> precise.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Errore To few parameter Exepected 2

author: xpcax

text:
Gentilmente qualcuno saprebbe spiegarmi il  motivo per il quale
se cerco di generare un recordset con una query parametrizzata
Set rst = DB.OpenRecordset("qry_new")
ottengo il messaggio di errore To few parameter Exepected xx
La query è molto parametrizzata e per questo non vorrei passarla come
stringa. Esiste questa possibilità?
Grazie per l'attenzione
Carlo Ve


title: Errore To few parameter Exepected 2

author: Alessandro

text:
"xpcax" <
xp...@libero.it
> wrote in message
news:K4j88.33161$nI1.9...@twister1.libero.it...

Se hai dei parametri devi utilizzare l'oggetto QueryDefs e i
relativi Parameters per aprire il Recordset.
Sul SC c'è un ottimo esempio.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Errore To few parameter Exepected 2

text:
Tenchiu
Carlo Ve


title: maschere

author: Revelli Luca

text:
Nel database che sto creando, avrò una serie abbastanza numerosa di
maschere.
Ora in queste maschere avrò una serie di bottoni di comando, simili in tutte
le maschere, esempio stampa, elimina, salva eccetera.
Esiste un sistema per non dover tutte le volte reinserire tutti i singoli
bottini di comando uno ad uno e dirgli cosa devono fare?
Anche perchè vorrei che le maschere avessero una umpostazione simile l'una
alle altre, come posso fare.
Ho provato con il copia ed incolla, ma copia solo i bottoni e non i comandi,
come fare?
Grazie a chi mi vorrà rispondere
Luca


title: maschere

author: Gianluca

text:
"Revelli Luca" <
stdre...@activenetwork.it
> ha scritto nel messaggio
news:E%0p8.319$47.1...@news.edisontel.com...

Creati una sottomaschera contenente i soli pulsanti con tutto il codice che
ti serve per farli fungere. così la puoi inserire in tutte le maschere che
vuoi!


title: maschere

author: Bitte°

text:
"Revelli Luca" <
stdre...@activenetwork.it
> ha scritto nel messaggio
news:E%0p8.319$47.1...@news.edisontel.com...

Copia "tutta" la maschera dal menu pricipale..  e poi cambi quello che ti
serve..


title: maschere

author: Emyr

text:


piccolo esempio questa la metti su un modulo
Function tastosuccessivo()
' consente di passare alla voce successiva
On Error GoTo Err_tastosuccessivo_Click
    Dim formCorrente As Form
    Set formCorrente = Screen.ActiveForm
    DoCmd.GoToRecord , , acNext
formCorrente.Controls(formCorrente.primocontrollo.Caption).SetFocus
Exit_tastosuccessivo_Click:
    Exit Function
Err_tastosuccessivo_Click:
 '   MsgBox Err.Description
    Resume Exit_tastosuccessivo_Click
End Function
poi metti =tastosuccessivo sull'evento click del relativo pulsante
Saluti.
Emanuele.


title: trascinare file su form access e acquisire il file (drag & drop)

author: mario rossi

text:
buongiorno a tutti, qualcuno sa se è possibile trascinare con mouse un file su una form access e quando viene rilasciato il pulsante del mouse il file venga copiato in una determinata cartella

grazie.


text:
Il giorno lunedì 17 ottobre 2022 alle 14:42:39 UTC+2
tmtu...@gmail.com
 ha scritto:
> buongiorno a tutti, qualcuno sa se è possibile trascinare con mouse un file su una form access e quando viene rilasciato il pulsante del mouse il file venga copiato in una determinata cartella
>
>
> grazie.

Si ma lascia perdere queste idee così strampalate... per farla serve del "manico", e se uno è capace di farlo sa che non è una cosa da fare con Access...!
Fai cose semplici, usa il FileDialog ed in 2 secondi si fa con 4 righe di codice.

@Alex


text:
Il giorno lunedì 17 ottobre 2022 alle 14:42:39 UTC+2 mario rossi ha scritto:
> buongiorno a tutti, qualcuno sa se è possibile trascinare con mouse un file su una form access e quando viene rilasciato il pulsante del mouse il file venga copiato in una determinata cartella
>
>
> grazie.

da questo articolo ho capito che si può simulare trascinando il file su un campo ipertestuale
https://answers.microsoft.com/it-it/msoffice/forum/all/drag-drop-in-access/4b8a1a11-e76f-48e6-b1b5-88b609563d39


text:

Lo ritengo NON SODDISFACENTE, ma è soggettivo, io poi odio i campi di tipo HyperLink... e quando li usi capisci perchè.

Se ti vuoi fare del male vai quì(i demo non funzionano tutti ma uno funziona bene):
https://www.utteraccess.com/topics/1973842

Questo funziona:
https://www.utteraccess.com/attachments/73262

Fai attenzione che, per realizzarlo hanno aperto un Hook, quindi sappi che una volta lanciato, non puoi più accedere all'IDE, quindi devi chiudere Access e riaprire.
Devi anche gestire le API con il PTRSAFE ed eventualmente il passaggio al 64Bit...

@Alex


author: BFS

text:
Il 17/10/2022 14:42, mario rossi ha scritto:
> buongiorno a tutti, qualcuno sa se è possibile trascinare con mouse un file su una form access e quando viene rilasciato il pulsante del mouse il file venga copiato in una determinata cartella
>
>
> grazie.

Ni

quando usavo MS Access anche sui tablet mi avevano chiesto tale funzione
per forza in una App, dove dovevano trascinare un file per caricarlo nei
parametri della app stessa. Non volevano il classico "sfoglia" perchè a
loro dire avrebbe potuto generare errori da parte dei "primati" che
dovevano usare l'app

avevo risolto usando la dll di questo tizio
https://github.com/krishKM/Modern-UI-Components-for-VBA

fa il suo dovere se ci si accontenta

BFS


text:

ho cliccato sul tuo link con scritto questo funziona ma esce questa stringa:
{"type":"
https://tools.ietf.org/html/rfc7235#section-3.1
","title":"Unauthorized","status":401,"traceId":"|53b6d501-48e55051001f5c0a."}

what is this?


title: Stampare solo record corrente, help

author: JoeBlack®

text:
Non riesco a trovare un modo semplice per poter riuscire a stampare solo il
record che ho attualmente in maschera, infatti se con un pulsante richiamo
il report, questi se ci sono 1500 record nella tabella (i cui dati vengono
immessi dalla maschera sopra) me li stampa tutti, io invece vorrei solo
stampare quello che ho "corrente" in maschera.
Sono un niubbo, ho provato a cercare con google, ma trovo solo routine
avanzate che non riesco ad adattare al caso mio.
Help...
Grazie.


title: Stampare solo record corrente, help

author: sv

text:
JoeBlack® ha scritto:


> Help...
> Grazie.
Nella query di origine del report metti come criterio l'IdRecord della
maschera.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Stampare solo record corrente, help

author: namor

text:
JoeBlack® ha scritto:

Devi usare il parametro "WHERE Condition" di openreport, passandogli il
filtro da applicare in fase di stampa. L'ideale sarebbe usare come filtro
la chiave primaria della tabella che è origine dati del report.
esempio:
DoCmd.OpenReport "Clienti", acviewpreview, , "IDcliente=" & me.IDcliente
Namor
--
namor at inwind punto it



title: esplosione dei sottocodici (mshflexgrid???)

author: goose

text:
Un saluto a tutto il NG.
Posto il seguente quesito, in riferimento a quello di Beppe del 1° febbraio.
Leggendolo mi sono accorto che nel mio mai tanto osannato db avevo
inavvertitamente (eheheheh) dimenticato di affrontare il discorso di come
esplodere le liste parti di prodotti, quando queste contenevano altri
sottoassiemi, e questi altri ancora, nel caso in cui si renda necessario
l'elenco dei componenti del prodotto posto gerarchicamente a capo
dell'albero (elenco inserito in una tabella o in una query, penso che non
faccia differenza).
Il buon Beppe e il buon Luciano (Doc) hanno parlato di mshflexgrid. Ho
trovato qualcosa su MSDN, ma non saprei come utilizzarlo.
Tenete conto che riuscire ad esplodere tre livelli gerarchici può risultarmi
abbastanza soddisfacente.
Mi riuscite a dare qualche consiglio?
Un grazie
Goose


title: A2K - Invio report come allegato

author: Paolo Cereda

text:
Ciao a tutti ho un problema con l'invio degli allegati.
Da un report con il tasto destro premo su INVIA A
dopo avere selezionato "Destinatario posta elettronica" nella
norma dovrei poter scegliere il formato con cui inviare l'allegato
ma purtroppo il sistema si blocca segnalando il seguente errore:
Impossibile aprire la sessione di posta elettronica.
Controllare che l'applicazione di posta elettronica stia
funzionando correttamente.
La posta in realtà funziona benissimo (è predefinito Microsoft
Outlook e non Microsoft Outlook Express).
Ho fatto alcune prove ma non riesco a capire se il problema è
di MsAccess oppure della posta.
Grazie
Paolo
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: A2K - Invio report come allegato

author: Karl Donaubauer

text:
Paolo Cereda wrote:
> Ciao a tutti ho un problema con l'invio degli allegati.
>
> Da un report con il tasto destro premo su INVIA A
> dopo avere selezionato "Destinatario posta elettronica" nella
> norma dovrei poter scegliere il formato con cui inviare l'allegato
> ma purtroppo il sistema si blocca segnalando il seguente errore:
>
> Impossibile aprire la sessione di posta elettronica.
> Controllare che l'applicazione di posta elettronica stia
> funzionando correttamente.
>
> La posta in realtà funziona benissimo (è predefinito Microsoft
> Outlook e non Microsoft Outlook Express).
>
> Ho fatto alcune prove ma non riesco a capire se il problema è
> di MsAccess oppure della posta.
Forse aiuta la FAQ 7.19 SendObject non funziona
sul sito indicato sotto.
--
HTH
Karl
*********
Access-FAQ
http://www.donkarl.com/it


title: Query: Eliminare carattere che si trova in una determinata posizione.

author: Zappus

text:
Salve a tutti,
da un db esterno importo una tabella con i seguenti campi:
Codice;Quantità;Prezzo.
il codice è formato Testo ed è del tipo: 01.001.002
Per farla breve con una query di accodamento questi dati vanno in una
tabella con gli stessi campi ma il Codice è del tipo: 01001.002.
Devo assolutamente mantenere questo secondo tipo per cui la necessità è di
eliminare dalla tabella che importo, il "." (punto) dopo il 01
Consigli?
Grazie Luca


author: Roberto da casa

text:
"Zappus" <
luca...@aliceposta.it
> ha scritto nel messaggio
news:43f76b47$0$12597$4faf...@reader3.news.tin.it...

Usa le funzioni Left e Mid (vedi help).
Insomma, se il campo nel formato 99.999.999 si chiama Codice, il codice
normalizzato lo puoi ottenere con:
Left([Codice], 2) & Mid([Codice], 4)
> Grazie
Prego
> Luca
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:rGKJf.183931$65.50...@twister1.libero.it...
>
> "Zappus" <
luca...@aliceposta.it
> ha scritto nel messaggio
> news:43f76b47$0$12597$4faf...@reader3.news.tin.it...
> > Salve a tutti,
> > da un db esterno importo una tabella con i seguenti campi:
> > Codice;Quantità;Prezzo.
> > il codice è formato Testo ed è del tipo: 01.001.002
> > Per farla breve con una query di accodamento questi dati vanno in una
> > tabella con gli stessi campi ma il Codice è del tipo: 01001.002.
> > Devo assolutamente mantenere questo secondo tipo per cui la necessità è
di
> > eliminare dalla tabella che importo, il "." (punto) dopo il 01
> > Consigli?
>
> Usa le funzioni Left e Mid (vedi help).
> Insomma, se il campo nel formato 99.999.999 si chiama Codice, il codice
> normalizzato lo puoi ottenere con:
>
> Left([Codice], 2) & Mid([Codice], 4)
>
> > Grazie
>
> Prego
>
> > Luca
>
> --
> Roberto
Grazie, funziona alla grande.
>
>


title: Requery di tutte maschere aperte

author: Riccardo

text:
Ciao a tutti,
avrei bisogno di effettuare da VBA un requery di tutte le maschere
aperte, come si fà cliccando sul pulsante "Aggiorna Tutto" (Access
2007). Si può adattare la funzione forms![nome maschera].requery per
tutte le maschere aperte?
Grazie
Saluti
Riccardo


title: Requery di tutte maschere aperte

author: Alessandro Baraldi

text:

Richiesta bizzarra a mio avviso....
In ogni caso prova a vedere che ti ritrovi nella Collection Forms...
Dim frm as Access.Form
For each frm in Forms
    frm.Requery
Next
Leggendo l'Help mi pare che possa fare al caso tuo, ma ti suggerisco
di non fidarti mai... e di leggere personalmente.
;-)
@Alex


title: verificare se un file è aperto

author: sergio cosso

text:
Uso la seguente funzione per verificare se un qualsiasi file è aperto:
'================================================
Function FileIsOpen(sFileSpec As String) As Boolean
On Error GoTo FileIsOpen_error
'Verifica se un file è aperto e restituisce Vero o Falso.
'sFileSpec è il path completo del file
    On Error Resume Next
    If IsNothing(sFileSpec) Or sFileSpec = vbNullString Then
        FileIsOpen = False
        Exit Function
    End If
    Dim nFile As Integer
    nFile = FreeFile(0)
    Open sFileSpec For Binary Lock Read As #nFile
    'Open sFileSpec For Output As #nFile
    FileIsOpen = Err <> 0
    Close #nFile
FileIsOpen_exit:
Exit Function
FileIsOpen_error:
MsgBox Err.Number & " - " & Err.Description
Resume FileIsOpen_exit
End Function
'================================================
Il problema è che NON funziona con file immagine tipo jpg,
bmp......ecc
Qualcuno mi può aiutare?
Grazie


title: verificare se un file è aperto

author: Alessandro Cara

text:
Il 05/08/2011 16.49, sergio cosso ha scritto:
> Uso la seguente funzione per verificare se un qualsiasi file � aperto:
[cut]....di funzione
>
> Il problema � che NON funziona con file immagine tipo jpg,
> bmp......ecc
>
> Qualcuno mi pu� aiutare?
Curiosita' come hai fatto a verificare che, quei file, fossero
effettivamanet aperti?
--
ac (x=y-1)


title: verificare se un file è aperto

author: Geppo

text:
Ciao "sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
news:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
>Uso la seguente funzione per verificare se un qualsiasi file � aperto:
>'================================================
>Function FileIsOpen(sFileSpec As String) As Boolean
>On Error GoTo FileIsOpen_error
>'Verifica se un file � aperto e restituisce Vero o Falso.
>'sFileSpec � il path completo del file
>    On Error Resume Next
>    If IsNothing(sFileSpec) Or sFileSpec = vbNullString Then
Posta anche la funzione "IsNothing".
--
Ciao
Geppo


title: verificare se un file è aperto

author: Carlo Costarella

text:
"sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
news:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
Uso la seguente funzione per verificare se un qualsiasi file � aperto:
'cut
Questa funzione a me va bene per qualunque file:
Function FileIsOpen(sFileName As String) As Boolean
    Dim iFileNum As Integer, lErrNum As Long
    On Error Resume Next
    iFileNum = FreeFile()
    Open sFileName For Input Lock Read As #iFileNum
    Close iFileNum
    lErrNum = Err.Number
    On Error GoTo 0
    Select Case lErrNum
    Case 0
        FileIsOpen = False
    Case 70
        FileIsOpen = True
    Case 53
        FileIsOpen = False
    Case Else
        FileIsOpen = True
        'Debug.Print Error(lErrNum)
    End Select
End Function
Restituisce False se il file NON � aperto.
Ciao, Carlo


title: verificare se un file è aperto

text:
Ciao "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:j1hhrb$lor$1...@tdi.cu.mi.it...
>
> "sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
> news:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
> Uso la seguente funzione per verificare se un qualsiasi file � aperto:
>
> 'cut
> Questa funzione a me va bene per qualunque file:
Hai provato anche con i file ".txt"?
--
Ciao
Geppo


title: verificare se un file è aperto

text:

La questione puo' non essere questa.
Non vedo per quale motivo un qualsiasi gestore di file grafici o meno li
debba tenere aperti. ;-{)
Io personalmente, se lo dovessi gestire, il file grafico intendo, lo
leggo, lo chiudo , lo elaboro in memoria e poi.... eventualmente lo
riscrivo, in genere anche avvisando in caso di overscrittura.
Insomma se trovo un file immagine aperto e' puro.... fortuna va ;-{)
E questo puo' succedere anche con i files di testo o qualsiasi tipo di file.
Classico problema statefull/stateless
--
ac (x=y-1)


title: verificare se un file è aperto

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:j1jcs6$q24$1...@speranza.aioe.org...

S�, certo e funziona.
Scusa ma perch� me lo chiedi? Tu ci hai provato?
Ciao, Carlo


title: verificare se un file è aperto

text:
Ciao "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:j1jjmn$ul9$1...@tdi.cu.mi.it...
---cut---
> S�, certo e funziona.
> Scusa ma perch� me lo chiedi? Tu ci hai provato?
Si, su win7 pro 64 bit funziona tranne che con i file ".txt"....mah
> Ciao, Carlo
--
Ciao Geppo


title: verificare se un file è aperto

text:
........adesso mi sono accorto che non va neanche i file ".png". Ho provato
ad aprire il file con vari programmi, ma non va.
--
Ciao
Geppo


title: verificare se un file è aperto

text:
Ciao "Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel
messaggio news:D4b%p.58941$GZ3....@tornado.fastwebnet.it...
> Il 06/08/2011 14.42, Geppo ha scritto:
>> Ciao "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel
>> messaggio news:j1hhrb$lor$1...@tdi.cu.mi.it...
>>>
>>> "sergio cosso" <
sergio...@gmail.com
> ha scritto nel messaggio
>>> news:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
>>> Uso la seguente funzione per verificare se un qualsiasi file � aperto:
>>>
>>> 'cut
>>> Questa funzione a me va bene per qualunque file:
>>
>> Hai provato anche con i file ".txt"?
>>
> La questione puo' non essere questa.
> Non vedo per quale motivo un qualsiasi gestore di file grafici o meno li
> debba tenere aperti. ;-{)
> Io personalmente, se lo dovessi gestire.........
...ma tu sei uno in gamba, non tutti sono dei maestri. ;-)
--
Ciao
Geppo


title: verificare se un file è aperto

text:
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:j1jlmk$fgk$1...@speranza.aioe.org...

A me va che � una meraviglia. Windows 7 64bit. Windows XP sp3.
Potrebbe dipendere dalle autorizzazioni sulla cartella?
Prova con il percorso C:\User\NomeUtente\Pictures\NomeImmagine.png
Ciao, Carlo


title: verificare se un file è aperto

text:
Ciao "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:j1lijg$hcl$1...@tdi.cu.mi.it...

e si, effettivamente facendo come dici tu funziona, invece se avvio il file
dal desktop nisba, che strano....eppure sono utente administrator.
> Ciao, Carlo
grazie
--
Ciao
Geppo


title: verificare se un file è aperto

text:
On 5 Ago, 18:41, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao "sergio cosso" <
sergio.co...@gmail.com
> ha scritto nel messaggionews:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
>
> >Uso la seguente funzione per verificare se un qualsiasi file aperto:
> >'================================================
> >Function FileIsOpen(sFileSpec As String) As Boolean
> >On Error GoTo FileIsOpen_error
> >'Verifica se un file aperto e restituisce Vero o Falso.
> >'sFileSpec il path completo del file
> >    On Error Resume Next
> >    If IsNothing(sFileSpec) Or sFileSpec = vbNullString Then
>
> Posta anche la funzione "IsNothing".
>
> --
> Ciao
> Geppo
Ecco la funzione:
Public Function IsNothing(ByVal varValueToTest) As Integer
'-----------------------------------------------------------
' Does a "nothing" test based on data type.
'   Null = nothing
'   Empty = nothing
'   Number = 0 is nothing
'   String = "" is nothing
'   Date/Time is never nothing
' Inputs: A value to test for logical "nothing"
' Outputs: True = value passed is a logical "nothing", False = it
ain't
'-----------------------------------------------------------
Dim intSuccess As Integer
    On Error GoTo IsNothing_Err
    IsNothing = True
    Select Case varType(varValueToTest)
        Case 0      ' Empty
            GoTo IsNothing_Exit
        Case 1      ' Null
            GoTo IsNothing_Exit
        Case 2, 3, 4, 5, 6  ' Integer, Long, Single, Double, Currency
            If varValueToTest <> 0 Then IsNothing = False
        Case 7      ' Date / Time
            IsNothing = False
        Case 8      ' String
            If (Len(varValueToTest) <> 0 And varValueToTest <> " " And
varValueToTest <> vbNullString) Then IsNothing = False
    End Select
IsNothing_Exit:
    On Error GoTo 0
    Exit Function
IsNothing_Err:
    IsNothing = True
    Resume IsNothing_Exit
End Function
'==================
Grazie...ho sollevato un vespaio?
Sergio


title: verificare se un file è aperto

text:
On 6 Ago, 15:09, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 06/08/2011 14.42, Geppo ha scritto:> Ciao "Carlo Costarella" <
carlocoslib...@libero.it
> ha scritto nel
> > messaggionews:j1hhrb$lor$1...@tdi.cu.mi.it...
>
> >> "sergio cosso" <
sergio.co...@gmail.com
> ha scritto nel messaggio
> >>news:d1545e34-f210-40a3...@l7g2000vbz.googlegroups.com...
> >> Uso la seguente funzione per verificare se un qualsiasi file aperto:
>
> >> 'cut
> >> Questa funzione a me va bene per qualunque file:
>
> > Hai provato anche con i file ".txt"?
>
> La questione puo' non essere questa.
> Non vedo per quale motivo un qualsiasi gestore di file grafici o meno li
> debba tenere aperti. ;-{)
> Io personalmente, se lo dovessi gestire, il file grafico intendo, lo
> leggo, lo chiudo , lo elaboro in memoria e poi.... eventualmente lo
> riscrivo, in genere anche avvisando in caso di overscrittura.
> Insomma se trovo un file immagine aperto e' puro.... fortuna va ;-{)
> E questo puo' succedere anche con i files di testo o qualsiasi tipo di file.
> Classico problema statefull/stateless
>
> --
>
> ac (x=y-1)
Succede che, con il file .jpg, .bmp ecc..aperto, se voglio spostarlo
da VB semplicemente con ---Name nomevecchio As NomeNuovo---, mi
consente di farlo, ma mi ritrovo il file duplicato anzichè spostato.
Rilevando che il file è aperto blocco la routine.
Nel caso di file .txt succede che il file risulta duplicato, ma in
quello vecchio scompare il testo.........
Grazie, spero di essermi spiegato
Sergio


title: verificare se un file è aperto

text:
On 7 Ago, 14:42, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao "Carlo Costarella" <
carlocoslib...@libero.it
> ha scritto nel messaggionews:j1lijg$hcl$1...@tdi.cu.mi.it...

Niente, nel mio caso non funziona nemmeno con C:\User\NomeUtente
\Pictures\ con file .jpg e nemmeno con .txt.....
Ho postato in precedenza rispondendo a Geppo la function IsNothing
Ciao a tutti
Sergio


title: stampare report

author: HAL

text:
Ciao
se da una maschera vorei visualizzare il record corrente come fo'?
ho trovato questi due comandi ma non capisco come usarli....  :(
1)ApriReport
DoCmd.OpenReport nomereport [, visualizzazione][, nomefiltro][,
condizioneWHERE]
2)Stampa
DoCmd.PrintOut [intervallostampa][, dapagina, apagina][, qualitàstampa][,
copie][, fascicolacopie]
L'argomento intervallostampa viene definito con una delle seguenti costanti
intrinseche: acPrintAll, acSelection, acPages.
L'argomento qualitàstampa viene definito con una delle seguenti costanti
intrinseche: acDraft,
acHigh, acLow, acMedium.
L'argomento fascicolacopie può essere un valore True o False.
tutte info utili ma essendo newbie....per me e' arabo...


title: stampare report

author: Ferrari Rino

text:
"HAL" <
H...@2000.it
> ha scritto nel messaggio
news:mVboc.180796$Kc3.5...@twister2.libero.it...

Su evento click di un pulsante inserisci
    Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = "[IdDel Recor su tabella]= '" & Me![IdDel Recor su tua
maschera attiva] & "'"
    stDocName = "NomeTuo Report"
    DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
o ancora più semplice nel criterio Query del Report imposti PS:
se il tuo report ha un ID Identificativo "IDREPORT"
nella sezione criteri della Query  nel sezione  IDREPORT inserisci
Forms![Mian_Form]![IDREPORT] che non e altro che il parametro con cui
filtrare il report.
Ciao
Rino


title: Conteggio ore

author: Linus

text:
Ringrazio anticipatamente tutti coloro che mi
risponderanno e comincio ad esporre il quesito che mi attanaglia: non riesco a
fare la somma in ore, senza che Access li trasfoma in giorni quando la somma
delle ore supera le 23.59. Io vorrei che il campo che deve contenere questa
somma, deve darmi il risultato in ore (es. 100 ore 153 ore ecc.)senza
trasformalo in giorni(per giunta senza lasciare traccia dei giorni). La
risoluzione è importante per il lavoro ed ho anche una certa fretta . Vi
ringrazio e spero di avere risposta al + presto

ciao


title: Conteggio ore

author: Luciano (DOC)

text:
""Linus"" <
g.m...@tin.it
> wrote in message
news:000201c0c2a6$51354860$cff82dd5@linus...
Io vorrei che il campo che deve contenere questa somma, deve darmi il
risultato in ore (es. 100 ore 153 ore ecc.)senza trasformalo in giorni(per
giunta senza lasciare traccia dei giorni).
Trasforma in giorni in ore...numgiorni * 24.
Saluti.
Luciano
(DOC)


title: Somma dati mese per mese, piccolo aiuto

author: Reziel

text:
Salve a tutti,
chiedo il vostro aiuto perchč non riesco a fare la somma dei totali
suddivisa per mese, vi spiego meglio.
Hofatto un piccolo database per fare le fatture di vendita, ho creato una
query dove sono elencati tutti i totali di ogni fattura con relative voci
cliente, data fattura ecc. ed infine ho creato una semplice maschera che mi
visualizzi il tutto. A pič pagina ho scritto in una casella di testo:
"=Somma(TFatturaVen)" per visualizzare la somma delle fatture. Ora perņ se
voglio sommare solo quelle che riguardano il mese di gennaio oppure solo
quelle del mese di febbraio come posso fare?
Grazie mille in anticipo a chi risponderą!
Ciao a tutti e buon fine settimana!!


title: Somma dati mese per mese, piccolo aiuto

text:
"Reziel" <
jackbla...@yahoo.it
> ha scritto nel messaggio
news:BOwY9.45307$ZE.12...@twister2.libero.it...
> Salve a tutti,
> chiedo il vostro aiuto perchè non riesco a fare la somma dei totali
> suddivisa per mese, vi spiego meglio.
> Hofatto un piccolo database per fare le fatture di vendita, ho creato una
> query dove sono elencati tutti i totali di ogni fattura con relative voci
> cliente, data fattura ecc. ed infine ho creato una semplice maschera che
mi
> visualizzi il tutto. A piè pagina ho scritto in una casella di testo:
> "=Somma(TFatturaVen)" per visualizzare la somma delle fatture. Ora però se
> voglio sommare solo quelle che riguardano il mese di gennaio oppure solo
> quelle del mese di febbraio come posso fare?
> Grazie mille in anticipo a chi risponderà!
> Ciao a tutti e buon fine settimana!!
Non si capisce se vuoi filtrare la maschera per un determinato mese o se
vuoi visualizzare tutti i record ma effettuare la somma solo di quelli di un
determinato mese.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Somma dati mese per mese, piccolo aiuto

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:X1AY9.45687$YG2.1...@twister1.libero.it...
>
> "Reziel" <
jackbla...@yahoo.it
> ha scritto nel messaggio
> news:BOwY9.45307$ZE.12...@twister2.libero.it...
> > Salve a tutti,
> > chiedo il vostro aiuto perchè non riesco a fare la somma dei totali
> > suddivisa per mese, vi spiego meglio.
> > Hofatto un piccolo database per fare le fatture di vendita, ho creato
una
> > query dove sono elencati tutti i totali di ogni fattura con relative
voci
> > cliente, data fattura ecc. ed infine ho creato una semplice maschera che
> mi
> > visualizzi il tutto. A piè pagina ho scritto in una casella di testo:
> > "=Somma(TFatturaVen)" per visualizzare la somma delle fatture. Ora però
se
> > voglio sommare solo quelle che riguardano il mese di gennaio oppure solo
> > quelle del mese di febbraio come posso fare?
> > Grazie mille in anticipo a chi risponderà!
> > Ciao a tutti e buon fine settimana!!
>
> Non si capisce se vuoi filtrare la maschera per un determinato mese o se
> vuoi visualizzare tutti i record ma effettuare la somma solo di quelli di
un
> determinato mese.
Innanzitutto Roberto ti ringrazio dell'interessamento,
per me fa lo stesso, anche se sono visualizzati tutti i record mi basterebbe
che a piè pagina ci fosse la possibilità di vedere la somma divisa per mese.
Esempio di query
1 campo:  cliente
2 campo:  datafattura
3 campo:  totalefatturaven
Non c'è la possibilità di posizionare dodici caselle di testo (fatturato
mensile) a piè pagina e con un espressione su di ognuna dire di fare la
somma per mese visto che abbiamo un campo data?
Oppure qual'e la strada più semplice per avere questa soluzione. A me sta
bene qualsiasi cosa, mi basta far visualizzare da qualche parte la somma
delle fatture divisa per mese, anche se non si vedono tutti i record non ha
importanza, posso creare anche semplicemente una maschera che contenga la
somma delle fatture divisa per dodici mesi, grazie.


title: Somma dati mese per mese, piccolo aiuto

text:
"Reziel" <
jackbla...@yahoo.it
> ha scritto nel messaggio
news:BTOY9.47836$ZE.13...@twister2.libero.it...

Se le cose stanno così, penso che la cosa migliore sia creare una query di
raggruppamento che ti restituisca appunto il fatturato di ogni cliente per
ogni mese.
A questo punto inserisci nella maschera Cliente una sottomaschera che abbia
tale query come origine record.



title: SCANSIONE NELL MASCHERA ANAGRAFICA

author: @libero.it stefano

text:
CIAO, avrei bisogno in una maschera di dati anagrafica di inserire un
comando che faccia partire direttamente la swcansione e che mostri poi nella
maschera non tanto la foto stessa ma un link o altro per poterla
eventualmete riaprire con  un visualizzatore di imamgini
come potrei fare?
grazie


title: SCANSIONE NELL MASCHERA ANAGRAFICA

author: William

text:
stefano ha scritto:

Per comiciare vai sul Sito Comune (
www.sitocomune.com
), Sezione General
leggi le FAQ 6.115 e 6.214
Ti potranno essere d'aiuto.
Ciao


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
grazie
la 214 sembra molto interessante perchč usa il wia
pero a me non funziona??problema mio o del db?
"William" <
Wil...@sosbit.net
> ha scritto nel messaggio
news:7yTyf.131411$65.37...@twister1.libero.it...



title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
piu esattamente un errore runtime 429
il componente activex non è in grado di creare l oggetto
Set v = CreateObject("WIA.Vector")  (questa è la riga errata)
qualcosa da modificare o personalizzare?
"William" <
Wil...@sosbit.net
> ha scritto nel messaggio
news:7yTyf.131411$65.37...@twister1.libero.it...



title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
"stefano" <stef.idea @
libero.it
> ha scritto nel messaggio
news:43cc0ebd$0$1067$4faf...@reader2.news.tin.it...

OK SCUSATE!!! Non avevo letto il readme!Funziona
Ora l'unica cosa da fare è come assegnare la nome file un nome preso dal
campo "cognome" della maschera e come fare apparire la foto piuttosto che
foto un link che cliccato apra un visualizzatore predefinito


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
"stefano" <stef.idea @
libero.it
> ha scritto nel messaggio
news:43cc0ebd$0$1067$4faf...@reader2.news.tin.it...

'Salvo l'immagine
Img.SaveFile "C:\MiaFoto." & Img.FileExtension
'visualizzo l'immagine salvata in un controllo immagine
Me.Picture1.Picture = "C:\MiaFoto." & Img.FileExtension
End Sub
come modificare i campi sopra per ottenere ilk nome file variabile e
visualizzabile come link?


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
stefano ha scritto:
> 'Salvo l'immagine
> Img.SaveFile "C:\MiaFoto." & Img.FileExtension
>
> 'visualizzo l'immagine salvata in un controllo immagine
> Me.Picture1.Picture = "C:\MiaFoto." & Img.FileExtension
>
> End Sub
>
>
> come modificare i campi sopra per ottenere ilk nome file variabile e
> visualizzabile come link?
>
>
Se hai una casella di testo che si chiama cognome scrivi
Me.Picture1.Picture = "C:\" & cognome.value & "." & Img.FileExtension
Se vuoi essere pignolo puoi fare prima una verifica che COGNOME non
contenga carateri non ammessi nei nomi files
Poi secondo me potrsti salvarti il nome file (o il percorso completo) su
un campo della tua tabella associato al record in questione e poi crei
un pulsante "Apri foto" dove andrai a gestire l'evento click
Ipotizzando che il campo contentente il percrso della foto sia PathFoto
Dim stAppName As String
     stAppName = "c:\[path]\kodakimg.exe " (o altro programma per
visualizzare le foto)
     Call Shell(stAppName & PathFoto, 1)
Ciao
	WildBug


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
"William" <
Wil...@sosbit.net
> ha scritto nel messaggio
news:2TUyf.131578$65.37...@twister1.libero.it...

ok ci sono anche su questo
ultima cosa
xche se importp quella maschera in un altro database non funziona dandomi un
errore di tipo di variabile sin dal dim aaaa as new wia......ecc?
cosa manca?ù
ciao e grazie


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
"stefano" <stef.idea @
libero.it
> ha scritto nel messaggio
news:43cc31c2$0$1073$4faf...@reader2.news.tin.it...
cut
> ok ci sono anche su questo
>
> ultima cosa
> xche se importp quella maschera in un altro database non funziona dandomi
> un errore di tipo di variabile sin dal dim aaaa as new wia......ecc?
> cosa manca?ů
> ciao e grazie
 Controlla i riferimenti.
Tieni presente che WIA funziona solo con WXp.
Ciao, Carlo


title: SCANSIONE NELL MASCHERA ANAGRAFICA

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43ccd356$0$1075$4faf...@reader3.news.tin.it...
>
>
> "stefano" <stef.idea @
libero.it
> ha scritto nel messaggio
> news:43cc31c2$0$1073$4faf...@reader2.news.tin.it...
> cut
>
>> ok ci sono anche su questo
>>
>> ultima cosa
>> xche se importp quella maschera in un altro database non funziona dandomi
>> un errore di tipo di variabile sin dal dim aaaa as new wia......ecc?
>> cosa manca?ù
>> ciao e grazie
> Controlla i riferimenti.
> Tieni presente che WIA funziona solo con WXp.
>
> Ciao, Carlo
sembra tuytto ok
una cosa importante
non so come cambiare il default bmp a 300 dpi delloscanner
se lo cambio dal pannello dello scanner non cambia niente
come sifa?
>


title: Cancel As Integer

author: SunRex

text:
In una frm ho messo sull'evento Form_BeforeUpdate la famosa routine
del sito comune che intercetta le modifiche dell'utente e  che riporto
sotto.Ora vorrei agganciare tale routine ad un pulsante tipo
SalvaModifiche_Click ma non ci riesco.In pratica non so gestire l'argomento
di BeforeUpdate.
Qualche suggerimento?
SunRex
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strMsg = "I dati sono stati  modificati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNo)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub


title: Cancel As Integer

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:U95Ca.22793$pR3.4...@news1.tin.it...

Un paio di strade:
1- sull'evento click del pulsante: call Form_BeforeUpdate(0)
2 - sempre sull'evento clik del pulsante ricopi la routine modificandola
così:
    Dim retValue As Integer
    Dim strTtl As String
    Dim strMsg As String
    strMsg = "I dati sono stati  modificati." & vbCrLf & _
             "Vuoi salvare le modifiche?"
    retValue = MsgBox(strMsg, vbQuestion + vbYesNo)
    Select Case retValue
        Case vbYes
           DoCmd.RunCommand acCmdSaveRecord
        Case vbNo
            DoCmd.RunCommand acCmdUndo
        Case vbCancel
            exit sub
    End Select
 Ciao, Carlo


title: Cancel As Integer

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:8o5Ca.22861$pR3.4...@news1.tin.it...
>
> "SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
> news:U95Ca.22793$pR3.4...@news1.tin.it...
> > In una frm ho messo sull'evento Form_BeforeUpdate la famosa routine
> > del sito comune che intercetta le modifiche dell'utente e  che riporto
> > sotto.Ora vorrei agganciare tale routine ad un pulsante tipo
> > SalvaModifiche_Click ma non ci riesco.In pratica non so gestire
> l'argomento
> > di BeforeUpdate.
[CUT]
> Un paio di strade:
> 1- sull'evento click del pulsante: call Form_BeforeUpdate(0)
Questo che mi piacerebbe di piů mi ritorna se scelgo no mi da "Comando
Annulla non disponibile."
> 2 - sempre sull'evento clik del pulsante ricopi la routine modificandola
> cosě:
>     Dim retValue As Integer
>     Dim strTtl As String
>     Dim strMsg As String
>
>     strMsg = "I dati sono stati  modificati." & vbCrLf & _
>              "Vuoi salvare le modifiche?"
>     retValue = MsgBox(strMsg, vbQuestion + vbYesNo)
>     Select Case retValue
>         Case vbYes
>            DoCmd.RunCommand acCmdSaveRecord
>         Case vbNo
>             DoCmd.RunCommand acCmdUndo
>         Case vbCancel
>             exit sub
>     End Select
Questo funziona ma devo levare quello su Private Sub
Form_BeforeUpdate(Cancel As Integer)
perchč se no me lo ripete due volte
Io avrei pensato visto che la routine mi servirebbe in varie parti del
progetto di creare in un modulo la rouitine
in questione e richiamarla come mi hai detto "Call Conferma(0)" da un
pulsante ma ho il problema dell'annullamento.
In ultimo se puoi mi spiegheresti perchč gli passi l'argomento Cancel = 0?
Grazie cmq ;)
SunRex
Sub Conferma(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strMsg = "Confermi il salvataggio?."
   retValue = MsgBox(strMsg, vbQuestion + vbYesNo, "Med Cordis")
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub
>  Ciao, Carlo


title: Cancel As Integer

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:nI5Ca.22943$pR3.4...@news1.tin.it...
>
> "Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
> messaggio news:8o5Ca.22861$pR3.4...@news1.tin.it...
> >
> > "SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
> > news:U95Ca.22793$pR3.4...@news1.tin.it...
[CUT]
[CUT]
Ho risolto con la funzione  Dirty.
Il problema è che senza Access 2000 non si può fare.
SunRex


title: Cancel As Integer

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:B36Ca.23056$pR3.4...@news1.tin.it...
>
> "SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
> news:nI5Ca.22943$pR3.4...@news1.tin.it...
> >
> > "Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
> > messaggio news:8o5Ca.22861$pR3.4...@news1.tin.it...
> > >
> > > "SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
> > > news:U95Ca.22793$pR3.4...@news1.tin.it...
> [CUT]
> [CUT]
> Ho risolto con la funzione  Dirty.
> Il problema č che senza Access 2000 non si puň fare.
> SunRex
>
Una maniera ancora piů semplice č invocare dal tasto il comando Me.Requery.
SunRex


title: Cancel As Integer

text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:7w6Ca.23167$pR3.4...@news1.tin.it...

Ancora piů semplice: Me.Recalc oppure me.Refresh
Ciao, Carlo


title: if Me.RecordsetClone.RecordCount=0 in apertura form va a vuoto

author: francirosdm

text:
Buongiorno, la condizione in oggetto non mi viene soddisfatta se apro la
form la prima volta, la seconda si; andando per ordine, ho maschera1 con una
"casella di riepilogo" da dove seleziono una parola da passare col seguente
codice sull'evento click, per consentire l'apertura di maschera2 e mostrare
i dettagli dell'intero record se esistente nella tabella:
Private Sub fonti_collegate_Click()
On Error GoTo Err_fonti_collegate_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "maschera2"

    stLinkCriteria = "[fonterel]=" & "'" & Me![fonte] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_fonti_collegate_Click:
    Exit Sub
Err_fonti_collegate_Click:
    MsgBox Err.Description
    Resume Exit_fonti_collegate_Click

End Sub
l'apertura della form maschera2 ha nel suo evento open, la condizione di
controllo di record non esistente tramite la condizione if seguente:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Nessuna fonte corrispondente", vbCritical, "Attenzione!!!!!!"
DoCmd.Close acForm, "maschera2", acSaveNo
Else
DoCmd.Maximize
CommandBars("Menu Bar").Enabled = False
End If
End Sub
il problema sorge se la maschera1 invoca maschera2 per la prima volta;
infatti la condizione if viene ignorata e la maschera si apre con i
controlli vuoti. Se chiudo maschera2 e clicco nuovamente il tasto che mi
permette l'apertura di maschera2, il controllo sul record va a buon fine e
il msg di errore funziona. Come mai accade questa cosa? Puo' essere un bug o
un errore che commetto senza accorgemene?
grazie mille
Franciros
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
Ciao "francirosdm" <
dd...@tin.it
> ha scritto nel messaggio
news:193Z205Z162Z74Y...@usenet.libero.it...
> Buongiorno, la condizione in oggetto non mi viene soddisfatta se apro la
> form la prima volta, la seconda si; andando per ordine, ho maschera1 con
> una
> "casella di riepilogo" da dove seleziono una parola da passare col
> seguente
> codice sull'evento click, per consentire l'apertura di maschera2 e
> mostrare
> i dettagli dell'intero record se esistente nella tabella:
>
> Private Sub fonti_collegate_Click()
> On Error GoTo Err_fonti_collegate_Click
>
>    Dim stDocName As String
>    Dim stLinkCriteria As String
>
>    stDocName = "maschera2"
prova correggendo questo:
    stLinkCriteria = "[fonterel]='" & Me![fonte] & "'"
--
Ciao
Geppo


text:

Ciao
> Geppo
no, niente da fare
grazie cmq
F



author: Karl Donaubauer

text:

Hai veramente controllato cosa succede?
Con un punto di interruzione o con:
Debug.Print Me.RecordsetClone.RecordCount
Cosa ti dï¿œ nella finestra debug?
> Se chiudo maschera2 e clicco nuovamente
> il tasto che mi permette l'apertura di maschera2, il controllo sul
> record va a buon fine e il msg di errore funziona. Come mai accade
> questa cosa? Puo' essere un bug o un errore che commetto senza
> accorgemene?
DoCmd.Close acForm, "maschera2", acSaveNo
normalmente dovrebbe funzionare.
Ma di solito invece di un Close nel Open si usa il parametro
Cancel del Form_Open, cioï¿œ
Cancel = True
e per evitare l'errore 2501 nella sub chiamante:
...
Err_fonti_collegate_Click:
    If Err.Number = 2501 Then
        Resume Exit_fonti_collegate_Click
    Else
        MsgBox Err.Description
        Resume Exit_fonti_collegate_Click
    End If
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ:
http://www.donkarl.com


text:

> Cosa ti d� nella finestra debug?
>
ho provato col debug e mi da sempre 0 nella finestra
> > Se chiudo maschera2 e clicco nuovamente
> > il tasto che mi permette l'apertura di maschera2, il controllo sul
> > record va a buon fine e il msg di errore funziona. Come mai accade
> > questa cosa? Puo' essere un bug o un errore che commetto senza
> > accorgemene?
>
> DoCmd.Close acForm, "maschera2", acSaveNo
>
> normalmente dovrebbe funzionare.
> Ma di solito invece di un Close nel Open si usa il parametro
> Cancel del Form_Open, cio�
>
> Cancel = True
>
> e per evitare l'errore 2501 nella sub chiamante:
>
> ...
> Err_fonti_collegate_Click:
> If Err.Number = 2501 Then
> Resume Exit_fonti_collegate_Click
> Else
> MsgBox Err.Description
> Resume Exit_fonti_collegate_Click
> End If
>
qui mi da l'errore: Errore di compilazione: etichetta non definita.
Cmq anche cosi facendo il problema rimane uguale.
grazie cmq
F



text:

non pi�....risolto Errore di compilazione...avevo omesso la linea Exit...ops



text:
Ciao "francirosdm" <
di...@libero.it
> ha scritto nel messaggio

Allora puo darsi che la casella di riepilogo restituisca un valore nullo.
metti un punto di interruzione qui:
stLinkCriteria = "[fonterel]='" & Me![fonte] & "'"
poi nella finestra immediata scrivi:
? me!fonte
 e dai invio
--
Ciao
Geppo


text:
Ciao "Geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:YqE7m.37076$1s6....@twister2.libero.it...
----cut----
> Allora puo darsi che la casella di riepilogo restituisca un valore nullo.
>
> metti un punto di interruzione qui:
>
> stLinkCriteria = "[fonterel]='" & Me![fonte] & "'"
>
> poi nella finestra immediata scrivi:
>
> ? me!fonte
> e dai invio
� sottointeso che la prova deve essere fatta la prima volta che apri
maschera2 cio� quando  riscontri il problema.
--
Ciao
Geppo