mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Festività

Auguri di buone feste a tutto il Gruppo e loro Famiglie
Marcello Riaudo e Famiglia

 Marcello Riaudo e Famiglia
Grazie......auguri anche a te e famiglia per un buon natale e felice anno 
nuovo.
-- 
Ciao
Geppo

Newsgroup: it.comp.appl.access
Titolo: collegamenti ipertestuali

ciao a tutti;
vi descrivo il mio (ennesimo) problema:
in una maschera ho una casella combinata che seleziona, in base a una
query,
un certo codice di documento che corrisponde al nome di un file word che
si trova in una determinata directory, ovviamente all'esterno del db.
Avrei necessità di accedere a tale documento tramite (ad esempio) un
collegamento ipertestuale dalla casella combinata di cui sopra, ma come
faccio ad impostare le proprietà del collegamento in access per tale scopo,
visto che il documento non avrà un percorso fisso (cambia in base al
codice della casella combinata). Bisogna usare VBA oppure avete
suggerimenti migliori per raggiungere questo scopo?
Grazie a tutti e scusate per l'esposizione un po' intricata.
rick
-- 
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:amet7l$1o6$1...@news.newsland.it...

Io farei una tabella con due campi:
1) CODICE
2) COLLEGAMENTO IPERTESTUALE A DOC WORD (in questo campo vi sono i
collegamenti ai tuoi doc. word)

Newsgroup: it.comp.appl.access
Titolo: Sempre Euro ma......

In Excel nel menů Strumenti, Opzioni, Modifica c'č una voce(decimali fissi)
che se spuntata(con due numeri decimali), permette di inserire nelle celle
un numero ad esempio: 2345 che viene automaticamente trasformato in
23,45...utilissimo per l'Euro. E' possibile fare qualcosa di simile nell'
Amatissimo (Access)?

 ha scritto nel messaggio
news:Ii3Z7.22516$s04.1...@news.infostrada.it...

2345/100...
Ciao.
--
Sergio MAZZA

 wrote in message
a13o96$duu$1...@canarie.caspur.it...

Che Input...La Soluzione piů semplice....
Grazie.
Newsgroup: it.comp.appl.access
Titolo: Problema con formato Date.

Un Ciao a tutti.
Ho un problema con il formato delle date nelle seguenti istruzioni:
        Dim GiornoIncrementato As Date
        Dim GiornoConvertito As Date
        GiornoConvertito = Format(GiornoIncrementato, "mm/dd/yy")
        CurrentDb.Execute "INSERT INTO tblTurnazioni " _
        & "(ID_Nominativo, Data2) VALUES " _
        & "( " & NomIncrementato & ", #" & GiornoConvertito & "#);"
