mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Access 2000, problema con .RowSource

Allora spiego la situazione:
ho una maschera con 2 caselle di riepilogo A e B, ed un pulsante P
il contenuto dell c.d.r. B dipende dal valore selezionato in A
quando premo il pulsante P accade questo:
cambio il RowSource di A, per visualizzare altri dati... in pratica:
Me!A.RowSource="altra query"
Me!A.SetFocus
Me!A.selected(1)=True                                     cosi' mi
seleziona il primo elemento
Me!B.rieseguiquery                      che dovrebbe aggiornare il
contenuto di B in base alla nuova riga(proveniente da "altra query")
selezionata i A
Invece B on mi si aggiorna....
lavorandoci un po ho visto che il problema nasce dopo che cambio la
RowSource di A, se non lo faccio funziona tutto bene.
Mi chiedo quindi se dopo che facio cambio una RowSource ad una c.d.r.
devo fare qualche specie di reset o non so cosa, perchè evidentemente
qualcosa resta 'sputtanato'
infatti se dopo aver fatto
Me!A.selected(1)=True
faccio, ad esempio,
Me!B.setFocus
mi da un errore e dice che non può dare il focus a B (ne a qualunque
altro oggetto sulla stessa maschera)
se invece non faccio cambio il RowSource di A, anche il setfocus torna
a funzionare a dovere.
Chi mi da una mano?
Non è bello avere 2 tabelle con dei dati incoerenti.... :-((((
Ciao, Max

Ma in B passi tu il RowSource o lo hai già con una query costruita a cui
assegni il valore di A nei criteri?
Se sei nel secondo caso dovresti provare a cambiare il Rowsource di B quando
cambi quello di A, mi spiego meglio
A.rowsource="Altra Query..."
B.rowsource="Select * from <tabella> where <campo>=" & [A]
cosi' non dovrebbe dar pie' problemi.
Ciao
<LuigI>
MarcoMax <p...@papapa.pupupu> wrote in message
38c51e57...@news.tin.it...


Ciao
si, sono nel secondo caso... ho provato pure quello, ma non funge...
è come se cambiando il rowsource di A si sputtanasse qualcosa in
access.... boh...
grassie comunque
ciao, Max



Usa un metodo più laborioso e forse meno corretto che però
funziona a dovere:
crea due query distinte
sul click di "P" verifica qual'è la query usata come rowsource
ed attiva l'altra.

ed attiva l'altra.
mmm.... io ho 2 query distinte, che vado a mettere (o una o l'altra)
come rowsource... mi sa che non ho mica capito il tuo consiglio... :-?
Holman
Newsgroup: it.comp.appl.access
Titolo: DoCmd.TransferDatabase...

Salve a tutti,
il mio intento è quello di esportare una tabella del database corrente in un
.dbf  formato dBase IV.
Ho usato la sintassi seguente, ma ricevo sempre il messaggio di "invalid
path C:\esempio.dbf". Ho provato a cambiare percorso, ma con lo stesso
risultato... mi sembra che la sintassi del comando sia corretta, qualcuno ha
qualche idea del perchè ciò possa accadere?
DoCmd.TransferDatabase acExport, "dBase IV", "C:\esempio.dbf", acTable,
"esempio", "esempio"
    Mauro

     Mauro
Prova cosě:
DoCmd.TransferDatabase acExport, "dBase IV", "Percorso dove salvare i dati,
ovvero le directory", acTable, "esempio", "esempio"
Ciao
  Old-Jack

 wrote in message
news:WZBs8.5893$SR5.1...@twister1.libero.it...


 vada lo rinomino poi, perň...
Ciao Mauro, scrivi dopo il quoting....
Ecco il comando:
DoCmd.TransferDatabase acExport, "dBase IV", "Percorso dove salvare i dati,
ovvero le directory", acTable, "nome tabella da esportare", "nome da
attribuire"
Ciao
   Old-Jack
Newsgroup: it.comp.appl.access
Titolo: tasto shift

Ciao a tutto il ng, ho la necessità di disabilitare il tasto in oggetto. Ho 
utilizzato il codice prelevato dal sito comune, ma non funziona. In fase di 
debug mi dice che c'è un errore di compilazione su questa riga:
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    Else
sembra non riconosca la funzione ChangeProperty ???
 Grazie a tutti.
    QUESTO E' IL CODICE CHE HO USATO:
Dim stLinkCriteria As String
Dim strinput as String
Dim strMsg as String
Dim domanda as String
Dim messaggio as String
Dim intopzioni as Integer
    strinput = InputBox("Inserire una password valida.")
    strMsg = "Password corretta"
        ' Prova il valore di input utente.
        If strinput = "password" Then
    On Error Resume Next
    domanda = InputBox("Chiudere il database?")
        Const DB_Boolean As Long = 1
    If domanda = "Apri" Then
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    Else
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    End If
            Else
          intopzioni = vbCritical
messaggio = "La password immessa è ERRATA."
byscelta = MsgBox(messaggio, intopzioni)
DoCmd.Quit 

 ha scritto nel messaggio 
news:WLUve.24032$D7.6...@twister1.libero.it...

Ti manca la funzione che dovrebbe risiedere in un modulo pubblico:
Function ChangeProperty(strPropName As String, varPropType As Variant, 
varPropValue As
Variant) As Integer
    Dim Dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set Dbs = CurrentDb
    On Error GoTo Change_Err
    Dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = Dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        Dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function
Ciao, Carlo 


cut
Questo link può aiutarti:
http://www.masterdrive.it/forum/forum_posts.asp?TID=1826&PN=1&get=last
Ciao, Carlo 

 ha scritto nel 
messaggio news:6u9we.9378$h5.5...@news3.tin.it...

si, c'ho messo due giorni ma alla fine sono arrivato alla stessa tua 
conclusione, mancava proprio questo codice pubblico.
Grazie Carlo, grazie davvero.

Newsgroup: it.comp.appl.access
Titolo: Logica di Access

Siccome uso Access a mo' di apprendista stregone, tipo
prova-e-sbaglia, vorrei seriamente capire qc del
funzionamento interno di Access, c'e' qualche testo un po'
serio che me lo spiega?
il barbi

 ha scritto nel messaggio
news:3F9Ba.8278$pR3.1...@news1.tin.it...

Sito comune, sezione libri...
Newsgroup: it.comp.appl.access
Titolo: sulle query

Perdonatemi la domanda, magari la risposta è banale e si può trovare sul
manuale. Ho questo problema, una tabella con vari dati, in una colonna ho
una serie di date (scusate il gioco di parole). E' possibile fare in modo
che il programma chieda all'utente da quando a quando interessa una certa
serie di dati e visualizzare un report solo per quell'intervallo di tempo ?
Pensavo a una query o qualcosa del genere in cui fosse l'utente che volta
per volta ne "costruisce" la struttura facendo in modo che il prgramma
"faccia delle domande" e poi le risposte siano usate come parametri da
utilizzare nella query.
Non so se mi sono spiegato, nel mio caso si tratta di una serie di dati
riguardanti dei macchinari industriali che hanno bisogno di una certa
manutenzione nel tempo. Sarebbe importante appunto far vedere all'utente in
un determinato intervallo di tempo  ( dal 15 marzo 2000 al 15 maggio ad
esempio) quali lavori sono stati fatti, su quali macchine, da quali ditte
ecc... il problema è che dev'essere l'utente a decidere l'intervallo a suo
piacimento.
Ciao, Valentino

 ha scritto nel messaggio
news:5Yp66.2310$eB2.2...@news.infostrada.it...


 ha scritto nel messaggio
news:93daed$77a$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:1Mq66.1$U3...@twister2.tin.it...

Se tra tutti riusciste a scrivere dopo i messaggi precedenti, ci fareste un
piacere.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Newsgroup: it.comp.appl.access
Titolo: Apici nei dati

Salve a tutti,
come posso evitare l'errore che incontro utilizzando una funzione di 
ricerca tipo:
intID = DLookup("PersonaID", "Persone", "Cognome='" & 
Me.ctlCognomeCercato & "'")
dove ctlCognomeCercato ï¿œ una casella di testo contenente il cognome da 
cercare e oggetto della ricerca ï¿œ un cognome che contiene un accento 
realizzato con un'apice come ad esempio COME' oppure DAME' ecc...
Grazie per la vostra attenzione e buona serata.

 Grazie per la vostra attenzione e buona serata.
Vedi nell'help la funzione Replace

 Vedi nell'help la funzione Replace
Grazie
Newsgroup: it.comp.appl.access
Titolo: scadenza fine mese

Ciao NG, ecco il mio problema ho una tabella con i campi: Data - Mesi - 
Scadenza. Vorrei che inserita la Data e i Mesi, la Scadenza mi visualizzi la 
fine del mese Data + Mesi ad esempio:
Data                Mesi        Scadenza
20/09/2004        3                31/12/2005
01/11/2004        4                31/04/2005 

 wrote in message 
news:Myyed.77820$b5.37...@news3.tin.it...

DateSerial(Year(Data), Month(Data) + n + 1, 0)
Dove n č il numero in mesi del differimento.
Ciao
Bruno
PS
Sempre che in
Dim Data As Date
la variabile Data non sia una reserved word
nell'eventuale versione italiana di Access che tu stia usando.
Se cosě fosse cambiala. 

 ha scritto nel messaggio 
news:Myyed.77820$b5.37...@news3.tin.it...

per aggiungere il numero dei mesi a data usi dateadd
scadenza=dateadd("m",data,mesi) vedi help
mentre poi per calcolare l'ultimo giorno
scadenza = DateSerial(Year(scadenza), Month(scadenza) + 1, 0)
fammi sapere se funziona
ciao. simba883

 ha scritto nel messaggio 
news:Myyed.77820$b5.37...@news3.tin.it...

per aggiungere il numero dei mesi a data usi dateadd

Newsgroup: it.comp.appl.access
Titolo: Stampa Unione

Riprendendo la funzione sul Sito Comune ed un Support Microsoft
ho costruito questa Sub per l'apertura di un documento nuovo di Word'97
con le opzioni sull'origine dati in stampa unione già impostate.
Il problema che si presenta è pero' il seguente:
se lancio la funzione con l'applicativo privo delle opzioni del menu' avvio
tutto funziona bene
se l'applicativo parte con le opzioni in avvio La funzione apre altre
sessioni di Access '97. Qualcuno sà indicarmi xchè?
Grazie Giulio
Sub prn_word()
Dim WordApp As Object
Dim WordDoc As Object
On Error Resume Next
'On Error GoTo 0
'Trova Word Aperto
Set WordApp = GetObject(, "Word.Application")
If Err.Number = 429 Then 'Word non è aperto
    Set WordApp = GetObject("", "Word.Application")
    Err.Number = 0
End If
On Error GoTo Errore
Set WordDoc = WordApp.Documents.Add()
WordDoc.MailMerge.OpenDataSource _
                        Name:=CurrentDb.Name, _
                        LINKTOSOURCE:=True, _
                        SQLStatement:="SELECT * FROM GENERI"
With WordApp
    .Visible = True
    .Activate
End With
Esci:
Set WordDoc = Nothing
Set WordApp = Nothing
Exit Sub
Errore:
    MsgBox Err.Number & " - " & Err.Description
    GoTo Esci
End Sub

(Ho cancellato il mess. precedente xchè il server riscontrava troppi
caratteri)
Mi faccio domande e risposte..... spero che almeno possano essere
utili:
Ho trovato il Gap.... stà nel titolo dell'applicazione
se lo tolgo dalle opzioni di avvio tutto funziona bene....
su 
www.mvps.org
 c'è una possibile soluzione, ma
ancora non ho provato se và....
Scusate di nuovo.
Giulio

 Grazie Giulio
elimina il titolo dell'applicazione.
oppure, se proprio lo vuoi il titolo, prima di lanciare word eliminalo e poi lo
rimetti
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

Ho tolto il titolo e finchč non creo l'mde tutto molto bene.
Quando creo l'mde ,č la fine... :o(
Mi chiede con quali caratteri sono delimitati i campi della query da
esportare,
Word mi compare senza nessuna barra e inoltre i dati
estratti sono illeggibili......
xchč?

 xchè?
Putroppo credo sia un bug dell'automazione.
Per bypassare il problema, ti basta rinominare l'mde in mdb, cioe' dopo che hai
creato pippo.mde rinominalo in pippo.mdb, ho provato e funziona.
Attenzione salva l'originale da qualche parte. :-)


 Federico
Grazie Federico....
hai ragione.... funziona semplicemente facendo un cambio di estensione..
Per scampare al problema potrei installare l'applicativo mde
come mdb, ma mi sembra un po' scomodo... forse mi lancero' nell'esportazione
della query lasciando agli utenti l'ingrato compito di Stampa Unione...
Alla prox... ;o))
e complimenti.
Giulio
Newsgroup: it.comp.appl.access
Titolo: relink table

salve , posto il mio problema  in un riallaccio di tabelle odbc in una
maschera ho inserito un pulsante questo e la parte del codice che mi
crea problemi
Do Until nameRst.EOF
    nameTbl = nameRst!Table
    DoCmd.TransferDatabase acLink, "Database ODBC", _
    "ODBC;DSN=connessione;UID=pippo;PWD=baudo;DATABASE=" &
Me.name_db.Value & ";" _
mi spiego meglio se da codice scrivo i dati ad esempio
dns=connessione; uid=pippo ecc ecc
funziona tutto alla perfezione se pero volessi che i dati li rileva da
una tabella , intendo il dns password e uid mi da errore .Ho provato a
inserire una
Dim conn as variant
conn= DLookup("conn", "server")
e sostituire la stringa con dns=conn,...
ma non funziona mi dice errore: ODBC:connessione a 'conn' non riuscita
dove sbaglio?

lolince ha scritto:

E' sconsigliato questo metodo per linkere le tabelle.
Usa invece le proprietà connect di tabledef
Nicky


Grazie nicoletta per il consiglio , cmq per un mio discorso personale
vorrei capire dove sbaglio

 vorrei capire dove sbaglio
Beh, salva la tua stringa in una variabile e debugga per vedere 
effettivamente cosa vale e usa la variabile in luogo della stringa 
stessa e comunque riporta anche che errore ti d� la prima istruzione
Nicky
Newsgroup: it.comp.appl.access
Titolo: Recordset DAO

Mi era venuto un dubbio:
Mettiamo che utilizzo DAO per inserire un record in una tabella...
e viene gestito tramite:
Dim rst as DAO.Recordset
Set rst = CurrentDb.OpenRecordset(NomedellaTabella)
rst.addnew
rst!Ditta = Me.Ditta
rst.close
Set rst = nothing
Ma...ponendo che l'applicazione venga usata in multiutenza (quindi il DB
viene condiviso con altri PC), se io apro il recordset sulla tabella non
succederà mica che finchè il recordset non viene chiuso (rst.close)
dall'utente che lo ha aperto nessun altro utente può aprire un recordset
sulla tabella (nel senso che la tabella viene "bloccata") ?????

 ha scritto nel messaggio
news:SYNH9.61811$2B1.1...@twister2.libero.it...

Intanto senza UPDATE non succede nulla, poi leggi bene il METODO
OpenRecordset e l'opzione LookType......!!!
@Alex

 sulla tabella (nel senso che la tabella viene "bloccata") ?????
Oltre a quanto ti fa giustamente notare Alex,
secondo te, database multiutente, cosa vuol dire?
Sib
Newsgroup: it.comp.appl.access
Titolo: Dichiarazione database con Access 2000





Ho due database Access 2000: uno l'ho creato 
convertendo un database Access 97e l'altro che sto' costruendo da zero. Nel 
primo sono presenti delle variabili di tipo database e vengono accettate da 
Access 2000 facendo girare il codice e dando l'output desiderato; nel secondo 
non riesco a dichiarare una variabile "dbs" in quanto non esiste il tipo 
database... ed anche se forso la dichiarazione (scrivendo manulamente "dim dbs 
as database") in sede di compilazione mi da' errore.


Come mai queste differenze? Come è possibile che in 
un db sia possibile utilizzare un tipo di variabile e in un altro no? Dove 
sbaglio?


 


Grazie bb



 ha scritto nel messaggio
news:000a01c0de54$f60a8e80$d7da623e@nirvana...
Ho due database Access 2000: uno l'ho creato convertendo un database Access
97e l'altro che sto' costruendo da zero. Nel primo sono presenti delle
variabili di tipo database e vengono accettate da Access 2000 facendo girare
il codice e dando l'output desiderato; nel secondo non riesco a dichiarare
una variabile "dbs" in quanto non esiste il tipo database... ed anche se
forso la dichiarazione (scrivendo manulamente "dim dbs as database") in sede
di compilazione mi da' errore.
Come mai queste differenze? Come č possibile che in un db sia possibile
utilizzare un tipo di variabile e in un altro no? Dove sbaglio?
Suppongo dipenda dai riverimenti, prova ad andare in Strumenti->Riferimenti
ed a selezionare Microsoft DAO 3.60 o quello che č...
considera anche che l'AxtiveX data object library definisce molti oggetti
con lo stesso nome del DAO, ma con definizioni diverse, che quindi non sono
compatibili.... quindi od usi una sintassi tipo
dim dbs as dao.databases
dim dbs as adodb.databases
oppure se scrivi solo
dim dbs as databases
devi impostare nei riferimenti ad un livello piů alto quello che vuoi abbia
la precedenza come default (ad esempio sposta il riferimento a DAO sopra
quello ad ActiveX per dagli la precedenza)
Altrimenti rischi di trovarti ad eseguire dei metodi che poi danno degli
errori che non capisci... perche magari esegue quelli dell'ADODB piuttosto
che quelli del DAO che volevi tu.
Max
Newsgroup: it.comp.appl.access
Titolo: Elenco mesi

Buongiorno
oggi il mio problemino è il seguente:
Ho una tabella contenente ordini ricevuti da clienti.
Prendo in esame un solo cliente tramite una query.
Il cliente in questione non ordina ogni mese e pertanto il risultato
dovrebbe essere il seguente:
01    02    03    04    05    ---------etc
100    -        -    100    -     ---------etc
Invece dalla query a campi incrociati il risultato che ottengo è:
01    04    ------etc
100  100 -------etc
saltando completamente i mesi che non hanno ordini (02 - 03 - 05 ----etc)
Questo mi comporta problemi durante la stesura del report che comprende 12
caselle (uno per cada mese)
C'è una soluzione che mi consenta di superare questo problema ?
Grazie
Luigi

 ha scritto nel messaggio
news:uuCda.24096$Lr4.7...@twister2.libero.it...

Prova così:
crei una tabella contente i campi:
cliente
gennaio
.
.
.
.
dicembre
[e altri campi che ti possono servire (vedi totali, ecc)]
po con una query di accodamento o di aggiornamento inserisci i dati degli
ordini nei campi dei relativi mesi..
spero di essere stato almeno un po' chiaro :-)

 ha scritto nel messaggio
news:uuCda.24096$Lr4.7...@twister2.libero.it...


ahahaha:-)))))))
userò questo sistema...se funziona ottengo due risultati :-)
Ciao
Luigi

 ha scritto nel messaggio
