title: Re: Copia DB...

author: Pablitomf (Maurizio Facciuti)

text:
<
Gionatan.A...@gmail.com
> ha scritto nel messaggio
news:1167925007....@s34g2000cwa.googlegroups.com...
> Ciao a tutto il NG!!
> Ho la necessita di risalire attraverso codice, al path del
> db...sapreste indicarmi come se esiste il modo?
> Grazie a tutti
Application.CurrentProject.Path
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Re: Copia DB...

author: Karl Donaubauer

text:
Gionatan.A...@gmail.com
 wrote:
> Ho la necessita di risalire attraverso codice, al path del
> db...sapreste indicarmi come se esiste il modo?
www.donkarl.com/it?FAQ2.5
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Spedizione Mail

author: Cristiano 1972

text:
Ciao a tutti.
Dovendo spedire la stessa mail a un elenco di clienti ho scaricato dal
sito comune il DB di prova "MAIL" di Maurizio Cenere.
L'ho provato e trovato semplicissimo graficamente solo che non riesco a
spedire niente perché dopo aver immesso SMTP continua a darmi Time Out.
Ho parlato con l'amministratore di rete ma lui dice che non rileva
problemi, il nostro sistema di messaggistica 'Standard' Outlook 2000 con
Server Exchenge funziona perfettamente.
Qualcuno ha una dritta da darmi per riuscire a far funzionare il tutto??
Grazie in anticipo.
Cristiano 1972
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Database Compilato

author: ReiShen

text:
Ciao a tutti
io ho creato un database fatto in access 97 compilato come pippo.mde di cui
ho creato il setup con "Setup Wizard"
Il problema è che su macchina in cui non è presente access o esiste gia
access 97 non ci sono problemi, mentre su macchine in cui è installato
access 2000 o xp mi da problemi e non funziona anche s enel setup io ho
iseririto il runtime di access97.
Qualcuno sa aiutarmi perfavore?
Grazie a tutti in anticipo.
Ciao
Marco


title: Database Compilato

text:
"ReiShen" <
rei...@libero.it
> ha scritto nel messaggio
news:kvpO8.35032$TS.10...@news1.tin.it...

Probabilmente con A97 fai uso delle LIBRERIE DAO mentre chi ha A2K o AXP di
DEFAULT ha settato ADO.
Quindi hai 2 alternative:
1) Strutturare il tuo MDB in A97 in modo corretto esplicitando l'utilizzo di
DAO quando lo utilizzi e magari verificando
    l'attendibilità delle librerie.
2) Non distribuire la versione MDE, ma quella MDB, quindi manualmente
seleziona le librerie corrette, quindi
    puoi creare MDE.
Alex.


title: Database Compilato

author: Enrico T.S.

text:
"ReiShen" <
rei...@libero.it
> ha scritto nel messaggio
news:kvpO8.35032$TS.10...@news1.tin.it...
> Ciao a tutti
> io ho creato un database fatto in access 97 compilato come pippo.mde di
cui
> ho creato il setup con "Setup Wizard"
> Il problema č che su macchina in cui non č presente access o esiste gia
> access 97 non ci sono problemi, mentre su macchine in cui č installato
> access 2000 o xp mi da problemi e non funziona anche s enel setup io ho
> iseririto il runtime di access97.
> Qualcuno sa aiutarmi perfavore?
> Grazie a tutti in anticipo.
>
>
>
A me non da problemi la convivenza
di 2000 con A97 runtime, controlla pero'
che sia lanciato il runtime giusto A97
e non l'A2K per eseguire la tua procedura.
bye :o)


title: Database Compilato

text:
Enrico T.S. <
wlrom...@hotmail.com
> wrote in message
i6vO8.17157$j65.3...@twister1.libero.it...
>
> "ReiShen" <
rei...@libero.it
> ha scritto nel messaggio
> news:kvpO8.35032$TS.10...@news1.tin.it...
> > Ciao a tutti
> > io ho creato un database fatto in access 97 compilato come pippo.mde di
> cui
> > ho creato il setup con "Setup Wizard"
> > Il problema è che su macchina in cui non è presente access o esiste gia
> > access 97 non ci sono problemi, mentre su macchine in cui è installato
> > access 2000 o xp mi da problemi e non funziona anche s enel setup io ho
> > iseririto il runtime di access97.
> > Qualcuno sa aiutarmi perfavore?
> > Grazie a tutti in anticipo.
> >
> >
> >
> A me non da problemi la convivenza
> di 2000 con A97 runtime, controlla pero'
> che sia lanciato il runtime giusto A97
> e non l'A2K per eseguire la tua procedura.
> bye :o)
>
> Mi sapresti spiegare la procedura che usi tu per creare il pacchetto di
installazione perfavore?
Grazie Marco


title: Problema con TransferText

author: Andytre

text:
Ciao a tutti,
Il problema che ho è il seguente:
Devo importare in automatico varii file di testo mensilmente che prima
devono venire opportunamente "ripuliti" da dati quali intestazioni, totali
etc.
Successivamente importo il tutto con TransferText con relative specifiche di
importazione.
Tutto funziona bene fino a quando altri non mettono mano al db e talvota
importano il file di testo senza ripulirlo prima, con la conseguenza di
crearmi tabelle di errore inutili.
I dati ovviamente faccio in modo che non vengano salvati se tutti i record
non sono a posto ma non sono riuscito in alcun modo ad evitare o a fare in
modo che si cancellino IN AUTOMATICO le tabelle errore di importazione
create da access.
Non potendo evitare che altri mettano le mani sul db come posso fare per
risolvere il problema?
Grazie a tutti
--------------------------------
Inviato via
http://usenet.libero.it


title: Problema con TransferText

author: Carlo Costarella

text:
"Andytre" <
and...@tiscali.it
> ha scritto nel messaggio
news:217Z133Z225Z206Y...@usenet.libero.it...

Una strada:
una query del genere evidenzia il nome di tutte le tabelle che iniziano per
"ERRO":
SELECT MSysObjects.Type, MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Name) Like "Erro*"));
Il risultato può essere facilmente valutato e se è presente il nome di una
tabella tipo "Errori di Incollamento" o "Errori di Importazione",
si potrà utilizzare questo nome per cancellare la tabella.
MSysObjects è una tabella nascosta e di sistema che può essere visulizzata
dal menù strumenti, opzioni, visualizzazione.
Non è necessario visualizzarla, la query funziona lo stesso.
L'unica accortezza è quella di essere sicuro che nessuna tabella che dovrai
usare abbia l'inizio del nome in "Erro".
Un esempio di codice per eliminare una tabella è:
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "TuaTabella"
DoCmd.SetWarnings True
Ciao, Carlo


title: Problema con TransferText

text:
Il 01 Giu 2003, 09:02, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto:

>Grazie era proprio ciò che cercavo.
>Una precisazione Il nome tabella è sempre "nomefiletxt_Erroriimportazione"
, dove >nomefiletxt è sempre variabile, la funzione Like
"*_Erroriimportazione"
>e dunque corretta funzionando comunque ?



title: Problema con TransferText

text:

> Purtroppo non riesco a far funzionare la query proposta per recuperare il
nome della tabella di errore via codice vb. Qualcuno sa piegarmi come fare
io ho provato nel modo seguente senza risultati, mi da errore manca oggetto.
MioErrore = "SELECT MSysObjects.Name, MSysObjects.Type" & _
    "FROM MSysObjects" & _
    "WHERE" & (((MSysObjects.Name) Like "*_Error*") And ((MSysObjects.Type) =
1))
Aiuto non riesco a venirne fuori.
Grazie



title: Problema con TransferText

text:
"Andytre" <
and...@tiscali.it
> ha scritto nel messaggio
news:217Z133Z225Z160Y...@usenet.libero.it...

A parte che il segno di underscore (_) è inutile.
Puoi evitare di usare il codice. O meglio crea la query e salvala poi
richiami questa da codice.
Più semplice e veloce.
Per esempio se la quesry salvata che ha l'istruzione sql sopra detta, si
chiama SQTabelleErrori, da codice:
Dim RCS As recordset
Set RCS = Currentdb.OpenRecordset("SQTabelleErrori")
Non ti pare?
Ciao, Carlo


title: Problema con TransferText

text:
Il 02 Giu 2003, 12:33, "Carlo Costarella"

Si sono convinto che sia meglio come dici tu ma anche così non vuole
funzionarmi.
Mi da Errore di run-time '13' Tipo non corrispondente.
Su un pulsante avvio il codice:
Su click
Dim RCS As recordset
Set RCS = Currentdb.OpenRecordset("qryErrore")
nome campo di testo = RCS 'Per scrivere il nome della tabella su di un campo
nella maschera ma non mi apre neanche la query come dall'errore sopra
indicato.
Aiuto!!! Non riesco a venirne a capo.
Grazie
Ciao, Andrea



title: Problema con TransferText

text:
CUT
> >
> Si sono convinto che sia meglio come dici tu ma anche così non vuole
> funzionarmi.
> Mi da Errore di run-time '13' Tipo non corrispondente.
> Su un pulsante avvio il codice:
> Su click
> Dim RCS As recordset
> Set RCS = Currentdb.OpenRecordset("qryErrore")
> nome campo di testo = RCS 'Per scrivere il nome della tabella su di un
campo
> nella maschera ma non mi apre neanche la query come dall'errore sopra
> indicato.
> Aiuto!!! Non riesco a venirne a capo.
> Grazie
> Ciao, Andrea
>
>
>
>
>
Una domanda: se apri la query salvata (non da codice) vedi qualcosa?
Ti ricordo che il criterio 1 che usi nella query, alla colonna Type, è un
numerico. Va scritto 1 e non "1".
Hai provato a visualizzare la query senza alcun criterio?
Aggiungi un criterio alla volta, comincia con l'1, e poi aggiungi il secondo
criterio, magari senza il like: "*Erro*".
Non usare l'underscore (_).
Se ancora non funziona...faccelo sapere.
Ciao, Carlo


title: Problema con TransferText

text:
Il 02 Giu 2003, 13:19, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto:

La query avviata da sola funziona benissimo, restituendomi il nome della
tabella di errore.
Il problema è che non riesco proprio a caricare questo dato ovunque sia
possibile ( una casella di testo) per poi poterlo eliminare.
Grazie ancora



title: Problema con TransferText

text:
"Andytre" <
and...@tiscali.it
> ha scritto nel messaggio
news:217Z133Z226Z105Y...@usenet.libero.it...
> Il 02 Giu 2003, 13:19, "Carlo Costarella"
> <
carloantoni...@virgilio.it
> ha scritto:
> > CUT
> > > >
> > > Si sono convinto che sia meglio come dici tu ma anche cosě non vuole
> > > funzionarmi.
> > > Mi da Errore di run-time '13' Tipo non corrispondente.
> > > Su un pulsante avvio il codice:
> > > Su click
> > > Dim RCS As recordset
> > > Set RCS = Currentdb.OpenRecordset("qryErrore")
> > > nome campo di testo = RCS 'Per scrivere il nome della tabella su di un
> > campo
> > > nella maschera ma non mi apre neanche la query come dall'errore sopra
> > > indicato.
> > > Aiuto!!! Non riesco a venirne a capo.
> > > Grazie
> > > Ciao, Andrea
> >
> > Una domanda: se apri la query salvata (non da codice) vedi qualcosa?
> > Ti ricordo che il criterio 1 che usi nella query, alla colonna Type, č
un
> > numerico. Va scritto 1 e non "1".
> > Hai provato a visualizzare la query senza alcun criterio?
> > Aggiungi un criterio alla volta, comincia con l'1, e poi aggiungi il
> secondo
> > criterio, magari senza il like: "*Erro*".
> > Non usare l'underscore (_).
> > Se ancora non funziona...faccelo sapere.
> > Ciao, Carlo
>
> La query avviata da sola funziona benissimo, restituendomi il nome della
> tabella di errore.
> Il problema č che non riesco proprio a caricare questo dato ovunque sia
> possibile ( una casella di testo) per poi poterlo eliminare.
> Grazie ancora
> Ciao, Andrea
> >
>
Non hai bisogno di mettere il nome della tabelle in una casella di testo.
Per esempio: dlookup("Name","qryErrore")
restituisce il nome della prima tabella (se ve ne sono) della query.
Ma a te non serve.
Se ho ben capito ti serve eliminare questa o queste tabelle restituite dalla
query.
Giusto? Giusto...
Ti basta creare una funzione o meglio una Sub pubblica in un modulo
pubblico:
Public Sub EliminaTblErrori()
Dim RCS As Recordset, i As Byte
Set RCS = CurrentDb.OpenRecordset("qryErrore")
RCS.MoveLast
RCS.MoveFirst
If Nz(RCS.RecordCount, 0) = 0 Then
MsgBox "Nessuna Tabella da eliminare"
Exit Sub
End If
For i = 1 To RCS.RecordCount
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, RCS![tbl]
DoCmd.SetWarnings True
RCS.MoveNext
Next i
RCS.Close
Set RCS = Nothing
End Sub
Ora puoi richiamare la Sub da qualsiasi maschera o pulsante cosě:
EliminaTblErrori()
Le tabelle da eliminare devono essere chiuse.
Ti assicuro che funziona. Un'ultima domanda. Che versione di Access usi? Se
usi la 2000 o superiori ti ricordo di mettere il riferimento a DAO e, se non
ti serve, togliere il riferimento ad ADO.
Ciao, Carlo


