text:
                    Il 18 Ago 2005, 20:55,
y...@yy.it
 (yronium) ha scritto:
> Public Function Chiudi() As Boolean
> On Error GoTo ErrHandle
> Dim strTesto As String
> strTesto = "Vuoi uscire veramente?"
> Chiudi = (MsgBox(strTesto, vbYesNo + vbQuestion, "Pippo") = vbYes)
> End Function
...cioč, scusa, intendevo cosě:
Public Function Chiudi() As Boolean
   Dim strTesto As String
   strTesto = "Vuoi uscire veramente?"
   Chiudi = (MsgBox(strTesto, vbYesNo + vbQuestion, "Pippo") = vbYes)
End Function
l'istruzione On Error va levata, altrimenti non trova l'etichetta.



title: Eseguire funzione all'uscita del programma

author: SunRex

text:
"yronium" <
y...@yy.it
> ha scritto nel messaggio
news:151Z37Z79Z249Y...@usenet.libero.it...

Grazie ciccio ma hai spostato solo due righe dalla funzione all'evento
unload...
Inoltre la function sta in un modulo  e la gestione degli errori l'ho
tagliata nel post...:)
quella vera č di Ale Baraldi che vedi sotto in tutta la sua bellezza:)
ErrHandle:
If Err.Number = 0 Then Exit Function
      With clsLog
        .Note = "Modulo Utility " & " Function Chiudi() "
        .Delimitatore = "/"                'DEFAULT=vbTab
        .Data_Mode = 1                      'DEFAULT=1
        End With
            clsLog.Messaggio = Chr(13) & "Errore numero = " & Err.Number &
Chr(13) & "Descrizione : " & Err.Description
            clsLog.Action_WriteOut
cmq il problema non si risolve :( ho provato a lanciare la funzione da
diverse
parti ma le variabili risultano vuote.
Questa la funzione incriminata
Attribute VB_Name = "GestioneAccessi"
Option Compare Database
Option Explicit
Public Function RilevaAccesso(blnTipoAccesso As Boolean)
Dim rsAccessi As DAO.Recordset
On Error GoTo ErrHandle
Set rsAccessi = db.OpenRecordset("tblAccessi")
rsAccessi.AddNew
    rsAccessi.Fields("Utente") = sUtente
    rsAccessi.Fields("Host") = sDominioeUtente
    rsAccessi.Fields("Loggato") = strUtente
    rsAccessi.Fields("Tipo") = blnTipoAccesso
rsAccessi.Update
    rsAccessi.Close
    Set rsAccessi = Nothing
ErrHandle:
....etc etc
End Function
SunRex



text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:X55Ne.62299$2U1.3...@news3.tin.it...
>
> "yronium" <
y...@yy.it
> ha scritto nel messaggio
> news:151Z37Z79Z249Y...@usenet.libero.it...
> >                     Il 18 Ago 2005, 20:31, "SunRex"
> <
sunrexs...@hotmail.com
> ha scritto:
> > > Monitorizzo l'accesso al programma tramite una funzione
> > > RilevaAccesso(blnTipoAccesso As Boolean) a cui passo un valore bln (-1
> > > accede 0 esce) e vari dati tipo utente loggato macchina etc etc.
> > > All'apertura tutto ok ma alla chiusura che viene effettuata con il
tasto
> X
> > > in alto a dex la funzione non funziona...:( cioč mi ritrovo tutte le
> > > variabili vuote).
> > > Mi chiedo se chiudendo l'applicazione da tale tasto vengano persi tuti
i
> > > riferimenti alle variabili
[CUT]
>
> SunRex
Ho fatto ulteriori prove ed il problema sembra essere proprio che se il
programma viene
chiuso col tasto X non funziona.
Suggerimenti?
SUnRex



author: yronium

text:
                    Il 18 Ago 2005, 21:13, "SunRex" <
sunrexs...@hotmail.com
> ha scritto:
> Grazie ciccio ma hai spostato solo due righe dalla funzione all'evento
> unload...
Certo che te l'ho spostate! Perché ti interessa un valore di ritorno
nell'evento Unload ("If Chiudi = True Then...") se poi fai fare tutto alla
routine esterna? A questo punto sarebbe meglio fare eseguire una Sub
> Inoltre la function sta in un modulo e la gestione degli errori l'ho
> tagliata nel post...:)
> quella vera è di Ale Baraldi che vedi sotto in tutta la sua bellezza:)
Beh, con tutto il rispetto che ho per Alessandro Baraldi, non significa che
non possa essere migliorata. Appena ne avrò l'occasione lo dirò
personalmente anche a lui stesso.
In realtà la riga "If Err.Number = 0 Then Exit Function" aggiunge soltanto
una verifica condizionale in più, che non serve a nulla e si può evitare
semplicemente scrivendo Exit Sub (oppure Exit Function) immediatamente prima
dell'etichetta del gestore di errori.
Anzi, adesso che hai postato la funzione, ti suggerisco anche di sostituire
l'istruzione "Chr(13)" (che di per sé è incompleta, in quanto manca del
CarriageReturn Chr(10), il quale viene eseguito automaticamente da VBA, con
un leggero rallentamento nell'esecuzione) con la costante vbCrLf, che è
anche più leggibile, con buona pace di quelli a cui le costanti interne non
piacciono.

Beh sembra che per qualche motivo ti perda dei dati da qualche parte, ma non
credo che si possa fare un debug qui.
Invece ti consiglio di farlo tu stesso impostando un punto di
interruzione,proseguendo passo-passo con F8 e verificando di volta in volta
nella finestra Immediata il valore delle variabili che ti servono, scrivendo
"?nomevariabile" e premendo Invio. In questo modo da qualche parte troverai
che un valore viene perso, e vedrai anche che cosa lo azzera.
Ciao.



text:
"yronium" <
y...@yy.it
> ha scritto nel messaggio
news:151Z37Z79Z249Y1...@usenet.libero.it...
>                     Il 18 Ago 2005, 21:13, "SunRex"
<
sunrexs...@hotmail.com
> ha scritto:
[CUT]
>
> Beh sembra che per qualche motivo ti perda dei dati da qualche parte, ma
non
> credo che si possa fare un debug qui.
> Invece ti consiglio di farlo tu stesso impostando un punto di
> interruzione,proseguendo passo-passo con F8 e verificando di volta in
volta
> nella finestra Immediata il valore delle variabili che ti servono,
scrivendo
> "?nomevariabile" e premendo Invio. In questo modo da qualche parte
troverai
> che un valore viene perso, e vedrai anche che cosa lo azzera.
> Ciao.
>
Ma davvero.......?
SunRex


title: comandi "fantasma" e zeri anteposti alle cifre.

author: F. Canova

text:
Buongiorno a tutti.
Utilizzo Access 2000 (9.0.3821 SR-1).
Il mio problema è che ho creato una query dove vengono estratti i primi 3
caratteri del nome e devono essere trasformati in maiuscolo: ho cercato
nell'help e mi riporta la funzione MAIUSC(testo). Ho provato ad inserirla
nella query, ma mi riporta un errore, dicendomi che non riesce a trovarla.
Lo stesso per la funzione MINUSC(testo). Qualcuno mi sa dire dov'è l'errore?
Il secondo problema è che devo ricavare un numero di tre cifre da un ID,
quindi devo fare aggiungere degli zeri iniziali quando i numeri sono >100
(es. se ID=1 il numero=001). Io ho provato a far dividere il numero per 1000
e quindi fargli ricavare la matissa con RIGHT(testo;3), ma mi "sballa"
quando ho i numero "tondi" (es. ID=10 numero =,01). Qualcuno ha idea di come
posso ovviare a questo problema?
Grazie a tutti.
Fabio.


author: MA

text:
"F. Canova" <
fa...@fabiocanova.it
> ha scritto nel messaggio
news:bjpccm$3cr$1...@atlantis.cu.mi.it...

Usa subject significativi e un post per ogni problema.
Sempre se ti interessa partecipare allo spirito del NG
MAssimiliano


text:
> Usa subject significativi e un post per ogni problema.
> Sempre se ti interessa partecipare allo spirito del NG
> MAssimiliano
Chiedo scusa. Non sono molto pratico dei NG.


author: namor

text:
F. Canova ha scritto:
> Buongiorno a tutti.
> Utilizzo Access 2000 (9.0.3821 SR-1).
> Il mio problema è che ho creato una query dove vengono estratti i primi 3
> caratteri del nome e devono essere trasformati in maiuscolo: ho cercato
> nell'help e mi riporta la funzione MAIUSC(testo). Ho provato ad inserirla
> nella query, ma mi riporta un errore, dicendomi che non riesce a trovarla.
> Lo stesso per la funzione MINUSC(testo). Qualcuno mi sa dire dov'è
> l'errore?
> Il secondo problema è che devo ricavare un numero di tre cifre da un ID,
> quindi devo fare aggiungere degli zeri iniziali quando i numeri sono >100
> (es. se ID=1 il numero=001). Io ho provato a far dividere il numero
> per 1000
> e quindi fargli ricavare la matissa con RIGHT(testo;3), ma mi "sballa"
> quando ho i numero "tondi" (es. ID=10 numero =,01). Qualcuno ha idea
> di come
> posso ovviare a questo problema?
> Grazie a tutti.
> Fabio.

Le funzioni per il maiuscolo e minuscolo non sono maiusc() e minusc() ma
ucase() e lcase().
Per l'ID prova Format(ID,"000")
Namor
--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> Le funzioni per il maiuscolo e minuscolo non sono maiusc() e minusc() ma
> ucase() e lcase().
> Per l'ID prova Format(ID,"000")
> Namor
Sei un genio, ti ringrazio infinitamente!!
Fabio.


text:

Ah Namor, che fai remi contro???
la prossima volta che hai un problema e lo cerchi nei precedenti come parola
chiave che metti: "Vi prego", "Madonna dammi una mano tu", "c'è qualche
fesso disposto ad aiutarmi???"
Tra l'altro lui aveva già capito l'errore di impostazione...
Sei fortunato che il Biso è fuori...
MAssimiliano


text:
MA ha scritto:


E vabbè... dai... aveva chiesto scusa. Infatti non ho risposto al primo
post e ho riportato il testo della domanda nel secondo.
Bisognerebbe postare più spesso le "istruzioni per l'uso" a beneficio dei
nuovi arrivati.
Comunque hai ragione, fortuna che il Biso è al caldo...



text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
news:bjphkl$hh2$1...@news.newsland.it...

Namor il motivo è che se domani qualcuno deve risolvere lo stesso problema e
avesse la "pessima" idea di cercare nei post precedenti per avere la tua
risposta cosa cerca "comandi fantasma" ?
> Bisognerebbe postare più spesso le "istruzioni per l'uso" a beneficio dei
> nuovi arrivati.
La cadenza è mensile e sarebbe sufficiente se tutti andassero a cercarselo
nell'accostarsi al NG
> Comunque hai ragione, fortuna che il Biso è al caldo...
Rabbrividisco al pensiero di chi lo tenga al caldo e soprattutto come
MAssimiliano


text:
MA ha scritto:
> > > Ah Namor, che fai remi contro???
> > > la prossima volta che hai un problema e lo cerchi nei precedenti come
> parola
> > > chiave che metti: "Vi prego", "Madonna dammi una mano tu", "c'è qualche
> > > fesso disposto ad aiutarmi???"
> > > Tra l'altro lui aveva già capito l'errore di impostazione...
> > > Sei fortunato che il Biso è fuori...
> > > MAssimiliano
> >
> >
> > E vabbè... dai... aveva chiesto scusa. Infatti non ho risposto al primo
> > post e ho riportato il testo della domanda nel secondo.
> Namor il motivo è che se domani qualcuno deve risolvere lo stesso problema e
> avesse la "pessima" idea di cercare nei post precedenti per avere la tua
> risposta cosa cerca "comandi fantasma" ?
> > Bisognerebbe postare più spesso le "istruzioni per l'uso" a beneficio dei
> > nuovi arrivati.
> La cadenza è mensile e sarebbe sufficiente se tutti andassero a cercarselo
> nell'accostarsi al NG
> > Comunque hai ragione, fortuna che il Biso è al caldo...
> Rabbrividisco al pensiero di chi lo tenga al caldo e soprattutto come
> MAssimiliano
Ok. Sono pentito. Starò più attento.
Non conosco tutti i dettagli... come fanno a tenerlo al caldo il Biso?
Ciao.



text:
>
> Ok. Sono pentito. Starò più attento.
> Non conosco tutti i dettagli... come fanno a tenerlo al caldo il Biso?
> Ciao.
> Namor
>
Diciamo che non sono mai stati chiariti (neanche dal Biso in persona) i
rapporti coll'emiro
MAssimiliano


title: Colore icona

author: Antonio

text:
Perchè a volte l'icona accanto alla domanda, sulla
pagina comp.appl.access, è bianca anzichè gialla?

Bisogna iscriversi?

Se si, come si fa?

Grazie, Antonio.


title: Selezione prodotto dato da categoria

author: lucfaso

text:
Buongiorno,
sto progettando una maschera di un db in access in cui selezionando una categoria mi faccia vedere solo i prodotti all'interno di quella categoria ma non riesco a farlo.
Lo schema del db � qui allegato:
http://forum.html.it/forum/attachment.php?s=&postid=12427709
A chi mi riesce ad aiutare ne sar� infinitamente grato!
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Selezione prodotto dato da categoria

author: Roberto da Parma

text:
"lucfaso" <
luc...@tiscali.it
> ha scritto nel messaggio
news:gu1k43$b6k$1...@news.nonsolonews.it...

Io non vedo una ....solita mazza... :-)
In ogni caso fai una query di selezione sulla tua tabella.... es.
SELECT * FROM tuatabella WHERE tuatabella.idcategoria=1;
Ciao
--
Roberto da Parma


title: trasferimento dati su un sistema remoto

author: Giovanna