news:uuCda.24096$Lr4.7...@twister2.libero.it...

Devi impostare adeguatamente la proprietà Intestazioni colonne della query a
campi incrociati (vedi help).
Se nella proprietà Intestazioni colonne scrivi:
01;02;03;04;05;06;07;08;09;10;11;12
la query a camoi incrociati avrà sempre 12 colonne a prescindere da quali
siano i mesi in cui il tuo cliente ha emesso ordini.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Molte grazie Roberto ..funziona tutto OK
Luigi
Newsgroup: it.comp.appl.access
Titolo: SQL su tabella

Salve a tutti,
ho una tabella così:
person_fk   num_fk    erfullt     datum	    Bemerkungen
1	       1	Sì
1	       2	Sì
1	       3	Sì
1	       4	No
1	       5	No
1	       6	No
Adesso io necessito di trovare i person_fk che hanno
l'erfullt=Sì e num_fk=1 e num_fk=2.
è possibile?
devo trovare le persone(person_fk) che hanno a "Sì" certi numeri
(num_fk), ma non che abbiano il num_fk a 1 o a 2, ma che li abbino
entrambi..
Select person_fk
from tabella
where erfullt=true
and num_fk=1
and num_fk=2
Chiaramente non funziona, ma concettualmente é quello che vorrei
fare...
Qualcuno mi indirizza?
grazie