title: Problema con TransferText

text:
Il 03 Giu 2003, 08:40, "Carlo Costarella"

Mille grazie Funziona perfettamente.
Comunque utilizzo Access 2000.
Ciao e grazie ancora, Andrea



title: Eliminare avviso di protezione

author: ringo

text:
Salve a tutti,
ogni volta che apro un file access 2003 ho anche questo avviso
di protezione:
"Questo file potrebbe non essere sicuro se contiene codice progettato
intenzionalmente per danneggiare il computer. Aprire il file o annullare
l'operazione?"
Come faccio perchè non mi avvisi ogni volta?
grazie!
ringo


title: Eliminare avviso di protezione

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:cnmvrs$5jm$1...@newsread.albacom.net...

Ciao
come è già stato detto più volte in post precedenti:
Strumenti...Macro...Protezione...Bassa
Ciao, Carlo


title: Dialogo tra BE e FE

author: Luigi Portable

text:
Buon Giorno...
A97
ho un back end su Server (WXP) ...presso la Ns. sede di Bari...
Voglio far accedere i Front End delle Ns. sedi decentrate (Lecce e Brindisi)
al back end di Bari...come posso fare!!!???
Ho provato con HAMACHI...ma il collegamento è molto lento...specie nelle
interrogazioni....
HELP!!!
Grazie 1000
Luigi


title: Dialogo tra BE e FE

author: PBsoft

text:
> A97
> ho un back end su Server (WXP) ...presso la Ns. sede di Bari...
Con cosa è fatto il BE? Access? SQL Server?
> Voglio far accedere i Front End delle Ns. sedi decentrate (Lecce e
> Brindisi) al back end di Bari...come posso fare!!!???
Ovviamente ci vogliono delle VPN.
> Ho provato con HAMACHI...ma il collegamento è molto lento...specie
> nelle interrogazioni....
Hamachi può risolverti il problema delle VPN, ma le cause della lentezza
devi cercarle altrove.
Dipende molto da cosa hai come BE; se hai un file di Access, allora ti consiglio
di abbandonarlo il prima possibile. Io ho avuto addirittura problemi a lavorare
con Access come BE da un cliente a causa di eccessiva umidità e campi elettromagnetici
indotti (dava fastidio anche un cellulare). Non oso pensare cosa potrebbe
succedere "estendendo la rete" di qualche decina di km. Sicuramente andresti
incontro alla corruzione del BE in brevissimo tempo.
Se, invece, stai utilizzando SQL Server come BE, allora il discorso è leggermente
differente: in questo caso, per risolvere i problemi di lentezza, devi obbligatoriamente
indagare su come accedi ai dati. Le form sono collegate ai dati? All'apertura
delle form recuperi tutti i record senza filtro? Le form sono collegate direttamente
alle tabelle oppure utilizzi delle stored procedure? Hai impostato degli
indici? Ecc.....
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Dialogo tra BE e FE

author: ciroteo ®

text:
"Luigi Portable" <
luigic...@hotmail.com
> ha scritto nel messaggio
news:459d7cbc$0$4241$4faf...@reader1.news.tin.it...
> Buon Giorno...
>
> A97
>
> ho un back end su Server (WXP) ...presso la Ns. sede di Bari...
>
> Voglio far accedere i Front End delle Ns. sedi decentrate (Lecce e
Brindisi)
> al back end di Bari...come posso fare!!!???
>
> Ho provato con HAMACHI...ma il collegamento č molto lento...specie nelle
> interrogazioni....
>
> HELP!!!
>
> Grazie 1000
>
> Luigi
>
>
da prove fatte con MA in passato e da mia esperienza diretta hamachi č
tollerabile su connessione adsl ma con server sql express o msde.
in caso contrario le soluzioni che generalmente vengono suggerite sono:
- porting dell'applicazione sul web con asp php (onerosa)
- utilizzo dei terminal server (ottimo tutorial di charliebo su
www.accessgroup.it
)
- sincronizzazione dei db con le repliche. (scarsamente utilizzate)
- vpn ...


title: Dialogo tra BE e FE

author: AndreaPapi

text:
ciroteo ® (nospam) ha scritto:
> "Luigi Portable" <
luigic...@hotmail.com
> ha scritto nel messaggio
> news:459d7cbc$0$4241$4faf...@reader1.news.tin.it...
> > Buon Giorno...
> >
> > A97
> >
> > ho un back end su Server (WXP) ...presso la Ns. sede di Bari...
> >
> > Voglio far accedere i Front End delle Ns. sedi decentrate (Lecce e
> Brindisi)
> > al back end di Bari...come posso fare!!!???
> >
> > Ho provato con HAMACHI...ma il collegamento è molto lento...specie nelle
> > interrogazioni....
> >
> > HELP!!!
> >
> > Grazie 1000
> >
> > Luigi
> >
> >
>
> da prove fatte con MA in passato e da mia esperienza diretta hamachi è
> tollerabile su connessione adsl ma con server sql express o msde.
> in caso contrario le soluzioni che generalmente vengono suggerite sono:
> - porting dell'applicazione sul web con asp php (onerosa)
> - utilizzo dei terminal server (ottimo tutorial di charliebo su
>
www.accessgroup.it
)
> - sincronizzazione dei db con le repliche. (scarsamente utilizzate)
> - vpn ...
potresti utilizzare
http://www.citrix.com/
ti permette di remotizzare tutte le applicazioni su un server centrale
e condividerle utilizzando una qualsiasi connessione ad internet.
( ottimo anche per le vecchie applicazioni DOS )
ciao
Andrea Papi


title: [2010] report: usare molteplici sezioni (una alla volta) in base a criteri

author: Ammammata

text:
Usiamo da tempo un gestionale programmabile che tra i tanti difetti ha
anche qualche comodità.

Un esempio: i report

Le varie sezioni (Header, Top-of-page, Detail, bottom-of-page, Footer, e le
varie interruzioni - sia sopra che sotto - per i raggruppamenti) sono
duplicabili in base a determinati criteri.

La stampa delle fatture/note credito è unica e posso selezionare cosa
stampare in base al campo "Tipo documento"

Questa è la fattura
http://www.lurati-sa.com/temp/standard.png

e questa è la nota credito
http://www.lurati-sa.com/temp/credit.png

come vedete se si tratta di fattura stampa le coordinate del pagamento, se
è una note credito mette un messaggio divwerso

Il giochino si può fare su tutte le sezioni del report, senza limiti,
semplicemente stabilendo quale sia la condizione da rispettare per
scegliere cosa stampare

Ogni sezione è personalizzabile in lunghezza e formato (p.e. il font o il
colore di fondo o altro)

ecco la DOMANDA:
esiste qualcosa di simile in Access [2010]?
leggo in giro di raggruppamenti forzati ma non devo "raggruppare", devo
solo differenziare le sezioni

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


text:
Il giorno Tue 31 Mar 2015 11:17:14a, *Ammammata* inviava su
it.comp.appl.access il messaggio
news:XnsA46E72D454ED4am...@46.4.82.189
. Vediamo cosa
scrisse:

> esiste qualcosa di simile in Access [2010]?
>

forse Crystal Reports fa qualcosa di simile ma, vista la carenza di
risposte alla domanda originale, la ripropongo con gli auguri di Buona
Pasqua :)



text:
Il giorno Tue 31 Mar 2015 11:17:14a, *Ammammata* inviava su
it.comp.appl.access il messaggio
news:XnsA46E72D454ED4am...@46.4.82.189
. Vediamo cosa
scrisse:

> ecco la DOMANDA:
> esiste qualcosa di simile in Access [2010]?
> leggo in giro di raggruppamenti forzati ma non devo "raggruppare",
> devo solo differenziare le sezioni
>
>

