title: Aggiornare Valori in Maschera da Query

author: Bruno Rossi

text:
Nell'intestazione maschera inserisci due controlli testo, dove inserirai i due valori da ricercare, poi nella query imposti sui due campi relativi come criterio il riferimento al relativo controllo.
Forse se linchi il file è più semplice aiutarti.


title: Aggiornare Valori in Maschera da Query

author: Saporiti Wines

text:
Il giorno lunedì 30 gennaio 2023 alle 06:43:52 UTC+1 Bruno Rossi ha scritto:
> Nell'intestazione maschera inserisci due controlli testo, dove inserirai i due valori da ricercare, poi nella query imposti sui due campi relativi come criterio il riferimento al relativo controllo.
> Forse se linchi il file è più semplice aiutarti.

Buongiorno,

Dato che l’ intero file contiene dati sensibili che per questioni di privacy non posso linkare, mando l’ immagine della maschera associata alla tabella con lo stesso nome “Macchine da Cucire” e della tabella “Database ISMACS”:

https://smallpdf.com/it/file#s=12521786-fb0c-47af-8b8d-ec67b2c6faff

Alla digitazione del “Numero matricola:” composto da massimo 2 lettere che compilo in “Lettere” e un numero che compilo in “Numero Matricola” vorrei che mi dia in automatico “Anno” , “Modello” e “Stabilimento” (al momento sono 3 caselle combinate perché fino ad ora le compilavo a mano).
Per fare ciò mi baso sulla tabella “Database ISMACS”.

Spero ora sia più semplice aiutarmi, grazie.


title: Aggiornare Valori in Maschera da Query

author: BFS

text:

io farei una maschera
con una casella di testo chiamata "TrovaMatricola"
sull'evento dopo aggiornamento

Private Sub TrovaMatricola_AfterUpdate()
Dim lettere As String
Dim numero As String

lettere = Left(Me.TrovaMatricola, 2)
numero = Mid(Me.TrovaMatricola, 3)

Dim matricole As ADODB.Recordset
matricole.Open "select * from [Database ISMACS] where left(lettere,2)='"
& lettere & "' and '" & numero & "' between [da numero] and [a numero]
", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If matricole.RecordCount <> 0 Then
     MsgBox "Anno : " & matricole.Fields("anno")
     MsgBox "Stabilimento : " & matricole.Fields("stabilimento")
     MsgBox "Modello : " & matricole.Fields("modello")
Else
     MsgBox "Matricola insesistente"
End If
matricole.Close

End Sub

BFS


title: Aggiornare Valori in Maschera da Query

text:
Basta che il file abbia :
    - la tabella fornita dalla Singer con i seguenti campi: ID(chiave primaria) ,Lettere , Da Numero , A Numero , Anno , Modello , Stabilimento.
    - la tabella Macchine da cucire dove cancelli tutti i dati o solo quelli sensibili
in modo da poter utilizzare la struttura.


title: Aggiornare Valori in Maschera da Query

text: Grazie per il codice, ma ho provato e pultroppo non mi aggiorna i campi.


title: Aggiornare Valori in Maschera da Query

text:

Ho cancellato tutti i dati e lasciato le tabelle "Macchine da cucire" , "Database ISMACS" e la maschera "Macchine da cucire". Vediamo se in questo modo si riesce ad utilizzare la struttura.

http://sendanywhe.re/BIK22R6I

Nel caso non si riesca grazie comunque per averci provato.

Massimo


title: Aggiornare Valori in Maschera da Query

text:
Il 31/01/2023 11:15, Saporiti Wines ha scritto:
> Grazie per il codice, ma ho provato e pultroppo non mi aggiorna i campi.
>

il codice che ti ho scritto non serve per aggiornare i campi ma per
farti capire come recuperare la riga dalla tabella che ti serve e i
valori dei relativi campi.

da capire se il tuo affermare "non essendo esperto in programmazione "
significa che per te è arabo quello che ho scritto o meno.

BFS


title: Aggiornare Valori in Maschera da Query

text:
Qui puoi vedere un esempio:
https://www.dropbox.com/s/8ur9x27u2khh485/MacchineDaCucire.rar?dl=0


title: Aggiornare Valori in Maschera da Query

text:
Il giorno mercoledì 1 febbraio 2023 alle 09:10:38 UTC+1 Bruno Rossi ha scritto:
> Qui puoi vedere un esempio:
https://www.dropbox.com/s/8ur9x27u2khh485/MacchineDaCucire.rar?dl=0

Bruno, grazie infinite 😊😊


title: Inserire valore in campo Null..

author: SuperPippo®

text:
salve... ho una tabella con circa 10.000 record...
ed ho circo 2.000 record con campi vuoti..
vorrei metterci un valore ...come posso fare ???
Ciao...


title: Inserire valore in campo Null..

author: Antonio Biso

text:
"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:MTS_8.16085$GV2.4...@twister2.libero.it...

Fai una query di aggiornamento, mettendo come criterio is null
Antonio


title: Inserire valore in campo Null..

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:Z8T_8.15120$s74.4...@twister1.libero.it...

-------------------
grazie Antò... Ciao !!


title: Inserire valore in campo Null..

author: Emyr

text:


query di aggiornamento
Saluti.
Emanuele.


title: comobox su maschere continue

author: gianfry

text:
Salve a tutti, vorrei un aiuto per una maschera di tipo continua, dato che
non è pssibile inrerire una sottomaschera volevo mettere una casella di
controllo con i dati dell' altra tabella, però mi fa vedere su ogni record
tutto il contenuto ho messo anche un filtro per l'id del record, ma appaiono
sempre tutti come posso fare? io utilizzo msaccess2003. grazie


title: comobox su maschere continue

author: Bruno Campanini

text:
"gianfry" <
g.fr...@fastwebnet.it
> wrote in message
news:7jLko.2116$%a.1...@tornado.fastwebnet.it...
> Salve a tutti, vorrei un aiuto per una maschera di tipo continua, dato che
> non è pssibile inrerire una sottomaschera
Nein!
È possibilissimo!
Fino a tre subform in Access 2003, fino ad almeno sette
in Access 2007; analogamente penso in Access 2010.
Bruno


title: comobox su maschere continue

author: Alessandro Cara

text:
Il 17/09/2010 18.36, Bruno Campanini ha scritto:
> "gianfry" <
g.fr...@fastwebnet.it
> wrote in message
> news:7jLko.2116$%a.1...@tornado.fastwebnet.it...
>> Salve a tutti, vorrei un aiuto per una maschera di tipo continua, dato
>> che non è pssibile inrerire una sottomaschera
>
> Nein!
> È possibilissimo!
Magari lo e' ma mettere un subform su un form continuo lo trovo appena
appena azzardato ma, gli utenti di access, mi hanno "imparato" che le
famose vie sono infinite e che tra coperchi e diavoli c'e' un corretto
confronto politico.
;-{)
--
ac


title: comobox su maschere continue

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> wrote in message
news:oRNko.2222$%a....@tornado.fastwebnet.it...
> Magari lo e' ma mettere un subform su un form continuo lo trovo appena
> appena azzardato ma, gli utenti di access, mi hanno "imparato" che le
> famose vie sono infinite e che tra coperchi e diavoli c'e' un corretto
> confronto politico.
Perché dici azzardatao, se non l'hai mai fatto?
Io l'ho fatto diverse decine di volte, problemi ZERO!
È la cosa più bella - per esempio - per un magazzino
con codici a diversi livelli.
Con Access 2007 sono arrivato a sette, poi mi sono
stanco di far prove; forse ne tiene anche di più.
Naturalmente bisogna aver le palle (nel senso di
RAM e CPU).
Bruno


title: comobox su maschere continue

text:
"Bruno Campanini" <
brun...@libero.it
> wrote in message
news:4c93a301$0$40280$4faf...@reader2.news.tin.it...
> Nein!
> È possibilissimo!
> Fino a tre subform in Access 2003, fino ad almeno sette
> in Access 2007; analogamente penso in Access 2010.
Guarda questo:
http://www.2shared.com/document/6AeYkaTc/EntiLocali.html
Bruno


title: comobox su maschere continue

text:
Il 17/09/2010 20.15, Bruno Campanini ha scritto:
> "Alessandro Cara" <
alessan...@ay-1anetwork.it
> wrote in message
> news:oRNko.2222$%a....@tornado.fastwebnet.it...
>
>> Magari lo e' ma mettere un subform su un form continuo lo trovo appena
>> appena azzardato ma, gli utenti di access, mi hanno "imparato" che le
>> famose vie sono infinite e che tra coperchi e diavoli c'e' un corretto
>> confronto politico.
>
> Perché dici azzardatao, se non l'hai mai fatto?
Serve farlo per immaginarlo(*)?
Preferisco il controllo a schede o aprire/aggiornare un form correlato.
(*) ivi compreso la richiesta/necessita' di risorse
--
ac


title: comobox su maschere continue

text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:4c93bbae$0$40293$4faf...@reader2.news.tin.it...

> Bruno ti ringrazio ma non riesco a scaricarlo mi arrivano solo pagine
pubblicitarie c'è l'indicazione EntiLocali.mdb,ma da dove si scarica?


title: comobox su maschere continue

text:
"gianfry" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:biPko.2286$%a....@tornado.fastwebnet.it...

>Ok ci sono riuscito e da quello che ho capito le sub form vanno inserite su
>il pie pagina e no nel corpo e quindi c'è solo una sub form per tutti i
>record. Ho capito bene?
grazie


title: comobox su maschere continue

author: Karl Donaubauer

text:

Spiegi meglio cosa intendi con "filtro". Cosa hai fatto e dove?
La casella combinata è associata, cioè ha un origine controllo?
Forse usi un riferimento ad un campo della maschera come
criterio nell'origine riga della casella combinata. In questo caso
devi sempre aggiornare la lista della casella combinata per
filtrarla con il valore del record presente. p.e. puoi usare
Me!MiaCombo.Requery
nel codice dell'evento "Su Corrente" della maschera o
"Su Invio" della combo.
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: comobox su maschere continue

author: Simona

text:


per funzionare,  funziona.
ma è orrendo!!!  :)


title: comobox su maschere continue

text:


non volevo mancare di rispetto, ma in questo caso 3 caselle combinate
non erano più accettabili?


title: comobox su maschere continue

text:
"gianfry" <
g.fr...@fastwebnet.it
> wrote in message
news:5oPko.2291$%a....@tornado.fastwebnet.it...
>>Ok ci sono riuscito e da quello che ho capito le sub form vanno inserite
>>su il pie pagina e no nel corpo e quindi c'è solo una sub form per tutti i
>>record. Ho capito bene?
> grazie
Se inserisci le subform nel corpo che pasticcio combini trattandosi
di una ContinuosForm?
Ogni form porta il Detail (ContinuosForm) e una subform al Footer,
la quale subform porta il Detail e una subform al Footer, etc
Bruno
PS
Il tutto funziona anche con le subform nell'Header.


title: comobox su maschere continue

text:
"Simona" <
sim...@hotmail.com
> wrote in message
news:j80996pdp0g4eh2hv...@4ax.com...
>>per funzionare,  funziona.
>>ma è orrendo!!!  :)
Ho capito, a te piacciono le form alla Fantozzi, con dei bei
controlloni colorati...
De gustibus...
> non volevo mancare di rispetto, ma in questo caso 3 caselle combinate
> non erano più accettabili?
Nessun problema per il rispetto.
Realizza il tutto con le combo, poi me lo mandi e ne discutiamo.
Ci conto!
Bruno


title: comobox su maschere continue

text:
Il 18/09/2010 11.40, Bruno Campanini ha scritto:
> "Simona" <
sim...@hotmail.com
> wrote in message
> news:j80996pdp0g4eh2hv...@4ax.com...
>
>>> per funzionare, funziona.
>>> ma è orrendo!!! :)
>
> Ho capito, a te piacciono le form alla Fantozzi, con dei bei
> controlloni colorati...
> De gustibus...
Ohhh andiamo Bruno, sii buono, un banale controllo, piccolo come vuoi,
magari con un +/- come label mi sembra piu' attraente della corazzata
Potiomkin (*).
>
>> non volevo mancare di rispetto, ma in questo caso 3 caselle combinate
>> non erano più accettabili?
>
> Nessun problema per il rispetto.
> Realizza il tutto con le combo, poi me lo mandi e ne discutiamo.
Qui l'OP, se sperava di risolvere con un cbx, non e' in un vero e
proprio master/detail ma, presumibilmente, in un rapporto 1:1.
Li vorrei vedere i tuoi formati quando il dettaglio puo' essere da 1 ad
un centinaio di righe con varie profondita' di nidificazione.
Se non mi ricordo male, al contrario dei subform nei reports, rendere
dinamica l'altezza del subform crea qualche problema.
E con questo voglio dire che non escludo la possibilita' di usare dei
subform su form continue ma la casistica di applicazione mi sembra molto
ristretta (continuo ad immaginare)
(*) Esattamente quello che fa access quando ci sono relazioni fra
tabelle e consente di aprire l'albero.
--
ac


title: comobox su maschere continue

text:


mi continua a sfuggire l'utilità delle sub form in una
ContinuosForm...


title: comobox su maschere continue

