title: ByVal e ByRef

author: Marco Lovadina

text:
Credevo di aver capito la differenza tra passaggio per valore e per
riferimento di una variabile.
Per verificarlo mi sono scritto le tre sub che riporto di seguito e con mia
sorpresa l'output della sub f e' il seguente:
dopo incrementa 5
dopo decrementa 5
mentre mi aspettavo
dopo incrementa 6
dopo decrementa 5
Qualcuno sa dirmi dove sta l'errore?
Grazie
Marco
***************************
Public Sub f()
Dim i As Byte
i = 5
incrementa (i)
Debug.Print "dopo incrementa", i
decrementa (i)
Debug.Print "dopo decrementa", i
End Sub
Public Sub incrementa(ByRef k As Byte)
k = k + 1
End Sub
Public Sub decrementa(ByVal k As Byte)
k = k - 1
End Sub


title: ByVal e ByRef

author: Expo

text:
"Marco Lovadina" <
marco.l...@iol.it
> ha scritto nel messaggio
news:MtMz6.20582$wG3.1...@news.infostrada.it...
> Credevo di aver capito la differenza tra passaggio per valore e per
> riferimento di una variabile.
> Per verificarlo mi sono scritto le tre sub che riporto di seguito e con
mia
> sorpresa l'output della sub f e' il seguente:
>
> dopo incrementa 5
> dopo decrementa 5
>
> mentre mi aspettavo
>
> dopo incrementa 6
> dopo decrementa 5
>
> Qualcuno sa dirmi dove sta l'errore?
Togli le parentesi quando chiami le sub
> incrementa (i)
incrementa i
> decrementa (i)
decrementa i


title: ByVal e ByRef

text:
"Expo" <
esp...@snet.it
> ha scritto nel messaggio
news:9ao3s1$j6k$1...@fe2.cs.interbusiness.it...

Grazie
Marco


title: Error handling per "Couldn't find file c:\database.mdb"

author: Guido Rifesser

text:
Salve,
forse qualcuno mi sa indicare come gestire l'errore (3024) che appare
quando non viene trovato il file MDB delle tabelle collegate.
Grazie in anticipo.
gigi
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Karl Donaubauer

text:
Guido Rifesser ha scritto:
> forse qualcuno mi sa indicare come gestire l'errore (3024) che appare
> quando non viene trovato il file MDB delle tabelle collegate.
Ah, bene, come esercizio provo a traduire la mia risposta dal dcdma:
Nella tua domanda manca l'oggetto (non grammaticale ma di Access ;-).
Se parli di una maschera puoi gestire l'errore nel evento "On Error"
della maschera.
Ma sia meglio di costruire l'applicazione in un modo che
quest'errore non occore mai.
vedi Access-FAQ 3.1 Tabellen wieder einbinden
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


text:
Karl Donaubauer ha scritto:
> ...
> Ah, bene, come esercizio provo a traduire la mia risposta dal dcdma:
> ...
> Ma sia meglio di costruire l'applicazione in un modo che
> quest'errore non occore mai.
sia --> sarebbe, hmm...
Sib?


text:
Salve Karl,

se gentilmente posso correggere il tuo italiano: si dice tradurre e
non traduire e un problema sorge invece di occore...
saluti



text:
Guido Rifesser ha scritto:
> > Karl Donaubauer ha scritto:
> > > ...provo a traduire...
> > > ...in un modo che quest'errore non occore mai.
> ...
> se gentilmente posso correggere il tuo italiano: si dice tradurre e
> non traduire
Certo, grazie.
> e un problema sorge invece di occore...
Sě, ma ho scritto di un _errore_ che puo "occorrere"?
--
Servus



title: messaggi ng

author: Geom. Fabio

text:
ripeto, si possono scaricare tutti i vecchi messaggi del newsgroup, qua mi
da 7000 e passa messaggi, vorrei consultarli prima di richiedere
informazioni gia dette...
grazie
se non si puo' datemi conferma perfavore,


title: messaggi ng

author: Sergio MAZZA

text:
"Geom. Fabio" <
fad...@fastwebnet.it
> ha scritto nel messaggio
news:Tz9Ng.16040$6Z1....@tornado.fastwebnet.it...

Nelle impostazioni del tuo newsreader devi indicare di scaricare, in locale,
tutto il messaggio...
Ciao.
--
Sergio MAZZA


title: messaggi ng

author: Massimo Piubelli

text:

Oltre alla risposta di sergio, ti consiglio di usare Google.
Nella voce groups, puoi usare direttamente la ricerca.
Leggere 7000 messaggi la vedo moooolto lunga ;-)
Ciao,
Max


title: esportare elenchi da access a word

author: Akery

text:
Buonasera,

vorrei che access scrivesse in un file word un intero elenco ma sto
trovando difficoltà su come scrivere lo script, non so proprio da dove
iniziare.

Avevo pensato di mettere dei segnalibri in word ma in questo modo scrivo
un solo dato, come fare per scrivere più dati come se fosse un elenco?

saluti
Akery

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


title: esportare elenchi da access a word

author: Ammammata

text:
Il giorno Thu 18 Jun 2020 08:30:48p, *Akery* ha inviato su
it.comp.appl.access il messaggio news:rcgbsm$9vj$
1...@gioia.aioe.org
. Vediamo
cosa ha scritto:

> vorrei che access scrivesse in un file word

hai provato la strada opposta?
impostare in word una stampa unione che prende i dati da access

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


title: esportare elenchi da access a word

text:
Il 19/06/2020 08:37, Ammammata ha scritto:
> Il giorno Thu 18 Jun 2020 08:30:48p, *Akery* ha inviato su
> it.comp.appl.access il messaggio news:rcgbsm$9vj$
1...@gioia.aioe.org
. Vediamo
> cosa ha scritto:
>
>> vorrei che access scrivesse in un file word
>
> hai provato la strada opposta?
> impostare in word una stampa unione che prende i dati da access
>
Sì, ma il risultato non è dei migliori, in ogni pagina mi scrive un record

mi piacerebbe ottenere una tabella come la si ottiene dai report di access



title: esportare elenchi da access a word

text:
Il giorno Fri 19 Jun 2020 10:41:56a, *Akery* ha inviato su
it.comp.appl.access il messaggio news:rchtoh$46m$
1...@gioia.aioe.org
.
Vediamo cosa ha scritto:

> Sě, ma il risultato non č dei migliori, in ogni pagina mi scrive un
> record
>

č una opzione, puoi cambiarla

prendi come esempio la stampa delle etichette, mette numerosi record per
pagina

cambi il formato etichetta, p.e. a tutta riga, e ottieni quel che ti serve



title: "Portabilità" Access

text:
Salve a tutti,
avrei bisongo di un vostro consiglio visto che non posso avere un
miracolo...
Come mai il mio bel Bd che funzionava bene con Access 2007 e
discretamente con
l'Access 2003 dei pc dell'ufficio in qui l'ho inserito, non funziona
sul mio notebook in cui
ho installato da poco lo stesso Office 2003 che è in ufficio?
In pratica tutti gli oggetti che hanno un filtro (maschere, combo,
macro) hanno dato di matto
(sempre e solo sul mio notebook). Ho notato che per far riapparire
l'elenco di una combo2 associata a Combo1
ho dovuto modificare il filtro. Mentre prima funzionava il filtro
tblProdottoDichiarato.CategoriaMerceologica=Forms!frmAccettazione!
SottomascheraCampione!cboCategoriaMerceologica
ora ogni volta che ho a che fare con filtro che si riferisce a una
sottomaschera devo aggingere .Form!.
Così per vedere l'elenco della combo ho dovuto modificare il filtro in
questo modo
tblProdottoDichiarato.CategoriaMerceologica)=Forms!frmAccettazione!
SottomascheraCampione.Form!cboCategoriaMerceologica
1) Perché succede?
2) Esiste una nomenclatura universalmente leggibile? sapete
consigliarmi indirizzi libri x documentarmi?
3) Mi assicurano una maggiore leggibilità le macro o le routine
associate?
4) Se  modifico tutto (aaaaaaaaaaaaa) in modo che funzioni
correttamente sul mio notebook, rischio che
una volta installato nei pc dell'ufficio non funzioni?
Grazie


title: "Portabilità" Access

author: Marco Pizzamiglio

text:
Elena_Elena ha scritto:


> tblProdottoDichiarato.CategoriaMerceologica=Forms!frmAccettazione!
> SottomascheraCampione!cboCategoriaMerceologica

> tblProdottoDichiarato.CategoriaMerceologica)=Forms!frmAccettazione!
> SottomascheraCampione.Form!cboCategoriaMerceologica

> Grazie
Verifica di avere installato l'ultimo service pack, office 2003 aveva
problemi al primo rilascio.
Di siti ne trovi parecchi, se vuoi sul sito di Karl
http://www.donkarl.com/it/
 trovi un elenco di FAQ brevi e concise che ti
possono dare parecchie notizie interessanti.
Sul
www.sitocomune.com
, sul sito di Alex
www.alessandrobaraldi.it
 o su
quello di Lebans
www.lebans.com
 trovi parecchi esempi di codice. Ce ne
sono altri, cercali, anche tramite i link che trovi sui siti che ho citato.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Casella Combinata veramente strana

author: elicar

text:
Salve a tutto il N.G. e ben ritrovati
per favore chi puň aiutarmi  nel risolvere un problema con una Combo Box,
spero di farmi capire.
Il comportamento normale di una Combo Box dovrebbe essere p.e. se da un
elenco (di N. Record) aperto digito la lettera [R] l'elenco dovrebbe
posizionarsi sul primo record che trova della lettera R.. facendo invio
inserisce il dato selezionato nel campo e cosě via.
A me succede questo: apro l'elenco vado per digitare la lettera
corrispondente per richiamare l'elenco, una volta aperta pur digitando p.e.
la [R] l'elenco non si muove, ma se faccio scorrere l'elenco seleziono il
record viene inserito.
Spero di essermi fatto capire.
--
Carlo
:)


title: Casella Combinata veramente strana

text:
elicar wrote:
> ...
> Il comportamento normale di una Combo Box dovrebbe essere p.e. se da
> un elenco (di N. Record) aperto digito la lettera [R] l'elenco
> dovrebbe posizionarsi sul primo record che trova della lettera R..
> facendo invio inserisce il dato selezionato nel campo e così via.
>
> A me succede questo: apro l'elenco vado per digitare la lettera
> corrispondente per richiamare l'elenco, una volta aperta pur
> digitando p.e. la [R] l'elenco non si muove, ma se faccio scorrere
> l'elenco seleziono il record viene inserito.
Controlla se la proprietà "Espansione automatica" della casella
è impostato a "Sì".
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Casella Combinata veramente strana

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:4k3l6nF...@individual.net...

>purtroppo Il controllo Espansione automatica é impostato su "Si"
Cmq ti ringrazio
Carlo
;)


title: Casella Combinata veramente strana

text:
"elicar" <
carlog...@tiscali.it
> ha scritto nel messaggio news:44dd9302$0$1012$5fc...@news.tiscali.it...
>purtroppo Il controllo Espansione automatica é impostato su "Si"
> Cmq ti ringrazio
>
> Carlo
> ;)
Controlla che non ci siano spazi davanti al primo carattere (es. "  Roberto")...
Ciao.
--
Sergio MAZZA


title: Casella Combinata veramente strana

author: Alessandro Cara

text:

Come si suol dire. Se una cosa non funziona controlla che sia attaccata
la spina ;<)
--
ac


title: Casella Combinata veramente strana

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ebk4k2$o23$1...@area.cu.mi.it...

Sergio ti ringrazio per il tuo suggerimento avevo nell'elenco lo spazio
iniziale (ho imparato un'altra cosa che non sapevo )
:)))


title: Casella Combinata veramente strana

text:
"Alessandro Cara" <
al...@puntablunet.it
> ha scritto nel messaggio news:OFiDg.19877$ZJ6....@tornado.fastwebnet.it...
> Come si suol dire. Se una cosa non funziona controlla che sia attaccata
> la spina ;<)
> --
> ac
Eh! Eh! Questa mi mancava...
Ciao.
--
Sergio MAZZA


title: TipoOrigineRiga in un formato funzione personalizzato.

author: Thierry REGA

text:
Come consigliato giorni fà, mi sono incimentato nelle funzioni
personalizzate da mettere in TipoOrigineRiga.
Come prima prova, per non sbagliare, ho messo la funzione di esempio
ElencoMDB nel TipoOrigineRiga di una Combo.
Adesso il problema, che non riesco a risolvere, è come vedere il contenuto
senza che mi dia un messaggio di errore. Ho provato con un docmd.requery
"nomedellacomboinquestione" ma mi dice: "L'espressione SuInvio immessa come
impostazione della proprietà di evento ha provocato il seguente errore:
variabile non definita.".
Il commando l'ho messo appunto su SuInvio. Come dall'help, ho scritto solo
il nome della funzione nella casella TipoOrigineRiga.
Lo so che un requery dovrebbe servire solo per le query vere, ma speravo che
facesse un Refresh generico e che avrebbe capito. Quindi come si fà?
Grazie
Thierry


author: Thierry Rega

text:
Siete fortunati! Non avete più bisogno di fare la fila per rispondermi: ho
risolto il problema:-DD
Thierry


author: lbo dal portatile

