mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Espressioni e VBA nelle queries

Sto cercando di scrivere delle espressioni un po' più serie dei soliti >5 o
="cicciobello". Conosco decentemente il VB e ho pensato fosse nulla usare
delle funzioni nelle query, invece mi sono sbagliato!
Considerate questo esempio: per trovare il ritardo odierno di un fornitore
aggiungo alla data dell'ordine il suo tempo di consegna massimo, sottraggo
il tutto dalla data odierna, et voilà! Volevo usarla sia per selezionare i
ritardi superiori a un certo limite sia per aggiungere una colonna di
ritardi. 
DateDiff("g";Date();DateAdd("g";[tempoconsegna];[dataconsegna]))
Access continua a darmi errore di compilazione!!!
Ho guardato in SQL: traduce l'espressione dal formato italiano a quello
americano (come sarebbe in VB) ma poi non funge!!! Qualcuno mi sa dire il
perchè per favore, forse devo usare una sintassi diversa???
NOTA:
Inizialmente avevo usato le impostazioni americane, poi il messaggio
http://www.mailgate.it/it/it.comp.appl.access/msg38075.html
mi ha illuminato. Ora però tutto funziona (e soprattutto la stessa
espressione in un programma VB funziona!)
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
3.0.1.32.2001033...@popmail.libero.it...
Sto cercando di scrivere delle espressioni un po' più serie dei soliti >5 o
="cicciobello". Conosco decentemente il VB e ho pensato fosse nulla usare
delle funzioni nelle query, invece mi sono sbagliato!
Considerate questo esempio: per trovare il ritardo odierno di un fornitore
aggiungo alla data dell'ordine il suo tempo di consegna massimo, sottraggo
il tutto dalla data odierna, et voilà! Volevo usarla sia per selezionare i
ritardi superiori a un certo limite sia per aggiungere una colonna di
ritardi.
DateDiff("g";Date();DateAdd("g";[tempoconsegna];[dataconsegna]))
Access continua a darmi errore di compilazione!!!
Io ci proverei a mettereila d invece della g
Antonio

 ha scritto nel messaggio
news:3.0.1.32.2001033...@popmail.libero.it...
DOMANDA
==========
Sto cercando di scrivere delle espressioni un po' più serie dei soliti >5 o
="cicciobello". Conosco decentemente il VB e ho pensato fosse nulla usare
delle funzioni nelle query, invece mi sono sbagliato!
Considerate questo esempio: per trovare il ritardo odierno di un fornitore
aggiungo alla data dell'ordine il suo tempo di consegna massimo, sottraggo
il tutto dalla data odierna, et voilà! Volevo usarla sia per selezionare i
ritardi superiori a un certo limite sia per aggiungere una colonna di
ritardi.
DateDiff("g";Date();DateAdd("g";[tempoconsegna];[dataconsegna]))
Access continua a darmi errore di compilazione!!!
RISPOSTA
=========
Non iviare messaggia al NG in HTML.
Se, come immagino,  stai scrivendo nella riga "Campo:" di una nuova colonna
della griglia della query, devi indicare il nome del nuovo campo, quindi;
Ritardi: DateDiff("g";Date();DateAdd("g";[tempoconsegna];[dataconsegna]))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Campo incrementale in "Query Accodamento"

In un documento Fattura gestisco il numero incrementale  formato "04/000001"
mediante una funzione che richiamo su evento BeforeInsert ora mi ritrovo a
dover
generare lo stesso documento mediante una query di accodamento.
Come possibile continuare ad incrementare mediante tale query
Rino

 ha scritto nel messaggio
news:C05Sc.95104$OR2.5...@news3.tin.it...

Se la funzione che attualmente fa questa operazione è dichiarata come Public
puoi usarla anche nella query
sarà qualcosa del tipo:
UPDATE Fatture SET fatture.Numero = TuaFunzione()
Ciao
Cinzia


Richiamando la funzione che nella form e strutturata :
Me.IDFattura = AutoNum("tblFatture", "IDFattura", False, 6)
Mentre come da generatore Espressioni mi ritorna:
ID: AutoNum([tblFatture];[IDFattura];[False];[6])
mi chiede conferma per ogni par. senza poi accodare nulla.
Rino

 ha scritto nel messaggio
news:NB5Sc.95254$OR2.5...@news3.tin.it...

Bisognerebbe   capire cosa succede in questa funzione comunque andando "a
occhio"
mi sempra di capire che i primi due campi rappresentano rispettivamente il
nome della tabella e il nome del campo su cui deve essere fatto
l'autoincremento, per cui no li devi mettere tra parentesi quadre ma tra
virgolette perchè Access prende tutto quello trova tra parentesi quadre come
se fossero o dei campi o dei parametri per cui io proverei così:
AutoNum("tblFatture"; "IdFattura"; false; 6)
Saluti
Cinzia


Effettivamente preso dalla nebbia delle vacanze non avevo fatto caso
alle parentesi .
grazie per l'indicazione ;-)
Ciao
Rino

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

Scusate l'OT , ma mi sto scervellando e non ne ricavo nulla.
Spero che qualcuno possa darmi una mano.
Su evento click di un pulsante richiamo questa funzione
__________________________________
Public Function Aggiorna()
Dim i As Integer
Dim in2 As Integer
in2 = 1
For i = 2 To 50
    If Worksheets("Foglio3").Range("A" & i) = "N" Then
        Worksheets("Foglio2").Range("A" & in2) =
Worksheets("Foglio3").Range("I" & i)
        in2 = in2 + 1
    End If
Next i
End Function
__________________________________
che mi va a cercare il valore "N" nella colonna A del foglio3 e se
lo trova, mi restituisce il valore che si trova nella colonna I.
Funziona alla perfezione, pero' ora avrei la necessita di andare a cercare
i valori in un altro file, ma non ci riesco.
ho provato con:
    If  Workbooks("c:\pippo.xls").Worksheets("Foglio3").Range("A" & i) = "N"
Then
......
ma mi rstituisce errore di run-time 9
Indice non incluso nell'intervallo.
help!
Riccardo

 wrote in message
9gqcbj$58d$1...@news.panservice.it...

Forse se prima carichi il foglio c:\pippo.xls poi riesci ad accerci...
(vedi Workbooks.Open ...)
HTH
Michele Amato
Newsgroup: it.comp.appl.access
Titolo: Report e stampa con Laser..

salve a tutti...
ho notato una cosa strana...
ho un DB in cui se stampo un report
con una stampante InkJet nel report
vengono visualizzate le caselle di testo
mentre se le stampo con la Laser non vengono...
chi mi spiega il motivo ???
grazie....

 ha
