title: Funzione Creazioen MDE Disabilitata

author: Alessandro Baraldi

text:
"Leonardo" <
ch...@tiscali.it
> wrote in message
news:195Z239Z127Z2Y...@usenet.libero.it
> Ciao ragazzi,
> vorrei creare la versione MDE del mio DB ma non ho capito per quale motivo
> ho la funzione di creazione MDE disabilitata (in grigio nel menu). Qualcuno
> di voi puo' suggerirmi il motivo e/o la soluzione del problema ??
> Grazie in anticipo del vostro aiuto.
Questo č dovuto al fatto che stai sviluppando un applicativo
con un'impostazione differente di versione da quella del pacchetto.
Ad esempio AccessXP(2002) di Default apre applicativi con la versione
A2000, di conseguenza rende disabilitate queste funzioni.
Per ovviare esporta il database alla versione 2002, quindi
riaprilo e vedrai che tutto č OK.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Errore di run-time '3075'

author: Eugenio

text:
Buongiorno
Ho un problema con un'applicazione in Access97.
Infatti se viene eseguita l'applicazione, mi viene segnalato il seguente
errore:
Errore di run-time '3075'
Funzione non disponibile nelle espressioni nell'espressione della query
'Format([DtFattuta],"mmm").
Premetto che :
- l'applicazione viene utilizzata da tutti i pc che compongono la rete, e su
questi funziona regolarmente;
- il pc è in uso da un idiota che passa per esperto smanettone e che
installa qualsiasi porcheria posta trovare gratis in cd e web, procurandosi
spesso dei problemi;
- sembra però che l'idiota non abbia installato nulla che abbia a che fare
con VBA, ma solo il software di masterizzazione di Pinnacle;
- sul pc è installato office 2000 con access97, ma questa configurazione è
utilizzata da due anni senza problemi;
- che ho già disintallato e reinstallato access97.
Qualcuno ha mai visto questo errore?
E come l'ha risolto?
Ah, dimenticavo, il pc è del boss!
Grazie
Ciao
Eugenio


title: Errore di run-time '3075'

author: sv

text:
Eugenio ha scritto:
> Buongiorno
> Ho un problema con un'applicazione in Access97.
> Infatti se viene eseguita l'applicazione, mi viene segnalato il seguente
> errore:
> Errore di run-time '3075'
> Funzione non disponibile nelle espressioni nell'espressione della query
> 'Format([DtFattuta],"mmm").
> Premetto che :
> - l'applicazione viene utilizzata da tutti i pc che compongono la rete, e su
> questi funziona regolarmente;
> - il pc č in uso da un idiota che passa per esperto smanettone e che
> installa qualsiasi porcheria posta trovare gratis in cd e web, procurandosi
> spesso dei problemi;
> - sembra perň che l'idiota non abbia installato nulla che abbia a che fare
> con VBA, ma solo il software di masterizzazione di Pinnacle;
> - sul pc č installato office 2000 con access97, ma questa configurazione č
> utilizzata da due anni senza problemi;
> - che ho giŕ disintallato e reinstallato access97.
> Qualcuno ha mai visto questo errore?
> E come l'ha risolto?
> Ah, dimenticavo, il pc č del boss!
> Grazie
> Ciao
> Eugenio
Controlla:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;194374
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore di run-time '3075'

author: ciroteo

text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:c973p0$qeg$1...@news.newsland.it...
> Eugenio ha scritto:
>
> > Buongiorno
>
> > Ho un problema con un'applicazione in Access97.
> > Infatti se viene eseguita l'applicazione, mi viene segnalato il seguente
> > errore:
>
> > Errore di run-time '3075'
> > Funzione non disponibile nelle espressioni nell'espressione della query
> > 'Format([DtFattuta],"mmm").
>
> > Premetto che :
>
> > - l'applicazione viene utilizzata da tutti i pc che compongono la rete,
e su
> > questi funziona regolarmente;
> > - il pc è in uso da un idiota che passa per esperto smanettone e che
> > installa qualsiasi porcheria posta trovare gratis in cd e web,
procurandosi
> > spesso dei problemi;
> > - sembra però che l'idiota non abbia installato nulla che abbia a che
fare
> > con VBA, ma solo il software di masterizzazione di Pinnacle;
> > - sul pc è installato office 2000 con access97, ma questa configurazione
è
> > utilizzata da due anni senza problemi;
> > - che ho già disintallato e reinstallato access97.
>
> > Qualcuno ha mai visto questo errore?
> > E come l'ha risolto?
>
> > Ah, dimenticavo, il pc è del boss!
>
ma è lo stesso che poche righe sopra hai definito " ... idiota che passa per
esperto smanettone ? ..."
tu lavori all'enel ... ci vuol poco a farglielo sapere ... ehehe!
Consolati cmq penso che sia una tipologia molto diffusa ...


title: Errore di run-time '3075'

text:
>
> Controlla:
>
>
http://support.microsoft.com/default.aspx?scid=kb;EN-US;194374
>
> --
Ok, il problema si č risolto.
Grazie
Ciao
Eugenio


title: Errore di run-time '3075'

text:
>
> ma è lo stesso che poche righe sopra hai definito " ... idiota che passa
per
> esperto smanettone ? ..."
> tu lavori all'enel ... ci vuol poco a farglielo sapere ... ehehe!
Non ho capito molto la battuta, ma comunque non lavoro all'Enel.
Ti è andata male. Ci lavori tu?
Però non ti disturbare, ho già avuto modo di dirglielo personalmente. Con
soddisfazione!
Si è incazzato un po'...
> Consolati cmq penso che sia una tipologia molto diffusa ...
>
Già, fatto!
Ciao
Eugenio


title: Errore di run-time '3075'

text:
"Eugenio" <Ci...@Eugenio.it> ha scritto nel messaggio
news:c978sg$h76$1...@lacerta.tiscalinet.it...

sorry la battuta non era delle migliori!
nel msg di prima c'era un intestazione tipo
vattelapesca.enel.it
 ... pensavo
fosse il tuo indirizzo o qualcosa del genere.
Solidarizzavo xè anche il mio boss spesso smanetta come un mandrillo e chi
deve metterci una pezza è il sottoscritto.
Prima o poi sbotto anch'io, se la soddisfazione è cosi grande!
ciao e scusa ancora!


title: Errore di run-time '3075'

text:
>
> sorry la battuta non era delle migliori!
> nel msg di prima c'era un intestazione tipo
vattelapesca.enel.it
 ...
pensavo
> fosse il tuo indirizzo o qualcosa del genere.
> Solidarizzavo xè anche il mio boss spesso smanetta come un mandrillo e chi
> deve metterci una pezza è il sottoscritto.
> Prima o poi sbotto anch'io, se la soddisfazione è cosi grande!
> ciao e scusa ancora!
>
>
Grandissima soddisfazione!
Credo che le scuse vadano a SV/SC. E' lui che lavora all'Enel.
aribai
Eugenio


title: Errore di run-time '3075'

text:
Eugenio ha scritto:

> Grandissima soddisfazione!

> aribai
> Eugenio
Non ho mai lavorato e non lavoro all'Enel. Comunque, non ci sarebbe nulla
di male.
Quella è un casella che chiunque sia intestatario di un contatore, può
avere.



title: Errore di run-time '3075'

text:
>
> Non ho mai lavorato e non lavoro all'Enel. Comunque, non ci sarebbe nulla
> di male.
> Quella è un casella che chiunque sia intestatario di un contatore, può
> avere.
>
Perfettamente d'accordo. Anzi, sarebbe una fortuna.
Non sapevo questa cosa delle caselle di posta. Evidentemente mi è sfuggita
qualche comunicazione.
Grazie la soluzione.
Ciao
Eugenio


title: AUTOOO!! HO UN PROBLEMA...

author: Mirko Caporali

text:
Scherzo, scherzo, non cazziatemi...
Visto che c'è il declino dei NG, anche post di questo tipo sono sempre
più rari.
Non ne sentite la mancanza?
:-)


title: AUTOOO!! HO UN PROBLEMA...

author: CIDI

text:
"Mirko Caporali" <
mirko.c...@tin.it
> ha scritto nel messaggio
news:9eed3f82-f43c-4759...@v4g2000yqa.googlegroups.com...
Scherzo, scherzo, non cazziatemi...
hai raccolto, al volo, l'invito di Karl? :<))
Visto che c'č il declino dei NG, anche post di questo tipo sono sempre
piů rari.
Non ne sentite la mancanza?
:-)
come no?
ah.. bei tempi.....il quoting ....il subject.....il bisio ... ;-)
ciao
Daniele


title: Update su Tabella

author: geppo

text:
Salve a tutti,
Mi piacerebbe poter modificare un campo di un record di una tabella, facendo
si che vengano salvati sia il record vecchio che quello nuovo.
Qualcuno conosce qualche soluzione brillante, magari senza dover scrivere del
codice ad hoc ?
                                    Grazie Geppo


title: Update su Tabella

author: Paolo Beltrame

text:
Ciao Geppo,

Non conosco un'istruzione che modica il record quando esiste oppure
lo appende se non esiste.
L'istruzione per eseguire cio' sarebbe il "REPLACE" ma non e' sopportatata
dall'SQL usato da Access.
Due sono le soluzioni, per niente brillanti.
Prima di salvare ti accerti se il record esiste con un DLookup quindi
componi
la stringa SQL di conseguenza.
Oppure (io uso questa soluzione) esegui un DELETE del record (se non esiste
non ti viene ritornato alcun errore) quindi esegui un "INSERT INTO".
    Paolo


title: numero progressivo nella query da inserire in un report

author: Franco dellavalle

text:
ciao a tutti

la query è questa:
SELECT TbNote.IdNota, TbNote.IdCarico, TbNote.NotaScritta, TbAltreNote.DescrizioneNota, IIf(IsNull([NotaScritta]),[DescrizioneNota],[NotaScritta]) AS RiepNote, (Select Count (*) FROM [TbNote] as Temp WHERE [Temp].[IdNota] < [TbNote].[IdNota])+1 AS NumIncr1, DCount("IdNota","TbNote","IdNota<" & [IdNota])+1 AS NumIncr
FROM TbAltreNote RIGHT JOIN TbNote ON TbAltreNote.IdAltraNota = TbNote.IdAltraNota
WHERE (((TbNote.IdTipoNota)=2));

ho fatto in questo modo
NumIncr: DCount("IdNota";"TbNote";"IdNota<" & [IdNota])+1
ma ho
1,3,7,8,10,11,12,13

grazie


author: Karl Donaubauer

text:
Salve,

Franco Dellavalle ha scritto:
> ...

Si tratta di un risultato giusto se il RIGHT JOIN ti dà qualche record
di TbNote più di una volta. Quindi accetalo ;-) o usa p.e.
http://www.donkarl.com/it?FAQ5.16
.

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:

grazie


title: errore di sintassi nella data

author: Riccardo

text:
Ciao a tutti. Il mio problema è il seguente.
Ho in origine due query, la prima "TotaliEntrateMensili" e la seconda
"TotaliSpeseMensili".
Entrambe le query sono formate dai seg. Campi: "Mese", "TotaleMensile",
nelle quali quest'ultimo campo è il risultato della somma di tutte le voci
(entrate o uscite) mensili, per le quali è stato fatto un raggruppamento,
appunto in base al mese.
Da queste due query, messe in relazione sul campo "Mese", ne ho ottenuta un'
altra "SaldiMensili" con i seguenti campi: Mese
                                   EntrateMensili
                                   UsciteMensili
                                   SaldoMensile (campo calcolato)
Questa query da origine alla maschera SaldiMensili, con la quale quindi in
ogni record visualizzerò ad esempio: Gennaio2003 (Mese), 1000.00 ?
(EntrateMensili), 600.00 ? (UsciteMensili),       400.00 ? (SaldoMensile).
Fino a qui va tutto bene.
Ora, quello che vorrei fare, è inserire due date (data inizio e data fine)
in una maschera di dialogo per filtrare solo i record  compresi tra le due
date da me inserite.
Ho quindi creato una maschera di dialogo con due caselle di testo "DaData" e
"Adata", ed un pulsante al cui evento "Su clic", ho inserito il seguente
codice (prendendo anche spunto da un post precedente):
Private Sub Comando20_Click()
  Dim Strfiltro As String
  If Not IsNull(Me!DaData) Then
  Strfiltro = "[Mese]>=#" & Format(Me!DaData, "mmmm yyyy") & "#"
  If Not IsNull(Me!AData) Then
  Strfiltro = Strfiltro & "And[Mese]<=#" & Format(Me!AData, "mmmm yyyy") &
"#"
  End If
  Else
  If Not IsNull(Me!AData) Then
  Strfiltro = "[Mese]<=#" & Format(Me!AData, "mmmm yyyy") & "#"
  End If
  End If
  DoCmd.OpenForm "Saldi mensili", , , WhereCondition:=Strfiltro
End Sub
Quando clicco sul pulsante però mi compare il seguente messaggio di errore:
'Errore di sintassi nella data nell'espressione della query
[Mese]>=#DaData#And [Mese]<=#Adata#'
Suppongo si tratti di un problema di formato del campo "Mese", ma non sono
riuscito a risolverlo neanche dopo altri tentativi.
Spero che qualcuno possa aiutarmi, e comunque vi ringrazio per la pazienza
avuta nel leggere "Sto poema"!!!


title: errore di sintassi nella data

author: Riccardo M.

text:
"Riccardo" <
dav...@masterweb.it
> ha scritto nel messaggio
news:dcKBa.4446$79.1...@news.edisontel.com...

ma se all'inizio di tutto (dalla tua query con Campi: "Mese",
"TotaleMensile"), ci metti un'altra query dove potrai sicuramente
filtrare la data e sotto il campo data come Criterio ci scrivi:
Like >= Forms!NomeForm!DaData AND <= Forms!NomeForm!AData
non sarebbe meglio?
io in casi simili ho fatto così!
e magari nel tuo form su click del pulsante controlli che nei controlli
DaData e Adata ci siano effettivamente delle date.
spero di esserti stato di aiuto.
ciao
Riccardo
p.s.:
siamo omonimi :-)


title: errore di sintassi nella data

text:
> ma se all'inizio di tutto (dalla tua query con Campi: "Mese",
> "TotaleMensile"), ci metti un'altra query dove potrai sicuramente
> filtrare la data e sotto il campo data come Criterio ci scrivi:
> Like >= Forms!NomeForm!DaData AND <= Forms!NomeForm!AData
>
> non sarebbe meglio?
> io in casi simili ho fatto così!
> e magari nel tuo form su click del pulsante controlli che nei controlli
> DaData e Adata ci siano effettivamente delle date.
>
> spero di esserti stato di aiuto.
>
> ciao
> Riccardo
>
> p.s.:
> siamo omonimi :-)
Grazie omonimo per avere avuto la pazienza di rispondermi. Purtroppo ho
provato ma non mi funziona perchè non mi visualizza nessun record. Non sono
un grande espertov, ma penso che il problema non sia all'inizio di tutto, ma
come avevo detto prima nella formattazione del campo "Mese". Comunque grazie
tante lo stesso.
>
>
>
>


title: errore di sintassi nella data

author: Roberto da casa

text:
"Riccardo" <
dav...@masterweb.it
> ha scritto nel messaggio
news:dcKBa.4446$79.1...@news.edisontel.com...

A mio avviso le cose che non vanno sono molte di più di quelle che ti
seganala Access.
Cominciamo con gli errori di sintassi che ritengo siano 2:
1) Prima dell'operatore And devi lasciare una spazio e quindi non:
Strfiltro = Strfiltro & "And[Mese] ...
ma
Strfiltro = Strfiltro & " And [Mese] ...
2) il campo [Mese] non è un campo di tipo Data/ora ma un campo di tipo Testo
e quindi non dovresti usare i caratteri # e non dovresti scrivere:
Strfiltro = "[Mese]>=#" & Format(Me!DaData, "mmmm yyyy") & "#"
...
Strfiltro = Strfiltro & "And[Mese]<=#" & Format(Me!AData, "mmmm yyyy") & "#"
....
Strfiltro = "[Mese]<=#" & Format(Me!AData, "mmmm yyyy") & "#"
bensì dovresti scrivere:
Strfiltro = "[Mese]>='" & Format(Me!DaData, "mmmm yyyy") & "'"
...
Strfiltro = Strfiltro & "And[Mese]<='" & Format(Me!AData, "mmmm yyyy") & "'"
....
Strfiltro = "[Mese]<='" & Format(Me!AData, "mmmm yyyy") & "'"
Risolto il problema degli errori formali il tuo filtro non funzionerà: visto
che il confronto avviene tra stringhe sicuramente Gennaio 2003 risulterà
maggiore e non minore di Febbraio 2003, e questo per il semplice motivo che
G è maggioe e non minore di F.
Quindi, secondo me, non devi perdere tempo ad eliminare gli errori formali,
ma devi cambiare totalmente strategia di filtraggio.
A mio avviso con le caselle di testo DaData e AData devi filtrare le due
queries iniziali TotaliEntrateMensili e TotaliSpeseMensili tramite una
funzione Between ... And; sicuramente a quel livello i record di input
contengono un campo di tipo Data/ora.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: errore di sintassi nella data

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:rSLBa.47560$lK4.1...@twister1.libero.it...

  Grazie innanzitutto per la correzione degli errori formali nel codice di
cui comunque faccio tesoro per colmare lacune che un principiante come me
purtroppo ha.
Cercherò di lavorare sui tuoi suggerimenti e su quelli di Riccardo M. che mi
pare segua la stessa linea, per vedere se tiro fuori qualcosa di buono.
Riccardo



title: Prima lettera in Maiuscolo

text:
In una maschera Access nel campo Nome, vorrei scrivere indistintamente
sia in maiuscolo che in minuscolo, ma salvando il campo, vorrei la
prima lettera in maiuscolo.


title: Prima lettera in Maiuscolo

author: wlady

text:
lag...@gmail.com
 ha scritto:
> In una maschera Access nel campo Nome, vorrei scrivere indistintamente
> sia in maiuscolo che in minuscolo, ma salvando il campo, vorrei la
> prima lettera in maiuscolo.
potresti mettere un codice di questo tipo nell'evento afterupdate del
campo nome:
Nome = UCase(Left(Nome, 1)) + Mid(Nome, 2)
ciao


title: Prima lettera in Maiuscolo

author: MA

text:

stconv(tuonome,3)
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Prima lettera in Maiuscolo

text:
MA wrote:
>
lag...@gmail.com
 wrote:
>> In una maschera Access nel campo Nome, vorrei scrivere
>> indistintamente sia in maiuscolo che in minuscolo, ma salvando il
>> campo, vorrei la prima lettera in maiuscolo.
> stconv(tuonome,3)
stRconv(tuonome,3)



title: Prima lettera in Maiuscolo

author: Cataldo Formaro

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:e7dejs$auu$1...@area.cu.mi.it...
> MA wrote:
>>
lag...@gmail.com
 wrote:
>>> In una maschera Access nel campo Nome, vorrei scrivere
>>> indistintamente sia in maiuscolo che in minuscolo, ma salvando il
>>> campo, vorrei la prima lettera in maiuscolo.
>> stconv(tuonome,3)
> stRconv(tuonome,3)
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
Ciao amici,
permettetemi una riflessione.
In un controllo cosi formattato, provate (ad esempio):
Via Luigi XIII
restituirą: Via Luigi Xiii
avete una soluzione per ciņ??
Io ho preferito trasformare tutto in maiuscolo.
Saluti
CF


title: Prima lettera in Maiuscolo

text:

No Cataldo, effettivamente ilproblema c'č
ma credo che oggettivamente sia difficile per qualsiasi linguaggio risolvere
questo problema
--
_ _
Ciao



title: Prima lettera in Maiuscolo

author: Access

text:
Se ho ben capito il tuo problema io faccio cosi:
Private Sub Nome_exit(Cancel As Integer)
On Error Resume Next
Dim i As String
i = Nome.Value
Nome.Value = StrConv(i, vbProperCase)
End Sub
Ciao
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:e7o38u$kku$1...@area.cu.mi.it...
> Cataldo Formaro wrote:
>> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
>> news:e7dejs$auu$1...@area.cu.mi.it...
>>> MA wrote:
>>>>
lag...@gmail.com
 wrote:
>>>>> In una maschera Access nel campo Nome, vorrei scrivere
>>>>> indistintamente sia in maiuscolo che in minuscolo, ma salvando il
>>>>> campo, vorrei la prima lettera in maiuscolo.
>>>> stconv(tuonome,3)
>>> stRconv(tuonome,3)
>>>
>>> --
>>> _ _
>>> Ciao
>>> MAssimiliano Amendola
>>
>> Ciao amici,
>> permettetemi una riflessione.
>> In un controllo cosi formattato, provate (ad esempio):
>> Via Luigi XIII
>> restituirà: Via Luigi Xiii
>> avete una soluzione per ciò??
>> Io ho preferito trasformare tutto in maiuscolo.
>>
>> Saluti
>> CF
> No Cataldo, effettivamente ilproblema c'è



title: Prima lettera in Maiuscolo

author: Alessandro Baraldi

text:
Access ha scritto:
> Se ho ben capito il tuo problema io faccio cosi:
> Private Sub Nome_exit(Cancel As Integer)
>
> On Error Resume Next
>
> Dim i As String
>
> i = Nome.Value
>
> Nome.Value = StrConv(i, vbProperCase)
>
> End Sub
>
> Ciao
Credo tu abbia capito bene, ma il suggerimento non è altrettanto
valido.
Applica quello che hai suggerito a quanto ha chiesto Cataldo.... e
verifica il risultatato.
Purtroppo non credo ci sia una soluzione a questo se non scrivere una
Funzione
con la speranza possa comprendere tutti i casi.
@Alex


title: Prima lettera in Maiuscolo

text:
lag...@gmail.com
 ha scritto:
> In una maschera Access nel campo Nome, vorrei scrivere indistintamente
> sia in maiuscolo che in minuscolo, ma salvando il campo, vorrei la
> prima lettera in maiuscolo.
in effetti io avevo suggerito quel codice in quanto rende maiuscolo
solo la prima lettera
ciao


title: Prima lettera in Maiuscolo

text:
wlady ha scritto:

Nell'esempio che ha citato Cataldo però non funzionerebbe ugualmente.
In effetti la discriminazione di cosa vada in Maiuscolo o in Minuscolo
dipende
dall'esigenza.
Credo che sia la tua soluzione, che l'uso di strConv(...) al di là che
sono pensate
con 2 scopi diversi, come hai giustamente evidenziato, non possano
tenere conto
di eccezioni come
Via Luigi XIV
Estendere una regola a questo è decisamente complesso....
@Alex


title: Funzione FORMAT in query Pass Through: perchè non funziona?

text:
Ho creato una query PT su access che deve lavorare su SQl Server: ho usatio
la funzione Format per gestire il numero di decimali esattamente come facevo
su query che lavoravano su Access (sostituendo, ovviamente i caratteri " con
'). Si genera sempre un msg di errore che dice che la funzione Format non è
riconosciuta dall'ODBC. Però in post passato ho visto che veniva indicata
come valida.....
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: BrowseFolder

author: Flavio

text:
Dove trovo questa funzione BrowseFolder esiste sul sito comune?
Ciao


title: BrowseFolder

author: Carlo Costarella

text:
"Flavio" <
i...@i.it
> ha scritto nel messaggio
news:4oVxf.43662$eD5.7...@twister2.libero.it...
>
> Dove trovo questa funzione BrowseFolder esiste sul sito comune?
>
> Ciao
>
>
>
Qualcosa da cui puoi capire molto:
http://www.mvps.org/access/api/api0002.htm
Ciao, Carlo


title: BrowseFolder

text:
"Flavio" <
i...@i.it
> wrote in message
news:4oVxf.43662$
eD5.7...@twister2.libero.it
> Dove trovo questa funzione BrowseFolder esiste sul sito comune?
>
> Ciao
Sicuramente sul SC c'č nella sezione Moduli.
Alternativa quě:
http://www.mantuanet.it/alessandro.baraldi/
Sesione [API]
1.3 MultiBrowser
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: BrowseFolder

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43c8932b$0$1071$4faf...@reader1.news.tin.it...

> Ok trovato
Grazie
Ciao


title: Aprire lo stesso form come Maschera Singola o Foglio dati.

author: Ercole

text:
Come si può aprire lo stesso form in Visualizzazione maschera o Foglio dati?
Ovvero, come si imposta la proprietà "Visualizzazione Predefinita" di una
maschera prima che venga aperta? Ho trafficato un po' con le macro ma senza
riuscire.
Ciao e grazie, Ercole.


text:
"Ercole" <
ercole...@tin.it
> ha scritto nel messaggio
news:1VMp7.2575$ft4....@news2.tin.it...

Per aprire una maschera in Visualizzazione Maschera:
DoCmd.OpenForm "NomeMaschera", acNormal
Per aprirla in Visualizzazione Foglio dati:
DoCmd.OpenForm "NomeMaschera", acFormDS
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: DAO e campi "MEMO" .....??

author: Alex

text:
Probabilmente è cosa trita e ritrita, ma nonostante abbia cercato non
ho trovato riferimenti utili.
Problema:
Utilizzo A97 e DAO per salvare in tabelle i dati recuperati da un File di testo
al quale non posso applicare la Funzione Transfer.... perchè formattato in modo
molto particolare.
Di fatto funziona, ma poichè il File in oggetto contiene una parte di
DESCRIZIONE>255 caratteri ho dovuto per far funzionare tutto salvare in
una txtbox per poterla passare al campo MEMO della Tbl in quanto non sapevo che
tipo di variabile utilizzare....
Ho risolto ugualmente, ma il mio dubbio è sapere se c'è un metodo più corretto
per affrontare questa cosa....
Ciao Buon Week end.
@Alex
--
Posted from  [62.98.11.14]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Manutenzione del FE condiviso

author: Alexj

text:
Dopo aver publicato il FE su intranet capita a volte di doverlo manutenere e
bisogna fare il giro di tutti gli utenti con il Fe aperto, è possibile
chiudere il FE da remoto oppure inviare un messaggio all'utente di chiudere
l'applicativo?
Grazie a tutti


title: Manutenzione del FE condiviso

author: ALCAU

text:
"Alexj" <
c_...@bigfoot.com
> wrote in message
news:8uref0$499c$1...@stargate1.inet.it...

Si


title: Manutenzione del FE condiviso

text:
"ALCAU" <
CIUMBIAp...@inwind.it
> wrote in message
news:2TBQ5.13741$wW2.4...@news1.giganews.com...

grazie molto chiaro :->


title: Formattazione condizionata + condizioni

author: Nao

text:
In una mashera con visualizzazione maschere continue, ho applicato la
formattazione condizionata al mio controllo.
Fino ad adesso questo sistema mi andava bene, ma adesso mi servono 5
condizioni, (Formattazione condizionata ne supporta solo tre).
Come posso fare? utilizzando le condizioni if..then..else, me li colora
tutti di un solo colore.
grazie 1000 Nadir
--------------------------------
Inviato via
http://arianna.libero.it/usenet


title: Formattazione condizionata + condizioni

text:
"Nao" <naon...@iol.itOOO> ha scritto nel messaggio
news:212Z159Z223Z113Y...@usenet.libero.it...
> In una mashera con visualizzazione maschere continue, ho applicato la
> formattazione condizionata al mio controllo.
> Fino ad adesso questo sistema mi andava bene, ma adesso mi servono 5
> condizioni, (Formattazione condizionata ne supporta solo tre).
> Come posso fare? utilizzando le condizioni if..then..else, me li colora
> tutti di un solo colore.
>
> grazie 1000 Nadir
Potresti inserire nella maschera una casella di testo non associata non
visibile; nell'origine controllo scrivi un algoritmo che fa assumere a tale
casella di controllo nascosta il valore 1 o 0 a seconda che si verifichino o
meno le tue 5 condizioni: usa solamente il valore di questo controllo per la
formattazione condizionale.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Formattazione condizionata + condizioni

author: stefano (kabisa)

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jabhb.23481$e6.7...@twister2.libero.it...

Scusa se mi intrometto
Potresti fare un esempio?
Ipotesi ho necessità di dare il colore  rosso verde giallo blu viola a
seconda del valore del dato presente nel controllo.
in questo caso devo fare 5 caselle di testo non associate?
Non riesco a capire
Ti ringrazio per eventuali chiarimenti
Stefano (kabisa)
ps ho trovato utilissimi i tuoi suggerimenti per il multilingua thai che mi
hai dato un po di tempo fa.


title: Formattazione condizionata + condizioni

text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:mIbhb.189339$hE5.6...@news1.tin.it...

Non usando la formattazione condizionale (adopero solo Access 97 e quindi
niente formattazione condizionale) mi accorgo di non aver ben capito il
quesito posto da Nao.
Per poter usare un numero indeterminato di colori come colore di fondo di
una casella di testo in una maschera con visualizzazione a Maschere singole,
vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Silvio Savoldi intitolata "Formattazione Condizionale nelle maschere
continue".
> Stefano (kabisa)
> ps ho trovato utilissimi i tuoi suggerimenti per il multilingua thai che
mi
> hai dato un po di tempo fa.
--



title: Formattazione condizionata + condizioni

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:FLchb.21950$vO5.7...@twister1.libero.it...

Grazie ma il problema è in caso di maschera continua
io ho risolto passando il valore del campo selezionato al momento ad una
variabile globale che viene contollata da una funzioone assegna colore
che a sua volta da il colore al record corrente della maschera continua
funziona la 95 % dei casi circa
Scusa per l'italiano che sto usando ma è un paio di gorni che lavoro in
fiammingo e spagnolo
quindi perdo un po di Italiano
Stefano (kabisa)


title: da Stringa a SQl e viceversa

author: Ivan

text:
Salve a tutti
ho la necessit� di inserire in un capo di testo delle stringhe contenenti
caratteri speciali (apostrofi) e per fare ci� ho trovato una funzione che mi
converte la stringa in un formato adatto ad essere inserito nel database. La
funzione � la seguente:
Function String2Sql( ByVal s As String, _
Optional Byval PerLike As Boolean = False) As String
s=Replace$(s, "'", "''", 1&, -1&, vbBinaryCompare)
If PerLike Then
s=Replace$(s, "[", "[[]", 1&, -1&, vbBinaryCompare)
s=Replace$(s, "_", "[_]", 1&, -1&, vbBinaryCompare)
s=Replace$(s, "%", "[%]", 1&, -1&, vbBinaryCompare)
End If
String2Sql=s
End Function
Fin qui tutto bene.
Ora per� ho la necessit� di trasformare in stringa il valore presente nel
database creato con questa funzione, (esempio: il doppio apostrofo in un
apostrofo solo).
Mi potete aiutare?
Grazie 1000


title: da Stringa a SQl e viceversa

text:
"Ivan" <
rib...@hotmail.com
> ha scritto nel messaggio
news:4af5a825$1...@news.x-privat.org...

Pi� o meno � l'inverso della tua funzione e ammesso che parliamo di doppi
apici.
Per esempio questa funzione potrebbe andare bene:
Public Function Rimpiazza(ss As String) As String
Rimpiazza = Replace(ss, "''", "'")
End Function
Ciao, Carlo


title: da Stringa a SQl e viceversa

author: Pablitomf (da casa)

text:

Carl� ma lui parla di valore... per cui, o nel record c'� registrato una
stringa SQL, o non mi spiego sta cosa.


title: da Stringa a SQl e viceversa

text:
"Pablitomf (da casa)" <
pabl...@hotmail.it
> ha scritto
cut
>
> Carl� ma lui parla di valore... per cui, o nel record c'� registrato una
> stringa SQL, o non mi spiego sta cosa.
Nemmeno io; qualche dubbio l'ho avuto.
Si tratta d'interpretare cosa vuol dire: "esempio: il doppio apostrofo in un
apostrofo solo".
Vediamo cosa risponde.
Ciao, Carlo


title: da Stringa a SQl e viceversa

text:

Mi spiego con un esempio:
Stringa originale:
"L'albero in via dei tigli si trova all'interno del viale"
Valore inserito nel database:
"L''albero in via dei tigli si trova all''interno del viale"
Ora io vorrei mostrare nuovamente in visualizzazione la stringa originale,
ed eventualmente (ma non indispensabile) utilizzare anche il LIKE per le
ricerche (ad esempio trovare "albero" all'interno di una query sulla
tabella.
Spero di essermi spiegato.
Grazie


title: da Stringa a SQl e viceversa

text:
>> Carl� ma lui parla di valore... per cui, o nel record c'� registrato
>> una stringa SQL, o non mi spiego sta cosa.
> Mi spiego con un esempio:
>
> Stringa originale:
> "L'albero in via dei tigli si trova all'interno del viale"
perfetto...
> Valore inserito nel database:
> "L''albero in via dei tigli si trova all''interno del viale"
e perch� mai?
> Ora io vorrei mostrare nuovamente in visualizzazione la stringa
> originale,
quello suggerito da Carlo allora � ok...
> ed eventualmente (ma non indispensabile) utilizzare anche
> il LIKE per le ricerche (ad esempio trovare "albero" all'interno di
> una query sulla tabella.
ma questo lo puoi fare a prescindere...
> Spero di essermi spiegato.
> Grazie
Si, ma non mi � chiaro perch� nel DB passi la stringa stravolta...


title: da Stringa a SQl e viceversa

text:
"Pablitomf (da casa)" <
pabl...@hotmail.it
> ha scritto
cut
> Si, ma non mi � chiaro perch� nel DB passi la stringa stravolta...
...a lui piace cos�...stravolto.
Ciao, Carlo


title: da Stringa a SQl e viceversa

text:

:)
gi�... per� � peccato... deve fare due lavori di parse, quando ne serve
zero... com'era la cosa? tutto � inutile tranne il superfluo? :D


title: da Stringa a SQl e viceversa

author: Alessandro Cara

text:
Pablitomf (da casa) ha scritto:
[cut]
>
>> Spero di essermi spiegato.
>> Grazie
>
> Si, ma non mi ï¿œ chiaro perchï¿œ nel DB passi la stringa stravolta...
perche' non gli e' chiaro  il perche' del doppio apice.
-
ac


title: da Stringa a SQl e viceversa

text:
>> Mi spiego con un esempio:
>>
>> Stringa originale:
>> "L'albero in via dei tigli si trova all'interno del viale"
>
> perfetto...
>
>> Valore inserito nel database:
>> "L''albero in via dei tigli si trova all''interno del viale"
>
> e perch� mai?
>
>> Ora io vorrei mostrare nuovamente in visualizzazione la stringa
>> originale,
>
> quello suggerito da Carlo allora � ok...
>
>> ed eventualmente (ma non indispensabile) utilizzare anche
>> il LIKE per le ricerche (ad esempio trovare "albero" all'interno di
>> una query sulla tabella.
>
> ma questo lo puoi fare a prescindere...
>
>> Spero di essermi spiegato.
>> Grazie
>
> Si, ma non mi � chiaro perch� nel DB passi la stringa stravolta...
perche se io eseguo "Update nometabella set nomecampo = '" & stringa & "'"
senza string2sql mi genera un errore. Avevo risolto con la funzione che ho
descritto ma se avete suggerimenti ben vengano, ho postato sul ng proprio
per questo.
Grazie


title: da Stringa a SQl e viceversa

text:
>> Si, ma non mi � chiaro perch� nel DB passi la stringa stravolta...
> perche se io eseguo "Update nometabella set nomecampo = '" & stringa
> & "'" senza string2sql mi genera un errore. Avevo risolto con la
> funzione che ho descritto ma se avete suggerimenti ben vengano, ho
> postato sul ng proprio per questo.
>
> Grazie
Cio� tu mi vorresti dire che se da codice esegui :
Dim str As String
str = "L'isola dei famosi"
DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) &
"L'isola dei famosi" & Chr(34)
non ti funzia?... impossibile... ci sar� dell'altro, perch� questo � un
codice che passa tranquillamente...


title: da Stringa a SQl e viceversa

text:
Pablitomf (da casa) wrote:
>>> Si, ma non mi � chiaro perch� nel DB passi la stringa stravolta...
>
>> perche se io eseguo "Update nometabella set nomecampo = '" & stringa
>> & "'" senza string2sql mi genera un errore. Avevo risolto con la
>> funzione che ho descritto ma se avete suggerimenti ben vengano, ho
>> postato sul ng proprio per questo.
>>
>> Grazie
>
> Cio� tu mi vorresti dire che se da codice esegui :
>
> Dim str As String
> str = "L'isola dei famosi"
>
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) &
> "L'isola dei famosi" & Chr(34)
ops... ovviamente
DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str &



title: da Stringa a SQl e viceversa

text:
>>> perche se io eseguo "Update nometabella set nomecampo = '" & stringa
>>> & "'" senza string2sql mi genera un errore. Avevo risolto con la
>>> funzione che ho descritto ma se avete suggerimenti ben vengano, ho
>>> postato sul ng proprio per questo.
>>>
>>> Grazie
>>
>> Cio� tu mi vorresti dire che se da codice esegui :
>>
>> Dim str As String
>> str = "L'isola dei famosi"
>>
>> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) &
>> "L'isola dei famosi" & Chr(34)
>
> ops... ovviamente
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str
> & Chr(34)
>
>>
>> non ti funzia?... impossibile... ci sar� dell'altro, perch� questo �
>> un codice che passa tranquillamente...
>
scusa l'ignoranza, ma mi spieghi la differenza tra
DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= '" & str & "'"
e
DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str &
Chr(34)
e perch� una va e l'altra no?
Grazie per la pazienza


title: da Stringa a SQl e viceversa

author: pablitomf

text:
On 9 Nov, 08:31, "Ivan" <
rib...@hotmail.com
> wrote:
> >>> perche se io eseguo "Update nometabella set nomecampo = '" & stringa
> >>> & "'" senza string2sql mi genera un errore. Avevo risolto con la
> >>> funzione che ho descritto ma se avete suggerimenti ben vengano, ho
> >>> postato sul ng proprio per questo.
>
> >>> Grazie
>
> >> Cioè tu mi vorresti dire che se da codice esegui :
>
> >> Dim str As String
> >> str = "L'isola dei famosi"
>
> >> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) &
> >> "L'isola dei famosi" & Chr(34)
>
> > ops... ovviamente
> > DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str
> > & Chr(34)
>
> >> non ti funzia?... impossibile... ci sarà dell'altro, perchè questo è
> >> un codice che passa tranquillamente...
>
> scusa l'ignoranza, ma mi spieghi la differenza tra
>
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= '" & str & "'"
> e
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str &
> Chr(34)
>
> e perchè una va e l'altra no?
> Grazie per la pazienza
perchè la prima ti restituisce :
UPDATE TuaTabella SET TuaTabella.TuoCampo= 'L'isola dei famosi'
mentre la seconda ti restituisce :
UPDATE TuaTabella SET TuaTabella.TuoCampo= "L'isola dei famosi"
come vedi, il risultato del primo SQL, dopo l'uguale ( = ) ha l'apice
( ' ) poi la elle ( L ) poi dinuovo l'apice ( ' )... a questo secondo
apice, il codice si blocca, perchè "avverte" che la stringa è
terminata (mentre non è così), e quindi non riesce a tradurre i
caratteri che vengono dopo denerando un errore...
chiaro?
chr(34) invece è il codice per farti restituire correttamente le due
virgolette, che rendono il contenuto al loro interno un corpo unico
(ammenochè in "str", non vi sia un contenuto con altre virgolette...
in quel caso ricorreresti in un errore analogo a quello già
riscontrato. Es. Ciao "MATTEO"... non passerebbe.


title: da Stringa a SQl e viceversa

text:
> scusa l'ignoranza, ma mi spieghi la differenza tra
>
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= '" & str & "'"
> e
> DoCmd.RunSQL "UPDATE TuaTabella SET TuaTabella.TuoCampo= " & Chr(34) & str
> &
> Chr(34)
>
> e perch� una va e l'altra no?
> Grazie per la pazienza
perch� la prima ti restituisce :
UPDATE TuaTabella SET TuaTabella.TuoCampo= 'L'isola dei famosi'
mentre la seconda ti restituisce :
UPDATE TuaTabella SET TuaTabella.TuoCampo= "L'isola dei famosi"
come vedi, il risultato del primo SQL, dopo l'uguale ( = ) ha l'apice
( ' ) poi la elle ( L ) poi dinuovo l'apice ( ' )... a questo secondo
apice, il codice si blocca, perch� "avverte" che la stringa �
terminata (mentre non � cos�), e quindi non riesce a tradurre i
caratteri che vengono dopo denerando un errore...
chiaro?
chr(34) invece � il codice per farti restituire correttamente le due
virgolette, che rendono il contenuto al loro interno un corpo unico
(ammenoch� in "str", non vi sia un contenuto con altre virgolette...
in quel caso ricorreresti in un errore analogo a quello gi�
riscontrato. Es. Ciao "MATTEO"... non passerebbe.
Grazie 1000


title: Query

author: Angelo

text:
Ho realizzato una query riepilogativa originata da più tabelle e più query.
Alcune di queste tabelle sono relazionate tra loro, altre No.
Il problema è che la query restituisce valori  in forma duplicata o meglio
moltiplicata.
Credo che il problema è dovuto alle tabelle e/o query non relazionate, ma ho
necessità di stampare le risultanze dei valori immessi nella query secondo
quel preciso ordine.
E' possibile ovviare a questo  inconveniente?
Grazie
Angelo


title: Query

author: Antonio Biso

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:RIwV9.36445$0v.11...@news1.tin.it...

Utilizza la funzionalità di raggruppamento o l'opzione distinctorw
Antonio


title: Query

author: Roberto da casa

text:
"Angelo" <
ap...@inwind.it
> ha scritto nel messaggio
news:RIwV9.36445$0v.11...@news1.tin.it...

E' assolutamente naturale che, se basi una query su due tabelle senza
metterle in join, il numero delle righe della query è uguale al prodotto del
numero dei record della prima tabella per il umero dei record della seconda
tabella.
Se non vuoi che questo accada devi assolutamente trovare il modo di mttere
tutte le tabelle un join tra loro, oppure eliminare dette tabelle ed andare
a prelevare i dati in esse contenuti con delle finzioni di aggregazioni sui
dominii.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: giusto utilizzare sottomaschere sino al III livello?

author: kkkxxx

text:
ho 5 tabelle:
IMPRESE:
idimpresa PK
impresa
CONTRATTO:
impresaid EK
contratto
idcontratto PK
...
DETTAGLIO
contrattoid EK
iddettaglio PK
dettaglio
...
DETTAGLIO2a
dettaglioid EK
iddettaglio2a PK
dettaglio2a
...
DETTAGLIO2B
dettaglioid EK
idettaglio2b PK
dettaglio2b
...
per quanto riguarda il front-end cosa mi consigliate?
Attualmente ho creato un'unica maschera con una sottomaschera (
contratto) e all'interno di quest'ultimo altre due sottomaschere ( per
il dettaglio e dettaglio2A)entrambe gestite come foglio dati. Forse la
soluzione migliore sarebbe utilizzare delle TAB ma la gestione non mi
sembra delle migliori. Voi come vi comportereste? Tenuto conto che i
dettaglio dei vari contratti saranno oggetto di calcoli attraverso query
piuttosto complesse.
un saluto al NG


author: Bruno Campanini

text:
"kkkxxx" <
k...@tiscali.it
> wrote in message
news:McIjo.207614$9f6.4...@twister1.libero.it...

Sul merito non mi pronuncio... le soluzioni diverse
dalle mie son tutte brutte.
Sulla legittimità di usare subform fino al terzo livello...
se ti servono perché non usarle?
Con Access 2007 sono arrivato - in via di esperimento -
fino a sette (sette in cascata, non affiancate!)
Quanto ai calcoli, se sono complicati io lavoro meglio
con VBA e le form|subform non in modalità foglio dati.
Bruno
Bruno


text:
Bruno Campanini ha scritto:
> Quanto ai calcoli, se sono complicati io lavoro meglio
> con VBA e le form|subform non in modalità foglio dati.
>
> Bruno
>
> Bruno
>
>
>
dovrei utilizzare le query perchè questo progetto deriva da un altro
che sono stato costretto a riscrivere per una cattiva progettazione
delle tabelle. In pratica mi ritroverei le query già pronte ( o molto
quasi...) grazie per la dritta!


title: sostituzione codice per ottimizzare la prestazione, ma è peggio.

text:
ciao a tutti

ho sostituito in una funzione queste righe di codice,
ma non capisco perchè non è altrettanto performante
come quello iniziale.
grazie

**********codice sostituito************
  Dim CheckArray(1 To 3) As String, J As Integer
  Dim X As String

  CheckArray(1) = "nColli"
  CheckArray(2) = "Quantità"
  CheckArray(3) = "Prezzo"

  X = ""

  For J = 1 To 3
  rsCheck.FindFirst CheckArray(J) & " = 0"

  X = IIf(Len(campo1 & vbNullString) = 0, ", data Chiusura", "") _
    & IIf(Len(campo2 & vbNullString) = 0, ", Targa", "") _
    & IIf(CheckArray(J) = "nColli", ", n°Colli", "") _
    & IIf(CheckArray(J) = "Quantità", ", Quantità", "") _
    & IIf(CheckArray(J) = "Prezzo", ", Prezzo", "")

  Next

***********codice iniziale*************

Public Function Conf_Chiusura( _
  ByVal campo1 As Variant, _
  ByVal campo2 As Variant) As Boolean

  Dim rsCheck As dao.Recordset
  Dim strsCheckQL As String

  strsCheckQL = "SELECT * FROM DettaglioCarichi" _
    & " Where IdCarico =" & fctCriterio_Idc()
  Set rsCheck = CurrentDb.OpenRecordset(strsCheckQL)

  If rsCheck.BOF Then 'se non ci sono record nel recordset
    MsgBox "Non ci sono record.", vbExclamation, "Attenzione!"
    Exit Function

  End If

  Dim campo3 As Integer, campo4 As Integer, campo5 As Integer
  Dim X As String

  rsCheck.FindLast "nColli=0"
  campo3 = IIf(rsCheck.NoMatch, 1, 0)

  rsCheck.FindLast "Quantità=0"
  campo4 = IIf(rsCheck.NoMatch, 1, 0)

  rsCheck.FindLast "Prezzo=0"
  campo5 = IIf(rsCheck.NoMatch, 1, 0)

  X = ""

  X = IIf(Nz(campo1, 0) = 0, ", data Chiusura", "") _
    & IIf(Nz(campo2, 0) = 0, ", Targa", "") _
    & IIf(Nz(campo3, 0) = 0, ", n°Colli", "") _
    & IIf(Nz(campo4, 0) = 0, ", Quantità", "") _
    & IIf(Nz(campo5, 0) = 0, ", Prezzo", "")

  If (X) <> "" Then
    MsgBox "Attenzione manca:" & Mid(X, 2) & ".", vbExclamation, "Attenzione!"
    Exit Function

  End If

  Set rsCheck = Nothing

Conf_Chiusura = True
End Function


text:
Il giorno sabato 26 marzo 2016 12:02:58 UTC+1,
francode...@gmail.com
 ha scritto:
> ciao a tutti
>
> ho sostituito in una funzione queste righe di codice,
> ma non capisco perchè non è altrettanto performante
> come quello iniziale.
> grazie

AAAAAAAAAh !

Ma allora non volevi scrivere codice piu' "corto", ma + veloce !!!!
Scusa ... forse era ovvio e io  non sono molto sveglio.
Ma me pareva strano, me pareva ! Dicevo : boh. Ma perchè mai ? :-)

Vorrei aiutarti, ma ho bisogno  che  mi  spieghi (bene, con calma e
dando nulla x scontato. Sono  lento  a  capire)  che DEVI FARE. Che
DEVE *FARE* quel codice ?

Vedrai che allora qualcosa ci inventiamo.


text:

Le istruzioni che /incidono/ sono in genere i cicli e le
aoperture/letture da db.
La differenza che vedo (a parte la apertura del recorset) mi sembra
sia la sostituzione di .findlast con .findfirst + l'uscita di
funzione in caso di recordset vuoto
Nella nuova versione non mi sembra ci sia rsCheck che fine ha fatto?

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

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


text:
francode...@gmail.com
 formulated the question :
> ciao a tutti
>
> ho sostituito in una funzione queste righe di codice,
> ma non capisco perchè non è altrettanto performante
> come quello iniziale.
> grazie
>
> **********codice sostituito************
>   Dim CheckArray(1 To 3) As String, J As Integer
>   Dim X As String
>
>   CheckArray(1) = "nColli"
>   CheckArray(2) = "Quantità"
>   CheckArray(3) = "Prezzo"
>
>   X = ""
Questa riga non serve: una volta dimensionata una variabile
stringa assume già di default il valore di stringa nulla.
>
>   For J = 1 To 3
>   rsCheck.FindFirst CheckArray(J) & " = 0"
>
>   X = IIf(Len(campo1 & vbNullString) = 0, ", data Chiusura", "") _
>     & IIf(Len(campo2 & vbNullString) = 0, ", Targa", "") _
>     & IIf(CheckArray(J) = "nColli", ", n°Colli", "") _
>     & IIf(CheckArray(J) = "Quantità", ", Quantità", "") _
>     & IIf(CheckArray(J) = "Prezzo", ", Prezzo", "")

Queste Implied If (IIf) sono degli assoluti perditempo al pari
delle varie funzioni di Domain (DSum, Dlookup...)
Qui le esegui TRE volte, nel vecchio codice di seguito
esposto, una sola volta.

Comunque se vuoi far contenti tutti quelli che come me
non hanno ben inteso quel che vuoi fare, metti in onda
il database... chissà che le cose non vadano meglio.

Bruno


text:
Il giorno sabato 26 marzo 2016 18:52:08 UTC+1, Bruno Campanini ha scritto:

> Comunque se vuoi far contenti tutti quelli che come me
> non hanno ben inteso quel che vuoi fare, metti in onda
> il database... chissà che le cose non vadano meglio.

A me piacerebbe solo sapere che C***O deve fare. Solo questo.


text:

mi restituisce un msgbox per valori mancanti


text:

sigh


text:

Faccio un tentativo

Set Rc = me.recordset

ti scorri tutto il recordset (una volta sola, ma tutto)
do while not Rc.eof

   if A = 0 then X = X + 1
   if B = 0 then Y = Y + 1
   if C = 0 then Z = Z + 1

   rc.movenext

loop

msgbox(A & " " & B & " " & C)

fine

Velocissimo


text:

Capisci che non e' un problema di /performances/ ma un errore?
Credo che la soluzione te la abbia data B. Campanini ( non so se volendo
o no)



text:
Il giorno sabato 26 marzo 2016 18:52:08 UTC+1, Bruno Campanini ha scritto:

ciao Bruno
ti è poi arrivato il mio db?


text:
francode...@gmail.com
 submitted this idea :

> ciao Bruno
> ti è poi arrivato il mio db?

Sono andato a cercarlo solo ora che me l'hai rammentato.
Ho dovuto modificare 20 o forse anche 30 funzioni perché sto
usando Access 2016 a 64bit.

Ho visto che hai usato un modulo di classe e un sacco di API;
cose che non ho mai usato e che non conosco.
Comunque vedo di individuare la Form che contiene il codice
oggetto del thread, faccio andare la procedura prendendone
il tempo impiegato poi provo a fare qualche cambiamento per
velocizzarla... non è detto che ci riesca.

Bruno


text:

Guarda Bruno che non e' un problema di /performances/
A quanto ho capito la routine ha un bug

  ha scritto questo:
"mi restituisce un msgbox per valori mancanti"




text:

grazie Bruno


text:

ciao Alessandro
se vuoi te lo invio
privatamente


text:

Non programmo piu'
Non ho neanche Access installato



text:
francode...@gmail.com
 explained :

>
> grazie Bruno
M_ChiusuraCarico, l'unica Form contenente il codice in discussione,
si apre tutta blank, non vengono mostrati nemmeno i controlli
vuoti.
Messaggio di sistema:
"You entered an expression that has no value"
Questo nella versione che mi hai inviato, avendo aggiornato
tutto a 64 bit.

Ho creato un nuovo database in Access 2016/64 ed importato tutto
il contenuto del tuo.
La Form "Pannello comandi" non si apre: non trova
"Switchboard Items" che è il proprio Record Source.
Le references ci sono tutte e il Debug non mi segnala
errori di compilazione.

Mi sa che tu abbia fatto un database a immagine e somiglianza
dei fiammiferi Minerva: ricordi? quelli che si accendevano
solo sulla loro confezione.
Che Windows e Access stai usando?

Bruno


text:
...
>
> Non programmo piu'
> Non ho neanche Access installato
>
> --
> ac (x=y-1)

Perchè hai mai programmato...? ;-)

Dai installa la versione pirata... e fai finta di fare il programmatore... ci crediamo di più...!

@Alex


text:

SEEEEEEEEEEEEEE !!!!!!! :-))))

Ma se non fai altro che produrre stranissimi algoritmi per
"sfrugulliare" i numeri primi ! Al punto che per prenderti
in giro ti chiamavo il "turbo pallottoliere vivente" !!!!!

Alchè :
un inchino, magister informaticorum. Con sincero rispetto.
Davvero eh. Finchè si scherza si scherza ma ...


text:

ciao Bruno
Uso
Windows Xp vers 2002 service Pack 3
e Windows 8.1
e A2003


text:
Il 30/03/2016 19:56, @Alex ha scritto:
> ...
>>
>> Non programmo piu'
>> Non ho neanche Access installato
>>

> Perchè hai mai programmato...? ;-)

Era/e' un po' forte vero ;-)

>
> Dai installa la versione pirata... e fai finta di fare il programmatore... ci crediamo di più...!

A dir la verita' quattro istruzioni recentemente le ho messe in fila ma
non in VBA.



text:
Il 30/03/2016 20:20,
radica...@gmail.com
 ha scritto:
>>>
>>
>> Non programmo piu'
>
> SEEEEEEEEEEEEEE !!!!!!! :-))))
>
> Ma se non fai altro che produrre stranissimi algoritmi per
> "sfrugulliare" i numeri primi ! Al punto che per prenderti in giro ti
> chiamavo il "turbo pallottoliere vivente" !!!!!
>

Ora ho in produzione il "rolling on primorial"
Uno sballo!

> Alchè : un inchino, magister informaticorum. Con sincero rispetto.
> Davvero eh. Finchè si scherza si scherza ma ...

Devi avrer bevuto ;-)



text:
francode...@gmail.com
 wrote :

> ciao Bruno
> Uso
> Windows Xp vers 2002 service Pack 3
> e Windows 8.1
> e A2003

Fin dalla prima uscita il passaggio da una versione alla
successiva ha sempre comportato qualche problemino.
Ma qui i problemini mi sembrano problemoni.

Io aborro in egual misura le API e i moduli di classe
perché li ritengo un'inutile complicazione, quindi sono
portato con smaccata partigianeria ad attribuire ad essi
il problema di cui si parla.
Complicato anche dai 13 anni che separano le due versioni di Access.

Il mio amico @Alex è di tutt'altra idea.
Saltasse fuori avendo smaltito gli eccessi culinari pasquali,
potrebbe senz'altro darti una mano...

Bruno


text:

ciao Bruno
ti ho rinviato il db,
prova con quest'ultimo


text:
francode...@gmail.com
 was thinking very hard :

> ciao Bruno
> ti ho rinviato il db,
> prova con quest'ultimo

Oh, questo si apre senza problemi e sembra funzionare come si deve!
Un bel dimagrimento però; ti mando il contenuto dei
due database:
https://www.dropbox.com/s/fi9yaq94eh1spjm/ObjectCount.pdf?dl=0

Ora dimmi, sul secondo, come procedo?

Bruno


text:
Bruno Campanini formulated the question :

Ho provato a pasticciarci un po'...
Dal Pannello Comandi si apre solo la scheda Dati Società,
mentre dalla finestra database le 11 Form si aprono tutte.

Bruno


text:

ti ho rinviato ancora il programma.

Procedi in questo modo:
1-immetti/visualizza Ordini per Cliente
2-seleziona cliente con Ordini, oppure senza Ordini
3-pulsante: "Nuovo Ordine"
4-doppio click su "Data Ordine", puoi inserire la data anche manualmente; chiudi la maschera.
5-seleziona nella maschera dov è posizionato il cursore, un fornitore (prima maschera posta al centro sotto le combo)
6-seleziona un prodotto nella maschera sottostante
7-click sul controllo "data carico", si apre la maschera "Conferma Carico"
8-inserisci una data, ecc. ecc.
9-seleziona "Report conferma Carico" lui ti dirà cosa fare; chiudi la maschera
n.b. tutti i controlli di colore verde sono selezioanbili o con clik o doppio click
10-i controlli sulla prima maschera di destra di "Gestione ordini"
cioè: "Mio Rif", "Ordine", "Data Ordine" aprono dei report
solo quando il quadratino a lato non è piu' rosso.


text:
aggiungo, (sul punto 5)
posso scrivere anche parte centrale di un nome fornitore(se non ricordo il nome esattamente),
poi con doppio click, si apre una piccola maschera "Trova fornitore"
con un'elenco di tutti i fornitori che contengono le lettere inserite nella combo.
e' sufficiente poi fare click sul fornitore scelto per trasferirlo sulla combo.
Non ho potuto fare diversamente perchè la maschera è a visualizzazione maschere continue.


text:
Il giorno mercoledì 30 marzo 2016 23:01:14 UTC+2, Alessandro Cara ha scritto:
> Il 30/03/2016 20:20,
radica...@gmail.com
 ha scritto:
> >>>
> >>
> >> Non programmo piu'
> >
> > SEEEEEEEEEEEEEE !!!!!!! :-))))
> >
> > Ma se non fai altro che produrre stranissimi algoritmi per
> > "sfrugulliare" i numeri primi ! Al punto che per prenderti in giro ti
> > chiamavo il "turbo pallottoliere vivente" !!!!!
> >
>
> Ora ho in produzione il "rolling on primorial"
> Uno sballo!

Ma quanto te piaceno 'sti "primoriali" a te ... Uh ! :-)
Ci "rotoli" sopra, addirittura.


text:

Esatto.
Non se se /conosci/ il Cobol.
C'era un /trucchetto/ per azzerare i campi in memoria che si chiamava,
appunto, "azzeramento a rotolamento".
Solo una volta lo ho visto usare in una procedura sviluppata da team
IBM. Quando lo ho notato  mi sono alzato ed al grido:
"allora Dio c'e' " sono anado al bar e mi sono fatto un uiscaccio.
La gente intorno mi ha guardato con aria stralunata, ma vaglielo a
spiegare il miracolo.



text:
francode...@gmail.com
 wrote :

> ciao Bruno
> ti ho rinviato ancora il programma.
>
> Procedi in questo modo:
> 1-immetti/visualizza Ordini per Cliente
> 2-seleziona cliente con Ordini, oppure senza Ordini
> 3-pulsante: "Nuovo Ordine"
> 4-doppio click su "Data Ordine", puoi inserire la data anche manualmente;
> chiudi la maschera. 5-seleziona nella maschera dov è posizionato il cursore,
> un fornitore (prima maschera posta al centro sotto le combo) 6-seleziona un
> prodotto nella maschera sottostante 7-click sul controllo "data carico", si
> apre la maschera "Conferma Carico" 8-inserisci una data, ecc. ecc.
> 9-seleziona "Report conferma Carico" lui ti dirà cosa fare; chiudi la
> maschera n.b. tutti i controlli di colore verde sono selezioanbili o con clik
> o doppio click 10-i controlli sulla prima maschera di destra di "Gestione
> ordini" cioè: "Mio Rif", "Ordine", "Data Ordine" aprono dei report
> solo quando il quadratino a lato non è piu' rosso.

Va bene ho fatto tutto... quindi?
Quando e come si verifica il problema all'oggetto del thread?

Bruno


text:

Ciao Bruno e grazie per l'aiuto,

sostituendo il codice già postato con questo:

Public Function Conf_Chiusura( _
  ByVal campo1 As Variant, _
  ByVal campo2 As Variant) As Boolean

  Dim rsCheck As dao.Recordset
  Dim strsCheckQL As String

  strsCheckQL = "SELECT * FROM DettaglioCarichi" _
    & " Where IdCarico =" & fctCriterio_Idc()
  Set rsCheck = CurrentDb.OpenRecordset(strsCheckQL)

  If rsCheck.BOF Then 'se non ci sono record nel recordset
    MsgBox "Non ci sono record.", vbExclamation, "Attenzione!"
    Exit Function

  End If

  Dim CheckArray(1 To 3) As String, J As Integer
  Dim X As String

  CheckArray(1) = "nColli"
  CheckArray(2) = "Quantità"
  CheckArray(3) = "Prezzo"

  For J = 1 To 3
  rsCheck.FindFirst CheckArray(J) & " = 0"

  X = IIf(Len(campo1 & vbNullString) = 0, ", data Chiusura", "") _
    & IIf(Len(campo2 & vbNullString) = 0, ", Targa", "") _
    & IIf(CheckArray(J) = "nColli", ", n°Colli", "") _
    & IIf(CheckArray(J) = "Quantità", ", Quantità", "") _
    & IIf(CheckArray(J) = "Prezzo", ", Prezzo", "")

  Next

  If (X) <> "" Then
    MsgBox "Attenzione manca:" & Mid(X, 2) & ".", vbExclamation, "Attenzione!"
    Exit Function

  End If

  Set rsCheck = Nothing

Conf_Chiusura = True
End Function

perchè invece di funzionare meglio, è addirittura peggio?
in piu' mi piacerebbe avere
un tuo giudizio sul mio db?


text:
francode...@gmail.com
 expressed precisely :

[...]

Nell'ultima versione che mi hai inviato, aperta M_ChiusuraCarico
dalla finestra database, quando questa viene chiusa
la funzione Conf_Chiusura() viene eseguita in 0.0078125
secondi... non capisco come tu possa considerarla lenta.

Se detta Con_Chiusura() le sostituisco con quella che mi
hai inviato col post al quale sto rispondendo, alla chiusura
di M_ChiusuraCarico mi si presentano due MsgBox:
- Attenzione manca: Prezzo
- Non puoi fare modifiche perché il carico
  l'hai già fatturato
e la Form si chiude.

Le due Con_Chiusura() non sono pertanto equivalenti
nell'elaborazione dei parametri e/o nella determinazione
dei risultati.

Siccome non ho alcuna voglia di proseguire nei meandri
del tuo programma, ho distrutto i due file e non
intendo più occuparmene.

Alla prossima.
Bruno


text:

cmq grazie Bruno


title: menù a tendina che non appare nelle maschere

author: Pippo Messineo

text:
Ho realizzato un menů a tendine che si apre sulla maschera di avvio.
Quando dal menů avvio una qualsiasi maschera il menů continua ad apparire in
testa alla maschera se il programma gira con Access installato, se invece
funziona con il RunTime di Access non appare piů.
Come fare per farlo comparire sempre?
Ciao e grazie
Pippo


author: Roberto da Parma

text:
"Pippo Messineo" <
gmess...@libero.it
> ha scritto nel messaggio
news:zaRvk.54474$Ca.1...@twister2.libero.it...

Ma č la barra dei menů?
In questo caso per farla comparire anche con il runtime devi creartene una
(anche uguale es. miabarra)
Nelle proprietŕ della maschera - barra menu devi poi inserire il nome
Ciao
--
Roberto da Parma


title: errore dll

author: Gianluca

text:
Salve a tutti, ho un problema che non riesco a risolvere: quando voglio
creare una maschera (o una query) mediante la creazione guidata mi da
"errore di caricamento dll" ... ho provato a installare di nuovo office xp
ma l'errore persiste. Come posso fare per ovviare al problema ??
Grazie per l'attenzione


title: errore dll

author: Antonio Ganci

text:

Format.


title: errore dll

text:
> Format.
problema risolto senza il drastico tuo consiglio....solo reistallando
dao360.dll


title: Esportare Tabelle Collegate

author: Romeo

text:
Salve ragazzi, vorrei sottoporvi un piccolo mio grande quesito... Allora,
possiedo un database con delle tabelle collegate, solo 2 di queste mi
interessa esportale in un'altro file .mdb opportunamente creato con una
funzione che ad una certa ora crea e mette come nome del salvataggio, data e
ora dello stesso (una specie di backup a tempo). Il problema è che poi
questo database quando viene creato a sua volta, ha il collegamento al file
originale (è questo non va bene), mentre se eseguo delle query e faccio la
stessa procedura, comunque perdo gli attributi delle tabelle, cioè valore
predefinito, indicizzato etc.. Come posso fare visto che comunque non posso
copiare l'intero file che contiene le tabelle e poi rinominarlo ? E'
possibile esportare delle tabelle di un database che non sia quello aperto ?
Non so se sono riuscito a farmi capire, comunque grazie a chi vorrà
dedicarmi un pò di tempo.


title: Esportare Tabelle Collegate

author: ciroteo

text:
"Romeo" <
rom...@tin.it
> ha scritto nel messaggio
news:my5ld.316016$35.14...@news4.tin.it...

potresti creare una tabella d'appoggio o  popolarne una già creata tramite
una query di accodamento. poi puoi trasferire questa nel nuovo db e
svuotarla tramite una query di eliminazione.


title: Esportare Tabelle Collegate

author: ALESSANDRO Baraldi

text:
"Romeo" <
rom...@tin.it
> ha scritto nel messaggio
news:my5ld.316016$35.14...@news4.tin.it...

Dato che ipotizzo tu sappia la LOCAZIONE(path) del Db remoto
al quale hai le Tabelle Collegate puoi usare l'Automazione di Access
ed accedere al Metodo TransfertDatabase in questo modo:
Dim objAccess as Access.Application
 Set objAccess = New Access.Application
        With objAccess
            .OpenCurrentDatabase strMDB
            DoCmd.TransferDatabase acExport, "Microsoft Access", _
             "DATABASE DI DESTINAZIONE", acTable, "NomeTabella", _
             "NomeTabella"
        End With
    objAccess.Quit
    Set objAccess = Nothing
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Esportare Tabelle Collegate

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:cn2pju$ogi$1...@hulme.interac.it...

Si, però forse troppo lunga.....


title: Esportare Tabelle Collegate

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cn309l$dnt$1...@lacerta.tiscalinet.it...

Grazie.... Provo e vi faccio sapere.... Grazie ancora !!!


title: Esportare Tabelle Collegate

text:
"Romeo" <
rom...@tin.it
> ha scritto nel messaggio
news:CDjld.163319$b5.80...@news3.tin.it...

Caro Alex, ho provato, ma purtroppo viene sempre fuori la storia del
collegamento, cioè esporta in un nuovo mdb, proprio come voglio io, ma
sempre tenendo collegata la tabella al mdb originale (e questo non va bene).
Io in un primo momento avevo fatto così:
Private Sub Salvataggio_Click()
On Error GoTo ErroreDuplicato_click
Dim sPercorso As String
Dim AppAccess As Access.Application
Dim Salvataggio
Dim Oggetto, sOggetto, Ricavato, MultiploLettura, Lettura
Dim sTabellaOcchiali As String
Dim sTabellaAltro As String
    sPercorso = CurrentProject.Path & "\Salvataggi\Salvataggio del " &
Format(Date, "dd") & "-" & Format(Date, "mm") & "-" & Format(Date, "yyyy") &
" ore " & Format(Time, "hh:mm") & ".mdb"
        Set AppAccess = CreateObject("Access.Application")
            AppAccess.NewCurrentDatabase sPercorso
                AppAccess.CloseCurrentDatabase
sTabellaOcchiali = "SELECT [Movimenti Magazzino Occhiali].[Id Operatore],
[Movimenti Magazzino Occhiali].Documento, [Movimenti Magazzino Occhiali].[Id
Negozio]," & _
"[Movimenti Magazzino Occhiali].[Id Negozio Spostamento], [Movimenti
Magazzino Occhiali].[Id Tipo Movimento], [Movimenti Magazzino
Occhiali].Quantità," & _
"[Movimenti Magazzino Occhiali].Barcode, [Movimenti Magazzino
Occhiali].[Codice a Barre], [Movimenti Magazzino Occhiali].[Descrizione
Modello], [Movimenti Magazzino Occhiali].[Numero Modello]," & _
"[Movimenti Magazzino Occhiali].[Descrizione Colore], [Movimenti Magazzino
Occhiali].[Codice Colore], [Movimenti Magazzino Occhiali].[Misura Calibro],
[Movimenti Magazzino Occhiali].[Misura Ponte]," & _
"[Movimenti Magazzino Occhiali].[Lunghezza Asta], [Movimenti Magazzino
Occhiali].[Prezzo Acquisto], [Movimenti Magazzino Occhiali].[Prezzo
Vendita], [Movimenti Magazzino Occhiali].Division," & _
"[Movimenti Magazzino Occhiali].[Marca/Designer], [Movimenti Magazzino
Occhiali].[Tipo Utente], [Movimenti Magazzino Occhiali].[Montaggio Lenti],
[Movimenti Magazzino Occhiali].Materiale," & _
"[Movimenti Magazzino Occhiali].[Tipo Articolo], [Movimenti Magazzino
Occhiali].[Utilizzo Articolo], [Movimenti Magazzino Occhiali].Fornitore,
[Movimenti Magazzino Occhiali].Data," & _
"[Movimenti Magazzino Occhiali].[Note Spostamenti], [Movimenti Magazzino
Occhiali].[Id Temporanea Carico], [Movimenti Magazzino Occhiali].[Id
Movimento Magazzino]" & _
"INTO [Movimenti Magazzino Occhiali Salvataggio]FROM [Movimenti Magazzino
Occhiali];"
sTabellaAltro = "SELECT [Movimenti Magazzino Altro].[Id Altro], [Movimenti
Magazzino Altro].[Id Operatore], [Movimenti Magazzino Altro].[Id Negozio],
[Movimenti Magazzino Altro].[Id Negozio Spostamento]," & _
"[Movimenti Magazzino Altro].[Id Tipo Movimento], [Movimenti Magazzino
Altro].Documento, [Movimenti Magazzino Altro].Barcode, [Movimenti Magazzino
Altro].[Codice a Barre], [Movimenti Magazzino Altro].Quantità," & _
"[Movimenti Magazzino Altro].[Prezzo Acquisto], [Movimenti Magazzino
Altro].[Prezzo Vendita], [Movimenti Magazzino Altro].Marca, [Movimenti
Magazzino Altro].Tipologia, [Movimenti Magazzino Altro].[Nome Articolo]," &
_
"[Movimenti Magazzino Altro].[Raggio Base], [Movimenti Magazzino
Altro].Diametro, [Movimenti Magazzino Altro].Sfera, [Movimenti Magazzino
Altro].Cilindro, [Movimenti Magazzino Altro].Data," & _
"[Movimenti Magazzino Altro].Vuoto, [Movimenti Magazzino Altro].Vuoto1 INTO
[Movimenti Magazzino Altro Salvataggio] FROM [Movimenti Magazzino Altro];"
DoCmd.SetWarnings False
DoCmd.RunSQL sTabellaOcchiali
DoCmd.RunSQL sTabellaAltro
                    DoCmd.TransferDatabase acExport, "Microsoft Access",
sPercorso, acTable, "Movimenti Magazzino Occhiali Salvataggio", "Movimenti
Magazzino Occhiali"
                    DoCmd.TransferDatabase acExport, "Microsoft Access",
sPercorso, acTable, "Movimenti Magazzino Altro Salvataggio", "Movimenti
Magazzino Altro"
 DoCmd.DeleteObject acTable, "Movimenti Magazzino Occhiali Salvataggio"
    DoCmd.DeleteObject acTable, "Movimenti Magazzino Altro Salvataggio"
        MsgBox "Salvataggio avvenuto con successo !!!", vbInformation,
"Attenzione..."
ErroreDuplicato_click:
    If Err.Number = 7865 Then
MsgBox "Attenzione... E' stato già fatto un salvataggio meno di un minuto
fa, attendere e riprovare...", vbCritical, "Attenzione..."
    End If
    Dim LetturaSalvataggiV
Dim OggettoV, sOggettoV, RicavatoV, MultiploLetturaV, LetturaV
    LetturaSalvataggiV = CurrentProject.Path & "\Salvataggi\"
        Set OggettoV = CreateObject("Scripting.FileSystemObject")
            Set sOggettoV = OggettoV.GetFolder(LetturaSalvataggiV)
                Set LetturaV = sOggettoV.files
                    For Each RicavatoV In LetturaV
                MultiploLetturaV = MultiploLetturaV & RicavatoV.Name
            MultiploLetturaV = MultiploLetturaV & ";"
        Next
    ElencoSalvataggi.RowSource = MultiploLetturaV
End Sub
...poi mi sono accorto che perdevo le proprietà dei campi (come già detto
prima), quindi o risolvo esportando da un database una tabella contenuta in
un'altro database in un'altro database ancora (scusate il gioco di parole),
oppure, soluzione trovata mentre ti scrivo copia oggetto da... a .... che ne
pensi ?
Ciao


title: Esportare Tabelle Collegate

text:
> Caro Alex, ho provato, ma purtroppo viene sempre fuori la storia del
> collegamento, cioè esporta in un nuovo mdb, proprio come voglio io, ma
> sempre tenendo collegata la tabella al mdb originale (e questo non va
bene).
> Io in un primo momento avevo fatto così:
>
Se esegui con gli opportuni ritocchi la Routine sotto, che poi era la prima
cosa che ti ho indicato, non è posibile che mantenga il Collegamento, a
meno chè tu non abbia fatto esportare la Tabella Collegata, cosa che
ti ho premesso.
Devi puntare al BE e copiare quella del BE nel Database di Destinazione.
La tabella nel BE non è collegata, è residente....., quindi copiandola non
può assolutamente mantenere nessun Collegamento, quello è nel FE.
Sono sicuro tu abbia sbagliato qualcosa o frainteso il percorso giusto.
Ribadisco che questa è la strada corretta e deve funzionare, pertanto prova
a rivedere i concetti di base e rivedila...!!!
Dim objAccess as Access.Application
Set objAccess = New Access.Application
        With objAccess
'----------------------------------------------------------------
            'Questo database non è il FE, ma il BE dove hai la
            'Tabella Reale non il Collegamento......... ovvio che
            'se metti il percorso del FE commette l'errore che accennavi
'----------------------------------------------------------------



title: Esportare Tabelle Collegate

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cn5f19$1bu$1...@lacerta.tiscalinet.it...

Ciao Alex, scusa per il ritardo ma sono stato fuori area per un pò....
Allora, sono completamente nel pallone, non riesco a capire dove mettere
quello FE e quello BE, ho fatto diverse prove ma non ci sono riuscito, ormai
sbaglio sempe allo stesso posto e non vedo dove. Comunque sono riuscito a
risolvere lo stesso ottenendo con minor sforzo un risultato simile, per
correttezza ti posto il codice:
Private Sub Salvataggio_Click()
On Error GoTo ErroreDuplicato_click
Dim sPercorso As String
Dim AppAccess As Access.Application
Dim Salvataggio
Dim Oggetto, sOggetto, Ricavato, MultiploLettura, Lettura
Dim sTabellaOcchiali As String
Dim sTabellaAltro As String
    sPercorso = CurrentProject.Path & "\Salvataggi\Salvataggio del " &
Format(Date, "dd-mm-yyyy") & " ore " & Format(Time, "hh:mm") & ".mdb"
        Set AppAccess = CreateObject("Access.Application")
            AppAccess.NewCurrentDatabase sPercorso
                AppAccess.CloseCurrentDatabase
DoCmd.CopyObject sPercorso, "Movimenti Magazzino Occhiali", acTable,
"Movimenti Magazzino Occhiali"
DoCmd.CopyObject sPercorso, "Movimenti Magazzino Altro", acTable, "Movimenti
Magazzino Altro"
        MsgBox "Salvataggio avvenuto con successo !!!", vbInformation,
"Attenzione..."
ErroreDuplicato_click:
    If Err.Number = 7865 Then
MsgBox "Attenzione... E' stato già fatto un salvataggio meno di un minuto
fa, attendere e riprovare...", vbCritical, "Attenzione..."
    End If
    Dim LetturaSalvataggiV
Dim OggettoV, sOggettoV, RicavatoV, MultiploLetturaV, LetturaV
    LetturaSalvataggiV = CurrentProject.Path & "\Salvataggi\"
        Set OggettoV = CreateObject("Scripting.FileSystemObject")
            Set sOggettoV = OggettoV.GetFolder(LetturaSalvataggiV)
                Set LetturaV = sOggettoV.files
                    For Each RicavatoV In LetturaV
                MultiploLetturaV = MultiploLetturaV & RicavatoV.Name
            MultiploLetturaV = MultiploLetturaV & ";"
        Next
    ElencoSalvataggi.RowSource = MultiploLetturaV
End Sub
...codice più breve e stesso risultato !!! Grazie comunque per
l'interessamento !!!
Ciao


title: Aprire Access in scrittura su Aruba

author: Enorme Vigenti

text:
Salve a tutti
Premetto che ho un Database access 2000 da aprire con le ASP da un server
WEB
Io uso il eguente comando per aprire il database di Access in scrittura :
accessdb="Nomedb.mdb"
mioDSN="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Password=;"
mioDSN=mioDSN & "Data Source=" & server.mappath(accessdb)
Set Connessione=server.createobject("ADODB.Connection")
Connessione.ConnectionString=mioDSN
Connessione.Mode=31 'adModeShareDenyWrite
Connessione.open
Su altri server web questo non ha mai generato nessun problema
Pero' su Aruba funziona solo in lettura!!!!
Qualcuno mi sa fornire qualche indicazione utile?
Grazie anticipate.
--
Toglere #NOSPAM# dall'indirizzo
Cut #NOSPAM# to replay


title: Aprire Access in scrittura su Aruba

author: Sergio MAZZA

text:
"Enorme Vigenti" <LSimon5@#NOSPAM#
libero.it
> ha scritto nel messaggio
news:a35n1d$18f0u$1...@news02.it.net...

Forse è proprio Aruba che non ti permette l'accesso in scrittura. E'
successo la stessa cosa con un altro provider, abbiamo contattato il
servizio tecnico e risolto il problema di accesso alla cartella che
conteneva l'mdb...
Ciao.
--
Sergio MAZZA


title: Aprire Access in scrittura su Aruba

author: x-aury

text:
            \ | | | | /
             (@ @)
____.o00-(_)-00o._____
"Enorme Vigenti" <LSimon5@#NOSPAM#
libero.it
> ha scritto nel messaggio
news:a35n1d$18f0u$1...@news02.it.net...

anche io ho avuto lo stesso problema , su aruba e' la cartella mdb-database
che deve contenere il file mdb ed e' l'unica in cui hai i permessi
inscrittura , sulla home di di aruba c'e' la sezione supporto tecnico dove
puoi trovare un esempio..
--


title: Aprire Access in scrittura su Aruba

author: sd

text:
"Enorme Vigenti" <LSimon5@#NOSPAM#
libero.it
> ha scritto nel messaggio
news:a35n1d$18f0u$1...@news02.it.net...

se entri nel NG di aruba... trovi tutto & di piu'
ciao ciao
sdamy


title: ordine di tabulazione

author: pablo

text:
ciao,
ho un piccolo problema con le tabulazioni in una sottomaschera e nei
messaggi in archivio non trovo la soluzione.
Ho una maschera Carico ed una sottomaschera DettaglioCarico.
le tabulazioni nella maschera sono sempre corrette, mentre nella
sottomaschera sono giuste quando inserisco un solo record di carico.
Se non chiudo la maschera ed inserisco un altro record di carico nella
sottomaschera invece che
Codice-qta
il primo record della maschera salta Codice e va a Qta e poi la tabulazione
prosegue correttamente.
Non so se sono stato chiaro, spero di sě.
Grazie e buona serata.
Pablo


title: ordine di tabulazione

author: namor

text:
pablo ha scritto:

> Non so se sono stato chiaro, spero di sì.
> Grazie e buona serata.
> Pablo
Controlla l'ordine di tabulazione della sottomaschera
controlla che "Codice" abbia la proprietà "Seleziona con tabulazione"
impostata a "Sì"
controlla che non ci sia codice vba che fa dei SetFocus
Namor
--

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


title: ordine di tabulazione

author: Zef

text:
> ho un piccolo problema con le tabulazioni in una sottomaschera e nei
> messaggi in archivio non trovo la soluzione.
> Ho una maschera Carico ed una sottomaschera DettaglioCarico.
> le tabulazioni nella maschera sono sempre corrette, mentre nella
> sottomaschera sono giuste quando inserisco un solo record di carico.
> Se non chiudo la maschera ed inserisco un altro record di carico nella
> sottomaschera invece che
> Codice-qta
> il primo record della maschera salta Codice e va a Qta e poi la
tabulazione
> prosegue correttamente.
probabilmente la sottomaschera è in formato "foglio dati"
prova a rimettere a posto le colonne trascinandole con il mouse
quando riapri la maschera le ritrovi al loro posto ....
ciao, Zef


title: ordine di tabulazione

text:
"Zef" <
zefboli...@tin.it
> ha scritto nel messaggio
news:MRcnb.362319$R32.11...@news2.tin.it...
>
>
> probabilmente la sottomaschera è in formato "foglio dati"
> prova a rimettere a posto le colonne trascinandole con il mouse
> quando riapri la maschera le ritrovi al loro posto ....
>
> ciao, Zef
Provato erano già a posto. Un'altra idea?
ciao Pablo


title: funzione trascina

author: bix

text:
qualcuno mi sa dire se esiste la possibilità di utilizzare la funzionalità
"trascina" fra due sottomaschere in modo tale di poter copiare un record da
una all'altra o bisogna forse usare qualcos'altro es. ActiveX o qualche
altra cosa ancora.
saluti bix


title: funzione trascina

author: Luciano

text:
bix ha scritto nel messaggio <8hlm0k$kr8$
1...@pegasus.tiscalinet.it
>...

Si, devi giocare sugli eventi del mouse....non e' molto semplice, comunque.
Su mouse on della SM1 copi il record corrente da quelche parte e su mouse
off della SM2 lo incolli.
Saluti
Luciano


title: funzione trascina

author: Andrea Sciamanna

text:
> Si, devi giocare sugli eventi del mouse....non e' molto semplice,
comunque.
> Su mouse on della SM1 copi il record corrente da quelche parte e su mouse
> off della SM2 lo incolli.
Smanettando cone le API, si può sfruttare il Drag'n'Drop di Windows.


title: OLE: inserire collegamento da VBA

text:
Salve a tutto il NG.
Come posso inserire il link ad un oggetto in un campo OLE attraverso VBA?
Grazie
Diego :o)


title: OLE: inserire collegamento da VBA

author: MA

text:
"Diego_one" <
yokozuma@nospam_freemail.it
> ha
scritto nel messaggio
news:cbe8uo$da$1...@news.unina.it...

Non usare i campi OLE, sono scomodi e abbottano il
db. Usa invece un controllo di testo per il path
(se non è un'immagine) e
Hyperlinkaddress per richiamarlo.
MAssimiliano


title: OLE: inserire collegamento da VBA

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:YNxCc.9043$%l2....@news.edisontel.com...

Grazie, risulta molto meglio di quello che avevo pensato io.
Diego :o)


title: maschera con sql in vba!!(urgente)

author: Fabrizio

text:
Salve ragazzi avrei un problemino,  credo!.
Ho una maschera con proprieta maschere continue, origine record basata su
una istruzione sql
SELECT DISTINCTROW..... ecc
ora su questa maschera vorrei mettere delle caselle di opzione, che mi
permettano di eseguire varie stringhe sql passate via codice vba. tipo !!!!
comando opzione1_Click
dim strSql as string
if [opzione1] =  -1 then
strSql = Select Distincrow ecc
else
[opzione] = 0
.........
end if
Ecco il mio problema ,vorrei   fare via vba questo,  permettere alla mia
maschera di pasarmi i dati della query via vba con una specifica tipo :
opzione 1 tutti i Corrieri che iniziano per D
quindi creare un pulsante di opzione Corriere_Dhl ecc
ora il codice vba per ottenere questo ci sono riuscito, ma mi manca qualcosa
per applicarlo nella maschera, mi potreste illuminare.


title: maschera con sql in vba!!(urgente)

text:
"Fabrizio" <
f_j...@virgilio.it
> ha scritto nel messaggio
news:wX_Zd.1071161$35.39...@news4.tin.it...

L'ugenza dove sarebbe....?
Il fatto che l'origine sia SQL non è fondamentale, la cosa più
agevole è intervenire sulla proprietà FILTER di maschera:
Per farti un esempio semplice che poi ti impegnerai ad adeguare
alle tue esigenze puoi fare così:
Metti un CommandButton e su evento Click scrivi:
Me.Filter="[NomeTuoCampo] = " & chr(34) & "Corriere_Dhl" & chr(34)
Me.FilterOn=True
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: annullare una operazione

author: Gino

text:
 Salute a tutti
Qualcuno puo' dirmi come faccio ad annullare una operazione fatta in una
sottomaschera
dalla maschera principale?
Grazie
Gino
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: annullare una operazione

author: Roberto da casa

text:
"Gino" <
gin...@email.it
> ha scritto nel messaggio
news:192Z107Z81Z31Y1...@usenet.libero.it...
> Salute a tutti
>
> Qualcuno puo' dirmi come faccio ad annullare una operazione fatta in una
> sottomaschera
> dalla maschera principale?
>
> Grazie
>
> Gino
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ di
Luca Dall'Olio intitolata "Annullare le modifiche apportate ai dati in una
form con subform".
In alternativa dovresti usare le transazioni; a tale scopo leggi ciò che
trovi scritto in proposito sull'help in linea oppure leggi sul Sito Comune
(link qui sotto), nella Sezione General, la FAQ di Sib intitolata "Cosa sono
e come funzionano le transazioni?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: annullare una operazione

text:
                    Il 14 Lug 2004, 10:57, "Roberto da casa" <
r.ma...@libero.it
> ha scritto:
>
> "Gino" <
gin...@email.it
> ha scritto nel messaggio
> news:192Z107Z81Z31Y1...@usenet.libero.it...
> > Salute a tutti
> >
> > Qualcuno puo' dirmi come faccio ad annullare una operazione fatta in una
> > sottomaschera
> > dalla maschera principale?
> >
> > Grazie
> >
> > Gino
>
> Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ di
> Luca Dall'Olio intitolata "Annullare le modifiche apportate ai dati in una
> form con subform".
> In alternativa dovresti usare le transazioni; a tale scopo leggi ciň che
> trovi scritto in proposito sull'help in linea oppure leggi sul Sito Comune
> (link qui sotto), nella Sezione General, la FAQ di Sib intitolata "Cosa
sono
> e come funzionano le transazioni?".
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
Ho letto quello che mi hai consigliato ed
ho inserito il seguente codice nella form_load
    Set wrkBuoni = DBEngine.CreateWorkspace("", "admin", "", dbUseJet)
    wrkBuoni.BeginTrans
poi al tasto annulla
    wrkBuoni.RollBack
ma non succede nulla
Potresti dirmi perchč?



title: annullare una operazione

text:

Ho risolto il problema dell'annullamento dell'operazione
ma a mio avviso un po' troppo drasticamente, in quanto
dopo aver fatto il rollback , mi si chiude tutta l'applicazione
Qualcuno mi sa' dire il motivo?



title: Sicurezza

author: Simone

text:
Ciao a tutti,
ho creato una applicazione con un file mdb principale ed altri mdb con le
tabelle collegate al file principale. Vorrei ora 'blindare' la struttura
degli mdb tramite i file mde. Quanto è sicuro questo metodo? Inoltre ho
notato che è comunque possibile modificarne le tabelle... C'è un metodo
migliore?
Grazie
Simone


title: Sicurezza

author: Alessandro Baraldi

text:
"Simone" <
nos...@prova.it
> wrote in message
news:423d740a$0$32343$
5fc...@news.tiscali.it
> Ciao a tutti,
> ho creato una applicazione con un file mdb principale ed altri mdb con le
> tabelle collegate al file principale. Vorrei ora 'blindare' la struttura
> degli mdb tramite i file mde. Quanto č sicuro questo metodo? Inoltre ho
> notato che č comunque possibile modificarne le tabelle... C'č un metodo
> migliore?
>
> Grazie
> Simone
Il file MDE č blindato, le tabelle risiedono sul BE.
Per proteggere anche quelle potresti ricorrere all'uso
della protezione a livello Utente.
Un pň piů complessa da mettere in atto, ma pursemmpre
valida...!
Nel SC trovi alla sezione General(una delle Prime FAQ)
un documento esplicativo.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Sicurezza

text:
grazie, ma... scusa la mia colossale ignoranza dove e cos'è l'SC ?
grazie
Simone
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:696a197fb66f226e23...@mygate.mailgate.org...
> "Simone" <
nos...@prova.it
> wrote in message
> news:423d740a$0$32343$
5fc...@news.tiscali.it
>
> > Ciao a tutti,
> > ho creato una applicazione con un file mdb principale ed altri mdb con
le
> > tabelle collegate al file principale. Vorrei ora 'blindare' la struttura
> > degli mdb tramite i file mde. Quanto è sicuro questo metodo? Inoltre ho
> > notato che è comunque possibile modificarne le tabelle... C'è un metodo
> > migliore?
> >
> > Grazie
> > Simone
>
>
> Il file MDE è blindato, le tabelle risiedono sul BE.
> Per proteggere anche quelle potresti ricorrere all'uso
> della protezione a livello Utente.
>
> Un pò più complessa da mettere in atto, ma pursemmpre



title: Sicurezza

text:
acc intendevi
www.sitocomune.com
, ci ho messo un po' ma ci sono arrivato da
solo grazie
Simone
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:696a197fb66f226e23...@mygate.mailgate.org...



title: Sicurezza

text:
"Simone" <
nos...@prova.it
> wrote in message
news:423d9413$0$6305$
5fc...@news.tiscali.it
> acc intendevi
www.sitocomune.com
, ci ho messo un po' ma ci sono arrivato da
> solo grazie
>
> Simone
Si la tua intuizione è corretta, purtroppo dò sempre per scontato che
i frequentatori più o meno nuovi conoscano già i Link delle
risorse Italiane di Access.



title: Casella combinata Help!! Thanks

author: claudio

text:
Buon giorno a tutto il NG,
sono Claudio ed ho un problema banale ma per il mio livello (basso)
piuttosto serio, cercherò di esporvelo in modo chiaro e sintetico "spero":
Il mio sistema operativo è Win 2000 e uso Access 2000.
Ho in un mio DB la tabella "anagrafici clienti" con tutti i campi relativi
nome, indirizzo ecc. essa è in relazionata alla tabella "Ordini" tramite il
sui campo -ID- e il campo -nome cliente- della tabella "Ordini". Vorrei dopo
aver introdotto i dati relativi ai clienti nella tabella "An. Clienti"
creare una maschera collegata alla tabella "Ordini" in cui tramite una
casella combinata collegata al campo -nome cliente-  della tabella "An.
Clienti" si possa selezionare un cliente ed ricevere nei campi della
maschera i dati relativi allo stesso (ovviamente la tabella "ordini"
contiene gli stessi campi indirizzo, tel. ecc. vuoti, della tab. "An.
Clienti"). Questa maschera collegherà anche tramite una sottomaschera una
tabella "Dettagli ordini".
Mi scuso se sono stato prolisso e spero di essere stato almeno chiaro.
Many thanks in advance
   Claudio
--
Posted from
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Immagini GIF

author: Giampaolo :-)

text:
Salve a tutto il NG.
Ho un'altro problemino da sottoporvi:
Come posso vedere una Gif (in movimento, chiaramente); la vedo solo come
immagine statica.
E' necessario qualche DLL particolare, o che altro?
Grazie della vostra squisita disponibilità.
Giampaolo


title: Immagini GIF

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:vL6ya.201272$K35.4...@news2.tin.it...

Devi usare un ActiveX particolare, che dovrai prima scaricare, poi
registrare ed alla fine usare.
Fai una ricerca su Google nei messaggi precedenti di questo NG, ed avrai la
soluzione al tuo problema.
Vai al link:
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&group=it.comp.appl.access
e con la ricerca avanzata cerca la parola GIF; avrai l'imbarazzo della
scelta. :-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Immagini GIF

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:GA8ya.14880$Ny5.4...@twister2.libero.it...

Grazie, ....avevi ragione: mi sono anche perso..
CIAO


title: compattazione be protetto da psw da fe

author: Massimo Tin

text:
per compattare il be finora io usavo questo comando:
Function comp()
    Dim stAppName As String
 stAppName = "msaccess /repair C:\Programmi\directory\be.mdb /compact"
Call Shell(stAppName, vbHide)
End Function
se il be è protetto da psw me la chiede per poter procedere alla
compattazione.
Come posso inserirla direttamente da codice?
Grazie                                                                Max


title: compattazione be protetto da psw da fe

author: Carlo Costarella

text:
"Massimo Tin" <
max...@tin.it
> ha scritto nel messaggio
news:A3IW7.35659$OP2.1...@news2.tin.it...

DBEngine.CompactDatabase vecchiodb, nuovodb, internazionali, opzioni,
password
Leggiti il Metodo CompactDatabase nella guida in linea.
Ciao, Carlo


title: Errore su A2000

author: Sergio Della Giora

text:
Salve,
Consultando il sitocomune ho trovato una funzione molto utile :
svuotatabella. L'ho applicata ad un mio db e tutto va alla grande.
Durante la creazione di un 2° db ho provato a reinserire questa funzione, ma
al momento della sua esecuzione mi da il seguente errore :
Tipo di dati non corrispondente...
Vi riporto di seguito il codice della funzione :
Function SvuotaTabella(strTab As String)
   Dim dbs As Database
   Dim rst As Recordset
   Set dbs = CurrentDb()
   Set rst = dbs.OpenRecordset(strTab)
   With rst
      If rst.RecordCount > 0 Then
         .MoveFirst
         Do
            .Delete
            .MoveNext
         Loop Until .EOF
      End If
      .Close
   End With
   Set dbs = Nothing
End Function
svuotatabella "miatab"
Il bello è che funziona solo in un db... in tutti gli altri no... mah!
Non riesco proprio a capire dove sbaglio. Grazie dell'attenzione!
Saluti
Sergio Della Giora


title: Errore su A2000

author: Roberto - Syd

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:a77abo$j1nm9$1...@ID-84518.news.dfncis.de...

Controlla i riferimenti dei db dove la funzione non gira, sicuramente ti
mancano i riferimenti alla libreria DAO, infatti in A2000 la libreria di
default per l'accesso ai dati è ADO, quindi non riconosce il tipo Database e
il tipo Recordset, dopo che hai messo i riferimenti a DAO cambia queste
righe da così:
Dim dbs As Database
Dim rst As Recordset
a così:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Ciao Roberto - Syd


title: Errore su A2000

text:
Innanzitutto grazie per avermi risposto! Ho provato a fare la modifica che
mi hai suggerito, ma nulla cambia...
Sto tentando di scaricare dalla microsoft le service pack per l'office
suggeritemi da Alessandro... che magari sia quello?
Saluti
Sergio della Giora


title: Errore su A2000

author: Sib

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio
> Innanzitutto grazie per avermi risposto! Ho provato a fare la modifica che
> mi hai suggerito, ma nulla cambia...
> Sto tentando di scaricare dalla microsoft le service pack per l'office
> suggeritemi da Alessandro... che magari sia quello?
Ma hai messo DAO al di sopra di ADO?
Sib


title: Errore su A2000

text:
Essendo un neofita di programmazione in Access non riesco a capire come
posso attuare la tua soluzione. In effetti non so che stringa devo inserire
per mettere DAO sopra ADO... Potete gentilmente consigliarmi dove posso
trovare delle info su queste cose, tanto da iniziare a capire qualcosa di
piů? Grazie ancora
Saluti
Sergio Della Giora


title: Errore su A2000

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio

Se vai nella maschera dei riferimenti (dove hai controllato la presenza dei
riferimenti DAO ecc),
Trovi due pulsanti uno con la freccia in su' e uno in giu'.
Schegli DAO e premi la freccia in su' finche' si trova sopra ADO.
Sib


title: [VB] Verificare se un PC (descritto su file ini esterno alla procedura) è acceso o meno

text:
Salve,
come da oggetto, da codice, devo verificare se un determinato pc è acceso
...
esperienze in merito? (conosco il nome e l'ip e vorrei gestirlo su ini
esterno).
Saluti,
--
strano...mavero