text:
>Come consigliato giorni fà, mi sono incimentato nelle funzioni
>personalizzate da mettere in TipoOrigineRiga.
>Come prima prova, per non sbagliare, ho messo la funzione di esempio
>ElencoMDB nel TipoOrigineRiga di una Combo.
mi sa che confondi tipoorigine (rowsourcetype) con origineriga
(rowsource).
rowsource e' da dove si prendono i dati, rowsourcetype e' il tipo di
insieme di dati dal quale si pesca.
ad es. per le combo rowsourcetype puo' essere una tabella o un elenco
di valori (quindi una stringa) separati da un punto e virgola
ciascuno: "primo;secondo;terzo;".
per passare un valore via codice a rowsourcetype puoi usare le
espressioni stringa "Table/query" o "Value list" (le ho verificate
nella finestra di debug).
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


text:
> mi sa che confondi tipoorigine (rowsourcetype) con origineriga
> (rowsource).
>
> rowsource e' da dove si prendono i dati, rowsourcetype e' il tipo di
> insieme di dati dal quale si pesca.
>
> ad es. per le combo rowsourcetype puo' essere una tabella o un elenco
> di valori (quindi una stringa) separati da un punto e virgola
> ciascuno: "primo;secondo;terzo;".
>
> per passare un valore via codice a rowsourcetype puoi usare le
> espressioni stringa "Table/query" o "Value list" (le ho verificate
> nella finestra di debug).
Sě grazie per la premura, ma in realtŕ non avevo confuso niente :-)
E' solo che per poter mettere una lista di valori un pň grande (perlomeno
piů di 2048 bytes che č il limite in RowSource con tutti sti ';') bisogna
mettere in RowSourceType proprio il nome di una funzione speciale (guardare
help a TipoOrigineRiga) che dia la lista dei valori costruendola a partire
della funzione.
In questo modo hai piena libertŕ di costruzione delle combo e list boxes
vari! Senza contare che questa funzione speciale la puoi generalizzare
facilmente per usarla per tutti i combo e list che vuoi!
L'unico problema e che mentre la provavo avevo fatto qualche "errorino" di
battitura e di conteggio delle righe per cui non vedevo il risultato oppure
mi dava un messaggio di errore.
Per il resto, una volta che controlli i parametri che definiscono una combo
o una list per la gestione delle righe e colonne con i loro contenuti,
allora ci sguazzi a meraviglia :-D
Ciao
Thierry


title: Trova un campo in tutte le tabelle

text:
Avrei bisogno di ricercare un campo in tutte le tabelle presenti nel
mio database in Access Xp.
Questo è possibile, o bisogna armarsi di santa pazienza e usare il
trova all'interno di ogni singola tabella?
Mi risparmiereste un bel po' di tempo!
Grazie a tutti!


title: Trova un campo in tutte le tabelle

text:

A mente fredda; farei un ciclo per tutte le tabelle contenute nell'insieme
TableDefs (vedi help) facendomi restituire i nomi dei campi contenuti in
ogni TableDef...
Ciao.
--
Sergio MAZZA


title: Come stampare un report senza nessun ordinamento

text:
chiedo questo questo perché dopo ore spese a trovare la soluzione mi sono
arreso ;)
Avrei la necessità di stampare un report senza nessun ordinamento, mi
spiego,
dopo che ho inserito un ordine tramite un form, vorrei stamparlo in un
report cosi come é stato inserito. é possibile farlo?
FORZA AZZURRI
--
Carlo
:)


author: sv

text:
elicar ha scritto:

Se c'è un ID, in struttura del report, menu Visualizza-->Ordinamento e
Raggruppamento metti crescente l'ID.
> FORZA AZZURRI
--
Salvino
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
elicar ha scritto:

Sulla query che sta dietro al report imposta l'ordinamento crescente
sul campo contatore.


text:
BR1 ha scritto:
> elicar ha scritto:


Al report non interessa quello che fai nella query a riguardo
dell'ordinamento... in quanto utilizzano query intermedie.
Vedi:
http://www.donkarl.com/it/
FAQ 5.10



text:
"sv" <
salv...@nosp.accessgroup.it
> ha scritto nel messaggio
news:e8e1am$gub$1...@news.newsland.it...

>grazie per l'aiuto ma purtroppo mi dovro accontentare.
grazie per l'aiuto
Carlo
:)


title: Caricamento recordset in una matrice

author: Massimo

text:
Salve,
Sto cercando di caricare un recordset in un vettore, per poi usare il
vettore stesso come fonte per una query con parametri
La tabella da caricare (tCDC) è un elenco di centri di costo, in pratica
carico solo il primo record (cioè rs(0)= 3100) e poi si blocca dicendomi che
"item not found in this collection, run time error 3265". Quello che non
riesce a trovare è rs(i)
Cosa posso fare?
Questo è il codice..
Grazie.
Max
Dim RsSql As String
Dim CurrentValue As Variant
Dim CurrentField As Variant
Set DB = DBEngine.Workspaces(0).Databases(0)
      RsSql = "SELECT tCDC.cdc FROM tCDC;"
      Set Rs = DB.OpenRecordset(RsSql, DB_OPEN_DYNASET)
      Rs.MoveLast
      numRec = Rs.RecordCount
      Rs.MoveFirst
          For i = 0 To numRec
              CurrentField = Rs(i)
          Rs.MoveNext
          Next i


title: operazione con date

author: tonidrummer

text:
Ciao a tutti.
Come posso fare per far apparire in una maschera un controllo "ordine
estivo" se una certa data di un campo "consegna" è compresa tra 01/01
DI OGNI ANNO  e 31/08?
Mi sono scervellato in tutte le combinazioni possibili con il
cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
calato le braccia....
Grazie.
Toni


title: operazione con date

text:
"tonidrummer" <
tonia...@fastwebnet.it
> ha scritto nel messaggio
news:606bf4b7-9b56-4408...@j18g2000prm.googlegroups.com...
Ciao a tutti.
Come posso fare per far apparire in una maschera un controllo "ordine
estivo" se una certa data di un campo "consegna" � compresa tra 01/01
DI OGNI ANNO  e 31/08?
Mi sono scervellato in tutte le combinazioni possibili con il
cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
calato le braccia....
Grazie.
Toni
Toni
cos� al volo
Inserisci nella mask un'etichetta
Dopo aggiornamento
Dim inizio As Date
inizio = #1/1/2009#
Dim Fine As Date
Fine = #31/8/2009#
If Me.Consegna > inizio Then
Me.Etichetta1.Caption = "Ordine estivo"
ElseIf Me.Consegna < Fine Then
Me.Etichetta1.Caption = "Ordine estivo"
End If
Perch� il risultato sia uguale anche per gli anni 2008 o 2010 etc
si potrebbe formattare la data con #01/01/aa#
o qualcosa del genere.
Ciao


title: operazione con date

author: max

text:
"Mr.Quid" <
elsaco...@libero.it
> ha scritto nel messaggio
news:49f9664d$0$1114$4faf...@reader4.news.tin.it...

se le date sono quelle e comprendono gli interi mesi da gennaio ad agosto
If month(Me.Consegna) > 8 Then
Me.Etichetta1.Caption = "Ordine estivo"
 End If
ciao
Max


title: operazione con date

text:
tonidrummer wrote:
> Come posso fare per far apparire in una maschera un controllo "ordine
> estivo" se una certa data di un campo "consegna" � compresa tra 01/01
> DI OGNI ANNO  e 31/08?
> Mi sono scervellato in tutte le combinazioni possibili con il
> cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
> calato le braccia....
Origine controllo di una casella di testo:
=iif(Month(consegna)<9;"ordine estivo")
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: operazione con date

text:
On 1 Mag, 14:23, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> tonidrummer wrote:
> > Come posso fare per far apparire in una maschera un controllo "ordine
> > estivo" se una certa data di un campo "consegna" è compresa tra 01/01
> > DI OGNI ANNO  e 31/08?
> > Mi sono scervellato in tutte le combinazioni possibili con il
> > cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
> > calato le braccia....
>
> Origine controllo di una casella di testo:
>
> =iif(Month(consegna)<9;"ordine estivo")
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Ciao. Ho provato ma mi dice che è possibile che sia stato immesso un
operando senza un operatore...


title: operazione con date

text:
On 30 Apr, 16:34, "max" <
pi...@pippo.it
> wrote:
> "Mr.Quid" <
elsacolfa...@libero.it
> ha scritto nel messaggionews:49f9664d$0$1114$4faf...@reader4.news.tin.it...
>
>
>
>
>
> > "tonidrummer" <
toniaven...@fastwebnet.it
> ha scritto nel messaggio
> >news:606bf4b7-9b56-4408...@j18g2000prm.googlegroups.com...
> > Ciao a tutti.
> > Come posso fare per far apparire in una maschera un controllo "ordine
> > estivo" se una certa data di un campo "consegna" è compresa tra 01/01
> > DI OGNI ANNO  e 31/08?
> > Mi sono scervellato in tutte le combinazioni possibili con il
> > cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
> > calato le braccia....
> > Grazie.
> > Toni
>
> > Toni
> > così al volo
> > Inserisci nella mask un'etichetta
>
> > Dopo aggiornamento
> > Dim inizio As Date
> > inizio = #1/1/2009#
> > Dim Fine As Date
> > Fine = #31/8/2009#
>
> > If Me.Consegna > inizio Then
> > Me.Etichetta1.Caption = "Ordine estivo"
> > ElseIf Me.Consegna < Fine Then
> > Me.Etichetta1.Caption = "Ordine estivo"
> > End If
>
> > Perchè il risultato sia uguale anche per gli anni 2008 o 2010 etc
> > si potrebbe formattare la data con #01/01/aa#
> > o qualcosa del genere.
> > Ciao
>
> se le date sono quelle e comprendono gli interi mesi da gennaio ad agosto
> If month(Me.Consegna) > 8 Then
> Me.Etichetta1.Caption = "Ordine estivo"
>  End If
> ciao
> Max- Nascondi testo citato
>
> - Mostra testo citato -
Ciao. Intanto grazie.
Ho inserito il seguente evento:
If month(Me.DATA CONSEGNA) > 8 THEN
ma mi dice "errore di compilazione" " errore di sintassi"


title: operazione con date

text:
On 30 Apr, 10:50, "Mr.Quid" <
elsacolfa...@libero.it
> wrote:
> "tonidrummer" <
toniaven...@fastwebnet.it
> ha scritto nel messaggionews:606bf4b7-9b56-4408...@j18g2000prm.googlegroups.com...
> Ciao a tutti.
> Come posso fare per far apparire in una maschera un controllo "ordine
> estivo" se una certa data di un campo "consegna" è compresa tra 01/01
> DI OGNI ANNO  e 31/08?
> Mi sono scervellato in tutte le combinazioni possibili con il
> cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
> calato le braccia....
> Grazie.
> Toni
>
> Toni
> così al volo
> Inserisci nella mask un'etichetta
>
> Dopo aggiornamento
> Dim inizio As Date
> inizio = #1/1/2009#
> Dim Fine As Date
> Fine = #31/8/2009#
>
> If Me.Consegna > inizio Then
> Me.Etichetta1.Caption = "Ordine estivo"
> ElseIf Me.Consegna < Fine Then
> Me.Etichetta1.Caption = "Ordine estivo"
> End If
>
> Perchè il risultato sia uguale anche per gli anni 2008 o 2010 etc
> si potrebbe formattare la data con #01/01/aa#
> o qualcosa del genere.
> Ciao
Ciao Mr.quid
Ma quello che mi dici è un po' ovvio (forse non è la definizione
esatta), nel senso che la data consegna è SEMPRE > di inizio e < di
fine e quindi il titolo etichetta è sempre ordine estivo?
Mi servirebbe forse un between 2 date oppure if > inizio and <fine...
boh!
Grazie comunque
Toni


title: operazione con date

text:
On 1 Mag, 14:23, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> tonidrummer wrote:
> > Come posso fare per far apparire in una maschera un controllo "ordine
> > estivo" se una certa data di un campo "consegna" è compresa tra 01/01
> > DI OGNI ANNO  e 31/08?
> > Mi sono scervellato in tutte le combinazioni possibili con il
> > cancelletto, senza cancelletto, con parentesi e senza, ecc ecc, ma ho
> > calato le braccia....
>
> Origine controllo di una casella di testo:
>
> =iif(Month(consegna)<9;"ordine estivo")
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Trovata la soluzione. Era solo un errore di sintassi.
La frase giusta è:
If month(Me.[DATA CONSEGNA]) > 8 THEN
mancavano le parentesi quadre in quanto il campo ha 2 parole come
titolo.
Grazie.....
...ma non finisce qui.... :-)


title: Registrazione del nome utente su ogni record modificato dallo stesso

author: PLOLLO

text:
Salve ragazzi,
sto facendo un database per il magazzino, però siccome gli operatori saranno
parecchi avrei bisogno di tener traccia di chi compie l'operazione di
modifica.
Nei precedenti messaggi ho letto di una funzione:
environ"getusername" ma non ho capito dove la devo inserire per fare in modo
di far apparire il nome utente.
Se è da inserire nel modo, c'è una buon anima che mi scriverebbe le
istruzioni....in quanto purtroppo non sono molto preparato nel linguaggio di
programmazione di access.....
Grazie anticipato
Pierpaolo
--


author: TANNHAUSER

