title: convertire in xls

author: .Bat

text:
"AndreaPapi" <
ap...@libero.it
> ha scritto nel messaggio
news:1151095401....@i40g2000cwc.googlegroups.com...
fabry wrote:
> salve, ho bisogno di un'aiuto.
> devo trasferire una tabella di access in un file xls.
> il file di  destinazione in formato xls č un fle con campi formattati.Piu
> precisamente il campo nome della tabella access deve essere trasferito nel
> campo a7 della tabella excel, il campo citta della tabella access deve
> essere trasferito nel campo b2 della tabella excel.
> La tabella di destinazione xls e un modello e deve essere identico al file
> esportato.
> Grazie in anticipo
potresti prendere spunto nei precedenti post, Vedi la routine di Sergio
Mazza
http://groups.google.com/group/it.comp.appl.access/browse_thread/thread/3b1ef65aacc5bbde/3bc8bbbae930407c?q=creare+file+excell&rnum=10#3bc8bbbae930407c
potresti usare
  MyXL.Visible = False
per non visualizzare il foglio di Excel
per chiudere il file automaticamente usa:
    MyXL.ActiveWorkbook.SaveAs "nomeFile.xls" [, versioneExcel]
    MyXL.ActiveWorkbook.Close False
oppure
  MyXL.ActiveWorkbook.Save
  MyXL.ActiveWorkbook.Close False
ciao
Andrea Papi
Ciao anch'io sono alle prese con il file di excel se puň esserti utile io ho
fatto cosě:
Dim rsMytable As Recordset
Dim strnome As String
 Set rsMytable = New ADODB.Recordset
    rsMytable.ActiveConnection = CurrentProject.Connection
    rsMytable.Open "tblAnagrafe", , adOpenKeyset, adLockOptimistic, _
    adCmdTable
Set ExcelSheet = GetObject("C:\file.xls")
 ExcelSheet.Worksheets(1).Range("G8").Value = rsMytable.Fields("F1")
  ExcelSheet.Worksheets(1).Range("H8").Value = rsMytable.Fields("F2")
   ExcelSheet.Worksheets(1).Range("I8").Value = rsMytable.Fields("F3")
  ExcelSheet.Application.Visible = False
   ExcelSheet.Parent.Windows(1).Visible = True
   strnome = InputBox("Salva con nome..", ".xls")
ExcelSheet.SaveAs FileName:="C:\" & strnome & ".xls"
 ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
     rsMytable.Close
Ciao
.Bat


title: convertire in xls

author: Sergio MAZZA

text:
"fabry" <
ovv...@tin.it
> ha scritto nel messaggio news:449c3ebd$0$3123$4faf...@reader1.news.tin.it...

Se vuoi di più:
http://www.donkarl.com/AccessFAQ.htm?/it/CISA/Download.htm
Automazione di Excel
Ciao.
--
Sergio MAZZA


title: attendere fine shell prima di eseguire un altra istruzione

author: Nicolas

text:
eseguo un codice che scarica u file da un terminale raccolta dati seriale
sulla COM2 ma non so quanto è grande e quindi non so quanto tempo ci
impiegherà a scaricarlo sul computer, dopo averlo scaricato eseguo un dir
per vedere se lo ha scaricato ma questo DIR dovrei eseguirlo quando sono
sicuro di aver terminato di ricevere il file
come posso attendere fino a che tutto il file non è stato ricevuto sul pc?
Grazie.
mi sapete aiutare? grazie.
esempio: ------- CODE ----------------
    'scarico il file  dalla com2
    Dim retval
    retval = Shell("C:\Programmi\multi32\multi32.exe A U form.dat " & Nome,
vbHide)
    'controllo che il file sia stato effettivamente scaricato, e se esiste
lo cancello dal terminale
    If Dir(Nome) <> "" Then
        retval = Shell("C:\Programmi\multi32\multi32.exe A E form.dat",
vbHide)
    Else
        MsgBox "C'E` STATO UN PROBLEMA DI SCARICAMENTO DEL FILE",
vbCritical, ""
    End If


text:
Risolto dal sito comune, eseguire un file e attenderne la fine, grazie lo
stesso.


author: Lorenzo(pyx)

text:

Ciao,
prova a vedere se ti funziona una soluzione di questo tipo:
> esempio: ------- CODE ----------------
>
>    'scarico il file  dalla com2
>    Dim retval
Call Shell("cmd /C C:\Programmi\multi32\multi32.exe A E
form.dat>c:\WaitingEnd.tmp", vbHide)
On Error GoTo WaitForEnd
Kill ("c:\WaitingEnd.tmp")
>    If Dir(Nome) <> "" Then
>        retval = Shell("C:\Programmi\multi32\multi32.exe A E form.dat",
> vbHide)
>    Else
>        MsgBox "C'E` STATO UN PROBLEMA DI SCARICAMENTO DEL FILE",
> vbCritical, ""
>    End If
Exit Function
WaitForEnd:
DoEvents
Resume
Ciao
--
Lorenzo


title: Split di una tabella, ora i campi sono 'parametri'?

author: Marinheiro

text:
Oi!
Ho fatto lo split di una tabella in due tabelle, e corretto i
riferimenti nella form di inserimento a quei campi, ma quando mi
carica la form mi chiede di inserire i valori parametrici relativi a
quei campi.
Perchè?
Ho anche creato la relazione, e mi dà lo stesso questo problema,
perkè?
Ho una tab_intervento e alcuni dei campi in essa contenuti li ho messi
in una tab_ricovero.
poi la tab_paziente l'ho relazionata a tab_ricovero che è asua volta
rel a tab_intervento, tutte relazioni uno-a-molti.
nella casella 'origine dati' delle maschere ho inoltre cambiato
[tab_intervento].[campo_spostato] in [tab_ricovero].[campo spostato].
Perkè non funziona?
Per piacere datemi una mano, grazie mille e
Axè!


author: Roberto dalla campagna

text:
Marinheiro <
car...@illinois.gov
> wrote in message
92v8fvcqa6d668hel...@4ax.com...

Una maschera può avere come origine record un SOLO oggetto (quindi una sola
tabella) e non due o tre tabelle contemporaneamente come vorresti fare tu.
Potresti crearti una query nella quale metti in join le tre tabelle, quindi
usi tale query (essendo un unico oggetto) come origine record della tua
maschera; c'è però un problema: query così organizzate normalmente risultano
non aggiornabili e buone quindi solo per consultare i dati delle tre
tabelle, ma non per aggiornarli.
Quindi, a mio avviso, devi crearti una maschera pricipale che abbia come
origine record la tabella tab_paziente; inseisci in questa maschera
principale una sottomaschera (con visualizzazione a maschera singola) che
abbia come origine record la tabella tab_ricovero; inserisci infine nella
sottomaschera una sottosottomaschera che abbia come origine record la
tabella tab_intervento.
Con una struttura simile potrai sia consultare che aggiornare i dati delle
tre tabelle.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Giorgio Prx

text:
"Marinheiro" <
car...@illinois.gov
> ha scritto nel messaggio
news:92v8fvcqa6d668hel...@4ax.com...
> Oi!
>
> Ho fatto lo split di una tabella in due tabelle, e corretto i
> riferimenti nella form di inserimento a quei campi, ma quando mi
> carica la form mi chiede di inserire i valori parametrici relativi a
> quei campi.
> Perchč?
> Ho anche creato la relazione, e mi dŕ lo stesso questo problema,
> perkč?
> Ho una tab_intervento e alcuni dei campi in essa contenuti li ho messi
> in una tab_ricovero.
> poi la tab_paziente l'ho relazionata a tab_ricovero che č asua volta
> rel a tab_intervento, tutte relazioni uno-a-molti.
>
> nella casella 'origine dati' delle maschere ho inoltre cambiato
> [tab_intervento].[campo_spostato] in [tab_ricovero].[campo spostato].
>
> Perkč non funziona?
>
> Per piacere datemi una mano, grazie mille e
>
> Axč!
Ciao Marinheiro
Se all'avvio della maschera vengono richiesti i valori relativi a campi
questi campi non esistono nell'origine record quindi o hai sbagliato
l'origine record o l nome dei campi nei controlli.
Se hai fatto lo split di una tabella in due e vuoi trattarla nella maschera
come un'unica tabella la relazione deve essere uno a uno e non uno a molti
altrimenti non ti viene permesso di inserire valori nella tabella lato
molti.
Ciao Giorgio.


title: Access e Outlook!

author: Ienchi

text:
Ho una serie di indirizzi posta elettronica su database, è possibile
trasportarli in rubrica di Outlook o Outlook Express!
Grazie in anticipo!


title: Per All Eyez On me e Roberto da casa

author: Franchi Flavio S.r.l.

text:
Vi ricordo che siamo in attesa del codice di WINFAX
Vi ricordate del post 30-01-2003???
Saluti A TUTTI
--
Distinti Saluti,
Graziano Franchi
Franchi Flavio S.r.l. Attrezzature a Rulli
Via Origgio 112 Caronno P.lla 21042 ITALIA


title: Per All Eyez On me e Roberto da casa

author: Roberto da casa

text:
"Franchi Flavio S.r.l." <
franchi....@tiscali.it
> ha scritto nel
messaggio news:b1gmr8$1qm$1...@lacerta.tiscalinet.it...
> Vi ricordo che siamo in attesa del codice di WINFAX
>
> Vi ricordate del post 30-01-2003???
>
> Saluti A TUTTI
>
> --
>
>
>
> Distinti Saluti,
> Graziano Franchi
Anche io, come te, sono in attesa. ;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Per All Eyez On me e Roberto da casa

author: All Eyez On me

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:88S_9.72526$ZE.19...@twister2.libero.it...

Nel CD winfax Pro 10.0 cartella SDK c'è la documentazione in PDF e un
esempio in VB
contattatemi in privato a
nospa...@bfsistemi.com
 e ve li mando
ps togliete il nospam
ciao, AEOM


title: Per All Eyez On me e Roberto da casa

text:
"All Eyez On me" <
nospambf...@libero.it
> ha scritto nel messaggio
news:XPS_9.113951$0v.33...@news1.tin.it...

Nel mio CD di installazione di WinFax Symantec non ho trovato alcuna
cartella SDK: ho paura che stiamo parlando di due prodotti diversi.
Ti ho comunque contattato al tuo indirizzo e-mail per avere quanto io non
riesco a trovare.



title: Per All Eyez On me e Roberto da casa

text:
cut
> > Nel CD winfax Pro 10.0 cartella SDK c'è la documentazione in PDF e un
> > esempio in VB
> > contattatemi in privato a
nospa...@bfsistemi.com
 e ve li mando
> >
> > ps togliete il nospam
> > ciao, AEOM
>
> Nel mio CD di installazione di WinFax Symantec non ho trovato alcuna
> cartella SDK: ho paura che stiamo parlando di due prodotti diversi.
> Ti ho comunque contattato al tuo indirizzo e-mail per avere quanto io non
> riesco a trovare.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Ho inviato la documentazione ad entrambi, se ci sono problemi fatemi sapere.
ciao, AEOM


title: Per All Eyez On me e Roberto da casa

text:
"All Eyez On me" <
nospambf...@libero.it
> ha scritto nel messaggio
news:LW5%9.162502$AA2.6...@news2.tin.it...

Ti ringrazio: ho ricevuto la documentazione che mi hai inviato e che mancava
nelmio CD di installazione di WinFax: da essa però risulta che quella è la
documentazione relativa a SDK (Software Development Kit) che è un pò quello
che per Access è la versione Developer. Ma io non sapevo della differenza e
nella mia ignoranza ho acquistato la versione normale, quella senza SDK:
questo è il motivo per cui nel mio CD mancava quella documentazione. Resta
il fatto che ora ho la documentazione, ma non il software, quindi...
Grazie comunque!



title: Visualizzazione ultimo record del DB.

author: Gonzo

text:
Ho una DB di record numerati... campo "RMA"
Per il momento inserisco manualmente tali dati, sto cercando di
automizzarlo, ma non ci riesco...
Il problema è però un altro, vorrei sapere se è possibile visualizzare,
all'apertura l'ultimo record della lista, perchè adesso, ogni volta che apro
il DB mi mostra il primo.
Queste impostazioni devo farle sulla tabella di origine o sulla maschera di
visualizzazione?
Gonzo
--
Posted from [212.210.223.131] by way of
oe64.pav1.hotmail.com
 [64.4.30.199]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Visualizzazione ultimo record del DB.

author: Arturo

text:
> Il problema è però un altro, vorrei sapere se è possibile visualizzare,
> all'apertura l'ultimo record della lista, perchè adesso, ogni volta che
apro
> il DB mi mostra il primo.
>
> Queste impostazioni devo farle sulla tabella di origine o sulla maschera
di
> visualizzazione?
Lo devi fare sulla maschera.
All'evento su attivazione associ questo codice:
DoCmd.GoToRecord , , acLast
Sai come si fa?
Ciao
Arturo


title: Visualizzazione ultimo record del DB.

text:
>Lo devi fare sulla maschera.
>All'evento su attivazione associ questo codice:
>
>DoCmd.GoToRecord , , acLast
>
>Sai come si fa?
>
>Ciao
>Arturo
Penso di sì... dovrei andare su proprietà, poi su eventi... giusto?
Ho provato ma mi si apre le proprietà del corpo e non trovo la voce "su
attivazione"
In cosa sbaglio?
Gonzo
--
Posted from [212.210.223.131] by way of
oe24.pav1.hotmail.com
 [64.4.30.81]



title: Visualizzazione ultimo record del DB.

text:
Ciao,
    ho capito dove inserirlo, ora il problema è che mi dice che non riesce a
trovare la macro DoCmd... forse devo crearla?
Gonzo
--
Posted from [212.210.223.131] by way of
oe31.pav1.hotmail.com
 [64.4.30.88]



title: Visualizzazione ultimo record del DB.

author: Mik Mark

text:
Prova ad andare su strumenti - riferimenti quando hai il codice vba aperto.
Qui ci sono delle opzioni da "flaggare", vedi se è attivata l'opzione visual
basic for applications e microsoft access 9.0 object library!
"Gonzo" <
ultra...@hotmail.com
> ha scritto nel messaggio
news:OE31NqFJ3sl3x...@hotmail.com...



title: Visualizzazione ultimo record del DB.

text:
Grazie 1000
FATTO!!!
Devo dire che questo NG è veramente il più utile che abbia trovato!!!
C'è qualcosa che posso fare per ricambiare? Se devo cliccare su qualche
pubblicità lo faccio... ma non ne vedo...
Se non è chiedere troppo vorrei fare un'altra domanda...
Sempre nello stesso DB c'è un campo che si chiama "Clienti" che accetta solo
nomi contenuti in una Query... ho fatto un bottone che mi apre un'altra
maschera tramite la quale posso inserirne di nuovi...
Questa maschera però mi visualizza la lista completa dei clienti... mi
sarebbe più utile invece che avesse una casella di testo in cui inserire il
nominativo e un bottone "Inserisci" che se cliccato agiunge il nome alla
lista e chiude la maschera...
--
Posted from [212.210.223.131] by way of
oe33.pav1.hotmail.com
 [64.4.30.90]



title: Visualizzazione ultimo record del DB.

text:
Devi crearti una maschera (MascheraB) con il campo e il bottone Salva o
Inserisci come preferisci.
Crea il bottone nella maschera principale (MascheraA) con crezione guidata e
digli di aprire una maschera (metti la maschera che vuoi che venga
visualizzata) in modalità aggiunta!
Questo fa si che quando apri una maschera ti venga aggiunto un nuovo record
(vuoto). Poi nel pulsante Inserisci gli darai il codice per poter inserire
il valore nel DB. Poi sempre da codice gli dirai di chiudere la maschera
nuova(MascheraB).
"Gonzo" <
ultra...@hotmail.com
> ha scritto nel messaggio
news:OE33tMFaukyCK...@hotmail.com...



title: Visualizzazione ultimo record del DB.

text:
> Se non è chiedere troppo vorrei fare un'altra domanda...
> Sempre nello stesso DB c'è un campo che si chiama "Clienti" che accetta
solo
> nomi contenuti in una Query... ho fatto un bottone che mi apre un'altra
> maschera tramite la quale posso inserirne di nuovi...
> Questa maschera però mi visualizza la lista completa dei clienti... mi
> sarebbe più utile invece che avesse una casella di testo in cui inserire
il
> nominativo e un bottone "Inserisci" che se cliccato agiunge il nome alla
> lista e chiude la maschera...
>
Apri il codice associto all'evento clik del pulsante e modificalo
da così:
DoCmd.OpenForm stDocName, , , stLinkCriteria
a così:
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
La maschera si aprirà solo in inserimento dati.
Ciao
Arturo


title: Visualizzazione ultimo record del DB.

text:
Grazie ancora...
    quello che hai scritto tu è SQL?
Ora però il bottone che avevo fatto per inserire i dati in mascheraB ha
l'effetto opposto... mi spiego:
    inserisco un dato, schiaccio il bottone che crea nuovo record, mi viene
creato un nuovo record, ma quando esco il primo non è stato inserito
nell'elenco... come mai? Se invece scrivo il record e poi chiudo
direttamente la maschera tutto funziona OK. A questo punto io modificherei
il bottone in mascheraB e farei in modo che chiuda la maschera... giusto?
Grazie anche a Mik mark
--
Posted from [212.210.223.131] by way of
oe68.pav1.hotmail.com
 [64.4.30.203]



title: Visualizzazione ultimo record del DB.

text:
"Gonzo" <
ultra...@hotmail.com
> ha scritto nel messaggio
news:OE68pFVjCRGry...@hotmail.com...
> Grazie ancora...
>     quello che hai scritto tu č SQL?
A quanto ne so č VBA (Visual Basic for Applications - home made = fatto in
casa come i gnocchetti), SQL č un database (SQL Server) ... che č in un
certo senso il fratello maggiore di Access.
> Ora perň il bottone che avevo fatto per inserire i dati in mascheraB ha
> l'effetto opposto... mi spiego:
>     inserisco un dato, schiaccio il bottone che crea nuovo record, mi
viene
> creato un nuovo record, ma quando esco il primo non č stato inserito
Ovvio, succede cosě perche non ci siamo capiti (leggi oltre).
> nell'elenco... come mai? Se invece scrivo il record e poi chiudo
> direttamente la maschera tutto funziona OK. A questo punto io modificherei
> il bottone in mascheraB e farei in modo che chiuda la maschera... giusto?
Io intendevo che tu modificassi il pulsante che apre la maschera che usi per
inserire cioč il "BOTTONE"  del quale parli qui...
> Sempre nello stesso DB c'č un campo che si chiama "Clienti" che accetta
solo
> nomi contenuti in una Query... ho fatto un bottone che mi apre un'altra
> maschera tramite la quale posso inserirne di nuovi...
In modo che ti aprisse l'ALTRA maschera in modo inserimento. Devi perň
parlare in modo piů appropriato o qualcuno ti riprende... Non devi dire
nello stesso DB (DB = database č il tutto), ma nella stessa MASCHERA c'č un
CONTROLLO (non un campo, in quanto č il controllo di un campo non il campo
stesso che sta in una tabella) ... ho  fatto un PULSANTE (non un BOTTONE).
Eh Eh  ... scusa ma č tardi e sono in vena di facezie.
:-)
Vado a letto.
Ciao
Arturo