text:
On Sat, 18 Sep 2010 11:40:19 +0200, "Bruno Campanini"
<
brun...@libero.it
> wrote:
>"Simona" <
sim...@hotmail.com
> wrote in message
>news:j80996pdp0g4eh2hv...@4ax.com...
>
>>>per funzionare,  funziona.
>>>ma è orrendo!!!  :)
>
>Ho capito, a te piacciono le form alla Fantozzi, con dei bei
>controlloni colorati...
>De gustibus...
Oddio, è vero che i gusti sono personali, ma le tue form sono un poco,
come dire, tozze.....
tutti quelle texbox così grosse....


title: comobox su maschere continue

author: Pablitomf (da casa)

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:7Z0lo.2456$%a.1...@tornado.fastwebnet.it...
> Il 18/09/2010 11.40, Bruno Campanini ha scritto:
>> "Simona" <
sim...@hotmail.com
> wrote in message
>> news:j80996pdp0g4eh2hv...@4ax.com...
>>
>>>> per funzionare, funziona.
>>>> ma č orrendo!!! :)
>>
>> Ho capito, a te piacciono le form alla Fantozzi, con dei bei
>> controlloni colorati...
>> De gustibus...
>
> Ohhh andiamo Bruno, sii buono, un banale controllo, piccolo come vuoi,
> magari con un +/- come label mi sembra piu' attraente della corazzata
> Potiomkin (*).
>
>>
>>> non volevo mancare di rispetto, ma in questo caso 3 caselle combinate
>>> non erano piů accettabili?
>>
>> Nessun problema per il rispetto.
>> Realizza il tutto con le combo, poi me lo mandi e ne discutiamo.
>
> Qui l'OP, se sperava di risolvere con un cbx, non e' in un vero e proprio
> master/detail ma, presumibilmente, in un rapporto 1:1.
> Li vorrei vedere i tuoi formati quando il dettaglio puo' essere da 1 ad un
> centinaio di righe con varie profondita' di nidificazione.
> Se non mi ricordo male, al contrario dei subform nei reports, rendere
> dinamica l'altezza del subform crea qualche problema.
> E con questo voglio dire che non escludo la possibilita' di usare dei
> subform su form continue ma la casistica di applicazione mi sembra molto
> ristretta (continuo ad immaginare)
>
>
> (*) Esattamente quello che fa access quando ci sono relazioni fra tabelle
> e consente di aprire l'albero.
> --
> ac
io tifo per un TreeView... ricorsione a quanto ti pare e risolvi ogni
problema...


title: comobox su maschere continue

author: D

text:
"Pablitomf (da casa)" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:Bzblo.97852$Ua.2...@twister2.libero.it...

>Mi permetto di segnalare il controllo della CodeJock Reportcontrol.
>Praticamente la fusione di un treeview con una listview, io lo uso in
>access da tempo con grande soddisfazione, permette la realizzazione di
>maschere master - detail  molto professionali e dalla nidificazione
>praticamente infinita
http://www.codejock.com/products/reportcontrol/?platform=com


title: comobox su maschere continue

text:
>> io tifo per un TreeView... ricorsione a quanto ti pare e risolvi ogni
>> problema...
>>Mi permetto di segnalare il controllo della CodeJock Reportcontrol.
>>Praticamente la fusione di un treeview con una listview, io lo uso in
>>access da tempo con grande soddisfazione, permette la realizzazione di
>>maschere master - detail  molto professionali e dalla nidificazione
>>praticamente infinita
>
>
http://www.codejock.com/products/reportcontrol/?platform=com
Controllo egregio alla Outlook... ma un pochino pochino a pagamento.


title: comobox su maschere continue

text:
Il 19/09/2010 1.04, Pablitomf (da casa) ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:7Z0lo.2456$%a.1...@tornado.fastwebnet.it...
>> Il 18/09/2010 11.40, Bruno Campanini ha scritto:
>>> "Simona"<
sim...@hotmail.com
>  wrote in message
>>> news:j80996pdp0g4eh2hv...@4ax.com...
>>>
>>>>> per funzionare, funziona.
>>>>> ma è orrendo!!! :)
>>>
>>> Ho capito, a te piacciono le form alla Fantozzi, con dei bei
>>> controlloni colorati...
>>> De gustibus...
>>
>> Ohhh andiamo Bruno, sii buono, un banale controllo, piccolo come vuoi,
>> magari con un +/- come label mi sembra piu' attraente della corazzata
>> Potiomkin (*).
>>
>>>
>>>> non volevo mancare di rispetto, ma in questo caso 3 caselle combinate
>>>> non erano più accettabili?
>>>
>>> Nessun problema per il rispetto.
>>> Realizza il tutto con le combo, poi me lo mandi e ne discutiamo.
>>
>> Qui l'OP, se sperava di risolvere con un cbx, non e' in un vero e proprio
>> master/detail ma, presumibilmente, in un rapporto 1:1.
>> Li vorrei vedere i tuoi formati quando il dettaglio puo' essere da 1 ad un
>> centinaio di righe con varie profondita' di nidificazione.
>> Se non mi ricordo male, al contrario dei subform nei reports, rendere
>> dinamica l'altezza del subform crea qualche problema.
>> E con questo voglio dire che non escludo la possibilita' di usare dei
>> subform su form continue ma la casistica di applicazione mi sembra molto
>> ristretta (continuo ad immaginare)
>>
>>
>> (*) Esattamente quello che fa access quando ci sono relazioni fra tabelle
>> e consente di aprire l'albero.
>> --
>> ac
>
> io tifo per un TreeView... ricorsione a quanto ti pare e risolvi ogni
> problema...
>
>
Questi schemi di gioco sono solo per "special one", io sono all'antica
solo schemi zemaniani ;-{)


title: comobox su maschere continue

text:
>> io tifo per un TreeView... ricorsione a quanto ti pare e risolvi ogni
>> problema...
>>
>>
> Questi schemi di gioco sono solo per "special one", io sono all'antica
> solo schemi zemaniani ;-{)
eh ma poi finisci che ne segni 4 e ne incassi 6 ;)
evoluzione... evoluzione... :D


title: comobox su maschere continue

text:
"Simona" <
sim...@hotmail.com
> wrote in message
news:3ri996p1h1og7no7d...@4ax.com...
> mi continua a sfuggire l'utilità delle sub form in una
> ContinuosForm...
L'utilità è soggettiva.
Se a te non serve non usarla.
A me serviva e l'ho usata spesso.
Bruno


title: comobox su maschere continue

text:
"Simona" <
sim...@hotmail.com
> wrote in message
news:asi996pvorsh68f4m...@4ax.com...
> Oddio, è vero che i gusti sono personali, ma le tue form sono un poco,
> come dire, tozze.....
> tutti quelle texbox così grosse....
A 1920 x1200 non sono affatto grosse,
questione di risoluzione.
Non so perché continui a risponderti...
ma che c... vai cercando?
Bruno


title: Dritta per un problema di etichette

text:
Salve a tutti e grazie in anticipo per un eventuale aiuto.

Vi spiego il mio problema:
Ho un database in cui ho una tabella ordini. Da questa tabelle devo ricavare il report per le etichette.Fino a qui non ci sarebbero problemi.Ma le etichette vanno create in base al numero massimo di quantita in una scatola.

Mi spiego meglio con un esempio:

nella tabella ordine ho un record con la data, il nome della ditta, nome prodotto e la quantita ordinata.

25/3/2014----pane e vino----Pizza Bianca----5

Nella tabella prodotti c'e' un campo max_quantita'_scatola,mettiamo in questo caso 1

Allora dovro' stampare 5 etichette da 1 l'uno.

Ho provato a pensare a vari modi, ma non riesco a trovare una soluzione concreta da sviluppare.

Riuscireste a darmi una mano perfavore?

Grazie in anticipo


title: Dritta per un problema di etichette

author: Mancini

text:
Forse sto per dire una stupidata   :-(

quindi hai una tabella/Query con i vari record
da stampare singolarmente su etichetta

Ogni record riporta fra l'altro numero che
corrisponde alle etichette da stampare

Apri un recordset che cicla tutti i record
e per ogni record:
- Apre il report della etichetta
- lo stampa il numero di volte necessario
- richiude il report

Forse sono stato troppo sintetico,  caso mai facci sapere
Oppure se qualcun' altro ha idee migliori
imparo qualcosa anch'io :)

.


title: Dritta per un problema di etichette

text:

Ciao e grazie per la risposta
allora il numero di etichetta sara' dato dalla quantita ordinata, diviso la quantita max per scatola dalla tabella prodotti.

Veramente deve preparare il report delle etichette che sono su un foglio a4 prima di stampare, non a singola etichetta.

Io avevo pensato di fare la querry per data di ordine.Da li andare attraverso ogni record, e per ogni record, crearlo nuovamente in un altra tabella per tot volte quanto e' il risultato della divisione.
E da li fare il report per le etichette
Volevo farlo attraverso macro senza usare Visual basic. voi cosa ne pensate?

avete un idea migliore??


title: Dritta per un problema di etichette

text:
> avete un idea migliore??

Idee tante,    il problema è poi metterle in pratica  :-)

In effetti anch' io avevo inizialmente pensato a una query che
dato un numero ( N ) presente in ogni record vada a ricreare
quel record appunto N volte

ma non sono riuscito a crearla con il solo linguaggio di SQL
Magari qualcuno piu esperto potrebbe aiutarci

con il recordset e VBA è invece facile,

[code]
Public Sub StampaReport()

Dim DBx As DAO.Database
Set DBx = DBEngine(0)(0)

Dim Rsx As DAO.Recordset
Set Rsx = DBx.OpenRecordset("Tabe", dbOpenDynaset)

Dim X As Integer

Rsx.MoveFirst
    Do Until Rsx.EOF
    DoCmd.OpenReport "Rep1", acViewPreview, "", "[Id]=" & Rsx.Fields("Id").Value, acNormal

        For X = 1 To Rsx.Fields("N4").Value  ' N4 è il numero di stampe
            DoCmd.RunCommand acCmdPrint
            'MsgBox X
            ' oppure query di inserimeno in tabella temporanea
        Next
    DoCmd.Close (acReport), "Rep1"
    Rsx.MoveNext
    Loop

End Sub
[/code]

.


title: Dritta per un problema di etichette

text:
Il 26/03/2014 22:30,
businel...@gmail.com
 ha scritto:
> Il giorno mercoledě 26 marzo 2014 19:43:33 UTC+1, Mancini ha scritto:
>> Forse sto per dire una stupidata   :-(
>>
>>

>
> avete un idea migliore??
>

problema che ho affrontato tempo fa, ti conviene andare di vba...
tieni conto che non sempre stamperai un A4 pieno, ma alcune volte magari
ti restano disponibili alcune etichette di un foglio A4.
Quindi il programma deve chiederti prima di stampare sia quante
etichette vuoi stampare, sia quante lasciarne vuote prima di iniziare la
stampa. In questo modo avrai zero sprechi.

ciao
BFS


title: Dritta per un problema di etichette

text:
Grazie a tutti per le risposte.
Volevo evitare di usare visual basic, perche sono abituato a C e php, non sono proprio una cima con la sintassi e la struttura Vb.
Comunque, ho cominciato e sto riusciendo ad usare la macro. Per il loop basta usare una macro e alla proprieta Ripetizione inserire la condizione.
Comunque in serata vi faccio sapere come va. Ma se ci sono altre idee e consigli , ne sono piu che felice.

Io la penso in questa maniera:" Io imparo da te, tu impari da me, tutti imparano da tutti"..il bello della comunita degli sviluppatori :-)

Grazie ancora in anticipo a tutti


title: Dritta per un problema di etichette

text:
Certamente meglio se usi VBA ....

Pero con i vecchi trucchi dimenticati si riesce a fare di tutto

Fatti una tabella di nome "Tabe"
- Id --- Contatore --- Key
- Des1 -- Testo
- Num --- Numerico  ( il numero di etichette da stampare )

Fai una tabella di solo appoggio di nome "T1" con il solo campo
- Nux --- Numerico --- Key
Nel campo Nux ci metti meticolosamente tutti i numeri da 1 fino al numero massmo di etichette che potresti dovere stampare

Poi fai questa query e i record di "Tabe" vengono presi tante volte quante indicato nel campo "Tabe.Num"

[code]
SELECT
Tabe.Id,
Tabe.Des1,
Tabe.Num
FROM
Tabe
RIGHT JOIN
T1
ON
Tabe.Num>=T1.Nux
WHERE
(((Tabe.Num) Is Not Null))
;
[/code]

.


title: Dritta per un problema di etichette

text:
Salve ragazzi e grazie ancora..
comunque ho risolto usando le macro, usate a mo di codice :-).
Praticamente ho creato una tabella holding e tramite macro usate come loop con varie espressioni di controllo e con condizioni ho ricreato nella tabella holding gli ordini ma basati sulle quantita'; quindi ripetute quante volte serviva e poi ho fatto le etichette da tale tabella.

grazie a tutti per l'aiuto


title: Dritta per un problema di etichette


title: Directory in cui risiede il file aperto

author: Alessandro Bondi

text:
Come posso in VBA ottenere la directory in cui c'e' il file MDB che sto
utilizzando?


title: Directory in cui risiede il file aperto

author: Luca

text:
Prova con
CurrentProject.Path
"Alessandro Bondi" <
abondiSPAMMAPU...@ijk.it
> ha scritto nel
messaggio news:f2sCd.625703$35.25...@news4.tin.it...



title: Directory in cui risiede il file aperto

text:
> CurrentProject.Path
Perfetto