text:
PLOLLO ha scritto:



> Grazie anticipato
> Pierpaolo
> --
Prova a cercare (con Google, ad esempio) "getusername" in questo newsgroup
e avrai di che passare il tempo con le risposte ed i riferimenti.
Ciao,
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: ALESSANDRO Baraldi

text:
"TANNHAUSER" <
tannauserDEL...@virgilio.it
> ha scritto nel
messaggio news:cipbf9$bhh$1...@news.newsland.it...
> PLOLLO ha scritto:
>
> > Salve ragazzi,
> > sto facendo un database per il magazzino, però siccome gli operatori
saranno
> > parecchi avrei bisogno di tener traccia di chi compie l'operazione di
> > modifica.
>
> > Nei precedenti messaggi ho letto di una funzione:
> > environ"getusername" ma non ho capito dove la devo inserire per fare in
modo
> > di far apparire il nome utente.
>
> > Se è da inserire nel modo, c'è una buon anima che mi scriverebbe le
> > istruzioni....in quanto purtroppo non sono molto preparato nel
linguaggio di
> > programmazione di access.....
>
> > Grazie anticipato
> > Pierpaolo
>
> > --
>
>
> Prova a cercare (con Google, ad esempio) "getusername" in questo newsgroup
> e avrai di che passare il tempo con le risposte ed i riferimenti.
> Ciao,
>
> TANNHAUSER
Questa soluzione potrebbe non essere adeguata se non viene usato il Login
di Windows, ma un Login ad utenti stabiliti da un File.Mdw, oppure si
potrebbe voler
lasciare ogni PC libero, potrebbe non essere un PC personale.......!
In oltre non spiega, cosa sostanziale, che il progetto deve crescere con
l'ottica in questione.
In modo molto semplicistico potrei dirti che con una buona gestione Utenti
non necessariamente fatta con protezione a livello utente, riesci a
registrare
l'Utente che si Logga, e quì co sono vari metodi:
1)Variabili Globali quella più semplice
2)Gestire una Classe che realizza gran parte della gestione Utenti(io faccio
così)
Si tratta di intercettare l'eveto BeforeUpate e/o Dirty(per versioni>=2000)
di Form
e verificare la proprietà Dirty(tutte le versioni), quindi inserire i dati
relativi e necessari
per individuare quanto necessario:
Data/Ora Modifica
Cosa è stato modificato
ecc.....!
Ho solo volutop fare una breve panoramica..... l'argomento è decisamente
AMPIO
e tutt'altro che banale.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
Grazie per i preziosissimi consigli...peccato non possa ricambiare sulla
stessa materia.
Pierpaolo
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cipj9i$jlv$1...@lacerta.tiscalinet.it...



text:
Grazie per il suggerimento.
Pierpaolo
"TANNHAUSER" <
tannauserDEL...@virgilio.it
> ha scritto nel
messaggio news:cipbf9$bhh$1...@news.newsland.it...



title: Curiosita': nome applicazione

author: lbo dal lavoro (ogni tanto...)

text:
se si imposta il nome dell'applicazione tramite opzioni, avvio ecc.
succede una cosa strana.
tentando di aprire con access 2000 un file fatto con access 97 si
ottiene il messaggio "... il db è stato creato con una versione
precedente di [nome applicazione]..." anziché "...una versione
precedente di Access...".


title: Curiosita': nome applicazione

author: Sergio MAZZA

text:
"lbo dal lavoro (ogni tanto...)" <
l...@NOSPAM.blunet.it
> ha scritto nel
messaggio news:399ba9b5...@news.flashnet.it...

Uhao! Con Access 2000 hanno inserito la "compatibilità binaria"??
Ciao.


title: Curiosita': nome applicazione

author: CDM

text:
UAO!!!
lbo fà una domanda!!!!
lbo dal lavoro (ogni tanto...) <
l...@NOSPAM.blunet.it
> wrote in message



title: Curiosita': nome applicazione

text:
>UAO!!!
>lbo fà una domanda!!!!
veramente era un'affermazione.
ti sei ricordato di patchare o sostituire il tuo outlook?  spezza i
thread...


title: Curiosita': nome applicazione

author: Sib

text:
"lbo dal lavoro (ogni tanto...)"
[cut]
"(ogni tanto...) nel senso che "ogni tanto scrivi quando sei al lavoro"
oppure che "ogni tanto sei anche al lavoro"?
|-)
Sib


title: Curiosita': nome applicazione

text:
>"(ogni tanto...) nel senso che "ogni tanto scrivi quando sei al lavoro"
>oppure che "ogni tanto sei anche al lavoro"?
la seconda che hai detto.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Dimensione parametro

author: Fabio

text:
Ripropongo la domanda che si era persa nei meandri di un mio precedente 3d.
E' possibile che una Stored Procedure mi accetti come lunghezza massima di
un parametro (dichiarato varchar(1000)) una stringa di max 255 caratteri?
Grazie, FABIO


title: Dimensione parametro

author: Antonio Ganci

text:
Fabio wrote:
> E' possibile che una Stored Procedure mi accetti come lunghezza
> massima di un parametro (dichiarato varchar(1000)) una stringa di max
> 255 caratteri?
>
Qualche dettaglio su come passi il parametro? O devo fare tutte le ipotesi
possibili?
Antonio.


title: Dimensione parametro

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
> Qualche dettaglio su come passi il parametro? O devo fare tutte le ipotesi
> possibili?
> Antonio.
>
La stored procedure č una semplice istruzione SELECT, solo che non potevo
usare una query visto che ho dei campi calcolati con CASE, CAST, ecc.
All'interno ho dichiarato una variabile di tipo VARCHAR(1000) che non č
altro che l'istruzione SQL.
Il parametro che gli passo č la clausola WHERE che viene calcolata in base
ai valori dei controlli in una maschera e, se il parametro non č nullo, lo
concateno all'istruzione SELECT per poi eseguirla con EXEC (@strSQL.)
La sintassi della clausola WHERE č corretta, tant'č che se faccio una
ricerca con pochi campi la SP viene eseguita correttamente ma quando ho
provato a mettere qualche campo in piů la SP in apertura mi ha chiesto il
valore di un parametro con un nome che cominciava come l'inizio della
stringa che gli passavo (non so se mi sono spiegato ma č cosě).
Ho provato a mettere la stringa where su una text box e l'ho copiata negli
appunti ma anche eseguendo manualmente la SP, quando mi chiede il valore del
parametro @strFiltro io gli faccio un "Incolla" e lui mi incolla solo i
primi 255 caratteri.
Ho provato anche ad aprire la maschera impostargli la proprietŕ recordsource
a "EXEC stpElencoVisite " & strWhere (naturalmente ho provato anche a
mettere e togliere i doppi apici per delimitare la stringa)
Boh adesso non so bene che test effettuare, vedi se ti viene in mente
qualcosa e scusa il 3d cosě lungo.
Fabio


title: Dimensione parametro

text:
Fabio wrote:
> "Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel
> messaggio
[CUT]
> Il parametro che gli passo è la clausola WHERE che viene calcolata in
> base ai valori dei controlli in una maschera e, se il parametro non è
> nullo, lo concateno all'istruzione SELECT per poi eseguirla con EXEC
> (@strSQL.)
[CUT]
Un'idea cosi' al volo, perche' non provi a crearti piu' parametri:
var1, var2, var3 e poi li concateni all'interno della store-procedure?
In modo che var1, var2, var3 non superino i 255 caratteri.
Fammi Sapere.
Antonio.


title: Dimensione parametro

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:alaa8u$ogn$1...@newsreader.mailgate.org...
> Fabio wrote:
>
> > "Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel
> > messaggio
> [CUT]
> > Il parametro che gli passo č la clausola WHERE che viene calcolata in
> > base ai valori dei controlli in una maschera e, se il parametro non č
> > nullo, lo concateno all'istruzione SELECT per poi eseguirla con EXEC
> > (@strSQL.)
> [CUT]
>
> Un'idea cosi' al volo, perche' non provi a crearti piu' parametri:
> var1, var2, var3 e poi li concateni all'interno della store-procedure?
> In modo che var1, var2, var3 non superino i 255 caratteri.
>
> Fammi Sapere.
> Antonio.
>
>
Ho gią provato ma non funziona e purtroppo non riesco a capire neanche
perchč visto che non si puņ fare neache un Debug. Se vuoi posso postare
qualche frammento di codice e una versione "ridotta" della SP.
Quello che non riesco a capire č: come fanno gli altri? Tu ad esempio come
affronteresti una problematica come la mia che mi sembra proprio la base per
un programmino gestionale?
Fabio


title: errore a run time '-2147217904(80040e10)

author: Francesca Chiarelli

text:
la seguente routine:
Public Sub Storicizza(strWhere As String)
Dim bolStop As Boolean
Dim strCognome As String
Dim strNome As String

Dim rstAdd As ADODB.Recordset
Dim rstDisp As ADODB.Recordset
Dim rstStor As ADODB.Recordset

  Set rstAdd = New ADODB.Recordset
  Set rstDisp = New ADODB.Recordset
  Set rstStor = New ADODB.Recordset

  'MsgBox "SELECT * FROM qrStoricoAssegnazioni_Rst WHERE
dataInizioServizio <= #" & dtData & "# AND AGS = " & lngAGS
    rstAdd.Open "tbAddetti", CurrentProject.Connection, adOpenStatic,
adLockPessimistic
    rstDisp.Open "SELECT * FROM qrStoricoAssegnazioni_Rst " &
strWhere, CurrentProject.Connection, adOpenStatic, adLockPessimistic
    rstStor.Open "tbStorico", CurrentProject.Connection, adOpenStatic,
adLockPessimistic

    rstAdd.MoveFirst
    Do Until rstAdd.EOF
        intSearch = rstAdd.Fields("idAddetto")
        strCognome = Nz(rstAdd.Fields("cognomeAddetto"))
        strNome = Nz(rstAdd.Fields("nomeAddetto"))
        rstDisp.MoveFirst
        'Do Until bolStop = True
        rstDisp.Find "idAddetto = " & intSearch
        If Not rstDisp.EOF Then
            rstStor.AddNew
            rstStor.Fields("idAddetto") = rstDisp.Fields("idAddetto")
            rstStor.Fields("ADDETTO") = strCognome & " " & strNome
            rstStor.Fields("SEDE") = rstDisp.Fields("SEDE")
            rstStor.Fields("turno") = rstDisp.Fields("turno")
            rstStor.Fields("AGS") = rstDisp.Fields("idAssistente")
            rstStor.Update
        End If
        'Loop
        rstAdd.MoveNext
    Loop

  rstAdd.Close
  rstDisp.Close
  rstStor.Close

  Set rstAdd = Nothing
  Set rstDisp = Nothing
  Set rstStor = Nothing

End Sub

chiamata da quest'altra:

Private Sub txtFiltroData_AfterUpdate()
Dim strWhere As String

    DoCmd.Echo False
    If Not IsNothing(Me!txtFiltroData) And Not
IsNothing(lngIdAssistente) Then
        strWhere = "WHERE dataInizioServizio <= #" & Me!txtFiltroData
& "# AND AGS = " & lngIdAssistente
        Call Storicizza(strWhere)
        Me.RecordSource = "tbStorico"
    Else
        MsgBox "Devi selezionare data e assistente"
    End If
    DoCmd.Echo True
End Sub

mi dà l'errore:
"errore a run time '-
2147217904
(80040e10) nessun valore specificato
per alcuni parametri necessari"
sono tre giorni che cerco di venirci a capo. Qualcuno mi può aiutare,
per favore?


text:
il debug punta su questa riga:



text:
....
Perchè usi ADO con Access...? Si tratta di ADP o è una scelta tua...?
Se devi aggiungere dei Records perchè invece di perdere tempo a
ciclare non fai una Query INSERT escludendo i Records già presenti...?
In tutti i modi se non metti una gestione ERRORI non troverai mai il
problema... fai un PASSO-PASSO inserendo una gestione errori seria
e vedrai che trovi l'inghippo.
@Alex


text:
On 11 Set, 21:57, Francesca Chiarelli

Siccome costruisci la stringa esternamente, devi convertire in formato
Anglosassone altrimenti non otterrai nulla..

strWhere = "WHERE dataInizioServizio <= #" & Format(Me!
txtFiltroData,"mm/dd/yyyy") & "# AND AGS = " & lngIdAssistente

Rifletti su ADO...

@Alex


text:

niente da fare, continua a darmi lo stesso errore sulla stessa riga.
ho letto alcuni tuoi post (DAO vs ADO). Ok, però oglio capire perché
non funziona, e poi passo a fare la stessa cosa con DAO..


author: Geppo

text:
Ciao "Francesca Chiarelli" <
francesca....@gmail.com
> ha scritto nel
messaggio
news:48c3185e-20b9-40bf...@r21g2000yqr.googlegroups.com...

_______

forse l'errore sta nelle variabili/tipo di dati, sei sicura ad esempio che
"AGS" è di tipo numerico? Altrimenti alla variabile "lngIdAssistente"
mancano le ':

 strWhere = "WHERE dataInizioServizio <= #" & Format(Me!
 txtFiltroData,"mm/dd/yyyy") & "# AND AGS = '" & lngIdAssistente &"'"

--
Ciao
Geppo


text:
On 11 Set, 22:10, Francesca Chiarelli