Qualcuno mi indirizza?
Ciao ,
prova cosě
----
Select *
from tabella
where erfullt=true
and num_fk IN (1,2)
----
Ciao Giorgio

Grazie della risposta......
ma in questo modo mi ritorna anche se la persona ha solo num_fk=1 con
erfullt=true........
in poche parole ho bisogno che mi prenda le persone che hanno sia
num_fk=1 che num_fk=2 chiaramente con erfullt=true......

 ha scritto nel messaggio
news:1129034953....@z14g2000cwz.googlegroups.com...

forse ho capito,
vedi se cosě puo andare, con questi dati
----
1        1 Sě
1        2 Sě
1        3 Sě
1        4 No
1        5 No
1        6 No
2        0 Sě
2        1 Sě
2        3 Sě
2        4 No
2        5 No
2        6 No
----
questa query rende solo person_fk=1
----
Select person_fk
from tabella
where erfullt=true
and num_fk IN (1,2)
group By  person_fk
having Count(*)=2
----
per funzionare bene person_fk+num_fk devono essere univoci
Ciao Giorgio

Sei furbo.......
si così funziona.........
la primary key è (person_fk+num_fk)
Grazie mille
Newsgroup: it.comp.appl.access
Titolo: Select top

Un saluto a tutti.
Facendo "SELECT TOP 10 FROM miatab WHERE mioval > x ORDER BY miocampo DESC"
ho riscontrato il seguente problema: se ci sono più record che hanno lo
stesso valore di miocampo e si trovano dalla 10 posizione in poi, vengono
ciucciati tutti, fregandosene del TOP 10.
Vi risulta? Al momento ho risolto con un exit for visto che cmq devo
ciclarmi il recordset per altre ragioni.
Saluti.
Luciano