GiornoIncrementato viene ricavato da una casella di testo di una form, ed è
in formato Data estesa come il campo Data2 della tblTurnazioni.
Tale valore attraverso la funzione Format viene convertito nel formato
mm/dd/yy che mi pare sia il formato default  dell SQL di Access.
Questo conversione funziona per i primi 12 giorni del mese(numero
corrispondente ai mesi dell'anno) dal 13° giorno in poi la data non viene
più convertita come si può vedere tramite la  finestra di debug.
Ad esempio quando DataIncrementata = 12/06/01  giustamente  DataConvertita =
06/12/01 ed il campo della tblTurnazioni
Data2 è = 12 giugno 2001; invece quando DataIncrementata = 13/06/01
DataConvertita = 13/06/01 e l' INSERT mi valorizza il campo  Data2 con   6
gennaio 2013 e non  con 13 giugno 2001.
Come si può risolvere tale inghippo
Grazie.

 ha scritto nel messaggio
news:naOS6.25468$ZZ.9...@news.infostrada.it...

Prova con
        GiornoConvertito = Format(GiornoIncrementato, "yyyy/mm/dd")
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:MLOS6.25700$ZZ.10...@news.infostrada.it...

    Grazie per il consiglio, che si è rivelato molto utile.
    In pratica ho dovuto aggiungere queste righe di codice:
            If Day(GiornoIncrementato) <= 12 Then
                GiornoConvertito = Format(GiornoIncrementato, "mm/dd/yy")
            Else
                GiornoConvertito = Format(GiornoIncrementato, "yyyy/mm/dd")
            End If
     Claudio.

Newsgroup: it.comp.appl.access
Titolo: "InStr"; strano comporatamento

Devo modificare le lettere accentate dei nomi in lettere normali. Per. es. 
Férrè deve diventare FERRE.
pos=InStr("ہءآأؤابةتثجحخدرزسشصضظعغـ",UCase("è"))
La prima ("é") viene trovata, la seconda ("è") no, e mi restituisce pos=0, 
per cui mi dà "FERRب"
Da notare che non mi trova solo la ب oppure la ة se si trova a fine parola, 
mentre tutte le altre vocali accentate, comprese le varie "e" (ê, ë) le 
trova tutte sia in mezzo che a fine stringa.
Qualcuno mi sa dire di questo strano (almeno per me) comportamento?
Uso A07 e la stringa, prima di essere valutata, viene trasformata in 
maiuscolo con UCase.
Grazie a tutto il NG
napi

napi
prova così
    Dim s As String
    s = "Férrè"
 
  MsgBox s
  MsgBox rep(s)
Function rep(s) As String
    Dim ptr As String
    Dim i As Integer
    s = UCase(s)
    For i = 1 To Len(s)
        Select Case Asc(Mid(s, i, 1))
 
            'A
            Case 192, 193, 194, 195, 196
                Mid(s, i, 1) = Chr(65)
            'C
            Case 199
                Mid(s, i, 1) = Chr(67)
            'E
            Case 200, 201, 202, 203
                Mid(s, i, 1) = Chr(69)
            'I
            Case 204, 205, 206, 207
                Mid(s, i, 1) = Chr(73)
            'N
            Case 209
                Mid(s, i, 1) = Chr(78)
            'O
            Case 210, 211, 212, 213, 214
                Mid(s, i, 1) = Chr(79)
            'U
            Case 217, 218, 219, 220
                Mid(s, i, 1) = Chr(85)
            Case Else
                'non fa niente
        End Select
    Next i
 
    rep = s
End Function

 ha scritto nel messaggio 
news:p4lu769quj02bro60...@4ax.com...

Così funziona. Grazie.
Sto' maledetto, riconosce i codici e non i caratteri: solo la "e" accentata, 
poi, e solo in fondo alla parola. Bah...!
Ri-grazie.
Napi 

 accentata, poi, e solo in fondo alla parola. Bah...!
A casa mia funziona il tutto senza la necessità di esotiche
elucubrazioni.
Access 2003, 2007, 2010,  versioni ENG.
Bruno 

 ha scritto nel messaggio 
news:4c80f046$0$40291$4faf...@reader2.news.tin.it...

Non so che dirti. Mi fa piacere sentirtelo dire. Io non sono certo il tipo 
che cerca le acrobazie o i contorsionismi.
Devo però subire questo strano comportamento che non riesco proprio a 
spiegarmi e speravo che, magari, qualcuno fosse in grado di dare una 
spiegazione... ammesso che ci sia! :-(
Sul 2003 non ho provato anche se è la versione che uso più spesso e che mi 
piace di più, sai... come quando preferisci calzare un bel paio di scarpe 
vecchie e comode...!
Napi 

 vecchie e comode...!
A chi lo dici...
Bruno
Newsgroup: it.comp.appl.access
Titolo: [?] Proteggere codice

Come posso proteggere codice o parti di esso in acc97?
(escluso un MDE...)
Grazie
--
------- CED L'Abbondanza -------
http://www.labbondanza.it
Email: 
in...@labbondanza.it
(Piombini L./Vigna F./Bondi D.)
--------------------------------------------

(escluso un MDE...)
allora non puoi.  ovvero, potresti crearti delle dll (credo), non si
vedrebbe il codice ma basterebbe copiare le dll...
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Newsgroup: it.comp.appl.access
Titolo: somma minuti

Salve,
non riesco a trovare il modo di sommare campi di durata espressa in
minuti,secondi
Che formato devo dare al campo minuti secondi (00.00 cioe' ad esempio 3:15)
e poi avere il totale dei vari campi .
Ho provato con =Somma([durata]) ma il totale e' un risultato numerico non di
tempo
Spero di essermi fatto capire
Grazie

 minuti,secondi
Fai un salto nel Sito Comune (l'indirizzo è in calce): troverai quello che
cerchi... e tante altre cose utili.
Ciao
Silvio
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Newsgroup: it.comp.appl.access
Titolo: Ordinamento all'avvio di una maschera-

Vorrei ordinare una maschera all'avvio SEMPRE per COGNOME e NOME, ma ogni 
qual volta un richiede un altro tipo di ordinamento questo viene memorizzato 
e diventa l'ordinamento di default per tutte le seguenti aperture della 
maschera.
Qualcuno mi indica la corretta sintassi per favore ?
Grazie Roberto Spinella 


www.donkarl.com/it
 FAQ 4.7 Cambiare l'ordinamento di una maschera
Certo nel ultimo esempio lì per Me.OrderBy nell evento "Su Apertura"
puoi anche usare "COGNOME, NOME" invece di "".
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 

 wrote in message
news:432531c8$0$8488$
5fc...@news.tiscali.it

Vedi come impostare le Proprietà ORDERBY e ORDERBYON
su evento Load.
In realtà basta ORDERBYON=True su Load e scrivere nella
proprietà ORDERBY i criteri.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: Conversione minuscole/maiuscole

Esiste una combinazione di tasti per poter convertire il testo selezionato o
una intera casella di testo da Minuscolo a Maiuscolo o viceversa senza
creare una macro apposita?
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam

No.
@Alex

 Ciao, Sandrobi
Mi sembra di no ma puoi sempre inventartela intercettando un tasto o una 
combinazione ed eseguendo o meno la funzione:
TuoControllo.Value = StrConv(TuoControllo.Value, vbUpperCase)
o simili.
Ciao, Carlo 

 ------------------
 Per essere pių completo nell'esempio:
ipotizzando un controllo Descrizione e volendo assegnare al tasto F2 il 
maiuscolo e a F3 il minuscolo:
Private Sub Descrizione_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then
Me.Descrizione.Value = StrConv(Me.Descrizione.Value, vbUpperCase)
ElseIf KeyCode = 114 Then
Me.Descrizione.Value = StrConv(Me.Descrizione.Value, vbLowerCase)
End If
End Sub
Prova e fammi sapere.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Problema con stampa relazioni

Le relazioni di un dBase fatto di molte tabelle non possono essere stampate
perchè access dice "che escono dalle dimensioni massime" e quindi
bisognerebbe "impastare" le tabelle più vicine una all'altra. Così non si
capisce più nulla.
Non c'è qualche utilities da scaricare che consenta di stampare in modo
dignitoso tabelle e relazioni?
(access 2003)
Piero.


Si vai sul Sito di Lebans e cerca l'utility per stampare le relazioni,
aggira proprio questo ostacolo...
@Alex

Newsgroup: it.comp.appl.access
Titolo: calcolo delle ore in una maschera di access

Salve a tutti ho creato una maschera con un campo [ore] , dove
inserisco i totali delle ore effettuate in un mese da varie persone;
1. nel campo [totale ore] nonostante ho messo la seguente formula:
somma([ore])*24
sono riuscito ad avere la somma di più di 24 ore, ma ho il problema
dei minuti che non appaiono nel formato giusto. Come posso fare
apparire anche i minuti nel formato giusto?
2. se una persona va in negativo come si fa a far apparire ad esempio
(- 2:20)
Grazie in anticipo

 ha scritto nel messaggio 
news:1160485417....@e3g2000cwe.googlegroups.com...
Salve a tutti ho creato una maschera con un campo [ore] , dove
inserisco i totali delle ore effettuate in un mese da varie persone;
1. nel campo [totale ore] nonostante ho messo la seguente formula:
somma([ore])*24
sono riuscito ad avere la somma di piů di 24 ore, ma ho il problema
dei minuti che non appaiono nel formato giusto. Come posso fare
apparire anche i minuti nel formato giusto?
2. se una persona va in negativo come si fa a far apparire ad esempio
(- 2:20)
Grazie in anticipo
Controlla 
www.sitocomune.com
 6.50 Somma di tempi o di orari senza tener 
conto dei giorni
Rivedila e correggila tenendo conto del tuo singolo campo.
Ciao
Roberto
Ciao
Roberto 

 sono riuscito ad avere la somma di più di 24 ore, ma ho il problema



Scusa se son di coccio, ma dove devo inserire il codice inserito nella
tua soluzione?

Newsgroup: it.comp.appl.access
Titolo: Conversione Decimale

Cari amici del NG mi serve il vostro aiuto.
Grazie a tutti voi sono riuscito a fare un programmino che esporta i
dati da una
tabella in un file txt.
Ho un ultimo problema:
Nella tabella da esportare ho un campo (che contiene l'importo di
fatture) formattato come segue:
- Dimensione campo - Decimale
- Precisione - 15
- Scala - 2
un valore di esempio è: 36,15
come posso convertire in esportazione da 36,15 a 36.15?
Grazie per tutti quelli che mi aiuteranno.
kiss

 ha scritto nel messaggio 
news:63a90b7b-a267-4da5...@r36g2000prf.googlegroups.com...
Cari amici del NG mi serve il vostro aiuto.
Grazie a tutti voi sono riuscito a fare un programmino che esporta i
dati da una
tabella in un file txt.
Ho un ultimo problema:
Nella tabella da esportare ho un campo (che contiene l'importo di
fatture) formattato come segue:
- Dimensione campo - Decimale
- Precisione - 15
- Scala - 2
un valore di esempio č: 36,15
come posso convertire in esportazione da 36,15 a 36.15?
Grazie per tutti quelli che mi aiuteranno.
kiss
Replace([Tuonumero];",";".")
Ciao
-- 
Roberto da Parma
Newsgroup: it.comp.appl.access
Titolo: Problemi con Maschera di input

LLLLLL00L00L000L;;
funziona perfettamente in A97
ma non in A2k ed A2K2.
Ho provato a ricreale con l'wizard,
nell'wizard funziona ma non in casella.
Qualche consiglio?
Grazie e buona giornata
Paolo

??????00?00?000?;;" "
funziona e se creo un errore, l'indicazione dice:
Il valore immesso non è valido per la maschera di input:
'>LLLLLL00L00L000L;;" "' specificata per il campo.
E' un problema che ho sempre avuto, devo sempre
passare per A97 ed importare per utilizzare una maschera di input.
Grazie
Paolo

Newsgroup: it.comp.appl.access
Titolo: Filtro per parte di stringa

Salve a tutti,
è possibile creare via codice un filtro che ricerca in un campo tutti i
record che contengono una parte dei caratteri immessi?
Es. campo Città contiene: MILANO, BOLZANO, ROMA,CAGLIARI, LAMEZIA,PALERMO.
Immettendo nela campo ricerca i caratteri LA dovrebbe tirare fuori: miLAno,
LAmezia. Spero di essere stato chiaro...?!?

 ha scritto nel messaggio
news:cok6jp$ntv$1...@fata.cs.interbusiness.it...

dimenticavo, io utilizzo il seguente comando:
 Me.Filter = "Qr_anagra.CITTA IN ('" & stringaselezione & "')"
Funziona solo se immetto il campo esatto per come è scritta la città.

 ha scritto nel messaggio
news:cok79l$pvn$1...@fata.cs.interbusiness.it...

Ciao Gra,
devi usare Like:
me.Filter = "Qr_anagra.CITTA Like '*" & stringaselezione & "*'"
Saluti
Cinzia

 ha scritto nel messaggio
news:cok8d4$muc$1...@lacerta.tiscalinet.it...

Grazie sei Grande!!! perchè non ho ci ho pensato prima.....????
Ciao

Newsgroup: it.comp.appl.access
Titolo: Help ADO

Ciao a tutti,
ho il file dell'help di ado ma non riesco a farlo funzionare. Precisando che
per ora uso A 2000, come si fa a farglielo vedere?
Grazie a tutti
Ciao
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:4yrza.138506$3M4.3...@news1.tin.it...

Questo problema perseguita pure me.
Il file sparito è proprio ADO210.chm dopo l'aggiornamento di MDAC 2.5 o
successivi.
Sono riuscito a recuperare il file per la versione 2.5 in italiano. Ma sulla
mia 2.7 ho lo stesso problema quando premo F1.
Almeno posso consultarlo anche senza VBA.
Ciao
Daniele
Newsgroup: it.comp.appl.access
Titolo: Problemi con la chiusura da codice di EXCEL

Sull'evento OnClick di un tasto ho inserito il seguente codice
che dovrebbe servire ad aprirmi un file di Excel e a settare il
valore di una cella al valore della variabile Ditta.
    Dim myAppl As new Excel.Application
    Dim myWBook As New Excel.Workbook
 
    myAppl.Visible = True
 
    myAppl.Workbooks.Open (PercorsoModelliWord & "VERBALE.xls")
    Set myWBook = myAppl.Workbooks(1)
 
    ' Ditta
    myWBook.Sheets(1).Range("G5").Select
    ActiveCell.FormulaR1C1 = Ditta
 
    myWBook.SaveAs PercorsoAllegati & Prova
    myWBook.Close
 
    myAppl.Quit
    Set myAppl = Nothing
    Set myWBook = Nothing
Funziona quasi tutto, infatti EXCEL si chiude ma nel Task Manager il
processo EXCEL.exe è ancora attivo e scompare quando chiudo Access. QUesto
mi crea dei problemi quando richiamo una seconda volta la funzione che ho
scritto sopra o quando apro un file Excel
Dove ho sbagliato?
Grazie a tutti!
--------------------------------
Inviato via 
http://usenet.libero.it

 scritto sopra o quando apro un file Excel
Cambia:
ActiveCell.FormulaR1C1 = Ditta
in
myAppl.ActiveCell.FormulaR1C1 = Ditta
Inoltre sarebbe corretto scaricare gli oggetti nello stesso ordine in cui sono
stati creati, cioč:
Set myWBook = Nothing
Set myAppl = Nothing
invece di:
Set myAppl = Nothing
Set myWBook = Nothing
Ciao. Claudio.


Niente da fare, comunque ti ringrazio.
A presto!


 A presto!
Come sarebbe niente da fare? Non mi sono dilungato sui motivi della correzione
(anzi, non ho detto nulla :--), ma ti garantisco che questo è il metodo
corretto. Se sei interessato ne possiamo parlare.
Mi hai postato l'intero codice o esegui altre istruzioni che possono lasciare
l'istanza in memoria? Ho fatto una prova e il codice siffatto mi chiude
completamente l'Excel. Se non te lo chiude c'è qualcosa che non mi hai detto...
Ciao. Claudio.
Newsgroup: it.comp.appl.access
Titolo: [OT] stampante postscript a colori

sto facendo un pò di prove con un programma free per la generazione di file 
pdf.
il tutto funziona e il file generato è leggibile con acrobat.
mi rimane da risolvere solo il problema della stampa di documenti a colori.
qualcuno mi sa indicare il modello di una stampante postscript a colori?
sto facendo esperimenti facendo passare tutti i drivers di windows, ma sta 
venendo una cosa lunghetta...
per adesso ho trovato una apple laserwriter, solo che mi trasforma il rosso 
in rosa...
tia e scusate il megaOT
    	paolo
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------

          paolo
risolto.
come?
con google, ovviamente, solo che non c ho pensato subito...
casomai servisse a qualcuno, sto creando file pdf con ghostscript, redmon 
e il driver di una Apple Color LW 12/660 PS.
i file pdf sono praticamente uguali come dimensioni a quelli generati con 
acrobat, con la non trascurabile differenza del costo del sw...


 
Io uso lo stesso sistema ma una stampante HP Laserjet 4600 PS.
Direi che è una soluzione abbastanza buona.
byez
-- 
Claudio(BS)
per rispondere aggiungi claudio
** Articolo inviato tramite i servizi gratuiti di 
www.x-privat.org
 **

 wrote in 
news:3eff...@x-privat.org
:
BS ... dove?
bassa o monti?
o magari cittadino?
:-)


 
città, zona nord ;-)


Newsgroup: it.comp.appl.access
Titolo: Problemino con Setfocus

Ciao a tutti, ho scaricato dal sito comune la funzione di controllo della
validita' della partita iva. Inserita in una form sul controllo TxtPiva
nell'evento dopo aggiornamento inserisco:
If not is null Me![TxtPiva] then
   If not ChekPartitaIva(Me![TxtPiva]) then
        MsgBox("Attenzione!!Partita Iva errata.")
        Me![TxtPiva].Setfocus
    endif
endif
Tutto funziona, mi visualizza il MsgBox, ma quando clicco sull' "OK" della
MsgBox il focus va' al controllo successivo nell'ordine di tabulazione a
quello di TxtPiva. Sembra che non esegua il Me![TxtPiva].Setfocus del codice
postato. Dove sbaglio?
Grazie Marco.

...

Non sbagli, è un vecchio problema...
Spostati prima su uno qualsiasi degli altri controlli, sempre col setfocus,
e quindi di nuovo su TxtPiva
Antonio

non conviene metterlo nel beforeupdate?
se fallisce il controllo cancel=true e ritorna nella casella corrente...
oppure no?

,

Sent via Deja.com 
http://www.deja.com/
Before you buy.


Grazie Antonio, a volte per non postare delle banalita' uno si sforza di
capire dove ha sbagliato, per poi scoprire che qualcuno (vedi M$) e' causa
dei suoi problemi.
Marco
Newsgroup: it.comp.appl.access
Titolo: report da record filtrati

Salve a tutti,
sono un novellino:
come faccio a generare un report dei soli record filtrati di una maschera,
per il filtro uso "Filtro in base a Maschera"
Grazie a tutti

 ha scritto nel messaggio
news:Fw9dc.1388$eR5....@tornado.fastwebnet.it...

Ammesso che la maschera sia aperta al momento dell'esecuzione del report, a
fronte dell'evento "Su apertura" del report genera il seguente codice VBA:
Me.Filter = Forms!NomeMaschera.Filter
Me.FilterOn = True
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Valore 0 / NULL

Come faccio a far apparire, al posto del valore NULL in una tabella o
in una query, il valore 0 (tipo in un legame LISTINO - VENDITE)
Esempio:
se nella tabella vendite non trovo nessun valore per l'articolo X,
invece di non visualizzarlo, vorrei far apparire 0.
Grazie a tutti

 ha scritto nel messaggio 
news:420b920f...@news.aruba.it...

NZ(Tuovalore, 0)
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Concatenare più record in uno unico.

Buon giorno
Ho il seguente problema:
Utilizzo ACCESS 2003
Concatenare una colonna di record in un unico record spaziandolo tra di loro con un simbolo/segno, mi spiego meglio.
 
NOME     VERSIONE      CILINDRATA     TARGA
500         L            1200         ABCD
500         L            1200         ABCA
500         L            1200         ABCE
500         L            1300         ABCD
500         L            1300         ABCA
500         L            1300         ABBB
 
 
il risultato che vorrei è
 
NOME     VERSIONE      CILINDRATA	   QUANTITA       TARGHE
500        L            1200            3        ABCD,ABCA,ABCE
500        L            1300            3        ABCD,ABCA,ABBB
 
Come posso fare, significando che non sono molto ferrato con il VBA e vorrei riportare il tutto su un report. grazie
 
ROMANO
 


Sembra che tu vuoi un raggruppamento per Cilindrata.
In un modulo inserisci questa funzione:
Public Function strTarghe(Cilindrata) As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    strTarghe = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("miaTabella", dbOpenDynaset, dbFailOnError + dbSeeChanges)
    Do Until rs.EOF
        If rs!Cilindrata = Cilindrata Then
            strTarghe = strTarghe & rs!targa & ", "
        End If
        rs.MoveNext
    Loop
    If Len(strTarghe) > 0 Then
        strTarghe = Left(strTarghe, Len(strTarghe) - 2)
    End If
    Set rs = Nothing
End Function
 
E poi la richiami in una query:
 
SELECT First(miaTabella.Nome) AS PrimoDiNome, First(miaTabella.Versione) AS PrimoDiVersione, miaTabella.Cilindrata, Count(miaTabella.Cilindrata) AS Quantita, strTarghe([Cilindrata]) AS Targhe
FROM miaTabella
GROUP BY miaTabella.Cilindrata;
 
--
sv

 sv
 
Buongiorno ;-)
 
@Alex


"Vo'scenza benerica" 
 
...
 
Ci teniamo in allenamento
;-)
 