Purtroppo solo tu puoi verificare che la sintassi della stringa sia
corretta...
Io di solito per testare se la Query è corretta COPIO un Debug.Print e
lo metto in una Query da QBE... mi tolgo ogni dubbio.

@Alex


author: Karl Donaubauer

text:
Francesca Chiarelli wrote:
> ...
>     rstDisp.Open "SELECT * FROM qrStoricoAssegnazioni_Rst " &
> strWhere, CurrentProject.Connection, adOpenStatic, adLockPessimistic
> ...
> chiamata da quest'altra:
> ...
>         strWhere = "WHERE dataInizioServizio <= #" & Me!txtFiltroData
> & "# AND AGS = " & lngIdAssistente
> ...
> mi dà l'errore:
> "errore a run time '-
2147217904
(80040e10) nessun valore specificato
> per alcuni parametri necessari"
> ...

Cosa succede se tenta di aprire il recordset senza strWHERE?

rstDisp.Open "SELECT * FROM qrStoricoAssegnazioni_Rst ", & _
 CurrentProject.Connection, adOpenStatic, adLockPessimistic

Se anche questo ti dà il messaggio, vuol dire che il problema
si trova già nella qrStoricoAssegnazioni_Rst.

In questo caso posta la sua stringa SQL e leggi

http://www.donkarl.com/it?FAQ6.4

Il problema è lo stesso con DAO e ADO.

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


text:
ok ok, sono passata a DAO. E' la prima volta che lo uso (sui manuali
si usa sempre ADO). Ho cambiato il codice come segue (senza successo
per i miei scopi):
Public Sub Storicizza2(strWhereData As String, strWhereAGS As String,
lngIdAssistente As Long)
'On Error GoTo errTrap
Dim db As Database
Dim qdfAddAZ As QueryDef
Dim rstAddAZ As Recordset
Dim rstUltimaAssegnazioneEntroData As Recordset
Dim qdfDispEntroData As QueryDef
Dim rstDispEntroData As Recordset
Dim rstDispSelezione As Recordset
Dim qdfDispAGS As QueryDef
Dim rstDispAGS As Recordset
Dim rstStor As Recordset
Dim strSqlAddAZ As String
Dim strSqlDatazioneDisp As String
Dim intSearch As Long
Dim strCognome As String
Dim strNome As String
Dim strOrdina As String
    Set db = CurrentDb
    ' Open table-type recordset
    strSqlAddAZ = "SELECT * FROM tbAddetti ORDER BY cognomeAddetto
ASC"
    Set qdfAddAZ = db.CreateQueryDef("Add", strSqlAddAZ)
    Set rstAddAZ = db.OpenRecordset("Add") 'recordset con gli addetti
in ordine alfabetico
    'strOrdina = "SELECT * FROM qrStoricoAssegnazioni_Rst " &
strWhereAGS '& " ORDER BY ADDETTO ASC"
    'Set qdfDispAGS = db.CreateQueryDef("DispAGS", strOrdina)
    'Set rstDispAGS = db.OpenRecordset("DispAGS")
    'Set rstDispSelezione = db.OpenRecordset("tbDisp")
    strOrdina = "SELECT * FROM qrStoricoAssegnazioni_Rst " &
strWhereData '& " ORDER BY ADDETTO ASC"
    Set qdfDispEntroData = db.CreateQueryDef("DispEntroData",
strOrdina)
    Set rstDispEntroData = db.OpenRecordset("DispEntroData")
    Set rstUltimaAssegnazioneEntroData =
db.OpenRecordset("UltimaAssegnazioneEntroData")
    Set rstStor = db.OpenRecordset("tbStorico")
    rstAddAZ.MoveFirst
    Do Until rstAddAZ.EOF
        intSearch = rstAddAZ!idAddetto
        rstDispEntroData.MoveFirst
        rstDispEntroData.FindFirst "idAddetto = " & intSearch
        If rstDispEntroData.NoMatch Then
            rstDispEntroData.MoveFirst
            rstAddAZ.MoveNext
        Else
            rstUltimaAssegnazioneEntroData.AddNew
            rstUltimaAssegnazioneEntroData!idAddetto =
rstDispEntroData!idAddetto
            rstUltimaAssegnazioneEntroData!addetto = rstDispEntroData!
addetto
            rstUltimaAssegnazioneEntroData!SEDE = rstDispEntroData!
SEDE
            rstUltimaAssegnazioneEntroData!turno = Nz(rstDispEntroData!
turno, vbNullString)
            rstUltimaAssegnazioneEntroData!IDSEDE =
Nz(rstDispEntroData!IDSEDE)
            rstUltimaAssegnazioneEntroData!idAssistente =
Nz(rstDispEntroData!idAssistente)
            rstUltimaAssegnazioneEntroData.Update
            rstDispEntroData.MoveFirst
            rstAddAZ.MoveNext
        End If
    Loop
    intSearch = 0
    rstAddAZ.MoveFirst
    Do Until rstAddAZ.EOF
        intSearch = rstAddAZ!idAddetto
        rstUltimaAssegnazioneEntroData.MoveFirst
        rstUltimaAssegnazioneEntroData.FindFirst "idAddetto = " &
intSearch
        If rstUltimaAssegnazioneEntroData.NoMatch Then
            rstUltimaAssegnazioneEntroData.MoveFirst
            rstAddAZ.MoveNext
        Else
            If rstUltimaAssegnazioneEntroData!idAssistente =
lngIdAssistente Then
                rstStor.AddNew
                rstStor!idAddetto = rstUltimaAssegnazioneEntroData!
idAddetto
                rstStor!addetto = rstUltimaAssegnazioneEntroData!
addetto
                rstStor!SEDE = rstUltimaAssegnazioneEntroData!SEDE
                rstStor!turno = rstUltimaAssegnazioneEntroData!turno
                rstStor!IDSEDE = rstUltimaAssegnazioneEntroData!IDSEDE
                rstStor!idAssistente = rstUltimaAssegnazioneEntroData!
isAssistente
                rstStor.Update
                rstUltimaAssegnazioneEntroData.MoveFirst
                rstAddAZ.MoveNext
            End If
        End If
    Loop
    ' Close all
    rstAddAZ.Close
    'db.QueryDefs.Delete "Add"
    rstDispEntroData.Close
    'db.QueryDefs.Delete "DispEntroData"
    'rstDispSelezione.Close
    'rstDispAGS.Close
    'db.QueryDefs.Delete "DispAGS"
    rstUltimaAssegnazioneEntroData.Close
    rstStor.Close
Exit Sub
errTrap:
    MsgBox err.Number & " " & err.Description
    rstAddAZ.Close
    'db.QueryDefs.Delete "Add"
    rstDispEntroData.Close
    'db.QueryDefs.Delete "DispEntroData"
    'rstDispSelezione.Close
    'rstDispAGS.Close
    'db.QueryDefs.Delete "DispAGS"
    rstUltimaAssegnazioneEntroData.Close
    rstStor.Close
End Sub
(ho messo gli apici perché non riusci ad individuare la riga
dell'errore)
la routine è chiamata dalla seguente:
Private Sub txtFiltroData_AfterUpdate()
Dim strWhereData As String
Dim strWhereAGS As String
'Dim strFiltroData As String
    DoCmd.Echo False
    If Not IsNothing(Me!txtFiltroData) And Not
IsNothing(lngIdAssistente) Then
        strWhereData = "WHERE dataInizioServizio <= #" & Format(Me!
txtFiltroData, "mm/dd/yyyy") & "#" ' AND idAssistente = " &
lngIdAssistente
        strWhereAGS = "WHERE idAssistente = " & lngIdAssistente
        Call Storicizza2(strWhereData, strWhereAGS, lngIdAssistente)
        'Me.RecordSource = "tbStorico"
    Else
        MsgBox "Devi selezionare data e assistente"
    End If
    DoCmd.Echo True
End Sub
mi dà errore di run time 3251 - operazione non supportata per questo
tipo di oggetto
il debug punta sulla riga:
rstUltimaAssegnazioneEntroData.FindFirst "idAddetto = " & intSearch
preciso che che le tabelle (che sopravvivono al crash) Add e
DispEntroData riportano i risultati attesi
Dov'è che sbaglio? :-(


author: Alessandro Cara

text:
Il 13/09/2011 12.34, Francesca Chiarelli ha scritto:
[cut]
> rstUltimaAssegnazioneEntroData.FindFirst "idAddetto = "&  intSearch
>
> preciso che che le tabelle (che sopravvivono al crash) Add e
> DispEntroData riportano i risultati attesi
>
> Dov'è che sbaglio? :-(
Usi ADO? Allora Findfirst *non* esiste (non c'e' metodo con questo nome,
e' DAO) esiste, invece, *Find*

--

ac (x=y-1)


text:
On 13 Set, 12:34, Francesca Chiarelli

anche la tabella UltimaAssegnazioneEntroData viene popolata con i
risultati attesi. TbStorico, invece, siccome il codice si interrompe
prima, rimane vuota. Mi pare di capire che rst.FindFirst non funga con
una tabella di quel tipo..


text:
On 13 Set, 12:59, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 13/09/2011 12.34, Francesca Chiarelli ha scritto:
> [cut]> rstUltimaAssegnazioneEntroData.FindFirst "idAddetto = "&  intSearch
>
> > preciso che che le tabelle (che sopravvivono al crash) Add e
> > DispEntroData riportano i risultati attesi
>
> > Dov' che sbaglio? :-(
>
> Usi ADO? Allora Findfirst *non* esiste (non c'e' metodo con questo nome,
> e' DAO) esiste, invece, *Find*
>
> --
>
> ac (x=y-1)

no no, è proprio DAO


text:

> no no, č proprio DAO
Non avevo visto la tua dichiarazione di inizio post. Ero rimasto fermo
al tuo post iniziale ed ho guardato solo il riferimento all'errore.
Sei certa che intSearch e' valorizzato (anche se l'errore nondovrebbe
essere quello), c'e' anche la questione del tipo di recordset (dynamic,
snapshot, etc) non tutti i tipi supportano tutti i metodi (mi sembra
:-{)). Se usi il debug ti e' facile verificare tutte e due le questioni.

--

ac (x=y-1)


text:
On 13 Set, 13:58, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

> Sei certa che intSearch e' valorizzato (anche se l'errore nondovrebbe
> essere quello), c'e' anche la questione del tipo di recordset (dynamic,
> snapshot, etc) non tutti i tipi supportano tutti i metodi (mi sembra
> :-{)). Se usi il debug ti e' facile verificare tutte e due le questioni.

infatti credo che il problema si la tabella. Mentre le altre vengono
create dalla routine a partire da una querydef,
UltimaAssegnazioneEntroData e tbStorici risiedono permanentemente nel
db.  Che parametri dovrei aggiustare e come?


text:

Mi sa  che usi il Debug in modo approssimativo.
Sul sito di Baraldi (@Alex) c'e' una spieegazione di come si usa.
Cmq:
1) Vai sul codice VBA cerca l'istruzione che ti va in errore posizionati
e fai <F9> (mette un cosiddetto breakpoint)
2) manda in esecuzione e vedrai che il run si ferma sull'istruzione del
brekpoint (prima di eseguirla)
3) Nel menu attiva la voce  visualizza--> Variabili Locali (e finestra
immediata per buon peso)
4) Appariranno tutte le variabili visibili dalla routine ed anche il
recordset imputato clicca sul + e ti si aprira' un mondo.
--
ac

--

ac (x=y-1)


text:
Il 13/09/2011 19.22, Alessandro Cara ha scritto:
P.S. il sito di @Alex e'
alessandrobaraldi.it

P.P.S Debug <F9> per ritogliere il breakpoint; <F8> per mandare un passo
alla volta; <shift+F8> per non far eseguire il codice di subroutine (call)
--

ac (x=y-1)


text:
On 13 Set, 19:22, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

Comoda... da domani si PAGA...!

@Alex


text:
alla fine ho trovato il codice che funziona:

Public Sub Storicizza2(strWhereData As String, lngAGS As Long)
On Error GoTo errTrap

Dim db As Database
Dim qdfAddAZ As QueryDef
Dim rstAddAZ As Recordset
Dim rstUltimaAssegnazioneEntroData As Recordset
Dim qdfDispEntroData As QueryDef
Dim rstDispEntroData As Recordset
Dim rstStor As Recordset
Dim strSqlAddAZ As String
Dim intSearch As Long
Dim strOrdina As String

    Set db = CurrentDb
    strSqlAddAZ = "SELECT * FROM tbAddetti ORDER BY cognomeAddetto
ASC"
    Set qdfAddAZ = db.CreateQueryDef("Add", strSqlAddAZ)
    Set rstAddAZ = db.OpenRecordset("Add") 'recordset con gli addetti
in ordine alfabetico
    strOrdina = "SELECT * FROM qrStoricoAssegnazioni_Rst " &
strWhereData '& " ORDER BY ADDETTO ASC"
    Set qdfDispEntroData = db.CreateQueryDef("DispEntroData",
strOrdina)
    Set rstDispEntroData = db.OpenRecordset("DispEntroData")
    Set rstUltimaAssegnazioneEntroData =
db.OpenRecordset("UltimaAssegnazioneEntroData", dbOpenDynaset)
    Set rstStor = db.OpenRecordset("tbStorico", dbOpenDynaset)

        rstUltimaAssegnazioneEntroData.FindFirst "idAddetto = " &
