title: Assegnare un report ad una variabile

text:
"lbo dal portatile" <
l...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3962750d...@news.interbusiness.it...

Scusa, ma hai verificato se funziona? Sto provando anch'io a trovare una
soluzione, ma l'istruzione che hai suggerito genera un'errore perché
l'insieme reports fa riferimento ai report correntemente aperti. Con
l'istruzione: CurrentDb.Containers!Reports.Documents(Me.CasellaCombinata0)
riesco ad avere le proprietà dei reports chiusi ma non riesco a capire il
"meccanismo" per passargli l'oggetto report...
Ciao.


title: Assegnare un report ad una variabile

author: Carlo Ve

text:
lbo dal portatile ha scritto nel messaggio
<
3962750d...@news.interbusiness.it
>...
>>set rep=reports!(me.combo)
>
>no, scusa!
>
>set rep=reports(me.combo)
>
>senza punto esclamativo!
Set REP = Reports(Me.Tag)
Adesso si che ci siamo !!!
non so come ringrazierti
Vorra' dire che quando uscira' ti regalero un compilatore per il tostapane
!!!
Carlo Ve


title: Assegnare un report ad una variabile

text:
Alessandro Cara ha scritto nel messaggio <
3960FD36...@blunet.it
>...
>Carlo Ve ha scritto:
>>
>> Vi sasrei molto grato se poteste indicarmi come assegnare ad una
variabile
>> report
>> il nome di un report il cui risultato deriva dalla selezione di una
casella
>> combinata presente su una maschera
>>
>> per essere + chiario possibile
>>
>> Dim REP As Report
>> Set REP = (risultato della selezione della casella di riepilogo)
>>
>> Infinite grazie a chi mi da la dritta
>>
>> Carlo Ve
>che vuoi fare?
Provo ad andare un po' nel dettaglio del problema se avrete voglia e
pazienza di seguirmi
Sto modificando una mascherina popup presa da qualche parte,  la quale dopo
averla richiamata da una barra menu presente in anteprima stampa di un
report mi permette di effettuare l'ordinamento del report stesso sulla base
dei nomi di campo che vengono selezionati da alcune combo presenti sulla
popup.
Vorrei rendere questa procedura flessibile in modo da adattarla a qualsiasi
report venga aperto.
Per quando riguarda i nomi dei campi da ordinare sono riuscito,  inserendo
nella proprieta' tag dei controlli che voglio vengano utilizzati per
l'ordinamento,  il nome del campo in modo che all'apertura della mascherina
popup viene effettuato un ciclo su tutti i controlli del report e dove viene
trovato  il tag riempito prende il nome per formare la stringa che poi va ad
inserire nella rowsource delle combo della popup
fin qui la cosa sembra  funzia
quello che non riesco a fargli fare e' l'ordinamento vero e proprio
ovvero
Reports!nome_report.OrderBy = strSQL
Reports!nome_report.OrderByOn = True
dato che il nome del report lo devo associare ad una  variabile
Non e' possibile  piu' utilizzare Screen.Active.Report
e allora ho fatto in modo che in apertura della mascherina venga memorizzato
nel Tag il nome del report
aperto e fin qui non ci sono problemi
mi manca solo poter associare il Tag alla variabile
Spero abbiate avuto la pazienza di arrivare fin qui e
possiate darmi questa ultima dritta
Carlo Ve


title: Assegnare un report ad una variabile

text:
Carlo Ve ha scritto nel messaggio ...
>
>lbo dal portatile ha scritto nel messaggio
><
3962750d...@news.interbusiness.it
>...
>>>set rep=reports!(me.combo)
>>
>>no, scusa!
>>
>>set rep=reports(me.combo)
>>
>>senza punto esclamativo!
>
>Set REP = Reports(Me.Tag)
>
>Adesso si che ci siamo !!!
>non so come ringrazierti
Volevo dire ringraziarti non alla "Banfi"
Da quando ho avuto  un'incidente in macchina (domenica sera)
non mi riesce piu'  di scrivere correttamente senza invertire le parole
aparte questo  se posso raccontarlo devo ringraziare le cinture di sicurezza
e chi le ha inventate
Carlo Ve


title: Assegnare un report ad una variabile

text:
Carlo Ve ha scritto nel messaggio ...
>
>lbo dal portatile ha scritto nel messaggio
><
3962750d...@news.interbusiness.it
>...
>>>set rep=reports!(me.combo)
>>
>>no, scusa!
>>
>>set rep=reports(me.combo)
>>
>>senza punto esclamativo!
>
>Set REP = Reports(Me.Tag)
>
>Adesso si che ci siamo !!!
P.S. - Dimenticavo
se la mascherina popup per l'ordinamento dei report interessasse,  potrei
testarla un'altro po' e renderla
disponibile per il sito comune
Carlo Ve


title: Assegnare un report ad una variabile

author: lbo dal portatile

text:
>> set rep=reports(me.combo)
>Scusa, ma hai verificato se funziona? Sto provando anch'io a trovare una
veramente no...
>soluzione, ma l'istruzione che hai suggerito genera un'errore perché
>l'insieme reports fa riferimento ai report correntemente aperti. Con
>l'istruzione: CurrentDb.Containers!Reports.Documents(Me.CasellaCombinata0)
>riesco ad avere le proprietà dei reports chiusi ma non riesco a capire il
>"meccanismo" per passargli l'oggetto report...
mi domando pero' se questo sia possibile, voglio dire, settare una var
reporto su un report chiuso.  non potresti aprirlo, magari nascosto,
in modo da averlo in reports?  cosa ci devi fare esattamente?



title: Assegnare un report ad una variabile

author: Sergio MAZZA

text:
"lbo dal portatile" <
l...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3963fb56...@news.interbusiness.it...

Io nulla, per ora; avevo preso come pretesto la richiesta di Carlo per
approfondire il tema "oggetti". Mi trovo ad affrontare sempre (o quasi) le
stesse problematiche e solo frequentando l'NG con le richieste più "strane"
e "varie" mi rendo conto delle possibilità ancora "oscure" di Access/VBA.
Poi mi ero stancato di "aprire" oggetti di nascosto per "operare" le
modifiche e poi richiudere l'oggetto; ma ti pare che non esiste un cavolo di
modo per copiare un oggetto in una variabile anche se chiuso ma reso
disponibile dall'altro oggetto (Access) per farci quello che vuoi? Sì puoi
dichiararla: es. Dim nuovoRep as Report_pippo; però è già implicito quello
che vuoi (Report_pippo) ; e se io voglio "parametrizzare" la dichiarazione?
Boh!
Ciao.


title: manuali per imparare codice VBA

author: TecniCons sas

text:
Ciao a tutti.
Vorrei un consiglio su quale o quali manuali reperire per imparare a
conoscere ed usare il codice VBA in access.
Un grazie a tutti
Saluti
Luciano


title: manuali per imparare codice VBA

text:

Personalmente trovo l'Help in linea il miglior manuale... fino ad
A2003... poi perde un pò in leggibilità, ma rimane sempre ottimo.
Cosa grandiosa è che è FREE...!
Devi imparare ad usare moltissimo il Visualizzatore Oggetti, il Debug
e l'Help... non servono libri...
@Alex


title: manuali per imparare codice VBA

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:add6d44c-474a-48fa...@k38g2000vbn.googlegroups.com...



@Alex
Grazie Alex per il consiglio, ne terrò ovviamente di conto.
Ciao
Luciano


title: manuali per imparare codice VBA

author: MA

text:
?"TecniCons sas"  ha scritto nel messaggio
news:3KL7p.49247$7b4....@tornado.fastwebnet.it...

___
Ne approfitto per segnalare che su AccessGroup.it è partita una iniziativa
per gli iscritti, in cui viene affrontato un percorso per VBA
Primo appuntamento è stato "le variabili"
stiamo finendo altri articoli
MA


title: filtro all'apertura report

author: Akery

text:
Buongiorno,
all'apertura di un report è applicato un filtro che chiede quale anno
scegliere e funziona correttamente ma domanda da 1 milione di euro: se
volessi eludere il filtro e vedere tutti i record come potrei fare? il
carattere * non funziona in questo caso, c'è qualche alternativa?

Grazie
Akery

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: filtro all'apertura report

text:
Il giorno martedì 22 novembre 2016 11:24:10 UTC+1, Akery ha scritto:
> Buongiorno,
> all'apertura di un report è applicato un filtro che chiede quale anno
> scegliere e funziona correttamente ma domanda da 1 milione di euro: se
> volessi eludere il filtro e vedere tutti i record come potrei fare? il
> carattere * non funziona in questo caso, c'è qualche alternativa?
>
> Grazie
> Akery

Togli il Filtro...?

Poi aggiorni il Report chiamando questa Funzione che EMULA il REQUERY nelle Form:

Public Sub AggiornaReport(rpt as Access.Report)

  With rpt
       If .Filter = vbNullString Then
             .FilterOn = True
             .Filter = " "
             .Filter = vbNullString
       Else
             .Filter = .Filter
             .FilterOn = True
       End If
  End With

End Sub

@Alex


title: filtro all'apertura report

text:

Come immaginavo non c'è alternativa se non scrivere qualche riga di codice.
Grazie per la risposta applico subito la soluzione



title: filtro all'apertura report

author: Karl Donaubauer

text:
Akery ha scritto:
> all'apertura di un report è applicato un filtro che chiede quale anno
> scegliere e funziona correttamente ma domanda da 1 milione di euro: se
> volessi eludere il filtro e vedere tutti i record come potrei fare? il
> carattere * non funziona in questo caso, c'è qualche alternativa?

Dipende dove e come esattamente hai impostato il filtro.
Forse così:

Criterio che restituirà tutti i record
http://www.donkarl.com/it?FAQ3.14

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


title: incrementare valore in una maschera  basata su query

author: ^luigi^

text:
come posso in una maschera che ha come base dati una query filtrata per il
campo "anno" assegnare un numero incrementale in un controllo campo
"numero_pratica" ogni 25 record contati nella query?
se si trattava di una tabella, potevo usare come valore predefinito questa
formula
=Format$(Int([Numero_pratica]/25)+1;"0000000")
ma essendo basato su una query in cui nel campo  numero_pratica vi sono
valori uguali per ogni anno esistente, non funziona, mi dite
un'alternativa?
grazie
l.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: problema col between

author: lolince

text:
salve ragazzi mi serve un piccolo aiutino, mi spiego meglio , ho ina
tabella con un campo data, bene in questa tabella sono elencate le
date di un mese specifico ad esempio dal 1/10 al 30/10 .
tabella :
data
1/10/2007
2/10/2007
...
...
ora in un'altra tabella ho due campi data inizio e data fine ,
nome |data inizio   |  data fine    |
mario | 01/10/2007 | 01/10/2007 |
luca   |03/10/2007  |07/10/2007  |
gianni|03/10/2007  | 05/10/2007 |
bene ora vorrei con una query sapere automaticamente in base alla
prima tabella quindi man mano con tutte le date in elenco il conteggio
delle persone che avevao le stesse date .provo a spiegarmi con un
esempio
query:
data            | conteggio |
01/10/2007  | 1              |
02/10/2007  | 0              |
03/10/2007  | 2              |
chi mi può dare una mano ? grazie mille in anticipo


title: problema col between

author: 'Roccia' Max

text:
On 20 Nov, 11:43, lolince <
loli...@hotmail.com
> wrote:
> bene ora vorrei con una query sapere automaticamente in base alla
> prima tabella quindi man mano con tutte le date in elenco il conteggio
> delle persone che avevao le stesse date .provo a spiegarmi con un
> esempio
>
> query:
> data            | conteggio |
> 01/10/2007  | 1              |
> 02/10/2007  | 0              |
> 03/10/2007  | 2              |
Non mi sembra difficile, tutt'al piu' poco utile... non riesco a
immaginare come tu possa usare un dato del genere. Comunque:
Query1
SELECT Nome, DataInizio as DataPersona from Tabella1
UNION ALL Select Nome, DataFine as DataPersona from Tabella1
Query2
SELECT TabellaDate.Data, count(Query1.Nome) as Conteggio from
TabellaDate LEFT JOIN Query1 ON TabellaDate.Data=Query1.DataPersona
GROUP BY TabellaDate.ata
ma sei proprio sicuro che ti serva cosi'? mettendo insieme date di
inizio e di fine?
cia'
Max


title: problema col between

text:

scusami ma non ho mica capito sinceramente , senza nomi non mi
trovo ,allora cerco di spiegarmi la prima tabella si chiama query3 la
seconda tabella si chiama db, ora non capisco da dove esca datapersona
e cose siminili , sono un po tardivo :-)
allora la prima tabella query3 ha il campo [data] ,
la seconda tabella db ha i seguenti campi [nome],[datainizio],
[datafine].


title: problema col between

text:


Beh, nei miei esempi si chiamano rispettivamente Tabella1 e
TabellaDate... quindi le query diventano
Query1
SELECT Nome, DataInizio as DataPersona from db
UNION ALL Select Nome, DataFine as DataPersona from db
Query2
SELECT query3.Data, count(Query1.Nome) as Conteggio from
query3 LEFT JOIN Query1 ON
query3.Data=Query1.DataPersona
GROUP BY query3.data
> ora non capisco da dove esca datapersona
questo lo definisci tu...
SELECT Nome, DataInizio as DataPersona
In pratica:
Query1 mette in fila tutte le date in "dataInizio" e tutte le date in
"dataFine" in un campo solo, e lo chiama DataPersona
Query2 vede quanti nominativi ci sono per ciascuna data.
cia'
Max


title: problema col between

author: giorgio rancati

text:
"lolince" <
lol...@hotmail.com
> ha scritto nel messaggio
news:a60d6d29-b3fb-467b...@o6g2000hsd.googlegroups.com...