title: Visualizzazione ultimo record del DB.

text:
>Io intendevo che tu modificassi il pulsante che apre la maschera che usi
per
>inserire cioè il "BOTTONE"  del quale parli qui...
Io ho modificato il PULSANTE  :-) per l'apertura della MASCHERA di
inserimento, infatti questa viene aperta in modalità inserimento.
E fin qui tutto OK!
Prima di questa modifichina nella mascheraB (quella di inserimento) avevo
fatto un PULSANTE che mi creava un nuovo record nella lista (è giusto dire
lista... è meglio elenco... oddio! :P ).
Ora, però, questa funzione non è più richiesta e mi servirebbe che questo
pulsante funzionasse cone una sorta di "OK", siccome ho visto che chiudendo
la mascheraB il record viene inserito correttamente pensavo di dare questa
funzione al pulsante...
>A quanto ne so è VBA (Visual Basic for Applications - home made = fatto in
>casa come i gnocchetti), SQL è un database (SQL Server) ... che è in un
>certo senso il fratello maggiore di Access.
Questo cambia tutto, allora mi devo specializzare in VBA... ah ah ah ecco
l'arcano mistero che mi impediva una evoluzione in questo campo (non quello
del DB)... :-)
Cercherò qualche manualetto...
Ti ringrazio anche questa volta!
Ti dierei che ti pago da bere... ma PURTROPPO la netiquette non permette di
spedire alle NG informazioni personali...
Gonzo (sempre dall'ufficio... ancora per poco!)
--
Posted from [212.210.223.158] by way of
oe45.pav1.hotmail.com
 [64.4.30.17]



title: Visualizzazione ultimo record del DB.

text:
> Ora, perň, questa funzione non č piů richiesta e mi servirebbe che questo
> pulsante funzionasse cone una sorta di "OK", siccome ho visto che
chiudendo
> la mascheraB il record viene inserito correttamente pensavo di dare questa
> funzione al pulsante...
Beh fai un pulsante con il wizard per chiudere la maschera, non vedo il
problema...
> Ti ringrazio anche questa volta!
> Ti dierei che ti pago da bere... ma PURTROPPO la netiquette non permette
di
> spedire alle NG informazioni personali...
Potresti perň spedire qualche cassa di bottiglie a chi ti aiuta da tanto
tempo (io mi escludo), non credo che questo sia contrario alla NETIQUETTE!
:-))
Ciao
Arturo


title: controllo presenza di un dato in campo

author: gian

text:
Ciao a tutti.
Ho una tabella con:
Nome   Presenza
Pippo   S
Pippo   N
Pippo   N
Pluto    S
Qui      N
...........
Trami te query vorrei sapere se per ciascun nome, la S compare almeno una
volta e se non compare lasciare vuoto.
In pratica dovrei ottenere:
Pippo   S
Pluto    S
Qui      (Vuoto)
Mi potete dare un suggerimento?
Grazie a tutti in anticipo.
Giancarlo


title: controllo presenza di un dato in campo

author: Cinzia

text:
"gian" <
gi...@tin.it
> ha scritto nel messaggio
news:dnjgjc$4k1$1...@domitilla.aioe.org...

Ciao Giancarlo,
Prova questa:
Select Nome, iif(Sum(iif([Presenza]="S";1; 0))>0; "S"; "") as Presente  FROM
TuaTAB
GROUP BY Nome
Saluti
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


title: controllo presenza di un dato in campo

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:439d5853$0$339$5fc...@news.tiscali.it...

Ti ringrazio.
Giancarlo



title: controllo presenza di un dato in campo

text:
"gian" <
gi...@tin.it
> ha scritto nel messaggio
news:dnjgjc$4k1$1...@domitilla.aioe.org...
> Ciao a tutti.
> Ho una tabella con:
> Nome   Presenza
> Pippo   S
> Pippo   N
> Pippo   N
> Pluto    S
> Qui      N
> ...........
> Trami te query vorrei sapere se per ciascun nome, la S compare almeno una
> volta e se non compare lasciare vuoto.
> In pratica dovrei ottenere:
> Pippo   S
> Pluto    S
> Qui      (Vuoto)
>
> Mi potete dare un suggerimento?
Se la tabella che contiene i dati si chiama Tabella1 ed ha la seguente
struttura:
ID                    Contatore e chiave primaria
Nome               Testo
Presenza           Testo
Prova con una query che abbia il seguente codice SQL:
SELECT DISTINCT Tabella1.Nome, IIf(DCount("*","Tabella1","Nome = " &
Chr$(34) & [Nome] & Chr$(34) & " AND Presenza = 'S'")>0,"S","") AS Presenza
FROM Tabella1;
> Grazie a tutti in anticipo.
Prego
>
> Giancarlo
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: errore ActiveX

text:
Una applicazione creata con Access2000 e funzionante in svariati contesti,
quando viene aperta in alcuni Paesi (Bulgaria, Slovenia, Cechia) alla prima
maschera esce il seguente messaggio di errore: "L'espressione Su clic
immessa come impostazione delle proprieta' di evento ha provocato il
seguente errore: Errore di comunicazione con il server OLE o con il
controllo ActiveX"
Il comando non accettato e' un semplice:
DoCmd.close
Se puo' servire a capire cosa succede, stanno tutti usando una versione di
Office italiana mentre il S.O. Windows e' locale.
Avete qualche idea in proposito?
Grazie
Aet52


title: Tabelle collegate da due db simili, e' possibile?

author: RobertoA

text:
Devo fare una procedura che confronta i dati presenti su db1 e db2
Db1 e db2 sono due database con struttura identica
Il problema e' quando tento di collegare le tabelle del secondo db
Supponiamo che ogni dbcontenga tre tabelle, articoli, prezzi, clienti
Collegando le tabelle del primo db va tutto bene, si vedono poi dentro
l'ambiente Access ed i dati sono accessibili
Quando tento di collegare le tabelle del secondo db, usando il seguente
codice:
-------------------------
Set tdf = CurrentDb.CreateTableDef("TEMP_" & NOME_TABELLA)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------

alla prima tabella del db2 mi salta fuori un errore 3011 sul
CurrentDb.TableDefs.Append tdf
Anche se come 'nome_tabella' sto indicando un nome diverso dal nome
reale della tabella db2
Quindi in sostanza le tabelle fisicamente sono
articoli, prezzi, clienti

Il ricollegamento tabelle db1 fila liscio usando il codice
-------------------------
Set tdf = CurrentDb.CreateTableDef(NOME_TABELLA)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------

Quando vado a ricollegare le tabelle db2 col codice
-------------------------
Set tdf = CurrentDb.CreateTableDef("TEMP_" & NOME_TABELLA)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------

