mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: [OT] Traduzione FAQ 1.10

 1.10 APERTURA DEL DB RIDOTTO A ICONA O A FINESTRA INGRANDITA
Problema
Vuoi che il tuo DB (di Access) venga aperto sempre a finestra ingrandita.
Soluzione
Se lanci il DB da un collegamento puoi impotare le proprietą di questo a
"finestra ingrandita".
Altimenti poi inserire nella tua macro Autoexec o all'Apertura della
maschera d'avvio il seguente codice: RunCommand acCmdAppMaximize.
Le stesse funzioni anche per "ridurre ad icona" e "ripristinare". Le
corrispondenti costanti RunCommand sono acCmdAppMinimize e acCmdAppRestore.
-articolo KB con DB d'esempio-
-----------------
Ciao Valerio

 "finestra ingrandita".
impostare, non "impotare", manca la S
-- 
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

 ha scritto nel messaggio
news:cd7sed$dma$1...@news.newsland.it...

Grazie Valerio

Newsgroup: it.comp.appl.access
Titolo: Filtro Year(Data) in una query

Come posso estrapolare i dati di una tabella utilizzando la funzione Year()?
Ovvero:
In una tabella con
Nome                Data                   Valore
Pinco Pallino      01/01/2004        200
Pinco Pallina      01/02/2004        100
Pinco Palline      10/01/2005        400
Pinco Pallini      01/01/2005        800
come faccio ad ottenere con una query solo i record del dell'anno 2004?

 come faccio ad ottenere con una query solo i record del dell'anno 2004?
Sto usando nel criterio Year("Data") = Year(Now())

"vuLCan Karayan" <noEmail...@NoSpam.com> ha scritto nel messaggio
news:ph5ld.160946$b5.79...@news3.tin.it...

_____________________
SELECT tbl1.Nome, tbl1.Data, tbl1.Valore, Year([data]) AS FiltroData
FROM tbl1
WHERE (((Year([data]))=Year(Now())));
dove tbl1 è il nome della tua tabella.
ciao
Riccardo
Newsgroup: it.comp.appl.access
Titolo: Utilizzo And

Salve perch� usando l'operatore 'and' in questo modo mi da errore di 
run-time 'tipo non corrispondente'?
Me.MioCampo1.ControlSource = "1234" And Me.MioCampo2.ControlSource = "5678" 
And Me.MioCampo3.ControlSource = "9000"
i campi sono di tipo numerico
Grazie 

"Pippo" <asda> ha scritto nel messaggio 
news:4b7c0a48$0$1142$4faf...@reader1.news.tin.it...

Perch� � un'istruzione sbagliata e tra l'altro poco chiara.
Primo campo � in tabella e query, tu usi i controlli
il controlsource (si chiama cos� apposta) definisce quale campo associare.
Tu invece vuoi associare un valore e allora batsa me.Miocontrollo1 = 1234
senza apici perch� e numerico
in ogni caso And non serve ma devi elencarli tutti uno sotto l'latro
Insomma, neanche Biso faceva tanti errori in un colpo solo

 ha scritto nel messaggio 
news:hlh2ic$dmq$1...@tdi.cu.mi.it...

1234 - 5678 - 9000 sono i campi di una tabella da associare
a MioCampo1 - MioCampo2 - MioCampo3 della maschera
NON SONO VALORI. 

"Pippo" <asda> ha scritto nel messaggio 
news:4b7c1247$0$1136$4faf...@reader1.news.tin.it...

wow complimenti per la scelta dei nomi dei campi.
Ti giuro che non ci sarei mai arrivato, ma questo non depone a favore delle 
tue scelte.
Ad ogni modo se tu vuoi associare i controlli ai campi, ha sbagliato 
tecnica.
Tra l'altro non hai spiegato nenache come punti alla tabella o 1234 sono 
valori universali?
Cacchio, se vuoi un aiuto, mettici anche in condizione di aiutarti o credi 
che coosciamo la struttura della tua tabella talmente bene che puoi usare 
dei nomi a caso e fortemente fuorvianti?

 ha scritto nel messaggio 
news:hlh758$idv$1...@tdi.cu.mi.it...

Guarda lascia perdere, ti prego di non aiutarmi !!!
lascia questo compito a chi � pi� paziente e comprensivo
Grazie lo stesso 

 Grazie lo stesso
Con affetto.
-- 
Ciao
Geppo 

 i campi sono di tipo numerico
appunto
Cmq. cerca di non essere insofferente (cfr. risposta di Geppo)
--
ac

"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:9IVen.26124$Ua....@twister2.libero.it...

Non posso far altro che unirmi a MA e Geppo...
Pippo hai un po' pisciato fuori dal vasetto...se vuoi essere aiutato devi 
anzitutto mettere gli altri in condizioni di aiutarti non credi??
Quello che ti hanno fatto notare inoltre � un uso sbagliato della 
nomenclatura che oggi magari non ti sembrer� molto rilevante ma con il tempo 
capirai che molto spesso ti serve per capire tutto il tuo codice!
Pensa se chiamassi il cesso...lavandino...se entro per la prima volta in 
casa tua mi sa che avresti brutte sorprese!
Detto questo se stai ancora aspettando che qualcuno risponda alla tua 
domanda allora vedi di riformulare meglio il quesito altrimenti la tua 
attesa sar� lunga....
Ciao
-- 
Roberto da Parma
Newsgroup: it.comp.appl.access
Titolo: [OT] Ma voi andate già in vacanza?

E' solo giovedi'.
Yahoo dice che ci sono 12 milioni di italiani in vacanza. Ingorghi e
incidenti ovunque.
Voi vi state gia' scambiando gli auguri.
Ma allora sono solo io che continuo a lavorare e non mi ricordo neanche che
"sarą" festa????
Siete pregati di dirmi una parola di conforto in tal senso.
Grazie
;-) Luciana
P.S. Cosa farete durante le vacanze?


Ehm......
effettivamente non sarò sul luogo di lavoro, ma Access ha l'abitudine di
seguirmi a casa.....
Cmq almeno 2/3 giorni li faccio
Auguroni e sù....
Alessio

P.S. Cosa farete durante le vacanze?
Ci penso domani mattina, guardo il meteo e, se non fa troppo schifo,
carico la moto e vado dove piove di meno :)

