mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Contare i campi

Qualcuno sa indicarmi se esiste un corrispondente di RecordCount per i campi
di un recordset?
Mi spiego meglio:
Per eseguire un ciclo for su un recordset eseguo
Set MyRS = Currentdb.Openrecordset ("Select ...")
Myrs.Movefirst
For i = 1 to MyRs.RecordCount
....
next i
 Io dovrei eseguire il seguente ciclo:
For i = 2 To MyRs.FieldCount ' questo metodo non esiste
  MyRs1.Fields(i).Value = MyRs1.Fields(i).Value * SC / 100
Next i

 ha scritto nel messaggio
news:3f69e56f@shknews01...

Devi scorrere l'insieme fields:
dim MyRS as recordset, Fld as field
Set MyRS = Currentdb.Openrecordset ("Select ...")
Myrs.Movefirst
For i = 1 to MyRs.RecordCount
   for each fld in MyRs.fields
       if 
fld.name
<>"nome_primo_campo" then fld.value=fld.value*SC/100
   next fld
   MyRs.movenext
next i
Namor

Carmelo Di Rosa ha scritto:

esiste pero' fields.count 
--
a.cara
togli qualcosa dall'email

Newsgroup: it.comp.appl.access
Titolo: Indice di vettore/matrice con variabile numerica: nome variabile costruito in maniera dinamica

Buongiorno, ho bisogno del vostro aiuto.
Spesso mi trovo a ciclare i controlli testo di una form, secondo questa routine:
 
For X=1 To 9
	Me("Campo" & X).Caption = "cambia caption"
Next X
 
 
Ora sono nella seguente situazione (anche grazie ai post del ng!):
 
Dim Vettore(1)
Const tempCampoA As Integer = 0
Const tempCampoB As Integer = 1
Dim Rst As Recordset
 
... operazioni di popolamento del vettore ...
Vettore(tempCampoA) = "bla bla bla"
Vettore(tempCampoB) = "ok ok ok"
 
... operazioni di accodamento in tabella ...
 
Set Rs = CurrentDb.OpenRecordset("nometabella")
 
With Rs
	.AddNew
	!CampoA= Vettore(tempCampoA)
	!CampoB = Vettore(tempCampoB)
	.Update
	.Bookmark = .LastModified
End With
If Not Rs Is Nothing Then Rs.Close: Set Rs = Nothing
 
Il tutto gira a meraviglia, ma vorrei ulteriormente "generalizzare" (diciamo così) il codice all'interno del With, tipo così:
 
Dim NomeCampo as Field
With Rs
	.AddNew
	For each NomeCampo in Rs.Fields
		.Fields(NomeCampo) = Vettore("temp" & NomeCampo)
	Next NomeCampo
	.Update
	.Bookmark = .LastModified
End With
 
Ciò che "blocca" la corretta esecuzione è l'istruzione Vettore("temp" & NomeCampo), poichè Access interpreta così: Vettore("tempCampoA"), ovvero con una stringa nell'indice del vettore.
 
Qual è la sintassi corretta per far interpretare ad Access Vettore(tempCampoA) e non Vettore("tempCampoA"), costruendo l'indice in maniera dinamica?
 
Grazie!

L'Array vuole l'indice... quindi è naturale che non possa andare quello che dici...
Per fare quanto chiedi avresti dovuto usare una Collection... ed usare la KEY come Nome
 
Dim c as New Collection
 
c.add 0,"tempCampoA"
c.add 1,"tempCampoB"
 
For each NomeCampo in Rs.Fields
.Fields(NomeCampo) = c.Item("temp" & NomeCampo).Value
Next NomeCampo 
 
Saluti
@Alex


Grazie Alex,
non ho avuto modo di testare la tua soluzione... in questo progetto sono vincolato ai vettori. Ma farò tesoro del tuo consiglio.
 
Grazie ancora!
Michele
Newsgroup: it.comp.appl.access
Titolo: Inner join con doppia clausola ON

ciao a tutti io avrei un problema...
devo fare un inner join tra 2 tabelle dove pero' i campi che devono
coincidere sono 2 e non solo 1...
avevo pensato quindi di fare 2 on pero' nn ho idea di come si
faccia...
ho provato a fare
on tabella1.campo1 = tabella2.campo1 and tabella1.campo2 =
tabella2.campo2
ma il valore restituito non e' corretto.. ho provato a fare anche and
on ma questo invece mi da errore...
qualcuno sa come si faccia?

 ha scritto nel messaggio 
news:445b1218-aea2-4ba4...@v46g2000hsv.googlegroups.com...

Se ti riferisci in una query, questo è un esempio funzionante:
SELECT Abi.Abi, Abi.Descrizione
FROM Abi INNER JOIN Abicab ON (Abi.Descrizione = Abicab.Descrizione) AND 
(Abi.Abi = Abicab.Abi);
Se invece ti riferisci alla maschera dove si settano le relazioni e i Join 
allora apri la finestra relazioni e fai doppio clic sulla linea di join, 
nella successiva maschera puoi stabilire altri join scegliendo i campi della 
prima e della seconda tabella dalle combo che si trovano appena sotto i nomi 
dei campi coinvolti nella prima relazione.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: routine chiamante