text:
Con il vostro aiuto, sono riuscita a creare un programmino che esporta un
file in un determinato formato in una cartella opportuna. Come si potrebbe
fare per esportarlo su una cartella di un sistema unix?
Grazie a tutti


title: trasferimento dati su un sistema remoto

author: lbo dal portatile

text:
>Con il vostro aiuto, sono riuscita a creare un programmino che esporta un
>file in un determinato formato in una cartella opportuna. Come si potrebbe
>fare per esportarlo su una cartella di un sistema unix?
dovrebbe essere compito dell'amministratore del db unix importarlo.
non credo che sia possibile dall'esterno esportare qualcosa dentro uno
di quei db.  i loro proprietari sono sempre paranoici al riguardo.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: trasferimento dati su un sistema remoto

text:
Sigh!
Ma non esiste un qualche controllo che sfruttando l' FTP mi trasferisca il
file generato?
Grazie millelbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
394ed93d...@news.interbusiness.it...



title: trasferimento dati su un sistema remoto

text:
>Ma non esiste un qualche controllo che sfruttando l' FTP mi trasferisca il
>file generato?
magari si puo' fare in modo di scrivere una shell che automatizzi il
trasferimento del file, ma devi comunque disporre di permessi,
privilegi, utenze ecc..
dai retta, in questi casi la cosa migliore e' dire al tizio: ti ho
messo il tal file li', vattelo a prendere e importalo.



title: trasferimento dati su un sistema remoto