scritto nel messaggio news:8Tlxb.150231$e6.54...@twister2.libero.it...

Prova ad aumentare lo spessore delle caselle
MAssimiliano

 Prova ad aumentare lo spessore delle caselle
----------------
OK... domani in ufficio provo....
Ciao e grazie...

Newsgroup: it.comp.appl.access
Titolo: Importazione barre di menù da ADP in ADP

A2K SP3/WXP Pro
Ho due progetti adp che puntano allo stesso database. Sto lavorando per
fonderli in un unico progetto rinominando maschere, moduli di codice e
report.
Tutto bene, ovviamente, se non fosse che ho dei problemi quando importo le
barre di menů da un ADP nel'altro.
Per l'importazione ho fatto cosě: ho creato una maschera vuota e inutile e
le ho associato la barra dei menů personalizzata; a questo punto ho
importato la maschera cone relativa barra di menů nell'altro progetto.
Accade perň che a seguito dell'importazione viene ad essere modificata sia
la prima barra, nel senso che alla seconda voce di menů vengono modificati i
comandi, sostituiti integralmente dai comandi della seconda voce di menů
della nuova barra importata, sia la seconda barra appena importata alla
quale vengono cambiate le voci del primo menů.
Secondo voi cosa posso fare?
Ho giŕ compattato e ripristinato entrambi i progetti senza ottenere niente.
Grazie.
Giorgio

 ha scritto nel messaggio
news:bd6gmg$8no$1...@newsreader.mailgate.org...

Dopo vari tentativi ho risolto cosě:
Ho creato nelle barre dei menů dei nuovi menu, uno per ogni menu che dava
problemi.
Ho spostato i comandi dai vecchi menu ai nuovi e quindi ho eseguito le
importazioni del caso.
Ho eliminato i vecchi menu vuoti e quindi rinominato e spostato quelli
appena creati.
Cosě č andato a posto.
Un po' di lavoro in piů ma č andata bene lo stesso.
Ciao a tutti.
G.
Newsgroup: it.comp.appl.access
Titolo: Selezionare records per la stampa

Attualmente per selezionare i records da stampare apro un query predefinita
nella quale imposto le condizioni per la selezione, quindi la salvo ed apro
un report che ha come origine dati la query.
Vorrei invece aprire una maschera contenente gli oggetti necessari per la
selezione e poi aprire un report ma non so come filtrare i records (vedi
anche Or o AND di valori di un campo) e come passarli al report.
E ancora... E' possibile filtrare i records da una maschera usando "filtro
in base a maschera" e poi passarli al report?
Grazie
Un saluto
Francesco
--
E-mail: 
franco....@tiscalinet.it

 ha scritto nel messaggio
news:9vfv67$1rr$1...@pegasus.tiscalinet.it...

Penso di aver avuto bisogno della stessa cosa in una mia applicazione, vado
a vedere poi la posto.
Max

 ha scritto nel messaggio
news:7QRS7.312473$sq5.15...@news.infostrada.it...

Io sull'apertura del report ho inserito questo:
Private Sub Report_Open(Cancel As Integer)
Me.Report.RecordSource = Forms!Nome Tab.RecordSource ' imposta quale tabella
o query è l'origine dei dati
Me.Filter = Forms!storiatab.Filter ' imposta lo stesso filtro applicato alla
maschera
Me.FilterOn = True ' abilita il filtro alla forms
End Sub
Spero che ti sia utile.
Max

 ha scritto nel messaggio
news:7QRS7.312473$sq5.15...@news.infostrada.it...

Ops..
mi sono sbagliato sulla descrizione
Io sull'apertura del report ho inserito questo:
Private Sub Report_Open(Cancel As Integer)
Me.Report.RecordSource = Forms!Nome Tab.RecordSource ' imposta quale tabella
o query è l'origine dei dati
Me.Filter = Forms!storiatab.Filter ' imposta lo stesso filtro applicato alla
maschera
Me.FilterOn = True ' abilita il filtro al report


 ha scritto nel messaggio
news:jZRS7.312504$sq5.15...@news.infostrada.it...

Penso che mi sarà utile.
Grazie Massimo
Ciao
Francesco
--
E-mail: 
franco....@tiscalinet.it

 
Se sei in grado di utilizzare la Proprietą di Maschera "Filter" puoi
dinamicamente in base al contenuto di un controllo FIltrare i dati della
Form.
Es:
Me.FilterOn=True
Me.Filter="Cognome='" & Me.txtFilterCognome & "'"
Me.requery
Per passare il Filtro al Report č semplicissimo, basta eseguire un:
DoCmd.OpenReport nomereport ,,, Me.Filter
Il REPORT viene aperto con il criterio di filtro della Form.
@Alex
-- 
Posted from  [62.98.11.116] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG



oltre a quello che hanno detto gli altri se non sbaglio è necessario
controllare anche se il filtro è attivo altrimenti passi l'ultimo
filtro che hai impostato.
esempio
filtri per codice="A"
disattivi filtro con imbuto
apri report con filtro
anche se sulla maschera il filtro non è attivo il report lo riceve lo
stesso....
oppure ho detto tante bischerate?
Newsgroup: it.comp.appl.access
Titolo: Bloccare in apertura un controllo della Subform

Salve!
Un problema che è sorto da poco.
Si tratta sicuramente di una emerita cavolata, ma certo non riesco a
risolverla.
In pratica tramite un tasto di comando collocato nella FormA devo aprire la
FormB che contiene una Subform in cui si trova un controllo che devo
assolutamente bloccare (il numero di cartella).
Se risolvo evito di duplicare una maschera e sottomaschera alla fine per un
solo controllo!
Grazie mille
  Rita

 per un solo controllo!
Non sono sicuro di capirti.
Se non conosci la sintassi per riferirsi ad un controllo in una
sottomaschera vedi 
www.donkarl.com/it
 4.2.
Per bloccare un controllo puoi usare p.e.
Forms!FormB!ControlloSottomaschera!NumeroCartello.Enabled = False
Forms!FormB!ControlloSottomaschera!NumeroCartello.Locked = True
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)

 ha scritto nel messaggio
news:361sjsF...@individual.net...

Grazie KArl provo subito.
Si devo bloccare un controllo della subform al momento dell'apertuta della
form principale.
L'apertura della Form principale avviene tramite un tasto di comando di
un'altra form.
Grazie mille, ti farň sapere
Ciao
Rita

 ha scritto nel messaggio
