title: da Access aprire applic. Access

author: Maurizio Giri

text:
Un saluto a tutti, vengo subito al dunque
Vorrei aprire da un pulsante di una maschera di Access un'altra applicazione
di Access
Ho ptovato aprire un'applicazione di Excel:
stAppName = "Excel.exe C:\Documenti\pippo.xls" (mi funziona)
mentre:
stAppName = "Access.exe C:\Documenti\pippo.mdb" (non funziona)
come mai?
Maurizio


title: da Access aprire applic. Access

author: Massimo

text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:9rracm$11l$1...@fe1.cs.interbusiness.it...

semplice, esegibile di access non è come hai indicato tu  ma è MSaccess.exe
quindi
stAppName = "MSAccess.exe C:\Documenti\pippo.mdb"


title: da Access aprire applic. Access

text:
ti ringrazio per l'aiutino
Maurizio
Massimo <
ron...@libero.it
> wrote in message
CuaE7.21330$7A4.1...@news.infostrada.it...
>
> "Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
> news:9rracm$11l$1...@fe1.cs.interbusiness.it...
> > Un saluto a tutti, vengo subito al dunque
> > Vorrei aprire da un pulsante di una maschera di Access un'altra
> applicazione
> > di Access
> > Ho ptovato aprire un'applicazione di Excel:
> > stAppName = "Excel.exe C:\Documenti\pippo.xls" (mi funziona)
> > mentre:
> > stAppName = "Access.exe C:\Documenti\pippo.mdb" (non funziona)
> > come mai?
> >
> semplice, esegibile di access non č come hai indicato tu  ma č



title: da Access aprire applic. Access

author: The-real-Isaac

text:
"Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
news:9rru3t$14p$1...@fe2.cs.interbusiness.it...
> ti ringrazio per l'aiutino
> Maurizio
>
[CUT]
> > semplice, esegibile di access non è come hai indicato tu  ma è
> MSaccess.exe
> > quindi
> >
> > stAppName = "MSAccess.exe C:\Documenti\pippo.mdb"
Per favore non usare quell'orribile termine (aiutino) ....... e già che ci
sono - ma non vorrei rubare il lavoro ad altri - rispondi dopo il quoting.
Alberto


title: da Access aprire applic. Access

author: Silvio Berruti

text:
"The-real-Isaac" <sartori.rossi.nospam@tin> ha scritto nel messaggio
news:dlhE7.3846$zu5.1...@news1.tin.it...
> "Maurizio Giri" <
mg...@omniway.sm
> ha scritto nel messaggio
> news:9rru3t$14p$1...@fe2.cs.interbusiness.it...
> > ti ringrazio per l'aiutino
> > Maurizio
> >
> [CUT]
> Per favore non usare quell'orribile termine (aiutino) ....... e gią che ci
> sono - ma non vorrei rubare il lavoro ad altri - rispondi dopo il quoting.
>
> Alberto
Anzi, se ci impegniamo tutti a correggere questo involontario modo di
rispondere, sarą + semplice ottenere un buon risultato.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Eliminare pulsanti ridimensionamento

author: peter

text:
Come fare ad eliminare i tastini in alto a destra di ridimensionamento delle
maschere aperte ( se la maschera rimane aperta quando ne vengono aperte
altre mi si incasina il database).
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Eliminare pulsanti ridimensionamento

author: ALESSANDRO Baraldi

text:
"peter" <
pier...@inwind.it
> ha scritto nel messaggio
news:151Z96Z0Z8Y10...@usenet.libero.it...
> Come fare ad eliminare i tastini in alto a destra di ridimensionamento
delle
> maschere aperte ( se la maschera rimane aperta quando ne vengono aperte
> altre mi si incasina il database).
>
> Grazie
Nelle proprietà di Maschera trovi in fila:
Casella Menù Controllo=Si/No
Pulsanti Ingrandimento/Riduzione=Nessuno/Entrambi.....!!!
Pulsante di Chiusura=Si/No
Ciao.
@Alex.


title: Eliminare pulsanti ridimensionamento

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


title: Eliminare pulsanti ridimensionamento

text:
Il 31 Mag 2004, 18:30, "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto:
>

Grazie Alex,
ma è rimasto solo un problema: ho deselezionato tutte le opzioni
che mi hai indicato e tutti i pulsanti spariscono.L' unico problema è che
nella barra in alto compare un pulsantino "ripristina finestra " che li fa
ritornare. Come eliminarlo ?



title: Eliminare pulsanti ridimensionamento

author: Alessandro Baraldi

text:
"peter" <
pier...@inwind.it
> wrote in message
news:151Z96Z0Z8Y10...@usenet.libero.it
[CUT]
>
> Grazie Alex,
> ma č rimasto solo un problema: ho deselezionato tutte le opzioni
> che mi hai indicato e tutti i pulsanti spariscono.L' unico problema č che
> nella barra in alto compare un pulsantino "ripristina finestra " che li fa
> ritornare. Come eliminarlo ?
No, o almeno da me il ripristina Finestra č relativo alla barra
di Access e non ha influenza sulla Form.
Nel mio caso non tornano e non c'č verso di farli tornare,
non sň in effetti il problema al quale accenni da cosa possa dipendere.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: frees

text:
Ricerco funzione access per il test della partita iva
grazie


text:
"frees" <
fr...@hotmail.com
> ha scritto nel messaggio
news:o0Kk7.65748$vC1.9...@news1.tin.it...
> Ricerco funzione access per il test della partita iva
La trovi sul Sito Comune.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Ricerco funzione access per il test della partita iva

text:
Molte Grazie... Ciao
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:66Kk7.20015$MO.7...@news.infostrada.it...



title: consigli su prestazioni query

author: tmtube

text:
su un pc I7 è immediata mentre su un pc atom d410 1,66 ghz ci impiega 12
secondi buoni, secondo voi come potrei ottimizzare la query qui sotto?

*** inizio query ***

SELECT AbbonamentiCorsi.IdCorsoDettaglio, Allievi.PercorsoFoto, [nome] & " "
& [cognome] AS nomecognome, Allievi.Cap, Abbonamenti.Id, Abbonamenti.Attivo,
CorsiSedi.Comune, CorsiGiorni.Ordine, CorsiDettagli.Aula,
CorsiDettagli.Giorno, Format$(corsidettagli!OrarioDalle,"
hh.mm
") & "-" &
Format$(corsidettagli!Orarioalle,"
hh.mm
") AS Orario,
CorsiDettagli.OrarioDalle, AbbonamentiCorsi.IdCorso,
CorsiDettagli.OrarioAlle, AbbonamentiCorsi.IdAbbonamento,
AbbonamentiTipo.Sigla, AbbonamentiTipo.Scadenza,
AbbonamentiTipo.Descrizione, Corsi.Sigla, Corsi.Descrizione,
AbbonamentiTipo.QuantiCorsi, CorsiDettagli.Livello, Allievi.Tessera,
Allievi.Nome, Allievi.Cognome, Allievi.Indirizzo, Allievi.Comune
FROM ((((((AbbonamentiCorsi LEFT JOIN Abbonamenti ON
AbbonamentiCorsi.IdAbbonamento = Abbonamenti.Id) LEFT JOIN Corsi ON
AbbonamentiCorsi.IdCorso = Corsi.Id) LEFT JOIN CorsiDettagli ON
AbbonamentiCorsi.IdCorsoDettaglio = CorsiDettagli.Id) LEFT JOIN CorsiSedi ON
CorsiDettagli.IdSede = CorsiSedi.Id) LEFT JOIN Allievi ON
Abbonamenti.IdAllievo = Allievi.Id) LEFT JOIN AbbonamentiTipo ON
Abbonamenti.IdAbbonamento = AbbonamentiTipo.Id) LEFT JOIN CorsiGiorni ON
CorsiDettagli.Giorno = CorsiGiorni.Giorni
WHERE (((Abbonamenti.Attivo)=-1))
ORDER BY CorsiSedi.Comune, CorsiGiorni.Ordine, CorsiDettagli.Aula,
Format$(corsidettagli!OrarioDalle,"
hh.mm
") & "-" &
Format$(corsidettagli!Orarioalle,"
hh.mm
"), AbbonamentiCorsi.IdCorso;

*** fine query ***


title: applic. filtro

author: ari

text:
Cerco un' anima gentile che mi aiuti a risolvere una impostazione:
Ho creato una maschera per l'inserimento di dati. Vorrei poter applicare il
"filtro in base a maschera"  e il relativo "applica filtro" con semplice
tasto funzione o altro tasto della tastiera, senza ricorrere al mouse e
dover cliccare sui relativi comandi sulla barra degli strumenti. Come si puň
abbinare questi comandi ad uno o piů tasti ?
        Grazie
                                    Arianna


title: applic. filtro

author: RoDAgo

text:
"ari" ha scritto nel messaggio...

Creati un pulsante nella maschera e nell'evento su click inserisci:
on error goto fine
    DoCmd.RunCommand acCmdFilterByForm
    exit sub
fine:
msgbox err.description
Poi nella tua macro Autokeys (se non l'hai giŕ creata e non sai di cosa si
tratta puň dare un'occhiata nell'help) magari su tasto F7, imposta l'azione
EseguiComando, ApplicaFiltroOrdina.
Ti consiglio di dare la possibilitŕ all'utente di Rimuovere il filtro,
seguendo la logica sopraespressa  potresti aggiungere sempre nell'autokeys
(per esempio sfruttando il tasto F6) l'azione EseguiComando,
RimuoviFiltroOrdina.
Attenzione, nel caso in cui l'utente premesse F6 per rimuovere il filtro, ma
precedentemente non č stato applicato alcun filtro, Access va in errore.
A questo punto ti consiglio di inserire in un modulo questa piccola
Funzioncina:
Public Function RimuoviFiltro()
    On Error GoTo fine
        DoCmd.ShowAllRecords
fine:
    Exit Function
End Function
E quindi nella macro Autokeys, in corrispondenza di F6, non richiamerai il
comando RimuoviFil... ma il codice sopra riportato, cioč:
NomeMacro    Azione              NomeFunz..
{F6}               EseguiCodice    RimuoviFiltro()
In ogni caso tieni presente che se vuoi distribuire il tuo database con ODE,
il filtro in base a maschera non funge.
Cercati dei metodi alternativi (comando Trova, filtri con Sql, ...) se hai
intenzione di creare qlcs di piů professionale.
Ciŕ RoDAgo


title: applic. filtro

text:
"RoDAgo"  ha scritto nel messaggio ...
Dimenticavo di dirti che per richiamarti il filtroinbaseamaschera puoi
scegliere come già detto un pulsante di comando (in questo caso per non far
utilizzare il mouse all'utente ti basta per esempio mettere nella Caption
del pulsante di comando: &Ricerche  In questo modo all'utente bastera
premere Alt+R) o utilizzare la Autokeys come già consigliato per
l'applicazione e la rimozione del filtro.
Cià RoDAgo


title: applic. filtro

author: warp

text:
ari ha scritto nel messaggio <92vkcq$705$
1...@serv1.iunet.it
>...

Il Grande RoDAgo penso ti abbia pienamente accontentata/o.
Prenderei in considerazione anche un'altra strada perň: creare un menů di scelta rapida contentente
i filtri in base a selezione e l'incomparabile "Filtro Per".
Dopodichč lo assegni alle opzioni d'Avvio dell'applicazione ("Barra menů scelta Rapida").
In tal modo ti posizioni su un qualunque campo di una maschera continua/Subform, premi il tasto
destro del mouse e hai a disposizione i filtri piů funzionali e potenti del mondo! :-)
Ciao, warp


title: Ricerche con combo

author: SuperPippo®

text:
brevemente se inserisco in una Maschera una combo con origine
una Tabella Anagrafe e 2 campi Cognome e Nome...
come posso fare la ricerca su entrambi i campi...
esempio devo digitare nella combo Rossi Pietro e mi deve uscire il
record corrispomdente...
ciao
--
SuperPippo®   [;o))


title: Ricerche con combo

author: Ivan

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:5fSb8.12146$eD3.5...@twister1.libero.it...

la soluzione più semplice sarebbe di avere come origine riga [COGNOME] & " "
& [NOME]
cioè un solo campo.
Questo ti obbliga a digitare tutto il COGNOME prima di immettere una parte
del NOME, comunque con F4 puoi entrare in scorrimento della Combo e
selezionare la riga interessata da tastiera tramite i tasti cursore.
van


title: Ricerche con combo

text:
"Ivan" <
ivan...@tin.it
> ha scritto nel messaggio
news:0WSb8.81001$3J1.2...@news2.tin.it...

---------------->
grazie ... funziona perfettamente
a questo punto ti chiedo... se facessi una combo con Cognome , Nome,
un Codice e la data di Nascita
posso applicare uno di questi criteri di ricerca usando solo
una combo..???
dato che ora ne ho una per cognome nome, un'altra per il codice
ed una per la data di nascita....
infine... come mai non funziona nelle combo il carattere Jolly ??
se cercassi Rossi* non dovrebbe darmi tutti i Rossi ???
grazie e ciao...
SELECT DISTINCTROW [Anagrafe].[ID_assistito], [Anagrafe].[Cognome] &" " &
[Anagrafe].[Nome] FROM [Anagrafe];


title: Ricerche con combo

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:AX8c8.16371$eD3.6...@twister1.libero.it...

ciao SuperPippo(TradeMark as simbol type Unknown),
io penso che tu veda le combo come la soluzione migliore, ma dovresti forse
affidarti ad una visualizzazione griglia a cui apporre filtri con maschera o
filtri normali. In questa maniera potresti usare i caratteri Jolly.
Un altra soluzione è crearti, da codice, un compositore di query specifica
che filtri i tuoi dati, anche qui potresti gestire i caratteri jolly ed
anche altre piccole amenità che vengono in mente, a volte ... nelle notti
tempestose, a tutti coloro che spremono il massimo dalle loro applicazioni.
Le combo hanno il vantaggio dell'autofill (penso si chiami cos' : il
riempimento automatico) ti portano vicino al dato che cerchi. Per cercare su
più campi dovresti avere altrettante combo puntate al campo, o per lo meno
un selettore (un'altra combo) che diriga l'origine riga della tua combo in
maniera adeguata.
Maniere e modi ce ne sono a bizzeffe. Se curi l'estetica hai da lavorare di
più. Se miri alla ricerca allora puoi usare i potenti mezzi di Access con
pochissimi aggiustamenti.
Ciao   van


title: Ricerche con combo

text:
"Ivan" <
ivan...@tin.it
> ha scritto nel messaggio
news:LcAc8.1230$5e4....@news2.tin.it...
>
[SuperCut]
> Maniere e modi ce ne sono a bizzeffe. Se curi l'estetica hai da lavorare
di
> più. Se miri alla ricerca allora puoi usare i potenti mezzi di Access con
> pochissimi aggiustamenti.
>
> Ciao   Ivan
----------------------->
Inteso perfettamente.... cmq per ora mi accontento di questa soluzione
che oltremodo funziona benissimo.... se avrò la necessità.... mi spremerò le
meningi.... ciao e grazie...
--
SuperPippo®   [;o))


title: Access 2000

author: Max

text:
Stò sviluppando una applicazione intranet usufruita da un centinaio di
utenti.
Sul server c'e' win 2000 server+iis.
Il carico di utenti concorrenti dovrebbero essere 3/4 in update e 10/15 in
visualizzazione.
Usando odbc come driver, access 2000 reggerà il carico?
Tnks.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Access 2000

text:
"Max" <
> Stò sviluppando una applicazione intranet usufruita da un centinaio di
> utenti.
> Sul server c'e' win 2000 server+iis.
> Il carico di utenti concorrenti dovrebbero essere 3/4 in update e 10/15 in
> visualizzazione.
> Usando odbc come driver, access 2000 reggerà il carico?
Perchè no?
Non sta scritto da nessuna parte che si debba sfruttare ODBC come semplice
filtro, mantenendo una logica applicativa da software monoutente e abusando
di armenicoli ad alto costo  _vedi combo e strutture master-detail_
Hai a disposizione gli strumenti che ti servono per caricare poco i clients
e far lavorare come dovuto il server, basta sfruttarli.
Alcuni links per approfondire.
http://support.microsoft.com/default.aspx?scid=kb;EN-US;209091
http://support.microsoft.com/default.aspx?scid=KB;en-us;q164481
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q199708
Ciao!


title: Access 2000

text:
"Max" <
> Stò sviluppando una applicazione intranet usufruita da un centinaio di
> utenti.
> Sul server c'e' win 2000 server+iis.
> Il carico di utenti concorrenti dovrebbero essere 3/4 in update e 10/15 in
> visualizzazione.
> Usando odbc come driver, access 2000 reggerà il carico?
Però rileggendo il post, probabilmente ho frainteso.
Intenderesti utilizzare un normale .mdb come base dati?
Ciao.


title: automatismo per cancellazione

author: Barby

text:
Ancora qui con un dubbio:
ho una tabella con vari "valori" impostati per data di inserimento. Onde
evitare di riempire il DB di dati inutili oltre una certa data, vorrei
trovare il modo di dire al mio programmino, "semplicemente spingendo un
bottone", di cancellare i dati presenti compresi tra due date, o, meglio
ancora, compresi tra la data di ultima cancellazione (se si puo' memorizzare
in automatico) e quella impostata.
...Sono una noefita con GRANDI aspirazioni!...
Grazie mille.
nota: vado in ferie per una settimana, se non ringrazio per la risposta lo
faro'...tra 8 giorni!
Barbara


title: automatismo per cancellazione

author: Roberto dalla campagna

text:
"Barby" <
miap...@tin.it
> ha scritto nel messaggio
news:1JeSe.10944$O6.5...@news3.tin.it...
> Ancora qui con un dubbio:
>
> ho una tabella con vari "valori" impostati per data di inserimento. Onde
> evitare di riempire il DB di dati inutili oltre una certa data, vorrei
> trovare il modo di dire al mio programmino, "semplicemente spingendo un
> bottone", di cancellare i dati presenti compresi tra due date,
A fronte dell'evento "Su clic" del tuo "bottone", che però in Access si
chiama "pulsante di comando", apri in modale una maschera popup nella quale
digiterai le due date che delimitano il periodo; a fronte dell'evento "Su
chiusura" di tale maschera cancella dalla tua tabella, usando una query di
cancellazione, i record compresi tra le due date.
> o, meglio
> ancora, compresi tra la data di ultima cancellazione (se si puo'
memorizzare
> in automatico) e quella impostata.
Dopo la cancellazione puoi memorizzare in una tabella monocampo e monorecord
la data di sistema che poi andrai a rileggere quando ripigerai il tuo
"bottone".
> ...Sono una noefita con GRANDI aspirazioni!...
Per "apirare" penso però che tu debba prima studiare almeno i fondamentali
di Access e di VBA, altrimenti la vedo brutta. ;-)
Un conto è usare Access in maniera interattiva ed un altro conto è
programmarlo: la differenza è la stessa che c'è tra guidare un'auto e
costruirla.
> Grazie mille.
> nota: vado in ferie per una settimana, se non ringrazio per la risposta lo
> faro'...tra 8 giorni!
Buone ferie!
> Barbara
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Maschera/Select Case/trasferire in Excel