text:
e vabbč! :-(((
lbo dal portatile <
l...@NOSPAM.blunet.it
> wrote in message
394f698b...@news.interbusiness.it...



title: leggimi!!!

author: leggimi!!!

text:
Ho sempre ignorato messaggi del tipo VUOI ARRICCHIRTI CON INTERNET ? VUOI
FARE SOLDI ? .e via dicendo, ho sempre avuto qualche perplessità sulle
tecniche multi-level adottate da alcune aziende per vendere i propri
prodotti o i propri servizi, accostandosi più a strumenti di divulgazione
delle famose catene di Sant'Antonio che a serie e costruttive proposte
remunerative.
Bene, considerando che probabilmente molti di voi ignoreranno la presente,
(come del resto ho fatto io tante e tante volte) mi rivolgo a coloro che
desiderano seguire questa nuova via di guadagno, queste nuove tecniche di
marketing,  visto che il rischio di perdere qualcosa è nullo: niente si
investe e niente si perde, si può solo guadagnare. sì, infatti quanto meno
guadagnare quelle somme che potremmo utilizzare per pagarci la nostra tanto
amata bolletta del telefono.
Basta iscriversi al sito sotto indicato, scaricare un software che
permetterà di visualizzare un banner pubblicitario in basso sullo schermo.
Banner che credo proprio non dà molto fastidio, considerando che è proprio
lui a farci guadagnare. NOI GUADAGNIAMO SENZA FARE NULLA, (per noi pagano le
aziende che hanno sponsorizzato i banner).
Di seguito trovi il messaggio di un associato.
Ripeto, prova.. Potrai in ogni caso uscirtene, ma allo stesso tempo potrai
controllare il credito da te maturato che potrà trasformasi in assegno da
ricevere comodamente a casa tua.
Ciao!!!
LEGGI SE VOUI GUADAGNARE SOLO NAVIGANDO... PROPRIO COME STAI
FACENDO ADESSO !!!
Ho gia incassato due assegni da circa 500 mila lire l'uno in due mesi.
Questo è il modo piu semplice per ripagarsi la bolletta o per
guadagnarsi qualche lira in piu senza fare praticamente nulla.
Basta accettare che in fondo al nostro monitor ci sia un piccolo banner
(rettangolino lungo come la dimensione del monitor e alto 2 cm) che ci
mostri un po di pubblicità mentre noi navighiamo  tranquilli su internet
o inviamo e leggiamo la nostra posta E-Mail.
OGNI ORA SU INTERNET EQUIVALE A CIRCA 1000 LIRE (MILLE E LIRE), QUANDO IL
TOTALE SARA' ARRIVATO A CIRCA 100.000 LIRE POSSIAMO DECIDERE DI FARCI
MANDARE UN COMODO  ASSEGNO A CASA.
Ora ti chiederai perchè sto scrivendo tutto questo...
SEMPLICISSIMO: non guadagni solo sul tempo che tu sei in internet ma
anche su quello dei i  tuoi amici che farai aderire al servizio.
INFATTI PIU GENTE PORTI E PIU GUADAGNI.... CIRCA IL 20% PER OGNI PERSONA CHE
HAI PORTATO TU DIRETTAMENTE E CIRCA IL 5% PER OGNI PERSONA CHE E' STATA
PORTATA DA UNO DEI TUOI AMICI (O CONOSCENTI).
>>> VAI A REGISTRARTI CLICCANDO QUI SOTTO
https://www.alladvantage.com/joinsecure.asp?refid=lxh-852
(questo collegamento include anche il mio codice identificativo -ultime
7 cifre-, inquanto se ti registri senza inserire un codice o inserendo
un codice errato, alladvantage non ti attiverà il servizio e non ti
verranno inviati soldi; alladvantage fa questo per tutelare noi che gli
facciamo pubblicità)
>>> IL GUADAGNO  SI MOLTIPLICA ESPONENZIALMENTE: TI BASTERA'
MANDARE UNA EMAIL TIPO QUESTA (naturalmemte comunicando il tuo codice
che ti verrà assegnato alla fine della registrazione) A PIU GENTE
POSSIBILE E POTRAI ARRIVARE A GUADAGNARTI UN SECONDO STIPENDIO... TI PARLO
DI CIFRE CHE POSSONO PARTIRE DALLE 100 MILA AL MESE PER ARRIVARE FINO AI 2 O
3 MILIONI AL MESE (MA ANCHE DI PIU, DIPENDE DAL TUO IMPEGNO).
>>> ALLORA CONTATTA E CONVINCI PIU GENTE POSSIBILE ANCHE A VOCE O
CON LE EMAIL E I NEWS GROUP O ADDIRITTURA SU MIRC (CHAT, ECC..).
>>> E' UNA BELLA DRITTA VERO ?!?  NON FARTELA SFUGGIRE, COGLI AL VOLO
L'OCCASIONE DI GUADAGNARTI UNO STIPENDIO STANDO COMODAMENTE SEDUTO IN
POLTRONA DAVANTI AL PC, PROVARE NON TI COSTA NULLA!!! IO HO PROVATO E ORA
SONO QUI CHE SCRIVO QUESTE EMAIL PER CERCARE DI GUADAGNARE ANCORA DI PIU !!!
CIAO E GRAZIE DI AVER LETTO QUESTA E-MAIL


title: Somma parziale in maschere continue

author: Giorgio Valsangiacomo

text:
Salve,
desiderei sapere se é possibile fare una somma parziale in una maschera
continua.
Cioè desidererei avere un controllo che mi indichi la somma parziale come
nei report (incrementata per ogni record)
Grazie per le eventuali risposte
Giorgio


title: Maschere PIVOT: Assurdo!

author: Enzo

text:
Ciao a tutti,
ho un bel problema nel mio db... Ho creato una maschera pivot nella quale
ho diversi campi filtro, il problema č che in fase di editing quando
modifico le didascalie queste non mi vengono salvate!!! help me!
Grazie a tutto il NG. Enzo
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Avvio Access con specifico .mdw

author: lcoroll

text:
Un saluto a tutti,
dopo alcuni anni riprendo a lavorare con Access e mi starebbe bene poter
utilizzare un determinato .mdw su alcuni FE e BE da utilizzare in
condivisione in rete locale, mentre dovrei contemporaneamente lavorare
su altri file dati che devo scambiare con molti soggetti e che non
devono essere associati se non al file .mdw standard.
 Esiste la possibilità di avviare un file .mdb associandolo con un .mdw
specifico e, tenendo aperto quel file, aprirne un altro associato ad un
altro .mdw?
 Dovrebbe esserci qualcosa del genere ma non ho trovato nulla nei libri
che ho consultato, nè nel SC.
 Grazie per l'aiuto,
 Luigi.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Avvio Access con specifico .mdw

author: Potone

text:
"lcoroll" <
lco...@hotmail.com
> ha scritto nel messaggio news:cd774823f38d89f325a...@mygate.mailgate.org...

Ciao,
dovresti cercare informazioni nella guida in linea sui parametri della riga di comando, in particolare /wrkgrp.
Se crei più collegamenti che aprono access con mdw diversi puoi aprire più sessioni di access contemporaneamente.
Ciao,
Mat.


title: totale progressivo

author: iperworld

text:
Ciao a tutto l'NG
come da oggetto devo ottenere una query che
calcoli il totale progressivo di un fatturato, ho visto
sul mitico sito comune l'esempio di Roberto Massoni
che mi č parso cosě efficente
solo che non riesco ad applicarlo al mio caso per il fatto che
- l'importo di ogni fattura (di cui devo ottenere il totale progressivo)
č ottenuto come risultato della somma di singole voci (voci di onorario),
[la relazione fra tab_fatture e _tab_onorario e ovviamente del tipo 1 a
molti]
- inoltre la chiave della tabella onorario č multipla (descrizione e ID
fattura)
quale strada mi conviene tentare di intraprendere?
posto qui anche il codice SQL della query alla quale devo aggiungere il
campo totale progressivo
SELECT Year([data]) AS anno, Month([data]) AS [numero mese],
MonthName(Month([data])) AS [nome mese], Sum(tab_onorario.[importo
onorario]) AS [SommaDiimporto onorario]
FROM tab_fatture INNER JOIN tab_onorario ON tab_fatture.[num fattura] =
tab_onorario.[ID fattura]
GROUP BY Year([data]), Month([data]), MonthName(Month([data]));
grazie per ogni suggerimento


title: Problema con vers. 2003

author: Santilli Marco

text:
Ho una maschera ed una sottomaschera.
Maschera: Dati intestazione
Sottomaschera: Dati righi
Tramite un pulsante faccio aprire un record contenuto nela sottomaschera in
una altra maschera.
Con Office XP tutto regolare, ora con la versione 2003 non riesce a trovarmi
il record che io desidero. Non mi da nessun errore, quindi vuom  dire che
riesce a creare il percorso, però me lo apre come se fosse nuovo.
Non riesce a puntare al vecchio record in modo da aggiornarlo ma punto ad
uno nuovo da creare
Ecco la query di ricerca:
[Forms]![Dati intestazione]![Dati righi]![IDDati righi 1]
Questa era la strigna che non Office XP faceva pienamente il suo dovere, con
questa funziona crea un nuovo record
Spero che mi possiate aiutare sono in difficoltà
Ciao e grazieeeeeee


title: Problema con vers. 2003

author: Sandro

text:
Il 30 Giu 2004, 15:11, "Santilli Marco" <
ma...@santillimarco.it
> ha scritto:
> Ecco la query di ricerca:
> [Forms]![Dati intestazione]![Dati righi]![IDDati righi 1]
Prova con:
[Forms]![Dati intestazione]![Dati righi].form![IDDati righi 1]
o comunque prova a lanciare il generatore di espressioni sul controllo
mentre la form master detail è in funzione.
BTW. Non è che l'inizio degli innumerevoli problemi che incontrerai passando
a A2003.
:-(
Ciao, Sandro.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Problema con vers. 2003

author: TheMax

text:
"Santilli Marco" <
ma...@santillimarco.it
> ha scritto nel messaggio
news:cbue26$gsn$1...@grillo.cs.interbusiness.it...
> Ecco la query di ricerca:
> [Forms]![Dati intestazione]![Dati righi]![IDDati righi 1]
In tutta fretta e con il beneficio del dubbio, penso(non ho ancora provato
2003) che sia un problema di "traduzione"
infatti dovrebbero aver rifatto l'errore di tradurre Forms con Maschere.
Questo ovviamente non fa funzionare la query
> Questa era la strigna che non Office XP faceva pienamente il suo dovere,
con
> questa funziona crea un nuovo record
Verifica che sia così e fa sapere.
> Spero che mi possiate aiutare sono in difficoltà
>
> Ciao e grazieeeeeee
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Problema con vers. 2003

text:
FUNZIONA!!!!!!
> Prova con:
>
> [Forms]![Dati intestazione]![Dati righi].form![IDDati righi 1]
Come hai fatto a trovare la soluzione, l'hai letto in giro o l'hai provato
Ciao e grazieeeeeeee
"Sandro" <
sandro...@yahoo.com
> ha scritto nel messaggio
news:212Z210Z230Z116...@usenet.libero.it...



title: Problema con vers. 2003

text:
Il 30 Giu 2004, 17:44, "Santilli Marco" <
ma...@santillimarco.it
> ha scritto:
> Come hai fatto a trovare la soluzione, l'hai letto in giro o l'hai provato
Tante e tante prove ... e anche un po di culo ...
;-)



title: problemi con fogli dati secondari

author: yanez

text:
Saluti a tutto il NG
In Access 2003, il problema è il seguente:
Non riesco a modificare in visualizzazione struttura la proprietà foglio
secondario, le modifiche salvate non hanno effetto sia che imposti la
proprietà su automatico che su nessuno continuo sempre a vedere la tabella
collegata nelle relazioni.
Viceversa se apro la tabella in visualizzazione foglio dati e dal menu
formato scelgo foglio dati secondario->nessuno non ho più "le crocette" ma
soprattutto tornando in visualizzazione struttura trovo la relativa
proprietà di tabella impostata su nessuno; ultima incongruenza: se a questo
punto torno in foglio dati nel menu formato la voce foglio dati non è
selezionabile, finché non faccio una qualsiasi modifica dalla struttura, che
come già detto produce sempre l'effetto di vusualizzare il foglio dati
secondario.
Dal momento che mi occupo di insegnamento nell'ambito office, mi
interesserebbe sapere il perché e non solo il come....
Grazie a tutti
yanez


title: problemi con fogli dati secondari

text:
Dimenticavo: ho provato ad eliminare la relazione che collega questa tabella
al suo foglio secondario: l'effetto è stato di non poter impostare in nessun
modo il foglio secondario.
Insomma è come se impostare la proprietà della tabella non avesse alcun
effetto: se la relazione c'è te la becchi o al massimo puoi non
visualizzarla ma tramite la vis foglio dati, se la relazione non c'è non
puoi comunque creare un foglio dati secondario....


title: Automation.odb

author: enzo

text:
E' una nuova estensione o un errore di stampa del mio libro su access?
Riporta un esempio di codice di automazione tra access e programmi di office
2000, tra cui il raccoglitore
di documenti office objbinder.
Alla fine salva il file in oggetto,
ciao.


title: OT : query (?) per gioco del lotto

author: Pawn

text:
Ciao,
vorrei raggiungere questo risultato :
premesso che ho una tabella nella quale ho archiviato tutte le estrazione
della Ruota di Napoli,
in questo modo :
Data            Na1  Na2  Na3  Na4 Na5
12/03/2005    74     17     1     70     16
vorrei avere modo di visualizzare (ignoro in quale forma) il periodo
temporale nel quale sono usciti tutti i numeri dal 1 al 90 .
Ad esempio partendo dal 01/01/1990 vorrei vedere in quanti cicli (e quanto
tempo per ogni ciclo) sono usciti , appunto, i numeri dal
1 al 90.
 E' Possibile ?
grazie !


title: OT : query (?) per gioco del lotto

author: Roberto da casa

text:
"Pawn" <
pa...@tin.it
> ha scritto nel messaggio
news:4237f...@x-privat.org...

Con una query penso proprio di no, però con un po' di codice VBA puoi farlo.
Se la tabella che contiene i dati si chiama EstrazioniNapoli ed ha la
seguente struttura:
Data                    Data/ora e chiave primaria
Na1                    Numerico
Na2                    Numerico
Na3                    Numerico
Na4                    Numerico
Na5                    Numerico
Creati una maschera non associata che contenga due caselle di testo chiamate
rispettivamente DataInizio e DataFine.
Inserisci nella maschera anche un pulsante di comando e a fronte del suo
evento "Su clic" genera il seguente codice VBA:
Dim Num(89) As Integer
Dim rst As DAO.Recordset
Dim strSQL As String
Dim Conta As Integer
Dim Conta2 As Integer
Dim Tot As Integer
strSQL = "SELECT * FROM EstrazioniNapoli " _
& "WHERE Data >= #" _
& Format(Me!DataInizio, "mm/dd/yyyy") & _
"# ORDER BY Data;"
Set rst = CurrentDb().OpenRecordset(strSQL)
rst.MoveFirst
Do Until rst.EOF
    For Conta = 1 To 5
        Num(rst("Na" & Trim(Conta)) - 1) = 1
    Next Conta
    Tot = 0
    For Conta2 = 0 To 89
        Tot = Tot + Num(Conta2)
    Next Conta2
    If Tot = 90 Then
        Me!DataFine = rst!Data
        Exit Do
    End If
    rst.MoveNext
Loop
MsgBox Tot
Set rst = Nothing
A questo punti apri la maschera, digita nella casella di testo DataInizio la
data dalla quale vuoi che parte l'elaborazione e pigia il pulsante di
comando: nella casella di testo DataFine verrà visualizzata la data
dell'estrazione in cui tutti e 90 i numeri sono stati estratti.
> grazie !
Prego
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: OT : query (?) per gioco del lotto

text:
penso di aver seguito quanto hai scritto, però il
il codice si blocca a questo punto :
Set rst = CurrentDb().OpenRecordset(strSQL)
segnalandomi l'errore :
Errori di run-time 3131
Errore di sintassi nella proposizione From
come procedo ?
grazie !


title: OT : query (?) per gioco del lotto

text:
" Pawn" <
pa...@tin.it
> ha scritto nel messaggio
news:42388...@x-privat.org...

Forse non hai notato che la routine che ti ho suggerito fa riferimento alla
libreria Microsoft DAO quindi, se usi una versione di Access successiva ad
Access 97, devi aggiungere ai riferimenti del tuo database tale libreria.
Comunque, per scrupolo ho appena provato la soluzione che ti ho proposto ed
a me funziona bene, senza segnalazioni di errore di sorta: vedrai che quando
avrai aggiunto nel tuo database i riferimenti a Microsoft DAO 3.6 Object
Library funzionerà anche a te.



title: OT : query (?) per gioco del lotto

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:2Ad_d.17042$Tm5.3...@twister2.libero.it...
>
> " Pawn" <
pa...@tin.it
> ha scritto nel messaggio
> news:42388...@x-privat.org...
> >
> > penso di aver seguito quanto hai scritto, però il
> >
> > il codice si blocca a questo punto :
> >
> > Set rst = CurrentDb().OpenRecordset(strSQL)
> >
> >
> > segnalandomi l'errore :
> >
> > Errori di run-time 3131
> >
> > Errore di sintassi nella proposizione From
> >
> >
> >
> > come procedo ?
> >
> > grazie !
>
> Forse non hai notato che la routine che ti ho suggerito fa riferimento
alla
> libreria Microsoft DAO quindi, se usi una versione di Access successiva ad
> Access 97, devi aggiungere ai riferimenti del tuo database tale libreria.
> Comunque, per scrupolo ho appena provato la soluzione che ti ho proposto
ed
> a me funziona bene, senza segnalazioni di errore di sorta: vedrai che
quando
> avrai aggiunto nel tuo database i riferimenti a Microsoft DAO 3.6 Object
> Library funzionerà anche a te.
>
    Hai perfettamente ragione !
    Ora funziona anche a me :)
    spero di farmi vivo con qualche vincita !
    ciao !


title: Nuovo record con campo preimpostato, in una maschera di inserimento con intestazione

author: Reventlov

text:
Ciao,
In Access 2010 ho una tabella DITTE con le colonne ID_Ditta e RAGIONE_SOCIALE.
e un'altra tabella "ACCESSO DIPENDENTI DITTE" con ID_DITTA_ACCESSO, ID_Dipendente,
CognomeNome

Dalla form dell'anagrafica ditte apro la maschera con i dipendenti che possono accedere.
Li filtro.

Private Sub btnAccessiAutorizzati_Click()
        DoCmd.OpenForm "Accesso Dipendenti Ditte", , , "id_ditta_accesso=" & Me.ID_ditta,
acFormEdit
End Sub

Nel form vedo i dipendenti già elencati e ne posso aggiungere altri. Affinchè siano
abbinati alla ditta giusta ho messo nella maschera dei dipendenti questo codice in modo
che il campo id_ditta_accesso sia avvalorato con l'ID della ditta che sto elaborando.

Private Sub Form_BeforeInsert(Cancel As Integer)
    Me.id_ditta_accesso = Forms!Ditte.ID_ditta
End Sub

PROBLEMA:
Nell'intestazione della maschera dei dipendenti ho il nome della ditta, ma appena mi
sposto su un nuovo record mi sparisce il nome della ditta dall'intestazione. Succede
perchè il BeforeInsert inserisce l'ID della ditta al momento della registrazione del
record.
Mi secca che quando mi sposto sul record nuovo sparisca il nome ditta. E' solo un attimo,
perchè basta che scriva una lettera e la ragione sociale riappare. Però non so come fare
ad evitarlo.
Come posso fare?
Grazie.
--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati
 (Esempi e programmi in VbScript)
--


author: Karl Donaubauer

text:
Salve,

Reventlov ha scritto:
> ...
> Private Sub btnAccessiAutorizzati_Click()
>          DoCmd.OpenForm "Accesso Dipendenti Ditte", , , "id_ditta_accesso=" & Me.ID_ditta,
> acFormEdit
> End Sub
>
> Nel form vedo i dipendenti già elencati e ne posso aggiungere altri. Affinchè siano
> abbinati alla ditta giusta ho messo nella maschera dei dipendenti questo codice in modo
> che il campo id_ditta_accesso sia avvalorato con l'ID della ditta che sto elaborando.
>
> Private Sub Form_BeforeInsert(Cancel As Integer)
>      Me.id_ditta_accesso = Forms!Ditte.ID_ditta
> End Sub
>
> PROBLEMA:
> Nell'intestazione della maschera dei dipendenti ho il nome della ditta, ma appena mi
> sposto su un nuovo record mi sparisce il nome della ditta dall'intestazione. Succede
> perchè il BeforeInsert inserisce l'ID della ditta al momento della registrazione del
> record.
> Mi secca che quando mi sposto sul record nuovo sparisca il nome ditta. E' solo un attimo,
> perchè basta che scriva una lettera e la ragione sociale riappare. Però non so come fare
> ad evitarlo.
> ...

Non hai rivelato quale metodo usi per mostrare il nome della ditta.
Comunque per l'Id invece di usare BeforeInsert prova di impostare il
valore predefinito già sul click del pulsante:

DoCmd.OpenForm "Accesso Dipendenti Ditte"...

Forms![Accesso Dipendenti Ditte]!id_ditta_accesso.DefaultValue = _
Me!ID_ditta

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

Access Lobby:
http://www.AccessDevelopers.org


text:
Il giorno Mon, 24 Aug 2015 16:56:19 +0200, Karl Donaubauer <
NoS...@donkarl.com
> ha
scritto:

Per mostrare il nome della ditta ho creato una maschera tabulare con la creazione guidata,
poi ho preso il nome della ditta dalla riga dei record e l'ho spostata sull'intestazione.
Rileggendomi, non mi pare una grande trovata.
Chiaramente così l'intestazione e' legata al record corrente. Infatti andando su un nuovo
record sparisce il nome della ditta.
Ho provato il tuo codice ma dice che la proprietà non è supportata dall'oggetto. Il nome
del form è giusto e anche il nome del campo.
Ci ho provato un po' di fretta e domani cerco di capire cosa c'è che non va.
Questa cosa di aprire un form e poi di farci qualcosa dalla maschera padre... l'avevo già
vista ma mi inquieta un po'. Sono più abituato a impostare dei parametri e DOPO chiamare
la funzione. Oppure fare qualcosa ma dalla maschera che viene aperta, non da quella di
origine.
Domani ci riguardo perchè è una cosa che mi potra' servire.

In giornata invece ho risolto così, con un approccio più procedurale che mi e' più
consono.
Ho creato un modulo con una variabile globale (e l'ho imparato oggi, credevo bastasse
dichiarare una variabile pubblica in cima al form "menu", sempre aperto).
Prima di aprire la maschera di inserimento dei dipendenti salvo nella variabile globale il
nome della ditta
NomeDittaPerElencoAccessi = Me.Ragione_Sociale

E poi lo metto non in un campo ma in una etichetta nell'intestazione della maschera di
inserimento dei dipendenti. Senza Caption,inoltre, non andava. Credevo fosse la proprietà
predefinita per le assegnazioni.
Private Sub Form_load()
    'Nell'intestazione metto il nome ditta che ho salvato prima di aprire la maschera.
    Me.lblNomeDitta.Caption = NomeDittaPerElencoAccessi
End Sub

Funziona ed ha anche la sua ragione di essere. Il nome della ditta nell'intestazione non
ha motivo di essere collegato al record corrente. E' una intestazione ed è giusto che sia
fissa.

Grazie dell'aiuto.
Giovanni



title: collegamento tabella dbf

author: Giulia

text:
Ciao a tutti
ho collegato una tabella dbf ma se cerco di modificare i dati, access mi
dice che non è possibile perché il programma è utilizzato da un'altro utente
la stessa operazione fatta su un'altro pc invece funziona regolarmente (non
sono in rete)
volevo sapere se esiste qualche rimedio... tipo impostazione nel registro o
in qualche ini che sblocca le tabelle


title: Developer : Giro quesito posto a Microsoft

author: Pablitomf (Maurizio Facciuti)

text:
Ciao ragazzi, vi giro pari pari un quesito posto a Microsoft riguardo al
Developer :
>Ho un applicativo sviluppato con Access97, che non voglio/posso convertire
>in versioni successive.
>Tale applicativo dovrebbe essere distribuito su sedi che non sono in
>possesso del pacchetto
>Ofice97 ne tantomeno di versioni successive, pertanto, per poterlo fare,
>avrei bisogno della Runtime
>overo della versione DEVELOPER dello stesso Access97 ("Office Developer's
>Edition" (ODE),
>versione che è stata tolta dal mercato forse ben tre anni fa, e che risulta
>purtroppo introvabile.
Ovviamente non cerco soluzioni sull'introvabilità di ODE 97 ;-|
>Il mio quesito è questo :
>Visto che l'ultima versione di Developer è compresa in "Visual Studio Tools
>for the Microsoft Office System",
>che tra l'altro è abbinabile alla versione "Access 2003", se io
>l'acquistassi, avrei la possibilità di gestire sulla
>sua installazione un evento di Downgrade, ovvero gestire l'attivazione
>della licenza per il developer del 97 al
>posto del 2003, permettendo quindi la distribuzione del mio applicativo
>Access97
Io di DEV, non ne so molto perchè non lo uso, quindi passo a voi la palla...
datemi delucidazioni.
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: HELP! ----> Operatore Like "*"

text:
Buongiorno a tutti! ho una query con 3 campi nome, cognome, telefono.
se all'interno dei campi CRITERI nella query digito Like "*" tutto è ok! e i
record vengono tutti visualizzati correttamente.
se invece attraverso l'uso di campi in una maschera, nel campo CRITERI della
query metto =Forms![pippo]![campo1]
e in esecuzione a campo 1 gli assegno Like "*" non funziona! i record non
vengono listati, a  quanto ho capito il motivo è
che campo1 è uguale a "Like "*"" e non a Like "*" quindi chiedo:
Qualcuno di voi sa come posso gestire i filtri in questo modo da campi in
una maschera?
Grazie in anticipo! Tosto73.


title: HELP! ----> Operatore Like "*"

author: Roberto dal portatile

text:
"Tosto73" <
tos...@libero.it
> ha scritto nel messaggio
news:lPOt6.69258$6W.67...@news.infostrada.it...

Prova a scrivere nei criteri
Like nz(Forms![pippo]![campo1] ; "*")
e in campo1 o digiti il valore da selezionare o non digiti alcunché (valore
Null).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: HELP! ----> Operatore Like "*"

text:
> Prova a scrivere nei criteri
>
> Like nz(Forms![pippo]![campo1] ; "*")
>
> e in campo1 o digiti il valore da selezionare o non digiti alcunché
(valore
> Null).
>
> --
>
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Funziona! ti ringrazio! un problema in meno! ;O)


title: Casella combinata da Casella combinata

author: Tiz

text:
Ciao a tutti,
il mio problema e creare un casella combinata che visualizzi
una serie di record provenienti da un'altra casella combinata. Che fare?!
Cerco di spiegarmi con un esempio:
Ho una tabella che chiamiamo "Cucina"
in questa ho i campi "PRIMI/SECONDI/CONTORNI" e "TIPOCIBO".
Il campo
"PRIMI/SECONDI/CONTORNI" pesca da una tabella dove ho:
_____________________
IDPSC      DEF
1          primi
2
secondi
3          contorni
_____________________
poi ho una
tabella "TIPOCIBO"
id tipocibo  IDPSC     "PRIMI/SECONDI"
1
1          penne
2             1          lasagne
3             2
bistecca
3             3          verdura alla piastra
quello che
cerco di fare e che seleziono primi nella casella combinata "tipocibo"
vorrei selezionare solo i valori: "penne" e "lasagne" etc.
Che fare ?!
ciao Tiz
--------------------------------
Inviato via
http://usenet.iol.it


title: Casella combinata da Casella combinata

author: Riccardo

text:
Tiz <
tizi...@libero.it
> wrote in message
140Z105Z48Z16...@usenet.iol.it...

Dopo che hai selezionato Primi dalla prima casella combinata, la quale ti
restituisce
IDPSC = 1
Ipotizzando che la tua maschera si Chiami "Piatti" e la tua prima casella
combinata
si chiami "IDPSC",
nell'origine record della casella combinata "tipocibo" scriverai:
SELECT DISTINCTROW Tipocibo.Id_tipocibo, Tipocibo.IDPSC,
Tipocibo.PRIMI/SECONDI FROM Tipocibo WHERE
(((Tipocibo.IDPSC)=[Forms]![Piatti]![IDPSC]));
e su dopo
agg.to
 della casella IDPSC scrivi:
Me.NomeTuaCasellaTipoCibo.Requery
ed il gioco è fatto.
ciao Riccardo


title: Casella combinata da Casella combinata

text:
"Tiz" <
tizi...@libero.it
> ha scritto nel messaggio
news:140Z105Z48Z16...@usenet.iol.it...

Se la maschera che contiene le due caselle combinate si chiama Maschera1.
Se le due caselle combinate si chiamano rispettivamente ComboCucina e
ComboTipoCibo.
Se ambedue le caselle combinate hanno due colonne di cui la prima non
visibile.
Come origine riga della casella combinata ComboCucine imposta questo codice
SQL:
SELECT DISTINCTROW [Cucina].[IDPSC], [Cucina].[DEF] FROM [Cucina];
Come origine riga della casella combinata ComboTipoCibo imposta questo
codice SQL:
SELECT DISTINCTROW TIPOCIBO.IdTipoCibo, TIPOCIBO.PrimiSecondi FROM TIPOCIBO
WHERE (((TIPOCIBO.IDPSC)=[Forms]![Maschera1]![ComboCucina]));
A fronte dell'evento "Dopo aggiornamento" della casella combinata
ComboCucina genera questa riga di codice VBA:
Me!ComboTipoCibo.Requery
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella combinata da Casella combinata

text:
Grazie mille!!!!funziona benissimo,
ma vorrei chiedervi ancora, visto
che avete risposto in molti, come visualizzare/nascondere dei pulsanti a
seguito di una selezione in una casella combinata...
Grazie ancora



title: Casella combinata da Casella combinata

text:
Utilizza la proprietà Visible=False e/o Enabled=False del comando o TextBox
o altro, importante è prima spostare il Focus su un altro oggetto poichè non
è possibile, che io sappia in Access ( in VB è possibile) mi perdonino gli
esperti, disbilitare un comando con lo stato attivo.
Alex.
--
Posted from [212.141.54.103]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Casella combinata da Casella combinata

text:
"Tiz" <
tizi...@libero.it
> ha scritto nel messaggio
news:151Z25Z51Z74Y9...@usenet.iol.it...
>
>
> Grazie mille!!!!funziona benissimo,
> ma vorrei chiedervi ancora, visto
> che avete risposto in molti, come visualizzare/nascondere dei pulsanti a
> seguito di una selezione in una casella combinata...
> Grazie ancora
> Tiz
>
Perché non provi a fare un esempio concreto di cosa ti serve.



title: Casella combinata da Casella combinata

text:
Il 17 Lug 2001, 18:46, "Roberto dal portatile" <
r.ma...@repubblica.it
> ha
scritto:



Ciao provo ad essere
concreto
ho una tabella cucina:
IDcucina   PSC        tipocibo
1
primi      penne
2          primi      lasagne
3          secondi
bistecca
i campi "PSC" e "tipocibo" sono delle caselle combinate
però se alla selezione nella casella combinata "PSC" con il valore "primi"
(la stessa filosofia penso sia attuabile se è riferito al valore del campo
"tipocibo") volessi attivare un pulsante di comando di nome "ingredienti",
il quale  apre una maschera "maschera_ingredienti" cosa dovrei fare?
Spero di essere stato chiaro...
grazie tiz



title: Casella combinata da Casella combinata

text:
Tiz <
tizi...@libero.it
> wrote in message
140Z105Z48Z16Y...@usenet.iol.it...

> perň se alla selezione nella casella combinata "PSC" con il valore "primi"
> (la stessa filosofia penso sia attuabile se č riferito al valore del campo
> "tipocibo") volessi attivare un pulsante di comando di nome "ingredienti",
> il quale  apre una maschera "maschera_ingredienti" cosa dovrei fare?
> Spero di essere stato chiaro...
> grazie tiz
>
> --------------------------------
> Inviato via
http://usenet.iol.it
____________
Mi sembra cosě:
Select Case Me.PSC.Column(2)    'Se la casella contiene 2 Colonne e la 2a
contiene l'elenco
    Case "primi"
        Me.PulsanteIngredienti.Enabled=true
End Select
in questo modo puoi aggiungerti tutti i casi che vuoi.
ciao Riccardo


title: Casella combinata da Casella combinata

text:
>____________
>Mi sembra cosě:
>Select Case Me.PSC.Column(2)    'Se la
casella contiene 2 Colonne e la 2a
>contiene l'elenco
>    Case "primi"
>        Me.PulsanteIngredienti.Enabled=true
>End Select
>in questo
modo puoi aggiungerti tutti i casi che vuoi.
>ciao Riccardo
Ciao,
devo chiederti una cortesia, nel senso che questa stringa devo inserirla
nel pulsante di comando?!
Grazie e scusa ancora...
Ciao Tiz



title: Casella combinata da Casella combinata

text:
Tiz <
tizi...@libero.it
> wrote in message
140Z105Z48Z16Y...@usenet.iol.it...
> >____________
> >Mi sembra cosě:
> >Select Case Me.PSC.Column(2)    'Se la
> casella contiene 2 Colonne e la 2a
> >contiene l'elenco
> >    Case "primi"
> >        Me.PulsanteIngredienti.Enabled=true
> >End Select
>
> >in questo
> modo puoi aggiungerti tutti i casi che vuoi.
>
> >ciao Riccardo
>
> Ciao,
> devo chiederti una cortesia, nel senso che questa stringa devo inserirla
> nel pulsante di comando?!
> Grazie e scusa ancora...
> Ciao Tiz
_______
No.
Vuoi che il pulsante si abiliti o meno alla selezione della Casella
Combinata PSC?
Allora su dopo aggiornamento della Casella PSC
inserisci quel codice.
ciao Riccardo


title: Casella combinata da Casella combinata

author: tiz

text:
Il 19 Lug 2001, 09:19, "Riccardo" <
ricc...@free.panservice.it
> ha scritto:
>_______
>No.
>Vuoi che il pulsante si abiliti o meno alla selezione
della Casella
>Combinata PSC?
>Allora su dopo aggiornamento della Casella
PSC
>inserisci quel codice.
>ciao Riccardo
ciao,
nel caso abbia già
una una routine...
Private Sub combocucina_AfterUpdate()
Me.combotipocibo.Requery
End Sub
quella che mi hai scritto sopra deve
essere collocata subito dopo...
ciao tiz



title: Casella combinata da Casella combinata

text:
tiz <
tizi...@libero.it
> wrote in message
140Z105Z48Z16Y...@usenet.iol.it...
> Il 19 Lug 2001, 09:19, "Riccardo" <
ricc...@free.panservice.it
> ha
scritto:
> >_______
> >No.
> >Vuoi che il pulsante si abiliti o meno alla selezione
> della Casella
> >Combinata PSC?
> >Allora su dopo aggiornamento della Casella
> PSC
> >inserisci quel codice.
>
> >ciao Riccardo
>
> ciao,
> nel caso abbia già
> una una routine...
>
> Private Sub combocucina_AfterUpdate()
> Me.combotipocibo.Requery
>
> End Sub
>
> quella che mi hai scritto sopra deve
> essere collocata subito dopo...
>
> ciao tiz
>
###############
 Private Sub combocucina_AfterUpdate()
 Me.combotipocibo.Requery
Select Case Me.PSC.Column(2)
    Case "primi"
        Me.PulsanteIngredienti.Enabled=true
End Select
 End Sub
ciao Riccardo


title: campo data gg/mm/aaaa ....come testare se è vuoto?

text:
ciao a tutti
ho un form con un campo testo formato data associato ad un campo
tabella data.
in un pulsante che lancia delle query a catena ho inserito del codice
per controllare che il campo data sia stato riempito.
come fare a testare se è rimasto vuoto??
if (miocampodata) is null then
   mgbox ("campo data vuoto)
   miocampodata.setfocus
else
   docmd.openquery........
   docmd.openquery.......
endif
non mi visualizza il msg box ma altri messaggi di sistema
Ho provato Datepart(miocampodata) e year(miocampodata)...niente.
Idee.. suggerimenti??


author: Antonio Biso

text:
<
as...@tin.it
> ha scritto nel messaggio
news:cmbdpvouh0as5ojd2...@4ax.com...
> come fare a testare se è rimasto vuoto??
>
> if (miocampodata) is null then
if isnull(miocampodata)
Antonio


title: Copiare tra due file mdb solo dati o solo struttura??

author: M.

text:
Ciao,
chiedo il vostro aiuto per una questione che poco mi e' chiara:
creo un database con maschere, query e report; tengo una copia ma vuota
(senza nessun dato inserito e con solo la struttura) e nell'altra invece
inserisco i miei dati (fornitore, data, indirizzo, ecc.).
Lavoro sulla copia che mi sono tenuto per inserire nuove funzioni, tipo
pulsanti, nuove query, ecc.
Copme posso poi importare i dati che avevo inserito nell'altro database
in modo da avere un mdb che contiene i dati sensibili e le nuove
funzioni implementate?
Grazie in anticipo
Ciao
Marco


author: Pablitomf

text:
M. ha scritto:
> Ciao,



> Grazie in anticipo
> Ciao
> Marco
Evita di fare tutto ciň e dividiti l'MDB in BE e FE...
Back-And : Dove inserisci solo le tabelle con le relazioni
Front-End : Dove inserisci tutto il resto e colleghi le tabelle del BE
In questo modo i dati saranno sempre intatti e sostituendo il solo FE
avrai la versione aggiornata del MDB
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Pablitomf wrote:
> Evita di fare tutto ciň e dividiti l'MDB in BE e FE...
> Back-And : Dove inserisci solo le tabelle con le relazioni
> Front-End : Dove inserisci tutto il resto e colleghi le tabelle del BE
>
> In questo modo i dati saranno sempre intatti e sostituendo il solo FE
> avrai la versione aggiornata del MDB
Volentieri, ma non so come si fa e la guida in linea non conosce
Back-end e Front-end...
Puoi darmi qualche indizio, per favore?
Ciao
Marco


text:
M. ha scritto:
> Pablitomf wrote:
> > Evita di fare tutto ciò e dividiti l'MDB in BE e FE...


> Ciao
> Marco
Allora Marco...
il mio consiglio è che questo che ti sto dicendo sarà per te sarà l'1
fisso nell'organizzazione dei tuoi DB!!!
Allora il fatto è questo :
1)Creati due database
Nel Database1: (Back-End)
Ti crei solo ed esclusivamente le tabelle con tutte le eventuali relazioni
Nel Database2: (Front-End)
Dopo aver collegato tutte le tabelle dal Database1 (Back-End), ti crei
tutte le query, le form, i Report e i Moduli.
Questa è la gestione BE - FE.
Perchè è conveniente?
Perchè se hai necessità di implementare le funzioni, non hai bisogno di
"toccare" la parte Dati... infatti lo puoi fare sostituendo solo il
Database2 su cui avrai lavorato.
Tale sostituzione ti farà avere tutte le novità apportate sul FE con i
dati "intatti" del BE.
Capito?
--
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno



text:

Capito, grazie.
Metto in pratica.
GRAZIE
Ciao
Marco


title: Campo Ole in una Form che mi restituisce il nome del file anziche' l'immagine

author: Stefano

text:
Come da oggetto, ho fatto un applicativo in cui una tabella ha un campo
"immagine" definito come "ole.
L'immagine inserita è un Jpg manipolato con Photo Paint.
In visualizzazione tabella nel campo "immagine" mi compariva la scritta
"immagine Corel Photo Paint" dopo che inserivo l'oggetto.
Nella Form il campo relativo ha proprietà "Zoom".
Fino a qui ha funzionato tutto bene, l'immagine poteva essere sia
incorporata che allegata.
Ho portato tale applicativo su un'altra macchina su cui NON è installato
Photo Paint lasolo Paint di Microsoft. Tale applicativo permette di caricare
e modificare i formati JPG.
Quando vado ad inserire un'altra immagine (che mi sono portato dietro
dall'altro Pc) nel campo della tabella mi compare la scritta "pacchetto", e
nella form il nome del file.
Premetto che se invece importo una Bitmap funziona tutto regolarmente.
Ho provato tutte le possibilità di incorporazione dell'immagine e
conversione (che tra l'altro non mi da più)
Sapete darmi una soluzione?
Grazie e scusate la prolissità
Stefano


author: MA

text:

no usare gli OLE ma la proprietà picture.
Ci trovi Terabyte su quest'argomento
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


text:
Come da oggetto, ho fatto un applicativo in cui una tabella ha un campo
"immagine" definito come "ole.
L'immagine inserita è un Jpg manipolato con Photo Paint.
In visualizzazione tabella nel campo "immagine" mi compariva la scritta
"immagine Corel Photo Paint" dopo che inserivo l'oggetto.
Nella Form il campo relativo ha proprietà "Zoom".
Fino a qui ha funzionato tutto bene, l'immagine poteva essere sia
incorporata che allegata.
Ho portato tale applicativo su un'altra macchina su cui NON è installato
Corel Photo Paint ma solo Paint di Microsoft. Tale applicativo permette di
caricare
e modificare i formati JPG.
Quando vado ad inserire un'altra immagine (che mi sono portato dietro
dall'altro Pc) nel campo della tabella mi compare la scritta "pacchetto", e
nella form il nome del file.
Premetto che se invece converto l'immagine in Bmp funziona tutto



text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:jI39e.2656$TR5...@news.edisontel.com...
> Stefano wrote:
> > Come da oggetto, ho fatto un applicativo in cui una tabella ha un
> no usare gli OLE ma la proprietà picture.
> Ci trovi Terabyte su quest'argomento
> Ciao
> MAssimiliano Amendola
Fermo restando che ti ringrazio e farò sicuramente come dici, informandomi
meglio, sai comunque spiegarmi perchè Axess (:-)) si comporta così?
Stefano


text:

Guarda su
www.sitocomune.com
, ci trovi tutto quello che ti serve anche in
merito



title: Maschera: inserire minimo 8 caratteri ma non più di 8

author: nospam anna_kappa

text:
Devo inserire in un campo di una maschera un numero che deve essere compreso
tra: 00000000 e 99999999, ma devono essere necessariamente 8 caratteri
quindi non 0 ma 00000000.
Grazie Anna!
--------------------------------
Inviato via
http://usenet.libero.it


author: Maurizio Borrelli

text:
> "anna_kappa (nospam) (anna_kappa)"
news:212Z171Z19Z77Y1...@usenet.libero.it...:
> Devo inserire in un campo di una maschera un numero che deve essere
compreso
> tra: 00000000 e 99999999, ma devono essere necessariamente 8 caratteri
> quindi non 0 ma 00000000.
        Format$(numero, "00000000")
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


text:
Il 01 Ott 2002, 10:19, "Maurizio Borrelli" <
maurizio...@freepass.it
>
ha scritto:

--------------------------------
Inviato via
http://usenet.libero.it


text:
Il 01 Ott 2002, 10:19, "Maurizio Borrelli" <
maurizio...@freepass.it
>
ha scritto:

Opppss... sto inviando dal web, ed è un casino...
Dove devo inserire la sintassi che mi hai consigliato (Maurizio)? Ho provato
nella proprietà del campo relativo alla voce "Valido se", ma li non
funziona....



text:
> "anna_kappa (nospam) (anna_kappa)"
news:212Z171Z19Z77Y1...@usenet.libero.it...:
> > "Maurizio Borrelli":
> > > "anna_kappa (nospam) (anna_kappa)"
> > > news:212Z171Z19Z77Y1...@usenet.libero.it...:
> > > Devo inserire in un campo di una maschera un numero che deve essere
> > > compreso
> > > tra: 00000000 e 99999999, ma devono essere necessariamente 8 caratteri
> > > quindi non 0 ma 00000000.
> > Format$(numero, "00000000")
[...]
> Dove devo inserire la sintassi che mi hai consigliato (Maurizio)? Ho
provato
> nella proprietą del campo relativo alla voce "Valido se", ma li non
> funziona....
    Se vuoi che il controllo casella di testo che giace sulla maschera
visualizzi i numeri con quel formato allora devi aprire la finestra delle
proprieta' della casella di testo e scrivere:
        00000000
come valore della proprieta':
        Formato



text:
> Se vuoi che il controllo casella di testo che giace sulla maschera
> visualizzi i numeri con quel formato allora devi aprire la finestra delle
> proprieta' della casella di testo e scrivere:
>
> 00000000
>
> come valore della proprieta':
>
> Formato
>
> --
> Ciao :-)
> Maurizio
> --------
> ?SPQR(C)
> X
> --------
>
>
Funziona :)))