P.S. Cosa farete durante le vacanze?
Causa mancato reperimento sistemazione per la notte (ho fatto almeno 50
telefonate fra agritursmi e alberghi) me ne resto a casetta....tanto dicono
che piove!:-)
Buona Pasqua.
Luciano

 "sarà" festa????
Festa?
uhm... festa... festa...
Eppure mi sembra di averla gia' sentita questa parola...
Sib

 Siete pregati di dirmi una parola di conforto in tal senso.
Guarda la data e l'ora ...... e sono sul lavoro , consolati .
Auguroni
Marce

La mia Pasqua:
studio,studio,studio,studio,studio,studio,studio,studio,studio,studio,
studio,studio,
- Messa -
studio,studio,studio,studio,studio,studio,studio,studio,studio,studio,
studio,studio,studio,
La mia Pasquetta
studio,studio,studio,studio,studio,studio,studio,studio,studio,studio,
studio,studio,
- pranzo pagato dalla suocera! -
studio,studio,studio,studio,studio,studio,studio,studio,studio,studio,
studio,studio, ecc...
Martedì ferie ma solo per: studiare!
Si capisce che studio?
BUONA PASQUA A TUTTI!
LC (Gigi)
--------------------------------------
Link al Sito del Linux User Group di Gorizia
http://www.linux.it/mailman/listinfo/golug
Sito del Linux User Group di Trieste
http://trieste.linux.it
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
--------------------------------------
-- 
Posted from 
alquanto.nextra.it
 [193.43.2.90] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 P.S. Cosa farete durante le vacanze?
Faccio pausa (chiamarle ferie mi sembra esagerato) a partire da sabato
pomeriggio e, visto che il tempo dovrebbe essere dalla ns. parte, lunedì
andrò al mitico merendino che stiamo preparando con gli amici.
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:FMjB6.419$s93....@news.infostrada.it...


P.S. Cosa farete durante le vacanze?
Più precisamente, cosa sono le vacanze?  :-)
Ciao, warp

 P.S. Cosa farete durante le vacanze?
Un paio di giorni in Umbria.
Ciao, Roberto

 Nello loro intenzioni dovrebbero essere disponibili anche alle 3 di notte