ancora non ho trovato nulla... :(



title: recordset non aggiornabile

author: Alessia

text:
buongiorno a tutti.
Venendo subito al sodo, ho questo problema:
Devo inserire da codice un campo di tipo Sě/No a cui ho dato il nome stampa.
Ecco il codice:
Private Sub Comando8_Click()
Dim dbs As Database, rec As Recordset, ws As Workspace
Dim tbl As TableDef, campi As Field
    Set ws = DBEngine.Workspaces(0)
    Set dbs = ws.OpenDatabase("f:\access\database\bonifici\datibon.mdb")
    Set tbl = dbs.TableDefs("PAR_TITE")
    Set campi = tbl.CreateField("Stampa", dbBoolean)
    tbl.Fields.Append campi
    'dbs.TableDefs.Append tbl
    dbs.Close
    Set dbs = Nothing
    Set ws = Nothing
    Exit Sub
MsgBox "Ciao, ho finito il mio lavoro"
End Sub
Mi inserisce il campo ma quando vado a visualizzare la struttura della
tabella, nel campo stampa in Ricerca - Visualizza Controllo, mi lascia la
Casella di Testo.
In foglio dati il mio campo Sě/No funziona, ma se lo porto in una maschera
non mi lascia aggiornare.
Spero di essermi fatta capire, grazie per l'aiuto.
Ale


title: recordset non aggiornabile

author: Federico Luciani

text:
Alessia wrote:
> buongiorno a tutti.
> Venendo subito al sodo, ho questo problema:
> Devo inserire da codice un campo di tipo Sì/No a cui ho dato il nome stampa.
> Ecco il codice:
> Private Sub Comando8_Click()
> Dim dbs As Database, rec As Recordset, ws As Workspace
> Dim tbl As TableDef, campi As Field
>     Set ws = DBEngine.Workspaces(0)
>     Set dbs = ws.OpenDatabase("f:\access\database\bonifici\datibon.mdb")
>     Set tbl = dbs.TableDefs("PAR_TITE")
>     Set campi = tbl.CreateField("Stampa", dbBoolean)
>     tbl.Fields.Append campi
>     'dbs.TableDefs.Append tbl
>     dbs.Close
>     Set dbs = Nothing
>     Set ws = Nothing
>     Exit Sub
> MsgBox "Ciao, ho finito il mio lavoro"
> End Sub
>
> Mi inserisce il campo ma quando vado a visualizzare la struttura della
> tabella, nel campo stampa in Ricerca - Visualizza Controllo, mi lascia la
> Casella di Testo.
> In foglio dati il mio campo Sì/No funziona, ma se lo porto in una maschera
> non mi lascia aggiornare.
> Spero di essermi fatta capire, grazie per l'aiuto.
> Ale
Devi creare la proprieta' 'Visualizza controllo' ed impostarla a 'Casella di
controllo'
Prova con queste modifiche:
Private Sub Comando8_Click()
Dim dbs As Database, rec As Recordset, ws As Workspace
Dim tbl As TableDef, campi As Field
    Set ws = DBEngine.Workspaces(0)
    Set dbs = ws.OpenDatabase("f:\access\database\bonifici\datibon.mdb")
    Set tbl = dbs.TableDefs("PAR_TITE")
    Set campi = tbl.CreateField("Stampa", dbBoolean)
    tbl.Fields.Append campi
    tbl.Fields.Refresh
    Set prp = campi.CreateProperty("DisplayControl", dbInteger, 106)
    campi.Properties.Append prp
    campi.Properties.Refresh
    dbs.Close
    Set dbs = Nothing
    Set ws = Nothing
    Exit Sub
MsgBox "Ciao, ho finito il mio lavoro"
End Sub
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: recordset non aggiornabile

text:
Grazie molte funziona.
A questo punto arrivederci a Roma.
Ciao Alessia
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
39EB0B60...@paperino.libero.it...
> Alessia wrote:
> > buongiorno a tutti.
> > Venendo subito al sodo, ho questo problema:
> > Devo inserire da codice un campo di tipo Sě/No a cui ho dato il nome
stampa.
> > Ecco il codice:
> > Private Sub Comando8_Click()
> > Dim dbs As Database, rec As Recordset, ws As Workspace
> > Dim tbl As TableDef, campi As Field
> >     Set ws = DBEngine.Workspaces(0)
> >     Set dbs = ws.OpenDatabase("f:\access\database\bonifici\datibon.mdb")
> >     Set tbl = dbs.TableDefs("PAR_TITE")
> >     Set campi = tbl.CreateField("Stampa", dbBoolean)
> >     tbl.Fields.Append campi
> >     'dbs.TableDefs.Append tbl
> >     dbs.Close
> >     Set dbs = Nothing
> >     Set ws = Nothing
> >     Exit Sub
> > MsgBox "Ciao, ho finito il mio lavoro"
> > End Sub
> >
> > Mi inserisce il campo ma quando vado a visualizzare la struttura della
> > tabella, nel campo stampa in Ricerca - Visualizza Controllo, mi lascia
la
> > Casella di Testo.
> > In foglio dati il mio campo Sě/No funziona, ma se lo porto in una



title: Selezionare elemento su casella di riepilogo a selezione multipla.

author: Jef

text:
Ciao a tutti,
ho il seguente problema:
su una casella di riepilogo a selezione multipla estesa ho 10 righe visibili
mentre la query di origine ne ha un numero x (abbastanza elevato) (campi
esempio: id / descrizione)
ho inserito una casella di testo in cui inserisco il valore id e vorrei che
il "focus" della casella di riepilogo andasse sulla riga relativa.
Su una casella a selezione singola basta fare me.elencoX.value = id
Su quella a selezione multipla, con un ciclo for/next riesco a mettere
selected = true sulla riga interessata ma visivamente il "focus" non si
sposta sulla riga in questione.
Spero di essermi spiegato e confido nel Vs. sempre insdispensabile aiuto.
Grazie.
Ciao
Jef


author: Roberto da casa

text:
"Jef" <
jefN...@libero.it
> ha scritto nel messaggio
news:lKlKa.247987$g92.5...@news2.tin.it...

Se la casella di riepilogo si chiama Elenco.
Se la casella di testo dove inserisci il valore dell'id si chiama Pippo.
Se il codice SQL dell'origine riga della casella di riepilogo è simile a
questo:
SELECT id, descrizione FROM NomeTabella;
Prova così:
Dim Cont As Integer
For Cont = 0 To Me!Elenco.ListCount - 1
    If Me!Elenco.Column(0, Cont) = Pippo Then
        Me!Elenco.Selected(Cont) = True
    Else
        Me!Elenco.Selected(Cont) = False
    End If
Next Cont
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:xGxKa.120974$Ny5.3...@twister2.libero.it...

Ciao Roberto,
io faccio come anche tu mi hai indicato il problema è che la riga relativa
nella casella di riepilogo viene sì selezionata ma se nell'elenco ho dieci
righe visibili per volta e 100 disponibili e "pippo" si trova all 90°, per
esempio, la visualizzazione della casella di riepilogo non si sposta sulla
90° riga ma resta sulla 1°. Se vado giù con le barre di scorrimento trovo la
90° selzionata ma io vorrei che il "cursore" (se così si può definire) si
posizionasse in automatico sulla 90° riga.
Grazie
Jef


text:
"Jef" <
jefN...@libero.it
> ha scritto nel messaggio
news:wSzKa.251966$g92.5...@news2.tin.it...

Non saprei cosa consigliarti per far visualizzare da VBA la 90° riga della
casella di riepilogo.
Però potresti non visualizzare le righe precedenti e quindi la 90° riga
diventerebbe automaticamente la prima e quindi la visualizzerai
automaticamente.
Metti come origine riga della casella di riepilogo una query che abbia il
seguente codice SQL:
SELECT DISTINCTROW id, descrizione
FROM NomeTabella
WHERE (((id)>=[Forms]![NomeMaschera]![Pippo]))
ORDER BY id;
e a fronte dell'evento "Dopo aggiornamento" della casella di testo Pippo
genera il seguente codice VBA:
Me!Elenco.Requery
Dim Cont As Integer
For Cont = 0 To Me!Elenco.ListCount - 1
    If Me!Elenco.Column(0, Cont) = pippo Then
        Me!Elenco.Selected(Cont) = True
    Else
        Me!Elenco.Selected(Cont) = False
    End If
Next Cont
Imposta a 0 (zero) il Valore predefinito della casella di testo Pippo.
E' una soluzione un po' "sporca", ma è pur sempre una soluzione.



title: Neofita- Problema con report

author: bruno

text:
In una tabella con campi:
data         fornitore        punteggio(numero)
vorrei ricavare un report mensile del tipo
Data          Fornitore                      Punteggio
riporto (mese prec.)                       xxx
11/02/02         pippo                       100
12/02/02         pippo                        50
13/02/02         pippo                       100
a riportare                                        xxx(media di tutta la
colonna compreso il riporto)
Come posso calcolare la media mensile per fornitore e conservarla
al fine di utilizzarla per calcolare la media del mese successivo?
Ovvero come posso stampare un solo mese ed avere nel "riporto" il complesso
calcolo
di media fra i record ed i riporti dei mesi precedenti?
> "Roberto da casa" mi ha suggerito.
>    Raggruppa il report per Fornitore; nell'intestazione di gruppo
inserisci una
>    casella di testo non associata nella cui origine controllo prova a
scrivere:
>    = DAvg("Punteggio"; "NomeTabella"; "Fornitore=" & Chr$(34) &
Me!Fornitore &
>    Chr$(34) & " And Format(Data; "aaaamm")=" & Format(Me!Data;
"aaaamm")-1)
Detta Formulona da un errore (di sintassi?) ed io non sono in grado di
capire dove.
Grazie


title: Neofita- Problema con report

text:
"bruno" <
d08...@tiscalinet.it
> ha scritto nel messaggio
news:aatf5a$97j$1...@lacerta.tiscalinet.it...

Ti ricordo che non devi adoperare Data come nome di un tuo campo o di un tuo
controllo: è un nome riservato di Access e se lo adoperi per un tuo oggetto
potresti avere degli inspiegabili errori; nell'esempio che segue il campo
Data/ora l'ho chiamato Data1.
Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID              Contatore e chiave primaria
Fornitore    Testo
Data1         Data/ora
Punteggio   Numerico
ecc. ecc.
Creati un report chiamato Report1 che abbia come origine record Tabella1.
Raggruppa Report1 per Fornitore.
Creati una maschera che non abbia origine record e chiamala Maschera1;
inserisci in Maschera1 due caselle di testo non associate chiamate
rispettivamente Mese ed Anno; inserisci in Maschera1 anche un pulsante di
comando e a fronte del suo evento "Su clic" genera il seguente codice VBA:
    Dim stDocName As String
    stDocName = "Report1"
    DoCmd.OpenReport stDocName, acPreview
A fronte dell'evento "Su Apertura" di Report1 genera il seguente codice VBA:
Private Sub Report_Open(Cancel As Integer)
Me.Filter = "Month(Data1)=" & Forms!Maschera1!Mese _
& " And Year(Data1)=" & Forms!Maschera1!Anno
Me.FilterOn = True
End Sub
Nella sezione Intestazione Fornitore inserisci una casella di testo non
associata chiamata Riporto e nella sua origine controllo scrivi:
=DAvg("[Punteggio]";"Tabella1";"Fornitore=" & Chr$(34) & [Fornitore] &
Chr$(34) & " And (Year(Data1)*100+Month(Data1))<" &
[Forms]![Maschera1]![Anno]*100+[Forms]![Maschera1]![Mese])
Invece nell'origine record della casella di testo non associata che tu
chiami ARiportare scrivi:
=DAvg("[Punteggio]";"Tabella1";"Fornitore=" & Chr$(34) & [Fornitore] &
Chr$(34) & " And (Year(Data1)*100+Month(Data1))<=" &
[Forms]![Maschera1]![Anno]*100+[Forms]![Maschera1]![Mese])
A questo punto apri Maschera1, digita nelle caselle di testo Mese ed Anno il
mese e l'anno relativo al mese di cui vuoi effettuare l'elaborazione, pigia
il pulsante di comando.
Tieni conto che quello che tu chiami "riporto" viene calcolato come la media
di tutti i punteggi avuti dall'inizio sino a tutto il mese precedente
l'elaborazione , mentre quello che tu chiami "a riportare" viene calcolato
come la media di tutti i punteggi avuti dall'inizio a tutto il mese
dell'elaborazione (che hai digitato nei controlli di Maschera1).
Questa volta dovrebbe funzionare. :-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: settimane comprese

author: Nao

text:
Ciao Ng, nella mia form ho un controllo data,
una controllo settimana che ha come origine controllo
=DatePart("ii";[Data]).
tramite codice bottone, faccio questa cosa:
If Settimana <> 1 And 26 Then
     Rigenera = "Si puo rigenerare"
    Else
     Rigenera = "Non si puo rigenerare"
end if
Il problema è che anche se il mio controllo settimana contiene un valori
tipo 50 (cioè fuori dal range dichiarati nell'if), mi mette sempre "si puo
rigenerare", mentre dovrebbe uscire "non si...".
Succede cosi perche il controllo settimana contiene comunque un valore data
ma mi fa vedere il num della settimana?
Come posso risolvere questa cosa?
grazie NAdir
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: settimane comprese

author: MA

text:
> Ciao Ng, nella mia form ho un controllo data,
> una controllo settimana che ha come origine controllo
> =DatePart("ii";[Data]).
>
> tramite codice bottone, faccio questa cosa:
> If Settimana <> 1 And 26 Then
If Settimana <> 1 OR 26 Then
>      Rigenera = "Si puo rigenerare"
>     Else
>      Rigenera = "Non si puo rigenerare"
> end if
>
> Il problema è che anche se il mio controllo settimana contiene un valori
> tipo 50 (cioè fuori dal range dichiarati nell'if), mi mette sempre "si puo
> rigenerare", mentre dovrebbe uscire "non si...".
MAssimilaino


title: settimane comprese

author: cidi

text:
"Nao" <OOOnaon...@inwind.itOOO> ha scritto nel messaggio
news:212Z159Z223Z113...@usenet.libero.it...
> Ciao Ng, nella mia form ho un controllo data,
> una controllo settimana che ha come origine controllo
> =DatePart("ii";[Data]).
>
> tramite codice bottone, faccio questa cosa:
> If Settimana <> 1 And 26 Then
>      Rigenera = "Si puo rigenerare"
>     Else
>      Rigenera = "Non si puo rigenerare"
> end if
>
> Il problema è che anche se il mio controllo settimana contiene un valori
> tipo 50 (cioè fuori dal range dichiarati nell'if), mi mette sempre "si puo
> rigenerare", mentre dovrebbe uscire "non si...".
>
> Succede cosi perche il controllo settimana contiene comunque un valore
data
> ma mi fa vedere il num della settimana?
>
> Come posso risolvere questa cosa?
>
> grazie NAdir
>
>
Ciao NAdir
spero di non dire una *c......ta*
If Settimana => 1 And  <= 26 Then
 Rigenera = "Si puo rigenerare"
  Else
  Rigenera = "Non si puo rigenerare"
 end if
Ciao Daniele
ps. mi scuso in anticipo.... :-)))


title: settimane comprese

text:
"Nao" <OOOnaon...@inwind.itOOO> ha scritto nel messaggio
news:212Z159Z223Z113...@usenet.libero.it...
> Ciao Ng, nella mia form ho un controllo data,
> una controllo settimana che ha come origine controllo
> =DatePart("ii";[Data]).
>
> tramite codice bottone, faccio questa cosa:
> If Settimana <> 1 And 26 Then
>      Rigenera = "Si puo rigenerare"
>     Else
>      Rigenera = "Non si puo rigenerare"
> end if
>
> Il problema è che anche se il mio controllo settimana contiene un valori
> tipo 50 (cioè fuori dal range dichiarati nell'if), mi mette sempre "si puo
> rigenerare", mentre dovrebbe uscire "non si...".
>
> Succede cosi perche il controllo settimana contiene comunque un valore
data
> ma mi fa vedere il num della settimana?
>
> Come posso risolvere questa cosa?
>
> grazie NAdir
If Settimana <> 1 OR Settimana <> Then
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: settimane comprese

author: namor

text:
MA ha scritto:
[cut]
> If Settimana <> 1 And 26 Then
> If Settimana <> 1 OR 26 Then
Questi non funzioneranno mai, se ne era già parlato un mesetto fa.
Il primo sarà sempre vero per tutti i valori di 'Settimana' <>1
Il secondo sarà sempre vero per ogni valore di 'Settimana'
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: settimane comprese

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:bqpiv4$2he$1...@news.newsland.it...
> MA ha scritto:
>
> [cut]
>
> > If Settimana <> 1 And 26 Then
> > If Settimana <> 1 OR 26 Then
>
>
> Questi non funzioneranno mai, se ne era già parlato un mesetto fa.
> Il primo sarà sempre vero per tutti i valori di 'Settimana' <>1
> Il secondo sarà sempre vero per ogni valore di 'Settimana'
> Namor
Tks non avevo seguito il 3d.
Prendo per buona la soluzione di Roberto (ovviamente a scatola chiusa)
MAssimiilano


title: Visualizzazione campo codice su report A2010

text:
Buongiorno,
avrei la necessità di visualizzare su di un report,
nel campo "cod_cliente", il relativo codice preso dalla tabella "anag_clienti",
a seconda del "Fornitore" che visualizzo quando apro o aggiorno la form "frmOrdini".
Per spiegarmi meglio:
se nella form ho il fornitore "ALFA", il campo "cod_cliente" che devo visualizzare nel report deve corrispondere al campo "cod_pdv_alfa" della tabella "anag_clienti";
se nella form ho il fornitore "BETA", il campo "cod_cliente" del report deve invece essere "cod_pdv_beta" sempre preso dalla tabella "anag_clienti";
se nella form ho il fornitore "GAMMA", il campo "cod_cliente" del report deve invece essere "cod_pdv_gamma";
se nella form ho un fornitore diverso dai 3 sopra indicati, il campo "cod_cliente" del report deve essere "cod_pdv_extra" della tabella "anag_clienti".
Spero di essere stato chiaro e grazie molte per l'aiuto.
Leo


author: Karl Donaubauer

text:

Se ti capisco bene, puoi usare questo codice nella maschera:

Dim strForn As String

' salvare eventuali modifiche
If Me.Dirty Then Me.Dirty = False

Select Case Me!Fornitore
    Case "ALFA"
        strForn = "cod_pdv_alfa"
    Case "BETA"
        strForn = "cod_pdv_beta"
    Case "GAMMA"
        strForn = "cod_pdv_gamma"
    Case Else
        strForn = "cod_pdv_extra"
End Select

DoCmd.OpenReport "MioBelloReport", acViewPreview, , , , strForn

Nel report dipende usa quest'origine controllo di cod_cliente:

=DLookUp(Openargs;"anag_clienti")

Certo qui devi usare qc diverso se esistono oltre dipendenze
dei dati che non hai ancora descritte.

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


text:
Il giorno mercoledì 11 settembre 2013 13:30:29 UTC+2, Karl Donaubauer ha scritto:
> capitano72 wrote: > avrei la necessità di visualizzare su di un report, > nel campo "cod_cliente", il relativo codice preso dalla tabella > "anag_clienti", > a seconda del "Fornitore" che visualizzo quando apro o aggiorno la > form "frmOrdini". > Per spiegarmi meglio: > se nella form ho il fornitore "ALFA", il campo "cod_cliente" che devo > visualizzare nel report deve corrispondere al campo "cod_pdv_alfa" > della tabella "anag_clienti"; > se nella form ho il fornitore "BETA", il campo "cod_cliente" del > report deve invece essere "cod_pdv_beta" sempre preso dalla tabella > "anag_clienti"; > se nella form ho il fornitore "GAMMA", il campo "cod_cliente" del > report deve invece essere "cod_pdv_gamma"; > se nella form ho un fornitore diverso dai 3 sopra indicati, il campo > "cod_cliente" del report deve essere "cod_pdv_extra" della tabella > "anag_clienti". Se ti capisco bene, puoi usare questo codice nella maschera: Dim strForn As String ' salvare eventuali modifiche If Me.Dirty Then Me.Dirty = False Select Case Me!Fornitore Case "ALFA" strForn = "cod_pdv_alfa" Case "BETA" strForn = "cod_pdv_beta" Case "GAMMA" strForn = "cod_pdv_gamma" Case Else strForn = "cod_pdv_extra" End Select DoCmd.OpenReport "MioBelloReport", acViewPreview, , , , strForn Nel report dipende usa quest'origine controllo di cod_cliente: =DLookUp(Openargs;"anag_clienti") Certo qui devi usare qc diverso se esistono oltre dipendenze dei dati che non hai ancora descritte. -- Ciao Karl ********* Access FAQ:
http://www.donkarl.com/it

Provo subito ad utilizzare il tuo suggerimento Karl. Come sempre prezioso. Grazie!


title: caselle combo!

author: Adso

text:
Ho una casella combinata (cmbTerapia) che elenca numerosi farmaci. Ho poi 10
caselle di testo(Txt1,Txt2,Tx13 ecc.). Cliccando 2 volte sul nome di un
farmaco della casella combinata questo si va a inserire in Txt1, cliccando
su un altro nome va su Txt2. Ho scritto:
If IsNull(Me.Txt1) Then
Me.Txt1= Me.cmbTerapia
Else
Me.Txt2 = Me.cmbTerapia
End If
E per gli altri come si fa?
In alternativa come si fa a posizionare tutti i farmaci cliccati nella
stessa casella di testo uno per ogni riga e non uno di seguito all'altro?
Grazie , senza il vostro aiuto non ne uscirei fuori :)


title: caselle combo!

author: Govardo Libero

text:
"Adso" <
fra...@libero.it
> ha scritto nel messaggio
news:UYWF7.30258$sq5.1...@news.infostrada.it...

Salute. (Con tutti questi farmaci!)
Forse č meglio nella stessa casella, ...perchč se ne hai 10/20 cosa fai?
me![casella] = me![casella] & &  Chr$(13) & Chr$(10) & me![combo]
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


title: caselle combo!

author: Antonio Biso

text:
Adso <
fra...@libero.it
> wrote in message
UYWF7.30258$sq5.1...@news.infostrada.it...

Secondo me la tua situazione meglio si presterebbe ad una gestione mediante
casella di riepilogo. Cioè, scegliendo un farmaco questo dovrà essere
aggiunto a quelli precedentemenmte selezionati e visualizzati in una casella
di riepilogo. La cosa più bella sarebbe fare due caselle di riepilogo, una
con tutti i farmaci, una con solo quelli scelti e con due frecce, sx e dx,
per aggiungere e togliere.
Per fare ciò c'è un esempio nel sito comune...
Antonio


title: Access XP Runtime Update

author: Jonathan Canova

text:
All'indirizzo
http://support.microsoft.com/?kbid=813617
 trovate un upgrade
per il runtime di Access, che porta la versione del runtime alla pari di
Office XP.
Quello che mi fa rabbia è che pensavo che lo fosse già, dato che il mio
Office XP è stato aggiornato con tutte le patch possibili.
Quello che mi fa imbestialire (e spero di sbagliarmi) è che pare non ci sia
modo di aggiornare il PDW in modo che i pacchetti prodotti siano già
aggiornati.
Altrimenti il cliente deve installare il Runtime, l'MDAC (che il runtime
dice di installare ma non installa all'ultima versione) e poi, pure la
patch!.
Smentite o confermate?
--
Jonathan Canova
www.aladinoinformatica.com


title: Access XP Runtime Update

author: Simone Calligaris

text:
"Jonathan Canova" <
> per il runtime di Access, che porta la versione del runtime alla pari di
> Office XP.
>
> Quello che mi fa rabbia è che pensavo che lo fosse già, dato che il mio
> Office XP è stato aggiornato con tutte le patch possibili.
>
> Quello che mi fa imbestialire (e spero di sbagliarmi) è che pare non ci
sia
> modo di aggiornare il PDW in modo che i pacchetti prodotti siano già
> aggiornati.
> Altrimenti il cliente deve installare il Runtime, l'MDAC (che il runtime
> dice di installare ma non installa all'ultima versione) e poi, pure la
> patch!.
>
> Smentite o confermate?
Confermato, ma mi stupisco che ti arrabbi: con M$ è normale.
Anzi,  hanno fatto di peggio con i Service Pack di JET 4.0: ce n'è uno
diverso per ogni reales di Win!!
Saluti.


title: Access XP Runtime Update

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:3Wo6b.297357$lK4.9...@twister1.libero.it...
> Confermato, ma mi stupisco che ti arrabbi: con M$ è normale.
> Anzi,  hanno fatto di peggio con i Service Pack di JET 4.0: ce n'è uno
> diverso per ogni reales di Win!!
So di andare nella preistoria, ma con Access 2.0 se tu aggiornavi le DLL di
Access te le trovavi aggiornate anche nel pacchetto di installazione del
Runtime.
Ora, che non esista maniera (a meno di smanettamenti) di aggiornare il
pacchetto di installazione mi pare perlomeno assurdo...
--
Jonathan Canova
www.aladinoinformatica.com


title: Access XP Runtime Update

text:
"Jonathan Canova" <
> So di andare nella preistoria, ma con Access 2.0 se tu aggiornavi le DLL
di
> Access te le trovavi aggiornate anche nel pacchetto di installazione del
> Runtime.
Mai usato il 2.0, ma anche col più recente '97 era così.
> Ora, che non esista maniera (a meno di smanettamenti) di aggiornare il
> pacchetto di installazione mi pare perlomeno assurdo...
Già.
Comunque ho aggirato (e funziona in questo caso) rifacendo quello stupido
.exe autoszippante togliendo i messaggi sulla licenza e facendolo avviare
alla fine del pacchetto d'installazione.
L'unico problema è che alla prossima patch dovrò trovare un sistema per far
avviare i vari .exe uno dopo l'altro in sequenza.
Saluti.


title: Access XP Runtime Update

author: Emiliano - EmiCAD®

text:
Scusate per il Runtime di Access cos'è e a cosa serve?
Serve forse per distribuire i programmi fatti con Access completi di
maschere tabelle ecc. senza dover obbligare all'acquisto di tutto il
pacchetto Access?
Ringrazio in anticipo
Ciao
Emiliano
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:L7W6b.300878$Ny5.9...@twister2.libero.it...



title: Access XP Runtime Update

text:
"Emiliano - EmiCAD®" <
webm...@emicad.it
> ha scritto nel messaggio
news:OjU7b.63353$R32.1...@news2.tin.it...
> Scusate per il Runtime di Access cos'è e a cosa serve?
> Serve forse per distribuire i programmi fatti con Access completi di
> maschere tabelle ecc. senza dover obbligare all'acquisto di tutto il
> pacchetto Access?
Super FAQ: si. Vedi
http://www.microsoft.com/italy/office/developer/suite/fastfacts.asp


title: Newbie all'arrembaggio!!!

author: Dario Pepe

text:
Salve gente,
per motivi di lavoro (come tutti qui dentro, credo) mi trovo a dover
affrontare la gestione di archivi Access... Qualcuno sa consigliarmi un
tutorial introduttivo, una FAQ, qualcosa che possa aiutarmi a fronteggiare
le cose meno immediate di questo programma? Nella fattispecie vorrei saperne
di più sulle maschere di consultazione.
Grazie in anticipo
Ciao
--
Dario Pepe
--
danz...@freemail.it
 -
dar...@infinito.it
 - UIN: 11343871
-- IRC Nick: Danziger (All networks) or VinceVega (DALnet only)
-- it.comp.musica.mp3 FAQ @
http://members.tripod.com/~mp3italia/


title: Newbie all'arrembaggio!!!

author: Pleiadi

text:
> Salve gente,
> per motivi di lavoro (come tutti qui dentro, credo) mi trovo a dover
> affrontare la gestione di archivi Access... Qualcuno sa consigliarmi un
> tutorial introduttivo, una FAQ, qualcosa che possa aiutarmi a fronteggiare
> le cose meno immediate di questo programma?
Posso sapere chi ti ha offerto questo lavoro?
Per quanto riguarda il tutorial ecc. ecc. ecc., posso solo consigliarti di
aprire il database "NorthWind", che si trova nelle directory di Access, e
osservare com'č fatto, prendendone spunto per le tue cosuccie.
> Nella fattispecie vorrei saperne  di piů sulle maschere di consultazione.
Che io sappia, correggimi se sbaglio, in access esistono solo maschere, e
basta. Sta poi al programmatore far sě che una maschera sia di
consultazione, di ricerca, di immissione. di modifica ecc. ecc. ecc.
Ciao Alfio,


title: Newbie all'arrembaggio!!!

text:
"Pleiadi" <
za...@libero.nospam.it
> ha scritto nel messaggio
news:0p1A5.12633$3R6.2...@news.infostrada.it...
> Posso sapere chi ti ha offerto questo lavoro?
Occhio! Non è che mi hanno assunto per farmi fare una cosa che non so
fare... semplicemente sul posto di lavoro è uscita fuori questa nuova
esigenza e me l'hanno accollata (visto che sono quello che avrebbe potuto
recepire meglio questo nuovo compito) -  farò anche una specie di corso, ma
volevo cominciare a vedere qualcosa per conto mio, visto che poi mi sarà
utile per altre cose al di fuori del lavoro...
> Per quanto riguarda il tutorial ecc. ecc. ecc., posso solo consigliarti di
> aprire il database "NorthWind", che si trova nelle directory di Access, e
> osservare com'è fatto, prendendone spunto per le tue cosuccie.
Buono a sapersi!
> > Nella fattispecie vorrei saperne  di più sulle maschere di
consultazione.
> Che io sappia, correggimi se sbaglio, in access esistono solo maschere, e
> basta.
Vabbè, maschera di consultazione ce l'ho chiamata io! Intendevo dire che il
prodotto finale servirà per consultare il DB, e non per inserire...
Ciao e grazie!