title: Visualizzazione struttura db

author: Nao+

text:
Ciao ng, ho fatto un piccolo database per la gestione dei dati di lavoro,
olte a me viene usato da altri miei colleghi.
Come protezione ho fatto una cosa a mano, non è che serva a tantissimo, ma a
per l'utilizzo che ne facciamo basta.
Faccio aprire il db nella F_password in questa bisogna inserire la password
personale, il codice vba confronta la psw con la lista di psw che ha nel
codice e apre la schermata principale con abilitati solo i bottoni a cui ha
accesso il livello di psw inserito.
Il db è impostato in modo che non ci siano barre, e non si possa modificare.
Il problema è che quando devo apportare delle modifiche o aggiornamenti alle
tabelle, devo sempre aprire il db con lo shift premuto, in modo da entrare
in modalità di modifica del db.
E' possibile evitare questacosa mettendo che se la psw "x" che inserisco in
psw, mi faccia modificare il db senza doverlo aprire con lo shift
schiacciato?
E' un po contorta come spiegazione, ma il principio è semplice.
grazie a chi mi aiuta.
Nao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Visualizzazione struttura db

author: Roberto dalla campagna

text:
"Nao+" <QQQnaon...@QQQlibero.itQQQ> ha scritto nel messaggio
news:195Z33Z137Z29Y1...@usenet.libero.it...

Il modo standard per risolvere questo modo in Access è usare la sicurezza di
Access al livello utente (vedi help) così che potrai stabilire che solo
l'amministratore (che mi sembra sei tu) ha la possibilità di modificare la
struttura degli oggetti del database.
Naturalmente usando la sicurarezza standard di Access non divrai più gestire
tu in modo artigianale le pasword di accesso al database.
Se ti interessa saper come si usa la sicurezza di Access, vai sul Sito
Comune (link qui sotto) e nella Sezione general leggi la FAQ di Cristiano De
Pasquale intitolata "6.3 Come utilizzare la sicurezza di Access?".
>
> grazie a chi mi aiuta.
Prego
>
> Nao
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: stringa connessione

author: lolince

text:
Salve , vi espongo il mio problema , ho una query passth con il
relativo codice sql "set isolation to dirty read"
ora visto che sono collegato in tabella odbc (informix) quando faccio
il riallaccio tabelle funziona tutto e successivamente passo la
stringa di connessione acneh alla query in questione .
Ora il problema non e che non passa la la stringa se controllo la
trovo , ma che cmq non funziona , devo impostarlo manualmente .
posto il codice
Public Function connessione()
Dim conness As Variant
Dim var As Variant
Dim QueryPT As DAO.QueryDef
Set QueryPT = CurrentDb.QueryDefs("isolazion")
var = DLookup("conn", "server")
conness = "ODBC;DSN=" & var & ";"
Set QueryPT = CurrentDb.QueryDefs("isolazion")
QueryPT.Connect = conness
End Function
dove sbaglio?


title: stringa connessione

author: marcopio

text:

Non ho capito bene il problema,
comunque:
1.nella connect prova ad aggiungere anche UID, PWD (anche se vuota) e
DATABASE (e quindi finisci la stringa senza ";")
2. "isolazion" deve essere una query presente nel tuo DB e definita
come PT (Quey -> SQL specifico -> Pass-through)
3.forse per ottenere i risultati che vuoi devi ridefinire l'SQL con
un'istruzione del tipo:
QueryPT.SQL = "SELECT TuaTabella.*" _
                & " FROM TuaTabella"
(Set QueryPT è sufficiente una sola volta)
Con queste cosine a me funzia sempre, occhio che magari il tuo
informix vuole un formato leggermente diverso delle stringhe in
questione).
Spero tu risolva.
HTH, mpio


title: stringa connessione

text:

Grazie Marco , il problema e che e una query passt. dove devo passare
i paramentri di connessione, ora nel mio pc funziona bene con il
codice sopra scritto anche senza user e password dichiarati , in altri
pc dove installo l'applicativo invece e causale ( mi spiego meglio) ad
esempio nel mio pc basta solo il dns , un'altro vuole user e password
e cmq non accetta il linguaggio passato ma lo devo fare io manualmente
altri invece come stringa vogliono tutti i dati di informix porta
user , password , database ecc ecc...
mi chiedevo se c'era una soluzione unificata per tutti


title: Re: Si riesce ad allargare lo spazio delle lettere nei report

author: ALESSANDRO Baraldi

text:
"Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
news:yo3Sd.927226$35.34...@news4.tin.it...
> Si riesce ad allargare lo spazio delle lettere nei report?
Cosa intendi....?
Forse come l'effetto del "Giustificato"..?
C'è un esempio di come Giustificare il Testo quì:
www.lebans.com
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


author: Trevisan


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:4218c832$0$32344$5fc...@news.tiscali.it...

>no per inserire le lettere nelle caselle dei bollettini postali


text:
"Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
news:A34Sd.927550$35.34...@news4.tin.it...
> >no per inserire le lettere nelle caselle dei bollettini postali
Allora non ho capito...!!



text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:4218cdd9$0$32333$5fc...@news.tiscali.it...

>per collocare le lettere all'interno delle caselline rosse


