title: Stampare singolo record in un report

text:
On 23 Nov, 16:03, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:c74097ae-b4c1-4996...@i41g2000vbn.googlegroups.com...

> Antonio- Nascondi testo citato
>
> - Mostra testo citato -
Sì Antonio la ciclazione diventa un po complessa per me.Quindi ho
adottato per la tua soluzione del "Facciamo che li stampiamo
tutti".L'unica cosa e' per ogni pag.del report non piu' di 10 record.
Grazie
Dino


title: Stampare singolo record in un report

author: Antonio Biso

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:2fb2a4f2-8782-4175...@k5g2000vbn.googlegroups.com...
On 23 Nov, 16:03, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> messaggionews:c74097ae-b4c1-4996...@i41g2000vbn.googlegroups.com...
> On 23 Nov, 13:04, Dino <
verrengia.d...@alice.it
> wrote:
>
>
> > > ma porca pupazza, ma perchè stampare tutto insieme e man mano che
> > > arrivano i
> > > fenomeni fargli firmare il foglio già pronto no??????
>
> > > creati una copia della tabella dati, solo la struttura
> > > all'inizio della procedura la svuoti con una query di eliminazione
> > > utilizzo dei recordset
> > > apri il recordset sulla tabella origine dati
> > > apri il recordset sulla tabella d'appoggio nuova
> > > cominci a ciclare sul recordset origine e per ogni record fai un
> > > addnew
> > > nella tabella nuova
> > > ci metti sempre l'ID e i dati nei campi solo se è il record
> > > selezionato
> > > quindi i recordset e lanci il report che deve basarsi sulla tabella
> > > d'appoggio
docmd.setwarnings false
docmd.runsql "delete tab_app.* from tab_app"
docmd.setwarnings true
set rst = currentdb.openrecordset("Tab_origine")
set rst1= currentdb.openrecordset("Tab_app")
rst.movefirst
do until rst.eof
  rst1.addnew
  rst1.fields("ID") = rst.fields("ID")
  if rst.fields("ID") = SCELTO then
      for i = 1 to rst.fields.count-1
        rst1.fields(i) = rst.fields(i)
      next i
  end if
  rst1.update
  rst.movenext
loop
set rst = nothing
set rst1 = nothing
docmd.openreport "tuoreport"
SCELTO è il controllo dove tu scegli il record da stampare e che deve dare
come colonna associata l'ID del record stesso
Il report si appoggerà su tab_app
Scritta di getto, senza test ma dovrebbe andare
Antonio


title: Stampare singolo record in un report

author: Dino

text:
On 23 Nov, 19:16, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:2fb2a4f2-8782-4175...@k5g2000vbn.googlegroups.com...

> Antonio- Nascondi testo citato
>
> - Mostra testo citato -
"Mi...chia...."     Scusa il termine  ma sei un
"mostro"(informaticamente parlando).Di getto e me la spari
così.Grandissimo!!!!!
domani mattina provo e ti faccio sapere.Fatti un giro nel nostro NG
Dino


title: Stampare singolo record in un report

text:

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
VOTA ANTONIO !!!!!! VOTA ANTONIO!!!!! confermo il "mostro" del post di
ieri.Funziona tutto alla grande.C'e' ancora un piccolo problemino.La
tabella origine e' costiuita da campi che derivano da campi calcolati
dalla query che svolge i calcoli.I campi li riporto semplicemente
andandoli a copiare nell'evento dopo agg. del combo che sceglie
l'oggetto venduto.
Esempio nella query ho il campo calcolato Prezzo (Importo per
Quantita').Nella tab di origine ho creato il campo
prezzodivendita.Quindi sull'evento dopo agg del combo
scrivo  Me.Prezzodivendita = me.Prezzo.
Facendo così come tu ben sai mi scrive il valore del campo calcolato
nel campo in tabella (e di conseguenza anche nella tab destinazione
per la stampa dei record).
Facendo così riesco ha copiare tutti i campi calcolati tranne 1.Il
campo in esame (che chiamo "Campo1") Campo1 e' un campo calcolato che
all'interno ha un istruzione IIf.Quando cerco di associarlo mi da
errore dicendo "impossibile copiare il valore
dell'espressione".Ovviamente con gli altri campi calcolati dove ci
sono semplici operazioni va benissimo.
Come posso fare????'
Grazie
Dino


title: Stampare singolo record in un report

text:

Eccomi!!!! Man mano che "strapazzo" la modifica mi saltano fuori dei
piccoli ritocchi da fare.Ad esempio una volta stampati i primi dieci
records il codice mi stampa correttamente al suo "posto" l'undicesimo
recors.Il problema e' che mi stampa la prima pagina del report con 10
righe vuote.Come posso invece far stampare la pagina del report dove
effettivamente ci sono i record da stampare??Esempio : Dal record 11
al record 20 deve solo stampare pagina 2.Dal record 21 al 30 solo pag
3 e così via.
Grazie
Dino


title: Stampare singolo record in un report

author: CIDI

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:fd5a8d19-b229-464d...@p1g2000vbo.googlegroups.com...
On 24 Nov, 10:17, Dino <
verrengia.d...@alice.it
> wrote:
> On 23 Nov, 20:49, Dino <
verrengia.d...@alice.it
> wrote:
>
> > > SCELTO č il controllo dove tu scegli il record da stampare e che deve
> > > dare
> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Eccomi!!!! Man mano che "strapazzo" la modifica mi saltano fuori dei
piccoli ritocchi da fare.Ad esempio una volta stampati i primi dieci
records il codice mi stampa correttamente al suo "posto" l'undicesimo
recors.Il problema e' che mi stampa la prima pagina del report con 10
righe vuote.Come posso invece far stampare la pagina del report dove
effettivamente ci sono i record da stampare??Esempio : Dal record 11
al record 20 deve solo stampare pagina 2.Dal record 21 al 30 solo pag
3 e cosě via.
cerca con google nello storico del NG:
stampare pagina corrente
ciao
Daniele
ps. ogni "taglia" parte del testo (quoting)


title: Stampare singolo record in un report

text:
On 24 Nov, 13:30, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:fd5a8d19-b229-464d...@p1g2000vbo.googlegroups.com...
> On 24 Nov, 10:17, Dino <
verrengia.d...@alice.it
> wrote:
>
> > On 23 Nov, 20:49, Dino <
verrengia.d...@alice.it
> wrote:
>
> > > > SCELTO il controllo dove tu scegli il record da stampare e che deve
> > > > dare
> > Dino- Nascondi testo citato
>
> > - Mostra testo citato -
>
> Eccomi!!!! Man mano che "strapazzo" la modifica mi saltano fuori dei
> piccoli ritocchi da fare.Ad esempio una volta stampati i primi dieci
> records il codice mi stampa correttamente al suo "posto" l'undicesimo
> recors.Il problema e' che mi stampa la prima pagina del report con 10
> righe vuote.Come posso invece far stampare la pagina del report dove
> effettivamente ci sono i record da stampare??Esempio : Dal record 11
> al record 20 deve solo stampare pagina 2.Dal record 21 al 30 solo pag
> 3 e cos via.
>
> cerca con google nello storico del NG:
> stampare pagina corrente
>
> ciao
> Daniele
>
> ps. ogni "taglia" parte del testo (quoting)
Ciao Daniele e grazie per la risp.
Ho inserito nel pie' di pag un controllo "Testo6" con la seguente
espressione :
="Pagina " & [Page] & " di " & [Pages]
poi sono andato sull'evento pagina del report e ho scritto
Me.Testo6 = Me.Page
il risultatopero' e' che non stampa il report.
Per essere piu' precisi io lancio il report da un form attraverso un
controllo (come avrai letto sopra) che stampa il record in cui ho il
focus nella riga corretta.Cioe' record 3 riga3 ecc.
Adesso con 20 records se voglio stampare il 20tesimo mi stampa la
prima pagina vuota (giustamente) e la seconda con il record
giusto.Come pero' tu ben sai io vorrei stampare solo la pag in cui
risiede il record.forse bisogna bloccare il report a 10 record??
(cioe' io pewr ogni pagina non voglio stampare piu' di 10 record)
Grazie
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:657be02c-15cc-444e...@q18g2000vbm.googlegroups.com...

ciao Dino
la mia idea era di farti stampare la pagina corrente del report
vedi se ti aiuta questa discussione:
http://tinyurl.com/34te368
Daniele


title: Stampare singolo record in un report

text:
On 24 Nov, 20:10, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:657be02c-15cc-444e...@q18g2000vbm.googlegroups.com...

> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Dany e grazie per la risp.
Dalla discussione che mi hai linkato ho prelevato la funzione di Alex
stampa pag attiva.
SEcondo me puo' funzionare, bisogna solo adeguarla al codice che mi ha
postato Antonio.Io ho provato ma non ci sono riuscito.In pratica
invece di stampare dirett. il report bisognerebbe aprirlo in anteprima
e poi stampare solo la pg. attiva (o meglio quella legata al record).
Di seguito ti posto tutto il codice unito.Vedi cosa riesci a fare in
base anche alla spiegazione che ti ho dato ieri.
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Tabsingrec.* from Tabsingrec"
DoCmd.SetWarnings True
Set rst = CurrentDb.openrecordset("Tabvenduto")
Set rst1 = CurrentDb.openrecordset("Tabsingrec")
rst.MoveFirst
Do Until rst.EOF
  rst1.AddNew
  rst1.Fields("IDvenduto") = rst.Fields("IDvenduto")
  If rst.Fields("IDvenduto") = IDvenduto Then
      For i = 1 To rst.Fields.Count - 1
        rst1.Fields(i) = rst.Fields(i)
      Next i
  End If
  rst1.Update
  rst.MoveNext
Loop
Set rst = Nothing
Set rst1 = Nothing
DoCmd.OpenReport "Grigliapagsingrec"
  DoCmd.SelectObject acReport,
Screen.ActiveReport.Name
  DoCmd.PrintOut acSelection,
Screen.ActiveReport.Page
,
Screen.ActiveReport.Page
Grazie in anticipo
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:d86a82fb-8921-40c5...@s9g2000vby.googlegroups.com...
> On 24 Nov, 20:10, "CIDI" <
dadonz...@spamtin.it
> wrote:
>> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
>> messaggionews:657be02c-15cc-444e-95d1->>
>> >> ps. ogni "taglia" parte del testo (quoting)

ciao Dino
devi aprire il report in anteprima con il tuo codice.
mettere il codice di Alex in un modulo.
personalizzare la barra menů inserendo un pulsante che richiami
la funzione di Alex
scorri il report e stampa la pagina che ti serve.
Daniele
ps. qua trovi come fare il quoting:
http://wiki.news.nic.it/QuotarBene


title: Stampare singolo record in un report

text:
On 25 Nov, 12:36, "CIDI" <
dadonz...@spamtin.it
> wrote:

> personalizzare la barra menù inserendo un pulsante che richiami
> la funzione di Alex
>
> scorri il report e stampa la pagina che ti serve.
>
> Daniele
> ps. qua trovi come fare il quoting:
http://wiki.news.nic.it/QuotarBene-
 Nascondi testo citato
>
> - Mostra testo citato -
Dany se fosse possibile io non vorrei aprire il report e poi
richiamare la funzione di Alex,vorrei solo che stampasse senza
visualizzare.se
 non e' possibile invece bisogna aprire il report in
anteprima ovviamente alla pagina scelta e da lì stamparla con la
funzione di Alex.
A poter integrare il codice che ti ho postato sarebbe meglio la prima
soluzione.
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:b1397823-186e-4485...@w29g2000vba.googlegroups.com...
On 25 Nov, 12:36, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> messaggionews:d86a82fb-8921-40c5...@s9g2000vby.googlegroups.com...>
> On 24 Nov, 20:10, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> devi aprire il report in anteprima con il tuo codice.
> mettere il codice di Alex in un modulo.
> personalizzare la barra menů inserendo un pulsante che richiami
> la funzione di Alex
>
> scorri il report e stampa la pagina che ti serve.
>
> Daniele
> ps. qua trovi come fare il quoting:
http://wiki.news.nic.it/QuotarBene-

> Nascondi testo citato
>
> - Mostra testo citato -
Dany se fosse possibile io non vorrei aprire il report e poi
richiamare la funzione di Alex,vorrei solo che stampasse senza
visualizzare.se
 non e' possibile invece bisogna aprire il report in
anteprima ovviamente alla pagina scelta e da lě stamparla con la
funzione di Alex.
A poter integrare il codice che ti ho postato sarebbe meglio la prima
soluzione.
non per me. spero che qualcuno possa aiutarti.
ciao
Daniele


title: Stampare singolo record in un report

text:
On 25 Nov, 17:55, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:b1397823-186e-4485...@w29g2000vba.googlegroups.com...
> On 25 Nov, 12:36, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
>
>
>
>
> > "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> > messaggionews:d86a82fb-8921-40c5...@s9g2000vby.googlegroups.com...>
> > On 24 Nov, 20:10, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> > devi aprire il report in anteprima con il tuo codice.
> > mettere il codice di Alex in un modulo.
> > personalizzare la barra menù inserendo un pulsante che richiami
> > la funzione di Alex
>
> > scorri il report e stampa la pagina che ti serve.
>
> > Daniele
> > ps. qua trovi come fare il quoting:
http://wiki.news.nic.it/QuotarBene-
> > Nascondi testo citato
>
> > - Mostra testo citato -
>
> Dany se fosse possibile io non vorrei aprire il report e poi
> richiamare la funzione di Alex,vorrei solo che stampasse senza
>
visualizzare.se
 non e' possibile invece bisogna aprire il report in
> anteprima ovviamente alla pagina scelta e da lì stamparla con la
> funzione di Alex.
> A poter integrare il codice che ti ho postato sarebbe meglio la prima
> soluzione.
>
> non per me. spero che qualcuno possa aiutarti.
>
> ciao
> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
ad ogni modo tu consigli aprirlo e poi gestire la funzione di Alex con
un controllo (pulsante)su report???Mi puoi fare un esempio
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:edd64f94-d4bd-4caa...@z19g2000yqb.googlegroups.com...


fai clic sulla barra menù ...Personalizza....aggiuntivo....lo aggiungi alla
barra dove ti fa più comodo....clic dx su
aggiuntivo...rinomina...StampaPagina
...proprietà....azione =stampaPagina()
apri il report in anteprima...cerchi la pagina ...clic su stampaPagina
ciao
Daniele


title: Stampare singolo record in un report

text:
On 25 Nov, 18:47, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:edd64f94-d4bd-4caa...@z19g2000yqb.googlegroups.com...

Perfetto Dany .Tralaltro analizzando bene il tutto la tua soluzione
prob. e' la migliore,in quanto con il codice sopra riportato io arrivo
gia' alla pagina in esame devo solo aprirlo in anteprima e poi
stamparlo.Non so se come dice qualcuno "SONO STATO SPIEGATO"
.Adesso sto uscendo,domanmi mattina provo se riesci fai una girata al
post che ti faccio sapere se e' tutto Ok.
Grazie ancora
Dino


title: Stampare singolo record in un report

text:

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Eccomi Dany.ho creato il pulsante e nel combo azione ho inserito la
funzione =StampaPagina (ovviamente questa funzione l'ho inseritain un
modulo) il risultato pero' e' un errore infatti nel cliccare Access mi
dice:
"Impossibile trovare il nome stampa pagina specificato
nell'espressione"
Ci sono sicuramente dele imperfezioni che ho fatto:
Allora in PRIMIS tu mi dici vai in "azione" ed inserisci il nome della
funzione.Ma la casella combinata "azione" mi elenca tutte le macro del
DB.Mi accetta la funzione ma mi da errore.Ho provato anche creando una
macro che lancia la funzione ma mi da errore comunque.
Altra cosa il pulsante che ho aggiunto alla barra degli strumenti me
lo trovo ovviamente ogni volta che apro Access,mi spiegherai invece
come personalizzare una barra dei menu' per ogni DB (la cosa si fa
interessante).
Ultima cosa il "Quoting".Interessante il link che mi hai
postato,ma.....se non sbaglio riguarda sol oil testo,come posso
applicarlo ad un report???
Ecco questi sono i quesiti che ti pongo...Porta pazienza
e......comunque dovremmo essere vicini alla soluzione.
Aspetto tue notizie in merito
Grazie ancora
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:427aa56d-75f4-4164...@e20g2000vbn.googlegroups.com...
On 25 Nov, 19:04, Dino <
verrengia.d...@alice.it
> wrote:
> On 25 Nov, 18:47, "CIDI" <
dadonz...@spamtin.it
> wrote:
zacchete
Eccomi Dany.ho creato il pulsante e nel combo azione ho inserito la
funzione =StampaPagina (ovviamente questa funzione l'ho inseritain un
modulo) il risultato pero' e' un errore infatti nel cliccare Access mi
dice:
"Impossibile trovare il nome stampa pagina specificato
nell'espressione"
hai sbagliato ad inserire il codice nel modulo.
altrimenti "DEVE" funzionare
incolla qui il codice e il nome del modulo
Ci sono sicuramente dele imperfezioni che ho fatto:
Allora in PRIMIS tu mi dici vai in "azione" ed inserisci il nome della
funzione.Ma la casella combinata "azione" mi elenca tutte le macro del
DB.Mi accetta la funzione ma mi da errore.
che errore?
hai messo =stampaPagina()        punto interrogativo
Altra cosa il pulsante che ho aggiunto alla barra degli strumenti me
lo trovo ovviamente ogni volta che apro Access,mi spiegherai invece
come personalizzare una barra dei menu' per ogni DB (la cosa si fa
interessante).
apri in anteprima il report...clic su barra del report...personalizza...
Ultima cosa il "Quoting".Interessante il link che mi hai
postato,ma.....se non sbaglio riguarda sol oil testo,come posso
applicarlo ad un report???
Dino.....o Dino!!....non hai letto neanche un rigo del link?
non DEVI applicarlo al report...ma al post che invii
tagliando quanto non serve...altrimenti mandi un post chilometrico
confronto questo messaggio con quello che hai mandato tu
Ecco questi sono i quesiti che ti pongo...Porta pazienza
e......comunque dovremmo essere vicini alla soluzione.
Si, siamo vicino alla fine....  :DDD
ciao
Daniele