Ciao,
puoi ottenere il risultato con una query di raggruppamento.
Esempio:
----
SELECT Tabella.Data, Count(Tabella.Data) AS ConteggioDiData
FROM Tabella, AltraTabella
WHERE Tabella.Data  Between AltraTabella.[DataInizio] And
AltraTabella.[DataFine]
GROUP BY Tabella.Data;
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: problema col between

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:47434cf4$0$16021$5fc...@news.tiscali.it...
> Ciao,
> puoi ottenere il risultato con una query di raggruppamento.
> Esempio:
> ----
> SELECT Tabella.Data, Count(Tabella.Data) AS ConteggioDiData
> FROM Tabella, AltraTabella
> WHERE Tabella.Data  Between AltraTabella.[DataInizio] And
> AltraTabella.[DataFine]
> GROUP BY Tabella.Data;
> ----
scusa, cosě non va perchč esclude le date in cui non c'č corrispondenza con
AltraTabella.
cosě č meglio
----
SELECT Tabella.Data, Count(AltraTabella.Nome) AS Conteggio
FROM Tabella LEFT JOIN AltraTabella
    ON Tabella.Data>=AltraTabella.DataInizio AND
Tabella.Data<=AltraTabella.DataFine



title: Come si fa a creare un file eseguibile da mdb?

author: Nanno

text:
Sono nuovo ho appena fatto un piccola applicazione su access e vorrei
renderla eseguibile su sistemi windows cosa devo fare e quali software usare
per poterla compilare?
Vi ringrazio
Andrea


text:
"Nanno" <
nannicin...@tin.it
> ha scritto nel messaggio
news:avXOa.5619$it4.1...@news1.tin.it...

Guarda il faqquone su
www.sitocomune.com
MAssimiliano


title: disinibire tasto salva con nome da word aperto in access

text:
    apro un documento di word da access con il seguente codice
            Set wshShell = CreateObject("WScript.Shell")
            wshShell.Run NOMEFILE
            Set wshShell = Nothing
sapete se esiste la possibilitą di disinibire la possibilitą di "salvare con
nome" da word
in quanto il nome al documento lo assegno io da access,
ma solo quando apro word da access mentre se aperto word direttamente da
windows ovviamente ci deve essere.
grazie a tutti.


author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cjn94l$7ci$1...@lacerta.tiscalinet.it...
>     apro un documento di word da access con il seguente codice
>
>             Set wshShell = CreateObject("WScript.Shell")
>             wshShell.Run NOMEFILE
>             Set wshShell = Nothing
>
> sapete se esiste la possibilità di disinibire la possibilità di "salvare
con
> nome" da word
> in quanto il nome al documento lo assegno io da access,
> ma solo quando apro word da access mentre se aperto word direttamente da
> windows ovviamente ci deve essere.
>
> grazie a tutti.
Aperto così non hai molte possibilità di accedere all'oggetto CommandBar.
Per poterne gestire Oggetti e Proprietà devi ricorrere all'uso
dell'Automazione.
accedendo all'istanza di Word tramite GetObject(Vedi Help) hai la
possibilità
di accedere alla Command Bar e fare tutto quello che vuoi come se
fosse quella di Access....!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
Simba883 wrote:
>     apro un documento di word da access con il seguente codice
>
>             Set wshShell = CreateObject("WScript.Shell")
>             wshShell.Run NOMEFILE
>             Set wshShell = Nothing
>
> sapete se esiste la possibilità di disinibire la possibilità di
> "salvare con nome" da word
> in quanto il nome al documento lo assegno io da access,
> ma solo quando apro word da access mentre se aperto word direttamente
> da windows ovviamente ci deve essere.
>
> grazie a tutti.
Personalizza (in word) la barra strumenti rimuovendo i comandi che non vuoi far eseguire...
Ciao.
--
Sergio MAZZA


title: form size/resize

author: lucius

text:
ciao a tutti...
qualcuno saprebbe dirmi perche' quando apro il mio db,
e mi parte la maschera che ho selezionato come maschera di startup..
questa mi si apre a tutto schermo? e' possibile dirgli di non aprirla
a tutto schermo? via vba o via cosa?
ancora...
su alcune maschere, che non hanno nulla di diverso (apparentemente) dalle
altre mi capita che nonostante siano delle dimensioni giuste (controllando
la proprieta' width della form e confrontando col righello) quando le apro
siano leggermente piu' grandi.. e quindi mi scombinano il layout ... ;(
idee? suggerimenti?
grazie.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: form size/resize

text:
lucius ha scritto:

Sull'evento su caricamento digita: docmd.resize


title: form size/resize

author: Alessandro Baraldi

text:
lucius ha scritto:
> ciao a tutti...
>
> qualcuno saprebbe dirmi perche' quando apro il mio db,
> e mi parte la maschera che ho selezionato come maschera di startup..
>
> questa mi si apre a tutto schermo? e' possibile dirgli di non aprirla
> a tutto schermo? via vba o via cosa?
>
> ancora...
>
> su alcune maschere, che non hanno nulla di diverso (apparentemente) dalle
> altre mi capita che nonostante siano delle dimensioni giuste (controllando
> la proprieta' width della form e confrontando col righello) quando le apro
> siano leggermente piu' grandi.. e quindi mi scombinano il layout ... ;(
>
> idee? suggerimenti?
>
> grazie.
Le maschere normalmente non si aprono a tutto schermo, per farlo
dovrebbe
esserci un'istruzione di Maximize da qualche parte, altrimenti non si
spiega
la cosa...!
Ti suggerisco di valutare bene il codice, o la macro eventualmente che
apre la Form
iniziale e verificare che non sia impostato in nessun modo la modalità
Maximize.
@Alex


title: form size/resize

text:
BR1 ha scritto:
> lucius ha scritto:
> Sull'evento su caricamento digita: docmd.resize
provato ma questo metodo non esiste..
ho provato anche DoCmd.MoveSize ma idem nessun effetto..
non esiste alcun maximize in alcuna parte di codice... :(
non saprei proprio dove sia.. ;(
grazie



title: form size/resize

text:
lucius ha scritto:

colpa mia
docmd.restore


title: warning

author: Riccardo Casadei

text:
Avendo sviluppato un applicativo con Access 2000, sul mio pc ho impostato a
false le opzioni relative alla segnalazione delle query di accodamento e
cancellazione.
Compilata in MDE e installata dal cliente (che usa il run-time) mi appaiono
lo stesso gli avvisi.
Ho pensato quindi di gestire le opzioni attraverso il codice, ma non trovo
documentazione relativamente al Set Warning o qulacosa del genere, qualcuno
mi sa dare una risposta ?
Grazie
Ric


title: warning

author: Vittorio Avaldi

text:
"Riccardo Casadei" <
in...@ricweb.it
> ha scritto nel messaggio
news:ak0dro$76n$1...@fe2.cs.interbusiness.it...

Vedi Help su application.setoption


title: warning

text:
Riccardo Casadei ha scritto:
> Avendo sviluppato un applicativo con Access 2000, sul mio pc ho impostato a
> false le opzioni relative alla segnalazione delle query di accodamento e
> cancellazione.
> Compilata in MDE e installata dal cliente (che usa il run-time) mi appaiono
> lo stesso gli avvisi.
> Ho pensato quindi di gestire le opzioni attraverso il codice, ma non trovo
> documentazione relativamente al Set Warning o qulacosa del genere...
Application.SetOption "Confirm Action Queries", False
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: warning

text:
"Riccardo Casadei" <
in...@ricweb.it
> ha scritto nel messaggio
news:ak0dro$76n$1...@fe2.cs.interbusiness.it...

Ho risolto con:
DoCmd.setWarnings False
Grazie
Ric


title: warning

text:
Riccardo Casadei ha scritto:
> > Avendo sviluppato un applicativo con Access 2000, sul mio pc ho impostato
> > a false le opzioni relative alla segnalazione delle query di accodamento e
> > cancellazione.
> > Compilata in MDE e installata dal cliente (che usa il run-time) mi
> > appaiono lo stesso gli avvisi.
> > Ho pensato quindi di gestire le opzioni attraverso il codice, ma non trovo
> > documentazione relativamente al Set Warning o qulacosa del genere,
> > qualcuno mi sa dare una risposta ?
>
> Ho risolto con:
> DoCmd.setWarnings False
Questo non solo opprime le segnalazioni delle query di azione
ma molto di più p.e. se l'utente cancela un record a mano.
--
cu



title: Adp son SQL-Server 2008 che va in crash

author: Davide

text:
Ciao a tutti,
3 anni fa ho creato un adp che utilizzo personalmente per la fatturazione
che ha sempre funzionato senza colpo ferire.
Ora succede una cosa veramente strana: all'avvio il titolo della finestra
cambia rapidissimo tra connesso e disconnesso e dopo circa 60 secondi
l'applicazione si chiude col classico messaggio di invio informazioni del
crash a ms.
La cosa strana è che succede se metto la password di accesso, non mettendo
password access parte disconnesso.
A questo punto succede un'altra cosa, se la finestra del database non è
impostata in visualizzazione tabelle, allora il programma si avvia
regolarmente, però passando alla visualizzazione tabelle la finetra è vuota.
Il programma però funziona, mostra i record e li modifica e crea
regolarmente ma se eseguo un codice che contiene l'inizializzazione di un
ADODB.Recordset va in errore dicendo che non trova il modulo (ma quale
modulo?) ovviamente non solo i riferimenti sono perfettamente a posto, ma la
compilazione del codice non rileva alcuna anomalia.
Inutile dire che ho disinstallato e reinstallato Office ma nulla è cambiato
ho anche provato a usare SQL Server 2005 ma non cambia niente, sembra
proprio un problema legato ad access.
Onestamente ho la tentazione di appendere il portatile al muro con un bel
tassello da 16 piantato al centro, ma prima di togliermi questa
soddisfazione volevo vedere se qualcuno aveva pietà del mio pc e voleva
darmi una mano...
Ciao
Davide
PS: WinXP, OffXP, SQL Server 2005/2008


title: Adp son SQL-Server 2008 che va in crash

author: Pablitomf (da casa)

text:
"Davide" <
seda...@tiscali.it
> ha scritto nel messaggio
news:4cdeb50c$0$45273$4faf...@reader4.news.tin.it...

ma almeno su un altro PC la prova del 9 l'ai fatta?... ma poi, da quanto
tempo ti fa sta storia?... provato a ripristinare un punto di ripristino a
una data certa in cui il sistema funzionava?... solo così puoi capire se il
tassello da 16 lo devi usare o no.


title: Adp son SQL-Server 2008 che va in crash

text:
"Pablitomf (da casa)" <
pabl...@hotmail.it
> ha scritto nel messaggio
> "Davide" <
seda...@tiscali.it
> ha scritto nel messaggio
>> 3 anni fa ho creato un adp che utilizzo personalmente per la fatturazione
>> che ha sempre funzionato senza colpo ferire.
>> Ora succede una cosa veramente strana: all'avvio il titolo della finestra
>> cambia rapidissimo tra connesso e disconnesso e dopo circa 60 secondi
>> l'applicazione si chiude col classico messaggio di invio informazioni del
>> crash a ms.
>> La cosa strana � che succede se metto la password di accesso, non
>> mettendo password access parte disconnesso.
>> A questo punto succede un'altra cosa, se la finestra del database non �
>> impostata in visualizzazione tabelle, allora il programma si avvia
>> regolarmente, per� passando alla visualizzazione tabelle la finetra �
>> vuota.
>> Il programma per� funziona, mostra i record e li modifica e crea
>> regolarmente ma se eseguo un codice che contiene l'inizializzazione di un
>> ADODB.Recordset va in errore dicendo che non trova il modulo (ma quale
>> modulo?) ovviamente non solo i riferimenti sono perfettamente a posto, ma
>> la compilazione del codice non rileva alcuna anomalia.
>> Inutile dire che ho disinstallato e reinstallato Office ma nulla �
>> cambiato
>> ho anche provato a usare SQL Server 2005 ma non cambia niente, sembra
>> proprio un problema legato ad access.
>> Onestamente ho la tentazione di appendere il portatile al muro con un bel
>> tassello da 16 piantato al centro, ma prima di togliermi questa
>> soddisfazione volevo vedere se qualcuno aveva piet� del mio pc e voleva
>> darmi una mano...
>>
>> Ciao
>> Davide
>> PS: WinXP, OffXP, SQL Server 2005/2008
>
> ma almeno su un altro PC la prova del 9 l'ai fatta?... ma poi, da quanto
> tempo ti fa sta storia?... provato a ripristinare un punto di ripristino a
> una data certa in cui il sistema funzionava?... solo cos� puoi capire se
> il tassello da 16 lo devi usare o no.
Grazie della risposta.
Intanto ti dico subito che su un altro pc il programma funziona benissimo e
per di pi� accede, tramite rete, a SQL Server 2008 del PC dove si manifesta
il difetto, quindi � proprio un problema di access.
In effetti credo di aver individuato il programma che ha incasinato tutto,
trattasi dei programmi di progettazione della Gewiss che oltre al sw
installano anche un motore database SQL server.
Mi rendo conto di questo sia perch� prima di installare questi progr tutto
aveva sempre funzionato e in secondo luogo per uno strano fatto:
al termine dell'ennesima reinstallazione di OfficeXP, quando compare il
messaggio "installazione terminata con successo" succede che l'icona di
questa finestra nella barra delle applicazioni non � quella di office (i
classici quattro pezzi du puzzle) ma l'icona dei programmi Gewiss.
Questo fatto mi fa capire che pu� essere stato sovrascritto qualche valore
chiave.
Ora i programmi gewiss a me servono quindi non posso disinstallarli, ma
vorrei trovare il punto in cui nasce questo inghippo.
Ciao
Davide


title: Adp son SQL-Server 2008 che va in crash

author: pablitomf

text:
> Ora i programmi gewiss a me servono quindi non posso disinstallarli, ma
> vorrei trovare il punto in cui nasce questo inghippo.
ah... ok. Allora buona fortuna ;)
PS.
te ne dico una giusto "per"... spesso sti programmi di analisi
incasinano semplicemente le impostazioni internazionali (date con anno
a 4 cifre piuttosto che 2 - o viceversa -, separatori dei decimali
usando le virgole al posto dei punti, separatori di migliaia
personalizzati e simili...) io fossi in te una controllatina prima di
fare e disfare la farei ;)


title: Adp son SQL-Server 2008 che va in crash

text:
"pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:5c7e92f6-ba62-4370...@q18g2000vbm.googlegroups.com...

Ok, controllato, ma sembra tutto a posto.
Mi piacerebbe un elenco delle dll e chiavi di registro usate da access che
solitamente non vengono sovrascritte dal setup...
Penso sia lě il probl.
Grazie dei suggerimenti.
Ciauz
Davide


title: Come ordinare ascendente i nomi report dentro una combo box?

author: RobertoA

text:
Per far scegliere all'operatore il nome report da usare su una stampa, ho
usato una combo box
Quando parte la form che permette la selezione dei parametri di stampa, la
combo viene riempita (una stringa scritta su   combo.RowSource  ) da codice
ciclando tra i report disponibili
Combo.RowSourceType=Elenco Valori
Dentro la combo i nomi report appaion pero' disordinati
Non trovo nesuna proprieta'
Come posso ordinarli senza passare attraverso una memorizzazione intermedia
dei nomi?
Ciao e grazie
RobertoA


text:

Cambia metodo... usa quello che Access ti mette a disposizione invece
di scomodare il VBA....!
Metti questo nel RowSource, ma seleziona il rowSourceType a tabella/
Query
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Type)=-32764))
ORDER BY MsysObjects.Name;
Ciao
@Alex