alla riga CurrentDb.TableDefs.Append tdf mi spara fuori l'errore 3011
Come mai?

Possono coesistere come tabelle collegate db1.articoli (che dentro
Access dovrebbe essere vista come 'ARTICOLI')  db2.articoli (che dentro
Access dovrebbe apparire come 'TEMP_ARTICOLI')


text:
----
> Possono coesistere come tabelle collegate db1.articoli (che dentro
> Access dovrebbe essere vista come 'ARTICOLI') db2.articoli (che dentro
> Access dovrebbe apparire come 'TEMP_ARTICOLI')

Si ma non vedo da nessuna parte la definizione della Connection String... da assegnare alla proprietà Connect di TDF, quindi a mio avviso quel codice o non è completo, o crei la stessa tabella 2 volte...
Se poi hai un Client e 2 BE... non capisco dove prenda i riferimenti per il BE.. ne di uno ne del secondo.

@Alex


text:
In ogni caso NON si possono chiamare allo stesso modo... metti un suffisso... DB1_NomeTabella e DB2_NomeTabella

@Alex


text:

Si, copiando ho dimenticato una riga, in effetti la sequenza di codice
che uso e' cosi'

-------------------------
Set tdf = CurrentDb.CreateTableDef("TEMP_" & NOME_TABELLA)
tdf.connect = stringa_connessione_db(2)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------

Non so cosa tu intenda per 2 be
In effetti non ho due backend ma due diversi db server ai quali mi
collego, uno e' il db lavoro, l'altro e' un db di test
E l'obiettivo e' confrontare dei record della stessa tabella
Ad esempio vorrei confrontare la tabella articoli del db lavoro e la
tabella articoli del db di test
Quindi, lavorando su tabelle collegate, volevo capire come fare per
collegare la tabella ARTICOLI del db di test con altro nome, ad esempio
TEST_ARTICOLI

Quindi supponendo di avere gia' ARTICOLI, PREZZI, CLIENTI del db1, sto
tentando di collegarmi anche alle tre tabelle ARTICOLI, PREZZI, CLIENTI
del db2

Per far questo, ad esempio con a tabella Articoli, uso il codice:

-------------------------
NOME_TABELLA='ARTICOLI'
-------------------------
Set tdf = CurrentDb.CreateTableDef(NOME_TABELLA)
tdf.connect = stringa_connessione_db(1)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------
Set tdf = CurrentDb.CreateTableDef("TEMP_" & NOME_TABELLA)
tdf.connect = stringa_connessione_db(2)
tdf.Attributes = dbAttachSavePWD
tdf.SourceTableName = NOME_TABELLA
CurrentDb.TableDefs.Append tdf
-------------------------

Ma sulla riga finale mi spara fuori un errore 3011
Eppure il nome indicato sulla  seconda
CreateTableDef("TEMP_" & NOME_TABELLA)
e' diverso dal nome tabella precedente
E' questo che si dovrebbe vedere dentro Access, giusto?


text:
Il 11/08/2021 15:46, @Alex ha scritto:
> In ogni caso NON si possono chiamare allo stesso modo... metti un suffisso... DB1_NomeTabella e DB2_NomeTabella
>
> @Alex
>

Si certo, ovviamente
Ma si puo' fare anche per collegare due tabelle, stesso nome sui due db
server (ad esempio ARTICOLI), nome diverso dentro Access (la prima
Articoli, la seconda Temp_Articoli), da due db diversi?


text:
> Si certo, ovviamente
> Ma si puo' fare anche per collegare due tabelle, stesso nome sui due db
> server (ad esempio ARTICOLI), nome diverso dentro Access (la prima
> Articoli, la seconda Temp_Articoli), da due db diversi?

Il BE è il Backend o Db Server appunto.
Si devi differenziare il Nome.

@Alex


title: assegnare variabile a controllo

author: Paolo P

text:
Codice di prova:
dim strOrd as String
strOrd = me!Ord
strOrd = "asdf"
me!Ord = strOrd
Funziona. Dopo l'ultima istruzione me!Ord = "asdf"
Pezzo di codice vero
strOrd = me!Ord
.....serie di istruzioni tra cui
    strOrd = strColonna1 & " " & "DESC" 'valore in finestra immediata
tblCslMvmnt.IDCslMvmnt DESC
....
me!Ord = strOrd.
A questo punto mi compare il messaggio di errore:
"Impossibile assegnare un valore all'oggetto"!!!!
Sicuramente sto facendo qualche idiozia, ma non riesco a capire la
differenza tra le due situazioni
PS Me!Ord è un controllo associato
Grazie Paolo


title: assegnare variabile a controllo

text:



Grazie Paolo


title: assegnare variabile a controllo

author: Antonio Biso

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c85e154$2...@news.opennet.it...

Prova a scrivere me.ord o ord e basta.
Antonio
P.S.
tblCslMvmnt.IDCslMvmnt
Groan...
E meno male che hanno inventato i nomi lunghi...


title: assegnare variabile a controllo

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Qamh8.9299$5z3.2...@twister2.libero.it...
> Paolo P <
p.pe...@inrete.it
> wrote in message
3c85e154$2...@news.opennet.it...
> > Codice di prova:
> > dim strOrd as String
> > strOrd = me!Ord
> > strOrd = "asdf"
> > me!Ord = strOrd
> >
> > Funziona. Dopo l'ultima istruzione me!Ord = "asdf"
> >
> > Pezzo di codice vero
> > strOrd = me!Ord
> > .....serie di istruzioni tra cui
> >     strOrd = strColonna1 & " " & "DESC"  (valore in finestra immediata:
> > tblCslMvmnt.IDCslMvmnt DESC)
> > ....
> > me!Ord = strOrd.
> > A questo punto mi compare il messaggio di errore:
> > "Impossibile assegnare un valore all'oggetto"!!!!
> > Sicuramente sto facendo qualche idiozia, ma non riesco a capire la
> > differenza tra le due situazioni
> > PS Me!Ord è un controllo associato
>
> Prova a scrivere me.ord o ord e basta.
>
> Antonio
>
> P.S.
> tblCslMvmnt.IDCslMvmnt
> Groan...
> E meno male che hanno inventato i nomi lunghi...
>
...Niente da fare. Solo col punto dice che non trova il membro, senza nulla
lo considera una variabile.
Io nel frattempo ho provato alla fine del set di istruzioni ad assegnare un
valore direttamente sia alla variabile che al controllo (strOrd=asdf o
me!Ord=asdf), ma continua con lo stesso messaggio. Caz...
Qualche altra idea?
Grazie intanto
PAolo


title: assegnare variabile a controllo

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c86...@news.opennet.it...

Sei sicuro che l'errore sia proprio su quella riga?
Antonio


title: assegnare variabile a controllo

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:ovrh8.11682$uN5.3...@twister1.libero.it...

Purtroppo si.
Senti, dal tenore delle tue risposte ne deduco che è un problema strano
(oppure io sto appunto facendo qualche megaidiozia, ma son quasi sicuro che
è tutto a posto); tutto sommato a parte la curiosità, non mi frega più di
tanto di sapere perchè fa così.
Io devo memorizzare il valore di quella variabile nella tabella in qualche
modo: se hai in mente qualche soluzione alternativa a me va benissimo
Grazie Paolo


title: assegnare variabile a controllo

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c86...@news.opennet.it...
>
> >
> > Sei sicuro che l'errore sia proprio su quella riga?
> >
> > Antonio
> >
> Purtroppo si.
> Senti, dal tenore delle tue risposte ne deduco che è un problema strano
> (oppure io sto appunto facendo qualche megaidiozia, ma son quasi sicuro
che
> è tutto a posto); tutto sommato a parte la curiosità, non mi frega più di
> tanto di sapere perchè fa così.
> Io devo memorizzare il valore di quella variabile nella tabella in qualche
> modo: se hai in mente qualche soluzione alternativa a me va benissimo
Beh, ci sarebbe l'uso dei recordset, quindi edit update ecc., però non si
può fare così se sei già su una maschera associata su una tabella sul record
giusto...
Senti, ma ti andrebbe di rispiegare tutto da capo, con altrte parole? Magari
viene in mente qualcosa...
Antonio


title: menù personalizzato

author: nicola

text:
Salve a tutti,
ero abituato a creare una barra di menů personalizzato con Access XP.
e distribuivo i miei database facendo visualizzare agli utenti solo
quella barra.
come faccio a fare una cosa simile in access 2007?


title: menù personalizzato

author: Roberto da Parma

text:
Se converti il db ti dovrebbe riportare anche le barre personalizzate.
--
Roberto da Parma
"nicola" <
bar...@inwind.it
> ha scritto nel messaggio
news:8hgv34d4iopkescsn...@4ax.com...



title: menù personalizzato

text:
avevo provato inizialmente
ma ricevevo errore perchč nel codice delle maschere avevo inserito il
comando per visualizzare la tal barra che perň non trovava piů
adesso ho praticamente creato da zero un nuovo db
quindi non posso recuperare dal vecchio



title: menù personalizzato

author: MA

text:
nicola wrote:
> avevo provato inizialmente
> ma ricevevo errore perchè nel codice delle maschere avevo inserito il
> comando per visualizzare la tal barra che però non trovava più
>
> adesso ho praticamente creato da zero un nuovo db
> quindi non posso recuperare dal vecchio
Litrovi nei panel "componenti aggiuntivi"
>
> On Fri, 30 May 2008 13:18:18 +0200, "Roberto da Parma"
> <
aris...@libero.it
> wrote:
>
>> Se converti il db ti dovrebbe riportare anche le barre
>> personalizzate.
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: menù personalizzato

text:
ho trovato la soluzione
a chi interessa è qui:
http://office.microsoft.com/it-it/access/HA102114151040.aspx?mode=print



title: s.matera@custom.it

author: Ferrari Rino

text:
--
------------ Servizio Info----------
Mess.:
Problema su BIG fiscale
I reg.  BIG   giorni fa dava anomalie spegnendosi e riaccendendosi da solo
ora dopo essersi pento da solo no si riacceso piu.
Da cosa potrebbe derivare il tutto?
Ferrari Rino
TEAM
SystemSoftware�
 ------------------------------------------------------
Service:
SystemSoftware�
Tel.
+39 0833.908769
Mob.
+39 347.1765908
Support Engineer Dr.: Ferrari Rino
SystemSoftware� Product Support Services
Division : Planning and development
Sector : Sup.Visor
Assistenza:Dal Lunedi al Venerdi
Orario:09:00-12:00   14:00-17:00


title: s.matera@custom.it

text: Scusate errore invio...


title: Chiusura maschera da codice

author: tiziano

text:
ciao,
ho il seguente problema.
l'utente che compila un nuovo record di "ma_schedatura" ha la necessią di
inserire una nuova voce nel controllo chiamato "Definizione_interpretativa".
Questo controllo č un menu a tendina ed i valori presenti in questo
controllo sono filtrati dal controllo "Definizione".
quindi ho ritenuto di inserire nella maschera "ma_schedatura" alla pressione
di un'etichetta l'apertura di una nuova maschera per l'inserimento immediato
del nuovo termine.
il codice riportato di seguito ha un unico neo, se decido alla domanda "Vuoi
aggiungere una nuova voce?" No la maschera che viene chiusa non č
"AGG_def_interpretativa" ma "ma_schedatura", entrambe sono maschere popup.
Function FormattedMsgBox( _
 Prompt As String, _
 Optional Buttons As VbMsgBoxStyle = vbYesNo, _
 Optional Title As String = vbNullString, _
 Optional HelpFile As Variant, _
 Optional Context As Variant) _
 As VbMsgBoxResult
    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """)")
    Else
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """, """ & _
         HelpFile & """, " & Context & ")")
    End If
End Function
Private Sub Form_load()
    Dim strtitle As String
    Dim lResponse As Long
    strtitle = "Aggiungi"
    lResponse = FormattedMsgBox("Vuoi@Aggiungere@una voce?", vbYesNo +
vbExclamation, strtitle)
        If lResponse = vbYes Then
        End If
    If lResponse = vbNo Then

            DoCmd.Close ' <-------------------- PROBLEMA
    End If
End Sub
Private Sub Comando4_Click()
If FormIsOpen("ma_schedatura") = True Then
    Forms![ma_schedatura]![Definizione_interpretativa] =
Forms![AGG_def_interpretativa]![Definizione_interpretativa]
DoCmd.Close
End If
End Sub
Private Sub Etichetta11_Click()
DoCmd.SetWarnings False
DoCmd.OpenForm ("M_compilatore")
End Sub
Private Sub Form_Current()
DoCmd.GoToRecord , , acNewRec
If FormIsOpen("ma_schedatura") = True Then
    Forms![AGG_def_interpretativa]![CCDefinizione] =
Forms![ma_schedatura]![Definizione]
End If
End Sub
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Chiusura maschera da codice

text:

docmd.close acform , "AGG_def_interpretativa"
>     End If
> End Sub
>
> Private Sub Comando4_Click()
> If FormIsOpen("ma_schedatura") = True Then
>     Forms![ma_schedatura]![Definizione_interpretativa] =
> Forms![AGG_def_interpretativa]![Definizione_interpretativa]
> DoCmd.Close
> End If
> End Sub
>
> Private Sub Etichetta11_Click()
> DoCmd.SetWarnings False
> DoCmd.OpenForm ("M_compilatore")
> End Sub
>
> Private Sub Form_Current()
> DoCmd.GoToRecord , , acNewRec
> If FormIsOpen("ma_schedatura") = True Then
>     Forms![AGG_def_interpretativa]![CCDefinizione] =
> Forms![ma_schedatura]![Definizione]
> End If
> End Sub
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Chiusura maschera da codice

text:

grazie,
Tz



title: Chiusura maschera da codice

text:
cut
ho evidenziato un problema non puň chiudere ciň che non č ancora aperto...
credo eh non ne capisco
tz


'<---------------------------------------------------------Non č ancora
aperta...



title: Chiusura maschera da codice

author: Alessandro Cara

text:
MA wrote:
[cut 50 righe]
>
> docmd.close acform , "AGG_def_interpretativa"
>
[cut 30 righe]
>
>
Certo MA che anche tu per il quoting vai forte
--
ac


title: Chiusura maschera da codice

text:

ROTFL



title: LO STRANO CASO DELL'IP DI STEVE HUGES (E DELLA STANCHEZZA DI ROBERTO)

text:
Sottotitolo: la madre dei cretini, oltre ad essere sempre incinta, li fa
anche stupidi, ma che si credono furbi...
Domenica 13 aprile alle ore 19.46 viene postato il famoso post fasullo a
firma Roberto da casa titolato
Ora sarei un po' stanco quindi.....
Se uno va a vedere negli header scopre che il messaggio è stato postato da
qualcuno con indirizzo IP
80.116.226.200
Spulciando un po' i post, e andando a puntare sul furbetto delle FAVE, uno
che conosce un minimo appena appena di internet cosa scopre?
Che il "Signor" Steve FAVA Huges effettua i seguenti post
Ore 20.08 Re: Avvio
Ore 20.09 Re: Ora sarei un po' stanco quindi.....
indovinate con che IP?
Esatto!
80.116.226.200
E' vero che potrebbe anche essere che il signor FAVA si è collegato dopo una
ventina di minuti che il furbetto del post di Roberto si è scollegato,
ricevendo lo stesso IP.
E' vero che la versione dell' OE dei tre post 6.00.2800.1106, può anche
essere solo una coincidenza che sia uguale....
certo che 'sta FAVA secondo me non c'ha proprio un cavolo da fa, e sta
rosicando come un castoro che sta mettendo i denti del giudizio!!!!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:rpTma.38835$DT4.1...@twister1.libero.it...

Grazie Antonio!!
Se si trattasse di lui, è un cretino che crede anche di essere furbo: ha
scritto il messaggio come clone e poi si è risposto per crearsi un alibi;
solo che, essendo l'unico che ha risposto a pene di segugio, ha spinto
Antonio ad orientare su di lui una piccola indagine.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Sergio MAZZA

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Y9Uma.38989$DT4.1...@twister1.libero.it...
>
>
> Grazie Antonio!!
>
> Se si trattasse di lui, è un cretino che crede anche di essere furbo: ha
> scritto il messaggio come clone e poi si è risposto per crearsi un alibi;
> solo che, essendo l'unico che ha risposto a pene di segugio, ha spinto
> Antonio ad orientare su di lui una piccola indagine.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
A me ha "puzzato" il modo di scrivere; non era il tuo...
Ciao.
--
Sergio MAZZA


author: Roberto da casa

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:b7h84g$3ic$1...@canarie.caspur.it...

Già, infatti avevi ipotizzato che si trattasse di uno scherzo.
>
> Ciao.
>
> --
> Sergio MAZZA



author: Steve Huges

text: Infatti sicuramente lui ha un altro "odore".......di m.


text:
"Steve Huges" <
hu...@email.it
> ha scritto nel messaggio
news:DYXma.25246$T34.7...@news2.tin.it...
> Infatti sicuramente lui ha un altro "odore".......di m.
>
Toglilo il ciuccio che non riesci a finire le parole...
--
Sergio MAZZA


title: Query di accodamento:domanda per esperti

author: RaGno

text:
Qualcuno ci può aiutare ???
Noi da una tabella "A" facciamo una query di accodamento in un'altra tabella
"B" con uguale struttura (che poi uso per fare un'aggiornamento su quella di
partenza). Prendendo un campo di tipo "memo" e cercando di riversarlo nello
stesso campo della tabella "B" questa query mi riporta non più 64000
caratteri (in realtà il campo ne contiene 1000) ma ne mette un massimo di
255.
Il campo di destinazione è anch'esso memo !!!
Perchè? Come dobbiamo fare?
GRAZIE da Andrea e Raffa


title: Report: Pagina di Pagine riferita al gruppo

author: Daniele

text:
Cercando e cercando sono riuscito a trovare una soluzione per il problema di
numerare le pagine di un report azzerando i contatori al cambio del gruppo.
La soluzione l'ho trovata al questo indirizzo:
http://www.mvps.org/access/reports/rpt0013.htm
L'ho provata e funziona; come specificato dallo stesso autore l'unica
modifica da apportare al codice è il nome del controllo utilizzato per il
gruppo. Aggiungo io che occorre anche cambiare il nome della SUB per la
versione di Access in italiano.
Atro pregio della soluzione è che non si limita a fornire un listato ma
contiene commenti e spiegazioni che aiutano a comprendere cosa viene fatto.
Spero che torni utile ai molti che ho visto scontrarsi con questo problema e
che non erano riusciti a trovare risposte pienamente soddisfacenti.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Esportare tab Access in foglio excel in determinate celle

text:
Salve a tutti ho una tabella "MiaTabella" con i seguenti campi:
Nome,Cognome,Citta
attraverso l'evento click di un pulsante posto su una maschera esporto i
dati di tale tabella in un file excel "MioFile.xls" già predisposto dove
in :
A1 ---> c'è scritto Nome
B1 ---> c'è scritto Cognome
C1 ---> c'è scritto Citta
quindi come detto prima sull'evento click del pulsante c'è questo codice
che mi esporta i dati nel file excel
Private Sub Comando0_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "MiaTabella",
"C:DocumentiMioFile.xls", true, "foglio1!A1:G12"
End Sub
Vorrei sapere come posso specificare le celle diverse dalle prime tre
A1,B1,C1 di excel in cui copiare i dati ?
Per esempio se volessi copiare:
Nome      ---> nella cella E2
Cognome   ---> nella cella F2
Città     ---> nella cella G2
Come dovrei fare a specificare
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Errata corrige
Nome      ---> nella cella E2
Cognome   ---> nella cella G2
Città     ---> nella cella I2



text:
Ho trovato nel ng qualcosa ma non mi funziona correttamente scrivo qui il
codice:
************************************************************
Private Sub ESPORTA_Click()
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")

    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori

    Set excDoc =
excApp.workbooks.Open("D:_administratordesktopCollegaTabLista.xls")
    excApp.Visible = True

    Set rst = CurrentDb.OpenRecordset("tb_Anagrafica")

    With rst

    .MoveFirst

    While Not .EOF

    excDoc.Worksheets(1).Cells(2, 2) = !Nome  'Cells(Riga, Colonna)
    excDoc.Worksheets(1).Cells(2, 4) = !Cognome
    excDoc.Worksheets(1).Cells(2, 6) = !Citta
    .MoveNext 'passa al prossimo record

    Wend

    End With

   rst.Close
   Set rst = Nothing

    If Not blOpen Then
        excDoc.Close savechanges:=False
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.description
    GoTo esci
End Sub
************************************************************
Il problema credo che sia in questa parte del codice che non mi fa
funzionare l'esportazione:
*******************************************************************
Set rst = CurrentDb.OpenRecordset("tb_Anagrafica")

    With rst

    .MoveFirst

    While Not .EOF

    excDoc.Worksheets(1).Cells(2, 2) = !Nome  'Cells(Riga, Colonna)
    excDoc.Worksheets(1).Cells(2, 4) = !Cognome
    excDoc.Worksheets(1).Cells(2, 6) = !Citta
    .MoveNext 'passa al prossimo record

    Wend

    End With

   rst.Close
   Set rst = Nothing
******************************************************************
Qualcuno per favore sa darmi una dritta?