title: Stampare singolo record in un report

text:
On 26 Nov, 15:04, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:427aa56d-75f4-4164...@e20g2000vbn.googlegroups.com...

Buona a sapersi per il "quoting".C'e' sempre da imparare.
Questo e' il contenuto del modulo  e il nome e' "StampaPagina"
Function StampaPagina()
    DoCmd.SelectObject acReport,
Screen.ActiveReport.Name
    DoCmd.PrintOut acSelection,
Screen.ActiveReport.Page
,
Screen.ActiveReport.Page
End Function
Dino


title: Stampare singolo record in un report

author: sv

text:
Dino ha scritto:
>[cut]
> Questo e' il contenuto del modulo  e il nome e' "StampaPagina"
> Function StampaPagina()
>     DoCmd.SelectObject acReport,
Screen.ActiveReport.Name
>     DoCmd.PrintOut acSelection,
Screen.ActiveReport.Page
,
>
Screen.ActiveReport.Page
> End Function
> Dino
La funzione StampaPagina() (che allora ci forně Alex) e che fu testata era
questa:
Function stampaPagina()
    With Screen.ActiveReport
        If .Filter = vbNullString Then
            .FilterOn = True
            .Filter = " "
            .Filter = vbNullString
        Else
            .Filter = .Filter
            .FilterOn = True
        End If
        DoEvents
        DoCmd.SelectObject acReport, .Name
        DoCmd.PrintOut acSelection, .page, .page
  End With
End Function
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:138775f9-3639-4937...@e20g2000vbn.googlegroups.com...
On 26 Nov, 15:04, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> messaggionews:427aa56d-75f4-4164...@e20g2000vbn.googlegroups.com...
> On 25 Nov, 19:04, Dino <
verrengia.d...@alice.it
> wrote:> On 25 Nov, 18:47,
> "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> zac
> Ultima cosa il "Quoting".Interessante il link che mi hai
> postato,ma.....se non sbaglio riguarda sol oil testo,come posso
> applicarlo ad un report???
>
> Dino.....o Dino!!....non hai letto neanche un rigo del link?
> non DEVI applicarlo al report...ma al post che invii
> tagliando quanto non serve...altrimenti mandi un post chilometrico
> confronto questo messaggio con quello che hai mandato tu
>
> Ecco questi sono i quesiti che ti pongo...Porta pazienza
> e......comunque dovremmo essere vicini alla soluzione.
>
> Si, siamo vicino alla fine.... :DDD
>
> ciao
> Daniele
Buona a sapersi per il "quoting".C'e' sempre da imparare.
resta il fatto che non hai applicato il quoting...
Questo e' il contenuto del modulo  e il nome e' "StampaPagina"
Function StampaPagina()
    DoCmd.SelectObject acReport,
Screen.ActiveReport.Name
    DoCmd.PrintOut acSelection,
Screen.ActiveReport.Page
,
Screen.ActiveReport.Page
End Function
non serve a niente!!!...
questo � il codice giusto che avresti trovato se avessi letto il 3d:
Function stampaPagina()
    With Screen.ActiveReport
        If .Filter = vbNullString Then
            .FilterOn = True
            .Filter = " "
            .Filter = vbNullString
        Else
            .Filter = .Filter
            .FilterOn = True
        End If
        DoEvents
        DoCmd.SelectObject acReport, .Name
        DoCmd.PrintOut acSelection, .page, .page
  End With
End Function
ciao
Daniele


title: Stampare singolo record in un report

text:
On 26 Nov, 18:13, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:138775f9-3639-4937...@e20g2000vbn.googlegroups.com...

> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
>Ok Dany ma io ho trovato quello (Tu dirai "Hai guardato come il quoting????" AAAhhhh).
>Provo e vi faccio sapere
>Dino


title: Stampare singolo record in un report

text:

> >Dino- Nascondi testo citato
>
> - Mostra testo citato -
Vi avevo gia' ringraziato nella risp.Ma forse I quoting non mi hanno
fatto passare il messaggio.
Ag ogni modo il problema e' ancora in quel "Ca.........rissimo
pulsante sulla barra degli strumenti.non mi riconosce il nome del
modulo.Nel combo Azione inserisco
StampaPagina cioe' il nome del modulo ma non va.Mi dice che non
riconosce la macro ecc.
dove sbaglio???
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:316d28c3-3f08-4844...@j21g2000vba.googlegroups.com...



dove sbaglio???
sbagli a non prestare attenzione a ciò che ti dicono....
NON devi inserire il NOME del modulo ...
ma il NOME della Function che sarebbe: =stampaPagina()
come ti avevo GIA' segnalato nel post del 26/11/2010 15.04
che riporto parzialmente:
Ci sono sicuramente dele imperfezioni che ho fatto:
Allora in PRIMIS tu mi dici vai in "azione" ed inserisci il nome della
funzione.Ma la casella combinata "azione" mi elenca tutte le macro del
DB.Mi accetta la funzione ma mi da errore.
che errore?
"""" hai messo =stampaPagina()        punto interrogativo """""
ciao
Daniele


title: Stampare singolo record in un report

text:
On 26 Nov, 19:36, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:316d28c3-3f08-4844...@j21g2000vba.googlegroups.com...

No Dany come ho scritto sopra ho messo solo StampaPagina e nasta.Ho
provato con StampaPagina() ma e' lo stesso
Dino


title: Stampare singolo record in un report

text:

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Stasera scrivo molto bene "e nasta"......Volevo dirti che ho inserito
anche =nomefunzione() ma da sempre lo stesso errore.Io sono convinto
di sbagliare qualche passaggio:
Barra degli strumenti >tasto destro>personalizza>scheda comandi>scheda
comandi>trascino "aagiuntivo"sulla barra>poi tasto destro prop ed
inserisco i dati .
Lo stesso nella barra del report.(non dovrebbe centrare ma lavoro con
Access 2000)
Dino


title: Stampare singolo record in un report

text:
"sv" <
sal...@accessgroup.it
> ha scritto nel messaggio
news:icop21$dgd$1...@news.newsland.it...

ciao Salvino
ricordo che su accessgroup c'era un esempio fatto da Paolo Dal Bosco
che adesso non trovo piů. gugolando ho trovato un link che mi porta
ad una pagina inesistente.
sai qualcosa?
Daniele


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:1ff5c192-98a1-4fe3...@g26g2000vba.googlegroups.com...
On 26 Nov, 19:43, Dino <
verrengia.d...@alice.it
> wrote:
> On 26 Nov, 19:36, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> > dove sbaglio???
>
> > sbagli a non prestare attenzione a ci� che ti dicono....
> > NON devi inserire il NOME del modulo ...
> > ma il NOME della Function che sarebbe: =stampaPagina()
>
> > come ti avevo GIA' segnalato nel post del 26/11/2010 15.04
> > che riporto parzialmente:
>
> > Ci sono sicuramente dele imperfezioni che ho fatto:
> > Allora in PRIMIS tu mi dici vai in "azione" ed inserisci il nome della
> > funzione.Ma la casella combinata "azione" mi elenca tutte le macro del
> > DB.Mi accetta la funzione ma mi da errore.
>
> > che errore?
> > """" hai messo =stampaPagina() punto interrogativo """""
>
> > ciao
> > Daniele
>
> No Dany come ho scritto sopra ho messo solo StampaPagina e nasta.Ho
> provato con StampaPagina() ma e' lo stesso
>
> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Stasera scrivo molto bene "e nasta"......Volevo dirti che ho inserito
anche =nomefunzione() ma da sempre lo stesso errore.Io sono convinto
di sbagliare qualche passaggio:
anch'io, come l'ispettore Rock, ho commesso un errore...:D
nel report devi mettere anche questo codice:
Private Sub Report_Page()
 A = Me.page
 If A = 0 Then NrPagina = Me.page: NrPagine = Me.pages: A = 1
 NrPagina = A + 1
 Me.Caption = "Pagina " & page & " di " & pages
 End Sub
nel pi� di pagina pagina inserisci una casella di testo e
nell'origine controllo: ="Pagina " & [Page] & " di " & [Pages]
report aperto in anteprima di stampa
clic su barra men� ( dove vedi il simbolo della stampante, lente
zoom ecc ecc) >Personalizza>Aggiuntivo> trascina sulla barra
clic dx su aggiuntivo>Azione =stampaPagina()
chiudi
prova
fai sapere
pant...pant...puff... puff... pant  :D
Daniele