Ciao Luciano,

Sì certo. È il comportamente normale di TOP.
Citato dal <F1> di TOP:
*****
Il predicato TOP non effettua una scelta tra valori uguali.
Nell'esempio precedente, se la venticinquesima e la ventiseiesima
votazione media sono uguali, la query restituirà 26 record.
*****
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 


Ciao Luciano tutto bene...?
Si quanto dici è vero...
Tuttavia non credo che la sintassi SQL che hai indicato con JET possa
funzionare... non hai messo alcun campo dopo il TOP...
SELECT TOP 10 * FROM T1 WHERE mioval > x ORDER BY miocampo DESC
Se invece non metti l'ordinamento vedrai che il risultato è come dici...
questo potrebbe significare
che usando una Tabella derivata potresti risolvere così ma verifica i
dati...:
SELECT TOP 10 *
FROM
    (SELECT *
     FROM T1
     WHERE ID=0
     ORDER BY 
T1.ID
) AS TTEM
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 dati...:
Funziona, ma nel mio caso specifico tanto vale lasciare l'exit for. Buono a
sapersi cmq.
Grazie anche a Karl.
Saluti.
Luciano
Newsgroup: it.comp.appl.access
Titolo: Report per listino con immagini diverse

Devo creare un report per il nostro listino.Il listino dovrebbe essere
suddiviso per tipo di articolo e per marca
Per esempio Rex Lavatrici, Rex Lavastovigile, Rex Forno, Rex Cucina, San
Giorgio Lavatrici, San Giorgio Lavastovigile, San Giorgio Forno, San Giogrio
Cucine, etc etc
Vorrei che fossero ragruppati in pagine, cioč quando iniziano le
lavastoviglie Rex deve iniziare una nuova pagina, quando inziano i forni Rex
un'altra pagina e cosě via.
Inoltre vorrei che nelle pagine delle lavatrici ci sia il disegnino della
lavatrice, in quelle dei forni il disegnino dei forni e cosě via.
Come posso fare?
Il problema grosso č fargli iniziare una nuova pagina quando cambia il tipo
di oggetto.
ciao e grazie
Luca

 ha scritto nel messaggio
news:bgr8kp$igo$1...@newsreader.mailgate.org...

Se non hai giŕ impostato la stampa, o se il lavoro per regolare tutte le
dimensioni dei campi non č stato molto, ti consiglio di creare un report
nuovo usando l'autocomposizione.
Diversamente, dalla modalitŕ struttura della tua stampa, dal menu
Visualizza, scegli 'Ordinamento e raggruppamento'.
A quel punto ti scegli il/i campi su cui ordinare/raggruppare i record da
stampare, con tutte le varie opzioni.
A tal proposito per ogni singola voce vedi l'help.
Ciao.

 Luca