text:
"Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
news:uN5Sd.928273$35.34...@news4.tin.it...
>
> "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> news:4218cdd9$0$32333$5fc...@news.tiscali.it...
> > "Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
> > news:A34Sd.927550$35.34...@news4.tin.it...
> >> >no per inserire le lettere nelle caselle dei bollettini postali
> >
> > Allora non ho capito...!!
scusa ma non riesco a spiegarmi
il modello postale 8003 ha delle caselline rosse dove devono stare le
lettere dei campi
(ad esempio   SANDRO   può diventare S A N D R O   oppure esagerando S  A  N
D  R  O
Non capisco perchè mi hai riempito la Mail personale di Messaggi....!!!
Ovviamente puoi usare una Routine di Parsing ed aggiungere uno Spazio
Vuoto ogni lettera.
Prova ad usare una cosa del genere:
Public Function Pars(strIn As String) As String
   Dim strOUT     As String
   Dim x          As Integer
   strOUT = ""
   strIn = "SANDRO"
   For x = 1 To Len(strIn)
       strOUT = strOUT & Mid(strIn, x, 1) & " "
   Next
   Pars = strOUT
End Function
Secondo me devi usare un FontType a spaziatura costante
altrimenti non riuscirai mai.
Intendo dire non un TrueType.
Ciao



author: Ever

text:
"Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
news:yo3Sd.927226$35.34...@news4.tin.it...
> Si riesce ad allargare lo spazio delle lettere nei report?
>
"Trevisan" <
sat...@tin.it
> ha scritto nel messaggio
news:<yo3Sd.927226$
35.34...@news4.tin.it
>...
> Si riesce ad allargare lo spazio delle lettere nei report?
>
L'unica maniera che mi viene in mente è stampare utilizzando Word dove puoi
definire lo spazio fra i caratteri (Formato, carattere, spaziatura e
posizione).
Per stampare tramite Word puoi andare sul sito comune dove trovi anche come
stampare un conto corrente (Reports Stampaccp).
Ciao


title: Controllo immagine su report

author: Federico Luciani

text:
[Access97/2000]
Non l'avevo mai notato, quindi non so se e' un problema mio, ma non
credo.
Se inserisco una immagine in un report, questa sia in preview che in
stampa (no in design) aumenta di dimensioni (sgranando!).
Naturalmente in un form non succede.
Ho provato con varie immagini, ma il risultato e' sempre lo stesso.
Ho provato, allora, con una cornice oggetto non associata, l'immagine
viene stampata correttamente.
Dimenticavo, la proprieta' ridimensionamento e' impostata a Ritaglia
(0).
Qualcuno sa dirmi qualcosa?
--
Federico
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Controllo immagine su report

text:
Federico Luciani wrote:
> [Access97/2000]
> Non l'avevo mai notato, quindi non so se e' un problema mio, ma non
> credo.
> Se inserisco una immagine in un report, questa sia in preview che in
> stampa (no in design) aumenta di dimensioni (sgranando!).
> Naturalmente in un form non succede.
> Ho provato con varie immagini, ma il risultato e' sempre lo stesso.
> Ho provato, allora, con una cornice oggetto non associata, l'immagine
> viene stampata correttamente.
> Dimenticavo, la proprieta' ridimensionamento e' impostata a Ritaglia
> (0).
> Qualcuno sa dirmi qualcosa?
Ho appena scoperto che accade solo con immagini bmp, se uso altri tipi
(jpg, tif, gif) l'immagine viene stampata correttamente!!!!!!!!
--
Federico
----------------------------------
Rimuovi paperino. per e-mail



title: Aiuto su cicli

author: Cocoon

text:
se ho dei cicli molto lunghi, l'applicazione sembra bloccata, cosa posso
fare?
Non esiste qualcosa tipo DoEvent?


title: Aiuto su cicli

author: Sergio MAZZA

text:
"Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
news:IkZzc.339486$hc5.14...@news3.tin.it...
> se ho dei cicli molto lunghi, l'applicazione sembra bloccata, cosa posso
> fare?
>
> Non esiste qualcosa tipo DoEvent?
>
Come no? Hai cercato nell'help?
Ciao.
--
Sergio MAZZA


title: Aiuto su cicli

author: NON emmedi PROVARCI @nemmenotin.itintesi? OneEDP

text:
"Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
news:IkZzc.339486$hc5.14...@news3.tin.it...
> se ho dei cicli molto lunghi, l'applicazione sembra bloccata, cosa posso
> fare?
>
> Non esiste qualcosa tipo DoEvent?
>
>
Che io sappia c'è solo DoEvent da inserire nel ciclo... magari non al
livello nidificato più alto...
In più la DoEvent ti permette di fare esguire del codice qualunque su un
altro evento OnTimer del tipo una visualizzazione a tempo "Prenditi un
caffè... rilassati... ma non so se ce la fai per una pausa pranzo..."
Altrimenti probabilemente devi pungerti con le api o chissà cosa... (parlo
da ignorante)
Ok?
Ciao


title: Aiuto su cicli

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:capns5$g1j$1...@canarie.caspur.it...

Nell'help di access non ho trovato niente.
Ho cercato su sito comune ed ho trovato questo codice
Private Declare Sub sapiSleep Lib "kernel32" _
               Alias "Sleep" (ByVal dwMilliseconds As Long)
Sub sSleep(lngMilliSec As Long)
   If lngMilliSec > 0 Then
      Call sapiSleep(lngMilliSec)
   End If
End Sub
Sub sTestSleep()
   Const cTIME = 1000 'in MilliSeconds
   Call sSleep(cTIME)
   MsgBox "Before this Msgbox, I was asleep for " & cTIME & " Milliseconds."
End Sub
Ma non ho capito come usarlo per non dare l'effetto di blocco nei cicli
lunghi


title: Aiuto su cicli

text:
"OneEDP" <one NON emmedi PROVARCI @ NEMMENO
tin.it
 INTESI?> ha scritto nel
messaggio news:MtZzc.211$c_1....@twister1.libero.it...
> "Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
> news:IkZzc.339486$hc5.14...@news3.tin.it...
> > se ho dei cicli molto lunghi, l'applicazione sembra bloccata, cosa posso
> > fare?
> >
> > Non esiste qualcosa tipo DoEvent?
> >
> >
> Che io sappia c'è solo DoEvent da inserire nel ciclo... magari non al
> livello nidificato più alto...
Ma DoEvent non è riconosciuto da VBA for Access


title: Aiuto su cicli

author: giorgio rancati

text:
"Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
news:awZzc.339553$hc5.14...@news3.tin.it...

DoEvent no ma DoEvents Si
Ciao Giorgio


title: Aiuto su cicli

text:
"Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
news:auZzc.339546$hc5.14...@news3.tin.it...
>
> "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> news:capns5$g1j$1...@canarie.caspur.it...
> > "Cocoon" <nonRo...@noSPAM.com> ha scritto nel messaggio
> > news:IkZzc.339486$hc5.14...@news3.tin.it...
> > > se ho dei cicli molto lunghi, l'applicazione sembra bloccata, cosa
posso
> > > fare?
> > >
> > > Non esiste qualcosa tipo DoEvent?
> > >
> >
> > Come no? Hai cercato nell'help?
> >
> Nell'help di access non ho trovato niente.
Strano; io ho trovato:
Funzione DoEvents
Sospende l'esecuzione in modo che il sistema operativo possa elaborare altri
eventi.
----- omissis ----
>
Ciao.
--
Sergio MAZZA


title: Evitare password

author: Pippo Firenze

text:
Salve, avrei una richiesta da fare a chi sicuramente si intende di
ACCESS molto più di me:
In un programmino in Access, condiviso con quattro o più utenti,
vorrei assegnare dei comandi diversi a seconda dell'utente che accede al
programma.
Ho pensato di inserire all'interno dei PC dei colleghi un nuovo file
.MDW appropriato per ciascun utente.
Facendo questo, però al momento in cui si accede al programma viene
chiesto di immettere il nume Utente e una Password, in modo tale da
identificare chi è che accede al programma (altrimenti sarebbero tutti
amministratori credo).
La mia domanda è questa: E' possibile, tramite un codice, macro o
qualunque altra cosa, saltare la procedura del nome Utente e Passoword,
e comunque avere funzioni diverse per ciascun computer-utente??
Grazie mille per chi mi vuol essere di aiuto.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Evitare password

author: Paolo opg

text:
"Pippo Firenze" <
pip...@sitoverde.com
> wrote in message
news:619fa205ffe7c4721e2...@mygate.mailgate.org...
> La mia domanda č questa: E' possibile, tramite un codice, macro o
> qualunque altra cosa, saltare la procedura del nome Utente e
Passoword,
> e comunque avere funzioni diverse per ciascun computer-utente??
>
> Grazie mille per chi mi vuol essere di aiuto.
>
io faccio una cosa simile usando una funzione che mi restituisce il nome
dell'utente loggato nel sistema.
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function
tieni presente che perň in questo modo non sfrutti le funzioni di
sicurezza di access.
io infatti lo uso solo per nascondere o mostrare alcuni pulsanti in
funzione dell'utente, dato che con il buon vecchio F11, la finestra db
diventa visibile mostrando tutti gli oggetti


title: Evitare password

author: Ettore

text:
Io inserirei semplicemente nella riga di comando del collegamento le parole
chiave: /user utente /pwd password.
In questo modo l'utente accede al database solo con le autorizzazioni a lui
concesse.


title: Evitare password

author: Antonio Biso

text:
"Ettore" <
lbp...@hotmail.com
> ha scritto nel messaggio
news:fBQa9.107819$n04.2...@twister2.libero.it...
> Io inserirei semplicemente nella riga di comando del collegamento le
parole
Io metterei un po' di quoting scrivendoci poi dopo!!!
Antonio


title: Evitare password

text:
"Pippo Firenze" <
pip...@sitoverde.com
> ha scritto nel messaggio
news:619fa205ffe7c4721e2...@mygate.mailgate.org...

Io inserirei semplicemente nella riga di comando del collegamento le parole
chiave: /user utente /pwd password.
In questo modo l'utente accede al database solo con le autorizzazioni a lui
concesse.
P.S.:... nella speranza di fare cosa gradita all'Antonia


title: Aggiornamento Immediato

author: nuotatore

text:
ho una maschera principale che fa riferimento a una tabella "ricevute". in
questa maschera ci sono delle caselle combinate e una sottomaschera che
fanno riferimento ad una query chiamata "calcolo date" che fa anch' essa
riferimento alla tabella "ricevute". vorrei che al cambiamento di ogni
parametro della maschera ( e di conseguenza della tabella "ricevute") mi
cambiassero in automatico tutti i parametri calcolati dalla query " calcolo
date". come posso fare?
mauro
___________________________________
Mauro Gallo
www.maurogallo.com
alf...@libero.it


title: Aggiornamento Immediato

text:
nuotatore wrote:
> ho una maschera principale che fa riferimento a una tabella "ricevute". in
> questa maschera ci sono delle caselle combinate e una sottomaschera che
> fanno riferimento ad una query chiamata "calcolo date" che fa anch' essa
> riferimento alla tabella "ricevute". vorrei che al cambiamento di ogni
> parametro della maschera ( e di conseguenza della tabella "ricevute") mi
> cambiassero in automatico tutti i parametri calcolati dalla query " calcolo
> date". come posso fare?
> mauro
a fronte dell'aggiornamento dei controlli nella form, esegui un requery delle
combo e della subform.
es.
se esiste un controllo txtDataRicevuta, allora a fronte dell'evento
DopoAggiornamento scrivi:
Private Sub txtDataRicevuta_AfterUpdate()
  me.nomeCombo1.requery
  me.nomeCombo2.requery
  me.nomeSubForm
End Sub
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Trasferire più record in una sola casella testo

author: Paolo Donnarumma

text:
Dovrei creare in una campo "prova" origine di un controllo testo in una
maschera "frmPaolo" l'unione di più records. Come da consiglio di George ho
guardato sull'archivio di sito comune e ho trovato quanto mi serviva:
soltanto che non mi funziona! Ho scritto il codice qua sotto da attivare su
click di un bottone comando di frmPaolo, ma mi da inevitabilmente errore!
Il mio Database è PROVE: lanciando il codice dallo stesso Database aperto è
proprio necessario dichiararlo?
Tcolori è la tbl che contiene 3 campi: Id (chiave), colori e note.
 Dim PROVE As DATABASE, rst As Recordset
      NumeroColori = DCount("[colori]", "Tcolori")
     Set PROVE = CurrentDb
      Set rst = PROVE.OpenRecordset ("Tcolori", dbOpenDynaset)
     rst.MoveFirst
     prova = rst!colori
     For i = 1 To NumeroColori
     rst.MoveNext
     prova = prova & rst!colori
         If i = NumeroColori Then Exit For
         prova = prova & " - "
     Next i
     rst.Close
     Set dbs = Nothing
Ciao a tutti!


author: George

text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:sliBa.13911$g92.3...@news2.tin.it...
>
> Dovrei creare in una campo "prova" origine di un controllo testo in una
> maschera "frmPaolo" l'unione di piů records. Come da consiglio di George
ho
> guardato sull'archivio di sito comune e ho trovato quanto mi serviva:
> soltanto che non mi funziona! Ho scritto il codice qua sotto da attivare
su
> click di un bottone comando di frmPaolo, ma mi da inevitabilmente errore!
Sě, ma che errore?
Codice, descrizione e indica la riga dove viene segnalato.
> Il mio Database č PROVE: lanciando il codice dallo stesso Database aperto
č
> proprio necessario dichiararlo?
> Tcolori č la tbl che contiene 3 campi: Id (chiave), colori e note.



author: Carlo Costarella

text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:sliBa.13911$g92.3...@news2.tin.it...
>

Infatti non hai bisogno di dichiararlo anche se non è un errore.
Set RST = currentdb.OpenRecordset("Tcolori")
Hai controllato che il campo "prova" della tua tabella possa contenere tutti
i caratteri necessari?
Che errore ti dà?
Se il controllo "Prova" è nella maschera, scrivi Me.Prova
Facci sapere.
Ciao, Carlo


text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:hziBa.14012$g92.3...@news2.tin.it...

Con le tue indicazioni ho semplificato il codice che adesso è:
 Dim rst As Recordset
      NumeroColori = DCount("[Colori]", "Tcolori")
      Set rst = CurrentDb.OpenRecordset("Tcolori")
     rst.MoveFirst
     Me.prova = rst!Colori
     For i = 1 To NumeroColori
     rst.MoveNext
     Me.prova = Me.prova & rst!Colori
         If i = NumeroColori Then Exit For
         Me.prova = Me.prova & " - "
     Next i
     rst.Close
ma cliccando sul comando, mi da errore su click per errore di compilazione
(classica maschera Access di errore con tanto di fumetto!)
Ciao!


text:
CUT
> >
> >
>
> Con le tue indicazioni ho semplificato il codice che adesso č:
>
>  Dim rst As Recordset
>       NumeroColori = DCount("[Colori]", "Tcolori")
>       Set rst = CurrentDb.OpenRecordset("Tcolori")
>      rst.MoveFirst
>      Me.prova = rst!Colori
>      For i = 1 To NumeroColori
>      rst.MoveNext
>      Me.prova = Me.prova & rst!Colori
>          If i = NumeroColori Then Exit For
>          Me.prova = Me.prova & " - "
>      Next i
>      rst.Close
>
> ma cliccando sul comando, mi da errore su click per errore di compilazione
> (classica maschera Access di errore con tanto di fumetto!)
> Ciao!
>
Hai messo i riferimenti a DAO?
Hai compilato i moduli caricati e notato dove si ferma l'evidenziatore?
Se ci sono anche i riferimenti ad ADO insieme a quelli ad DAO, l'istruzione
va modificata (as DAO.Recordset).
Ciao, Carlo


text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:r5DBa.15115$pR3.2...@news1.tin.it...
>
> CUT
> > >
> > >
> >
> > Con le tue indicazioni ho semplificato il codice che adesso è:

Scusa ma cosa vuol dire mettere i riferimenti a DAO? Io uso ancora una
vecchia versione di Access 95, e quindi gli ADO sono fantascienza!
Putroppo io non ho mai usato i Dao più di tanto!


text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:gbDBa.15128$pR3.2...@news1.tin.it...

Ho provato a lanciare la compilazione del modulo (sinceramente è la prima
volta che la lancio per chè sono una vera "burba" del VBA) e mi ha segnalato
che la variabile "i" non era dichiarata. Ho provveduto a dichiararla, ora il
codice funziona come risultati (accorpa i vari records in un unico campo) ma
mi dà errore 3021 nessun record corrente.
Il nuovo codice è :
 Dim rst As Recordset
 Dim i As Integer
      NumeroColori = DCount("[Colori]", "Tcolori")
      Set rst = CurrentDb.OpenRecordset("Tcolori")
     rst.MoveFirst
     prova = rst!Colori
     For i = 1 To NumeroColori
     rst.MoveNext
     prova = prova & rst!Colori
         If i = NumeroColori Then Exit For
         prova = prova & " - "
     Next i
     rst.Close
Sembra che manchi qualche istruzione per dire di fermare l'esecuzione del
codice!
A cosa serve la compilazione del modulo?
Ciao e grazie a tutti!!


text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:PSEBa.15557$pR3.2...@news1.tin.it...

Per non incorrere in problemi di questo tipo, cicla il recordset in modo
diverso:
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Tcolori")
prova=""
Do while not rst.eof
    prova = prova & rst!Colori
    rst.movenext
    if not rst.eof then prova = prova & " - "
loop
rst.Close
Ciao


text:
CUT

Oltre al consiglio di George, nel tuo caso, per come hai scritto il codice,
devi cambiare:
For i = 1 To NumeroColori
in
For i = 1 To NumeroColori -1
Questo perchè nella routine ti posizioni al primo record PRIMA (...e va
bene) del ciclo di For.
Se i record sono 10 la tua routine fa così:
si sposta al primo record, inizia il ciclo di For da uno a NumeroColori (10)
e con il "movenext" successivo è già spostato al secondo record.
i (la tua variabile) vale 1 ma il record è il secondo (vale 2)
Ecco che il ciclo deve ripetersi par 10 volte ma la decima volta non trova
"nessun record corrente", infatti sarebbe l'undicesimo che non esiste.
In alternativa puoi modificare il codice all'If:
If i = NumeroColori -1 Then Exit For
e lasciare immodificato For i = 1 To NumeroColori
Questa è una buona occasione per imparare come si svolge logicamente il
flusso del codice.
Ciao, Carlo


title: Errore RUN-TIME

text:
Buonasera a tutti
Chiedo un aiuto al NS per un errore run-time.
Premesso che ho installato Office Xp,
ho un data base nel formato Access 2002.
All'apertura di access apre la la  maschera Panello Comandi.
All'avvio mi esce ora questo errore:
Errore RUN-TIME '-
2147024770
 (8007007e)'
quindi mi apre la finestra di vbasic (sotto riportata) ed evidenza la riga
da me contrassegnata ->
 ' Apre tabella Voci pannelli comandi e trova
    ' prima voce per questa pagina.
->    Set dbs = CurrentDb()
    strSQL = "SELECT * FROM [Voci pannelli comandi]"
    strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" &
Me![SwitchboardID]
    strSQL = strSQL & " ORDER BY [ItemNumber];"
    Set rst = dbs.OpenRecordset(strSQL)
Come posso risolvere tale errore?
Vi ringrazio e vi saluto
Umberto


title: Errore RUN-TIME

text:
"
news.tin.it
" <batt...@NoSpaMtecnoricambi-srl.com> ha scritto nel
messaggio news:4bb4be4a$0$1102$4faf...@reader4.news.tin.it...

Probabilmente si tratta di un riferimento mancante, controlla.
Come hai dichiarato dbs? Esiste il riferimento a DAO?
Ciao, Carlo


title: aggiornamento struttura database distribuiti

author: Solignani Tiziano

text:
	Avrei la necessità di provvedere all'aggiornamento della struttura di un
database da me non ancora distribuito ma che avrei appunto intenzione di
distribuire.
	Per l'interfaccia ovviamente il problema non si pone, basta copiarci sopra
la nuova versione. Per i dati, invece, bisogna salvaguardare i dati degli
utenti mettendo contemporaneamente le nuove modifiche.
	Mi sembrava di aver visto tempo fa su Internet un applicativo di terze
parti che tiene traccia di tutte le modifiche strutturali appoartate ad un
database e addirittura scrive del codice che eseguito nei confronti di
vecchie versioni del database apporta tutte le modifiche manualmente
inserite nella copia "principale".
	Non riesco più a trovare il sito dove era proposta questa applicazione.
	Qualcuno potrebbe essermi utile?
	Anche indicandomi altre soluzioni (anche se ovviamente questa sarebbe
fantastica)...
	Grazie in anticpo per l'attenzione.
----- tiziano solignani
http://www.solignani.it
--
Posted from root@[213.26.174.3]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: mark

text:
Ciao Tiziano,
Potresti provare con l'importazione dei dati tabella per tabella nel nuovo
database vuoto.
Con delle semplici query di importazione puoi eseguire il trasferimento
appordando anche modifiche ai dati stessi.
Non sò se questo possa essere la soluzione al tuo caso!
E' sicuramente la più semplice.
Saluti Marco Dell'Oca
D.M. Software
""Solignani Tiziano"" <
soli...@solignani.it
> wrote in message
news:001e01bff7d5$12100e00$0500...@solignani.it...



title: aiuto stampa report orizzontale

author: Paolo Vidotto

text:
Domanda.
ho fatto una funzione su un modulo che mi stampa vari report
che per una esigenza di spazio li devo stampare in orizzontale,
(non tutti),e malgrado che impostazione di stampa sia in orizzontale
sul report che serve, spesso me li stampa in verticale tutti, anzi mi
crea un bel caos (dal modulo me li stampa direttamente senza anteprima
).
é possibile inserire un'istruzione che mi risolva questo problema?
Magari prima di ogni istruzione nel modulo per ogni report cosi faccio
quello che voglio una volta per tutte.
se qualcuno mi aiuta............ Grazie.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Re: Dopo aggiornamento a access 2010 ho bloccato l'accesso principale ai dati

author: Karl Donaubauer

text:
ignazio.pilone wrote:
> ...
> Mi hanno aggiornato il pc ed ora ho access 2010. Ho il file client su
> sei macchine collegate alle tabelle memorizzate su un unico file
> server.
> Mi succede che le macchine dove č presente access 2010 (2) funzionino
> perfettamente mentre sulle altre l'apertura di una maschera provoca
> la chiusura del programma con la richiesta di invio del messaggio a
> microsoft.
> Ho provato a verificare la maschera incriminata, che č la
> principale,(prima legge di Murphy tutte le altre funzionano
> perfettamente), ma anche senza toccare nulla, la sola chiusura la
> manda in crash...
> Qualcuno sa suggerirmi come posso capire dove sta il problema ?

Mancano dettagli cluciali:

Di quale formato e versione di Access č il frontend?
mdb, accdb, 2000, 2007/10...

Quale versione di Access hanno i client dove succede il crash?

Con quale versione di Access crei nuove versioni del file?
Cioč: hai cambiato qualcosa nell'applicazione con la tua A10?
Se sě e il problema č solo 1 maschera: Hai un backup con una versione
vecchia e funzionante della maschera principale da dove puoi importarla
= sostituirla?

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Centesimi euro e IVA

text:
Ciao a tutti
il mio problema è questo,ho creato una applicazione che ricrea un
particolare registro IVA, che oltre all'IVA normale calcola un altro valore
per un ente di previdenza autonomo. I problemi arrivano con gli
arrotondamenti, cioè se sommo i vari valori parziali delle operazioni non
ritrovo l'imponibile iniziale ma una differenza di +1 o -1 centesimo. Due
domande 1) l'arrotondamento è fino a 4 per difetto oltre a 4 per eccesso? 2)
legalmente pone qualcheproblema  questa discrepanza nelle cifre?
grazie
Ilario