author: Enzo

text:
Ho scopiazzato questo codice da Nortwind.
Vorrei in una maschera dare l'opzione di stampare i report  o trasferire i
dati in
excel.
Sono riuscito solo nella prima operazione :(
chi mi da una mano ?
Sub StampaReport(PrintMode As Integer)
    ' Routine utilizzata nelle routine Sub Anteprima_Click e Stampa_Click.
    ' Dal gruppo di opzioni ReportDaStampare è possibile selezionare
Anteprima e Stampa report.
    ' Quindi chiude la maschera Finestra Report vendite.
    Select Case Me!ReportDaStampare
        Case 1
            DoCmd.OpenReport "Tutto il personale", PrintMode
        Case 2
            DoCmd.OpenReport "Personale I-III", PrintMode
        Case 3
            DoCmd.OpenReport "Personale IV-VIII", PrintMode
        Case 4
            DoCmd.OpenReport "Personale a tempo Indeterminato", PrintMode
       Case 5
            DoCmd.OpenReport "Personale a tempo Determinato", PrintMode
       Case 5
            DoCmd.OpenReport "Coordinatori", PrintMode
       Case 6
            DoCmd.OpenReport "Indennità Annua", PrintMode
       Case 7
            DoCmd.OpenReport "Liquidazione", PrintMode
      Case 8
            DoCmd.OpenReport "Tredicesima", PrintMode
    End Select
End Sub
Private Sub Stampa_Click()
' Stampa il report selezionato. La routine utilizza la subroutine
' StampaReport definita nella sezione (generale) di questo modulo.
    StampaReport acNormal
End Sub
 Sub PerExcel()
Select Case Me!ReportDaStampare
        Case 1
            DoCmd.TransferSpreadsheet "Tutto il personale"
        Case 2
            DoCmd.OpenReport "Personale I-III"
        Case 3
            DoCmd.OpenReport "Personale IV-VIII"
        Case 4
            DoCmd.OpenReport "Personale a tempo Indeterminato"
       Case 5
            DoCmd.OpenReport "Personale a tempo Determinato"
       Case 5
            DoCmd.OpenReport "Coordinatori"
       Case 6
            DoCmd.OpenReport "Indennità Annua"
       Case 7
            DoCmd.OpenReport "Liquidazione"
      Case 8
            DoCmd.OpenReport "Tredicesima"
             End Select
End Sub
Private Sub Comando29_Click() ' è il pulsante di comando sulla maschera con
il quale vorrei trasferire il report in Excel
End Sub
--
------


author: Alessandro Cara

text:
Enzo wrote:
>
> Ho scopiazzato questo codice da Nortwind.
> Vorrei in una maschera dare l'opzione di stampare i report  o trasferire i
> dati in
> excel.
> Sono riuscito solo nella prima operazione
questo e' comando da utilizzare
DoCmd.OutputTo acOutputReport, "NomedelReport", acFormatXLS,
"Nomedelfile.xls", True
sostituire i nomi
"Nomedelreport"
ed eventualmente
"Nomedelfile.xls"
--
a.cara
Togli qualcosa dall'email


text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3DDB9161...@blunet.it...


funziona (grazie!),soltanto che dopo aver creato il file excel, quando vado
a salvarlo
, mi  chiede  se voglio convertirlo in excel 10 visto
che il file è in formato excel 5.
Posso evitare questo passaggio ?
come faccio a dirgli di creare direttamente un file excel 10 ?
Altro problema :
anche se seleziono il pulsante di comando Perexcel, il record viene stampato
lo stesso ,
posto tutto il codice  :
Sub StampaReport(PrintMode As Integer)
    Select Case Me!ReportDaStampare
        Case 1
            DoCmd.OpenReport "Tutto il personale", PrintMode
        Case 2
            DoCmd.OpenReport "Personale I-III", PrintMode
    End Select
End Sub
Private Sub Stampa_Click()
    StampaReport acNormal
End Sub
   Sub PerExcel()
   Select Case Me!ReportDaStampare
   Case 1
   DoCmd.OutputTo acOutputReport, "Tutto il personale", acFormatXLS,
"1.xls", True
   Case 2
   DoCmd.OutputTo acOutputReport, "Personale I-III", acFormatXLS, "2.xls",
             End Select
End Sub
Private Sub Comando29_Click() ' è il pulsante di comando sulla maschera con
il quale vorrei trasferire il report in Excel
PerExcel
End Sub


title: Cambio del nome di una tabella

text:
Salve a tutto l'NG
Volevo sapere se è possibile cambiare il nome ad una tabella con un
comando che aggiorni poi tutti i collegamenti a query, maschere e report
Grazie
Giulio
--
Posted from 195.103.141.40 by way of
smtp2.libero.it
 [193.70.192.52]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Cambio del nome di una tabella

author: Federico Luciani

text:
"
gar...@libero.it
" wrote:
> Salve a tutto l'NG
> Volevo sapere se è possibile cambiare il nome ad una tabella con un
> comando che aggiorni poi tutti i collegamenti a query, maschere e report
> Grazie
> Giulio
certo che e' possibile, ma non e' un giochetto da ragazzi, la cosa e'
abbastanza complessa.
se questa operazione deve essere eseguita una tantum, ti consiglio di guardare,
sul Sito comune, la faq di Coronati/Sib (sez. General):
'Verifica se una tabella o una query è usata in una form o in un report.'
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: database di una bibliografia

author: papesatan

text:
Ciao a tutti, premetto che di database so pochissimo. Avrei necessità
di creare un database di una bibliografia interrogabile per titolo
autore e keyword. Tutto questo poi dovrebbe andare su una pagina web
che sto creando e che dorebbe essere interrogabile tramite motore di
ricerca. Potete dirmi se è possibile fare un database di questo tipo
con MS access e cosa dovrei studiare per imparare a farlo?
Grazie
Titti


title: database di una bibliografia

author: Luciano (DOC)

text:
papesatan ha scritto nel messaggio ...

DB relazionali e ASP.
Saluti.
Luciano


title: Criterio di ricerca

author: mau

text:
Dovrei estrarre da una tabella una serie di interventi che si situano
tra le ore 23:00 e le ore 07:00. Il campo dove si trova
quest'informazione è un campo "dataora". Ho provato a dare come
criterio: "beetween 23:00:00 and 07:00:00" ma non mi restituisce
nessun valore, in cosa sbaglio?
Ciao Mau


title: Criterio di ricerca

author: Ammammata

text:
mau <
mau...@ticino.com
> wrote in
news:1180185206.7...@g4g2000hsf.googlegroups.com
:

io farei (con la corretta sintassi):
(between 23.00 and 23.59) OR (between 00.00 and 07.00)
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
http://boinc.mundayweb.com/one/stats.php?userID=2762


title: Criterio di ricerca

text:
On 26 Mag, 16:04, Ammammata <
ammamm...@tiscalinet.it
> wrote:

Provato ma non funziona :(


title: Criterio di ricerca

text:

Il campo di tipo dataora contiene anche la data.
Dovresti confrontare quindi solo la parte "time"
Una cosa del genere dovrebbe funzionare
  format(campodata,"hh:mm") between "07:00" and "23:00"
In questo caso i dati in confronto sono di tipo carattere
--
ac
y-1=x


title: Criterio di ricerca

author: Bruno Campanini

text:
"mau" <
mau...@ticino.com
> wrote in message
news:1180185206.7...@g4g2000hsf.googlegroups.com...

Ciao Mau
------------------------------------------------------
Between #5/29/2007 23:00:00# And #5/30/2007 07:00:00#
La data, nella stringa SQL, va inserita nel formato mm/dd/yyyy.
Nella griglia QBE puoi inserirla nel formato dd/mm/yyyy.
Se poi ti interessano i record che portano un tempo compreso
fra due orari indipendentemente dalla data... allora
ti occorrono due campi Date/Time: uno per la data, uno per l'ora.
Se poi ancora con "dalle 23:00 alle 07:00" s'intende, com'è
logico, dalle 23:00 di un giorno alle 07:00 del giorno successivo,
ti occorre precisare la data, diversamente con
Between #23:00:00# And #07:00:00# s'intende anche dalle 07:00
alle 23:00.
È un bel pasticcio.
Bruno


title: Criterio di ricerca

text:
On 29 Mag, 18:40, "Bruno Campanini" <
B...@gmail.com
> wrote:
> "mau" <
maur...@ticino.com
> wrote in message

Il problema che la tabella non la posso modificare, è una tabella che
collego da un altro programma non creato da me. Che soluzioni pensi
che potrei adottare?
Ciao


title: Criterio di ricerca

text:
"mau" <
mau...@ticino.com
> wrote in message
news:1180504105.4...@w5g2000hsg.googlegroups.com...
Il problema che la tabella non la posso modificare, è una tabella che
collego da un altro programma non creato da me. Che soluzioni pensi
che potrei adottare?
-------------------------------------------------------
Se dai campi formattati Date/Time riesci a leggere sia la data
sia l'ora potresti crearti una tabella di passaggio con due campi
(Data e Ora) e lavorare su quella.
Bruno


title: [OT] risultati calcio recupero Serie A

author: Peo

text:
Scusate, so che a molti il calcio fa schifo, ma a chi fosse interessato ed è
costretto a lavorare ricordo che oggi alle 15:00 si è giocato il recupero
della 6° (credo) giornata di serie A.
Le partite sono appena terminate.
Vi dico solo che Ronaldo ha segnato una doppietta...
Trovate i risultati su
www.studiopasquali.it/serieA.htm
Ciao a tutti
Peo
www.studiopasquali.it


title: Tabella con sigle e nazioni

author: Giulio Simeone

text:
Dove posso trovare una tabella "prefabbricata" con l' elenco delle nazioni
e delle loro sigle (es. Italia ITA; Gran Bretagna GBR). Qualcuno di voi ce
l'ha?
Tante grazie!
          GS
www.websamba.com/Giulio_Roma
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Tabella con sigle e nazioni

author: access il top

text:
"Giulio Simeone" <
viandan...@yahoo.it
> ha scritto nel messaggio
news:csjkun$k1l$1...@news.newsland.it...

nel sitocomune nella sezione risorse il primo link dice dove recuperare
delle tabelle riguardo abi comuni nazioni ecc


title: Tabella con sigle e nazioni

text:
access il top
> nel sitocomune nella sezione risorse il primo link dice dove recuperare
> delle tabelle riguardo abi comuni nazioni ecc
Grazie ma quello che cerco io non c'č: ci sono solo delle sigle che
servono per comporre i codici fiscali.
Ciao
     GS



title: associare icona ad un record

author: Lismax

text:
Ho visto in alcuni programmi scritti in A97 maschere in modalità fogliodati
con records associati ad icone, che variano in funzione di un campo del
record.
L'associazione tra record e icona avviene probabilmente attraverso una query
ma come si fa a visualizzare in modalità fogliodati il record e l'icona su
di un'unica riga ?
Grazie in anticipo.


title: Query via VBA

author: Wreci

text:
Grazie mille Emyr, ora mi sto mettendo di impegno per risolvere questi
problemi.
Sono riuscito a scrivere del codice per estrarre le singole parole della
stringa, ma non so come inserire da codice i criteri nella query per
filtrare i record nella form della query che ho messo in visualizzazione
foglio dati.
I need help....


title: Query via VBA

author: Emyr

text:


non penso ti convenga usarla su query bensi devi crearti una tabella
di appoggio temporanea sempre via VBA
per farla via query dovresti generare la stringa sql della query via
codice
Saluti.
Emanuele.


title: Query via VBA

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:2n1r6vkhd800sgium...@4ax.com...

ehm... per essere piů chiari?
Io potrei creare anche la stringa sql via VBA ma poi come la applico?
Ho provato a scriverne una per prova nel campo filtro della maschera ma non
lo applica...
Come potrei fare per usare la tabella temporanea?
>
> Saluti.
> Emanuele.


title: Query via VBA


title: Query via VBA

text:
On Tue, 11 Mar 2003 19:16:16 GMT, "Wreci" <
wr...@hotmail.com
> wrote:
>
>"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
>news:2n1r6vkhd800sgium...@4ax.com...
>> On Mon, 10 Mar 2003 20:42:27 GMT, "Wreci" <
wr...@hotmail.com
> wrote:
>>
>> >Grazie mille Emyr, ora mi sto mettendo di impegno per risolvere questi
>> >problemi.
>> >Sono riuscito a scrivere del codice per estrarre le singole parole della
>> >stringa, ma non so come inserire da codice i criteri nella query per
>> >filtrare i record nella form della query che ho messo in visualizzazione
>> >foglio dati.
>> >I need help....
>> >
>>
>>
>>
>>
>> non penso ti convenga usarla su query bensi devi crearti una tabella
>> di appoggio temporanea sempre via VBA
>>
>> per farla via query dovresti generare la stringa sql della query via
>> codice
>
>ehm... per essere più chiari?
>Io potrei creare anche la stringa sql via VBA ma poi come la applico?
la usi nell'origine dati della combo che ti mostra su quali record è
già presente quella parola
>Ho provato a scriverne una per prova nel campo filtro della maschera ma non
>lo applica...
per applicare il filtro devi fare
me.filter= stringa tipo WHERE
me.filteron=true
>Come potrei fare per usare la tabella temporanea?
accodi i record trovati in una tabella temporanea che sarà l'origine
dati di un combo o di una sottomaschera che mostra in quali record è
presente quella parola
>
>>
>> Saluti.
>> Emanuele.
>
Saluti.
Emanuele.


title: Query via VBA

text:
Grazie mille Emyr, ora mi sto mettendo di impegno per risolvere questi
problemi.
Sono riuscito a scrivere del codice per estrarre le singole parole della
stringa, ma non so come inserire da codice i criteri nella query per
filtrare i record nella form della query che ho messo in visualizzazione
foglio dati.
I need help....
> non penso ti convenga usarla su query bensi devi crearti una tabella
> di appoggio temporanea sempre via VBA
>
> per farla via query dovresti generare la stringa sql della query via
> codice
ehm... per essere più chiari?
Io potrei creare anche la stringa sql via VBA ma poi come la applico?
Ho provato a scriverne una per prova nel campo filtro della maschera ma non
lo applica...
Come potrei fare per usare la tabella temporanea?
>
> Saluti.
> Emanuele.


title: accodamento racord da maschera

text:
Salve a tutti.
Domandina!
Ho una maschera dalla quale visualizzo un determinato record di una
query. Che comando posso creare per far si che il record che sto
visualizzando mi si accodi ad un'altra query?
 grazie.


title: accodamento racord da maschera

author: Roberto da casa

text:
<
stead...@tiscali.it
> ha scritto nel messaggio
news:1132571149....@g47g2000cwa.googlegroups.com...

Usa da VBA l'istruzione INSERT INTO (vedi help).
>  grazie.
Prego
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: accodamento racord da maschera

text:
Roberto da casa ha scritto:

Scusa la mia ignoranza ma sono alle primissime armi con Access...
Hai tempo e voglia di farmi un'esempio concreto?
grazie ancora!


title: accodamento racord da maschera

text:
<
stead...@tiscali.it
> ha scritto nel messaggio
news:1132574921....@g44g2000cwa.googlegroups.com...
>
> Roberto da casa ha scritto:
>
> > <
stead...@tiscali.it
> ha scritto nel messaggio
> > news:1132571149....@g47g2000cwa.googlegroups.com...
> > > Salve a tutti.
> > > Domandina!
> > >
> > > Ho una maschera dalla quale visualizzo un determinato record di una
> > > query. Che comando posso creare per far si che il record che sto
> > > visualizzando mi si accodi ad un'altra query?
> >
> > Usa da VBA l'istruzione INSERT INTO (vedi help).
> >
> > >  grazie.
> >
> > Prego
> >
> > --
> > Roberto
>
> Scusa la mia ignoranza ma sono alle primissime armi con Access...
> Hai tempo e voglia di farmi un'esempio concreto?
Ma l'help lo hai letto?
Devi usare la sintassi per la query di accodamento a record singolo, ovvero:
INSERT INTO destinazione [(campo1[, campo2[, ...]])]
VALUES (valore1[, valore2[, ...])
e al posto di valore1, valore2 ecc. metterai i riferimenti ai controlli
della maschera che contengono i dati da inserire nel record da accodare.
>
> grazie ancora!



title: Controllo a fine giornata

author: Lo

text:
Buongiorno a tutti,

come posso fare (con una routine di ciclo da attivare attraverso un pulsante in una maschera continua) a controllare che a stesso articolo corrisponda stesso prezzo del rigo precedente.
Mi spiego meglio: ho la necessità di inserire dei codici e dei prezzi. A fine giornata dovrei controllare che a stesso codice corrisponda in tutti i righi inseriti lo stesso prezzo quindi se io ho inserito per esempio

Codice  Prezzo
10       10.00
11        5.00
12        7.00
10       10.00
10       11.50

Quando clicco sul pulstante "Controllo" a fine giornata dovrebbe avvisarmi con una colorazione del rigo diversa per esempio, che l'ultimo codice inserito (Cod.10 a 11.50) ha un prezzo diverso rispetto agli altri.
E' possibile secondo voi?
Grazie per la disponibilità.

Lo


title: Controllo a fine giornata

author: Paolo opg

text:
Lo <
loza...@libero.it
> wrote in
news:a61322c8-1876-4aed...@googlegroups.com
:

> Buongiorno a tutti,
>
> come posso fare (con una routine di ciclo da attivare attraverso un
> pulsante in una maschera continua) a controllare che a stesso articolo
> corrisponda stesso prezzo del rigo precedente. Mi spiego meglio: ho la
> necessit� di inserire dei codici e dei prezzi. A fine giornata dovrei
> controllare che a stesso codice corrisponda in tutti i righi inseriti
> lo stesso prezzo quindi se io ho inserito per esempio
>
> Codice  Prezzo
> 10       10.00
> 11        5.00
> 12        7.00
> 10       10.00
> 10       11.50
>
> Quando clicco sul pulstante "Controllo" a fine giornata dovrebbe
> avvisarmi con una colorazione del rigo diversa per esempio, che
> l'ultimo codice inserito (Cod.10 a 11.50) ha un prezzo diverso
> rispetto agli altri. E' possibile secondo voi?
> Grazie per la disponibilit�.
>
> Lo

con la struttura che hai postato non lo puoi fare, perche' non c'e' un
campo che permetta di capire la giornata a cui ogni riga si riferisce.

in linea di principio e' una richiesta un po' strampalata.

con questi dati:
 Codice  Prezzo
 10       33.00
 10        5.00
 10        7.00
 10       10.00
 10       33.00
 10       10.00
 10        5.00
 10        7.00
 10       10.00
 10       33.00

per l'articolo 10 quali sono le righe 'diverse rispetto agli altri'?

e comunque piuttosto che un pulsante con del codice, e' piu' robusto e
piu' semplice un report con una sola query da eseguire a richiesta:

select codice, count(prezzo)
from [nome tabella]
where [campo data] = [la data che ti interessa]
group by codice
having count(prezzo) > 1

--
Paolo opg

BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--


title: Controllo a fine giornata

author: Pablitomf

text:
> in linea di principio e' una richiesta un po' strampalata.

e' una partita persa... guarda il 3d "Segnalazione discrepanze all'interno
di una maschera"... stesso utente, stesse mie osservazioni... nessuna
risposta :D

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.


title: sql che non funziona nelle sottomaschere

author: carla

text:
Salve,
premesso che anche se ammesso non è opportuno nominare tabelle e campi con
gli spazi (consiglio di @Alex)
ma ormai è troppo tardi per rinominare tutto!!!
Non riesco proprio a capire perche questo sql funzioni se lanciato su uscita
da txt1 che si trova all'interno della
Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI
e non funzioni se lanciato su Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI_Exit
(mi chiede di immettere il valore
[Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI.prgsoluni]
Se c'è un errore di sintassi o qualcos'altro come mai da una parte va e
dall'altra no?
Ecco il codice:
miosql = "UPDATE [TABELLA FATTURE] SET [TABELLA FATTURE].ImportoPagfat =
[Importopefattsollecitato]-[ImportoInesigfat]WHERE ((([TABELLA
FATTURE].prgsoluni)=[Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI].prgsoluni));"
DoCmd.RunSQL miosql
grazie mille
Carla


author: Sergio MAZZA

text:
"carla" <carl...@NOSPAMhotmail.com> ha scritto nel messaggio news:4368df40$0$29603$4faf...@reader3.news.tin.it...

Il riferimento al percorso per arrivare al valore contenuto nella casella di testo prgsoluni non deve essere inserito nella stringa
ma fuori perché è una variabile;
...
> FATTURE].prgsoluni)=" & Me![Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI]!prgsoluni &  "));"
...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dkb1bm$okp$1...@area.cu.mi.it...