title: Stampa selezionati...

author: Woodrov

text:
Ciao ragazzi!
Ho una maschera nella quale ho piazzato una ListBox (Lista) nella
quale visualizzo i risultati di una ricerca fatta tramite una casella
di testo e un pulsante di comando.
Tutte le ricerche funzionano perfettamente!
Ora, con un altro pulsante cmdStampa, voglio mandare in stampa verso
un report, SOLO i risultati della ricerca che sono stati SELEZIONATI
nella Lista... ho buttato giu questo codice a fronte dell'evento click
del pulsante ma purtroppo non funziona in quanto mi stampa tutti i
record... anche quelli NON selezionati:
Private Sub cmdStampa_Click()
 Dim strSQL As String
 Dim intSelezionati As Integer
 For intSelezionati = 0 To Lista.ListCount - 1
   If Lista.Selected(intSelezionati) Then
    strSQL = strSQL & Lista.Column(0, intSelezionati) & _
    " " & Lista.Column(1, intSelezionati) & ";"
   End If
  Next intSelezionati
 DoCmd.OpenReport "rptClientiTrovati", acViewPreview, strSQL
End Sub
Secondo me ho sbagliato la costruzione della stringa che fa da filtro
per il report... perché per il resto mi sembra giusto...
Avete sugerimenti?
grazie!


title: Stampa selezionati...

text:
"Woodrov" <
luca....@tiscali.it
> ha scritto nel messaggio
news:kf7r1v4c5m5k8jckr...@4ax.com...

Infatti.
Intanto usa il parametro successivo della openreport, quella del
criterioWHERE.
Pertanto DoCmd.OpenReport "rptClientiTrovati", acViewPreview, , strSQL
La sintassi della stringa poi č per esempio
"NomeCampo = 'VALORE'"  o
"NomeCampo = VALORE" se il campo č numerico
Per piů valori devi concatenare con OR, quindi
"NomeCampo = 'VALORE' OR NomeCampo = 'VALORE'" ecc.
Forse funziona anche
"NomeCampo In ('VALORE1';'VALORE2')"
ma non sono sicuro.
Da qui puoi costruire correttamente la tua stringa
Antonio


title: Stampa selezionati...

text:
On Thu, 09 Jan 2003 16:35:04 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

gra$ie!  :))


title: Stampa selezionati...