text:
Io uso questa Routine:
Function EXP2XLS(SQL    as string, _
                 Optional ByRef NomeFile As String = vbNullString, _
                 Optional OpenDialog As Boolean = False, _
                 Optional CloseExcel As Boolean = True) As Boolean
    On Error GoTo Handle_err
    Dim xlApp   As Object   ' Oggetto EXCEL
    Dim oWkb    As Object   ' Oggetto WORKBOOK
    Dim x       As Integer
    Dim rs      As DAO.Recordset
    EXP2XLS= False
    ' APRE SE ESISTE GIA' UN'OGGETTO EXCEL
    Set xlApp = CreateObject("Excel.Application")
    Set oWkb = xlApp.Workbooks.Add()
    If OpenDialog = True Then
        Do Until NomeFile <> ""
            NomeFile = xlApp.GetSaveAsFilename(InitialFilename:="C:
\TestExport.xls", _
                                               fileFilter:="Excel
Files (*.xls), *.xls", _
                                               Title:="SELEZIONA NOME
FILE")
            DoEvents
        Loop
    End If
    If Len(NomeFile) = 0 Then NomeFile = "C:\TestExport.xls"
    If EsisteFile(NomeFile) Then Kill NomeFile
    oWkb.SaveAs NomeFile, 43
    ' Elimino i Fogli che Excel crea di DEFAULT
    For x = oWkb.Sheets.Count To 2 Step -1
        oWkb.Sheets(x).Delete
    Next
    ' Assegno un nome al Foglio(Sheet) rimasto.
    oWkb.Sheets(1).Name = "MANUTENZIONI"
    Set rs = CurrentDb.OpenRecordset(SQL,dbOpenDynaset,dbReadOnly)
    ' Scrivo nella Cella A1, se vuoi modificare l'inizio cambia il
riferimento
    oWkb.Sheets(1).Range("A1").CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    EXP2XLS= True
Exit_Here:
    oWkb.Save
    If CloseExcel Then
        oWkb.Close True
        xlApp.Quit
    Else
        xlApp.Visible = True
    End If
    Set oWkb = Nothing
    Set xlApp = Nothing
    Exit Function
Handle_err:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Here
End Function
@Alex


text:
@Alex ha scritto:
> Io uso questa Routine:


>     EXP2XLS= False

>     Set oWkb = xlApp.Workbooks.Add()


>             DoEvents
>         Loop
>     End If


>     oWkb.SaveAs NomeFile, 43


>     Set rs = CurrentDb.OpenRecordset(SQL,dbOpenDynaset,dbReadOnly)


>     EXP2XLS= True


> @Alex
Grazie  tante per il tuo aiuto Alex, tuttavia  sono riscito a correggere
ed a far funzionare il codice;
*******************************************************************
Private Sub ESPORTA_Click()
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
    Dim n As Integer

   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")

    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori

    Set excDoc =
excApp.workbooks.Open("D:_administratordesktopCollegaTabLista.xls")
    excApp.Visible = True

    'Apro il recordset
    Set rst = CurrentDb.OpenRecordset("tb_Anagrafica")

    'contatore righe tb_Anagrafica
    n = 1

   'Copia tutti i record di tb_Anagrafica nel file excel

    With rst

    .MoveFirst ' mi sposto su primo record

    While Not .EOF

    n = n + 1
    excDoc.Worksheets(1).Cells(n, 2) = !Nome  'Cells(Riga, Colonna)
    excDoc.Worksheets(1).Cells(n, 4) = !Cognome
    excDoc.Worksheets(1).Cells(n, 6) = !Citta
    .MoveNext 'passa al prossimo record

    Wend

    End With

   rst.Close
   Set rst = Nothing

    If Not blOpen Then
        excDoc.Close savechanges:=False
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.description
    GoTo esci
End Sub
************************************************************************
Non avevo inserito una variabile (n) che gestisse il nuovo record infatti
mi venivano sovrascritte le celle in excel ora funziona alla grande
spero possa essere di aiuto ad altri
ciauuuuuuuuuuuuu
ANCORA UN GRAZIE AD ALEX



text:

> >     ' Elimino i Fogli cheExcelcrea di DEFAULT

> mi venivano sovrascritte le celle inexcelora funziona alla grande
> spero possa essere di aiuto ad altri
> ciauuuuuuuuuuuuu
>
> ANCORA UN GRAZIE AD ALEX
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
Ciao, hai posto un problema molto simile a quello che sto cercando io
solo che invece di esportare solo i tre campi che hai citato a me
servirebbe per piu' campi senza saltare nessuna colonna e ne riga ed
estrapolati da due tabelle. Hai modo di potermi dare una mano?
Ti posto lo stesso tuo codice con le mie modifiche senza sapere in che
parte di codice devo inserire la seconda tabella.
Il codice
modificato----------------------------------------------------------------
Private Sub ESPORTA_Click()
Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
    Dim rst As Recordset
    Dim n As Integer
   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori
    Set excDoc = excApp.workbooks.Open("C:\Documents and Settings
\Bifulco1\Desktop\SOCI\CONSOLIDATO 2011\CONSOLIDATO.xlsx")
    excApp.Visible = True
    'Apro il recordset
    Set rst = CurrentDb.OpenRecordset("SOCI GENERALE")
    'contatore righe tb_Anagrafica
    n = 1
   'Copia tutti i record di SOCI GENERALE nel file excel
    With rst
    .MoveFirst ' mi sposto su primo record
    While Not .EOF
    n = n + 1
    excDoc.Worksheets(1).Cells(n, 1) = !GRUPPO_DI  'Cells(Riga,
Colonna)
    excDoc.Worksheets(1).Cells(n, 2) = !COGNOME
    excDoc.Worksheets(1).Cells(n, 3) = !NOME
    excDoc.Worksheets(1).Cells(n, 4) = !LUOGO_NASCITA
    excDoc.Worksheets(1).Cells(n, 5) = !DATA_NASCITA
    excDoc.Worksheets(1).Cells(n, 6) = !COMP_CRI
    .MoveNext 'passa al prossimo record
    Wend
    End With
   rst.Close
   Set rst = Nothing
    If Not blOpen Then
        excDoc.Close savechanges:=False
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub
-----------------------------------------------------------------------------
Queto funziona anche a me (oquasi) però ad un certo punto, quando
finisce di esportare, mi sichiude il file di excel e quando lo riapro
scopro che non hai importato un bel nulla.
Cosa mi consigli di fare?
Grazie


text:
"..:: GiGhEn ::.." <
gigh...@gmail.com
> ha scritto nel messaggio
news:358ae958-4491-4833...@q14g2000prh.googlegroups.com...
On 30 Mar, 14:11,
domy1...@gmail.com
 (Domy73) wrote:
> @Alex ha scritto:
ma un piccolo sfoltimento del quoting, per la pubblica fruizione del thread?
Antonio


text:

Anto' fa caldo!
--
ac (x=y-1)


text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:8sODp.28006$GZ3....@tornado.fastwebnet.it...

a maggior ragione!
il quoting selvaggio, con lo scrolling obbligatorio, accalora il dito e
aumenta il riscaldamento globale
che te lo dico a fa?
Antonio


title: Calcolo Media Mobile in SQL

author: Marco

text:
Buon giorno a tutti
UPDATE BB_aa1 INNER JOIN quota_aa ON BB_aa1.Data = quota_aa.data SET
BB_aa1.Media = (SELECT Avg(close) FROM quota_aa WHERE quota_aa.Data BETWEEN
dateadd('d',-20,BB_aa1.Data) AND BB_aa1.Data);
Ho scritto questa stringa SQL per calcolare una Media Mobile.
nella m ia zucca non c'è errore logico, ma m ritorna il seguente errore:
'Per l'operazione è necessaria una query aggiornabile'
che mi lascia stra perplesso.
Dove sbaglio?
Grazie mille
Marco


title: sapere la cartella del desktop

author: Nicolas

text:
è possibile in vba sapere la cartella del desktop?
esiste un qualcosa del tipo getdesktoppath?
grazie a tutti.


title: sapere la cartella del desktop

author: Cinzia

text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio
news:4868026b$1$40311$4faf...@reader5.news.tin.it...
>è possibile in vba sapere la cartella del desktop?
>
> esiste un qualcosa del tipo getdesktoppath?
>
> grazie a tutti.
Ciao Nicolas,
qui
http://msdn.microsoft.com/en-us/library/aa140088(office.10).aspx
trovi tutto.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.live.spaces.com
---------------------------------------->


title: .mdb in sola lettura ... senza ragioni

author: Stefano Marzocchi

text:
Da un cliente, di tanto in tanto, da alcuni clients "vedono" il database
condiviso su server in sola lettura.
E' sufficiente uscire e rientrare dal programma e le cose si sistemano.
Il database non è corrotto o danneggiato, e il fenomeno non si verifica su
tutte le postazioni di lavoro.
Ipotizzo che i responsabili possano essere alcuni software Ram-resident in
Tray bar (magari l'antivirus) ... ma non ho certezze.
Il fenomeno si verifica anche sul Server NT, il database è in formato Jet
3.5, l'hardware non è buono.
E' capitato a qualcun altro?
Ciao a tutti, Stefano


title: .mdb in sola lettura ... senza ragioni

author: MegaMax

text:
"Stefano Marzocchi" <
stefN...@libero.it
> ha scritto nel messaggio
news:pA0R7.274208$sq5.13...@news.infostrada.it...

A me è capitato qualcosa di simile... in pratica, su un certo DB (tutto
locale, ma interfaccia su HD e BackEend su Zip)
capita che alle volte non si riesca ad aggiornare i dati.... e dopo immense
giornate di bestemmie ho scoperto che alle volte, non so perchè ne percome
(è tutto molto casuale, e raro) CAMBIA l'utente, mentre il db è, in usco...
e l'utente che diviene quello in uso non ha accesso alle tabelle, e non va
più un tubo :-(
Non riesco assolutamente a capire perchè alle volte cambia l'utente... non
dovrebbe essere possibile una cosa del genere.
In un'altra situazione mi è capitato che compattando un BE da codice questa
operazione mi togliesse l'accesso esclusivo ad un altro BE cui era collegata
l'interfaccia, e questo mi generava svariati problemi... quindi ho eliminato
la compattazione da codice :-(
> Ciao a tutti, Stefano
Senti... ma per caso sei di Fiorenzuola?
No, perchè hai un nome che sembra quello do un mio amico... :-)
Ciao, Max


title: .mdb in sola lettura ... senza ragioni

text:
"MegaMax" <



Nel mio caso la faccenda è più fastidiosa: non ho implementato sicurezze
utenti ... si loggano tutti come administrator.
>
> Senti... ma per caso sei di Fiorenzuola?
> No, perchè hai un nome che sembra quello do un mio amico... :-)
No, non sono io  ;-D
Ciao: Stefano


title: .mdb in sola lettura ... senza ragioni

text:
> No, non sono io  ;-D
:-)


title: scusate i tre post, ma.. (per Antogal se può)

author: stwe

text:
ho capito che l'unica strada è la chiave hardware, seguendo le indicazioni
di Antogal presenti sul sitocomune, ho letto:
"Nel caso si vogliano proteggere i dati e non il programma, Access potrebbe
tenere gli archivi criptati, e la password di decrittazione sulla memoria
della chiave. Niente chiave, niente password"
La mia domanda è la seguente: come si fa a criptare l'archivio?
ho anche spulciato i vecchi post e sempre grazie a te ho anche scovato il
sito
partnerdata.it
 che ha dei prezzi ragionevoli... tempo fa avevo
desistito proprio per i costi, mentre ora vedo che la cosa si può fare...
grazie infinite
by
stwe


title: Aiuto maschera magazzino

author: Fabrizio

text:
Salve ragazzi avrei bisogno del vostro aiuto.
Ecco il mio problema
ho una tabella cosi strutturata
Magazzino
[IdArrivo][nomeDitta][dataArrivo][Colli][Volume][Peso] ecc.
Ditta
[IdDitta] [Nome Ditta] [Contatto] [Città] N° Telefono]
le due tabelle sono messe in relazione uno a molti con integrità
referenziale, in modo tale quando vado ad inserire i dati su magazzino, ogni
ditta ha l'elenco di ciò che ho caricaricato. fin qui niente di strano.
vorrei fare una maschera con la seguente funzionalità.
vorrei un menu a tendina con l'elenco delle ditte e questo ho fatto tutto ok
vorrei inoltre nella stessa maschera un casella di riepilogo che una volta
selezionate dal menu a tendina la ditta mi riepilogasse
tutto ciò che di quella ditta specifica è in magazzino.
Ma quando faccio sta benedetta casella di riepilogo e dal menu a tendina
clicco il nome della ditta mi si riepiloga anche altri dati di altree ditte
come posso fare grazie


title: Aiuto maschera magazzino

text:
"Fabrizio" <
f_j...@virgilio.it
> ha scritto nel messaggio
news:EPnsd.458775$35.19...@news4.tin.it...

Nella query che sta nell'origine riga della tua combo, devi inserire, nei
criteri, il richiamo al controllo dove hai selezionato la ditta. Qualcosa
come:
forms!miaform.IdDitta
Questo ti servirà da filtro per elencare solo dei dati inerenti alla ditta
selezionata.
--
gastone


title: Ricerca del percorso

author: il barbi

text:
In una maschera devo determinare il percorso di un file, che
e' composto di 4 rami sotto la cartella del database, cosi':
C:\RamoDelDB\ramo1\ramo2\ramo3\ramo4
ora io nella maschera assegno ramo1, ramo2 e ramo4 e so con
certezza che esiste un solo ramo3 tale che ha ramo4 come
sottocartella, e quindi vorrei trovare il metodo piu' rapido
in VBA per determinare ramo3 possibilmente evitando cicli
perditempo
(il motivo per cui non assegno anche ramo3 e' perche' e'
ridondante, ramo4 e' il dato piu' significativo, ramo3 mi
serve semplicemente per non avere una foresta di migliaia di
sottocartelle sotto ramo2, il che spero mi velocizzi
l'esecuzione oltre a facilitarmi la gestione manuale dei
files col File Manager)
il barbi


title: Ricerca del percorso

author: Pablitomf

text:
il barbi ha scritto:
> In una maschera devo determinare il percorso di un file, che
> e' composto di 4 rami sotto la cartella del database, cosi':
> C:RamoDelDBramo1ramo2ramo3ramo4
> ora io nella maschera assegno ramo1, ramo2 e ramo4 e so con
> certezza che esiste un solo ramo3 tale che ha ramo4 come
> sottocartella, e quindi vorrei trovare il metodo piu' rapido
> in VBA per determinare ramo3 possibilmente evitando cicli
> perditempo
> (il motivo per cui non assegno anche ramo3 e' perche' e'
> ridondante, ramo4 e' il dato piu' significativo, ramo3 mi
> serve semplicemente per non avere una foresta di migliaia di
> sottocartelle sotto ramo2, il che spero mi velocizzi
> l'esecuzione oltre a facilitarmi la gestione manuale dei
> files col File Manager)
> il barbi
Credimi, vorrei aver capito... ma proprio NISBA!
Che significa "assegno ramo1,2 e 4" ma non "ramo3 perchč č ridondante" ?
"Assegni" significa che sei tu che lo scrivi in un campo della tabella? e
la ridondanza dov'č?
Spiega meglio la cosa please.
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Ricerca del percorso

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel
messaggio news:copqa9$kmv$1...@news.newsland.it...
> il barbi ha scritto:
>
> > In una maschera devo determinare il percorso di un file,
che
> > e' composto di 4 rami sotto la cartella del database,
cosi':
> > C:RamoDelDB\ramo1\ramo2\ramo3\ramo4
> > ora io nella maschera assegno ramo1, ramo2 e ramo4 e so
con
> > certezza che esiste un solo ramo3 tale che ha ramo4 come
> > sottocartella, e quindi vorrei trovare il metodo piu'
rapido
> > in VBA per determinare ramo3 possibilmente evitando
cicli
> > perditempo
> > (il motivo per cui non assegno anche ramo3 e' perche' e'
> > ridondante, ramo4 e' il dato piu' significativo, ramo3
mi
> > serve semplicemente per non avere una foresta di
migliaia di
> > sottocartelle sotto ramo2, il che spero mi velocizzi
> > l'esecuzione oltre a facilitarmi la gestione manuale dei
> > files col File Manager)
> > il barbi
>
> Credimi, vorrei aver capito... ma proprio NISBA!
> Che significa "assegno ramo1,2 e 4" ma non "ramo3 perchč č
ridondante" ?
> "Assegni" significa che sei tu che lo scrivi in un campo
della tabella? e
> la ridondanza dov'č?
>
ridondante, come ho gia' scritto, vuol dire che io potrei
fare a meno di creare la sottocartello ramo3, essendo ramo4
gia' sufficiente per individuare i miei files, e metterli
sotto c:\RamodelDB\ramo1\ramo2\ramo4, ma allora avrei
migliaia di sottocartelle ramo4 tutte sotto ramo2 e penso
che questo mi rallenti l'esecuzione, oltre che ad
appesantire una eventuale gestione manuale dei files col
File Manager. Tuttavia per ragioni di omogeneita' con altre
categorie di files voglio che ramo3 sia invisibile dalla
maschera
"Assegno" vuol dire che scrivo ramo1, ramo2 e ramo4 in tre
caselle di testo della maschera
il barbi


title: Inventario query

author: Ivano