Non riesco proprio a capire, con il tuo suggerimento adesso mi  viene fuori
questo errore: Tipi di dati non corrispondenti nell'espressione criterio.
(3464).
eppure il prgsoluni è definito come testo ovunque.
Non riesco proprio a capire perche questo sql funzioni se lanciato su uscita
da txt1 che si trova all'interno della
Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI e non funzioni se lanciato su
Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI_Exit
Come ci levo le gambe?
grazie Carla


text:
"carla" <carl...@NOSPAMhotmail.com> ha scritto nel messaggio news:436c7378$0$29601$4faf...@reader3.news.tin.it...
> Non riesco proprio a capire, con il tuo suggerimento adesso mi  viene fuori questo errore: Tipi di dati non corrispondenti
> nell'espressione criterio. (3464).
> eppure il prgsoluni è definito come testo ovunque.
> Non riesco proprio a capire perche questo sql funzioni se lanciato su uscita da txt1 che si trova all'interno della
> Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI e non funzioni se lanciato su Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI_Exit
> Come ci levo le gambe?
>
> grazie Carla
Devi racchiudere il valore stringa tra apici o doppie virgolette:
...
FATTURE].prgsoluni)='" & Me![Sottomaschera_x_masch_PRGSOL_x_PAGAMENTI]!prgsoluni &  "'));"
...
Ho inserito prima e dopo un apice...
Ciao.
--
Sergio MAZZA