news:361sjsF...@individual.net...

Grazie Karl, funziona benissimo.
Ciao buona serata
Rita
Newsgroup: it.comp.appl.access
Titolo: non so come esportare tutti i record 100Mila in excel

Ciao a tutti,
ho una tabella di 100 mila record quando provo a convertirlo in Excel me 
ne salva non più di 60 mila c'è un sistema per avere tutti 100 mila?
grazie
rino 

 ha scritto nel messaggio 
news:4937f2a9$0$18150$4faf...@reader3.news.tin.it...

100 mila record in Excel; per farne cosa?
Invia l'mdb con la sola tabella e tramite Excel fai le query che ti servono 
(fogli pivot, grafici, etc.)...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:gh8vfr$hpu$1...@tdi.cu.mi.it...

Sergio proprio facendo la query mi da questo messaggio "è stato 
selezionato un numero maggiore di quello che è possibile copiare negli 
appunti in una sola volta"
 non capisco il problema
aiutami
grazie
rino 

 ne salva non più di 60 mila c'è un sistema per avere tutti 100 mila?
Se stai esportando, Excel fino al 2003 tiene max 65K righe
Prova con Excel 2007 permette fino ad un milione di righe
Ma che te ne fai di 100k righe su Excel ???
Ciao
RobertoA

 rino
Prova a leggere questo:
Messaggio di errore durante il tentativo di esportare una tabella di Access 
2007 contenente oltre 65.000 righe in una cartella di lavoro di Excel: "È 
stato selezionato un numero di record maggiore di quello che è possibile 
copiare"
http://support.microsoft.com/kb/924681/it
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:4938f9e5$0$11369$5fc...@news.tiscali.it...

Grazie per l'informazione se ho capito bene non'è possibile.
cmq io ho access 2003
ok
grazie
rino 

 ha scritto nel messaggio 
news:4938...@newsgate.x-privat.org...

 è un archivio di nomi che devo consegnare in excel
Roberto hai letto quello che mi ha detto MAZZA?
grazie
rino 

 è un archivio di nomi che devo consegnare in excel
Mandagli 2 fogli da 50000 record l'uno.

 ha scritto nel messaggio 
news:4937f2a9$0$18150$4faf...@reader3.news.tin.it...

Limite Excel 2003 = 65.535 righe per foglio
Limite Excel 2007 = > 1.000.000 righe per foglio
Se usi Excel 2003 dovrebbe bastare inserire più fogli di lavoro nello stesso 
file...per esempio da 50.000 righe ognuno.
Questo lo puoi facilmente fare da codice ed utilizzando l'automazione.
E' una buona idea?
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Help: Impossibile comunicare con il server OLE

Premetto la mia ignoranza in materia...
ma...
Dopo aver formattato e reinstallato tutto il pc, quando apro delle
applicazioni con Acces (che prima mi funzionavano bene) in alcune finestre
mi da un errore, con scritto:
Impossibile comunicare con il Server OLE
E' possibile che il server OLE non sia registrato
Per registrarlo rieseguire l'installazione.
E' inutile dire che diverse volte ho rieseguito l'istallazione, ma non
cambia nulla.
Qualcuno sa dirmi cosa posso fare?
Grazie
             Pietro

 Qualcuno sa dirmi cosa posso fare?
Dipende dalle informazione che non hai rivelato.
Quale versione di Access e Windows?
Fai qualcosa con OLE nelle "alcune finestre"? p.e. ci sono
imagini o word.docs in un campo OLE?
Se hai instalato Norton Antivirus puo essere lo Script Blocking di NAV:
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q295824
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

GRAZIE ! ! !
Era il Norton Antivirus.
Ho tolto il blocco dello script e funziona benissimo.
Se può essere utile a qualcuno rispondo alle tue domande sul sistema:
Access 97
Microsoft Windows 98
Norton 2003
Grazie moltissimo e Buon Lavoro
                 Pietro
"Karl Donaubauer" ha scritto nel messaggio


Newsgroup: it.comp.appl.access
Titolo: Controllo per ricerca senza risultati

Buongiorno a tutti, ho una maschera di ricerca che in base ai parametri
immessi mi apre una seconda maschera contenente i record trovati. Il
tutto è stato fatto con una macro che mi apre la seconda maschera
filtrandola con una query di ricerca. Il mio problema è che se la
ricerca non trova nessun risultato la seconda maschera viene aperta
comunque con visualizzazione vuota. Come fare a controllare prima se
non vi sono record trovati e visualizzare un msgbox di errore
all'utente (e non aprire la seconda maschera)?
Grazie,
Matteo

 ha scritto nel messaggio 
news:1145023680....@t31g2000cwb.googlegroups.com...

Matteo
[Risposta]
Con la macro da sola è un po' difficile. In pratica si tratta di contare i 
record generati dalla query prima dell'apertura della maschera.
Può esserti di aiuto un bel dlookup o un recordcount sul recordset.
Per esempio:
If isnull(dlookup("TuoIndice","TuaQuery")) then
msgbox "La tabella non contiene valori!"
exit sub
end if
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: [OT ???] Scadenza iscrizione conferenza di Arezzo

Ciao,
mi rivolgo in particolare agli organizzatori della conferenza di Arezzo del 
prossimo giugno -> qual'è il termine ultimo per l'iscrizione?
Verrà prodotta documentazione (cd etc...) in merito?
Grazie mille e buona serata
Gaspare 

 wrote in message
news:J9R8e.794722$
b5.35...@news3.tin.it

Anche se non direttamente coinvolto il sito di Karl
espone tutte le risposte alla tua domanda nella
parte che riguarda ISCRIZIONE.
http://www.donkarl.com/it/
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:430500b837e9544d8f...@mygate.mailgate.org...

ok -> grazie e scusate la domanda: non avevo visto il sito aggiornato 

 Verrà prodotta documentazione (cd etc...) in merito?
Produciamo una cartelina con la documentazione per i
partecipanti che la possono già usare per aggiungere
note durante la conferenza.
Dopo la conferenza una parte degli script e foglie sarà
scaricabile liberamente per tutti da un sito web.
Per partecipanti forse invece di un cd ci sarà un sito web
privato per scaricare esempi, tool, foto ecc. Dipende
anche cosa forniscono i relatori... Vediamo.
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005
Newsgroup: it.comp.appl.access
Titolo: Errore funzione Dir