--
sv
 


lieto di risentirti... :-)
 
Daniele
 
 
 
 
--- news://
freenews.netfront.net/
 - complaints: 
ne...@netfront.net
 ---


Ciao Daniele... Auguri anche se con un po' di ritardo.
:-)
 
--
sv


Grazie per la risposta, FUNZIONA PERFETTAMENTE, un'altra domanda, se possibile, mi potresti indicare come raggruppare su più campi e cioè, raggruppare, con conteggio, per campo NOME, VERSIONE, CILINDRATA? 
Grazie infinite.
ROMANO


Di volta in volta utilizza la clausola GROUP BY. Quindi sarà GROUP BY miaTabella.Nome ... e poi GROUP BY miaTabella.Versione.. etc..
 
--
sv

Newsgroup: it.comp.appl.access
Titolo: immettere dati nella tabelle tramite codice VB

io devo immette dei valori nelle tabelle tramite codice com' è la sintassi??
io scrivo cosi' per mettere valori nella caselle di testo della
Me![station] = Mid(riga, 3, 10)
Me![data] = Mid(riga, 14, 5)
ciao grazie

 ha scritto nel messaggio 
news:db8595$84l$1...@domitilla.aioe.org...

Apri recordset .add e aggiungi quello che ti pare... guarda l'help.
Newsgroup: it.comp.appl.access
Titolo: problema di stampe report quando il programma và a piu persone

il mio db lo usano in clienti, ognuno perņ vuole le stampe a suo modo, visto
che consegno sempre il runtime e quindi non posso fargli aprire il report in
struttura per modificarlo vorrei creare un db esterno che sia chiama con il
nome del cliente e contiene i report di quel cliente per poi richiamarli dal
db principale cosi anche se i clienti diventeranno molti ognuno avrą il suo
file stampe a parte
secondo voi č fattibile? come apro un report di  un altro db esterno?
avete soluzioni migliori?
grazie.

 clienti diventeranno molti ognuno avr` il suo file stampe a parte
Vedi se ti puo' essere d'aiuto:
http://www.mvps.org/access/reports/rpt0012.htm
-- 
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
Vuoi supportarmi? 
http://url.repository.biz/go/3E
L'uomo, conscio di sbagliare, persevera.

Newsgroup: it.comp.appl.access
Titolo: Cambiare l'origine delle tabelle in un database

In un database Access 2000 ho collegato delle tabelle via ODBC che risiedono 
in un As400.
Dato che le tabelle possono risiedere in diverse librerie di AS400 ed il 
link in access risulta essere <nome libreria>_<nome tabella>, è possibile 
cambiare il collegamento di una tabella
con una identica che risiede in un'altra libreria mantenendo lo stesso nome 
in access in modo che le query e le form continuino a funzionare senza 
modifiche?
RINGRAZIO ANTICIPATAMENTE chiunque mi dia una dritta. 


Ciao Daniele,
il nome della tabella di Access può essere diverso dal nome Schema.Tabella
del server, dopo aver riallegato le tabelle le rinomini.
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: Barra allineamento e ridimensionamento bug ?

Salve
Ho notato che la barra in oggetto anche se attivata ha i pulsanti che
non funzionano
qualcuno sa il perchè?
winXp acc2002 sp3
Alex

miciomao ha scritto:

bhè i pulsanti dovrebbo diventare 'ATTIVI' a seguito di una selezione di 
oggetti allineabili o da ridimensionare ....  non lo fa ?
IvanDaBologna

nain

tra l'altro ho notato un'altro fatto
se andate su Codice li vi sono altre barre
c'è nè una che si chiama UserForm
è identica a quella in ogetto e anche li non funzica
anche perchè....... dovrebbe li ? che ci sta a fare ?
forse c'era qualcuno che la spingeva ?
spingitori di barre al cioccolato su Access2002
bhà.....

miciomao ha scritto:

non saprei perchè e' presente anche questa barra criptica.
Certo è che funziona benissimo in Excel dove le Userforms si possono 
progettare solo dall'ambiente VBA .... lì i pulsanti si accendono al 
momento giusto!
Forse una compatibilità abbandonata per il fatto che esiste un editor di 
maschere molto più evoluto all'interno di Access...
Tentativi abbandonati sulla strada dell'efficienza !! ;))
IvanDaBologna
Newsgroup: it.comp.appl.access
Titolo: Query (spero) facile (almeno per voi)

Salve,
Mi rivolgo al ng per un problema, sto' cercando si scrivere una query ma non
ho ancora trovato "la" soluzione.
Mi spiego con un esempio:
ho due tabelle, Auto=[A.codice] e Bolli=[B.codice,B.anno].
Nella tabella A ci sono le auto, collegate per il campo codice alla tabella
B dove inoltre c'e' l'anno in cui e' stato pagato il bollo.
Io vorrei una query che mi selezioni tutte le auto per cui non è stato
pagato il bollo in un certo anno. Quindi se A = [1;2;3;4] e B
=[(1,1998);(1,2000);(3,2000);(4,1999)] io vorrei come risultato per l'anno
2000 le auto 2 e 4.
Io penso che sia possibile fare questa selezione con una query molto
semplice, ma per ora ho trovato la soluzione adatta.
Grazie.



2000 le auto 2 e 4.
SELECT auto.*
FROM auto
WHERE AUTO.id not IN
(SELECT bollo.id1
FROM bollo
WHERE (((bollo.anno)=2000)););
Antonio

Newsgroup: it.comp.appl.access
Titolo: Blocco del contenuto dei campi. Come?

Salve a tutti.
In ufficio, ormai alimentato da diversi anni, ho un database, creato con
access la cui visualizzazione č in foglio dati.
I vari record sono quindi visualizzati orizzontalmente e sono composti da
diversi campi.
E' possibile bloccare il contenuto di tutte le celle (magari con password)
con esclusione del'ultima di ogni record (ultima colonna) che corrisponde
poi alla sola cella il cui contenuto č destinato ad essere modificato?
Grazie.

 ha scritto nel messaggio
news:ASl2b.263541$lK4.8...@twister1.libero.it...

ti conviene trasformare la maschera da visualizzazione foglio dati in
visualizzazione maschera.
blocare i campi dalla modifica (con l'apposita proprietŕ)
e inserire un pulsante per l'attivazione dei campi bloccati

 Grazie.
Sfrutta le proprietà native del controllo TxtBox :
ENABLED=FALSE
LOCKED=TRUE
Devi usarle entrambe altrimenti l'effetto visivo
non sarebbe ottimale, nè in un caso nè nell'altro.
Poi se vuoi sbloccarle inserisci un Pulsante che chiede
la Password e se corretta sblocca....!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Copiare parte di una Stringa in casella di testo

Buongiorno a tutti,
Su una maschera ho due caselle di testo:
Codice
Revisione
il testo che viene scritto in "Codice" �  formattato in questa maniera:
Figura1-00
Figura2-00
Figura2-01
Figura3-00
Figura4-00
Figura4-01
Figura4-02
Figura4-03
Quello che vorrei fare � che dopo che scrivo il in "Codice" per esempio la
stringa:
Figura2-01
in "Revisione" mi venga copiata la desinenza:  01  (della stringa scritta)
Grazie anticipate
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 scritta)
Se ti capisco bene e la struttura dei dati � sempre la stessa
puoi usare questo codice nell'evento "Dopo aggiornamento"
della casella di testo:
Me!Revisione = Right(Me!Codice,2)
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Nell'evento Dopo Aggiornamento di Codice scrivi:
Me.Revisione = Right(Me.Codice, 2)
Nell'Help, alla voce Right, trovi la spiegazione.
Riccardo Baldinotti

 Riccardo Baldinotti
Si scusa c'era un "il" di troppo, grazieeeeeeee
-- 


 Me!Revisione = Right(Me!Codice,2)
Si scusa c'era un "il" di troppo, grazieeeeeee
-- 


Newsgroup: it.comp.appl.access
Titolo: cambiare colore testo txtbox in un colpo solo...

E' possibile sull'azione click di un pulsante cambiare il colore del testo
presente in TUTTE le txtbox di una maschera ? (chiaramente non scrivendo del
codice per ogni casella di testo !!!)
Grazie mille.
Ciao.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao.
vedi i post precedenti...
 for each  .....
insieme controls
Saluti.
Emanuele.

 wrote in message
ead603c2e49133cadd...@mygate.mailgate.org...

Dim ctr As Control
For Each ctr In Screen.ActiveForm.CONTROLS
If ctr.ControlType = acTextBox Or ctr.ControlType = acComboBox Or
ctr.ControlType = acCheckBox Then
ctr.BackStyle = 0
ctr.SpecialEffect = 0
ctr.Enabled = False
ctr.Locked = True
ctr.FontWeight = 700
End If
Next ctr
Carlo Ve
Newsgroup: it.comp.appl.access
Titolo: contatore da 0

ciao a tutti, sto provando ad interfacciarmi con access da vb2005 ed ho
un problemino: è possibile far iniziare il contatore da 0 piuttosto
che da 1?
Grazie

 Grazie
Ciao Alcibiade,
č possibile impostare una tabella in modo tale che il contatore cominci da 0
anzichč da 1.
Per farlo da Access devi creare la tabella, o alterarne il comportamento
tramite ADO ad esempio cosě:
 CurrentProject.Connection.Execute ("CREATE TabellaContatoreDaZero (" & _
   "ID AUTOINCREMENT(0,1)," & _
  " Campo1 TEXT(10))")
oppure con
CurrentProject.Connection.Execute ("ALTER TABLE TabellaContatoreDaZero " &_
"ALTER COLUMN ID  COUNTER(0,1)" )
-- 
Cinzia
---------------------------------------
|  
http://www.riolab.org
  |
---------------------------------------


Ciao Cinzia, grazie per la risposta. Sul sito comune avevo trovato come
far iniziare il contatore da  un certo numero x ma non da 0. Sono
riuscito a risolvere più semlplicemnte facendo partire il contatore di
vb da 1 invece che da 0 :)

Newsgroup: it.comp.appl.access
Titolo: Urgente: Protezione Db Access97

Salve a tutti, esiste un modo per proteggere un dbAccess migliore della sola
password che puņ essere trovata con alcuni programmi?
Grazie.

 Grazie.
La protezione a livello utente.
Inizia dall'help di Access e dal sito comune (indirizzo qui sotto) e poi ne
riparliamo.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

Newsgroup: it.comp.appl.access
Titolo: Inserimento data da calendario

Ciao a tutti
vorrei quando clicco su una finestra  data della maschera che mi compaio il 
claendario e poter selezionare la data che mi interessa e selezionandola 
questa venga inserita automaticamente nella finestra
qualcuno mi può aiutare.
caio 

 ha scritto nel messaggio 
news:43cfc313$0$1077$4faf...@reader3.news.tin.it...

devi creare una maschera con dentro il controllo calendario, poi devi creare 
una routine evento fra quelli proposti da access, noterai che su click non 
c'è quindi creane un altro per entrare nel modulo della maschera e poi crea 
l'evento calendario_click
in quella routine metti questo codice
forms![tuaform]![tuocontrollodata]=me.nomecontrollocalendario.value
me.close
cosi funziona, ciao.

 caio
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: cambiare query  a sottomaschera con vba

Ho una maschera che poggia su una query. Ho molte altre query che si
adatterebbero a detta maschera ma non voglio crearmi alrettante maschere
identiche. E' possibile cambiare la query su cui si poggia una maschera da
VBA?

"Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
news:dcJBc.506978$rM4.21...@news4.tin.it...

Forms!Maschera.RecordSource=Nome_Query
L'importante è che le diverse query abbiano gli stessi identici campi.
Ciao Giovanni
(fammi sapere)

 ha scritto nel messaggio
news:OmRBc.48855$G%.37543@tornado.fastwebnet.it...

Grazie per la risposta, ma ho un problema:
I campi sono identici.
La maschera in questione la uso come sottomaschera e quindi in base alla
scelta fatta con dei radio button devo eseguire nella sottomaschera query
diverse.
Nella parte di codice dove eseguo il controllo della query da eseguire ho
inserito il codice che mi hai consiglliato:
Forms!nomeSottomaschera.RecordSource=query ma da errore allora ho provato
Forms!mascheraPrincipale!nomeSottomaschera.RecordSource=query ma si verifica
sempre un errore.
Come posso fare?


Allora prova cosě:
Forms!MascheraPrincipale!SottoMaschera.Form.RecordSource = "Nome_Query"
Fammi sapere


Perfetto, ti ringrazio.

Newsgroup: it.comp.appl.access
Titolo: errore 2191, impossibile impostare la proprietà origine record ..........

ciao a tutti
 
con pulsante in una maschera apro un report
 
Dim stDocName As String
stDocName = "MioReport"
DoCmd.OpenReport stDocName, acViewPreview
 
nel report ho un sottoreport
 
e su apertura del sottoreport
ho questo codice:
Dim strSQL As String
strSQL = "SELECT * " _
& "FROM TbEmailFornitori"
Me.Report.RecordSource = strSQL
 
 
che mi da l'errore 2191
impossibile impostare la proprietà origine record in anteprima di stampa
 
grazie


Perchè non basi il REPORT su una Query...?
 
Ipotesi, il Report lo appoggiamo alla Query [qRPT]
 
Ora
 
Dim strSQL As String
strSQL = "SELECT * FROM TbEmailFornitori" 
DbEngine(0)(0).Querydefs("qRPT").SQL=strSQL
 
stDocName = "MioReport"
DoCmd.OpenReport stDocName, acViewPreview
 
 
E nel REPORT non scrivi NULLA
 
@Alex


grazie Alex
ho fatto in questo modo
per utilizzare la sottoquery
su piu' report.
 
Con questo codice ho l'errore in questo punto;
DBEngine(0)(0).QueryDefs("qRPT").SQL = strSQL
elemento non trovato in questo insieme

Hai referenziato DAO...?
Hai creato la Query prima...?
 
@Alex


no!
Newsgroup: it.comp.appl.access
Titolo: Errore sconosciuto

Ho inserito in una maschera; con il metodo del trascinamento, un'altra
maschera con un campo in comune, (creando così una sottomaschera), il
problema è che quando vado ad inserire un nuovo record nella sottomaschera
mi appare un messaggio di Access che mi informa "L'oggetto non contiene
l'oggetto di automazione Description" inoltre "Si è cercato di eseguire una
routine di Visual Basic per impostare una proprietà o un metodo di un
oggetto che non è disponibile per le operazioni di automazione nel
componente" mi permette comunque di inserire il record, ma ad ogni mossa che
faccio nella sottomaschera esce sempre fuori il msg precedente.
Non riesco a capirci niente, ho usato lo stesso sistema tante volte senza
nessun problema.
Grazie.....

 ha scritto nel messaggio
news:B6zg7.1787$423....@news.infostrada.it...

Hai un controllo che si chiama "Descrizione". Cambia il nome e vedrai che
tutto funziona. Nella traduzione dall'italiano Access usa "Description" che
è parola riservata.
Ciao, Carlo

 ha scritto nel messaggio
news:bpIg7.3500$423.1...@news.infostrada.it...

Hai perfettamente ragione, ora funziona....Grazie mille!!!

Newsgroup: it.comp.appl.access
Titolo: funzione particolare per contare...

Salve a tutti,
qualcuno ha un'idea per
Tabella
Cliente      articolo venduto
PIPPO    ARTICOLO1
PIPPO    ARTICOLO2
PLUTO  ARTICOLO3
PLUTO  ARTICOLO4
PLUTO  ARTICOLO5
PLUTO  ARTICOLO6
allora tramite una query riesco a dire che sono stati
venduti 6 pezzi (usando count(articolo venduto)
ma come posso fare per calcolare quanti clienti (sono 2 clienti pippo e
pluto)
hanno comprato degli articoli?
grazie
ringo

 wrote in message
news:arl0u0$lv0$1...@serv1.albacom.net...

Count(Cliente) ... Group By Cliente
Ciao!
Esteban
Newsgroup: it.comp.appl.access
Titolo: Browse For Folder

Ciao a tutti,
Utilizzo questa funzione presa dal sito comune per salvare, funziona, solo
che non mi salva nella 
cartella selezionata ma in quella che la precede.
Grazie Pino
Dim bInf As BROWSEINFO
Dim RetVal As Long,PathID As Long,RetPath As String,Offset As Integer
' impostazione degli elementi della struttura
bInf.hOwner = Me.hWnd
bInf.lpszTitle = " ==== Stringa visualizzata nel browser ====="
bInf.ulFlags = BIF_RETURNONLYFSDIRS
' Mostra il "Browse For Folder" dialog
PathID = SHBrowseForFolder(bInf)
RetPath = Space$(512)
' Recupero il path
RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
If RetVal Then
   Offset = InStr(RetPath, Chr$(0))
   MsgBox "Il folder selezionato è :" & Chr$(10) & Chr$(10) & _
   Left$(RetPath, Offset - 1), vbInformation
Else
   MsgBox "Selezionato Tasto Annulla", vbInformation
End If
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Io non uso questo codice ma cosě a sensazione....prova a togliere il -1....
Bisognerebbe poi vedere come č scritto il modulo BROWSEINFO...
Ciao
-- 
Roberto da Parma 

 Ciao
Il -1. -2  ecc..  mi toglie le lettere davanti al nome del file
Questo č il resto del codice  ( non ti farebbe niente passarmi il tuo
codice cosě lo provo)
'Dichiarazioni per selettore Cartelle
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As
Long
Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    LParam As Long
    iImage As Long
End Type
Public Const BIF_RETURNONLYFSDIRS = &H1
Public Const BIF_DONTGOBELOWDOMAIN = &H2
Public Const BIF_STATUSTEXT = &H4
Public Const BIF_RETURNFSANCESTORS = &H8
Public Const BIF_BROWSEFORCOMPUTER = &H5000
Public Const BIF_BROWSEFORPRINTER = &H8000
Grazie  Ciao 


 End If
Risolto, passo la soluzione per chi s'intoppa come me
 
la riga che passa la directory    Left$(RetPath, Offset - 1),
vbInformation 
che sarebbe poi questa   Folders=Left$(RetPath, Offset - 1)
gli ho aggiunto la barra  Folders=Left$(RetPath, Offset - 1) &""
Pino

Newsgroup: it.comp.appl.access
Titolo: togliere valori dalla query

SELECT Nominativi.ID, Nominativi.Ragione_Sociale, etc....
FROM (Nominativi LEFT JOIN qry_prov_reg ON Nominativi.Provincia =
qry_prov_reg.Sigla_Breve) LEFT JOIN Contatto11 ON Nominativi.ID =
Contatto11.ID_Nominativo
WHERE (((Nominativi.Attivita) Like ("*" & [Forms]![Ricerche]![Attivita] &
"*")) AND ((qry_prov_reg.Regione) Like ("*" &
[Forms]![Ricerche]![Regione1] & "*") Or (qry_prov_reg.Regione) Like ("*" &
[Forms]![Ricerche]![Regione2] & "*") Or (qry_prov_reg.Regione) Like ("*" &
[Forms]![Ricerche]![Regione3] & "*")))
ORDER BY qry_prov_reg.Regione, Nominativi.Provincia,
Nominativi.Ragione_Sociale;
nella query creata io ho dichiarato:" trova tutte le parole che hanno
questi caratteri, filtra le regioni che ho dichiarato nei campi Regione1 2
3 etc
ora ho creato 3 campi chiamati escludi1 2 3 il quale dovrebbe creare un
ulteriore filtro di esclusione
esempio pratico
trova tutte i record in cui sul campo Attivita c'è la parola "aliment"
la query mi trova Ingrosso alimentari, dettaglio alimentari, produzione
alimentari, impianti alimentari, produzione macchine alimentari
se io scrivessi impiant sul campo escludi1, macchin sul campo escludi2, la
query dovrebbe darmi solo i dati in cui c'è scritto Ingrosso alimentari,
dettaglio alimentari, produzione alimentari escludento impianti
alimentari, macchine alimentari
spero di essere sta chiara nel chiedervi... come cavolo modifico la query
sopra in modo da avere il risultato voluto??
-- 
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:c21hec$lo$1...@news.newsland.it...

Prova a scrivere la WHERE in questa maniera:
WHERE (((Nominativi.Attivita) Like ("*" & [Forms]![Ricerche]![Attivita] &
"*")) AND ((Nominativi.Attivita) Not Like ("*" &
[Forms]![Ricerche]![escludi1] & "*")) AND ((Nominativi.Attivita) Not Like
("*" & [Forms]![Ricerche]![escludi2] & "*")) AND ((Nominativi.Attivita) Not
Like ("*" & [Forms]![Ricerche]![escludi3] & "*")) AND
((qry_prov_reg.Regione) Like ("*" & [Forms]![Ricerche]![Regione1] & "*") Or
(qry_prov_reg.Regione) Like ("*" & [Forms]![Ricerche]![Regione2] & "*") Or
(qry_prov_reg.Regione) Like ("*" & [Forms]![Ricerche]![Regione3] & "*")))
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Sei un amore
funzia tutto come volevo io
thanks
Roberto da casa ha scritto:



-- 
questo articolo e` stato inviato via web dal servizio gratuito 

Newsgroup: it.comp.appl.access
Titolo: Anteprima report controllo zoom

Vorrei sapere se è possibile controllare il livello di zoom nell'anteprima 
dei report.
In una installazione di Access 2002 ho riscontrato che adotta come standard 
"Adatta" ed io vorrei impostare "100%".
Ho dato una prima occhiata ai post e al sito comune e non sono riuscito a 
trovare ma magari ho cercato male...
Come al solito ... grazie anticipatamente.
Ignazio Pinna 

 wrote in message
news:C9%od.210808$
b5.10...@news3.tin.it

Vedi l'uso di Runcommand
DoCmd.RunCommand acCmdZoom25
DoCmd.RunCommand acCmdZoom75
DoCmd.RunCommand acCmdZoom100
 
Ecc....!!!
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

In alternativa all'uso di Runcommand lo si può gestire via codice così:
Reports(Nomereport).ZoomControl=valore
Non è un metodo documentato ma Funziona....!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Velocità assegnazione proprietà

Utilizzo questo codice sull'apertura di alcune maschere per impostare il numero dei decimali e il controllo di validità. 
Dopo aver fatto dei test ho scoperto che è proprio questa funzione che rallenta l'apertura della maschera ma, stranamente, solo se il BE è in rete su un altro pc.
Lo stano è che le proprietà riguardano il FE che è in locale e il BE non deve avere influenza. Invece se anche il BE è locale l'apertura è veloce.
Addirittura con un Pentium 133 passa un decimo di seconto per ogni textBox, per cui 50 textBox = 5 secondi .........
Public Function DecFrm(Frm As Form)
    Dim ctl As Control
    For Each ctl In Frm.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
                    ctl.DecimalPlaces = 2
                    ctl.ValidationRule = "Fix(" & Chr(34) & Chr(34) & " & " & ctl.Name & "*100/100"
            End Select
        End If
    Next
End Function
-- 
Ciao, Sandrobi

 wrote in message
news:d7uze.5944$
QV1....@twister2.libero.it

Prova così:
Public Function DecFrm(Frm As Form)
     Dim ctl As Control
     For Each ctl In Frm.Controls
         If ctl.ControlType = acTextBox Or ctl.ControlType=acComboBox
Then
                     ctl.DecimalPlaces = 2
                     ctl.ValidationRule = "Fix(" & Chr(34) & Chr(34) & "
& " & ctl.Name & "*100/100"
         End If
     Next
End Function
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Scusate l'ulteriore cantonata che ho preso questi giorni:
Nel mio codice, al posto di 2 come assegnazione di ctl.DecimalPlaces ho una funzione Decimali che legge il numero dei decimali da una tabella del Database: quindi ciò che rallenta è la lettura sul Database in rete ad ogni controllo presente. 
Mi sembrava un dettaglio non rilevante per rendere più leggibile il codice invece era essenziale!
Per condividere esperienze, comunico al NG che:
- ho risolto assegnando la funzione ad una variabile prima del For, e quindi accedo al BE una sola volta
- le due sintassi richiedono lo stesso tempo di esecuzione.
Ciao
Sandrobi
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento di una maschera

ho una classica maschera principale con vari campi all'interno
dopo che apro varie form collegate devo riaggiornare la maschera principale
per adesso uso un semplice trucco (probabilmente per voi assurdo) che
consiste nel usare una macro dove vado al record precedente e poi a quello
successivo
logicamente se la maschera e' carica di dati questo diventa lento
esiste una stringa che mi possa dare un effetto di aggiornamento totale
della mia maschera ?
attualmente ho dei controlli sulla maschera
su corrente
su caricamento
e poi su alcune caselle di testo all'interno della maschera dove in funzione
di valori possono aggiornare altre caselle di testo o rendere visibile o non
visibile etichette di testo
2° domanda in vba come faccio a cambiare il colore di fondo di casella di
testo da bianco ad un colore xyz ?
grazie ancora

 ha scritto nel messaggio 