text:
On Thu, 09 Jan 2003 16:35:04 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>Infatti.
>Intanto usa il parametro successivo della openreport, quella del
>criterioWHERE.
>Pertanto DoCmd.OpenReport "rptClientiTrovati", acViewPreview, , strSQL
>
>La sintassi della stringa poi è per esempio
>"NomeCampo = 'VALORE'"  o
>"NomeCampo = VALORE" se il campo è numerico
>Per più valori devi concatenare con OR, quindi
>"NomeCampo = 'VALORE' OR NomeCampo = 'VALORE'" ecc.
>Forse funziona anche
>"NomeCampo In ('VALORE1';'VALORE2')"
>ma non sono sicuro.
>Da qui puoi costruire correttamente la tua stringa
>
>Antonio
Scusami ancora...
ho provato a modificare la stringa che fa da filtro in questo modo:
strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0,
intSelezionati) & "'" & " " & "OR" & " "
ma mi da' un errore di run-time perché dice che c'è una parentesi
chiusa in eccesso! Io la parentesi chiusa in eccesso proprio non la
vedo...
Io devo filtrare solo in base al campo RagioneSociale...


title: Stampa selezionati...

text:
"Woodrov" <
luca....@tiscali.it
> ha scritto nel messaggio
news:qnbr1vc7n73k9ginn...@4ax.com...

A parte che & " " & "OR" & " " si scrive più semplicemente
& " OR "
a parte questo, il problema è l'ultimo concatenamento. La tua stringa esce
così infatti
"Ragione = 'Pippo' OR Ragione = 'Pluto' OR "
Allora, o alla fine stacchi gli ultimi 4 caratteri dalla stringa creata,
oppure l'OR lo metti all'inizio con un trucchetto per non metterlo la prima
volta.
Esempio:
prima_volta = true
inizio ciclo
if prima_volta then
  prima_volta = false
  strSQL = str_SQL & "Ragione = ...."
else
  str_SQL = str_SQL & " OR Ragione = .....
end if
Antonio


title: Stampa selezionati...

text:
On Thu, 09 Jan 2003 17:32:12 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>A parte che & " " & "OR" & " " si scrive più semplicemente
>& " OR "
>a parte questo, il problema è l'ultimo concatenamento. La tua stringa esce
>così infatti
>"Ragione = 'Pippo' OR Ragione = 'Pluto' OR "
>
>Allora, o alla fine stacchi gli ultimi 4 caratteri dalla stringa creata,
>oppure l'OR lo metti all'inizio con un trucchetto per non metterlo la prima
>volta.
>Esempio:
>prima_volta = true
>inizio ciclo
>if prima_volta then
>  prima_volta = false
>  strSQL = str_SQL & "Ragione = ...."
>else
>  str_SQL = str_SQL & " OR Ragione = .....
>end if
>
>Antonio
Ora mi dice che c'è un operatore mancante nell'espressione della
query..  fosse WHERE!?!? Ma credo che lo metta lui... o no?
Private Sub cmdStampa_Click()
 Dim PrimaVolta As Boolean
 Dim strSQL As String
 Dim intSelezionati As Integer
 For intSelezionati = 0 To Lista.ListCount - 1
   If Lista.Selected(intSelezionati) Then
      If PrimaVolta = True Then
         PrimaVolta = False
         strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0,
intSelezionati) & "'"
      Else
         strSQL = strSQL & " OR RagioneSociale=" & "'" &
Lista.Column(0, intSelezionati) & "'"
      End If
   End If
  Next intSelezionati
DoCmd.OpenReport "rptClientiTrovati", acViewPreview, , strSQL
End Sub


title: Stampa selezionati...

text:
"Woodrov" <
luca....@tiscali.it
> ha scritto nel messaggio
news:effr1v8m108achm9g...@4ax.com...
> On Thu, 09 Jan 2003 17:32:12 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
>
>
> Ora mi dice che c'è un operatore mancante nell'espressione della
> query..  fosse WHERE!?!? Ma credo che lo metta lui... o no?
>
> Private Sub cmdStampa_Click()
>  Dim PrimaVolta As Boolean
>  Dim strSQL As String
>  Dim intSelezionati As Integer
prima_volta = true
Devi inizializzare a true la variabile, altrimenti vale false e ti inizia
con OR
>  For intSelezionati = 0 To Lista.ListCount - 1
>    If Lista.Selected(intSelezionati) Then
>       If PrimaVolta = True Then
>          PrimaVolta = False
>          strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0,
> intSelezionati) & "'"
>       Else
>          strSQL = strSQL & " OR RagioneSociale=" & "'" &
> Lista.Column(0, intSelezionati) & "'"
>       End If
>    End If
>   Next intSelezionati
> DoCmd.OpenReport "rptClientiTrovati", acViewPreview, , strSQL
> End Sub
Antonio


title: Stampa selezionati...

text:
On Thu, 09 Jan 2003 19:56:35 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>prima_volta = true
>
>Devi inizializzare a true la variabile, altrimenti vale false e ti inizia
>con OR
>
>>  For intSelezionati = 0 To Lista.ListCount - 1
>>    If Lista.Selected(intSelezionati) Then
>>       If PrimaVolta = True Then
>>          PrimaVolta = False
>>          strSQL = strSQL & "RagioneSociale=" & "'" & Lista.Column(0,
>> intSelezionati) & "'"
>>       Else
>>          strSQL = strSQL & " OR RagioneSociale=" & "'" &
>> Lista.Column(0, intSelezionati) & "'"
>>       End If
>>    End If
>>   Next intSelezionati
>> DoCmd.OpenReport "rptClientiTrovati", acViewPreview, , strSQL
>> End Sub
>
>Antonio
Avevi perfettamente ragione!!!
Sono stato sbadato...
grazie 1k!!!


title: Stampa selezionati...

text:
"Woodrov" <
luca....@tiscali.it
> ha scritto nel messaggio
news:kf7r1v4c5m5k8jckr...@4ax.com...
> Ciao ragazzi!
>
> Ho una maschera nella quale ho piazzato una ListBox (Lista) nella
> quale visualizzo i risultati di una ricerca fatta tramite una casella
> di testo e un pulsante di comando.
> Tutte le ricerche funzionano perfettamente!
>
> Ora, con un altro pulsante cmdStampa, voglio mandare in stampa verso
> un report, SOLO i risultati della ricerca che sono stati SELEZIONATI
> nella Lista... ho buttato giu questo codice a fronte dell'evento click
> del pulsante ma purtroppo non funziona in quanto mi stampa tutti i
> record... anche quelli NON selezionati:
>
[CUT]
> Avete sugerimenti?
>
> grazie!
Vai sul Sito Comune (link qui sotto) e nella sezione Reports leggi la FAQ
intitolata "Come si può filtrare un report in base alla selezione multipla
effettuata su una casella di riepilogo?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: recordset su una select di SQL

author: Luisa

text:
Ho aperto un recordset utilizzando una stringa SQL che legge i dati di una
query.
E fin qui tutto bene finchè le tabelle sono nello stesso database. Ma se io
divido il Database in BE e FE mi dà errore "3078" e mi dice che è
impossibile trovare la Query in questione.
Ma se io dividi in BE e FE come posso leggere le query??
Ciao Luisa
--


title: recordset su una select di SQL

author: Lbo

text:
>Ma se io dividi in BE e FE come posso leggere le query??
le sposti sul FE.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: recordset su una select di SQL

text:
>Ma se io dividi in BE e FE come posso leggere le query??
altra soluzione: setti una variabile database sul BE, setti una
variabile querydef su questo db, leggi la proprietà sql della querydef
e la esegui col metodo execute sempre sul BE.



title: recordset su una select di SQL

author: VT @ home