text:




Ciao
@Alex
-------------------------------------
Proprio bellino, non sapevo si potessero 'selectare' anche gli oggetti del
db
provo subito
Grazie
RobertoA


title: Bevi un caffè alla mia salute

author: Manuel Votta

text:
Ciao,

Quello che vi
sto per raccontare è veramente eccezionale:
 NON E' UNA TRUFFA :
ESISTE LA POSSIBILITA' DI ARRICCHIRTI CON UN
 SEMPLICISSIMO SCAMBIO DI
MESSAGGI VIA RETE !!!
 Un metodo divertente e onesto per fare un sacco
di soldi...
 RASMUS LINO è un ragazzo danese che ha incassato in 5 mesi
la bella cifra
 di £ 64.700.000.000 !!!!!!!!!!!!!!!!!!!
 Una
notizia del genere non passa inosservata !!!!!! ....... se vuoi
sapere
 come ha fatto questo simpatico giovanotto
ad
 arricchirsi così in fretta eccoti la spiegazione , ma prima di
tutto
 sappi :  NON mi iteressa stare a convincerti sulla bontà
o
 meno di questo metodo. IO APPENA L ' HO APPRESO HO DECISO DI PROVARCI
!!!
 Questa catena si differenzia dalle altre per la sua potenzialità
di
 guadagno con un ingresso pari al costo di DIECI CAFFE'
!
 STAMPA SUBITO QUESTO MESSAGGIO : Ti servirà in futuro
.
 Tutto ciò che ti serve sono :
 - 6 banconote da  2.000
lire
 - 6 francobolli per lettera
 CHE COSA HAI DA PERDERE
???  Te lo dico io N-I-E-N-T-E .  Sarebbe stupido
 non
provarci !!!
 ED ORA ECCO  COME  PARTECIPARE :
 1°
PASSO
 prendi 6 fogli di carta separati e scrivi ciò che
segue:
 HO PARTECIPATO ANCH'IO.HO ALLEGATO 2.000 lire. BEVI UN
CAFFE' ALLA MIA
 SALUTE.
 Ora prendile banconote da 2.000 lire e
mettine una in ognuno  dei fogli
 di carta che hai preparato prima
,opportunamente
 piegati da non rendere visibile la banconota dall'
esterno  (   per
 evitare furti accidentali
).
 2° PASSO
 Inserisci il foglio con la banconota da 2.000
lire in una busta e chiudila
 ( fai lo stesso con gli altri 5 fogli )
.
 Se non lo farai le tue possibilità di guadagno si ridurrebbero
moltissimo
 Ciò che stai facendo è  OFFRIRE 6 CAFFE' :
 PER
QUESTO E' ASSOLUTAMENTE LEGALE  !!!!!!!!!!!!!!!!!!!!!!!!!
 3°
PASSO
 Spedisci le 6 buste ai seguenti indirizzi :
 #
1      MORETTI
SIMONE
            Via
Saturno 12

interno 12

00055   Marina di S. Nicola-- Ladispoli (Italy)
 #
2      PASQUALINI
SIMONE

Circ.ne Appia
37

interno 23--- 00179 Rome (Italy)
 # 3
CERRONI
PAOLO

Via Luca A. Cracas
3

00179 Rome, Italy
 # 4
APPIOGRAF
S.R.L.

Via Luca A. Cracas
3

00179  Rome
(Italy)
 #5
PIERAGOSTINI
ASSUNTA

Via Saturno 12  (interno
12)

00055 Marina di S. Nicola
(Ladispoli)

Rome (Italy)
 #6       VOTTA
MANUEL
               Via
M. Colonna
9

00047 Marino (Roma)
4° PASSO
 Ora cancella il nominativo #1
dalla lista che vedi sopra ,e sposta in alto
 gli altri nominativi