title: Stampare singolo record in un report

text:
On 26 Nov, 23:26, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:1ff5c192-98a1-4fe3...@g26g2000vba.googlegroups.com...

> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
>Ehila!!!!!RAGA sveglia!!!!!!! "giu dalle brande" si diceva una volta e'..... vi ricordate????? o siete ancora troppo giovani??????
veniamo a noi.........C'era uno una volta che diceva "sbagli a non
prestare attenzione a cio' che ti dicono"..........Paf..Paf....Paf.....
(e tu dirai "fai silenzio e impara")
OK dopo i ricordi di "Naja" e le battute di spirito parliamo di cose
serie.
Ho seguito alla lettera le tue indicazioni,ma non e' cambiato nulla.A
dir la verita pero' ho notato questo:
se inserisco il pulsante "aggiuntivo nella barra dei menu' me lo fa
aggiungere,se invece apro il report in anteprima e cerco di crearlo
non me lo permette.
WHY????
Dino


title: Stampare singolo record in un report

text:

>Ho creato una barra strumenti personalizzata e lo chiamata stampa rep.All'interno ho inserito "aggiuntivo" ecc.facendo così vedo il mio pulsante nella barra del report >in anteprima ma il ris. non cambia;mi esce il messaggio 2Impossibile trovsare il nome immesso nell'espressione"
>Aspetto vostre notizie
>Grazie in super anticipo
>Dino


title: Stampare singolo record in un report

text:
CIDI ha scritto:
> "sv" <
sal...@accessgroup.it
> ha scritto nel messaggio
> news:icop21$dgd$1...@news.newsland.it...
> > Dino ha scritto:
> >
> >>[cut]
> >
> >> Questo e' il contenuto del modulo  e il nome e' "StampaPagina"
> >
> >> Function StampaPagina()
> >>     DoCmd.SelectObject acReport,
Screen.ActiveReport.Name
> >>     DoCmd.PrintOut acSelection,
Screen.ActiveReport.Page
,
> >>
Screen.ActiveReport.Page
> >> End Function
> >
> >> Dino
> >
> > La funzione StampaPagina() (che allora ci forn� Alex) e che fu testata era
> > questa:
> >
> > Function stampaPagina()
> >    With Screen.ActiveReport
> >        If .Filter = vbNullString Then
> >            .FilterOn = True
> >            .Filter = " "
> >            .Filter = vbNullString
> >        Else
> >            .Filter = .Filter
> >            .FilterOn = True
> >        End If
> >        DoEvents
> >        DoCmd.SelectObject acReport, .Name
> >        DoCmd.PrintOut acSelection, .page, .page
> >  End With
> > End Function
> >
> ciao Salvino
> ricordo che su accessgroup c'era un esempio fatto da Paolo Dal Bosco
> che adesso non trovo pi�. gugolando ho trovato un link che mi porta
> ad una pagina inesistente.
> sai qualcosa?
> Daniele
Ciao Daniele
In quella discussione Paolo scrisse che avrebbe mandato a Massimiliano il
demo, per� non l'ho visto. Tra l'altro anch'io ne avevo uno perch� allora
il test lo feci su un report con oltre 6000 pagine, e funzionava alla
perfezione. Far� delle ricerche e mi sentir� con Massimiliano.
Da quello che mi sembra per�, il problema di Dino � che non riesce a far
partire la funzione utilizzando un menu aggiuntivo da una barra
personalizzata.



title: Stampare singolo record in un report

text:
On 27 Nov, 08:44,
salv...@accessgroup.it
 (sv) wrote:
> CIDI ha scritto:
>
>
>
>
>
> > "sv" <
salv...@accessgroup.it
> ha scritto nel messaggio

> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -
Sì e' proprio così.ho comunque provato ad inserire un nuovo menu'
chiamato "Stampa rep" e all'interno ho inserito "aggiuntivo" con
azione =StampaPagina().Facendo così il pulsante viene visto sulla
barra strumenti in anteprima del report,ma non funziona lo stesso.
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:791d6a0e-57d4-45f5...@j33g2000vbb.googlegroups.com...


>rep.All'interno ho inserito "aggiuntivo" ecc.facendo cos� vedo il mio
>pulsante nella barra del report >in anteprima ma il ris. non cambia;mi esce
>il messaggio 2Impossibile trovsare il nome immesso nell'espressione"
vabb� Dino c'ho provato....
se vuoi(puoi) mandami il minimo per vedere di risolvere...
solo il report e il modulo della function
l'indirizzo dovresti averlo...
altrimenti togli NO prima di @ e spam dopo
ciao
Daniele


title: Stampare singolo record in un report

text:
On 27 Nov, 10:05, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:791d6a0e-57d4-45f5...@j33g2000vbb.googlegroups.com...

Ok Dany.Adesso sto uscendo.Ti invio il tutto come antipasto per pranzo
Grazie mille.
NB:Secondo te non puo' essere Access 2000 che da problemi???


title: Stampare singolo record in un report

text:

> NB:Secondo te non puo' essere Access 2000 che da problemi???- Nascondi testo citato
>
> - Mostra testo citato -
L'ho inviato oro ora!!!!!
Dino


title: Stampare singolo record in un report

text:
Dino ha scritto:


Ciao Dino
Controlla attentamente il nome della funzione e quello che hai scritto
sotto "Azione" di "Aggiuntivo". L'errore "Impossibile trovare il nome di
funzione immesso nell'espressione" nasce solo e soltanto quando il nome
funzione è diverso dal nome sotto "Azione". Quindi attento a spazi o altro.
Per essere sicuro fai un copia incolla del nome funzione in "Azione".
Ricordati che è obbligatorio il segno uguale prima del nome funzione.
Controlla bene che è questo il problema.
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito



title: Stampare singolo record in un report

text:

> gratuitohttp://
www.newsland.it/newssegnalagli
 abusi ad ab...@newsland.it-
> Nascondi testo citato
>
>
>
> > > - Mostra testo citato -
> > S e' proprio cos .ho comunque provato ad inserire un nuovo menu'
> > chiamato "Stampa rep" e all'interno ho inserito "aggiuntivo" con
> > azione =StampaPagina().Facendo cos il pulsante viene visto sulla
> > barra strumenti in anteprima del report,ma non funziona lo stesso.
> > Dino
>
> Ciao Dino
> Controlla attentamente il nome della funzione e quello che hai scritto
> sotto "Azione" di "Aggiuntivo". L'errore "Impossibile trovare il nome di
> funzione immesso nell'espressione" nasce solo e soltanto quando il nome
> funzione diverso dal nome sotto "Azione". Quindi attento a spazi o altro.
> Per essere sicuro fai un copia incolla del nome funzione in "Azione".
> Ricordati che obbligatorio il segno uguale prima del nome funzione.
> Controlla bene che questo il problema.
>
> --
> sv
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -
Grazie SV per la risposta.Ho fatto proprio così:copia\incolla del nome
funzione e poi in azione =nome funzione().Ma da sempre lo stesso tipo
di errore
Dino


title: Stampare singolo record in un report

text:
Dino ha scritto:

> Grazie SV per la risposta.Ho fatto proprio cosě:copiaincolla del nome
> funzione e poi in azione =nome funzione().Ma da sempre lo stesso tipo
> di errore
> Dino
Mandami il DB.
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito



title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:56e48750-7380-4f1d...@w21g2000vby.googlegroups.com...

non è arrivato
Daniele


title: Stampare singolo record in un report

text:
On 27 Nov, 16:42, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:56e48750-7380-4f1d...@w21g2000vby.googlegroups.com...
>
> > On 27 Nov, 10:24, Dino <
verrengia.d...@alice.it
> wrote:
> >> On 27 Nov, 10:05, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> >> NB:Secondo te non puo' essere Access 2000 che da problemi???- Nascondi
> >> testo citato
>
> >> - Mostra testo citato -
>
> > L'ho inviato oro ora!!!!!
>
> non arrivato
>
> Daniele
no no e' arrivato nulla
Dino


title: Stampare singolo record in un report

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:6cd103f0-1192-4aea...@k11g2000vbf.googlegroups.com...

a me NON č arrivato niente da parte tua.
sicuro di aver scritto l'indirizzo giusto?
rimanda zippato a dadonz...@QUESTOtin.it
leva lo scritto maiuscolo
Daniele


title: Stampare singolo record in un report

text:
On 27 Nov, 19:07, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:6cd103f0-1192-4aea...@k11g2000vbf.googlegroups.com...
>
>
>
>
>
> > On 27 Nov, 16:42, "CIDI" <
dadonz...@spamtin.it
> wrote:
> >> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> >> messaggionews:56e48750-7380-4f1d...@w21g2000vby.googlegroups.com...
>
> >> > On 27 Nov, 10:24, Dino <
verrengia.d...@alice.it
> wrote:
> >> >> On 27 Nov, 10:05, "CIDI" <
dadonz...@spamtin.it
> wrote:
>
> >> >> NB:Secondo te non puo' essere Access 2000 che da problemi???- Nascondi
> >> >> testo citato
>
> >> >> - Mostra testo citato -
>
> >> > L'ho inviato oro ora!!!!!
>
> >> non arrivato
>
> >> Daniele
>
> > no no e' arrivato nulla
>
> a me NON è arrivato niente da parte tua.
> sicuro di aver scritto l'indirizzo giusto?
> rimanda zippato a dadonziTO...@QUESTOtin.it
> leva lo scritto maiuscolo
> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
Ti ho mandato un'altra mail alle 18:40.Ag ogni modo la mia mail e:
verreng...@alice.it
 mandami gent un messaggio di prova che poi ti
allego il DB
Grazie ancora
Dino


title: filedialog con late binding

author: diego

text:
Buona sera a tutto il NG, colgo l'occasione per agurarvi una buona
Madonna.
La domanda è la seguente, esiste la remota possibilità di creare
l'oggetto FileDialog con il metodo del late binding o e' sempre e
comunque necessario fleggare il riferimento della libreria  Microsoft
Office 10 ?
Perche' alla fine il problema che mi si pone è sempre lo
stesso...metti che l'applicativo dovrà girare su un A00 o AXp che
faccio?...lì la Libreira di riferimento è la 10 mentre l'applicativo
che sto sviluppando e' creato con A2003 che ha come riferimento la
verisione 11.
Chiedo lumi...ed inoltre se fosse fattibile, non e' che per caso
potreste suggerirmi un sito o un demo dove prendere l'esempio?
Grazie
Saluti
Diego


title: filedialog con late binding

author: ciroteo

text:
"diego" <
diegoci...@hotmail.com
> ha scritto nel messaggio
news:1165519679.2...@n67g2000cwd.googlegroups.com...



Grazie
Saluti
Diego
Nella speranza di aver capito bene cosa chiedi riprendo citazione di namor
che rispondeva al messaggio postato appena prima del tuo ... sei stato
fortunato.
www.sitocomune.com
 sez. General 6.22 o Modules 5.5
Ciao.


title: filedialog con late binding

author: Alessandro Baraldi

text:
diego ha scritto:

Access2000 non supporta FileDialog in nessun modo...., quindi a mio
avviso le vecchie
care e dolci API sono ancora la soluzione migliore da A97 ad A2007.
Detto questo il LateBinding si fà così:
Dim myObj As Object
Set myObj = CreateObject("Office.FileDialog")
Ora in myObj hai l'oggetto FileDialog istanziato accedendo alla
libreria di Office presente
nel S.O.(ovviamente da A2002 in poi che se non ricordo male è Office
10)
@Alex


title: filedialog con late binding

text:
Alessandro Baraldi ha scritto:
> Access2000 non supporta FileDialog in nessun modo...., quindi a mio
> avviso le vecchie
> care e dolci API sono ancora la soluzione migliore da A97 ad A2007.
>
> Detto questo il LateBinding si fà così:
>
> Dim myObj As Object
> Set myObj = CreateObject("Office.FileDialog")
>
> Ora in myObj hai l'oggetto FileDialog istanziato accedendo alla
> libreria di Office presente
> nel S.O.(ovviamente da A2002 in poi che se non ricordo male è Office
> 10)
>
> @Alex
Ciao Alex...grazie della tua disponibilità,
ricordi bene sino al A2002, in A2003 la versione e' la 11
metto subito in pratica il tuo suggerimento.
Grazie e Buona Madonna.
Saluti
Diego


title: filedialog con late binding

text:
ciroteo (nospam) ha scritto:
> Nella speranza di aver capito bene cosa chiedi riprendo citazione di namor
> che rispondeva al messaggio postato appena prima del tuo ... sei stato
> fortunato.
>
>
www.sitocomune.com
 sez. General 6.22 o Modules 5.5
> Ciao.
Ciao Ciroteo, Grazie per avermi risposto, ho visionato in S.C. il tuo
suggerimento, ma non e' proprio quello che cercavo, vicerversa
Alessandro ha capito, intendevo proprio la creazione dell'oggetto
FILEDIALOG allo stesso modo di come si creerebbe un oggetto tipo Word o
Excel senza dover fare riferimento alle librerie.
Ti ringrazio comunque della tua disponibilità e ti auguro una Buona
Madonna
Saluti
Diego


title: filedialog con late binding