:-/
La mamma mi diceva sempre che avrei dovuto fare un altro mestiere!
Mi piacerebbe tanto fare il vacanziere di professione ;-D
Vabbè, andiamo avanti con il lavoro và :-(
ciao ciao
--
Claudio Tregambe

anch'io come te non sono partito per le vacanze meritate, non se ti
interessa ma come si suol dire mal comune mezzo gaudio
auguroni
Newsgroup: it.comp.appl.access
Titolo: GotoRecord su sottomaschera

In una maschera č contenuta una sottomaschera che visualizza dati legati
alla maschera dall'ID principale.
La sottomaschera č impostata a maschere continue.
Premendo un pulsante presente in ogni record della sottomaschera, sono
eseguiti controlli vari, al termine dei quali vorrei che il cursore venisse
posizionato sull'ultimo dei record visualizzati nella sottomaschera.
Ho provato ad usare la sintassi:
DoCmd.GotoRecord,,acLast
e non funge.
Poi ho provato con
DoCmd.GoToRecord acForm, "nomeSottomaschera",acLast
ma mi dice che l'oggetto "nomeSottomaschera" non č aperto.
Voi come mi suggerite di muovermi?
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------

 '--------------------------------------------------------
Se il pulsante di controllo è contenuto nella sottomaschera, generando a
fronte dell'evento "Su clic" del pulsante:
DoCmd.GoToRecord , , acLast
ti deve funzionare: il fuoco si sposterà sul pulsante di comando dell'ultimo
record visibile nella sottomaschera (probabilmente non te ne sei accorto, in
quanto non è poi così evidente quando il fuoco è spostato su un pulsante di
controllo.
Se ti interessa che il fuoco si sposti su un controllo ben preciso, prova
con:
Me!NomeControllo.SetFocus
DoCmd.GoToRecord , , acLast
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie per la risposta. purtroppo non funge. lo avevo constatato anche io
(vd post). Invece sai aiutarmi per il post successivo, più impegnativo
(confrontare 2 recordset)?
Ciao

 Ciao
Se non sbaglio, per questo problema stai dialogando con Antonio, quindi...


 Se non sbaglio, per questo problema stai dialogando con Antonio, quindi...
Grazie comunque, ma se ti capita di avere una dritta da darmi è tutto ben
accetto! Cura ut valeas
Newsgroup: it.comp.appl.access
Titolo: Funzione Trim in Windows2000

A2000 e S.O. Windows98
Sub CompattaBE()
Dim strSQL As String
Dim Rs As dao.Recordset
strSQL = "SELECT Trim([Database]) AS DB " & _
            "FROM MSysObjects " & _
            "GROUP BY Trim([Database]), MSysObjects.Type " & _
            "HAVING (((MSysObjects.Type)=6));"
 Set Rs = CurrentDb.OpenRecordset(strSQL)
 If Rs.EOF And Rs.BOF Then GoTo esci
ecc.
tutto funziona a meraviglia
A2000 e S.O. Windows2000 appare ilseguente messaggio:
"Errore 3075 - Funzione non disponibile nell'espressioni.
Nell'espressione della query 'Trim ([Database])'".
Per ora ho risolto eliminando la funzione TRIM, ma mi piacerebbe capirci
qualcosa.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:1d98ede8a90620c2f16...@mygate.mailgate.org...

Devi aggiungere ai riferimenti del tuo database la libreria Microsoft DAO e
verificare che non vengono segnalati riferimenti mancanti.
Comunque devi avere più pazienza; non è logico che tu riposti il tuo quesito
solo dopo due ore: a volte è necessario attendere anche qualche giorno per
avere una risposta.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 avere una risposta.
Ok! afferrato.
Il riferimento alla libreria Dao c'è.
Claudio

Newsgroup: it.comp.appl.access
Titolo: Stampa file e scelta stampante

Salve a tutti, una domanda: ho la necessità da programma ACCESS di 
lanciare un file .txt in stampa, e visualizzare la finestra di windows 
per la scelta della stampante voluta!
Grazie 1000!

Alberto ha scritto:

cerca "stampa file esterno" postato da Nicola

Alberto ha scritto:

Teoricamente la funzione API ShellExecute ti da la possibilità di
poter usare
una parola riservata "PRINTTO" con la quale puoi inviare il file
direttamente alla stampante.
Il più è vedere se l'applicativo, inteso come File associato lo
prevede...!
Lo vedi anche se provi ad eseguire il DRAG_DROP del file sulla
stampante.
Quì ti spiega come verificarlo:
http://tinyurl.com/3gnlx
 Pid = ShellExecute(lhwnd, "printto", "c:\File.txt", lsPrinter, 0&, 0)
dove lsPrinter contiene Printer DeviceName, DriverName & Port della
stampante di destinazione.
Ovviamente si può usare anche ShellExecuteEx:
Private Sub PrintFile( _
    ByVal FileToPrint As String, _
    ByVal PrinterName As String, _
    ByVal DriverName As String, _
    ByVal PortName As String)
    Dim Ret As Long
    Dim lpExecInfo As SHELLEXECUTEINFO
    Dim Verb As String
    Verb = IIf(PrinterName = vbNullString, "print", "printto")
    lpExecInfo.cbSize = Len(lpExecInfo)
    lpExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS
    lpExecInfo.hwnd = Me.hwnd
    lpExecInfo.lpVerb = Verb
    lpExecInfo.lpFile = FileToPrint
    lpExecInfo.lpParameters = _
      Chr(34) & PrinterName & Chr(34) & " " & _
      Chr(34) & DriverName & Chr(34) & " " & _
      Chr(34) & PortName & Chr(34)
    lpExecInfo.lpDirectory = vbNullString
    lpExecInfo.nShow = SW_SHOWMINNOACTIVE
    lpExecInfo.hInstApp = 0&
    '  Optional fields
    lpExecInfo.lpIDList = 0&
    lpExecInfo.lpClass = vbNullString
    lpExecInfo.hkeyClass = 0&
    lpExecInfo.dwHotKey = 0&
    lpExecInfo.hIcon = 0&
    lpExecInfo.hProcess = 0&
    Ret = ShellExecuteEx(lpExecInfo)
    If Ret = 0 Then
        MsgBox "Problems with printing"
        Exit Sub
    End If
    Ret = WaitForSingleObject(lpExecInfo.hProcess, 100)
    Do
        Ret = WaitForSingleObject(lpExecInfo.hProcess, 0)
    Loop Until Ret <> WAIT_TIMEOUT
    MsgBox "Printing has finished"
End Sub
Per la scelta della stampante ti basta una ComboBox e caricarla
 Dim x As Printer
 For Each x In Printers
       me!cbo.AddItem x.DeviceName
 Next 
quindi passi alla funzione i dati...!
Ciao
@Alex

Newsgroup: it.comp.appl.access
Titolo: ACCESS 2000 versus 2007

Ciao a tutti,
ho creato nolto tempo fa un programma tipo agenda dove ad un calendario 
(giorno per giorno) era collegato un campo dove scrivevo. Purtroppo adesso 
non funziona più su questo access 2007. Avete idee sul perchè???
Grazie 


non funzina cosa vuol dire, posta qualcosa in più, così non si può
capire cosa non va più
ciao

 Grazie
non funzina cosa vuol dire, posta qualcosa in piů, cosě non si puň
capire cosa non va piů
ciao
Newsgroup: it.comp.appl.access
Titolo: scusatemi..info

Salve a tutti...mi sono avvicinato da poco a access....vorrei sapere se
qualcuno può consigliarmi qualche libro per poter capire meglio come
sfruttarlo al meglio....Grazie

Io ho una marea di libri ma l'unico sistema è provare con piccoli programmi
e ma mano evolverli. Sempre che si abbiano delle piccole basi di
programmazione ad oggetti ecc....

 sfruttarlo al meglio....Grazie
su 
www.sitocomune.com
 trovi delle recenisioni di libri interessanti.
Sib

Newsgroup: it.comp.appl.access
Titolo: Filtrare sottomaschera

Il mio problema e relativo a filtrare una sottomaschera. 
Una ditta ha agganciato per ogni mese vari nominativi.
Nella maschera, suddivisa in pagine, principale io scelgo una ditta e vedo
tutti i dati che  mi servono. In una delle pagine ho agganciato una
sottomaschera dove vedo i passaggi dei vari nominativi per mese di quella
ditta. Il problema che ho e' che quando, una volta scelta la ditta, nella
sottomaschera scelgo/filtro il mese questo non funziona.
Se il filtro che ho predisposto lo uso solo nella sottomaschera questo
funziona.
Ho provato modificarlo con il richiamo anche della sottomaschera ma niente.
Il filtro che ho messo nella casella combinata della sottomaschera e'
quello sottostante.
Private Sub combo_sel_mese_Change()
 
 DoCmd.ApplyFilter "", "[MESE]=[Forms]![M_PROD_CONTR]![combo_sel_mese]"
End Sub
Dove č che sbaglio?
Grazie    
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 End Sub
Nn applicare un filtro, ma poni come source della SubForm una query a cui
applicherai il criterio "Like [Forms]![M_PROD_CONTR]![combo_sel_mese]" nel
campo MESE...
Basterà poi :
Private Sub combo_sel_mese_Change()
Tua_SubForm.Requery
End Sub
Fammi sapere
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.


 Grazie
Prego
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 Grazie    
Innanzitutto grazie per avermi risposto ad ambedue, ho provato tutti due i
metodi che mi avete insegnato ma non funzionano specifico i nomi dei campi
M_acquirenti = maschera principale 
M_PROD_CONTR = Sottomaschera
combo_sel_mese = Casella combinata all'interno della sottomaschera che
funge da filtro
Nel caso di roberto quando lo faccio mi richiede MESE due volte e poi
scompare tutti record della ditta
Grazie ancora


 -- 
Gestisci l'evento "dopo aggiornamento" della casella combinata inserendoci il codice che filtra la sottomaschera:
'---
me![m_prod_contr].form.filter = "mese = " & me![combo_sel_mese]
me![m_prod_contr].form.filteron = true
'---
Ciao.
-- 
Sergio MAZZA

 Prego
Grazie a tutti ho risolto prendendo e provando i vari consigli di tutti
Grazie ancora

Newsgroup: it.comp.appl.access
Titolo: Collegare campo a query

Saluti a tutti.
Per cortesia un aiuto.
Ho una maschera chiamata Anagrafica con una campo chiamato Tot_Num_Prest e 
una Qry chiamata Qry_Cont_Prest dove viene visualizzato il totale del numero 
delle prestazioni di una singola persona. Fin qui tutto bene. Il problema 
sta nel fatto che non riesco a far visualizzare il risultato della Qry nel 
campo predisposto della maschera.
Ho provato con =[QRY_CONT_PREST]![ConteggioDiID] ma mi da errore
Dove sbaglio?
Grazie 1000 e buona giornata
Giorgio


Immagino hai già associato la query alla maschera mediante "origine record",
poi basta che associ il campo interessato all'oggetto casella di testo che
deve contenere i dati impostanto come origine controllo in nome del campo
"ConteggioDiID".
E' chiaro?
Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio 
news:4700bb11$0$37195$4faf...@reader3.news.tin.it...

Se la query è "solo" per contare i record (anche filtrati) puoi utilizzare 
la funzione DCount (vedi help) senza l'indicazione della query.
Es.
=DCont("*";"nomeTabella";"id=" & [idAnagrafica])
Altrimenti se vuoi leggere il valore di un campo presente nella query puoi 
utilizzare la DLookup (ari-vedi help).
Es.
=DLookup("ConteggioDiID";"QRY_CONT_PREST")
Ciao.
-- 
Sergio MAZZA 

 seconda tabella chiamata "PRESTAZIONI"
Il campo "ID" della tabella ANAGRAFICA è in relazione con il campo IDCOGNOME 
della tabella PRESTAZIONI (Numerico)
In pratica in tabella Anagrafica ho una lista di nomi e la tabella 
prestazioni deve darmi
l'elenco delle lezioni svolte da ogni nominativo
Ho creato una maschera che ha come origine la tabella Anagrafica e 
nell'interno della stessa una sottomaschera
collegata alla tabella Prestazioni, dove ad ogni scorrimento dei record mi 
vengono visualizzati
nella sottomaschera l'elenco delle lezioni svolte da ogni singolo 
nominativo.
Ho una query chiamata "QRY_ANAGRAFICA" dove mi conteggia le lezioni di ogni 
singolo
nominativo. I campi della query si chiamano ConteggioDiID e Cognome. Ad ogni 
nome
mi viene visualizzato le rispettive quantità di lezioni.
Fin qui tutto bene (credo)
Problema:
ho creato un campo chiamato TOTLEZ nella maschera per visualizzare 
aggiornato
il totale delle lezioni di ogni singolo nominativo ma vi viene visualizzato 
"ERRORE"
oppure sempre lo stesso numero (il numero è quello che trova per primo nella 
query e non
lo cambia anche se scorro i record)
il codice usato è come cortesemente postatomi il seguente:
=DLookUp("ConteggioDiID";"QRY_ANAGRAFICA")
=DCount("*";"PRESTAZIONI";"ID=" & [IDANAGRAFICA])
=DLookUp("[ConteggioDiID]";"[QRY_ANAGRAFICA]")
Ci ho battuto la testa per ore ma senza esito.
Grazie 1000
Giorgio A. 

 ha scritto nel messaggio 
news:47027a29$0$37200$4faf...@reader3.news.tin.it...

Il controllo (non campo, che è parte della tabella/query) non associato, 
deve stare nella maschera principale e deve avere in origine controllo 
l'espressione:
=DCount("*";"PRESTAZIONI";"IDCOGNOME=" & [ID])
Ciao.
-- 
Sergio MAZZA 


Grazie e con riconoscenza
Funziona a meraviglia
Saluti
Giorgio A.
Newsgroup: it.comp.appl.access
Titolo: Problema con gli eventi...

Salve a tutti,
ho il seguente problema:
FORM1 con Casella Combinata
evento Dopo Aggionamento associato
alla Casella Combinata
FORM2 popup
dove via codice ricavo un valore
che poi passo via codice
alla Casella Combinata del FORM1
Il mio problema è che non riesco a far
eseguire il codice associato all'evento Dopo Agg. della Cas.Comb.
quando modifico il valore tramite la FORM2.
Mentre se modifico il valore rimanendo dal FORM1
tutto funzia perfettamente. Come posso risolvere
la cosa?
grazie
sdamy

 ha scritto nel messaggio
news:9u55ha$khd$1...@pegasus.tiscalinet.it...

Puoi inserire in un modulo le istruzioni e le richiami dalla casella
combinata o dalla form...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -

 la cosa?
Prendi il tuo bel codice scritto nell'evento dopo aggiornamento e lo ricopi
nella form2 dopo il punto in cui scrivi il valore nella combo. Chiaramente i
riferimenti a controlli della form1 devono essere scritti non piů come
me.controllo, ma come
forms("form1").controllo.
Dovrebbe comunque funzionare anche la chiamata al codice del dopo
aggiornamento in questo modo
forms("form1").combo.after_update
e non ci sono problemi per i riferimenti...
Antonio

 ha scritto nel messaggio
news:SQpN7.201092$sq5.9...@news.infostrada.it...

Grazie dei consigli.... speriamo
vada bene la II ipotesi..
ciao ciao
sdamy

 ha scritto nel messaggio
news:9u58f4$pkg$1...@canarie.caspur.it...

non ho mai usato i moduli...
e questa potrebbe essere una buona
occasione x usarli
grazie
ciao ciao
sdamy

Newsgroup: it.comp.appl.access
Titolo: Istruzione Forms! con nomi varibili

Allora, nell'istruzione sotto riportata, il nome della form è variabile,
come fare per rendere variabile anche il nome campo txt_1 ???
Forms(nome_msk)!txt_1 = rst.Fields("codice_oper")
grazie a tutti.
Ronny.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...

Mi pare forms(nomeform).controls("txt_" & i)  o qualcosa di molto simile

> Mi pare forms(nomeform).controls("txt_" & i) o qualcosa di molto simile
... Mittico! Grazie 1000.

Newsgroup: it.comp.appl.access
Titolo: Maschere\su annulla OpenForm...

Ciao a tutti.
Non riesco a capire una cosa.
Ho una maschera associata ad una query, la quale prima di aprirsi mi chiede
quale dato restituire.
Se pero' io non voglio piu' fare quella ricerca e clicco nella richiesta
"Annulla", mi appare  Erroer di runtime "2501"..
...eppure il pulsante l'ho fatto con il wizard e contiene tutto il codice
per la gestione errore.
Io mi ricordavo che proprio la gestione degli errori evitasse tutto questo.
Cosa puo' essere d'altro ?
Grazie a chi potra' darmi uno spunto.
Ed.

 Ed.
Gestire un errore significa dargli un senso e operare secondo il senso
dato... il wizard dall'alto della sua onnipotenza crede che tu voglia
sapere di che errore si tratta quando avviene, quindi nella riga di
riferimento ti ha scritto il codice MsgBox err.Description (ovvero apri
una popoup in cui mi descrivi l'errore avvenuto)... 
-- 
Chi la dura la vince ;-)
Voglia di lavorar Saltame addosso, lavora babbo mio che io non posso.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Bene, ma togliendo il riferimento al msgbox , rimane comunque il messaggio.
E' un errore di Vba ..dice...

Newsgroup: it.comp.appl.access
Titolo: Sottomaschere Bloccate 2

Pochi giorni fa avevo posto la questione del blocco improvviso delle 
sottomaschere
che a un certo punto non sono più aggiornabili.ù
Avevo precisato che la stranezza sta nel fatto che tutte le sottomaschere
contenute in più schede si bloccano tutte contemporaneamente.
Aggiungo che mi è parso di capire che succede quando modifico alcune righe 
di codice visual basic
stasera per esempio è successo così.
Tra l'altro anche se aggiungo nuovo schede e cerco di creare nuove 
sottomaschere il problema rimane lo stesso
e la nuova relazione è bloccata.
C'è rimedio??
Ringrazio
Singer 

 ha scritto nel messaggio 
news:48fbad89$0$40316$4faf...@reader5.news.tin.it...

Ciao Singer,
se ad esempio nel codice da qualche parte imposti la proprietà 
me.allowEdits della maschera principale a False, allora anche tutte le 
sottomaschere diventano non editabili..
Se invece è solo la modifica di codice indipendentemente dalla  riga, 
potrebbe essere un problema di corruzione del DB, a volte fare un 
decompile può essere d'aiuto.
Fai un backup prima di eseguire il decompile
Crea un collegamento sul desktop con questa istruzione
"PercorsoDiAccess.exe" "PercorsoTuoDB" /decompile
Se neanche questo funziona prova a reimportare tutto in un nuovo db.
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.live.spaces.com
---------------------------------------- 

 ha scritto nel messaggio 
news:48fc2d34$0$14494$5fc...@news.tiscali.it...

Ho provato tutto, ma non funziona.
Sono veramente disperato
anche perchè sto continuando a partire da copie di backup
ed arrivato ad un certo punto, dopo aver modificato un po di codiceù
tutto si blocca 

 ha scritto nel messaggio 
news:48fd0066$0$1089$4faf...@reader1.news.tin.it...

Il problema era propria nella proprietà AllowEdits
In effetti questo parametro aveva sfasato tutte le proprietà di modifica 
delle sottomaschera
e anche se facevo delle modifiche manuali del parametro stesso, ritornava 
tutto come prima.
Ho imposta la proprietà a True e ho modificato tutti i "consenti modifiche" 
delle maschere
ora funziona
che sollievo 

 che sollievo
Ciao singer,
tutto è bene quel che finisce bene! :-)

Newsgroup: it.comp.appl.access
Titolo: Database Rovinato...

Da un mio cliente si è verificato un errore su di un file access
(credo qcosa come "Incompatibilità tra tipi"). Non so cosa ha fatto se
spento, riavviato, o cosa fatto sta che ora all'apertura del database
ho l'errore <<Formato di database "pippo.mdb" non riconosciuto.>>.
Ho googolato un bel pò ma tutti dicono che dipende dalla versione di
access (db fatto col 2000 e aperto col 97 in es.) ma non è quello
poichè il file è fatto col 2000 e nè col 2000, nè con XP nè con
2003 si riesce ad aprirlo...
Non posso fare compatta e ripristina perchè ho lo stesso errore...
avete idee?
Grazie,
Alessandro


          prova a lanciare Access senza aprire alcun file.
Strumenti
Compatta e ripristina
Lui ti oresenta la GUI per la ricerca del file e tu punti al tuo db
MAssimiliano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 avete idee?
Hai provato a creare un nuovo database (vuoto) e ad importare in esso
tutti gli oggetti (o, almeno le tabelle) del DB che non ti si apre più
?

Lui ti oresenta la GUI per la ricerca del file e tu punti al tuo db
Fatto ma quando gli dico quale file aprire e compattare mi da lo stesso
errore...

tutti gli oggetti (o, almeno le tabelle) del DB che non ti si apre più?
Fatto ma quando gli dico da quale file importare ho lo stesso errore...
Ale

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

salve gente
sapete mica se ci sono dei componenti grafici (tipo bottoni, menù, caselle,
icone etc.. ) free disponibili?
per esempio dovendo fare un campo di valori numerici e mettendoci in parte i
classici pulsanti + e - per l'incremento e il decremento veloce da mouse,
anzichè usare i due quadratini + e - mi piacerebbe fare qualcosa di
esteticamente più carino (tipo i 2 pulsantini triangolari messi assieme in
modo da formare un quadrato ..)
avete dei link?
grazie mille, e buona scorpacciata a tutti
galbusera

"il mago galbusera" <galb...@katamail.com.NOWAR> ha scritto nel messaggio
news:aucr9b$srt$1...@grillo.cs.interbusiness.it...

Usa delle ICONE in controlli Immagine, sono gratis....!
@Alex.

Newsgroup: it.comp.appl.access
Titolo: OT: quoting

Pregherei tutti (compreso il sottoscritto) di fare maggiore attenzione
quando si quota un messaggio per rispondere ad esso.
Grazie.
-- 
Gabriele Bertolucci
PBsoft

 quando si quota un messaggio per rispondere ad esso.
ROTFL!
ASTC...
Antonio
Newsgroup: it.comp.appl.access
Titolo: query non consente aggiunte/modifiche

Talvolta quando costruisco una query da due o più tabelle (max 3) capita che 
non mi consente di aggiungere record. Questo potrei anche capirlo visto che 
i record restituiti dalla query sono parti di record delle rispettive 
tabelle di origine. Ma perché non mi consente di modificare al volo un 
errore di battuta.
Ad esempio la query restituisce un certo numero di record e supponiamo che 
nel campo nome di un record rilevo un errore di digitazione (Giovanmi, 
Marrco ecc.) viene spontaneo posizionarvi il cursore e correggere. Invece 
no, me lo impedisce e il pulsante (aggiungi nuovo) in fondo alla query   è 
disabilitato.
Credo sia un problema di come è costruita la query tenendo conto delle 
chiavi primarie e secondarie: c'è una regola o un criterio da seguire 
affinché si possano modificare/aggiungere i dati?
Grazie 1000
NSantini 

 ha scritto nel messaggio
news:fbjviv$a79$1...@registered.motzarella.org...

Ovviamente non hai Raggruppamenti nella Query.
Sei certo di avere effettuato i JOIN con Campi Indicizzati come PK lato
1...?
O meglio le Tabelle hanno campi PK(PrimaryKey) lato 1 ...che poi usi al fine
di ottenere i JOIN...?
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


Qualsiasi RDBMS per le sue viste (query in access) non consente di 
aggiornare se il risultato della query non consente di identificare 
precisamente un record univoco (quindi group by escluse) o in assenza di 
campi definiti obbligatori (not null)
-- 
ac
y-1=x

 ha scritto nel messaggio
news:C8lDi.6106$Th1....@tornado.fastwebnet.it...

Tutto scaturisce da 3 tabelle
- tabella esposti che contiene i nominativi degli operatori esposti a Rx
- tabella movimenti che contiene i movimenti di ciascun esposto (unità
operativa, presidio, sede e periodo lavorativo dal al)
- tabella visite dove vengono annotate le visite mediche periodiche e la 
data
di ciascun esame a cui è sottoposto il dipendente.
tbEsposti è la tabella primaria con PK [id Dipendente] e collegata alla 
altre tabelle che contengono ciascuna un FK [esposto] in relazione 1 parte 
tbEsposti e molti con ciascuna delle altre due.
SELECT tbEsposti.[id dipendente], tbEsposti.cognome, tbEsposti.nome, 
tbEsposti.sesso, tbEsposti.natoil, tbEsposti.qualifica, tbMovimenti.sede, 
tbMovimenti.presidio, tbMovimenti.unità, tbMovimenti.al, tbVisite.Pvisita, 
tbVisite.Pemocromo, tbVisite.Pcoagu, tbVisite.Plab, tbVisite.Purine, 
tbVisite.Pmarker, tbVisite.Pdermatologica, tbVisite.Pocculto, tbVisite.Ppsa, 
tbVisite.Ppap, tbVisite.Pseno
FROM (tbEsposti INNER JOIN tbMovimenti ON tbEsposti.[id dipendente] = 
tbMovimenti.esposto) INNER JOIN tbVisite ON tbEsposti.[id dipendente] = 
tbVisite.esposto
WHERE (((tbMovimenti.al)>Date()));
tbMovimenti.al > Date() mi dà solo gli esposti ancora in servizio escludendo 
quelli non più presenti.
Ciao, Grazie.
NSantini
Newsgroup: it.comp.appl.access
Titolo: MsgBox con ok ed una icona

Non riesco a creare un msgbox con un pulsante Ok ed una icona
information
Ho creato:
MsgBox(msg)
e cosě va bene poichč ho il  messaggio ed il pulsante ok che mi serve
solo
per chiudere il msgbox.
Solo che se aggiungo
MsgBox(msg, VbInformation)
poichč voglio avere anche una icona (VbInformation)
mi da errore.
ringrazio anticipatamente per suggerimenti in merito.

Ma non dovresti scrivere: dbokonly + vbinformation?

> Ma non dovresti scrivere: dbokonly + vbinformation?
non funziona neanche così, dà:
errore di compilazione, previsto =
dà ancora errore
MsgBox(msg, vbOKOnly +VbInformation)

 MsgBox(msg, vbOKOnly +VbInformation)
se usi le parentesi, viene considerato il valore di ritorno della
fnzione msgbox
es.
if msgbox(msg,vbyesno+vbunformation)= vbyes then
.....
se la vuoi usare solo per visualizzare il messaggi togli le parentesi
MsgBox msg, vbOKOnly +VbInformation
dovrebbe funzionare
Saluti
Paolo


Attenzione a come utilizzi il Msgbox; ci sono due modi:
1) Msgbox "testo messaggio", vbOkOlny+vbInformation,"titolo finestra";
2) if  Msgbox("testo messaggio",vbOkOlny+vbInformation,"titolo
finestra")=vbOk then
        'fai quello che devi fare
    end if
Ciao.

MsgBox:
vb_grazie
vb_funziona
vb_compreso_le_due_modalità_di_utilizzo
vb_ulteriore_question:
si può scegliere il tipo di formattazione del testo da visualizzare
cioè:
1)dimensione del carattere visualizzato
2)tipo di carattere arial, times, ecc..
3)grassetto, fine, ecc..
vb_ciao

 3)grassetto, fine, ecc..