title: Difficoltà nel Combo in una tabella

author: mash

text:
Ciao
Ho una tabella anagrafica clienti. incluso campi citta, prov., e Cap, Nel
campo della Città ho fatto un combo ( con la ricerca guidata sul campo
città)per ricercare la città da un altra tabella Chiamato "comuni" contenete
anche Prov . e Cap. ma vorrei rilevare e popolare anche campi seguenti cioè
[Prov.] e [cap] nella tab clienti. cioè quando ricerchi città venga
aggiornato sia il campo cap che Prov. c'è qualche alternativa? e come si può
fare? spero di essere chiaro.


title: Difficoltà nel Combo in una tabella

text:
Il 20/03/11 12.18, mash ha scritto:
> alternativa? e come si può fare? spero di essere chiaro.
l'unica cosa chiara, IMHO, è che è tutto denormalizzato e te lo hanno
già detto nell'altro thread "query di comuni"
ciao


title: Difficoltà nel Combo in una tabella

author: Alessandro Cara

text:

Come ti spiegava, in altro post uguale,  @Alex non e' *regolare* quello
che cerchi di fare. Sarebbe meglio che nell'anagrafica clienti riporti
l'id del comune ed ogni volta che ti servovo Provincia e Cap li estrai
dalla tabella Comuni, le query join servono a questo.
Comunque, se proprio vuoi ucciderti:
1) Ammettendo che che i due controlli si chiamino txtProv e txtCap e
ammettendo che nella combo hai associato anche Prov e Cap
2) Sulle'evento after o before update del combo
txtProv=combo.column(x)
txtCap =combo.column(y)
dove x, y e' la sequenza, a partire da 0, dei campi associati al combo
--
ac (x=y-1)


title: Difficoltà nel Combo in una tabella

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:uPlhp.11149$2w1...@tornado.fastwebnet.it...
> Il 20/03/2011 12.18, mash ha scritto:
>> Ciao
>> Ho una tabella anagrafica clienti. incluso campi citta, prov., e Cap,
>> Nel campo della Città ho fatto un combo ( con la ricerca guidata sul
>> campo città)per ricercare la città da un altra tabella Chiamato "comuni"
>> contenete anche Prov . e Cap. ma vorrei rilevare e popolare anche campi
>> seguenti cioè [Prov.] e [cap] nella tab clienti. cioè quando ricerchi
>> città venga aggiornato sia il campo cap che Prov. c'è qualche
>> alternativa? e come si può fare? spero di essere chiaro.
>
> Come ti spiegava, in altro post uguale,  @Alex non e' *regolare* quello
> che cerchi di fare. Sarebbe meglio che nell'anagrafica clienti riporti
> l'id del comune ed ogni volta che ti servovo Provincia e Cap li estrai
> dalla tabella Comuni, le query join servono a questo.
  Scusa se ad ogni uno volessi estrarre dati campo per campo un  qualsiasi
l'utente può incapparsi negli errori a non finire!! per semplice ragione che
ad esempio uno può inserire per Monza come prov.  MI invece di MB e via
discorrendo.non è ne logico ne ammissibile.
> Comunque, se proprio vuoi ucciderti:
> 1) Ammettendo che che i due controlli si chiamino txtProv e txtCap e
> ammettendo che nella combo hai associato anche Prov e Cap
>
> 2) Sulle'evento after o before update del combo
> txtProv=combo.column(x)
> txtCap =combo.column(y)
>
> dove x, y e' la sequenza, a partire da 0, dei campi associati al combo
Dal codice vba ho già risolto questo. A me intressava risolverelo tramite le
query e le relazioni tra le tabelle.


title: Difficoltà nel Combo in una tabella

text:
Il 20/03/2011 16.39, mash ha scritto:
>
> "Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel
> messaggio news:uPlhp.11149$2w1...@tornado.fastwebnet.it...
>> Il 20/03/2011 12.18, mash ha scritto:
>>> Ciao
>>> Ho una tabella anagrafica clienti. incluso campi citta, prov., e Cap,
>>> Nel campo della Città ho fatto un combo ( con la ricerca guidata sul
>>> campo città)per ricercare la città da un altra tabella Chiamato "comuni"
>>> contenete anche Prov . e Cap. ma vorrei rilevare e popolare anche campi
>>> seguenti cioè [Prov.] e [cap] nella tab clienti. cioè quando ricerchi
>>> città venga aggiornato sia il campo cap che Prov. c'è qualche
>>> alternativa? e come si può fare? spero di essere chiaro.
>>
>> Come ti spiegava, in altro post uguale, @Alex non e' *regolare* quello
>> che cerchi di fare. Sarebbe meglio che nell'anagrafica clienti riporti
>> l'id del comune ed ogni volta che ti servovo Provincia e Cap li estrai
>> dalla tabella Comuni, le query join servono a questo.
>
> Scusa se ad ogni uno volessi estrarre dati campo per campo un qualsiasi
> l'utente può incapparsi negli errori a non finire!! per semplice ragione
> che ad esempio uno può inserire per Monza come prov. MI invece di MB e
> via discorrendo.non è ne logico ne ammissibile.
Io in Italiano non sono sicuramente una cima ma capire quello che
intendi o che vorresti fare e' abbastanza oscuro.
Questa e' acqua calda, riferito alla coerenza Comune-Provincia-Cap,
sempre se ho compreso quello che scrivi.
>> Comunque, se proprio vuoi ucciderti:
>> 1) Ammettendo che che i due controlli si chiamino txtProv e txtCap e
>> ammettendo che nella combo hai associato anche Prov e Cap
>>
>> 2) Sulle'evento after o before update del combo
>> txtProv=combo.column(x)
>> txtCap =combo.column(y)
>>
>> dove x, y e' la sequenza, a partire da 0, dei campi associati al combo
>
> Dal codice vba ho già risolto questo. A me intressava risolverelo
> tramite le query e le relazioni tra le tabelle.
Tramite query puoi estrarre (volendo anche aggiornare o inserire) ma
come attengono i combobox con le query? E su che base vorresti
aggiornare tabella clienti?
Anche tramite relazioni, girandoci intorno (la relazione va impostata
sui tre campi uniti), lo si potrebbe fare ma, di nuovo, cosa attengono i
combobox con tutto cio'? Le  relazioni garantiscono inoltre che non
vengano immessi dati non presenti su tabella padre (in questo caso su
Clienti essendo Comuni la tabella padre)
Perche' non descrivi un attimo meglio il sistema che hai costruito e
quali sono le procedure che vorresti attuare?
P.S. I combo su tabella non esistono, esiste un controllo combo che
viene visualizzato se specificato come attributo (aggiuntivo) nella
definizione del campo e viene visualizzato a seguito di una select *
from tab che viene, di fatto, eseguita quando fai doppio click sulla
tabella. In quel caso access genera una form che visualizza i dati
formattati ma e' un *regalo* che fa access.
--
ac (x=y-1)


title: Difficoltà nel Combo in una tabella

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:IWGhp.11638$2w1....@tornado.fastwebnet.it...

Anch'io. non son italiano! Ma come hai intuito è semplice. Tabella comuni
campi: Id_citta, Città, Prov, Cap ( Id_Città contatore ,eChiave primaria)
tabella clienti: oltre agli altri campi, c'è Città, Prov, Cap Cioè Ogni
cliente avrebbe città  relativa, Prov e Cap di appartenenza
Ora Sul campo Città in clienti ho fatto una Ricerca guidata( quel campo  che
risulterebbe una combo nella maschera) che ricerca città da tab Comuni. ma
io semplicemente vorrei che mi aggiorni anche Prov, e Cap nella tabella
clienti e non solo città. faccio un esempio: se un cliente è di Monza allora
Prov.è MB e Cap è 20052 ( questi dati sono già registrati nella tab Comuni)
io  devo prelevare questa riga dalla tabella Padre mettere nella tabella
clienti, in corrispondenza a quel cliente di Monza e salvare. oppure in una
query in corrispondena della città dovrebbe apparire il suo Prov,e Cap.
ho una relazione tra Due tabelle tramite Id_citta (numerico)in Tab clienti e
Id_Citta (contatore, chiave) in Tab comuni.
Altrimenti costruire una tabella comuni non ha senso
>
>>> Comunque, se proprio vuoi ucciderti:
>>> 1) Ammettendo che che i due controlli si chiamino txtProv e txtCap e
>>> ammettendo che nella combo hai associato anche Prov e Cap
>>>
>>> 2) Sulle'evento after o before update del combo
>>> txtProv=combo.column(x)
>>> txtCap =combo.column(y)
>>>
>>> dove x, y e' la sequenza, a partire da 0, dei campi associati al combo
>>
>> Dal codice vba ho già risolto questo. A me intressava risolverelo
>> tramite le query e le relazioni tra le tabelle.
>
> Tramite query puoi estrarre (volendo anche aggiornare o inserire) ma come
> attengono i combobox con le query? E su che base vorresti aggiornare
> tabella clienti?
> Anche tramite relazioni, girandoci intorno (la relazione va impostata sui
> tre campi uniti), lo si potrebbe fare ma, di nuovo, cosa attengono i
> combobox con tutto cio'? Le  relazioni garantiscono inoltre che non
> vengano immessi dati non presenti su tabella padre (in questo caso su
> Clienti essendo Comuni la tabella padre)
> Perche' non descrivi un attimo meglio il sistema che hai costruito e quali
> sono le procedure che vorresti attuare?
Hai perfettamente ragione .  te lo spiegato appena qui sopra.
il però combobox è in una maschera in base ad una
query che ha due tabelle Clienti e comuni. sul campo clienti.Città combo fa
scegliere all'utente la città. ma non aggiorna Prov. e Cap che ci sono già
nella tabella comuni. allora io devo intervenire sulla query inserire Prov e
Cap da tabella padre Giusto? ma la difficoltà è che non li rileva.
non capisco dove l'errore.


title: Difficoltà nel Combo in una tabella

text:
"Pietro66" <
piet...@yahoo.it
> ha scritto nel messaggio
news:4d85e782$0$38641$4faf...@reader1.news.tin.it...
> Il 20/03/11 12.18, mash ha scritto:
>
>> alternativa? e come si può fare? spero di essere chiaro.
>
> l'unica cosa chiara, IMHO, è che è tutto denormalizzato
Non so se tu volessi strarre dei dati da un altra tabella cosa faresti ? non
ci vuole salti mortali,immagino. é così denormalizzato?
e te lo hanno
> già detto nell'altro thread "query di comuni"
> ciao
 Sì, Certo se l'anno detto però senza aiutarmi a risolvere il problema,
anche se non credo che sia una richiesta molto complicata.
per i gotha di access non credovo che sia difficile,se poi ho spiegato le
tabelle i campi ,relazioni, ecc.


title: Nome della Funzione corrente ...

author: Roberto La Forgia

text:
Ciao a tutti,
esiste un modo per sapere il NOME della routine (function) che č attiva
ad un certo istante?
ad esempio se ho una funzione di nome "FOO", voglio visualizzare il nome
"FOO" quando essa č chiamata.
Function FOO ()
Msgbox "nome della funzione" (cioč: FOO )
...
...
...
End Function
Mi serve a scopo di debug.
Spero di essere stato chiaro :-)
Ciao a tutti,
Roberto
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Nome della Funzione corrente ...