E' possibile fare in modo che una funzione possa riconoscere la routine Sub
(in pratica l'evento) che ha eseguito la chiamata con la Call?
E' il caso in cui più eventi eseguono la stessa funzione e all'interno della
funzione vengono eseguite alcune operazioni diverse a seconda dell'evento
che l'ha scatenata.

E' il caso in cui pių eventi eseguono la stessa funzione e all'interno


Newsgroup: it.comp.appl.access
Titolo: Maschera a schede

Vorrei chiedere se è possibile in una maschera a schede differenziare il
colore da una scheda all'altra

colore da una scheda all'altra
Il controllo a schede Standard di Access non č troppo flessibile, ma se vuoi differenziare il colore
di sfondo delle varie pagine procedi cosě:
Crei in ogni pagina un rettangolo colorato esteso quanto il relativo Frame, quindi Menů
Formato/Metti in secondo piano.
Ciao, warp

Newsgroup: it.comp.appl.access
Titolo: Help Conversione XP/97

Ho convertito da access xp a 97.
Con xp tutto funziona a meraviglia!
Con 97: 2 problemi:
...
1: Application.FileDialog(msoFileDialogFilePicker)
...
Ho l'esigenza di cercare ed aprire dei file ma in access 97 la strada
probabilmente è un'altra. Infatti l'oggetto application non riconosce
l'apertura del controllo FileDialog.
2: devo dichiarare una variabile path = CurrentProject.path
CurrentProject non funziona.

 CurrentProject non funziona.
Sul sito comune trovi delle API per sfruttare il selettore di cartelle di
windows da Access '97.
Ciao.
Newsgroup: it.comp.appl.access
Titolo: A97 Etichetta report

E' possibile ripotare nell'etichetta del report il contenuto di uno o
piů campi dello stesso?
Grazie
Emilio

 Emilio
Me.tuaetichetta.caption = me.tuocontrollo
ovviamente devi cambiare i nomi con quelli che usi tu
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Scusa l'ignoranza ma lo devo inserire nelle proprietā del report?


 ovviamente devi cambiare i nomi con quelli che usi tu
Nel modulo "dietro" il report
Visualizza- codice
su corpo format

Newsgroup: it.comp.appl.access
Titolo: Controllo data creazione cartella win 2k e successivi

Per controllare che un applicativo non venga spostato di cartella, 
controllo la data di creazione della directory dell'applicativo. 
attraverso questo codice:
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder("C:\Cartella\")
     s = f.DateCreated
il problema nasce che su macchine con sistema operativo Win2K e 
successivi al cambio da ora solare a ora legale crea problemi di 
"riconoscimento2 nel senso che mi genra un errore sulla data di 
creazione (non sono ancora riuscito a capire che errore sia.
Con WinXp ho risolto aggiungendo il controllo sul seriale dell'HD, ma 
con Win2K  anche questo controllo salta (viene aggiunto uno spazio 
all'inizio del numero e mi salta il controllo su base numerica)
Avete qualche suggerimento?
Grazie
Ciao
Nick

"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio
news:Axu2e.36185$zZ1.1...@twister1.libero.it...

Ciao Nick,
ho Win2K Sp4
lo script per leggere la data/ora della cartella mi funziona bene quindi non
saprei come aiutarti.
Uso anche io il controllo sul numero seriale dell'HD, ha sempre funzionato
con tutti i sistemi operativi, forse c'č qualche bug  nel tuo metodo di
estrazione ?
Come fai ad estrarre il numero seriale dell'Hd ?
Ciao Giorgio

 
Presa dal NG
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:\")))
Select Case d.DriveType
Case 0: t = "Sconosciuta"
Case 1: t = "Rimovibile"
Case 2: t = "Fissa"
Case 3: t = "Rete"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM"
End Select
s = "Unità " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "NS: " & d.serialnumber
MsgBox d.serialnumber
non capisco...
misteri di casa microsoft :D
Grazie
Ciao
Nick


Ciao Nik,
io uso le API ma non ci sono differenze nel risultato ottenuto
Il numero restituito da d.serialnumber è un vbLong, non so se è il tuo caso
ma se il valore è positivo e lo trasformi in stringa con la funzione STR() o
con Cstr() è normale che ti ritrovi uno spazio all'inizio. Se invece usi la
concatenazione  (var="" & d.serialnumber)  lo spazio all'inizio viene
eliminato.
Ciao Giorgio

giorgio rancati ha detto: in data 30/03/2005 14.04:

proverò a cambiare metodo di scrittura (visto che lo memorizzo in un 
file di testo)
io lo scrivo con
Open FileHD For Output As #1
     Print #1, d.serialnumber
Close #1
però in lettura quando confronto, su macchine con Win2K mi da errore.. 
vedo se mi viene qualche altro hack per controllare dove sta l'errore...
Grazie
Ciao
Nick

 vedo se mi viene qualche altro hack per controllare dove sta l'errore...
Ciao Nick,
č normale che con valori positivi ti ritrovi nel file il numero con davanti
uno spazio, d.serialnumber viene convertito in stringa prima di essere
scritto nel file.
per salvare senza spazio fai cosě
-----------
 Open FileHD For Output As #1
      Print #1, "" & d.serialnumber
 Close #1
-----------
Ciao Giorgio

 
Vedi che dimenticavo qualcosa!!!!!
Provo subito!!
Grazie mille!
Ciao
Nick
Newsgroup: it.comp.appl.access
Titolo: OT: ripristinare file di EXCEL

Scusate l'OT ragazzi, ma qualcuno conosce tecniche di ripristino per file di
Excel danneggiati?


Danneggiati dal maltempo o dagli animali selvatici?
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


Non indicano che tipo errore ti presenta (te lo apre o no? Se sì, i dati
sono visualizzati parzialmente? O non vedi nulla?), ho effettuato una
ricerca nella KB di MS e ho trovato un suggerimento che volevo proprorti io,
se non l'avevi già fatto.
Il link è:
http://www.microsoft.com/IntlKB/Italy/articles/I179/8/71.HTM?LN=IT&SD=SO&FR=
0.
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


http://www.microsoft.com/IntlKB/Italy/articles/I179/8/71.HTM?LN=IT&SD=SO&FR=
Grazie Sergio, adesso provo e poi farò sapere l'esito :-)
Ciao, Silvio

 Danneggiati dal maltempo o dagli animali selvatici?
Groan...

Newsgroup: it.comp.appl.access
Titolo: Query di accodamento

In una banalissima query di accodamento ho dei campi numerici (valuta) che 
sto impongo in accodamento con valore zero. Non capisco per quale motivo la 
procedura mi va in errore evidenziandomi il seguente messaggio "Impossibile 
aggiungere la quantità di dati desiderata. Inserire o incollare meno dati". 
Se vado in visualizzazione la query contiene una decina di record. I campi 
però che dovrebbero contenere zero, contengono numeri molto grossi.
Boh! Qualcuno sa darmi una dritta?
Grazie 

Ho risolto! Era una query in cui i dati erano accodati per totali e per i 
campi incriminati  come formula avevo lasciato "raggruppamento" e non 
"espressione".
Sorry!
Spero possa essere di aiuto a qualcun altro.
Newsgroup: it.comp.appl.access
Titolo: sp3 Errore: chiamata di routine o argomento non validi

Ciao ho installato la sp3 per O2000 e quando vado a creare delle query o dei
report con la creazione guidata mi segnala l'errore in oggetto.
Potete aiutarmi?
Ciao grz by Logan bye bye

 oggetto. 
Forse aiuta riregistrare la DLL di DAO come descritto nel articolo
"Errore 429 - Il componente Activex non e' in grado di creare l'oggetto."
http://www.sitocomune.com
 General
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:b01266$kcdn6$1...@ID-46617.news.dfncis.de...

Grz per la risposta, ma non funziona cmq
Altri suggerimenti??


 Altri suggerimenti??
Quest'errore puo avere molte cause. Purtroppo qualche variante
è quasi insolubile senza rimuovere Office dal registry etc.
Di solito si tratta di un DLL usato dal wizard come questo di
DAO che ho già scritto. Puoi anche provare a rimuovere e poi
mettere di nuovo i riferimenti.
Apri un modulo, menu strumenti/riferimenti. Ci sono necessario:
Visual Basic for Applications
Microsoft Access 9.0 Object Library
Microsoft DAO 3.6 Object Library
o invece di DAO se usi ADO:
Microsoft ActiveX Data Objects Library
In ogni caso prova di mettere il riferimento a DAO.


 ha scritto nel messaggio
news:b0157t$kd58d$1...@ID-141292.news.dfncis.de...

Come ti ha suggerito Karl, ma appena modificato, prova anche con:
Regsvr32.exe C:\Programmi\File comuni\Microsoft Shared\DAO\dao350.dll
oppure:
C:\Programmi\File comuni\Microsoft Shared\DAO\dao360.dll
da eseguire da riga di comando di Windows.
Un'altra strada è quella di avviare il setup di
Office...Aggiungi/Rimuovi...elimina le autocomposizioni di Access e poi
ripeti il setup e le reinstalli.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: Re: elimino barra laterale correzione

 scritto . Scusate e saluti
Apri la struttura della maschera ed imposta a No la sua proprietą Selettori
record.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 
          Ho commesso un piccolo errore la barra laterale con la freccina indica il
record e si trova sulla sinista e non sulla destra come erroneamente ho
scritto . Scusate e saluti
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.appl.access
Titolo: Backup DB Access

Buongiorno,
se ho il Backend di un'applicazione su un server su cui avviene regolarmente
il backup, supponendo che durante la procedura di backup un client stia
usando l'applicazione e quindi lavorando sui dati sul server...cosa succede
al file backend? In caso di restore cosa ritroverei?...il file di dati
potrebbe risultare danneggiato?
Sapete indicarmi dove posso trovare della documentazione sull'argomento?
Grazie. Saluti cordiali a tutti.
Massimo

 ha scritto nel messaggio
news:ao0tgg$sqd$1...@rex.ip-plus.net...

Posso solo confermarti che corri il rischio di danneggiare l'archivio e il
danno puň essere minimo (nel senso che ricompattandolo torna a posto) o ben
piů grave (archivio effettivamente irrecuperabile).
Fabio

 ha scritto nel messaggio news:ao0tgg$sqd$1...@rex.ip-plus.net...

Ciao,
il fatto che il file venga salvato anche se è in uso dipende da diversi fattori: il sofware di backup (e da come è stato
configurato) e dal sistema operativo.
L'integrità dei dati in genere viene preservata (mi è capitato alcune volte di fare il restore ed il file era ok) anche se il backup
avviene con il file .mdb in uso, comunque se ripristini dati che sono stati salvati con il file in uso è meglio controllare che le
ultime modifiche siano apposto.
Per avere altre informazioni io guarderei l'help del sw di backup.
Mat.

Newsgroup: it.comp.appl.access
Titolo: Creazione Pacchetti

Salve,
potreste indicarmi una qualche alternativa alla creazione guidata dei 
pacchetti di installazione di Office XP Developer.
Qualcuno mi ha indicato "Inno" ma è abbastanza semplice e veloce da 
utilizzare ?
Accetto suggerimenti, Grazie.


Se ci aggiungi ISTool sì, perchè gestisci inmaniera visuale
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

Si decisamente, almeno per me, per te credo l'unico modo
per saperlo è provarlo.....!
@Alex

 
Ciao, scusa l'ignoranza, ma i riferimenti a dll e ocx che con la 
creazione guidata vengono trovati automaticamente con inno devono essere 
definiti a mano ?

scusate se mi inserisco ...ma esiste una guida per poter usare inno
setup con access?? ed esiste una versione italiana di inno?? so che
esiste la patch per visualizzare l'interfaccia di inno in italiano , so
che si scarica dal sito ufficiale di inno setup ma non so come
installarla.
Newsgroup: it.comp.appl.access
Titolo: manuale per access2000

chi mi consiglia un buon manuale per access2000? mi tocca impararlo un
pochino per sviluppare delle piccole
applicazioni di archiviazione articoli clienti fornitori e fatturazione
grazie

Giovanni® <giovann...@libero.itNUNCESCASSATEO'CA**O!> wrote in message
FdVI6.18446$UW4.1...@news.infostrada.it...

Ti consiglio Programmare Access 2000 della Mondadori Informatica autore
Dobson costo Lit. 90000 cd incluso con esempi interessanti
ciao
anto

"Giovanni®" <giovann...@libero.itNUNCESCASSATEO'CA**O!> ha scritto nel
messaggio news:FdVI6.18446$UW4.1...@news.infostrada.it...

Prova con: Access 2000 Guida completa della Apogeo (contiene CD). Non
dimenticare che il primo aiuto viene dalla guida in linea.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: Fusione logica archivi

Forse è una domanda da profano...
Ho diversi archivi (con la stessa identica struttura) seminati su
server differenti.
Tutti gli archivi sono collegati al programma principale (FE).
E' possibile collegare logicamente i dati degli archivi come se
fossero uno solo (senza creare tabelle temporanee di fusione) per
effettuare ricerche, statistiche etc.?
Grazie...!

 ha scritto nel messaggio
news:d6436ebc.0301...@posting.google.com...

Parola chiave SQL
UNION
Antonio
Newsgroup: it.comp.appl.access
Titolo: Trovare le differenze tra due files...

Ammetto d'utilizzare ancora una vecchia utility DOS per elencare (eventuali)
differenze tra due files.
Voi cosa usate allo scopo?
Ciao a tutti!


wrote:

Non hai detto che tipo di file tratti...!
SourceSafe potrebbe essere una soluzione.
Windiff, che e' incluso nel DevStudio.
Una routinetta in VB/A che legge il file in ByteArray e fa il
confronto... se ovviamente non sono enormi...
Non mi viene in mente altro...
@Alex


wrote:

Per Windiff.exe trovi le info quì:
http://www.componentsoftware.com/products/csdiff/download.htm
Rimanendo dell'idea che il DOS è il più veloce per queste cose... nel
caso volessi solo vedere se sono uguali basterebbe confrontare l'Hash
dei 2 file...
ci sono delle DLL velocissime:
http://student.ing-steen.se/asp/md5/x-md5.zip
Purtroppo l'Hash non è realmente UNIVOCO, ma la probabilità di avere 2
Hash uguali è inferiore a quella di avere 2 GUID uguali...
Prova a vedere anche questo:
http://www.componentsoftware.com/products/csdiff/download.htm
Anche FC.Exe non è male:
http://www.ss64.com/nt/fc.html
Ciao
@Alex

 Windiff, che e' incluso nel DevStudio.
Non č questa l'esigenza: piů banalmente in questi giorni ho a che fare con
dei file .TXT piuttoso rognosi.
E per ragioni di Debug devo confrontare i vari Output...
Ora visito i link che hai postato: grazie Alessandro
Ciao!
Newsgroup: it.comp.appl.access
Titolo: 4Dimension

Ciao ragazzi, se qualcuno di voi ha dimestichezza con 4dimension forse
può darmi una mano.
Ho un problema con un DB di oltre 3Giga. 4Dimension me lo partiziona
automaticamente in DB più piccoli, ma le prestazioni non sono per
nulla ottime. Sapete se esistono utility customizer in grado di
effettuare un'ottimale partizionamento. Grazie a tutti
0101010101010100000101101101010

 ha scritto nel messaggio 
news:1191482272.5...@o80g2000hse.googlegroups.com...
Ciao ragazzi, se qualcuno di voi ha dimestichezza con 4dimension forse
puň darmi una mano.
Ho un problema con un DB di oltre 3Giga. 4Dimension me lo partiziona
automaticamente in DB piů piccoli, ma le prestazioni non sono per
nulla ottime. Sapete se esistono utility customizer in grado di
effettuare un'ottimale partizionamento. Grazie a tutti
------------
Dividi il db in piů db da 1 giga o meno...
L'interfaccia o mde allega le tabelle da piů db...
Tutto questo  č possibile se i 3 giga sono la dimensione della somma di 
tutte le tabelle...
Usi immagini? Perchč č cosě grande?
Ciao, Carlo 

 Ciao, Carlo

 ha scritto nel messaggio 
news:1191490507.3...@y42g2000hsy.googlegroups.com...
è grande perchè è un db aziendale. Quindi mi dici di scompattarlo in
segmenti minori di 1 giga..
Il fatto che sia aziendale di per se non vuol dire che deve essere così 
grande.
Se ci dici come è strutturato il database forse riusciamo ad aiutarti.
Tabelle in un mdb e maschere in un mde?
Tutto in un mdb?
Versione di Access?
Cosa vuol dire "scompattarlo"?
Ciao, Carlo

 ha scritto nel messaggio 
news:1191482272.5...@o80g2000hse.googlegroups.com...
Ciao ragazzi, se qualcuno di voi ha dimestichezza con 4dimension forse
puň darmi una mano.
Ho un problema con un DB di oltre 3Giga. 4Dimension me lo partiziona
automaticamente in DB piů piccoli, ma le prestazioni non sono per
nulla ottime. Sapete se esistono utility customizer in grado di
effettuare un'ottimale partizionamento. Grazie a tutti
Aspetta! Ritiro tutto... solo ora ho realizzato che non č un db Access!
Arghhhhhhhhhhh
Hai sbagliato NG e anche io la mia risposta.
Ciao, Carlo

 Ciao, Carlo
č la vecchiaia....
ahiahiahi...
hehehe...
Davide(Sib)
-- 
www.gestionedati.com
 

 Davide(Sib)
Sto cominciando a sclerare...se faccio di questi errori!
4Dimension?!
Chi č costui?
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Come compattare il database ?

Ciao a tutti, il mio problema è quello di compattare il database poichè alla
chiusura di un programma non viene eseguita la compattazione pur avendo
messo il simbolo di spunta su "compatta alla chiusura" nella scheda GENERALE
del database.
Infatti se successivamente riapro la finestra del database, ma senza avviare
il programma, la dimensione del file dati (ho fatto la divisione del
database) si riduce notevolmente quando la richiudo.
Non capisco dove sbaglio ?
Ringrazio in anticipo per l'aiuto.
Un saluto a tutto il NG da Paolo.

Dividiamo i problemi.
Se hai settato il Compatta alla chiusura, quello funziona di certo.
Il problema è che se hai diviso il DB in 2 ha effetto solo sul FE.
Per compattare il BE(quello con le Tabelle) devi farlo via codice
usando il Metodo CompactDatabase
Sub CompactDatabase(SrcName As String, DstName As String, [DstLocale],
[Options], [SrcLocale])
    Membro di DAO.DBEngine
Compatti il BE dandogli un Nome Temporaneo, elimini o rinomini il
vecchio BE
e rinomini il Nuovo BE con il nome del vecchio.
@Alex

 ha scritto nel messaggio
news:1147425887.8...@j73g2000cwa.googlegroups.com...


Newsgroup: it.comp.appl.access
Titolo: Attivare una Macro da un altro progetto Access

N.G. Buon Pomeriggio,
Ho un quesito da risolvere; Ho la necessità di far partire una macro 
residente dentro un progetto diverso dal mio, naturalmente tutti e due 
progetti MDB.
Grazie
Elìa

 progetti MDB.
Se veramente intendi un macro (non una procedura di VBA)
puoi usare automazione. Vedi il secondo esempio nella
www.donkarl.com/it
 FAQ 1.21 dove solo devi sostituire
la riga col DoCmd con:
appAcc.DoCmd.RunMacro "NomeDelMacro"
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:4mvpmnF...@individual.net...

Karl grazie per il suggerimento sono andato e ho trascritto inserendo la 
stringa da te suggerita
Private Sub Comando31_Click()
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\TabelleOggi")
appAcc.DoCmd.RunMacro "AggArchOggi"
db.Close
Set db = Nothing
Mi da un errore  su appAcc.DoCmd.... "Errore di Compilazione Variabile Non 
definita" 

 Variabile Non definita"
Hai preso il primo codice di esempio nella FAQ invece del
secondo come suggerito e necessario qui.



("c:\TabelleOggi.mdb")
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Grazie di cuore ho risolto il problema. Siete fantastici
Elìa
Newsgroup: it.comp.appl.access
Titolo: mi spegate la differenza fra Access e Excel?

Ciao
come da oggetto, vorrei sapere la differenza fra i due programmi, ed inoltre
per cosa vengono utilizzati effettivamente...
so' che la domanda e' banale, ma spesso ho visto persone usare male i
programmi della suite Office....facendo fare al word cose che magari
dovrebbe appunto fare con l'excel !!
grassie!
p.s. si possono creare applicazioni con i suddetti programmi, che funzionino
anche senza access o excell?
ciao!

 anche senza access o excell?
Per Excel esiste un viewer x visualizzare i file .xls.
Per Access vedi sul Sito Comune l'ultima faq della sezione General (il
faqqone)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


Non si possono creare applicazioni vere e proprie.
In Excel si possono comunque creare delle procedure che automatizzano molte
operazioni.
In Access è possibile creare delle interfacce vere e proprie , che possono
anche nascondere completamente la struttura del database che sta alla base
del programma, lasciando finestre per l'inserimento dei dati, l'elaborazione
e la stampa.
Il file creato ha la necessità comunque di avere Access installato per
funzionare, non è possibile creare file indipendenti.
Esiste comunque una versione Runtime di Access che permette di utilizzare i
file creati ma non di modificarli.
Per creare un'applicazione indipendente si puo comunque utilizzare access
per organizzare i dati, programmando invece in Visual basic tutta la parte
di FrontEnd (interfaccia grafica e processi che elaborano i dati).
Nicola
Newsgroup: it.comp.appl.access
Titolo: [Hlp] Index e Seek non vanno su tab.collegate?

E' normale che le funzioni Index e Seek mi danno errore se impostate su una
tabella collegata (prima lo facevo direttamente sul BE e tutto funzionava,
quindi ne deduco che...)
Grazie a chi mi illuminerà.
--
<***********************************>
Vigna Federico...CED L'Abbondanza
Email: 
in...@labbondanza.it
Http: 
www.labbondanza.it
<***********************************>

 Grazie a chi mi illuminerà.
Ultimissime dal NG!
Come argutamente osservato da Lbo, la proprietà index e il metodo seek non
funzionano se si apre un recordset basato su una casella combinata, ma
funzionano se si apre il recordset basandolo sulla tabella del database
remoto. Cioe':
MiaTab = Tabella collegata alla tabella remota TabRem nel db remoto DBRem
Se scrivi:
Set rst=CurrentDb.OpenRecordset ("MiaTab")
Index e Seek non funzionano
Se scrivi:
Set rst=DBRem.OpenRecordset("TabRem")
Index e Seek funzionano (dopo aver impostato DBRem al db remoto)
Esempio:
Function Pippo()
Dim dbrem As Database
Dim rst As Recordset
Set dbrem = DBEngine.Workspaces(0).OpenDatabase("NomeDBRemoto")
Set rst = dbrem.OpenRecordset("NomeTabellaRemota")
rst.MoveLast
Debug.Print rst.RecordCount
rst.Index = "PrimaryKey" 'O un qualsiasi altro indice
rst.Seek "=", 1 'O un altro valore compatibile con l'indice che hai scelto
Debug.Print rst!CampoChePreferisci
Set rst = Nothing
End Function
Ciao, Sib

 Ciao, Sib
Cià Davide  ;-)
RoDAgo

funzionano se si apre un recordset basato su una casella combinata, ma
basato su che?  :-)
comunque a mia volta mi fu spiegato un veeecchio frequentatore di
icda... era nel 97...
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 icda... era nel 97...
C'e' sempre qualcuno che l'ha detto prima.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


Ciao, Davide
PS scusa se non ti ho ancora restituito quei CD che mi hai prestato tempo
fa.
A proposito, ti servono?

 A proposito, ti servono?
Nun c'è problema, ma almeno ti sono serviti?
Cià
RoDAgo

 RoDAgo
Ciao.

 Tu l'hai usato?
Si, funzionava correttamente dopo aver settato un bel pò di parametri,
purtroppo era tutto nel portatile e sai benissimo che fine ha fatto.
RoDAgo


Ciao, Davide
Newsgroup: it.comp.appl.access
Titolo: Access in rete

Salve,
ho creato un semplice DB (una tabella), che deve essere usato da piu' utenti
contemporaneamente, con l'uso di una ethernet;
Dopo aver condiviso la cartella che contiene il DB nel PC1, ho avviato
access dal secondo PC2, e il DB direttamente dalla rete; sembra funzionare
correttamente: creo un record in PC2 [ID=1], creo un record in PC1 [ID=2],
salvo il record in PC2, salvo il record in PC1, entrambi vedono due record.
Dando una lettura al newsgroup, si consiglia di dividere il DB, e di
installare il front-end nei PC remoti.
Volevo sapere quali sono i problemi della mia scelta, oltre ad una
diminuzione di velocita'; si possono perdere record, si corrompe il DB
facilmente, ....
GRAZIE 1000
faf...@tiscalinet.it

RETTIFICO:
In entrambe le soluzioni, il nuovo record viene visto solo dalla tabella e
NON dalla maschera, devo chiude e riaprire la maschera per scorrere tutti i
record, sia nel PC1 che nel PC2.
Come risolvo questo problema ?
Ho fatto Forms!nomemaschera.Refresh ma senza risultato
GRAZIE 1000
faf...@tiscalinet.it


wrote:

prova con requery e non refresh
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: funzione browsefolder

Scusate ma sto cercando sul sito comune la funzione in oggetto ma non 
riesco a trovarla, qualcuno mi dà il link?
grazie

 grazie
Salva questo modulo...
Option Compare Database
Option Explicit
Dim clsBrowseFolder As String
Dim szDialogTitle As String
Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
 
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
 
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function OpenBrowseFolder()
  Dim X As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
  If szDialogTitle = "" Then szDialogTitle = "Seleziona la Directory..."
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
 
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
 
    If X Then
        wPos = InStr(szPath, Chr(0))
        clsBrowseFolder = Left$(szPath, wPos - 1)
    Else
        clsBrowseFolder = ""
    End If
End Function
Property Get BrowseFolder()
  BrowseFolder = clsBrowseFolder
End Property
Property Let Titolo(clsTitolo As String)
   szDialogTitle = clsTitolo
End Property
...
Poi in una form...
Option Compare Database
Option Explicit
Dim OpBrowser As clsBrowseFolder
Private Sub TuoPulsante_Click()
   Set OpBrowser = New clsBrowseFolder
   OpBrowser.Titolo = "Seleziona la destinazione..."
   OpBrowser.OpenBrowseFolder
   Me.TuaCasellaTesto = OpBrowser.BrowseFolder
End Sub
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:csqvlj$dsc$1...@news.newsland.it...

Per curiosità (qui non si butta via niente :-))) ) ... cosa fa sto' 
Browseinfo ?
(lo so che potrei provare ... ma per me è come suonare lo spartito di una 
canzone mai sentita ... bisogna saper leggere la musica oppure conoscere già 
la melodia)
Rick
P.S.: ovviamente io non so leggere la musica ! :-) 

 Browseinfo ?