text:
Dividere in BE e FE, vuol dire che il BE deve contenere *soltanto* le
tabelle, il FE tutto il resto (form, query, report, moduli, macro).
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora
provetti poeti fiorentini come vturturro.
(Cosě disse
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: recordset su una select di SQL

text:
Lbo <
L...@NOSPAM.blunet.it
> wrote in message
3a2a7298...@news.edisons.it...
> >Ma se io dividi in BE e FE come posso leggere le query??
>
> altra soluzione: setti una variabile database sul BE, setti una
> variabile querydef su questo db, leggi la proprietà sql della querydef
> e la esegui col metodo execute sempre sul BE.
Forse non ho capito molto bene:
le query le ho sul FE e le tabelle sul BE.
In una forms dell'FE io ho:
Set db = OpenDatabase("c:\tdm\pippo_be.mdb")
......
s = "select * from distintaeff"
'dispintaeff è il nome di una query salvata
Set rs = db.OpenRecordset(s)
' a questo punto mi dice che non vede la query distintaeff
Ciao Luisa


title: recordset su una select di SQL

text:
>le query le ho sul FE e le tabelle sul BE.
be', ma allora carica nelle query del FE le tabelle del BE che vedi
come allegate, dopodiché i rst li puoi aprire direttamente sul db FE.
>In una forms dell'FE io ho:
>
>Set db = OpenDatabase("c:\tdm\pippo_be.mdb")
>......
>s = "select * from distintaeff"
>'dispintaeff è il nome di una query salvata
>Set rs = db.OpenRecordset(s)
>
>' a questo punto mi dice che non vede la query distintaeff
ma questa query dove è salvata, sul FE o sul BE?
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Problema conversione campi numerici in stringa

author: Gra

text:
Salve, devo convertire dei campi numerici intero lungo, in stringhe. Il
problema stà nel fatto, che le stringhe devono essere di un certo numero di
caratteri e devono contenere zeri iniziali non significativi, esempio:
campo numerico contiene 5
il campo stringa che è dimensionato a 8 teoricamente dovrebbe contenere
:00000005
il tutto dovrei farlo in una query di creazione tabella.
Sapreste darmi qualche dritta su come fare?
Grazie


author: Proli

text:
"Gra" <
studio...@tiscali.it
> ha scritto nel messaggio
news:cieq6f$7io$1...@balena.cs.interbusiness.it...

inserisci questa funzione in un modulo:
Function riempiezeri(x1a As Variant, v1 As Byte)
       Dim x2a As String, x3a As String
       x3a = String(v1, "0")
       If Len(Trim(x1a)) < v1 Then x2a = Mid(x3a, 1, (v1 - Len(Trim(x1a))))
& x1a
       If Len(Trim(x1a)) = v1 Then x2a = x1a
       If Len(Trim(x1a)) < v1 Then x1a = x2a
      riempiezeri = x1a
End Function
e richiamala in questo modo:
riempiedizeri(valorenum;numcar)
otterrai una stringa che avrà tanti caratteri pari al valore di numcar e che
conterrà il valore contenuto in valorenum.
Marco Dell'Oca


author: MA

text:
"Gra" <
studio...@tiscali.it
> ha scritto nel
messaggio
news:cieq6f$7io$1...@balena.cs.interbusiness.it...

Format([tuocampo];"00000000")
MAssimilaino


text:
"Gra" <
studio...@tiscali.it
> ha scritto nel messaggio
news:cieq6f$7io$1...@balena.cs.interbusiness.it...

Grazie per entrambi i metodi.


author: Bruno Campanini

text:
"Gra" <
studio...@tiscali.it
> wrote in message
news:cieq6f$7io$1...@balena.cs.interbusiness.it...
> Salve, devo convertire dei campi numerici intero lungo, in stringhe. Il
> problema stà nel fatto, che le stringhe devono essere di un certo numero
di
"Sta" si scrive senz'accento.
Scusa, è più forte di me.
Bruno


title: esecuzione comando da codice

text:
in una variabile io ho un comando di Access:
a="docmd.openform("pippo")"
ora io vorrei far eseguire questo comando usando la variabile A.
Il motivo č perchč in una tabella ho messo vari comandi collegati ad utenti
e in base all'utente io faccio partire automaticamente un comando.
Spero di essermi spiegata.
Ciao Luisa
--


title: esecuzione comando da codice

author: Nicola Ardito

text:
Luisa ha scritto nel messaggio ...
>in una variabile io ho un comando di Access:
>
>a="docmd.openform("pippo")"
>
>ora io vorrei far eseguire questo comando usando la variabile A.
>Il motivo è perchè in una tabella ho messo vari comandi collegati ad utenti
>e in base all'utente io faccio partire automaticamente un comando.
>Spero di essermi spiegata.
>Ciao Luisa
Eval(a)
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: esecuzione comando da codice

author: Sergio MAZZA

text:
"Luisa" <
lu...@netquasar.com
> ha scritto nel messaggio
news:u73W5.13292$hk4.4...@news.infostrada.it...
> in una variabile io ho un comando di Access:
>
> a="docmd.openform("pippo")"
>
> ora io vorrei far eseguire questo comando usando la variabile A.
> Il motivo č perchč in una tabella ho messo vari comandi collegati ad
utenti
> e in base all'utente io faccio partire automaticamente un comando.
> Spero di essermi spiegata.
> Ciao Luisa
>
> --
>
Prova con la funzione eval (vedi help)...
Ciao.


title: ora legale

author: Dada

text:
qualcuno conosce il sistema per convertire automaticamente ora in ora legale
ciao e grazie a tutti


title: ora legale

author: Luciano (DOC)

text:
Dada ha scritto nel messaggio <91tta1$s6$
1...@nread2.inwind.it
>...
>qualcuno conosce il sistema per convertire automaticamente ora in ora
legale
>
Cosa intendi dire? A meno di forzature l'ora legale viene settata
automaticamente da Windows quando necessario.
Altrimentiprova con qualcosa del genere:
miadata= date()
miaora =time()
If miadata >= #primo aprile# and miadata<#primo novembre# then
    miaora = miaora +1
end if
Guarda tutte le funzioni che lavorano sulla data e sull'ora per la giusta
sintassi.
Saluti.
Luciano
(DOC)


title: ora legale

author: Sib

text:
"Dada" <
bi...@freemail.it
> ha scritto nel messaggio
news:91tta1$s6$1...@nread2.inwind.it...
> qualcuno conosce il sistema per convertire automaticamente ora in ora
legale
>
> ciao e grazie a tutti
A parte che questo e' un problema di cui si occupa, autonomamente, il
sistema operativo, cosa vorresti fare?
Nella migliore delle ipotesi esistono freeware che ti consentono di
modificare con facilita' il giorno di cambio ora legale (qualora vi fosse
necessita').
Sib


title: Lista aggiornata farmaci

author: Carlo Costarella

text:
Buongiorno, è un po' che non ci sentiamo. Qualcuno ha un elenco di
farmaci aggiornato da usare in Access? Grazie.


title: Lista aggiornata farmaci

text:
Il 30/10/2020 08:28, Carlo Costarella ha scritto:
> Buongiorno, è un po' che non ci sentiamo. Qualcuno ha un elenco di
> farmaci aggiornato da usare in Access? Grazie.
Risolto.
Per chi fosse interessato:
https://www.aifa.gov.it/liste-dei-farmaci


title: Lista aggiornata farmaci

text:
Ciao Carlo, spero tutto bene, sempre un piacere sentirti.

@Alex


title: Rilevare dati in un campo

author: FabioP

text:
Salve a tutti ho un problema:
Voglio rilevare alcuni dati in un campo di una tabella; per crearne una
nuova.
Ho provato con una query di creazione tabella ma sono soltanto riuscito ad
estrarre soltanto!!!!! tutti i dati presenti nel campo


title: Rilevare dati in un campo

author: Alessandro Baraldi

text:

Insert Into TabFinale (elenco Campi)
Select (elenco Campi)
>From TabIniziale
Where CampoPK= ValoreChiavePrimaria
@Alex


title: Condividere un .MDB in rete ... consigli da Microsoft

author: Tiziano

text:
Può interessare a molti:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q303528
Niente di nuovo sotto il sole ... a parte qualche interessante
considerazione sui S.O. NT Based.


title: Espressione troppo complessa

author: Benedetto

text:
Ho inserito in una query questo criterio:
Like IIF([Forms]![NomeMachera]![NomeCombo]=0; "*";
[Forms]![NomeMachera]![NomeCombo])
Tuttavia quando apro la query stessa Access dice che l'espressione è errata
o troppo complessa. Dove sbaglio?
Ciao
Benedetto


title: Espressione troppo complessa

author: Karl Donaubauer

text:
Benedetto ha scritto:

Come dice il messaggio l'espressione è troppo complicato per JET.
Se capisco bene questo fa cosa vuoi:
[Forms]![NomeMachera]![NomeCombo] o [Forms]![NomeMachera]![NomeCombo]=0
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Espressione troppo complessa

author: Giorgio prx

text:
"Benedetto" <
deva...@libero.it
> ha scritto nel messaggio
news:sy3ia.1628$mg5....@twister2.libero.it...

Ciao Benedetto
Il problema potrebbe essere il valore null di
[Forms]![NomeMachera]![NomeCombo] o il valore numerico contenuto che con
Like non Funziona.
Prova con
Like IIF("" & [Forms]![NomeMachera]![NomeCombo]="0"; "*";"" &
[Forms]![NomeMachera]![NomeCombo])
Ciao Giorgio.


title: Invio mail e creazione PDF

author: SimoneB

text:
Ho una maschera con la quale creo fatture, ho creato su di essa un pulsante
ed associato a questo il seguente codice che crea un file PDF (per questo ho
installato sulla mia macchina Acrobat Writer 6.0) dal nome fattura.pdf nella
root di C: e quindi lo invia per allegato tramite posta elettronica.
Ho tre problemi e chiedo chiarimenti in merito:
1. Come posso modificare il codice affinchè venga stampato sulla stampante
PDF e non sulla predefinita? Premetto la stampante PDF si chiama "Adobe
PDF"... così com'è ora mi tocca tutte le volte impostare la stampante PDF
come predefinita e poi rimettere la mia stampante reale al termine delle
operazioni, alla lunga può diventare noioso e lungo.
2. Il problema è che il file PDF con la stampante virtaule, impiega qualche
secondo prima della sua creazione, vorrei che prima di eseguire il codice
relativo all'invio della mail VBA aspettasse almeno 10 secondi, come posso
fare? Ho pensato di mettere un controllo nel quale mi chiede se sono pronto
o meno... ma non esiste un qualcosa di automatico che parte dopo 10 secondi?
3. [Un po' OT] La stampante mi chiede sempre il nome prima di essere creato
il file, io lo vorrei chiamare fattura e non vorrei che mi venisse sempre
chiesto il nome dal programma di creazione PDF, sapete mica come posso fare?
Se è indispensabile sarei anche disposto a cambiare programma di creazione
PDF...
Riporto il codice del pulsante da me inserito in maschera. Ringrazio tutti
quelli che mi leggono e che mi rispondono. Saluti SimoneB
Private Sub Comando68_Click()
Dim stDocName As String
    stDocName = "FATTURA CONSULENZA"
    DoCmd.OpenReport stDocName, acViewNormal
Dim rstMail As New ADODB.Recordset
Dim Mail As String
Dim Ref As String
Dim Allegato As String
Dim ObjOutlook As Outlook.Application
Dim ObjEMail As Outlook.MailItem
Check = False
Testo0 = [Posta elettronica].Value
Mail = "AVVERTENZE AI SENSI DEL D. Lgs. 196/2003. Le informazioni contenute
in questo messaggio di posta elettronica e/o nel/i file/s allegato/i sono da
considerarsi strettamente riservate. Il loro utilizzo è consentito
esclusivamente al destinatario del messaggio, per le finalità indicate nel
messaggio stesso. Qualora riceviate questo messaggio senza esserne il
destinatario, Vi preghiamo cortesemente di darcene notizia via e-mail e di
procedere alla distruzione del messaggio stesso, cancellandolo dal Vostro
sistema. Conservare il messaggio stesso, divulgarlo anche in parte,
distribuirlo ad altri soggetti, copiarlo, od utilizzarlo per finalità
diverse, costituisce  comportamento contrario ai principi dettati dal D.
Lgs. 196/2003." & vbNewLine & vbNewLine & _
Ref = "Invio fattura commerciale n° " & [Numero] & " del " & [Data] & " di "
& [Tipo]
Set ObjOutlook = CreateObject("Outlook.application")
Set ObjEMail = ObjOutlook.CreateItem(olMailItem)
With ObjEMail
.To = Testo0
.Importance = olImportanceHigh
.HTMLBody = Mail
.Subject = Ref
.Attachments.Add ("c:\FATTURA.PDF")
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Send
End With
Set ObjEMail = Nothing
End Sub


title: Invio mail e creazione PDF

author: Roberto da Parma

text:
"SimoneB" <
berti...@tiscali.it
> ha scritto nel messaggio
news:47bdfa0e$0$37203$4faf...@reader3.news.tin.it...

Io uso una DLL per fare tutto quello che dici...
www.lebans.com
--
Roberto da Parma


title: Invio automatico.

author: LinoFornaro

text:
Scusatemi, vorrei sapere come si fa a far andare al prossimo campo senza
premere il tasto invio o tab ad esempio quando si č completato il campo
Provincia oppure partita iva etc.
Grazie mille per l'attenzione e per la risposta.
Un saluto a tutti,
Lino Fornaro


title: Invio automatico.

author: geppo

text:
Ciao  "LinoFornaro" <
mcl...@libero.it
> ha scritto nel messaggio
news:W6e%k.207344$FR.4...@twister1.libero.it...
> Scusatemi, vorrei sapere come si fa a far andare al prossimo campo senza
> premere il tasto invio o tab ad esempio quando si č completato il campo
> Provincia oppure partita iva etc.
potresti sfruttare l'evento keyPress della Textbox:--/
private sub NomeTextBox_Keypress(Keyascii as integer)
If Len(me!NomeTextBox.text) > 3 Then
   me!NomeTextBox.setfocus
   Keyascii = 0
End If
> Grazie mille per l'attenzione e per la risposta.
prego
> Un saluto a tutti,
> Lino Fornaro
--
Ciao
Geppo


title: Invio automatico.

author: Lino Fornaro

text:

Scusami se ringrazio solo ora ma non riesco a capire, leggo i post con
outlook express e da un pņ di giorni mi dą errore e non mi scarica quindi i
post dell'N.G..
Ora rispondo andando direttamente dal web, comunque ringrazio e provo ti
farņ sapere se ci sono dei problemi, grazie ancora, Lino Fornaro.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Invio automatico.

text:
"Lino Fornaro" <
mc...@libero.it
> ha scritto nel messaggio
news:151Z62Z34Z41Y1...@usenet.libero.it...
> Il 08 Dic 2008, 21:04, "geppo" <c...@tin.it.invalid> ha scritto:
>> Ciao "LinoFornaro" <
mcl...@libero.it
> ha scritto nel messaggio
>> news:W6e%k.207344$FR.4...@twister1.libero.it...
>> > Scusatemi, vorrei sapere come si fa a far andare al prossimo campo
>> > senza
>> > premere il tasto invio o tab ad esempio quando si è completato il campo
>> > Provincia oppure partita iva etc.
>>
>> potresti sfruttare l'evento keyPress della Textbox:--/
>>
>> private sub NomeTextBox_Keypress(Keyascii as integer)
>>
>> If Len(me!NomeTextBox.text) > 3 Then
>> me!NomeTextBox.setfocus
>> Keyascii = 0
>> End If
>>
>> > Grazie mille per l'attenzione e per la risposta.
>> prego
>> > Un saluto a tutti,
>> > Lino Fornaro
>>
>> --
>> Ciao
>> Geppo
>>
> Scusami se ringrazio solo ora ma non riesco a capire, leggo i post con
> outlook express e da un pò di giorni mi dà errore e non mi scarica quindi
> i
> post dell'N.G..
> Ora rispondo andando direttamente dal web, comunque ringrazio e provo ti
> farò sapere se ci sono dei problemi, grazie ancora, Lino Fornaro.
>
> --------------------------------
Geppo, scusami ho provato con il tuo codice ma non funziona, te lo mando
vedi se c'è qualche errore, grazie
If Len(Me!PROVINCIA.Text) > 3 Then
   'Me!PROVINCIA.SetFocus
   'KeyAscii = 0
'End If


title: Invio automatico.

text:
Ciao "LinoFornaro" <
mcl...@libero.it
> ha scritto nel messaggio
news:Xl30l.214185$FR.5...@twister1.libero.it...

Non ci sono errore, però il nome della textbox successiva non credo sia
Provincia, pertanto cambialo con il nome della textBox dove desideri che il
focus venga automaticamente spostato:
Private sub provincia_keypress(KeyAscii as integer)
 If Len(Me!PROVINCIA.Text) > 3 Then
      Me!NomeControlloSuccessivo.SetFocus
   KeyAscii = 0
 End If
end sub
--
Ciao
Geppo


title: Invio automatico.

text:
"geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:uA90l.214478$FR.5...@twister1.libero.it...

Lo so, il campo successivo si chiama regione, avevo già provato ma niente.
Ciao, lino


title: Invio automatico.

text:
Ciao "LinoFornaro" <
mcl...@libero.it
> ha scritto nel messaggio
news:mka0l.214521$FR.5...@twister1.libero.it...
----cut----
> Lo so, il campo successivo si chiama regione, avevo già provato ma niente.
Ho capito. Uhmm.....allora cambia evento, usa change:--/
private sub provincia_Change()
if len(Me!provincia.text) >= 2 then
  me!Regione.setfocus
end if
end sub
> Ciao, lino
--
Ciao
Geppo


title: Invio automatico.

text:
"geppo" <c...@tin.it.invalid> ha scritto nel messaggio
news:W5b0l.214563$FR.5...@twister1.libero.it...

Grazie Geppo, sei grande funziona!!!!
Alla prossima, Lino


title: Piu' sottoreport simili

author: Franco K

text:
Ciao a tutti!
Sto costruendo un report "Main" che contiene una dozzina di sottoreport.
Tutti questi SR differiscono fra di loro solo per l'origine dati.
Tutto funziona egregiamente con i 12 SR diversi ma, per snellire il
progetto, vorrei sapere se posso usare un solo sottoreport e poi settare per
ognuno la proprietą RecordSource tramite VB.
Ho creato un report "Main" ed un SR "sr00" con origine dati blank.
Nella struttura del report "Main" ho inserito i SR:
nome elemento: sr01 oggetto origine: sr00
nome elemento: sr02 oggetto origine: sr00
nome elemento: sr03 oggetto origine: sr00
...
Questo č il frammento di codice che sto provando (ma non funziona):
DoCmd.OpenReport "Main", acViewDesign, , , acHidden
Reports![Main].Report![sr01].RecordSource = "table01"
Reports![Main].Report![sr02].RecordSource = "table02"
....
DoCmd.OpenReport "Main", acViewNormal, , , acHidden
Buon Natale a tutti!
Franco K
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Piu' sottoreport simili

author: Sergio MAZZA

text:
"Franco K" <
franco_...@hotmail.com
> ha scritto nel messaggio
news:80Z72Z160Z92Y1...@usenet.libero.it...
> Ciao a tutti!
> Sto costruendo un report "Main" che contiene una dozzina di sottoreport.
> Tutti questi SR differiscono fra di loro solo per l'origine dati.
> Tutto funziona egregiamente con i 12 SR diversi ma, per snellire il
> progetto, vorrei sapere se posso usare un solo sottoreport e poi settare
per
> ognuno la proprietà RecordSource tramite VB.
>
> Ho creato un report "Main" ed un SR "sr00" con origine dati blank.
>
> Nella struttura del report "Main" ho inserito i SR:
>
> nome elemento: sr01 oggetto origine: sr00
> nome elemento: sr02 oggetto origine: sr00
> nome elemento: sr03 oggetto origine: sr00
> ...
>
> Questo è il frammento di codice che sto provando (ma non funziona):
>
> DoCmd.OpenReport "Main", acViewDesign, , , acHidden
> Reports![Main].Report![sr01].RecordSource = "table01"
> Reports![Main].Report![sr02].RecordSource = "table02"
> ....
> DoCmd.OpenReport "Main", acViewNormal, , , acHidden
>
> Buon Natale a tutti!
> Franco K
>
Invece di cambiare il recordsource, utilizza la query per riempire l'unica
tabella che verrà associata al sottoreport...
Ciao.
--
Sergio MAZZA


title: Conteggio record visualizzati

author: GS

text:
Ciao a tutti,
sono di nuovo ad approfittare di voi......
come faccio a contare i record visualizzati in una maschera con
"visualizzazione predefinita= maschere continue"?
Ciao e grazie
GS


title: Conteggio record visualizzati

text:
"GS" <
Forza...@forever.it
> ha scritto nel messaggio
news:g7w%e.5875$ID6....@twister2.libero.it...

 La vedo dura...almeno per le mie conoscenze.
Il problema infatti non č contare i record visualizzati appena apri la
maschera ma semmai quelli che si aggiungono allo scorrimento.
Se invece ti servono solo quelli che la maschera mostra all'apertura e che
saranno comunque sempre quelli, anche se fai pag. giů, potresti fare un
calcolo abbastanza semplice.
All'apertura della maschera imposti l'altezza voluta con
Docmd.MoveSize,,8000,9000 (numeri di fantasia). Ora sai quanto č alta la
maschera. Sottrai il valore delle altre sezioni (tranne il corpo), sottrai
ancora le misure del bordo/cornice (circa 733) e dividi il tutto per
l'altezza del corpo.
In pratica con una sola sezione IntestazioneMaschera:
Dim calcolo As Long
calcolo = 9000 - Me.IntestazioneMaschera.Height - 733
calcolo = calcolo / Me.Corpo.Height
MsgBox "La maschera contiene " & calcolo & " record"
Fammi sapere.
Ciao, Carlo


title: Conteggio record visualizzati

text:
"GS" <
Forza...@forever.it
> wrote in message
news:g7w%e.5875$
ID6....@twister2.libero.it

In sostanza la Form spesso è composta da 3 Sezioni.
1)Intestazione
2)Corpo
3)Pie di pagina
Se questo corrisponde a verità la proprietà Me.Height
restituisce questo:
Me.Height=Me.Section(Intestazione)+Me.Section(Piedi pagina)+
          Me.Section(Corpo)*Numero di Records