intSearch
        If rstUltimaAssegnazioneEntroData.NoMatch Then
            rstUltimaAssegnazioneEntroData.MoveFirst
            rstAddAZ.MoveNext
        Else
            If rstUltimaAssegnazioneEntroData!idAssistente = lngAGS
Then
                rstStor.AddNew
                rstStor!idAddetto = rstUltimaAssegnazioneEntroData!
idAddetto
                rstStor!addetto = rstUltimaAssegnazioneEntroData!
addetto
                rstStor!SEDE = rstUltimaAssegnazioneEntroData!SEDE
                rstStor!turno = rstUltimaAssegnazioneEntroData!turno
                rstStor!IDSEDE = rstUltimaAssegnazioneEntroData!IDSEDE
                rstStor!idAssistente = rstUltimaAssegnazioneEntroData!
idAssistente
                rstStor.Update
                rstUltimaAssegnazioneEntroData.MoveFirst
                rstAddAZ.MoveNext
            Else
                rstUltimaAssegnazioneEntroData.MoveFirst
                rstAddAZ.MoveNext
            End If
        End If
    Loop

    rstAddAZ.Close
    db.QueryDefs.Delete "Add"
    rstDispEntroData.Close
    db.QueryDefs.Delete "DispEntroData"
    rstUltimaAssegnazioneEntroData.Close
    rstStor.Close
Exit Sub

errTrap:
    MsgBox err.Number & " " & err.Description
    rstAddAZ.Close
    db.QueryDefs.Delete "Add"
    rstDispEntroData.Close
    db.QueryDefs.Delete "DispEntroData"
    rstUltimaAssegnazioneEntroData.Close
End Sub

certo che ADO sembrerebbe più comodo, e con meno da scrivere!


text:
On 13 Set, 19:22, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

ah ecco!


text:

servizio a pagamento??


text:
Il 14/09/2011 10.49, Francesca Chiarelli ha scritto:
[
> certo che ADO sembrerebbe pi� comodo, e con meno da scrivere!
Non direi. E' praticamente la stessa cosa quando si opera su un
recordset. Non a caso ho un paio di funzioni che possono usare ADO e DAO
senza alcuna attenzione particolare all'uno o all'altro.
--
ac (x=y-1)


text:
Il 14/09/2011 10.50, Francesca Chiarelli ha scritto:
[cut]
> servizio a pagamento??
@Alex celiava ma visti i tempi che corrono se tu sei in grado di aiutare
economicamente due famiglie in difficolta' con, che ne so, 800.000 Euri,
non ci si tira indietro
--
ac (x=y-1)


text:
On 13 Set, 19:22, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

ottimo a sapere


title: DLookUp in un sottoreport

text:
Buonasera a tutti.
In un report ho la necessità di mettere un sottoreport, all'interno di
quest'ultimo in un campo ho inserito la funzione DLookUp per
visualizzare dei dati:
=DLookUp("[DESTINAZIONE_NOME]";"DESTINAZIONE";"[DESTINAZIONE_ID]=" &
Report!STAMPA_VIAGGIO_DETTAGLIO!PARTENZA)
Se faccio girare il sottoreport da solo non mi da errore se invece
apro il report principale nel sottoreport in corrispondenza del campo
dove c'è la funzione compare #Nome!.
Credo che il problema dal riferimento, ma non so come dire alla
funzione dia andare a cercare nel sottoreport...
Spero di essere stato chiaro
Grazie x l'aiuto
Massimo Pallavicini


title: DLookUp in un sottoreport

text:
"Massimo" <
maxpall...@libero.it
> ha scritto nel messaggio
news:feae4d40-cb92-4f3d...@c22g2000prc.googlegroups.com...


Grazie x l'aiuto
ma il report stampa_viaggio_dettaglio è il tuo sottoreport?
ciao
Max
Massimo Pallavicini


title: DLookUp in un sottoreport

text:
On 5 Nov, 17:29, "max" <
pi...@pippo.it
> wrote:
> "Massimo" <
maxpallavic...@libero.it
> ha scritto nel messaggionews:feae4d40-cb92-4f3d...@c22g2000prc.googlegroups.com...

Si è lui...


title: DLookUp in un sottoreport

text:
"Massimo" <
maxpall...@libero.it
> ha scritto nel messaggio
news:480a5fd5-ce38-4c38...@j40g2000prh.googlegroups.com...

Si è lui...
scusa ma qualke gg nn ci sn stato, se nn hai ancora trovato la soluzione
prova così (se questo codice lo esegui sul sottoreport)
DLookUp("[DESTINAZIONE_NOME]";"DESTINAZIONE";"[DESTINAZIONE_ID]=" &
me!PARTENZA)
ciao
Max


title: Dimensioni Database

author: Stefano

text:
Se č vero che in A97 non posso avere un Database che superi 1GB, posso
aggirare questa limitazione cosě ???:
-creo un MDB con il codice ed i forms necessari
-creo tanti MDB (che possono arrivare ad 1GB) quante sono le tabelle che mi
servono
- allego al MDB principale le tabelle degli altri MDB :
riesco a questo punto a bypassare le limitazioni di spazio ???
Grazie
Stefano


title: Dimensioni Database

author: Roberto dal portatile

text:
"Stefano" <
stefa...@libero.it
> ha scritto nel messaggio
news:SBHu7.14935$0Y2.2...@news.infostrada.it...

Si
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query A97 (parametrizzazione)

author: Riviera

text:
dovrei selezionare dei records in base ad un range di date , i valori li
vorrei prelevare da una maschera dalla quaòle si lancerà la query .Io ho
provato con
Between nz([forms]![miaform]![DataDal];"*") And
nz([forms]![miaform]!DataAl];"*")
alla riga criteri e funziona per il range . Però vorrei poter prendere tutti
i record (cioè datadal e dataal a NULL). Sto provando ad inserire l'opzione
Like  etc  ma .... Ho guardato sul Sito Comune e ho trovato ciò che potrebbe
servirmi (ma è su un SQL e non sulla riga dei criteri  )
avete in mente qualcosa ??
Un grazie come al solito
Marce


title: Query A97 (parametrizzazione)

author: Roberto - Syd

text:
"Riviera" <
marce...@smartino.ge.it
> ha scritto nel messaggio
news:9lje1d$l24$1...@ftp-news.csita.unige.it...

Prova così:
Between nz([forms]![miaform]![DataDal];"01/01/1950") And
nz([forms]![miaform]!DataAl];Date())
Ciao fammi sapere Roberto - Syd


title: Query A97 (parametrizzazione)

author: Roberto dal portabile

text:
"Riviera" <
marce...@smartino.ge.it
> ha scritto nel messaggio
news:9lje1d$l24$1...@ftp-news.csita.unige.it...

Se la tabella su cui è basata la tua query si chiama Tabella1.
Se il campo Data/ora che contiene la data su cui effettuare la selezione si
chiama Data1.
Il codice SQL della query che serve al tuo scopo dovrebbe essere:
SELECT Tabella1.*
FROM Tabella1
WHERE (((Nz([Data1],DMin("Data1","Tabella1"))) Between
Nz([Datadal:],DMin("[data1]","Tabella1")) And
Nz([Dataal],DMax("Data1","Tabella1"))));
Se preferisci lavorare con la griglia di struttura della query, nella riga
Campo: di una colonna vuota scrivi:
Nz([Data1];DMin("Data1";"Tabella1"))
togli lo "svirgolino" dalla riga Mostra: di questa colonna e nella riga
Criteri: di questa nuova colonna scrivi:
Between Nz([forms]![miaform]![DataDal] ;DMin("Data1";"Tabella1")) And
Nz([forms]![miaform]!DataAl];DMax("Data1";"tabella1"))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query A97 (parametrizzazione)

text:
Scusa, visto che i parametri di selezione sono contenuti in una maschera:
Se la tabella su cui è basata la tua query si chiama Tabella1.
Se il campo Data/ora che contiene la data su cui effettuare la selezione si
chiama Data1.
Il codice SQL della query che serve al tuo scopo dovrebbe essere:
SELECT Tabella1.*
FROM Tabella1
WHERE (((Nz([Data1],DMin("Data1","Tabella1"))) Between
Nz([forms]![miaform]![DataDal],DMin("[data1]","Tabella1")) And
Nz([forms]![miaform]!DataAl],DMax("Data1","Tabella1"))));



title: Query A97 (parametrizzazione)

text:
Marce Ringrazia con "R" maiuscola , in effetti si raggiunge copertura
perfetta del range di richiesta con tutti i metodi suggeriti , anche
lasciando un solo valore a null , proprio quello che mi serviva ....
Saluti freschi a tutti (ciao Roby)
Marce


title: Tabelle relazione

author: Santilli Marco

text:
Io vorrei questo effetto.
Uso il classico esempio.
Ad esempio il cliente TIZIO, mi compra 5 libri.
Parliamo di TABELLE
Quindi nella mia tabella dreve comparire il nome TIZIO e a sinistra come gia
ho visto in un altro database c'è un + dove cliccandoci mi fa vedere ad
esempio quei 5 libri che ha comprato
Quante tabelle devo creare 2 o 3????
E come devo relazionarle????
Spero di essere stato chiaro


title: Tabelle relazione

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:aqulcf$rob$1...@fata.cs.interbusiness.it...
> Io vorrei questo effetto.
>
> Uso il classico esempio.
>
> Ad esempio il cliente TIZIO, mi compra 5 libri.
> Parliamo di TABELLE
> Quindi nella mia tabella dreve comparire il nome TIZIO e a sinistra come
gia
> ho visto in un altro database c'è un + dove cliccandoci mi fa vedere ad
> esempio quei 5 libri che ha comprato
Anch'io le prime volte che ho cominciato ad usare Access pensavo di dover
lavorare con i dati direttamente dalle tabelle (niente di piu' rischioso!).
Poi ho scoperto le maschere! ;)
>
> Quante tabelle devo creare 2 o 3????
>
> E come devo relazionarle????
>
> Spero di essere stato chiaro
Non ho ben capito come intendi gestire i db,
ma credo possa andar bene cosi':
tblClienti
    IdCliente
    Nome
tblLibri
    IdLibro
    Titolo
tblVendite
    rifIdCliente
    rifIdLibro