Volevo dire browsefolder ...
Rick
Newsgroup: it.comp.appl.access
Titolo: filtro data in maschera

=nz([forms]![listatordini]![dal];"*") And
<=nz([forms]![listatordini]![al];"*")
sapete dirmi cosa sbaglio?

 ha scritto nel messaggio
news:b4t3sa$5k2$1...@lacerta.tiscalinet.it...

Così come hai scritto tu, se [dal] e/o [al] hanno il valore Null, confronti
una data con una variabile stringa che  ha valore asterisco e quindi non ti
verrà selezionato alcun record (visto che non credo che tu abbia il volore
asterisco in un campo di tipo Data/ora).
Se la tabella che contiene i dati si chiama Tabella1 ed il campo sul quale
imposti il filtro si chiama MiaData.
Se come sembrerebbe stai operando nei criteri di una query, prova a scrivere
così nelli criteri:
Between Nz([forms]![listatordini]![dal]; DMin("MiaData"; "Tabella1")) And
Nz([forms]![listatordini]![al]; DMax("MiaData"; "Tabella1"))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: rendere .mdb inmodificabile

domanda forse semplice? non lo so.....
Vorrei che il mio archivio .mdb possa funzionare senza l'ausilio di access e
senza che possa essere modificato nella sua struttura (ovviamente i dati
continuano a essere modificabili). Come se con VB creo un .exe che poi
(ovviamente!) continua a funzionare su qualsiasi altro pc senza VB.
Si può fare questo con Access2000 ?
spero di essermi spiegato (magari ne esce un .exe anche da Access?? non lo
so....)
ivan

 Si può fare questo con Access2000 ?