news:BrmZd.1653$qi3...@tornado.fastwebnet.it...

Forms!TuoNomeForms.Refresh
Forms!TuoNomeForms!TuoNomeControllo.BackColor = 255
Per un appproccio ai colori comincia a leggerti la Funzione RGB [RGB(red, 
green, blue)]; si possono anche usare i valori che compaiono nelle proprietà 
del controllo alla voce "Colore Sfondo".
Ciao, Carlo

 ti ringrazio Carlo

Newsgroup: it.comp.appl.access
Titolo: Parametri Avvio

Ciao a tutti,
solitamente modifico i parametri di avvio disabilitando le voci
: -Visualizza finestra database; -Menu completi ; -Menu di scelta rapida
predefiniti
cosě facendo riesco a prevenire eventuali disastri da parte di utenti poco
esperti. Il problema č che ho bisogno di rimuovere la password e fare altre
modifiche ad un db cosě configurato, sapreste dirmi se il processo č
reversibile e quindi posso riabilitare i menu.
Grazie, Ale

potresti aprire il db tenendo premuto il tasto shift, così facendo si
apre senza attivare nessuna delle impostazioni sopra settate e non
avvia nessuna maschera in apertura del db e non viene eseguita nemmeno
l'eventuale macro col nome autoexec.
ciao
AndreaPapi



 ha scritto nel messaggio
news:1135199184.9...@g49g2000cwa.googlegroups.com...
potresti aprire il db tenendo premuto il tasto shift, cosě facendo si

Newsgroup: it.comp.appl.access
Titolo: Grafico

Un saluto a tutti.
Sono un principiante e ringrazio in anticipo chi potrą essermi d'aiuto su
questo quesito :
E' possibile costruire un grafico, con i valori contenuti in alcune caselle
di testo di una maschera (es. b1, b2, ecc)??
Milo


Per esempio come si fa in Excel?
In Access, che io sappia, non si può.
Forse utilizzando Excel come server OLE...o ricorrendo alle API.
I grafici in Access usano raggruppare i dati come nelle query a campi
incrociati.
Ciao, Carlo