No no no.
Per fare ciň devi crearti una maschera che funzioni da messagebox.
Puoi eventualmente formattare il testo stile i messaggi di windows, usando
il carattere @
msg & "@" & msg1 & "@" [& msg2]
msg e msg1 sono due parti del messaggio, msg2 puň essere opzionale.
msg sarŕ in grassetto.
Antonio

 msg sarà in grassetto.

 > msg sarà in grassetto.
Quest'ultima soluzione è simpatica e, diamo a quel rincoglionito di Luciano
quel che è di Luciano, me la disse lui...
Antonio

 quel che è di Luciano, me la disse lui...
Sei tu, non il solito fake!!! Solo tu potevi saperlo!!!!:-)))
Ed io che per un attimo ho dubitato che tu avessi litigato anche con gli
Accessisti Colombiani e rimediato quindi altri cloni!!!:-)))
Noto con piacere che il matrimonio non ti ha defraudato della tua innata
gentilezza....:-))
Comunque...bentornato frocione!!!:-))
Saluti.
Luciano
(DOC)

 Comunque...bentornato frocione!!!:-))
Stai parlando con me, non col Bettini
Antonio
Newsgroup: it.comp.appl.access
Titolo: [XPOST] Access adp e norto antivirus 2004

ciao a tutti,
c'è un comportamento di Norton antivirus (2004) che mi fa imbestialire.
Utilizzo un progetto access (.adp) in una rete di 6 pc xp collegato a sql 
server 2000 su win server 2003.
Ogni santa volta che chiudo il file adp il sistema resta in stand-by per 
alcuni secondi (una decina) e norton mi avvisa che sta aspettando una 
scansione del file adp e si chiude solo dopo un po'.
Come cacchio faccio a dire a norton di non scansionare il mio file?
grazie in anticipo
Samuele 

 c'č un comportamento di Norton antivirus (2004) che mi fa imbestialire.