text:
Alessandro Baraldi ha scritto:
>
> Access2000 non supporta FileDialog in nessun modo...., quindi a mio
> avviso le vecchie
> care e dolci API sono ancora la soluzione migliore da A97 ad A2007.
>
> Detto questo il LateBinding si fà così:
>
> Dim myObj As Object
> Set myObj = CreateObject("Office.FileDialog")
>
> Ora in myObj hai l'oggetto FileDialog istanziato accedendo alla
> libreria di Office presente
> nel S.O.(ovviamente da A2002 in poi che se non ricordo male è Office
> 10)
>
> @Alex
Mannaggia mi restituisce un errore, "Il componente active x non e' in
grado di creare l'oggetto"
e il debug si ferma qui : Set myObj = CreateObject("Office.FileDialog")
io scrivo questo:
    Dim fd As Object
    Dim msoFileDialogFilePicker
    Set fd = CreateObject("Office.FileDialog")
    Set fd = FileDialog(msoFileDialogFilePicker)
dove sbaglio??
saluti
Diego


title: filedialog con late binding

text:
Alessandro Baraldi ha scritto:
> Access2000 non supporta FileDialog in nessun modo...., quindi a mio
> avviso le vecchie
> care e dolci API sono ancora la soluzione migliore da A97 ad A2007.
scusa Alex, non è che prima di fare il LateBinding devo fare
riferimento alle API ? del tipo:
Private Declare Function FileDialog Lib "comdlg32.dll" _
            Alias "FileDialog" (FileDialog As FileDialog) As Long
Non so che cosa ho scritto, ho preso spunto dal S.C. Sez.General 6.22,
il suggerimento di Ciroteo insomma, siccome tu prima hai parlato di
API, e il modulo del S.C. ne fa riferimento, pensavo bisognasse farlo
anche con il tuo suggerimento prima di procedere con il LateBinding.
Sono in errore?



title: filedialog con late binding

author: Simone Calligaris

text:
"diego"
Ciao Alex...grazie della tua disponibilità,
ricordi bene sino al A2002, in A2003 la versione e' la 11
metto subito in pratica il tuo suggerimento.
Grazie e Buona Madonna.
Ma lascia perdere: ti hanno suggerito di usare le API del sito comune per i
selettori Files e cartelle.
L'oggetto FileDialog peraltro non è supportato dalle versioni Runtime.
Saluti.


title: filedialog con late binding

text:
Simone Calligaris ha scritto:

;-)
@Alex


title: filedialog con late binding

text:
Vabbe'...vedrò come fare ad usarle!
Saluti
Diego


title: filedialog con late binding

text:
diego ha scritto:
> Vabbe'...vedrò come fare ad usarle!
>
> Saluti
>
> Diego
Ti suggerisco questo Demo che è completo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=27
@Alex


title: filedialog con late binding

text:
Alessandro Baraldi ha scritto:
> Ti suggerisco questo Demo che è completo:
>
>
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=27
>
> @Alex
Grazie Alessandro, ho scaricato e, per quanto mi e' possibile in base
alle mie conoscenze, cercato di studiarlo, implementa l'apri File ed il
Salva File, con tutto il codice che ne concerne.
Ciò che realmente mi bisognava era un sostitutivo del FileDialog, e
cio' che, sia Ciroteo e tu, mi avete proposto sicuramente riuscirebbe a
sostituirlo alla grandissime, considerando anche il fatto che può
essere usato RunTime, dirai a questo punto...ma allora che cavolo
cerchi?...ed a questo rispondo immediatamente, nell'applicativo che sto
cercando di sviluppare è contemplato il relinkamento delle tabelle
qualora il Db_Be venisse spostato, o se ogni volta che si avvia il pc
che fa da server per accedere alle tabelle viene chiesta la password, e
quindi è come se dovessi riallegare le tabelle dopo uno spostamento.
avevo trovato nel S.C. un demo sul relinkare le tabelle, ma questo demo
usa il filedialog, quindi che succede se lo uso sul mio pc che ha A003
va bene perche' gli fleggo la libreira di riferimento e vado...ma se lo
sposto in un pc con Axp o A00 mi attacco al tram, ecco il perche' della
mia ostinazione sul trovare un modo sostitutivo al FileDialog, avendo
provato il tuo demo e quello suggeritomi da ciroteo (mi pare che
l'autore fosse Stefano Bettini) mi sorge il problema di come rialeegare
le tabelle in quanto il commonDialog in questione le apre o le salva!!
per completezza d'Argomento Posto il codice che permette il
Riallegamento:
Public Function CheckLinks() As Boolean
' Check linked tables relink if necessary. Returns true if
' links are okay (or links are successfully refreshed).
    ' On Error GoTo CheckLinksErr
    Dim tdf As TableDef
    Dim strNewMDB As String
    Dim fd As FileDialog
    For Each tdf In CurrentDb.TableDefs
        If Len(tdf.Connect) > 0 And tdf.Fields.count = 0 Then
            If Len(strNewMDB) = 0 Then
                MsgBox "Il File di Dati Back-End per questo Database" &
Chr(13) & "       è stato spostato o rinominato" & Chr(13) &
"Scegliere un File di dati valido per continuare", vbCritical,
TitoloApp
                ' Create a FileDialog object.
                Set fd =
Application.FileDialog(msoFileDialogFilePicker)
                With cmdlg_file
                    ' Set dialog box properties.
                    .AllowMultiSelect = False
                    .InitialFileName = CurrentDBFolder()
                    .Filters.Add "Access Database File (*.mdb)",
"*.mdb", 1
                    .Title = "Select Back-End Data File"
                    .ButtonName = "Link Tables"
                    ' Show the dialog box.
                    If .Show = False Then  ' User clicked Cancel.
                        Exit Function
                    Else
                        ' Selected file is in the SelectedItems
collection.
                        strNewMDB = .Additems(1)
                    End If
                End With
            End If
            ' Refresh the link using the selected back-end database.
            tdf.Connect = ";DATABASE=" & strNewMDB
            tdf.RefreshLink
        End If
    Next tdf
    CheckLinks = True   ' Relinking was a success.
       MsgBox "Collegamento alle Tabelle del Database Effettuato !",
vbInformation, TitoloApp
CheckLinksDone:
    Exit Function
CheckLinksErr:
    MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical
    Resume CheckLinksDone
End Function
Saluti
Diego


title: filedialog con late binding

text:
diego ha scritto:

Aspetta, andiamo per passi.
Di solito il SERVER, o nel caso di Access il BE, che si trova in una
rete LAN, non DEVE cambiare posizione, farlo sarebbe come giocare....!
Invece prevedere che possa succedere è un'altro discorso...!
Come si può procedere...?
Premesso che una volta Linkate le tabelle non DEVE più essere
necessario darlo se il BE rimane al suo posto, quindi se ti succede una
cosa simile ti conisiglio di capire il perchè e risolverlo....!
In ogni caso, io le cancello sempre tutte le LinkedTable alla chiusura
dell'applicativo, e le ricollego dopo il Login(nel Client o FE ho una
Tabella Locale con l'elenco delle Tabelle da cercare lato Server)
Dove mi salvo il percorso del Server e l'autenticazione...?
In una ChiaveDiRegistro Criptata che creo con il Setup.
A quel punto nel file MDE apro un rs con ODBC collegato al BE(o server)
verifico il LOGIN
quindi ciclo la tabella Locale con l'elenco dei Nomi delle Tabelle e
tramite CreateTabledefs
le creo e gli assegno la proprietà Connect costituita da
";DATABASE=Nome;PWD=***"
La cosa è semplicissima.
Se il responsabile della rete ha dovuto cambiare il server o la sua
posizione, distribuisco un filettino di pochi KB che va a modificare
nel Registro la Chiave con PERCORSO(ovviamente criptata)....!
Questo rende meno facile far scorrazzare l'utente che non deve essere
messo nella condizione di girare per ricollegare
tabelle....!!!!!!!!!!!!!!!!!!!!!!!!
@Alex


title: filedialog con late binding

text:
Alessandro Baraldi ha scritto:
>
> Aspetta, andiamo per passi.
>
> Di solito il SERVER, o nel caso di Access il BE, che si trova in una
> rete LAN, non DEVE cambiare posizione, farlo sarebbe come giocare....!
> Invece prevedere che possa succedere è un'altro discorso...!
>
> Come si può procedere...?
>
> Premesso che una volta Linkate le tabelle non DEVE più essere
> necessario darlo se il BE rimane al suo posto, quindi se ti succede una
> cosa simile ti conisiglio di capire il perchè e risolverlo....!
il problema sta che non appena si spegne il pc che funge da server o
comunque il pc dove risiede il BE, si disconnettono tutte le tabelle
ed ogni volta devo ricollegarle, inoltre ,non so perche', quando svolgo
il riallegamento in modo normale andandoci con il tasto desto del mouse
sulle tabelle collegate mi si apre la finestra di dialogo che mi chiede
dove andare a prendere le tabelle....seguo il percorso tipico...cioe' "
risorse di rete, gruppo di lavoro, pc dove risiede il BE", non appena
clicco sul nome del pc mi chiede l'autenticazione, cioe' devo sapere la
password per accedere al pc( la tipica password User Administrator che
c'e' su Xp all'avvio) se la conosco entro  e continuo il percorso sino
alla cartella dove risiede il BE, viceversa resto fregato, ecco cosa
succede Mannaggia...e non so come venirne fuori....non posso
sproteggere il pc a meno che...non setto la Pwd direttamente all'avvio
quella del bios per intenderci potrebbe essere una soluzione
> In ogni caso, io le cancello sempre tutte le LinkedTable alla chiusura
> dell'applicativo, e le ricollego dopo il Login(nel Client o FE ho una
> Tabella Locale con l'elenco delle Tabelle da cercare lato Server)
>
> Dove mi salvo il percorso del Server e l'autenticazione...?
>
> In una ChiaveDiRegistro Criptata che creo con il Setup.
>
> A quel punto nel file MDE apro un rs con ODBC collegato al BE(o server)
> verifico il LOGIN
> quindi ciclo la tabella Locale con l'elenco dei Nomi delle Tabelle e
> tramite CreateTabledefs
> le creo e gli assegno la proprietà Connect costituita da
> ";DATABASE=Nome;PWD=***"
>
> La cosa è semplicissima.
Insomma !!!!



title: filedialog con late binding

text:
"diego" <
diegoci...@hotmail.com
> ha scritto nel messaggio
news:1165579719.5...@j44g2000cwa.googlegroups.com...
ciroteo (nospam) ha scritto:



Saluti
Diego
ok, meglio così! davanti ai Guru mi inchino volentieri ...
;-)
M


title: filedialog con late binding

text:
ciroteo (nospam) ha scritto:
[CUT]
>
> ok, meglio così! davanti ai Guru mi inchino volentieri ...
> ;-)
> M
Occhio a non romperti l'altro tendine nel chinarti...!
;-)
@Alex


title: filedialog con late binding

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1165654674.0...@80g2000cwy.googlegroups.com...
ciroteo (nospam) ha scritto:
[CUT]
>
> ok, meglio cosě! davanti ai Guru mi inchino volentieri ...
> ;-)
> M
Occhio a non romperti l'altro tendine nel chinarti...!
;-)
@Alex
...azz ... te l'ho servita su un piatto d'argento!


title: Anomalia DMax

author: Sib

text:
Salve a tutti.
Qualcuno mi sa spiegare come mai questa una DMax che ha sempre funzionato
perfettamente, improvvisamente ha cominciato a restituire Null e poi,
altrettanto inaspettatamente, ha ripreso a funzionare?
la dmax e':
DMax("IDDoc";"Doc";"IDDoc like A02/????")
Che poi sarebbe la dmax all'interno della numerazione automatica.
Sib
PS ovviamente la base dati non ha subito modifiche e sostituiendo un
asteriso ai quattro punti interrogativi funzionava.
--
qualita.assicurazione su
www.cerrinet.it
Il newsgroup sulla Qualita'


title: Anomalia DMax

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:x1id9.50124$ub2.8...@news1.tin.it...
> Salve a tutti.
> Qualcuno mi sa spiegare come mai questa una DMax che ha sempre funzionato
> perfettamente, improvvisamente ha cominciato a restituire Null e poi,
> altrettanto inaspettatamente, ha ripreso a funzionare?
>
> la dmax e':
> DMax("IDDoc";"Doc";"IDDoc like A02/????")
>
> Che poi sarebbe la dmax all'interno della numerazione automatica.
Classico problema risolvibile con del debugging spinto e con i dati reali a
disposizione.
Teoricamente infatti è ineccepibile
Antonio


title: Anomalia DMax

author: Luciano (DOC)

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:aOid9.146931$lu5.3...@twister1.libero.it...
> Classico problema risolvibile con del debugging spinto
Aho, io ho provato a spignelo forte ma nun c'e' 'ntrato mica sa'!
Saluti.
Luciano


title: Anomalia DMax

author: Maurizio Borrelli

text:
> "Sib" [...]:
> Qualcuno mi sa spiegare come mai questa una DMax che ha sempre funzionato
> perfettamente, improvvisamente ha cominciato a restituire Null e poi,
> altrettanto inaspettatamente, ha ripreso a funzionare?
> la dmax e':
> DMax("IDDoc";"Doc";"IDDoc like A02/????")
> Che poi sarebbe la dmax all'interno della numerazione automatica.
> PS ovviamente la base dati non ha subito modifiche e sostituiendo un
> asteriso ai quattro punti interrogativi funzionava.
    Vedi risposta di Antonio Biso.
    Ipotizzando che gli utimi quattro caratteri da confrontare siano cifre,