Per il 1° punto vai a vedere nel Sito Comune, sezione General, il faqqone.
Per il 2° punto crei un MDE.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:rbmq7.6172$Lp6.2...@news.infostrada.it...

grazie mille! ci vado subito!
ivan


 ho trovato sul sito comune la trasformazione da MDB a MDE ma ora mi chiedo
il codice che ho letto dove devo inserirlo? in VB? in Access2000? dove
precisamente? scusate per le domande banali
ivan

 Si può fare questo con Access2000 ?
No, come non si puo' fare con nessuna versione.
Puoi creare una copia immodificabile del database (.mde) ma ti serve sempre
Access per aprirla.
Si possono fare comunque altre cose. vedi il Faqqone sul sito comune.
Sib

 precisamente? scusate per le domande banali
Approfitto per fare gli auguri a Silvio  ;-).....!
Provo a metterci del mio, vediamo se riesco a complicare tutto...
Il codice che hai trovato puoi buttarlo via...., non avertene a male, ma se
vai nella Barra Menù--->Strumenti--->Utilità DataBase--->Crea Copia MDE
fa tutto in automatico, sempre che il tuo codice non abbia errori, ti consiglio
di compilare prima tutti i moduli....!
Silvio intendeva per il 1° quesito di vedere sul SC il Faqqone, che ti spiega
come non si può realizzare un Eseguibile..........!
Spero di aver increspato le acque ancora un pò..!
Nel caso contrario sicuramente Silvio è più indicato ;-) (Scusa l'ironia
Silvio).
Ciao @Alex.
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:88d256ed238cdb5974...@mygate.mailgate.org...

 ho fatto quello che hia detto (dal menu strumenti) ed ho creato il file