( il #6 diventa #5 ,  il #5 diventa
 #4  ecc..............) e
aggiungi il tuo nominativo come  #6  nella lista.
 5°
PASSO
 Spedisci questo messaggio, ricordando di inserire il tuo
nome  al #6 posto
 ad almeno 200 newsgroup ( ce ne sono
circa
 50.000  !!!!!!! ) .  Te ne bastano 200 , e perchè no ,
invia anche ad
 amici che hai in chat , ma ricorda più mail spedisci
e
 più ti arrivano soldi !!!!!!!
 ORA IL DISCORSO SI FA
INTERESSANTE.
 Di 200 contatti con diversi newsgroup , ipotizziamo
pessimisticamente che
 tu riceva solo 5 adesioni.
 Quindi con
iltuo nome al #6 posto su ogni messaggio, riceverai in tutto
 10.000
lire.
 Ogni persona che ti ha spedito 2.000 lire , spedisce anche lei
200
 messaggi ad altrettanti newsgroup, ciascuna con il
tuo
 nome al #5 posto ; supponendo che anche loro ricevano 5 adesioni,
questa
 fase porta altre 50.000 lire a te.
 Queste 25 persone
fanno almeno 200 messaggi con il tuo nome al #4 posto e
 nelle medesime
sfortunate se solo 5 persone
 aderiscono questo ti porta altre 250.000
lire.
 Ora queste 125 persone continuano la medesima procedura ( il
tuo
 nominativo è al #3 posto ) ancora solo 5 adesioni
ciò
 porta altre 625 persone e quindi 1.250.000 lire a te
!!!!!!!!!!!
 ORA ARRIVA LA PARTE PIU' INTERESSANTE :
 Queste 625
persone spediscono 200 messaggi con il tuo nominativo al #2
 posto e
questo ti porta 6.250.000 lire !!!!!!!!
 Infine queste 3125 persone
scrivono 200 messaggi con iltuo nome al #1 posto
 e riceverai come prima
5 adesioni e questo
 ti porta 31.250.000 lire
!!!!!!!!!!!!!!!!!
 Tutto con un investimento iniziale di solo
£ 12.000 e tutto ciò
 ipotizzando SOLO 5 ADESIONI  che è
davvero un numero
 molto basso !!!!!  Di solito sono circa 20-30 ;
ora eccoti una media con
 15 adesioni
 #6
posto       £ 30.000
 #5
posto       £  450.000
 #4
posto       £   6.750.000
 #3
posto       £  101.250.000
 #2
posto       £  1.518.750.000
 #1
posto       £
22.781.750.000
 TOTALE :   £
23.008.480.000  LIRE  .      INCREDIBILE
!!!!!!!!
 Senza sperare in tanta grazia perchè non provate a vedere
se funziona ???
 Questa catena conviene a me a te e a tutti quelli che
leggono ; in pratica
 tutti ci arricchiremo con sole £ 12.000,  6
francobolli
 E SENZA RECARE DANNO A NESSUNO.
 ORA STA A TE
DECIDERE !!!!!!!!!!!!!!!!!!!!!!!! ( ma credo tu l' abbia già
 fatto !!!
)
 Il meccanismo è chiaro, i ragionamenti sopra riportati sono
ineccepibili
 !!!
 Che cosa sono poi £ 12.000  ????
Sicuramente ti divertirai e avrai di
 sicuro molta possibilità di fare
soldi rispetto agli
 sconvenientissimi giochi statali.  Non serve
fortuna , è un gioco puramente
 STATISTICO .
 Ma ricorda: se
vuoi che tutto funzioni devi essere ONESTO  ( anche perchè
 ce n' è
per tutti  !!!! )
 Cambiare le modalità porterebbe danno ate e agli
altri .
 Seguono due lettere per raccontarti di persone che hanno
provato :
 ......... un giorno navigando leggo questo messaggio e provo
e dopo 4
 settimane non mi ricordavo più del gioco fin
quando
 arrivarono le prime buste  e man mano le altre. Era
incredibile , posso
 dire di aver guadagnato circa £
60.000.000.
 Adesso possiedo una macchina nuova e quest' estate ho fatto
un viaggio in
 AUSTRALIA  !!!!!!!!!
 Sono un ragazzo di
24 anni e 2 mesi fa ero un pò a corto di soldi e essendo
 un
appassionato di computer mi imbattei in questa lettera che diceva
"
 vuoi vincere tanti soldi ?????? "
....... perchè non provare
 ........... adesso ho un computer
nuovissimo
 e mi avanzano ancora altri soldi.
 PROVA E
VEDRAI COME IL TUO PORTAFOGLIO SI
GONFIERA'


title: Bevi un caffè alla mia salute

author: Silvio Berruti

text:
""Manuel Votta"" <
car...@inwind.it
> ha scritto nel messaggio
news:01b201c044dd$b58dbc80$5029623e@cyberman...
 Ciao,
Quello che vi sto per raccontare è veramente eccezionale:
 NON E' UNA TRUFFA : ESISTE LA POSSIBILITA' DI ARRICCHIRTI CON UN
 SEMPLICISSIMO SCAMBIO DI MESSAGGI VIA RETE !!!
 Un metodo divertente e onesto per fare un sacco di soldi...
 RASMUS LINO è un ragazzo danese che ha incassato in 5 mesi la bella cifra
 di £ 64.700.000.000 !!!!!!!!!!!!!!!!!!!
 Una notizia del genere non passa inosservata !!!!!! ....... se vuoi sapere
(omissis..)
 PROVA E VEDRAI COME IL TUO PORTAFOGLIO SI GONFIERA'
----------------------------------------------------------------------------
-------------------
Caro Manuel,
premesso che non sono riusciti a farmi innervosire nè il tuo messaggio nè il
successivo caffè (a proposito come faccio x addebitartelo? :-)), ti scrivo
perché mi fa specie che ci siano ancora persone che credano nella
possibilità di fare soldi facili (si possono fare, i soldi, ma ti tocca
lavorare) alla faccia e sulle tasche di gonzi che abbocchino ad una delle +
vecchie catene di S. Antonio esistenti in rete, senza fermarsi a riflettere
che loro stesse si siano messe nella stessa condizione.
Ammesso che effettivamente Rasmus Lino abbia guadagnato quei soldi (tu hai
certezze in merito?), che cosa ti ha fatto pensare di poter ricevere un
guadagno anche tu?
Se posso consigliarti e se desideri persistere nelle catene di S. Antonio
(lo faranno martire solo x essere citato a sproposito), fatti venire una
buona idea nuova! Trova il sistema di divulgarla e ricorda che i sistemi
piramidali, basati sui soldi che il nuovo adepto versa all'iscrizione, fanno
guadagnare SOLO chi li inventa e pochissimi altri.
Detto questo, ti auguro buona fortuna (e ne avrai bisogno...)
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Avanzamento record con TAB..

author: SuperPippo®

text:
ciao a tutti... come si fa a disabilitare
il tasto Invio per lo spostamento dei record
di una maschera ed utilizzare un altro tasto ...
esempio TAB...???
grazie...


title: Errore senza motivo su VBA

author: Marco

text:
Sono riuscito a risolvere il problema in questo modo: anzichč scrivere
    Dim RS As Recordset
ho messo
    Dim RS
Non ho ben capito quale sia il tipo dell'oggetto restituito da
OpenRecordset() perň al momento tutto funziona.
Marco
+-------------------------------------+
|  Marco  <
napom...@lycosmail.com
>  |
|  Delete WORLD from address, to send |
+-------------------------------------+


title: Errore senza motivo su VBA

text:
Ciao, sto cercando di fare una stupida funzione il cui risultato verrà usato
come valore predefinito in un campo testo dentro una maschera.
Il problema è che in riga 6, quando viene eseguita mi da questo errore:
Errore run-time 13:
Tipo non corripondente
1 Function CalcolaID() As Long
2    Dim RS As Recordset
3    Dim Count As Long
4
5    ' apro il recordset
6    Set RS = CurrentDb.OpenRecordset("SELECT ID FROM tblID ORDER BY ID")
7
8    If RS.EOF Then
9         ' se il recordset è vuoto, setto il contatore
10        Count = 1
11    Else
12        ' incremento il contatore
13        RS.MoveLast
14        Count = RS!ID + 1
15    End If
16
17    ' inserisco il nuovo record
18    RS.AddNew
19    RS!ID = Count
20    RS.Update
21    RS.Close
22
23    ' restituisco il risultato
24    CalcolaID = Count
25 End Function



title: Errore senza motivo su VBA

text:
"Marco" <
nos...@nospam.com
> ha scritto nel messaggio
news:3b935...@212.7.64.37...

Prova con
Function CalcolaID() As Long
    Dim DBS as Database, RS As Recordset
    Dim Count As Long
    ' apro il recordset
    Set DBS = CurrentDb
    Set RS = DBS.OpenRecordset("SELECT ID FROM tblID ORDER BY ID",
dbOpenDynaset)
    If RS.EOF Then
         ' se il recordset è vuoto, setto il contatore
        Count = 1
    Else
        ' incremento il contatore
        RS.MoveLast
        Count = RS!ID + 1
    End If
    ' inserisco il nuovo record
    RS.AddNew
    RS!ID = Count
    RS.Update
    RS.Close
    Set RS=Nothing: Set DBS=Nothing
    ' restituisco il risultato
    CalcolaID = Count
End Function
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Errore senza motivo su VBA

author: Sib dall'ufficio

text:
"Marco" <
nos...@nospam.com
> ha scritto nel messaggio
news:3b936...@212.7.64.37...
> Sono riuscito a risolvere il problema in questo modo: anzichč scrivere
>     Dim RS As Recordset
> ho messo
>     Dim RS
> Non ho ben capito quale sia il tipo dell'oggetto restituito da
> OpenRecordset() perň al momento tutto funziona.
dichiarandola in questo modo l'hai impostata come Variant, quindi ci pensa
Access a convertirla nel formato che gli serve.
La prima dichiarazione era invece piu' specifica e corretta. Forse ti da
errore perche' hai attivato i riferimenti ADO.
Prova a dichiararlo esplicitamente come DAO:
Dim rs as DAO.Recordset
Sib


title: rinominare foglio di excel da access

author: Logan

text:
Ciao, ho un applicazione in access che deve esportare una query in un file
di excel.
In excel il nome del foglio che viene visualizzato č il nome della query che
viene esportato, vorrei poter rinominare il nome del foglio o esportare la
query con un nome diverso dal proprio.
Non posso modificare il nome della query!!
Potete aiutarmi?
Ciao grz by Logan bye bye


title: rinominare foglio di excel da access

author: Sib

text:
"Logan" <
loga...@hotmail.com
> ha scritto nel messaggio
> Ciao, ho un applicazione in access che deve esportare una query in un file
> di excel.
> In excel il nome del foglio che viene visualizzato č il nome della query
che
> viene esportato, vorrei poter rinominare il nome del foglio o esportare la
> query con un nome diverso dal proprio.
Sarebbe bene imparare a fare una minima ricerca prima di postare,
se provi ad aprire una ricerca tra i messaggi e cerchi la parola
"Rinominare" avresti trovato la risposta dato che se ne era gia' parlato e
avresti scoperto che devi usare l'istruzione name.
Sib


title: problema con la creazione guidata

author: Revelli Luca

text:
Scusate la domanda da novizio.
Ho cominciato a " trafficare " con Access 2000 per riuscire ad ottenere un
database per l'ufficio che in commercio non trovavo corrispondente alle mie
necessiatŕ o meglio l'ho quasi trovato ma a cifre da vero infarto, ecco
perchč la mia domanda č da vero novizio.
Ho cominciato a creare tabelle, maschere e query ad un certo punto la
creazione guidata ha smesso di funzionare, ed io non sono in grado di
continuare senza quella, mi sapete indicare come posso agire per sistemare
il tutto.
Vi ringrazio in anticipo.
Luca R.


title: problema con la creazione guidata

author: Emyr

text:
On Tue, 12 Feb 2002 07:52:00 GMT, "Revelli Luca"
<
stdre...@libero.it
> wrote:
>Scusate la domanda da novizio.
>
>Ho cominciato a " trafficare " con Access 2000 per riuscire ad ottenere un
>database per l'ufficio che in commercio non trovavo corrispondente alle mie
>necessiatà o meglio l'ho quasi trovato ma a cifre da vero infarto, ecco
>perchè la mia domanda è da vero novizio.
>
>Ho cominciato a creare tabelle, maschere e query ad un certo punto la
>creazione guidata ha smesso di funzionare, ed io non sono in grado di
>continuare senza quella, mi sapete indicare come posso agire per sistemare
>il tutto.
>
>Vi ringrazio in anticipo.
>
>Luca R.
>
>
riporto fedelmente
Giuseppe Ciccolella ha scritto:
> Come attivare le creazioni guidate di access. Ho già provato a
> selezionare la bacchetta magica dalla barra degli strumenti, ma niente.
> Poi ho provato a reinstallare office, ma non succede niente lo stesso.
> Come posso fare???
Rivelare la tua versione di Access?
Se si tratta di A00, forse aiuta
ACC2000: Nothing Happens When You Try to Start a Microsoft Access
Wizard
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q242218
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com
Saluti.
Emanuele.


title: recordset vuoto - come gestire l'errore

author: Fanciullo

text:
Ciao a tutti,
access97
via codice se un recordset � vuoto si ha l'errore.....
3021 nessun record corrente
come � possibile evitarlo?
grazie


title: recordset vuoto - come gestire l'errore

author: CinziaPagani

text:
"Fanciullo" <
vito...@libero.it
> ha scritto nel messaggio
news:4ac989d4$0$1103$4faf...@reader4.news.tin.it...

Ciao Fanciullo,
non puoi evitare l'errore, puoi gestirlo.
Di solito prima di fare oerazioni su un recordset, dopo l'apertura si
testa che non sia vuoto
Dim rs as recordset
on error goto MysubErrror
if not rs.eof  and not rs.bof  then
        .....
end if
MySubExit:
    Exit Sub
MysubErrror:
    if err.number = 3021 then
                MsgBox("recordset vuoto")
                goto MySubExit
    else
             goto MySubExit
    end if
--
Cinzia [Office Access MVP]
_______________________

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


title: recordset vuoto - come gestire l'errore

author: Karl Donaubauer

text:
Fanciullo wrote:
> access97
>
> via codice se un recordset ï¿œ vuoto si ha l'errore.....
> 3021 nessun record corrente
>
> come ï¿œ possibile evitarlo?
www.donkarl.com/it?FAQ6.17
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Problema stampa

author: justmenow

text:
Ciao.
La mia maschera iniziale presenta decine di sottomaschere che rilevano la
situazione in diverse parti dell'impianto. Come fare ad ottenere una stampa
di questa maschera iniziale con i valori delle sottomaschere che
effettivamente vedo (ultimo record per ciascuna sottomaschera). Cioč fare
una stampa di ciň che vedo sul video e non, come succede, delle varie
sottomaschere con tutti i record ma solo di quello che vedo sul video
(impostato come ultimo record)
Inoltre:
Esiste un'istruzione per far sě che le maschere si adattino alla
risoluzione del video ? In modo tale che occupino sempre tutto lo schermo
anche se lo si visualizza su un 1024X768 mentre io ho lavorato su un
800x600 ?


title: Problema stampa

author: Roberto - Syd

text:
"justmenow" <
thest...@libero.it
> ha scritto nel messaggio
news:9qpu7.9505$0Y2.1...@news.infostrada.it...

Fai un Report con decine di sottoreport che conterranno l'ultimo record
delle sottomaschere in modo da rispecchiare la situazione della Maschera.
Ciao Roberto - Syd


title: Postgresql - access

author: ciroteo

text:
Ciao a tutti e ben ritrovati.
Ho visto (beh ... a onor del vero me lo aveva segnalato Cinzia tempo fa) che
è uscita la versione di postgresql per windows.
Nessuno ha mai provato ad interfacciarla con Access?
--
ciroteo
MC
il mio primo aforisma ...
"Se la conoscenza può creare dei problemi, non è con l'ignoranza che
possiamo risolverli"
Isaac Asimov


title: Lentezza Access 2000, come Mai?

author: Salvatore Bianca

text:
Vi siete accorti che con il crescere del numero di maschere, report e moduli
in un progetto il salvataggio dei moduli VBA si rallenta sempre di più,
mentre con il 97 il salvataggio era quasi istantaneo in 2000 possono passare
anche 4-6 sec. , sembrerebbe che riindicizzasse tutte le routine.
Conoscete una soluzione al problema?


title: Lentezza Access 2000, come Mai?

author: Roberto Di Vetta

text:
Non sei il solo ad aver riscontrato questo problema con Access 2000.
Personalmente, l'ho momentaneamente abbandonato perchè ho dovuto subire
questi rallentamenti adirittura con le query.
Un amico però mi ha messo una pulce nell'orecchio: Access 2000 è fatto così
perchè altrimenti a cosa servirebbero i pentium III 600Mhz o altri
processori supersonici !!!
Chissà
Salvatore Bianca <
biancas...@tiscalinet.it
> wrote in message
8eojsr$tgk$1...@pinco.nettuno.it...



title: Lentezza Access 2000, come Mai?

text:
Roberto Di Vetta <
sig...@tiscalinet.it
> wrote in message ...



title: Lentezza Access 2000, come Mai?

author: Carlo Ve

text:
Salvatore Bianca ha scritto nel messaggio <8eojsr$tgk$
1...@pinco.nettuno.it
>...
>Vi siete accorti che con il crescere del numero di maschere, report e
moduli
>in un progetto il salvataggio dei moduli VBA si rallenta sempre di più,
>mentre con il 97 il salvataggio era quasi istantaneo in 2000 possono
passare
>anche 4-6 sec. , sembrerebbe che riindicizzasse tutte le routine.
>
>Conoscete una soluzione al problema?
Non proprio, ma lo stesso problema l'ho riscontrato anch'ho su un db
costruito
in A2000 per niente grande diciamo 4/5 maschere,   4/5 qry al massimo e
tabelle allegate.
Anche il solo il passaggio dalla modalita' struttura a quella operativa di
una maschera comportava tempi insolitamenti lunghi. Lo stesso db convertito
in A97 tornava ai suoi livelli nromali.
Inizialmente pensavo potesse dipendere al fatto che il db veniva
sistematicamente convertito
da A2000 al A97 e viceversa, perche' mi sebrava di abver notato che non
tutti i db di A2000 avevano questo tipo di problema, ma ora mi sembra di
aver capito che non e' pèroprio cosi'.
Carlo Ve


title: Lentezza Access 2000, come Mai?

author: Sergio de Pretis

text:
Salvatore Bianca ha scritto:
>
> Vi siete accorti che con il crescere del numero di maschere, report e moduli
> in un progetto il salvataggio dei moduli VBA si rallenta sempre di più,
> mentre con il 97 il salvataggio era quasi istantaneo in 2000 possono passare
> anche 4-6 sec. , sembrerebbe che riindicizzasse tutte le routine.
>
> Conoscete una soluzione al problema?
Io non utilizzo Access 2000 ma ho visto sul sito
http://www.donkarl.com/
  di KARL DONAUBAUER (che ogni tanto partecipa al
nostro NG) un elenco di valutazioni derivanti dalla sua esperienza con
Access 2000 positive e negative su Access 2000 con dei link a Microsoft
(scritto purtroppo in tedesco) tra cui:
- E' più lento a caricare il DB
- E' più lento a memorizzare perchè ogni volta memorizza tutto il
progetto anzichè solo l'oggetto modificato e questo diventa più evidente
man mano che aumenta la dimensione del progetto.
Sarebbe interessante che qualche altoatesino del NG lo traducesse e lo
mettesse a disposizioni di tutti sul sito comune.
Ciao a tutti
--------------------------------------------------------------------
Sergio de Pretis                     E-mail
depr...@csgen.it


title: Gestione Magazzino

text:
Buongiorno al newsgroup, č un pņ che non ci sentiamo...
ho un dubbio sul metodo da seguire per gestire un magazzino con access:
nel mio database inserisco la merce consegnata con una maschera collegata
alla tabella tbl_commissioni ed in una sottomaschera collegata alla tabella
prodotti...
dato che si tratta di calzature ho necessitą di suddividere articoli e
colori anche per le varie misure, come posso inserire un procedimento del
genere?
per adesso nella sotto maschera inserisco soltanto il marchio, l'articolo,
il colore, la quantitą (senza specificare le misure), ma adesso vorrei anche
gestirle, in modo da inserire gli articoli venduti e scaricarli
automaticamente...
Vorrei capire quali tabelle dovo costruire o quali tabelle devo ampliare...
Datemi una mano, vi ringrazio gią....
Davide


title: Gestione Magazzino

author: FABIO

text:
C.O.L.O.N. wrote:
> Buongiorno al newsgroup, è un pò che non ci sentiamo...
> ho un dubbio sul metodo da seguire per gestire un magazzino con access:
> nel mio database inserisco la merce consegnata con una maschera collegata
> alla tabella tbl_commissioni ed in una sottomaschera collegata alla tabella
> prodotti...
> dato che si tratta di calzature ho necessità di suddividere articoli e
> colori anche per le varie misure, come posso inserire un procedimento del
> genere?
> per adesso nella sotto maschera inserisco soltanto il marchio, l'articolo,
> il colore, la quantità (senza specificare le misure), ma adesso vorrei anche
> gestirle, in modo da inserire gli articoli venduti e scaricarli
> automaticamente...
> Vorrei capire quali tabelle dovo costruire o quali tabelle devo ampliare...
> Datemi una mano, vi ringrazio già....
> Davide
Ti suggerisco rapidamente un metodo usato per un azienda di abbigliamento:
1) Ho creato una tabella articoli: IdArticolo, Descrizione, IDTaglia
2) Ho creato una tabella colore: Colore
3) Ho creato una tabella set taglie: IDTaglia, TG1, ..., TGx
4) Ho creato una tabella Vendite/Acquisti: IDProgresivo, IDArticolo,
Colore, QTAcq1,..., QTAcqX, QTVen1,....,QTVenX
La tabella set di taglie era indispensabile perchè nell'abbigliamento si
possonno utilizzare diverse misure (S/M/L/XL, 46/48/50..., 47/49/51...,
etc), tu la puoi utilizzare per suddividere le misure bambini, donna, uomo
in tre record distinti.
Tutte le operazioni di compravendita le effettui sulla 4ta tabella dove
indichi l'articolo, il colore e la quantità per taglie da Qt1 a QtX
Spero di essere stato chiaro. Ciao, Fabio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Gestione Magazzino