mi domando pero' perche' tu non scriva piuttosto:
        DMax("[IDDoc]";"Doc";"[IDDoc] Like 'A02/####'")
?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Anomalia DMax

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > Salve a tutti.
> > Qualcuno mi sa spiegare come mai questa una DMax che ha sempre
funzionato
> > perfettamente, improvvisamente ha cominciato a restituire Null e poi,
> > altrettanto inaspettatamente, ha ripreso a funzionare?
> >
> > la dmax e':
> > DMax("IDDoc";"Doc";"IDDoc like A02/????")
> >
> > Che poi sarebbe la dmax all'interno della numerazione automatica.
>
> Classico problema risolvibile con del debugging spinto e con i dati reali
a
> disposizione.
> Teoricamente infatti è ineccepibile
Sono cosciente.
Devo dire che ho fatto delle prove e ho visto che:
1 le altre applicazioni che usavanodmax simili funzionavano perfettamente
2 la stessa dmax non funzionava neanche all'interno del codice
L'unica spiegazione che mi è venuta in mente e' che durante l'esecuzione
della dmax (prevalentemente all'apertura della maschera) il recordset di
riferimento risultasse in qualche modo bloccato o inaccessibile.
E' possibile?
Sib


title: Anomalia DMax

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:al4i6v$1n6ov3$1...@ID-86073.news.dfncis.de...

Hai provato con la sguillina?
Antonio


title: Anomalia DMax

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:uXkd9.50903$ub2.8...@news1.tin.it...
> > > DMax("IDDoc";"Doc";"IDDoc like A02/????")
> > >
> > > Che poi sarebbe la dmax all'interno della numerazione automatica.
> >
> > Classico problema risolvibile con del debugging spinto e con i dati
reali
> a
> > disposizione.
> > Teoricamente infatti è ineccepibile
>
> Sono cosciente.
> Devo dire che ho fatto delle prove e ho visto che:
> 1 le altre applicazioni che usavanodmax simili funzionavano perfettamente
> 2 la stessa dmax non funzionava neanche all'interno del codice
>
> L'unica spiegazione che mi è venuta in mente e' che durante l'esecuzione
> della dmax (prevalentemente all'apertura della maschera) il recordset di
> riferimento risultasse in qualche modo bloccato o inaccessibile.
> E' possibile?
Bloccato in lettura?
me parerebbe molto strano...
che significa che non funzionava neanche nel codice?
sicuro che c'erano veramente dei dati che verificavano la condizione?
Antonio


title: Anomalia DMax

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > > > DMax("IDDoc";"Doc";"IDDoc like A02/????")
> > > >
> > > > Che poi sarebbe la dmax all'interno della numerazione automatica.
> > >
> > > Classico problema risolvibile con del debugging spinto e con i dati
> reali
> > a
> > > disposizione.
> > > Teoricamente infatti è ineccepibile
> >
> > Sono cosciente.
> > Devo dire che ho fatto delle prove e ho visto che:
> > 1 le altre applicazioni che usavanodmax simili funzionavano
perfettamente
> > 2 la stessa dmax non funzionava neanche all'interno del codice
> >
> > L'unica spiegazione che mi è venuta in mente e' che durante l'esecuzione
> > della dmax (prevalentemente all'apertura della maschera) il recordset di
> > riferimento risultasse in qualche modo bloccato o inaccessibile.
> > E' possibile?
>
> Bloccato in lettura?
> me parerebbe molto strano...
>
> che significa che non funzionava neanche nel codice?
che all'interno del codice la funzione DMax("IDDoc","Doc","IDDoc like
???/????") restituiva null.
> sicuro che c'erano veramente dei dati che verificavano la condizione?
Of course!
a parte il fatto che, come dicevo prima, sostituendo un asterisco ai quattro
punti interrogativi la dmax funzionava.
Sib


title: Anomalia DMax

author: Alessandro Cara

text:
Sib wrote:
> Of course!
> a parte il fatto che, come dicevo prima, sostituendo un asterisco ai quattro
> punti interrogativi la dmax funzionava.
>
> Sib
sib lo so che sei un espertone e questa potrebbe essere una sonora
cavolata.
Ma sei proprio sicuro sicuro che i 4 ????
siano il template giusto, o lo fossero al momento in cui non ti
funzionava
piu'?
--
a.cara


title: Re: cercare un valore numerico con InStr

author: MA

text:
"giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
news:41a4...@x-privat.org...
> Ciao a tutti.
> In A97 come devo impostere il campo di una query in modo tale che mi
> restituisca la posizione del primo carattere numerico che incontra?
> In Tabella1 ho il campo che contiene spazi in numero variabile poi un
numero
>        1
>            3
> ........
> Devo usare InStr per trovare la posizione dei numeri contenuti?
> Ho provato con
> Mio: InStr([nomecampo]; "#"), ma ritorna 0
>
> Grazie a tutti.
>
> Giancarlo
>
>
Sul sitocomune c'è una funzione che estrae i numeri da un astringa.
Massimiliano


author: giancarlo

text:
Ciao a tutti.
In A97 come devo impostere il campo di una query in modo tale che mi
restituisca la posizione del primo carattere numerico che incontra?
In Tabella1 ho il campo che contiene spazi in numero variabile poi un numero
       1
           3
........
Devo usare InStr per trovare la posizione dei numeri contenuti?
Ho provato con
Mio: InStr([nomecampo]; "#"), ma ritorna 0
Grazie a tutti.
Giancarlo
--
GIGAMAIL By X-Privat -
http://www.x-privat.org/gigamail.php


author: namor

text:
giancarlo ha scritto:
> Ciao a tutti.
> In A97 come devo impostere il campo di una query in modo tale che mi
> restituisca la posizione del primo carattere numerico che incontra?
> In Tabella1 ho il campo che contiene spazi in numero variabile poi un numero
>        1
>            3
> ........
> Devo usare InStr per trovare la posizione dei numeri contenuti?
> Ho provato con
> Mio: InStr([nomecampo]; "#"), ma ritorna 0
> Grazie a tutti.
> Giancarlo
Con Instr è troppo complesso.
Ti basta len(campo)-len(ltrim(campo))+1
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:1e1pd.35261$B06....@news.edisontel.com...

OK. Grazie per la risposta.
Era sbagliato il mio approccio al problema? Con "#" non si dovrebbe cercare
un qualunquue tipo di carattere numerico?
Altra cosa (ma forse devo aprire un nuovo 3d):
Nei campi vuoti restituisce #Errore
Ho provato con
IIf(IsError(InStr([nomecampo];estrainumeri([nomecampo])));"";InStr([nomecamp
o];estrainumeri([nomecampo])))
ma non funziona. Continua a darmi l'errore
Grazie.
Giancarlo
--
X-Privat "FREE Usenet" -
http://www.newsserver.it


text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:co28rj$r67$1...@news.newsland.it...
> giancarlo ha scritto:
>
> > Ciao a tutti.
> > In A97 come devo impostere il campo di una query in modo tale che mi
> > restituisca la posizione del primo carattere numerico che incontra?
> > In Tabella1 ho il campo che contiene spazi in numero variabile poi un
numero
> >        1
> >            3
> > ........
> > Devo usare InStr per trovare la posizione dei numeri contenuti?
> > Ho provato con
> > Mio: InStr([nomecampo]; "#"), ma ritorna 0
> > Grazie a tutti.
> > Giancarlo
>
> Con Instr è troppo complesso.
> Ti basta len(campo)-len(ltrim(campo))+1
> Namor
>
Sì. Funziona. Grazie mille!
Ciao.
Giancarlo
>
> --
> namor at inwind punto it
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
--



text:
"giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
news:41a4...@x-privat.org...
>
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:1e1pd.35261$B06....@news.edisontel.com...
> >
> > "giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
> > news:41a4...@x-privat.org...
> > > Ciao a tutti.
> > > In A97 come devo impostere il campo di una query in modo tale che mi
> > > restituisca la posizione del primo carattere numerico che incontra?
> > > In Tabella1 ho il campo che contiene spazi in numero variabile poi un
> > numero
> > >        1
> > >            3
> > > ........
> > > Devo usare InStr per trovare la posizione dei numeri contenuti?
> > > Ho provato con
> > > Mio: InStr([nomecampo]; "#"), ma ritorna 0
> > >
> > > Grazie a tutti.
> > >
> > > Giancarlo
> > >
> > >
> > Sul sitocomune c'č una funzione che estrae i numeri da un astringa.
> > Massimiliano
> >
> >
> OK. Grazie per la risposta.
> Era sbagliato il mio approccio al problema? Con "#" non si dovrebbe
cercare
> un qualunquue tipo di carattere numerico?
> Altra cosa (ma forse devo aprire un nuovo 3d):
> Nei campi vuoti restituisce #Errore
> Ho provato con
>
IIf(IsError(InStr([nomecampo];estrainumeri([nomecampo])));"";InStr([nomecamp
> o];estrainumeri([nomecampo])))
hai fatto un pň di casino
IIf(IsError
                (                                   <-----------------Apri
Parentesi Iserror
                    InStr([nomecampo];estrainumeri([nomecampo])
<-------------------------- Apri e chiudi Parentesi Instr

                    )     <------------------------Chiudi parentesi IsError

                    )    <------------------------Questa non dovrebbe
esserci
;"";    <--------------------- ok
                 InStr([nomecampo];estrainumeri([nomecampo])
<--------------Apri e chiudi Instr
                    )
<------------------------------- Chiudi seconda condizione iif
                    )                      <-------------------- questa č in
piů
> ma non funziona. Continua a darmi l'errore
>
> Grazie.
> Giancarlo
>
>
MAssimiliano



title: comando ridimensiona colonne in base a contenuto

author: Fabio Gulotta

text:
Salve,
 vorrei sapere come impostare da codice il comando che ridimensiona le
colonne di una tabella in base al contenuto, naturalmente se è
possibile.....


text:

Prova con TextWidth. Con VB6, però mi restituiva sempre una dimensione un
po' inferiore a quella necessaria, percui, poi, usavo un offset....
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:
"Fabio Gulotta"
>  vorrei sapere come impostare da codice il comando che ridimensiona le
> colonne di una tabella in base al contenuto, naturalmente se č
> possibile.....
La colonna di una SubForm in modalitą DataSheets?
Dovrebbe essere il    .columnwidth= -1
Ciao, Simone


title: requery di sottomaschere

author: Daniele

text:
Ho realizzato una maschera (Mask) che contiene al suo interno un menù ed una
sottomaschera (Sub1); a seconda dei valori selezionati nel menù viene
collegata a Sub1 la maschera Mask1 piuttosto che la Mask2, ecc. tutte
mostranti elenchi di record in modalità 'maschere continue', tramite il
comando:
        Sub1.SourceObject ="Mask1".
Ho previsto la possibilità di aprire una maschera di edit (MaskEdit) che si
apre per l'editing del singolo record selezionato in Mask1, in modalità
'popup' e 'dialog'.
E' presente un pulsante per il salvataggio delle eventuali modifiche
apportate che dovrebbe anche aggiornare i records in Mask1 visualizzando gli
aggiornamenti, tramite il comando:
            Forms!Mask!Sub1.Form.Requery
Purtroppo tali aggiornamenti non sono mostrati, se non ad una successiva
modifica, che restituisce sempre la situazione precedente all'ultima
modifica.
Ho provato ad aggiungere un pulsante nella Mask1, che tramite il comando
        me.requery
esegue correttamente l'aggiornamento del recordsource.
Come posso avere l'aggiornamento corretto dei records visualizzati nella
subform, all'atto del salvataggio delle modifiche nella mashera di edit, o
almeno alla chiusura della stessa?
Grazie anticipatamente.
Dani


title: requery di sottomaschere

author: Michele (Giò)

text:
"Daniele" <
dan...@tiscalinet.it
> ha scritto nel messaggio
news:4617acdf$0$7750$5fc...@news.tiscali.it...
> Ho realizzato una maschera (Mask) che contiene al suo interno un menù ed una sottomaschera (Sub1);
> a seconda dei valori selezionati nel menù viene
> collegata a Sub1 la maschera Mask1 piuttosto che la Mask2, ecc. tutte mostranti elenchi di record
> in modalità 'maschere continue', tramite il comando:
>        Sub1.SourceObject ="Mask1".
>
> Ho previsto la possibilità di aprire una maschera di edit (MaskEdit) che si apre per l'editing del
> singolo record selezionato in Mask1, in modalità 'popup' e 'dialog'.
> E' presente un pulsante per il salvataggio delle eventuali modifiche apportate che dovrebbe anche
> aggiornare i records in Mask1 visualizzando gli aggiornamenti, tramite il comando:
>            Forms!Mask!Sub1.Form.Requery
prova in questo modo:
Forms!Mask!Sub1.Form.Requery
Forms!Mask!Sub1.Form.Refresh
e facci sapere
Michele


title: requery di sottomaschere

author: Sergio MAZZA

text:
"Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio news:461813d5$0$37204$4faf...@reader3.news.tin.it...
>
> prova in questo modo:
>
> Forms!Mask!Sub1.Form.Requery
> Forms!Mask!Sub1.Form.Refresh
>
> e facci sapere
>
> Michele
Forse sarebbe meglio il contrario (Refresh-->Requery); anzi, se il recordset non deve essere "modificato" (es. tolto un filtro o
aggiunto un nuovo record) il requery non sarebbe necessario e la sua assenza velocizzerebbe la visualizzazione dei dati
modificati...
Ciao.
--
Sergio MAZZA


title: requery di sottomaschere

text:
--
---------------------------
Michele (Giò)
joyl...@alice.it
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:eva6t5$mht$1...@tdi.cu.mi.it...

Tale sequenza io l'ho usata in occasione di un passaggio particolare nel mio db, e mi ricordo che le
cose andavano come Dio comandava solo con Requery>Refresh. Resta il fatto che i due medodi
sembrerebbero simili come risualtato, ma per certi casi diventano complementari.
Ma perchè secondo te è meglio il contrario? Non sarebbe meglio prima rinfrescare la query e poi
tutta la maschera che ci sta sopra?
Buona Pasqua
Michele


title: requery di sottomaschere

text:
On 8 Apr, 16:40, "Michele \(Giò\)" <
joyle...@alice.it
> wrote:
> --
> ---------------------------
> Michele (Giò)
>
joyle...@alice.it
> "Sergio MAZZA" <
sergioma...@tiscali.it
> ha scritto nel messaggionews:eva6t5$mht$1...@tdi.cu.mi.it...
>
>
>
>
>
> > "Michele (Giò)" <
joyle...@alice.it
> ha scritto nel messaggio
> >news:461813d5$0$37204$4faf...@reader3.news.tin.it...
>
> >> prova in questo modo:
>
> >> Forms!Mask!Sub1.Form.Requery
> >> Forms!Mask!Sub1.Form.Refresh
>
> >> e facci sapere
>
> >> Michele
>
> > Forse sarebbe meglio il contrario (Refresh-->Requery); anzi, se il recordset non deve essere
> > "modificato" (es. tolto un filtro o aggiunto un nuovo record) il requery non sarebbe necessario e
> > la sua assenza velocizzerebbe la visualizzazione dei dati modificati...
>
> > Ciao.
> > --
> > Sergio MAZZA
>
> Tale sequenza io l'ho usata in occasione di un passaggio particolare nel mio db, e mi ricordo che le
> cose andavano come Dio comandava solo con Requery>Refresh. Resta il fatto che i due medodi
> sembrerebbero simili come risualtato, ma per certi casi diventano complementari.
>
> Ma perchè secondo te è meglio il contrario? Non sarebbe meglio prima rinfrescare la query e poi
> tutta la maschera che ci sta sopra?
>
> Buona Pasqua
Il Refresh è utile soprattutto in un uso MultiUtente nel quale altri
possono accedere
alla stessa origine dati ed apportare modifiche.
Il metodo Refresh mostra solo le modifiche apportate ai record del set
corrente. Poiché il metodo Refresh non riesegue effettivamente la
query sul database, il set corrente non include record aggiunti o non
esclude record eliminati dal momento in cui è stata ripetuta per
l'ultima volta una query sul database. Il metodo non esclude nemmeno i
record che non soddisfano più i criteri della query o del filtro. Per
rieseguire una query sul database, utilizzare il metodo Requery.
Quando si riesegue una query sull'origine record di una maschera, il
set corrente di record rifletterà accuratamente tutti i dati contenuti
nell'origine record.
Mi pare chiaro.... è l'Help non mi sono inventato nulla.
Ne consegue che i 2 metodi non sono assolutamente equivalenti, quindi
la considerazione di Sergio è più che corretta.
Il fatto che tu abbia dovuto eseguire entrambi è anomalo, Requery
effettua di per se anche il Refresh, quindi trovo quanto dici sintomo
di un'anomalia non una regola da perseguire.
@Alex


title: requery di sottomaschere

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1176047133.0...@l77g2000hsb.googlegroups.com...






@Alex
.................
Grazie, per la teoria. Ma quale è la causa della mancata visualizzazione dei
record corretti?, nonostante sia stata effettuata la requery dalla maschera
di edit che si chiude?
Daniele


title: requery di sottomaschere

text:
Daniele wrote:
[cut]
>
> Grazie, per la teoria. Ma quale è la causa della mancata visualizzazione dei
> record corretti?, nonostante sia stata effettuata la requery dalla maschera
> di edit che si chiude?
1) Ma visto che la maskedit e' in dialog non ti conviene rifare la
requery quando torni su mask1? Come sai il codice di mask1 viene sospeso
sulla chiamata al form "dialog"
2) Da maskedit io proverei una movenext o moveprevious sul recordset
prima della requery e/o controllerei ben bene la sequenza delle
operazioni sembra quasi che la requery la fai "prima" di salvare il record.
--
ac
y-1=x


title: requery di sottomaschere

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1176047133.0...@l77g2000hsb.googlegroups.com...
On 8 Apr, 16:40, "Michele \(Giò\)" <
joyle...@alice.it
> wrote:
[Cut]
Il fatto che tu abbia dovuto eseguire entrambi è anomalo, Requery
effettua di per se anche il Refresh, quindi trovo quanto dici sintomo
di un'anomalia non una regola da perseguire.
@Alex
In effetti sul pc di casa tutto andava liscio, invece con il WinME che ho al lavoro ho dovuto
utilizzare questa unica strada per far funzionare il tutto.....
Mi sa che in questo caso allora si tratta di anomalia, e con il WinMe/OffXP che ho al lavoro ne sono
saltate fuori a bizzeffe..... Ma cose assurde! Talmente assurde che le ho rimosse per non mettermi a
imprecare ogni volta che ci penso.
Michele


title: differenza velocità esecuzione tra A97 e A2k

text:
Salve a tutti,
mio malgrado dovrei passare un corposo db da A97(mio grande amore) a A2K. Ho
iniziato a creare la nuova versione direttamente in A2k ma le prestazioni
assolutamente non mi soddisfacevano perchè troppo lento. Ho convertito il
tutto in A97 e viaggia come un razzo. E' possibile che ci siano queste
differenze prestazionali tra le due versioni?
e' un fatto oggettivo o sono io lo scemo del villaggio (- postilla ad
anticipare il sarcasmo di qualcuno - anche per questo?)
Vi prego di farmi sapere xchè se così dovro regolarmi di conseguenza.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