dove il campo IdCliente di tblClienti e il campo rifIdCliente di tblVendite
sono in relazione 1 a molti. Per creare l'origine dati del campo rifIdLibro,
invece, usa la ricerca guidata su tblLibri.
Con queste tabelle crea una 'maschera con sottomaschera'.La maschera
principale si basera' su tblClienti e la sottomaschera su tblVendite
(cosi' vedi i dati come se tu cliccasi sul + a cui ti riferivi).
Se hai impostato correttamente le relazioni, la 'creazione guidata maschera'
ti genera automaticamente la struttura 'maschera con sottomaschera'
che ti ho indicato.
Ciao
---
leo_duca


title: Tabelle relazione

text:
In pratica lo voglio cosi.....
Mettiamo un cliente Tizio Bianchi con tutti i suo dato che immettere nella
parte alta della maschera e nella parte in basso ci sarà questa
sottomaschera dove inserirò ad esempio 5 libri che vuole comprare
Quindi nella tabella vendite mi dovrà creare TIZIO BIANCHI e i suoi dati,
dove all'interno ci sarai gli estremi dei 5 libri che ha ordinato
Non è che per caso mi puoi creare un mini esempio, in modo che me lo posso
studiare.
Ciao e grazieeeeeeeeee
"leo_duca" <
leo_...@libero.it
> ha scritto nel messaggio
news:FlLA9.28252$8E3.8...@twister2.libero.it...



title: Tabelle relazione

author: Emyr

text:
On Thu, 14 Nov 2002 23:54:31 +0100, "Santilli Marco"
<
marco.s...@libero.it
> wrote:
>Non č che per caso mi puoi creare un mini esempio, in modo che me lo posso
>studiare.
database di esempio con office northwind c'č tutto quello che ti serve
Saluti.
Emanuele.


title: Tabelle relazione

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:ar19ha$33m$1...@grillo.cs.interbusiness.it...
> In pratica lo voglio cosi.....
>
> Mettiamo un cliente Tizio Bianchi con tutti i suo dato che immettere nella
> parte alta della maschera e nella parte in basso ci sarà questa
> sottomaschera dove inserirò ad esempio 5 libri che vuole comprare
Seguendo le indicazioni del post precedente
ottieni esattamente quanto chiedi.
> Non è che per caso mi puoi creare un mini esempio, in modo che me lo posso
> studiare.
Usando le creazioni guidate sia per le tabelle che per le maschere,
un db di questo tipo te lo crea Access in modo automatico.
---
leo_duca


title: HELP!!!!!

author: Luca

text:
Grazie mille in anticipo a chiunque leggerà e provera a darmi una mano.
Premetto, sono sostanzialmente alle prime armi con access quindi ho bisogno
di spiegazioni abbastanza chiare visto che non sono riuscito a risolvere con
gli esempi trovati su
www.sitocomune.com
 o sugli altri messaggi...veniamo a
noi:
PROBLEMA N°1
Ho tre combo box che mi salvano valori tipo testo e funzionano
tranquillamente.Vorrei applicare sulla maschera un filtro a scalare ovvero
che la scelta della prima mi filtri la seconda e la scelta della seconda la
terza salvandomi contemporaneamente i valori in formato testo (ho visto
qualcosa di simile sul sito ma salva i valori in formato Id e poi non so
come riconvertirli in testo nei report)
PROBLEMA N°2
In una tabella e relativa maschera ho 8 valori numerici (valuta) vorrei che
nel report non mi visualizzasse e quindi stampasse riducendomi lo spazio
occupato quelli pari a zero
PROBLEMA N°3
E' possibile disattivare la funzione con cui usando la rotellina del mouse
mi si sposta tra i record della maschera?Vorrei che usando la rotellina mi
scoressa la maschera per lunghezza visto che non mi entra in una pagina.
PROBLEMA N°4
Aprire un documento doc o excel tramite un bottone da una maschera, quale
comando scrivere?
GRazie mille per la pazienza, ma sto davvero impazzendo e ho una scadenza
alle porte...Grazie Mille ancora a tutti
Potete rispondere anche in email
thech...@hotmail.com


title: HELP!!!!!

author: Pablitomf (Maurizio Facciuti)

text:
"Luca" <
thech...@hotmail.com
> ha scritto nel messaggio
news:452a4...@x-privat.org...

Ma che Help e Help e Aiuto Aiuto... quì non si fa così!!!!!!!!!!!!
Grrrrrrrrrrrrrrrrrrrrrrr
Devi :
- Bussare una sola volta
- Chiedere permesso
- Aspettare che qualcuno ti risponda
- Entrare se ti è consentito....
Non è che posto 1000 cose senza senso e ti aspetti pure là qualcuno che
lasci perdere quel che ha da fare per rispondere a qualcosa che non conosce
ancora perchè il tuo SUBJECT non lo dice affatto...
Per cui... prima di tutto...
www.sitocomune.com
   Sez. ICAA - Come ci si
dovrebbe comportare nell'NG
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Dimensioni ListBox nei Report

author: Rex

text:
Vorrei ridimensionare una listbox in un report in base ai campi che contine.
Come faccio se listcount non funziona nei report?
Grazie mille.
Rex.
P.S.
Come faccio a proteggere il mio lavoro?


title: Divieto di modifica nel record su cui sto scrivendo

author: mariop

text:
Salve.
Lavoro su Office 2000. Ho un data base "Diviso" : F.E B.E.
Il problema è il seguente: Ho una tabella "Lavori" in cui è presente un
campo Note.
Per ragioni di spazio, nella maschera non ho insirito tale campo.
Quindi ho creato una maschera basata sulla Tabella "Lavori" per aggiungere
determinate informazioni alla mia Tabella, tra le quali quel campo "Note".
La Maschera si apre "puntando" sul record che sto compilando (esempio se mi
trovo sull'ID 3 di Tabella Lavori, la Maschera si apre visualizzando ID 3)
Tutto bene fino a qualche tempo fa.
Ultimamente, invece, quando vado per scrivere qualcosa sul campo NOTE mi
compare il simbolo "Divieto d'accesso" come ad indicare: "Non puoi scrivere
perchè qualcun'altro sta scrivendo in questo record"
Ma in realtà sono io stesso a occupare quel record!
Come risolvere il problema? Perchè ha sempre funzionato e da un pò di tempo
no?
Grazie anticipatamente.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Sergio MAZZA

text:
"mariop" <
mariop...@libero.it
> ha scritto nel messaggio
news:82Z55Z106Z136Y1...@usenet.libero.it...

Prima di aprire la maschera con le Note fai un refresh del record;
es.
if me.dirty then
    me.refresh
end if
docmd.openform "mascheraConNote"
Ciao.
--
Sergio MAZZA


text:

Purtroppo non sono più in ufficio e quindi non posso provare il tuo
suggerimento.
Non conosco la proprietà dirty, domani la provo. Grazie!
(Comunque continuo a non capire come fa una cosa a non funzionare
improvvisamente...:-)



text:
"mariop" <
mariop...@libero.it
> ha scritto nel messaggio
news:87Z10Z104Z154Y1...@usenet.libero.it...
>
> Purtroppo non sono più in ufficio e quindi non posso provare il tuo
> suggerimento.
> Non conosco la proprietà dirty, domani la provo. Grazie!
> (Comunque continuo a non capire come fa una cosa a non funzionare
> improvvisamente...:-)
A volte capita; difficilmente, ma capita...
Ciao.
--
Sergio MAZZA


text:

OK Funziona! Molte grazie!
apro un altro 3D con delle domande relative alle modifiche sui Front End.



title: Ma è possibile?

author: Eugenio Gotti

text:
Salve,
    non riesco assolutamente a capire come ci si possa collegare con Access
ad un Db Access su internet.
    Che stringa di connessione si deve usare? Con Udl? Qualcuno sa dirmi
come si fa o almeno se non è possibile?
    Grazie
    Eugenio


title: Ma è possibile?

author: Andrea Sciamanna

text:

Scusa, che roba è "Udl"?


title: Ma è possibile?

author: Lbo da casa

text:
>Scusa, che roba è "Udl"?
unified data language?  ma dovrebbe essere un modello teorico, tipo
"struttura ad oggetti".
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Ma è possibile?

text:
Sono i "Microsoft Universal Data Links" che consentono di salvare le
informazioni di collegamento ad un database.
Se in esplora risorse crei un nuovo oggetto, tra le altre avrai la voce
"Microsoft Data Link".
Una volta creato così lo puoi configurare indicando il db a cui connettersi.
Nel codice VBA poi fai riferimento al file udl. Es:
-------
Dim conn as ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "File Name=c:\pippo.udl;"
-------
Può essere utile per modificare il db a cui ti colleghi senza toccare il
codice.
Purtroppo io riesco a collegarmi solo a unità locali o a unità di rete
connesse.
E per internet???
Saluti,
    Eugenio
Andrea Sciamanna <w...@tamtando.com.cancellami> wrote in message
Xub5cO7...@newsmst.mcis.galactica.it...




title: Ma è possibile?

text:
>Purtroppo io riesco a collegarmi solo a unità locali o a unità di rete
>connesse.
>E per internet???
guarda, io avevo un problema simile, mi è stato racocmandato su
it.comp.www.asp l'ennesimo TLA (three letter acronym), e cioè RDS, che
dovrebbe essere un subset di ADO...



title: Ma è possibile?

text:
> Una volta creato così lo puoi configurare indicando il db a cui
connettersi.
> Nel codice VBA poi fai riferimento al file udl. Es:
> -------
> Dim conn as ADODB.Connection
> Set conn = New ADODB.Connection
> conn.Open "File Name=c:\pippo.udl;"
> -------
> Può essere utile per modificare il db a cui ti colleghi senza toccare il
> codice.
> Purtroppo io riesco a collegarmi solo a unità locali o a unità di rete
> connesse.
A me ricorda tanto il DNS....


title: Ma è possibile?

text:
>
> A me ricorda tanto il DNS....
Non proprio, perché non riguarda il server: il file udl raccoglie solamente
le informazioni di collegamento al db e si trova sul client.


title: Criteri nelle query

text:
Innanzitutto, salve a tutti. Mi permetto di scrivere, per sottoporre un
problema, che almeno io non riesco a venirne a capo. Ho creato una maschera
per stampare delle etichette per la proposta di un nuovo abbonamento, fin
qui nulla di nuovo. Il tipo di abbonamento l'ho ricavato dalla combo di
riepilogo inserendo nella qry la stringa "Like
[forms]![frmEtichetteLettere]![cmbEticAbbonamento]" e questa funge. Ho
realizzato un box per digitare la data di partenza per cercare il tipo di
abbonamento ed inserendo nei criteri "Like
[forms]![frmEtichetteLettere]![txtData]" non mi vengono selezionati nessun
record, mentre inserendo "Between [Da che data?] And Now()" mi seleziona i
record. Ora domando: Come posso far capire alla qry che quel dato lo deve
ricavare dal box? (non mettetevi a ridere, per cortesia) oppure è meglio
generare del codice con l'istruzione SQL?. Sperando di riuscire a carpire
ancora qualche segreto
RINGRAZIO :-))
Maurizio
--
ma...@supereva.it
Di solito gli uomini
disprezzano le cose che non capiscono
Johann Wolfgang von GOETHE


title: Criteri nelle query

text:
"mac56" <
ma...@supereva.it
> ha scritto nel messaggio
news:39c0e...@news.dada.it...

Se devi partire da una data non era meglio:
>[forms]![frmEtichetteLettere]![txtData]
Ciao.


title: errore su select * where 2 condizioni siano vere

author: Arold

text:
ho una tabella che contiene mese e anno attuali io devo controllare se  i
valori ci sono altrimenti li aggiungo.
per controllare se il record mese e anno attuale c'è già faccio:
Set rs = db.OpenRecordset("select * from TTTEmail where([TTTEmail].anno='" &
Year(Date) & "' and [TTTEmail].mese='" & Month(Date) & "')")
ma mi restituisce sempre zero record anche se esiste il record.
mi sapete dire cosa sbaglio?


author: Antonio Biso

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bhl5ge$jt2$1...@lacerta.tiscalinet.it...

Eeehhh, nel non curare un po' la teoria...
Quando si fanno dei test su campi di tipo numerico, NON va messo l'apice
intorno al valore da testare, come succede invece con i campi di tipo
testo!!!
Antonio


title: Problema Criteri

author: Liano Amato

text:
Salve,
un saluto a tutto il news e vado al sodo:
Ho una tabella di questo genere:
Data    Sped    Cliente    ....    ...    Esiti_C    Note
da questa tabella ho già creato una query dove, in un range di "Data" ed il
nome del "Cliente", mi visualizza i relativi campi della tabella.
Adesso ho bisogno di un'altra query dove, sempre inserendo il range "Data" e
"Cliente", mi deve visualizzare i relativi campi dove però, nel campo
"Esiti_C" o sia vuoto o compare la lettera G e nel campo "Note" esso sia
vuoto o compare la parola "GIACENZA".
Io ho provato con i criteri sui due record "esiti_C" e "Note", immettendoci
i criteri "" oppure "G" (o "GIACENZA", nel caso di Note...) ed ho provato
anche la funzione automatica Genera, ma non funziona oppure è meglio dire
che non so come impostare bene i parametri dei criteri.
Grazie e scusatemi della banalità del problema, ma è da stamattina che sto
cercando di documentarmi non riuscendo a trovare un 3ad simile.
Liano


title: Problema Criteri

text:
Ciao,
mi rispondo da solo, trovando la soluzione:
nei criteri era da indicare, nel campo "Esiti_c" il valore "G" Or Is Null,
idem sull'altro campo.
Scusatemi ancora
Liano
"Liano Amato" <
liano...@libero.it
> ha scritto nel messaggio
news:EmlZb.19608$Kc3.5...@twister2.libero.it...



title: Problema Criteri

author: MA

text:
"Liano Amato" <
liano...@libero.it
> ha scritto nel messaggio
news:sslZb.20530$FJ6.7...@twister1.libero.it...
> Ciao,
> mi rispondo da solo, trovando la soluzione:
> nei criteri era da indicare, nel campo "Esiti_c" il valore "G" Or Is Null,
> idem sull'altro campo.
>
> Scusatemi ancora
>
> Liano
Ecco risponditi ancora da solo cazziandoti sul quotare bene.
MAssimiliano


title: cancellazione dati inseriti.

author: Alessandro Cargnelli

text:
Ciao a tutti,
quello che mi stavo chiedendo realizzando il mio db è: come faccio a far
si che i miei dati una volta inseriti nella maschera non possano essere
più modificati?
Ciao Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: cancellazione dati inseriti.

author: Alessandro Cara

text:
Alessandro Cargnelli wrote:
> Ciao a tutti,
> quello che mi stavo chiedendo realizzando il mio db è: come faccio a far
> si che i miei dati una volta inseriti nella maschera non possano essere
> più modificati?
> Ciao Grazie
>
evento inAttesa (onDirty)
if not newrecord and dirty then
	msgbox "'un se po'", vbexclamation,"Non modificabile"
	undo
endif
oppure "giochi" con la proprieta' allowedits (su current?)
allowedits = newrecord
--
ac


title: cancellazione dati inseriti.

text:
Alessandro Cara ha scritto:



Ciao, grazie per la dritta, ma ho provato ad implementarla ma non
funziona......devo scriverla pari pari?



title: Aggiornamento ID in SQL Server

author: lucianab64 on libero

text:
Ciao! Bel casino...!
In un mdb la valorizzazione del campo contatore avviene subito su pressione
di un qualunque carattere in un qualsivoglia campo del record nuovo.
Su SQL Server non e' cosi': il campo ID viene valorizzato quando si esce dal
record.
Fate la prova da tabella e vedrete.
Il problema e':
come posso assegnare il valore del campo N_RIGA=ID_RIGA che prima era sul
BeforeUpdate se in quel momento non mi e' ancora noto il valore di
ID_RIGA???
Non sono riuscita a trovare una soluzione ragionevole. Forse c'e' qualcosa
che non so. Chi mi aiuta?
Luciana


title: Aggiornamento ID in SQL Server

author: Riccardo