text:
Tramite una query di selezione
SELECT Prodotti.IDProdotto, Prodotti.NomeProdotto, Prodotti.Scorte,
Sum([Dettagli sugli ordini].Quantità) AS SommaDiQuantità
FROM Prodotti LEFT JOIN [Dettagli sugli ordini] ON Prodotti.IDProdotto =
[Dettagli sugli ordini].IDProdotto
GROUP BY Prodotti.IDProdotto, Prodotti.NomeProdotto, Prodotti.Scorte;
con questa riesco ad ottenere l'inventario della merce presente in
magazzino,
solo che sorge un problema con l'articolo mai venduto, dato che nella query
sopradescritta nel campo SommaDiQuantità non mette nulla negli articoli mai
trattati per cui quindi non ottengo risultati.
Per spiegarmi meglio, per avere il magazzino reale devo almeno aver venduto
un pezzo per ogni Articolo.
es pratico
Patate 100 venduti 10 totale 90
Carciofi 100 venduti 20 totale 80
ecco la fregatura
Carote 100 venduti       totale
Conoscete una soluzione che mi consenta di forzare uno zero nel campo
SommaDiQuantità?
Grazie


title: Inventario query

text:
"Ivano" <
nom...@tin.it
> ha scritto nel messaggio
news:sliW8.45010$Jj7.1...@news1.tin.it...

Hai provato con
Nz(Sum([Dettagli sugli ordini].Quantità), 0) AS SommaDiQuantità
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Inventario query

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jpjW8.11425$7N3.2...@twister2.libero.it...

Ohh finalmente (un grande) grazzzzieeee
Ciao Ivan


title: generare query da VBA con campi da maschera

text:
Salve a tutti,
avrei bisogno di un consiglio, credo più di forma che di tecnica.
Dovrei far si che tramite VBA si costruisca una query prelevando da
una maschera tutto quanto gli occorre.
Nel senso che la maschera sarà costruita con tutti i controlli
necessari per la costruzione della query, cioè caselle di selezione
per indicare da quale tabella prendere i campi (e se necessario
costruire i JOIN), radio buttons per indicare quale campo visualizzare
nella query, e textbox per filtrare....
Ora, io ho provato con 3 campi e 2 tabelle, ma il VBA che costruivo
iniziava a diventare grande a causa dei vari segmenti IF Then Else che
si costruiscono.
eccolo:
Private Sub esegui_query_Click()
Dim MyQueryDef As QueryDef
Dim strsql, base As String
If Me.ragionesociale_flag.Value = True Then
base = base & "utenti.ragionesociale, "
End If
If Me.telefono_flag.Value = True Then
base = base & "utenti.telefono, "
End If
If Me.idvenditore_flag.Value = True Then
base = base & "t_venditori.nome, "
End If
MsgBox (base)
strsql = "SELECT " & base & "contatto "
strsql = strsql & "FROM t_venditori INNER JOIN utenti ON
t_venditori.id_venditore = utenti.id_venditore"
MsgBox (strsql)
Set MyQueryDef = CurrentDb.CreateQueryDef("test", strsql)
DoCmd.OpenQuery ("test")
End Sub
Mi sono chiesto, se esiste un sistema più "semplice" per costruire
questi sistemi. Penso che alla fine avrò 3/4 tabelle da incrociare e
circa 15/20 campi da inserire. Esiste un bell'esempio (ma semplice) da
consultare, non sono riuscito a trovare molto sull'argomento neanche
sul sito comune.
Inoltre il costrutto SQL che genero potrebbe essere "enorme", questo
può generare problemi?
Ovviamente se la soluzione non è access o non è VBA (per access) ogni
suggerimento è accettato.
Grazie a tutti come sempre..
Vincenzo


author: Roberto da Parma

text:
<
Vincenzo...@gmail.com
> ha scritto nel messaggio
news:d891d076-9c0a-4bd4...@k37g2000hsf.googlegroups.com...
Salve a tutti,



eccolo:





Vincenzo
Invece di costruire tutto in VBA potresti fare così...in qualche altro post
è già stato affrontata una cosa simile...
Nella maschera su click del flag porti il valore in una casella di testo.
Su click di ogni flag mandi il corrispondente valore nella casella di testo
Quindi Su click
Private Sub Flag_Click(Cancel As Integer)
Dim base as string
if flag=-1 then base = Left(base & "utenti.ragionesociale, ";len(base &
"utenti.ragionesociale, ") -2)
else
base.OldValue (potrebbe essere questa o comunque puoi resettare il valore e
far rieseguire tutte le operazioni)
end if
End Sub
In VBA richiami alla fine solo il valore di base
strsql = "SELECT " & base & "FROM tabella INNER JOIN ...."
Ciao
--
Roberto da Parma


author: Vincenzo

text:
Ciao Roberto, innanzitutto grazie,
> Private Sub Flag_Click(Cancel As Integer)
> Dim base as string
> if flag=-1 then base = Left(base & "utenti.ragionesociale, ";len(base &
> "utenti.ragionesociale, ") -2)
in effetti è più comodo anche per gestire gli eventi, viene più semplice.
Ho un solo dubbio, non riesco bene a gestire la "concatenazione" della
variabile "Base", mi puoi spiegare meglio le funzioni Left e Len (so che
sono le basi della programmazione, ma io non le ho... ). :-)
> else
> base.OldValue (potrebbe essere questa o comunque puoi resettare il valore
> e
Qui mi da un errore, ma non mi preoccupo ora della "cancellazione".
Saluti.
Vincenzo


text:
"Vincenzo" <
nobod...@tis.it
> ha scritto nel messaggio
news:rAbAk.3112$f25....@tornado.fastwebnet.it...

Trovi tutto nella guida di access.



title: Query - come renderla piu gradevole esteticamente?

author: Giovanni®

text:
allora, mi hanno consigliato di usare una query per rendere a video i
risultati delle ricerche. il problema
è che vorrei utilizzare qualcosa di graficamente simile ad una maschera
(bitmap di sfondo, tasti per i
comandi, bordi e descrizioni...)
c'è un modo per ottenere questo risultato?
grazie


author: Roberto dal portatile

text:
"Giovanni®" <
giovann...@libero.it
> ha scritto nel messaggio
news:QkmS7.301538$sq5.14...@news.infostrada.it...

Creati una maschera con visualizzazione Maschere continue e che abbia come
origine record la tua query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Alex

text:
"Giovanni®" <
giovann...@libero.it
> wrote in message
news:QkmS7.301538$sq5.14...@news.infostrada.it...

Si, usa una Maschera che ha come origine dati la QUERY, imposti la proprietà
Visualizzazione Predefinita=Machere Continue
@Alex
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: colonne in un report

author: VINCENZO BARBATI

text:
Qualcuno mi sa spiegare perché con A2000 imposto le colonne a 3
e saltuariamente me le ritrovo a 1 con i margini cambiati????????
cercasi soluzione.
Grazie a tutti


title: Andare a ultimo record

author: Ocram

text:
Un saluto a tutto l'NG.
Devo gestire una serie di documenti diversi (ddt, fatture)inseriti in
un'unica tabella.
Vorrei poter andare all'ultimo record in una maschera in corrispondenza
del tipo di documento scelto.
Grazie.


title: Andare a ultimo record

author: Alessandro Baraldi

text:

Vedi nell'Help il metodo GotoRecord(mi pare) membro di DoCmd e leggi
le opzioni e l'esempio.
@Alex


title: Andare a ultimo record

author: Marco

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c0102bdc-d586-4189...@n20g2000hsh.googlegroups.com...

Scusami, ma non riesco a capire dall'Help come posizionarmi sull'ultimo
record nel quale ci sia il tipo di documento scelto. Mi spiego meglio: se
voglio inserire una nuova fattura vorrei aprire la maschera relativa e
vedere l'ultima fattura emessa e poi inserirne una nuova.
Mi puoi dare qualche altro suggerimento ?
Grazie, Ocram


title: Andare a ultimo record

author: ALESSANDRO Baraldi

text:
> Scusami, ma non riesco a capire dall'Help come posizionarmi sull'ultimo
> record nel quale ci sia il tipo di documento scelto. Mi spiego meglio: se
> voglio inserire una nuova fattura vorrei aprire la maschera relativa e
> vedere l'ultima fattura emessa e poi inserirne una nuova.
> Mi puoi dare qualche altro suggerimento ?
> Grazie, Ocram
Certo... dimmi quale parte del comando non ti è chiara nell'Help...!
In particolare il parametro Record lo hai letto....?
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Andare a ultimo record

author: Alessandro Cara

text:
ALESSANDRO Baraldi wrote:
>> Scusami, ma non riesco a capire dall'Help come posizionarmi sull'ultimo
>> record nel quale ci sia il tipo di documento scelto. Mi spiego meglio: se
>> voglio inserire una nuova fattura vorrei aprire la maschera relativa e
>> vedere l'ultima fattura emessa e poi inserirne una nuova.
>> Mi puoi dare qualche altro suggerimento ?
>> Grazie, Ocram
>
> Certo... dimmi quale parte del comando non ti è chiara nell'Help...!
> In particolare il parametro Record lo hai letto....?
>
Mi pare di ave capito che i documenti, di vario tipo, stanno tutti nella
stessa tabella. Quindi l'acLast non e' sufficiente. Deve anche filtrare
e questo fa diventare il tutto un "bel" problema. Se poi in base al tipo
documento deve aprire anche la form relativa, al solito, siamo davanti
al classico vaso di pandora, lo apri e viene fuori di tutto.
La noia e' una bestia indomabile.  Per fortuna il nick e' "ocram".
Quasi quasi mi sparo "io sono nato libero" del Banco del mutuo soccorso.
;<)
--
ac
y-1=x


title: Andare a ultimo record

text:
> Mi pare di ave capito che i documenti, di vario tipo, stanno tutti nella
> stessa tabella. Quindi l'acLast non e' sufficiente. Deve anche filtrare
> e questo fa diventare il tutto un "bel" problema. Se poi in base al tipo
> documento deve aprire anche la form relativa, al solito, siamo davanti
> al classico vaso di pandora, lo apri e viene fuori di tutto.
> La noia e' una bestia indomabile.  Per fortuna il nick e' "ocram".
> Quasi quasi mi sparo "io sono nato libero" del Banco del mutuo soccorso.
> ;<)
>
> --
> ac
> y-1=x
Non posso, credo, addentrarmi nel difetto di struttura...facerndo
supposte...
ma almeno l'uso di acLast deve essere raggiunto...
Per il mutuo(rimanendo in tema di supposte) poi ne ho abbastanza del mio non
mi far pensare a quello di altri...!
;-)



title: Andare a ultimo record

author: Popi - TheBadHabits

text:
On 17 Dic, 10:14, Ocram <
postmas...@mmsistemi.it
> wrote:

Ciao :)
Se la tua tabella fosse ordinata per TipoDoc/NumeroDoc ed il campo
TipoDoc fosse numerico (1->fattura,2->ddt,3->altro,...) nell'evento
click di un combo box TipoDaCercare potresti usare qualcosa di questo
genere:
Dim rsCerca as DAO.RecordSet
Set rsCerca = Me.RecordSetClone
rsCerca.FindFirst "TipoDocumento>" & Me.TipoDaCercare
If (rsCerca.NoMatch=True) then
    rsCerca.MoveLast
End If
Me.Bookmark=rsCerca.Bookmark
Set rsCerca = Nothing
HTH Roberto


title: Andare a ultimo record

text:

Uhmmmmmm........ posso dire "nein"?
Come la vedo io
myDoc = dmax("campoidentificativo","miatabella","tipodoc ='" &
me.tipodoc & "'")<--- ti salva dai problemi DAO/ADO ed e' piu' veloce
della findfirst
if "" & mydoc = "" then Msgbox "Sto tipo doc nun esiste"
sempre che il valore massimo sia trovabile (i.e. codici del tipo
nnnn/aa, si trova lo stesso, sarebbero disdicevoli, )
ora la findfirst (find se ADO) va bene,se la fa direttamente sul
recordset invece che sul recordsetclone non ha bisogno del bookmark.
--
ac
y-1=x


title: Andare a ultimo record

text:
On 18 Dic, 11:24, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> Uhmmmmmm........ posso dire "nein"?
Ja Telefunken!
> Come la vedo io
> myDoc = dmax("campoidentificativo","miatabella","tipodoc ='" &
> me.tipodoc & "'")<--- ti salva dai problemi DAO/ADO ed e' piu' veloce
> della findfirst
>
> if "" & mydoc = "" then Msgbox "Sto tipo doc nun esiste"
>
> sempre che il valore massimo sia trovabile (i.e. codici del tipo
> nnnn/aa, si trova lo stesso, sarebbero disdicevoli, )
>
> ora la findfirst (find se ADO) va bene,se la fa direttamente sul
> recordset invece che sul recordsetclone non ha bisogno del bookmark.
Oh beh, io m'ero limitato a buttar giù una soluzione senza neanche
provare il codice e tu disquisisci di prestazioni ... ma allora ce
l'hai con me!!! :D
Cmq un'altra soluzione potrebbe essere avere un recordset indipendente
per ogni tipo documento ... tanto non saranno migliaia, no?
Roberto