Fai un test per vedere se è vero, quindi ricavati NumeroRecords
dall'espressione.
La Collection Section indicizza le varie sezioni alle quali
accedi passando l'indice della stessa.
L'elenco degli indici lo trovi nell'Help ma credo siano:
Corpo        --> acDetail= 0
Intestazione --> acHeader= 1
PiePagina    --> acFooter= 2
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Conteggio record visualizzati

text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in message
news:cfec85167269d63295...@mygate.mailgate.org
> "GS" <
Forza...@forever.it
> wrote in message
> news:g7w%e.5875$
ID6....@twister2.libero.it
>
> > Ciao a tutti,
> > sono di nuovo ad approfittare di voi......
> >
> > come faccio a contare i record visualizzati in una maschera con
> > "visualizzazione predefinita= maschere continue"?
> >
> >
> > Ciao e grazie
> > GS
[CUT]
Ho dimenticato che andrebbe considerata anche l'altezza
della Caption della Form, ma essendo fissa trova la costante
e sottraila...!



title: query particolare

author: Maicol

text:
Ciao a tutti. Ho una tabella che contiene i dati relativi a delle basi
musicali e per ogni canzone puo' esistere piu' di una versione della base e
quindi piu' di un record.
I campi sono :
ID
Cantante
Titolo
Testo (sì/no indica l'eventuale presenza del testo su carta della canzone)
Karaoke (sì/no indica la presenza del karaoke nella base)
Dovrei estrarre tutte le basi i cui titoli hanno il testo , ma per i quali
non esiste nessuna versione con il karaoke . Esempio
ID        Cantante                  Titolo                     Testo
karaoke
1           Battisti                    Anna                         sì
sì
2           Battisti                    Anna                        sì
no
3           Baglioni                    Avrai                       sì
no
4           Baglioni                    Avrai                       sì
no
5           Venditti                   Roma capoccia           no
sì
6           Venditti                   Roma capoccia           no
sì
7            Zucchero                Con le mani                sì
no
la query deve restituire :
3           Baglioni                    Avrai                       sì
no
4           Baglioni                    Avrai                       sì
no
7            Zucchero                Con le mani                sì
no
Io l'ho fatto ma in un modo che mi sembra molto macchinoso (varie query a
catena), e ero quindi curioso di vedere (anche per imparare) come si poteva
eseguire con un sistema piu' "professionale". Ringrazio tutti e buona
serata.


title: query particolare

author: MA

text:
> Ciao a tutti. Ho una tabella che contiene i dati relativi a delle basi
> musicali e per ogni canzone puo' esistere piu' di una versione della base
e
> quindi piu' di un record.
> I campi sono :
> ID
> Cantante
> Titolo
> Testo (sì/no indica l'eventuale presenza del testo su carta della canzone)
> Karaoke (sì/no indica la presenza del karaoke nella base)
> Dovrei estrarre tutte le basi i cui titoli hanno il testo , ma per i quali
> non esiste nessuna versione con il karaoke . Esempio
[cut]
>
> Io l'ho fatto ma in un modo che mi sembra molto macchinoso (varie query a
> catena), e ero quindi curioso di vedere (anche per imparare) come si
poteva
> eseguire con un sistema piu' "professionale". Ringrazio tutti e buona
> serata.
>
Una sola query con criterio sì e no nei campi giusti.
Vai in struttura query e sotto i campi che ti interessano inserisci i
criteri.
Gia che ti trovi guardati l'sql
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: query particolare

text:
CUT
>
> Una sola query con criterio sě e no nei campi giusti.
> Vai in struttura query e sotto i campi che ti interessano inserisci i
> criteri.
> Gia che ti trovi guardati l'sql
> ciao MAssimiliano
>
Forse mi sono spiegato male, se imposto come condizione del campo Testo= sě'
e come condizione del campo karaoke = no ottengo tutti record con queste
condizioni, mentre io voglio solo quelli per i quali non esiste un'altro
record con stesso cantante, stesso titolo e karaoke = sě


title: query particolare

author: Marco, il Padre

text:


Ci vogliono almeno due operazioni. Una query di creazione tabella:
SELECT canz.nome, canz.cant, Max(Not ([canz].[k]) And
([canz].[testo])) AS Espr1 INTO t2
FROM canz
GROUP BY canz.nome, canz.cant
HAVING (((Max(Not ([canz].[k]) And ([canz].[testo])))=-1));
e quindi quella si selezione
SELECT
canz.id
, canz.nome, canz.cant
FROM canz INNER JOIN t2 ON (canz.cant = t2.cant) AND (canz.nome =
t2.nome);


title: query particolare

text:
"Marco, il Padre" <
za...@polito.it
> ha scritto nel messaggio
news:k2obrugglbf1dbovm...@4ax.com...

ti ringrazio, la provo e ti faccio sapere>
>


title: query particolare

author: Roberto da casa

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:skgt9.64000$%M1.16...@twister2.libero.it...
Ho risposto al thread aperto il 22/10/2002 ore 19:49 nel quale hai postato
per ben due volte lo stesso messaggio oggetto anche di questo thread.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: query particolare

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:shyt9.67139$%M1.17...@twister2.libero.it...
>
> "Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
> news:skgt9.64000$%M1.16...@twister2.libero.it...
> Ho risposto al thread aperto il 22/10/2002 ore 19:49 nel quale hai postato
> per ben due volte lo stesso messaggio oggetto anche di questo thread.
>
> --
Chiedo scusa ma effettivamente io ho postato come tu dici a quell'ora , ma
tutt'ora non vedo nei i miei messaggi ne' la tua risposta . Qualcuno sa
spiegarmi perche'.


title: query particolare

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:ZUyt9.67284$%M1.17...@twister2.libero.it...