title: [OT] Informazione

author: stefano

text:
Se a qualcuno può interessare per usare le lingue asiatiche negli
applicativi creati con office developer (versioni 2000 e XP) basta
installare il pacchetto LAOSCRIP 6.1
contiene tutti i font e le conversioni di tastiera.
Stefano


title: [OT] Informazione

text:

Grazie
MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Intercettare il nome maschera da una sottomaschera

author: Xymox

text:
Digitando un pulsante in una sottomaschera dovrei passare a una Function il
nome della maschera che la "ospita" in quel momento.
suggerimenti ?
grazie e ciao
marco s.


author: ALESSANDRO Baraldi

text:
"Xymox" <
marcosanti...@people.it
> ha scritto nel messaggio
news:2gf14tF...@uni-berlin.de...

Un PULSANTE non si digita si preme....!
In ogni caso leggi l'help riguardo la proprietą PARENT.
Ciao.
@Alex.


text:
"Xymox" <
marcosanti...@people.it
> ha
scritto nel messaggio
news:2gf14tF...@uni-berlin.de...

screen.activeform.name
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto
>
screen.activeform.name
> MAssimiliano
perfetto, grazie,  ma ora non riesco a risolvere questo problema:
Dovrei mettere al posto di S_Sch_Generale la variabile che contiene il nome
della scheda, non riesco trovare la sintassi corretta
Forms![S_Sch_Generale]![S_Sch_ModMacc_ss].Form![smModMacc] = Null
suggerimenti ?
grazie 1000
marco s.