text:
lucianab64 on libero <
lucia...@libero.it
> wrote in message
i8HZ5.92244$hk4.3...@news.infostrada.it...
> Ciao! Bel casino...!
>
> In un mdb la valorizzazione del campo contatore avviene subito su
pressione
> di un qualunque carattere in un qualsivoglia campo del record nuovo.
> Su SQL Server non e' cosi': il campo ID viene valorizzato quando si esce
dal
> record.
> Fate la prova da tabella e vedrete.
a me accadeva con il MySql
> Il problema e':
> come posso assegnare il valore del campo N_RIGA=ID_RIGA che prima era sul
> BeforeUpdate se in quel momento non mi e' ancora noto il valore di
> ID_RIGA???
come è strutturata la maschera?
cos'è n_riga?
eventualmente prova ad inserire il tutto su uscita dell'ultimo controllo del
form: in questo modo il valore ID_RIGA dovrebbe essere noto.
ciao Riccardo


title: Aggiornamento ID in SQL Server

text:
Riccardo <
ricc...@free.panservice.it
> wrote in message
917jts$tfp$1...@news.panservice.it...
>
> lucianab64 on libero <
lucia...@libero.it
> wrote in message
> i8HZ5.92244$hk4.3...@news.infostrada.it...
> > Ciao! Bel casino...!
> >
> > In un mdb la valorizzazione del campo contatore avviene subito su
> pressione
> > di un qualunque carattere in un qualsivoglia campo del record nuovo.
> > Su SQL Server non e' cosi': il campo ID viene valorizzato quando si esce
> dal
> > record.
> > Fate la prova da tabella e vedrete.
>
> a me accadeva con il MySql
>
> > Il problema e':
> > come posso assegnare il valore del campo N_RIGA=ID_RIGA che prima era
sul
> > BeforeUpdate se in quel momento non mi e' ancora noto il valore di
> > ID_RIGA???
>
> come è strutturata la maschera?
Irrilevante
> cos'è n_riga?
N_RIGA e' un campo della stessa tabella che voglio aggiornare
> eventualmente prova ad inserire il tutto su uscita dell'ultimo controllo
del
> form: in questo modo il valore ID_RIGA dovrebbe essere noto.
E' proprio questo il problema. Non e' noto finche' non sei posizionato sul
record successivo.
Luciana


title: Aggiornamento ID in SQL Server

text:
> E' proprio questo il problema. Non e' noto finche' non sei posizionato sul
> record successivo.
>
> Luciana
_____
non saprei!
ho fatto delle prove e se inserisco su evento Uscita dell'ultimo controllo
della maschera
nomecontrollo=ID
tutto funziona.
ciao Riccardo


title: Aggiornamento ID in SQL Server

author: Stefano Bettini

text:
"lucianab64 on libero" <
lucia...@libero.it
> wrote in message
news:i8HZ5.92244$hk4.3...@news.infostrada.it...

Con un simpatico trigger di tabella, prova a cercare "trigger" sul book
on-line di SQL
e non avrai problemi.
Bye, Ste


title: Creazione report da un record specifico di una sottomaschera

author: Antonio Luciani

text:
Buona sera,

vi chiedo aiuto per un problema che non riesco a risolvere.

Ho un data base per la gestione dei pazienti (un record un paziente)

con associazione uno a infinito ho correlato una tabella che funge da

diario clinico (ogni paziente un diario, ogni diario infiniti giorni).

Ho anche creato un tasto che stama un singolo paziente (record)

basato un un report che attinge da una query con filtro [Form]![NomeMaschera]![Id].

Quindi mi crea un report di stampa solo per il paziente che visualizzo nella maschera

Ora, vorrei fare la stessa cosa per il report Diario... ma ovviamente la query deve avere due filtri:

uno per selezionare il paziente visualizzato e uso lo stesso filtro [Form]![NomeMaschera]![Id]...

e fin qua tutto bene... per selezionare il giorno visualizzato sul diario nella sottomaschera ho

provato ad aggiungere un contatore sulla "sottotabella" diario [Id2] e il filtro alla query

[Form]![NomeMascheraDiario]![Id2]... (quindi due filtri in congiunzione)...

Ma quando premo il tasto stampa report ed esegue la query mi riconosche ID ma mi chiede di

inserire a mano ID2...

Vi prego non so più come fare


author: Karl Donaubauer

text:
Antonio Luciani:
> ... per selezionare il giorno visualizzato sul diario nella sottomaschera ho
> provato ad aggiungere un contatore sulla "sottotabella" diario [Id2] e il filtro alla query
>
> [Form]![NomeMascheraDiario]![Id2]... (quindi due filtri in congiunzione)...
>
> Ma quando premo il tasto stampa report ed esegue la query mi riconosche ID ma mi chiede di
> inserire a mano ID2...

[Form]![NomeMascheraDiario]![Id2] sarebbe il riferimento ad una maschera
non ad una sottomaschera.

Leggi
http://www.donkarl.com/it?FAQ4.2

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


title: scaricare Variabili

author: EnricoV.

text:
Buona regola è scaricare dalla memoria le variabili
es.
Dim rst as recordset
Set rst = nothing
Ma....con che tipo di variabili ???
es.
Dim CIAO as string
set CIAO = nothing
da errore !


title: scaricare Variabili

author: Maurizio Borrelli

text:
> "EnricoV." news:aon1l9$d11$
1...@lacerta.tiscalinet.it
:
> Buona regola è scaricare dalla memoria le variabili
> es.
> Dim rst as recordset
> Set rst = nothing
> Ma....con che tipo di variabili ???
    Variabili oggetto.
> es.
> Dim CIAO as string
> set CIAO = nothing
> da errore !
        Dim s As String
        Dim i As Integer
        Dim o As Object
        Let s = "Pippo"
        Let i = 123
        Set o = ADODB.Recordset
        ...
        Set o = Nothing
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: non visualizzare il messaggio di errrore quando si inserisce un nome non in elenco in una casella combinata

author: beppe

text:
sono riuscito a far accettare un nome non contenuto nella casella combinata
di un campo con la stringa "me.nome campo.value=newdata" attivata su "non in
elenco", ma quando immetto il nome mi dà prima il messaggio d'errore "non in
elenco" e solo dopo che ho cliccato su "ok" mi consente di passare al campo
successivo accettando il nome immesso non in elenco. Come posso fare per
eliminare questo messaggio di errore?
GRAZIE A CHI MI AIUTERA'


author: Roberto da casa

text:
"beppe" <
giu...@tin.it
> ha scritto nel messaggio
news:oJ0ia.531$JI.1...@tornado.fastwebnet.it...

Response = acDataErrContinue
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: somma in controllo in base a valore di altro controllo

author: Antonio in the city