Nelle opzioni del Norton ci sono le estensioni (o i file) da non 
considerare. Aggiungilo lě.
-- 
Jonathan Canova
infoCHIOCCIOLAaladinoinformatica.com
www.aladinoinformatica.com
 

 Come cacchio faccio a dire a norton di non scansionare il mio file?
- togli l'euristica
. togli norton :D

Fabrizio YQY wrote:
Ciao, sbaglio o è da un pò che non ti si vede?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

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

Ho un problema ma non di accss:
	Mi riesco a connettere però vorrei mantenre la connessione ad
internet tramite un file.bat solo che non sono in grado di farlo
pingare perchè mi dice sempre time out request!!!
COME FARE???????

 COME FARE???????
'Spč, spiega meglio cosa devi fare...

Newsgroup: it.comp.appl.access
Titolo: Funzione VBA selezione data

Salve a tutti, vorrei creare una funzione in Visual basic che svolga
questo compito:
Partendo da un gruppo x di colonne, dove ogni record contiene o una
data o un campo vuoto, io vorrei che
1) check su ogni record, colonna per colonna vedere se è presente una
data o un campo vuoto
2) creazione una colonna finale che mi restituisca come output o un
campo vuoto, o in caso di presenza di date, quella meno recente,
Posto un esempio cosi da essere piu chiaro
   COL1                 COL2