text:
"FABIO" <
blue...@libero.it
> ha scritto nel messaggio
news:aqm6lc$ou$1...@news.newsland.it...

ehm...
grazie Fabio, tu sei stato chiarissimo, ma temo di non avere capito bene...
in particolare non capisco un paio di cose...
le taglie nelle scarpe sono varie...
posso avere delle scarpe che vanno dal 36 al 41 o dal 35 al 40, o dal 35 al
41 e così via....
e poi non capisco nella quarta tabella quando scrivi "da Qt1 aQtX"
potresti farmi un esempio più preciso, proprio schematicamente i campi e un
esempio dei dati da inserire?
Ti prego aiutami, ti ringrazio della tua disponibilità!
Davide


title: Report in PDF

author: Arturo Casdei

text:
Qualcuno ha idea come ottenere un report direttamente in .pdf, da ACCESS 97
????
Grazie


title: Report in PDF

author: fabio

text:
"Arturo Casdei" <
fanta...@virgilio.it
> ha scritto nel messaggio
news:2fAga.23950$i26.6...@news2.tin.it...

Installando PDF writer o 5D PDF NickNackIt: creano una stampante virtuale
che produce un file.
--
Fabio Dalla Villa
nomec...@tiscali.it
Biella


title: Report in PDF

text:
.....e per inviare un e-mail, direttamente in .pdf ?   inserendo nel
registro di Access l'opzione di formato .pdf piuttosto che .rtf..o .doc..
Grazie
Simon
"fabio" <
cor...@tiscali.it
> ha scritto nel messaggio
news:b5uk68$kiu$1...@usenet.itgate.net...



title: Report in PDF

author: yQy

text:
On Thu, 27 Mar 2003 11:35:54 +0100, "fabio" <
cor...@tiscali.it
> wrote:
>Installando PDF writer o 5D PDF NickNackIt: creano una stampante virtuale
>che produce un file.
pdf writer di chi? ce ne sono a miglia....
qualcuno freeware? quello ke dici tu qual'e'?
Ciao :)


title: Report in PDF

text:
"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:3e833df8...@news.tin.it...

ho trovato il PDF Writer originale di Macromedia.. (sono 3 o 4 file).. ma ho
visto che nonostante sia eccezionale sulla conversione dei True Type
rispetto un PDF995 (quest'ultimo ha una conversione di true type del
cavolo), a volte su report molto complicati (almeno io penso) non funzioni e
restiruisce un errore del tipo "stampante non disponibile".
Infatti ero già pronto ad acquistare PDF995.. ma adesso ne provo prima altri
... voi ne conoscete?
ciao


title: Report in PDF

author: Giumalex

text:
Io uso acrobat 5.0, costo per quello che è, ma non da alcun problema...
Alex
www.giumalex.supereva.it
"### CH v2.003 ###" <
ngma...@genio-af.it
> ha scritto nel messaggio
news:WmHga.53858$7y3.1...@twister1.libero.it...



title: Uso di variabili nelle query

author: Akira

text:
Salve
ho creato un report che ha come origine dati una Query con un parametro
(AnnoRif). Ho creato inoltre una variabile pubblica che uso un pò
dappertutto e vorrei utilizzare il contenuto di questa variabile, cioè
l'anno, associandola al parametro della query AnnoRif.
Esiste un metodo per associare questa variabile al parametro della query?
Grazie
Ciao


title: Uso di variabili nelle query

author: Ivan

text:
"Akira" <
andrea.di...@tin.it
> ha scritto nel messaggio
news:30BD8.34142$CN3.1...@news2.tin.it...

io mi comporto così. Tieni conto che è uno starlcio di codice che và bene
nel mio programma, ma contiene il metodo per passare due parametri ad una
query che li richiederebbe, il tutto da codice.
[..]
    Dim sql As String, qd As QueryDef, parPag As Parameter, parVal As
Parameter
    sql = "PARAMETERS npag Text ( 4 );"
    sql = sql & "INSERT INTO tCambi ( siglaCate, num, nome, soggetto, pag,
valore ) "
    sql = sql & "SELECT qSkedeEnum.sigla, qSkedeEnum.num, qSkedeEnum.nome,
qSkedeEnum.soggetto, [npag] AS Espr1 , [valo] AS Espr2 "
    sql = sql & "FROM qSkedeEnum "
    sql = sql & "WHERE (((qSkedeEnum.num)= '" & num & "') AND
((qSkedeEnum.sigla)= 'PF'));"
'^^^^ creo una stringa SQL (una query al VOLO) questa è costruita per
richiedere due parametri [npag] e [valo]
    CurrentDb.QueryDefs("qCambi").sql = sql
'^^^^^ inserisco la query nel database
    Set qd = CurrentDb.QueryDefs("qCambi")
    Set parPag = qd.Parameters!npag
    Set parVal = qd.Parameters!valo
'^^^^ creo i riferimenti ai parametri
    parPag = txtPag
    parVal = txtValore
'^^^^^ gli passo i valori attuali
    qd.Execute
'^^^^^^ eseguo la query
    MsgBox "aggiunta !", vbInformation
'^^^^^ mi notifico l'avvenuto inserimento (è una query di inserimento)
[..]
spero ti sia utile.
fammi sapere
vAn


title: Uso di variabili nelle query

author: Antonio Biso

text:
"Akira" <
andrea.di...@tin.it
> ha scritto nel messaggio
news:30BD8.34142$CN3.1...@news2.tin.it...

La variabile direttamente non la puoi usare, ma puoi usare una chiamata ad
una funzione che ritorna il valore della variabile
Antonio


title: Uso di variabili nelle query

author: Max De Poli

text:
"Akira" <
andrea.di...@tin.it
> wrote in message news:<30BD8.34142$
CN3.1...@news2.tin.it
>...

Fai una funzione che restituisce il valore della tua variabile:
Public PIPPO as Integer
Public Function RestPippo() as Integer
RestPippo=PIPPO
End function
e usi questa funzione al posto del parametro.
SELECT * FROM TABELLA WHERE Anno = RestPippo();
Cia'
Max


title: northwind

author: FN

text:
dove posso trovare northwind?
grazie


title: northwind

author: cidi

text:
"FN" <
francesco....@libero.it
> ha scritto nel messaggio
news:MXARb.291302$e6.11...@twister2.libero.it...
> dove posso trovare northwind?
...dipende.
se hai installato il database d'esempio lo trovi nella cartella:
C:\programmi\microsoft office\office\samples .
altrimenti nel cd di office.
> grazie
>
>
Ciao Daniele


title: File MDE

author: VedoTondo

text:
Scusate se vi stresso di nuovo......Il mio database non mi fà creare il file
mde, mi dà questo errore:
Questo errore è in genere correlato alla compilazione di un database di
grandi dimensioni in un file MDE.  A causa del metodo utilizzato per la
compilazione del database, per ogni tabella viene creato un numero
considerevole di riferimenti TableID.  Il modulo di gestione di database
Microsoft Jet versione 4.0 supporta la creazione contemporanea di un massimo
di 2048 riferimenti TableID aperti. L'esportazione di un database come file
MDE può comportare potenzialmente il superamento di questo limite se il
database include numerosi oggetti (tabelle, macro, maschere, report e così
via).
Non è disponibile un metodo preciso per stimare il numero di riferimenti
TableID utilizzati dal modulo di gestione di database Jet durante il
processo di compilazione di un database come file MDE. Tuttavia, ogni modulo
VBA e ogni maschera utilizza un riferimento TableID e ne consegue che, se il
database include 500 maschere e la proprietà Possiede modulo di ogni
maschera è impostata su Sì, verranno utilizzati 1.000 riferimenti TableID.
Sinceramente non mi pare un database eccessivamente grande, non è forse che
ho sbagliato qualcosa?
Dimenticavo.... le tabelle sono collegate, ne ho solo due (temp) in questo
FE.
Grazie per eventuali suggerimenti.
Saluti Andrea


title: File MDE

author: Karl Donaubauer

text:
VedoTondo wrote:
> Scusate se vi stresso di nuovo......Il mio database non mi fà creare il
> file mde, mi dà questo errore:
>
> Questo errore è in genere correlato alla compilazione di un database di
> grandi dimensioni in un file MDE.   ...
> Sinceramente non mi pare un database eccessivamente grande, non è forse
> che ho sbagliato qualcosa?
>
> Dimenticavo.... le tabelle sono collegate, ne ho solo due (temp) in questo
> FE.
Prova i metodi di
www.donkarl.com/it
 FAQ 7.17
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: File MDE

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:43bhrqF...@individual.net...
> Prova i metodi di
>
www.donkarl.com/it
 FAQ 7.17
Grazie, ho trovato il problema (due ore di cancellazioni e prove), era una
maschera che faceva le bizze.
Saluti Andrea


title: barre degli strumenti in office 2007

author: Giuseppe

text:
Salve a tutti.
Io vorrei disabilitare tutte le barre degli strumenti e  di avvio
veloce e far apparire dei menù a tendina come si faceva con Access
2003.
Dalle opzioni di Access --> database corrente ho tolto la spunta alle
tre voci della sezioni Opzioni barra multifunzione e barra degli
strumenti ma quando avvio il db senza il tasto shift cmq mi appare la
barra degli strumenti home e quella di avvio veloce con le frecce per
annullare o riabilitare le ultime modifiche.
Poi leggendo sul sito microsoft nella sezione Access 2007 ho visto che
le barre degli strumenti create con le macro sono come quelle di
access 2007 e non come Access 2003; sbaglio?
Mi date dei riferimenti da studiare  o degli esempi da seguire?
Grazie
Giuseppe


title: Errore di run-time '2540' su sottomaschera

author: Mario Scola

text:
Ho una maschera principale e una sottomaschera che ha origine dalla maschera
persone
Quando vado sulla sottomaschera persone per eseguire un codice visual basic
in esso contenuta e mi da questo errore
Errore di run time '2540'
Impossibile trovare la maschera 'persone' a cui fa riferimento un macro o
nel codice visual basic.
Come posso risolvere il problema?
Grazie
--
Scola Mario


text:
"Mario Scola" <marscol*NOSPAM*@
tin.it
> ha scritto nel messaggio
news:31l3c.20042$z23.8...@news3.tin.it...

Chiedo scusa ma appena postata la domanda ho trovato la soluzione... eppure
era da + di 1 ora che mi arrovellavo sopra sto problema. Bhe per i futuri
frequentato dico che la soluzione era nell'inserire nel codice visula basice
della maschera persone il riferimento alla maschera completo della maschera
principale in cui la maschera pesrsone era insrita come sotto maschera.
Riporto il codice che forse è meglio:
Prima il codice era cosi:
Dim maschera
Set maschera = Forms![persone]
Nom = maschera!IDcontatto.Column(1)
Cog = maschera!IDcontatto.Column(2)
L'ho cambiato cosi
Dim maschera
Set maschera = Forms![avvenimenti]![persone]
Nom = maschera!IDcontatto.Column(1)
Cog = maschera!IDcontatto.Column(2)
Dove avvenimenti è la maschera in cui persone è inserita come sottomaschera
Ciao mario


author: Sergio MAZZA

text:
"Mario Scola" <marscol*NOSPAM*@
tin.it
> ha scritto nel messaggio
news:s9l3c.20080$z23.8...@news3.tin.it...

Attenzione per alcune versioni di access il termine "maschera/e" è
riservato...
Ciao.
--
Sergio MAZZA


author: Jason

text:
Riciao a tutti,
Impossibile installare Office System Pack è il messaggio che mi dà un PC
con installato WINXP SP2, su cui tento di installare un applicativo con il
runtime di access.
Sul PC su cui sviluppo Ho installato lo stesso sistema operativo, e tutti
i dawload disponibili sul sito della microsoft.
Sto usando Office XP develocer quindo Access 2002 aggiornato a SP3.
E' possibile risolvere questo preblema e come?? Sono un tanticchio
disperato!!
Grazie per l'aiuto.
Jason
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Lorenzo(pyx)

text:
"Jason" <
g.bri...@ecrsystem.it
> ha scritto nel messaggio
news:cofrd0$hcn$1...@news.newsland.it...
>
> Riciao a tutti,
> Impossibile installare Office System Pack è il messaggio che mi dà un PC
> con installato WINXP SP2, su cui tento di installare un applicativo con il
> runtime di access.
>
>
> Sul PC su cui sviluppo Ho installato lo stesso sistema operativo, e tutti
> i dawload disponibili sul sito della microsoft.
>
> Sto usando Office XP develocer quindo Access 2002 aggiornato a SP3.
>
>
> E' possibile risolvere questo preblema e come?? Sono un tanticchio
> disperato!!
>
>
> Grazie per l'aiuto.
>
> Jason
>
> --
>
Ciao,
Tempo fa mi sono imbattuto in un problema simile,
Ho trovato la causa in questo link
http://tinyurl.com/5n3ha
Hai un numero di evento che ti viene segnalato ?
Lorenzo


author: Carlo Costarella