title: Centesimi euro e IVA

text:
"C.I.T." <
liviaeila...@libero.it
> ha scritto nel messaggio
news:0w7ba.832$Lr4....@twister2.libero.it...

Non sono molto ferrato, ma sul sito comune
www.sitocomune.com
c'è una Routine di Karl e Emyr che gestisce gli arrotondamenti
commerciali......!
@Alex


title: Centesimi euro e IVA

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:Ty7ba.784$7y3....@twister1.libero.it...

> Grazie l'ho vista ma il problema persiste, questo arrotondamento mi fa
perdere o guadagnare un centesimo e non so se è fiscalmente esatto
Ilario


title: Centesimi euro e IVA

author: Emyr

text:


il problema è che trattandosi di arrotondamenti è ovvio che
l'operazione inversa non è necessariamente esatta.
l'unica procedura è quella di seguire le regole per il calcolo
definite dalla norme in vigore e utilizzare l'arrotondamento dive
previsto.
l'operazione inversa non quadra necessariamente, come pure la somma
dei parziali.
fatti dire dal commercialista la procedura manuale e poi ricreala sul
computer
Saluti.
Emanuele.


title: Centesimi euro e IVA

author: Alberto S.

text:
[cut]
>> > il mio problema è questo,ho creato una applicazione che ricrea un
>> > particolare registro IVA, che oltre all'IVA normale calcola un altro
>> valore
>> > per un ente di previdenza autonomo. I problemi arrivano con gli
>> > arrotondamenti, cioè se sommo i vari valori parziali delle operazioni
>non
>> > ritrovo l'imponibile iniziale ma una differenza di +1 o -1 centesimo.
[cut]
>> Non sono molto ferrato, ma sul sito comune
www.sitocomune.com
>> c'è una Routine di Karl e Emyr che gestisce gli arrotondamenti
>> commerciali......!
>>
>> @Alex
>>
>> Grazie l'ho vista ma il problema persiste, questo arrotondamento mi fa
>perdere o guadagnare un centesimo e non so se è fiscalmente esatto
>
>Ilario
La legge stabilisce solo che gli importi 'suscettibili di autonoma
contabilizzazione' siano arrotondati alla seconda cifra dopo la
virgola.
Per la parte 'IVA' penso che tu abbia già risolto in fattura. Per la
parte 'ente previdenziale' dovresti un po' vedere se questo 'ente'
fissa delle norme per gli arrotondamenti. Se non fissa delle norme
allora sei libero di lavorare con due o più decimali, come meglio
ritieni. Personalmente opererei l'arrotondamento alla seconda cifra
dopo la virgola su ogni numero in modo che il totale da versare
(quello sì deve essere con due cifre decimali) sia esattamente la
sommatoria della singole cifre.
Non ti preoccupare delle differenze per arrotondamenti ... sono
inevitabili e c'erano anche con le lire.
Ciao
--
   Alberto
No alla guerra


title: Centesimi euro e IVA

author: onafets

text:
Avevo anche io problemi di questo tipo ma li ho risolti usando la funzione
round con tre cifre decimali e nel formato mettendo solo 2 cifre decimali.
Infatti la circolare ministeriale dice che bisogna arrotondare 0,004 a 0,01
e 0,005 a 0,02
Prova cosě, dovrebbe funzionare
Puoi anche usare questa funzione che trovi su
www.sitocomune.com
Function fctRound(Optional varNr, Optional varPl As Integer = 2)
' by Konrad Marfurt + ? + Karl Donaubauer
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
   If IsMissing(varNr) Or Not IsNumeric(varNr) Then Exit Function
   fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10 ^
varPl)
End Function
"C.I.T." <
liviaeila...@libero.it
> ha scritto nel messaggio
news:0w7ba.832$Lr4....@twister2.libero.it...
> Ciao a tutti
> il mio problema č questo,ho creato una applicazione che ricrea un
> particolare registro IVA, che oltre all'IVA normale calcola un altro
valore
> per un ente di previdenza autonomo. I problemi arrivano con gli
> arrotondamenti, cioč se sommo i vari valori parziali delle operazioni non
> ritrovo l'imponibile iniziale ma una differenza di +1 o -1 centesimo. Due
> domande 1) l'arrotondamento č fino a 4 per difetto oltre a 4 per eccesso?



title: Scelte disponibili combobox in base a permessi

author: Diego Zuccotti

text:
In una maschera utilizzo un combobox per impostare lo stato di
avanzamento del workflow di documenti, ho messo un campo "stato" nei
record dei documenti, ho trovato anche, grazie all'aiuto del gruppo,
un modo per filtrare le possibili scelte in modifica a seconda dei
privilegi di un dato utente.
Ho associato ad ogni utente un campo "privilegio"
Lo stesso per gli stati.
La query associata al controllo rende visibili solo le scelte
consentite al dato utente (confrontando il suo livello con quello
degli stati.).
Il problema è il seguente:
Se il documento era già in uno stato di livello superiore a quelli
consentiti all'utente attuale questo non è visibile, mi servirebbe
poter modificare la query in modo che includa anche lo stato
attualmente impostato fra le scelte disponibili all'utente ma solo se
nessuno degli altri campi è stato modificato.
Inoltre mi serve sapere come fare in modo che alla modifica di
qualsiasi campo, compresi quelli della sottomaschera, al di fuori di
quello relativo allo stato, venga richiesto se si intende accettare la
modifica ed in tal caso resettare il campo stato al valore di default
e non rendere più disponibile lo stato precedente all'utente.
so che la cosa è un po' complicata ma confido che ci sia chi mi può
aiutare.
Grazie a tutti e saluti.


title: Valore calcolato in SQL

author: 'Roccia' Max

text:
Ciao tutti.
SELECT (funzione molto complicata) AS Tipo, iif([Tipo]="A",Campo1A,
Campo1B) AS Campo1, iif([Tipo]="B",Campo3A,Campo3B) AS Campo2,
iif([Tipo]="A",Campo3A, Campo3B) AS Campo3...... FROM Tabella
Funziona tutto. Solo che vorrei che l'utente non vedesse il campo
calcolato [tipo], e non posso usare una seconda query "di appoggio" .
Possibile?
cia'
Max


title: Valore calcolato in SQL

author: Cinzia

text:
"'Roccia' Max" <
roccia...@email.it
> ha scritto nel messaggio
news:d86bf7a3-847c-4272...@f63g2000hsf.googlegroups.com...

Ciao Max,
dipende da quanto sono smaliziati gli utenti, un nascondi colonna non
può bastare?
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.live.spaces.com
----------------------------------------


title: Valore calcolato in SQL

text:
On 22 Ott, 10:01, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> dipende da quanto sono smaliziati gli utenti, un nascondi colonna non
> può bastare?
Il problema e' che la query serve a convertire velocemente alcuni
valori (un lavoro infame che prima ciascuno faceva a mano, con
risultati discutibili): l'ho parcheggiata in un DB in rete, istruiro'
gli utenti a importare la query nei loro DB e modificarla secondo le
necessità del momento (tutte le tabelle che servono sono esplicitate
con l'indirizzo assoluto in SQL). Ciascun utente potrebbe aver bisogno
di tutti o alcuni dei campi di output (e sara' libero di cancellare
quelli che non gli servono), ma di certo non avra' mai bisogno del
campo calcolato (è illeggibile per un essere umano). Potrei perdere
tre settimane a spiegare che "il campo TIPO non va cancellato", ma
prima o poi qualche imbecille lo cancellera' "perche' sporca l'output"
e poi verra' a firgnare perche' la query non funziona... ecco, io
vorrei evitare questo.
cia'
Max


title: Valore calcolato in SQL

text:
"'Roccia' Max" <
roccia...@email.it
> ha scritto nel messaggio
news:cd4fa291-c823-46b6...@m3g2000hsc.googlegroups.com...



cia'
Max
>>>>>>>>>>RISPOSTA
Ciao Max,
l'unica soluzione che mi fiene in mente è di mettere la funzione
complicata in una routine VB e usare poi la funzione VB nei vari if,
dal punto di vista delle performance non sarà il massimo, ma forse
risolvi il tuo problema
Sostanzialmente supponiamo che la funzione complicata sia   definita
in VB come  Funzione1(campo1, campo2), la tua query diventerebbe
SELECT   iif(funzione1(campoi, campo2)="A",Campo1A,
Campo1B) AS Campo1, iiffunzione1(campoi, campo2)="B",Campo3A,Campo3B)
AS Campo2,
iif(funzione1(campoi, campo2)="A",Campo3A, Campo3B) AS Campo3......
FROM Tabella
Ripeto efficenza scarsa, ma  non mi vengono in mente soluzioni
migliori.



title: Valore calcolato in SQL

text:
On 22 Ott, 11:29, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> Ripeto efficenza scarsa, ma  non mi vengono in mente soluzioni
> migliori.
E soprattutto non-trasportabilità della query (a meno di portarsi
dietro anche il modulo) e incompatibilità con Microsoft Query per far
digerire i dati alle pivot di excel...  peccato!
cia'
Max


title: msaccess e oracle

author: pfmarro

text:
salve!

per una mia vecchia applicazione in access ho la necessità di collegare delle tabelle di Oracle

qualcuno ha delle dritte da darmi?

ho visto un odbc, ma cosa devo mettere come parametri?

ho esperienza su SqlServer, ma qui mi pare diverso.

Grazie anticipatamente


title: msaccess e oracle

author: Nicoletta

text:
Il 03/12/2013 23:05, pfmarro ha scritto:
> salve!
>
> per una mia vecchia applicazione in access ho la necessit� di collegare delle tabelle di Oracle
>
> qualcuno ha delle dritte da darmi?
>
> ho visto un odbc, ma cosa devo mettere come parametri?
>
> ho esperienza su SqlServer, ma qui mi pare diverso.
>
> Grazie anticipatamente
>
cosa intendi per mi pare diverso?
devi installare il driver odbc di oracle (meglio se la stessa versione
del rdbms), a differenza di sql server non � gi� presente.
Una volta creata la tua fonte dati (dsn), colleghi le tabelle
utilizzando la tua fonte dati (data source).

Nicoletta


title: msaccess e oracle

text:
Il giorno martedì 3 dicembre 2013 23:28:08 UTC+1, Nicoletta ha scritto:
> Il 03/12/2013 23:05, pfmarro ha scritto:
>
> > salve!
>
> >
>
> > per una mia vecchia applicazione in access ho la necessitï¿½ di collegare delle tabelle di Oracle
>
> >
>
> > qualcuno ha delle dritte da darmi?
>
> >
>
> > ho visto un odbc, ma cosa devo mettere come parametri?
>
> >
>
> > ho esperienza su SqlServer, ma qui mi pare diverso.
>
> >
>
> > Grazie anticipatamente
>
> >
>
> cosa intendi per mi pare diverso?
>
> devi installare il driver odbc di oracle (meglio se la stessa versione
>
> del rdbms), a differenza di sql server non ï¿½ giï¿½ presente.
>
> Una volta creata la tua fonte dati (dsn), colleghi le tabelle
>
> utilizzando la tua fonte dati (data source).
>
>
>
> Nicoletta