COL3                                COL Finale
01/01/2009           ------------
01/10/2009                           01/01/2009
---------------           ------------
---------------                            ----------------
10/03/2000         10/03/1999
---------------                            10/03/1999
Spero mi possiate aiutare,
Grazie

 Grazie
ColFinale: iif(nz(Col2)>nz(Col1); Col2; iif(nz(Col1)>0;Col1;'')
Newsgroup: it.comp.appl.access
Titolo: Maschera con sottomaschera

Ciao a tutti,
Quando clicco sul bottone anteprima report, vorrei che nella sottomaschera
"prodotti" si posizioni su nuovo record.
Vi sembrerà una richiesta strana!  ma ho questa necessità. (ho dei campi
nascosti che prendono  valori da altri, se non
fa questa procedura a volte non vengono riversati)
Grazie Pino

 ha scritto nel messaggio
news:41dfbbf2$0$3400$5402...@news.sunrise.ch...

La cosa non è elegante, e non credo sia la soluzione al problema.
Se si tratta di campi calcolati devi effettuare un Recalc, se si tratta
dio aggiornamenti di Recordset di Form devi effettuare un Requery
puntando al Controllo basato su Recordset da aggiornare.
Se esponi meglio il problema magari troviamo il motivo di
questa disfunzione e non generiamo una Pezza.
Saluti.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:crop31$c25$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:41e01a7e$0$3403$5402...@news.sunrise.ch...


Sperando che Ordini sia una Maschera, perchè non ho capito
assolutamente cosa fà quel codice.....!!!(parrebbe nulla oltre il MsgBox)
Attiva il Focus sulla Form Ordini prima di passargli un valore al controllo
Forms!Ordini.SetFocus
Forms!Ordini!Riserva1 = Me!Testo134
Ciao


 ha scritto nel messaggio
news:crp6o7$ee7$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.appl.access
Titolo: catturare stringa a sinistra del cursore in texbox

secondo voi su attivato di una textbox che contiene "ciao mondo" se clicco nella textbox e mi posiziono cliccando con il cursore a destra della "A" di ciao
 
quindi
 
cia|o mondo
 
riesco in qualche modo a salvare in una variabile "cia" e nell'altra "o mondo"
 
grazie a tutti.


Caro il mio "Paolo Rossi"... ma la guida in Linea l'hai consultata...?
SelStart cosa fa...?
 
@Alex


caro il mio @Alex secondo te io che non sapevo dell'esistenza di SelStart in che modo avrei dovuto trovare quella parola? che tipo di ricerca avrebbe avuto esito positivo nella guida e mi avrebbe fatto trovare quella parola magica che ora vado ad approfondire?
 
grazie. :D


forse mi sono spiegato male, io non seleziono nessun pezzo del testo semplicemente clicco dopo la A di ciao ma selstart vale 0
da li vorrei inserire fra "cia" e "o mondo" la frase " pippo"
non ho capito io come si usa selstart oppure non fa al caso mio?
 
io devo poter salvare in qualche modo "cia" e anche "o mondo"
in modo che poi concateno "cia pippo o mondo"
 


per spiegarmi meglio devo poter aggiungere una stringa all'interno della stringa di una testbox senza perdere ne la parte a sinistra ne la parte a destra di dove inserisco il cursore, come funziona in windows.
 


se la tua casella si chiama Testo0
 
nel evento click della casella usi il metodo che ti ha descritto alex 
per ricavare la posizione del cursore
da li è una banalità ricavare la parte prima e la parte dopo del che in 
questo esempio ti memorizzo in due variabili che puoi riusare a piacere
 
Dim prima As String
Dim dopo As String
prima = Left(Me.Testo0.Text, Me.Testo0.SelStart)
dopo = Right(Me.Testo0.Text, Len(Me.Testo0.Text) - Me.Testo0.SelStart)
 
ciao
BFS


ci provo grazie, pensavo non facesse al caso mio perche avevo messo su click msgbox me.textbox0.selstart ma dava sempre zero in qualunque punto cliccavo 
 


Caro il mio "Paolo Rossi"..., lo strumento "Access", come tutti gli strumenti ca conosciuto ed il VISUALIZZATORE OGGETTI con tutte le Funzioni, Metodi, proprietà ed Eventi espone tutto.
Nel tuo caso non dovevi cercare in tutto... è evidente che l'esperienza fa molto, ma devi imparare a conoscere gli STRUMENTI.
 
Per il resto, una volta individuata la Proprietà, la guida indica che non restituisce il SELEZIONATO, ma il Punto di partenza:
 
The SelStart property specifies or determines the starting point of the selected text or the position of the insertion point if no text is selected. Read/write Integer.
 
Nel tuo caso non hai alcun Testo Selezionato ma questo equivale solo a dire che la proprietà SelLen=0, ma lo StartingPoint è sempre valido.
 
Quindi leggendo la proprietà avresti anche in autonomia capito che il punto di attivazione era esattamente quello restituito dalla lettura della Proprietà.
 
Serve anche un po di voglia di leggere tutto...
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: Trigger !! un esempio per favore

Qualcuno mi potrebbe fare un esempio di utilizzo dei Trigger,
e magari un indicazione dove poter prendere altre informazioni.
Ciao beppe
--------------------------------
Inviato via 
http://usenet.libero.it


Che io sappia su Access nun ce stanno, semmai ce sta trigger g7 che me
piaceva tanto tanto da bambino.
Se maggari mi indichi gentilmente il db che usi cossi' magari te posso pure
aiuta'.
Ciao.


e' questo il senso?
trigger:oracleforms=evento:access
--
a.cara

 ha scritto nel messaggio
news:195Z103Z160Z14Y...@usenet.libero.it...

Esempio relativo a 3 tabelle referenziate Co_Qualifiche -> Co_Mastri ->
Co_Conti quando vario (UPDATE) il codice qualifica o il codice mastro
CREATE TRIGGER T_CO_Mastri_UTrig ON [CO_Mastri] FOR UPDATE AS
SET NOCOUNT ON
/* * IMPEDISCE AGGIORNAMENTI SE NON TROVA CHIAVE CORRISPONDENTE IN
"CO_Qualifiche" */
IF UPDATE(Qualifica)
    BEGIN
        IF (SELECT COUNT(*) FROM inserted) !=
           (SELECT COUNT(*) FROM CO_Qualifiche, inserted WHERE
(CO_Qualifiche.ID_Qualifica = inserted.Qualifica))
            BEGIN
                RAISERROR 44446 'Impossibile aggiungere o modificare il
record. Le regole di integrità referenziale richiedono l''immissione di un
record correlato nella tabella ''CO_Qualifiche''.'
                ROLLBACK TRANSACTION
            END
    END
/* * AGGIORNAMENTO A CATENA A "CO_Conti" */
IF UPDATE(Mastro)
    BEGIN
       UPDATE CO_Conti
       SET CO_Conti.Mastro = inserted.Mastro
       FROM CO_Conti, deleted, inserted
       WHERE deleted.Mastro = CO_Conti.Mastro
    END
Ciao Giorgio.

 ha scritto nel messaggio
news:195Z103Z160Z14Y...@usenet.libero.it...

Dimenticavo le informazioni le puoi prendere dal manuale in linea di MSDE
fornito con OfficesXp developer edition
Ciao Giorgio.
Newsgroup: it.comp.appl.access
Titolo: Stampanti e parametri 'incastrati' sui report

Credo sia frequente per tutti la realizzazione di un report su 
postazione programmazione, poi chiudi il programma lo porti su altra 
postazione ed i report 'ricordano' la stampante e parametri usati sulla 
postazione iniziale
La domanda e': come fare per rendere funzionale anche su altre stampanti 
un report creato inizialmente per stampante xyz?
Come rendere un report 'neutro' rispetto alla stampante?

Salve,
 
Robertoa ha scritto:

Dov'è il problema col metodo incorporato di Access per "neutro", cioè 
scegliere e/o salvare il report col stampante predefinita a mano o con 
l'oggetto Printer?
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 

 
 
"..scegliere e/o salvare il report col stampante predefinita a mano.."
 
Intendi dire su postazione 2 (quella dove viene segnalata l'anomalia) 
modificare manualmente/automaticamente tutti i report?
Cioe' una procedura che 'ripassi' tutti i report ed assegno come 
stampante predefinita quella attuale di Widnows?
Si, e' un'operazione possibile
Ma se non fosse necessaria sarebbe pure meglio
Voglio dire che, se i report NON avessero memoria della stampante 
predefinita postazione sulla quale sono stati creati, non sarebbe 
necessario fare la procedura di assegnazione della stampante
Newsgroup: it.comp.appl.access
Titolo: Richiamare la finestra di dialogo per la selezione di un file.

sul sitocomune ho trovato questa bellissima fuzione (vedi sotto) per aprire
la dialog box per selezionare un file, lo copiata pari pari in un modulo e
ho proavato a farla funzionare ma non c'è sato verso....... quando tento di
farla esegure  mi da questo errore "impossibile trovare il progetto o la
libreria" e si posiziona su Chr. Ho provato a togliere la funzione Chr ma mi
da lo stesso errore su String e Left.
mi sapreste indicare come fare a superare questo problema??? devo includere
nel file qualche libreria???? Inoltre richiamando la funzione dopo un
assegnamento di quale tipo deve esser la variabile???
grazie
matty
'Dichiarazioni
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
'Funzione da richamare
Public Function cmdlg_file()
   'Autore: Stefano Bettini
   'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Ogni files (*.*)" & Chr(0) & "*.*" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
   End If
End Function
--

 da lo stesso errore su String e Left.
Avrai dei riferimenti assenti nell'apposita scheda...

 ha scritto nel messaggio
news:7lYo9.9295$RO.1...@twister1.libero.it...

cioe???

 cioe???
Nella finestra del VBE vai nel menu strumenti e scegli Riferimenti. Poi
dall'elenco metti la spunta su 'Microsoft Office xx Common Dialog' dove xx è
la versione di Office installata.
--
Matteo Palmieri
Cybercreations - 
www.cybercreations.it


io non ho questo riferimento, fra quelli disponibili che contengono con
'Microsoft ho:
'Microsoft Office 9.0 Object library
'Microsoft Office server Extensione....
'Microsoft Office web components function ....
'Microsoft Office web components wizards
come faccio???