author: Karl Donaubauer

text:
Ciao Roberto,
Roberto La Forgia wrote:
> esiste un modo per sapere il NOME della routine (function) che č attiva
> ad un certo istante?
>
> ad esempio se ho una funzione di nome "FOO", voglio visualizzare il nome
> "FOO" quando essa č chiamata.
>
> Function FOO ()
> Msgbox "nome della funzione" (cioč: FOO )
> ...
> ...
> ...
> End Function
>
> Mi serve a scopo di debug.
>
> Spero di essere stato chiaro :-)
Sě, ma no, non si puo ottenere il nome della funzione perché
VBA non ha un metodo per l'accesso al call stack (questo che
si vede nel VBE menu View/Stack nel debug mode).
Per questo devi scrivere il nome sempre a mano.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Nome della Funzione corrente ...

author: Bruno Campanini

text:
"Roberto La Forgia" <
robertol...@virgilio.it
> wrote in message
news:ce6ec2a83f81d759116...@mygate.mailgate.org...
> Ciao a tutti,
> esiste un modo per sapere il NOME della routine (function) che è attiva
> ad un certo istante?
>
> ad esempio se ho una funzione di nome "FOO", voglio visualizzare il nome
> "FOO" quando essa è chiamata.
[...]
> Mi serve a scopo di debug.
Per lo stesso scopo (debug) uso questo sistema:
-------------------------------------------
On Error GoTo ErrorHandler
. . . . . . . . . .
. . . . . . . . . .
. . . . . . . . . .
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "Ulteriore commento
    e nome della procedura corrente"
Resume ...
----------------------------------------------
Bruno


title: Nome della Funzione corrente ...

author: Alessandro Baraldi

text:
"Roberto La Forgia" <
robertol...@virgilio.it
> wrote in message
news:ce6ec2a83f81d759116...@mygate.mailgate.org
> Ciao a tutti,
> esiste un modo per sapere il NOME della routine (function) che č attiva
> ad un certo istante?
>
> ad esempio se ho una funzione di nome "FOO", voglio visualizzare il nome
> "FOO" quando essa č chiamata.
[CUT]
> Mi serve a scopo di debug.
>
> Spero di essere stato chiaro :-)
>
> Ciao a tutti,
> Roberto
Come ti ha spiegato Karl non č possibile.
Solitamente si crea una gestione centralizzata degli errori.
Quě ognuno puň sbizzarrirsi come meglio crede.
Io nella singola gestione errori di ogni Function/Sub
gestisco una chiamata nella quale passo NomeForm,NomeFunzione
ed eventuali Parametri, quindi mando tutto ad un File di LOG
oltre che utilizzare il DEBUG nella finestra immediata.
Ciao
@Alex



title: Nome della Funzione corrente ...

text:
OK "ragazzi" mille grazie, siete sempre molto efficienti e disponibili.
Alla prossima,



title: Withevents, forms e sottoforms

author: explorer

text:
Carissimi, bentrovati e buon anno!
Grazie ai vari post consultati, son riuscito a generalizzare una
routine di ordinamento (cresc e desc) di una form continua, tramite
withevents e l'evento click delle label che sono situate
nell'intestazione della maschera e che fungono da "titolo della
colonna" (per dirla alla excel).
Fin qui tutto ok ma poi ho provato, con lo stesso codice e
procedimento, ad implementare l'ordinamento in una subform continua,
mi spiego. Ho una form non continua che al suo interno contiene la
subform continua che al click delle label in intestazione deve
ordinarsi.
Vi posto il codice utlizzato:
'nella FORM
Private Sub Form_Load()
    Call FunzioneEventiTxtCbx(Me.Name)
End Sub
'MODULO
Public Function FunzioneEventiLbl(NomeForm As String)
    Dim ClickLbl As SuEventoLbl
    Dim Ctl As Control
    For Each Ctl In Forms(NomeForm).Controls 'IL CODICE SI BLOCCA QUI
        Select Case Ctl.ControlType
        Case 100 'acLabel
            Set ClickLbl = New SuEventoLbl
            If Ctl.Tag = "ManinaTxt" Then ClickLbl.EspansioneLbl Ctl
            Istanze.Add ClickLbl
        End Select
    Next
End Function
'MODULO DI CLASSE
Option Compare Database
Option Explicit
Private WithEvents Lbl As Label
Public Controllo As Control
Public Function EspansioneLbl(Lb As Label)
    Set Lbl = Lb
    Lbl.OnClick = "[Event Procedure]"
End Function
Private Sub Lbl_Click()
    If Lbl.Tag = "ManinaTxt" Then Call DaOrdinare(Mid(Lbl.Name, 4,
Len(Lbl.Name)))
End Sub
Public Function DaOrdinare(NomeControllo As String)
On Error Resume Next
    Application.Echo False
    Dim Controllo As Control
    For Each Controllo In Screen.ActiveForm.Controls
        If Controllo.Tag = "DaOrdinare" Then
            If Controllo.Name = NomeControllo Then Controllo.ForeColor
= 6697728 '16711680
            If Controllo.Name <> NomeControllo Then
Controllo.ForeColor = 0
        End If
    Next Controllo
    Select Case Screen.ActiveForm.OrderBy
    Case NomeControllo
        Screen.ActiveForm.OrderBy = NomeControllo & " DESC"
    Case NomeControllo & " Desc"
        Screen.ActiveForm.OrderBy = NomeControllo
    Case Else
        Screen.ActiveForm.OrderBy = NomeControllo
    End Select
    Screen.ActiveForm.OrderByOn = True
    Application.Echo True
End Function
Torno a precisare che il codice postato funziona quando si è in
presenza di una sola form continua, ma quando la form è contenuta in
un'altra form (e quindi è una subform) ricevo questo errore:
Impossibile trovare la maschera 'NomeSubForm' a cui si fa riferimento
in un'espressione macro e nel codice di VB ed il codice si blocca
sull'istruzione FOR.
Spero vogliate aiutarmi nel raggiungere la soluzione!
Grazie anticipatamente
Michele


title: Withevents, forms e sottoforms

text:

A maggior informazione, ho provato ad eseguire solo la subform, senza
la form madre, e non ho ricevuto alcun errore. Quindi credo che
l'errore non sia nella sostanza del codice, ma nella forma, ovvero
sono sbagliati i riferimenti.
Grazie ancora


title: Withevents, forms e sottoforms

author: geppo

text:
Ciao "explorer" <
org...@libero.it
> ha scritto nel messaggio
news:196a73e3-931c-4e64...@k39g2000hsf.googlegroups.com...
Carissimi, bentrovati e buon anno!
Grazie ai vari post consultati, son riuscito a generalizzare una
routine di ordinamento (cresc e desc) di una form continua, tramite
withevents e l'evento click delle label che sono situate
nell'intestazione della maschera e che fungono da "titolo della
colonna" (per dirla alla excel).
Fin qui tutto ok ma poi ho provato, con lo stesso codice e
procedimento, ad implementare l'ordinamento in una subform continua,
mi spiego. Ho una form non continua che al suo interno contiene la
subform continua che al click delle label in intestazione deve
ordinarsi.
Vi posto il codice utlizzato:
'nella FORM
Private Sub Form_Load()
a quale funzione passi il nome della form?
___________________________________
    Call FunzioneEventiTxtCbx(Me.Name )
___________________________________
End Sub
'MODULO
Public Function FunzioneEventiLbl(NomeForm As String NomeSubForm as string)
    Dim ClickLbl As SuEventoLbl
    Dim Ctl As Control
Qui in che modo gli passi il nome della form e subform?
:
___________________________________________________________________________________
    For Each Ctl In Forms(NomeForm).Controls(NomeSubForm).controls  'IL
CODICE SI BLOCCA QUI
___________________________________________________________________________________








    Application.Echo True
End Function


--
Ciao
Geppo


title: Withevents, forms e sottoforms

text:

Attenzione a non confondere l'oggetto "subform" con il form contenuto in
tale oggetto ed inoltre l'insieme forms "non" vede i subform
i.e. una cosa del genere Forms(nomeform) e' errata.
--
ac
y-1=x


title: Withevents, forms e sottoforms

author: ALESSANDRO Baraldi

text:


'nella FORM

'MODULO









    Application.Echo True
End Function
Torno a precisare che il codice postato funziona quando si č in
presenza di una sola form continua, ma quando la form č contenuta in
un'altra form (e quindi č una subform) ricevo questo errore:
Impossibile trovare la maschera 'NomeSubForm' a cui si fa riferimento
in un'espressione macro e nel codice di VB ed il codice si blocca
sull'istruzione FOR.
Spero vogliate aiutarmi nel raggiungere la soluzione!
Grazie anticipatamente
Michele
[---------------------RISPOSTA---------------------]
Non ho ben capito il tutto ma mi pare manchi la ricorsione all'oggetto
Form...!
Prova a modificare questa cosě:
Public Function FunzioneEventiLbl(frm As Access.Form)
    Dim ClickLbl As SuEventoLbl
    Dim Ctl As Control
    For Each Ctl In Forms(NomeForm).Controls 'IL CODICE SI BLOCCA QUI
        Select Case Ctl.ControlType
            Case 100 'acLabel
                Set ClickLbl = New SuEventoLbl
                If Ctl.Tag = "ManinaTxt" Then ClickLbl.EspansioneLbl Ctl
                Istanze.Add ClickLbl
            Case acSubform
                Call FunzioneEventiLbl(ctl.Form)
            End Select
    Next
End Function
Chiaramente su LOAD devi parrare l'Oggetto e non il Nome...
Call FunzioneEventiTxtCbx(Me)
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Withevents, forms e sottoforms

text:

> Torno a precisare che il codice postato funziona quando si è in
> presenza di una sola form continua, ma quando la form è contenuta in
> un'altra form (e quindi è una subform) ricevo questo errore:
> Impossibile trovare la maschera 'NomeSubForm' a cui si fa riferimento
> in un'espressione macro e nel codice di VB ed il codice si blocca
> sull'istruzione FOR.
>
> Spero vogliate aiutarmi nel raggiungere la soluzione!
> Grazie anticipatamente
> Michele
>
> [---------------------RISPOSTA---------------------]
> Non ho ben capito il tutto ma mi pare manchi la ricorsione all'oggetto
> Form...!
>
> Prova a modificare questa così:
>
> Public Function FunzioneEventiLbl(frm As Access.Form)
>     Dim ClickLbl As SuEventoLbl
>     Dim Ctl As Control
>
>     For Each Ctl In Forms(NomeForm).Controls 'IL CODICE SI BLOCCA QUI
>         Select Case Ctl.ControlType
>             Case 100 'acLabel
>                 Set ClickLbl = New SuEventoLbl
>                 If Ctl.Tag = "ManinaTxt" Then ClickLbl.EspansioneLbl Ctl
>                 Istanze.Add ClickLbl
>             Case acSubform
>                 Call FunzioneEventiLbl(ctl.Form)
>             End Select
>     Next
> End Function
>
> Chiaramente su LOAD devi parrare l'Oggetto e non il Nome...
>
> Call FunzioneEventiTxtCbx(Me)
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
> ---------------------------------------------------------------------------
http://www.sitocomune.com/http://www.alessandrobaraldi.it
> ---------------------------------------------------------------------------
Grazie 1000 a tutti e 3: siete stati a vario titolo molto più che
utili.
Ho iniziato a lavorare sulla modifica di Alex, sulla quale mi sono
permesso di correggere la seguente riga:
   For Each Ctl In Forms(NomeForm).Controls
in....
   For Each Ctl In Frm.Controls