Vorrei elencare in una listbox tutti i file mdb contenuti in una directory; 
tuttavia, il comando Dir mi permette di trovare il 1° file ma, una volta nel 
ciclo Do While, il comando Dir non trova più alcun file...
Dove sbaglio? Il codice usato è il seguente?
MyName = Dir(PathRecords & "\*.mdb")   ' 1° File
Do While MyName <> ""   ' Inizializzo il ciclo
       Debug.Print MyName
        MyName = Dir   ' Cerco il successivo
Loop
Grazie, Renato. 

 Grazie, Renato.
Ciao Renato.
Mi sembri Simba...!!
Vabbč, quella funzione č comoda ma siceramente č
poco controllabile, io uso FileSearch ben documentato nell'Help.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
In realtà ho risolto in questo modo:
Dim fs As FileSystemObject, nomefile As File
Set fs = CreateObject("Scripting.FileSystemObject")
For Each nomefile In fs.GetFolder(PathRecords).Files
    If LCase(Right(nomefile, 3)) = "snp" Then
       List_Archivio.AddItem trova_name(nomefile)
    End If
Next
Penso possa funzionare egregiamente, al max se mi darà problemi proverò con 
il Filesearch.
PS: Come mai con Access 2000 posso esportare in formato snapshot ma in 
access 2003 in ufficio non riesco?
C'è un modo per esportare anche sul 2003?
Se infatti scrivo semplicemente
DoCmd.OutputTo acReport, stDocName
, il formato Snapshot non mi risulta tra quelli selezionabili, se altresì 
scrivo
DoCmd.OutputTo acReport, stDocName,acFormatSNP
mi restituisce errore.
Grazie,
Renato.

 mi restituisce errore.
Si tratta di un bug nelle versioni non-inglese di A03. La constante
acFormatSNP non è gestito corettamente nel registro.
O devi modificare la chiave nel registro o meglio in genere usare
"Snapshot Format"
invece della costante.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 


Non vedo un errore.
Forse hai sbagliato l'estensione come dopo parli di "snp". ;-)
Un altra causa p.e. puo essere che un file è hidden (nascosto in .it?).
In questo caso devi usare vbHidden nel secondo parametro di Dir.


 ha scritto nel messaggio 
news:42c9u6F...@individual.net...

Ok, grazie e grazie sopratutto per l'info sullo snapshot.
Ciao,
Renato.

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

Purtroppo il problema è che non trovo più sul foglio di excel la macro e non ricordo neanche come si chiama. Esiste un a soluzione?
Grazie
Saluti
-- 
Posted from 195.110.113.244 by way of [212.141.54.117] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:GIGRJ4$I4dPE38O1iSSnqWrRxne1CXL...@inwind.it...
Purtroppo il problema è che non trovo più sul foglio di excel la macro e non
ricordo neanche come si chiama. Esiste un a soluzione?
Grazie
Saluti
RISPOSTA:
Non scrivere messaggi in formato HTML, grazie.
Prova con Alt-F11, ti dovrebbe visualizzare tutte le macro e routine
esistenti per quel file...
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Casella combinata e codice [help]