.mde.
poi ho "doppiocliccato" sul file .mde ed ho potuto tranquillamente
modificarlo. Cosa mi è sfuggito?

 Ciao @Alex.
Ciao


 ha scritto nel messaggio
news:CHmq7.6353$Lp6.2...@news.infostrada.it...

Se hai seguito la spiegazione fatta da @Alex, crei un file .MDE in cui non è
possibile modificare la struttura e vedere il codice.
Se hai bisogno di proteggere da sguardi indesiderati anche le tabelle, devi
impostare la protezione utente (vedi faq sul Sito Comune)


 modificarlo. Cosa mi è sfuggito?
Cosa sei riuscito a modificare?
Sib
Newsgroup: it.comp.appl.access
Titolo: campi query da form (argomento già trattato)

Girando sul gruppo ho trovato questa espressione la quale dovrebbe fare
al caso mio (come al solito gentilmente postata da Alex)
da una maschera non associata, seleziono i campi che dovrebbero
comporre la query mediante la selezione di checkbox il cui nome
corrisponde ad un campo di una tabella.
Dim ctl As Access.Control
    Dim sSQL As String
    sSQL = "SELECT "
    For Each ctl In Me.Controls
        If ctl.ControlType = acCheckBox Then
            sSQL = sSQL & ctl.Name & ", "
            End If
    Next
   sSQL = Mid$(sSQL, 1, Len(sSQL) - 2)