title: Stampa + report

author: giainoflower

text:
ciao a tutti
tramite autocomposizione mi sono costruito una maschera dove ho inserito
diversi pulsanti che mi stampano diversi repot, ora vorrei che alcuni di
questi report siano stampati in piů copie (es. 3 copie) in modo
automatico....
come posso fare
Grazie
=======================================
 ------------------ Giaino Flower ----------------------
=======================================


title: Stampa + report

author: Riccardo

text:
giainoflower <
gia...@galactica.it
> wrote in message
kCMa8.17041$tv6.4...@twister1.libero.it...
> ciao a tutti
> tramite autocomposizione mi sono costruito una maschera dove ho inserito
> diversi pulsanti che mi stampano diversi repot, ora vorrei che alcuni di
> questi report siano stampati in più copie (es. 3 copie) in modo
> automatico....
> come posso fare
>
> Grazie
>
> =======================================
>  ------------------ Giaino Flower ----------------------
> =======================================
>
______________
potresti fare una macro per la stampa del report e nel modulo poi scrivi:
DoCmd.RunMacro "NomeMacro",3
ciao Riccardo


title: Stampa + report

text:
giainoflower <
gia...@galactica.it
> wrote in message
kCMa8.17041$tv6.4...@twister1.libero.it...
> ciao a tutti
> tramite autocomposizione mi sono costruito una maschera dove ho inserito
> diversi pulsanti che mi stampano diversi repot, ora vorrei che alcuni di
> questi report siano stampati in più copie (es. 3 copie) in modo
> automatico....
> come posso fare
>
> Grazie
>
> =======================================
>  ------------------ Giaino Flower ----------------------
> =======================================
>
>
Metodo PrintOut nella guida di Access


title: Stampa + report

author: Emyr

text:
On Thu, 14 Feb 2002 10:48:48 GMT, "giainoflower" <
gia...@galactica.it
>
wrote:
>ciao a tutti
>tramite autocomposizione mi sono costruito una maschera dove ho inserito
>diversi pulsanti che mi stampano diversi repot, ora vorrei che alcuni di
>questi report siano stampati in più copie (es. 3 copie) in modo
>automatico....
>come posso fare
>
>Grazie
>
>=======================================
> ------------------ Giaino Flower ----------------------
>=======================================
>
vai sul codice del tasto e ripeti la stringa di stampa
docmd.openreport ....
  n volte
Saluti.
Emanuele.


title: Evitare che un recordset sia vuoto e si visualizzi in Form

author: Fabio

text:
          Buonasera a Tutti!
Il mio problema è questo. Una maschera mi visualizza i risultati di una
Query di una tabella parametrica su un campo.(la maschera ha come origine
record la query)
Voglio che alla pressione di un pulsante della maschera(Form_click()) ed in
base al parametro variabile la maschera mi visualizzi il record che viene
trovato. Il parametro lo genero con la funzione Rnd e Randomize.
Per fare questo all’evento click del pulsante ho generato del codice SQL per
la proprietà Me.Recordsource della maschera.
Tutto mi piace quando il parametro mi restituisce dei record. La maschera mi
visualizza i record ed anche dei bei controlli immagine che ho
inserito.Quando invece il parametro immesso non mi restituisce nessun record
come posso evitare che nel corpo della maschera si visualizzi il vuoto?
Ossia: se il parametro non mi restituisce nulla il corpo della maschera è
vuoto. Io vorrei invece un ciclo che mi rilanci la query SQL fino a quando
ho un parametro funzionante.
Spero di essere stato chiaro! Ciao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Roberto da casa

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
news:151Z96Z0Z8Y11...@usenet.libero.it...

Puoi crearti un ciclo all'interno del quale verifichi, ad esempio tramite
una  funzione DCount (vedi help), se nella tabella sulla quale hai basato il
codice SQL di cui sopra esista almeno un record che soddisfi i criteri di
ricerca: in caso positivo apri la maschera ed in caso contrario ricalcoli
con le funzioni Rnd e Randomize il parametro e ripeti la verifica.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: stampa descrizione maschere

text:
Un saluto a tutto il NG.
Ormai grazie a google vivo in autosussistenza :)
ma sta' questione non mi riesce propio di risolverla:
cliccando con il tasto destro sul nome di una maschera
e selezionando la voce "proprietà" si ha la possibilità
di scrivere del tasto nel campo "descrizione"
io vorrei poter "maneggiare" quel testo da codice.
Come faccio??
Tnk!
Ciao
Leandro
--
... l'Ingegneria del software dovrebbe permettere al committente
di ottenere qualcosa di ragionevolmente simile a quanto richiesto,
ad un prezzo in qualche modo imparentato con quello preventivato
(ad esempio, nella stessa valuta e senza numeri immaginari)


title: stampa descrizione maschere

author: @Alex (Alessandro Baraldi)

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:bf6gu8$9d58o$1...@ID-98670.news.uni-berlin.de...

Prova a smanettare con l'oggetto Forms(NomeForm).Description
Ciao.
@Alex.


title: stampa descrizione maschere

author: Sergio MAZZA

text:
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:bf6gu8$9d58o$1...@ID-98670.news.uni-berlin.de...
> Un saluto a tutto il NG.
> Ormai grazie a google vivo in autosussistenza :)
> ma sta' questione non mi riesce propio di risolverla:
> cliccando con il tasto destro sul nome di una maschera
> e selezionando la voce "proprietą" si ha la possibilitą
> di scrivere del tasto nel campo "descrizione"
> io vorrei poter "maneggiare" quel testo da codice.
> Come faccio??
> Tnk!
> Ciao
> Leandro
> --
> ... l'Ingegneria del software dovrebbe permettere al committente
> di ottenere qualcosa di ragionevolmente simile a quanto richiesto,
> ad un prezzo in qualche modo imparentato con quello preventivato
> (ad esempio, nella stessa valuta e senza numeri immaginari)
Prova a riadattare questo codice:
Dim oCtr As Container, doc As Document
For Each oCtr In CurrentDb.Containers
    Debug.Print "--------------"
    Debug.Print "Contenitore: " & oCtr.Name
    Debug.Print "--------------"
    For Each doc In oCtr.Documents
       Debug.Print "Documento: " & doc.Name
       Debug.Print doc.Properties("description")
    Next
    Debug.Print "--------------"
Next
Set oCtr = Nothing
Set doc = Nothing
Ciao.
--
Sergio MAZZA


title: stampa descrizione maschere

author: yQy

text:
On Thu, 17 Jul 2003 19:23:44 +0200, "Sergio MAZZA"
<
sergi...@tiscalinet.it
> wrote:
>Dim oCtr As Container, doc As Document
Container e' di DAO o ADO?
L'ho provato in access97 e XP ma nn lo riconosce...


title: stampa descrizione maschere

text:
"yQy" <
fabrizi...@tin.it
> ha scritto nel messaggio
news:hfqdhv8otp7m0kual...@4ax.com...

Ti avevo detto una baggianata.......!
L'oggetto Containers è di DAO e va usato con l'Oggetto Documents.
Trovi un ottimo esempio nell'Help.
In ogni caso ti allego una riga per estrarre la desrizione di una Form:
CurrentDb.Containers("Forms").Documents("NomeTuaMaschera").Properties("Descr
iption")
Non c'è bisogno di ciclare tutti gli oggetti di Containers, ti basta ciclare
tra le Forms ed estrarre
la Properties("Description").
Se invece devi modificarla allora accedi alla proprietà Value e ne modifichi
il Valore.
@Alex.


title: stampa descrizione maschere

text:
Sergio MAZZA ha scritto:
> Prova a riadattare questo codice:
>
> Dim oCtr As Container, doc As Document
>
> For Each oCtr In CurrentDb.Containers
>     Debug.Print "--------------"
>     Debug.Print "Contenitore: " & oCtr.Name
>     Debug.Print "--------------"
>     For Each doc In oCtr.Documents
>        Debug.Print "Documento: " & doc.Name
>        Debug.Print doc.Properties("description")
>     Next
>     Debug.Print "--------------"
> Next
>
> Set oCtr = Nothing
> Set doc = Nothing
(Ho fatto pasticci col client delle news:
scusate eventuali replay doppi o in privato!)
Grazie a tutti!
Riporto di seguito il codice di Sergio che ho adattato
(stampa l'output su file di testo e gestisce l'errore
  nel caso la propieta' non esista)
Sub PrintDescriptions()
On Error GoTo Err_PrintDescriptions
   Dim oCtr As Container, doc As Document
   Dim docYN As Boolean
   Open "d:\temp\Descriptions.txt" For Append As #1
   For Each oCtr In CurrentDb.Containers
     Print #1, "----------------------------"
     Print #1, "Contenitore: " & oCtr.Name
     Print #1, "----------------------------"
     docYN = False
     For Each doc In oCtr.Documents
       docYN = True
       Print #1, "Documento: " & doc.Name
       Print #1, doc.Properties("description")
       Print #1,
     Next
     If Not docYN Then Print #1, "no docs       "
     Print #1, "============================"
   Next
   Set oCtr = Nothing
   Set doc = Nothing
   Close #1
   Exit Sub
Err_PrintDescriptions:
   Print #1, "no description"
   Resume Next
End Sub
--
Leandro


title: query di eliminazione

author: Donato

text:
Avrei bisogno di un aiuto x' č tutto il giorno che ci perdo la testa senza
riuscirci.
In un db con due tabelle in relazione uno a molti, ho bisogno di "ripulire"
la tabella UNO eliminandone i record che non sono presenti nella tabella
MOLTI.
I record sono di tipo contatore univoci.
Qualche suggerimento?
Grazie


title: query di eliminazione

author: MA

text:
"Donato" <
ato...@infinito.it
> ha scritto nel messaggio
news:bjku3c$m6k$1...@newsread.albacom.net...
> Avrei bisogno di un aiuto x' è tutto il giorno che ci perdo la testa senza

Creati una query in cui gli dici di vedere tutti i record del lato uno e
quelli del lato molti
SELECT Tab_uno.ID, Tab_uno.Uno, Tab_molti.rif_uno, Tab_molti.molti
FROM Tab_uno LEFT JOIN Tab_molti ON Tab_uno.ID = Tab_molti.rif_uno
WHERE (((Tab_molti.rif_uno) Is Null));
ciao MAssimiliano


title: Richiamare windows media player

author: AntFast

text:
Ciao a tutti.

Ho inserito il codice  seguente per dialogare con Windows Media Player:
Set Player = CreateObject("wmplayer.ocx")
Non funziona, mi segnala l'errore :
Errore di run-time '-
2147467259
 (80004005)' :
Errore di automazione
Errore non specificato.

Se inserisco lo stesso codice in un file.vbs funziona perfettamente.

Non capisco cosa abbia bisogno Access per riconoscere tale codice ..

Antonio


title: Richiamare windows media player

author: Pablitomf

text:
> Non capisco cosa abbia bisogno Access per riconoscere tale codice ..

i riferimenti?

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: Richiamare windows media player

text:
"Pablitomf"  ha scritto nel messaggio
news:201302211...@mynewsgate.net...

> Non capisco cosa abbia bisogno Access per riconoscere tale codice ..

i riferimenti?

Uso Access 2003 e windows 7 con relativo Media player
Come ho giï¿œ scritto, se tale codice lo uno direttamente in un file.vbs
viene riconosciuto perfettamente. Se lo uso in access mi segnala l'errore
che
ho segnalato


title: [OT] Futuro di Access

author: RinoŽ

text:
Salve da qualcosa letta qua e la non si parla chiaramente del futuro di
Access .
Qualcuno sa qualcosa in merito?
Come da un post precedente che
palava di un abbandono della Microsoft di VB 6
toccherà anche agli accessisti ciò?
Ciao
Rino®


title: [OT] Futuro di Access

author: Gaspare

text:
"Rino®" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:f2R6e.1221955$35.44...@news4.tin.it...

Ciao Rino,
vb non è vba.
Office ci sarà sempre.
La scelta da parte di microsoft di implementare la nuova piattaforma .net è
una scelta prettamente commerciale (come d'altronde tutte le altre fatte
fino ad ora).
Nuovo software, nuovi linguaggi, nuove ceritificazioni, nuovi libri, nuovi
corsi = PIU' SOLDI !
Chi inizia a programmare adesso non trova sul mercato il vb ed è costretto
ad usare il
vb.net
 e quindi microsoft si crea una nuova fetta di mercato...
Inoltre a microsoft pesava la rivoluzionaria idea di "java" e quindi crea
dei linguaggi orientati agli oggetti: dove qualunque cosa, ad iniziare da un
semplice form, è l'istanza di una classe...
E' possibile sottoscrivere in rete all'indirizzo
http://www.classicvb.org/petition/
 una petizione internazionale, indirizzata
alla Microsoft Corp., per l'attivazione di una strategia di supporto e di
sviluppo al linguaggio di programmazione Visual Basic.
Se pensi di creare dei db non mi preoccuperei più di tanto al tuo posto...
D'latronde il mondo della programmazione è proprio questo: da c  a c++, da
basic a visual basic per dos e poi per windows, da access 1.x ad access
2003... eppure i sistemi operativi si basano ancora sulle "tradizionali" dll
fatte da librerie implementate con il vecchio e classico "c".
Fatti guidare dalla passione: il mercato è imprevedile, oggi più che mai!
Se vai sul sito di
www.mokabyte.it
 (la prima rivista virtuale su java...) ti
accorgi di quanto possa svanire un sogno: java, considerato un linguaggio su
cui investire, è andato in secondo piano ed adesso per fare i soldi bisogna
vendere tutto quello che prima veniva offerto gratis!
Sono amico di un'ingegnere (giuseppe mascarella) che attualmente lavora a
seattle ( microsoft) ed ha lavorato per tanto tempo a roma -> mi ha sempre
consigliato di investire su vb: cosa gli dovrei rispondere adesso ?
Ovviamente è la mia è solo 1 opinione...che ben vengano le critiche!
Gaspare


title: [OT] Futuro di Access

author: Oscar Manfredini

text:
"Rino®"
> Salve da qualcosa letta qua e la non si parla chiaramente del futuro di
> Access .
> Qualcuno sa qualcosa in merito?
Per esempio:
http://databasejournal.com/features/msaccess/article.php/3385961
> Come da un post precedente che
> palava di un abbandono della Microsoft di VB 6
> toccherà anche agli accessisti ciò?
Non solo agli Accessisti ma pure ai Delphisti!
Anche Borland sta investendo nel FrameWork .NET ed è da mettere in conto che
tra vari anni gli ambienti non .NET non saranno più supportati.
In rapporto ad Access, beh, diciamo che senz'altro la prossima versione (le
indiscrezioni sono attendibili e varie) di Office continuerà a supportare il
vecchio Visual Basic.
Il che significa facilità di conversione a tale realese e supporto del
prodotto assicurato almeno fino al ... diciamo 2014/15.
Non male direi.
E' andata sicuramente peggio a chi sviluppava con VB5/6 ed è un problema che
ha riguardato anche Software houses a livello nazionale.
Nel 2000 varie note società avevano finito di convertire (a prezzo di molti
soldi e sacrifici) procedure Cobol mastodontiche ... nel 2002 la scoperta di
essere in braghe di tela.
Almeno sulla carta, poi si sa: girano ancora ottimamente molti programmi
sviluppati in Access 2.0 o VB3, prodotti non supportati da anni.
Ciao.


title: [OT] Futuro di Access

author: ciroteo

text:
"Rino®" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:f2R6e.1221955$35.44...@news4.tin.it...

Infatti cosa si intende per supporto da parte di microsoft?
La ricerca e correzione dei bug?
E quale sarebbe il linguaggio di programmazione open source che potrebbe
essere rivale di .net? Sempre che ne esista uno?


title: [OT] Futuro di Access

text:
"ciroteo" <
> Infatti cosa si intende per supporto da parte di microsoft?
> La ricerca e correzione dei bug?
Per supporto s'intende la documentazione di bug (e scappatoie) sulla KB, la
distribuzione di Service Packs e HotFix per la correzione dei problemi.
Un prodotto non più supportato può, ad esempio, essere incompatibile con i
nuovi sistemi operativi ... e non ci saranno patch per sistemare la cosa.
Ciao.


title: [OT] Futuro di Access

author: Fabrizio yQy

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d3ii30$cfu$1...@hulme.interac.it...
>
> "RinoŽ" <
rinof...@virgilio.it
> ha scritto nel messaggio
> news:f2R6e.1221955$35.44...@news4.tin.it...
> > Salve da qualcosa letta qua e la non si parla chiaramente del futuro di
> E quale sarebbe il linguaggio di programmazione open source che potrebbe
> essere rivale di .net? Sempre che ne esista uno?
>
php5


title: [OT] Futuro di Access

author: TheMax

text:
Fabrizio yQy wrote:
> "ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
> news:d3ii30$cfu$1...@hulme.interac.it...
>> E quale sarebbe il linguaggio di programmazione open source che
>> potrebbe essere rivale di .net? Sempre che ne esista uno?
>
> php5
Secondo me si fa un pochina di confusione tra .net e VB.net e
asp.net
, in
particolare e brevemente in quanto in 3 righe non è semplice spiegarlo.
.net ed il suo framekork sono una cosa completamente diversa da
vb.net
, se
vogliamo il framekork "può" essere considerato come ""un'evoluzione"" della
Java Virgual Machine
Vb.net è un linguaggio di programmazione ("simile" a vb6/vba), ma
completamente nuovo per quanto riguarda l'uso/progettazione degli oggetti.
asp.net
 "può" essere confrontato con PHP anche se in
asp.net
 viene
introdotto un nuovo concetto di separazione del codice HTML, dal codice
eseguito Server-Side
[pubblicità]
Per maggiori info... rimando a CISA1 ;-)
[/pubblicità]
Con questo non sostengo che .net sia migliore di php, ma che sono
pensati/servono a cose anche diverse.
Ciao,
Massimo


