mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Funzione DMIN su report o query?

Ciao a tutti, 
ho creato un report che ha per origine una query.
In questo report ho la necessità di visualizzare un campo che dipende da
altri due campi.
Mi spiego meglio: ho tre campi: Numero, Tipo e Priorità. Il primo e il
terzo numerici, il secondo di testo. Il campo Numero deve essere
visualizzato, gli altri due no. Il criterio di visualizzazione è per il
Tipo "inferiore", cioè il primo in ordine alfabetico, per la Priorità il
minore.
Ho realizzato una query così composta:
   Nome     Mostra    Criteri
_ Numero      Si
_ Tipo        No      Dmin("[Tipo]";"NomeTabella")
_ Priorità    No      Dmin("[Priorità]";"NomeTabella")
 
La query non mi restituisce nessun campo, ma se tolgo i criteri funziona,
chiaramente però me li fa vedere tutti :-(
Ho provato a rendere visibili i due campi con i criteri ma non ho risolto
nulla :-((
Dove sbaglio?
TIA e buon lavoro.
-- 
Dario
--
Il bello della vita è vivere:
molti esistono, ecco tutto.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 TIA e buon lavoro.
ehm... scusate, provo a ripostare la query perchè non si capisce niente:
  Nome ----------- Mostra -------------- Criteri
Numero ------------- Si ----------------
Tipo --------------- No ---------------- Dmin("[Tipo]";"NomeTabella")
Priorità ----------- No ---------------- Dmin("[Priorità]";"NomeTabella")
E poi volevo chiedere se è più conveniente applicare i criteri
direttamente sul report, sempre che il tutto sia realizzabile
Ciao


Newsgroup: it.comp.appl.access
Titolo: Codice maschera

Dopo aver perfezionato una maschera ho toccato, da profano, il codice per
tentare di modificare "a mano" da Click a dblClick la routine evento di UNA
SOLA casella di testo. ora NON funziona più NESSUN bottone/macro/ecc. e mi
dà i messaggi:
- L'espress. su click immessa come impostazione della propr. evento ha
provocato il seg. errore: La dich. di routine non corrisp. alla descrizione
dell'evento o della routine con lo stesso nome... *L'espress. non corrisp.
al nome di una macro... *La dich. di routine non corrisp. alla descrizione
dell'evento o della routine con lo stesso nome (per i bottoni)
- La dich. di routine non corrisp. alla descrizione dell'evento o della
routine con lo stesso nome (per le macro)
devo rifarla tutta da capo o c'è qualche speranza? grazie mille, davide

 ha scritto nel messaggio
news:bq7nql$rjo$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.appl.access
Titolo: limite record in casella di riepilogo

Buonasera.
In una casella di riepilogo ho l'elenco di tutti i cap d'Italia.
Sono circa 108000 record.
Se apro l'origine dati della casella di riepilogo ci sono tutti, quelli che invece mi mostra nella form sono circa 64000.
C'è un limite di record visualizzabili? E' meglio utilizzare una sottomaschera?
Grazie.
Giuseppe
 


si il limite è 60.000 e rotti
ti conviene applicare un prefiltro
tipo una combo per scegliere la regione
e poi popoli la tua lista con i soli cap di quella regione
 
ciao
BFS
 

Salve,
 
Giuseppe:

Il limite sono 65536 righe. Vedi anche 
https://www.donkarl.com/it?FAQ1.4
.
 
Di solito, con così tanti record, è meglio filtrarli prima, altrimenti 
difficilmente diventa una selezione ragionevole per l'utente.
 
Allen Browne descrive una possibile tecnica per le caselle combinate:
http://www.allenbrowne.com/ser-32.html
 
 
Ciao
Karl
*********
http://AccessDevCon.com
 
Access FAQ: 
https://www.donkarl.com/it
 

Giuseppe brought next idea :

Io ho creato una tabella con 500 000 numeri e il campo di una scheda
continuous record li mostra tutti.
 
Office 2019 64bit ENG
 
Bruno


Grazie Karl.
Saluti


Grazie Fabio.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: problema con refresh

ho inserito in un ciclo una query di accodamento.
per controllare lo stato della query, faccio scrivere in una casella di
testo
il valore che mi serve.
il problema è che non lo fa se non alla fine del ciclo, inserendomi
ovviamente
l'ultimo valore scritto.
durante il ciclo, quel campo non si aggiorna.
ho provato a mettere anche un refresh (come da codice sotto) prima della
query,
ma non funziona lo stesso.
come posso fare?
thanks!
Lenny
Function generagiro()
Dim agenti As Recordset
Set agenti = CurrentDb.OpenRecordset("agenti")
agenti.MoveFirst
Do Until agenti.EOF
Forms![maschera importa]![campoagente] = agenti.Fields("age_cod")
Forms![maschera importa].Refresh
DoCmd.OpenQuery ("3 filtra i giorni")
agenti.MoveNext
Loop
End Function


Ma ti serve per controllare se tutti i record sono stati elaborati? Se č
cosě puoi o crearti una tabella temporanea o crearti un file di testo
(magari .log)...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -
Newsgroup: it.comp.appl.access
Titolo: Importare file Word

    Avendo un file Word devo importarlo in Access attraverso VBA , per 
quanto riguarda il numero relativo.
    Mi spiego meglio dal file Word ho:
    Pera                                  10
    Mela                                  20
    Totale                                30
    Volgio importare in Access VBA la tabella con i due campi.
Grazie 

 ha scritto nel messaggio 
news:469f23f6$0$4789$4faf...@reader4.news.tin.it...

File - Carica dati esterni - Importa
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:f7ps64$nl4$1...@tdi.cu.mi.it...

    Si ma in VBA per Access ?
    Grazie 

    Grazie
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:f7pujh$r1b$1...@tdi.cu.mi.it...

    Invece di fare riferimenti... ( ... disco rotto)  , forse un esempio 
risolverebbe
    il tutto.
    Grazie 

    Grazie
L'NG non è il tuo help in linea; ti si è indicata parecchie volte la via ma tu hai sempre risposto che volevi un esempio.
A me sembra che ti faccia più comodo avere la soluzione già pronta per te, gratis e senza fatica che premere quel benedetto F1...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: disabilitazione tasto esc

Come posso impedire che digitando due volte il testo esc si annulli
l'effetto che ottengo inserendo un controllo su di un "controllo" in una
maschera? altrimenti se uno conosce quetso trucchetto, mettere il controllo
non serve a niente. grazie

 ha scritto nel messaggio
news:plgO6.1056$225....@news1.tin.it...

Forse usando l'evento "su pressione tasto ansi"  o "su tasto giů", controlli
quando il codice letto č quello dell'ESC e nel caso fai un docmd.cancel (se
non ricordo male :-)
Magari attiva l'anteprima tasti, cosě mettil gli eventi in questione nella
maschera
Max
Newsgroup: it.comp.appl.access
Titolo: ACCESS Maschera. Messaggio condizionato dal valore di un campo.

In una maschera voglio che appaia un messaggio di Alert nel caso mi dimentichi di inserire il valore di un campo numerico. Cioè se il valore del campo è =0, vorrei si aprisse una finestra di avvertimento con scitto, ad es.: “ricordati di inserire il valore”.
Grazie a chi mi illumina!!!
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 mi illumina!!!
Puoi inserire il codice sotto l'evento beforeupdate del controllo:
private sub NomeTuoControllo_BeforeUpdate(Cancel as integer)
if NomeTuoControllo = 0 or isnull(NomeTuoControllo) then
   msgbox"Ricordati............", vbcritical, "Titolo"
  Cancel = true
end if
end sub
oppure puoi inserire il codice nell'evento beforeupdate della form
private sub form_BeforeUpdate(Cancel as integer)
............qui
end sub
-- 
Ciao
Geppo 

 dimentichi di inserire il valore di un campo numerico.
si ma QUANDO vuoi che compaia sto alert???? 

Pablitomf ha scritto:

Si, scusa, hai ragione! L'ideale sarebbe prima della stampa del conto, ma anche al caricamento della maschera.
Grz


geppo ha scritto:

Ok funziona benissimo solo che su "beforeUpdate" non va (forse perchè è una sottomaschera?), funziona solo  se la uso su  “load”, ma il messaggio mi appare prima che la maschera si apra. Dopo vari tentativi cambiando la dichiarazione non ottengo il risultato che vorrei, cioè che il messaggio appaia a maschera caricata.
Allora pensavo di inserirlo prima dell’apertura del report che avviene con il comando seguente:
Private Sub Comando75_Click()
On Error GoTo Err_Comando75_Click
    Dim stDocName As String
    stDocName = "Report Conto NICCHIA no Iva"
    DoCmd.OpenReport stDocName, acPreview
Exit_Comando75_Click:
    Exit Sub
Err_Comando75_Click:
    MsgBox Err.Description
    Resume Exit_Comando75_Click
 
End Sub
Posso inserirlo in questo controllo? O se no, come devo fare?
Tks


 Tks
-- 
Ciao
Geppo

Newsgroup: it.comp.appl.access
Titolo: query...top...

Ho una tabella con circa 5000 rcords
E su una maschera ho impostato una ListView che visualizza tutti i records
della tabella...
Ho notato però che il caricamento e lo scaricamento dei records nella
ListView blocca per un 2/3 secondi il sistema...
Volevo allora mettere dei pulsanti che mi consentano di navigare all'
interno della tabella del tipo "Prox 100 records..."etc.etc. ho reso l' idea
?


Cosě a braccio...
fai un requery della combo cambiando l'istruzione sql:
SELECT TOP 25 PERCENT Tab1.ID, Tab1.Campo1
FROM Tab1;
e poi
SELECT TOP 50 PERCENT Tab1.ID, Tab1.Campo1
FROM Tab1;
infine
SELECT TOP 100 PERCENT Tab1.ID, Tab1.Campo1
FROM Tab1;
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: codice

ciao a tutti
qual è la procedura per associare un codice ad un comando?
grazie per le eventuali risposte

 grazie per le eventuali risposte
se un comando è un pulsante:
clic destro sul pulsante > proprietà > evento > onclick > clicca sul
ulsantino alla fine della riga > genera codice >
qui nell'editor inserisci il codice che ti serve esempio:
---------------------------
Private Sub Button_Click()
MsgBox "Prova"
End Sub
-----------------------------
Ciao Ciao :)
Newsgroup: it.comp.appl.access
Titolo: orario decimale

Esiste in access la possibilità di trasformare un orario minuti secondi 
decimale in minuti secondi in formato ora ?
es 8,1625  0.08.10
grazie 

 wrote in message
news:mGobe.825909$
b5.36...@news3.tin.it

Devi farlo a mano, ovviamente via codice.
Con Minute(MyTime) prendi solo i Minuti, quindi
per il calcolo fai la proporzione:
1:60=X:Minuti
FrazioneMinutiOra=Minuti/60
Quindi essendo pignolo puoi aggiungere anche i secondi:
FrazioneOra=Hour(MyTime)+Minute(MyTime)/60+Second(MyTime)/3600
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: Date di un contatore di protocollo

ho fatto un programmino con access per la gestione di un protocollo che
inserisce un numero incrementabile (contatore) e la data del giorno di
immissione.
Fin qui tutto bene, anche se ho il terrore della cancellazione di un record.
Quello che chiedo, è se un domani devo modificare il contenuto di un record
gia memorizzato e che porti la data x, come posso fare per far restare la
data orifinale di primo inserimento senza che questa si modifichi con la
data del PC?
luigi

 ha scritto nel messaggio
news:615A6.9814$k53.2...@news1.tin.it...

L'inserimento di una data (come di qualsiasi altra informazione) non e' un
automatismo di access.
Per come hai fatto per inserirla automaticamente, e' sufficiente non farlo.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

Newsgroup: it.comp.appl.access
Titolo: Impostazione pagina in report

Il mio programma funziona perfetttamente, distribuito il rete perň mi
vengono i colleghi quando stampano alcuni tipi di report perchč non entrano
in un foglio cosě come quando li hocreati.
Dalle impostazioni pagina dei report incriminati scopro che access li ha
riportati tutti nei valori di default ovvero 24,99 mm
che cosa succede???
Ciao
Stefano

 che cosa succede???
Se hai A00 leggi "Report e margini" 19.5. in questo teatro - o uno dei
6453 discussioni su questo tema in ognuno Access NG nel mondo.
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Apertura maschera filtro

Ciao a tutti
non sono molto esperto, mi scuso se non uso la terminologia corretta,
 vorrei fare una cosa del genere:
aprire una maschera apponendo un filtro ad un campo data
nel senso che ho una campo data che in alcuni casi č valorizzato ed in altri 
no
io vorrei aprire la maschera e visualizzare i solo i dati in cui il campo 
data č vuoto .. non valorizzato
il problema č in stLinkCriteria
posto il codice ho provato con Null ... Is Null .... ma probbabilmente 
sbaglio sintassi
Private Sub Comando13_Click()
On Error GoTo Err_Comando13_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Titoli"
    stLinkCriteria = IsNull & "([Data_vendita])"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando13_Click:
    Exit Sub
Err_Comando13_Click:
    MsgBox Err.Description
    Resume Exit_Comando13_Click
End Sub
Grazie in anticipo
DrOpS 

 DrOpS
Perche vuoi complicarti la vita?
Crea una query con il criterio is null per il campo data e alimenta con 
questa la maschera.
Oppure usa questo:
stLinkCriteria = "((NomeTabella.Data_vendita Is Null))"
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: E` possibile combo per scelta campi?

In una maschera, vorrei utilizzare una casella combinata per scegliere quale
di N campi "NumTelN" debba essere quello preferenziale da stampare (la
scelta effettuata, poi, me la salverei su un campo "NumTelPreferenziale" per
gli usi successivi). Il contenuto della casella combinata cambierebbe quindi
per ogni record a seconda dei dati presenti nei campi "NumTelN". Qualcuno ha
mai fatto una cosa simile? Secondo voi č possibile?
Grazie per il contributo.
Giuseppe

Giuseppe
Io cambierei la struttura del tuo database in questo modo:
tabella principale con ID univoco
tabella numeri telefono con 3 campi
ID_REF  numerico
Numero  stringa
Predefinito Sì/No
Quando devi salvare dei numeri metterai nella tabella l'ID del record a cui
si riferiscono e metterai Sì solo a quello che deve essere salvato.
Se devi modificare metterai quello sì a no e viceversa.
Quando devi stampare stamperai solo quello dell'id che a sì nel campo
predefinito
Antonio

Newsgroup: it.comp.appl.access
Titolo: Selezionare testo in un controllo usando il mouse

Salve a tutti.
Ho una maschera continua.
Premendo TAB o Invio mi sposto tra i vari controlli della maschera e il
testo contenuto
nei controlli viene selezionato in automatico.
E' possibile fare in modo che tutto il testo venga selezionato anche se nel
controllo ci entro
usando il mouse?
Grazie in anticipo!
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:195Z43Z173Z186Y...@usenet.libero.it...

Sě, certo che puoi, per esempio:
Private Sub Campo1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me.Campo1.SetFocus
End Sub
Mi spieghi a cosa ti serve? Te la immagini la confusione se l'utente si
mette a giocare o spostare il mouse sulla maschera?
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: [OT] Redazione DPS

Ragazzi il 31/12 è la data ultima per la presentazione del DPS.
Io ho una bozza fatta con olio di gomito, ma vorrei confrontarmi con
l'elaborato di un software... qualcuno ne ha a disposizione qualche
esempio compilato da postarmi?
Sentitamente ringrazio.
Buon WE
-- 
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


Ma non era slittato al 30 giugno 2005?
Ciao, Carlo 

 Ciao, Carlo
Non credo... hai i riferimenti normativi?
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------


[cut]
č stato rimandato tutto al fine giugno 2005.
Maurizio, lunedě ricordamelo in mattinata, ti invio io dei dati
interessanti!
Buon week-end a tutti,
-- 
strano...mavero
L'universo č cambiamento; la nostra vita č il risultato dei nostri pensieri.
Marco Aurelio

 Buon week-end a tutti,
-- 


[cut]
Inviata mail!
Buon inizio settimana a te e a tutto il NG.
-- 
strano...mavero
L'universo è cambiamento; la nostra vita è il risultato dei nostri pensieri.
Marco Aurelio
Newsgroup: it.comp.appl.access
Titolo: Per "Ibo dal portatile"

Ti ringrazio per la disponibilità offertami.......
Ti mando l'espressione matematica che mi interessa per il mio DB, saresti
così gentile da tradurmela in codice?!!!!??
E' molto semplice, ma io non conosco VB e, avendo fretta, non riuscirei a
realizzare ciò che mi serve!!
Ti spiego brevemente: in una maschera ho le celle in cui inserire dei valori
numerici (tipo 12.34).
Metterò poi due pulsanti che dovrebbero "attivare" due espressioni
matematiche diverse.
1 espressione:
[27x(a+b+......+n)]/w
2 espressione
{495 / [1.112 - 0.0004x(a+.....+n) + 0.0005x(a+....+n)^2 - 0.0002xE]} - 450
In entrambe le lettere rappresenteno valori numerici inseriti nelle celle
della maschera, di cui ho ovviamente fatto la tabella, ( questi valori
ovviamento li inserisco io -----> nel codice fare riferimento alle celle?)
Spero di essere stato chiaro!!!!!
TI RINGRAZIO ANTICIPATAMENTE PER LA DISPONIBILITA'!!!!
Ciao
            Andrea
P.S.: mi puoi consigliare qualche testo per Visual Basic, cosicchè la
prossima volta mi potrò arrangiare!!!!??!!!!!!

prossima volta mi potrò arrangiare!!!!??!!!!!!
c'è un libro carino e che costa poco, che si chiama Laboratori odi
Access, della Apogeo.
--
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/

Mi scyso con il NG per aver indirizzato il msg al singolo.
L'ho fatto solo perchè Lbo mi aveva dato la sua disponibilità a tradurmi in
codice alcune espressioni.......
Ti ringrazio per la "traduzione": è chiarissima.
Solo una domanda riguardante l'espressione me.txt_n:
se la mia casella di testo si chiama "pippo", nell'espressione devo mettere
me.txt_pippo ???
Grazie ancora

me.txt_pippo ???
No, devi mettere me.pippo
Ciao,
Giovanni
---
Inferno e paradiso mi sembrano sproporzionati. Le azioni degli 
uomini non meritano tanto - JLBorges

me.txt_pippo ???
no, la forma e': me.nomecontrollo, dove me. e' il riferimento alla
scheda corrente (se ti riferissi al controllo da "fuori" della
maschera dovreesti usare la notazione
forms![nomemaschera]![nomecontrollo].
ho dato alle caselle di testo nomi che cominciassero con txt_...
perché a volte è comodo avere un certo gruppo di controlli che
cominciano tutti nello stesso modo.  infatti si può scorrere l'elenco
dei controlli di una form, così:
dim ctl as control
for each ctl in me.controls
	if 
ctl.name
 like "txt_*" then
		...
	end if
next ctl
magari nel tuo caso non serve, ma e' un'abitudine che ho preso.
e' anche vero che tu vuoi avere controlli collegati per cui forse,
mnemonicamente, è meglio lasciare il nome del campo cui sono
collegati, quello che prendono per default.


Chiedo venia, ma ho ancora una domanda e poi spero di riuscire ad
arrangiarmi:
ho creato un pulsante per l'espressione di cui mi hai fornito il codice;
come faccio a creare un msgbox che visualizzi il risultato
dell'operazione?????
Grazie ancora!
        Andrea

Grazie sia a Giovanni che ad Lbo!!!
Speriamo di riuscire.
......e poi sotto con un bel libro di VB!!!!! ....che č meglio!!!!!!
Ciao a tutti
      Andrea
Newsgroup: it.comp.appl.access
Titolo: Filtro su casella combinata

Ciao a tutti !
 
Ho una maschera con diverse caselle combinate tra le quali 2 sono 
correlate tra loro.
La prima mi fa scegliere la tipologia del prodotto e la seconda, in base 
alla prima, il prodotto.
 
Funziona tutto bene ma vorrei aggiungere un filtro sulla seconda in 
maniera che mi visualizzi solo i prodotti disponibili che nella tabella 
T_ArchivioProdotti/Disponibilitï¿œ sono segnati con 1 o 0.
 
Questo ï¿œ il codice delle caselle funzionante senza filtro
----------------------------------
Private Sub IDCodiceProdotto_AfterUpdate()
If Not IsNull(Me.IDCodiceProdotto) Then
Me!IDTipoProdotto.RowSource = "SELECT DISTINCTROW 
Descrizione,IDCodProdotto FROM T_ArchivioProdotti WHERE IDTipolProdotto 
= " _
& Me.IDCodiceProdotto & " ORDER BY Descrizione;"
DoCmd.GoToControl "IDTipoProdotto"
Me.IDTipoProdotto.Dropdown
End If
End Sub
 
Private Sub IDTipoProdotto_AfterUpdate()
DoCmd.GoToControl "Quantitï¿œ"
End Sub
---------------------------------------------
 
Qesto ï¿œ il codice SQL per la query
---------------------------------------------
SELECT DISTINCTROW T_ArchivioProdotti.Descrizione, 
T_ArchivioProdotti.IDCodProdotto, T_ArchivioProdotti.Disponibilitï¿œ
FROM T_ArchivioProdotti
WHERE (((T_ArchivioProdotti.Disponibilitï¿œ)="1"))
ORDER BY T_ArchivioProdotti.Descrizione;
-----------------------------------------------
 
Mi date una mano ? Spero di essere stato chiaro nella spiegazione ...
Grazie 1000, Francesco ;-)

 ...
 
Non vedo il confronto a 0 ma solo a "1".
Se lo vuoi nel codice, la prima riga della condizione WHERE diventa:
 
   " WHERE Disponibilit� IN('0','1') " & _
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 Se lo vuoi nel codice, la prima riga della condizione WHERE diventa:
 
Per imparare ... ma a cosa serve, mi sembra che si veda tutto come senza 
nessun filtro.
 
Grazie ancora,
Francesco ;-)
Newsgroup: it.comp.appl.access
Titolo: Query senza conferma

Buongiorno a tutti!
Ho da poco iniziato ad usare Access e volevo sapere se, quello che sto
cercando di fare è fattibile o meno.
Ho una tabella che, automaticamente, tramite una macro, viene aggiornata
inserendo all'interno utente, data e ora dell'accesso al programma.
Mi serve per gestire una specie di tabella dei LOG di accesso al
DB....purtroppo però, ogni volta che la macro viene lanciata, mi presenta la
finestra di che mi dice:"Numero di righe bla bla bla.....SI/NO"
E' possibile fare in modo che questo messaggio non compaia ed inserisca i
dati automaticamente nella tabella senza richiesta di conferma?
Ringrazio tutti per l'aiuto.
Giordy

 Giordy
Utilizzo l'hel in linea e posto:
"Č possibile utilizzare l'azione ImpostaAvvisi per attivare o disattivare
messaggi di sistema.
Impostazione
L'azione ImpostaAvvisi utilizza l'argomento riportato di seguito.
Argomento azione	Descrizione
Mostra avvisi	Specifica se i messaggi di sistema debbano essere
visualizzati o meno. Nella casella Mostra avvisi della sezione Argomenti
azione nella finestra della macro, fare clic su Sě per attivare i messaggi
di sistema o su No per disattivarli. L'impostazione predefinita č No"
Ciao,
TANNHAUSER
-- 
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:cipdem$6ei$1...@news.flashnet.it...

all'inizio della macro aggiungi una riga "Imposta Avvisi" e nella
caratteristica -->Mostra avvisi ,metti NO!
AA

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

come si può trasformare una data da 01/01/00 a 0100, o anche 12/11/98 in
1198. Grazie a tutti
P.S. che fortuna che ci siete

1198. Grazie a tutti
vedi sull'help month, day, cstr.
ad es.:
dim d as date
dim ds as string
d=12/11/98
ds=right("00" & cstr(month(d)), 2) & right("00" & cstr(day(d)), 2)
right ecc. serve ad aggiungere uno zero a sz nel caso di numeri ad una
cifra.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

 1198. Grazie a tutti
Format(Data, "mmyy")
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************



Newsgroup: it.comp.appl.access
Titolo: OT : office developer xp

 
          Vorrei vendere per inutilizzo Office XP Developer. E' originale e completo.
A qualcuno puo' interessare ?
Grazie
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Sě.
l'indirizzo č valido?
MAssimiliano

[cut]
Ciao,
interessa anche a me.
chiarello_mauro  @  tiscali  .  it
togli gli spazi x scrivermi!!!
Se è ancora disponibile, mi invii la tua richiesta economica?
Grazie!
-- 
strano...mavero
L'universo è cambiamento; la nostra vita è il risultato dei nostri pensieri.
Marco Aurelio

Newsgroup: it.comp.appl.access
Titolo: Calcolo Imponibile in una Query

Salve,
come posso sommare i valori che mi restituisce una query?
ovvero: ho una query che mi restituisce tutti i valori di un campo prezzo.
"PREZZO"
10
20
20
30
come posso attraversouna query calcolarne la somma?
Grazie

 ha scritto nel messaggio 
news:ZOGnd.3227$C94....@tornado.fastwebnet.it...

Usando questa query (ammesso che tu non possa farlo già con la prima query) 
come sorgente per un'altra query raggruppata - usa il pulsante Totali - che 
abbia nella riga formula la voce "Somma".
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: OT-- Ordinare x Mese...??!!

scusate se sono OT...ma non trovo altro modo x ottenere un aiuto....
mi arriva un grande file in formato Txt ed esso si presenta così ... vedi
sotto ::
120111728987238UHSHH5757HHJF758592000RJRJJ885858858857327377480000
allora avendo il tracciato dalla Regione in Excel importandolo riesco a
dividerlo correttamente...
il problema principale è la Data... xchè essa si presenta così  10082000
oppure 4082000...
ho cercato di trasformarla in 10/08/2000 oppure in 04/08/2000 ma niente da
fare...
Cmq... da Formato > Celle > Personalizzato sono riuscito ad ottenere questo
formato 00-00-0000
che equivale a 10-08-2000... fin quì Ok...mi stà anche bene.....
Il problema viene ora...  nel foglio di calcolo mi serve ordinarlo x mese...
siccome mi arrivano 4 mesi alla volta ..dovrei poterlo ordinare solo x un
mese... supponiamo Giugno 2000... ma andando a controllare dopo il
06-05-2000 mi viene il 06-06-2000... è questo il mio problema....
come faccio a mettere tutto il mese di Giugno assieme...???
ho provato in mille modi ma non ci riesco....
Grazie se potrai darmi un aiuto... Ciao....

SuperPippo ha scritto:

prova in un altara colonna a inserire una formula tipo =Month(CellaConData),
dovrebbe restituirti solo il valore del mese, a quel punto puoi usare quella
colonna per l'ordinamento


--------------------
scusa la mia ignoranza Paolo...ma ho provato ad inserire una nuova colonna
ed iserire la formula che mi hai scritto ma non succede niente... portesti
essere un pò + preciso ed elementare... ???
Grazie....

 
Visto che il dato che leggi non e' una data ma e' solamente formattato 
come una data dovresti usare STRINGA.ESTRAI(A1;3;2)
La cosa mogliore comunque e' convertire il testo in data :
SINISTRA(A1;2)  & "/" &  STRINGA.ESTRAI(A1;3;2) & "/" & DESTRA(A1;2)
e poi utilizzare la funzione MESE come ti ha gia detto Paolo.
Ciao
-- 
JBad
Newsgroup: it.comp.appl.access
Titolo: ordinare record in tabelle secondo piu campi

vorrei ordinare dei record per categoria e descrizoione ma vorrei impostare
tale ordinamento nella struttura tabella, si può?

 tale ordinamento nella struttura tabella, si può?
Devi indicizzare i campi...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Colonna Associata di una List Box

Buongiorno a tutti.
Access97 English version, Win98
Ho una list box (scusate, non so come viene definita nell'Access in
Italiano) con dati su due colonne.
All'evento click sul box, ho la necessità di far assumere ad altri due
controlli (diciamo [mioControllo1] e [mioControllo2]) il valore
rispettivamente della prima e della seconda colonna.
Il problema che incontro è che se scrivo una cosa del tipo
[mioControllo1]=[MiaListBox]
il controllo 1 assume il valore della colonna associata del list box.
Come posso però riferirmi al valore della seconda colonna (quella non
associata) in modo da poter asseganre il suo valore al [mioControllo2]?
Grazie
Carlo

 ha scritto nel messaggio
news:9hei5b$de1bb$1...@ID-29643.news.dfncis.de...

Prova a vedere sull'help la proprietà Column della ListBox.
Ciao
LaLo

 ha scritto nel messaggio
news:9hei5b$de1bb$1...@ID-29643.news.dfncis.de...

Me![mioControllo1] = Me![MiaListBox].Column(0)
Me![mioControllo2] = Me![MiaListBox].Column(1)
fermo restando che l'help lo devi leggere comunque. ;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

> fermo restando che l'help lo devi leggere comunque. ;-)
E' una parola!!!:-))
l'Help è scritto in Thai e per quanto un pò lo sappia leggere, mi ci
vorrebbe troppo tempo per imparare le cose in modo decente:-(
Comunque grazie e ciao
Carlo

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

 
          Ciao Sergio, il problema č che la query di accodamento non mi elimina i
record non piů attivi. O meglio, mi aggiunge eventuali record nuovi ma non
mi toglie quelli eliminati. La query di creazione tabella invece poteva
darmi un'elenco aggiornato dei record ma non riesco ad impostare la chiave
primaria del campo.
Che fare?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
Ciao.
-- 
Sergio MAZZA

Da una tbl contenente anche un campo Data, vorrei che tutti i record
contrassegnati e che hanno per anno il 2003 siano spostati, e non copiati,
nella tbl 2003bkup, anno 2002 nella tbl2002bkup. E' possiile o č meglio
una enorme tbl cho contenga i tutti i dati, 1200 circa annui, e filtrare
la richiesta di visualizzazione?
-- 
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: gestore tabelle collegate

ho creato un database in Access97 e devo farlo funzionare in rete.
per aggiornare le tabelle collegate vado in Strumenti - Aggiunte - Gestore
tabelle collegate.
faccio clic su "Richiedi sempre nuovo percorso" e poi "seleziona tutto":
quindi scelgo il file MDB contenente i dati (e che si trova su un server).
Da un PC vengono aggiornate automaticamente tutte le tabelle, da un altro PC
mi chiede il percorso per ogni tabella. Come mai queste differenze ?
grazie a tutti
Maurizio

 ha scritto nel messaggio
news:tVko9.20489$cS4.8...@news2.tin.it...

Togli la spunta da 'richiedi sempre nuovo percorso'.
Mandi Rob.

 ha scritto nel messaggio
news:EjOo9.7001$RO.1...@twister1.libero.it...

grazie
Maurizio
Newsgroup: it.comp.appl.access
Titolo: Sincronizzazione casella di riepilogo con casella di testo

Potreste spiegarmi come fare per sincronizzare una casella di riepilogo con
una casella di testo ?
E' possibile farlo senza ricorrere al Visual Basic ?
Grazie anticipatamente !
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie anticipatamente !
Nell'origine della casella riepilogo (query) metti la casella di testo
come condizione. E' necessario, dopo l'aggiornamento della casella di
testo,un requery della casella di riepilogo: dovresti pertanto utilizzare
almeno una macro oppure digitare il tasto {f9}.  
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie anticipatamente !
Cosa intendi per "sincronizzare una casella di riepilogo con una casella
di testo"?
Namor
-- 
Aiuta chi ne ha bisogno, non ti costa niente:
www.shopmon.it
  -  
www.porloschicos.com


Newsgroup: it.comp.appl.access
Titolo: incrocio tra due tabelle

salve a tutte
ho 3 tabelle
clienti      rifornimenti   e listini
clienti
codice    nominativo
123         paolo
234         carlo
rifornimenti
data    cli    prodotto    quantita
1/1      123    frutta        10
1/1       123    vino        15
1/1        123    acqua     10
1/1        234    frutta     5
1/1      234    vino        10
1/1        234    acqua       8
listini
codcli    prodotto    prezzo
123        frutta            1500
123        vino               5000
123        acqua             1450
234        frutta            1600
234        vino            4500
potete indicarmi il comando SQL
per estrapolare i dati dei rifornimenti
a cui mancano i prezzi???
in questo caso vorrei avere come risultato
l'acqua del cliente 234 non ha il prezzo
ringrazio anticipatamente
Paolo

 ha scritto nel messaggio
news:953nmm$60q$1...@pegasus.tiscalinet.it...

Qui si seguito c'è il codice SQL della query che ti evidenzia i rifornimento
che non hanno listino:
SELECT Rifornimenti.datarif, Rifornimenti.cli, Rifornimenti.prodotto,
Rifornimenti.quantita
FROM Rifornimenti LEFT JOIN Listini ON (Rifornimenti.prodotto =
Listini.prodotto) AND (Rifornimenti.cli = Listini.codcli)
WHERE (((Listini.prezo) Is Null));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: cambiare il font

Ciao a tutti, volevo sapere se è possibile cambiare il font della Caption di
una maschera.
Ho provato a scrivere su apertura maschera:
Me.Caption.FontName = "Verdana"
Me.Caption.FontSize = 12
ma mi da errore.
ciao
Riccardo

 ha scritto nel messaggio 
news:clqgtg$f8v$1...@news.panservice.it...

mi sa che dipende dallo stile del desktop impostato da sistema operativo 
piuttosto che da access ...
un altra questione è gestire i font dei controlli ... li lo puoi fare 
direttamente da access.

Newsgroup: it.comp.appl.access
Titolo: setFocus non funziona

CIao a tutti
ho una casella di testo in cui inserire la partita iva.Ho creato un
controllo e voglio che se non si digitano 11 caratteri, dopo la
finestra di avviso il cursore ritorni alla casella di testo della
partita iva.Ho inserito su dopo aggiornamento il seguente codice:
Private Sub nom_AfterUpdate()
 Dim IntNuovo As Integer, strTitolo As String
 Dim IntFinestraMsg As Integer, strMsg As String
  Dim stDocName As String
Me.lunghezza = Len(PIVA)
If (lunghezza < 11 Or lunghezza > 11) Then
strMsg = MsgBox("Formato Piva non campatibile!", vbExclamation,
"Attenzione...")
    Me.PIVA.SetFocus
End If
End Sub
ma non prende il setfocus.Come mai?
Grazie a tutti

 ha scritto nel messaggio
news:1171537172....@l53g2000cwa.googlegroups.com...

prima spostati su un altro controllo quindi torna su PIVA
Antonio

 - Mostra testo tra virgolette -
Ottimo grazie mille....come sempre mi perdo in un bicchier d'acqua

"Antonio Biso" <ch...@NOSPAMetruria.net> wrote in message 
news:N8XAh.9301$BP5.1...@twister2.libero.it...


Private Sub PIVA_BeforeUpdate()
If Len([PIVA])<>11 Then
        Cancel = True
        Undo
End If
End Sub
Cosě non fai prima?
Bruno
 

 - Mostra testo tra virgolette -
Si...buono anche questo grazie

Newsgroup: it.comp.appl.access
Titolo: Nz o IsNull

ciao a tutti
 
cos'è meglio utilizzare o uguale?
 
strSQL = strSQL & "Format(IIf(IsNull(" & strQry & ".ImportoLordo), 0, (" & strQry & ".ImportoLordo)), '#,##0.00 €;-#,##0.00 €') AS ImportoLordo, "
 
strSQL = strSQL & "Format(Nz(" & strQry & ".ImportoLordo,0),'#,##0.00 €;-#,##0.00 €') AS ImportoLordo, "
 
Grazie


Se ad esempio il campo da controllare ha un DefaultValue come di solito dovrebbero avere i campi Importo potrebbero essere INUTILI Entrambi...
Se proprio serve usarlo, userei NZ a prescindere abbia solo 1 istruzione.
 
@Alex


grazie Alex
come faccio ad avere un DefaultValue se è un campo calcolato?
allora sto sbagliando qualcosa


Il DefaultValue non è del Campo Calcolato ma del suo contribuente [ImportoLordo] che spero venga da ALTRA fonte ance se nel tuo Esempio hanno il medesimo nome..., altrimenti generi un RIFERIMENTO CIRCOLARE.
 
@Alex


grazie Alex
Newsgroup: it.comp.appl.access
Titolo: espandere o comprimere immagini con effetto tendina

Vorrei dare un aspetto più gradevole ad una maschera.
Inserire una immagine allo sfondo l'ho già fatto; ho sostituito qualche
scritta di qualche pulsante con un'immagine.
Ho provato a guardare nell'help ma non riesco a trovare nulla, ho visto che
si può inserire un testo scorrevole all'interno di una pagina ma con la
maschera lo strumento non è attivo.
Chi mi dice come fare per l'effetto tendina?
Grazie anticipatamente.
Angie

Angie ha scritto:

Quando ti ho parlato di un eventuale effetto tendina era un esempio di
tante cose che è possibile "crearsi" con access, ma per farlo c'è bisogno
che l'utente conosca la struttura del codice Access e le sue
funzionalità...
Visto che hai dimostrato interesse verso questo prodotto (eccezzionale
nella sua elasticità), un consiglio : "Parti dall'Help", ma non per
trovare "effetto tendina" che, tra l'altro, non troverai mai, ma per
capire su quali aspetti di access devi intervenire per crearti una cosa
del genere.
Mi spiego.
Se all'interno di una Maschera, che da oggi in poi chiamerai "Form", hai
una piccola cornice colorata, che per te deve rappresentare per esempio lo
sfondo del tuo menu di opzioni, come puoi fare per renderlo invisibile
all'apertura della Form e dare allo stesso un effetto di "espansione" fino
a divenire delle dimensioni a te necessarie per contenere tutte le voci
del menù?
Parti dall'Help e inizia a guardarti magari le Proprietà "Visibile" e
"Height"
Il trucco è chiedersi "come è possibile creare da me un effetto simile?
Forse devo agire sulla lunghezza e sulla larghezza dell'oggetto per
farlo?... (Si) "
Spero d'averti dato quelche spunto per riuscire a farti fare la domanda
giusta.
-- 
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Non so se quello che intendi è questo:
nella sezione corpo ho creato un rettangolo al cui interno ho inserito i
controlli dei campi,
su proprietà del rettangolo ho variato visibile, altezza, lunghezza..... ho
agito anche su aspetto bordo etc.
Questo però, già lo avevo intuito e attuato......
Se così non fosse, sono messa male vero?
ciao e grazie

 ciao e grazie
No, non è quello che intendevo, almeno non in quello che ti ho suggerito,
ma non temere, non sei messa male, sei solo all'inizio... il "voglio tutto
subito" non va bene in nessun campo...
Ti invio un esempio... guardati tutto il codice e per ogni cosa che non ti
è chiara, prima di chiederla a noi, chiedila a te stessa e cerca di
trovarla e comprenderla dall'Help... se proprio non ci riesci, fai un
fischio.

Newsgroup: it.comp.appl.access
Titolo: tabelle nascoste

ciao a tutti,
ho usato il seguente codice per nascondere alcune tabelle del mio database,
ecco il ocdice:
Function HideTbl(strTable As String, intHide As Integer) As Integer
   'Nasconde o Mostra una tabella
   'Accetta:   intHide: True (-1) nasconde, False (0) rende visibile
   'Ritorna:   True se OK, False se errore
   On Error GoTo HT_ERR
   Dim TDef As TableDef, dbs As Database
   Set dbs = CurrentDb
   Set TDef = dbs.TableDefs(strTable)
   Select Case intHide
      Case True
         If Not (TDef.Attributes And DB_HIDDENOBJECT) Then
            TDef.Attributes = TDef.Attributes + DB_HIDDENOBJECT
         End If
      Case Else
         If (TDef.Attributes And DB_HIDDENOBJECT) Then
            TDef.Attributes = TDef.Attributes - DB_HIDDENOBJECT
         End If
   End Select
   HideTbl = True
EXIT_HT:
      Exit Function
HT_ERR:
   HideTbl = False
   MsgBox "Error: " & Err & " " & Error, 48
   Resume EXIT_HT
End Function
ho impostato l'esecuzione del codice tramite una macro autoexec, impostando
a -1 il valore della funzione per la tabella ineteressata, e fino a qui
tutto OK le tabelle le nasconde, ma quando voglio rivisualizzare le tabelle
impostando il relativo valore del codice a 0 non funziona non mi fa
comparire più le tabelle.
Qualcuno ci capisce qualcosa?
grazie tommy

 grazie tommy
Cosě com'č scritta a me funziona, anche se puň essere ottimizzata e manca
la riga che distrugge l'oggetto TDef. Io la farei cosě:
Function HideTbl(strTable As String, intHide As Boolean) As Boolean
'Nasconde o Mostra una tabella
'Accetta: intHide: True (-1) nasconde, False (0) rende visibile
'Ritorna: True se OK, False se errore
On Error GoTo HT_ERR
Dim TDef As TableDef
Set TDef = CurrentDb.TableDefs(strTable)
If intHide Then
    TDef.Attributes = TDef.Attributes Or DB_HIDDENOBJECT
Else
    TDef.Attributes = TDef.Attributes And Not DB_HIDDENOBJECT
End If
Set TDef = Nothing
HideTbl = True
EXIT_HT:
    Exit Function
HT_ERR:
    HideTbl = False
    MsgBox "Errore " & Err.Number & " - " & Err.Description, 48
    On Error Resume Next
    Set TDef = Nothing
End Function
Forse č solo un problema di refresh della visualizzazione: dopo avere
eseguito la routine, dalla finestra database prova a spostarti su un'altra
scheda, per esempio "query" o "maschere", e poi ritorna su "Tabelle" e
guarda se la tabella č comparsa/scomparsa.
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

 ha scritto nel messaggio
news:ccbbn2$gtf$1...@news.newsland.it...

No non č un problema di refresh, in quanto ho provato diverse volte a
cambiare oggetti ma le tabelle non compaiono ugualmente, guardando fra le
opzioni di Access ho notato che le tabelle nascoste vengono considerate come
oggetti di sistema, infatti se imposto visualizza oggetti di sistema a si mi
compaiono.
Comunque ora provo il codice che mi hai dato e ti farň sapere.
Ciao Tommy
Newsgroup: it.comp.appl.access
Titolo: Report originato da più query...aiuto

Ciao il mio problema è il seguente: devo costruire un report in cui l'orgine
di questo report è dato da più di 1 query che purtroppo non riesco a riunire
in 1 sola query.
Come devo procedere ?
Il brutto di tutto ciò poi, è che per ogni RECORDSET creato da ciascuna
QUERY, dovrei poter visualizzare un proprio RAGGRUPPAMENTO.
Sperando in un vostro aiuto, saluto e ringrazio.
Guitar (o)==#
pac...@netics.net

 wrote in message
8i4kns$amu$1...@fe2.cs.interbusiness.it...

Prova a spiegarti meglio

in 1 sola query.
Sottoreport
--
Lorenzo Coronati
--
<<Il materiale sul NG non è di particolare 
qualità... cioè siti... magari in inglese in 
cui si possono trovare maggiori informazioni...>>
(Matteo Testoni, 24/05/2000)
--

QUERY, dovrei poter visualizzare un proprio RAGGRUPPAMENTO.
Qui dovresti spiegarti un po' meglio...:-)
Saluti.
Luciano

Newsgroup: it.comp.appl.access
Titolo: definire campo testo

Salve,
Vorrei importare da un file di excel un campo e definirlo all'inetrno della 
nuova tabella come testo. Come posso fare?
Grazie e ciao
Carla 

 della nuova tabella come testo. Come posso fare?
Durante la fase di importazione guidata (che trovi sotto il menù File/Dati
Esterni/Importa) Access ti chiederà, nell'ordine delle videate che ti
appariranno, di specificare:
1- da quale dei fogli della cartella selezionata estrarre i dati da
importare;
2- di indicare se la prima riga del foglio selezionata contiene le
intestazioni di colonna da utilizzare anche in Access;
3- se vuoi imoprtare i dati in una tabella nuova o in una esistente;
4- per ogni colonna, sceglierai, a questo punto come devono essere
trattati i dati;
5- ti chiederà di aggiungere una chiave primaria alla tabella creata (se
nuova);
6- ti chiederà di definire il nome della tabella (se nuova).
Credo che a te interessi il punto 4.
Ciao.
-- 
TANNHAUSER
"I've seen things you people wouldn't believe..."
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:doh3is$7ud$1...@news.newsland.it...

Cioa
innanizutto grazie
Il problema sono due:
1) mi permette di variare solo il nome campe e indicizzato e non il tipo 
dati
2) vorrei acquisire tale file da codice
Ciao e grazie
Carla 

 2) vorrei acquisire tale file da codice
1) Immagino che tu voglia cambiare il tipo numero in testo (il viceversa
ti impedirebbe di importare gli eventuali record con campo testo); prova a
mettere per primi, nel foglio di Excel, i campi con campo contenente le
stringhe.
2) Prova a guardare nell'Help di Access DoCmd.TransferSpreadsheet o,
ancora meglio, collega il foglio di Excel e accoda con una query i dati
alla tabella che vuoi tu e prima controlla che i dati nelle colonne siano
coerenti.
Ciao e Auguri.
P.S. Lascio l'ufficio fino al 2 gennaio.

Newsgroup: it.comp.appl.access
Titolo: Listbox e adodb.recordset

Salve,
ho creato un adodb.recordset e poi lo ho assegnato alla proprità
listbox.recordset. Funziona, solo che l' ordine delle colonne visualizzate
non rispecchia l'ordine dei campi del recordset. Suggerimenti?
Grazie

 wrote in message
news:jPOH8.85742$
CN3.2...@news2.tin.it

Non sono sicuro, ma mi pare che ADO accetti un metodo ORDER sui
Recordset....!!
Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:24553408292e25752f...@mygate.mailgate.org...


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

E' possibile togliere la password di un progetto VBA da codice?
Con questo comando si vede solo se il progetto è protetto o no!
thisworkbook.VBProject.protection
ciao Riccardo

 ha scritto nel messaggio
news:a2m07f$lnf$1...@news.panservice.it...

Ma certamente

 wrote in message
%Hw38.15017$hi.3...@news1.tin.it...

e come?

 ha scritto nel messaggio
news:a2m545$ms0$1...@news.panservice.it...

 avevo letto male :-(  Sorry

Newsgroup: it.comp.appl.access
Titolo: estrazione nome file da stringa path

 Ciao, riutilizzo comprendendo sommariamente la seguente funzione.
1 domanda: posso utilizzare l'ocx liberamente, possedendo la developer?
2 domanda: come posso estrarre dalla stringa il solo nome del file e non il 
percorso completo?
Public Function cmdlg_file() As String
   'Autore: Stefano Bettini
   'Restituisce: il percorso completo del file selezionato
   Dim directory_base As String
   directory_base = DLookup("[contenuto_variabile]", 
"[tbl_general_settings]", "[tipo_variabile]='files_utenti'")
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Files Word (*.doc)" & Chr(0) & "*.doc" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   'OpenFile.lpstrInitialDir = "J:\AAA DOCUMENTI MASTER\EE RISORSE 
UMANE\RRU\Cartella Servizi"
   OpenFile.lpstrInitialDir = directory_base
   OpenFile.lpstrTitle = "Seleziona file"
   OpenFile.Flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, 
Chr$(0)) - 1)
   End If
End Function 


Ciao questa funzione non usa ocx, quindi stai a posto
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio news:dr4rel$b4d$1...@fittipaldi.interac.it...

ciao,
questo potrebbe essere un modo per estrarre il nome file:
nomefile=mid(path,instrrev(path,"\")+1)
considerando la barra rovescia come separatore
ciao,
Mat

"Potone" <mborr...@SPAMinwind.it> ha scritto nel messaggio 
news:dr5hr5$m8e$1...@area.cu.mi.it...

Grazie matteo, ottima solution!
a presto.