Il problema è questo, ho una casella combinata che prende un valore da una
tabella, vorrei che selezionando una voce da questa, nella successiva
casella combinata venghino visualizzati solo i record correlati con la prima
scelta....
Es.
tab 1
1 Primo
2 Secondo
3 Dessert
tab 2
1 Pasta
1 Riso
2 Carne
2 Pesce
3 Tartufo
quindi se io scelgo "Primo" devo visualizzare solo "pasta" e "Riso" etc.
etc., ma fin quì ci sono, di seguito posto il codice, che mi da una sola
problematica: Quel benedetto "tTuttiICataloghi.IDcat" che io nella mia
tabellina ho come tipo dati TESTO non funziona, o meglio se lo cambio in
numerico va a meraviglia, però io ho necessità di mantenerlo come testo....
:-(((( Come faccio?
Private Sub CasellaCombinata8_AfterUpdate()
Me!CasellaCombinata10.Enabled = True
Me!CasellaCombinata10.RowSource = "SELECT tTuttiICataloghi.IdT,
tTuttiICataloghi.gestore " _
& "FROM tTuttiICataloghi " _
& "WHERE (((tTuttiICataloghi.IDcat) = " & Me.ActiveControl & "));"
Me!CasellaCombinata10.Requery
End Sub
Grazie in anticipo a tutti.
AnnA!
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:80Z180Z91Z10Y1...@usenet.libero.it...

Se usi Campi testo per la composizione di Stringhe SQL devi anche usare
le convenzioni ANSI per l'inserimento.
Ovvero vanno inseriti i doppi apici (usa i doppi apici poichè se usi
l'apostrofo ti da sicuramente
noie nel caso di stringhe con l'apostrofo, esempio tipico dei cognomi).....:
WHERE (((tTuttiICataloghi.IDcat) = " & chr(34) & Me.ActiveControl & chr(34)
& "));"
Ciao.
@Alex.


Ottimo funziona a meraviglia ;-)))
Grazie!

Newsgroup: it.comp.appl.access
Titolo: routine creazione indici

Buongiorno,
mi capita di importare tabella sovrascrivendo i dati. Fin qui tutto 
bene, i dati vengono importati correttamente,  ma purtroppo perdo gli 
indici. Vorrei scrivere due righe di codice da eseguire dopo 
l'importazione (con una macro) per ricreare gli indici.
Inoltre prima di cancellare la tabella esistente mi esce la maschera che 
chiede conferma della cancellazione, è possibile saltare tale richiesta??
Grazie
Uso access 2007

maestro ha scritto:

Ho provato in questo modo:
prima cancello gli indici  e poi li ricreo ma non funziona
Public Sub Crea_indice()
Dim dbs As Database
      DROP INDEX CLIENTI_CDCLI ON clienti
      DROP INDEX CREDITI_CDCLI0 ON crediti
      DROP INDEX DATB_CDCLI ON DATABASE_CLIENTI
      DROP INDEX STATISTICHE_AGE  ON STATISTICHE
  Set dbs = CurrentDb
  dbs.Execute "CREATE INDEX CLIENTI_CDCLI ON clienti (cdcli) "
  dbs.Execute "CREATE INDEX CREDITI_CDCLI0 ON crediti(cdcli0) "
  dbs.Execute "CREATE INDEX DATB_CDCLI ON DATABASE_CLIENTI (cdcli) "
  dbs.Execute "CREATE INDEX STATISTICHE_CLI  ON STATISTICHE (S$CLI) "
  dbs.Execute "CREATE INDEX STATISTICHE_AGE  ON STATISTICHE (S$AGE) "
     dbs.Close
End Sub

 End Sub
Ciao.
-- 
Sergio MAZZA 

maestro ha scritto:

risolto in questo modo:
Public Sub Crea_indice()
Dim dbs As Database
  Set dbs = CurrentDb
     dbs.Execute "DROP INDEX CLIENTI_CDCLI ON clienti"
     dbs.Execute "DROP INDEX CREDITI_CDCLI0 ON crediti"
      dbs.Execute "DROP INDEX DATB_CDCLI ON DATABASE_CLIENTI"
    'dbs.Execute "DROP INDEX STATISTICHE_AGE  ON STATISTICHE"
  dbs.Execute "CREATE INDEX CLIENTI_CDCLI ON clienti (cdcli) "
  dbs.Execute "CREATE INDEX CREDITI_CDCLI0 ON crediti(cdcli0) "
  dbs.Execute "CREATE INDEX DATB_CDCLI ON DATABASE_CLIENTI (cdcli) "
' dbs.Execute "CREATE INDEX STATISTICHE_CLI  ON STATISTICHE (S$CLI) "
' dbs.Execute "CREATE INDEX STATISTICHE_AGE  ON STATISTICHE (S$AGE) "
     dbs.Close
End Sub
mi accorgo però che i campi con il carattere $  non li accetta,  è normale??

 mi accorgo perň che i campi con il carattere $  non li accetta,  č normale??
In alternativa, invece di eliminare e reimportare tutta la tabella, puoi
solo cancellare i vecchi record e accodare i nuovi mantenendo la
struttura, cosě mantieni tutti gli indici e anche se dovessi in futuro
aggiungerne o toglierne qualcuno non rischieresti di dimenticarti di
modificare il codice VBA che li ricrea.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Marco Pizzamiglio ha scritto:

Grazie, Marco, il problema č che  queste tabelle vengono generate da una 
query di creazione tabella, prendendo i dati da  tabelle importate.

 query di creazione tabella, prendendo i dati da  tabelle importate.
Se le tabelle sono già importate è ancora più facile. Cambi la query e ne
fai una di accodamento. E una di eliminazione per svuotare la tabella
prima di accodare.
Questa è solo una proposta alternativa, visto che hai già risolto.

Newsgroup: it.comp.appl.access
Titolo: Avvio e Debug

Ho il seguente problema: sono subentrato ad un altro programmatore nello
sviluppo di un sw in access. All'avvio del programma vengono disabilitate
tutte le funzioni di accesso al db e di messaggistica. Per poter accedere
occorre premere il classico shift. Ora ho il seguente problema. Dovendo
apportare delle modifiche come faccio ad eseguire un debug?? in quanto se
avvio le maschere non tutte le variabili vengono correttamente
inizializzate.
Grazie

 ha scritto nel messaggio
news:HWUtd.271554$b5.13...@news3.tin.it...

Scusa ma non ho capito bene.
Non č che stai cercando di modificare un Mde?
Se sě, non c'č modo.
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Ebbene si....Contatore!!!!

Salve a tutti e auguroni,
so che il tema è stato dibattuto fino alla nausea e ho constatato che sul
sito comune l'argomento viene trattato su molti msg.
Purtroppo rischio di essere ripetitivo ma vorrei sapere questo:
Ho la seguente tabella:
"primanota"
progprimanota, idregistrazionePN, conto, .....
vorrei che il campo "progprimanota"fungesse da contatore ma con la
particolarità che se volessi eliminare un record la numerazione proseguisse
dall'ultimo inserito e non da quello eliminato....
Grazie a tutti Luca


wrote:

Sito comune --> tables --> id contatori e affini ( dove spiega di
tutto sui contatori).
Oppure il contatore di Sib, sempre sul sito comune.
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)

 ha scritto nel messaggio
news:JwzR9.78601$Ou4.2...@twister2.libero.it...

La via più rapida è quella di compattare il db dove si trova la tabella
PrimaNota, subito dopo una eliminazione dell'ultimo valore inserito.
In 
www.sitocomune.com
 potrai trovare come compattare un database.
In rete esistono anche delle routine che permettono di forzare il campo
contatore.
Ciao, Carlo

 contatore.
Secondo me è molto rischioso in multiutenza...

 ha scritto nel messaggio

Da quanto scrivi pare che tu descriva proprio il funzionamento dei campi
"contatore" di access.
Ad ogni modo le possibilita' sono due, o i contatori di access o i
suggerimenti che trovi sul sito comune. provali entrambi e vedi quale ti sta
bene.
Sib

Newsgroup: it.comp.appl.access
Titolo: problema-aiuto

Da poco ho iniziato a prendere confidenza con access,ma ho già un problema
che non riesco a risolvere. Vorrei caricare una tabella di exel in una
maschera,ma non ci riesco perchè mi si apre una finestra di errore che dice
il componente activex non è in grado di riconoscere l' oggetto
Cosa posso fare?
Grazie
Alessandro

 ha scritto nel messaggio
news:84cqb.93128$vO5.3...@twister1.libero.it...
[CUT]
Per postare su questo NG dovresti seguire alcune regole che troverai su
www.sitocomune.com
dove troverai anche molto materiale interessante.
Ciao.
--
Francesco G. Rizzoni

Alessandro C ha scritto:

Se scrivi usando un oggetto che non è attinente alla richiesta, chi in
futuro andrà a fare una ricerca per argomento non potrà trovare queste
risposte. Quindi, per tenere in ordine il newsgroup, se non usi un oggetto
appropriato non ti risponderà nessuno.
E ti anticipo un'altra cosa: quando rispondi a qualcuno scrivi sempre DOPO
al messaggio origiale.
Leggi su 
www.sitocomune.com
, sezione ICAA, le regole di comportamento nel
ng, poi rimanda pure la richiesta.
Ciao.
Namor
-- 
Aiuta chi ne ha bisogno, non ti costa niente:
www.shopmon.it
  -  
www.porloschicos.com
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: Immagini su report

Ciao,
ho una tabella con una serie di prodotti e un campo dove è riportato il percorso dove si trova l'immagine del prodotto stesso.
Inserisco nel report l'oggetto immagine ma non so come fargli cambiare immagine nel momento in cui passo da un record all'altra.
Vi ringrazio


Nel codice dell'evento "Su formatazione" della sezione dettaglio:
 
If Not IsNull(Me!CampoConPercorso) Then
    Me!ControlloImmagine.Picture = Me!CampoConPercorso
Else
    Me!ControlloImmagine.Picture = "IlPercorsoDiUnaImmagineStandard"
End If
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


Grazie mille!!!!!!!!!

Newsgroup: it.comp.appl.access
Titolo: Da recordset a tabella

Ciao,
se io creo un recordset e voglio trasferirne i dati dentro ad una tabella,
cosa posso usare?
Si può fare una semplice cosa tipo:
Dim rs as adodb.recordset
INSERT INTO Tabella SELECT * FROM rs
Mi sembra un pò troppo facile, mi sapreste illuminare?
Grazie,
Ghepardo

Ghepardo ha scritto:

Devi scorrere il recordset con un ciclo e inserire in tabella un record
alla volta, usando SQL, DAO, ADO o quel che più ti piace.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Funzione MediadiAnni

Ciao a tutti, in una maschera a maschere continue ho inserito dei campi x la
statistica sulle età dei soggetti inseriti nel mio database.
Ho quindi:
Eta: dove comparirà l'età dei soggetti
Numero: quanti soggetti hanno la stessa età.
Vorrei calcolare la media degli anni. La funzione "MediadiAnni" per caso
tiene conto anke di quanti hanno la stessa età oppure tiene conto solo del
campo età? grazie mille..

 ha scritto nel messaggio 
news:M5C9e.48128$Of5....@nntpserver.swip.net...

Ciao,
se hai particolari esigenze come quella di vedere qual'è l'età media di un 
certo numero di persone ed utilizzi una maschera tabulare puoi inserire 2 
textbox (nella sezione piè di pagina)
li puoi chiamare (nome elemento) somma e media e come origine controllo 
utilizzi rispettivamente le espressioni =Somma([numero]) e  =Media([eta]) 
altrimenti consideri solo la media...
Spero di esserti stato d'ausilio
Gaspare 

 ha scritto nel messaggio
news:KPC9e.1267284$35.46...@news4.tin.it...

Ciao però non mi fa la media giusta cioe in pratica i campi son cosi:
    Anni                        Numero
    22                                1
    25                                2
    23                                1
Con le espressione media mi calcola solo (22+25+23)/ 3.. quando invece
dovrebbe essere (22+25+25+23)/4..
altrimenti la media sarebbe sbagliata..Sai come si potrebbe fare?
Grazie mille..
Ciao Lodovico..
Newsgroup: it.comp.appl.access
Titolo: problemi di età

Come posso fare il confronto fra 2 date in una query???
Ho bisogno di catalogare le persone in base all'età...per farlo ho pensato
di confrontare
Data odierna - Data nascita < 10 (anni)   [BAMBINI]
Data odierna - Data nascita < 18 (anni)   [ADOLESCENTI]
.....
mA COME FACCIO??
in...@iname.com
INGRID

 wrote in message
d6hC5.67849$3R6.1...@news.infostrada.it...


 INGRID
Dal Sito Comune:
Public Function f_Eta(DataNascita As Date)
    Dim varEta As Variant
    varEta = DateDiff("yyyy", DataNascita, Now)
    If Date < DateSerial(Year(Now), Month(DataNascita), Day(DataNascita)) Then
        varEta = varEta - 1
    End If
    f_Eta = varEta
End Function
nella query usi un campo calcolato:
 Eta: f_Eta([Data nascita])
oppure
 FasciaEta: iif(f_Eta([Data nascita])<18;iif(f_Eta([Data
nascita])<10;"BAMBINO";"ADOLESCENTE");"ADULTO")
-- 
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
--------------------------------------

Data odierna - Data nascita < 18 (anni)   [ADOLESCENTI]
vedi sull'help datediff per ottenere l'età in anni.
per ottenere le classi di età c'è una funzione apposita che divide i
valori in intervalli ma non ricordo qual è (interval?).
comunque puoi scrivertene facilmente una con select case o con
if-elseif, vedi help.
in sostanza ti scrivi una cosa tipo:
fClassiEta(DataNascita as date) as string
select case datediff("y", datanascita, now)
	case is < 10
		fClassiEta= "BAMBINI"
	case 11 to 18
		fClassiEta= "ADOLESCENTI"
	case else
		fClassiEta= "ADULTI"
end select
end function
nella query scrivi qualcosa tipo:
fClassiEta(DataNascita)
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

nascita])<10;"BAMBINO";"ADOLESCENTE");"ADULTO")
ammazza, le vuoi far fare gli iif innestati già da subito?  :-)