author: stefano (kabisa)

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:151Z26Z48Z187Y1...@usenet.libero.it...

Ciao massimigliano,
io ho iniziato con access97 developer, poi sono passato a access2000
developer e adesso uso sia access2000 dev sia AcessXp dev
io ho avuto l'effetto contrario:
con access97 era lento e con 2000 piu veloce, con Xp una scheggia.
Il fatto penso dipenda dalle funzioni che hai usato nel tuo db.
Comunque XP è migliore di 2000
stefano


author: Ettore Manara

text:
"MA" <
> Salve a tutti,
> mio malgrado dovrei passare un corposo db da A97(mio grande amore) a A2K.
Ho
> iniziato a creare la nuova versione direttamente in A2k ma le prestazioni
> assolutamente non mi soddisfacevano perchè troppo lento. Ho convertito il
> tutto in A97 e viaggia come un razzo. E' possibile che ci siano queste
> differenze prestazionali tra le due versioni?
Ho letto spesso su questo ng. esperienze simili alla tua.
Dal canto mio invece non ho rilevato grandi differenze di prestazioni tra
jet 3.5 e jet 4.0-
Ciao.
P.S: se ti pare che i Front-End siano lenti, devi reimportare tutto in un
nuovo .mdb
PS2: Ti consiglio di non lavorare mai sulla copia "master" del tuo .mdb di
FE.


title: Come attivare un pulsante

author: Buonuomo

text:
Salve a tutti.
In una maschera ho diverse caselle di testo ed un pulsante; all'attivazione
della maschera è richiesta l'immissione di un valore di una casella di testo
poi in alternativa si dovrebbe poter scegliere se cliccare sul pulsante e
far riempire il resto automaticamente oppure inserirle tutte manualmente.
Come posso fare ad attivare il pulsante solo se le caselle di testo
successive alla prima sono vuote?
Ho provato ad impostare il pulsante con "abilitato=no" poi all'uscita della
prima casella di testo ho inserito il codice "me.pulsante.enable" ma non
funzia.
P.S.Dove posso reperire l'elenco delle proprietà e dei metodi dei controlli?
Grazie Buonuomo.


title: Come attivare un pulsante

text:
"Buonuomo" <
buon...@libero.it
> ha scritto nel messaggio
cut
> Ho provato ad impostare il pulsante con "abilitato=no" poi all'uscita
della
> prima casella di testo ho inserito il codice "me.pulsante.enable" ma non
> funzia.
ci hai quasi azzeccato.
sarebbe bastato premere F1.
comunque devi scrivere:
me.pulsante.enabled=true
Sib


title: Come attivare un pulsante

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:mU4ta.88884$iy5.2...@twister2.libero.it...

Ecco perchè non trovavo me.pulsante.disable
;-)
Grazie Sib.
Buonuomo.


title: Procedure Access + Mqtt - qualcuno l'ha fatto ???

author: RobertoA

text:
Il protocollo Mqtt e' un ottimo sistema di comunicazione per 'parlare'
col mondo mobile e iot
Qualcuno di voi (o conoscete chi l'abbia fatto) ha realizzato qualche
libreria per interfacciare Access col protocollo Mqtt?


author: Michele

text:

Posso chiederti quale applicazione hai in mente?


text:

Non ho ancora in mente una applicazione vera e propria
Ma e' un 'mattoncino strutturale' che servira' su diversi progetti
Se provi a comunicare tra una postazione fissa, ad esempio un pc
ufficio, e dei telefoni Android/iOs, ti accorgerai subito che e' anche
uno dei pochi sistemi che ti consente di ottenere una comunicazione
rapida con la semplice installazione di un server mqtt, che puoi fare
anche in locale, e quindi un sistema 'tutto in casa' e sotto stretto
controllo


text:
io programmo solo in modo amatoriale e finora ho usato due strategie:
- telegram per inviarmi i messaggi di errore di tutti gli utenti e la sera un report della giornata
- sul server dove c'è la base dati ho installato un piccolo sito c#

Ho letto che Mqtt viene usato da fb per messenger.
ma non capisco questi dati che tu invieresti dove arrivano..
dovresti fare un'applicazione su android che riceve i dati?


text:

Arrivano sul telefono
Se devi pilotare un app su smartphone, quindi inviare comandi da pc
verso smartphone (attansion, ho scritto 'inviare comandi dal pc',
eventuali interrogazioni app sul servizio presente su pc non valgono),
come faresti tu?

Io ho sperimentato diversi sistemi:
- i classici sms
- le push notification
- firebase
- mqtt
- altri...

A mia esperienza, usare mqtt e' una delle migliori possibilita' perche'
ti assicura un'elevata reattivita' alla disponiblita' server mqtt open
source (che non si capisce perche' chiamino 'broker') che puoi tenere in
house, e quindi tutto sotto il tuo stretto controllo

Anche Firebase e' eccezzionalmente rapido e grandemente scalabile, ma
costa, e soprattutto e' completamente fuori dal tuo controllo

Ed essendo che le richieste per mobile vanno aumentando, avere sottomano
un sistema veloce, economico, controllabile, per comunicare da pc a
smartphone credo sia una freccia indispensabile da tenere nella faretra
degli attrezzi disponibili


title: ACCESS e MSCOMM32.OCX

author: FACE ONE

text:
Ciao a tutti,
sto cercando di collegare il mio PC tramite seriale ad un sensore.
Dopo aver provato, con scarsi risultati, con INPUT e OUTPUT ed avendo
abbondantemente lurcato il NG ho iniziato ad usare l'activeX MSCOMM32.OCX.
Il problema è che non riesco a ricevere niente.
Vi mostro il codice che uso:
'-------
Private Sub COM_CLOSE_Click()
  With RS232_1
    PortOpen = False
  End With
End Sub
'-------
Private Sub COM_OPEN_Click()
  With RS232_1
    PortOpen = True
  End With
End Sub
'-------
Private Sub COM_OUTPUT_Click()
  With RS232_1
    Settings = "9600,n,8,1"
    Output = Testo4.Value
  End With
End Sub
'-------
Private Sub RS232_1_OnComm()
   Dim InBuffer As String
   Select Case RS232_1.CommEvent
   Case comEvReceive
        InBuffer = RS232_1.Input
        Testo6.Text = InBuffer
        DoCmd.Beep
   End Select
End Sub
'-------
Dove sbaglio???
Come faccio ad associare all'evento ricezione carattere una procedure?
Chi di voi può darmi qualche consiglio.
Non ho una grande conoscenda di VB ma me la cavo abbastanza con ACCESS.
E' molto importante.
In questi giorni ho fatto molte ricerche su web e sull'archivio del NG dal
sitocomune e, tra le tante cose, ho trovato un sito veramente interessante
per chi, come me, si trova a dover gestire periferiche:
www.beyondlogic.com
Grazie in anticipo a tutti quelli che sapranno darmi qualche consiglio.
Ciao
FACE ONE


title: Dare/Avere di un cliente

author: Berti Simone

text:
Salve a tutti,
ho un DB dove ho le seguenti tabelle con i seguenti campi
Cliente: IdCliente, Nome, Indiirizzo, ecc.
Fattura: IdFattura, IdCliente, Numero, Data,
DettaglioFattura: IdDettaglioFattura, Quantità, Articolo, Prezzo, IdFattura
Pagamento: IdPagamento, IdCliente, Data, Importo
Vorrei crearmi una maschera ed un report che mi mostrino in dettaglio ogni
fattura emessa con relativo importo totale, ogni pagamento effettuato ed un
riepilogo totale del dare/avere dei vari clienti.
Siccome non so assolutamente usare VB e non mi veniva in mente nessuna
soluzione con access ho optato per la seguente solutzione:
1)  Ho fatto una query di creazione tabella con i campi IdCliente.Cliente,
Nome.Cliente, Numero.Fattura, Data.Fattura,
Imponibile.QueryCalcoloImponibili, ESPR1
2) Query di accodamento: IdCliente.Cliente, Nome.Cliente, Data.Pagamento,
Importo.Pagamento (quest'ultimo campo l'ho incolonnato in ESPR1)
Così facendo e ovviamente creandomi della altre query successive ho risolto
il problema... ma la cosa mi sembra molto macchinosa non ci sono altre
soluzioni che mi suggerite? Se non ce ne sono ho un'altra domanda questa
procedura mi evidenzia molti avvertimenti noiosi e ripetitivi alcuni dei
quali sono riuscito ad eliminare me ne rimane solo uno e cioè quello che mi
viene visualizzato rieseguendo la query di creazione tabella per + volte...
dalla seconda volta la query di creazione tabella deve eliminare la prima
creata e di conseguenza mi avverte di questa eliminazione non c'è la
possibilità di eliminare questo avvertimento?
Grazie e un saluto a tutti Simone


