mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: ti consiglio di non perdere questa occasione!!

Ti consiglio di copiare questa pagina di testo per poterla leggere con più
calma e attenzione, poiché tratta un'argomento che sicuramente ti
interesserà molto....
Quando lessi una pagina di testo simile a questa fui molto scettico su ciò
che diceva, infatti sosteneva che se avessi investito 10.000 avrei potuto
"guadagnare" molti milioni (si parlava di 50-60 milioni!!!!!!!!!) in un
primo momento fui molto scettico, ma nei giorni seguenti pensai e ripensai a
quello che diceva la lettera, e mi decisi; aderii anche io!!!!...sappiate
che in 8 giorni mi sono stati pervenuti a CASA MIA 1.835.000 incredibile
vero??? ... Tutto questo è assolutamente legale, ma è fattibile solo se sei
una persona corretta e onesta.
Per prima cosa spedisci immediatamente 5000 lire agli ultimi 2 indirizzi
sulla lista. Includi una nota o messaggio . -`Potresti collocarmi nella tua
lista ?`- seguito dal tuo nome, indirizzo civico e E-MAIL . Eseguita questa
operazione avrai investito una somma di 10.000 (cifra più che sostenibile).
Come secondo punto rimuovi il nome che appare in 4° posizione e sposta gli
altri nomi in su di una posizione, aggiungi poi il tuo nome e indirizzo alla
posizione numero 4. Come terzo punto inserisci questo annuncio in almeno 10
bacheche (con il tuo nome in quarta posizione) su Internet, descrivendo
l'occasione di guadagno con parole incitanti a partecipare. Più annunci
metti, più soldi potrai ricevere!!! In fine, se tutto è andato bene, dopo
circa 7/8 settimane riceverai 45/55 milioni in contanti, al tuo domicilio.
LA LISTA
1- Valerio D'Anna via catullo,7 Taurianova 89029 (R.C.) Italia,
2- Venturi Valentino via Bari 32 Carpi Modena 41012 Italia,
3- Carlo Micheli via g. la Farina 14 50132 Firenze Italia.,
4- Nacci Alessandro Via Machiavelli 71 72013 Ceglie Messapica (Br) Italia.
Se fossi in voi proverei.
Un consiglio: SIATE ONESTI..
Per 10.000 puoi provare ti pare ???

Newsgroup: it.comp.appl.access
Titolo: Help DB rovinato

Ho un DB contenente solo Tabelle che si è danneggiato e anche con il
classico "Ripristina Database" non riesco a ripristinarlo.
E' la prima volta che mi succede una cosa del genere.
Avete qualche suggerimento alternativo per recuperare le Tabelle ?
grazie 1000
--
Ciao Marco S.
www.marcosanti.it
p.s. Ho i salvataggi ma quello più recente (questa notte) è già danneggiato
quindi devo recuperarne uno più vecchio con conseguente perdita di dati.

 Avete qualche suggerimento alternativo per recuperare le Tabelle ?
Crea un nuovo db e prova a importare tutti gli oggetti
Sib


Ho provato subito, ma nulla da fare :-((
Mi sono arreso e ho ripristinato il salvataggio, ma vorrei tanto capire
com'è successo ... mha ...
Ti ringrazio

Newsgroup: it.comp.appl.access
Titolo: MI5 Persecution: Fitted up 26/4/96 (136)


Organization: Toronto Free-Net
Distribution:
 
Illtud Daniel (
ida...@jesus.ox.ac.uk
) wrote:
: Probably 'cos you come across as reasoned & articulate, it's a pity
: about the other stuff :)
 
Veracity is so unreasonable.
 
: >>pps. You should still see a doc again Mike.
: >
: >Doing so. Trouble is, all this mental-illness stuff provides camouflage
: >for the harassment, which is real. It alows people who otherwise would
: >consider the harassment seriously to disregard it. It makes conversations
: >with a lawyer or police brief when otherwise it would merit discussion.
: The point is that there are two possibilities happening here-
 
: 1. There's a large conspiracy of people out to get you, for no
:    other reason than that they have the means to do so, and that
:    it involves a lot of the Media & a proportion of the public
 
: 2. You (who admit to having some headspace problems) are suffering
:    from acute paranoid schizophrenia.
 
: Possibility #1 is _possible_, but would be unprecendented (OTOH,
: how would we know?), unfeasible, and many other things beginning
: with _un_ which I can't think of at the moment. Besides, if there
: was something going on, chances are some of us here would know
: about it, and I'm convinced that nobody does.
"Unprecedented" hits the nail on the head. It _is_ unprecedented, but we
have only just reached the technical stage at which it is feasible, and
we know video-spying is done to other people (NB the Diana-Hewitt
episode) and is a routine tool of security agencies.
 