Newsgroup: it.comp.appl.access
Titolo: per il gentilissimo MAssimiliano

Ti ringrazio infinitamente per le due righe di programmazione per caricare
il form.:
Private sub Form_load()
docmd.maximize
end sub
Adesso sono a chiederti  se oltre a massimizzare le dimensioni e possibile
determinarle, inserendo altezza e larghezza del form.
Grazie in anticipo per l'aiuto.

 ha scritto nel messaggio
news:bebub4$3c324$1...@ID-91233.news.dfncis.de...

Se credi che io sia gentilissimo, non ci rimmarrai male se stavolta,
redimendomi ti invito a formulare un post con un subject appopriato. Questo
non perchè ci tengo sterilemte all'etichetta, ma perchè un domani chiunque
abbia il tuo stesso problema, attraverso il subject può seguire l'eventuale
soluzione che puàò essere data.
Chi ha il problema di misure (e non intendo Biso!!!) delle form (vedi che
non mi riferivo a lui!!!) non andrà a cercare su Google gentilissimo o
MAssimiliano (Biso, l'ho già usata io questa battuta!!!! - scusa DBN per
questi inframezzi - ) ma le parole "form" e "size". Il tutto nello spirito
del NG: noi che forniamo soluzioni e gli yutenti che cercano nei post
precedenti.
Perciò ti prego posta nuovamente il tuo quesito e sarò felice di riponderti.
MAssimiliano

 Chi ha il problema di misure (e non intendo Biso!!!)
Già... delle volte rischio di inciamparci... ma tant'è...
Antonio

 ha scritto nel messaggio
news:kafOa.154269$lK4.4...@twister1.libero.it...

Nella coda infiammabile.....!!!!
@Alex.

Antonio Biso ha scritto:

dove e perche'? Mica sei nano!
--
a.cara
togli qualcosa dall'email

 ha scritto nel messaggio
news:v8lOa.155560$lK4.4...@twister1.libero.it...

Questa definizione del bestio nell'elenco di Trilussa non c'è...
simpatica...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Tabella da incrementare