title: Dare/Avere di un cliente

author: mauro

text:
Per eliminare i messaggi di avviso devi impostare l'azione "impostaavvisi"
=no nella macro che esegue le query. Ricordati di fare il contrario alla
fine della procedura.
Se invece vuoi compilare le n-schede dei clienti per i quali hai emesso
fattura dei impostare un ciclo For ... next dove il contatore sarà il nr
dei clienti con fattur/nc. All'interno del ciclo scrivi una stringa sql
con delle variabili che devono cambiare di volta in volta (cliente,
tabella in cui accodare i dati....). Ad ogni ripetizione del ciclo
cambierà la stringa sql e docrai eseguire il comando "docmd.runql striga
sql".
Spero di essere stato esauriente, è abbastanza lungo da spiegare.
Fai qualche tentativo
Berti Simone ha scritto:








--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Dare/Avere di un cliente

author: Antonio Biso

text:
"mauro" <
m.gr...@libero.it
> ha scritto nel messaggio
news:c1g1f6$ni0$1...@news.newsland.it...
> Per eliminare i messaggi di avviso devi impostare l'azione "impostaavvisi"
Invece per rispondere, devi scrivere correttamente DOPO il quoting!!!
Antonio


title: addomesticare i record in maschere continue

author: luigi corinna

text:
Buon Giorno A97
ho una sottomaschera righe preventivo (maschere continue)...
bene utilizzo il lettore ottico per chiamare l'articolo ...quando mi
posiziono sul nuovo record
quello precedente sparisce (si infila piu' su) non consentendo all'utente di
constatare cio' che effettivamente contiene il preventivo  (dovrebbe
utilizzare
la barre di progressione laterali)..c'e' un modo di ottimizzare la visuale
dei record facenti parte di un preventivo...cioe' tutti a video finche' la
sottomaschera puo' contenerli come misura poi man mano l'avanzamento di un
record alla volta....grazie 1000
ciao luigi


title: accesso a una base dati Hyperfile (Windev)

author: Fabio

text:
Salve a tutti;
sto cercando di accedere con Access via ODBC a una base dati Hyperfile
utilizzata dal software di sviluppo Windev, oltretutto nella versione 5.5
(non recentissima), ma ho diversi problemi;
in particolare Access mi restituisce subito un errore nel momento di
collegare o importare le tabelle (vedo l'elenco, arrivo a vedere l'elenco
dei campi per la scelta della chiave ... e poi errore)
Se qualcuno ha mai avuto un'esperienza simile, non è che mi darebbe una
qualche dritta?
Altrimenti ... pace!
Grazie a tutti
Fabio Valvassori


author: PBsoft

text:
[omissis]
1 minuto e 40 secondi di ricerca su internet tramite Google.
Al seguente indirizzo
http://www.windev.com/ts/download/windev8/windev80_315pu.htm
trovi il link per scaricare il driver ODBC per Hyper File
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


text:
se il minuto e 40 secondi voleva essere ironico io ho impiegato molto più
tempo ... e ti assicuro che ho cercato in italiano, inglese e anche
francese!
il driver che mi hai indicato è solo l'aggiornamento, per cui devi avere
installata sul PC una copia di Windev 8, altrimenti non si installa
(oltretutto non è la versione che serve a me, che è la 5.5; con le versioni
successive, e ho provato la 7, 7.5, 9, 10, 11, non si leggono neppure i nomi
delle tabelle)
Della 5.5 ho già installato i driver ODBC, il problema è successivo, quando
cerco di allegare le tabelle da Access
Mi sa che mi arrendo ...
Un cordiale saluto e grazie comunque per la risposta
Fabio Valvassori
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea3552c1418...@news.tin.it...



title: Totale #Errore

text:
Ciao a tutti! Ho una tabella con record a 5 campi:  N_doc : numerico
Quantita' - Numerico Descrizione - Testo Importo - Numerico Non soggetto
- SI/NO  Su qs. tabella ho costruito 2 sottoreport (all'interno di un
report chiamato "documento"). Il primo sottoreport elencherà i record
con campo "Non soggetto" SI ed il secondo sottoreport elencherà i record
con campo "Non soggetto" NO.  Calcolo per cad. sottoreport il relativo
totale e poi li sommo. Fintanto che entrambi i sottoreport contengono
record, ottengo i 2 totali e li posso sommare; ma quando il secondo
sottoreport non contiene record, il suo totale risulta essere #Errore e
me lo trascino poi sul totale generale. Come posso trasformare il valore
#Errore in valore 0 (zero)? Per cortesia, aiutatemi :-) Grazie!!!!!!!
Lorella.


title: Totale #Errore

author: oliones

text:
<
lorella_...@excite.it
> ha scritto nel messaggio
news:9v3993$6l5$1...@gossip.excite.it...

prova con la funzione NZ
ciao


title: Totale #Errore

author: principiante

text:
<
lorella_...@excite.it
> ha scritto nel messaggio
news:9v3993$6l5$1...@gossip.excite.it...

Se il report non contiene dati giustamente il db non li somma, per ovviare
puoi usare la funzione DCount
(vedi help)
Paolo


title: controllo dati da porte com

author: Neo

text:
qualcuno sa dove posso trovare materiale, codice, informazioni su come leggere con VBA dalle porte
COM?


title: controllo dati da porte com

author: MA

text:
"Neo" <senz...@chiedetesul.NG> ha scritto nel messaggio
news:VT5Nb.255697$e6.10...@twister2.libero.it...
> qualcuno sa dove posso trovare materiale, codice, informazioni su come
leggere con VBA dalle porte
> COM?
>
Giorgio Prx ha spesso scritto in merito e sul suo sito puoi anche scaricarti
un piccolo applicativo.
Guarda nei precedenti
MAssimiliano


title: Inserimento in tabella

author: fid

text:
Salve, in una maschera ho 2 capi tipo data/ora non collegati, Dal e al,e
in una tabella un campo Giorno. La mia necessit� � inserire in questo
campo un record per ogni giorno che va da Dal ad Al con la relativa data.
Esempio campo Dal 20/7/2009-campo Al 22/07/2009, avere nel campo giorno
20/07/2009; 21/07/2009;22/07/2009.
E' fattibile qualcosa del genere?
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Inserimento in tabella

author: BFS

text:
fid ha scritto:
> Salve, in una maschera ho 2 capi tipo data/ora non collegati, Dal e al,e
> in una tabella un campo Giorno. La mia necessit� � inserire in questo
> campo un record per ogni giorno che va da Dal ad Al con la relativa data.
> Esempio campo Dal 20/7/2009-campo Al 22/07/2009, avere nel campo giorno
> 20/07/2009; 21/07/2009;22/07/2009.
> E' fattibile qualcosa del genere?
> Grazie
>
non so se ho capito bene ma se il campo giorno � di tipo testo:
pulsantino con :
docmd.runsql "insert into tuatabella(giorno) values ('" & me.dadata &
"';'" & me.adata & "'")
ciao
bfs


title: Inserimento in tabella

author: max

text:
"fid" <
fid...@libero.it
> ha scritto nel messaggio
news:h4rb08$ben$1...@news.newsland.it...

prova cos� in un pulsante della maschera
DoCmd.SetWarnings False
sqlstr = " INSERT INTO tuatabella (giorno) SELECT
IIf(IsNull(Max([giorno])),forms!tuamaschera!dadata,DateAdd('d',1,Max([giorno])))
AS Espr1 FROM tuatabella WHERE (((tuatabella.giorno) Between
[forms]![tuamaschera]![dadata] And [forms]![tuamaschera]![adata]));"
xvar = Nz(DMax("giorno", "tuatabella"), dadata)
Do While xvar < adata
DoCmd.RunSQL sqlstr
xvar = Nz(DMax("giorno", "tuatabella"), dadata)
            Loop
            MsgBox "finito"
DoCmd.SetWarnings True
devi cambiare i nomi di tuatabella e tuamaschera
ciao
Max


title: Inserimento in tabella

author: almorel

text:
On 30 Lug, 07:27,
fide...@libero.it
 (fid) wrote:
> Salve, in una maschera ho 2 capi tipo data/ora non collegati, Dal e al,e
> in una tabella un campo Giorno. La mia necessità è inserire in questo
> campo un record per ogni giorno che va da Dal ad Al con la relativa data.
> Esempio campo Dal 20/7/2009-campo Al 22/07/2009, avere nel campo giorno
> 20/07/2009; 21/07/2009;22/07/2009.
> E' fattibile qualcosa del genere?
> Grazie
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad
ab...@newsland.it
Forse non ho capito bene, cosa intendi per inserire dei records in un
campo ? Intendi inserire una serie di date nel campo già esistente?
Saluti
Alberto Morelli


title: Inserimento in tabella

text:
On 30 Lug, 15:54, almorel <
almo...@gmail.com
> wrote:
> On 30 Lug, 07:27,
fide...@libero.it
 (fid) wrote:
>
> > Salve, in una maschera ho 2 capi tipo data/ora non collegati, Dal e al,e
> > in una tabella un campo Giorno. La mia necessità è inserire in questo
> > campo un record per ogni giorno che va da Dal ad Al con la relativa data.
> > Esempio campo Dal 20/7/2009-campo Al 22/07/2009, avere nel campo giorno
> > 20/07/2009; 21/07/2009;22/07/2009.
> > E' fattibile qualcosa del genere?
> > Grazie
>
> > --
>
> > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagli
 abusi ad
ab...@newsland.it
>
> Forse non ho capito bene, cosa intendi per inserire dei records in un
> campo ? Intendi inserire una serie di date nel campo già esistente?
> Saluti
> Alberto Morelli
Vedi un po' se questo è quello che ti serve:
'maschera con due campi data Dal e Al
'un campo testo Giorni
'un pulsante comando1
Private Sub Comando1_Click()
Giorni = Days(dal, al)
End Sub
Public Function Days(d As Date, a As Date) As String
Dim g As Integer, x As Integer
Dim s As String
g = a - d
For x = 0 To g
s = s & d + x & " ; "      '(separatore) oppure solo ";" o qualsiasi
altra cosa
Next
s = Left(s, Len(s) - 3)    'per togliere l'ultimo separatore
Days = s
End Function
Ciao a tutti.
Alberto Morelli


title: Alternativa a tanti DLookUp per evitare di rallentare l'applicativo

author: Bruno - S95

text:
Access 2003 / 2010

Buongiorno a voi tutti.
Vi chiedo se conoscete un metodo altrernativo all'utilizzo di tanti DLookUp
utilizzato per leggere in tabella se nelle caselle di controllo interessate
vi è il segno di spunta o meno, precisamente....
in una form basata su query a campi incrociati contenente da 1 a 31 campi
(gg del mese) su formato calendariale mensile ove vengono visualizzati i
servizi di un dato mese. In altre 31 caselle di testo, in ognuna viene
utilizzata il seguente formulone, dove

T= Turnazione
R=Reperibilità
P=Pasti