prima di tutto grazie del messaggio

devo dire che mantre per SQL server avevo il nome del server , nome utente e password,

per questo lavoro so solo su che server (e relativo indirizzo IP) c'e' Oracle e so solo la password dell'utente.

Come posso reperire maggiori informazioni?
ti dicono qualcosa i file .bpl

GRazie


title: msaccess e oracle

text:
Il 04/12/2013 22:40, pfmarro ha scritto:
> Il giorno marted� 3 dicembre 2013 23:28:08 UTC+1, Nicoletta ha scritto:
>> Il 03/12/2013 23:05, pfmarro ha scritto:
>>
>>> salve!
>>
>>>
>>
>>> per una mia vecchia applicazione in access ho la necessit� di collegare delle tabelle di Oracle
>>
>>>
>>
>>> qualcuno ha delle dritte da darmi?
>>
>>>
>>
>>> ho visto un odbc, ma cosa devo mettere come parametri?
>>
>>>
>>
>>> ho esperienza su SqlServer, ma qui mi pare diverso.
>>
>>>
>>
>>> Grazie anticipatamente
>>
>>>
>>
>> cosa intendi per mi pare diverso?
>>
>> devi installare il driver odbc di oracle (meglio se la stessa versione
>>
>> del rdbms), a differenza di sql server non � gi� presente.
>>
>> Una volta creata la tua fonte dati (dsn), colleghi le tabelle
>>
>> utilizzando la tua fonte dati (data source).
>>
>>
>>
>> Nicoletta
>
> prima di tutto grazie del messaggio
>
> devo dire che mantre per SQL server avevo il nome del server , nome utente e password,
>
> per questo lavoro so solo su che server (e relativo indirizzo IP) c'e' Oracle e so solo la password dell'utente.
>
> Come posso reperire maggiori informazioni?
> ti dicono qualcosa i file .bpl
>
> GRazie
>
I file bpl sono di borland e sono dei package. Non ti riguardano direi.
A te manca la parte client di oracle che invece per sql server � insita
in windows.
Installa il client oracle e nei suoi componenti (odbc compreso) vedrai
la possibilit� di configurare un alias (i parametri sono porta, host (ok
il tuo ip del server) e protocollo)
Quell'alias ti servir� per creare il datasource con username/pwd che
conosci.

Nicoletta


title: msaccess e oracle

text:
grazie del messaggio

vorrei provare a installare prima solo il driver odbc di oracle per win.
hai il link?
trovo tante cose ma non il driver odbc

Grazie anticipatamente


title: msaccess e oracle

text:

aggiungo precisazione:
ho scaricato il driver dal sito di Oracle,
http://www.oracle.com/technetwork/database/windows/downloads/utilsoft-098155.html

ver 10.2.0.3.0 ma poi come si fa ad installare?
non c'e' un .inf ne' un setup

Grazie


title: msaccess e oracle

text:
Il 09/12/2013 16:39, pfmarro ha scritto:

La soluzione ottimale � installare il client oracle.
Puoi provare ad utilizzare istant client di oracle che probabilmente �
molto meno oneroso in termini di spazio.
Oppure testare se funziona questo odbc driver che pare non necessiti del
client.
http://www.datadirect.com/

Non so quanto performante possa essere, per�.


title: Pulsante che faccia la funzione di una barra di scorrimento

author: Iper

text:
Ciao a tutti,
per ragioni puramente estetiche vorrei creare in una maschera due pulsanti
che facessero le stesse funzioni di una barra di scorrimento verticale, per
poterla poi eliminare impostando a no l'apposita opzione nelle proprietà
della maschra.
In pratica premendo sul primo pulsante, la maschera dovrebbe "scendere" e,
mentre premendo sul secondo dovrebbe "risalire", il tutto senza
possibilimente camiare record selezionato (cosa che invece succede usando
SENDKEYS e simulando la pressione di Pggiù e Pgsù).
Avete qualche idea ? se anche non sono due pulsanti a lo stesso,
l'importante è che possa modificarne l'aspetto radiclamente, cosa che con le
barre di scorrimento non si può fare.
Grazie in anticipo per le risposte, se volete anche via e-mail.
Iper


title: AIutooo SIamo nei guaiii

author: Nicoletta& Alessandro Ratti

text:
PROBLEMA DI QUESTO TIPO:
HO DELLE DATE IN TABELLA CHE SONO : 01/01/1901
NELLA QUERY CHE HO CREATO  VOGLIO SOSTITUIRE A QUESTA DATA  CON " NON
BOLLETTATO" OPPURE "XXX"
 HO CREATO UNA CONDIZIONE DEL TIPO <>#01/01/1901# MA MI ELIMINA
COMPLETAMENTE LA RIGA DEI DATI CHE HO IN TABELLA CHE PER ME E'
IMPORTANTISSIMA...
SAPETE COME POSSO FARE
 ciao Nicoletta e Alessandro
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: AIutooo SIamo nei guaiii

author: Sib

text:
"Nicoletta& Alessandro Ratti" <
rca_inf...@tin.it
> ha scritto nel
messaggio
> PROBLEMA DI QUESTO TIPO:
>
> HO DELLE DATE IN TABELLA CHE SONO : 01/01/1901
> NELLA QUERY CHE HO CREATO  VOGLIO SOSTITUIRE A QUESTA DATA  CON " NON
> BOLLETTATO" OPPURE "XXX"
Non iniziate bene.
Gridi (scrivi in maiuscolo), non metti un subj che dica qualcosa del
problema e, come se non bastasse, postate due volte la stessa richiesta.
Comunque se promettete di non farlo piu' per stavolta vi do una indicazione:
IIF(TuaData=0;"Non bollettato";TuaData)
Sib


title: be e fe

author: rederika

text:
Ciao!!!
ho bisogno di un chiarimento in merito alla divisione di un database in be e
fe
una volta separate le tabelle dal resto, basta mettere il be sul server e
fare l'opportuno "collegamento tabelle" dal fe oppure devo specificare
qualche cosa d'altro sul server (tipo odbc)? se si come??
posso usare tanti fe diversi per accedere ad un solo be che sta sul server?
grazie
e a presto!
Erika


title: be e fe

author: George

text:
"rederika" <
rede...@liberolibero.it
> ha scritto nel messaggio
news:bb28jp$360$1...@fata.cs.interbusiness.it...

Basta che tu colleghi le tabelle.
Usa tanti FE quanti te ne servono...
Non serve configurare niente di ODBC.
Ciao.


title: be e fe

text:

grazie per avermi risposto
ho provato ma non funziona
il primo fe che accede al server blocca gli altri
mentre uno alla volta funzionano a meraviglia
non sono possibili degli accessi simultanei?
grazie


title: be e fe

text:
"rederika" <
rede...@liberolibero.it
> ha scritto nel messaggio
news:bb2emg$b2p$1...@fata.cs.interbusiness.it...

sě, menu Strumenti, Opzione, tab Avanzate: accesso condiviso.
Ciao.


title: be e fe

text:

ciao
ti chiedo scusa...ho fatto come dici (era giŕ impostato cosě) ma continua a
non funzionare
:(((
ciao


title: be e fe

text:
"rederika" <
rede...@liberolibero.it
> ha scritto nel messaggio
news:bb2gro$dku$1...@fata.cs.interbusiness.it...

> > sì, menu Strumenti, Opzione, tab Avanzate: accesso condiviso.
> > Ciao.
>
> ciao
>
> ti chiedo scusa...ho fatto come dici (era già impostato così) ma continua
a
> non funzionare
>
> :(((
>
> ciao
>
>
L'hai fatto sia nel FE che nel BE?


title: be e fe

text:

si su entrambi...


title: be e fe

text:
"rederika" <
rede...@liberolibero.it
> ha scritto nel messaggio
news:bb2i8b$m7p$1...@grillo.cs.interbusiness.it...

Fammi capire: ti segnala un errore? Se sì, quale?
Perchè deve funzionare...


title: be e fe

text:

il primo fe apre ad esempio una maschera per inserire dei dati
il secondo prova  a stampare un report (o ad aprire una maschera di
inserimento a sua volta, è uguale) e viene visualizzato il messaggio:
"errore durante l'esecuzione del comando"
se il primo chiude la maschera il secondo riesce a fare correttamente le
proprie operazioni
nella stessa cartella dove c'è il file access viene creato un file .ldb
ho provato ad aprirlo e contiene il nome del pc client + l'utente che se non
sbaglio è quello di default (Admin), niente altro
grazie


title: Data_ Iniziale Data_Finale

text:
Avrei bisogno del vostro aiuto , in una tabella ho tre campi:  Nome_Prodotto
, Data_Iniziale e l'altro Data_Finale,
come potrei fare per visualizzare in una query oppure in una maschera , le
scadenze che intercorrono tra la Data_Iniziale e la Data_Finale aventi
alcuni intervalli bimestrali, altri prodotti intervalli trimestrali? Spero
di essermi spiegato,un ringraziamento a chi vorrà rispondere.


title: Data_ Iniziale Data_Finale

author: Maurizio Borrelli

text:
> <
eon...@hotmail.com
> [...]
> Avrei bisogno del vostro aiuto , in una tabella ho tre campi:
Nome_Prodotto
> , Data_Iniziale e l'altro Data_Finale,
> come potrei fare per visualizzare in una query oppure in una maschera , le
> scadenze che intercorrono tra la Data_Iniziale e la Data_Finale aventi
> alcuni intervalli bimestrali, altri prodotti intervalli trimestrali? Spero
> di essermi spiegato,
    Mica tanto... Non ho capito se vuoi sapere:
        A) quali sono i prodotti in scadenza ad una certa data
        B) quali prodotti hanno scadenza bimestrale, quali trimestrale, ...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


title: Data_ Iniziale Data_Finale

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ak7d69$1go2fl$1...@ID-52090.news.dfncis.de...

>Hai ragione non mi sono spiegato bene,  avrei bisogno di sapere quali sono
i prodotti in scadenza ad una certa data.
Grazie.
Ciao
>


title: Data_ Iniziale Data_Finale

text:
> <
eon...@hotmail.com
> [...]:
> > "Maurizio Borrelli" [...]:
> > > Avrei bisogno del vostro aiuto , in una tabella ho tre campi:
> > > Nome_Prodotto, Data_Iniziale e l'altro Data_Finale,
> avrei bisogno di sapere quali sono
> i prodotti in scadenza ad una certa data.
    Quelli le cui date, iniziale e finale, *comprendono* la certa data.
    DataIniziale <= Data <= DataFinale
    Ovvero:
    DataIniziale <= Data AND Data <= DataFinale
oppure, che e' lo stesso:
    Data Between DataIniziale And DataFinale
Attenzione pero' all'uso di Between .. And se invece ti interessa una di
queste:
    DataIniziale < Data AND Data <= DataFinale
    DataIniziale <= Data AND Data < DataFinale
    DataIniziale < Data AND Data < DataFinale
Devi ricordarti di ricondurre sempre alla forma:
    ... <= ... <= ...
quindi:
    Data Between DataIniziale -1 And DataFinale
    Data Between DataIniziale And DataFinale - 1
    Data Between DataIniziale -1 And DataFinale -1
    Ti ho fatto confusione? Spero di no... :-(



title: Data_ Iniziale Data_Finale

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ak7gp5$1ghhv9$1...@ID-52090.news.dfncis.de...

> Scusami , ma forse non riesco a spiegarmi, ci provo di nuovo:
  Nome_ prodotto    "A"      Data_Iniziale 01/01/2001   Data_finale
31/12/2002
  a questo punto su il prodotto "A" devo effettuare dei pagamenti bimestrali
(febbraio,aprile, giugno,ecc).
 Sul prodotto "B" devo effettuare dei pagamenti trimestrali, (gennaio,
marzo, maggio,ecc)
Facendo una interrogazione con una query, vorrei sapere per esempio i
prodotti in scadenza il mese di giugno.
Nella speranza di essere stato chiaro ti ringrazio.
Ciao
>


title: Data_ Iniziale Data_Finale

text:
> <
eon...@hotmail.com
> [...]:
> > "Maurizio Borrelli" [...]:
>   Nome_ prodotto "A" Data_Iniziale 01/01/2001 Data_finale 31/12/2002
>   a questo punto su il prodotto "A" devo effettuare dei pagamenti
> bimestrali
> (febbraio,aprile, giugno,ecc).
    Qui, per coerenza, avresti dovuto mettere l'esempio relativo a "B". E
sarebbe stato pure utile.
>  Sul prodotto "B" devo effettuare dei pagamenti trimestrali, (gennaio,
> marzo, maggio,ecc)
> Facendo una interrogazione con una query, vorrei sapere per esempio i
> prodotti in scadenza il mese di giugno.
    Ah!... Sono pagamenti. Non merendine marce. Interessante.
    E che sono, per esempio, i "pagamenti trimestrali"? Lo domando cosi',
giusto per mettere le mani avanti...
    E siamo sicuri che le date iniziali son tutte primo del mese e quelle
finali ultimo del mese? E se non lo sono come conti i giorni? Se una data
iniziale e' 30/01, bimestrale quando scade?
    E COME FAI A SAPERE CHE UN PRODOTTO E' BIMESTRALE O TRIMESTRALE?
    Mi arrendo. :-(



title: Data_ Iniziale Data_Finale

author: Ajax Diesel

text:
<
eon...@hotmail.com
> ha scritto nel messaggio news:oxG99.92949
> Avrei bisogno del vostro aiuto , in una tabella ho tre campi:
Nome_Prodotto
> , Data_Iniziale e l'altro Data_Finale,
> come potrei fare per visualizzare in una query oppure in una maschera , le
> scadenze che intercorrono tra la Data_Iniziale e la Data_Finale aventi
> alcuni intervalli bimestrali, altri prodotti intervalli trimestrali?
Quest'ultima riga e' misteriosa.
Le scadenze che intercorrono ti hanno spiegato.
"aventi" e quello che segue e' invece misterioso.
Se ho capito, tu hai delle "finestre di pagamento"
E' cosi'?
Tipo hai tre mesi per pagare delle cose?
Oppure gli oggetti comprati in un certo periodo, tipo trimestre, vanno
pagati a una certa scadenza?


title: Data_ Iniziale Data_Finale

text:
"Ajax Diesel" <
aj...@procter.com
> ha scritto nel messaggio
news:t3M99.97234$lu5.2...@twister1.libero.it...

Ho delle rate da pagare ad un certa scadenza, alcune volte bimestrale altre
trimestrali, volevo solo visualizzare le scadenze.
Ho aggiunto un campo Tipo_Scadenza dove riporto ("A"=scadenza annuale),
("B"= scadenza bimestrale), ( "T"= scadenza trimestrale).Con una query
voglio visualizzare le scadenze del mese in corso.
Grazie.
Ciao
>
>
>
>
>
>


title: Data_ Iniziale Data_Finale

text:
<
eon...@hotmail.com
> ha scritto nel messaggio
> > Oppure gli oggetti comprati in un certo periodo, tipo trimestre, vanno
> > pagati a una certa scadenza?
>
> Ho delle rate da pagare ad un certa scadenza, alcune volte bimestrale
altre
> trimestrali, volevo solo visualizzare le scadenze.
Cerchiamo di usare la stessa lingua... hai delle cose da pagare a 2 mesi
oppure a 3 mesi?
Alla fine del mese o alla scadenza giusta?
> Ho aggiunto un campo Tipo_Scadenza dove riporto ("A"=scadenza annuale),
> ("B"= scadenza bimestrale), ( "T"= scadenza trimestrale).Con una query
> voglio visualizzare le scadenze del mese in corso.
Ti crei una tabella dove per ogni condizione di pagamento specifici i
giorni.
Non chiamarlo "scadenza trimestrale" perche' vuol dire un'altra cosa.
Poi... mi devi dire se paghi a fine mese o al 10, o allo stesso giorno o
come e ti dico come fare


title: Data_ Iniziale Data_Finale

text:
"Ajax Diesel" <
aj...@procter.com
> ha scritto nel messaggio
news:vNV99.96627$n04.2...@twister2.libero.it...

Pago allo stesso giorno.
 Innanzitutto grazie della comprensione, ma sono io che non riesco a
spiegarmi; riepiologando sono arrivato a questo punto:
ho una tabella con i seguenti campi
nome_ prodotto     tipo "nome"
inizio_scadenza        tipo "data"
fine_scadenza          tipo "data
tipo_scadenza   "A" per scadenza annuale;  "B" scadenza bimestrale; " T"
scadenza ogni tre mesi ecc..
In funzione della data  inizio_scadenza , e del tipo_scadenza, vorrei un
riepilogo delle scadenze del mese in corso.Ci sono riuscito utilizzando la
funzione "IIf", il problema è che riesco a visualizzare solo quelle
dell'anno in corso.Credo ci vorrebbe del codice che al 31/dicembre di ogni
anno mi aumentasse di un anno la data inizio_scadenza.Forse sto facendo
troppa confusione.
Scusate sarà l'ultimo post che farò su questo argomento.
Un ringraziamento a tutti.
>


title: Data_ Iniziale Data_Finale

text:
<
eon...@hotmail.com
> ha scritto nel messaggio
>  Innanzitutto grazie della comprensione, ma sono io che non riesco a
> spiegarmi; riepiologando sono arrivato a questo punto:
> ho una tabella con i seguenti campi
No, non mi interessa la tabella :-)
scusa ma non capisco proprio...
Di solito, uno compra una cosa, chesso', oggi e la paga tra 90 giorni o 60 o
120 o quello che e'...
Ecco, se e' una cosa cosi' e se paghi lo stesso giorno non mi sembra nulla
di terribile.
Prendi la data di acquisto, aggiungi i giorni (60, 90, 120) e hai il giorno
del pagamento.
(circa, se vuoi fare una cosa piu' precisa, ne parliamo)
la tua query ti estrae tutti i record che hanno la data di acquisto piu' i
giorni per il pagamento maggiore di oggi.
E' questo?
Se e' questo bene, se e' un'altra cosa mi devi scusare ma non l'ho capita.


title: Data_ Iniziale Data_Finale

text:
[CUT]
>  Innanzitutto grazie della comprensione, ma sono io che non riesco a
> spiegarmi; riepiologando sono arrivato a questo punto:
> ho una tabella con i seguenti campi
> nome_ prodotto     tipo "nome"
> inizio_scadenza        tipo "data"
> fine_scadenza          tipo "data
> tipo_scadenza   "A" per scadenza annuale;  "B" scadenza bimestrale; " T"
> scadenza ogni tre mesi ecc..
>
> In funzione della data  inizio_scadenza , e del tipo_scadenza, vorrei un
> riepilogo delle scadenze del mese in corso.Ci sono riuscito utilizzando la
> funzione "IIf", il problema è che riesco a visualizzare solo quelle
> dell'anno in corso.Credo ci vorrebbe del codice che al 31/dicembre di ogni
> anno mi aumentasse di un anno la data inizio_scadenza.Forse sto facendo
> troppa confusione.
> Scusate sarà l'ultimo post che farò su questo argomento.
> Un ringraziamento a tutti.
> >
Vista cosi...
io userei una funzione che ricevendo come argomenti
- data corrente
- data iniziale
- data finale
- tipo scadenza
restituisce vero/falso (cioè scade/non scade nel mese)
Questa funzione da richiamare direttamente dalla query.
Perché invece non crei una ulteriore tabella in cui tieni memoria dei vari
pagamenti effettuati e tramite la quale hai la possibilità di richiamare
anche eventuali rate scadute nei mesi precedenti ma non ancora pagate?
Ciao
--
Alberto


title: Data_ Iniziale Data_Finale

text:
"Alberto S." <
sartor...@tin.it
> ha scritto nel messaggio
news:ake1og$1h3hj5$2...@ID-134626.news.dfncis.de...

Il problema è che non so proprio come fare a creare la funzione. Se nessuno
mi aiuta , credo che ci rinuncio.
Cmq Grazie
Ciao
>
>


title: Data_ Iniziale Data_Finale

text:
<
eon...@hotmail.com
> ha scritto nel messaggio
> Il problema è che non so proprio come fare a creare la funzione. Se
nessuno
> mi aiuta , credo che ci rinuncio.
Io spero che me la cavo...
Senti, non ho capito il problema, mi devi perdonare, se si tratta di tenere
un partitario, quello e' il mio pane quotidiano, ma non ho capito se sono
fatture, se sono pagamenti, che scadenza hanno, ecc. ecc.
Non serve nessuna funzione, basta un campo scadenza e la query confronta se
la data di scadenza e' maggiore di oggi   [dataScad] > date() e se non  e'
stata gia' pagata.
Se mi dici di piu', ti aiuto di piu'.


title: Data_ Iniziale Data_Finale

text:
> > [CUT]
> >
> > >  Innanzitutto grazie della comprensione, ma sono io che non riesco a
> > > spiegarmi; riepiologando sono arrivato a questo punto:
> > > ho una tabella con i seguenti campi
> > > nome_ prodotto     tipo "nome"
> > > inizio_scadenza        tipo "data"
> > > fine_scadenza          tipo "data
> > > tipo_scadenza   "A" per scadenza annuale;  "B" scadenza bimestrale; "
T"
> > > scadenza ogni tre mesi ecc..
> > >
> > > In funzione della data  inizio_scadenza , e del tipo_scadenza, vorrei
un
> > > riepilogo delle scadenze del mese in corso.Ci sono riuscito
utilizzando
> la
> > > funzione "IIf", il problema è che riesco a visualizzare solo quelle
> > > dell'anno in corso.Credo ci vorrebbe del codice che al 31/dicembre di
> ogni
> > > anno mi aumentasse di un anno la data inizio_scadenza.Forse sto
facendo
> > > troppa confusione.
> > > Scusate sarà l'ultimo post che farò su questo argomento.
> > > Un ringraziamento a tutti.
[CUT]
> > Vista cosi...
> > io userei una funzione che ricevendo come argomenti
> > - data corrente
> > - data iniziale
> > - data finale
> > - tipo scadenza
> > restituisce vero/falso (cioè scade/non scade nel mese)
> > Questa funzione da richiamare direttamente dalla query.
> >
> > Perché invece non crei una ulteriore tabella in cui tieni memoria dei
vari
> > pagamenti effettuati e tramite la quale hai la possibilità di richiamare
> > anche eventuali rate scadute nei mesi precedenti ma non ancora pagate?
> >
> > Ciao
> > --
> > Alberto
> Il problema è che non so proprio come fare a creare la funzione. Se
nessuno
> mi aiuta , credo che ci rinuncio.
> Cmq Grazie
> Ciao
> >
La funzione, da inserire in un modulo, può essere questa:
Public Function Scadenza(dtmCorrente As Date, dtmInizio As Date, _
    dtmFine As Date, strTipo As String) As Boolean
Dim dblCadenza As Double
    Scadenza = False
    If dtmCorrente < dtmInizio Or dtmCorrente > dtmFine Then
        Exit Function
    End If
    Select Case strTipo
        Case "A"
            dblCadenza = 12
        Case "B"
            dblCadenza = 2
        Case "T"
            dblCadenza = 3
        Case Else
            Exit Function
    End Select
Check:
    If Month(dtmInizio) = Month(dtmCorrente) Then
        Scadenza = True
        Exit Function
    End If
    If dtmInizio > dtmCorrente Then
        Exit Function
    End If
    dtmInizio = DateAdd("M", dblCadenza, dtmInizio)
    GoTo Check
End Function
La query potrà essere fatta così:
SELECT Tabella1.[nome_ prodotto], Tabella1.inizio_scadenza,
Tabella1.fine_scadenza, Tabella1.tipo_scadenza,
Scadenza(Date(),[inizio_scadenza],[fine_scadenza],[tipo_scadenza]) AS
Scaduto
FROM Tabella1;
Note:
1) Io ho chiamato 'Tabella1' la tua tabella
2) La query restituirà nel campo 'Scaduto' 0/-1 a seconda che la relativa
rata scada o non scada nel mese. La query restituisce comunque tutti i
record.
3) Sono necessari alcuni aggiustamenti per informazioni che io non so (c'è
rata anche nel mese in cui inizia il contratto?, e nel mese in cui
finisce?).
4) Questi particolari li puoi aggiustare tu, ma se hai bisogno di aiuto
fatti sentire.
Ciao.
--
Alberto
P.S.: questa soluzione l'ho già provata anch'io.


title: Data_ Iniziale Data_Finale

text:
[CUT]
>
> Non serve nessuna funzione,
... eerore!
ancora prima di suggerirla a Leonardo (suppongo si chiami cosě) l'ho provata
io e secondo me ha dato i risultati che lui si aspettava
> basta un campo scadenza e la query confronta se
> la data di scadenza e' maggiore di oggi   [dataScad] > date() e se non  e'
> stata gia' pagata.
> Se mi dici di piu', ti aiuto di piu'.
Non ho dubbi che - una volta capito il problema - sarai in grado di proporre
una soluzione molto piů performante ed elegante della mia e della quale io
non mancherň di far tesoro.
Ciao
--
Alberto


title: Data_ Iniziale Data_Finale

text:
"Alberto S." <
sartor...@tin.it
> ha scritto nel messaggio
news:akgju9$1ilv0e$1...@ID-134626.news.dfncis.de...


Funziona!!!!! (ero quello che cercavo) Grazie sei stato molto gentile.
Ciao.
>
>
>
>


title: Data_ Iniziale Data_Finale

text:
<[CUT]
>
> Funziona!!!!! (ero quello che cercavo) Grazie sei stato molto gentile.
> Ciao.
>
Prego,
ciao.
--
Alberto


title: Formattazione condizionale

author: FredBusca

text:
Ciao in una maschera continua, non riesco a far eseguire una semplice
operazione ossia:
me.casellaTesto1=me.casellatesto2 /1000 * me.casellatesto3
lo so che dovrei usare la formattazione condizionale, ma come si fa?
Grazie


title: Formattazione condizionale

author: BFS

text:

la formattazione condizionale non centra nulla.

casellatesto1 è associata? che valori contengono le altre due?

BFS


title: Formattazione condizionale

text:

Casellatesto1 non è associata le altre 2 contengono valori numerici
in pratica è un calcolo per il riparto di una spesa in millesimi per
il condominio
quindi Casellatesto2 (non associata) contiene l'entità della spesa -
Casellatesto3 (associata dopo un requery della casellacombinata
Tabella) contiene i millesimi per ogni condomino - Casellatesto1 (non
associata) dovrebbe contenere il riparto ottenuto da Casellatesto2 /
1000 * Casellatesto3
contiene i millesimi


title: Formattazione condizionale

text:

su casella 1 devi mettere =casella2/1000*casella3

ciao
BFS


title: Formattazione condizionale

author: Peter

text:
"BFS" <B...@BFSBFS.it> ha scritto nel messaggio
news:4f683c0c$0$1375$4faf...@reader1.news.tin.it...

Così facile!!
Ok funziona grazie per l'aiuto


title: rotellina mouse non mi sposta di record

author: Silvia Slosar

text:
l'anno scorso avevo un problema nella consultazione delle maschere: con la
rotellina del mouse, mi spostava da un record all'altro.
ora non lo fa più. è normale?
è una magia?
dipende dal fatto che prima usavo access 2000 e ora il 2002?
Ciao
Silvia.
--
www.silvietta.it
...everyone's invited!


title: MsgBox su esistenza File.

author: ALAN

text:
eccomi di nuovo qui:
 vorrei inserire un messaggio sull'esistenza o meno del file che importo:
Dim Percorso As String
Dim IntFile As String
Dim NomFile As String
Dim Est As String
Set db = CurrentDb
Set rs = db.OpenRecordset("FileIn")
Percorso = "D:\TestEOD\Dati\"
IntFile = "MIB"
NomFile = rs.DataImp
Est = ".csv"
File = Percorso & IntFile & NomFile & Est
***
If File = ??????
    MsgBox "verrà importato il file " & IntFile & NomFile
else
    MsgBox "il file non esiste"
Exit
End If
DoCmd.TransferText acImportDelim, "Quotazioni", "Quotazioni", File
End Sub
mi dite la condizione per verificare se nella directory c'è il file ??
Grazie


title: MsgBox su esistenza File.

author: Gaspare

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:ER1th.2861$qN4....@twister1.libero.it...

Ciao,
if Len(File) >0 then il file esiste altrimenti etc...


title: MsgBox su esistenza File.

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:ER1th.2861$qN4....@twister1.libero.it...

Ciao,
scusa x la precedente: in effetti x verificare se il file esiste devi
provare ad aprirlo  "Open FileName etc..." e se ti ritorna 1 errore "if err"
il file non c'è altrimenti...


title: MsgBox su esistenza File.

author: Alessandro Baraldi

text:
ALAN ha scritto:

If Len(Dir(NomeFile))>0 Then
   ' Il file Esiste
Else
   ' Il file non Esiste
End if
@Alex


title: MsgBox su esistenza File.

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1169468665....@v45g2000cwv.googlegroups.com...
ALAN ha scritto:


@Alex
Ho inserito il tuo suggerimento mettendo
If Len (File) > 0
 Il file Esiste
Else
   'Il file non Esiste
End if
però il nome del file lo compongo io quindi il conteggio della lunghezza dei
caratteri me la da sempre > di zero



title: MsgBox su esistenza File.

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:ti2th.2917$422....@twister2.libero.it...

Ciao,
se proprio non lo vuoi aprire quel file utilizza
FileSearch
http://support.microsoft.com/kb/155837/it
 ;-)


title: MsgBox su esistenza File.

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:ti2th.2917$422....@twister2.libero.it...

Ciao @Alex,
scusa ma mi è "scappata" la email: è stato più forte di me :-(


title: MsgBox su esistenza File.

text:
ALAN ha scritto:
[CUT]
> If Len(Dir(NomeFile))>0 Then
>    ' Il file Esiste
> Else
>    ' Il file non Esiste
> End if
>
> @Alex
>
> Ho inserito il tuo suggerimento mettendo
Direi che hai fatto tutt'altro...!!
> If Len (File) > 0
>  Il file Esiste
> Else
>    'Il file non Esiste
> End if
>
> però il nome del file lo compongo io quindi il conteggio della lunghezza dei
> caratteri me la da sempre > di zero
>
> Percorso = "D:\TestEOD\Dati\"
>  IntFile = "MIB"
>  NomFile = rs.DataImp
>  Est = ".csv"
>
> File = Percorso & IntFile & NomFile & Est
Guarda che io ti ho suggerito un'altra cosa...., ti sei perso dei
pezzi... guarda BENE...!!!!!!!
@Alex


title: MsgBox su esistenza File.

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1169470752....@s34g2000cwa.googlegroups.com...
ALAN ha scritto:
[CUT]
> If Len(Dir(NomeFile))>0 Then
>    ' Il file Esiste
> Else
>    ' Il file non Esiste
> End if
>
> @Alex
>
> Ho inserito il tuo suggerimento mettendo
Direi che hai fatto tutt'altro...!!
> If Len (File) > 0
>  Il file Esiste
> Else
>    'Il file non Esiste
> End if
>
> perň il nome del file lo compongo io quindi il conteggio della lunghezza
> dei
> caratteri me la da sempre > di zero
>
> Percorso = "D:\TestEOD\Dati\"
>  IntFile = "MIB"
>  NomFile = rs.DataImp
>  Est = ".csv"
>
> File = Percorso & IntFile & NomFile & Est
Guarda che io ti ho suggerito un'altra cosa...., ti sei perso dei
pezzi... guarda BENE...!!!!!!!
@Alex
Hai ragione :( mi sono perso il dir, scusa ma sto imparando piu cose in due
settimane di newsgruop che facendo copia/incolla di pezzi di codice su
internte.
Ma adesso no riesco a capire perchč non esco fuori piů dal loop !!
Dim Percorso As String
Dim IntFile As String
Dim NomFile As String
Dim Est As String
Set db = CurrentDb
Set rs = db.OpenRecordset("FileIn")
Do Until rs.EOF
    I = rs.DataImp
    I = I + 1
Percorso = "D:\TestEOD\Dati\"
IntFile = "MIB"
NomFile = rs.DataImp
Est = ".csv"
File = Percorso & IntFile & NomFile & Est
If Len(Dir(File)) > 0 Then
MsgBox "Verra Importato Il file" & File
DoCmd.TransferText acImportDelim, "Quotazioni", "Quotazioni", File
rs.Edit
    rs!FlagImportazione = -1
    rs.Update
    rs.MoveNext
Else
MsgBox "Il file " & File & " non esiste"
End If
If I = rs.EOF Then Exit Do
Loop


title: MsgBox su esistenza File.

author: Morgan

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:ER1th.2861$qN4....@twister1.libero.it...

Io uso questa,gli passi il percorso completo ed il gioco è fatto.
Morgan
Public Function FileExists(sFileName As String) As Boolean
On Error GoTo ErrHandle
    If FileExists = CBool(Len(Dir(sFileName)) <> 0) Then
        MsgBox "Attenzione,file cercato non esiste od è stato spostato.",
vbInformation
        FileExists = False
    Else
        FileExists = True
    End If
ErrHandle:
If Err.Number = 0 Then Exit Function
MsgBox Err.Number & " " & Err.Description
End Function


title: MsgBox su esistenza File.

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:fo3th.3019$422....@twister2.libero.it...

rs.MoveNext
>
> Loop
>
Morgan


title: MsgBox su esistenza File.

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:45b4c78b$0$26984$4faf...@reader2.news.tin.it...

Grazie per il consiglio ma cosi mi salta un record !


title: MsgBox su esistenza File.

text:
"ALAN" <
X...@libero.it
> ha scritto nel messaggio
news:w%3th.3068$422....@twister2.libero.it...
>
> "Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
> news:45b4c78b$0$26984$4faf...@reader2.news.tin.it...
>>
>> "ALAN" <
X...@libero.it
> ha scritto nel messaggio
>> news:fo3th.3019$422....@twister2.libero.it...
>>>
>>> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
>>> news:1169470752....@s34g2000cwa.googlegroups.com...
>>>
>>> ALAN ha scritto:
>>>
>>> [CUT]
[CUT]
>>> Ma adesso no riesco a capire perchč non esco fuori piů dal loop !!
>>>
>>> Dim Percorso As String
>>> Dim IntFile As String
>>> Dim NomFile As String
>>> Dim Est As String
>>>
>>> Set db = CurrentDb
>>> Set rs = db.OpenRecordset("FileIn")
>>>
>>>
>>> Do Until rs.EOF
>>>
>>>    I = rs.DataImp
>>>    I = I + 1
>>>
>>> Percorso = "D:\TestEOD\Dati\"
>>> IntFile = "MIB"
>>> NomFile = rs.DataImp
>>> Est = ".csv"
>>>
>>> File = Percorso & IntFile & NomFile & Est
>>>
>>>
>>> If Len(Dir(File)) > 0 Then
>>>
>>> MsgBox "Verra Importato Il file" & File
>>> DoCmd.TransferText acImportDelim, "Quotazioni", "Quotazioni", File
>>>
>>> rs.Edit
>>>    rs!FlagImportazione = -1
>>>    rs.Update
>>>'qui ho levato il rsMoveNext
>>>
>>>
>>> Else
>>>
>>> MsgBox "Il file " & File & " non esiste"
>>>
>>>
>>> End If
>>>
>> rs.MoveNext
>>>
>>> Loop
>>>
>> Morgan
> Grazie per il consiglio ma cosi mi salta un record !
E cosě?
Morgan


title: MsgBox su esistenza File.

text:
"Morgan" <
mor...@hotmail.it
> ha scritto nel messaggio
news:45b4cfb8$0$26982$4faf...@reader2.news.tin.it...

ok cosě funziona !!


title: MsgBox su esistenza File.

text:
ALAN ha scritto:
> Ma adesso no riesco a capire perchè non esco fuori più dal loop !!

La routine va in loop quando legge dal recordset il nome di un file che
non esiste : l'istruzione rs.MoveNext la devi fare sia che il file
esista sia che il file non esista
Saluti e buon lavoro


title: Tabulazione

author: Fabio Zilio

text:
Io provo a richiedere, il mio problema è che uscendo da una sottomaschera
contenuta in un'altra sottomaschera con un pulsante che aziona una macro
posto nella maschera master,  al quale ho dato un VaiAcontrollo, quando
riparto per inserire i dati alla prima tabulazione (nonostante abbia già
dato il giusto ordine) mi porta il focus nell'ultimo controllo della
sottosottomaschera che avevo lasciato. Qualcuno mi sa aiutare perchè
l'ordine di tabulazione risulri consequenziale?
Grazie Fabio


title: File dbf

author: massimiliano

text:
Ho un CD della "guida d'Italia" il cui programma è in grado, immettendo
città di partenza e di arrivo, di calcolare la distanza tra le due città. Io
vorrei utilizzare le tabelle all'interno di questo programma ma i file
all'interno della cartella DB haano estensione dbf. Qualcuno sa se sono dei
database e con quale programma si possono aprire in modo da convertirli in
mdb??
Grazie


title: File dbf

author: Massimo

text:
devi semplicemente creare dei collegamenti alle tabelle a te scelte.
Max
massimiliano <
massim...@cnare.it
> wrote in message
975419591.746814@linuxintra...



title: File dbf

author: Carlo Ve

text:
massimiliano ha scritto nel messaggio <975419591.746814@linuxintra>...
>Ho un CD della "guida d'Italia" il cui programma è in grado, immettendo
>città di partenza e di arrivo, di calcolare la distanza tra le due città.
Io
>vorrei utilizzare le tabelle all'interno di questo programma ma i file
>all'interno della cartella DB haano estensione dbf. Qualcuno sa se sono dei
>database e con quale programma si possono aprire in modo da convertirli in
>mdb??
Puoi fare anche a meno di convertirli
semplicemente collegarli come tabelle esterne
se usi A97
File - Carica dati esterni - Collega tabelle
imposti Tipo File = DBIII
su cerca in selezioni un file dfb
se usi A2000
mi sembra sia File Apri
Carlo Ve
>Grazie
>
>


title: Apertura di un DB da più PC

author: Berti Simone

text:
Molto probabilmente so di essere il milionesimo frequentante di questo NG
che lo chiede ma non so se č fattibile o meno. Ho creato con Access un DB
che dovrebbe essere usato da piů utenti contemporaneamente. E' possibile che
un DB di access possa essere utilizzato in contemporanea da piů utenti?!
Grazie e non mi linciate per la domanda...


title: Apertura di un DB da più PC

author: Gaetano Di Zanni

text:
Certamente!
"Berti Simone" <
berti...@tiscali.it
> ha scritto nel messaggio
news:o1vOb.137326$_P.50...@news4.tin.it...



title: Apertura di un DB da più PC

author: ALESSANDRO Baraldi

text:

"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:bue10s$ppg$1...@lacerta.tiscalinet.it...
> Certamente!
Io non ne sarei cosě sicuro.....!
La domanda non č banale, ma la risposta suggerita SI.
Il database per poter essere utilizzato da piů utenti necessita di una
corretta strutturazione, per evitare che contemporaneamente
piů UTENTI possano modificare dati o aggiungerne, e al
momento del Salvataggio ricevere errori.
Innanzitutto la struttura va divisa in 2 parti FE-BE in questo modo
compi un primo passo, nella Barra degli strumenti trovi il metodo
tramite un Wizzard per gestire questa separazione....!
I problemi legati alla gestione di Record durante l'utilizzo
contemporaneo sono molti e decisamente non semplici da
risolvere..........................
@Alex.


title: Apertura di un DB da più PC

author: Roberto da casa

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:bue10s$ppg$1...@lacerta.tiscalinet.it...

Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------