Se hai già fatto un record raggruppato per marca e articolo, nella
struttura avrai già un'intestazione di gruppo (per esempio
"IntestazioneMarca"), altrimenti dovrai aggiungerla su "Ordinamento e
raggruppamento".
Poi vai nella scheda delle proprietà dell'intestazione. Nella sezione
"Formato" vedrai che la prima riga "Interruzione pagina", se impostata su
"Prima di sezione" ti consente di far iniziare ogni sezione su una nuova
pagina.
Per maggiori informazioni metti il cursore nella casella "Interruzione
pagina" e premi F1 per aprire la guida in linea.
Saluti.
Namor
* * * RISPETTA L'AMBIENTE * * *
Questo messaggio è stato inviato 
usando solo elettroni riciclati al 100%!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> Se hai già fatto un record raggruppato per marca e articolo, nella
Scusa, se hai già fatto un REPORT raggruppato per marca e articolo, non un
record!
Namor


 pagina" e premi F1 per aprire la guida in linea.
Grazie, ho provato e funziona bene.
Adesso vedo per le immagini associate al tipo di oggetto.
ciao
Luca
Newsgroup: it.comp.appl.access
Titolo: Invio E-Mail formato Html (attraverso client Outlook o...)

Ciao
Mi son letto un p� di info in giro per il web
Ma non ho trovato una soluzione per l'invio di 1 mail:
- tramite outlook (ma potrebbe essere anche thunderbird, serve che resti 
memorizzata nella posta inviata)
- formato html
Possibile che si debba per forza rinunciare a qualcosa?
Non esiste una versione di MAPI aggiornata?
Grazie
Ciao 

> serve che resti memorizzata nella posta inviata
E perchè non nella posta in arrivo?
Ne invii una anche all'utente Access così almeno sei sicuro che sia
partita e arrivata
poi con una regola te l'archivi dove e come vuoi nel client di posta
Cmq qui trovi degli esempi che fanno al tuo caso senza necessariamente
avere un client di posta installato,
cosa che può capitare su alcune macchine.
http://groups.google.com/group/microsoft.public.it.office.access/browse_thread/thread/d490bc365ce9ea90
http://www.paulsadowski.com/WSH/cdo.htm
Ciao
Alex

Newsgroup: it.comp.appl.access
Titolo: Funzione COUNT(*)

Vorrei che mi restituisse il valore 0 quando non trova nulla, invece, se non
trova record corrispondenti ai criteri mi salta il conteggio di quel record,
come devo fare?
Grazie mille

"Ghepardo" <pippocalippo@TOGLI QUESTA PARTEtiscalinet.it> ha scritto nel
messaggio news:8G609.141876$vm5.4...@news2.tin.it...

Puoi ripetere in maniera piů chiara?
Antonio

"Ghepardo" <pippocalippo@TOGLI QUESTA PARTEtiscalinet.it> ha scritto nel
messaggio news:8G609.141876$vm5.4...@news2.tin.it...

guarda la funzione nz() sui record da conteggiare
ciao MAssimiliano

> Puoi ripetere in maniera pių chiara?
Ho una tabella con i risultati delle partite e voglio fare una query che mi
dia la classifica quindi voglio conteggiare il numero di vittorie, di
pareggi e di sconfitte. Ho fatto una query che conta il numero di vittorie,
una che conta i pareggi e una che conta le sconfitte. Adesso ne devo fare
una che riepiloga vittorie, sconfitte e pareggi ma se, ad esempio, il Milan
non ha mai pareggiato e quindi non compare nella tabella pareggi, non
comparirā nemmeno nella tabella di riepilogo. Per questo motivo vorrei che
nel conteggio dei pareggi del milan mi venisse visualizzato 0.
Spero di essermi chiarito.
Newsgroup: it.comp.appl.access
Titolo: Indice scomparso