text:
"Xymox" <
marcosanti...@people.it
> ha scritto
risolto:
Forms(NomeVariabile)![S_Sch_ModMacc_ss].Form![smModMacc] = Null


title: Aggiornamento ComboBox - 2 puntata

author: pfm

text:
Ciao!

prima di tutto volevo ringraziare Roberto per l'aiuto dato via Ng a
Ezio relativo a: Aggiornamento ComboBox

Vorrei porre un questito.

Ho creato una maschera per l'introduzione dei dati contenente textBox
e una comboBox. come da istruzioni
Ho utilizzato l'evento NotInList per aprire una maschera secondaria
per l'introduzione di un nuovo record della tabella correlata.
Se l'utente chiude la seconda maschera tutto bene e aggiorno la
comboBox (.requery) e faccio visualizzare il nuovo dato.

come fare Se l'utente, aperta la seconda maschera, volesse chiuderla
senza salvare i dati?
con
doCmd.close ,, asSaveNo
non funziona.

oppure ho provato con l'autocomposizione a crearmi un pulsante annulla
record
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Vorrei annullare AddNew - come quando sei in tabella e ti posizioni
sul record nuovo digiti e poi premi ESC un o 2 volte e annulli
l'inserimento nuovo record.

con elimina record incappo in un errore nel requery della combo

Grazie anticipatamente

PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


title: Aggiornamento ComboBox - 2 puntata

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3bb89b5c...@news.interbusiness.it...

A fronte di quale evento della maschera effettui il requery della combo?
Comunque sia, prova ad andare sul Sito Comune (link qui sotto), sezione
General, e leggi la FAQ intitolata "Si può aggiungere un record alla tabella
che è origine riga di una casella combinata senza usare una maschera?".
C'è allegato un esempio, se ti va bene l'interfaccia utente usata, dovrebbe
risolvere il tuo problema, visto che fra l'altro non usa maschere di
inserimento; prima di eseguire l'inserimento in tabella del nuovo record
chiede conferma all'utente e si conporta di conseguenza; al limite potresti
fare altrettanto prima di aprire la maschera di inserimento.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aggiornamento ComboBox - 2 puntata

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> wrote:
>
>A fronte di quale evento della maschera effettui il requery della combo?
>
>Comunque sia, prova ad andare sul Sito Comune (link qui sotto), sezione
>General, e leggi la FAQ intitolata "Si può aggiungere un record alla tabella
>che è origine riga di una casella combinata senza usare una maschera?".
>C'è allegato un esempio, se ti va bene l'interfaccia utente usata, dovrebbe
>risolvere il tuo problema, visto che fra l'altro non usa maschere di
>inserimento; prima di eseguire l'inserimento in tabella del nuovo record
>chiede conferma all'utente e si conporta di conseguenza; al limite potresti
>fare altrettanto prima di aprire la maschera di inserimento.
>
L'esempio del sito comune e' molto utile anche se forse sono obbligato
a utilizzare una maschera perche' ho molti dati da inserire es.
anagrafica cliente
comunque l'evento della maschera principale
Private Sub miaCombo_NotInList(NewData As String, Response As Integer)
 ' per evitare il messaggio di Access in automatico "DATO NON IN
ELENCO"
 Response = acDataErrAdded
 'Response = acDataErrContinue

 Dim FormNuovoRecord As String
 FormNuovoRecord = "Maschera1"
 Me.ZPIPPO = NewData
 DoCmd.OpenForm FormNuovoRecord, , , , acFormAdd, acDialog, "GotoNew"
 '
 Me!miaCombo.Requery
End Sub



title: Aggiornamento ComboBox - 2 puntata

text:
"pfm" <
00864...@cnnet.it
> ha scritto nel messaggio
news:3bb9c218...@news.interbusiness.it...

Se la maschera che contiene la combo si chiama Paperino.
A fronte dell'evento "Su non in elenco" di mia combo genera il seguente
codice VBA:
Private Sub miaCombo_NotInList(NewData As String, Response As Integer)
Me.ZPIPPO = NewData
DoCmd.OpenForm "Maschera1", , , , acFormAdd, acDialog, "GotoNew"
If Me!ZPIPPO = "" Then
    Me!miaCombo.SetFocus
    Me!miaCombo.Text = ""
    Response = acDataErrContinue
Else
    Me!miaCombo.Requery
    Response = acDataErrAdded
End If
End Sub
In Maschera1 inserisci un controllo nascosto chiamato Papera ed un pulsante
di comando (chiamato Comando6), che l'utente dovrà pigiare quando ha un
ripensamento e non vuole più inserire il record che ha cominciato ad
inserire.
A fronte dell'evento "Su corrente" di Maschera1 genera:
Private Sub Form_Current()
Me!Cognome = Forms!Paperino!ZPIPPO
Me!Papera = 0
End Sub
A fronte dell'evento "Su chiusura" di Maschera1 genera:
Private Sub Form_Close()
If Me!Papera = 0 Then
Forms!Paperino!miaCombo = Me!ID
Else
Forms!Paperino!ZPIPPO= ""
End If
End Sub
A fronte dell'evento "Su clic" del pulsante di comando genera:
Private Sub Comando6_Click()
Me.Undo
Me!Papera = 1
DoCmd.Close
End Sub
Naturalmente sostituisci i nomi Cognome e ID con i nomi reali dei tuoi
controlli di Maschera1.
Prova, dovrebbe funzionare.



title: Aggiornamento ComboBox - 2 puntata

text:
Ti ringrazio!!!
Molto esauriente!
ho notato che nell'esempio di quanche mese fa hai modificato zPippo da
null a 0
Saluti
PFM



title: chiudere la form se la ricerca non ha trovato nulla

author: Franco dellavalle

text:
ciao a tutti

Apro una form "M_TrovaFornitore" con DblClick sul
controllo CboFornitore

If Len(CboFornitore.Text) > 0 Then
  DoCmd.OpenForm "M_TrovaFornitore", , , , , , CboFornitore.Text

End If
_______
Su apertura della form "M_TrovaFornitore" ho inserito

If Me.OpenArgs > "" Then
  Dim strText As String
  Dim rsCheck As DAO.Recordset
  Dim strFind As String

  strText = Me.OpenArgs

  strFind = "Fornitore Like '"
  strFind = strFind & "*" & Replace(strText, "'", "''") & "*"
  strFind = strFind & "'"

  Set rsCheck = Me.RecordsetClone
  rsCheck.FindFirst strFind

  If rsCheck.NoMatch Then
    MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
  Else
    DoCmd.ApplyFilter , strFind

  End If
  Set rsCheck = Nothing
End If

come faccio a chiudere la form se la ricerca non ha esito positivo?
grazie


author: mantro

text:
Il 07/12/2016 11:33, Franco dellavalle ha scritto:
>   If rsCheck.NoMatch Then
>     MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
>   Else
>     DoCmd.ApplyFilter , strFind
>
>   End If

   If rsCheck.NoMatch Then
     MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
     rsCheck.close: set rsCheck=nothing
     DoCmd.accmdClose



text:

  pardòn: DoCmd.RunCommand accmdClose


author: Karl Donaubauer

text:
Salve,