title: [OT] Futuro di Access

text:
"TheMax" <
massimo...@accessgroup.it
> ha scritto nel messaggio
news:d3kajd$ggt$1...@fata.cs.interbusiness.it...
> Fabrizio yQy wrote:
> > "ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
> > news:d3ii30$cfu$1...@hulme.interac.it...
>
>
> Secondo me si fa un pochina di confusione tra .net e VB.net e
asp.net
, in
> particolare e brevemente in quanto in 3 righe non è semplice spiegarlo.
> .net ed il suo framekork sono una cosa completamente diversa da
vb.net
, se
> vogliamo il framekork "può" essere considerato come ""un'evoluzione""
della
> Java Virgual Machine
> Vb.net è un linguaggio di programmazione ("simile" a vb6/vba), ma
> completamente nuovo per quanto riguarda l'uso/progettazione degli oggetti.
>
asp.net
 "può" essere confrontato con PHP anche se in
asp.net
 viene
> introdotto un nuovo concetto di separazione del codice HTML, dal codice
> eseguito Server-Side
>
> [pubblicità]
> Per maggiori info... rimando a CISA1 ;-)
> [/pubblicità]
>
> Con questo non sostengo che .net sia migliore di php, ma che sono
> pensati/servono a cose anche diverse.
ma concordo in pieno, conosco net e php, li uso entrambi...e ho detto php5
solo per ironia :)
che cmq ha i suoi punti di forza...come
asp.net
 i suoi :)
ciao :)


title: [OT] Futuro di Access

text:
Fabrizio yQy wrote:
[CUT]
> ma concordo in pieno, conosco net e php, li uso entrambi...e ho detto
> php5 solo per ironia :)
Ahhhh... non avevo visto lo smiley;-)
> che cmq ha i suoi punti di forza...come
asp.net
 i suoi :)
Sicuramente, ho visto diverse novità carine guardando sul sito di php, solo
che non ho voglia di mettermi ad imparare un nuovo linguaggio...
> ciao :)
Ciao,
Massimo


title: output su excel

author: melo

text:
ciao,
sapete dirmi se è possibile realizzare un output su excel (tramite il
comando OutputTo) esportando più tabelle sul medesimo file di excel,
magari su fogli differenti?
vorrei evitare in questo caso l'esportazione su celle predefinite come
descritto nell'esempio di automazione sul sitocomune.
ciao e grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: output su excel

text:
"melo" <
mel...@tiscalinet.it
> ha scritto nel messaggio
news:cni0b8$5uv$1...@news.newsland.it...
> ciao,
> sapete dirmi se è possibile realizzare un output su excel (tramite il
> comando OutputTo) esportando più tabelle sul medesimo file di excel,
> magari su fogli differenti?
> vorrei evitare in questo caso l'esportazione su celle predefinite come
> descritto nell'esempio di automazione sul sitocomune.
> ciao e grazie
Tramite OutPutTo non è possibile indicare in quale foglio inviare i dati
anche perché il file viene ricreato tutte le volte che esegui l'istruzione.
Invece di fare un output su excel fai (da excel) un input da access; ossia
apri il foglio e con Dati - Importa dati esterni - nuova query su database
ottieni per ogni foglio i dati di access...
Ciao.
--
Sergio MAZZA


title: come impedire copia del DB ???

author: SuperPippo®

text:
ciao a tutti.. vorrei fare una piccola domanda..
forse già fatta tante volte...
avrei la necessità di far funzionare un DB solo su un
PC ma inpedirne il funzionamento se nel caso fosse trasferito
lo stesso in altri pc...
come posso fare ???


title: come impedire copia del DB ???

author: Salvatore

text:
"SuperPippo®" <ik0qddT*O*G*L*I*S*P*A*M@T*O*G*L*I*S*P*A*M*
libero.it
> ha
scritto nel messaggio news:vIn4c.64712$Kc3.2...@twister2.libero.it...

Sul sitocomune, nella sezione general trovi una funzione che fa al caso tuo,
sfruttando il numero del disco rigido.
Ciao
Salvatore


title: come impedire copia del DB ???

author: ALESSANDRO Baraldi

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c2t26o$663$1...@lacerta.tiscalinet.it...

Speriamo che poi il Cliente non debba Formattare mai la macchina....!
Il numero dell'HD viene attribuito nuovo ogni Formattazione....!!!
@Alex.


title: come impedire copia del DB ???

author: Mac

text:
tanto vale creare un file di controllo su qualche cartella nascosta,
all'insapute del cliente, in modo che il db controlli all'avvio se tale
file e' presente o meno.
se non e' presente..significa che il db e' stato avviato su un pc non
autorizzato.
usare l'hd serial non e' significativamente piu sicur di questo metodo...
cmq...ci ho pensato anche io....e visto che le protezioni che si possono
fare nel codice vb non sono il massimo della protezione...secondo me la
cosa migliore e' fare in modo che il codice vb crei un programmino
esterno di controllo..il quale ci invii una mail contenente informazione
sul pc nel quale c'è il db.
che dite?


title: come impedire copia del DB ???

text:
"Mac" <
di...@aad.com
> ha scritto nel messaggio
news:c0s4c.38374$z23.1...@news3.tin.it...

Credo non sia legale inviare Mail di nascosto.
Stiamo parlando di Access.... non di patatine....!!!
File Nascosti o altro...??
Ci sono i Registri per questo, criptando il dato....!
Metodi ce ne sono usando tecnica e fantasia...!
@Alex.


title: come impedire copia del DB ???

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c2udd1$unv$1...@lacerta.tiscalinet.it...
>
> Credo non sia legale inviare Mail di nascosto.
> Stiamo parlando di Access.... non di patatine....!!!
> File Nascosti o altro...??
> Ci sono i Registri per questo, criptando il dato....!
>
> Metodi ce ne sono usando tecnica e fantasia...!
> @Alex.
--------------
Ciao.. cmq a me servirebbe una soluzione piuttosto semplice...
dato che gli utilizzatori del pc sono molto, molto inesperti...
quindi anche il fatto di dover creare un piccolo
file nascosto che se all'avvio del programma non trova non parte..
mi spiegate come dovrei fare ???
Grazie...


title: come impedire copia del DB ???

text:
ALESSANDRO Baraldi wrote:
> Credo non sia legale inviare Mail di nascosto.
scusami, se il cliente compra da me un software avro' pure il diritto di
     farmi mandare delle informazioni sull'uso che se ne sta facendo del
mio sw?!
non sto mica fregando dati personali o sensibili del cliente! sto solo
proteggendomi dalla pirateria.
Se il cliente fa le cose pulite, cosa gli interessa il fatto che il
software invii (soltanto a me) dati via internet (non e' detto che sia
per email)?
quasi tutti i sw recenti inviano dati in internet...chissa' perche
> Stiamo parlando di Access.... non di patatine....!!!
non l'ho capita
> File Nascosti o altro...??
> Ci sono i Registri per questo, criptando il dato....!
beh ..non cambia molto tra fare un file di controllo ...e una chiave di
registro.. Il registro e' sempre un file :)


title: come impedire copia del DB ???

author: cidi

text:
"Mac" <
di...@aad.com
> ha scritto nel messaggio
news:mzC4c.47495$O31.2...@news4.tin.it...
> ALESSANDRO Baraldi wrote:
>
> > Credo non sia legale inviare Mail di nascosto.
>
> scusami, se il cliente compra da me un software avro' pure il diritto di
>      farmi mandare delle informazioni sull'uso che se ne sta facendo del
> mio sw?!
>
> non sto mica fregando dati personali o sensibili del cliente! sto solo
> proteggendomi dalla pirateria.
Con il tuo stesso ragionamento tutte le copie pirata di Windows e Office
manderebbero un'avviso
alla Microsoft che a sua volta potrebbe, in qualche modo rivalersi su gli
incauti pirati?
MA ANDIAMO!!!
> Se il cliente fa le cose pulite, cosa gli interessa il fatto che il
> software invii (soltanto a me) dati via internet (non e' detto che sia
> per email)?
> quasi tutti i sw recenti inviano dati in internet...chissa' perche
Daniele