Perhaps what is unprecedented is not the technical side, but the social
manipulation of many people by a concealed element in what other
countries would be called the secret police. The most disturbing element
is the degree to which people allow themselves to be unquestioningly
manipulated by an evil element within the state.
136
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access




Newsgroup: it.comp.appl.access
Titolo: visualizzazione in un report di foto esterne al db

Come al solito sono qui a chiedere umilmente aiuto agli eminentissimi guru 
del NG...
Sto producendo un db per un cliente che produce migliaia di prodotti diversi 
che hanno tutti una fotografia da gestire.
Ho deciso di tenere le fotografie tutte all'esterno del db per tenere 
leggero il db...
sull'evento *su corrente* nella maschera che utilizzo per visalizzare i 
prodotti ho inserito questo codice:
Dim sFile As String
 sFile = Dir(DirFoto & Forms!sk_prodotti.id_prodotto & ".jpg")
        If sFile <> "" Then
            Immagine_catalogo.Picture = DirFoto & 
Forms!sk_prodotti.id_prodotto & ".jpg"
        Else
            Immagine_catalogo.Picture = ""
        End If
il mio problema � che devo stampare due tipi di report: uno con una pagina 
per ogni record, quindi con foto e annotazioni; l'altro � un report con 
molti record e quindi fotografie per ogni pagina.
non ho trovato nessun esempio di codice in rete...
qualcuno sa suggerirmi qualche idea da seguire?
grazie
ps.... non la cambio la moto!!!
:-)
-- 
Skipper dixit...
on cbr1000rr
Azz... L'� minga el sesc�nt!!! L'� 'l mille!!!
motostory su 
http://www.superskipper.it/pagine/le_mie_moto.htm

 grazie
Sul "FORMATTAZIONE" del corpo del report...
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
If Dir("TUOPERCORSO" & TUOCAMPO & ".jpg") = TUOCAMPO & ".jpg" Then
    Me.TUAIMMAGINE.Picture = "TUOPERCORSO" & TUOCAMPO & ".jpg"
Else
    Me.TUAIMMAGINEPicture = ""
End If
End Sub
-- 
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perch� un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

     Me.TUAIMMAGINEPicture = ""
Questo ultimo non funge, perch� tiene memorizzata l'ultima img... per cui
ti conviene mettere un immagine vuota di default tipo "NO-IMAGE" chiamarla
tipo "noimage.jpg" e richiamarla nel caso in cui non vi sia un immagine
associata al record :
Me.TUAIMMAGINE.Picture = "noimage.jpg"


> End Sub
urca che velocit�....
per ora grazie mille...
dopo provo...


> End Sub
funzica...
grazie...
adesso ci smanetto un po'....
spero di non spaccare tutto...

Newsgroup: it.comp.appl.access
Titolo: e' possibile farlo  con access xp ?

ciao atutti
utilizzo access xp,
ho creato un db, e vorrei che quando lo apro mi visualizzi la pagina a
schermo grande non dover ogni volta cliccare sul quadratino in alto della
pagina,   come si puo fare ?
grazie a tutti

 ha scritto nel messaggio 
news:5baxe.31727$yM4.4...@twister2.libero.it...

ciao lo puoi fare anche con altre versioni di Access, inserendo nell'evento 
"su apertura" il seguente codice
DoCmd.Maximize
Ciao
Nina

 ha scritto nel messaggio 
news:5baxe.31727$yM4.4...@twister2.libero.it...

Ciao , ho risposto per errore a questo msg e non al precedente, che con 
diverso oggetto pone la stessa domanda.
    In realtà volevo rispondere a questo msg solo per avvisarti del fatto 
che se vuoi avere risposte è meglio scrivere un oggetto chiaro e non 
generico
Ciao Nina

Newsgroup: it.comp.appl.access
Titolo: tabelle collegate

si può controllare il percorso delle tabelle collegate da codice?
mi spiego meglio ho una serie di database tutti uguali nell loro struttura,
quello che cambia sono naturalmente i dati.
Io vorrei creare una serie di query, maschere report etc.... è collegare a
queste di volta in volta tramite codice uno dei database, è possibile e se
si come?
grazie mille                                            Max Ruotolo

 wrote in message 8d7m52$pl$1...@nslave1.tin.it...

Possibilissimo.
CurrentDb.TableDefs!MiaTabella.Connect
Questa proprieta' restituisce la stringa con le informazioni di collegamento
della tabella.
Approfondisci la cosa anche sul sito comune dove parla di come riallegare le
tabelle.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

>CurrentDb.TableDefs!MiaTabella.Connect
mi raccomando di applicare sempre refresh dopo aver modificato i
parametri di connect!
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Newsgroup: it.comp.appl.access
Titolo: realizzare un codice a barre

Salve a tutti,
vorrei realizzare dentro un mio programma in Access la creazione di un 
codice a barre.
Potete aiutarmi con degli esempi ?
Grazie Augusto

 Potete aiutarmi con degli esempi ?
Un codice a barre non è altro che una sequenza di caratteri, rappresentati
con un font particolare.
Tu di cosa hai bisogno precisamente? Che tipo di codice devi creare?
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 Potete aiutarmi con degli esempi ?
Codici a barre
www.donkarl.com/it?FAQ8.3
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Stampa multi report

Devo stampare il certificato di diploma che � composto da 4 report 
(Certif_1 - Certif_2 - Certif_3 - Certif_4)
come posso richiamarli per la stampa?
ed inoltre di certif_2 ne deve stampare 2 copie
DoCmd.OpenReport ..........
Grazie 

 Grazie
Puoi usare i Docmd.OpenReport in sequenza...mentre per il nr di copie
puoi fare in 2 modi...p.e.
DoCmd.OpenReport "TuoReport", acNormal
Reports!TuoReport.SetFocus
DoCmd.PrintOut acPages, , , , [numerocopie]
oppure usando il metodo SelectObject
DoCmd.OpenReport "TuoReport", acNormal
DoCmd.SelectObject acReport, TuoReport
DoCmd.PrintOut acPages, , , , [numerocopie]

 Grazie
Puoi usare i Docmd.OpenReport in sequenza...mentre per il nr di copie
puoi fare in 2 modi...p.e.
DoCmd.OpenReport "TuoReport", acNormal
Reports!TuoReport.SetFocus
DoCmd.PrintOut acPages, , , , [numerocopie]
oppure usando il metodo SelectObject
DoCmd.OpenReport "TuoReport", acNormal
DoCmd.SelectObject acReport, TuoReport
DoCmd.PrintOut acPages, , , , [numerocopie]
Usando una sequenza di "docmd.openreport" Non funziona perch� mi stampa solo 
l'ultimo report aperto 

 l'ultimo report aperto
Non ho una stampante per provare...Intendevo una cosa simile:
DoCmd.OpenReport "Report1", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report1"
DoCmd.PrintOut acPrintAll, , , acMedium, 1
DoCmd.OpenReport "Report2", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report2"
DoCmd.PrintOut acPrintAll, , , acMedium, 2
DoCmd.OpenReport "Report3", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report3"
DoCmd.PrintOut acPrintAll, , , acMedium, 1

 l'ultimo report aperto