text:
"Jason" <
g.bri...@ecrsystem.it
> ha scritto nel messaggio
news:cofrd0$hcn$1...@news.newsland.it...
>
> Riciao a tutti,
> Impossibile installare Office System Pack è il messaggio che mi dà un PC
> con installato WINXP SP2, su cui tento di installare un applicativo con il
> runtime di access.
>
>
> Sul PC su cui sviluppo Ho installato lo stesso sistema operativo, e tutti
> i dawload disponibili sul sito della microsoft.
>
> Sto usando Office XP develocer quindo Access 2002 aggiornato a SP3.
>
>
> E' possibile risolvere questo preblema e come?? Sono un tanticchio
> disperato!!
>
>
> Grazie per l'aiuto.
>
> Jason
>
> --
Ciao
hai provato anche qui?:
http://www.microsoft.com/office/ork/updates/xp/art10sp3.htm
Ciao, Carlo


title: Impossibile installare Office System Pack

text:
Lorenzo(pyx) ha scritto:



> Lorenzo
Ciao,
Purtroppo no, il messaggio completo che mi dà la macchina dove faccio
l'installazione è questo, "per l'installazione di office system pack è
necessario windows NT 4.0 service pack 6.0 o versione superiore,
impossibile installare office system pack!"
Grazie ancora.
Jason.



text:
Jason ha scritto:
> Riciao a tutti,
> Impossibile installare Office System Pack è il messaggio che mi dà un PC
> con installato WINXP SP2, su cui tento di installare un applicativo con il
> runtime di access.
> Sul PC su cui sviluppo Ho installato lo stesso sistema operativo, e tutti
> i dawload disponibili sul sito della microsoft.
> Sto usando Office XP develocer quindo Access 2002 aggiornato a SP3.
> E' possibile risolvere questo preblema e come?? Sono un tanticchio
> disperato!!
> Grazie per l'aiuto.
> Jason
Ho trovato!!!!!!!!!!!!!!!!!!!!!!
In  questo si c'è la soluzione del dilemma!!!
http://support.microsoft.com/default.aspx?scid=kb;en-us;837150&Product=acc2002
Grazie a tutti!!
Jason.



text:
"Jason" <
g.bri...@ecrsystem.it
> ha scritto nel messaggio
news:cohcvk$f5a$1...@news.newsland.it...
> Lorenzo(pyx) ha scritto:
>
>> "Jason" <
g.bri...@ecrsystem.it
> ha scritto nel messaggio
>> news:cofrd0$hcn$1...@news.newsland.it...
>> >
[...]
> Ciao,
> Purtroppo no, il messaggio completo che mi dà la macchina dove faccio
> l'installazione è questo, "per l'installazione di office system pack è
> necessario windows NT 4.0 service pack 6.0 o versione superiore,
> impossibile installare office system pack!"
>
> Grazie ancora.
>
> Jason.
>
Prova a questo link, dovrebbe essere lo stesso per WXP.
http://support.microsoft.com/?id=837150
Ciao
Lorenzo


title: struttura a schede

author: sdamy

text:
Ciao a tutti,
stò provando ad usare il controllo "struttura a schede", perchè se sposto un
controllo già fatto nella maschera dentro la scheda diventa invisibile?
GRAZIE
DAMIANO


title: struttura a schede

author: RoDAgo -32

text:
"sdamy" ha scritto nel messaggio ...

Non è che lo metti al di sotto della struttura a schede stò povero
controllo?
> GRAZIE
> DAMIANO
--
RoDAgo


title: struttura a schede

text:
Bravo RoDAgo!!! hai proprio ragione... lo mettevo sotto...
nelle strutture a schede, almeno io, non si riesce a spostare dei controlli
già presenti nella maschera
GRAZIE
CIAO
RoDAgo -32 <
rodago...@tiscalinet.it
> wrote in message
9c61vu$c0i$2...@lacerta.tiscalinet.it...



title: VBA: testare recordset nullo

author: sd

text:
Salve a tutti,
avrei bisogno di vedere se un recordset (DAO) contiene
dei record. Come posso fare?
grazie
sdamy


title: VBA: testare recordset nullo

author: Paolo P

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:a6009g$a43$1...@pegasus.tiscalinet.it...

Help  "count"
Paolo


title: VBA: testare recordset nullo

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c838dc9$1...@news.opennet.it...

Beh, Paolč...
o Dcount... o Recordcount...
Count a cosa la applichi scusa?
Antonio


title: VBA: testare recordset nullo

author: Emyr

text:


if rs.eof and rs.bof  then vuto
Saluti.
Emanuele.


title: VBA: testare recordset nullo

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:hvMg8.62847$v7.21...@twister1.libero.it...
> Paolo P <
p.pe...@inrete.it
> wrote in message
3c838dc9$1...@news.opennet.it...
> >
> > "sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
> > news:a6009g$a43$1...@pegasus.tiscalinet.it...
> > > Salve a tutti,
> > >
> > > avrei bisogno di vedere se un recordset (DAO) contiene
> > > dei record. Come posso fare?
> > >
> > > grazie
> > >
> > > sdamy
> > >
> > Help  "count"
>
> Beh, Paolè...
> o Dcount... o Recordcount...
> Count a cosa la applichi scusa?
>
> Antonio
>
Non essendo bravo in DAO, ho digitato "count" sull'help; tra le varie voci
c'è: "Proprietà RecordCount (DAO)"; ho dato uno sguardo e mi pareva che il
primo esempio potesse andare bene
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    With dbsNorthwind
        ' Apre un oggetto Recordset di tipo tabella e
        ' mostra la proprietà RecordCount.
        Set rstImpiegati = .OpenRecordset("Impiegati")
        Debug.Print _
            "Recordset di tipo tabella della tabella Impiegati"
        Debug.Print "  RecordCount = " & _
            rstImpiegati.RecordCount
        rstImpiegati.Close
Non ho approfondito oltre
Se ho sparato una cazzata, scusate.
Paolo


title: VBA: testare recordset nullo

author: Antonio Biso

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c83e4a8$1...@news.opennet.it...
>
> > > Help  "count"
> >
> > Beh, Paolè...
> > o Dcount... o Recordcount...
> > Count a cosa la applichi scusa?
> >
> > Antonio
> >
>
> Non essendo bravo in DAO, ho digitato "count" sull'help; tra le varie voci
> c'è: "Proprietà RecordCount (DAO)"; ho dato uno sguardo e mi pareva che il
> primo esempio potesse andare bene
>
> Set dbsNorthwind = OpenDatabase("Northwind.mdb")
>     With dbsNorthwind
>         ' Apre un oggetto Recordset di tipo tabella e
>         ' mostra la proprietà RecordCount.
>         Set rstImpiegati = .OpenRecordset("Impiegati")
>         Debug.Print _
>             "Recordset di tipo tabella della tabella Impiegati"
>         Debug.Print "  RecordCount = " & _
>             rstImpiegati.RecordCount
>         rstImpiegati.Close
>
> Non ho approfondito oltre
> Se ho sparato una cazzata, scusate.
No, semplicemente la proprietà è recordcount, non count, tutto qui...
Antonio


title: Programma cod.fiscale del sito comune

author: Roberto

text:
Salve a tutti, ho un problema con il suddetto programma scaricato dal sito
comune.
tutto funzionava a dovere prima che mi venisse la brillante idea di fare la
divisione guidata database, adesso non appena cerco di inserire il "Comune"
per il calcolo del Codice Fiscale, mi spunta fuori un errore non appena il
programma cerca di eseguire la funzione "su modifica" che va a cercare in
tempo reale, i comuni in base alle lettere che noi digitiamo.
Vorrei sapere se qualcuno sa dirmi come posso far funzionare questo
programmino con un DB diviso in BE e FE
grazie .


title: Programma cod.fiscale del sito comune

author: Fabrizio Quercia

text:
"Roberto" <
rob...@roby75.it
> ha scritto nel messaggio
news:_aaJ9.77883$2B1.2...@twister2.libero.it...
> per il calcolo del Codice Fiscale, mi spunta fuori un errore non appena il
> programma cerca di eseguire la funzione "su modifica" che va a cercare in
> tempo reale, i comuni in base alle lettere che noi digitiamo.
> Vorrei sapere se qualcuno sa dirmi come posso far funzionare questo
> programmino con un DB diviso in BE e FE
lascia la tabella COMUNI nel frontend (File/Importa) e tutto il resto delle
tabelle sul backend...anche io ho avuto lo stesso prob...ma ho risolto cosi
Ciao :)


title: Programma cod.fiscale del sito comune

author: Roberto da casa

text:
"Roberto" <
rob...@roby75.it
> ha scritto nel messaggio
news:_aaJ9.77883$2B1.2...@twister2.libero.it...

Il database di esempio per il calcolo del codice fiscale, nella Sub
txtComune_Change usa il metodo Seek, che come saprai (se non lo sai leggi
l'help), non può essere usato per tabelle collegate.
Quindi hai due possibilità:
1) Quella suggerita da Fabrizio Quercia, ovvero riportare la tabella Comuni
nel FE: fra l'altro è la più sbrigativa.
2) Modificare il calcolo del codice fiscale in base a quanto trovi scritto
sul Sito Comune nella Sezione Tables, nella FAQ di Valerio Bussi intitolata
"Utilizzare il metodo seek con una tabella collegata (be)".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: esportazione di report con immagini in formato Word

text:
Esiste la possibilità di esportare un report con immagini in formato word?
Quando provo ad esportare l'immagine non c'è.
Grazie per l'aiuto.
Barbara


text:
"Rosa.Rab" <
ro-s...@v-irgi-lio.it
> ha scritto nel messaggio news:5dwJc.52256$GQ3.1...@twister2.libero.it...

No, non c'è...
Ciao.
--
Sergio MAZZA


author: ALESSANDRO Baraldi

text:
"Rosa.Rab" <
ro-s...@v-irgi-lio.it
> ha scritto nel messaggio
news:5dwJc.52256$GQ3.1...@twister2.libero.it...

Ti pare che Word sia un formato Immagine.....???
Word per visualizzare immagini usa Oggetti OLE
come può fare Access.
@Alex.


title: Link Table odbc

author: luca

text:
provo a postare il mio problema...
sono collegato, con ms access, a diversi sistemi as400 tramite un
collegamento odbc (iseries). Ogni as400 ha la stessa struttura di file
l'unica cosa che cambia è il nome della libreria a cui puntare
- As400a.Articoli
- As400b.Articoli
- As400c.Articoli
è possibile creare un collegamento generico (delle tabelle) che, via
codice, io possa modificare? Vorrei creare un combobox con tutti i nomi
degli As400 e in base alla selezione reindirizzare le sorgenti.
Importante NON posso (non voglio) creare un link di tutte le tabelle di
tutte gli As400 che mi servono


title: MOUSE

author: Daniele Bolla

text:
Scusate se vi faccio una domanda probabilmente per voi banale:
Ho creato un database con access 2000 (funziona anche con access XP) ma
quando inserisco i dati mi succede che muovendo la rotellina del mouse i
record si spostino. Come faccio ad evitare questo problema.
Se mi potete aiutare grazie
Dan


title: MOUSE

author: Gaspare

text:
"Daniele Bolla" <
daniel...@bluewin.ch
> ha scritto nel messaggio
news:457f0605$1...@news.bluewin.ch...

Ciao
al indirizzo trovi anche dei db d'esempio
http://web.tiscali.it/giorgiorancati/msaccess/
Buona :-)


title: MOUSE

text:
Fantastico. Grazie
"Gaspare" <
em...@provider.it
> ha scritto nel messaggio
news:r_Dfh.222$Xt2...@nntpserver.swip.net...



title: [CFV3] it.comp.appl.ms-sqlserver

author: Gruppo Coordinamento NEWS-IT

text:
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Terzo e ultimo avviso di voto per il gruppo.
+--------------------------------------------------------
Procedura di voto (CFV) per il gruppo
it.comp.appl.ms-sqlserver	Microsoft SQL Server
+--------------------------------------------------------
Per votare (una persona, un voto!) devi RISPONDERE a questo messaggio nel
newsgroup it.news.votazioni entro il 02/11/2002: col tuo newsreader,
seleziona "Rispondi al gruppo", o "Group Reply", o "Followup", o "Re: News",
o "Discussion". NON DEVI rispondere privatamente, ne` scrivere un
messaggio nuovo. Compila il modulo nelle cinque righe seguenti e scrivi
tra le parentesi quadre il tuo voto ("SI", "NO", o "ASTENUTO") e il tuo
indirizzo di email.
##### inizio testo #####
# Nome gruppo: [it.comp.appl.ms-sqlserver]
# Voto: [  ]
# Indirizzo email: [     ]
##### fine testo #######
leggi
http://www.news.nic.it/news-it/docs/rfd-cfv.html#d2
 se hai dei
dubbi: il regolamento completo e` disponibile a
http://www.news.nic.it/news-it/docs/regole-new.html
 .