Franco Dellavalle ha scritto:
> ...
>   DoCmd.OpenForm "M_TrovaFornitore", , , , , , CboFornitore.Text
> ...
> Su apertura della form "M_TrovaFornitore" ho inserito
>...
>   If rsCheck.NoMatch Then
>     MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation

Cancel = True

> ...
> come faccio a chiudere la form se la ricerca non ha esito positivo?

Per la domanda che seguirà vedi l'ultimo paragrafo di
http://www.donkarl.com/it?FAQ5.8

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


text:

grazie Karl


text:

grazie


text:
Il giorno mercoledì 7 dicembre 2016 12:12:44 UTC+1, Karl Donaubauer ha scritto:
> Salve,
>
> Franco Dellavalle ha scritto:
> > ...
> >   DoCmd.OpenForm "M_TrovaFornitore", , , , , , CboFornitore.Text
> > ...
> > Su apertura della form "M_TrovaFornitore" ho inserito
> >...
> >   If rsCheck.NoMatch Then
> >     MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
>
> Cancel = True
>
> > ...
> > come faccio a chiudere la form se la ricerca non ha esito positivo?
>
> Per la domanda che seguirà vedi l'ultimo paragrafo di
>
http://www.donkarl.com/it?FAQ5.8

>
Ciao Karl

uva volta che ho trovato il prodotto,
per assegnarlo a CboProdotto,
ho inserito su click del controllo "DescrizioneProdotto" della form "M_TrovaProdotto" questo codice:

If Aperta("M_ChiusuraCarico") Then
  Forms("M_ChiusuraCarico").SetFocus
  Forms("M_ChiusuraCarico")!SM_DettCarichi.SetFocus
  Forms("M_ChiusuraCarico")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
  Call ImpPredProd(Forms("M_ChiusuraCarico")!SM_DettCarichi.Form)
ElseIf Aperta("M_ConfermaCarico") Then
  Forms("M_ConfermaCarico").SetFocus
  Forms("M_ConfermaCarico")!SM_DettCarichi.SetFocus
  Forms("M_ConfermaCarico")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
  Call ImpPredProd(Forms("M_ConfermaCarico")!SM_DettCarichi.Form)
ElseIf Aperta("M_GestioneOrdini") Then
  Forms("M_GestioneOrdini").SetFocus
  Forms("M_GestioneOrdini")!SM_DettCarichi.SetFocus
  Forms("M_GestioneOrdini")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
  Call ImpPredProd(Forms("M_GestioneOrdini")!SM_DettCarichi.Form)
Else
  MsgBox "Form non trovata.", vbInformation, "Attenzione!"

End If

DoCmd.Close acForm, Me.Name

E' possibile semplificare questo passaggio?
grazie


text:
Salve Franco,

Franco dellavalle:
> ...della form "M_TrovaProdotto" questo codice:
> If Aperta("M_ChiusuraCarico") Then
>   Forms("M_ChiusuraCarico").SetFocus
>   Forms("M_ChiusuraCarico")!SM_DettCarichi.SetFocus
>   Forms("M_ChiusuraCarico")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
>   Call ImpPredProd(Forms("M_ChiusuraCarico")!SM_DettCarichi.Form)
> ElseIf Aperta("M_ConfermaCarico") Then
>   Forms("M_ConfermaCarico").SetFocus
>   Forms("M_ConfermaCarico")!SM_DettCarichi.SetFocus
>   Forms("M_ConfermaCarico")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
>   Call ImpPredProd(Forms("M_ConfermaCarico")!SM_DettCarichi.Form)
> ElseIf Aperta("M_GestioneOrdini") Then
>   Forms("M_GestioneOrdini").SetFocus
>   Forms("M_GestioneOrdini")!SM_DettCarichi.SetFocus
>   Forms("M_GestioneOrdini")!SM_DettCarichi.Form!CboProdotto.Value = IDProdotto
>   Call ImpPredProd(Forms("M_GestioneOrdini")!SM_DettCarichi.Form)
> Else
>   MsgBox "Form non trovata.", vbInformation, "Attenzione!"
>
> End If
>
> DoCmd.Close acForm, Me.Name
>
> E' possibile semplificare questo passaggio?

Un po':

Dim strFrm As String

If Aperta("M_ChiusuraCarico") Then strFrm = "M_ChiusuraCarico"
ElseIf Aperta("M_ConfermaCarico") Then strFrm = "M_ConfermaCarico"
ElseIf Aperta("M_GestioneOrdini") Then strFrm = "M_GestioneOrdini"
Else
   MsgBox "Form non trovata.", vbInformation, "Attenzione!"
End If

If strFrm > "" Then
   Forms(strFrm).SetFocus
   Forms(strFrm)("SM_DettCarichi").SetFocus
   Forms(strFrm)("SM_DettCarichi").Form!CboProdotto.Value = IDProdotto
   Call ImpPredProd(Forms(strFrm)("SM_DettCarichi").Form)
End If

Però forse sarebbe meglio di nuovamente sostituire tutta la roba di
Aperta() con un parametro all'apertura, p.e. come OpenArg o (se non apri
la maschera con acDialog) con scrivere il nome dell'altra maschera nella
proprietà Tag di M_TrovaProdotto.



text:
Salve,

Franco dellavalle:
>  Karl Donaubauer ha scritto:
>> Franco Dellavalle ha scritto:
>>> ...
>>>   DoCmd.OpenForm "M_TrovaFornitore", , , , , , CboFornitore.Text
>>> ...
>>> Su apertura della form "M_TrovaFornitore" ho inserito
>>> ...
>>>   If rsCheck.NoMatch Then
>>>     MsgBox "La ricerca non ha prodotto Fornitori.", vbInformation
>>
>> Cancel = True
>>
>>> ...
>>> come faccio a chiudere la form se la ricerca non ha esito positivo?
>>
>> Per la domanda che seguirà vedi l'ultimo paragrafo di
>>
http://www.donkarl.com/it?FAQ5.8

>
> cosi' però mi salta
> Set rsCheck = Nothing
> per l'azzeramento della variabile

?
Se pensi che il parametro Cancel faccia un Exit ti sbagli. Il codice
continua, solo l'evento Open viene cancellato.



text:

grazie Karl

perchè se scrico il codice come l'hai postato tu
mi da l'errore else senza if,
mentre cosi no?

If Aperta("M_ChiusuraCarico") Then
  strFrm = "M_ChiusuraCarico"
ElseIf Aperta("M_ConfermaCarico") Then strFrm = "M_ConfermaCarico"
ElseIf Aperta("M_GestioneOrdini") Then strFrm = "M_GestioneOrdini"
Else
  MsgBox "Form non trovata.", vbInformation, "Attenzione!"

End If

In piu' mi spieghi meglio questo punto che non ho ben capito?

Però forse sarebbe meglio di nuovamente sostituire tutta la roba di
Aperta() con un parametro all'apertura, p.e. come OpenArg o (se non apri
la maschera con acDialog) con scrivere il nome dell'altra maschera nella
proprietà Tag di M_TrovaProdotto.

perchè vorrei provarli entrami
sia con OpenArg,
che con il nome della maschera nella proprietà Tag

Grazie


text:
Salve,

Franco Dellavalle ha scritto:
> Karl Donaubauer ha scritto:
>> ...
>> Dim strFrm As String
>>
>> If Aperta("M_ChiusuraCarico") Then strFrm = "M_ChiusuraCarico"
>> ElseIf Aperta("M_ConfermaCarico") Then strFrm = "M_ConfermaCarico"
>> ElseIf Aperta("M_GestioneOrdini") Then strFrm = "M_GestioneOrdini"
>> Else
>>    MsgBox "Form non trovata.", vbInformation, "Attenzione!"
>> End If
>>
>> If strFrm > "" Then
>>    Forms(strFrm).SetFocus
>>    Forms(strFrm)("SM_DettCarichi").SetFocus
>>    Forms(strFrm)("SM_DettCarichi").Form!CboProdotto.Value = IDProdotto
>>    Call ImpPredProd(Forms(strFrm)("SM_DettCarichi").Form)
>> End If
>>
>> Però forse sarebbe meglio di nuovamente sostituire tutta la roba di
>> Aperta() con un parametro all'apertura, p.e. come OpenArg o (se non apri
>> la maschera con acDialog) con scrivere il nome dell'altra maschera nella
>> proprietà Tag di M_TrovaProdotto.
> ...
> perchè se scrico il codice come l'hai postato tu
> mi da l'errore else senza if,
> mentre cosi no?
>
> If Aperta("M_ChiusuraCarico") Then
>   strFrm = "M_ChiusuraCarico"
> ElseIf Aperta("M_ConfermaCarico") Then strFrm = "M_ConfermaCarico"
> ElseIf Aperta("M_GestioneOrdini") Then strFrm = "M_GestioneOrdini"
> Else
>   MsgBox "Form non trovata.", vbInformation, "Attenzione!"
>
> End If

Ovviamente perché mentre digitavo (senza provarlo) ho dimenticato che
bisogna un'interruzione di riga nell'If se esiste un Else.

> In piu' mi spieghi meglio questo punto che non ho ben capito?
>
> Però forse sarebbe meglio di nuovamente sostituire tutta la roba di
> Aperta() con un parametro all'apertura, p.e. come OpenArg o (se non apri
> la maschera con acDialog) con scrivere il nome dell'altra maschera nella
> proprietà Tag di M_TrovaProdotto.
>
> perchè vorrei provarli entrami
> sia con OpenArg,
> che con il nome della maschera nella proprietà Tag

Per un OpenArg con due parametri bisogna un separatore e p.e. Split().
Con google dovresti trovare diversi esempi che ho postato.

Il secondo metodo sarebbe ca.

DoCmd.OpenForm "M_TrovaFornitore" ...blabla
Forms!M_TrovaFornitore.Tag = Me.Name

'poi basta

Dim strFrm As String

If Me.Tag > "" Then
    strFrm = Me.Tag
    Forms(strFrm).SetFocus
    Forms(strFrm)("SM_DettCarichi").SetFocus
    Forms(strFrm)("SM_DettCarichi").Form!CboProdotto.Value = IDProdotto
    Call ImpPredProd(Forms(strFrm)("SM_DettCarichi").Form)
End If




text:
Karl Donaubauer ha scritto:
> ...
> DoCmd.OpenForm "M_TrovaFornitore" ...blabla
> Forms!M_TrovaFornitore.Tag = Me.Name

Forse si tratta di "M_TrovaProdotto" al momento. Si perde nelle mille
maschere e domande che posti qui. ;-)



text:

ciao Karl
sbaglio in qualcosa......

faccio un riepilogo...........

su DblClick del controllo CboProdotto della "Forms("M_GestioneOrdini")!SM_DettCarichi.Form!CboProdotto"
    If Len(CboProdotto.Text) > 0 Then
        DoCmd.OpenForm "M_TrovaProdotto", , , , , , CboProdotto.Text
        Forms!M_TrovaProdotto.Tag = Me.Name

    End If

poi su Click del controllo "DescrizioneProdotto" della Form M_TrovaProdotto

    Dim strFrm As String

    If Me.Tag > "" Then
        strFrm = Me.Tag
        Forms(strFrm).SetFocus
        Forms(strFrm)("SM_DettCarichi").SetFocus
        Forms(strFrm)("SM_DettCarichi").Form!CboProdotto.Value = IDProdotto
        Call ImpPredProd(Forms(strFrm)("SM_DettCarichi").Form)

    End If

    DoCmd.Close acForm, Me.Name

Ma dice che non trova la SubForm "SM_DettCarichi"
dove sbaglio?
grazie


text:

in pratica Me.Tag
mi restituisce il nome della SubForm dove ho il controllo CboProdotto e non come dovrebbe, cioè quello della Form


text:
Salve,

Franco Dellavalle ha scritto:
>> ...
>> Forms!M_TrovaProdotto.Tag = Me.Name
> ...
> in pratica Me.Tag
> mi restituisce il nome della SubForm dove ho il controllo CboProdotto e non come dovrebbe, cioè quello della Form

Forms!M_TrovaProdotto.Tag =
Me.Parent.Name




text:

grazie Karl

volendo includere anche controlli che non sono presenti
su tutte le form
p.e.

    If Me.Tag > "" Then
        strFrm = Me.Tag
        lngStore = Forms(strFrm)!IdCarico
        Forms(strFrm).Requery
        Forms(strFrm).Recordset.FindFirst "IdCarico= " & lngStore
        Forms(strFrm)!DataChiusura.SetFocus
    ->  'If IsControl(Forms(strFrm)!LstRiepScontodaFatturare) Then Forms(strFrm)!LstRiepScontodaFatturare.Requery

    End If

piu'

    If Aperta("M_GestioneOrdini") Then
        Forms("M_GestioneOrdini")!SM_OrdiniClienti.Form!Txt_Conf_OrdineCli.SetFocus
        Forms("M_GestioneOrdini")!SM_OrdiniClienti.Form!LstOrdine.Requery
        Forms("M_GestioneOrdini")!SM_CarichiFornitori.Form!LstCarico.Requery
        Forms("M_GestioneOrdini")!SM_DettCarichi.Requery
        Forms("M_GestioneOrdini")!SM_BancaliCarichi.Requery

    End If

come è bene fare?
grazie


text:

per verificare se il controllo esiste ho provato cosi
If Forms(strFrm).Controls("LstRiepScontodaFatturare") = True Then Forms(strFrm)!LstRiepScontodaFatturare.Requery
ma non funziona


text:
Salve,