sSQL = sSQL & " FROM Statistiche"
     CurrentDb.QueryDefs("qryGrafici").SQL = sSQL
     DoCmd.OpenQuery "qryGrafici"
il problema sta nel fatto che al lancio, la query generata comprende
tutti i campi e non solo quelli i cui controllo sono stati flaggati.
Ma sbaglio io o questo
If ctl.ControlType = acCheckBox Then
            sSQL = sSQL & ctl.Name & ", "
obiettivamente seleziona TUTTi i controlli checkbox contenuti nella
maschera?? e non solo quelli flaggati???
ho fatto tante modifiche ma non sono riuscito a trovare la soluzione,
qualche anima pia può indirizzarmi sulla maestra strada
ciauz
Claudio

 qualche anima pia può indirizzarmi sulla maestra strada
Ho risolto!!!! (sono felice perchè ci sono riuscito da solo)
non so se ho seguito la strada corretta, però fa quello che deve fare
;)))
ho inserito questa modifica
  For Each ctl In Me.Controls
        If ctl.ControlType = acCheckBox Then
            If ctl.Value = True Then
            sSQL = sSQL & ctl.Name & ", "
            End If
        End If
grazie
Claudio

Newsgroup: it.comp.appl.access
Titolo: query su campo mese

Ciao,
non riesco ad uscire da un vicolo cieco:
Mese
Gennaio	Mauro		100
Febbraio 	Claudio	250
Marzo		Michele	300
Gennaio	Mauro		170
Febbraio	Claudio	120
Vorrei ricapitolare in colonna A per Nome, colonna B per gennaio, 
colonna C per Febbraio ecc.
Fino a gennaio tutto ok utilizzando come criterio il nome gennaio, ma se 
utilizzo il criterio Febbraio nella colonna B della query mi esce 0.
Il massimo che ottengo è l'elenco per nominativo verticale: Mauro con 
sotto gennaio,Febbraio.Marco,; mentre io lo vorrei orrizontale.
Mi sa che mi sto perdendo in un bicchier d'acqua :-(
Grazie lo stesso

 Fino a gennaio tutto ok utilizzando come criterio il nome gennaio, ma se
