mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: stesso valore per due matrici

Salve!
se devo assegnare a due matrici lo stesso valore
sono cmq obbligato a ripetere il codice?
cioè:
sVar(1)=frm!valp
sVar(2)=frm!valp
o si può fare diversamente?
 
grazie


La domanda non è chiara...!
Se sono 2 entità differenti... è evidente che per valorizzarle entrambe devi assegnarle entrambe.
 
il senso della tua domanda è decisamente oscuro... puoi chiarirlo...?
 
@Alex

In ogni caso nell'esempio che fai non sono 2 Matrici, ma è solo 1 in 2 Indici differenti.
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: Come creare da vba una 'specifica di esportazione' ?

Vorrei salvare su file di testo, il contenuto di alcune tabelle, quelle di 
base che potrebbero essere caricate dal programma dopo l'installazione
Sto usando la seguente riga da codice:
DoCmd.TransferText acExportDelim, "Specifica_Di_Esportazione_1", 
cmbNomeTabella, nome_file_esterno
L'esportazione funziona
Il problema sta nel fatto che la specifica "Specifica_Di_Esportazione_1" e' 
stata creata a manina esportando la tabella 'cmbNomeTabella' e con altre 
tabelle non funziona
La domanda e':
- c'e' modo di creare, via vba, delle specifiche di esportazione ad esempio 
una per ogni tabella?
Ciao e grazie
RobertoA


Per tutti i minchioni che si sono fatti o si farano la stessa domanda, la 
risposta e':
- non mettere la 'specifica di esportazione', sembra andare lo stesso
In pratica la riga di codice diventa:
DoCmd.TransferText acExportDelim, , cmbNomeTabella, nome_file_esterno

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

A che serve precisamente ?!
Che differenza c'è tra lo "Scaricamento" e la "Chiusura" di una maschera ?
Mi chiedevo:
non è che convenga scaricare le variabili del tipo Set Rst = nothing proprio
nello scaricamento, invece che ad ogni routine ?

 nello scaricamento, invece che ad ogni routine ?
Per farlo avresti dovuto dichiararle global no?
Antonio


L'evento Scaricamento avviene prima che la maschera o il report siano
rimossi dallo schermo al contrario dell'evento Chiusura che avviene dopo che
l'oggetto è stato rimosso dallo schermo.
Insomma sono gli eventi reciproci di Caricamento (avviene dopo che i
controlli vengono visualizzati) e Apertura (avviene prima che i controlli
vengono visualizzati).
[CUT]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: icone

ciao
Sapete dove posso reprerire un po di icone per poterle inserire in
maschere?ne ho già alcune ,stile xp,son belle quando le vedo in
windows ma inserendole in access diventano orribili.Inoltre se hanno
uno sfondo trasparente,una volta inserite in access diventano
bianche.Avete idee?
grazie a tutti


Non puoi usare le .gif per l etrasparenze e access usa male le .ico
Usa jpg e vai tranquillo
Un sito è 
customize.org
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007

 wrote:

ok per le immagini.invece per le icone piu tecniche?nel senso disegni
semplici come quelli già presenti in access

[Cut]
ok per le immagini.invece per le icone piu tecniche?nel senso disegni
semplici come quelli già presenti in access
Se vuoi delle Icone 16x16 queste sul sito di Gilberto sono ottime
http://www.vbcorner.net/download_icons.htm
Se vuoi dei formati più grossi, che però richiedono l'elaborazione, perchè
come ti ha suggerito Massimiliamno
le Icone MultiImmagine possono dare problemi.... devono essere spacchettate
e presa solo l'icona con dimensioni
da usare....
http://pcdesktops.emuunlim.com/icons36-40.shtml
o meglio ancora
http://www.iconaholic.com/downloads.html
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


http://www.access-paradies.de/icon/index.php
È un sito tedesco ma le icone (qualche mille) sono internazionali.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Access Impazzito

Salve a tutti, ho bisogno di un piccolo aiuto e spero di trovare
qualcuno fra di Voi che mi possa aiutare. Da tre giorni a questa parte
non riesco piu a collegare nessuna tabella con fogli da Excel. Ora mi
spiego meglio: quando da Access collego una tabella con un foglio
Excel,riesco a visualizzare la suddetta tabella ma appena immetto
qualsiasi dato in essa la volta successiva che tento di aprira la
tabella mi viene dato come errore: La tabella non ha il formato
previsto!!!
Tentando di aprire poi il foglio con Excel mi viene dato il messaggio:
Unhandled exception in excel.exe: 0xc0000005: access violation.
Ho disinstallato l'office ed installato di nuovo il tutto ma il problema
persiste, cosa diavolo e' successo?? il tutto mi ha sempre funzionato
bene, escluderei anche un virus dato che il computer in questione non ha
l'accesso ad Internet e che sul lavoro lo uso solo Io.
Grazie per l'aiuto!!
Roby.
 

 ha scritto nel messaggio
news:9261115223834....@powernews.libero.it...

Se usi Office 2000 procurati e installa tutte le patch di aggiornamento.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: help con query di raggruppamento

Oggi mi è successa una cosa strana.
Ho creato le mie tabelline e mi serviva una query per raggruppare alcuni
dati.
Seleziono la tabella, trascino il campo (formato testo) che mi serve (uno
solo), eseguo...
e mi dà errore, come se avessi selezionato tutti i campi (insomma come se
avessi trascinato l'asterisco per capirsi...)
Riguardo bene la query, la rifaccio e niente. Visualizzandola in SQL
effettivamente selezionava tutti i campi con l'asterisco. Tolto quello dalla
struttura in SQL, la query è andata....ma sapete perchè è successo (e
soprattutto come evitare di dover andare ogni volta su SQL....?)
Ho sempre lavorato su quel pc, con Access97 e non ho fatto nessuna
modifica....
Grazie in anticipo.

 ha scritto nel messaggio
news:K6CV9.11795$YG2.3...@twister1.libero.it...

Perchè al posto di trascinare non provi solo con un doppio CLICK sul campo
che vuoi immettere?!?
Ciao
--
Gianni B.

 ha scritto nel messaggio
news:3e26ef9d$1...@news.bluewin.ch...


 ha scritto nel messaggio
news:K6CV9.11795$YG2.3...@twister1.libero.it...

Controlla che inavvertitamente tu non abbia acceso lo "svirgolino" su
Strumenti => Opzioni => Tabelle/query => Mostra tutti i campi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:blCV9.11873$YG2.3...@twister1.libero.it...


Newsgroup: it.comp.appl.access
Titolo: voci nel menù e differenti ver. di access

ciao a tutti
visto che questo pom. sto facendo largo uso di codice che richiama voci del
menù
tipo
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
e visto che sto facendo il db con access 2000
ma il client sarà access 2002
mi domandavo se potevano sorgere problemi di compatibilità
ad es. magari in access 2002 la voce n. 5 del menu "record" non è "aggiorna"
come in access 2000
grazie
Pierpaolo

 ha scritto nel messaggio
news:0CSta.51507$3M4.1...@news1.tin.it...

Penso che la cosa migliore, per non avere sorprese per il futuro, sia quella
di non usare il metodo DoMenuItem, che sin da Access 97 è stato lasciato in
Access solo per problemi di compatibilità con le versioni precedenti.
Invece del metodo DoMenuItem usa il metodo RunCommand, con il quale puoi
fare le stesse cose, senza doverti però preoccupare di come sia strutturata
la barra dei menu.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Rinominare oggetti in db

Avrei bisogno di rinominare i nomi dei campi di struttura tabella e tutti i 
relativi riferimenti nelle querry,maschere,codice,ecc. dello stesso dbase 
vuoto.
Esiste un metodo rapido e sicuro per farlo senza possibilità di errori come 
accadrebbe se lo facessi uno ad uno?
Grazie, Buon Natale a Tutti! 

 come accadrebbe se lo facessi uno ad uno?
No.
Puoi almeno usare un tool come Find&Replace.
Vedi 
www.donkarl.com/it
 FAQ 1.24 Tool per trova e analisi.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: data in access 2007 runtime e non

Generalmente per un progetto uso un report che ha un campo popolato da: 
=[Maschere]![preventivi]![txtdata].[Text], mentre con access 2003 mi 
restituisce la data regolarmente, con il runtime di access 2007 mi 
restituisce una serie di cancelletti.
Ho provato anche con access 2007 (non runtime) ed il problema persiste.
Avete riscontrato il problema descritto?
Come posso fare per risolvere il problema?
Saluti @ndrea 

Risolto, bastava allargare il txt.
Scusate il disturbo.
Saluti @ndrea

Newsgroup: it.comp.appl.access
Titolo: Poter aprire piu' report con la stessa maschera

ciao a tutti
in una maschera, per aprire i report ho piu' pulsanti.
Siccome ogni report (con diversa formattazione) mi apre una maschera
dove posso inserire la data di inizio e fine;
volevo utilizzare la stessa maschera (con data inizio e fine)
per tutti i report.
 
Il codice che utilizzo su clic del pulsante (della maschera con data inizio 
e fine) e':
            If Forms![db_Conferma].FilterOn Then
                Reports!Report_dbCarichi.Filter = Forms![db_Conferma].Filter
                Reports!Report_dbCarichi.FilterOn = True
            Else
                Reports!Report_dbCarichi.FilterOn = False
            End If
 
Ora con la stessa maschera, come posso fare per aprire anche quest'altro 
report?
p.e.
 
            If Forms![db_Conferma].FilterOn Then
                Reports!Report_dbCarichi_Magazzino1.Filter = 
Forms![db_Conferma].Filter
                Reports!Report_dbCarichi_Magazzino1.FilterOn = True
            Else
                Reports!Report_dbCarichi_Magazzino1.FilterOn = False
            End If
 
ho provato cosi, ma non va bene:
 
            If Forms![db_Conferma].FilterOn Then
                Reports!Report_dbCarichi.Filter = Forms![db_Conferma].Filter
                Reports!Report_dbCarichi.FilterOn = True
 
                Reports!Report_dbCarichi_Magazzino1.Filter = 
Forms![db_Conferma].Filter
                Reports!Report_dbCarichi_Magazzino1.FilterOn = True
            Else
                Reports!Report_dbCarichi.FilterOn = False
 
                Reports!Report_dbCarichi_Magazzino1.FilterOn = False
            End If
Grazie 
 
 

 ha scritto nel messaggio 
news:515fdfec$0$1366$4faf...@reader2.news.tin.it...

ho risolto in altro modo
Newsgroup: it.comp.appl.access
Titolo: Per ha OfficeXP

Scusate se posto nuovamente il messaggio ma
mi pare impossibile che nessuno abbia OfficeXP.
Chiedo solo una veloce verifica nell'help di Access2002
-----------------------------------------------
Causa forza maggiore sono passato da Acess2000 a Acess2002.
Sto scrivendo una semplice routine per gestire l'evento 'Su non in elenco'
di una casella combinata.
Come i suoi predecessori A2002 genera automaticamente:
Private Sub <nome casella combinata>_NotInList(NewData As String, Response
As Integer)
End Sub
solo che ora l'help di A2002 non mi dice niente in proposito degli argomenti
'NewData' e 'Response' (ne delle costanti a questi associate come
'acDataErrContinue')
E' una trovata di MS per dar maggior supporto agli utenti dei suoi prodotti
oppure il trucco c'e'??
-----------------------------------------------
Qualcuno mi fa da controprova? Ho dimenticato di installare qualcosa io
opp. e' una dimenticanza di MS?
Grazie
---
leo_duca

 ha scritto nel messaggio
news:ZzV38.5557$Mj4.1...@twister2.libero.it...

Neanche in altre versioni di Access esiste un paragrafo di Help.
L'evento richiede due valori: Il nuovo valore inserito nella combo e la
Risposta.
Puoi scrivere quello che vuoi. Per esempio MioNuovoDato as String e
MiaRisposta as Integer.
Dai un'occhiata alla costante acDataErrContinue o simili.
Ciao, Carlo

 Ciao, Carlo
Grazie :)
---
leo_duca

Newsgroup: it.comp.appl.access
Titolo: Ferrari Rino

Ciao Alex tempo fa in base a quesito sul NG
in merito a salvare delle immagini (.ico o altro )in una dll
e quindi poi sfruttarle per l'utilizzo sulle form
ad oggi non sono riuscito ad assegnare  una icona
predefinita prendendola dalla dll ad una determinata form.
potresti inviarmi un piccolo esempio (file access e relativa dll) sia di 
come strutturare la dll con le relative immagini
e poi assegnandole ad una form magari alla apertura della stessa.
Grazie
Rino

 ha scritto nel messaggio 
news:FTWUd.981659$35.36...@news4.tin.it...

Scusate l'oggetto
messaggio inviato erroneamente !-) 

 wrote in message
news:FTWUd.981659$
35.36...@news4.tin.it

Rino potresti proporre il tuo Post con un Subject adeguato ed
utile anche a future RICERCHE da parte di altri.
Trovi un Demo sul mio sito alla sezione [API]
FAQ 1.27 "Estrae Icone da Dll/Exe e sostituisce l'Icona della Form"
E' completo di tutto e fà già quello che chiedi.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Report e stampante di rete

Qualcuno di voi ha avuto il seguente problema:
sistema Operativo W XP +  office 2003
su una piccola rete locale abbiamo aggiornato PC con i precedenti sistemi.
quando tento di aprire i Report sia in struttura che in anteprima non me lo 
consente.
a meno che non sia istallata una stampante locale e resa come predefinita.
con la stampante di rete come predefinita non da nessun segno.
come è possibile?
non sono riuscito a trovare una soluzione
grazie a tutti 

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

 ha scritto nel messaggio 
news:JAnJf.319$H6....@twister2.libero.it...

il problema è che non mi fa aprire il report neanche in visualizzazione 
struttura.
non da proprio alcun segno di vita.
la presenza dei report li vedo, ma non me li fa aprire in nessun modo. 

 la presenza dei report li vedo, ma non me li fa aprire in nessun modo.
Questo avviene nel caso in cui non sia indicata per il computer una
stampante predefinita: se è così definiscila.



Ok
ho potuto vedere solo oggi il post
anche se in ritardo, grazie Roberto

Newsgroup: it.comp.appl.access
Titolo: Problema TransferText

Salve, non capisco perchč (sarą il caldo!!!) ma se scrivo il seguente codice
: DoCmd.TransferText acExportFixed, "Trasmetti01", "trasmetti01",
"C:\MIADIR\MIOFILE.TXT"
funziona benissimo, mentre invece, se passo una variabile anzichč scrivere
il percorso e il nome del file, mi dice che č impossibile aggiornare il
database o l'oggetto perchč di sola lettura. Chiaramente la variabile
contiene:miavariabile="C:\MIADIR\MIOFILE.TXT", il comando č cosi scritto:
DoCmd.TransferText acExportFixed, "Trasmetti01","trasmetti01", miavariabile
(scritta cosi va in errore). Ancora c'č qualcuno che puņ aiutarmi ho siete
tutti in ferie (beati Voi)???? Access 2000 s. o. W2KPRO
Grazie !!!

 (beati Voi)???? Access 2000 s. o. W2KPRO
Posta il tuo codice esatto. Assumo che non sia
"C:\MIADIR\MIOFILE.TXT"
ma un percorso o nome diverso.
Vedi FAQ  7.16 L'importazione/l'esportazione di file di testo fallisce
sul link qui sotto.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it


Ok, la variabile viene riempita cosi nomeoutput="C:\NEWPGM\OA01" + codice +
".001"
quindi nomeoutput="C:\NEWPGM\OA019999.001"
se nel comando passo la variabile nomeoutput va in errore, altrimenti se
lascrivo cosi "C:\NEWPGM\OA019999.001" no. Pensi di avere la soluzione ???
Grazie cmq per tutti e due i post!


Scusa hai ragione ho letto nel tuo link il problema. Quindi non ho la
possibilitą di mettere come estensione un numero incrementale, a quanto
pare?
Grazie

 quanto pare?
Sì, o diciamo solo con scrivere nel registry in un modo insensato.
Ma anche di solito il numero incrementale si include nel nome
del file e non come estensione.
-- 
cu

Newsgroup: it.comp.appl.access
Titolo: [per Alessio] access e palmari

Riapro un post perchč quello aperto da te non č gestibile con i rientri dei 
paragrafi delle risposte...non so perchč.
per interfacciare eVB con il tuo file access cdb devi usare la libreiria 
ADOCE
ti butto una bozza di codice di esempio:
Set conndb = CreateObject("ADOCE.Connection.3.0")
conndb.ConnectionString = "data source = \programmi\db\miodb.cdb"
conndb.Open
Dim rsCtrl As ADOCE.Recordset
Set rsCtrl = CreateObject("ADOCE.RecordSet.3.0")
rsCtrl.Open "articoli", conndb, adOpenForwardOnly, adLockReadOnly
....
qui usi i normali metodi del recordset  per aggiungere, aggiornare etc
....
rsCtrl.Close
Set rsCtrl = Nothing
conndb.Close
Set conndb = Nothing
poi ti imposti la sincronizzazione access tramite activesinc, specificando 
il cdb e il relativo mdb da tenere sincronizzati.
spero di esserti stato di aiuto
Ciao, AEOM

 ha scritto nel messaggio news:447d951d$0$14777$4faf...@reader4.news.tin.it...

Interessante...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: due problemi importando le FE carburanti in Bpoint

due problemi importando le FE carburanti nel gestionale Bpoint:
 
 
se manca l'unità di misura nelle righe (es. litri) si blocca,se il 
totale iva delle righe è diverso dal totale iva documento (squadra di 1 
o 2 centesimi)  bisogna correggere a mano entrambi i problemi.
 
grazie


Magari sono io che non leggo bene
Ma qual'e' la domanda?
Newsgroup: it.comp.appl.access
Titolo: Esempio di Silvio Savoldi 3.80 non riesco a capire..

Buongiorno e scusate...forse per voi è prassi quotidiana, ma
sto cercando di capire cosa non capisco!! :-)
Sto cercando di mettere in atto l'esempio di Silvio Savoldi
3.80 Usare colori alternati righe di una maschera con visualizzazione a Maschere continue
dove nella prefazione dice:
""è sufficiente assegnare l’espressione
GetRecNum(Forms!) mod 2 <> 0
alle caselle di testo e/o Combobox che compongono il corpo della Riga della maschera tabellare.
In un modulo di codice globale dovrà esser presente la funzione GetRecNum(), che assegna il corretto numero di Riga a ogni Record della Form passata 
come parametro""
Questo è il modulo:
Public Function GetRecNum(ByRef Frm As Form) As Long
     On Error GoTo erh
With Frm.RecordsetClone
         If Not ((.BOF = True) And (.EOF = True)) Then
                .Bookmark = Frm.Bookmark
                GetRecNum = .AbsolutePosition + 1
         End If
   End With
eccetera
End Function
Ho guardato il suo db di esempio, ma non vedo nessuna espressione "GetRecNum(Forms!) mod 2 <> 0" in nessun controllo
( e non ce ne sono nemmeno di nascosti)e nel modulo non riesco a capire come fare riferimento alla mia maschera.
Non so cosa mi sfugge
Grazie a tutti
Cristina

Cristina Bernazzani ha scritto:

Alla funzione GetRecNum va passato un form cioe "Me"
--
ac

Alessandro Cara ha scritto:

fatto
GetRecNum (Forms![Customers]) Mod 2 <> 0 = .AbsolutePosition + 1
ma perchè non funziona?
Sarà perchè sono su sfondo bianco e con controlli trasparenti?
Boh!!!
Mi potrsti spiegare meglio ?
Grazie
Cristina

Cristina Bernazzani ha scritto:

L'esempio non lo conosco.
La istruzione
GetRecNum (Forms![Customers]) Mod 2
torna 0 o 1.
Cosa ci si faccia poi con questo valore non lo so.
Posso immaginare che se torna 0 (righe pari) si assegni un certo colore 
o si associ il valore tornato (0=false) a qualche proprieta' di un 
controllo e vaisvirsa se torna 1 (righe dispari, 1=true)
Ho dato una rapida occhiata a sitocomune. Ti e' chiaro che il tutto va 
gestito insieme alla formattazione condizionale?
Vai in struttura sul form dell'esempio ed apri la formattazione 
condizionale sul controllo "Codice". Li troverai il richiamo alla GetRecNum
--
ac


Hai ragione...mi era sfuggito che fosse basato sul  Format Condiction..
Che sciocca ...adesso è tutto chiaro
Grazie ac
Cristina
Newsgroup: it.comp.appl.access
Titolo: Ferie ????

Il Capo mi ha dato il compito per le vacanze:
Da una base dati access (BASEDATI) nella rete aziendale, previa importazione
di alcune tabelle (TABELLA) ho realizzato una piccola procedurina che
funziona.
Purtroppo il capo si è comprato il portatile .... e si creano problemi di
sincronia dei dati.
Il suggerimento che mi occorre è questo:
Al lancio della procedura, deve andare a verificare se esiste la BASEDATI e
in caso affermativo importare TABELLA, otherwise deve aprire la tabella
BACKUP ed importare TABELLA.
Chi mi aiuta.
Grazie
Claudio

 wrote in message
HQE97.712$_07....@news.infostrada.it...

Sul sito comune cerca l'esempio sul riallegamento delle tabelle allegate
Antonio
Newsgroup: it.comp.appl.access
Titolo: Stampanti

Devo poter assegnare la stampante corretta al report prima di lanciarlo , 
avevo trovato la soluzione attraverso il codice prelevato da questo sito 
sulla scelta stampanti che in pratica settava come predefinita una stampante 
prima di fare openreport , ora con 2003 non funziona più !
In effetti la stampante di default cambia ( interroganto con 
getdefaultprinter()) ma i report vengono stampanti con l'unità predefinita 
all'avvio dell'aplicazione è vano ogni tentativo di settaggio se non 
cambiandolo dal menù di access , come posso imporre una stampante per una 
determinata stampa ?
Grazie
Flavio 

 determinata stampa ?
Io uso questa funzione.
Non so dirti se il codice è migliorabile ma fa il suo lavoro.
In pratica gli dai in pasto il nome del report da aprire e l'eventuale 
filtro da applicare ai dati
La funzione cerca nella tabella tb_printer il nome della stampante 
associata al report (l'assegnazione avviene con una query tramite una 
maschera) e se lo trova cambia la stampante predefinita e apre il 
report, altrimenti dà un avviso e restituisce false
Public Function scegli_stampa(rep As String, cond As String) As Boolean
Dim oldprn As String
Dim newprn As String
scegli_stampa = False
oldprn = Application.Printer.DeviceName
newprn = nz(dlookup("stampante","tb_printer","nomep=" & Chr(34) & rep & 
Chr(34) & ""),"a")
If newprn = "a" Then
	MsgBox "Non hai impostato la stampante per questo report", 	 
vbExclamation, "ATTENZIONE"
	GoTo chiudi
End If
Set Application.Printer = Application.printers(newprn)
DoCmd.OpenReport rep, , , cond
Set Application.Printer = Application.printers(oldprn)
scegli_stampa = True
chiudi:
End Function

Grazie Silver
Il tuo suggerimento è stato prezioso , modificando poche righe
il programma a ripreso a funzionare anche su 2003 !!!
API e Dichiarazioni e il comando è sotto il naso !!!
Set Application.Printer = Application.printers(newprn)
ancora Grazie
"Silver" <cra...@TOGLIMIhotmail.com> ha scritto nel messaggio 
news:ovThj.45971$8j3....@tornado.fastwebnet.it...


Newsgroup: it.comp.appl.access
Titolo: Rotellina Mouse


CUT
in privato (sempre che sia giusto l'indirizzo) ti ho mandato un db completo
con tutto il codice necessario.
Fammi sapere.
Ciao, Carlo

 ha scritto nel
messaggio news:Z6Ora.38202$K35.1...@news2.tin.it...

Newsgroup: it.comp.appl.access
Titolo: Query somma

Ciao
ho una tabella in access cosï¿œ composta, e vorrei per ogni record fare la 
somma in automatico dei voti, da porre poi come somma totale nell'utlimo 
campo di ogni record.
id    nome    cognome   voto1     voto2    voto3    totaleVoti
1     franco  rossi       5         0        1           6
2     lucio   bianchi     6         0        0           6
3     elena   verdi       3         0        4           7
come potrei procedere?
grazie!

 come potrei procedere?
vedi: 
www.donkarl.com/it?FAQ4.11
ciao
Daniele 

 ...
Per totaleVoti basta un campo calcolato nella query:
totaleVoti: Nz(voto1)+Nz(voto2)+Nz(voto3)
Non sono sicuro se poi parla di una somma incrementale.
In questo caso aggiungi un altro campo calcolato:
SumInc: DSum("Nz(voto1)+Nz(voto2)+Nz(voto3)";"Tabella";"id<=" & id)
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: fare riferimento ad Etichetta anzichè ad altro controllo per creare griglia nel report

Access 2003 / 2010
 
Ciao, ho utilizzato il seguente codice per creare in automatico nel corpo 
report una griglia per tutti i controlli di un record, con altezza riferita 
al controllo più alto.
I controlli devono essere trasparenti e senza bordi.
Vorrei fare la stessa cosa per le etichette che si trovano in 
SezioneIntestazione di pagina, ma non so come modificare il codice per far 
riferimento all'etichetta.
Vorrei un aiutino.
Bruno
----------
 
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
 
 'Routine che permette la visualizzazione della griglia in report tabulare
Dim ctl As Control
Dim altezza As Double
Dim daMargine As Double
altezza = 0
'Cerco l'altezza massima
For Each ctl In Me.Corpo.Controls
    If ctl.ControlType = acTextBox Then
        If ctl.Height > altezza Then
            altezza = ctl.Height
        End If
    End If
Next ctl
daMargine = 0
'Disegno i rettangoli attorno ad ogni campo
For Each ctl In Me.Corpo.Controls
    If ctl.ControlType = acTextBox Then
        Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B
        daMargine = daMargine + ctl.Width
    End If
Next ctl
 
End Sub 
 
 

 End Sub
 
Se capisco bene intendi questo nell'evento Print
dell'intestazione pagina:
 
Dim ctl As Control
Dim altezza As Double
Dim daMargine As Double
 
altezza = 0
 
'Cerco l'altezza massima
For Each ctl In Me.Section(acPageHeader).Controls
    If ctl.ControlType = acLabel Then
        If ctl.Height > altezza Then
            altezza = ctl.Height
        End If
    End If
Next ctl
 
daMargine = 0
 
'Disegno i rettangoli attorno ad ogni campo
For Each ctl In Me.Section(acPageHeader).Controls
    If ctl.ControlType = acLabel Then
        Me.Line (daMargine, 0)-(daMargine + ctl.Width, altezza), , B
        daMargine = daMargine + ctl.Width
    End If
Next ctl
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 

 ha scritto nel messaggio 
news:9oksfe...@mid.individual.net...

-----
 
Mille grazie per l'aiuto Karl.
 
Bruno
Newsgroup: it.comp.appl.access
Titolo: Testbox con solo maiuscole..

Ancora io,scusate..Avrei bisogno di creare un Testbox che accetti solo 
lettere maiuscole,o meglio man mano che inserisco le lettere me le 
trasformi in maiuscolo,e non accetti numeri..Conosco la proprietà 
vbUppercase che mi trasforma la stringa,ma vorrei sapere se esiste 
un'altro metodo!!Thanks!
Inviato da 
www.mynewsgate.net

 Inviato da 
www.mynewsgate.net
nel formato del campo ci metti il segno > (per i caratteri usa L)
-- 
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Pablitomf (Maurizio Facciuti)
MMmmm, io direi che non soddisfa la richiesta mi sembra di capire che
preferirebbe gestire la digitazione.
Su evento Key_Press della TextBox chiama la seguente funzione:
Private Sub Testo0_KeyPress(KeyAscii As Integer)
   KeyAscii = CkDgtWord(KeyAscii)
End Sub
'*************** METTERE IL CODICE IN UN MODULO *************************
Public Function CkDgtWord(KeyAscii As Integer) As Integer
'Verifica se il TASTO PREMUTO č una lettera
'Va inserita nell'EVENTO KEY_PRESS
'65-90(Maiuscole) 97-122(Minuscole)
   CkDgtWord = 30
   If (KeyAscii >= 97 And KeyAscii <= 122) then KeyAscii =KeyAscii -32
   If ((KeyAscii >= 65 And KeyAscii <= 90) ) Then CkDgtWord = KeyAscii
   Select Case KeyAscii
      Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn, vbKeyShift
         CkDgtWord = KeyAscii
      Case vbKeyEscape, vbKeySpace, vbKeyDelete, vbKeyNumlock
         CkDgtWord = KeyAscii
   End Select
End Function
'***************                         FINE CODICE
*************************
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Periodo partendo dalla settimana e dall'anno

Inserendo in numero settimana e l'anno c'è il meodo di farsi ritornare il
periodo.
Esempio:
2nda settimana del 2004
risultato:
05/01/2004
11/01/2004
p.

 ha scritto nel messaggio
news:EELld.326918$35.15...@news4.tin.it...

si, utilizzando le funzioni DateAdd e Datepert
es..
-----------------
Dim Anno As Integer
Dim Sett As Integer
Dim Dal As Date
Dim Al As Date
Anno = 2004
Sett = 2
Dal = DateAdd("ww", Sett - 1, "1/1/" & Anno)
Al = Dal + (7 - DatePart("w", Dal, vbMonday))
If Sett > 1 Then
   Dal = Dal - (DatePart("w", Dal, vbMonday)) + 1
End If
Debug.Print Dal, Al
-----------------
Risultato
---------------------------
05/01/2004    11/01/2004
----------------------------
Ciao Giorgio

 news:EELld.326918$35.15...@news4.tin.it...
[CUT]
Aggiungi solo un controllino per l'ultima settimana dell'anno
-------
If Year(Al) > Anno Then
   Al = "31/12/" & Anno
End If
--------
Newsgroup: it.comp.appl.access
Titolo: Lampeggio casella testo

Ciao a tutti, volevo sapere se qualcuno di voi poteva indicarmi come fare
lampaggiare una scritta, pensavo di inserire un qualcosa sull'evento timer
ma non ho capito come poter indicare al programma di lampeggiare con la
frequenza che ho impostato nel timer.
grazie anticipatamente.


Su timer immetti questo
me.nomecasella.forecolor= NOT me.nomecasella.forecolor
me.nomecasella.backcolor= NOT me.nomecasella.backcolor
imposti il testo nero e lo sfondo bianco di partenza e oplaaaa.
Ciao Beppe
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Cosě a braccio:
Intervallo Timer = 500
Su Timer:
If Me.TuoControllo.BackColor = 255 Then
Me.TuoControllo.BackColor = 16777215
Else
Me.TuoControllo.BackColor = 255
End If
Ciao, Carlo


Ho creato un'etichetta e poi ho impostato come intervallo timer 500 e
nell'evento timer ho scritto il seguente codice:
Dim visibile As Boolean
Private Sub Form_Timer()
 Me.Scritta.Visible = visibile
 visibile = Not visibile
End Sub
visibile e' una variabile della maschera che viene impostata a vero o falso
per dare l'effetto lampeggiamento alla scritta.
Scritta e' il nome dell'etichetta.
Fammi sapere se funziona.
Saluti, Antonio.

 ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Ovviamente puoi fare lo stesso sul testo:
If Me.TuoControllo.ForeColor = 0 Then
Me.TuoControllo.ForeColor = 255
Else
Me.TuoControllo.ForeColor = 0
End If
Ciao, Carlo

 ha scritto nel messaggio
news:52Fc9.137885$n04.3...@twister2.libero.it...

Ringrazio tutti per le risposte date, la soluzione migliore mi è parsa
quella di Carlo Costarella, siete dei grandi.

 frequenza che ho impostato nel timer.
Option Compare Database: Option Explicit
Const mc_lBlinkingSpeed = 550
Private m_bBlinking   As Boolean
Private m_lBackColor  As Long
Private m_lForecolor  As Long
Private Sub Comando1_Click()
  m_bBlinking = Not m_bBlinking
  With Me
    If (m_bBlinking = True) Then
      .TimerInterval = mc_lBlinkingSpeed
    Else
      .TimerInterval = 0
      With .Testo1
        .ForeColor = m_lForecolor
        .BackColor = m_lBackColor
      End With
    End If
  End With
End Sub
Private Sub Form_Load()
  With Me
    .TimerInterval = 0
    With .Testo1
      m_lBackColor = .BackColor
      m_lForecolor = .ForeColor
    End With
  End With
End Sub
Private Sub Form_Timer()
  Dim lTemp As Long
  If (m_bBlinking = True) Then
    With Me.Testo1
      lTemp = .BackColor
      .BackColor = .ForeColor
      .ForeColor = lTemp
    End With
  End If
End Sub
Private Sub Form_Unload( _
  ByRef Cancel As Integer)
  Me.TimerInterval = 0
End Sub
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: Protezione DB

Ciao a tutti,
nell'intento di proteggere un archivio realizzato con access , l'ho
convertito in MDE.
Tuttavia così facendo non è possibile entrare in modalità struttura ma
continuano a vedersi le tabelle, le query ecc, proprio quelle che non volevo
si vedessero per eviatre copiature.
C'è qualche soluzione per evitare che si vedano ?
Grazie per l'aiuto
ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Gli MDE servono perchè non ti possano modificare codice, form, ecc...
Se il tuo problema è solo che non vedano tabelle, basta che gli metti la 
proprietà nascoste, ma se parli di sicurezza dei dati allora:
www.sitocomune.com
 sezione general 6.3
http://www.donkarl.com/it/
 sezione 1.18
Ciao Valerio.

 ha
scritto:

Ciao Valerio,
ti ringrazio per le info tutto ok. Ho risolto alla grande il mio problema
grazie a te.
Dopo aver messo la proprietà nascosta, la tabella non è più visibile; il
processo è reversibile ? Come ?
Ti ringrazio
ciao
giuseppe



Non puoi + vederle.
Mai più!!!
...
scherzo. Vai nelle
opzioni e seleziona visualiiza oggetti nascosti e di sistema
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Colore casella di testo "SuFormattazione" corpo di un record

Salute a tutti.
Sto facendo alcune prove per vedere se riesco a impostare il colore di
sfondo di una casella di testo sulla conferma di un valore della query
usata come origine. Il tutto funziona se imposto il colore come
Reports!NomeReports!NomeControllo.[backcolor]= "255" mentre invece se
metto (per esempio) "#009900" (corrisponde secondo la scala
esadecimale al verde) il colore non viene applicato e il codice VBA si
blocca...
Qualcuno cortesemente riesce a darmi una mano?
Grazie anticipatamente.


Ciao,
Ma perchè tratti il Backcolor come una stringa ? Se vedi l'help è un
tipo Long.
Poi se ricordo bene l'esadecimale non si indica con &H ?
Ciao
Alberto


Come vedi Alberto...non è che mi intenda molto!
Diciamo che tratto il backolor così perch' tipicamente uso stringhe ma
evidentemente in questo caso non va bene...
Mi potresti cortesmente indicare come fare per ottenere il risultato
che vorrei ottenere?
Grazie!


Ciao,
prova con &H009900 o con altri numeri, ma senza le virgolette.
Puoi anche usare le costanti VB, es VbGreen, VbRed, VbYellow ed altri.
Vedi l'help.
Ciao
Alberto

 Grazie!
Prego.
@Alex

Prendi la mia risposta a livello di battuta, ovvero, se tutti
leggessero l'help i forum non esisterebbero!
Cmq, scherzi a parte, ho provato a leggere l'help ma non ho trovato
quanto mi serviva per risolvere il mio problema, altrimenti non sarei
qui, non avrei chiesto aiuto, mi sarei arrangiato da solo :-D
Se magari al di la di tutto puoi darmi un suggerimento ti ringrazio
(non ho ancora risolto pienamente l'arcano...).
Salute.


 (non ho ancora risolto pienamente l'arcano...).
cioč? Hai seguito le indicazione di Alberto?
Se non lo hai fatto........ allora ci vuoi fare proprio incavolareeeeee?
:-)
-- 
Ciao
Geppo 

 Geppo
Figurati se vi voglio far incavolare!! E dopo a me chi mi risolve i
problemi??!!!! :-DD
Dicevo, che si, ho provato a seguire i suggerimenti dati, ma il
problema a questo punto non risiede tanto nel fatto che non riesco a
"colorare" le caselle di testo, ma non riesco a colorarle come voglio,
dato che alcuni indicazioni tipo #009900 funzionano altre no...
E pensare che a me basterebbero 4 colori: 3 tinte graduate di verde e
una rossa...
Posso dire che ho trovato delle combinaizioni di colori abbastanza
soddisfacenti, ma rimane il fatto che non sono riuscito a fare
esattamente quello che mi serve.
Chiudo dicendo che la cosa potrebbe terminare qui, visto che siamo a
livello di didattica ;-) , ma non prima di avervi ringraziato tutti
per avermi risposto.

 per avermi risposto.
-- 
Ciao
Geppo
Newsgroup: it.comp.appl.access
Titolo: Casella combinata

Come posso fare in modo che nella mia casella combinata compaiano, in uno
dei campi numerici, 5 cifre dopo la virgola e non due?
Grassie...

 dei campi numerici, 5 cifre dopo la virgola e non due?
Vedi la funzione format
Antonio

...dunque la casella combinata prende i dati da una query, nella query già è
impostato nel campo in questione un valore standard 1.234,00 con 5 cifre
decimali. Tutti i campi dei tutte le tabelle e di tutte le query son
impostati così, ma quando apro l'elenco della casella combinata li il valore
e con solo due cifre...


Devi controllare anche il formato con cui i dati vengono visualizzati
all'interno della combo. Vai a vedere tra le sue proprietà ed imposta il
formato nello stesso modo che hai utilizzato nella definizione dei campi
delle tabelle.
-- 
Gabriele Bertolucci
PBsoft 
www.pbsoft.it

"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:K9sqb.101611$e5.37...@news1.tin.it...
Gabriele, stai rispondendo a tutta una serie di post che violano le norme di
comportamento del NG.
Ti chiedo cortesemente di evitarlo.
Grazie
Antonio

 Ti chiedo cortesemente di evitarlo.
Potrei sapere cosa c'à di sbagliato nel modo in cui io rispondo? Puoi essere
più preciso così posso evitare gli errori che sto facendo?
Grazie per l'aiuto :-)


 più preciso così posso evitare gli errori che sto facendo?
Il tuo modo di rispondere non è affatto sbagliato!!!
Oserei dire che è praticamente da manuale.
Solo che hai risposto a persone che non scrivono DOPO il quoting, non
mettono un subject significativo, quando replicano cancellano tutto il
quoting e così via.
L'unico modo per scoraggiare queste cattive abitudini è non rispondere.
Se vogliono essere aiutati, devono rispettare le norme che ci siamo
autoimposti!!!
Tutto qui...
Antonio
Newsgroup: it.comp.appl.access
Titolo: creare un controllo su una casella contente un codice

cerchero' di essere il piu' chiaro possibile in una maschera ho tre caselle
che mi creano un codice un altra casella, i valori di questo codice possono
avere dei dupplicati, mi servervirebbe creare un controllo che mi dicesse ke
ho inserito un duplicato per poi verificare una altra serie di cose. e'
possibile tutto cio'?come faccio?
grazie 1000



Possibile e' possibile, ma non ho capito di preciso cosa intendi
fare... magari con un esempio?
A spanne: nell'evento afterupdate di ciascuna casella metti la routine
per creare il codice, dopodiche' cerchi i duplicati utilizzando la
funzione dlookup e se e' tutto a posto lo copi nella casella di testo
del codice.
cia'
Max

 grazie 1000
Ciao.
-- 
Sergio MAZZA 

proviamo cosi' io ho tre caselle che chiamero'  1 2 3 dove vado a immetere
dei valori ad sempio:
casella 1 ->  A
casella 2 -> B
casella 3 -> C
poi ho una casella 4 dove mi viene cosi' compilato un codice in automatico
riportando di seguito i tre valori scritti in 1 2 3, il risultato e' questo
ABC
io vorrei un controllo ke mi andasse a cercare i dublicati contenuti nel
medesimo campo e che una volta trovatone uno mi apparisse un messaggio che
mi dicesse ' attenzione valore gia' presente'
cosi' e meglio?

 ha scritto nel messaggio news:f72p0a$fti$1...@newsread.albacom.net...

Un'anticchia meglio.
Non ho capito in quale casella vuoi il controllo o se lo vuoi prima di scrivere il record in tabella; provo col controllo nella 
casella di testo.
Puoi utilizzare l'evento "su uscita" della casella di testo (quella o quelle che vuoi controllare) ed inserire:
'---
If not isnull(me!casella1) then
    if DCount("*","nomeTabella","nomeCampoCasella1='" & me!casella1 & "'")>0 then
        msgbox me!casella1 & ", risulta già inserito."
        cancel=true
    end if
end if
'---
Ciao.
-- 
Sergio MAZZA 

grazie funzione prorprio come volevo io fantastico!!!!
ciao

 ha scritto nel messaggio
news:f74i30$5n0$1...@newsread.albacom.net...



Quello è il tiolo
nel msgbox hai 
messaggio, tipodiiconcina e pulsanti vari, titolo...
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007

 ha scritto nel messaggio
news:f74q6r$fp5$1...@tdi.cu.mi.it...


 --
msgbox "Tuomessaggio", vbcritical, "Attenzione"


 venisse scritto attenzione
Per favore scrivi la risposta in coda al testo del messaggio precedente; 
come sto' facendo io, grazie.
www.sitocomune.com
 - Sezione ICAA - Come comportarsi in questo NG.
MAssimiliano ti ha indicato il come personalizzare la finestra della MsgBox; 
considera che puoi scegliere:
- il testo da visualizzare
- l'icona, quali bottoni e quale dev'essere selezionato di default
- il titolo della finestra
Nell'help del VBA trovi tutto...
Ciao.
-- 
Sergio MAZZA 

come al solito siete molto piu' ke esaurienti, grazie grazie e grazie ancora
Newsgroup: it.comp.appl.access
Titolo: problema con combo

Alla pressione di un tasto faccio apparire una maschera la queale
contiene
una casella combinata(combo1).
seleziono un articolo (es:F1) nella casella combinata, e su invio
vado a inserire quel dato in un'altra maschera (visualizzazione continue)
dovrei inserire un controllo
che
mi vada a controllare se quell' articolo (F1) esiste gia nella maschera
(maschere continue),
 Come posso fare??
io ho provato a fare questo ma non funziona:
prima aggiornamento combo1
If IsNull(DLookup ("[numeroRelazione]", "query", "numeroRelazione=" _
& Chr$(34) & Me!Combo1 & Chr$(34))) Then
    ' spara il dato nella maschera
Else
MsgBox "già esiste"
End if
--
ciao

 If IsNull(DLookup ("[articolo]", "query", "articolo=" _



L'unica cosa che mi viene in mente e' che il valore che passi
(me.combo1)
non e' su "query" (verifica col debug cosa passi e poi verifica su
"query")
poiche' la cosa che fai e' teoricamente giusta
--
a.cara

Newsgroup: it.comp.appl.access
Titolo: Re: Lista font installate

 Grazie.
Scaricati il demo nel mio sito alla sezione [FORMS]
FAQ 1.2  Resize List/Combo_Box.
http://www.mantuanet.it/alessandro.baraldi/
All'interno c'è proprio quello che chiedi.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 
Grazie Alex
Ciao.
Newsgroup: it.comp.appl.access
Titolo: EAN-8, EAN-13

Tempo fa RoDAgo (mi pare) mise a disposizione una routine per disegnare codici a barre EAN-8 su un
Report.
Proprio in questi giorni ho avuto la necessità di provarla (nel mio caso non era d'obbligo lo
standard EAN-13) ma purtroppo il lettore di Barcode fa cilecca!
Il lettore è predisposto anche per la lettura di EAN-8 per cui apparentemente c'è qualcosa che non
funziona nella routine.
Qualcuno ha provato quel codice ed è in grado di smentirmi?
Conoscete siti in cui trovare le regole per la creazione dei barcode, magari anche EAN-13?
Grazie a tutti, ciao
Mauro

 Mauro
RoDAgo

Chiedo scusa per l'imprecisione RoDAgo: è proprio come dici...
MOLTE GRAZIE!!!
Ciao, Mauro

Dimenticavo!
Non sapevo esistessero fonts per Barcode, conosci dei links da cui poterli scaricare?
Ciao RoDAgo.
Mauro

 - rimuovi XXX x rispondere    ICQ #8814554
I politici hanno una loro etica.  Tutta loro.  Ed e' una tacca piu'
sotto di quella di un maniaco sessuale.
		-- Woody Allen

 sul sito comune? (sempre che la licenza lo permetta...)
http://www.barcodemall.com/a1barcode/software.html
http://www.adams1.com/pub/russadam/share.html
http://www.jhcloos.com/fonts/
 (type 1)
Ma qualcuno le dovrebbe provare prima.
Io non le ho mai adoperate, controllando meglio in Corel Draw ho visto che
lí ne avevo parecchie.
Paolo
Newsgroup: it.comp.appl.access
Titolo: vedere moduli in altro database

ho una serie di applicativi sviluppati in accesse e siccome (come capiterà a
tutti) delle funzioni utente si ripetono da applicativo ad applicativo
vorrei poter radunare queste funzioni in un unico modulo in un database a sé
stante o meno..
ho fatto un po' di ricerce sul SC e nell'help in linea ma non ho trovato
niente......
qualcuno sa darmi la dritta giusta....
(basta non mi becchi in un occhio)
:)
grazzzie

 ha scritto nel messaggio
news:9q9bio$msl$1...@nreadb.inwind.it...

Crei un database - es. "CodiciComuni.mdb" - con le funzioni che vuoi rendere
comuni (ovviamente tutte public). Le puoi anche suddividere in più moduli.
In ognuno degli altri database imposterai poi un riferimento a
"CodiciComuni.mdb" (nella stessa maniera in cui imposti gli altri
riferimenti tipo DAO, Word etc).
Ciao
--
Alberto


si avevo immaginato qualcosa del genere ma ho fatto delle prove e non riesco
a chiamare le funzioni
in cap.mdb ho un modulo di nome Modulo1 con una funziona prova()
Sub ProvaCollegamentoModuliEsterni()
    Dim db As Database
    Set db = DBEngine.OpenDatabase("d:\documenti\access\cap.mdb")
    ' .....  come chiamo la funzione prova() ???
End Sub
...forse una soluzione è importare il modulo che contiene le funzioni comuni
ogni volta che si apre un database dal database 'comune'

 ha scritto nel messaggio
news:9qbnb3$dip$1...@nreada.inwind.it...

Allora (scusa se sono troppo elementare e dico delle cose banali che
probabilmente sai già):
1) In un database crei solo dei moduli - quanti ne vuoi - con tutte le
"public function" e "public sub" che vuoi (tra cui anche la famigerata
"public function Prova()")
2) Nel database in cui vuoi utilizzare la funzione apri un modulo qualsiasi
e scegli Strumenti/Riferimenti; schiacci il pulsante "sfoglia"; come tipo
file selezioni "*.mdb"; selezioni il tuo "cap.mdb" e ti accerti che la
relativa casellina sia spuntata
3) Quando ti serve, chiami normalmente la funzione (es.: "strCap = Prova").
4) La cosa può non funzionare se ci sono conflitti dovuti a:
- la presenza di un'altra function o sub "Prova" (sia private che public)
all'interno del modulo da cui effettui la chiamata
- la presenza di un'altra function o sub "Prova" (in questo caso public)
all'interno di uno dei moduli di codice che vedi nella finestra "Moduli" del
database da cui effettui la chiamata.
Io lavoro normalmente così - senza problemi - sia in A97 che in A00
Ciao,
--
Alberto