text:
Ho una sottomaschera in modalità continua con i controlli EURO e PAGATO
(quest'ultimo in formato sì/no). In partica posso scegliere se quella cifra
è stata già pagata oppure no.
A piè di pagina ho creato un controllo sommadieuro = Somma([euro]).
Vorrei però creare due controlli che mi sommino gli euro nei casi in cui il
controllo PAGATO sia fleggato oppure nel caso in cui non sia fleggato. Come
posso modificare la sintassi  Somma([euro]). Oppure come posso fare ? Spero
di essere stato chiaro.
Grazie per il vostro aiuto
Antonio


author: Sib

text:
"Antonio in the city" <
pipp...@it.it
> ha scritto nel messaggio
> Ho una sottomaschera in modalità continua con i controlli EURO e PAGATO
> (quest'ultimo in formato sì/no). In partica posso scegliere se quella
cifra
> è stata già pagata oppure no.
>
> A piè di pagina ho creato un controllo sommadieuro = Somma([euro]).
dovresti usare un dsum a rigore che consente l'uso di condizioni. ma sarebbe
un po' lento.
ti suggerisco un artificio:
=Somma([euro]*ass([pagato]))
essendo true=-1 e false=0 otterrai la somma dei soli importi pagati.
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:NAWV9.60981$AA2.2...@news2.tin.it...

Ho provato ma il controllo mi restituisce errore ... ed anche nel controllo
che c'era prima, cioè quello con la semplice Somma([euro]) !
Antonio


author: stefano

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:NAWV9.60981$AA2.2...@news2.tin.it...

fai cosi che funziona (lo provato)
ricordati che "euro"  e "pagato" devono essere i nomi dei controlli
associati  e non quelli delle caselle di teso
=Somma([euro]*([pagato]))* -1
Stefano


text:
"stefano" <
stl...@tin.it
> ha scritto nel messaggio
news:nw9W9.45529$0v.14...@news1.tin.it...

Ok grazie mille ora funziona. Logicamente per il non pagato faccio la
differenza !!
Grazie mille ancora.
Antonio


title: campo calcolato in una maschera

author: Brambilla Fumagalli

text:
Non me la spiego, in una maschera ho un campo di una tabella:
[disponibilita]
se voglio metterci
= [disponibilita] / 1000
mi da errore.
Perche'?
grazie


title: campo calcolato in una maschera

text:
nessuno mi da un consiglio?
nella stessa maschera, un altro campo  =[disponibilita] * [prezzo]
funziona perfettamente, perche'
 = [disponibilita] / 1000
mi da ERROR?
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag0qhj$dnh$1...@fe1.cs.interbusiness.it...



title: campo calcolato in una maschera

author: fabio

text:
 > Non me la spiego, in una maschera ho un campo di una tabella:
> >
> > [disponibilita]
> >
> > se voglio metterci
> >
> > = [disponibilita] / 1000
> >
> > mi da errore.
> >
> > Perche'?
> >
> > grazie
>
prova a cambiare il nome della casella di testo (da disponibilita a
qualcos'altro...)
ciao
fabio


title: campo calcolato in una maschera

author: Silvio Berruti

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag15iq$qvd$1...@fe1.cs.interbusiness.it...
>
> nessuno mi da un consiglio?
>
> nella stessa maschera, un altro campo  =[disponibilita] * [prezzo]
>
> funziona perfettamente, perche'
>
>  = [disponibilita] / 1000
>
> mi da ERROR?
>
Innanzi tutto rispondi dopo il testo dei messaggi precedenti. Grazie.
Prova a cambiare l'origine record della maschera, basandola su una query in
cui inserirai un campo Disp1000: [disponibilita] / 1000; nel controllo della
maschera, come origine controllo, potrai scrivere semplicemente Disp1000.
Ti invito inoltre a studiare bene la differenza che esiste tra campi e
controlli.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: campo calcolato in una maschera

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
> Innanzi tutto rispondi dopo il testo dei messaggi precedenti. Grazie.
Veramente non ho risposto a nessuno...
> Prova a cambiare l'origine record della maschera, basandola su una query
in
> cui inserirai un campo Disp1000:
Si, funziona.
Ma funziona anche se metto una moltiplicazione di altro tipo, tipo tra due
campi.
Quello che non capisco e' perche' un banale
= [disp] / 1000
in un controllo, non vada.
mentre
= [disp] * [prezzo]
funziona.
> Ti invito inoltre a studiare bene la differenza che esiste tra campi e
> controlli.
Ok, ma non lo dica al preside...


title: campo calcolato in una maschera

author: Massimiliano Amendola  kksrl

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag1pcu$mku$1...@fe2.cs.interbusiness.it...
>
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
>
> > Innanzi tutto rispondi dopo il testo dei messaggi precedenti. Grazie.
>
> Veramente non ho risposto a nessuno...
Nel tuo secondo post hai "risposto" a te stesso
cioa MAssimiliano


title: campo calcolato in una maschera

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag1pcu$mku$1...@fe2.cs.interbusiness.it...
>
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
>
> > Innanzi tutto rispondi dopo il testo dei messaggi precedenti. Grazie.
>
> Veramente non ho risposto a nessuno...
Infatti hai risposto al tuo precedente messaggio...
>
> > Prova a cambiare l'origine record della maschera, basandola su una query
> in
> > cui inserirai un campo Disp1000:
>
> Si, funziona.
> Ma funziona anche se metto una moltiplicazione di altro tipo, tipo tra due
> campi.
>
> Quello che non capisco e' perche' un banale
>
> = [disp] / 1000
>
> in un controllo, non vada.
>
Non è che anche quel controllo si chiama [disp]?
> mentre
>
> = [disp] * [prezzo]
>
> funziona.
>
> > Ti invito inoltre a studiare bene la differenza che esiste tra campi e
> > controlli.
>
> Ok, ma non lo dica al preside...
Non voleva essere una tirata d'orecchi, ma volevo farti porre l'attenzione
della differenza importantissima tra campi e controlli.
Ciao



title: campo calcolato in una maschera

text:
"Massimiliano Amendola kksrl" <
massimilia...@kksrl.com
> ha scritto
> > Veramente non ho risposto a nessuno...
>
> Nel tuo secondo post hai "risposto" a te stesso
Rileggi, non ho risposto a nessuno, quanto meno a me stesso, ho fatto una
domanda della quale non conosco la risposta e non capisco quale avrei potuto
fornirmi.
In piu' non sono dissociato al punto di farmi le domande e rispondermi...


title: campo calcolato in una maschera

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
> Infatti hai risposto al tuo precedente messaggio...
No.
> Non voleva essere una tirata d'orecchi, ma volevo farti porre l'attenzione
> della differenza importantissima tra campi e controlli.
Ok e io vorrei porre l'attenzione tra spirito e lettera, o per dirla piu'
terra terra, famose a capisse.
Dopo 10 messaggi abbiamo sviscerato l'arte di quotare, la puntualita' delle
definizioni, la struttura gerarchica del newsgroup, la mia pretesa
dissociazione, tutto ma non il perche' il CONTROLLO dia errore.
Lo metto tra i bachi di access, mi sarebbe piaciuto che qualcun altro, con
un decimo delle fatiche fatte fino ad adesso per polemizzare me lo avesse
riscontrato, basta prendere un controllo che punta a un campo qualunque e
aggiungergli una formulina e vedere l'effetto.
Magari si sarebbe scoperta una cosa nuova, magari avrei avuto aiuto, magari
ci sarebbe stata l'umile soddisfazione di aver dato un piccolo contributo,
merce preziosa per chi preferisce tenere in mano la bacchetta e suonarla
sulle dita della gente.


title: campo calcolato in una maschera

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag3kdj$26i$1...@fe2.cs.interbusiness.it...

scusa io detesto le polemiche ma mi sento di puntualizzare delle cose.
Questo è un Ng molto seguito e molto parteciapto. Nonostante non sia
moderato ma un codice di comportamento che i partecipanti osservano
scrupolosamente e che inviatano gli avventizi ad osservare: questo per una
ragione semplice, il quoting permette di seguire tutta la discussione al
fine di avere immediatamente gli elementi necessari per individuare il
problema e "amore dei" dare soluzioni sottraendo tempo al proprio lavoro
(non è una chat).
Nel tuo caso anche se non hai dato una risposta, cronologicamente hai
inviato un messaggio successivo al tuo primo e logicamente e per le
necessità di prima deve essere posto dopo o in mezzo.
Infine, dal punto di vista squisitamente comportamentale, tu hai problema,
vorresti una soluzione, la chiedi in un modo sbagliato, non credo ti possa
arrabbiare se ti viene sollevata l'anomalia.
ciao MAssimiliano


title: campo calcolato in una maschera

text:
"Massimiliano Amendola kksrl" <
massimilia...@kksrl.com
> ha scritto
> questo per una
> ragione semplice, il quoting permette di seguire tutta la discussione
e questo c'entra come il cavolo a merenda con quello che ho scritto io.
Non quotavo, ripetevo semplicemente.
Preambolo, breve, e ripetizione.
Tu sei partito a paperetta su un discorso che nel mio caso non si applica,
spegni il risponditore autometico e accendi la logica.
> Nel tuo caso anche se non hai dato una risposta
perfetto, non c'era risposta, siamo d'accordo, quindi i messaggi precedenti
tuoi erano sbagliati.
> Infine, dal punto di vista squisitamente comportamentale, tu hai problema,
> vorresti una soluzione, la chiedi in un modo sbagliato, non credo ti possa
> arrabbiare se ti viene sollevata l'anomalia.
Non mi arrabbio e non capisco cosa ci fosse di sbagliato nella mia domanda.


title: campo calcolato in una maschera

author: Emyr

text:


prova a cambiare il nome del controllo che visualizza la disponibilità
o calcola nella query di origine dati della maschera
Saluti.
Emanuele.


title: campo calcolato in una maschera

text:
"fabio" <
fabioRimu...@adelante.it
> ha scritto nel messaggio
> prova a cambiare il nome della casella di testo (da disponibilita a
> qualcos'altro...)
funziona!
grazie a te e a Emyr, devo dire che avevo provato a farlo, ma mi dava ancora
errore, perche' quando cambiavo il nome dell'oggetto mi cambiava anche
quello del campo nel controllo.
Grazie, adesso il controllo e' =[disp]/1000 e il nome e' Dispino e il tutto
funziona... matto ci ero diventato!
Grazie.


title: campo calcolato in una maschera

text:


č dovuto al fatto che access puņ fare errori di riferimento fra campo
e controllo
Saluti.
Emanuele.


title: campo calcolato in una maschera

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag3k12$te$1...@fe1.cs.interbusiness.it...

Non è questione di essere dissociati... ma quando hai mandato il 2°
messaggio hai aggiunto del testo al precedente: x poterlo fare hai dato il
comando Rispondi al Newsgroup (almeno in OE) ed infatti l'oggetto del 2°
messaggio è diventato
Re: campo calcolato in una maschera
^^^
quindi ti sei risposto da solo.



title: campo calcolato in una maschera

text:
"Brambilla Fumagalli" <
bra...@brianza.net
> ha scritto nel messaggio
news:ag3kdj$26i$1...@fe2.cs.interbusiness.it...
>
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
>
> > Infatti hai risposto al tuo precedente messaggio...
>
> No.
>
> > Non voleva essere una tirata d'orecchi, ma volevo farti porre
l'attenzione
> > della differenza importantissima tra campi e controlli.
>
> Ok e io vorrei porre l'attenzione tra spirito e lettera, o per dirla piu'
> terra terra, famose a capisse.
>
> Dopo 10 messaggi abbiamo sviscerato l'arte di quotare, la puntualita'
delle
> definizioni, la struttura gerarchica del newsgroup, la mia pretesa
> dissociazione, tutto ma non il perche' il CONTROLLO dia errore.
>
> Lo metto tra i bachi di access, mi sarebbe piaciuto che qualcun altro, con
> un decimo delle fatiche fatte fino ad adesso per polemizzare me lo avesse
> riscontrato, basta prendere un controllo che punta a un campo qualunque e
> aggiungergli una formulina e vedere l'effetto.
Non è un baco di Access, è che ancora non hai capito che, se esiste una
differenza fra i controlli e i campi e tu chiami un controllo calcolato come
uno dei campi, il minimo che tu ti possa aspettare è sto poverino non sappia
che pesci prendere, se poi il controllo calcolato l'hai chiamato proprio
come uno dei campi facenti parte del calcolo, ottieni quello che in Excel si
chiama riferimento circolare.



title: Query lanciata da VBA

text:
Ciao,
in una maschera di ricerca ho due campi edit.
Nel mio caso devo lanciare una query alla quale passo uno dei due campi, a
seconda di quale č stato riempito.
E questo lo faccio con un if nel codice VBA.
Ecco di seguito come l'ho impostato:
If IsNull(Me![NOME]) Then
    wric = Me!COGNOME
    DoCmd.OpenQuery "Query_anagr", , wric
Else
    wric = Me!NOME
    DoCmd.OpenQuery "Query_anagr", , wric
End If
Mi pare giusto eppure non funziona. non riesco a capire quale evento usare.
se lo metto prima dell'aggiornameto non entra nella routine, dopo non
avrebbe pių senso. Forse devo impostare qualcosa nelle proprietā?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Query lanciata da VBA

author: Sergio MAZZA

text:
"port77" <
ghigl...@libero.it
> ha scritto nel messaggio
news:81Z72Z97Z125Y1...@usenet.libero.it...
> Ciao,
> in una maschera di ricerca ho due campi edit.
> Nel mio caso devo lanciare una query alla quale passo uno dei due campi, a
> seconda di quale è stato riempito.
> E questo lo faccio con un if nel codice VBA.
> Ecco di seguito come l'ho impostato:
>
> If IsNull(Me![NOME]) Then
>     wric = Me!COGNOME
>     DoCmd.OpenQuery "Query_anagr", , wric
> Else
>     wric = Me!NOME
>     DoCmd.OpenQuery "Query_anagr", , wric
> End If
>
> Mi pare giusto eppure non funziona. non riesco a capire quale evento
usare.
> se lo metto prima dell'aggiornameto non entra nella routine, dopo non
> avrebbe più senso. Forse devo impostare qualcosa nelle proprietà?
>
Al metodo OpenQuery non passi nessun parametro (vedi help), ti confondi con
OpenForm... Almeno nella vers.'97...
Ciao.
--
Sergio MAZZA


title: select distinct su combo non funziona

author: andrea

text:
Buon giorno a tutto il NG
In breve non riesco a tradurre in pratica quanto riportato sull'help
che di seguito riporto in merito ai predicati di "SELECT"
[…]
DISTINCT
Omette i record che contengono dati duplicati nei campi selezionati.
Per essere inclusi nei risultati della query, i valori di ogni campo
elencato nell'istruzione SELECT devono essere univoci. Numerosi
impiegati elencati in una tabella Impiegati, ad esempio, potrebbero
avere lo stesso cognome. Se nel campo Cognome due record contengono
Rossi, la seguente istruzione SQL restituirà un solo record contenente
Rossi:
SELECT DISTINCT
Cognome
FROM Impiegati;
Se si omette DISTINCT, la query restituirà entrambi i record
contenenti Rossi.Se la proposizione SELECT contiene più di un campo,
la combinazione dei valori di tutti i campi per un determinato record
deve essere univoca perché il record venga incluso nei
risultati.L'output di una query che utilizza DISTINCT non è
aggiornabile e non riflette le successive modifiche apportate dagli
utenti.
[…]
Il mio obiettivo partendo dall'esempio:
-combo : controllo cognome
	:origine riga da query :  SELECT DISTINCT Anagrafica.id,
Anagrafica.cognome FROM Anagrafica;
		proprietà query valori univoci impostato a SI
- sull'evento "Dopo aggiornamento"  della  combo andando a pescare
l'id relativo vorrei poter inserire i valori di  Cognome e Nome in due
campi presenti nel corpo della maschera
Dati della tabella Anagrafica
id    	Cognome   	Nome
1    	Rossi		Franco
2	Rossi		Domenico
3	Bianchi		Enrico
4	Bianchi		Andrea
In realtà nella combo vedo tutto l'elenco anziché quanto dichiarato
nell'help
Qualcuno sa dirmi che cosa mi sfugge ? Esiste una
scappatoia/scorciatoia per fare quello che ho in mente ?
Grazie ancora per l'aiuto
Andrea


title: select distinct su combo non funziona

author: Antonio Biso

text:
"andrea" <
andrea...@libero.it
> ha scritto nel messaggio
news:4fae75e.03051...@posting.google.com...
> Buon giorno a tutto il NG
>
> In breve non riesco a tradurre in pratica quanto riportato sull'help
> che di seguito riporto in merito ai predicati di "SELECT"
> [.]
>
> Dati della tabella Anagrafica
>
> id    Cognome   Nome
>
> 1    Rossi Franco
> 2 Rossi Domenico
> 3 Bianchi Enrico
> 4 Bianchi Andrea
>
> In realtà nella combo vedo tutto l'elenco anziché quanto dichiarato
> nell'help
Scusa eh?
Cosa hai riportato dall'help?
> Se la proposizione SELECT contiene più di un campo,
> la combinazione dei valori di tutti i campi per un determinato record
> deve essere univoca perché il record venga incluso nei
> risultati.
E allora, visto che nella query c'è sia l'id che il cognome, NON ci saranno
mai due id uguali e quindi i record saranno sempre tutti!!!!!
> Il mio obiettivo partendo dall'esempio:
>
> -combo : controllo cognome
> :origine riga da query :  SELECT DISTINCT Anagrafica.id,
> Anagrafica.cognome FROM Anagrafica;
> proprietà query valori univoci impostato a SI
>
>
> - sull'evento "Dopo aggiornamento"  della  combo andando a pescare
> l'id relativo vorrei poter inserire i valori di  Cognome e Nome in due
> campi presenti nel corpo della maschera
Prova quale dovrebbe essere il flusso della tua elaborazione
Antonio


title: select distinct su combo non funziona

text:
> Prova quale dovrebbe essere il flusso della tua elaborazione
>
Questa mattina mi sono tolto il prosciutto dagli occhi, purtroppo i
pivelli come me sono destinati a fare ancora molta gavetta, GRAZIE
ancora per la pazienza
Andrea


title: select distinct su combo non funziona

text:
"andrea" <
andrea...@libero.it
> ha scritto nel messaggio
news:4fae75e.03051...@posting.google.com...

Come hanno fatto tutti prima di te...
Quelli volenterosi almeno...
Antonio


title: Verticalizzazione dati !

author: bc

text:
Vi riscrivoperchè ad una  prima risposta era seguito un invito a discutere
il problema... ma probabilmante x le vacanze non se ne è fatto più niente
////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
Allora.... vi scrivo perchè sicuramente qualcuno mi saprà aiutare.
Il programma gestisce un reparto ospedaliero.
Ho una tbl (anagrafica) correlata con una prima tbl che contiene le date e
le ore e a sua volta correlata con una tbl con i farmaci da somministare.
Cioè: il signor Tizio, il giorno 10 aprile prende una aspirina, una
compressa di amplital e un cucchiaio di sciroppo (al mattino) ma la sera per
un dolore fa una fiala di voltaren.. .. il giorno 11 aprile continua  a
prendere amplital e aspirina ma sospende lo sciroppo e aggiunge una supposta
di glicerina...
Come faccio a far vedere una sola form che riguarda il paziente Tizio  e che
contiene (in verticale) le n sottoform nella quale la prima riga è
rappresentata dalla data e le altre i farmaci da somministrare, in modo da
vedere lo scorrere della terapia in corso, sospesa o aggiunta?  ...una cosa
del genere....
TIZIO
10/4/2000     10/04/2000     11/04/2000     12/04/2000
h 8.00            h 19.00           h. 8.00             h 8.00
aspirina                                 aspirina            sospende
amplital 1 gr.                         amplital 1 gr.    amplital 1 gr.
sobrepin                                sospende
                     voltaren fl.       glicerina supp
Non so se sono stato chiaro?
Comunque ... grazie in anticipo
bce...@tiscalinet.it
////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////
.... non è necessario visualizzare un periodo infinito di tempo ma anche
pochi giorni alla volta