Penso sia una cavolata ma ve la chiedo...
Dalle tabelle T_ALLIEVI  con i campi  MATRICOLA ecc..  una  T_ESAMI
che contiene i campi ID_ESAME  MATRICOLA  ID_CORSO e T_CORSO che
contiene ID_CORSO (sono 10 record)
Dovrei incrementare per ogni allievo l' ID_CORSO (quindi 10 per
ognuno)
Si può fare con una semplice query di accodamento ?
Grazie per l'aiuto sempre speciale...e  risolutivo.


Si non inserire i legami in query e lanciala

 ha scritto nel messaggio 
news:ee2adb6f-2dca-40a9...@m25g2000yqc.googlegroups.com...
Penso sia una cavolata ma ve la chiedo...
Dalle tabelle T_ALLIEVI  con i campi  MATRICOLA ecc..  una  T_ESAMI
che contiene i campi ID_ESAME  MATRICOLA  ID_CORSO e T_CORSO che
contiene ID_CORSO (sono 10 record)
Dovrei incrementare per ogni allievo l' ID_CORSO (quindi 10 per
ognuno)
Si pu� fare con una semplice query di accodamento ?
Grazie per l'aiuto sempre speciale...e  risolutivo.
Dim a as byte, co as byte
dim strSql as string
dim rsAllievi as dao.recordset, rsCorsi as DAO.recordset, rsEsami as 
dao.recordset
dim db as DAO.database
set db = currentdb
set rsAllievi = db.openrecordset("T_Allievi")
set rsCorsi = db.openrecordset("T_Corsi")
do
do
strSQL = "ISERT INTO T_Esami('" & rsAllievi!matricola & "', " & 
rsCorsi!id_Corsi & ")"
db.execute strSQL
rsCorsi.Movenext
loop until rsCorsi.EOF
rsAllievi.movenext
loop until rsAllievi.EOF
Non l'ho provata ma dovrebbe andare 

 Non l'ho provata ma dovrebbe andare
Stavo cercando di inserirlo...ti do l'esatta definizione delle Tabelle/
Campi e uso Access 2003
Tabelle             e        Campi
T_Corso_Integrato  :>  ID_CorsoIntegrato - (sono 20 record fissi)
T_Allievo                :> ID_Allievo (300 record)
T_Esami                :> ID_Allievo ( 300 x 20)
Quindi dovrei creare la T_Esami che contenga per ogni allievo tutti
(20) ID_CorsiIntegrato
Grazie ancora.

Newsgroup: it.comp.appl.access
Titolo: 'ripulire' i records

salve a tutti in A2000 ho una tabella di questo tipo:
- Descrizione -
[P_IVA]
[Denominazione]
[Indirizzo]
....................
Per errori di digitazione ad una stessa P.IVA sono associati piů nomi, o piů
indirizzi tipo:
[P_IVA]    [Denominazione]  [Indirizzo]
123            pippo s.r.l.            via xxx
456            pluto s.a.s.            p.zza yyy
123            pippo srl               via xxx
456            pluto s.a.s.            pzza yyy
Per i nostri scopi č la stessa cosa avere l'uno o l'altro nominativo (non ci
interessa che ci siano o meno i puntini).
Secondo voi c'č un modo (a parte farlo a mano) per eliminare questi
pseudo-doppioni, lasciando un solo record per P.IVA? (ripeto č indifferente
avere l'uno o l'altro nominativo o indirizzo)
Grazie a tutti.
Giancarlo

 Giancarlo
Abbiamo già dato. :-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Microsoft Date and Time Picker Control

Salve a tutti, chi riesce ad aiutarmi per me è un mito, sono 3 giorni
che giro attorno a sto c***o di ActiveX o Com o oggetto OLE che sia,
mi serve assolutamente per una maschera in access, solo che quando lo
seleziono [Microsoft Date and Time Picker Control 6.0(SP4)] mi parte
il programma di installazione componenti chiedendomi il cd di
installazione denominato "TX RecordNow DX" e chiedendomi il
MyCDpro.msi. Mai sentito, o almeno ho sentito solo il RecordNow
Max(programma per masterizzare), che non penso centri qualcosa. Se
qualcuno mi sa aiutare ne sarei veramente contento.
Ciao
K4rn4K

 Salve a tutti, chi riesce ad aiutarmi per me č un mito, sono 3 giorni

Tempo fą ho inserito il suddetto controllo in una form e non ho avuto
nessun problema:
Ho trovato il file su internet MSCOMCT2.OCX, poi dopo averlo inserito
nella cartella System32 l'ho registrato ed infine caricato nei
riferimenti.
Altro non so dirti.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Digitazione Obbligata

Buongiorno
su una maschera ho un campo testo dove l'utente deve inserire l'anno (o
cmq 
una numero di 4 cifre).
Come posso fare per obbligare la digitazione dell'anno e non di altro
testo???
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


setta la la maschera di input della tua textbox con  9999
ciao
BFS


Ciao,
oltre al suggerimento di BFS, ti consiglio di mettere una verifica di
congruenza del valore, (limite max, min) se no corri il rischio di
avere l'anno tipo 8236 che forse non ti interessa ;-))
Alberto

Newsgroup: it.comp.appl.access
Titolo: strano messaggio all'avvio del db powerTCP internet tools

All'avvio del db mi esce un msgbox con scritto:
 
http component trial expires in 30 days
powertcp internet tools
there's a powertcp tool for every internet job
 
poi fa riferimento al sito 
www.dart.com
 
 
NB lo stesso db aperto su un altro pc non esce visualizzato
 
non capisco a cosa si riferisca? ad un ocx? ma non mi pare di usare ocx a 
tempo determinato con questo nome.
 
sapere come posso togliere questo messaggio??
 
grazie. 

> sapere come posso togliere questo messaggio??
 
decisamente fai riferimento a un OCX a pagamento... se non lo usi e l'hai
collegato casualmente, vai nei riferimenti e togli la spunta a questo
componente...
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

componente...
 
 
il problema è che non so qual'è :) ti elenco quali pcx utilizzo magati tu 
capisci qual'è
Visual basic for application
Microsoft Access 10.0 object library
Microsoft DAO 3.6 object library
Ole Automation
Kodak Image scan Control
Volaactivex
pdfcreator
microsoft mapi controls 6.0
microsoft office 14.0 object library
smtp send mail for vb6.0
 
 
smtp send mail for vb60 ho già provato a deselezionarlo ma il messaggio esce 
lo stesso voi che dite?
Newsgroup: it.comp.appl.access
Titolo: Campo calcolato