Non ho una stampante per provare...Intendevo una cosa simile:
DoCmd.OpenReport "Report1", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report1"
DoCmd.PrintOut acPrintAll, , , acMedium, 1
DoCmd.OpenReport "Report2", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report2"
DoCmd.PrintOut acPrintAll, , , acMedium, 2
DoCmd.OpenReport "Report3", acViewPreview, , "Id=" & Me.id
DoCmd.SelectObject acReport, "Report3"
DoCmd.PrintOut acPrintAll, , , acMedium, 1
idem... stampa solo l'ultima stampa selezionata
Newsgroup: it.comp.appl.access
Titolo: problemi utilizzo db se non accedo come administrator

ho installato un mio db su un pc e se accedo come administrator tutto ok 
mentre se parto come user
il db si apre ma resta solo la finistra esterna di access ma il db non viene 
aperto correttamente.
qualcuno sa dirmi cosa c'è che non và?
devo forse installare il db quando ho il computer in modalità user e non 
administrator?
Grazie. 

 ha scritto nel messaggio
news:426f3b24$0$20691$5fc...@news.tiscali.it...

Cosa intendi per: il db non viene aperto correttamente?
Ottieni degli errori?
Messaggi strani?
Comportamenti anomali?
Così su due piedi ... sembrerebbe che sull'utenza normale vigano delle
policy ... ma in teoria se ciò fosse ... non avresti aperto del tutto il tuo
applicativo ... chiedi magari lumi all'amministratore della rete.
Saluti,
--
strano...mavero


lumi li ha chiesti a me l'amministratore di rete :)
non so si pare la maschera di access con la scirtta file in alto e 
null'altro tutto vuoto ma nessun messaggio di errore
solo la finestra di access grigia vuota.
bo!!

Newsgroup: it.comp.appl.access
Titolo: Numerazione

Devo inserire in un report un campo che contenga la numerazione
progressiva dei campi da stampare provenienti da una query.
Potete aiutarmi, grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Potete aiutarmi, grazie.
Sul sitocomune trovi la soluzione
Antonio

 wrote in message
news:9Xana.43169$
iy5.1...@twister2.libero.it

Ti ringrazio ma non sono molto pratico di programmazione e di un
utilizzo
cosě spinto di access.
Potresti essere cosě gentile da aiutarmi.
Ciao


 Potresti essere così gentile da aiutarmi.
La soluzione proposta sul sitocomune ti guida passo passo alla risoluzione
del tuo problema ed è la più semplice possibile.
A meno di mettere mano fisicamente al tuo database (e non mi sembra il caso)
non vedo altre possibilità
Antonio
Newsgroup: it.comp.appl.access
Titolo: Impossibile cancellare tabella

Ciao a tutti,
non riesco a cancellare una tabella/Tutte da codice...
la stringa usata è questa:
IstrSQL = "SELECT Name as NomeTabella " _
         & "FROM MsysObjects " _
         & "WHERE (Left([Name], 3) <> 'MSy') " _
         & "AND (MSysObjects.Type = 1)"
Set rst = CurrentDb.OpenRecordset(IstrSQL, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
     'Ciclo per esportazione tabelle
     Do While Not rst.EOF
         DoCmd.DeleteObject acTable, rst!nometabella
         rst.MoveNext
     Loop
Credo che sia per il fatto che ci siano delle relazioni tra loro.In tal caso 
come faccio ad eliminarle e successivamente a cancellare tutte le tabelle?
Grazie
Roberto 

 Roberto
Hai provato ad inserire una Gestione errori...?
Se lo fai manualmente ti chiede conferma della rimozione
della relazione, via codice dovrebbe essere simile(premetto
che non ho mai fatto una cosa simile), quindi prova ad intercettare
l'errore che ti ritorna la funzione e vedi se si può gestire.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:434c0cc8$0$24635$4faf...@reader3.news.tin.it...

Puoi usare il metodo Delete dell'oggetto Relation.
Visto che vuoi eliminare tutte le tabelle ti basta ciclare l'insieme 
Relations ed eliminare tutte relation:
Il tutto prima del tuo codice...
Public Sub EliminaRelazioni()
    Dim dbs As Database
    Dim rel As Relation
    Set dbs = CurrentDb
        For Each rel In dbs.Relations
            dbs.Relations.Delete rel.Name
        Next rel
End Sub
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: COMUNICAZIONE SERIALE ASINCRONA

Qualcuno ha esperienza di comunicazione seriale asincrona ?

 ha scritto nel messaggio
news:1aa36c15-8f77-454b...@17g2000hsk.googlegroups.com...


 > Qualcuno ha esperienza di comunicazione seriale asincrona ?
Devo scriver una procedura che colloqui con uno strumento e tale
comunicazione deve avvenire in modalità asincrona half-duplex.
Hai qualcosa già scritto che mi sia da guida ?
Grazie,

 
www.mdenittis.it
Tornelli docet eh Miché?!
Ciao.
P.S. Ben tornato!
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: per errore ho protetto dei files access

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

 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
Newsgroup: it.comp.appl.access
Titolo: Come tradurre da C# a VBA ?

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();
}
}
}