Franco Dellavalle ha scritto:
> ...
> volendo includere anche controlli che non sono presenti
> su tutte le form
> p.e.
>
>     If Me.Tag > "" Then
>         strFrm = Me.Tag
>         lngStore = Forms(strFrm)!IdCarico
>         Forms(strFrm).Requery
>         Forms(strFrm).Recordset.FindFirst "IdCarico= " & lngStore
>         Forms(strFrm)!DataChiusura.SetFocus
>     ->  'If IsControl(Forms(strFrm)!LstRiepScontodaFatturare) Then Forms(strFrm)!LstRiepScontodaFatturare.Requery
>
>     End If
>
> piu'
>
>     If Aperta("M_GestioneOrdini") Then
>         Forms("M_GestioneOrdini")!SM_OrdiniClienti.Form!Txt_Conf_OrdineCli.SetFocus
>         Forms("M_GestioneOrdini")!SM_OrdiniClienti.Form!LstOrdine.Requery
>         Forms("M_GestioneOrdini")!SM_CarichiFornitori.Form!LstCarico.Requery
>         Forms("M_GestioneOrdini")!SM_DettCarichi.Requery
>         Forms("M_GestioneOrdini")!SM_BancaliCarichi.Requery
>     End If
>
> come è bene fare?

Dipende di tutte le circostanze che non hai ancora rivelato. ;-)
p.e.

Select Case strFrm
     Case "M_x"
	'fai le cose speciali per M_x
     Case "M_y"
	'fai le cose speciali per M_y
...



text:

Grazie 1000


text:

come posso fare, per evitare di chiudere la maschera "A",
da dove apro la maschera "B", prima di aver chiuso per errore
la maschera "B"?

Questo per evitare l'errore 2450.....
Impossibile trovare la maschera "A" a cui si fa riferimento ecc. ecc.

questo è il codice su chiusura della maschera:

Dim strFrm As String
Dim lngStore As Long

If Me.Tag > "" Then
  strFrm = Me.Tag
  If strFrm <> "M_GestioneOrdini" Then
    lngStore = Forms(strFrm)!IdCarico
    Forms(strFrm).Requery
    Forms(strFrm).Recordset.FindFirst "IdCarico =" & lngStore
    Forms(strFrm)!IdCarico.SetFocus

  End If

End If

Select Case strFrm
  Case "M_GestioneOrdini"
    Forms(strFrm)!SM_OrdiniClienti.Form!Txt_Conf_OrdineCli.SetFocus
    Forms(strFrm)!SM_OrdiniClienti.Form!LstOrdine.Requery
    Forms(strFrm)!SM_CarichiFornitori.Form!LstCarico.Requery
    Forms(strFrm)!SM_CarichiFornitori.Form!CboTrasportatore.Requery
    Forms(strFrm)!SM_DettCarichi.Requery
    Forms(strFrm)!SM_BancaliCarichi.Requery
  Case "M_ElencoCarichi"
    Forms(strFrm)!LstRiepScontodaFatturare.Requery

End Select

grazie


title: ,,HOT : CAD/CAM/CAE PROGRAMS,

author: Dave Willis

text:
_Complete offer of all CAD/CAM/CAE and other programs.
_More then 10000 programs available.
_Latest release.
_Ask on email for full list.
-For any information or list,
-contact me :
dav_p...@hotpop.com
 (if you see dav_pos... type
dav_post02 )
-email : dav_post02 AT
hotpop.com
-Latest top selling programs :
_____________________________
.3D Studio MAX 7---
.ArchiCad 9---
.AutoDesk AutoCad 2005---
.AutoDesk Inventor 9---
.Catia 5r14---
.I-Deas NX 11---
.Pro/Engineer Wildfire 2---
.SolidWorks 2005---
.UniGraphics NX 3---
+ 10000 other programs ....
_____________________________
Contact info :
dav_p...@hotpop.com
 (if you see dav_pos... type
dav_post02)
email : dav_post02 AT
hotpop.com
David
876hu98kui


title: apice e pedice

author: tonio

text:
Qualcuno può dirmi se è possibile inserire in una etichetta di una maschera
o di un report i caratteri in apice o pedice?
Grazie


title: apice e pedice

author: Carlo Costarella

text:
"tonio" <
t...@tin.it
> ha scritto nel messaggio
news:490607b1$0$40312$4faf...@reader5.news.tin.it...

Normalmente no perchè Access non è un elaboratore di testi.
Probabilmente potresti farlo con un ocx tipo questo
http://www.lebans.com/richtext.htm
Ciao, Carlo


title: query raggruppamento

author: Enrico Virginio

text:
ma... caspita... perchè non ci riesco ??!!
Ho una tabella con 3 records, che hanno in comune solo un campo [NSped], mentre
tutti gli altri campi possono essere diversi...
Io vorrei che di questi 3 records,visto che hanno in comune il valore [NSped],
la query me ne tornasse UNO SOLO e non tutti e 3.
Chi mi aiuta ??
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: query raggruppamento

author: Antonio Biso

text:
Enrico Virginio <
nor...@libero.it
> wrote in message
73231bad3d12bd55b1...@mygate.mailgate.org...
> ma... caspita... perchè non ci riesco ??!!
> Ho una tabella con 3 records, che hanno in comune solo un campo [NSped],
mentre
> tutti gli altri campi possono essere diversi...
>
> Io vorrei che di questi 3 records,visto che hanno in comune il valore
[NSped],
> la query me ne tornasse UNO SOLO e non tutti e 3.
Ma se sono 3 record, diversi, perchè i VALORI dei campi sono diversi tranne
uno, perchè ne deve venire uno solo e secondo quale criterio?
Antonio


title: query raggruppamento

author: Emyr

text:
On Sat, 29 Dec 2001 21:46:20 +0000 (UTC), "Enrico Virginio"
<
nor...@libero.it
> wrote:
>ma... caspita... perchè non ci riesco ??!!
>Ho una tabella con 3 records, che hanno in comune solo un campo [NSped], mentre
>tutti gli altri campi possono essere diversi...
>
>Io vorrei che di questi 3 records,visto che hanno in comune il valore [NSped],
>la query me ne tornasse UNO SOLO e non tutti e 3.
>
>Chi mi aiuta ??
supponendo table2  =  nsped a b c
SELECT First(Table2.a) AS FirstOfa, First(Table2.b) AS FirstOfb,
First(Table2.c) AS FirstOfc
FROM Table2
GROUP BY Table2.nsped;
mostra ad esempio il primo dei dati
Saluti.
Emanuele.


title: Problema Filtro Query con funzione DlookUp:Help!!

author: bud