Salve,
immaginate TblAnagrafica con i seguenti campi:
Cognome (testo)
Nome (testo)
Curricula (link)
vorrei che il campo Curricula sia uguale in automatico senza inserirlo 
manualmente alla somma in stringa dei primi 2 con estensione .PDF ovvero
Cognome ROSSI
Nome CARLO
Curricula ROSSICARLO.PDF
Grazie e auguri

A livello di query, maschere o report:
Curricula: [Cognome] & [Nome] & ".PDF"
gallus


 ha scritto nel messaggio 
news:fB55l.134735$Ca.2...@twister2.libero.it...

Auguri anche a te.
Se devi fare l'operazione in una query di aggiornamento metti nella riga 
"aggiorna a" [Cognome]&[Nome] & ".PDF".
Se devi usarlo in una maschera:
dopo aggiornamento del secondo controllo (p.e. Nome):
Me.Curricule = me.Cognome & Me.[Nome] & ".PDF"
Attento ad usare campi con nomi riservati per Access come, per esempio, 
Nome.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: controlli activex

...vorrei utilizzare la struttura ad albero ma non riesco, non mi fa
nemmeno l'autocomposizione c'è qualche trucco per caso..
grazie

grazie
Che io sappia non ci sono autocomposizioni nè trucchi. Solo un pò di
codice. Ti posto questo:
On Error GoTo Slipups:
Dim Dbs As DAO.Database, Rcs As DAO.Recordset
'Dim TV As TreeView 'Questo è perchè sul mio PC (non so perchè) se
lascio treeview mi da errore
Dim TV As Object
Set Dbs = CurrentDb
Set Rcs = Dbs.OpenRecordset("Select * from Customers")
Set TV = Me.Tree
TV.Nodes.Clear
TV.Nodes.Add Key:="Root", Text:="Clienti per nazione"
With Rcs
  .MoveFirst
  Do Until .EOF
    TV.Nodes.Add Key:="""" & !Country & """", Text:=!Country,
Relative:="Root", Relationship:=tvwChild
    .MoveNext
  Loop
  .MoveFirst
  Do Until .EOF
    TV.Nodes.Add Key:=!CompanyName, Text:=!CompanyName, Relative:=""""
& !Country & """", Relationship:=tvwChild
    .MoveNext
  Loop
End With
TV.Nodes("Root").Expanded = True
NoSlipups:
Exit Sub
Slipups:
Select Case Err.Number
  Case Is = 35602 ' Chiave duplicata
    Resume Next
  Case Else
    MsgBox Err.Source & vbTab & Err.Number & vbNewLine &
Err.Description
End Select
Nota. Il codice l'ho scritto utilizzando la vesione inglese di
Northwind, per cui forse devi cambiare i nomi della tabella e dei
relativi campi. E' fatto con sotto access2000 con i riferimenti a DAO
3.6. Dovrebbe fungere anche con Access97.
Se lo metti sull'evento corrente di una form con un oggetto TreeView
che chiami Tree all'apertura della maschera dovresti avere l'albero
dei clenti per nazione.
Famme sapè
Ciao
Basjlico
Newsgroup: it.comp.appl.access
Titolo: Maschera e protezione????

salve a tutti, avrei un quesito da porvi.
Esiste un modo da rendere un campo di una maschera accessibile solo
attraverso una password?
Grazie aspetto vostre risposte.
maury

 ha scritto nel messaggio
news:dSBzb.7314$uv1....@nntpserver.swip.net...

Nelle maschere si parla di controlli; nelle tabelle o query di campi.
Potresti rendere invisibile il controllo e visualizzarlo dopo aver premuto
un pulsante e chiesta la password; se il confronto con la stringa immessa
con quella contenuta nel codice da risultato positivo, abiliti il controllo.
Possono esserci anche altre strade. Io, per esempio, utilizzo uno scritto
celato in una bitmap di sistema. Altri utilizzano il seriale dell'HD; altri
ancora una chiave hardware, ecc.
Ciao, Carlo

 Io, per esempio, utilizzo uno scritto celato in una bitmap di sistema.
In che senso?
Steganografia?
E se la bitmap viene sovrascritta o cancellata??

 ha scritto nel messaggio
news:rxDzb.7339$uv1....@nntpserver.swip.net...

Questa procedura utilizza un ocx da me realizzato (VB5 e 6) nel cui interno
è compresa la bitmap di sistema. Qualora questa venga cancellata, la ricrea.
Inoltre, per rafforzare la protezione, l'ocx genera una chiave pubblica che
solo con la corrispondente chiave privata,  in mio possesso e che varia
continuamente, permette l'utilizzo del software.
Posso ancora dirti che un mio applicativo che viene distribuito in Italia
dal 97 (una demo è stata inserita nell'Office Magazine di Novembre) è stato
oggetto di interesse da parte di abili craccatori che hanno tentato di
riprodurre il programma e distribuirlo. A tutt'oggi la protezione risulta
efficace.
Ciao, Carlo

 ha scritto nel
messaggio news:3FCzb.46952$AX1.1...@news1.tin.it...


 grazie per la risposta, sinceramente avevo già pensato di dover scrivere
del
Visto che l'hai già pensato, prova a farlo scrivendo correttamente DOPO il
quoting!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: Calendario

Ciao a tutti
ho inserito in una casellla il comando del calendario, solo che quando lo 
apro cliccando sulla casella mi si apre il calendario ma sulla data di 
default. Qualcuno mi sa dire come posso fare a far aprire il calendario 
evidenziando in automatico la data odirna di quando si apre.
ciao 

 ha scritto nel messaggio 
news:43e6ec6c$0$28072$4faf...@reader1.news.tin.it...

Me.Calendario = date
Ciao, Carlo 

 ha scritto nel messaggio 
news:43e6f3f9$0$5983$4faf...@reader2.news.tin.it...


 ciao
Cut
Rispondi dopo il messaggio e non in testa....
Potresti usarla quando apri il calendario...al click del pulsante subito 
dopo il codice che visualizza il calendario stesso; oppure quando vuoi tu 
purchè il calendario sia visibile. Ovviamente parlo di codice VBA....
Ciao, Carlo 

 Ciao, Carlo
Posso approfittarne per una domanda stupida?
Ho visto che a volte si usa Me.campo e altre Me!campo, qual'è la differenza?
Grazie
Fabio

 ha scritto nel messaggio 
news:opfgc3-...@news.tin.it...

 Sono simili ed ottengono il medesimo risultato se si fa riferimento ad un 
controllo in una maschera:
Me.NomeControllo e
Me!NomeControllo
Ciao, Carlo 

 Me!NomeControllo
Ti ringrazio
Ciao
Fabio