Ecco, qui mi sono perso... in ogni caso devi usare una query pivot
(niente criteri o roba del genere), cosa che mi sembra di capire non
hai fatto:
TRANSFORM Sum(Valore) AS EXPR0001
SELECT Nome
FROM Tabella1
GROUP BY Nome PIVOT Mese;
cia'
Max

 
Grazie Roccia :-D
Newsgroup: it.comp.appl.access
Titolo: link fra record della stessa tabella

 
Salve a tutti
ho una tabella "contatti".
Pippo è amico di pluto e paperino (e nella scheda di pippo deve esserci un
link a pluto e paperino), pluto è amico di pippo, paperino e clarabella (e
nella scheda di pluto deve esserci un link a pippo, paperino e clarabella).
A parte le l'esempio waltdisneyano ammesso che possa lavorare creando una
tabella in cui collego i record con attinenze (campo1 id, campo2 id
_contatto1, campo3 id_contatto3) , come posso poi visualizzare nella
maschera del contatto i link ai record collegati?
Grazie in anticipo
Ezio
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ezio, mi sembra che ce ne siano abbastanza di tuoi messaggio riguardo allo 
stesso problema no?
Ciao.
-- 
Sergio MAZZA 


          Non volevo essere insistente ma solo più chiaro (ammesso che ci sia
riuscito)
scusate, Ezio Pizziconi


 ha scritto:

          Non volevo essere insistente ma solo più chiaro (ammesso che ci sia
riuscito)
scusate, Ezio Pizziconi
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.appl.access
Titolo: SubClassing

Qualcuno sa indicarmi un link per studiare un pň di teoria sul subclassing 
(sempre che si chiami cosě)?
Ho appena integrato nel mio database il modulo per bloccare la rotellina del 
mouse...
č un divertimento!succedono delle cose stranissime: si chiude da solo 
access...
la prima volta non funziona, la volta dopo sě...
insomma ora quando gira normalmente senza entrare nel vbeditor č tutto ok ma 
appena metto la password e rientro nelle maschere si inchioda.
Forse č meglio partire dal principio e cercare di capire come funziona!
HTH
Luca 

 wrote in message
news:NiXWd.65962$
QG6.1...@twister2.libero.it

Da quanto scrivi deduco che usi Access>97.
E' un problema conosciuto, per vederlo andare senza guai
non devi aver aperto Access in VBE, ma nemmeno in Design.
Se crei un MDE non avrai mai problemi.
In merito al SubClassing non č altro che intercettare
i messaggi di Windows, deviare l'esecuzione della procedura
ad una nostra procedura, quindi rientrare nel punto corretto
per far riprendere l'esecuzione delle procedure di Win.
Questo č un sunto, ma la cosa č complessa.
Trovi qualche articolo in IT di Moreno Sirri linkato dal
sito comune di VB, ma in generale se cerchi in Google trovi
Vagonate di documentazione.
In Access non č una tecnica consueta, pertanto devi un pň
calarla tu.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Grazie mille delle dritte
Luca
PS.  l'articolo di Sirri mi sembra veramente ok!
Newsgroup: it.comp.appl.access
Titolo: Prima versione di Access

Ciao a tutti,
Io me lo ricordo dalla versione 2.0 ma lo uso dalla versione 95. Prima
com'era ? che evoluizione ha seguito ?
Grazie.
Ganimede Dignan.


Questo per iniziare: 
http://en.wikipedia.org/wiki/Microsoft_Access
Ciao.
-- 
Sergio MAZZA 

 com'era ? che evoluizione ha seguito ?
http://www.emsps.com/oldtools/msaccv.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:1187170320....@b79g2000hse.googlegroups.com...

Anch'io me la ricordo la versione 2.0 e all'epoca preferivo il DBIV della 
Borland (che prima era della Ashton Tate) e sotto DOS, ma i tempi sono 
cambiati........
Io ho iniziato a lavorare con l'IBM XT poi con l'AT (advanced tecnology) che 
era un Intel 286, poi vennero i 386 i 486 il primo pentium che andai a 
vedere allo SMAU a Milano ed era sotto i riflettori.
Ai tempi un Dual Core non lo aveva neanche la NASA.
Si programmava scrivendo un sacco di codice ed era impensabile costruire 
un'applicazione articolata con i tempi di oggi.
Ma molti oggi invece di dire "miracolo, miracolo !!" criticano il software e 
ne accusano i difetti.
Che ne pensate ? 

 Questo per iniziare:
http://en.wikipedia.org/wiki/Microsoft_Access
Quindi a Novembre di quest'anno avrebbe 15 anni :-)
Miao.
Ganimede Dignan.

 Che ne pensate ?
Beh! Con la facilità con la quale Access ti mette in grado di scriverti la 
tua applicazione, gridare:  "miracolo, miracolo !!" è anche pericoloso; può 
dare un senso di "sicurezza" nel proporsi ad un cliente come programmatore.
Mentre sappiamo bene che senza le basi (acquisite tramite esperienze o 
averle studiate) fai poco o nulla.
I difetti? Ci sono e ci saranno sempre; sta a chi programma evitarli, come è 
sempre stato.
Comunque sì;  "miracolo, miracolo !!" l'ho gridato anch'io...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Formato data breve

Ciao a tutti!!
Vorrei sapere se è possibile, e se si come , impostare il formato della data
in Access in questo modo: 01/01/04
Di default permette di impostarla in questo modo: 01/01/2004
Grazie.


Sě. Usa DataInCifre e nella maschera di input: 99/99/00;0;_
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: come posso risolvere?

Ciao ragazzi, sono nuova del Ng!
Sto sviluppando un Db in Access e mi trovo di fronte ad un problema che non
so come impostare per risolverlo.
Ho una maschera attraverso la quale inserisco con delle Combobox collegate a
tabelle dei dati relativi ad un ordine cliente.
Una volta selezionato un valore dalla combobox questa va' ad aggionare dei
dati in altri controlli....
Mi trovo in difficolta' con la terza Combo in quanto la tabella collegata è
di ben 500 record!!! la tabella è strutturata cosi':
PRODOTTO       ARTICOLO    ECC...
a                          120
a                          121
a                          122
b                          200
b                          201....ecc
Il problema è appunto il numero dei record.
Cosi come ho impostato le precedenti dovrei scorrermi, alla ricerca
dell'articolo interessato, tutta la tabella....
Vorrei di conseguenza, sempre attraverso la combobox, prima di selezionare
l'ARTICOLO  che mi interessa (fare una preselezione della
categoria PRODOTTO)
in modo da trovarmi al massimo con 30/40 articoli tra i quali scegliere.,,
Avete una soluzione da propormi o sto chiedendo troppo ad una Combo???
E se è possibile mi fate un esempio di codice?...non sono molto ferrata in
Vba
Un abbaraccio a tutti e complimenti per il Ng...pensate l'ho scoperto per
caso tra 42.000 Ng....
.....ma perche' non vi fate conoscere un po di piu'?
Dalle post che vedo siete preziosissimi...un peccato trovarvi solo ora.
A tutti grazie
Laura


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

Scusami ma nel mio messaggio precedente ho commesso un errore di battitura;
sostituisci il paragrafo relativo  a Query2 con questo:
======================
Come origine riga di ComboArticolo scrivi Query2, dove Query2 ha il seguente
codice SQL:
SELECT Tabella1.ARTICOLO
FROM Tabella1
WHERE (((Tabella1.PRODOTTO)=[forms]![Maschera1]![ComboProdotto]))
ORDER BY Tabella1.ARTICOLO;
========================


 ha scritto nel messaggio
news:P1An6.44659$Y93.1...@news.infostrada.it...

Nell'origine dati delle tua combo incriminata mettici una query sulla
tebella che ti interessa. Nei parametri del campo prodotto ci metti
Forms![nome_tua_maschera]![nome_combo_prodotti]
ovviamente questa combo non servirà a nulla se prima l'utente non avrà
valorizzato la combo prodotti, ma è un altro film. Questa è la soluzione più
rapida e minimale.
ciao

 Roberto
Grazie Roberto
provero' la tua soluzione e ti faro' sapere
Sto inviando una nuova question....a me sembra ridicolo che Access faccia
queste cose..
...hai una idea in merito??
Un abbraccio...alla prox
Laura

Newsgroup: it.comp.appl.access
Titolo: Reset Variabili 2

Grazie per le risposte.
Le varibili sono dichiarate in un modulo a parte e sono pubbliche, in questo
modo:
Public Type TSycommParametri
    TempDir As String
    DriveRete As String
.....
End Type
Public ParametriSycomm As TSycommParametri
Preferisco caricarle tutte in memoria per non dover leggere dal DB ogni
volta (e sono tante!) che mi servono.
Cmq, durante l'esecuzione del programma ogni tanto "perdo" i valori
contenuti.
Posso capire se si verificano del Runtime error, ma non ne appaiono...
Chi mi puň dare una mano a capire?
Grazie
CIAO

 Chi mi può dare una mano a capire?
La Passware....gia' che gli scrivi chiedigli pure questo!:-))
Saluti.
Luciano
(DOC)


ROTFL!
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

"Merco"
Anch'io uso a volte variabili pubbliche per ragioni analoghe alle tue: se i
valori vengono resettati è solo per errori di programmazione ... controlla
bene :-)
Ciao, Simone

Newsgroup: it.comp.appl.access
Titolo: Numeri di copie del report

E' possibile in un report costituito da 1 pagina inserire il numero delle
copie ?  Mi spiego meglio :
il report e' simile a una comune etichetta, sta su una pagina , e io ho la
necessità di stampare "n" volte il report. Nella mia maschera con la quale
preparo il report ho una istruzione del tipo  :
    Dim stDocName As String
    stDocName = "Etichetta "
    DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut , , , , Me.[Testo75]
DoCmd.Close
testo 75 contiene un numero che io inserisco
il report viene cosi' stampato effettivamente [testo75] volte, io vorrei che
vi fosse anche la possibilita' di numerare le copie, a copia deve
corrispondere il relativo numero.
Come posso fare ?
Grazie in anticipo. Luca.

 wrote in message
8thjaq$snp$1...@fe1.cs.interbusiness.it...

Vedi sul sito comune.
Comunque credo che puoi trovare qualcosa anche nell'help.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente