title: catturare un campo

author: Vittorio

text:
Buona sera a tutti, avrei bisogno del vostro aiuto.
Ho una Query chiamata "ELENCO MATERIALI UTILIZZATI" con i campi [MATERIALE]
e [DESCRIZIONE MATERIALE]
Ho una Sottomaschera chiamata "Sottomaschera Elementi" con i campi [PARTE
(LRM) FIGLIO]; [DESCRIZIONE] e [QTA']
Infine la maschera che contiene la precedente sottomaschera chiamata
[INSERIMENTO LEGAMI].
Io avrei bisogno che quando inserisco un nuovo record nella sottomaschera
"Sottomaschera elementi", dopo aver inserito il materiale nel campo [PARTE
(LRM) FIGLIO] in automatico (se presente nella Query) viene compilato il
campo [DESCRIZIONE] della sottomaschera prendendo spunto dalla Query.
P.S. I campi che contengono gli stessi dati sono: [PARTE (LRM) FIGLIO] della
sottomaschera e [MATERIALE] della Query.
Grazie!!


title: catturare un campo

author: VT @ home

text:
Il Sat, 24 Feb 2007 17:31:08 +0100, "Vittorio" <
vi...@email.it
> ha scritto:
>(.....)

Nella sottomaschera, nell'origine controllo associato al campo [Descrizione], imposta la seguente espressione:
=Dlookup("Descrizione materiale","Elenco materiali utilizzati","Materiale='" & [Parte (lrm) figlio] & "'")
dove ho supposto che il campo Materiale sia di tipo testo. Se invece fosse numerico, devi usare l'espressione
=Dlookup("Descrizione materiale","Elenco materiali utilizzati","Materiale=" & [Parte (lrm) figlio])
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: stampare più volte un dato di un re port

author: Superpippo

text:
Non so esatamente come scrivere il soggetto, perchè la faccenda mi
sembra abbastanza complessa.
ha un record con n campo quantità ed un campo con un codice a barre.
Nel mio report hopreparato usando un font adatto il codice stampabile.
Però mi servirebbe che nella pagina del report fosse ripetutto tante
volte quante sono le quantità inserite nel campo quantità.
Pensavo di dover usare ovviamente un ciclo for next però come faccio ad
inseire tutto nella stessa pagina?
Spero di essere stato abbastanza chiaro


author: Harry Evans

text:
"Superpippo" <
skiz...@libero.it
> ha scritto nel messaggio
news:3DF86A48...@libero.it...

sul sito comune c'è un ottimo esempio di come stampare più volte la stessa
etichetta . E' un caso analogo al tuo....


title: Spostarsi surecord specifico

author: cranze

text:
Salve a tutti e complimenti per il newsgroup.
Premetto che prima di scrivere ho letto vari post sull'argomento ma non ho
trovato il modo di applicare le varie soluzioni al mio caso.
Ho una maschera nominata clienti che ha per origine record la tabella
anagrafica ed una sottomaschera a maschera singola nominata prodotti. Da un'
altra maschera a maschere continue nominata elenco, con un pulsante apro la
maschera clienti con relativa sottomaschera filtrandola per l' ID del
cliente col metodo :
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "clienti"
    stLinkCriteria = "[ID]=" & Me![ anagrafica.ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
quello che vorrei fare è che oltre ad aprirmi la maschera col cliente
filtrato, la sottomaschera prodotti visualizzi non per forza il primo record
ma uno il cui numero sia quello contenuto anche lui in un campo dell'altra
maschera elenco. Se possibile non con un'ulteriore filtro ma con un metodo
tipo GotoRecord.
Spero di essere stato chiaro e ringrazio chi volesse rispondere.


title: Spostarsi surecord specifico

author: TheMax

text:
"cranze" <
cra...@tiscali.it
> ha scritto nel messaggio
news:bntk85$67h$1...@lacerta.tiscalinet.it...

Se non ho capito male, nella sottomaschera prodotti gestisci il form load e
questa istruzione di posiziona dove vuoi tu
Private Sub Form_Load()
DoCmd.GoToRecord , , acGoTo, Forms!MascheraElenco!CampoDoveAndare
End Sub
Ovviamente questa istuzione va sempre, se la maschera prodotti in questione
la apri anche con altre chiamate dovrai penso gestire l'errore in quanto
quella maschera sarà chiusa.
Ciao,
Massimo
--
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Spostarsi surecord specifico

text:
"TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
news:bnu9eg$g8j$1...@atlantis.cu.mi.it...

> grazie per avermi risposto. Nel frattempo ho risolto in un modo molto più
semplice di quanto pensassi:
Private Sub Form_Open(Cancel As Integer)
    Me!prodotti.SetFocus
    DoCmd.FindRecord Forms!elenco!CampoDoveAndare
End Sub
funziona perfettamente però adesso voglio provare come da te descritto.
Grazie e alla prossima.Ciao


title: Spostarsi surecord specifico

text:
"cranze" <
cra...@tiscali.it
> ha scritto nel messaggio
news:bo0qnh$f3k$1...@lacerta.tiscalinet.it...
>
CUT
> >
> > Private Sub Form_Load()
> >
> > DoCmd.GoToRecord , , acGoTo, Forms!MascheraElenco!CampoDoveAndare
> >
> > End Sub
> >
> > Ovviamente questa istuzione va sempre, se la maschera prodotti in
> questione
> > la apri anche con altre chiamate dovrai penso gestire l'errore in quanto
> > quella maschera sarà chiusa.
> >
> > Ciao,
> > Massimo
> >
> >
> grazie per avermi risposto. Nel frattempo ho risolto in un modo molto più
> semplice di quanto pensassi:
>
> Private Sub Form_Open(Cancel As Integer)
>     Me!prodotti.SetFocus
>     DoCmd.FindRecord Forms!elenco!CampoDoveAndare
> End Sub
>
> funziona perfettamente però adesso voglio provare come da te descritto.
Ok, scegli tu quale funziona meglio per le tue esigenze.
> Grazie e alla prossima.Ciao
Di niente, Ciao
Massimo


title: Automazione import da excel

text:
Salve a tutti,
vorrei automatizzare con una routin il processo per importare diversi file .xls i quali contengono diversi fogli. Ogni file .xls si riferisce ad un cliente diverse
ogni foglio è impostato in questo modo:

https://www.dropbox.com/s/dwynx07w71q9cfg/Senza%20titolo-2.jpg?dl=0

N.B.: le righe (il numero di rate sono ovviamente variabili e in alcuni casi arrivano a 30 o 40 ).

Ho cercato di sperimentare quanto ho letto qui
http://forum.masterdrive.it/access-79/access-vba-importare-fogli-excel-ciclo-for-docmd-transferspreadsheet-84238/

ma se non ho capito male vale per un singolo file. A me interessa indicare un cartella così che tutti i file contenuti vengano importati.

Come dicevo ho provato a sperimentare il codice:

Dim appXls As New Excel.Application
Dim objXls As Excel.Workbook
Dim arrSH() As String
Dim x As Integer
Dim strNomeFoglio As String
Set objXls = appXls.Workbooks.Open("C:\Users\PROVA.xlsmDim arrSH(objXls.Sheets.Count - 1)
For x = 1 To objXls.Sheets.Count
    arrSH(x - 1) = objXls.Sheets(x).Name
Next
objXls.Close
Set objXls = Nothing
Set appXls = Nothing

For x = 0 To UBound(arrSH)
    strNomeFoglio = arrSH(x)
    DoCmd.TransferSpreadsheet acImport, , strNomeFoglio, "C:\Users\PROVA.xlsm", True, strNomeFoglio & "!"
Next

ma quando access arriva al primo set non riconosce il nome del file (ovviamente ho cambiato il percorso del file con quello che mi interessa es. "c:\prova\prova.xls"

Secondo voi sono nella direzione giusta o avete altre indicazioni da potermi dare?

Grazie in anticipo per la collaborazione!!


title: Automazione import da excel

text:

come posso dire ad access di importare tutti i file excel di una cartella? e se ci sono sottocartelle aprirle e importare altri file excel?


title: oggetto da non stampare

author: UncleSam

text:
ciao a tutti
mi chiedevo se c'era un'opzione per evitare di stampare alcuni oggetti in
una maschera
l'ideale sarebbe stato uno "stampa:no" nella finestra proprietà dell'oggetto
ma non c'è
mi eviterebbe la scocciatura di creare tanti report quante sono le maschere
da stampare
grazie
Pier


title: oggetto da non stampare

text:
"UncleSam" <
a...@a.com
> ha scritto nel messaggio
news:vDsCa.41247$g92.9...@news2.tin.it...
> ciao a tutti
> mi chiedevo se c'era un'opzione per evitare di stampare alcuni oggetti in
> una maschera
> l'ideale sarebbe stato uno "stampa:no" nella finestra proprietą
dell'oggetto
> ma non c'č
trovato: era "visualizza: su schermo"
Pier


title: prova

author: Pol Poli

text:
prova
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: prova

author: Sergio MAZZA

text:
"Pol Poli" <
tb...@libero.it
> ha scritto nel messaggio
news:766c357b440d6cb1ca9...@mygate.mailgate.org...
> prova
Sembra tu ci sia riuscito/a.
Ora il prossimo passo č quello di leggere la pagina nel link:
www.sitocomune.com
 - Sezione ICAA - Come comportarsi in questo NG
Ciao.
--
Sergio MAZZA


title: Parametri Avvio

text:
Ciao a tutti,
solitamente modifico i parametri di avvio disabilitando le voci
: -Visualizza finestra database; -Menu completi ; -Menu di scelta rapida
predefiniti
cosě facendo riesco a prevenire eventuali disastri da parte di utenti poco
esperti. Il problema č che ho bisogno di rimuovere la password e fare altre
modifiche ad un db cosě configurato, sapreste dirmi se il processo č
reversibile e quindi posso riabilitare i menu.
Grazie, Ale


title: Parametri Avvio

author: AndreaPapi

text:
potresti aprire il db tenendo premuto il tasto shift, così facendo si
apre senza attivare nessuna delle impostazioni sopra settate e non
avvia nessuna maschera in apertura del db e non viene eseguita nemmeno
l'eventuale macro col nome autoexec.
ciao
AndreaPapi


title: Parametri Avvio


title: Parametri Avvio

text:
č ok grazie
"AndreaPapi" <
ap...@libero.it
> ha scritto nel messaggio
news:1135199184.9...@g49g2000cwa.googlegroups.com...
potresti aprire il db tenendo premuto il tasto shift, cosě facendo si



title: word o report?!

author: Tiziano

text:
Ciao a tutti,
il mio dilemma è quali delle due vie utilizzare per la stampa delle mie
maschere...
C'è qualcuno disposto a dirmi quali siano realmente le differenze...
Grazie Tiziano


title: word o report?!

author: Alberto S.

text:
> il mio dilemma è quali delle due vie utilizzare per la stampa delle mie
> maschere...
> C'è qualcuno disposto a dirmi quali siano realmente le differenze...
Stampare le maschere?!?
Comunque (ovviamente IMO): il report è il sistema naturale per le stampe da
Access, ineguagliabile per le funzioni disponibili
(ordinamenti-raggruppamenti-suddivisione in sezioni-totali parziali-gestione
sottoreport- ecc ecc ecc).
Io uso Word solo nei casi in cui ritengo di non riuscire a realizzare con un
report quello che mi serve (es. formattazioni particolari-scritte o grafica
di sfondo su un numero variabile di pagine-necessità di intervenire sul
documento prima di stamparlo)... comunque - ripeto - il meno possibile e
solo quando devo.
--
Alberto


title: casella combinata

author: Cristiano Magro

text:
Ciao a tutti
sto combattendo con quetso problema:
ho una maschera che dovrebbe consentire di scegliere gli anni che un
utente non e' ancora stato iscritto la club.
La maschera si apre su un nuovo record, viene settato il campo
idAnagrafica.
La mia intenzione e' che la casella combinata presenti solo gli anni
in cui l'utente individuato da idAnagrafica non risulta iscritto.
tblAnniIscrizione contine i codici dei vari anni
tblStoricoIscrizioni contiene per ogni utente gli anni in cui era
iscritto.
avevo pensato di usare questa select per estrarre gli anni in cui
l'utente con  idAnagrafica XXX non risulta iscritto. E di usarla nella
origine riga della casella combinata.
Il mio problema e' passargli il parametro XXX.
SELECT "tblAnniIscrizione"."idAnnoIscritto",
"tblAnniIscrizione"."CodAnno"    from tblAnniIscrizione
   where idAnnoIscritto not in
     (select idAnnoiscrizione from tblStoricoIscrizioni
         where tblStoricoIscrizioni.idAnagrafica=XXX)
         order by CodAnno
mettendo al posto di XXX idAnagrafica ottengo solo gli anni in cui
nessun utente risulta iscritto. A me invece interessano solo quelli di
un singolo utente.
Avevo provato a raggirare la cosa con una storeprocedure, ma mi sono
arenato nel passaggio del parametro .
Qualcuno e' in grado di darmi dei consigli su come uscire da questo
problema.
Grazie
Cristiano Magro


title: casella combinata

author: MA

text:
Il 11 Mar 2003, 18:38, Cristiano Magro <
mag...@nospam.altavista.com
> ha
scritto:

Bypassa il problema. creati una query in cui definisci tutti gli anni
dell'associazione creati una relazione in cui ti vengono restituiti solo gli
anni che sono uguali.
> Magro
Beato te!!! Non è carino nei confronti di Biso.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: casella combinata

text:
On Tue, 11 Mar 2003 18:00:02 GMT,
massimilia...@kksrl.com
 (MA)
wrote:
>Il 11 Mar 2003, 18:38, Cristiano Magro <
mag...@nospam.altavista.com
> ha
>scritto:
>> Ciao a tutti
>> sto combattendo con quetso problema:
>> ho una maschera che dovrebbe consentire di scegliere gli anni che un
>> utente non e' ancora stato iscritto la club.
>
>Bypassa il problema. creati una query in cui definisci tutti gli anni
>dell'associazione creati una relazione in cui ti vengono restituiti solo gli
>anni che sono uguali.
Ti ringrazio per la risposta.
Provero' anche questa strada.
nel frattempo spulciando il sitocomune ho trovato qualcosa che pare
funzioni:
cambio al volo la select che mi serviva allparetura della maschera.
   Me![IDanagrafica] = Me.OpenArgs
   Me![Temp] = Me.OpenArgs
   Me!CasellaCombinata1.RowSource = "SELECT
tblAnniIscrizione.idAnnoIscritto," & _
   " tblAnniIscrizione.CodAnno from tblanniiscrizione where " & _
   " idannoiscritto not in (select idannoiscrizione from " & _
   " tblstoricoiscrizioni where " & _
   "TblStoricoIscrizioni.idanagrafica=" + Me.OpenArgs + ") order by
CodAnno "
domani la testo e vediamo come vanno le cose.
Ciao
Grazie Ancora.


title: variabili globali o no ?

author: Maurizio M

text:
Buonasera a tutti
A2003+P IV 1700-2000       500 M ram
 4 computer in rete
1 Be +4 Fe
Nel programmino che Ho sviluppato per gesrtire ordini e stampe
scontrini/reparti della sagra del mio paese,anche grazie ai vostri aiuti e
suggerimenti,avrei bisogno di richiamare in alcune fasi di
lavoro(form,report)alcuni dati che,una volta avviato il programma,non
cambiano più fino alla chiusura dello stesso.
Mi riferisco p.e. a Nome Manifestazione,Intestazione e Note piede
scontrino,ecc.
Vorrei capire a livello prestazionale ,eventuali  errori non gestiti e con
il minore dispendio di energie del computer quale sia la cosa da usare.
Grazie per eventuali spiegazioni e suggerimenti.
Maurizio


title: variabili globali o no ?

text:
On 27 Giu, 22:01, "Maurizio M" <
maurizio.mioz...@tin.it
> wrote:
> Buonasera a tutti
> A2003+P IV 1700-2000       500 M ram
>  4 computer in rete
> 1 Be +4 Fe
> Nel programmino che Ho sviluppato per gesrtire ordini e stampe
> scontrini/reparti della sagra del mio paese,anche grazie ai vostri aiuti e
> suggerimenti,avrei bisogno di richiamare in alcune fasi di
> lavoro(form,report)alcuni dati che,una volta avviato il programma,non
> cambiano pi fino alla chiusura dello stesso.
> Mi riferisco p.e. a Nome Manifestazione,Intestazione e Note piede
> scontrino,ecc.
> Vorrei capire a livello prestazionale ,eventuali  errori non gestiti e con
> il minore dispendio di energie del computer quale sia la cosa da usare.
> Grazie per eventuali spiegazioni e suggerimenti.
> Maurizio
Stai parlando di 4 cose in croce....!!!!
Secondo te 4 variabili di questo tipo sono tali da dover riflettere su
come conservarle
o meno...??????
Pescale quando servono con una chiamata...!
Rifletti su cose più importanti, l'indicizzazione dei campi di
ricerca, la normalizzazione
dei Dati, la gestione eventuale della MultiUtenza, accesso
Pessimistico o Ottimistico...
Tenere aperta una tabella vuota con il BE per velocizzare l'accesso ai
dati ed evitare che
la Connection venga chiusa con tempi di attesa moltiplicati per 10....
codice riciclabile....
Concetto stranissimo del risparmio... di che risparmio parliamo
poi....???
@Alex


title: variabili globali o no ?

text:
Risparmio di risorse..
Data la  mia scarsa conoscenza di access cerco solo di capire.
Volevo solo una spiegazione su cosa è più giusto e se devo preoccuparmi in
modo particolare o no gella loro gestione.
Da quello che mi dici non mi devo preoccupare.
Chiedo venia........
Grazie
Ciao
Maurizio
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:58e915f4-5fc0-4db9...@z8g2000yqz.googlegroups.com...



title: Somme invisibli su report

author: beppe

text:
All'interno di un report ho la necessità di sommare delle cifre in
un'altra casella, ma in anteprima di stampa è invisibile!
Come faccio?
sbaglierò nell'eseguire l'espressione?
grazie a chi riesce ad aiutarmi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Somme invisibli su report

author: Antonio Biso

text:
"beppe" <
vai...@libero.it
> ha scritto nel messaggio
news:aqdus3$o34$1...@news.newsland.it...
> All'interno di un report ho la necessità di sommare delle cifre in
> un'altra casella, ma in anteprima di stampa è invisibile!
Eeeehhhh?
> Come faccio?
> sbaglierò nell'eseguire l'espressione?
E chi può dirlo?
Può darsi che sì, può darsi che no...
Antonio


title: Somme invisibli su report

text:
Antonio Biso wrote:

> Eeeehhhh?


> Antonio
Antonio vuoi dire che se è errata l'espressione la somma diventa
invisibile?



title: Somme invisibli su report

text:
"beppe" <
vai...@libero.it
> ha scritto nel messaggio
news:aqdvku$r1l$1...@news.newsland.it...
> Antonio Biso wrote:
>
> > "beppe" <
vai...@libero.it
> ha scritto nel messaggio
> > news:aqdus3$o34$1...@news.newsland.it...
> > > All'interno di un report ho la necessità di sommare delle cifre in
> > > un'altra casella, ma in anteprima di stampa è invisibile!
>
> > Eeeehhhh?
>
> > > Come faccio?
> > > sbaglierò nell'eseguire l'espressione?
>
> > E chi può dirlo?
> > Può darsi che sì, può darsi che no...
>
> > Antonio
> Antonio vuoi dire che se è errata l'espressione la somma diventa
> invisibile?
No, voglio dire che le informazioni che c'hai fornito sono assolutamente
insufficienti e quindi tutto può essere (purtroppo la mia palla di cristallo
è ancora in manutenzione, mo' prendo il tecnico per le recchie e lo sbatto
al muro se non me la ridà al più presto!!!)
Antonio


title: Somme invisibli su report

author: RoDAgo

text:
"Antonio Biso" scrisse...
> No, voglio dire che le informazioni che c'hai fornito sono assolutamente
> insufficienti e quindi tutto può essere (purtroppo la mia palla di
cristallo
> è ancora in manutenzione, mo' prendo il tecnico per le recchie e lo sbatto
> al muro se non me la ridà al più presto!!!)
Non ci sono più le palle di una volta.
Meditate gente, meditate.
> Antonio
RoDAgo


title: Access & MAC

author: Massimiliano Capoccetti

text:
Salve Ragazzi,
    avrei bisogno di qualche informazione:
ho realizzato un'applicazione in Access 97 che dovrei iniziare a
commercializzare a breve.
Pensate che funzioni su Access per MAC (a dire il vero non so nemmeno se
esiste...) ?
Grazie
Massi


title: Access & MAC

text:
"Massimiliano Capoccetti" <
capoc...@cantierinformatici.it
> ha scritto nel
messaggio news:8h5cjm$1b6$1...@lacerta.tiscalinet.it...

Office per MAC esiste (
http://www.microsoft.com/italy/macoffice/
); nell'help
ho trovato delle differenze per alcune funzioni, spesso legate alla ricerca
dei file i lettura hd. Ma oltre non sono andato...
Ciao.


title: Access & MAC

author: warp

text:
Massimiliano Capoccetti ha scritto nel messaggio <8h5cjm$1b6$
1...@lacerta.tiscalinet.it
>...
>Salve Ragazzi,
>    avrei bisogno di qualche informazione:
>ho realizzato un'applicazione in Access 97 che dovrei iniziare a
>commercializzare a breve.
>Pensate che funzioni su Access per MAC (a dire il vero non so nemmeno se
>esiste...) ?
>
Beh, fino a sette mesi fa Access per MAC non esisteva.
Comunque i modelli più recenti di Power PC assicurano delle prestazioni accettabili in emulazione
windows...
Ciao.


title: Access & MAC

author: Tucano

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote:
> Office per MAC esiste (
http://www.microsoft.com/italy/macoffice/).
..
pero' senza Access :(
l'unica e' usare VirtualPc, cioe' l'emulatore di dos/win
Tucano


title: criteri di ordinamento.......

author: Gianni B

text:
Salve a tutti, ho una domanda per tutti quelli che ne capiscono molto ma
molto + di me..........
Ho un campo testo dove immetto un numero.... strano . potevo usare un campo
numerico dite voi........si ci avevo pensato...anchio ma siccome  devo
immetter quasi sempre un  numero di questo genere....4545-5. è quindi ho
problemi ad immetere "-" questo nel campo numerico..... ma siccome alle
volte devo solo immettere un solo numero.............
ma il problema non è questo . la mia domanda è la seguente.............
Avendo un numero del genere  4545-5 ,è possibile  tramite un criterio di
ordinare la query solo in riferimento al n dopo la striscetta "-" in questo
caso il numero "5" ?!?!
Grazie come sempre del vostro tempo.........
--
Gianni B.


title: criteri di ordinamento.......

author: Roberto da casa

text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3e47aa90$1...@news.bluewin.ch...

Se il campo di tipo testo che contiene il "numero... strano" ci chiama
MioNumero, in una query prova a crearti un campo calcolato in questa
maniera:
Pippo: Val(Mid([MioNumero];InStr([MioNumero];"-")+1))
e ordina in base a questo campo; insomma, se la tabella che contiene i dati
si chiama Tabella1, la query avrà un codice SQL simile a questo:
SELECT Tabella1.*
FROM Tabella1
ORDER BY Val(Mid([MioNumero], InStr([MioNumero], "-") + 1));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: criteri di ordinamento.......

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jOO1a.102546$ZE.28...@twister2.libero.it...

Ciao Roberto grazie come sempre della tua puntualità.......ho fatto come mi
hai detto ma mi viene un errore "Funzione IntStr non definita"
 il codice sql della query dopo che ho creato il campo calcolato è
questo............
SELECT Partener.Nome, Material.Wagon_N°, Material.Datum, Material.Artikel,
Material.Artikel_N°, Material.[Gewicht Kg], Material.Station, Material.Code,
Material.Status, Material.Bemerke,
Val(Mid([Wagon_N°],IntStr([Wagon_N°],"-")+1)) AS Controllo
FROM Partener RIGHT JOIN Material ON Partener.Partener_N° =
Material.Partener_N°
GROUP BY Partener.Nome, Material.Wagon_N°, Material.Datum, Material.Artikel,
Material.Artikel_N°, Material.[Gewicht Kg], Material.Station, Material.Code,
Material.Status, Material.Bemerke
ORDER BY Val(Mid([Wagon_N°],IntStr([Wagon_N°],"-")+1));
 dove il numero strano è Wagon_N°........dove sbaglio.?!?
grazie infinitamente.
Ps. scusa se sono scritti in tedesco ma vivo in Svizzera.
--
Gianni B.


title: criteri di ordinamento.......

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:jOO1a.102546$ZE.28...@twister2.libero.it...

wauuuuuuuuu Roberto ci sono risuscito adesso và Grazieeeee
Ciao.
--
Gianni B.


title: criteri di ordinamento.......

author: IppoSoft

text:
On Mon, 10 Feb 2003 14:35:07 +0100, "Gianni B" <
gian...@bluewin.ch
>
wrote:

Se il numero dopo il trattino è sempre una cifra sola puoi fare, se il
campo si chiama "NumeroStrano":
ORDER BY Right(NumeroStrano,1);
Ciao
Filippo


title: criteri di ordinamento.......

text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3e47cc93$1...@news.bluewin.ch...
[CUT]
> wauuuuuuuuu Roberto ci sono risuscito adesso và Grazieeeee
> Ciao.
> --
> Gianni B.
Già, bastava chiamare la funzione InStr come avevo scritto io e non IntStr
come vevi scritto tu.



title: criteri di ordinamento.......

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:wZR1a.103255$ZE.28...@twister2.libero.it...

Chiedo umilmente scusa....................
a proposito. grazie veramente.
--
Gianni B.


title: Ancora prob. con report a piè di pagina variabile

author: Sergio Della Giora

text:
Salve a tutto l'NG,
innanzitutto ringrazio coloro che mi hanno aiutato precedentemente.
Purtroppo ho ancora problemi :
Per realizzare un report a più pagine che mi restituisca
nei piè di pagina la parola "Segue" tranne che nell'ultima
pagina ho seguito il suggerimento di CH v2.001 ovvero :
If Pages > 1 Then Me![segue].Visible = True
Else Me![segue].Visible = False
End If
inserendo questo codice sull'evento formattazione del piè
di pagina e settando le proprietà della casella [segue] come invisibile.
Giustamente se il report ha una sola pagina il segue rimane
invisibile, mentre nel caso in cui si trovi un report multipagina compare la
scritta segue. Però compare anche
sull'ultima pagina!
Ho così modificato il codice in questo modo :
If Pages = 1 Then Me![segue].Visible = False
If Page = Pages Then Me![segue].Visible = False
settando invece Visibile nelle proprietà della casella [segue]. In teoria
dovrebbe rendere invisibile [segue]
solo se il report è di una sola pagina e solo nell'ultima pagina di un
report multipagina, ma invece mi compare comunque su tutte le pagine. Dove
sbaglio?
Grazie dell'attenzione
Saluti
Sergio Della Giora


author: CarloCos

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:9mlagk$2ouiv$1...@ID-84518.news.dfncis.de...

Hai scritto bene solo che oltre all'IF devi anche gestire l'ELSE: se (IF) è
così fai così, altrimenti (ELSE) fai colà.
Per esempio: (sull'evento Page del Report altrimenti non hai il valore di
Pages)
Private Sub Report_Page()
On Error Resume Next
  If Page = Pages Then
    Me![Segue].Visible = False
    Else
    Me![Segue].Visible = True
    End If
End Sub


text:
Scusate se ho risposto un po' in ritardo, ma forse ho capito cosa non
andava...
Al di là del codice, che bene o male si avvicinava a ciò che avevo scritto,
il vero problema è che si è messo a
funzionare tutto da quando per prova ho creato nel report una casella di
testo che riporta il valore di "page" e di "pages".
Ricapitolando : per avere un report che riporti la parola SEGUE in tutte le
pagine tranne l'ultima e che riporti il
totale solo nell'ultima pagina ho inserito il totale a piè di report assieme
all'etichetta di testo segue e a fronte dell'evento formattazione ho
inserito questo codice :
If Page < Pages Then
 Me.(segue).Visible = True
 Me.(totale).Visible = False
else
 Me.(segue).Visible = False
 Me.(totale).Visible = True
Questo sistema funziona solo se creo una casella di testo che contiene
"=page&pages".
Bah! A questo punto ho pensato di renderla invisibile e ce l'ho lasciata...
Un MEGAgrazie!
Saluti
Sergio Della Giora


title: Database Telefonico

author: Marcolino

text:
Ciao a tutti NG!
Volevo sapere se sapevate dove trovare l'elenco telefonico Italiano in
formato elettronico importabile in access. Grazie


title: Database Telefonico

author: Giovanni Albertone

text:
On Fri, 7 Jul 2000 17:47:49 +0200, "Marcolino" <
marco.p...@tin.it
>
wrote:
>Volevo sapere se sapevate dove trovare l'elenco telefonico Italiano in
>formato elettronico importabile in access. Grazie
Credo tu lo possa comprare dalla Seat
Ciao,
Giovanni
---
Inferno e paradiso mi sembrano sproporzionati. Le azioni degli
uomini non meritano tanto - JLBorges


title: Funzione Per Gestire l'abilitazione dei menu

author: Marco Papo

text:
Buonasera,
nelle mie applicazioni utilizzo i menù personalizzati.
Volevo costruire un'interfaccia per abilitare o meno i vari comandi dei
menu. Tramite una funzione vorrei leggere tutti i comandi esistenti di una
certa barra da me creata e scriverli in una tabella sulla quale poi
lavorerei per dare l'abilitazione o meno agli utenti sul singolo menù.
Quello che non riesco ad individuare è una proprietà dei comandi da
utilizzare come chiave primaria per la tabella "tbl_Menù". Infatti l'help
recita " Il valore della proprietà dell'Id per tutti i controlli
personalizzati è 1."
il mio problema di avere una chiave è individuare in maniera univoca un
certo comando, perchè dopo la prima esecuzione della funzione di riempimento
della tabella menu, la stessa funzione deve ignorare quelli che esistono già
nel DB.
Qualche suggerimento?
Grazie
--
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.


author: Hal

text:
Marco Papo ha scritto:
> Buonasera,
>
> nelle mie applicazioni utilizzo i menù personalizzati.
> Volevo costruire un'interfaccia per abilitare o meno i vari comandi dei
> menu. Tramite una funzione vorrei leggere tutti i comandi esistenti di una
> certa barra da me creata e scriverli in una tabella sulla quale poi
> lavorerei per dare l'abilitazione o meno agli utenti sul singolo menù.
>
> Quello che non riesco ad individuare è una proprietà dei comandi da
> utilizzare come chiave primaria per la tabella "tbl_Menù".
Non potrebbe essere il nome del comando, cioè l'etichetta che compare nel menu, oppure
l'oggetto a cui punta?
Alessio


text:
Ciao Hal,
In effetti potrebbe! ma mi stupisco del fatto che non esisti una proprietà
univoca?
Comunque se non arrivano altri suggerimenti dovrò utilizzare quella....
Ciao e grazie.
--
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.
"Hal" <
iota...@gmail.com
> ha scritto nel messaggio
news:fr3jtp$q7$1...@aioe.org...



author: ALESSANDRO Baraldi

text:
> In effetti potrebbe! ma mi stupisco del fatto che non esisti una proprietà
> univoca?
MMmm L'oggetto CommandBar espone tutto cosa non ti torna...?
CommandBars("nomeBarra").Controls.Count
Il problema è che le CommandBars sono uno dei pochi oggetti ereditabili...
quindi all'interno del Control(oggetto di CommandBar) puoi trovare una nuova
CommandBar...(SubMenù)...
Secondo me ti stai infilando in una cosa complessa...!
;-)
> Comunque se non arrivano altri suggerimenti dovrò utilizzare quella....
>
> Ciao e grazie.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
Ciao Alessandro,
>
> MMmm L'oggetto CommandBar espone tutto cosa non ti torna...?
> CommandBars("nomeBarra").Controls.Count
di tutte le proprietā, pensavo di poter utilizzare ID o Index come chiave,
in realtā nessuna delle 2 puō fungere da chiave per le barre personalizzate.
>
> Il problema č che le CommandBars sono uno dei pochi oggetti ereditabili...
> quindi all'interno del Control(oggetto di CommandBar) puoi trovare una
> nuova
> CommandBar...(SubMenų)...
Questo č vero, se non pongo dei limiti. Nel mio caso mi basta decidere le
autorizzazione fino al secondo livello dell'albero. Questo perchč con la mia
funzione vorrei abilitare o disabilitare i menų a secondo dell'utente e ho
assunto un dettaglio del 2° livello. Se un utente non deve avere acceso alle
funzionalitā accessibile dal menu X molto probabilmente non deve avere
accesso neanche ai controlli sotto quel ramo! o almeno costruirō la mia
barra in quel modo.
> Secondo me ti stai infilando in una cosa complessa...!
Guarda ti mostro quello che ho fatto:
Public Function ListMnuItem(strNomeBarra As String)
    ' Barra dei menu e controlli 1° livello
    Dim CmdBar As CommandBar
    Dim Cbct As CommandBarControl
    ' Barra dei menu e controlli 2° livello
    Dim Liv2CmdBar
    Dim Liv2Cbct As CommandBarControl
    ' Imposto la barra di 1° livello
    Set CmdBar = CommandBars(strNomeBarra)
    ' Pre ogni controllo della barra scrivo nella tabella dei menu
    For Each Cbct In CmdBar.Controls
        Debug.Print Chr(13) & Chr(10) & "nuovo"
        Debug.Print Cbct.Caption
        Debug.Print Cbct.BeginGroup
        Debug.Print Cbct.DescriptionText
        Debug.Print Cbct.Type
        Debug.Print Cbct.ID
        Debug.Print Cbct.Index & " Index"
        ' chiama la funzione per scrivere i menų di 1° livello.
        ScriviMenu Cbct.ID, Cbct.Caption, Cbct.DescriptionText, Cbct.Index,
strNomeBarra, 0
        If Cbct.Type <> 1 Then ' Se č diverso dai pulsanti
            Set Liv2CmdBar = CmdBar.Controls(Cbct.Caption)
            For Each Liv2Cbct In Liv2CmdBar.Controls
                Debug.Print "             " & Liv2Cbct.Caption
                ' chiama la funzione per scrivere i menų di 2° livello.
                ScriviMenu Liv2Cbct.ID, Liv2Cbct.Caption,
Liv2Cbct.DescriptionText, Liv2Cbct.Index, strNomeBarra, Cbct.Caption
            Next Liv2Cbct
        End If
    Next Cbct
End Function
Public Function ScriviMenu(ID As Integer, strCaption As String,
strDescription As Variant, Posizione As Integer, strNomeBarra As String,
CaptionGruppo As String)
    Dim strSQL As String
    Dim RS As Recordset
    Dim DB As Database
    Set DB = CurrentDb
    strDescription = ReplaceStr(strDescription, "'", "`", 1)
    strSQL = "INSERT INTO TBL_zSys_Menu "
    strSQL = strSQL & "( IDMenuAccess, Data_creazione, Utente_creazione,
Data_ultima_modifica, Utente_ultima_modifica, Caption, DescriptionText,
Posizione, NomeBarra, CaptionGruppo ) "
    strSQL = strSQL & " SELECT " & ID & "," & FormattaDataOraISO(Now(),
"Access") & ",'" & CurrentUser & "'," & FormattaDataOraISO(Now(), "Access")
& ",'" & CurrentUser & "','" & strCaption & "','" & strDescription & "'," &
Posizione & ",'" & strNomeBarra & "','" & CaptionGruppo & "'"
    DB.Execute strSQL
    DB.Close
    Set DB = Nothing
End Function
Adesso la tabella č piena di tutti i miei menų.
In maniera molto semplice posso costruire un'interfaccia per abilitare per
gruppi di utenti i menų e salvare queste info in unaltra tabella.
Il mio problema č individuare la chiave della tabella dei menu
(TBL_zSys_Menu ) per archivarla come foreign key in quella delle
autorizzaizioni (TBL_zSyS_MenuDipartimenti).
La mia funzione di scrittura infatti dovrā essere lanciata ognivolta che
viene modificata una barra dei menu, per modificare la tabella
TBL_zSys_Menu.
Che ne pensi? Il tuo competente giudizio mi interessa molto!
Grazie
> Ciao



text:
> Che ne pensi? Il tuo competente giudizio mi interessa molto!
>
> Grazie
> Ciao
Ciao Marco.
Visto che hai ottenuto una gestione flessibile direi che è già un ottimo
punto di partenza.
Disolito quando le cose girano bene con poco codice significa che è la
strada giusta.
Effettivamente la possibilità di gestire in ricorsione le CommandBars
richiederebbe
la costruzione di una funzione dedicata alla quale passare l'oggetto
CommandBar in funzione ricorsiva... ma
la cosa diverrebbe un pò più complessa anche se sarebbe la soluzione
tecnicamente più corretta.
Certo il tuo discorso di disabilitare l'albero Padre con tutti i rami può
essere una scorciatoia validissima in quanto
occorre sempre ricordarsi di rimanere con i piedi atterra... e semplificarsi
la vita.
Non sò come hai costruito la Tabella Gestionale dei Menù ma in linea di
principio dovresti avere un'unica tabella
con relazione PadreFiglio proprio come si fà con la struttura magazzino... e
gestire in Ricorsione il Recordset
per la costruzione dei menù...
In quel modo hai, volendo già la struttura MULTILIVELLO(nel caso dovessi
fare Menù di Menù)
;-)
Se può esserti utile prendere spunto dai demo dei Menù Runtime che ho nel
mio sito vedi come ho semplificato
la generazione dei POPUP... ma i Menù Standard sono uguali cambia solo la
proprietà...
Quelle Routine servono per costruirli ON_THE_FLY ma sono discretamente
ottimizzate anche per gestire Funzioni
da richiamare, ICONE ecc...!
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=103
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=77



text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:fr6gfi$e3l$1...@aioe.org...
>> Che ne pensi? Il tuo competente giudizio mi interessa molto!
>>
>> Grazie
>> Ciao
>
> Ciao Marco.
Ciao Alessandro
> Certo il tuo discorso di disabilitare l'albero Padre con tutti i rami può
> essere una scorciatoia validissima in quanto
> occorre sempre ricordarsi di rimanere con i piedi atterra... e
> semplificarsi
> la vita.
Se me lo dimentico me lo ricorda il mio titolare.... che vuole sempre nuovi
risultati ;)
> Non sò come hai costruito la Tabella Gestionale dei Menù ma in linea di
> principio dovresti avere un'unica tabella
> con relazione PadreFiglio proprio come si fà con la struttura magazzino...
> e
> gestire in Ricorsione il Recordset
> per la costruzione dei menù...
> In quel modo hai, volendo già la struttura MULTILIVELLO(nel caso dovessi
> fare Menù di Menù)
>
> ;-)
>
> Se può esserti utile prendere spunto dai demo dei Menù Runtime che ho nel
> mio sito vedi come ho semplificato
> la generazione dei POPUP... ma i Menù Standard sono uguali cambia solo la
> proprietà...
> Quelle Routine servono per costruirli ON_THE_FLY ma sono discretamente
> ottimizzate anche per gestire Funzioni
> da richiamare, ICONE ecc...!
>
>
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=103
>
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=77
Adesso me li guardo.
Grazie.



title: Studente: problema con esportazione dati.

author: songohan

text:
Ho appena termianto lo studio preliminare di Access e devo dire che non
rimpiango affatto la scelta che ho fatto, quella di abbandonare il lavoro
per lo studio.
Cmq nell'ultima lezione dal libero della Talento c'č scritto come esportare
dei dati da un database Access in Excel.
Il fatto č che quando ci provo Access mi dice che il database č di sola
lettura, anche se non č vero, e mi impedisce di fare tale operazione.
Mi potete aiutare?
Grazie infinite a tutti.
P.S. Ho altre domande, ma non ne posterň mai piů di una per non fare casino.
Ciao.


text:
songohan <fan...@TuttiILamer.it> wrote in message
S6G77.1971$0Z1....@news.infostrada.it...
> Ho appena termianto lo studio preliminare di Access e devo dire che non
> rimpiango affatto la scelta che ho fatto, quella di abbandonare il lavoro
> per lo studio.
> Cmq nell'ultima lezione dal libero della Talento c'è scritto come
esportare
> dei dati da un database Access in Excel.
> Il fatto è che quando ci provo Access mi dice che il database è di sola
> lettura, anche se non è vero, e mi impedisce di fare tale operazione.
Ma siccome noi ci rifiutiamo rigorosamente di consultare il libero della
Talento, visto che abbiamo un contratto in esclusiva con il prigioniero
della Scrauso, perchè non ci dici quale è il metodo che applichi e che non
funziona?!?
Antonio


text:
> Ma siccome noi ci rifiutiamo rigorosamente di consultare il libero della
> Talento, visto che abbiamo un contratto in esclusiva con il prigioniero
> della Scrauso, perchè non ci dici quale è il metodo che applichi e che non
> funziona?!?
Ah....allora faccio clic col tasto destro sulla tabella
selezionata--->Esporta---->Salva come file Excel 97/2000 *.xls, ma quando
vado a fare Salva mi dice 'Cannot update. Databse or object is read only'.
Ecco tutto :-)
Ciao.


text:
songohan <fan...@TuttiILamer.it> wrote in message
61Y77.6229$0Z1.2...@news.infostrada.it...

Mi faceva una cosa del genere quando cambiavo il nome del file excel che
proponeva lui in uno a mio piacimento.
Ma tu stai usando access 2000?
Antonio


text:
> > Ah....allora faccio clic col tasto destro sulla tabella
> > selezionata--->Esporta---->Salva come file Excel 97/2000 *.xls, ma
quando
> > vado a fare Salva mi dice 'Cannot update. Databse or object is read
only'.
> > Ecco tutto :-)
> > Ciao.
>
> Mi faceva una cosa del genere quando cambiavo il nome del file excel che
> proponeva lui in uno a mio piacimento.
> Ma tu stai usando access 2000?
Si, uso Access 2000 della suite Premium.


title: usare un WorkSpace equivale all'azione di un'altro utente?

author: Ivan da casa

text:
Ciao a tutti.
Riapro un 3D che non ha avuto nessuna risposta 'decente', forse per la
troppa carne al fuoco.
Mi trovo ad avere un errore 'strano', in una maschera con vari campi
(calcolati da codice VBA) nel momento in cui, da VBA, tento di cambiare un
valore (in una casella di testo associata) Access mi dice:
I dati sono stati cambiati !
ferma l'esecuzione del codice con riga gialla sulla istruzione incriminata e
... comunque se premo F5 il codice prosegue, cambia i dati in maniera esatta
e tutto pare funzionare.
Siccome per ricalcolare il valore di alcuni campi, sono costretto ad
interrogare varie tabelle, e lo faccio tramite l'apertura di un WorkSpace e
quindi di un OpenDatabase e infine un OpenRecordset su una query creata al
volo.
Mi chiedevo se questo metodo, facesse credere ad Access che un'altro utente
si è loggato e quindi mi venga attivato un blocco a livello di record o di
pagina.
Io uso DAO e i Recordset sono di tipo Dynaset.
Capisco che la domanda è complessa, e che i fattori che giocano a produrre
questo errore, siano dipendenti dal codice, ma ho seguito il manuale delle
Giovani Marmotte ed ho aperto WorkSpace, DB e RS ... ho estratto il dato
...ed ho annullato i riferimenti con Set RS as Nothing, ecc. ecc.
Inoltre NON MODIFICO i dati del recordset sottostante alla maschera ....
Ho di nuovo messo troppa carne sul fuoco e rischio di mangiare solo fumo
.... ma non riesco a sintetizzare di più.
spero che mi siate d'aiuto (eheh)
Ivan


author: Alessandro Baraldi

text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> wrote in message
news:43ee7f81$0$5989$
4faf...@reader2.news.tin.it
> Ciao a tutti.
> Riapro un 3D che non ha avuto nessuna risposta 'decente', forse per la
> troppa carne al fuoco.
>
> Mi trovo ad avere un errore 'strano', in una maschera con vari campi
> (calcolati da codice VBA) nel momento in cui, da VBA, tento di cambiare un
> valore (in una casella di testo associata) Access mi dice:
>
[CUT]
> Siccome per ricalcolare il valore di alcuni campi, sono costretto ad
> interrogare varie tabelle, e lo faccio tramite l'apertura di un WorkSpace e
> quindi di un OpenDatabase e infine un OpenRecordset su una query creata al
> volo.
Le tabelle sono nello stesso DB oppure in un'altro che ti
trovi ad aprirne uno nuovo....??
Se sono nello stesso non lo ritengo il modo corretto, e potrebbe
essere l'origine dei problemi.
> Mi chiedevo se questo metodo, facesse credere ad Access che un'altro utente
> si è loggato e quindi mi venga attivato un blocco a livello di record o di
> pagina.
Ovviamente è possibile, dipende da come apri il Recordset e da come
hai impostato il blocco nella Form.
> Io uso DAO e i Recordset sono di tipo Dynaset.
>
[CUT]
> Ho di nuovo messo troppa carne sul fuoco e rischio di mangiare solo fumo
> .... ma non riesco a sintetizzare di più.
No, credo che tu abbia un pò di fumo, magari provocato dalla carne
al fuoco...!
> spero che mi siate d'aiuto (eheh)
>
> Ivan
La via più semplice è sempre la migliore, secondo me stai prendendo
la strada sbagliata, il problema è che non si capisce cosa devi
fare, lasciamo per ora perdere il modo in cui lo fai(che per me è errato
ma posso aver tratto una idea sbagliata per incomprensione) facci
capire in che scenario ti muovi e cosa devi ottenere in modo chiaro
e sintetico.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:b1fe302f426a1c57fa...@mygate.mailgate.org...
> "Ivan da casa" <
ivanSENZAQ...@tin.it
> wrote in message
> news:43ee7f81$0$5989$
4faf...@reader2.news.tin.it
[cut]
> Le tabelle sono nello stesso DB oppure in un'altro che ti
> trovi ad aprirne uno nuovo....??
> Se sono nello stesso non lo ritengo il modo corretto, e potrebbe
> essere l'origine dei problemi.
[cut]
> Ovviamente è possibile, dipende da come apri il Recordset e da come
> hai impostato il blocco nella Form.
in realtà le tabelle sono sul BE, mi riferisco a loro con una sintassi del
tipo:
Public Function fTotOreSettPatt(numPatto As Long) As Single
    On Error GoTo ftosp_err
        Dim wrkJet As Workspace, db As DAO.Database, rs As DAO.Recordset
        Dim sSQL As String, tOreSett As Single
        Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
        PathCorrente = CurrentDb.Name
        Set db = wrkJet.OpenDatabase(PathCorrente, False)
    '----- qGiorniLavoratiDaPattuizione
    sSQL = "SELECT patto, dom, lun, mar, mer, gio, ven, sab " & _
            "FROM Pattuizioni " & _
            "WHERE (((patto)=" & numPatto & "));"
    Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
    tOreSett = 0
    For K = 1 To 7
        tOreSett = tOreSett + rs.Fields(K)
    Next K
fTotOreSettPatt = tOreSett
Set rs = Nothing: Set db = Nothing: Set wrkJet = Nothing
Exit Function
ftosp_err:
    MsgBox Err.Number & vbCr & Err.Description
    Resume Next
End Function
questo è un esempio di una funzione che mi serve a recuperare dati storici
dalle tabelle, apro uno WorkSpace e un recordset da cui 'leggo' i dati che
mi necessitano. (solo letture, nessun Edit ... Update, per ora)
quindi mi riferisco al CurrentDb.Name ma le tabelle,collegate, alloggiano
sul BE
 [CUT]
> No, credo che tu abbia un pò di fumo, magari provocato dalla carne
> al fuoco...!
> La via più semplice è sempre la migliore, secondo me stai prendendo
> la strada sbagliata, il problema è che non si capisce cosa devi
> fare, lasciamo per ora perdere il modo in cui lo fai(che per me è errato
> ma posso aver tratto una idea sbagliata per incomprensione) facci
> capire in che scenario ti muovi e cosa devi ottenere in modo chiaro
> e sintetico.
> @Alex
il TARGET : calcolare un cedolino paga, in maniera esatta.
premesse     : ricalcolare i cedolini dal 2002 ad oggi secondo le regole
competenti ad ogni periodo.
io sono a questo punto: carico un vecchio cedolino, calcolato con un vecchio
programma, e cerco di ricalcolarlo tenendo conto di tutte le regole
competenti al periodo in questione. Questo giustificherebbe l'adozione del
'MIO' programma, al posto di un vecchissimo gestionale 'DOS' ( eleaborato da
me ed un consulente del lavoro).
Il punto nodale di tutto è proprio questo 'ricalcolo'.
Creo una riga su una tabella temporanea con tutti i dati del vecchio
cedolino, e poi (tramite VBA) ripercorro tutti i calcoli, al fine di testare
la bontà del nuovo metodo.
Per un certo numero di ricalcoli non si è presentato nessun problema, ma ad
un tratto sono incappato nell'errore dell'oggetto del 3D.
Il fatto è che non sembra un ERRORE ma un avvertimento implicito di Access
(un pò come le cancellazioni o le modifiche, ma da Opzioni non ho trovato il
modo di evitarlo).
Stamattina ho rivoltato il problema: ho raddoppiato tutti i controlli nella
maschera e con un Tag 'Doppio' li identifico e li ricalcolo. Questo non crea
problemi al recordset e pare funzionare. Un volta che avrò i
campi(controlli) ben calcolati, non so come 'sbatterli' in un nuovo record,
ma troverò il modo.
Ti ringrazio per l'attenzione .... e grazie per l'attenzione che dedichi al
NG.
Ivan


text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> wrote in message
news:43ef2395$0$5990$
4faf...@reader2.news.tin.it
[CUT]
> in realtà le tabelle sono sul BE, mi riferisco a loro con una sintassi del
> tipo:
[CUT]
> quindi mi riferisco al CurrentDb.Name ma le tabelle,collegate, alloggiano
> sul BE
[CUT]
>
> Ivan
Senti IVAN se le tabelle sono nel BE ma le hai anche lincate nel FE
quanto stai facendo non è buono.
Lascia perdere la parte di apertura di una nuova sessione si Database
ma riferisciti direttamente alle Tabelle Linkate presenti in CurrentDb.
E' assurdo quanto stai facendo dal momento che le tabelle sono linkate.
Io ad esempio utilizzo quel sistema quando devo gestire il Login
di un Utente all'apertura.
Poichè di norma elimino le Linked table sempre alla chiusura mi connetto
cia ODBC al BE per verificare il Login, ma poi Linko le tabelle
e non userò più nella mia sessione quel metodo.
Spero di essere stato più chiaro.
Ciao



text:
> Senti IVAN se le tabelle sono nel BE ma le hai anche lincate nel FE
> quanto stai facendo non č buono.
?? questa proprio non la capisco, come ti riferisci alle tabelle se non con
un link?
(forse ti riferisci al codice ?)
> Lascia perdere la parte di apertura di una nuova sessione si Database
> ma riferisciti direttamente alle Tabelle Linkate presenti in CurrentDb.
cioč : niente WorkSpace, OpenDatabase ?
(ma tutti gli esempi che ho visionato, usano questi metodi ... )
> E' assurdo quanto stai facendo dal momento che le tabelle sono linkate.
 ?? come sopra ?? (sempre riferito al codice?)
> Io ad esempio utilizzo quel sistema quando devo gestire il Login
> di un Utente all'apertura.
>
> Poichč di norma elimino le Linked table sempre alla chiusura mi connetto
> cia ODBC al BE per verificare il Login, ma poi Linko le tabelle
> e non userň piů nella mia sessione quel metodo.
cioč, se le tabelle sono linkate, non serve piů prenderne le distanze con
l'apertura di altri WorkSpaces ?
(ma lo sai che sfrozo mi ci č voluto per adottare questa STRATEGIA?!! tutto
da rifare? bhe .... devo ammettere che cosě le cose diventavano un pň
ridondanti ....)
> Spero di essere stato piů chiaro.
>
> Ciao
> @Alex
ciao Ivan


text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> wrote in message
news:43ef51d6$0$28076$
4faf...@reader1.news.tin.it
>
> > Senti IVAN se le tabelle sono nel BE ma le hai anche lincate nel FE
> > quanto stai facendo non è buono.
>
> ?? questa proprio non la capisco, come ti riferisci alle tabelle se non con
> un link?
> (forse ti riferisci al codice ?)
La tua domanda è fuori strada visto che fino ad ora hai dovuto
aprire un'altra sessione di Database per farlo...!
Ti sto dicendo che dal momento che le tabelle sono Linkate
al BE non serve a nulla tutta quella brodaglia...!!!
> cioè : niente WorkSpace, OpenDatabase ?
Esatto
> (ma tutti gli esempi che ho visionato, usano questi metodi ... )
No, stai travisando gli esempi che hai visionato.
Ovviamente se leggi l'Help ti mostra l'esempio completo in quanto
di Demo si tratta, ma nel tuo caso prima di Copiare a pappagallo
occorrerebbe capire....!

[CUT]
> cioè, se le tabelle sono linkate, non serve più prenderne le distanze con
> l'apertura di altri WorkSpaces ?
Già che fare se stai già lavorandoci dentro...!
> (ma lo sai che sfrozo mi ci è voluto per adottare questa STRATEGIA?!!
Alcune volte vale la pena capire bene prima di buttarsi a capofitto
e sono sicuro che tu non abbia le idee chiare.
> tutto da rifare?
Dipende da te.
>bhe .... devo ammettere che così le cose diventavano un pò
> ridondanti ....)
Non ridondanti, sbagliate che è ben diverso.

> ciao Ivan



title: Errore in connessione unità di rete con W2000

author: Giulio Petrini

text:
Ho trovato questo codice per connettere o disconnettere unita' di rete
ma non funziona con Windows 2000 e tra l'atro non restituisce alcun errore.
Qualcuno puo' darmi spiegazioni?
Grazie Giulio.
----------------------------------------------------------------------------
----------------------
Option Compare Database
Option Explicit
Declare Function WNetAddConnection Lib "mpr.dll" Alias _
"WNetAddConnectionA" (ByVal lpszNetPath As String, _
ByVal lpszPassword As String, ByVal lpszLocalName As String) _
As Long
Declare Function WNetCancelConnection Lib "mpr.dll" Alias _
"WNetCancelConnectionA" (ByVal lpszName As String, _
ByVal bForce As Long) As Long
Const WN_SUCCESS = 0        ' The function was successful.
Const WN_NET_ERROR = 2      ' An error occurred on the network.
Const WN_BAD_PASSWORD = 6   ' The password was invalid.
Sub CONNETTI(MyShareName$, MyPWD$, UseLetter$)
On Local Error GoTo AddConnection_Err
WNetAddConnection MyShareName$, MyPWD$, UseLetter$
AddConnection_End:
         Exit Sub
AddConnection_Err:
         MsgBox Error$
         Resume AddConnection_End
End Sub
Sub DIS_CONNETTI(UseLetter$, Force%)
On Local Error GoTo CancelConnection_Err
WNetCancelConnection UseLetter$, Force%
CancelConnection_End:
         Exit Sub
CancelConnection_Err:
         MsgBox Error$
         Resume CancelConnection_End
End Sub


author: Sergio MAZZA

text:
"Giulio Petrini" <
G.Pe...@ao-siena.toscana.it
> ha scritto nel messaggio
news:9sqq2o$o0q$1...@fe1.cs.interbusiness.it...

Prova con questi script:
'------------------
Sub wshMapDrive()
Dim WshNet
Set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "Z:", "\\nomePc\nomeRisorsa", , "Administrator",
"password"
Set WshNet = Nothing
End Sub
Sub wshUnMapDrive()
Dim WshNet
Set WshNet = CreateObject("Wscript.Network")
WshNet.RemoveNetworkDrive "Z:"
Set WshNet = Nothing
End Sub
'------------------
Non dovrebbero crearti nessun problema....
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


title: SendObject - la prima volta OK, la seconda KO ?

author: OD

text:
In una maschera Access 2000 ho un pulsante che prepara una mail con il
metodo SendObject,
Se clicco una prima volta sul pulsante viene visualizzata la mail
(uso outlook 2000 come prodotto di posta el.)
ma se invece di spedirla subito, chiudo la mail, e riprovo e generare
nuovamente la mail,
Access non dà nessun messaggio di errore, ma la mail non viene più
visualizzata.
Anche scaricando la maschera e ricaricandola il problema si ripresenta,
debbo chiudere l'applicazione e ripartire.
C'è qualche modo per risolvere questo problema ?
Dipende da Outlook ?
Grazie


title: Lost connectio to mysql

author: Mauro

text:
Ciao a tutti!!
Ho un campo di tipo mediumblob in mysq.
Ho una maschera access 2002 che si collega alla tabella mysql.
Quando inserisco un'immagine nel campo mediumblob mi dice "Lost
connection to mysql server during query". Ho notato che se inserisco
un'immagine (jpg, gif ecc..) che pesa meno di 15 kb l'errore non mi
compare. Sapete se c'é un timeout durante l'esecuzione delle query?
Come si imposta?
Grazie in anticipo.


title: Lost connectio to mysql


title: Compatibilità Access 2002/2000

author: Zawy

text:
Salve a tutti i membri del NG.
Una domanda: ho scritto un'applicazione in Access 2002; dato che i computer
del cliente avevano tutti Access 2000, ho salvato l'applicazione in formato
Access 2000.
Portando il file MDB sui computer del cliente, il form di avvio si apre
regolarmente, ma poi mi segnala degli errori di compilazione.
Ho provato a convertire il file in tutti i modi possibili (Da Ac2000 ad
Ac2002 e poi viceversa, ecc.), ho anche verificato che non ci sono problemi
nelle librerie linkate.
Potete darmi qualche suggerimento in proposito?
Grazie mille in anticipo. Saluti!
Marco.


title: Compatibilità Access 2002/2000

author: Sib

text:
"Zawy" <zawin...@DONTSPAMPLEASEyahoo.it> ha scritto nel messaggio
> Una domanda: ho scritto un'applicazione in Access 2002; dato che i
computer
> del cliente avevano tutti Access 2000, ho salvato l'applicazione in
formato
> Access 2000.
>
> Portando il file MDB sui computer del cliente, il form di avvio si apre
> regolarmente, ma poi mi segnala degli errori di compilazione.
>
> Ho provato a convertire il file in tutti i modi possibili (Da Ac2000 ad
> Ac2002 e poi viceversa, ecc.), ho anche verificato che non ci sono
problemi
> nelle librerie linkate.
>
> Potete darmi qualche suggerimento in proposito?
Di fatto non esistono incompatibilita' tra le due versioni (salvo, nel caso
inverso al tuo, sugli adp)
Comunque tra le cose che hai fatto non hai mensionato un "compila database".
Sib


title: SQL ODBC  tutti record #Eliminato

author: pfmarro

text:
salve!

ho alcune tabelle collegate via ODBC di BC
le ho sempre utilizzate, ma improvvisamente
quando le apro da MsAccess

leggo tutti i Record per tutti i campi #Eliminato

ho provato a cancellare il profilo ODBC e ricollegarle ma nulla da fare

potete darmi una dritta?

GRAZIE


title: SQL ODBC  tutti record #Eliminato

author: RobertoA

text:

Prova con altro strumento, che passi sempre attraverso il driver odbc,
per leggere dati dal db usato
Che db e'?
Driver odbc versione?
Sulla tabella che da' problemi e' presente un indice unico?


title: SQL ODBC  tutti record #Eliminato

author: Andrea Pettenon

text:

Cavolo successo anche a me su alcune tabelle e solo da oggi, fino a venerdì funzionava tutto bene. Che ci siano stati aggiornamenti di qualche tipo che non ci siamo accorti che siano entrati?


title: SQL ODBC  tutti record #Eliminato

text:

Forse ho trovato il problema. Ho ricollegato le tabelle di sql server ad access usando il driver ODBC 13, anzichè l' "sql native" e si è ripristinato tutto.
Non chiedetemi perchè ma mi è venuta l'illuminazione di provare a usare un altro modo di collegare le tabelle e sono arrivato, a quanto pare, alla mia soluzione del mio problema.

Ciao

Andrea


title: SQL ODBC  tutti record #Eliminato

text:

Io ho sempre usato 'Sql Server Native Client 11.0'
Con Sql Server dalla 12 in poi
E finora funziona
Sgrat sgrat


title: SQL ODBC  tutti record #Eliminato

text:
Il giorno lunedì 30 maggio 2022 alle 20:57:47 UTC+2 Andrea Pettenon ha scritto:

GRAZIE DELLA INFORMAZIONE

In effetti ho provato come hai detto a utilizzare
ODBC Driver 13for SQL Server
ODBC Driver 17for SQL Server
e funzionano bene!

ho provato anche a installare
ODBC Driver 183for SQL Server

ma poi quando vado a definire il profilo con l'autenticazione con SQL
mi accetta nome utente e password ma poi quando vado a scegliere il database SQL da associare mi dice
Errore di connessione
SQLState: '08001'
Errore di SQL Server -
2146893019

[Microsoft][ODBC Driver 18 for SQL Server]Provider SSL: Catena di certificazioni emessa da una Autorità di certificazione non disponibile nell'elenco locale

Errore di connessione


title: SQL ODBC  tutti record #Eliminato

author: Karl Donaubauer

text:
Salve,

pfmarro:

Si tratta di un bug che colpisce tanta gente per circa una settimana. La
domanda compare in quasi tutti i forum di Access del mondo.

Il problema riguarda il vecchio driver per SQL Server, installato
ovunque e quindi più comunemente utilizzato, e non quelli più recenti.

Microsoft è stata informata, ma sta ancora indagando. Pertanto, non è
ancora chiaro quando questo problema verrà risolto.

Phil ha scritto il miglior articolo su questo argomento, anche se
potrebbero esserci più tipi di dati problematici di quelli citati:
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=msaccess-bug-v2205-odbc-deleted-nvarchar-primary-key

--
Ciao
Karl
*********
Access News:
https://youtu.be/kUkLjfYwgg8

Access DevCon:
http://AccessDevCon.com

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


title: SQL ODBC  tutti record #Eliminato

text:
Karl Donaubauer:
>
> pfmarro:
>> ho alcune tabelle collegate via ODBC di BC
>> le ho sempre utilizzate, ma improvvisamente
>> quando le apro da MsAccess
>>
>> leggo tutti i Record per tutti i campi #Eliminato
>>
>> ho provato a cancellare il profilo ODBC e ricollegarle ma nulla da fare
>>
>> potete darmi una dritta?
>
> Si tratta di un bug che colpisce tanta gente per circa una settimana. La
> domanda compare in quasi tutti i forum di Access del mondo.
> ...
> Microsoft è stata informata, ma sta ancora indagando. Pertanto, non è
> ancora chiaro quando questo problema verrà risolto.
> ...
Microsoft ha risolto il bug ieri. Hanno utilizzato un
Change/FeatureGate. Quindi non c'è un update o una nuova versione.
Chiudere Access e riaprirlo è sufficiente per eliminare il problema.



title: SQL ODBC  tutti record #Eliminato

text:
Il 04/06/2022 21:33, Karl Donaubauer ha scritto:
> Karl Donaubauer:
>>
>> pfmarro:
>>> ho alcune tabelle collegate via ODBC di BC
>>> le ho sempre utilizzate, ma improvvisamente
>>> quando le apro da MsAccess
>>>
>>> leggo tutti i Record per tutti i campi #Eliminato
>>>
>>> ho provato a cancellare il profilo ODBC e ricollegarle ma nulla da fare
>>>
>>> potete darmi una dritta?
>>
>> Si tratta di un bug che colpisce tanta gente per circa una settimana.
>> La domanda compare in quasi tutti i forum di Access del mondo.
>> ...
>> Microsoft è stata informata, ma sta ancora indagando. Pertanto, non è
>> ancora chiaro quando questo problema verrà risolto.
>> ...
> Microsoft ha risolto il bug ieri. Hanno utilizzato un
> Change/FeatureGate. Quindi non c'è un update o una nuova versione.
> Chiudere Access e riaprirlo è sufficiente per eliminare il problema.
>

Cos'e' un "Change/FeatureGate" ?


title: SQL ODBC  tutti record #Eliminato

text:
Salve,

RobertoA:
>> Karl Donaubauer:
>>> ...
>> Microsoft ha risolto il bug ieri. Hanno utilizzato un
>> Change/FeatureGate. Quindi non c'è un update o una nuova versione.
>> Chiudere Access e riaprirlo è sufficiente per eliminare il problema.
>
> Cos'e' un "Change/FeatureGate" ?

https://nolongerset.com/office-featuregates/




title: Gruppo Opzioni..............

author: Gianni B

text:
Salve a tutto il News come sempre vengo a chiedere aiuto a chi ne sa + di
me..........
In una maschera ho due caselle combinate "Schicht(Turni) ; ed un altra che
chiamero "Ricerca" che mi filtra la prima.........mi spiego
meglio...........la prima casella combinata "Schicht(Turni)" mi visualizza i
turni,(A;B:C...ecc) mentre la seconda mi visualizza quale personale
appartiene a quest turno.....
ora io vorrei utilizzare un gruppo di opioni con quattro tasti che chiamero
"A";"B";ecc.........ma non so come aplicare il codice in vb per questo
controllo so che usa la propità  "Case" ma è la prima volta che ci sbatto
qualcuno mi puo dare un'idea.?!?
grazie come sempre a tutti.
--
Gianni B.
--
Gianni B.


title: Gruppo Opzioni..............

author: Antonio Biso

text:
"Gianni B" <
gian...@bluewin.ch
> ha scritto nel messaggio
news:3e6f3808$1...@news.bluewin.ch...

Prima bisognerebbe capire che vuoi perchè non l'hai spiegato bene.
tu vuoi sostituire la combo che sceglie i turni con un gruppo di opzioni?
Sai che puoi farlo solo se i turni sono sempre 4 vero? Altrimenti dovresti
poi cambiare sempre la struttura della tabella.
Comunque, se è così, allora, tu metterai 4 radio button nel gruppo
d'opzioni.
I 4 button avranno valori 1, 2, 3 e 4. Il gruppo avrà valore predefinito 1.
Nella query della combo personale, come criterio sotto turno scriverai
questo
iif([forms]![tuaform]![gruppo]=1;"A";iif([forms]![tuaform]![gruppo]=2;"B";ii
f([forms]![tuaform]![gruppo]=3;"C";"D")))
Quando aggiorni il gruppo devi fare la requery della combo.
Alternativa con sporco trucco:
metti un controllo nascosto nella form.
Ad ogni aggiornamento del gruppo, prima di fare la requery della combo,
esegui questo codice:
if gruppo = 1 then
  nascosto = "A"
else
if gruppo = 2 then
  nascosto = "B"
elseif gruppo = 3 then
  nascosto = "C"
else
  nascosto = "D"
end if
Poi, come criterio in query, metti semplicemente
[forms]![tuaform]![nascosto]
Antonio


title: Gruppo Opzioni..............

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:snIba.6099$7y3.1...@twister1.libero.it...

Grazie Antonio come sempre,è come sempre scusa se ogni volta dimentico di
specificare quello che ho intenzione di fare ,comunque quello che cercavo è
la tua prima soluzione.
grazie come sempre..........
Ciao
--
Gianni B.


title: ricavare la data di creazione dei files presenti sul disco

text:
Ho creato una procedura che cataloga automnaticamente i files presenti su un
disco specificato dall'utente riportando Nome, Percorso, Estensione e
Dimensioni.
Ora mi hanno chiesto di inserire nel db anche la data di creazione del file.
Come devo procedere?
GioVe


text:
Trovato!
Basta usare semplicemente la funzione FileDateTime(NomeFile).
Saluti
GioVe
"Gio.Ve" <
nospamg...@tiscali.it
> ha scritto nel messaggio
news:GDBud.280010$b5.13...@news3.tin.it...



title: Formattazione condizionale per campo "null"

text:
Su di un campo numerico non riesco a fare funzionare la formattazione condizionale nel caso che il campo numerico in questione sia vuoto.
C'è un qualche altro sistema per fare in modo di avere lo sfondo rosso su una maschera continua nel campo in questione quando questi non sia valorizzato (in pratica "null")?

Grazie per l'aiuto.

Andrea


author: BFS

text:

come condizione metti "se l'espressione è"

come valore metti [tuacasella] Is Null

BFS


text:

Perfetto, grazie infinite.

Andrea


title: Accodamento possibile?

author: Ema

text:
Un saluto a tutti.
Problema:
Ho una tabella [Dati] e una tabella [DatiBKP]
entrambe con la seguente struttura:
ID=contatore
DataDa1=data/ora
DataA1=data/ora
Programma=testo
Programma di riferimento=testo
Natura=testo
- Le tabelle non sono relazionate.
- Non posso sfruttare l' ID del record
- Dovrei far eseguire tutto tramite Sql
Ho la necessità di eseguire una query di accodamento da tbl [Dati] a
tbl [DatiBPK]
con le seguenti condizioni
(lo scrivo con parole mie, spero si capisca)
accoda se:
1) il contenuto dei campi "Programma" e "Natura" in [Dati]
è diverso dal contenuto di "Programma" e "Natura" in [DatiBKP]
(la condizione dovrebbe verificarsi su TUTTI e DUE i campi
contemporaneamente
e NON su uno o sull'altro)
2) il contenuto dei campi "Programma" e "Natura" in [Dati]
è uguale al contenuto di "Programma" e "Natura" in [DatiBKP]
e
il campo "DataDa1" tbl [Dati] è maggiore di "DataDa1" tbl [Dati BKP]
In pratica: se non trova gli stessi valori accoda.
Se trova gli stessi valori fa un test sulla data.
se è maggiore di quella in tabella [DatiBKP] accoda, se no nn accoda.
P.S. se è d'obbligo il VBA vedrò di integrarlo.
Ci sto venedo matto!
Grazie


title: Accodamento possibile?

author: Roberto dal portatile

text:
"Ema" <
stead...@tiscali.it
> ha scritto nel messaggio
news:1170782226.6...@j27g2000cwj.googlegroups.com...

Prova con una query di aggiornamento che abbia il seguente codice SQL:
INSERT INTO DatiBKP ( DataDa1, DataA1, Programma, [Programma di
riferimento], Natura )
SELECT Dati.DataDa1, Dati.DataA1, Dati.Programma, Dati.[Programma di
riferimento], Dati.Natura
FROM Dati
WHERE (DCount("*", "DatiBKP", "Programma ='" & [Programma] & "' AND Natura
='" & [Natura] & "'") = 0) OR (DCount("*", "DatiBKP", "Programma ='" &
[Programma] & "' AND Natura ='" & [Natura] & "' AND DataDa1 < #" &
Format(DataDa1, "mm/dd/yyyy") & "#" )=1);
>
>Grazie
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: unire tabelle

author: mariust

text:
buongiorno
ho un db con delle tabelle dalla stuttura uguale ma con dati diversi
perchè divise per mesi naturalmente le tabelle man mano che passano i mesi
aumentano nelle tabelle è anche indicato il mese e l'anno.
conoscete un metodo per avere un report o una query che legga tutte le
tabelle o se si potessero mettere tutti i dati in tabella senza fare
operazioni manuali o complicate
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: unire tabelle

author: VT @ Work

text:
On Fri, 07 Dec 2007 09:11:12 +0100,
tessito...@libero.it
(mariust) wrote:
 (...)
>buongiorno
>ho un db con delle tabelle dalla stuttura uguale ma con dati diversi
>perchè divise per mesi naturalmente le tabelle man mano che passano i mesi
>aumentano nelle tabelle è anche indicato il mese e l'anno.
>conoscete un metodo per avere un report o una query che legga tutte le
>tabelle o se si potessero mettere tutti i dati in tabella senza fare
>operazioni manuali o complicate
>grazie
SELECT * FROM TAbella1
UNION
SELECT * FROM Tabella2
La query sopra è necessariamente di sola lettura.
Per aggiornare i dati dovrai continuare a fare riferimento alle
singole tabelle.
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

---------------------------------------------
risorse Access:
http://www.accessgroup.it

---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com

---------------------------------------------


title: unire tabelle

author: Carlo Costarella

text:
"mariust" <
tessito...@libero.it
> ha scritto nel messaggio
news:fjav70$f51$1...@news.newsland.it...
> buongiorno
> ho un db con delle tabelle dalla stuttura uguale ma con dati diversi
> perchè divise per mesi naturalmente le tabelle man mano che passano i mesi
> aumentano nelle tabelle è anche indicato il mese e l'anno.
> conoscete un metodo per avere un report o una query che legga tutte le
> tabelle o se si potessero mettere tutti i dati in tabella senza fare
> operazioni manuali o complicate
> grazie
>
Query di accodamento? Accodi i dati da tabella A a tabella B o viceversa.
Query di unione? Unisci le due tabelle in una query di unione a patto che
abbiano gli stessi campi.
select * from TabA;
UNION ALL select * from TabB;
Ciao, Carlo


title: unire tabelle

text:
la query di accodamento va bene solo che non parlo di una tabella ma per
adesso sono gia' 12 e che possono subire variazioni quindi l'aggiornamento
va fatto di continuo ma l'accodamento va fatto uno per volta? io ho
provato a fare un unica query di accodamento con tutte le tabelle ma va in
errore.
grazie
Carlo Costarella ha scritto:

> Ciao, Carlo



title: unire tabelle

text:
"mariust" <
tessito...@libero.it
> ha scritto nel messaggio
news:fjb33t$sp4$1...@news.newsland.it...
> la query di accodamento va bene solo che non parlo di una tabella ma per
> adesso sono gia' 12 e che possono subire variazioni quindi l'aggiornamento
> va fatto di continuo ma l'accodamento va fatto uno per volta? io ho
> provato a fare un unica query di accodamento con tutte le tabelle ma va in
> errore.
> grazie
>
>
cut
Ricorda di scrivere dopo la risposta precedente come faccio ora.
La o le query di accodamento vanno eseguite una tabella alla volta, un
accodamento per ciascuna tabella e verso la stessa tabella.
In alternativa e se le tabelle hanno gli stessi campi, puoi realizzare una
query di unione con tutte le tabelle che devi accodare e poi utilizzare
quest'ultima per generare un'unica query di accodamento che a questo punto
conterrà tutti i dati.
Due query, quindi, una di unione e una di accodamento. Una volta salvate le
due query puoi implementare due righe di codice che fa partire il tutto:
DoCmd.SetWarnings False
DoCmd.OpenQuery "TuaQueryDiAccodamentoDerivataDaQueryDiUnione"
DoCmd.SetWarnings True
Ciao, Carlo


title: unire tabelle

text:
Carlo Costarella ha scritto:



> Ciao, Carlo
scusami e grazie



title: Numerazione crescente per fatture

author: Alessandro

text:
Salve a tutti, uso il numeratore per le fatture del tipo:
="N." & Format(IIf(IsNull(DMax("[numero]";"[ordini]";"[numero] like 'N.???/"
& Format(Date();"aa") & "'"));1;Mid(DMax("[numero]";"[ordini]";"[numero]
like 'N.???/" & Format(Date();"aa") & "'");3;3)+1);"000") & "/" &
Format(Date();"aa")
Ieri ho portato il db a casa, per fare modifiche. Apro il db sul pc di casa,
e senza fare nessuna modifica al posto del numero incrementato aggiungendo
un record del tipo N.012/06 ecco che appare
#Nome?
Allora prendo una versione precedente del db e funziona correttamente. Fra
le due versioni nella tabella e nella maschera degli ordini (interessate al
contatore) non ci sono modifiche. Che cosa è successo? Fino a ieri
pomeriggio sul pc dell'ufficio funzionava tutto. Su entrambi ho la stessa
versione di Access.
Aiutatemi, grazie


title: Numerazione crescente per fatture

text:
"Alessandro" <
clar...@tiscali.it
> ha scritto nel messaggio
news:44b8fd1f$0$1000$5fc...@news.tiscali.it...

Controlla i riferimenti del database di casa che non funziona, potrebbe
essercene qualcuno mancante; magari tra casa ed ufficio usi un sistema
operativo diverso, con le DLL piazzate in cartelle diverse.
>
> Aiutatemi, grazie
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Numerazione crescente per fatture

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:XL8ug.41662$_J1.5...@twister2.libero.it...

Sistema Xp sp2 su tutti e due i pc
Access 2003 su entrambi.
Riferimenti tutti ok....  :(
???
Ciao


title: Numerazione crescente per fatture

text:
"Alessandro" <
clar...@tiscali.it
> ha scritto nel messaggio
news:44bbdbe5$0$1012$5fc...@news.tiscali.it...
[CUT]
>
> Sistema Xp sp2 su tutti e due i pc
> Access 2003 su entrambi.
>
> Riferimenti tutti ok....  :(
>
> ???
Mi dispiace, ma non saprei proprio cosa altro suggerirti.
> Ciao



title: funzione AND in una sql

text:
salve a tutti,
Ho provato a leggere nei messaggi precedenti perň non ho trovato la risposta
alla mia domanda: ho una sql cosě:
UPDATE fotos SET foto_opzioni = (foto_opzioni and 1) WHERE foto_galleria_id=2
questa dovrebbe fare in modo di impostare il campo foto_opzioni a 1 se il campo
č dispari a zero se il campo č pari... purtroppo perň si comporta in modo
sbagliato! Infatti se foto_opzioni č maggiore di zero imposta il campo a -1
(cioč come se fosse Vero). Non risolve la funzione AND.
la funzione and dovrebbe fare un confronto bit a bit di un numero in questo
modo:
Numero uno: 010110
numero due: 110011
risultato : 010010
numero uno AND numero due = 010010
Invece nella sql
numero uno AND numero due = -1
spero di essermi spiegato bene...
Attendo che qualche anima pia mi possa dare una mano.
Grazie.
Carlo


title: funzione AND in una sql

author: namor

text:
carl...@noemail.it.invalid ha scritto:

Il criterio "č dispari" che scritto cosě funzionerebbe in vba non lo puoi
usare nelle query perchč non viene interpretato correttamente, e comunque
va messo dopo il WHERE, non dopo il SET.
Puoi usare invece il metodo X/2<>int(X/2).
UPDATE fotos SET foto_opzioni = 1
WHERE foto_galleria_id=2 And (foto_opzioni/2<>int(foto_opzioni/2))
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: funzione AND in una sql

text:
do...@spam.me
 (namor) nel messaggio <cd3f21$9hn$
1...@news.newsland.it
> ha scritto:
> Il criterio "è dispari" che scritto così funzionerebbe in vba non lo puoi
> usare nelle query perchè non viene interpretato correttamente, e comunque
> va messo dopo il WHERE, non dopo il SET.
> Puoi usare invece il metodo X/2<>int(X/2).
> UPDATE fotos SET foto_opzioni = 1
> WHERE foto_galleria_id=2 And (foto_opzioni/2<>int(foto_opzioni/2))
> Namor
ciao. Grazie per la risposta. Il mio problema però non è sapere se il campo è
dispari oppure no... è cambiare un numero attraverso l'operazione And ...
purtroppo con mySql è possibile e funziona egregiamente... con il database
Access no! Dovrei aprire un recordset, leggere il campo alla volta, fare
l'operazione And, salvare il risultato! Troppe operazioni... ci metterebbe
troppo e il carico sul server sarebbe elevato.
Però questa è l'unica soluzione... a meno che qualcuno non ne trovi una
migliore.
Grazie. Aspetto ancora qualche risposta... saluti. Carlo


title: funzione AND in una sql

text:
carl...@noemail.it.invalid ha scritto:



Metti in un modulo una funzione pubblica che faccia quell'operazione, poi
la richiami dalla query. Nell'esempio ho usato Long, tu usa il tipo di
dato corrispondente a quello dei tuoi campi.
public function And_logico(num1 as long, num2 as long) as long
  And_logico=num1 And num2
end function
Nella query usa un normale campo calcolato:
risultato: And_logico([campo1];[campo2])



title: funzione AND in una sql

text:
do...@spam.me
 (namor) nel messaggio <cd5l0o$h88$
1...@news.newsland.it
> ha scritto:
>
> public function And_logico(num1 as long, num2 as long) as long
>   And_logico=num1 And num2
> end function
>
> Nella query usa un normale campo calcolato:
> risultato: And_logico([campo1];[campo2])
grazie. Farò delle prove... ciao. Carlo


title: query LEFT join

author: Ammammata

text:
ho un elenco di 1669 prodotti: ItemsModel
ho un file di giacenze con il codice del prodotto, una data e la giacenza:
Items

ho un parametro che mi dice che data mi interessa:
[Forms]![Parameters]![EndDate]

devo ottenere dalla query *tutti* i 1669 prodotti con a fianco la data e la
giacenza, se disponibili, allrimenti zero o null, non importa

SELECT ItemsModel.ARTIKELNUMMER, Items.Update, Items.Quantity

FROM ItemsModel LEFT JOIN Items ON ItemsModel.ARTIKELNUMMER =
Items.ItemCode

WHERE (((Items.Update)=[Forms]![Parameters]![EndDate] Or (Items.Update) Is
Null));

se nella condizione WHERE metto *solo* il controllo della data
(Items.Update)=[Forms]![Parameters]![EndDate]
mi ritorna solo i 567 record che esistono in Items con quella data

se aggiungo, come scritto sopra, anche la condizione
(Items.Update) Is Null)
me ne recupera 1648

i record mancanti?

sono quelli che sono presenti in Items ma solo con date diverse da quella
che mi interessa :(

in pratica la query ignora i record presenti ma a quel punto salta anche il
controllo Is Null

come faccio a ottenere tutti i miei 1669 codici?

soluzione della serva, come ultima possibilità:
eseguo una query che mi aggiunge i record mancanti in Items per la data in
elaborazione, ma preferirei una soluzione più intelligente

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: query LEFT join

text:
Il giorno Thu 13 Feb 2020 04:33:06p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAB62A86083F96am...@148.251.67.112
. Vediamo cosa ha
scritto:

>
> come faccio a ottenere tutti i miei 1669 codici?
>
>

table1
ID	Field1
1	a
2	b
3	c
4	d
5	e

table2
ID	Field1	Field2
1	a	1
2	a	3
3	a	4
4	a	5
5	b	1
6	b	2
7	b	3
8	c	1
9	c	5
10	d	1
11	d	2
12	d	3
13	d	4
14	d	5
15	e	1
16	e	2
17	e	3
18	e	4
19	e	5

query
SELECT Table1.Field1, Table2.Field2
FROM Table1 LEFT JOIN Table2 ON Table1.Field1 = Table2.Field1
WHERE (((Table2.Field2)=3 Or (Table2.Field2) Is Null));

se chiedo, come nell'esempio, i codici "3" o null me ne elenca solo 4

Field1	Field2
a	3
b	3
d	3
e	3

manca c

a me serve

Field1	Field2
a	3
b	3
c    	0 o Null
d	3
e	3



title: query LEFT join

author: mantro

text:
[CUT]

> query
> SELECT Table1.Field1, Table2.Field2
> FROM Table1 LEFT JOIN Table2 ON Table1.Field1 = Table2.Field1
> WHERE (((Table2.Field2)=3 Or (Table2.Field2) Is Null));
>
> se chiedo, come nell'esempio, i codici "3" o null me ne elenca solo 4
>
> Field1	Field2
> a	3
> b	3
> d	3
> e	3
>
> manca c
>
> a me serve
>
> Field1	Field2
> a	3
> b	3
> c    	0 o Null
> d	3
> e	3
>

La c manca perché se vale 0 non viene considerata, per cui:

WHERE Table2.Field2=3 Or Nz(Table2.Field2,0)=0;


title: query LEFT join

text:
Il giorno Thu 13 Feb 2020 06:16:57p, *mantro* ha inviato su
it.comp.appl.access il messaggio news:r240ac$1gan$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

>
> La c manca perché se vale 0 non viene considerata, per cui:
>
> WHERE Table2.Field2=3 Or Nz(Table2.Field2,0)=0;
>
>

grazie per il tentativo mantro, ma pare quasi che tu abbia scritto senza
provare

SELECT Table1.Field1, Table2.Field2
FROM Table1 LEFT JOIN Table2 ON Table1.Field1 = Table2.Field1
WHERE Table2.Field2=3 Or Nz(Table2.Field2,0)=0;

il risultato non cambia

Field1	Field2
a	3
b	3
d	3
e	3




title: query LEFT join

text:
Il 14/02/2020 08:28, Ammammata ha scritto:
> Il giorno Thu 13 Feb 2020 06:16:57p, *mantro* ha inviato su
> it.comp.appl.access il messaggio news:r240ac$1gan$
1...@gioia.aioe.org
. Vediamo
> cosa ha scritto:
>
>>
>> La c manca perché se vale 0 non viene considerata, per cui:
>>
>> WHERE Table2.Field2=3 Or Nz(Table2.Field2,0)=0;
>>
>>
>
> grazie per il tentativo mantro, ma pare quasi che tu abbia scritto senza
> provare
>
> SELECT Table1.Field1, Table2.Field2
> FROM Table1 LEFT JOIN Table2 ON Table1.Field1 = Table2.Field1
> WHERE Table2.Field2=3 Or Nz(Table2.Field2,0)=0;
>
> il risultato non cambia
>
> Field1	Field2
> a	3
> b	3
> d	3
> e	3
>

In effetti non ho provato perché il risultato mi sembrava scontato.

Sicuro che Field2 contenga solo valori numerici o nulli?
Prova eventualmente ad intercettare valori stringa:
WHERE Table2.Field2=3 Or Nz(Table2.Field2)=0 Or Len(Nz(Table2.Field2))=0;


title: query LEFT join

text:
Il giorno Fri 14 Feb 2020 09:16:14a, *mantro* ha inviato su
it.comp.appl.access il messaggio news:r25l0i$psh$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> Sicuro che Field2 contenga solo valori numerici o nulli?
>

le due piccole tabelle di esempio le ho messe nel secondo post del thread,
facendo copia/incolla da access

i valori inseriti sono molto semplici, appunto per evitare errori

provo comunque anche il secondo suggerimento



title: query LEFT join

text:
Il giorno Fri 14 Feb 2020 10:56:19a, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAB636F479C8A3am...@148.251.67.112
. Vediamo cosa ha
scritto:

>
> provo comunque anche il secondo suggerimento
>
>

e no, nemmeno questa

non vorrei che quello che chiedo sia qualcosa di "assurdo" e non ottenibile
con le basi dati attuali a meno di integrarle, come ho ipotizzato
all'inizio, con un po' di record a zero, giusto per avere *sempre* un
collegamento tra le due tabelle



title: query LEFT join

text:
Il 14/02/2020 10:56, Ammammata ha scritto:
> Il giorno Fri 14 Feb 2020 09:16:14a, *mantro* ha inviato su
> it.comp.appl.access il messaggio news:r25l0i$psh$
1...@gioia.aioe.org
. Vediamo
> cosa ha scritto:
>
>> Sicuro che Field2 contenga solo valori numerici o nulli?
>>
>
> le due piccole tabelle di esempio le ho messe nel secondo post del thread,
> facendo copia/incolla da access
>
> i valori inseriti sono molto semplici, appunto per evitare errori
>
> provo comunque anche il secondo suggerimento
>

Ho provato riproducendo esattamente le tue tabelle con gli stessi dati.
La query funziona regolarmente visualizzando la 'c' sia che questa abbia
valore zero o sia null. Dà errore 'dati non corrispondenti' se il valore
è stringa.

Un dubbio: sicuro che lo zero che tu vuoi visualizzare sia veramente 0?
Non può essere, p.e., 0,00000qualcosa che, a causa dell'arrotondamento,
tu vedi solo come 0? In questo caso la query, giustamente, non lo espone!


title: query LEFT join

text:
Il 14/02/2020 11:02, Ammammata ha scritto:
> Il giorno Fri 14 Feb 2020 10:56:19a, *Ammammata* ha inviato su
> it.comp.appl.access il messaggio
>
news:XnsAB636F479C8A3am...@148.251.67.112
. Vediamo cosa ha
> scritto:
>
>>
>> provo comunque anche il secondo suggerimento
>>
>>
>
> e no, nemmeno questa
>
> non vorrei che quello che chiedo sia qualcosa di "assurdo" e non ottenibile
> con le basi dati attuali a meno di integrarle, come ho ipotizzato
> all'inizio, con un po' di record a zero, giusto per avere *sempre* un
> collegamento tra le due tabelle
>

Ho letto questo post solo dopo che avevo inviato la mia risposta al post
precedente.
Quello che chiedi non è qualcosa di assurdo. Il collegamento fra le
tabelle c'è sempre finché il tipo di dati dei campi di collegamento sono
simili. È ovvio che in table2 il campo field1 deve essere valorizzato
anche in table1 qualora tu inserissi un valore in field2 di table2.


title: query LEFT join

text:
Il giorno Fri 14 Feb 2020 11:27:48a, *mantro* ha inviato su
it.comp.appl.access il messaggio news:r25sn7$1tee$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> Ho provato riproducendo esattamente le tue tabelle con gli stessi dati.
> La query funziona regolarmente visualizzando la 'c' sia che questa abbia
> valore zero o sia null. Dà errore 'dati non corrispondenti' se il valore
> è stringa.
>
> Un dubbio: sicuro che lo zero che tu vuoi visualizzare sia veramente 0?
> Non può essere, p.e., 0,00000qualcosa che, a causa dell'arrotondamento,
> tu vedi solo come 0? In questo caso la query, giustamente, non lo espone!
>

p.f. copia la query in SQL e scrivila qui, grazie

le tabelle di esempio le ho create a mano, usando la tastiera e non
copia/incolla da qualche altra parte

lo "zero da visualizzare" non è un dato esistente visto che il record in
table2 non esiste; zero o Null è la stessa cosa per quello che devo fare
successivamente, l'importante è che ci sia il record 'c'

ultima nota: Access è la versione 2010



title: query LEFT join

text:
Il giorno Thu 13 Feb 2020 05:21:34p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAB62B097E7D6Fam...@148.251.67.112
. Vediamo cosa ha
scritto:

>
> query
> SELECT Table1.Field1, Table2.Field2
> FROM Table1 LEFT JOIN Table2 ON Table1.Field1 = Table2.Field1
> WHERE (((Table2.Field2)=3 Or (Table2.Field2) Is Null));
>
> se chiedo, come nell'esempio, i codici "3" o null me ne elenca solo 4
>
> Field1     Field2
> a     3
> b     3
> d     3
> e     3
>
> manca c
>

SELECT Table1.ID, Table1.Field1,
DLookUp("[table2]![field2]","table2","[table2]![field1]='" &
[Table1]![Field1] & "' and [table2]![field2]=3") AS Qty
FROM Table1;

quindi, se invece di usare un JOIN utilizzo una DLookUp ottengo quello che
mi serve:

ID	Field1	Qty
1	a	3
2	b	3
3	c
4	d	3
5	e	3

con la mia bella riga 'c' con valore Null

adesso si tratta di metterla in pista e vedere come aumentano i tempi di
elaborazione



title: query LEFT join

author: Potone

text:
Il giorno venerdì 14 febbraio 2020 12:55:02 UTC+1, Ammammata ha scritto:
[Cut]

Ciao,
il problema sta nel fatto che nella query originale metti una condizione (WHERE (((Items.Update)…) su un campo appartenente alla tabella di destra di una left join. Così facendo tutti i record per cui la tabella di destra non contiene dati che rispondono alla condizione (o non contiene alcun dato) verranno omessi dal risultato.
Dovresti optare per una subquery: direttamente nella Select principale (esattamente come hai fatto con la Dlookup) oppure nella From per prefiltrare la tabella Items.

Ciao
Mat.


title: query LEFT join

text:
Il 14/02/2020 12:07, Ammammata ha scritto:
> Il giorno Fri 14 Feb 2020 11:27:48a, *mantro* ha inviato su
> it.comp.appl.access il messaggio news:r25sn7$1tee$
1...@gioia.aioe.org
. Vediamo
> cosa ha scritto:
>
>> Ho provato riproducendo esattamente le tue tabelle con gli stessi dati.
>> La query funziona regolarmente visualizzando la 'c' sia che questa abbia
>> valore zero o sia null. Dà errore 'dati non corrispondenti' se il valore
>> è stringa.
>>
>> Un dubbio: sicuro che lo zero che tu vuoi visualizzare sia veramente 0?
>> Non può essere, p.e., 0,00000qualcosa che, a causa dell'arrotondamento,
>> tu vedi solo come 0? In questo caso la query, giustamente, non lo espone!
>>
>
> p.f. copia la query in SQL e scrivila qui, grazie
>
> le tabelle di esempio le ho create a mano, usando la tastiera e non
> copia/incolla da qualche altra parte
>
> lo "zero da visualizzare" non è un dato esistente visto che il record in
> table2 non esiste; zero o Null è la stessa cosa per quello che devo fare
> successivamente, l'importante è che ci sia il record 'c'
>
> ultima nota: Access è la versione 2010
>
>

SELECT table1.Field1, table2.Field2
FROM table1 INNER JOIN table2 ON table1.Field1 = table2.Field1
WHERE (((table2.Field2)=3)) OR (((Nz([table2].[Field2]))=0));

Questo è l'enunciato SQL che mi permette di visualizzare la 'c' sia a
valore 0 che nullo. Ho provato sia con Inner Join che con Left Join.

Se tolgo la funzione Nz dalla 2.a condizione Where la 'c' non viene
visualizzata quando è Null e ottengo lo stesso risultato che lamenti tu.
Se vuoi ottenere la 'c' sia con Null che con zero devi inserire la
funzione Nz oppure scrivere una terza condizione where.

WHERE (((table2.Field2)=3)) OR (([table2].[Field2])=0) OR
(IsNull(table2.field2));

A me funziona. Perché a te no? Ho access 2019, ma le non molte
applicazioni che ho sviluppato sono quasi tutte con A2010 (il mio
preferito).

La soluzione con DLookUp in una query... beh... non penso sia
consigliabile per problemi di esecuzione. Non lo dico io, ma i guru di
questo ng (quando postavano nei bei tempi passati...)


title: query LEFT join

text:
Il giorno Fri 14 Feb 2020 02:49:52p, *mantro* ha inviato su
it.comp.appl.access il messaggio news:r268i3$1ljp$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> La soluzione con DLookUp in una query... beh... non penso sia
> consigliabile per problemi di esecuzione. Non lo dico io, ma i guru di
> questo ng (quando postavano nei bei tempi passati...)
>

alla fine è quella che ho usato, i tempi si sono allungati un pochino ma
nemmeno poi tanto, in poco meno di dieci secondi ho il tabellone che mi
serve

sett prox vedo di fare qualche altra prova come suggerisci



title: query LEFT join

text:
Il giorno Fri 14 Feb 2020 02:41:01p, *Potone* ha inviato su
it.comp.appl.access il messaggio
news:09f90ba1-534d-4990...@googlegroups.com
. Vediamo cosa
ha scritto:

> il problema sta nel fatto che nella query originale metti una
> condizione (WHERE (((Items.Update)…) su un campo appartenente alla
> tabella di destra di una left join

ecco, sospettavo che ci fosse una magagna all'origine del ragionamento,
sett prox vedo se val la pena di migliorare quello che ho fatto (e che
funziona)



title: Query di accodamento e aggiornamento!

author: Massimiliano Auguadro

text:
Ho fatto una macro che esegue una query di aggiornamento e poi una query di
accodamento. Ma vorrei evitare i msg delle query che mi informano di quanti
record stanno aggiornando e accodando. Come posso fare?
Grazie!


title: Query di accodamento e aggiornamento!

author: Adriano

text:
vai nelle OPZIONI di access e togli lo spnto alle voci:
modifiche record
eliminazione documenti
query comando
le voci le trovi nella sottopagina MODIFICA/TROVA
    ESISTE ANCHE IL SISTEMA DA CODICE .... MA DEVO SEMPRE PROVARLO SE TI
INTERESSA TE LO MANDO POI !!!!
CIAO
"Massimiliano Auguadro" <
m.aug...@tin.it
> ha scritto nel messaggio
news:Obdn6.651$5N4....@twister2.tin.it...



title: Query di accodamento e aggiornamento!

text:
Massimiliano Auguadro <
m.aug...@tin.it
> wrote in message
Obdn6.651$5N4....@twister2.tin.it...

Non seguire il suggerimento di Adriano perchè è molto drastico e pericoloso.
Non puoi disattivare gli avvertimenti definitivamente solo per fare certe
query, poi ti scordi e potresti cancellare qualcosa per errore senza più gli
avvisi del sistema.
Gli avvisi vanno tolti solo per il tempo che serve e rimessi subito dopo.
Allora, da macro basta che tu precedi il lancio delle query, col comando
ImpostaAvvertimenti settato a no. Poi alla fine lo rilanci ma con parametro
sì.
Da codice si usa
docmd.setwarnings con parametri true o false.
Antonio


title: repliche di DataBase

author: vittorio

text:
Il  sw gestionale dello studio (parcelle-agenda-rubrica....) ha questa
particolarità, può
fare delle repliche che poi sincronizza ( utile per i portatili ).
Sono complicate da gestire ste repliche , o mi imbarco nell'esperimento ?
ciao


title: repliche di DataBase

author: Hp

text:
Ciao,
non piu di tanto .. devi implementare magari via VBA un algoritmo per il
sincronismo dei db  i problemi più grossi sono con i dati UNIVOCI ..
ad esempio un N di fattura è un progressivo Univoco .. il gestore
delle repliche prende per buono il piu recente tra le repliche ...
Nel tuo caso va benissimo ...
Ciao Hp
"vittorio" <
alf...@virgilio.it
> ha scritto nel messaggio
news:3d493049$1...@news.cis.it...



title: repliche di DataBase

text:
"Hp" <
nos...@tinhp.it
> ha scritto nel messaggio
news:ojb29.154074$Jj7.3...@news1.tin.it...
> Nel tuo caso va benissimo ...
Non va invece benissimo che non scrivi DOPO il quoting!!!
Antonio


title: repliche di DataBase

author: Govardo Libero

text:
"vittorio" <
alf...@virgilio.it
> ha scritto nel messaggio
news:3d493049$1...@news.cis.it...
> fare delle repliche che poi sincronizza ( utile per i portatili ).
> Sono complicate da gestire ste repliche , o mi imbarco nell'esperimento ?
> ciao
Non è complicato, tieni presente che se hai campi autoincrementanti questi
passano da incrementi progressivi a casuali.
Ciao, angelo


title: [Access 2K] Integrità referenziale e cancellazioni

author: Barzo

text:
Ciao,
ho una domandina forse stupida...
quando creo un constrain tra due tabelle in Access applicando
l'integrità referenziale, posso scegliere se aggiornare i record a
catena o eliminarli...
Ma se, a seguito di un'eliminazione del record nella tabella master,
volessi fare un SET DEFAULT o SET NULL nella tabella details?
per intenderci...c'è un modo per fare:
ALTER TABLE TBL_DETAILS ADD FOREIGN KEY (IDDETAILS) REFERENCES
TBL_MASTER(IDMASTER) ON UPDATE CASCADE ON DELETE SET DEFAULT;
tnx.
Daniele
--
Free As In Freedom
www.fsf.org


author: PBsoft

text:
> per intenderci...c'è un modo per fare:
>
> ALTER TABLE TBL_DETAILS ADD FOREIGN KEY (IDDETAILS) REFERENCES
> TBL_MASTER(IDMASTER) ON UPDATE CASCADE ON DELETE SET DEFAULT;
Credo che non sia possibile fare questo tramite l'interfaccia di Access,
ma solo tramite codice.
Prova a vedere se questo thread ti può servire:
http://groups.google.com/group/comp.databases.ms-access/browse_thread/thread/69b458cec6622ebf/8ab021061f513543?lnk=st&q=%22jet+sql%22+%22on+delete+set+null%22&rnum=1&hl=it#8ab021061f513543
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
PBsoft ha scritto:
> Credo che non sia possibile fare questo tramite l'interfaccia di Access,
> ma solo tramite codice.
>
> Prova a vedere se questo thread ti può servire:
>
http://groups.google.com/group/comp.databases.ms-access/browse_thread/thread/69b458cec6622ebf/8ab021061f513543?lnk=st&q=%22jet+sql%22+%22on+delete+set+null%22&rnum=1&hl=it#8ab021061f513543
Grazie...
Bè, la risposta è deludente: :(
Da:Brendan Reynolds
Sorry, Jet SQL has no 'on delete set Null'. You'll have to do it in code.
Ciao!



author: giorgio rancati

text:
"Barzo" <
daniele....@eurocomtel.com
> ha scritto nel messaggio
news:SmC8g.4724$b5.8...@twister2.libero.it...
> Grazie...
> Bč, la risposta č deludente: :(
>
> Da:Brendan Reynolds
>
> Sorry, Jet SQL has no 'on delete set Null'. You'll have to do it in code.
>
Ciao Barzo,
non č vero, con la versione di Jet 4.0 puoi impostare on delete set Null
nella relazione.
----
Description of the new features that are included in Microsoft Jet 4.0
http://support.microsoft.com/default.aspx?scid=kb;en-us;275561
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:4464d4c1$0$29113$5fc...@news.tiscali.it...
> "Barzo" <
daniele....@eurocomtel.com
> ha scritto nel messaggio
> news:SmC8g.4724$b5.8...@twister2.libero.it...
> > Grazie...
> > Bč, la risposta č deludente: :(
per intenderci .. la risposta non č deludente, da codice (con una
connessione ADO) o con una query di definizione dati  (da Acc 2002 in
avanti) lo puoi fare.



text:
giorgio rancati ha scritto:
> Ciao Barzo,
> non è vero, con la versione di Jet 4.0 puoi impostare on delete set Null
> nella relazione.
> ----
> Description of the new features that are included in Microsoft Jet 4.0
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;275561
> ----
>
Grazie mille Giorgio,
questa sinceramente mi era sfuggita...
Da quel che ne deduco però posso ottenere l' "ON DELETE SET NULL" solo
se creo il constraint (o la tabella) da codice, giusto? Non c'è modo di
farlo direttamente da Access2000...o mi sbaglio?
Tnx!
Daniele.
--
*******************
Free As In Freedom
-=
www.fsf.org
 =-


text:
> Da quel che ne deduco però posso ottenere l' "ON DELETE SET NULL" solo
> se creo il constraint (o la tabella) da codice, giusto? Non c'è modo
> di farlo direttamente da Access2000...o mi sbaglio?
Tutto corretto, come avevo già spiegato io nel mio primo post di risposta.
Non mi pare che sia cambiato niente nel frattempo.



text:
"Barzo" <
dba...@libero.it
> ha scritto nel messaggio
news:crm9g.8318$b5.1...@twister2.libero.it...
> giorgio rancati ha scritto:
>
> Grazie mille Giorgio,
>
> questa sinceramente mi era sfuggita...
> Da quel che ne deduco però posso ottenere l' "ON DELETE SET NULL" solo
> se creo il constraint (o la tabella) da codice, giusto? Non c'è modo di
> farlo direttamente da Access2000...o mi sbaglio?
da Access2000 bisogna creare la relazione da VBA.
però dai, è solo una riga di codice che puoi eseguire anche nella finestra
immediata di VBA :-)
-----
CurrentProject.Connection.execute "ALTER TABLE TBL_DETAILS ADD FOREIGN KEY
(IDDETAILS)  REFERENCES TBL_MASTER(IDMASTER) ON UPDATE CASCADE ON DELETE SET
NULL;"
-----



title: numero riga nell'editor vb

author: ]SiLVieTTa[

text:
mi chiedevo se fosse possibile visualizzare nell'editor di vb il numero di ogni
riga accanto ad ogni riga...
grazie
Ciao
Silvia.
--
www.silvietta.it
...everyone's invited!
Argo tu est un petit pièce de mon coeur. Souris-moi!
Roi des chiens, ma joie, tu me manqueras toujours.


title: numero riga nell'editor vb

author: MA

text:
"]SiLVieTTa["
<
silviaTOGLIQ...@studiomarketing.it
> ha
scritto nel messaggio
news:p13nf0tm51ng5sktc...@4ax.com...
> mi chiedevo se fosse possibile visualizzare
nell'editor di vb il numero di ogni
> riga accanto ad ogni riga...
> grazie
>
> Ciao
>
> Silvia.
>
Non mai se guardi in alto nell'editor puoi
visualizzare rigo e posizione
MAssimiliano


title: numero riga nell'editor vb

author: TheMax

text:
"]SiLVieTTa[" <
silviaTOGLIQ...@studiomarketing.it
> ha scritto nel
messaggio news:p13nf0tm51ng5sktc...@4ax.com...
> mi chiedevo se fosse possibile visualizzare nell'editor di vb il numero di
ogni
> riga accanto ad ogni riga...
> grazie
>
> Ciao
>
> Silvia.
Nell'editor di Vb.Net si sono resi conto di questa necessità ed è stata
introdotta...
Ogni tanto ti si rivede in giro ^__^
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: numero riga nell'editor vb

text:
]SiLVieTTa[ ha scritto:
> mi chiedevo se fosse possibile visualizzare nell'editor di vb il numero
> di ogni riga accanto ad ogni riga...
> grazie
> Ciao
> Silvia.
No ma se vuoi li puoi aggiungere a mano, come etichette:
Private Sub Esporta_Click()
1 Dim rst As DAO.Recordset, numFile As Integer, fld As Byte
2    Set rst = CurrentDb.OpenRecordset("Export conguagli")
3    numFile = FreeFile
4    Open Me.nome_file For Output As #numFile
5    With rst
6        .MoveFirst
7        While Not .EOF
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: numero riga nell'editor vb

author: Antonio Biso

text:
"]SiLVieTTa[" <
silviaTOGLIQ...@studiomarketing.it
> ha scritto nel
messaggio news:p13nf0tm51ng5sktc...@4ax.com...
> mi chiedevo se fosse possibile visualizzare nell'editor di vb il numero di
ogni
> riga accanto ad ogni riga...
Ho giusto qui una soluzione: te la porto stasera alla "Villa dei Principi",
sulla Pontina.
Alle 20.30, ok?
Antonio


title: numero riga nell'editor vb

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel
messaggio
news:w5QKc.45$1V3....@twister2.libero.it...

Ma fatevi pure i fatti vostri sul NG eh?
Tanto noi [cut] disturbiamo...
MAssimilaino


title: numero riga nell'editor vb

author: Pablitomf

text:
MA ha scritto:
> Ma fatevi pure i fatti vostri sul NG eh?
> Tanto noi [cut] disturbiamo...
> MAssimilaino
Non fare agli altri ciň che non vorresti essere fatto tu... Antň, "Colpito
e affondato" (ops! affondarti, che esperienza complicata... :-) )
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)



title: numero riga nell'editor vb

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cdgl6e$p4r$1...@news.newsland.it...
> MA ha scritto:
>
> > Ma fatevi pure i fatti vostri sul NG eh?
> > Tanto noi [cut] disturbiamo...
> > MAssimilaino
>
> Non fare agli altri ciň che non vorresti essere fatto tu... Antň, "Colpito
> e affondato" (ops! affondarti, che esperienza complicata... :-) )
Guarda che io ho risposto professionalmente alla sua richiesta, eh!
Antonio