Posto qui di seguito la risposta che ti ho dato nel'altro thread:
Se la tabella che contiene i dati si chiama Tabella1 ed ha la seguente
struttura:
ID                Contatore e chiave primaria
Cantante       Testo
Titolo            Testo
Testo            Si/no
Karaoke        Si/no
Usa una query di selezione che abbia il seguente codice SQL:
SELECT Tabella1.*
FROM Tabella1
WHERE (((IIf(IsNull(DLookUp("ID","Tabella1","Cantante=" & Chr$(34) &
[Cantante] & Chr$(34) & " And Titolo=" & Chr$(34) & [Titolo] & Chr$(34) & "
And Testo =" & True & " And Karaoke=" & True)),1,0))=1) AND
((Tabella1.Testo)=True));
Quanto sopra funziona a condizione che i campi Testo e Karaoke hanno un tipo
dati Si/no; se non è così modifica di conseguenza la WHERE e se non riesci a
farlo da solo rifatti vivo.



title: query particolare

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:tdzt9.67346$%M1.17...@twister2.libero.it...

> Ti ringrazio , vado a provare.
>
>


title: query particolare

text:
On Wed, 23 Oct 2002 15:27:21 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>SELECT Tabella1.*
>FROM Tabella1
>WHERE (((IIf(IsNull(DLookUp("ID","Tabella1","Cantante=" & Chr$(34) &
>[Cantante] & Chr$(34) & " And Titolo=" & Chr$(34) & [Titolo] & Chr$(34) & "
>And Testo =" & True & " And Karaoke=" & True)),1,0))=1) AND
>((Tabella1.Testo)=True));
Splendida idea l'uso della DLookUp


title: query particolare

author: Maurizio Borrelli

text:
> "Marco, il Padre"
news:3t5erusgr338lvfj9...@4ax.com
:
> "Roberto da casa":
> >SELECT Tabella1.*
> >FROM Tabella1
> >WHERE (((IIf(IsNull(DLookUp("ID","Tabella1","Cantante=" & Chr$(34) &
> >[Cantante] & Chr$(34) & " And Titolo=" & Chr$(34) & [Titolo] & Chr$(34) &
> >"
> >And Testo =" & True & " And Karaoke=" & True)),1,0))=1) AND
> >((Tabella1.Testo)=True));
> Splendida idea l'uso della DLookUp
    Diciamo che e' un'idea e basta. Oppure diciamo che e' splendida la
logica della soluzione. Ma, per definizione, l'uso delle funzioni di
aggregazione nelle query non e' mai splendido.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Una curiosità...

author: Cristiano

text:
Leggo un sacco di post riguardanti Access 97.
Come mai?
Nessuno usa il 2002?


title: Una curiosità...

text:
"Cristiano" <
cristianopor...@tiscalinet.it
> ha scritto nel
messaggio news:kWBga.24844$i26.6...@news2.tin.it...
> Leggo un sacco di post riguardanti Access 97.
> Come mai?
> Nessuno usa il 2002?
Io ho iniziato ad usare Access con Access 97 e ci sono rimasto affezionato.
;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Una curiosità...

author: Emyr

text:


io uso il 2002 ma la maggior parte dei vecchi giustamente non vede
motivo di passare dal 97 al 02 visto l'utilizzo che ne devono fare
Saluti.
Emanuele.


title: Una curiosità...

author: yQy

text:
On Thu, 27 Mar 2003 12:14:08 GMT, "Cristiano"
<
cristianopor...@tiscalinet.it
> wrote:

anche io molto tempo fa ho chiesto, solo per un puro scambio di
opinioni fra _colleghi_ come mai i veterani usassero ancora acc97...
credo questo:
access97 ha di suo:
-database max 1giga di file (per ogni .mdb(
-linguaggio di default dao
-manca intergazione nativa per database sql server
-pochi (spero di non dire fregnacce) bugs
-e' piu veloce
access2002 ha:
-database max 2gigabite per ogni mdb
-linguaggio di default ado (stesso di asp)
-integrazione nativa per sql db
-RECORDSET
-che io sappia pochi bug
-mpo elefantesco, ma molto + avanzato
ora...
se devi fare un gestionale STAND-ALONE anche complesso credo sia
sifficente access 97...
se devi fare cose a livello client server potresti usare cmq access97
per costruirti le maschere, e usare base dati sql...che pero' non ha
native, quindi usi odbc...altrimenti access2002 ha il supporto sql
server nativo...(dipende dai tuoi gusti ed utilizzi)
decidi tu :)
io faccio cosi:
access 97 tutti i gestionalini carini carini...che girano su singolo
pc o rete...ma sempre con base dati access...
msde o sql server e interfaccia grafica (ASP magari) per i prog
client/server....
Tu quale preferisci? :))
Sarei curioso di ricevere risposte anche dai veterani, biso, mazza,
karl....
Saluti a tutti :)


title: Una curiosità...

text:
"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:3e833e5b...@news.tin.it...

Al prossimo raduno te lo faccio vedere io il "veterano"!!! Pfui...
Comunque; ho al mio "attivo" due esperienze negative:
- la prima č stata a dir poco da infarto. Una semplice applicazione che si
collegava (in rete) via ODBC ad un database (se non ricordo male Postgres) e
ne selezionava i dati. Dopo vari test, consegno al cliente e proprio nel
momento di creare il report si blocca l'applicazione. Vabbé, poco male;
riavvio tutto e... Magia! Il database con i dati si era fottuto!!! Ma non
finisce quě; il sistema di backup che non ha mai funzionato, secondo voi
quando si riavvia? Proprio un momento dopo che il db era crashato...
Meraviglia delle meraviglie!!
- la seconda; č piů leggera ma definitiva! Un lavoro arrivato al 30% e
quando vado a salvare una form con del codice VBA... Va in crash access...
Ari-vabbé; riavvio e... Tadaaa!! Le form erano sparite... Ovvio che ogni
tentativo di far riapparirle č stato vano... Mi rimbocco le maniche e
riscrivo tutto; alla stessa form, stesso codice... Sbam! Stessa solfa...
Dopo aver tirato giů tutto il calendario ho abbandanato definitivamente
tutte le versioni 200x... Amen.
Comunque a grandi linee (e con i piedi di piombo) concordo con te con
l'analisi fatta...
Ciao.
--
Sergio MAZZA


title: Una curiosità...

text:
On Thu, 27 Mar 2003 19:58:43 +0100, "Sergio MAZZA"
<
sergi...@tiscali.it
> wrote:
>
>Al prossimo raduno te lo faccio vedere io il "veterano"!!! Pfui...
azz....aria di botte....me l'hai promesse x caso? :))))))
magari a poterci venire...'nnaggia la pisella :)
>Comunque; ho al mio "attivo" due esperienze negative:
sta' contento :) io mpo deppiu'
>- la prima è stata a dir poco da infarto. Una semplice applicazione che si
>collegava (in rete) via ODBC ad un database (se non ricordo male Postgres) e
>ne selezionava i dati. Dopo vari test, consegno al cliente e proprio nel
>momento di creare il report si blocca l'applicazione. Vabbé, poco male;
>riavvio tutto e... Magia! Il database con i dati si era fottuto!!! Ma non
>finisce quì; il sistema di backup che non ha mai funzionato, secondo voi
>quando si riavvia? Proprio un momento dopo che il db era crashato...
>Meraviglia delle meraviglie!!
che versione usavi di access? e di service pack?
>- la seconda; è più leggera ma definitiva! Un lavoro arrivato al 30% e
>quando vado a salvare una form con del codice VBA... Va in crash access...
>Ari-vabbé; riavvio e... Tadaaa!! Le form erano sparite... Ovvio che ogni
>tentativo di far riapparirle è stato vano... Mi rimbocco le maniche e
>riscrivo tutto; alla stessa form, stesso codice... Sbam! Stessa solfa...
idem come sopra?
>Dopo aver tirato giù tutto il calendario ho abbandanato definitivamente
>tutte le versioni 200x... Amen.
quindi tu utilizzi e utilizzerai da oggi in poi e per sempre access 97
(salvo versioni future) ?
>Comunque a grandi linee (e con i piedi di piombo) concordo con te con
>l'analisi fatta...
beh meglio, vuoldire che non sono poi cosi' neofita.
fai software in access di lavoro? o e' solo un tuo secondo
lavoro/hobby?
>Ciao.
Ciao :)
nagari per il raduno...avrei piacere a venir eper conoscervi tutti :)
quando si fara'?
Ciao :)


title: Una curiosità...

author: Filippo Mazzella

text:
Passare da un Access all'altro in una azienda comporta un enorme mole di
lavoro,aggiornamento di 300 tabelle e aggiornamento di tute le macchine
quindi si preferisce rimanere ad Access97.
"Cristiano" <
cristianopor...@tiscalinet.it
> ha scritto nel
messaggio news:kWBga.24844$i26.6...@news2.tin.it...



title: Una curiosità...

text:
"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:0pq68voi5bf3meuk9...@4ax.com...
> azz....aria di botte....me l'hai promesse x caso? :))))))
> magari a poterci venire...'nnaggia la pisella :)
Speriamo...
> sta' contento :) io mpo deppiu'
Sbagliare è umano, perseverare è diabolico!
> che versione usavi di access? e di service pack?
Quella che mi hanno messo a disposizione; non ho fatto caso all'ambiente
perché era un programmino così stupido... Porc!
> idem come sopra?
No; 2000 sr1 - sp1...
> quindi tu utilizzi e utilizzerai da oggi in poi e per sempre access 97
Yes;
> (salvo versioni future) ?
salvo future necessità;
> beh meglio, vuoldire che non sono poi cosi' neofita.
forse vuol dire dare "peso" al proprio lavoro;
> fai software in access di lavoro? o e' solo un tuo secondo
> lavoro/hobby?
Ho iniziato come libero professionista, ora sono impiegato in un Ente e mi
occupo in modo trasversale di quello che riguarda l'informatica.
> Ciao :)
Ciao.
> nagari per il raduno...avrei piacere a venir eper conoscervi tutti :)
Magari;
> quando si fara'?
Come hai potuto notare (post di MA) non credo sia da qui a poco; dipende
anche dagli impegni di lavoro/vita.
> Ciao :)
Ciao.
--
Sergio MAZZA


title: verificare se esiste un file

author: Akery

text:
buongiorno
vorrei verificare se esiste un file in una cartella, ho scritto il
seguente codice

Sub check_att()

Dim GetDBPath As String
Dim dataf As Date
Dim subfold As String
'On Error GoTo errori

GetDBPath = CurrentProject.Path  'nome percorso

Error 11

If Len(Dir(GetDBPath & "\formazione\css " & Forms![prev_class]![classe
del] & "\att_base\" & Forms![prev_class]![nome] & " " &
Forms![prev_class]![cognome] & ".pdf", vbDirectory)) = 0 Then
Forms![prev_class]!esito = "da richiedere"
Else
Forms![prev_class]!esito = "OK"
End If

'errori:
'Exit Sub

End Sub

ma non funziona, cosa sto sbagliando?

Akery

--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: verificare se esiste un file

author: Ammammata

text:
Il giorno Mon 01 Mar 2021 10:37:23a, *Akery* ha inviato su
it.comp.appl.access il messaggio news:s1ickm$1tg4$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> ma non funziona

quella che uso io:

Function Dir_Exist(TestDir As String) As Variant
MyName = DIR(TestDir, vbDirectory)
    If MyName = "" Then
        Dir_Exist = ""
    Else
        If Right(TestDir, 1) = "\" Then Dir_Exist = TestDir Else Dir_Exist
= TestDir & "\"
    End If
End Function

e un paio di esempi:

If Dir_Exist(Me.APP_PATH & "DATI_REP_B.MDB") = "" Then
    MsgBox "Application path error", 0, "Attention"
    Exit Sub
Else
    Me.APP_PATH = Dir_Exist(Me.APP_PATH)
End If

If Dir_Exist(Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb") <> "" Then
Kill Me.APP_PATH & NN & Ty & CO & MA & "DATI_REP.Mdb"

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: verificare se esiste un file

text:
Io uso questa:

Public Function FileExists(ByRef sFileName As String) As Boolean
    On Error Resume Next
    FileExists = (GetAttr(sFileName) And vbDirectory) <> vbDirectory
End Function

@Alex


title: verificare se esiste un file

text:
Il 01/03/21 10:37, Akery ha scritto:
> buongiorno
> vorrei verificare se esiste un file in una cartella, ho scritto il
> seguente codice
>
> Sub check_att()
>
> Dim GetDBPath As String
> Dim dataf As Date
> Dim subfold As String
> 'On Error GoTo errori
>
> GetDBPath = CurrentProject.Path  'nome percorso
>
> Error 11
>
> If Len(Dir(GetDBPath & "\formazione\css " & Forms![prev_class]![classe
> del] & "\att_base\" & Forms![prev_class]![nome] & " " &
> Forms![prev_class]![cognome] & ".pdf", vbDirectory)) = 0 Then
> Forms![prev_class]!esito = "da richiedere"
> Else
> Forms![prev_class]!esito = "OK"
> End If
>
>
> 'errori:
> 'Exit Sub
>
> End Sub
>
> ma non funziona, cosa sto sbagliando?
>
> Akery
>
Grazie
non avevo pensato che una funzione ad hoc potesse risolvere il problema
Akery


title: AIUTOOOOO

author: jerry

text:
per favore cč nessuno che puo aiutare un disperato incasinato con access
2000 e un generatore di macro non funzionante?
jerry...@ciaoweb.it


title: AIUTOOOOO

author: LaLo

text:
"jerry" <
jerry...@yahoo.com
> ha scritto nel messaggio
news:bLJ07.1824$D03....@news.infostrada.it...
> per favore cè nessuno che puo aiutare un disperato incasinato con access
> 2000 e un generatore di macro non funzionante?
>
>
jerry...@ciaoweb.it
>
Fai pure la tua domanda (dopo aver letto le regole del NG).
LaLo


title: x roberto da casa

author: CarloCanza

text:
Qualche giorno fa avevo posto la domanda sottoindicata e molto cortesemente
mi č stato detto come fare.
Volevo perň un ulteriore aiuto: se la stringa risultante dalla funzione
pippo č lunga piů di 255 caratteri viene tagliata.
Come posso risolvere il problema ????
> > ho una tabella di questo tipo:
> > id    descrzione
> > 1    piombo
> > 1    ferro
> > 2    ferro
> > 3    stagno
> > 3     ferro
> >
> > ho bisogno di raggruppare i valori e visualizzarli o stamparli in questo
> > modo:
> >
> > 1     piombo, ferro
> > 2     ferro
> > 3    stagno, ferro
> >
> > Posso farlo con codice VB o c'č altro modo ????
>
> Se la tabella che contiene i dati si chiama Tabella1.
>
> In un modulo del tuo database registra il seguente codice VBA:
>
> Function Pippo(ValoreCampo As Long) As String
> Dim rst As DAO.Recordset
> Set rst = CurrentDb().OpenRecordset("Tabella1")
> rst.MoveFirst
> Do Until rst.EOF
>     If rst!ID = ValoreCampo Then
>     Pippo = Pippo & rst!descrizione & ", "
>     End If
>     rst.MoveNext
> Loop
> Pippo = Left(Pippo, Len(Pippo) - 2)
> Set rst = Nothing
> End Function
>
> Quindi creati una query di raggruppamento che abbia il seguente codice
SQL:
>
> SELECT Tabella1.id, Pippo([id]) AS Pluto
> FROM Tabella1
> GROUP BY Tabella1.id;
>
> Se usi una versione di Access succeviva ad Access 97, aggiungi ai
> riferimenti del tuo database i riferimenti alle librerie Microsoft DAO.
>
> --
> Roberto
>


title: x roberto da casa

author: Alessandro Cara

text:

devi definire il campo come......
cavolo ma io non son  roberto da casa
scusa
--
a.cara


title: x roberto da casa

text:
"CarloCanza" <
carlo...@tiscali.it
> ha scritto nel messaggio
news:aq3k3f$27h$1...@lacerta.tiscalinet.it...
> Qualche giorno fa avevo posto la domanda sottoindicata e molto
cortesemente
> mi è stato detto come fare.
> Volevo però un ulteriore aiuto: se la stringa risultante dalla funzione
> pippo è lunga più di 255 caratteri viene tagliata.
> Come posso risolvere il problema ????
[CUT]
Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.
Io ho provato e nella query non mi è stato tagliato nulla (sono arrivato a
registrare oltre 355 caratteri e li ho visti tutti).
Certo che nel report devi impostare a Si la proprietà Espandibile del
contrrollo associato al campo Pluto della query.
Ma non è per caso che hai trasformato la query in una query di creazione
tabella, o in una query di accodamento o di aggiornamento?
In questo caso è chiaro che se il campo Pluto della tabella è di tipo testo,
ha una lunghezza massima di 255 caratteri.
In questo caso devi dichiarare il campo Pluto della tabella di tipo memo, e
se non ricordo male non puoi usare una query, ma devi usare del codice VBA
nel quale apri un recordset sulla tabella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: x roberto da casa

author: Claudio

text:
"Alessandro Cara" <
al...@blunet.it
> ha scritto nel messaggio
news:3DC5645D...@blunet.it...
> CarloCanza wrote:
> >
> > Qualche giorno fa avevo posto la domanda sottoindicata e molto cortesemente
> > mi è stato detto come fare.
>
> devi definire il campo come......
>
> cavolo ma io non son  roberto da casa
> scusa
Carlo, spero tu abbia recepito il "sottile" messaggio di Alessandro :-)
Ciao. Claudio.


title: x roberto da casa

author: carlocanza

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Oydx9.111235$%M1.28...@twister2.libero.it...

scrivo dopo: mi comporto bene ?
Ho verificato, ma perchè a video con una maschera ne visualizza solo una
parte ???
Anche la query ne visualizza solo una parte: perchè ???