=IIf(DLookUp("[Turnaz]";"tbl_141_Servizi";"[Data]=[gg16] And
[Id_Mil]=[Id_Militare]")=-1;"T") &
IIf(DLookUp("[Rep]";"tbl_141_Servizi";"[Data]=[gg16] And
[Id_Mil]=[Id_Militare]")=-1;"R") &
IIf(DLookUp("[Pasti]";"tbl_141_Servizi";"[Data]=[gg16] And
[Id_Mil]=[Id_Militare]")<>"";"P")

Grazie, Bruno


author: scaronic

text:
PUOI PROVARE QUESTO
http://allenbrowne.com/ser-42.html


author: Karl Donaubauer

text:
Bruno - S95 wrote:
> Access 2003 / 2010
>
> Vi chiedo se conoscete un metodo altrernativo all'utilizzo di tanti
> DLookUp utilizzato per leggere in tabella se nelle caselle di
> controllo interessate vi � il segno di spunta o meno, precisamente....
> in una form basata su query a campi incrociati contenente da 1 a 31
> campi (gg del mese) su formato calendariale mensile ove vengono
> visualizzati i servizi di un dato mese. In altre 31 caselle di testo,
> in ognuna viene utilizzata il seguente formulone, dove
>
> T= Turnazione
> R=Reperibilit�
> P=Pasti
>
> =IIf(DLookUp("[Turnaz]";"tbl_141_Servizi";"[Data]=[gg16] And
> [Id_Mil]=[Id_Militare]")=-1;"T") &
> IIf(DLookUp("[Rep]";"tbl_141_Servizi";"[Data]=[gg16] And
> [Id_Mil]=[Id_Militare]")=-1;"R") &
> IIf(DLookUp("[Pasti]";"tbl_141_Servizi";"[Data]=[gg16] And
> [Id_Mil]=[Id_Militare]")<>"";"P")

Forse invece di 3 DLookUp basta 1, ma l'espressione dipende
dai dati dei tre campi nella tabella.
T e R sembrano di essere campi S�/No.
P � di tipo testo?

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


text:

...e certo sarebbe molto pi� veloce riempire le caselle con un
recordset di DAO. Ci deve sapere la logica ed i nomi:
Tutte le caselle hanno quest'espressione con Data=gg1, gg2... gg16 ecc.?
Le caselle hanno un nome "seriale" che include il giorno, tipo
txtgg01, txtgg02... ecc?



text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:b2gdbs...@mid.individual.net...

^^^^^^^

Ciao Karl, affermativo.... le caselle che contengono la data sono nominate
gg01, gg02, ecc. e solo per visualizzare i gg del mese con espressione
=CDate("01" & "/" & [Mese] & "/" & [Anno]), mentre le caselle che contengono
i servizi sono nominate 01, 02, 03, ecc., infine le caselle per far apparire
le turnazioni ecc, posso nominarle anche 001, 002, 003, ecc. oppure
alfabeticamente come le colonne di excel..
Non ho idea su come fare per riempire le caselle con un recordset di DAO, se
non ti dispiace avrei bisogno di indicazioni passo passo.
Grazie, Bruno


text:
"scaronic" <
carlo....@gmail.com
> ha scritto nel messaggio
news:54e4a646-4f95-4816...@googlegroups.com...
> PUOI PROVARE QUESTO
http://allenbrowne.com/ser-42.html

^^^^^^

Ti ringrazio per il link. Ci studio su e faccio sapere il risultato.
C'� anche la risposta di carl che appare molto interessante, inoltre potrei
applicare il recordset DAO per risolvere anche altri problemi.

Grazie, Bruno


text:
[CUT]

Karl, dimenicavo!

Confermo anche che le caselle T e R sono di tipo SI/NO mentre la casella
Pasto � di tipo numerico integer. La casella pasto se crea problemi si pu�
anche escludere.

Bruno


text:
Bruno - S95 wrote:
> "Karl Donaubauer ha scritto:
>>>>
>>>> Vi chiedo se conoscete un metodo altrernativo all'utilizzo di tanti
>>>> DLookUp utilizzato per leggere in tabella se nelle caselle di
>>>> controllo interessate vi è il segno di spunta o meno,
>>>> precisamente.... in una form basata su query a campi incrociati
>>>> contenente da 1 a 31 campi (gg del mese) su formato calendariale
>>>> mensile ove vengono visualizzati i servizi di un dato mese. In
>>>> altre 31 caselle di testo, in ognuna viene utilizzata il seguente
>>>> formulone, dove T= Turnazione
>>>> R=Reperibilità
>>>> P=Pasti
>>>>
>>>> =IIf(DLookUp("[Turnaz]";"tbl_141_Servizi";"[Data]=[gg16] And
>>>> [Id_Mil]=[Id_Militare]")=-1;"T") &
>>>> IIf(DLookUp("[Rep]";"tbl_141_Servizi";"[Data]=[gg16] And
>>>> [Id_Mil]=[Id_Militare]")=-1;"R") &
>>>> IIf(DLookUp("[Pasti]";"tbl_141_Servizi";"[Data]=[gg16] And
>>>> [Id_Mil]=[Id_Militare]")<>"";"P")
>>>
>>> Forse invece di 3 DLookUp basta 1, ma l'espressione dipende
>>> dai dati dei tre campi nella tabella.
>>> T e R sembrano di essere campi Sì/No.
>>> P è di tipo testo?
>>
>> ...e certo sarebbe molto più veloce riempire le caselle con un
>> recordset di DAO. Ci deve sapere la logica ed i nomi:
>> Tutte le caselle hanno quest'espressione con Data=gg1, gg2... gg16
>> ecc.? Le caselle hanno un nome "seriale" che include il giorno, tipo
>> txtgg01, txtgg02... ecc?
> ...
> Ciao Karl, affermativo.... le caselle che contengono la data sono
> nominate gg01, gg02, ecc. e solo per visualizzare i gg del mese con
> espressione =CDate("01" & "/" & [Mese] & "/" & [Anno]), mentre le
> caselle che contengono i servizi sono nominate 01, 02, 03, ecc.,
> infine le caselle per far apparire le turnazioni ecc, posso nominarle
> anche 001, 002, 003, ecc. oppure alfabeticamente come le colonne di
> excel.. Non ho idea su come fare per riempire le caselle con un recordset
> di
> DAO, se non ti dispiace avrei bisogno di indicazioni passo passo.

Una pappa pronta non è possibile perché non capisco
parti della descrizione. In principio credo che hai bisogno
di un ciclo da 1 a 31 e un codice che sarebbe circa:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strRis As String
Dim i As Long

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_141_Servizi", dbOpenDynaset)

'ciclare da 1 a 31
For i = 1 To 31

    'trovare il record con l'Id_Militare (se si tratta di un numero)
    'e la data del ggi
    rs.FindFirst "Id_Mil=" & Me!Id_Militare & _
        " And Data=" & CLng(Me("gg" & Format(i, "00")))

    If Not rs.NoMatch Then
        strRis = ""
        'comporre la stringa
        If rs!Turnaz = True Then strRis = "T"
        If rs!Rep = True Then strRis = strRis & "R"
        If Not IsNull(rs!Pasti) Then strRis = strRis & "P"
        'assegnare la stringa alla casella
        Me(Format(i, "00")) = strRis
    End If

Next i



text:
Karl Donaubauer wrote:
> ...
> Dim db As DAO.Database
> Dim rs As DAO.Recordset
> Dim strRis As String
> Dim i As Long
>
> Set db = CurrentDb
> Set rs = db.OpenRecordset("tbl_141_Servizi", dbOpenDynaset)
>
> 'ciclare da 1 a 31
> For i = 1 To 31
>
>    'trovare il record con l'Id_Militare (se si tratta di un numero)
>    'e la data del ggi
>    rs.FindFirst "Id_Mil=" & Me!Id_Militare & _
>        " And Data=" & CLng(Me("gg" & Format(i, "00")))
>
>    If Not rs.NoMatch Then
>        strRis = ""
>        'comporre la stringa
>        If rs!Turnaz = True Then strRis = "T"
>        If rs!Rep = True Then strRis = strRis & "R"
>        If Not IsNull(rs!Pasti) Then strRis = strRis & "P"
>        'assegnare la stringa alla casella
>        Me(Format(i, "00")) = strRis
>    End If
>
> Next i

Olala, troppo tardi oggi... meglio cos� (sempre aircode):

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strRis As String
Dim i As Long

strSQL = "SELECT Id_Mil, Turnaz, Rep, Pasti " & _
              " FROM tbl_141_Servizi" & _
              " WHERE Id_Mil=" & Me!Id_Militare

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

'ciclare da 1 a 31
For i = 1 To 31

    'trovare il record con la data del ggi
    rs.FindFirst "Data=" & CLng(Me("gg" & Format(i, "00")))



text:
[CUT]

> Olala, troppo tardi oggi... meglio cos� (sempre aircode):
>
> Dim db As DAO.Database
> Dim rs As DAO.Recordset
> Dim strSQL As String, strRis As String
> Dim i As Long
>
> strSQL = "SELECT Id_Mil, Turnaz, Rep, Pasti " & _
>              " FROM tbl_141_Servizi" & _
>              " WHERE Id_Mil=" & Me!Id_Militare
>
> Set db = CurrentDb
> Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
>
> 'ciclare da 1 a 31
> For i = 1 To 31
>
>    'trovare il record con la data del ggi
>    rs.FindFirst "Data=" & CLng(Me("gg" & Format(i, "00")))
>
>    If Not rs.NoMatch Then
>        strRis = ""
>        'comporre la stringa
>        If rs!Turnaz = True Then strRis = "T"
>        If rs!Rep = True Then strRis = strRis & "R"
>        If Not IsNull(rs!Pasti) Then strRis = strRis & "P"
>        'assegnare la stringa alla casella
>        Me(Format(i, "00")) = strRis
>    End If
>
> Next i
^^^^^^^^^^^^^^^^^

Buongiorno Karl, scusa per il ritardo nelle darti la risposta; sono
rientrato verso le 01.00 di notte distrutto.

Ci prover� ma non so se riuscir� a far funzionare il tuo ciclo, pensa un
pocchino quanto sono scarso. Comunque sia.....

grazie per l'aiuto, ci mancherebbe di avere la pappa pronta; gi� � tanto
l'aiuto che dai tu e gli altri guru del NewsGroup. Comunque grazie per le
istruzioni passo passo che hai dato, anzi di pi�; hai creato il ciclo che io
non avrei saputo creare, certo che ora ho da studiare! Sono proprio un
profano con VBA; mi rendo conto che con il codice si pu� fare tanto.
Questa mattina ho provato a risolvere con una query a campi incrociati unica
di cui faccio seguire l'SQL (non � necessario leggerla). Tutto va alla
grande, infatti il turno viene rappresentato cos�: dove Pa � il turno vero e
proprio e andando accapo con Chr(13) & Chr(10) vengono inserite TRP sono le
indennit� di presenza e pasto. Query funzionale e veloce, unica cosa.... le
formattazioni condizionali non funzionano pi� perch� basate solo per il
servizio, esempio: Pa che diventa di un colore prescelto per evidenziarlo
(in questo esempio l'assenza diventa rosso:
DLookUp("[Id_CatTurno]";"tbl_141_Turni";"[TurnoName]=[01]")=3 Or
DLookUp("[Id_CatTurno]";"tbl_141_Turni";"[TurnoName]=[01]")=4 Or
DLookUp("[Id_CatTurno]";"tbl_141_Turni";"[TurnoName]=[01]")=5).

Ho provato con la formula     Replace([Serv];Chr(13) & Chr(10);"")  , ma  il
risultato �    "MaTRP"   e a me servirebbe solo   "Ma"    per la
formattazione condizionale.Preciso che la stringa e sempre di lunghezza
differente, quindi non posso utilizzare left(), ecc. Sarebbe necessario
escludere da Chr(13) & Chr(10) in poi ma non ci sono riuscito.

   Servizio
      Pa
      TRP

TRANSFORM First([TurnoName] & Chr(13) & Chr(10) &
IIf([tbl_141_Servizi].[Turnaz]=-1,"T") & IIf([tbl_141_Servizi].[Rep]=-1,"R")
& IIf([tbl_141_Servizi].[SFest]=-1,"S") & IIf([tbl_141_Servizi].[Pasti]=1 Or
[tbl_141_Servizi].[Pasti]=2,"P")) AS Serv
SELECT tbl_141_Militari.N�_Ord, tbl_141_Servizi.Militare,
tbl_141_Servizi.Id_Mil, tbl_141_Servizi.Anno, tbl_141_Servizi.Mese
FROM (tbl_141_Servizi INNER JOIN tbl_141_Turni ON tbl_141_Servizi.Turno =
tbl_141_Turni.Id_Turno) INNER JOIN tbl_141_Militari ON
tbl_141_Servizi.Id_Mil = tbl_141_Militari.IdMil
WHERE (((tbl_141_Servizi.Id_Mil) Like
IIf([forms]![frm_141_GeneraleServizi]![Servizi_CI_MeseCorrente].[form]![FiltroMilitare]="","*",[forms]![frm_141_GeneraleServizi]![Servizi_CI_MeseCorrente].[form]![FiltroMilitare]))
AND
((tbl_141_Servizi.Anno)=[forms]![frm_141_GeneraleServizi]![Servizi_CI_MeseCorrente].[form]![FiltroAnno])
AND
((tbl_141_Servizi.Mese)=[forms]![frm_141_GeneraleServizi]![Servizi_CI_MeseCorrente].[form]![FiltroMese]))
GROUP BY tbl_141_Militari.N�_Ord, tbl_141_Servizi.Militare,
tbl_141_Servizi.Id_Mil, tbl_141_Servizi.Anno, tbl_141_Servizi.Mese
ORDER BY tbl_141_Militari.N�_Ord, tbl_141_Servizi.Anno,
tbl_141_Servizi.Mese, Format([tbl_141_Servizi].[Data],"dd")
PIVOT Format([tbl_141_Servizi].[Data],"dd") In
("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31");

Saluti, Bruno