Una procedura automatica verifichera` il voto, e inviera` all'indirizzo
indicato nel campo "Indirizzo email" una ricevuta con un ticket da
conservare in caso di eventuali contestazioni.
Se NESSUNA RICEVUTA ti e` arrivata entro 24 ore dalla votazione o ti e`
arrivata PIU` DI UNA RICEVUTA, leggi le FAQ
http://www.news.nic.it/news-it/docs/novoto.html
;
se i problemi persistono, contatta
c...@news.nic.it
.
Questo messaggio verra` spedito tre volte, a distanza di 10 giorni l'una
dall'altra. Al termine del periodo indicato, o quando il risultato e`
indubitabile, l'elenco dei votanti sara` pubblicato negli stessi gruppi
in cui la CFV e` apparsa. Se si sono avuti almeno cento voti favorevoli
e nessuna contestazione e` stata sollevata, dopo una settimana
il gruppo verra` creato a cura del Gruppo di Coordinamento News-It.
+-------------------------------------------------------------------
Ecco il manifesto del gruppo, presentato da:
Gianluca Hotz <ghotz*
ugiss.org
>
Il newsgroup si propone di ospitare discussioni riguardanti tutte le
release presenti e future di Microsoft SQL Server e prodotti/tecnologie
ad esso collegati quali OLAP Server, Analysis Services, English Query
Data Transformation Services.
Più specificatamente alcune delle aree di interesse saranno:
 - Progettazione database
   - soluzioni OLAP e OLTP
   - modello concettuale
   - modello logico
   - soluzioni a problematiche di modellazione comuni
   - modello fisico
   - capacity planning
 - Amministrazione database
   - gestione operativa
   - deployment
   - sicurezza
   - internals
   - on-going capacity planning
   - tuning
   - migrazione da altri ambienti
   - import/export
   - bug, fix e workaround
 - Sviluppo di applicazioni
   - transact-SQL
   - tecnologie per l'accesso ai dati
   - modalità di accesso ai dati
Non saranno gradite discussioni non costruttive legate ai seguenti
argomenti:
 - confronto con altri database
 - confronto di ambienti di svilupo
 - confronto di ambienti operativi
 - confronto tra linguaggi SQL
Esempio di confronto costruttivo:
Domanda: il linguaggio SQL del database xyz supporta il comando TO_CHAR,
SQL Server no, come posso fare ?
Risposta: SQL Server supporta il comando CONVERT, se però non devi
convertire date in stringhe con un formato specifico, ti consiglio di
utilizzare il comando CAST che fa parte dello standard ANSI.
Esempio di confronto non costruttivo:
Domanda: siamo alle solite, non capisco perché Microsoft debba sempre
fare di testa sua, il mio database xyz supporta il comando TO_CHAR, SQL
Server no! come posso fare !??!?!?
Risposta: guarda che il comando TO_CHAR è supportato solo dal tuo
database, SQL Server ha un suo comando: CONVERT.
Se proprio vuoi utilizzare un comando standard puoi usare il CAST che
SQL Server supporta già dalla versione nnn mentre il tuo database alla
versione mmm non lo supporta ancora ecc ecc
È inoltre gradito lo scambio di URL relativi alle tematiche in
discussione o a prodotti legati a SQL Server.
In particolare si incoraggia l'utilizzo di URL che fanno riferimento ad
articoli della Knowledge Base del prodotto.
Per quanto riguarda i messaggi pubblicitari, saranno graditi solo i
messaggi relativi al rilascio di nuove release di prodotti legati a
SQL Server.
Saranno considerati invece off-topic i seguenti messaggi:
 - pubblicitari
 - di ricerca e offerta lavoro
 - volgari, provocatori, contenenti bestemmie o parolacce
 - di contenuto illegale
 - multi-level-marketing e schemi piramidali
 - leggende metropolitane
 - spam in genere
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.0 (GNU/Linux)
iD8DBQE9tvbDFGfw2OHuP7ERAkeqAKCi7/2iKovtE7h6cN9CpHq0efSMuACfWmcK
GNuN460sUITZuEdeHkEjvp8=
=r68d
-----END PGP SIGNATURE-----


title: [NEWBIE] Inserimento Dati in Tabella da Elenco

text:
Salve a tutti,
come posso fare per costringere ad inserire in un campo di una tabella
dai dati provenienti da un elenco prestabilito e solo da quello?
In excel lo faccio tramite la funzione convalida ma qui non ci riesco,
ho cercato un po' dappertutto ma nessuna soluzione.
Grazie 1000.
B@rgello


author: ciroteo

text:
"B@rgello" <
Bargell...@mail.com
> ha scritto nel messaggio
news:c3ph81dahferg0o9f...@4ax.com...

creati una form vuota e non associata e inseriscici tramite creazione
guidata una bella casella combinata che pesca i dati, o da un elenco da te
compilato, o se si tratta di un elenco più lungo direttamente da una tabella
o da una query.
e nelle proprietà di questa casella e metti solo in elenco a si.


text:
On Mon, 16 May 2005 18:42:56 GMT, "ciroteo"
<ciroteo(nospam)@
libero.it
> wrote:
>
>creati una form vuota e non associata e inseriscici tramite creazione
>guidata una bella casella combinata che pesca i dati, o da un elenco da te
>compilato, o se si tratta di un elenco più lungo direttamente da una tabella
>o da una query.
>e nelle proprietà di questa casella e metti solo in elenco a si.
>
Grazie mi sa che mi sta riuscendo col tuo consiglio.
Grazie 1000 anche per la tempestività.
B@rgello


text:
"B@rgello" <
Bargell...@mail.com
> ha scritto nel messaggio
news:f3sh81d1n8s9dnpf2...@4ax.com...

figurati ... farò notte sul pc ... :-(


title: Collegare access a outlook

author: Franco

text:
Ripongo il quesito, dato che nessuno ha risposto (spero xchè ci sono le
feste e non tutti si collegano), altrimenti dovrei cominciare a pensare che
non ci sia alcuna soluzione.
Salve a tutti, vorrei porre un quesito a coloro che sanno come fare od hanno
già avuto modo di utilizzare la cartella contatti di outlook collegata ad un
db access.
Il mio scopo è quello di vedere i clienti del db di access in outlook, ed un
campo di questi deve contenere i prodotti acquistati è generalmente servono
+ di 255 caratteri, il tutto va sincronizzato con il palmare psion (che non
si collega direttamente con access.
Spiego cosa vorrei fare:
Vorrei collegare (non importare) la cartella contatti con un db di access, e
fin quì nessun problema, se non fosse chè mi serve un campo che non importa,
e cioè il campo note che accetta + di 255 caratteri.
Ho aggirato il problema importando la tabella di access in outlook, e qui
importa il campo note ma non è possibile aggiornarlo.
Quindi avendo esaurito le alternative, non so + cosa fare, e chiedo aiuto a
Voi, sperando che possiate suggerirmi un'alternativa.
Cmq Vi auguro buone feste.
Franco


title: Trasferimento file

author: Dalmasso Carlo

text:
Ho cheato un programmino inaccess che mi genera dei file excel prendendo dei
dati da alcune query.  vorrei poter realizzare, se possibile ,due
programmini, che mi consentano di inviare tramite modem i file generati, mi
spiego meglio, un programma servere che con l'utilizzo di server di acvvesso
rometo risponda alle chiemate entrante e accetta che vengano scaricati dei
file.  dall'altro lato un programma client, che a mezzo accesso remoto, si
connette al servere e dopo essere stato autenticato mi consenta di
scaricargli il file che avevo precedentemente generato.
Ogni consiglio č bene accetto
Grazie Carlo
carl...@tiscalinet.it


title: Trasferimento file

author: Sergio MAZZA

text:
"Dalmasso Carlo" <
dalmass...@tin.it
> ha scritto nel messaggio
news:8pgctv$ski$1...@nslave2.tin.it...

Io ti consiglio la posta elettronica...
Ciao.


title: Sottomaschera

author: FabioP

text:
Salve il mio problema è il seguente: ho una maschera (produzione) con
all'interno una sottomaschera (elenco materie prime) che per ogni record
deve prelevare dei dati da un altra tabella (cod. articolo - descrizione -
unità di misura - prezzo). Sto tentando con una macro ma non riesco ad
estrarre il record  ed inserirlo nel nuovo record.
Qualcuno sà come aiutarmi.
Saluti Fabio P


title: Personalizzare il cursore!

author: Peppus

text:
Salve a tutti,
si può personalizzare il cursore del mouse? Nel senso setto che il cursore
deve essere il cursore animato e quindi se l'utente usa la freccia standard
di win deve cambiarsi a cursore animato.
Spero di essere stato abbastanza chiaro.
Ciao a tutti e grazie per l'aiuto.


title: Personalizzare il cursore!

author: Guycho

text:
Peppus <
pri...@infinito.it
> wrote in message
98ucav$bvs$1...@serv1.albacom.net...

non va bene il metodo:  DoCmd.Hourglass True   ?


title: Personalizzare il cursore!

text:
Ciao il metodo HOURGLASS va bene ma come cambio icona in modo da non usare
la clessidra?
grazie e ciao!
Guycho <
gui...@tiscalinet.it
> wrote in message
990o1p$tt6$1...@pegasus.tiscalinet.it...



title: Personalizzare il cursore!

author: Pivo

text: dal pannello di controllo, mouse, non va bene?


title: conversione testo-numero

author: gestserv

text:
ho un campo codi (testo lunghezza 4) nella tabella bilancio che devo mettere
in relazione con i campi della tabella arc_cont che si chiamano capoconto
(numerico) e sottoconto (numerico). Premesso che "_" vuol dire spazio, i
dati sono archiviati nel seguente modo:
tabella bilancio campo codi
_1_1        caso1
_1_2
_112
_1__        caso 4
ho fatto una query in cui trasformo codi in capoconto:val(left([codi];2)) e
sottoconto:val(right([codi];2))
ho creato quindi una nuova query e messo in relazione capoconto della
tabella arc_cont con capoconto del risultato della query e così per
sottoconto. tutto bene salvo il caso n°4 in cui non mi riconosce i 2 spazi
come valore 0. Io ho bisogno di trasformare quel caso in capoconto=1 e
sottoconto=0
grazie


title: conversione testo-numero

text:
Usa
sottoconto: iif(right(codi;2)="__";0;val(right(codi;2)))
Ciao
Marco
---
il mio vero indirizzo e-mail e' senza la "y"
---
--
Posted from
smtp4.libero.it
 [193.70.192.54]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: conversione testo-numero

text:
> Usa
> sottoconto: iif(right(codi;2)="__";0;val(right(codi;2)))
>
non funziona! non so come mai ma se io archivio il valore _1__ e poi
converto in left(codi;2) mi restituisce 1, ma se faccio right(codi;2) mi
restituisce comunque 1 (come mai?!?!?!?), pertanto il valore di spazio per
poterlo convertire in 0 non lo restituisce mai. Provare per credere.
grazie


title: conversione testo-numero

text:
Allora:
Sottoconto: val(instr(trim(codi) & "00";3;2))
Ciao
Marco
---
il mio vero indirizzo e-mail e' senza la "y"
---
--
Posted from
smtp2.libero.it
 [193.70.192.52]



title: Protezione DB

author: Gianfranco

text:
Dopo aver letto vari msg su questo tema, qualcuno ha trovato la
un buon metodo per distribuire un Db con qualche accorgimento
semplice e geniale in modo da preservare ulteriori copie non
autorizzate?


title: Protezione DB

author: Gianlu

text:
Si io utilizzo la protezione con il num. seriale dell' hd!!!!!
"Gianfranco" <
in...@aedservice.it
> ha scritto nel messaggio
news:1178173383.4...@q75g2000hsh.googlegroups.com...



title: Qui bisogna che qualcuno m' aiuta, ci sto diventando matto : permutazioni

author: radicale 001

text:
Eqque qua :
(siamo in Excel)
Private Sub CommandButton1_Click()
    Dim C As String
    Dim E As String
    C = Application.ActiveWorkbook.ActiveSheet.Cells(1, 1)
    C = Permuta(C, 1)
End Sub
Public Function Permuta(ByVal C As String, ByRef r As Long) As String
   Dim D As String
   Dim S As String
   If Len(C) = 1 Then
      Permuta = C
      Application.ActiveWorkbook.ActiveSheet.Cells(r, 2) = _
      Application.ActiveWorkbook.ActiveSheet.Cells(r, 2) & C
   Else
      'r = r + 1
      For j = 1 To Len(C)
          'r = r + 1
          S = Mid(C, j, 1): D = Replace(C, S, "")
          Application.ActiveWorkbook.ActiveSheet.Cells(r, 2) = _
          Application.ActiveWorkbook.ActiveSheet.Cells(r, 2) & S &
Permuta(D, r)
          r = r + 1
      Next j
   End If
End Function
Lui le permutazioni le calcola, ma mi incasino
con l' indice r.
Cioe' mi sbaglio nella stampa praticamente.
Mannaggia !


author: Bruno Campanini

text:
on 17-10-10, radicale 001 supposed :

Il codice sopra indicato proprio non le calcola bene.
Calcola 6 permutazioni in classe 3 assieme ad altri elementi che nulla
c'entrano. E fin qui nulla di irrimediabile.
Quando deve determinare P4 perï¿œ son dolori; determina una serie di
numeri fra i quali 3 sole permutazioni esatte.
Sempre che non abbia le traveggole io...
Se vuoi risolvere il problema manu propria io non so aiutarti: con le
permutazioni ci ho perso il sonno tante volte senza cavare un ragno da
un buco.
Se ti interessa invece un semplice procedimento ricorsivo che ho
aggiustato (ma non ï¿œ farina del mio sacco), fammi un fischio.
Bruno


author: radicale 003

text:
On 17 Ott, 20:32, Bruno Campanini <
brunoca...@libero.it
> wrote:
> Se ti interessa invece un semplice procedimento ricorsivo che ho
> aggiustato (ma non è farina del mio sacco), fammi un fischio.
Grande !
Sei sempre un grosso Campani' !
Pero' guarda quine (ci sto a un passo ! Un millimetro) :
Ha un difetto. Una scemenza, ma la devo aggiustare.
(,.. Non so ancora come pero', mi verra' ...).
E' un difetto di REPORTING, cioe' non riesce a riportare
bene i dati in output, ma le permutazione se le BEVE
TUTTE e ad una velocita' incredibile.
Si basa sul fatto che ho scoperto con grande STUPORE
che :
permutazioni(abc) =
          a + permutazioni(bc) =
                 b + permutazioni(c) = ba
                 c + permutazioni(b) = cb
          b + permutazioni(ac) =
                 a + permutazioni(c) = ac
                 c + permutazioni(a) = ca
          c + permutazioni(ab) =
                 a + permutazioni(b) = ab
                 b + permutazioni(a) = ba
Approfondite l' albero e lo avrete in generale
per stringhe abcbd ... n comunque lunghe
Cioe' ho scoperto una FANTASTICA E IMPENSABILE
(per me, s' intende) formula ricorsiva che domina le
permutazioni.
-------------------------------------------------------------------
' vettore dove vanno messe le permutazioni
dimensiona vettore_risultati ( )
r = 1, C = "ROM"
Permuta( C , r )
1 Public Sub Permuta(ByVal C As String, ByRef r As Long)
2 Dim D As String
3 Dim S As String
4 Dim j As Long
5 If Len(C) = 1 Then
6 vettore_risultati (r) = vettore_risultati (r) & C
7 r = r + 1
8 Else
9 For j = 1 To Len(C)
' toglie il carettere di posto j dalla stringa
' e passa la stringa ridotta alla procedura
' dopo aver registrato la S
10 S = Mid(C, j, 1)
11 D = Replace(C, S, "")
12 vettore_risultati (r) = vettore_risultati (r) & S
13 Permuta D, r
14 Next j
15 End If
16 End Sub
Avete capito che fa ? Facile no ? Breve e velocisimo
16 lineette de codice.
Solo che quando torna e skippa di 1 la riga del vettore
(istruzione 7) per metterci la perm. successiva si perde il
carattere iniziale.
Ecco che esce infatti :
ROM
MO
ORM
MR
MRO
OR
Capito dove schioda ? ;-)
Riflettetci un attimo, ne vale la pena :
se aggiustato st' algoritmo e' una vera BOMBA, lassate
perde. Un sassolino compatto !


text:
radicale 003 presented the following explanation :
[...]
> Pero' guarda quine (ci sto a un passo ! Un millimetro) :
> Ha un difetto. Una scemenza, ma la devo aggiustare.
> (,.. Non so ancora come pero', mi verra' ...).
>
> E' un difetto di REPORTING, cioe' non riesce a riportare
> bene i dati in output, ma le permutazione se le BEVE
> TUTTE e ad una velocita' incredibile.
> Si basa sul fatto che ho scoperto con grande STUPORE
> che :
[...]
Ho inserito nelle (Declarations) di un modulo:
         Dim r As Long
         Dim VR() As String
poi ho eseguito come segue il tuo codice:
==========================================
Public Sub Permuta_Init()
Dim C As String, nPerm As Integer
Dim i As Integer, T As Double
T = Timer
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
C = "123456"
nPerm = 1
For i = 1 To Len(C)
    nPerm = nPerm * i
Next
ReDim VR(1 To nPerm)
r = 1
Call Permuta(C, r)
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox Timer - T
End Sub
=============================================
=============================================
Public Sub Permuta(ByVal C As String, ByRef r As Long)
Dim D As String, S As String, j As Long
Dim TargetRange As Range, i As Integer
Set TargetRange = [Sheet3!E1]
If Len(C) = 1 Then
    VR(r) = VR(r) & C
    r = r + 1
Else
    For j = 1 To Len(C)
    'toglie il carettere di posto j dalla stringa
    'e passa la stringa ridotta alla procedura
    'dopo aver registrato la S
        S = Mid(C, j, 1)
        D = Replace(C, S, "")
        VR(r) = VR(r) & S
        Permuta D, r
    Next j
End If
Columns(TargetRange.Column).ClearContents
For i = 1 To UBound(VR)
    TargetRange(i) = VR(i)
Next
End Sub
=====================================================
Non vorrei raggelare troppo i tuoi entusiasmi, perï¿œ...
Ho eseguito permutazioni di 123, 1234, 12345, 123456; il tempo per
l'esecuzione della classe 6 ï¿œ stato di oltre 18 secondi:
un'esagerazione (la procedura ricorsiva di cui ti dicevo impiega 4/100
di secondo).
Poi per le varie classi stampa 3, 4, 5, 6 raggruppamenti che sono
permutazioni. Altri raggruppamenti non sono permutazioni; il numero
complessivo torna comunque con 6, 24, 120, 720.
Direi che sei un po' fuori strada anche se il concetto ï¿œ giusto:
P2 = 12  21
P3 = 312  + 2 Shift-Right (232, 123)
     321  + 2 Shift-Right (231, 213)
P4 = 4312, 4232, 4123 + 3 Shift-Right per ciascuno
     4321, 4231, 4213 + 3 Shift-Right per ciascuno
A parte che la ricorsivitï¿œ non mi piace, io ci sono riuscito solo cosï¿œ;
partendo da P3 ho scritto perï¿œ una pagina buona di codice e il tempo
rispetto alla ricorsiva ï¿œ piï¿œ che doppio (8|9 centesimi per P6, 36/100
contro 8/100 per P9).
Il tutto perï¿œ sta TUTTO dentro un'unica Sub.
Bruno


author: pablitomf

text:

> Non vorrei raggelare troppo i tuoi entusiasmi, però...
> Ho eseguito permutazioni di 123, 1234, 12345, 123456; il tempo per
> l'esecuzione della classe 6 è stato di oltre 18 secondi:
> un'esagerazione (la procedura ricorsiva di cui ti dicevo impiega 4/100
> di secondo).
>
> Poi per le varie classi stampa 3, 4, 5, 6 raggruppamenti che sono
> permutazioni. Altri raggruppamenti non sono permutazioni; il numero
> complessivo torna comunque con 6, 24, 120, 720.
>
> Direi che sei un po' fuori strada anche se il concetto è giusto:
> P2 = 12  21
> P3 = 312  + 2 Shift-Right (232, 123)
>      321  + 2 Shift-Right (231, 213)
>
> P4 = 4312, 4232, 4123 + 3 Shift-Right per ciascuno
>      4321, 4231, 4213 + 3 Shift-Right per ciascuno
>
> A parte che la ricorsività non mi piace, io ci sono riuscito solo così;
> partendo da P3 ho scritto però una pagina buona di codice e il tempo
> rispetto alla ricorsiva è più che doppio (8|9 centesimi per P6, 36/100
> contro 8/100 per P9).
> Il tutto però sta TUTTO dentro un'unica Sub.
>
> Bruno
Ragazzuoli, scusasse l'intromissione, ma sto fattariello di cui state
parlando mi sta piacendo, pur non capendo una mazza dell'argomento
(sisi... pur avendo esperienza a gogò, nun lo sò e mai l'ho
trattato)... di che si tratta e a cosa serve nello specifico?...


text:
pablitomf presented the following explanation :
> On 18 Ott, 02:30, Bruno Campanini <
brunoca...@libero.it
> wrote:
> Ragazzuoli, scusasse l'intromissione, ma sto fattariello di cui state
> parlando mi sta piacendo, pur non capendo una mazza dell'argomento
> (sisi... pur avendo esperienza a gogï¿œ, nun lo sï¿œ e mai l'ho
> trattato)... di che si tratta e a cosa serve nello specifico?...
Generare permutazioni... la via piï¿œ breve e il procedimento piï¿œ veloce.
Ricorsivitï¿œ vs non-ricorsivitï¿œ, etc.
Bruno


text:
On 18 Ott, 14:06, Bruno Campanini <
brunoca...@libero.it
> wrote:
> pablitomf presented the following explanation :
>
> > On 18 Ott, 02:30, Bruno Campanini <
brunoca...@libero.it
> wrote:
> > Ragazzuoli, scusasse l'intromissione, ma sto fattariello di cui state
> > parlando mi sta piacendo, pur non capendo una mazza dell'argomento
> > (sisi... pur avendo esperienza a gogò, nun lo sò e mai l'ho
> > trattato)... di che si tratta e a cosa serve nello specifico?...
>
> Generare permutazioni... la via più breve e il procedimento più veloce.
> Ricorsività vs non-ricorsività, etc.
>
> Bruno
Si, permutazioni, questo mi era chiaro... è che non ne comprendo il
campo di applicazione... fammi un esempio (roba banalissima, giusto
per capire).


text:
After serious thinking pablitomf wrote :
> On 18 Ott, 14:06, Bruno Campanini <
brunoca...@libero.it
> wrote:
>> pablitomf presented the following explanation :
> Si, permutazioni, questo mi era chiaro... ï¿œ che non ne comprendo il
> campo di applicazione... fammi un esempio (roba banalissima, giusto
> per capire).
Come per il 90% della matematica il campo di applicazione ï¿œ quasi
esclusivamente teorico.
Se vai nel pratico i matemateci dicono che non ï¿œ piï¿œ matematica... ï¿œ
calcolo!
Valli a capire.
Bruno
PS
In quanti modi cinque giocatori possono disporsi attorno ad un tavolo?
5! = 120
Non considerando la semplice rotazione (cioï¿œ 12345 = 51234 = 45123 =
34512 = 23451, etc.)
(5-1)! = 24
Utilissimo no? cosï¿œ se uno lo sa e si mette al tavolo del poker ï¿œ
sicuro di vincere...


text:

Non per banalizzare (probabilmente, molto probabilmente non ho
compreso la cosa), ma ad occhio e croce, non bastano un paio di righe
di codice di questo tipo?
  Dim a, b, str
  For a = 1 To Len(Mio_Testo)
    str = str & Mid$(Mio_Testo, a, 1)
    For b = Len(Mio_Testo) To 1 Step -1
      If a <> b Then
        str = str & Mid$(Mio_Testo, b, 1)
      End If
    Next b
    Msgbox str
    str = ""
  Next a


text:
pablitomf formulated the question :
> On 18 Ott, 14:14, pablitomf <
pablit...@virgilio.it
> wrote:
>> On 18 Ott, 14:06, Bruno Campanini <
brunoca...@libero.it
> wrote:
>>
>>> pablitomf presented the following explanation :
>>>> On 18 Ott, 02:30, Bruno Campanini <
brunoca...@libero.it
> wrote:
>>>> Ragazzuoli, scusasse l'intromissione, ma sto fattariello di cui state
>>>> parlando mi sta piacendo, pur non capendo una mazza dell'argomento
>>>> (sisi... pur avendo esperienza a gogï¿œ, nun lo sï¿œ e mai l'ho
>>>> trattato)... di che si tratta e a cosa serve nello specifico?...
>>> Generare permutazioni... la via piï¿œ breve e il procedimento piï¿œ veloce.
>>> Ricorsivitï¿œ vs non-ricorsivitï¿œ, etc.
>>> Bruno
>>
>> Si, permutazioni, questo mi era chiaro... ï¿œ che non ne comprendo il
>> campo di applicazione... fammi un esempio (roba banalissima, giusto
>> per capire).
>
> Non per banalizzare (probabilmente, molto probabilmente non ho
> compreso la cosa), ma ad occhio e croce, non bastano un paio di righe
> di codice di questo tipo?
>
>   Dim a, b, str
>   For a = 1 To Len(Mio_Testo)
>     str = str & Mid$(Mio_Testo, a, 1)
>     For b = Len(Mio_Testo) To 1 Step -1
>       If a <> b Then
>         str = str & Mid$(Mio_Testo, b, 1)
>       End If
>     Next b
>     Msgbox str
>     str = ""
>   Next a
Direi proprio di no.
Con Mio_Testo = "123", "1234", "12345", "123456"
la tua Sub restituisce rispettivamente 3, 4, 5, 6 permutazioni, in
luogo di 6, 24, 120, 720.
Bruno


text:
On 18 Ott, 15:20, Bruno Campanini <
brunoca...@libero.it
> wrote:
> pablitomf formulated the question :
>
>
>
> > On 18 Ott, 14:14, pablitomf <
pablit...@virgilio.it
> wrote:
> >> On 18 Ott, 14:06, Bruno Campanini <
brunoca...@libero.it
> wrote:
>
> >>> pablitomf presented the following explanation :
> >>>> On 18 Ott, 02:30, Bruno Campanini <
brunoca...@libero.it
> wrote:
> >>>> Ragazzuoli, scusasse l'intromissione, ma sto fattariello di cui state
> >>>> parlando mi sta piacendo, pur non capendo una mazza dell'argomento
> >>>> (sisi... pur avendo esperienza a gogò, nun lo sò e mai l'ho
> >>>> trattato)... di che si tratta e a cosa serve nello specifico?...
> >>> Generare permutazioni... la via più breve e il procedimento più veloce.
> >>> Ricorsività vs non-ricorsività, etc.
> >>> Bruno
>
> >> Si, permutazioni, questo mi era chiaro... è che non ne comprendo il
> >> campo di applicazione... fammi un esempio (roba banalissima, giusto
> >> per capire).
>
> > Non per banalizzare (probabilmente, molto probabilmente non ho
> > compreso la cosa), ma ad occhio e croce, non bastano un paio di righe
> > di codice di questo tipo?
>
> >   Dim a, b, str
> >   For a = 1 To Len(Mio_Testo)
> >     str = str & Mid$(Mio_Testo, a, 1)
> >     For b = Len(Mio_Testo) To 1 Step -1
> >       If a <> b Then
> >         str = str & Mid$(Mio_Testo, b, 1)
> >       End If
> >     Next b
> >     Msgbox str
> >     str = ""
> >   Next a
>
> Direi proprio di no.
> Con Mio_Testo = "123", "1234", "12345", "123456"
> la tua Sub restituisce rispettivamente 3, 4, 5, 6 permutazioni, in
> luogo di 6, 24, 120, 720.
>
> Bruno
Chiaro chiaro...
Function SuperEnalotto(Num As Variant) As Variant
  If Num < 0 Then SuperEnalotto = 0
  If Num = 1 Or Num = 0 Then
    SuperEnalotto = 1
  Else
    SuperEnalotto = Num * SuperEnalottoNum - 1)
  End If
End Function
che cosa utile... :D