Un mio programma, sviluppato in VB6 e che utilizza un archivio di MS
Access 97, dopo anni di onorato servizio ha presentato un grave errore:
uno degli indici delle numerose tabelle è letteralmente scomparso.
Ho dovuto reimmetterlo manualmente !
La funzione CompactDatabase e nemmeno l'utility della Microsoft "Database
Compact Utility 4.0" non sono state in grado di riparare il guasto.
Fornisco qualche elemento in più per poter orientare meglio chi vorrà
(saprà) rispondermi, essendo (non me lo auguro per lui) passato per
analoga esperienza.
1) Il programma. un EXE di circa 3 MB, è installato su 5 computer su una
LAN.
2) I sistemi operativi dei 5 computer variano da Win95, Win 98 e XP.
3) Recentemente sono stati fatti interventi alla LAN (sostituzione di cavi
e schede).
4) L'archivio (un MDB MS Access 97 di circa 25 MB) è costituito da una
ventina di tabelle, qualcuna delle quali dotata di indici multipli.
5) Il programma utilizza DAO con qualche controllo ADODC e DataGrid.
6) Il programma è frutto di successive trasformazioni, adattamenti ed
aggiornamenti alle normative via via vigenti. Inizialmente è stato
sviluppato in VB4, poi VB5 ed ora VB6 sp5. Sempre con DAO.
Il consiglio "passa ad ADO" o "passa a SQL Server" o "uniforma il sistema
operativo" non può essere preso in considerazione per l'onerosità che
comporterebbe tale modifica ed anche - soprattutto - perche', come già
detto, sostanzialmente il programma ha funzionato per numerosi anni senza
alcun inconveniente gestendo anche archivi di dimensioni ben superiori (34
MB ad esempio).
Grazie per l'attenzione.
Ugo Bottari
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 e schede).
STOP!
Guarda bene qui potrebbe risiedere il problema.
Cerca nei post precedenti (di solito sono lei Realtek che rompono... gli
indici.


 indici.
Molto consolante ! Facendo altre ricerche mi è sembrato di capire che il
mio è effettivamente un problema di rete.
Potresti però indicarmi gli estremi per cercare i post precedenti di cui
parli ?
Eppoi la tua è una battura (rompono gli indici) oppure effettivamente
l'inconveniente di cui si tratta riguarda solo ed esclusivamente gli
indici ? (a me pare improbabile che sia semplicemente così).
Grazie e ciao
Ugo


 ha scritto nel messaggio
news:br923k$4lg$1...@news.newsland.it...

Saltano anche record, oppure duplica record i valori contatore.
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: estrarre una cartella da un path e cancellarla

Ho una cartella temporanea in cui sono contenuti dei documenti.
 Da codice faccio aprire i documenti che mi interessano  e se vanno bene
li approvo e li sposto nella cartella "definitiva".
Quello che dovrei fare una volta spostati questi documenti è cancellare la
cartella temporanea e tutto il contenuto che rimane al suo interno.
Come dati di ingresso del problema in pratica ho il path di un file
Es: "c:\documenti\InApp\temp\file.doc"
Da questo voglio cancellare la cartella temp e il suo contenuto.
CIao E Grazie
Fra
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao francesco,
puoi usare WSH in questo caso è molto comodo ma pericoloso, ti cancella
tutta la cartella , i files contenuti in essa e le eventuali sottocartelle.
-------------------------
Sub CancellaDir(ByVal NomeFile As String)
Dim fso
Dim NomeFolder As String
Dim CancellaSubDir as Integer
'Ricavo il percorso della cartella
NomeFolder = Left(NomeFile, InStrRev(NomeFile, "\") - 1)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder (NomeFolder)
Set fso = Nothing
End Sub
--------------------------
Ciao Giorgio

 ha scritto nel
messaggio news:c3ouhl$85b$1...@lacerta.tiscalinet.it...

se non ricordo male c'è il comando kill,
vedi anche dir ...


ciao ciroteo,
certo, può cancellare uno ad uno i file con il comando Kill e dopo averla
svuotata rimuovere la cartella con il comando Rmdir. Se il file contenuto
nella cartella è uno solo e la cartella non ha sottocartelle questo metodo è
comodo e meno pericoloso di WSH.
Ciao Giorgio

Newsgroup: it.comp.appl.access
Titolo: velocita di esecuzione comandi in VBA (DAO)

ho una routine che inserisce i dati in un recordset (DAO)
che richiama per calcoli vari numerose function e routine varie
che prendono i dati da altre tabelle (per ora tutte recordsert di DAO)...
il tutto funziona solo che è estremamente lento ( per controllare circa 50 record ci vuole circa 3/5
minuti) .
(premetto che la macchina è un AMD Xp1800 con 256 MB di RAM)
non so se è dovuto al fatto che apro e chiudo continuamente la connessione al currentdb (questo l'ho
fatto per evitare in caso di errore non controllato che mi rimanga aperta la connessione)
o se l'oggetto recordset è lento da gestire...
so che no è un'ottimale spiegazione, ma avete consigli a riguardo per migliorare le prestazioni?

[cut]
Cosa fanno le numerose funzioni?
3/5 minuti sono un'enormità... anche per un 486...
Newsgroup: it.comp.appl.access
Titolo: grafica casella menù controllo

Premetto che non sono esperto delle API di Windows.
Cerco aiuto perchè vorrei poter impostare di default solo per la mia
applicazione le dimensioni ( e quindi anche il carattere) della casella
menù controllo che a quanto mi pare "eredita" quelle impostate sul OS.
Ovviamente metto in conto la possibilità di reimpostare quelle scelte
dall'utente alla chiusura dell'applicazione...
Suggerimenti? 
Grazie per l'aiuto
Beppe

Non ho capito.
@Alex

Nel OS viene definita la "Barra dei titoli attiva" o "Barra dei titoli
inattiva" con delle caratteristiche modificabili da parte dell'utente
tra cui la tipologia e  le dimensioni del carattere; quest'ultime
influenzano le dimensioni della barra stessa in termini di "altezza".
Ora, nella mia applicazione non sapendo quali siano le scelte
effettuate dall'utente vorrei poter predefinire queste caratteristiche,
salvo poi reimpostare quelle "originali" alla chiusura.
Il problema è aggirabile ovviamente se in Access non visualizzo quella
che è definita "casella menù controllo" e creo in struttura qualcosa
di simile, diciamo come intestazione della maschera.
Prima di continuare con questa strada preferisco vedere se c'è
l'alternativa attraverso l'uso delle API di windows (che mi sto
premurando di approfondire).
Spero di essere stato più chiaro.
Beppe





La moltiplicazione dei post è un mistero.
Scusatemi per lo spam ma non ne capisco la causa...
Beppe

Newsgroup: it.comp.appl.access
Titolo: Riportare tutto il testo in minuscolo tranne il carattere iniziale

Ciao a tutti e scusate la banalità,ma avrei necessita' in qualsiasi
campo testo di poter impostare tutto il testo scritto a
minuscolo,tranne il carattere iniziale. Es:
se scrivo ROSSI deve diventare Rossi.
ho impostato nella proprieta' del campo alla voce formato ">" ma mi
scrive tutto in minuscolo.
Grazie in anticipo Dino


Finalmente una domanda a cui posso dare una risposta. Anche io ho
avuto il tuo problema e grazie
all'NG ho risolto in questo modo:
Per avere tutte le prime lettere in maiuscolo e il resto in minuscolo
tipo Elena Rossi
ho inserito questa routine sull'evento dopo aggiornamento
Private Sub tuoCampo_AfterUpdate()
tuoCampo = StrConv(TuoCampo, vbProperCase)
End Sub
Per avere solo la prima lettera in maiuscolo e tutto il resto in
minuscolo tipo
Oggi è una bella giornata
ho inserito questa ruotine sull'evento dopo aggiornamento
Private Sub TuoCampo_AfterUpdate()
   TuoCampo = Format(Mid(TuoCampo, 1, 1), ">") & Format(Mid(TuoCampo,
2, Len(TuoCampo) - 1), "<")
End Sub

 Grazie in anticipo Dino
In modulo incolla questo codice:
Public Function FirstLetter(str As String)
FirstLetter = UCase(Left(str, 1)) & LCase(Right(str, Len(str) - 1))
End Function
Nell'evento Dopo Aggiornamento delle tue txtbox la richiami
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 > Ciao a tutti e scusate la banalità,ma avrei necessita' in qualsiasi

Grazie ad entrambi.funzionano tutte le soluzioni che mi avete proposto
Dino
Newsgroup: it.comp.appl.access
Titolo: Calendario.

Salve a tutti ...
Sapreste indicarmi come poter gestire (al meglio) un'agenda appuntamenti con
l'utilizzo di un calendario??.... Vorrei che i giorni della settimana
vengano selezionati automaticamente, quando si scelgono i giorni dal mese
interessato...
grazie anticipatamente
Paola.

 Paola.
Inanzitutto ciao, spero di darti delle info utili, 
anch'io ho avuto la tua stessa esigenza e l'ho risolta inserendo nella
maschera un CtlActiveX che si chiama MSCAL.Calendario.7. Basta assoviare
tale comando al tuo campo per la data e poi buon lavoro. 
Se ti serve qualche altra indicazione scrivimi all'e-mail:
david....@libero.it
ciao 
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup
Newsgroup: it.comp.appl.access
Titolo: Caselle Combinate

Buon Giorno Access 97
in Maschera MOVIMENTI ho due caselle combinate: CAS1 e CAS2
in CAS1 ho 3 colonne BANCA,  PREDEFINITO e ID
in CAS2 ho 3 colonne TIPO ATTIVITA', DESCRIZIONE e ID
come faccio a selezionare in automatico CAS2 cliccando su CAS1
Per esempio so che PREDEFINITO e legato ad un ID di CAS2 = 4
Grazie
Ciao
LUIGI

 ha scritto nel messaggio
news:FiPhb.263797$R32.8...@news2.tin.it...

Per vedere un esempio di come gestire in una maschera due caselle combinate
sincronizzate vai sul Sito Comune e dalla Sezione Forms fai il download del
database allegato alla FAQ intitolata "Esempi di utilizzo delle forms".
Apri il database scaricato e selezioana il Topic intitolato Syncronizing Two
Combo Boxes on a Form.
Pigiando il pulsante di comando Show Example ti verrà mostrato un esempio di
quello che ti serve.
Per avere maggiori rgguagli di come l'esempio è stato realizzato vai al
link:
http://support.microsoft.com/default.aspx?id=97624
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:6yPhb.28416$e6.9...@twister2.libero.it...

Una cosa un po' piu' semplice con istruzioni IF...non si puo'
Grazie

 ha scritto nel messaggio
news:iUPhb.263949$R32.8...@news2.tin.it...

Penso proprio di no.

Newsgroup: it.comp.appl.access
Titolo: Form con password

Ciao a tutti,
ho fatto un db con una form "servizio" contenente i comandi per salvataggio, 
restore e cancellazione delle tabelle.
Vorrei evitare che, nonostante i dovuti avvisi, qualcuno possa accedere 
facendo guai.
Ho pensato ad una passw, ma non saprei come fare; (sul sito comune avevo 
visto qualcosa del genere ma non la trovo piů).
Grazie a tutti
Antonio

 if inputbox("Le chiedo per cortesia di fornirmi la password") <> "xyz" 
then quit
--
ac

 ac
Approfitto per sfruttare anch'io questo suggerimento.
Ho provato a mettere DoCmd.CancelEvent al posto del Quit per evitare di 
chiudere il Db. Sostanzialmente funziona ma appare un messaggio con scritto: 
l'azione OpenForm è stata annullata
Se fosse possibile non vorrei vedere questo messaggio
Grazie in anticipo e saluti a tutti
  Gabriele 

Questo 3D è in CrossPost e sarebbe stato corretto almeno segnalarlo.
Saluti
@Alex

 ha scritto nel messaggio 
news:1145971343.1...@t31g2000cwb.googlegroups.com...
Questo 3D è in CrossPost e sarebbe stato corretto almeno segnalarlo.
Saluti
@Alex
Dal tenore della risposta arguisco il rimprovero per qualcosa di errato nel 
mio comportamento in questa sede; in tutta umiltà chiedo pubblicamente scusa 
e mi permetto di chiedere cosa sia il "CrossPost" in modo da evitare di 
rifare lo stesso errore in futuro.
Con affetto solidale,
Antonio

> ac
Grazie mille, funziona alla grande!
Cordialità
Antonio

Nessun rimprovero, solo che abitualmente non è di norma proporre
lo stesso argomento su NG contemporaneamente, tanto più che
i frequentatori della stessa area d'interesse sono sempre gli
stessi...!
Nel qual caso sia necessario pubblicare l'annuncio su differenti NG è
buona cosa
evidenziarlo in modo che gli interessati prendano atto.
Saluti
@Alex


Ciao Antonio
Il tuo non e' un vero e proprio crosspost. Il crosspost e' quando si 
invia lo stesso messaggio a piu' NG contemporanemante. Nel tuo caso, 
come da risposta di A. Baraldi, hai inviato lo stesso messaggio, sebbene 
separatamente, a due NG diversi. In questo caso sempre citando Alex e' 
buona norma avvisare. Mi spiego se tu avessi avvisato probabilmente 
sarei andato a vedere se gia' avevi avuto risposta su mpioa.
Per quanto riguarda la password. Come avrai notato, con la mia 
"semplice" soluzione, la password non viene mascherata. Se hai questa 
necessita' dovresi fare una piccola maschera da aprire acDialog e nel 
textbox di acquisizione impostare il formato "password". In questo modo 
il valore immesso non e' piu' visibile. Ovviamente esistono modalita' 
piu' complesse, e sicure, per gestire la situazione.
--
ac

 ha scritto nel messaggio 
news:444e8926$0$36927$4faf...@reader3.news.tin.it...

Grazie amici,
prendo atto dell'affettuoso richiamo.
ciao
antonio
Newsgroup: it.comp.appl.access
Titolo: Maschera di dialogo

Sto creando un indice con MSAccess che mi permetta di ricercare dei record
in base al contenuto di un campo (Parole chiave) in cui vengono inserite
più parole chiave. Nella query sottostante alla maschera che riepiloga i
record ho inserito un criterio che fa riferimento ad una maschera di
dialogo che vorrei utilizzare per inserire la parola da ricercare, ma no
funziona: nella maschera di dialogo ho imserito una casella di testo non
associata, un pulsante OK collegato ad una macro impostata ad azione
Imposta valore ma non funziona comunque: qualcuno può aiutarmi? Vorrei
ottenere un risultato simile a Trova File dal menù Avvio di Windows!
Grazie a tutti Albi
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:151Z39Z88Z201Y...@usenet.iol.it...

Se ho capito bene il tuo problema, prova ad andare nel  SitoComune (link qui
sotto), Sezione Forms, la FAQ intitolata "Filtrare una maschera in base a
una o più parole o frasi contenute all'interno di un suo controllo."
dovrebbe fare al caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

---------------------------------------------
Grazie mille Roberto!!!
Il
tuo suggerimento e il sitocomune mi hanno aiutato veramente molto ed ho
potuto imparare molte cose che non conoscevo sull'utilizzo delle routine
evento come alternativa alle macro!
Ora il mio indice funziona alla grande
e non resta che la fase più pallosa ovvero inserire tutti i dati :-((((
Saluti e auguri di buon anno a tutti quelli del NG!

Newsgroup: it.comp.appl.access
Titolo: Autokeys





Salve e Buon Ferragosto a tutti.


Dovrei assegnare, in maschere diverse, delle macro 
agli stessi tasti. Poichè "Autokeys" funziona su tutta l'applicazione, si può 
fare  e se si come ?


Grazie.Marco



 Grazie.Marco
Non inviare in formato HTML ....!
Puoi assegnare una Funzione alla macro Autokeys e nella funzione
discriminare la Form...!
Ad Esempio quì gestisci la combinazione ALT+F1 e nella Macro
scriverai: = KeyALT_F1()
' In un Modulo BAS
Function KeyALT_F1()
    Select case 
Screen.ActiveForm.Name
            Case "Maschera1"
                 MsgBox "Esegui Funzione 1"
            Case "Maschera2"
                 MsgBox "Esegui Funzione 2"
            'ecc.....
   End Selec
End Function
@Alex

 ha scritto nel messaggio 
news:1155554230....@b28g2000cwb.googlegroups.com...
Marco ha scritto:





@Alex
Grazie Alex , non mi ero accorto del formato HTML; in ogni caso, non essendo 
molto pratico di VBA, ho qualche difficoltà a capire il tuo suggerimento.
a) nella macro Autokeys ho inserito nel nome +{F1} e nella Azione 'Esegui 
Codice' =KeyALT_F1()
b) ho creato un modulo di questo tipo:
Function KeyALT_F1()
Select 
caseScreen.ActiveForm.Name
Case "Maschera1"
                                                                 (ho 
eliminato MsgBox quindi)
DoCmd.RunMacro "Macro1"
Case "Maschera2"
DoCmd.RunMacro "Macro2"
End Select
End Function
Non succede nulla ! E' tutto sbagliato, vero ?
Grazie per l'eventuale ulteriore aiuto. Ciao, Marco 

 Grazie per l'eventuale ulteriore aiuto. Ciao, Marco
Io i MsgBox li avrei tolti solo dopo aver avuto la certezza che
funzionava, li ho messi come
una sorta di Debug...!
Questa sera faccio una prova poi ti dico l'esito, a prima vista mi pare
tutto corretto....
Le macro magari puoi sostituirle con il codice equivalente.....!
@Alex

Alessandro Baraldi ha scritto:

Da me funziona... l'unica cosa che sbagli è che +{F1} non è ALT+F1
ma SHIFT+F1....!
Ciao
@Alex

Alessandro Baraldi ha scritto:
Da me funziona... l'unica cosa che sbagli è che +{F1} non è ALT+F1
ma SHIFT+F1....!
Ciao
@Alex
E' vero ! Ora è tutto OK.
Grazie, Alex.
Ciao, Marco
Newsgroup: it.comp.appl.access
Titolo: Query salvate e temporanee

Salve,
non sono mai riuscito ad usare le Query temporanee,
hanno la stessa potenza di quelle salvate ?
mi spiego: č possibile con le query temporanee creare una query su un'altra
query o fare il join tra di esse ?
Ungi

query o fare il join tra di esse ?
certo, vediti runsql e querydef sull'help
--
Lorenzo Coronati
--
<<Il materiale sul NG non č di particolare 
qualitą... cioč siti... magari in inglese in 
cui si possono trovare maggiori informazioni...>>
(Matteo Testoni, 24/05/2000)
--

Newsgroup: it.comp.appl.access
Titolo: Cattura dell'errore

Salve, come posso catturare un errore di duplicazione (3022) per poterlo
gestire?
Grazie
--
Massimo Coluzzi
colu...@tin.it
il sito comune di it.comp.appl.access:
www.sitocomune.com


Scusa Massimo, quando ti compare questo errore?
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:SN7t6.51832$yl2.1...@news1.tin.it...

non e' molto chiaro dove ti da' l'errore ,
cmq. nel codice vba , all'interno della routine che ti da' l'errore
puoi mettere :
in cima alal routine ->
On Error GoTo gesterrori
in fondo alla routine ->
usitarot:
    exit sub
geterrori:
    if err.number =3022 then
        "messaggio o qalsiasi gestione dell'errore"
    else
        msgbox err.number & err.description
    endif
    resume usitarot
ciao :))

 ha scritto nel messaggio
news:6Rst6.38938$x3.7...@news2.tin.it...

Allora sull'evento Prima di aggiornare della form inserisci il controllo
dell'eventuale duplicato facendo un DLookup sulla tabella (vedi help)

Newsgroup: it.comp.appl.access
Titolo: Collezione di ListBox sulla mia Form

Da qualche tempo rompo le scatole a tutto il NG con problemi relativi alle
ListBox.
Controlli questi, che io ho sempre usato poco o niente!
Ma Il mio nuovo simpatico cliente le preferisce ad ogni altro metodo da me
proposto!
(E' abituato col suo vecchio programmino preconfezionato da 200,00 Euro)
...Quindi... Giù con gli ItemSelected, Cicli For Each e così via...
Ho scritto il seguente codice per una ListBox
Dim VociElenco As Variant
Set ctl = Me.ListBox1
For Each VociElenco In ctl.ItemsSelected
  If ctl.Column(1) ecc Then
               fai qualcosa
  ElseIf ctl.Column(1) ecc Then
                fai qualcosa
  ElseIf ctl.Column(1) Then
                fai qualcosa
 End If
 Next VociElenco
Questo ciclo legge gli Item selezionati
di Mia List Box1 e fa qualcosa.
Avendo 4 ListBox nella Form, (immaginate che il ciclo è molto più lungo e
ripetuto più volte nel codice)
c'è un modo per non ricopiarlo 4 volte? (che in realtà sono di più e ciò mi
incasinerebbe il codice)
Verrebbe una cosa tipo:
Set ctl = Me.ListBox1
Tutto il ciclo
poi Set ctl = Me.ListBox2
Tutto il ciclo
poi Set ctl = Me.ListBox3 e così via, non so quante volte...
Secondo me il ciclo va scritto UNA VOLTA SOLA
e gli si passa con un Do.... Loop o qualcosa del genere ,
soltanto il Nome della ListBox dalla quale leggere gli Item selezionati
no?????
...Se non mi sono spiegato bene è a causa di una dote naturale.
D'altra parte se fossi a conoscenza del metodo esatto mi sarei spiegato
meglio.
Un grazie agli eroi pazienti di questo NG
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

marioP ha scritto:

Dim ctl as Control
For each ctl in Me.Controls
    If ctl.ControlType=acListBox then
       For each VociElenco In ctl.ItemsSelected
           ........
           ........
           ........
       Next
    End if
Next
Ciao
@Alex


Esatto! Mi pare che faccia al caso mio. Hai visto che era semplice spiegarsi
conoscendo il metodo? ;-))