saltando (finalmente) l'errore che ho descritto prima. :-)
Ora, sto lavorando sul ritorno della funzione (l'ordinamento della
form o subform) e voglio smanettarci ancora un bel pò (ma credo vista
l'ora se ne parli domani mattina) prima di richiedere ancora il vostro
prezioso aiuto. Cmq mi è già chiaro che l'errore sta tutto nella
confuzione fra l'oggetto subform e il form in esso contenuto.
Grazie ancora e a risentirci (magari con la soluzione e non con
un'ulteriore richiesta d'aiuto.....)
Michele


title: Withevents, forms e sottoforms

text:
Grazie 1000 a tutti e 3: siete stati a vario titolo molto più che
utili.
Ho iniziato a lavorare sulla modifica di Alex, sulla quale mi sono
permesso di correggere la seguente riga:
   For Each Ctl In Forms(NomeForm).Controls
in....
   For Each Ctl In Frm.Controls
saltando (finalmente) l'errore che ho descritto prima. :-)
Ora, sto lavorando sul ritorno della funzione (l'ordinamento della
form o subform) e voglio smanettarci ancora un bel pò (ma credo vista
l'ora se ne parli domani mattina) prima di richiedere ancora il vostro
prezioso aiuto. Cmq mi è già chiaro che l'errore sta tutto nella
confuzione fra l'oggetto subform e il form in esso contenuto.
Grazie ancora e a risentirci (magari con la soluzione e non con
un'ulteriore richiesta d'aiuto.....)
Michele
Si è un refuso del Copia/Incolla/Modifica della tua funzione...!



title: Withevents, forms e sottoforms

text:

Carissimi,
grazie ai vostri consigli son riuscito ad eliminare errori e problemi
sulla questione "withevents", però ora mi trovo davanti alla
difficoltà di ordinare la maschera continua, a seconda se è una
maschera indipendente oppure se è una subform.
Ecco il codice
'in FORM -----------------------------------------
Private Sub Ricerca_Click()
On Error Resume Next
    FiltroRicerca = Me.Filter
    Select Case FunzioneRicerca(Me.Name)
    Case True
        Me.Filter = FiltroRicerca
        Me.FilterOn = True
    Case False
        Me.FilterOn = False
    End Select
    Application.Echo True
End Sub
'in MODULO -----------------------------------------
Public Function FunzioneRicerca(NomeForm As String) As Boolean
On Error Resume Next
    Dim Stringa As String
    Dim NumCampi As Integer
    Application.Echo False
    Forms(NomeForm).Xxx.SetFocus
    Stringa = InputBox("Inserire il testo da ricercare." & Chr(13) &
Chr(13) & "Cliccare sul tasto 'Annulla' per avere l'elenco completo.",
"   .: Ricerca :.")
    If Forms(NomeForm).ConteggioRecord = Null Then
        FiltroRicerca = ""
    End If
    Select Case Stringa
    Case Is <> ""
        If FiltroRicerca <> "" Then FiltroRicerca = FiltroRicerca & "
AND "
        X = 0
        For Each Campo In Forms(NomeForm).RecordsetClone.Fields
            If Mid(Campo.Name, 1, 2) <> "Id" And Mid(Campo.Name, 1, 3)
<> "Cod" Then NumCampi = NumCampi + 1
            'NumCampi = NumCampi + 1
        Next Campo
        For Each Campo In Forms(NomeForm).RecordsetClone.Fields
            If Mid(Campo.Name, 1, 2) <> "Id" And Mid(Campo.Name, 1, 3)
<> "Cod" Then
                X = X + 1
                Select Case X
                Case 1
                    FiltroRicerca = FiltroRicerca & "([" & Campo.Name
& "] Like '*" & Stringa
                Case NumCampi
                    FiltroRicerca = FiltroRicerca & "*' OR [" &
Campo.Name & "] Like '*" & Stringa & "*')"
                Case Else
                    FiltroRicerca = FiltroRicerca & "*' OR [" &
Campo.Name & "] Like '*" & Stringa
                End Select
            End If
        Next Campo
        FunzioneRicerca = True
    Case Cancel
        FunzioneRicerca = False
        FiltroRicerca = ""
    End Select
End Function
Il codice postato funziona alla grande se è eseguito da e su una
maschera continua a se stante. Quello che serve realizzare è ordinare
una subform continua, con il tasto ricerca situato nella maschera
principale, anche dovendo riscrivere il codice, ma con i riferimenti
sono in alto mare. Aspetto suggerimenti.
Grazie 1000
Michele


title: Withevents, forms e sottoforms

text:

> Michele- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Sicuramente ho postato la function errata, infatti non centra niente,
e forse ho trovato la soluzione. Se funziona la posto.
Grazie
Michele


title: campi nascosti

author: Sandrobi

text:
Per limitare gli accessi a un database pensavo di aggiornare un contatore in
un campo accesibile solo da VBA in modo che non sia possibile modificarlo
dall'esterno. C'è un qualche spazio nel DB dove è possibile memorizzare
informazioni e che non sia una tabella?
Si può usare una tabella nascosta ma penso che può essere visualizzata
tranquillamente agendo su Strumenti/Opzioni...
Ciao, Sandro.


title: campi nascosti

author: S. Savoldi

text:
"Sandrobi"

Sul S.C. trovi uno spunto di AntoGal per nascondere efficacemente tabelle in
un .mdb (non credo sia stato testato con A>97).
In alternativa puoi sfruttare il registro di configurazione di Win.
Ciao.


title: campi nascosti

author: Giorgio Prx

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:450Ra.178550$lK4.5...@twister1.libero.it...

Cia Sandro
Puoi creare una proprietà personale del Db in cui ci puoi scrivere e leggere
a piacimento, cerca sull'help CreateProperty
 ci sono un sacco di esempi.
Ciao Giorgio


title: campi nascosti

text:
"S. Savoldi"
> Sul S.C. trovi uno spunto di AntoGal per nascondere efficacemente tabelle
in
> un .mdb (non credo sia stato testato con A>97).
Ti ricordi come è il titolo. perché non riesco a trovarlo
>
> In alternativa puoi sfruttare il registro di configurazione di Win.
>
Mi sembra una buona idea, ma sai che chiavi è peferibile usare per mettere
dati miei ed evitare qualsiasi tipo di conflitto con altre chiavi e altri
programmi?
Ciao, Sandro


title: campi nascosti

text:
"Sandrobi"
> > In alternativa puoi sfruttare il registro di configurazione di Win.
> Mi sembra una buona idea, ma sai che chiavi è peferibile usare per mettere
> dati miei ed evitare qualsiasi tipo di conflitto con altre chiavi e altri
> programmi?
Beh, crea la chiave nel classico HKEY_LOCAL_MACHINE / SOTWARE
Ciao.


title: campi nascosti

text:
"S. Savoldi" <
> Beh, crea la chiave nel classico HKEY_LOCAL_MACHINE / SOTWARE
Scusa: dimenticavo che con Access è più semplice utilizzare SaveSetting,
GetSetting, DeleteSetting (che scrive, legge, cancella chiavi in altra,
specifica, posizione del registro).
Consulta l'help: trovi degli esempi comodi.
Ti saluto.


title: Importare dati in Excel mediante ADO ed una query Access : nessun record restituito

text:
Ho provato ad importare in un foglio Excel dei dati presenti in un db
Access.
Allo scopo ho utilizzato una routine VBA che, utilizzando ADO, esegue
alcune query presenti nel db Access dove sono presenti i dati da
estrarre.
Stranamente alcune query, che eseguite all'internp dell'ambiente
Access resituiscono correttamente i record previsti, se eseguite
mediante VBA ed ADO in Excel non resituitscono alcun record!!
Come mai??
Ecco il codice
Public Sub EstraiEM()
    Dim objField As Object ' ADODB.Field
    Dim rsData As Object ' ADODB.Recordset
    Dim objConnection As Object

    Dim lOffset As Long
    Dim szConnect As String
    Dim szQueryName As String

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("TestADO")

    ws.Range(Cells(10, 1), Cells(65535, 1)).EntireRow.Clear

    ' Create the connection string.
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source= " & ws.Range("DB_Path").Value & "\" & _
                                  ws.Range("DB_FileName").Value & ";"

    szQueryName = "[" & ws.Range("DB_QueryName").Value & "]"

    On Error GoTo ERR_EstraiEM

    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open szConnect

    ' Create the Recorset object and run the query.
    Set rsData = CreateObject("ADODB.Recordset")
    With rsData
        Set .ActiveConnection = objConnection
        '.CursorLocation = adUseClient
        '.CursorType = adOpenStatic
        '.LockType = adLockBatchOptimistic
        .Open szQueryName, , , , adCmdTable
    End With

    ' Make sure we got records back
    If Not rsData.EOF Then
        ' Add headers to the worksheet.
        With ws.Range("A10")
            For Each objField In rsData.Fields
                .Offset(0, lOffset).Value = objField.Name
                lOffset = lOffset + 1
            Next objField
            .Resize(1, rsData.Fields.Count).Font.Bold = True
        End With
        ' Dump the contents of the recordset onto the worksheet.
        ws.Range("A11").CopyFromRecordset rsData
        ' Close the recordset
        ' Fit the column widths to the data.
        ws.UsedRange.EntireColumn.AutoFit
        rsData.MoveLast
        rsData.MoveFirst

        ws.Range(Cells(10, 1), Cells(10 + rsData.RecordCount,
lOffset)).Interior.Color = vbGreen
        rsData.Close
    Else
        MsgBox "Error: No records returned.", vbCritical
    End If

    Set rsData = Nothing
    Exit Sub

ERR_EstraiEM:
    MsgBox "Error: " & Err & " - " & Error$, vbCritical
    On Error GoTo 0
    Exit Sub

End Sub


title: Stampare un record per pagina

author: Ivan

text:
Ho la necessità di stampare un report che contenga i campi di una tabella,
ma vorrei che creasse una nuova pagina per ogni record della tabella. Come
posso fare?
Grazie 1000.


title: Stampare un record per pagina

author: GIS

text:
"Ivan" <
bell_...@tin.it
> ha scritto nel messaggio
news:499cabf8$0$840$4faf...@reader5.news.tin.it...

nelle proprietà del corpo del report imposta : INTERRUZIONE PAGINA a "dopo
sezione"
ciao
GIS


title: TASTIERA WINDOWS A VIDEO

text:
Buon Giorno A97
come faccio in una maschera  a creare un pulsante che mi attivi la tastiera
windows a video...????
Grazie
Luigi - Bari


title: TASTIERA WINDOWS A VIDEO

author: Marco Pizzamiglio

text:
Age.For.M. ha scritto:

shell "osk.exe"
ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: TASTIERA WINDOWS A VIDEO

author: Riccardo Baldinotti

text:
On 6 Nov, 13:38,
marco.pizzamig...@gmail.com
 (Marco Pizzamiglio)
wrote:
> Age.For.M. ha scritto:
>
> > Buon Giorno A97
> > come faccio in una maschera  a creare un pulsante che mi attivi la tastiera
> > windows a video...????
> > Grazie
> > Luigi - Bari
>
> shell "osk.exe"
> ciao.
> -Marco-
>
Io ci sono riuscito così
        Dim ret As Integer
        ret = Shell("rundll32.exe url.dll,FileProtocolHandler osk",
vbMaximizedFocus)
con istruzioni che ho supinamente copiato da qualche parte.
Ciao.
Riccardo Baldinotti


title: visualizzare la data minima da un elenco in una maschera

text:
buongiorno,
ho una tabella cosi composta: data, codice,....

ho creato una maschera dove ci sono delle caselle di testo che visualizzano solo alcuni dati di interesse, trai quali vorrei visualizzare la data minima di un determinato codice, come potrei procedere?
se creo una query mi vanno in tilt gli altri campi, quindi avevo pensato di generare un espressione ad hoc, ma non riesco a includere la suddetta caratteristica. Per le altre caselle poiché dovevo fare delle somme mi sono servito di dsum ma non trovo nessun analogo per la data.

Grazie per l'attenzione


text:

Il modo migliore sarebbe calcolare il totale con una query. Se ti incasina gli altri campi probabilmente non l'hai fatta bene, riprova o posta il SQL che qualcuno te lo corregge.
Comunque in alternativa puoi mettere una casella di testo con origine dati =Dmin("campo","tabella","codice=""" & [campo codice] & """")
oppure, se ti interessa un codice in particolare, fisso:
=Dmin("campo","tabella","codice=""codice""")
Vedi l'help F1 per l'uso di Dmin. Se il codice è di tipo testo fai attenzione alla costruzione del criterio, devi includere i doppi apici prima e dopo, come ti ho indicato qui sopra.
Ciao.
-Marco-


author: Akery

text:
Grazie Marco per la risposta ma c'è qualcosa che non va! credo di aver
utilizzato correttamente il comando ma mi restituisce ?nome
Come faccio per trovare il codice sql della query?
Akery

"Marco Pizzamiglio"  ha scritto nel messaggio
news:a6376dcb-2ba4-4c91...@googlegroups.com...

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


text:
Avevo risolto in questo modo ma non mi piace come soluzione

=DateDiff('g';DFirst("[Data IN]";"[rifiuti]";"[CER/EER]='180103*'");Date())

ne approfitto per chiedere un altro dubbio, nei criteri come faccio ad
impostare il like? tipo mi serve tutta la famiglia 18 nel campo [CER/EER],
l'asterisco fa parte anch'esso del valore.

Grazie

"Akery"  ha scritto nel messaggio news:mo3anv$ium$1...@speranza.aioe.org...



text:
Il giorno martedì 14 luglio 2015 17:44:05 UTC+2, Akery ha scritto:
> "Marco Pizzamiglio"  ha scritto nel messaggio
>
> Il giorno martedì 14 luglio 2015 13:13:47 UTC+2,
caprico...@gmail.com
 ha
> scritto:
> > buongiorno,
> > ho una tabella cosi composta: data, codice,....
> >
> > ho creato una maschera dove ci sono delle caselle di testo che
> > visualizzano solo alcuni dati di interesse, trai quali vorrei visualizzare
> > la data minima di un determinato codice, come potrei procedere?
> > se creo una query mi vanno in tilt gli altri campi, quindi avevo pensato
> > di generare un espressione ad hoc, ma non riesco a includere la suddetta
> > caratteristica. Per le altre caselle poiché dovevo fare delle somme mi
> > sono servito di dsum ma non trovo nessun analogo per la data.
> >
> > Grazie per l'attenzione

> Il modo migliore sarebbe calcolare il totale con una query. Se ti incasina
> gli altri campi probabilmente non l'hai fatta bene, riprova o posta il SQL
> che qualcuno te lo corregge.
> Comunque in alternativa puoi mettere una casella di testo con origine dati
> =Dmin("campo","tabella","codice=""" & [campo codice] & """")
> oppure, se ti interessa un codice in particolare, fisso:
> =Dmin("campo","tabella","codice=""codice""")
> Vedi l'help F1 per l'uso di Dmin. Se il codice è di tipo testo fai
> attenzione alla costruzione del criterio, devi includere i doppi apici prima
> e dopo, come ti ho indicato qui sopra.
> Ciao.
> -Marco-

> Grazie Marco per la risposta ma c'è qualcosa che non va! credo di aver
> utilizzato correttamente il comando ma mi restituisce ?nome
> Come faccio per trovare il codice sql della query?
> Akery

Nella struttura query, tasto destro su un punto libero nella zona dove hai le tabelle e poi Visualizzazione SQL.
Ciao.
-Marco-


text:
Il giorno martedì 14 luglio 2015 17:47:44 UTC+2, Akery ha scritto:

> Avevo risolto in questo modo ma non mi piace come soluzione
> =DateDiff('g';DFirst("[Data IN]";"[rifiuti]";"[CER/EER]='180103*'");Date())

DMIN, non DateDiff!
E nemmeno Dfirst, è tutta un'altra cosa. Il nome può trarre in inganno, leggi l'help di Dfirst, non restituisce la prima (minore) data come ti potresti aspettare.
  =Dmin("[Data IN]";"[rifiuti]";"[CER/EER]='180103*'")

> ne approfitto per chiedere un altro dubbio, nei criteri come faccio ad
> impostare il like? tipo mi serve tutta la famiglia 18 nel campo [CER/EER],
> l'asterisco fa parte anch'esso del valore.

Questo è un argomento totalmente differente e non c'entra nulla con l'oggetto di questo post.
Apri un altro post con oggetto 'Criterio Like su campi contenenti asterischi' o simile.
Ciao.
-Marco-


text:
ero io a scriverla nel modo sbagliato!!
grazie ora funziona perfettamente
Akery

"Marco Pizzamiglio"  ha scritto nel messaggio
news:43488175-4666-49bc...@googlegroups.com...




title: Convertire la data in un numero.

author: Maurizio

text:
Sono agganciato via ODBC a tabelle di Oracle e in un campo numerico di una
tabella condivisa con altre procedure devo inserire, ogni volta che creo un
nuovo record, un numero UNIVOCO. Le altre procedure (in Java) convertono la
data corrente (comprendendo l'ora, i minuti, i secondi e i millisecondi)
utilizzando la funzione TIMESTAMP. Mi pare che il numero risultante è di
13-14 cifre, senza decimali.
Come posso ottenere lo stesso risultato con Access 2000?
Grazie.


title: Convertire la data in un numero.

author: Sergio MAZZA

text:
"Maurizio" <
mogne...@libero.it
> ha scritto nel messaggio
news:OMAGd.7337$fs6.1...@twister2.libero.it...

In access hai il tipo di dati "contatore" che puoi impostare a "duplicati
non ammessi"; oppure puoi provare ad utilizzare la funzione Clng (vedi help)
per ottenere un numero da una data...
Ciao.
--
Sergio MAZZA


title: Convertire la data in un numero.

author: Alex NSB

text:

Credo che il metodo più semplice e sicuro per ottenere un numero univoco in
Oracle sia quello di usare una Sequence (che ti dà la funzionalità
equivalente al contatore in Access).
In alternativa potresti usare un campo di tipo TIMESTAMP (Oracle 9i o sup.,
mi pare arrivi al miliardesimo di secondo) ed inserire in questo il valore
di default SYSTIMESTAMP; in questo modo, però, non so se riesci a garantire
l'univocità in un ambiente multiutente ad accesso altamente concorrenziale.
HTH.
Alessandro


title: Convertire la data in un numero.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> In access hai il tipo di dati "contatore" che puoi impostare a "duplicati
> non ammessi"; oppure puoi provare ad utilizzare la funzione Clng (vedi
> help) per ottenere un numero da una data...
>
> Ciao.
>
Non posso usare il contatore perchè lavoro su tabelle di Oracle.
Adesso guarderò la funzione che mi hai indicato tu per vedere se mi può
tornare utile. Ovviamente oltre a convertire la data devo riuscire anche a
convertire l'orario al millesimo di secondo per non rischiare (teoricamente)
duplicati.
Ciao e grazie.


title: Convertire la data in un numero.

text:
"Alex NSB" <
ale...@tin.it
> ha scritto nel messaggio
> Credo che il metodo più semplice e sicuro per ottenere un numero univoco
> in
> Oracle sia quello di usare una Sequence (che ti dà la funzionalità
> equivalente al contatore in Access).
Hai ragione, ma purtroppo è una tabella condivisa e mi devo adeguare a loro,
che appunto usano quel tipo di conversione.
>
> In alternativa potresti usare un campo di tipo TIMESTAMP (Oracle 9i o
> sup.,
> mi pare arrivi al miliardesimo di secondo) ed inserire in questo il valore
> di default SYSTIMESTAMP; in questo modo, però, non so se riesci a
> garantire
> l'univocità in un ambiente multiutente ad accesso altamente
> concorrenziale.
>
Infatti una minimissima percentuale di rischio c'è...anche se di fatto la
tabella contiene un'anagrafica e non un archivio, quindi non affollatissima
di dati.
Io sono agganciato alle tabelle via ODBC (quindi le vedo come tabelle di
Access). Mi funziona in questo modo il SYSTIMESTAMP?
Ciao e grazie ancora.


title: Convertire la data in un numero.

text:
>> Credo che il metodo più semplice e sicuro per ottenere un numero
>> univoco in
>> Oracle sia quello di usare una Sequence (che ti dà la funzionalità
>> equivalente al contatore in Access).
>
> Hai ragione, ma purtroppo è una tabella condivisa e mi devo adeguare
> a loro, che appunto usano quel tipo di conversione.
Eh si, era quello che temevo.
>> In alternativa potresti usare un campo di tipo TIMESTAMP (Oracle 9i o
>> sup.,
>> mi pare arrivi al miliardesimo di secondo) ed inserire in questo il
>> valore di default SYSTIMESTAMP; in questo modo, però, non so se
>> riesci a garantire
>> l'univocità in un ambiente multiutente ad accesso altamente
>> concorrenziale.
>
> Infatti una minimissima percentuale di rischio c'è...anche se di
> fatto la tabella contiene un'anagrafica e non un archivio, quindi non
> affollatissima di dati.
> Io sono agganciato alle tabelle via ODBC (quindi le vedo come tabelle
> di Access). Mi funziona in questo modo il SYSTIMESTAMP?
Funziona se il campo sulla tabella è di quel tipo:
SQL> create table t (a timestamp);
Table created.
SQL> insert into t values(systimestamp);
1 row created.
SQL> select * from t;
A
------------------------------------------
17-GEN-05 16:32:07,578000
Come vedi lo inserisci direttamente con l'INSERT SQL, quindi ODBC non
dovrebbe essere un problema. Ancora più facilmente potresti mettere
systimestamp come valore di default del campo ed ometterlo dall'INSERT.
Se però il campo è un number, devi verificare se esistono delle funzioni di
conversione apposite (io non ho mai usato TIMESTAMP, non ancora almeno).
HTH.
Alessandro


title: concatenare valori in una casella di controllo

author: singer

text:
Sono in una form.
Vorrei creare automaticamente, dopo aver inserito la data in una prima
casella (DT),  il contenuto di un'altra casella di controllo associata
(grorario) utilizzando dei valori che ho in altre caselle.
Devo avere una stringa nella casella grorario che abbia più o meno
questo formato
200800/F SET 07 dove 20 è il giorno, 0800 è l'orario corrente, /F è un
valore  che si determina in base ad una condizione e, ovviamente il
resto è la data in quel formato
Avevo pensato di creare la casella day in cui il valore predefinito è
day(DT)
Una seconda casella in cui inserisco l'orario corrente con now()
formattata con le ore
Una terza casella in cui ho il mese con month(DT) (qui però mi manca
come formattare per avere SET
Una quarta in cui ho l'anno year(DT)
Una quinta in cui il valore predefinito si ottiene con una iif. Se la
DT è compresa in un certo periodo allora /f, se in un'altra /g
Come faccio a concatenare tutti questi valori nella casella grorario
Grazie in anticipo


text:
"singer" <
fuskoa...@gmail.com
> ha scritto nel messaggio
news:1190295214.4...@w3g2000hsg.googlegroups.com...
Sono in una form.
Vorrei creare automaticamente, dopo aver inserito la data in una prima
casella (DT),  il contenuto di un'altra casella di controllo associata
(grorario) utilizzando dei valori che ho in altre caselle.
Devo avere una stringa nella casella grorario che abbia piů o meno
questo formato
200800/F SET 07 dove 20 č il giorno, 0800 č l'orario corrente, /F č un
valore  che si determina in base ad una condizione e, ovviamente il
resto č la data in quel formato
Avevo pensato di creare la casella day in cui il valore predefinito č
day(DT)
Una seconda casella in cui inserisco l'orario corrente con now()
formattata con le ore
Una terza casella in cui ho il mese con month(DT) (qui perň mi manca
come formattare per avere SET
Una quarta in cui ho l'anno year(DT)
Una quinta in cui il valore predefinito si ottiene con una iif. Se la
DT č compresa in un certo periodo allora /f, se in un'altra /g
Come faccio a concatenare tutti questi valori nella casella grorario
Grazie in anticipo
[risposta]
Mi dispiace ma non c'ho capito nulla...
Ciao.
--
Sergio MAZZA


author: Singer

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:fcu29t$qaq$1...@tdi.cu.mi.it...

sono seriamente preoccupato!! se nemmeno tu riesci a capire sono finito....
provo a spiegare
vorrei inserire in automatico in una casella la data e l'ora corrente in un
particolare formato
come avevo detto il formato di destinazione prevede: il giorno, l'ora, un
particolare attributo che indica l'ora legale o solare, il mese e l'anno,
nella sequenza che ho detto: per dire cioč 20.09.2007 ore 15.30 deve venire
fuori una cosa cosě: 201530/B SET 07 (B sta per ore legale)
come faccio?? posto che nella mia form inserisco la data
ecco che avevo pensato a ciň che avevo tentato di descrivere sopra: tutti
controlli nascosti che prendono le informazioni dalla casella data, nei
formati che avevo detto
 poi avevno pensato che era possibile concatenare in un unico controllo
tutti quei valori
speriamo bene!!!!


author: Alessandro Cara

text:

su corrente e su evento di afterupdate di tutti controlli che
partecipano alla formazione di gorario scrivi
gorario = format(dt,"dd") & format(now,"hhmm")&
valorechesideterminainbaseadunacondizione & " " & format(dt,"mmm dd")
--
ac
y-1=x


text:
On 21 Set, 00:40, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> Singer wrote:
> > "Sergio MAZZA" <
sergioma...@tiscali.it
> ha scritto nel messaggio
> >news:fcu29t$qaq$1...@tdi.cu.mi.it...
> >> "singer" <
fuskoanto...@gmail.com
> ha scritto nel messaggio
> >>news:1190295214.4...@w3g2000hsg.googlegroups.com...
> >> Sono in una form.
> >> Vorrei creare automaticamente, dopo aver inserito la data in una prima
> >> casella (DT),  il contenuto di un'altra casella di controllo associata
> >> (grorario) utilizzando dei valori che ho in altre caselle.
> >> Devo avere una stringa nella casella grorario che abbia più o meno
> >> questo formato
> >> 200800/F SET 07 dove 20 è il giorno, 0800 è l'orario corrente, /F è un
> >> valore  che si determina in base ad una condizione e, ovviamente il
> >> resto è la data in quel formato
>
> >> Avevo pensato di creare la casella day in cui il valore predefinito è
> >> day(DT)
> >> Una seconda casella in cui inserisco l'orario corrente con now()
> >> formattata con le ore
> >> Una terza casella in cui ho il mese con month(DT) (qui però mi manca
> >> come formattare per avere SET
> >> Una quarta in cui ho l'anno year(DT)
> >> Una quinta in cui il valore predefinito si ottiene con una iif. Se la
> >> DT è compresa in un certo periodo allora /f, se in un'altra /g
>
> >> Come faccio a concatenare tutti questi valori nella casella grorario
> >> Grazie in anticipo
>
> >> [risposta]
> >> Mi dispiace ma non c'ho capito nulla...
>
> >> Ciao.
> >> --
> >> Sergio MAZZA
>
> > sono seriamente preoccupato!! se nemmeno tu riesci a capire sono finito....
> > provo a spiegare
>
> > vorrei inserire in automatico in una casella la data e l'ora corrente in un
> > particolare formato
> > come avevo detto il formato di destinazione prevede: il giorno, l'ora, un
> > particolare attributo che indica l'ora legale o solare, il mese e l'anno,
> > nella sequenza che ho detto: per dire cioè 20.09.2007 ore 15.30 deve venire
> > fuori una cosa così: 201530/B SET 07 (B sta per ore legale)
>
> > come faccio?? posto che nella mia form inserisco la data
> > ecco che avevo pensato a ciò che avevo tentato di descrivere sopra: tutti
> > controlli nascosti che prendono le informazioni dalla casella data, nei
> > formati che avevo detto
> >  poi avevno pensato che era possibile concatenare in un unico controllo
> > tutti quei valori
>
> > speriamo bene!!!!
>
> su corrente e su evento di afterupdate di tutti controlli che
> partecipano alla formazione di gorario scrivi
> gorario = format(dt,"dd") & format(now,"hhmm")&
> valorechesideterminainbaseadunacondizione & " " & format(dt,"mmm dd")
> --
> ac
> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
ok, fantastico!
c'è un modo per formattare il mese in maiuscolo. ho provato con MMM ma
non funziona


text:
singer wrote:
čut]
> ok, fantastico!
> c'č un modo per formattare il mese in maiuscolo. ho provato con MMM ma
> non funziona
>
.....ucase(format(dt,"mmm dd")).....
--
ac
y-1=x


title: casella di testo + casella di testo

author: Laura

text:
vorrei che in un report in cui ho la casella di testo  sconto e che questa
prendesse origine da due campi : sconto e sconto 1 e visualizzasse:
valore di sconto se sconto 1 = 0 e valore di sconto + valore sconto 1 nel
caso che invece sconto 1 sia maggiore di 0
grazie


title: casella di testo + casella di testo

author: AleC

text:

= iif(Sconto_1 = 0; Sconto; Sconto + Sconto_1)
se lo metti nel modulo del reporto i separatori sono virgole e non
punti e virgola..


title: casella di testo + casella di testo

author: Roberto da Parma

text:
"Laura" <
la.a...@tiscali.it
> ha scritto nel messaggio
news:48a19343$0$11367$5fc...@news.tiscali.it...

Nella casella del report che chiamerai ScontoTXT mandi come origine
= IIf([sconto1]>0;[sconto]+[sconto1];[sconto])
Ciao
--
Roberto da Parma


title: casella di testo + casella di testo

text:
On 12 Ago, 16:16, "Roberto da Parma" <
arisib...@libero.it
> wrote:
> "Laura" <
la.atz...@tiscali.it
> ha scritto nel messaggionews:48a19343$0$11367$5fc...@news.tiscali.it...> vorrei che in un report in cui ho la casella di testo  sconto e che questa
> > prendesse origine da due campi : sconto e sconto 1 e visualizzasse:
> > valore di sconto se sconto 1 = 0 e valore di sconto + valore sconto 1 nel
> > caso che invece sconto 1 sia maggiore di 0
> > grazie
>
> Nella casella del report che chiamerai ScontoTXT mandi come origine
>
> = IIf([sconto1]>0;[sconto]+[sconto1];[sconto])
>
> Ciao
>
> --
> Roberto da Parma
Vinco di un minuto !!!!
....Olimpiadi docet......


title: casella di testo + casella di testo

text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:cd64d77f-b277-4020...@59g2000hsb.googlegroups.com...


ma porcaccia... :-)



title: Reset Campo Contatore

author: andreaf

text:
Salve,
ho un campo contatore in una tabella .
Durante la progettazione del mio db gli indici di questo campo sono andati
avanti 1,2,3,...
Ora però vorrei che si resettassero e partissero da0 (infatti ho eliminato
TUTTI i recod della mia tabella)
Come posso fare?
Grazie


title: Reset Campo Contatore

author: Alessandro Baraldi

text:
"andreaf" <
the...@libero.it
> wrote in message
news:rz5Gd.85263$
C94....@tornado.fastwebnet.it

Compatta il Database
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Reset Campo Contatore

author: Gaetano Di Zanni

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:79be7a8bcd1fc7805b...@mygate.mailgate.org...
> "andreaf" <
the...@libero.it
> wrote in message
> news:rz5Gd.85263$
C94....@tornado.fastwebnet.it
>
> > Salve,
> > ho un campo contatore in una tabella .
> > Durante la progettazione del mio db gli indici di questo campo sono
andati
> > avanti 1,2,3,...
> > Ora però vorrei che si resettassero e partissero da0 (infatti ho
eliminato
> > TUTTI i recod della mia tabella)
> > Come posso fare?
> > Grazie
>
>
> Compatta il Database
>
> Ciao
> @Alex
>
Alex, ho capito bene? basta compattare il db dopo aver svuotato i record?
ed io che copiavo la tabella , naturalmente cambiandola di nome, per poi
rinominarla appena eliminata la vecchia....


title: Reset Campo Contatore

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> wrote in message
news:41e96ef9$0$8203$
5fc...@news.tiscali.it
[CUT]
> Alex, ho capito bene? basta compattare il db dopo aver svuotato i record?
> ed io che copiavo la tabella , naturalmente cambiandola di nome, per poi
> rinominarla appena eliminata la vecchia....
Già, hai capito bene....



title: Recordset che si ferma al primo record

author: Pino

text:
Sto cercando di esportare alcuni valori di un campo su file word. Il
problema è che, quando vado a scorrere il recordset per stamparli, mi
stampa sempre il primo...per tutti i record esportati. Ad esempio se
ci sono 3 record nella tabella stampa sempre il primo record 3 volte.
Ma perchè? Vi scrivo il codice, non ho capito dove cacchio sbaglio.
Set wrd = CreateObject("Word.Application")
    wrd.Visible = True
    wrd.Activate
    Set doc = wrd.Documents.Open("T: percorso")
        doc.Bookmarks("data").Select
                 wrd.Selection.Text = data
        doc.Bookmarks("nuovo_odg").Select
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
                 Set rs = New ADODB.Recordset
                 Set cn = CurrentProject.Connection
                 rs.Open "Select nuovo_odg from nuovi_odg", cn,
adOpenDynamic, adLockPessimistic
                 With rs
                         While Not .EOF
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
                              .MoveNext
                        Wend
                 End With
                 rs.Close
                 cn.Close


title: Recordset che si ferma al primo record

author: VT @ home

text:
Il Tue, 24 Jul 2007 03:19:45 -0700, Pino <
ngi...@yahoo.it
> ha scritto:
>(.....)
Invece di
                With rs
                         While Not .EOF
prova con
                 With rs
                        .movefirst
                         While Not .EOF
Inoltre, prova a sostituire
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
con
                              wrd.Selection.TypeText !nuovo_odg & vbCrLf
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: Recordset che si ferma al primo record

text:
"Pino" <
ngi...@yahoo.it
> ha scritto nel messaggio
news:1185272385.2...@d55g2000hsg.googlegroups.com...
Sto cercando di esportare alcuni valori di un campo su file word. Il
problema č che, quando vado a scorrere il recordset per stamparli, mi
stampa sempre il primo...per tutti i record esportati. Ad esempio se
ci sono 3 record nella tabella stampa sempre il primo record 3 volte.
Ma perchč? Vi scrivo il codice, non ho capito dove cacchio sbaglio.
Set wrd = CreateObject("Word.Application")
    wrd.Visible = True
    wrd.Activate
    Set doc = wrd.Documents.Open("T: percorso")
        doc.Bookmarks("data").Select
                 wrd.Selection.Text = data
        doc.Bookmarks("nuovo_odg").Select
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
                 Set rs = New ADODB.Recordset
                 Set cn = CurrentProject.Connection
                 rs.Open "Select nuovo_odg from nuovi_odg", cn,
adOpenDynamic, adLockPessimistic
                 With rs
                         While Not .EOF
                              record = nuovo_odg
                              wrd.Selection.TypeText record & vbCrLf
                              .MoveNext
                        Wend
                 End With
                 rs.Close
                 cn.Close
[risposta]
...
With rs
    Do While Not .EOF
....
Ciao.
--
Sergio MAZZA


title: Recordset che si ferma al primo record

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:f84qej$rns$1...@tdi.cu.mi.it...
> [risposta]
> ...
> With rs
>    Do While Not .EOF
> ....
E toglierei il Wend per sostituirlo con:
    Loop
Ciao.
--
Sergio MAZZA


title: Recordset che si ferma al primo record

text: Grazie a tutti e due ;)


title: report: azzerare le altezze dei controlli e delle sezioni nel caso in cui...

author: gian

text:
Ciao a tutti. Su A2003.
Ho un report con tre livelli di gruppo:
Provincia (int.)
    Codice fiscale (int.)
        Coltura (int.)
              Superficie (Corpo)
        Coltura (piè di p.)
    Codice fiscale (piè di p.)
Provincia (piè di p.)
Nel corpo del report visualizzo sempre due valori di Superficie per ciascuna
Coltura, Codice fiscale e Provincia. Nel piè di pagina di Coltura,
visualizzo la differenza tra le due superfici.
Vorrei , nel caso in cui le due superfici siano uguali, "azzerare" (far
sparire) i controlli contenuti nel corpo e nelle intestazioni, in modo tale
da visualizzare solo le superfici differenti per ciascuna Coltura, Codice
fiscale, Provincia. Come posso fare? Dovrei anche annullare l'altezza delle
sezioni, giusto?
Grazie a tutti.
Giancarlo


text:

fare una select (sorgente dati del report) del genere e' troppo?
select * from tabella where superfice <> [superfice coltivata]
--
ac
email: w+1=x


text:
"Alessandro Cara" <alessandro.cara@aw+
1asistemi.it
> ha scritto nel messaggio
news:6XX3h.21275$Pk4....@tornado.fastwebnet.it...

Scusa, ma non ho capito molto bene.
Il report si basa su una query che restituisce i seguenti dati:
Prov   Cod_fisc  Settore Coltura   Sup
PG     AAA        X         123        10
PG     AAA        Y         123        10
PG     AAA        X         456        25
PG     AAA        Y         456        23
Nel report, nel piè di pagina di Coltura ho inserito un controllo:
=Somma(IIf([Settore]="Y";-[SUP];[SUP]))
che mi restitisce la differenza delle due superfici per il settore X e Y,
nell'ambito della stessa coltura.
Quindi nel piè di pagina della coltura 123 ho 0, mentre nel piè di pagina
della coltura 456 ho 2.
Vorrei fare in modo che tutti i controlli presenti "sparissero", nel caso
della coltura 123 che ha una differenza tra le superfici pari a 0.
Ti ringrazio per la disponibilità.
> --
> ac
> email: w+1=x


title: Controllare lo stato di un record in DAO

author: namor

text:
SunRex ha scritto:
> Alla chiusura di una frm ho la necessità di controllare se
> un recordset aperto in precedenza è stato chiuso.In ADO
> farei così
> If rs.State = 1 Then
>     rs.Close
>     Set rs = Nothing
> Else
> End If
> Ma con DAO? Ho provato così ma non funziona riportandomi l'errore "Prevista
> funzione o variabile" sulla riga dell'If.
> If rs.Close = True Then
> Exit Sub
> Else
> rs.Close
> Set rs = Nothing
> End If
> SunRex
Puoi comunque chiuderlo ignorando l'errore che verrebbe generato se rs
fosse già chiuso:
on error resume next
rs.close
set rs=nothing
O puoi accedere ad una delle proprietà ed intercettare l'errore che viene
generato:
on error resume next
debug.print rs.Fields.Count
if err.number>0 then
    rs.close
    set rs=nothing
    err.clear
end if
on error goto 0
Namor
--

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


author: SunRex

text:
"namor" <
na...@nospm.inwind.it
> ha scritto nel messaggio
news:bk3vmb$7ac$1...@news.newsland.it...
> SunRex ha scritto:
> > Alla chiusura di una frm ho la necessità di controllare se
> > un recordset aperto in precedenza è stato chiuso.In ADO
> > farei così
>
> > If rs.State = 1 Then
> >     rs.Close
> >     Set rs = Nothing
> > Else
> > End If
>
> > Ma con DAO? Ho provato così ma non funziona riportandomi l'errore
"Prevista
> > funzione o variabile" sulla riga dell'If.
>
> > If rs.Close = True Then
> > Exit Sub
> > Else
> > rs.Close
> > Set rs = Nothing
> > End If
> > SunRex
>
>
> Puoi comunque chiuderlo ignorando l'errore che verrebbe generato se rs
> fosse già chiuso:
> on error resume next
> rs.close
> set rs=nothing
>
[CUT]
Grazie namor funziona userò questa.
SunRex



title: query di tipo pass-through

author: Matteo Fortini

text:
Una query pass-through serve quando devi fare delle operazioni sui dati del
server in remoto, o quando devi richiedere dei dati. Per quello che devi fare
tu, č effettivamente piů semplice collegare la tabella remota da Access e fare
eseguire la query dal Jet.
Ciao,
    Matteo


title: Reimpostare valore dopo report

author: MoBi

text:
SalveDal sitocomune ho scaricato la routine riportata qui sotto per stampare
N volte un record (da me precedentemente filtrato da una query), potreste
dirmi se dopo la stama oppure anche durante la generazione del Report posso
riportare a 0 il valore di ct_quantina ?GraziePrivate Sub Corpo_Print(Cancel
As Integer, PrintCount As Integer)
   If PrintCount < Me.ct_quantita Then
      Me.NextRecord = False
      PrintCount = PrintCount + 1
   Else
      PrintCount = 0
   End If
End Sub