---omissis---
Forse qui c'è qualcosa che può agevolarti:
http://www.example-code.com/vb/socket.asp
Ciao.
-- 
Sergio MAZZA 

 - 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

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
Newsgroup: it.comp.appl.access
Titolo: contatore

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

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
Newsgroup: it.comp.appl.access
Titolo: Decimali in una Casella Combinata

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

 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

 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


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.

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

"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


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.

"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

 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
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Query di tipo UNION con campi Memo

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

 ha scritto nel messaggio
news:Zv2n7.22784$ul3.7...@news.infostrada.it...

Newsgroup: it.comp.appl.access
Titolo: Smalldatetime problema

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

 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

Newsgroup: it.comp.appl.access
Titolo: Importare alcuni dati da file

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 

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


Buona idea! Ci provo.
Grazie
ziopilvio 

 -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 

 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


 ha scritto nel messaggio 
news:fop6ah$s9u$1...@news.newsland.it...

Caro Marco, non so come ringraziarti. Funziona alla grande!
A buon rendere.
ziopilvio

Newsgroup: it.comp.appl.access
Titolo: VBA creare oggetto casella combinata

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

 precise.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Errore To few parameter Exepected 2

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

 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

Tenchiu
Carlo Ve

Newsgroup: it.comp.appl.access
Titolo: maschere

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

 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!

 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..



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.
Newsgroup: it.comp.appl.access
Titolo: trascinare file su form access e acquisire il file (drag & drop)

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.

 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

 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
 
 


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

 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


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?
Newsgroup: it.comp.appl.access
Titolo: Stampare solo record corrente, help

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.

 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

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


Newsgroup: it.comp.appl.access
Titolo: A2K - Invio report come allegato

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

 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

Newsgroup: it.comp.appl.access
Titolo: Query: Eliminare carattere che si trova in una determinata posizione.

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

 Luca
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Requery di tutte maschere aperte

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


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
Newsgroup: it.comp.appl.access
Titolo: stampare report

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...

 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

Newsgroup: it.comp.appl.access
Titolo: Conteggio ore







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


 



 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)
Newsgroup: it.comp.appl.access
Titolo: Somma dati mese per mese, piccolo aiuto

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!!

 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
---------------------------------------------

 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.

 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.

Newsgroup: it.comp.appl.access
Titolo: SCANSIONE NELL MASCHERA ANAGRAFICA

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 

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

 ha scritto nel messaggio 
news:7yTyf.131411$65.37...@twister1.libero.it...


 ha scritto nel messaggio 
news:7yTyf.131411$65.37...@twister1.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 

 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? 

 
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

 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 

 ciao e grazie
 Controlla i riferimenti.
Tieni presente che WIA funziona solo con WXp.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Cancel As Integer

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

 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

  Ciao, Carlo

 > 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

 ha scritto nel messaggio
news:7w6Ca.23167$pR3.4...@news1.tin.it...

Ancora piů semplice: Me.Recalc oppure me.Refresh
Ciao, Carlo