Ecco !!
non avevo messo a fuoco il significato della parola "riferimenti"
ero tutto preso dall'idea che si facesse da codice
Grazie.....


si puň fare anche da codice...
adesso l'ho visto
:)
Newsgroup: it.comp.appl.access
Titolo: help su rate/fattura

salve,
per gestire le fatture del mio db ho creato la classe Fatture in
relazione alla classe Rate (uno a molti)
non ho problemi per quello che riguarda l'inserimento dei dati della
fattura tramite maschera, nemmeno per l'inserimento della prima rata
(presente come sottomaschera di InserimentoFattura) che prende ed
elabora i dati Importo e Scadenza dal form "sopra".
il problema che ho riscontrato e che non riesco a fare in modo che i
dati Importo e Scadenza si propaghino alle rate successive relative
alla stessa IDFattura.
cosi se pes: 
IDFattura = 5
Nome = ...
Data = Date()
NumRate = 3
ScadenzaRata = 30 giorni
Importo = 10000
.....
IDRata = 10
IDFattura = 5
ScadenzaRata = Data()+Forms!InserimentoFAttura!ScadenzaRata
Importo =
Forms!InserimentoFattura!Importo/Forms!InserimentoFattura!NumRate
...
Ora vorrei che IDRata = 11 relativo ad IDFattura 5 dopo aver cliccato
su "Aggiungi nuovo record" abbia Importo = Importo di IDRata
precedente e Scadenza = ScadenzaPrecedente +
Forms!InserimentoFAttura!ScadenzaRata
ho provato con after_upload, on load, on exit, settando come valore
predefinito ma non mi funziona alcun metodo e penso che la soluzione
sia una stupidata ma ci sto girando intorno.
qualcuno, se ha capito il problema, puo aiutarmi?
grazie anticipatamente
-giacomo-

 alla stessa IDFattura.
[cut]
e' lo stesso problema che aveva Debore maniero 3d "dati ripetuti" de 5/9
attenzione il 3d e' pieno di [OT]
--
a.cara

attenzione il 3d e' pieno di [OT]
mmer#?!a, il subject un po' fuorviante mi ha fatto cancellare i post
relativi a quel 3d che ricordo di aver visto (troppa fretta).
esiste mica una copia raggiungibile via web del newsgroup?
e OT questo argomento?


nun te preoccupa'
secondo me Debora Maniero e' in grado di postarti il codice
--
a.cara

 > e OT questo argomento?
Vai su 
www.libero.it
http://usenet.libero.it/cgi-bin/BrowseNews.epl?GRUPPO=it.comp.appl.access&CATEG_PARAM=Computer%20e%20Internet&SOTTOCATEG_PARAM=Software
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it