text:
Ciao A tutti,
Mi trovo con una query basata su 3 tabelle collegate (TABELLA ANAGRAFICO UTENTE,tabella CONTATTI PROVA,Tabella Domanda Prova Fab) fatta in questo modo:
SELECT [TABELLA ANAGRAFICO UTENTE].[ID UTENTE], [TABELLA ANAGRAFICO UTENTE].Cognome, [TABELLA ANAGRAFICO UTENTE].Nome, [TABELLA ANAGRAFICO UTENTE].DataN, [Tabella Domanda Prova Fab].id_dest, DLookUp("[cognome]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Cognome_Destinatario, DLookUp("[nome]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Nome_Destinatario, DLookUp("[datan]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Data_Destinatario, DateDiff("yyyy",[data_destinatario],Now()) AS età
FROM ([TABELLA ANAGRAFICO UTENTE] INNER JOIN [tabella CONTATTI PROVA] ON [TABELLA ANAGRAFICO UTENTE].[ID UTENTE] = [tabella CONTATTI PROVA].[id UTENTE]) LEFT JOIN [Tabella Domanda Prova Fab] ON [tabella CONTATTI PROVA].[id UTENTE] = [Tabella Domanda Prova Fab].id_utente
WHERE ((([Tabella Domanda Prova Fab].id_dest)<>0 And ([Tabella Domanda Prova Fab].id_dest) Is Not Null));
Il fatto è che aggiungendo il criterio sull'età,ad esempio >=6 and <=12 , mi chiede di immettere il valore del parametro "data_destinatario"....probabilmente perchè è un campo calcolato???
Questa è la query con il filtro:
SELECT [TABELLA ANAGRAFICO UTENTE].[ID UTENTE], [TABELLA ANAGRAFICO UTENTE].Cognome, [TABELLA ANAGRAFICO UTENTE].Nome, [TABELLA ANAGRAFICO UTENTE].DataN, [Tabella Domanda Prova Fab].id_dest, DLookUp("[cognome]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Cognome_Destinatario, DLookUp("[nome]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Nome_Destinatario, DLookUp("[datan]","tabella anagrafico utente","[id utente]=" & [id_dest]) AS Data_Destinatario, DateDiff("yyyy",[data_destinatario],Now()) AS età
FROM ([TABELLA ANAGRAFICO UTENTE] INNER JOIN [tabella CONTATTI PROVA] ON [TABELLA ANAGRAFICO UTENTE].[ID UTENTE] = [tabella CONTATTI PROVA].[id UTENTE]) LEFT JOIN [Tabella Domanda Prova Fab] ON [tabella CONTATTI PROVA].[id UTENTE] = [Tabella Domanda Prova Fab].id_utente
WHERE ((([Tabella Domanda Prova Fab].id_dest)<>0 And ([Tabella Domanda Prova Fab].id_dest) Is Not Null) AND ((DateDiff("yyyy",[data_destinatario],Now()))>=6 And (DateDiff("yyyy",[data_destinatario],Now()))<=12));
Ho solo la necessità di filtrare i record!!
Credo che il problema sia che non posso usare l'alias di un campo in un filtro,ma è proprio quello che devo fare x ottenere il risultato di cui ho bisogno,come posso risolvere??
Grazie mille a tutti in anticipo per l'aiuto!!
Ciao Fab
--
bud
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-729748.html
Inviato via
http://www.itsistemi.net


author: Roberto da casa

text:
"bud" <
bud.1...@no-mx.itsistemi.net
> ha scritto nel messaggio
news:bud.1...@no-mx.itsistemi.net...

Scusami, ma c'è una cosa che non mi chiara: visto che il campo datan è
contenuto nella tabella TABELLA ANAGRAFICO UTENTE che è una di quelle su cui
è basata la query, non capisco perché usi una DLookup e non scrivi
direttamente [TABELLA ANAGRAFICO UTENTE].[datan] idem nella DateDiff.
Comunque in una WHERE non puoi far riferimento al nome di un campo calcolato
dichiarato nella SELECT, ma puoi sostituire il suo nome con il suo algoritmo
di calcolo, nel tuo caso sostituire il nome[data_destinatario] con la
DLookup.
>
> Grazie mille a tutti in anticipo per l'aiuto!!
Prego.
>
> Ciao Fab
>
>
> --
> bud
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Verificare se esiste una tabella

author: Giuliantonio

text:
Ho la necessita di verificare se una tabella esiste, prima di cancellarla.
In Access 2000 ho risolto il problema intercettando l'errore 7874 di tabella
inesistente, generato dall'istruzione DoCmd.DeleteObject, ma mi sono accorto
che non è portabile su  Access 97, il quale non intercetta tale errore.
Credo che la cosa sia risolvibile con una istruzione for ... each ... next,
ma non so come fare.
L'idea è scrivere qualcosa del genere...
      For Each tbl In Application.Table
           If tbl.TableName = "tbltemporanea" Then DoCmd.DeleteObject
acTable, "tblTemporanea"
      Next
Però il compilatore non riconosce l'oggetto Application.Table e poi non so
se occorre dichiarare tbl con un istruzione dim...
Grazie per qualunque aiuto!
giulia...@infinito.it


title: Verificare se esiste una tabella

author: Lbo

text:
>Ho la necessita di verificare se una tabella esiste, prima di cancellarla.
mi pare che ci sia qualcosa sul sito comune, comunque le cose da fare
sono due.
o ti scorri l'elenco delle tabledefs o fai una query sulla tabella di
sistema MSysObject, che contiene l'elenco degli oggetti del db.  se la
apri puoi vedere che di ogni oggetto viene indicato, tra l'altro, il
nome e il tipo, quest'ultimo per mezzo di un valore numerico.  magari
più che per le tabelle è comodo usare MSysObjects per altri oggetti.
anzi, adesso che faccio mente locale, sul sito comune ci dovrebbe
proprio essere una funzione che verifica l'esistenza di una tabella in
qualsiasi db.  se il db non viene indicato la cerca sul db locale.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Verificare se esiste una tabella

author: Sergio MAZZA

text:
"Giuliantonio" <
giulia...@tiscalinet.it
> ha scritto nel messaggio
news:92nth3$1pk$1...@lacerta.tiscalinet.it...

Oltre al suggerimento di Lbo, per soddisfare la tua curiosità puoi provare
con:
'----------------
Dim ctr As Container, doc As Document
Set ctr = CurrentDb.Containers!Tables
For Each doc In ctr.Documents
    Debug.Print doc.Name
Next
Set ctr = Nothing
Set doc = Nothing
'----------------
Ciao.


title: TAB in campo memo

author: Paolo opg

text:
uso un campo memo per far inserire all'utente delle note o dei dati
aggiuntivi da mettere soll'offerta da mandare al cliente.
a volte c'è la necessità di dare un TAB per allineare il contenuto d + righe
in modo da presentarlo meglio, solo che il tasto in questione sposta il
fuoco sul controllo successivo senza allineare il testo.
mi potete suggerire un'alternativa o una possibile soluzione?
grazie!
    paolo
--
+-----
| Paolo opg
| janickg ( at ) hotmail ( dot ) com
+-----


title: TAB in campo memo

text:
On Thu, 28 Feb 2002 08:31:42 +0100, "Paolo opg" <
w...@ne.com
> wrote:
>uso un campo memo per far inserire all'utente delle note o dei dati
>aggiuntivi da mettere soll'offerta da mandare al cliente.
>a volte c'è la necessità di dare un TAB per allineare il contenuto d + righe
>in modo da presentarlo meglio, solo che il tasto in questione sposta il
>fuoco sul controllo successivo senza allineare il testo.
>mi potete suggerire un'alternativa o una possibile soluzione?
>grazie!
>    paolo
devi intercettare il tasto tab ed modificarne l'azione con
l'inserimento si spazi
Saluti.
Emanuele.


title: Backup e ripristino record

author: Bit

text:
Salve a tutti, volevo chiedervi una cosa...è possibile esportare tutte le
tabelle (compresi i record) contenute in un database in un altro database
che abbia come nome la data dell'esportazione. E in secondo luogo effettuare
la procedura inversa importando le tabelle (compresi i record) da un
database ad un altro...?
Praticamente una copia di backup dei dati con la possibilità di ripristino
degli stessi.
Grazie.


title: Backup e ripristino record

author: SunRex

text:
"Bit" <xx...@xxxx.xxxx> ha scritto nel messaggio
news:6yjte.43316$75.23...@news4.tin.it...

Buon divertimento
SunRex
Function BackUp()
Dim DirBackup As String
Dim DataBackup As String
Dim NomeFile As String
Dim StringaBackup As String
Dim strPathdb As String
intScelta = MsgBox("Effettuare il backup degli archivi?", vbApplicationModal
+ vbQuestion + vbYesNo, "Ciao")
If intScelta = vbNo Then
    Exit Function
Else
    If Dir("C:\TuaCartella\Backup\", vbDirectory) = "" Then
               MkDir ("C:\TuaCartella\Backup\")
    Else
    End If
        DirBackup = "C:\TuaCartella\Backup\"
        DataBackup = Format(Date, "dd-mm-yyyy")
        NomeFile = DataBackup & "-backup" & ".mdb"
        StringaBackup = DirBackup & NomeFile
        strPathdb = "C:\TuaCArtella\BackEnd\TuoDb.mdb"
        FileCopy strPathdb, StringaBackup
        MsgBox "Backup degli archivi completato.", vbApplicationModal +
vbInformation + vbOKOnly, "Ciao"
End If
End Function


title: On Error....

text:
Su un pulsante ho la seguente routine:
Dim strInput As String, strmsg As String
strmsg = "Numero Progressivo (Progr) ?"
strInput = InputBox(Prompt:=strmsg, _
Title:="Richiesta Dato", XPos:=2000, YPos:=2000)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.ControlSource = ctl.Tag
End If
Next
Dim strSQL As String
strSQL = "SELECT * FROM [Automezzi_Costi] WHERE Progr =" & strInput
Forms!Automezzi_Costi.RecordSource = strSQL
End Sub
Dove devo mettere l'evento ON ERROR per far si che se nell'input box
non scrivo nulla, non mi dia messaggio d'errore ?
Grazie.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: On Error....

author: ZiK

text:
"Enrico Virginio" <
nor...@libero.it
> wrote in message
news:57e48ac86ebd7dcb1a...@mygate.mailgate.org...
> Su un pulsante ho la seguente routine:
>
>[CUT]
>
>
> Dove devo mettere l'evento ON ERROR per far si che se nell'input box
> non scrivo nulla, non mi dia messaggio d'errore ?
>
> Grazie.
Credo che, visti i tuoi post precedenti il minimo
sarebbe ricambiare i toni delle tue risposte....!
Ma non serve, la punizione più giusta è quella
di lasciarti sbattere la testa con ACCESS, visto che
non ne azzecchi una.........!!!
P.S. Bella la battuta del ON Error per quello che devi fare,
     continua a postarne.......!!!
ZIK



title: On Error....

author: Roccia

text:
Il Thu, 21 Mar 2002 17:28:19 +0000 (UTC), Enrico Virginio oso'
dichiarare:
> Dove devo mettere l'evento ON ERROR per far si che se nell'input box
> non scrivo nulla, non mi dia messaggio d'errore ?
Da nessuna parte: dopo l'inputbox controlli con una IF che la variabile
non contenga una stringa di lunghezza zero...
A=Inputbox(...)
If not A>"" then exit sub o quello che vuoi
--
Cia'
"Roccia" Max De Poli <
rocc...@katamail.com
>


title: On Error....

author: Sib

text:
"ZiK" <
a32...@libero.it
> ha scritto nel messaggio
> "Enrico Virginio" <
nor...@libero.it
> wrote in message
> > Su un pulsante ho la seguente routine:
> >
> >[CUT]
> >
> >
> > Dove devo mettere l'evento ON ERROR per far si che se nell'input box
> > non scrivo nulla, non mi dia messaggio d'errore ?
> >
> > Grazie.
>
> Credo che, visti i tuoi post precedenti il minimo
> sarebbe ricambiare i toni delle tue risposte....!
Che risposte ha dato che non riesco a trovarle?
Sib


title: On Error....

text:
"Enrico Virginio" <
nor...@libero.it
> ha scritto nel messaggio
> Su un pulsante ho la seguente routine:
>
> Dim strInput As String, strmsg As String
> strmsg = "Numero Progressivo (Progr) ?"
> strInput = InputBox(Prompt:=strmsg, _
> Title:="Richiesta Dato", XPos:=2000, YPos:=2000)
CUT
Dove l'hai trovata questa sintassi?
Non era piu' facile scrivere:
strInput = InputBox(strmsg, "Richiesta Dato", 2000, 2000)
Sib


title: A97 ha una memoria di ferro ?

author: sergio

text:
ho cambiato la posizione di alcuni mdb dalla cartella 'f:\access' ad
un'altra posizione,
ebbene ora quando apro uno di questi mdb compare questo avvertimento:
"Impossibile cambiare la cartella di lavoro in F:\Access"
la cosa succede con tutti gli mdb che ho spostato, ma nessuno di questi ha
tabelle collegate esternamente  o legami di alcun tipo
se creo una cartella anche vuota 'f:\access' allora il messaggio scompare
cosa cavolo c'entra il fatto che questi mdb siano stati per tanto tempo in
una certa cartella:
perchè se lo ricordano ?
grazie per i consigli
sergio


title: A97 ha una memoria di ferro ?

author: Karl Donaubauer

text:
sergio ha scritto:
> ho cambiato la posizione di alcuni mdb dalla cartella 'f:\access' ad
> un'altra posizione,
> ebbene ora quando apro uno di questi mdb compare questo avvertimento:
>
> "Impossibile cambiare la cartella di lavoro in F:\Access"
>
> la cosa succede con tutti gli mdb che ho spostato, ma nessuno di questi ha
> tabelle collegate esternamente  o legami di alcun tipo
>
> se creo una cartella anche vuota 'f:\access' allora il messaggio
scompare...
Guarda cosa si trova nel menu Strumenti/Opzioni/Generale come
cartella di lavoro o cartella predefinita (o simile in italiano).
Non debb' essere una cartella che non esiste.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: A97 ha una memoria di ferro ?

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:aeicta$6vmu0$1...@ID-46617.news.dfncis.de...
>
> Guarda cosa si trova nel menu Strumenti/Opzioni/Generale come
> cartella di lavoro o cartella predefinita (o simile in italiano).
> Non debb' essere una cartella che non esiste.
grazie, era proprio questo il problema
ciao sergio


title: scusate

author: Hellas

text:
mi son dimenticato di quotare alla fine
perň altre news non sono cosě rigorose
cercherň di stare piů attento


title: scusate

author: Silvio Berruti

text:
"Hellas" <
torot...@tiscalinet.it
> ha scritto nel messaggio
news:9okj6t$q1j$1...@lacerta.tiscalinet.it...
> mi son dimenticato di quotare alla fine
> però altre news non sono così rigorose
> cercherò di stare più attento
Volevi dire: quotare prima (il quoting è la parte di testo che lasci nella
tua risposta x una migliore comprensione e non ciò che scrivi tu).
Altri NG non sono in effetti così rigorosi ed è anche x questo che mi stanco
facilmente quando mi metto a leggerli.
Sarà perché mi sono abituato troppo bene con questo... ;-)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: scusate

text:
Silvio Berruti ha scritto:
> "Hellas" <
torot...@tiscalinet.it
> ha scritto:
> > mi son dimenticato di quotare alla fine
> > però altre news non sono così rigorose
> > cercherò di stare più attento
>
> Volevi dire: quotare prima (il quoting è la parte di testo che lasci nella
> tua risposta x una migliore comprensione e non ciò che scrivi tu).
>
> Altri NG non sono in effetti così rigorosi ed è anche x questo che mi
stanco
> facilmente quando mi metto a leggerli.
> Sarà perché mi sono abituato troppo bene con questo... ;-)
Mi sembra anche che qualche anno fa (~ '97-'98) non così molta
gente qui (vuol dire in icda) ha considerato come "cool" nomi come
"Hellas", "### CH v2.001 ###", "stwe" ecc. ecc. ecc.
ma ha semplicemente usato un nome umano.
Per me era più simpatico ma in molti NG su questo soggeto si litigano.
In questi tempi passati, "LBO" era vistoso.
...non solo per il suo pseudonimo. ;-)
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: scusate

author: stwe

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:9ol6nj$drhrl$2...@ID-46617.news.dfncis.de...

ok io sono cretino, ma non ho capito il senso del tuo msg. Potresti
spiegarti meglio?
grazie e scusa perchè non sono così sveglio....
by
stwe


title: scusate

text:
stwe <
st...@stwe.org
> ha scritto:
> "Karl Donaubauer" ha scritto:...
> > Mi sembra anche che qualche anno fa (~ '97-'98) non così molta
> > gente qui (vuol dire in icda) ha considerato come "cool" nomi come
> > "Hellas", "### CH v2.001 ###", "stwe" ecc. ecc. ecc.
> > ma ha semplicemente usato un nome umano.
> > Per me era più simpatico ma in molti NG su questo soggeto si litigano.
> >
> > In questi tempi passati, "LBO" era vistoso.
> > ...non solo per il suo pseudonimo. ;-)
> >...
> ...non ho capito il senso del tuo msg. Potresti
> spiegarti meglio?
Beh, provo e spero che il mio italiano è sufficente.
Hanno discutato di essere rigoroso che riguardo una cosa formale
come il quoting e mi meraviglio del fatto che invece tanta gente
qui usa un pseudonimo che mi sembra un po impersonale e
insolito per un NG tecnico.
Conosco molti NG su Access e altri NG tecnici (anche versione
di Netiquette) in lingue diverse dove quasi tutta la gente usa il
suo nome proprio e i pseudonimi sono malvisto o al massimo
tollerato (p.e. non tutti rispondono).
Qui invece è una cosa normale di nominarsi quasi in modo chat.
Nel frattempo è persino la maggioranza delle partecipanti di icaa.
Forse nei tutti NG italiani? (debbo verificare una volta)
Mi chiedo un po (e altra gente chi sono qui da anni) che prima
era veramente diverso (eccezione LBO) o mi sbaglio su questo.
Ce anche una ragione più profonda:
M'interessa come un fenomeno culturale perché studio la scienza
di comunicazione e nei mesi prossimi voglio scrivere finalmente
(dopo decenii;-) la mia tesi per l'università che si tratta sui NG.
Forse posso usare queste differenze culturali nel comportamento
e nelle regole.



title: scusate

author: Antonio Biso

text:
Karl Donaubauer <
ad...@donkarl.com
> wrote in message
9om143$ecgp9$1...@ID-46617.news.dfncis.de...
> stwe <
st...@stwe.org
> ha scritto:
> Mi chiedo un po (e altra gente chi sono qui da anni) che prima
> era veramente diverso (eccezione LBO) o mi sbaglio su questo.
Beh, Lbo era proprio il suo vero nome...
Antonio


title: scusate

text:
"Antonio Biso" ha scritto:
> Beh, Lbo era proprio il suo vero nome...
Certo, e il tuo č Abi, Abo o Anb.
No, il suo vero nome ho saputo non prima che abbiamo
cambiato qualche Email.
--
cu
Kdo



title: scusate

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:9ol6nj$drhrl$2...@ID-46617.news.dfncis.de...

io uso Hellas solo perché sono di verona ma di calcio me ne intendo poco sia
ben chiaro (anche di access se è per questo)
ciao


title: scusate

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:9om143$ecgp9$1...@ID-46617.news.dfncis.de...

complimenti per il tuo italiano, è certamente meglio del mio, ad ogni modo è
vero che in italia abbiamo la nick-mania, il motivo secondo me è che siamo
"inglesizzatimalamente" e allora cerchiamo di imitare gli americani... poi
secondo me c'è il "problema" privacy che quà da qualche anno è molto
sentito, ed infine ma non meno importante, noi italiani con nick strani ci
sentiamo un po' pirati informatici. spero di aver reso la mia idea
sull'argomento.
mentre invece io, ossia "moi" sono Stefano Muzzin e vivo in quel di
Villanova d'Asti in Piemonte... dimeticavo ho 27 anni portati bene.
il mio nick è scemo non è altro che un errore di battitura le lettere W ed E
sono vicine sulla tastiera ed invece di STE una volta (giocando in rete a
Quake... e tutti i miei amici avevano nick "cattivi" del genere di cui
sopra...) ho digitato STWE, mi ci sono affezionato ed mi è rimasto
appiccicato... tutto quà
by
stwe


title: scusate

author: The-real-Isaac

text:
"Hellas" <
torot...@tiscalinet.it
> ha scritto nel messaggio
news:9oobq5$45t$1...@lacerta.tiscalinet.it...

Avevo sospettato che tu fossi di Verona - sommando Hellas a Torototela .
Anch'io sono di Verona ed ho cominciato firmandomi con il mio nome
(Alberto). Poi è saltato fuori un altro Alberto, allora ho scelto Isaac (in
onore del grande Asimov); ovviamente è saltato fuori un altro Isaac - ha
fatto al massimo due messaggi . Il nick attuale me lo ha suggerito mia
figlia (ha parafrasato qualcosa di Eminem, credo).
Ciao
--
Alberto


title: scusate

text:
"The-real-Isaac" <sartori.rossi.nospam@tin> ha scritto nel messaggio
news:PNis7.71132$dJ3.5...@news1.tin.it...

Posso tenere il mio nick ci sono affezzionato se è il nome che volete eccolo
Matteo Tortella anni 27