title: DMax & Co

author: namor

text:
Lucio ha scritto:
> Salve a tutto il NG,
> per chi è rientrato dalle vacanze buon rientro, per chi come me non ci è
> andato affatto ha tutta la mia solidarietà...
> Passiamo ad altro;
> per visualizzare dei valori in una maschera ad esempio:
> Maschera Prodotti: Ultimo prezzo, Dmax(prezzo,tblprezzi,idproddotto=ecc.)
> per visualizzare la variazione dell'ultimo prezzo...
> Fin qui tutto Ok a patto che l'ultimo prezzo inserito non sia più basso
> del precedente.
> Mi spiego meglio;
> alla maschera prodotti e collegata un'altra maschera dove man mano che
> acquisto il prodotto X ne inserisco l'ultimo prezzo di acquisto.
> Se però l'ultimo prezzo di acquisto è, come dicevo sopra,inferiore al
> precedente, mi visualizza il precedente e non l'ultimo...
> Come risolvere?
> Grazie.
Avrai una data accanto ad ogni prezzo, per distinguerli uno dall'altro e
sapere qual'è l'ultimo, no?
Allora usa Dlookup e imposta come criterio Data=dmax(data, tabella,
idprodotto).
  Dlookup(prezzo,tblprezzi,data=Dmax(data,tblprezzi,idproddotto=ecc.))
Namor
--
namor at inwind punto it



title: DMax & Co

text:
Forse non ho capito bene quello che vuoi fare.
Mi sembra di aver capito che utilizza il DMax per trovare l'ultimo prezzo
d'acquisto.
Perchè non crei una funzione in ADO che ti recupera questo valore. Basta
impostare un campo contatore sulle righe, e quando apri il recordset, usi la
dicitura ORDER BY IDRiga DESC. Il primo della riga è il tuo ultimo prezzo.
Ciao.
P.S. Se non è proprio necessario, di solito è meglio non utilizzare i DMax e
DLookup che sono molto più lenti dell'ADO o DAO.
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:cgv45a$1lt$1...@news.newsland.it...



title: DMax & Co

author: Pablitomf

text:
Lucio ha scritto:
> Salve a tutto il NG,
> per chi è rientrato dalle vacanze buon rientro, per chi come me non ci è
> andato affatto ha tutta la mia solidarietà...
> Passiamo ad altro;
> per visualizzare dei valori in una maschera ad esempio:
> Maschera Prodotti: Ultimo prezzo, Dmax(prezzo,tblprezzi,idproddotto=ecc.)
> per visualizzare la variazione dell'ultimo prezzo...
> Fin qui tutto Ok a patto che l'ultimo prezzo inserito non sia più basso
> del precedente.
> Mi spiego meglio;
> alla maschera prodotti e collegata un'altra maschera dove man mano che
> acquisto il prodotto X ne inserisco l'ultimo prezzo di acquisto.
> Se però l'ultimo prezzo di acquisto è, come dicevo sopra,inferiore al
> precedente, mi visualizza il precedente e non l'ultimo...
> Come risolvere?
> Grazie.
Nell'help : Dlookup
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley



title: DMax & Co

author: Antonio Biso

text:
"Megasoft78" <
megas...@hotmail.com
> ha scritto nel messaggio
news:cgv5d3$j25$1...@domitilla.aioe.org...
> Forse non ho capito bene quello che vuoi fare.
Non hai capito bene neanche come si risponde visto che non scrivi
correttamente DOPO il quoting!!!
Antonio


title: DMax & Co

text:
Scusa per il quoting.
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:P6FYc.67052$1V3.1...@twister2.libero.it...



title: DMax & Co

text:
Megasoft78 ha scritto:
> Scusa per il quoting.

Ma come, allora vuoi l'ira di Antonio? Ti becca per il quoting e tu gli
chiedi scusa riERRANDO? Devi rispondere ai post scrivendo al di sotto del
testo... vedi, come ho fatto io adesso!
Ciao
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito



title: DMax & Co

text:
"Megasoft78" <
megas...@hotmail.com
> ha scritto nel messaggio
news:cgv8fq$kv5$1...@domitilla.aioe.org...
> Scusa per il quoting.
12345678910
...
Antonio



title: DMax & Co

text:
"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio
news:9EGYc.73094$OH4.2...@twister1.libero.it...

Riscusa (Speriamo sia la volta buona).


title: DMax & Co

text:
"Megasoft78" <
megas...@hotmail.com
> ha scritto nel messaggio
news:ch07jt$qee$1...@domitilla.aioe.org...
>
> > > > Non hai capito bene neanche come si risponde visto che non scrivi
> > > > correttamente DOPO il quoting!!!
> > > >
> > > > Antonio
> >
>
> Riscusa (Speriamo sia la volta buona).
Finalmente...
Puff
Pant...
Antonio


title: DMax & Co

author: Lucio

text:
namor ha scritto:
> Lucio ha scritto:
> > Salve a tutto il NG,
> > per chi è rientrato dalle vacanze buon rientro, per chi come me non ci è
> > andato affatto ha tutta la mia solidarietà...
> > Passiamo ad altro;
> > per visualizzare dei valori in una maschera ad esempio:
> > Maschera Prodotti: Ultimo prezzo, Dmax(prezzo,tblprezzi,idproddotto=ecc.)
> > per visualizzare la variazione dell'ultimo prezzo...
> > Fin qui tutto Ok a patto che l'ultimo prezzo inserito non sia più basso
> > del precedente.
> > Mi spiego meglio;
> > alla maschera prodotti e collegata un'altra maschera dove man mano che
> > acquisto il prodotto X ne inserisco l'ultimo prezzo di acquisto.
> > Se però l'ultimo prezzo di acquisto è, come dicevo sopra,inferiore al
> > precedente, mi visualizza il precedente e non l'ultimo...
> > Come risolvere?
> > Grazie.
> Avrai una data accanto ad ogni prezzo, per distinguerli uno dall'altro e
> sapere qual'è l'ultimo, no?
> Allora usa Dlookup e imposta come criterio Data=dmax(data, tabella,
> idprodotto).
>   Dlookup(prezzo,tblprezzi,data=Dmax(data,tblprezzi,idproddotto=ecc.))
> Namor
Ho provato così su corrente :
Me.prezzo=Dlookup("[Prezzo]","TBLPrezzi","[DataPrezzo]=DMax("[DataPrezzo]","TBLPrezzi","[IdProdotto]=Forms!Prodotti!IdProdotto")),
Dovrebbe funzionare ma alla fine della compilazione mi crea problemi co le
virgolette all'interno del Dmax poichè mi dice prevista fine istruzione o
separatore ecc..
Come fare?
--



title: DMax & Co

text:
Lucio ha scritto:




Devi separare i due criteri, non mettere la dmax dentro al criterio della
dlookup, dev'essere valutata e risolta prima. Stessa cosa per IDprodotto.
Me.prezzo=
Dlookup("[Prezzo]","TBLPrezzi","[DataPrezzo]=" &
DMax("[DataPrezzo]","TBLPrezzi","[IdProdotto]=" &
Forms!Prodotti!IdProdotto)),
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: DMax & Co

text:
namor ha scritto:






> Namor
Ho inserito pari pari tutto ma mi dà un errore su corrente:
"Errore di sintassi(operatore mancante) nell'espressione della query
'[DataPrezzo]=31/08/2004 10.59.08'."
e non va.
Help me! :(
--



title: DMax & Co

text:
Lucio ha scritto:
[cut]
> > > Ho provato così su corrente :
>
Me.prezzo=Dlookup("[Prezzo]","TBLPrezzi","[DataPrezzo]=DMax("[DataPrezzo]","TBLPrezzi","[IdProdotto]=Forms!Prodotti!IdProdotto")),
> > > Dovrebbe funzionare ma alla fine della compilazione mi crea problemi co
le
> > > virgolette all'interno del Dmax poichè mi dice prevista fine istruzione o
> > > separatore ecc..
> > > Come fare?
> > Devi separare i due criteri, non mettere la dmax dentro al criterio della
> > dlookup, dev'essere valutata e risolta prima. Stessa cosa per IDprodotto.
> > Me.prezzo=
> > Dlookup("[Prezzo]","TBLPrezzi","[DataPrezzo]=" &
> > DMax("[DataPrezzo]","TBLPrezzi","[IdProdotto]=" &
> > Forms!Prodotti!IdProdotto)),
> > Namor
> Ho inserito pari pari tutto ma mi dà un errore su corrente:
> "Errore di sintassi(operatore mancante) nell'espressione della query
> '[DataPrezzo]=31/08/2004 10.59.08'."
> e non va.
> Help me! :(
Ci devi aggiungere i delimitatori per il campo data (#):
Dlookup("[Prezzo]","TBLPrezzi","[DataPrezzo]=#" &
DMax("[DataPrezzo]","TBLPrezzi","[IdProdotto]=" &
Forms!Prodotti!IdProdotto) & "#")
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: DMax & Co

text:
namor ha scritto:
> Lucio ha scritto:
> [cut]





thanks ;))))
--



title: Filtro ricerca

text:
Ciao, una cortesia, sto usando access 2013 e ho un problema che mi trascino anche sulle vecchie versioni di access che riguarda i filtri di ricerca.

In pratica ho creato una maschera dove ci sono 3 campi non associati e un pulsante ricerca.
Sotto ho inserito una sottomaschera di tipo tabulare.

Praticamente riempiendo uno dei campi di ricerca non associati della maschera principale e cliccando sul pulsante ricerca, il sistema mi filtra solo i record ricercati.

il codice inserito per il pulsante Ricerca è il seguente:

Dim strFiltro, strFiltro2, strFiltro3, strFiltro4 As String

    strFiltro = ""

   strFiltro = " EnteAppaltante like ""*" & TxtEnteAppaltante & "*"" AND TipologiaProcedura Like ""*" & TxtTipologiaProcedura & "*"" AND StatoGara Like ""*" & TxtStatoGara & "*"""

   If Len(strFiltro) <> 139 Then
    Me![Gara_Ricerca].Form.Filter = strFiltro
    Me![Gara_Ricerca].Form.FilterOn = True
   Else
    Me![Gara_Ricerca].Form.FilterOn = False
   End If

Dove in strFiltro associo i campi TXT che deve riempire l'utente per la ricerca ai campi della sottomaschera.

Il pulsante funziona bene e ricerca quello che va ricercato. Il problema lo ho quando uno dei campi della sottomaschera è vuoto. A quel punto il sistema non mi cerca niente. Cioè, se se nella tabella Gara (che è quella associata alla sottomaschera), uno dei campi EnteAppaltante, TipologiaProcedura, StatoGara è vuoto, il filtro non funziona e suppongo sia un problema del Like nel filtro....

Qualcuno può aiutarmi a sistemare questo problema oppure a suggerirmi un metodo diverso di ricerca?

grazie
Carlo


title: Filtro ricerca

author: Karl Donaubauer

text:
Salve,

Catswalk2 ha scritto:
> ...
> il codice inserito per il pulsante Ricerca è il seguente:
>
> Dim strFiltro, strFiltro2, strFiltro3, strFiltro4 As String

Dim strFiltro As String, strFiltro2 As String, strFiltro3 As String,
strFiltro4 As String

Altrimenti solo l'ultima variabile è del tipo String, le altri sono Variant.

>      strFiltro = ""

È superfluo. Una variabile del tipo String dopo la dicchiarazione è
sempre "".

>     strFiltro = " EnteAppaltante like ""*" & TxtEnteAppaltante & "*"" AND TipologiaProcedura Like ""*" & TxtTipologiaProcedura & "*"" AND StatoGara Like ""*" & TxtStatoGara & "*"""

If Not IsNull(Me!TxtEnteAppaltante) Then
     strFiltro = "EnteAppaltante like ""*" & Me!TxtEnteAppaltante & "*""
End If

If Not IsNull(Me!TipologiaProcedura) Then
     If strFiltro > "" Then strFiltro = strFiltro & " AND "
     strFiltro = "TipologiaProcedura Like ""*" &
Me!TxtTipologiaProcedura & "*""
End If

If Not IsNull(Me!TxtStatoGara) Then
     If strFiltro > "" Then strFiltro = strFiltro & " AND "
     strFiltro = "StatoGara Like ""*" & Me!TxtStatoGara & "*"""
End If

>     If Len(strFiltro) <> 139 Then

?

>      Me![Gara_Ricerca].Form.Filter = strFiltro
>      Me![Gara_Ricerca].Form.FilterOn = True
>     Else
>      Me![Gara_Ricerca].Form.FilterOn = False
>     End If
...
> Il problema lo ho quando uno dei campi della sottomaschera è vuoto. A quel punto il sistema non mi cerca niente...

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


title: Filtro ricerca

text:
Ciao, intanto grazie per la risposta. il problema non è quando è vuoto uno dei tre Me!Txt....in quel caso non ho problemi.

Faccio un esempio:
CAMPI RICERCA:
Ente: Enel
Tipo: (lascio vuoto)
Stato: (lascio vuoto)

SOTTOMASCHERA LISTA:
Ente        Tipo        Stato
Enel        Gara
Eni         Prova       Aperto
Ama         Asta        Chiuso
Enel        Bando       In corso

Con il filtro impostato come sopradescritto e quindi avendo inserito solo la parola Enel dovrebbero uscire 2 righe, la prima e l'ultima e invece esce solo l'ultima, perchè nella prima lo stato è vuoto...è per questo che forse penso che il like non considera le vuote...
grazie ancora


title: Filtro ricerca

text: Scusa....la tua soluzione è perfetta


title: Filtro ricerca

text:
Salve,

Catswalk2 ha scritto:
> Ciao, intanto grazie per la risposta. il problema non è quando è vuoto uno dei tre Me!Txt....in quel caso non ho problemi.

?
A me sembra proprio di sì, come di seguito descrivi di nuovo.

> Faccio un esempio:
> CAMPI RICERCA:
> Ente: Enel
> Tipo: (lascio vuoto)
> Stato: (lascio vuoto)
>
> SOTTOMASCHERA LISTA:
> Ente        Tipo        Stato
> Enel        Gara
> Eni         Prova       Aperto
> Ama         Asta        Chiuso
> Enel        Bando       In corso
>
> Con il filtro impostato come sopradescritto e quindi avendo inserito solo la parola Enel dovrebbero uscire 2 righe, la prima e l'ultima e invece esce solo l'ultima, perchè nella prima lo stato è vuoto...è per questo che forse penso che il like non considera le vuote...

Certo. Se non ti piace la soluzione pura, puoi anche leggere e seguire
http://www.donkarl.com/it?FAQ3.14
.



title: Maschera: blocco colonne

author: Fatti non pugnette!

text:
Si possono bloccare colonne sui fogli dati.
Qualcuno sa se esiste un metodo per bloccare le colonne anche nelle maschere
(magari via codice)?


title: Maschera: blocco colonne

author: Roberto da casa

text:
"Fatti non pugnette!" <
fa...@pugnette.it
> ha scritto nel messaggio
news:ily2a.230799$AA2.8...@news2.tin.it...

Nostalgia di Excel?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: visualizzare file di autocad .dwg

author: tiz

text:
          ciao,
ho visto molti esempi per visualizzare immagini dentro i db e mi sono
chiesto se sia possibile caricare dentro anche file diversi come file di
autocad,questo per non dover inserire collegamenti ipertestuali al file con
apertura dello stesso...
ciao
Tiz
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: visualizzare file di autocad .dwg

author: MA

text:
"tiz" <
tiziano...@libero.it
> ha scritto nel messaggio
news:130Z251Z87Z242Y...@usenet.libero.it...
>
>           ciao,
>
> ho visto molti esempi per visualizzare immagini dentro i db e mi sono
> chiesto se sia possibile caricare dentro anche file diversi come file di
> autocad,questo per non dover inserire collegamenti ipertestuali al file
con
> apertura dello stesso...
> ciao
> Tiz
>
Ci sono 3d precedenti di persone che lo fanno (credo coi controlli Kodak)
Fatti una googlata
MAssimiliano


title: Mashera tipo Zoom

author: Napoleone

text:
Buongiorno ai partecipanti,
Ho una maschera in visualizzazione maschere continue.
In queste maschere, tra gli altri controlli, ho il controllo dData; vorrei
che sul click di un pulsante posizionato nella maschera, mi si apra una
machera, che dia la possi bilità di raccogliere tutti i dati del record:
Quindi in base alla data della maschera continua, passare alla maschera
successiva, posizionandosi sulla stessa data che è unica per ogni giorno.
Allego il mio codice che naturalmente non funziona, si va a posizionare
sempre sul primo record.
--------------------------
Private Sub inserisci_spesa_Click()
On Error GoTo Err_inserisci_spesa_Click
DoCmd.OpenForm "M_Spese_Ins_Mod", , , "[dDataSpesa]=" & Me.dDataSpesa
Exit_inserisci_spesa_Click:
    Exit Sub
Err_inserisci_spesa_Click:
    MsgBox Err.Description
    Resume Exit_inserisci_spesa_Click
End Sub
----------------------
---
   Ciao
   Napoleone
                     ---


title: Mashera tipo Zoom

author: Carlo Costarella

text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:87J4f.16702$Pe2.3...@twister2.libero.it...

 Non capisco lo zoom...
comunque, metti questo codice su doppio clic del controllo dData o
dDataSpesa (non si capisce):
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "M_Spese_Ins_Mod"
    stLinkCriteria = "[dDataSpesa]=" & "'" & Me![dDataSpesa] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Credo che il problema si presenta perchè il tuo pulsante non è sistemato
nella riga del record ma in un'altra sezione della maschera e quindi il
criterio prende la data del primo record e non di quello che ti interessa.
Fammi sapere.
Ciao, Carlo


title: Mashera tipo Zoom

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:4353606a$0$24634$4faf...@reader3.news.tin.it...

Ciao Carlo,
Incredibile, mi stavo proprio guardando il manuale del tuo programma
gestione frantoio; il programma è scaricabile?
Limitato naturalmente!
Dunque,
il mio pulsante si trova sulla stessa riga del record e mi piacerebbe
lasciarcelo, anzichè il doppio click;
Come verrebbe il codice?
Grazie
Napoleone


title: Mashera tipo Zoom

text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:5JJ4f.12145$65.3...@twister1.libero.it...

 Ciao Napoleone,
per scaricare il programma puoi andare sul sito e scaricare il secondo
gruppo di file (11) in quanto questa è la versione più stabile su tutti i
sistemi. (
http://www.gestionefrantoio.it/download.htm
).
Se il pulsante si trova ripetuto su ogni record puoi benissimo inserire il
codice che ti ho mandato su clic del pulsante stesso.
Ciao, Carlo


title: Mashera tipo Zoom

text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:87J4f.16702$Pe2.3...@twister2.libero.it...

Se il campo dDataSpesa è di tipo Data/ora io sostituirei la riga:
DoCmd.OpenForm "M_Spese_Ins_Mod", , , "[dDataSpesa]=" & Me.dDataSpesa
con:
DoCmd.OpenForm "M_Spese_Ins_Mod", , , "[dDataSpesa]= #" & _
    Format(Me!dDataSpesa, "mm/dd/yyyy") & "#"
> ---
>    Ciao
>    Napoleone
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Mashera tipo Zoom

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:43536de7$0$24645$4faf...@reader3.news.tin.it...

> Ciao, Carlo
Mi segnala L'azione open form è stata annullata
--
---
   Ciao
   Napoleone
                     ---


title: Mashera tipo Zoom

text:
>
> Se il campo dDataSpesa è di tipo Data/ora io sostituirei la riga:
>
> DoCmd.OpenForm "M_Spese_Ins_Mod", , , "[dDataSpesa]=" & Me.dDataSpesa
>
> con:
>
> DoCmd.OpenForm "M_Spese_Ins_Mod", , , "[dDataSpesa]= #" & _
>    Format(Me!dDataSpesa, "mm/dd/yyyy") & "#"
>
>> ---
>>    Ciao
>>    Napoleone
>
> --
> Roberto
>
Ciao Roby e grazie,
funziona egregiamente!
--
---
      Napoleone
                     ---


title: Mashera tipo Zoom

text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:VWL4f.16978$Pe2.3...@twister2.libero.it...
cut
>>>> Non capisco lo zoom...
>>>> comunque, metti questo codice su doppio clic del controllo dData o
>>>> dDataSpesa (non si capisce):
>>>> Dim stDocName As String
>>>>    Dim stLinkCriteria As String
>>>>
>>>>    stDocName = "M_Spese_Ins_Mod"
>>>>
>>>>    stLinkCriteria = "[dDataSpesa]=" &  "#" & Me![dDataSpesa]
>>>> DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>>
>
>> Ciao, Carlo
> Mi segnala L'azione open form č stata annullata
>
> --
> ---
>   Ciao
>   Napoleone
Controlla cosa avviene all'apertura della maschera e poi la giusta sintassi
č:
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MOrdiniCA"
    stLinkCriteria = "[dDataSpesa]=" & "#" & Me![dDataSpesa] & "#"



title: query di aggiornamento?

author: Singer

text:
Premessa
le mie tabelle gestiscono le assenze del personale
Ho una tabella (lato molti) nella quale voglio cambiare la chiave esterna.
TabellaA (personale): IDPERSONALE, CODICE_A .....
TabellaB (assenze): ID, IDASSENZEPERSONALE, CODICE_B .....
La relazione era IDPERSONALE-IDASSENZEPERSONALE. Ora voglio passare a
CODICE_A-CODICE_B
C'è un modo per popolare il campo CODICE_B nella TabellaB (che contiene
oltre 5000 record) con i valori corrispondenti del CODICE_A della TabellaA
Ho pensato ad una query di aggiornamento... ma non so come impostarla.
Spero di essere stato chiaro!!! lo spero!


title: query di aggiornamento?

text:

Un po' "barbaramente", ma se vuoi, sì lo puoi fare a colpi di query di
aggiornamento (una query per ogni record della tabella Personale!!!):
1) Fai una copia di backup (non si sa mai)
2) crea una query di aggiornamento tra le due tue tabelle
dove metti i quattro campi che interessano e
sotto a Codice_B aggiorna a [Codice_A]
sotto a IDPERSONALE criterio volta per volta tutti gli ID della
tabella Personale (quindi se i valori di ID PERSONALE sono ad esempio,
1,2,3,4... metti 1, poi esegui la query, poi metti 2 riesegui la
query, ... fino all'ultimo IDPERSONALE).
F.


title: query di aggiornamento?

text:
<
al...@libero.it
> ha scritto nel messaggio
news:bd206c3c-90cc-4a6a...@m71g2000hse.googlegroups.com...




F.
Eccezionale, funziona!!
Grazie
ci metterò un po di tempo visto che gli ID sono oltre 500
ma sempre più facile che inserire 5000 codici manualmente


title: query di aggiornamento?

text:
On 16 Apr, 23:02, "Singer" <
fuscoanto...@tin.it
> wrote:
> <
al...@libero.it
> ha scritto nel messaggionews:bd206c3c-90cc-4a6a...@m71g2000hse.googlegroups.com...

500 mi paiono tantini.
(Mi tiro la zappa sui piedi).
Io lo farei allora con una routine VBA e un opportuno recordset...
Se ti interessa batti un colpo che mi ci cimento (sono un praticone di
VBA e ci metterei cmq un po' di tempo....)
Se invece qualcuno bravo e svelto di codice vuole buttarlo giù gli
sono grato anch'io...
F.


title: query di aggiornamento?

text:
<
al...@libero.it
> ha scritto nel messaggio
news:c84cf087-6a47-40e0...@f36g2000hsa.googlegroups.com...


F.
effettivamente avevo pensato anch'io a qualche ciclo, credo un for..next
vada bene
il codice sql è il seguente
UPDATE personale INNER JOIN Assenze ON personale.IDCONTATORE =
Assenze.IDPERSONALE SET Assenze.CIP = personale.cip
WHERE (((personale.IDCONTATORE)=12));
credo che quel 12 possa diventare i nel ciclo
for i = 1 to 524
.....
credo...


title: query di aggiornamento?

text:
On 17 Apr, 18:16, "Singer" <
fuscoanto...@tin.it
> wrote:
> <
al...@libero.it
> ha scritto nel messaggionews:c84cf087-6a47-40e0...@f36g2000hsa.googlegroups.com...

> credo...- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
ho qualche dubbio su cosa succeda in caso di buchi tra 1 e 524,ma se
non ce ne sono o cmq vuoi provare (previo backup)
Dim MySQL1 As String
 Dim MyVar as integer
 for i = 1 to 524
MyVar=Myvar+1
    MySQL1 = "UPDATE personale INNER JOIN Assenze ON
personale.IDCONTATORE = Assenze.IDPERSONALE SET Assenze.CIP =
personale.cip WHERE (((personale.IDCONTATORE)=" & MyVar & "));"
    DoCmd.RunSQL MySQL1
F.


title: query di aggiornamento?

text:
<
al...@libero.it
> ha scritto nel messaggio
news:05e1f7ca-0211-4d7c...@p25g2000hsf.googlegroups.com...
On 17 Apr, 18:16, "Singer" <
fuscoanto...@tin.it
> wrote:
> <
al...@libero.it
> ha scritto nel
> messaggionews:c84cf087-6a47-40e0...@f36g2000hsa.googlegroups.com...
> On 16 Apr, 23:02, "Singer" <
fuscoanto...@tin.it
> wrote:
>
>
>
>
>
> > <
al...@libero.it
> ha scritto nel
> > messaggionews:bd206c3c-90cc-4a6a...@m71g2000hse.googlegroups.com...
> > On 15 Apr, 21:58, "Singer" <
fuscoanto...@tin.it
> wrote:
>
> > > Premessa
> > > le mie tabelle gestiscono le assenze del personale
> > > Ho una tabella (lato molti) nella quale voglio cambiare la chiave
> > > esterna.
> > > TabellaA (personale): IDPERSONALE, CODICE_A .....
> > > TabellaB (assenze): ID, IDASSENZEPERSONALE, CODICE_B .....
>
> > > La relazione era IDPERSONALE-IDASSENZEPERSONALE. Ora voglio passare a
> > > CODICE_A-CODICE_B
>
> > > C'� un modo per popolare il campo CODICE_B nella TabellaB (che
> > > contiene
> > > oltre 5000 record) con i valori corrispondenti del CODICE_A della
> > > TabellaA
>
> > > Ho pensato ad una query di aggiornamento... ma non so come impostarla.
>
> > > Spero di essere stato chiaro!!! lo spero!
>
> > Un po' "barbaramente", ma se vuoi, s� lo puoi fare a colpi di query di
> > aggiornamento (una query per ogni record della tabella Personale!!!):
>
> > 1) Fai una copia di backup (non si sa mai)
>
> > 2) crea una query di aggiornamento tra le due tue tabelle
> > dove metti i quattro campi che interessano e
> > sotto a Codice_B aggiorna a [Codice_A]
> > sotto a IDPERSONALE criterio volta per volta tutti gli ID della
> > tabella Personale (quindi se i valori di ID PERSONALE sono ad esempio,
> > 1,2,3,4... metti 1, poi esegui la query, poi metti 2 riesegui la
> > query, ... fino all'ultimo IDPERSONALE).
>
> > F.
>
> > Eccezionale, funziona!!
> > Grazie
> > ci metter� un po di tempo visto che gli ID sono oltre 500
> > ma sempre pi� facile che inserire 5000 codici manualmente
>
> 500 mi paiono tantini.
> (Mi tiro la zappa sui piedi).
> Io lo farei allora con una routine VBA e un opportuno recordset...
> Se ti interessa batti un colpo che mi ci cimento (sono un praticone di
> VBA e ci metterei cmq un po' di tempo....)
> Se invece qualcuno bravo e svelto di codice vuole buttarlo gi� gli
> sono grato anch'io...
>
> F.
>
> effettivamente avevo pensato anch'io a qualche ciclo, credo un for..next
> vada bene
>
> il codice sql � il seguente
> UPDATE personale INNER JOIN Assenze ON personale.IDCONTATORE =
> Assenze.IDPERSONALE SET Assenze.CIP = personale.cip
> WHERE (((personale.IDCONTATORE)=12));
> credo che quel 12 possa diventare i nel ciclo
> for i = 1 to 524
> .....
>
> credo...- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
ho qualche dubbio su cosa succeda in caso di buchi tra 1 e 524,ma se
non ce ne sono o cmq vuoi provare (previo backup)
Dim MySQL1 As String
 Dim MyVar as integer
 for i = 1 to 524
MyVar=Myvar+1
    MySQL1 = "UPDATE personale INNER JOIN Assenze ON
personale.IDCONTATORE = Assenze.IDPERSONALE SET Assenze.CIP =
personale.cip WHERE (((personale.IDCONTATORE)=" & MyVar & "));"
    DoCmd.RunSQL MySQL1
F.
Funziona perfettamente. Grazie
anche con i buchi, e ce ne sono parecchi.
siccome vorrei capire qualcosa, che � da poco che studio vba..
perch�  MyVar=Myvar+1  ?
io avrei messo i al posto di Myvar nel codice sql
non funzionava?


title: query di aggiornamento?

text:
On 18 Apr, 20:33, "Singer" <
fuscoanto...@tin.it
> wrote:
> <
al...@libero.it
> ha scritto nel messaggionews:05e1f7ca-0211-4d7c...@p25g2000hsf.googlegroups.com...

> non funzionava?- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
penso di si, ma nella mia breve esistenza vba-istica è il mio (tra
laltro tuo) ciclo fo, per cui nel dubbio ho fatto con MyVar
PS.Prova direttamente con i e poi fammi sapere... :-)
F.


title: query di aggiornamento?

text:
<
al...@libero.it
> ha scritto nel messaggio
news:997e86ea-87f0-4a33...@k13g2000hse.googlegroups.com...


Ho provato!  Non c'è differenza. funziona allo stesso modo
Grazie ancora
ora apro un altro post per un altro problema


title: problemi con creazione quidata pacchetti off.XP

author: CDM

text:
Quando creo un un pacchetto di accessxp ho sempre lo stesso problema, ovvero
se tutta la mia cartella si trova in c:\programmi\pippo\ ed alcuni file
nella sottocartella c:\programmi\pippo\pluto, creo il pacchetto e quando lo
vado ad installare su un pc mi registra tutto in c:\programmi\pippo, da
premettere che nella stringa durante la creazione guidata specifico il
percorso completo, c'è da fare qualche altra operazione?
Grazie cdm


text:
"CDM" <
nos...@tin.it
> ha scritto nel messaggio
news:T97xa.105388$3M4.2...@news1.tin.it...

Terminata la creazione del pacchetto, con Notepad, apri il file "Setup.lst"
e correggi la riga:
DefaultDir=
aggiungendo o modificando il percorso di installazione.
Ricorda di non usare virgolette e scrivi tutto attaccato.
Per esempio:
DefaultDir=C:\Programmi\MiaCartella
Salva il file.
Ciao, Carlo


title: Windows Installer

author: alb

text:
Nel mio PC (Windows 2000) ho installato sia Access 2000 che 97. Il Problema
è che se alterno il 2000 con il 97 e poi con il 2000 si avvia Windows
installer. Chiedo q questo ng se conosce la soluzione per non far partire
l'installer. Grazie


title: Windows Installer

author: Sergio MAZZA

text:
"alb" <
dona...@yhaoo.it
> ha scritto nel messaggio
news:c1isor$gus$1...@lacerta.tiscalinet.it...

Hai installato il Norton 2000?
Ciao.
--
Sergio MAZZA


title: Dcount con riferimento e casella di testo in origine controllo

text:
In una maschera ho una casella di testo Testo1 che mi visualizza un
cognome di una query
query_elenco_RDP (campi della query; cognome, nomi, fuori_servizio etc)
Come si può fare in modo che (ipotizzo sempre con dcount),
posso contare nell’origine controllo di una casella di testo
Numero_cognomi_uguali,  la quantità di cognomi
uguali a quelli che mi restituisce la casella Testo1 e dove il campo
fuori_servizio è uguale a 1.
Ho provato (prima solo a vedere se effettua il conto dei cognomi) con:
=DCount("COGNOME";"Query_elenco_RDP";"Cognome='me![testo1]'")
e mi da errore.
non funziona neanche con me![testo1] senza ‘
e neanche con me!testo1
Praticamente non so come fargli riconoscere dopo l’uguale la casella di
testo1.
Inoltre, nel caso si  risolva tale punto,
è sufficiente un AND per poter vedere tali cognomi uguali, dove però il
campo fuori servizio=1 ?
cioè:
=DCount("COGNOME";"Query_elenco_RDP";"Cognome='me![testo1]'" AND
"fuori_servizio=1")
visto che in un’altra Dcount come sotto mi funziona (ma serve solo per
contare i fuori servizio)
=DCount("fuori_servizio";"Query_elenco_RDP";"fuori_servizio=1")
Ringrazio tutti per chiarimenti


text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39E1BA59...@usa.net...

Prova con:
=DCount("COGNOME";"Query_elenco_RDP";"Cognome='" & me![testo1]& "' AND
fuori_servizio=1")
Ciao.


text:
Ho provato solo la prima parte, anche per vedere se funzionava:
=DCount("COGNOME";"Query_elenco_RDP";"Cognome=' " & [me]![testo1] & " ' ")
mi dà come errore (#)nome   (cancelletto)Nome
non vorrei che, al momento che apro la maschera siccome Testo1 (dove ho il
nome)
e testo2 (dove scrivo il dcount) siccome partono insieme, allora allora il
testo 2
non trovando nulla in testo 1 dà questo tipo di errore
(n.b. è solo una ipotesi)
eventualmente fosse così, devo risolvere via codice?
come?
ciao


text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39E1D281...@usa.net...

Occhio che non ci sono spazi tra ' e "; cioè:
(è errato)
='(spazio)" & [me]![testo1] & "(spazio)'=' " & [me]![testo1] & " ' ")")
(è giusto)
='" & [me]![testo1] & "'")
Ciao.


text:
Ho controllato anche gli spazi, ma dà sempre l'errore #nome?
=DCount("COGNOME";"Query_elenco_RDP";"COGNOME = '" & [me]![Testo1] & "'")


text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39E1D697...@usa.net...
> Ho controllato anche gli spazi, ma dà sempre l'errore #nome?
>
> =DCount("COGNOME";"Query_elenco_RDP";"COGNOME = '" & [me]![Testo1] & "'")
>
>
Allora è un problema di nomi; controlla se nella query c'è effettivamente un
campo cognome, oltre al fatto che esista una query Query_elenco_RDP, e la
casella si chiami testo1.
Altrimenti prova anche con:
=DCount("[COGNOME]";"Query_elenco_RDP";"[COGNOME] = '" & me!Testo1 & "'")
Ciao.


text:
>
> > =DCount("COGNOME";"Query_elenco_RDP";"COGNOME = '" & [me]![Testo1] & "'")
> >
> >
> Allora è un problema di nomi; controlla se nella query c'è effettivamente un
> campo cognome, oltre al fatto che esista una query Query_elenco_RDP, e la
> casella si chiami testo1.
> Altrimenti prova anche con:
>
> =DCount("[COGNOME]";"Query_elenco_RDP";"[COGNOME] = '" & me!Testo1 & "'")
ho provato ma non va
sempre stesso errore
riguardo al campo cognome c'è, query anche, idem per testo1
tra l'altro in precedenza avevo provato al posto di " & [me]![Testo1] & " a
scrivere
un cognome che avevo in elenco e funzionava
quindi secondo me non legge il valore dalla casella di testo o il confronto
in contemporanea può dargli fastidio?
eventualmente per fare un conteggio vi codice come si fa
vorrei provare ad esempio mettendo una nuova casella di testo testo5 e facendo
click sopra a
vedere se fa il dcount.
In questo modo applico il dcount solo dopo che in testo1 ho il valore e quindi
posso
rendermi conto se è la contemporaneità dell'azione a dargli fastidio
che ne pensi?


author: Paolo A.

text:
rr12rr wrote:
> Ho provato solo la prima parte, anche per vedere se funzionava:
>
> =DCount("COGNOME";"Query_elenco_RDP";"Cognome=' " & [me]![testo1] & " ' ")
> mi dà come errore (#)nome   (cancelletto)Nome
>
> non vorrei che, al momento che apro la maschera siccome Testo1 (dove ho il
> nome)
> e testo2 (dove scrivo il dcount) siccome partono insieme, allora allora il
> testo 2
> non trovando nulla in testo 1 dà questo tipo di errore
> (n.b. è solo una ipotesi)
> eventualmente fosse così, devo risolvere via codice?
> come?
> ciao
prova a inserire il dcount nell'evento Load del form dovrebbe funzionare
Sub Form_Load
       Me.testo2 = DCount("Cognome", "Query_elenco_RDP", "Cognome = '" &
me!testo1 & "' ")
end sub
il dcount da codice vuole le virgole per separare i parametri
Saluti
Paolo


text:
"rr12rr" <
NOSPAM...@usa.net
> ha scritto nel messaggio
news:39E1DB01...@usa.net...
>
>
>
> ho provato ma non va
> sempre stesso errore
> riguardo al campo cognome c'è, query anche, idem per testo1
> tra l'altro in precedenza avevo provato al posto di " & [me]![Testo1] & "
a
> scrivere
> un cognome che avevo in elenco e funzionava
> quindi secondo me non legge il valore dalla casella di testo o il
confronto
> in contemporanea può dargli fastidio?
> eventualmente per fare un conteggio vi codice come si fa
> vorrei provare ad esempio mettendo una nuova casella di testo testo5 e
facendo
> click sopra a
> vedere se fa il dcount.
> In questo modo applico il dcount solo dopo che in testo1 ho il valore e
quindi
> posso
> rendermi conto se è la contemporaneità dell'azione a dargli fastidio
>
> che ne pensi?
>
Penso che un giorno così non ritorni mai più...
Uff! Ma è strano, il dcount è
dcount("nomeCampodacontare","nometabellaOquery","condizioneWhere"); da
quello che hai scritto non mi sembra ci sia nulla di errato. Fai una prova
assurda:
=DCount("[COGNOME]";"Query_elenco_RDP")
Dovrebbe contarti tutti i nomi, anzi cognomi...
Ciao.


text:
Perfetto!
a conferma di quantoavevo intuito, a non l'avrei mai risolto senza il vostro
aiuto
grazie di nuovo a tutti


text:
rr12rr <
NOSPAM...@usa.net
> wrote in message 39E1DB01...@usa.net...
>
>
> >
> > > =DCount("COGNOME";"Query_elenco_RDP";"COGNOME = '" & [me]![Testo1] &
"'")
> > >
Prova a non mettere me! ma solo il nome del controllo testo1
Antonio


text:
rr12rr ha scritto nel messaggio <
39E1DB01...@usa.net
>...
No, scusa: prova a mettere me#
Saluti, Biso


text:
Antonio Biso <
ch...@etruria.net
> wrote in message
vRnE5.24586$N93.8...@news.infostrada.it...
>
> rr12rr ha scritto nel messaggio <
39E1DB01...@usa.net
>...
>
> No, scusa: prova a mettere me#
Questo post è di un deficiente vigliacco, non mio
Antonio


title: pulsanti attivati sotto condizione

author: leukocell

text:
sal ve a tutto il NG
ho un problema su cui mi sto arenando...
ho una maschera singola con una casella di controllo e un pulsante di
comando. vorrei che quando la casella di controllo ha il segno di
spunta detto pulsante sia attivato. Avevo provato con una routine
sul'evento dopo aggiornamento del tipo
if me.miacaselladicontrollo= true then
me.miopulsante.enabled= true
end if
funzionare funziona, solo che quando riapro la maschera dopo averla
chiusa per rivedere i dati, nonostante il segno di spunta il pulsante
di comando è disattivato...su quale evento dovrei mettere la routine?
o c'è un altro sistema?
grazie


title: pulsanti attivati sotto condizione

author: Marco Papo

text:
"leukocell" <
leuk...@gmail.com
> ha scritto nel messaggio
news:9a94eb3a-1afd-4d4e...@x35g2000hsb.googlegroups.com...


Ciao,
la strada che hai scelto è giusta, solo che devi mettere il codice sia anche
sull'vento Su Apertura, e testa sempre entrambe le condizioni.
if me.miacaselladicontrollo= true then
    me.miopulsante.enabled= true
else
       me.miopulsante.enabled= false
end if
--
Marco Papetti
www.sprayabbronzante.com
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.


title: pulsanti attivati sotto condizione

text:
On 30 Set, 08:07, "Marco Papo" <
marco.pape...@gmail.com
> wrote:
> "leukocell" <
leukoc...@gmail.com
> ha scritto nel messaggionews:9a94eb3a-1afd-4d4e...@x35g2000hsb.googlegroups.com...

> Marco Papettiwww.sprayabbronzante.comwww.shortchannel.itIl software di commercio elettronico
OpenSourcewww.mondoideale.com
 - Prodotti naturali e biologici.
grazie...ho provato quello che mi hai suggerito così mi hai salvato i
pochi neuroni che mi sono rimasti


title: pulsanti attivati sotto condizione

text:

Ciao
è inutile creare tutto questo papocchio
me.miopulsante.enabled = me.miacaselladicontrollo
in pratica tu gli dici guarda il valore di me.caselladicontrollo e assegnalo alla proprità enabled del pulsante
1 sola riga di codice
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: pulsanti attivati sotto condizione

text:
On 30 Set, 09:57, "MA" <
mas...@massimilianoamendola.it
> wrote:
> Marco Papo wrote:
> > "leukocell" <
leukoc...@gmail.com
> ha scritto nel messaggio

> Cisa - Conferenza Italiana Sviluppatori Access- Nascondi testo citato
>
> - Mostra testo citato -
Scusate se mi intrometto sull'argomento, ma ho un problema simile
anche io, vorrei che se la casella di controllo campo Sì/No non è sul
sì che mi fosse impossibile attivare un altro campo con casella
combinata.
Es. SE la casella di controllo è sul NO mi fosse inibito di scegliere
qualsiasi cosa nella casella combinata MODELLI
Posso usare il codice scritto sopra oppure la procedura è diversa?


title: pulsanti attivati sotto condizione

text:

va benissimo
--
--
MAssimiliano Amendola
www.accessgroup.it



title: pulsanti attivati sotto condizione

text:
On 30 Set, 09:57, "MA" <
mas...@massimilianoamendola.it
> wrote:
> Marco Papo wrote:
> > "leukocell" <
leukoc...@gmail.com
> ha scritto nel messaggio

> Cisa - Conferenza Italiana Sviluppatori Access- Nascondi testo citato
>
> - Mostra testo citato -
ma la routine che suggersci su che evento va impostato? su corrente
della maschera?


title: pulsanti attivati sotto condizione

author: Alessandro Baraldi

text:
....
> ma la routine che suggersci su che evento va impostato? su corrente
> della maschera?
Gli eventi che condizionano sono 2 in sostanza:
1 - Load
2 - Current
@Alex


title: pulsanti attivati sotto condizione

text:

> della maschera?- Nascondi testo citato
>
> - Mostra testo citato -
Private Sub Form_Current()
Me.Modelli.Enabled = Me.MiaCasellaControllo
End Sub
Ho scritto questo codice ma mi da questo errore..
"ERRORE DI COMPILAZIONE: IMPOSSIBILE TROVARE IL METODO O IL MEMBRO DEI
DATI."


title: GDPR

author: BFS

text:
Visti gli obblighi di legge ormai prossimi sto dotando i miei software
di due nuove funzioni per la portabilità dei dati e del diritto al oblio.
Per il discorso portabilità, ho optato per un export totale di tutto cio
che è riferito a un nominativo in formato csv

Per il discorso oblio, non so ancora come muovermi.
Mi spiego:
un cliente può richiedere che i suoi dati personali (mail telefono etc)
vengano rimossi e allo stesso tempo però io alcuni suoi dati li devo
tenere per gli obblighi di legge (esempio per il periodo di
conservazione delle fatture)
Stavo pensando quindi di far scegliere al cliente stesso quali sono i
campi da azzerare tra quelli non vincolanti e poi avviare l'azzeramento
solo di quelli

voi come vi state muovendo?
BFS


title: GDPR

author: RobertoA

text:

Terribilmente in ritardo
Dopo aver letto un po' qua' un po' la' non ho ancora preparato un serio
piano di attacco per affrontare e risolvere le richieste imposte dalla
normativa
Puoi consigliare qualche link/documento che hai ritenuto utile?


title: GDPR

text:

putroppo non ne ho
ho letto 200 siti e tutti parlano ma nessuno indica al lato pratico cosa
è obbligatorio fare


title: GDPR

author: iLanders

text:

Ciao a tutti.
il GDPR di fatto non ha introdotti enormi cambiamenti rispetto al vecchio DPS (che era già a norma prima, di fatto fa poco sforzo per omologarsi alla nuova) però alcuni ci sono.

Qui trovate la BIBBIA emessa dal garante (colui che eventualmente sanzionerebbe, quindi seguire le sue indicaizoni ci mette al riparo):

http://www.garanteprivacy.it/web/guest/home/docweb/-/docweb-display/docweb/6264597

La guida contiene nelle prime pagine i cosidetti "considerando" (se non mastichi il "legalese", vedili come commenti che spiegamno meglio).

Relativamente al tuo quesito, la norma prevede che nel caso di trattamento di dati con finalità diverse (sul concetti di finalità ci ruota molto attorno), andrebbe richiesto un esplicito consenso singolarmente per ogni dato trattato.
Per capire, vai sul sito di tim: relativamente alla privacy ti apparirà un popup con almeno 4 flag da selezionare, uno per ogni finalità.

Quindi, puoi chiedere di confermarti il consenso per i dati che ritieni necessari per erogare il servizio, e dichiarare che da lì in poi non tratterai più gli altri dati (ricorda che per i dati precedentemente raccolti il titolare può continuare a trattarli, a meno di una esplicita richiesta di cancellazione da parte dell'interessato).

Nel sito, come dici tu, puoi richiedere il consenso mettendo obbligatori alcuni dati necessari per erogare il servizio (quelli della fatturazione sono un esempio), senza i quali l'utente non può fruire dei servizi. Come dire, o mi acconsenti, oppure non posso fare nulla per te.

L'articolo 6 /1b e /1c nel GDPR ti da titolo per raccogliere obbligatoriamente quei dati:

Art. 6 comma 1:
b) il trattamento è necessario all’esecuzione di un contratto di cui l’interessato è parte o all’esecuzione di misure precontrattuali adottate su richiesta dello stesso;
c) il trattamento è necessario per adempiere un obbligo legale al quale è soggetto il titolare del trattamento

L'argomento è un pò spigoloso, ma leggendo la guida tanti dubbi vanno via.

Un suggerimento: capisci bene l'art. 5, esprime in sintesi il senso della norma.
Art. 5 Principi applicabili al trattamento di dati personali

Buona lettura.
Ciao


title: GDPR

text:

Agli interessati argomento, c'e' un 3d recente su it.lavoro.informatica
Pure la', si capissie gnente
Tutti cianciano alla "..mio cuggino dice che.."
Nessuno si espone su procedure/metodi da mettere in pratica


title: controllare se ho cliccato al click

author: nwrr

text:
Dentro al codice del click su una casella combinata
devo inserire del codice che controlla se appunto ho cliccato
(per favore non sghignazzare, ma proseguire nella lettura)
questo perché se clicco anche su un'altra casella di testo qualsiasi e
quindi
non sulla cascombinata mi esegue il codice A
(basta che nello spazio a fianco del pulsantino dell'elenco
si trovi un nome dell'elnco appena digitato)
nel funzionamento regolare io appro l'elenco e CLICCO su tale nome
n.b. non devo usare screen.activecontrol
Private sub casellacombinataA_click
'codice A
msgbox
screen.activecontrol.name
casTesto0=me.cascombinata
end sub
ho tale codice A e mi parte sia che clicco sulla casella
combinata sia che clicco su un testo1 o altro testo
il bello è che
screen.activecontrol.name
 dà sempre
cascombinataA
quindi devo trovare del codice che mi dice su quale controllo
ho fatto click
n.b. non deve verificare con activecontrol bensì con
qualcosa tipo me.nomecontrollo.click=true then
cioè una verifica di dove ho eseguito l'ultimo click
-------------------------------------------------------------------------------------------
se non è chiaro il problema riporto una spiegazione precedente
altrmenti saltare a più sotto
il codice è su casellacombinata click
un uso normale prevede i seguenti passi
1 digiti un nome o le sue iniziali
2 la cas combinata ti fa vedere man mano i nomi che corrispondono
alle prime lettere digitate e si apre l'elenco
3 tu con il mouse vai sopra all voce che ti interessa dell'elenco e fai
click
4 al click il codice appuntoi su cascombinata_click mi mette il valore
in una
casella di testo
5 ecco se ora io decido di rinunciare a fare click e a posizionare il
mio mouse
su un altro controllo e quindi rimane nella cas combinata la parola da
me
digitata lui comunque te la inserisce dentro la casella di testo
e risotlineo io non ho fatto click sulla cas combinata ma ho solo
cambiato
controllo  cioè se digiti una parola sei fottuto se cambi controllo lui
inserisce
il bello è che se tu cancelli tale parola lui ti inserisce anche il null
provare per credere
'-----------------------------------------------------------------------------
inoltre per Onda Max il suggerimento che mi hai postato
non funziona (spero di averlo scritto esattamente come da te suggerito)
1) perché inserisce "" solo per il primo elemento per gli altri non
varia nulla
praticamente per il primo elemento della lista non inserisce
né se clicco sulla cascombinata né se un altro controllo
e per il resto non camnbia nulla
2) comunque se non decido di cliccare non voglio comunque inserire
neanche
la stringa di lughezza"" zero (in caso di funzionamento del codice)
perché mi troverei
dei record vuoti in una mia tabella
Devo cercare di risolvere con altra strada
codice:
Dim cont As String
Dim i
cont = "no"
For i = 1 To Me.Cas0.ListCount - 1
        If Me.Cas0.ItemData(i) = Me.Cas0 Then
           cont = "si"
           Exit For
        End If
Next i
If cont = "si" Then
      Me.Testo0 = Me.Cas0
      Else
      Me.Testo0 = ""
End If


title: controllare se ho cliccato al click

author: bep

text:
"nwrr" <
nwrrAN...@lycos.it
> ha scritto nel messaggio
news:3C72F6E5...@lycos.it...

Domanda: ma l'evento click dei controlli li fai puntare tutti alla stessa
funzione?
il metodo ActiveControl dovrebbe ritonare il controllo che ha ricevuto il
click. o sbaglio.


title: controllare se ho cliccato al click

text:
> Domanda: ma l'evento click dei controlli li fai puntare tutti alla stessa
> funzione?
non ho capito che intendi per puntare ma molto semplicemente
io ho solo una casella combinata dove dentro al codice click
ho
testo10=me.casellacombinata
(mi riempie una casella di testo)
il fatto è che tale codice parte anche se io non clicco sull'elenco ma basta
che dopo aver digitato un valore nella casella sposto il focus ssu un'altro
controllo
che access fa partire il codice (quindi n.b io non ho cliccato ed in teoria solo
l'evento click dovrebbe far partire l'inserimento  testo10=me.casellacombinata)
il bello è che mprima di testo10=me.casellacombinata
ho messo una msgbox che legge il focus del controllo attivo
msgbox screen.activecontrol e
sia che io clicco sull'elenco sia
che quando col mouse vado a cliccare sopra una casella di testo
e quindi mi riparte il codice dà come controllo attivo sempre la casella
combinata ed è per questo che non riesco ad obbligare tale codice solo al
click sulla casella combinata
è come se quando io sto per togliere il focus alla casellacombianta
ella n.b. prima di perderlo esegue il codice scritto dentro al click anche se
non ho cliccato,
poi fatto ciò perde il focus e quindi con activecontrol non posso fare nulla
> il metodo ActiveControl dovrebbe ritonare il controllo che ha ricevuto il
> click. o sbaglio.
nel caso specifico sembra esserci una anomalia come sopra specificato
cioè tu hai deciso di passare ad una ltro controllo, bene io ti eseguo
il codice dentro al click anche se non hai cliccato, però quando inizio
ad eseguirlo tengo la casella ancora attiva, eseguo e poi mi metto il focus dove
hai cliccato


title: modificare report stampa fattura

author: gabriele

text:
Layout grafico di una fattura di vendita:lo spazio riservato alle righe
merce è troppo, noi al massimo compiliamo 2\3 righe , quindi ne rimangono
inutilizzate 20 che mangiano spazio all'intestaz. e al piede.
Nel report come tolgo spazio al corpo-righe  e lo aumento al piede o alla
testa del documento????
Ho ridotto al minimo l'area dettaglo righe del corpo del report  ( solo 1 cm
a video) , ma poi in stampa me la ripete 25 volte !!!!
E questo anche se nella fattura è presente solo 1 riga di  articolo merce...
ciao


title: modificare report stampa fattura

author: cidi

text:
"gabriele" <
te...@luna.it
> ha scritto nel messaggio
news:btm1vb$pg6$1...@usenet.itgate.net...

Ciao Gabriele
Vai sul sito comune alla sez. report leggi la faq: Stampare un numero N
costante di righe per pagina.
Ciao Daniele
http://www.sitocomune.com/


title: modificare report stampa fattura

text:
grazie, l'ho scaricato.
E' un mdb e dentro c'è un report.
Ma come faccio a capite cos'à di speciale , in modo da poterne copiare le
proprietà sul mio report?
Non son pratico...
ciao


title: modificare report stampa fattura

text:
"gabriele" <
te...@luna.it
> ha scritto nel messaggio
news:btm8tm$rna$1...@usenet.itgate.net...

Ciao Gabriele
Quando rispondi lascia parte del post per poter capire di cosa stiamo
parlando, e naturalmente, scriverai dopo il testo a cui rispondi. Come sto
facendo io.
apri il report in visualizzazione struttura.....studiati il codice, lo copi
ed incolli nel tuo report.
Modificando: righe da stampare = quante nevuoi tu
poi guarda sezione per sezione e modifichi il tuo report ....ehm si tratta
solo di fare le stesse cose nel tuo report. .....dai coraggio con qualche
prova ci riuscirai sicuramente.
Ciao Daniele


title: [OT] news.aioe.org è out?

author: Pablitomf

text:
Sapete darmi notizie del server
news.aioe.org
? Mi risponde male!!!! dice
che non posso connettermi a lui... maleducato.
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [OT] news.aioe.org è out?

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:d997ut$jrp$1...@news.newsland.it...
> Sapete darmi notizie del server
news.aioe.org
? Mi risponde male!!!! dice
> che non posso connettermi a lui... maleducato.
>
> --
> Ciao
> Pablitomf (Maurizio Facciuti)
> Access : Ver.97 - 2K
Ciao Pablitomf
ho cominciato ad usare
news.aioe.org
 quando
tin.it
 aveva problemi.
adesso li uso entrambi e devo dire che
aioe.org
 mi fa vedere + post di
tin.it
.
confermo che al momento ha dei problemi, non visualizza ancora questo post,
ma la connessione avviene normalmente.......
---
Daniele


title: [OT] news.aioe.org è out?

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio news:u4%te.54525$75.28...@news4.tin.it...
>
> Ciao Pablitomf
> ho cominciato ad usare
news.aioe.org
 quando
tin.it
 aveva problemi.
> adesso li uso entrambi e devo dire che
aioe.org
 mi fa vedere + post di
tin.it
.
> confermo che al momento ha dei problemi, non visualizza ancora questo post,
> ma la connessione avviene normalmente.......
>
> ---
> Daniele
>
Sě ieri sembrava essere andato giů; comunque io non
tin.it
 ho la situazione contraria...
Ciao.
--
Sergio MAZZA


title: Query che non consente modifica dei record

author: Roby FF

text:
Access 2003
Ciao,
č normale che una query che contiene campi tratti direttamente da tabelle
collegate e campi calcolati non consenta la modifica dei record?
Se sě come si puň aggirare l'ostacolo?
Grazie a tutti.
Robyff


author: Andrea Papi

text:
"Roby FF" <rob...@chiedi.mi> ha scritto nel messaggio
news:4419a869$1...@newsgate.x-privat.org...

evita di utilizzare
DISTINCT
e
GROUP BY
ciao
Andrea Papi


author: Roberto da casa

text:
"Roby FF" <rob...@chiedi.mi> ha scritto nel messaggio
news:4419a869$1...@newsgate.x-privat.org...
> Access 2003
>
> Ciao,
>
> è normale che una query che contiene campi tratti direttamente da tabelle
> collegate e campi calcolati non consenta la modifica dei record?
>
> Se sì come si può aggirare l'ostacolo?
Alcune query possono produrre recordset non aggiornabili, e credo che la tua
query sia una di quelle: in certi casi c'è la possibilità di "aggirare
l'ostacolo", in altri casi no.
Per maggiori dettagli vai sull'help e leggi l'argomento intitolato Quando
aggiornare dati da una query.
>
> Grazie a tutti.
Prego
>
> Robyff
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: MI5 Persecution: Life is so hard (136)

text:
Life is so hard
Certainty level: 100%
This relates to harassment at my workplace in Canada. Yes, "they" had
their claws into my employers in North America, it doesn't just happen
in England, it happens here as well.
During the second half of 1996, at work, I was sitting near a co-worker
whom we shall call Mark (we can, because that's his name). This guy
occasionally came out with words and phrases that made me think that
"they" had got to him and were supplying him with information about my
home life (not social life please note, because of course I don't actually
have a social life here).
During November 1996 I tried to catch him in the act of saying something
"meaningful", a difficult exercise because as soon as he saw a tape
recorder, he shut up completely, except for times when he knew he would
be out of range of the walkman. (Note that the quality of this recording
is not very good; I was just using a four-year-old tape walkman with
a cheap microphone, quite low-tech).
During the evening of 12 November 1996, at home in my apartment (flat to
you UK-ers), I said "life is so hard, and then you die". A nihilistic,
negative thing to say, but quite distinctive. The following day,
13 November, Mark said loudly, "life is so hard eh, and then you die"
followed by loud laughter.
In my book the precise repetition of the words makes this incident a
100% certainty. You, the reader, may differ, but then living in a free
country allows each of us to have our own opinions, doesn't it?
136
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access


title: Re: Filtro in query

author: Ammammata

text:
Il giorno Thu 20 Aug 2020 09:11:13p, *Alberto Luzi* ha inviato su
it.comp.appl.access il messaggio news:96e9f868-7e4d-4ff1-99d4-
71c69f...@googlegroups.com
. Vediamo cosa ha scritto:

> Salve!
> Vorrei filtrare dinamicamente una query che ha già dei filtri
> ma ho l'errore: tipo non corrispondente.
>
> strFind = "Nome Like  Like '*" & Me!txtNome.Text & "*'"
>

i due like consecutivi non vanno bene, è un errore di copia/incolla?

> se inserisco solo il fitro dopo la where funziona
> p.e.  & " WHERE " & strFind _
> ma se ho già un filtro, mi da errore:
> p.e.
> & " WHERE Cliente Like IIf(CboCliente=" * Tutti * ",'*',CboCliente)" _
> & " AND " & strFind _
>

definisci una variabile stringa, fai l'IF prima e poi usa la variabile nel
comando, qualcosa tipo:

Dim Controllo as String
If CboCliente=" * Tutti * " then
      Controllo = '*'
   else
      Controllo = "'" & CboCliente & "'"
end if

> & " WHERE Cliente Like " & Controllo _ etc etc

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


title: Estrarre stringa da campo memo

author: Matteo

text:
Buona giornata a tutto il N:G:
ho una domanda da sottoporre:
Ho una talella con un campo di tipo memo dove ho delle descrizioni
estremamente lunghe.
Chiedo, se possibile, come estrarre da questo campo tutto quello che inizia
da una scritta in poi.
Esempio:
il testo e':
tipo_aggiornamento_cosa_fai_e_perche'
valore da estrarre:
da cosa_fai  fino al fondo
Ho guardato sul sito comune ma non ho trovato nulla che mi potesse aiutare.
Grazie <:-(


title: Estrarre stringa da campo memo

author: Carlo Costarella

text:
"Matteo" <
m.mi...@osra.it
> ha scritto nel messaggio
news:C7v92fjZ...@news.osra.loc...

Credo che tu debba usare il codice con una variabile di tipo string a cui
passare il valore del campo memo.
I tipi di dati string sono stringhe di lunghezza variabile, che possono
contenere fino a circa 2 miliardi di caratteri.
Vedi Mid$, inStr, Like ecc.
Ciao, Carlo


title: Estrarre stringa da campo memo

author: Alessandro Cara

text:
Matteo wrote:
[cut]
> Chiedo, se possibile, come estrarre da questo campo tutto quello che inizia
> da una scritta in poi.
> Esempio:
> il testo e':
> tipo_aggiornamento_cosa_fai_e_perche'
> valore da estrarre:
> da cosa_fai  fino al fondo
SELECT mid([testomemo],instr([testomemo],[TestoRicerca])) as trovato
FROM testmemo
WHERE testomemo Like '*' & [TestoRicerca] & '*';
--
a.cara


title: Protezione db

author: Ale

text:
Ciao a tutti,
ho sviluppato un db access e primo di consegnarlo vorrei proteggerlo, mi
potreste consigliare il metodo migliore.
Alla sua apertura viene visualizzata una maschera principale (che, però, non
viene visualizzata a tutto schermo)  e tramite pulsanti di comando si
attivano le varie funzionalità. Bene, come faccio a proteggere la tabelle,
le query e i report "sottostanti" impedendo qualsiasi tipo di accesso da
parte del cliente.
Grazie Ale
ps: non vorrei cambiare le opzioni di access o usare le autorizzazioni del
SO in quanto girano altri applicativi Access non sviluppati da me


title: Protezione db

text:
> Grazie Ale
> ps: non vorrei cambiare le opzioni di access o usare le autorizzazioni del
> SO in quanto girano altri applicativi Access non sviluppati da me
>
crea un file mde e consegna quello al cliente


title: Protezione db

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c49400$fid$1...@lacerta.tiscalinet.it...

fatto ma le tabelle etc, sono sempre accessibili


title: Protezione db

text:
La cosa migliore, secondo me , è impostare una protezione a livello utente.
Questo obbliga l'utente a loggarsi quando avvia l'applicativo ma ti consente
di decidere chi può fare cosa.Se sei alle prime armi implemetare la
protezione a livello utente può essere spinosa.Cmq sia nella guida in linea
che in rete trovi le spiegazioni necessarie.
ciao
"Ale" <
alessa...@hotmail.com
> wrote in message
news:GeH9c.13652$jY1....@tornado.fastwebnet.it...



title: Protezione db

author: Antonio Biso

text:
"bep" <
rame...@yahoo.it
> ha scritto nel messaggio
news:tLbac.120519$z23.5...@news3.tin.it...
> La cosa migliore, secondo me , è impostare una protezione a livello
utente.
La cosa migliore, secondo me, è scrivere correttamente DOPO il quoting!!!
Antonio


title: Protezione db

text:
.
>
> La cosa migliore, secondo me, č scrivere correttamente DOPO il quoting!!!
>
> Antonio
>
>
Ci siamo svegliati male stamattina?


title: Protezione db

text:
"bep" <
rame...@yahoo.it
> ha scritto nel messaggio
news:3Wbac.120563$z23.5...@news3.tin.it...

No, perchč?
Di queste segnalazioni per esortare al rispetto delle norme del NG ne faccio
a tutte l'ore...
Antonio


title: Protezione db

author: David

text:
"Ale" <
alessa...@hotmail.com
> ha scritto nel messaggio
news:GeH9c.13652$jY1....@tornado.fastwebnet.it...

guarda la protezione guidata database


title: Access-Excel

author: bobbit

text:
Avrei bisogno di modificare da codice la "proprietà" di un file excel, farlo
cioè passare da file condiviso a non condiviso, qualcuno può aiutarmi?
Grazie
Bobbit


title: Access-Excel

text:
Scusate ho risolto!!!
Bobbit
bobbit <
bobbit...@wappi.com
> wrote in message
v3ct5.9368$_U1.1...@news.infostrada.it...



title: Fastidioso messaggio e progress bar

author: IppoSoft

text:
Slave,
quando carico via codice un file *.jpg in un controllo immagine
Es.
Me.miocontrolloimmagine.Picture="Pippo.jpg"
mi appare un messaggio "Importazione file " seguito dal nome del file
e una progress bar
(se il formato del file è *.bmp invece non succede)
Vorrei togliere questo messaggio
Il comando DoCmd.SetWarning (False) non risolve ilproblema
Mi pare di ricordare che occorre intervenire sul registro, forse, su
Photo Editor (ma perché poi?) però non sono sicuro.
Come è che si fa?
Grazie
Filippo


title: Fastidioso messaggio e progress bar

text:
"IppoSoft" <
ma...@studiovinciguerra.it
> ha scritto nel messaggio
news:0o09vu4qekoo6om05...@4ax.com...

E' possibile nascondere la barra di progressione agendo sul Registro di
Configurazione: nel caso d'immagine Jpeg, ad esempio, è sufficiente
impostare a "No" il settaggio della seguente entry:
HKEY_LOCAL_MACHINE\Software\Microsoft\ Shared Tools\Graphics
Filters\Import\JPEG\Options\ShowProgressDialog
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Fastidioso messaggio e progress bar

author: Sib

text:
"IppoSoft" <
ma...@studiovinciguerra.it
> ha scritto nel messaggio
> Slave,
o master?
> quando carico via codice un file *.jpg in un controllo immagine
>
> Es.
> Me.miocontrolloimmagine.Picture="Pippo.jpg"
>
> mi appare un messaggio "Importazione file " seguito dal nome del file
> e una progress bar
> (se il formato del file è *.bmp invece non succede)
> Vorrei togliere questo messaggio
La risposta te l'ha data roberto, comunque personalmente trovo la progress
bar tutt'altro che fastidiosa. Oltre all'utilita' di mostrarti che il pc sta
elaborando una tua richiesta, c'e' da dire che normalmente dura veramente
poco.
Poi a me piace proprio, ma questa e' una questione di gusti.
Sib


title: Fastidioso messaggio e progress bar

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:Tb1J9.65148$qF1.2...@news2.tin.it...

Relata refero.
Warp sostiene che, la barra di progressione che appare durante la
conversione del file immagine da jpg a bmp (conversione necessaria affinché
l'immagine sia visualizzabile in Access), "oltre a rallentare il processo,
può causare errori irreversibili.".



title: Fastidioso messaggio e progress bar

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
cut
> > trovo la progress
> > bar tutt'altro che fastidiosa. Oltre all'utilita' di mostrarti che il pc
sta
> > elaborando una tua richiesta, c'e' da dire che normalmente dura
veramente
> > poco.
> > Poi a me piace proprio, ma questa e' una questione di gusti.
> >
> > Sib
>
> Relata refero.
> Warp sostiene che, la barra di progressione che appare durante la
> conversione del file immagine da jpg a bmp (conversione necessaria
affinché
> l'immagine sia visualizzabile in Access), "oltre a rallentare il processo,
> può causare errori irreversibili.".
Se avro' problemi rivedro' la mia opinione. Comunque credo che eventualmente
i problemi potessero verificarsi sui sistemi W9X e affini e non su base NT.
Ciao
Sib


title: report singolo

author: davide scilabra

text:
Ho una maschera "fax" con una sottomaschera "articoli" con relazione uno a
molti.
Ho fatto il report con l'intestazione del fax ed all'interno il sottoreport
articoli.
Se vado a stampare vorrei solo stampare il fax corrente invece mi stampa
tutti i fax e tutti gli articoli. Come posso fare per dargli il filtro?
Thanks in advantage.


title: report singolo

author: TheMax

text:
Prova a guardare l'autocomposizione pulsante di comando, mi sembra
preveda già questa opzione. Altrimenti se vuoi scrivere una righetta
di codice VBA
docmd.OpenReport "nome del report",acViewPreview,,"nome campo chiave= "
& me.nomecampochiave
Fa sapere se hai dubbi.
Ciao,
Massimo


title: ADO280.chm esiste?

author: OneEDP

text:
Come per ADO210.chm, esiste l'help in linea ache per la versione 2.8 sp1?
Grazie


title: ADO280.chm esiste?

author: Gabriele Bertolucci

text:
> Come per ADO210.chm, esiste l'help in linea ache per la versione 2.8 sp1?
Per ADO 2.8 esiste il Microsoft Data Access SDK, del quale non riesco a
ritrovare il sito di download.
In questo SDH si trova un file ADO28.CHM che è proprio quello che cerchi:
se non riesci a trovarlo per i canali "ufficiali" mandami un'email e te lo
invio io.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: ADO280.chm esiste?

text:
"Gabriele Bertolucci" <"info[at]pbsoft[dot]it"> ha scritto nel messaggio
news:1aq8w5o5v4rwu.2djz1gzpaou4$.dlg@40tude.net...

Una volta scaricato
http://www.microsoft.com/downloads/details.aspx?familyid=5067faf8-0db4-429a-b502-de4329c8c850&displaylang=en
si riesce a referenziare l'help in linea in  Access?
Grazie.


title: record diversi sottostanti a campi nella stessa maschera...HELP

author: Corrado BAUDO

text:
Altro quesito per il NG:
ho una maschera con dei campi che fanno riferimento a record diversi e
correlati tra di loro con relazioni uno-a-molti e molti-a-molti.Ovviamente
durante l'inserimento dei dati nei vari campi, il focus si sposta su di essi
e automaticamente avviene l'aggiornamento dei record sottostanti.E'
possibile impedire l'aggiornamento automatico in modo tale da non dover
seguire un ordine preciso imposto dal tipo di relazione sottostante?
In tal modo,una volta completata l'immissione di tutti i dati nella
maschera,solo allora vorrei caricarli nei record sottostanti.
Tale risultato l'ho raggiunto scrivendo delle routine di evento per ogni
maschera ma mi sembra strano che non si possa raggiungere lo stesso scopo
senza essere costretti a scrivere tanto codice!
In poche parole, è possibile disabilitare l'aggiornamento automatico che si
innesca spostandosi da un campo ad un altro in una maschera per poi
ripristinarlo solo quando tutti i campi sono completati o su un particolare
comando dell'utente?
Come al solito ringrazio tutto il NG
CiAo Da CoRrAdO


text:
Corrado BAUDO <
bau...@tin.it
> wrote in message
U7F16.12913$ag5.8...@twister1.tin.it...
> Altro quesito per il NG:
> ho una maschera con dei campi che fanno riferimento a record diversi e
> correlati tra di loro con relazioni uno-a-molti e molti-a-molti.Ovviamente
> durante l'inserimento dei dati nei vari campi, il focus si sposta su di
essi
> e automaticamente avviene l'aggiornamento dei record sottostanti.E'
> possibile impedire l'aggiornamento automatico in modo tale da non dover
> seguire un ordine preciso imposto dal tipo di relazione sottostante?
> In tal modo,una volta completata l'immissione di tutti i dati nella
> maschera,solo allora vorrei caricarli nei record sottostanti.
> Tale risultato l'ho raggiunto scrivendo delle routine di evento per ogni
> maschera ma mi sembra strano che non si possa raggiungere lo stesso scopo
> senza essere costretti a scrivere tanto codice!
> In poche parole, č possibile disabilitare l'aggiornamento automatico che
si
> innesca spostandosi da un campo ad un altro in una maschera per poi
> ripristinarlo solo quando tutti i campi sono completati o su un
particolare
> comando dell'utente?
Una soluzione potrebbe essere quella di usare una maschera non legata e una
query di accodamento, associata ad un pulsante, che inserisca i dati
compilatio nella maschera, nella tabella dati.
Antonio


author: Silvio Berruti

text:
"Corrado BAUDO" <
bau...@tin.it
> ha scritto nel messaggio
news:U7F16.12913$ag5.8...@twister1.tin.it...

Anche se, x questa volta, Antonio non ti ha ripreso, probabilmente ancora
sotto i fumi dell'alcool e sotto il peso del cibo ingurgitato x Natale,
ricorda che nelle maschere non ci sono campi, ma controlli.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


text:
Silvio Berruti <
s...@libero.it
> wrote in message
TFC26.193290$hk4.7...@news.infostrada.it...
>
> > innesca spostandosi da un campo ad un altro in una maschera per poi
> > ripristinarlo solo quando tutti i campi sono completati o su un
> particolare
> > comando dell'utente?
>
> Anche se, x questa volta, Antonio non ti ha ripreso, probabilmente ancora
> sotto i fumi dell'alcool e sotto il peso del cibo ingurgitato x Natale,
> ricorda che nelle maschere non ci sono campi, ma controlli.
C'è anche lo spirito natalizio, signor Scrooge!!!
Eh eh eh
Antonio


title: report su un modulo prestampato

author: oscar

text:
salve a tutti.
vorrei sapere se si puo' riuscire a stampare (con access 2000) facendo
coincidere la stampa del report con le  caselle di un modulo
prestampato.
grazie
oscar


title: report su un modulo prestampato

author: Sergio MAZZA

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3ef54e2e...@news.tiscalinet.it...

Con un righello ti misuri le dimensioni/posizione dal margine delle celle
del modulo e dimensioni/posizioni dal margine le caselle di testo. L'unico
problema è il font da utilizzare...
Ciao.
--
Sergio MAZZA


title: report su un modulo prestampato

text:


la tua indicazione e' valida se ad ogni cella del modulo corrisponde
una casella di testo, ma se la casella di testo e' unica debbo
distanziare le singole cifre/lettere di uno spazio che mi consenta di
centrarle nella cella.
faccio un esempio:
se voglio stampare un CC postale sul modulo prestampato trovero' uno
spazio con delle celle (per es. 6 celle di 0.5 cm per un totale di 3
cm) e la larghezza della stampa del report (per es. 234.000) e' di 2
cm, come faccio a centrare le singole cifre nella singola cella?
non posso aumentare le dimensioni del font altrimenti diventerebbe
troppo alto.
pensi che si possa fare qualcosa?
ciao e grazie
oscar


title: report su un modulo prestampato

author: Francesco R.

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3ef5793c...@news.tiscalinet.it...

Stò terminando di mettere a punto una stampa parametrica di moduli CCP; per
ovviare al tuo problema, genero un controllo che contiene l'intero valore,
che poi rendo invisibile; quindi una serie di controlli della dimensione
delle singole celle, che riempo usando la funzione Mid, con i singoli
caratteri da stampare, prelevandoli dal controllo invisibile.
Se il testo da stampare è una stringa, allineo tutto a sinistra, se invece è
un importo, vado a distinguere se stampare o no la virgola, e se la parte
intera rimane distanziata oppure no, da quella decimale.
Chiaramente ai caratteri della parte intera, devi anteporre degli spazi per
allinearli a destra, subito prima della virgola.
Considerazioni:
Il problema è che negli uffici postali non accettano moduli riempiti con le
stampanti a getto di inchiostro (ed a ragione), quindi rimangono le laser e
le care vecchie aghi, quest'ultime però hanno in particolare antipatia il
modello di stampa grafica di Windows (anche utilizzando caratteri non True
Type), per cui dovrò scrivere una funzione, che vada a stampare i controlli
contenuti in una form, usando i comandi ESC. Se qualcuno leggendo, avesse
realizzato qualcosa di simile e volesse inviarla, sarebbe una manna dal
cielo.
Ciao.


title: report su un modulo prestampato

author: Tom

text:
"Francesco R." <
rfrance...@infinito.it
> ha scritto nel messaggio
news:9MjJa.125690$pR3.2...@news1.tin.it...

Ciao, scusate l'intrusione, ma sarei anch'io interessato a qualcosa del
genere, ma non ho capito bene la funzione Mid, soprattutto quando devo
decidere di non stampare la virgola e anteporre degli spazi per allineare a
destra, mi potresti spiegare meglio.
grazie


title: report su un modulo prestampato

text:
"Tom" <
ar...@libero.it
> ha scritto nel messaggio
news:6elJa.110358$Ny5.3...@twister2.libero.it...

Nel caso del modulo CCP CH8TER: ci sono 8 caratteri per stampare la parte
intera dell'importo e (ovviamente) 2 per i decimali.
Chiamiamo per comodità il controllo originale (reso invisibile) che contiene
l'importo: 'ctrBase'; questo controllo può avere come origine dei dati, sia
un valore fisso, sia un campo di una tabella.
Il primo sottocontrollo conterrà la formula:
=IIf(Nz([ctrBase];0)=0;'';IIf((Len(Int([ctrBase]))+1)>8;'';Mid(Space(8-Len(I
nt([ctrBase]))-1) & '#' & Int([ctrBase]);1;1)))
Il secondo:
=IIf(Nz([ctrBase];0)=0;'';IIf((Len(Int([ctrBase]))+1)>8;'';Mid(Space(8-Len(I
nt([ctrBase]))-1) & '#' & Int([ctrBase]);2;1)))
E così via fino all'ottavo:
=IIf(Nz([ctrBase];0)=0;'';IIf((Len(Int([ctrBase]))+1)>8;'';Mid(Space(8-Len(I
nt([ctrBase]))-1) & '#' & Int([ctrBase]);8;1)))
I 2 sottocontrolli con i decimali avranno la formula:
=IIf(Nz([ctrBase];0)=0;'';Left(Right([ctrBase];2);1))
=IIf(Nz([ctrBase];0)=0;'';Right([ctrBase];1))
Tenete conto che sul sito comune:
www.sitocumune.com
ci dovrebbe essere un esempio per la stampa di un modulo di CCP, però non sò
come sia impostato per risolvere il problema in oggetto.
Ciao.


title: report su un modulo prestampato

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3ef5793c...@news.tiscalinet.it...
> la tua indicazione e' valida se ad ogni cella del modulo corrisponde
> una casella di testo, ma se la casella di testo e' unica debbo
> distanziare le singole cifre/lettere di uno spazio che mi consenta di
> centrarle nella cella.
> faccio un esempio:
> se voglio stampare un CC postale sul modulo prestampato trovero' uno
> spazio con delle celle (per es. 6 celle di 0.5 cm per un totale di 3
> cm) e la larghezza della stampa del report (per es. 234.000) e' di 2
> cm, come faccio a centrare le singole cifre nella singola cella?
> non posso aumentare le dimensioni del font altrimenti diventerebbe
> troppo alto.
> pensi che si possa fare qualcosa?
> ciao e grazie
> oscar
Io ho creato dei report che stampavano su fogli A3 (fronte/retro) e avevano
le classiche caselle dove inserire una lettera per volta per tutti i dati
richiesti.
Come ho fatto? Caselle di testo larghe tanto quanto richiedeva il modulo,
font Courier e tante prove per stabilire la grandezza del font ed spazio tra
un carattere e l'altro...
Ciao.
--
Sergio MAZZA


title: report su un modulo prestampato

text:


va bene per le prove per stabilire la grandezza del font (e' quanto ho
fatto anch'io), ma come fai ad impostare la grandezza dello spazio fra
un carattere e l'altro?
ciao e grazie
oscar


title: report su un modulo prestampato

text:
"oscar" <
os...@tiscalinet.it
> ha scritto nel messaggio
news:3ef6fb53...@news.tiscalinet.it...
>
> va bene per le prove per stabilire la grandezza del font (e' quanto ho
> fatto anch'io), ma come fai ad impostare la grandezza dello spazio fra
> un carattere e l'altro?
>
> ciao e grazie
> oscar
Ho inserito uno spazio tra un carattere e l'altro...
Ciao.
--
Sergio MAZZA


title: Riepiloghi in una maschera

author: Paolino

text:
Ciao a tutti,
Avevo provato a creare più query di riepilogo per fare varie somme tutte su
un unica tabella, poi volevo creare una maschera mettendo come origine tutte
le query...ma non funzionava, mi hanno spiegato che non possono lavorare
conteporneamente più query di riepilogo su una stessa tabella....
allora vi chiedo come faccio a crere una maschera che ha semplicamente la
funzione di vedere un riepilogo di somme o conteggi dei dati di una singola
tabella?
ES:
nella mia tabella ho il campo...(pesoOggetto, Costo Oggetto, TipoOggetto)
Io nella mia maschera in un campo di testo vorrei avere la somma totale dei
pesi degli oggetti, il loro costo totale e il conteggio per tipologia di
oggetto...
Da dove parto?
Grazie in anticipo...sono un neofita...;-)
Buon Natale
Paolino


title: Riepiloghi in una maschera

author: Salvatore

text:
"Paolino" <
hi...@libero.it
> ha scritto nel messaggio
news:op%Eb.198998$vO5.7...@twister1.libero.it...

Usa una maschera continua associata alla tua tabella/query. Nel corpo
inserisci i tuoi controlli legati ai diversi campi.
Nel pie' di pagina, aggiungi diverse caselle di testo (nelle quali farai
comparire i diversi totali) le cui origini saranno, per esempio
=somma(pesoOggetto), =somma([Costo Oggetto])... ecc..
Ciao
Salvatore


title: 'Cerca' Sito Comune: non funziona...

author: grenzo

text:
Ciao,
la ricerca nel sito comune mi da' errore di IE.
Quale e' la causa? ( di solito il mio IE 5,5 funziona...)
-----
ciao , grenzo


title: 'Cerca' Sito Comune: non funziona...

author: Esteban

text:
"grenzo" <
spac...@freemail.it
> wrote in message
news:9eohmk$f1p$1...@taliesin.netcom.net.uk...

A me, dopo aver cliccato su 'Cerca' si chiude la finestra di Explorer!
Ciao!
Esteban
Hosted by
www.seber.it


title: 'Cerca' Sito Comune: non funziona...

author: Roberto da casa

text:
"grenzo" <
spac...@freemail.it
> ha scritto nel messaggio
news:9eohmk$f1p$1...@taliesin.netcom.net.uk...

Leggi tutta la pagina di Ricerca del Sito Comune.
Nella parte bassa c'è chiaramente scritto cosa devi fare se usi IE 4.0 o
5.0.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: 'Cerca' Sito Comune: non funziona...

text:
>
> Leggi tutta la pagina di Ricerca del Sito Comune.
> Nella parte bassa c'è chiaramente scritto cosa devi fare se usi IE 4.0 o
> 5.0.
>
> --
Ok, grazie, mi ero confuso perche' pensavo fosse limitato alle versione 5.0
ma vale anche x la 5.5.
-----
grenzo


title: collegarsi a mdb da excel

author: emailcasa

text:
ciao a tutti,
ho creato una routine in access che mi apre un modello excel, lo
compila con dati provenienti da access e lo salva con un determinato
nome, alla riapertura del file (sempre da access recupera i dati di
alcune celle e li salva in una tabella)
Il problema è che non voglio aspettare di riaprirlo per recuperare i
dati, ma vorrei che sull'evento chiusura di excel si collegasse ad
access ed sportasse alcuni dati.
--------------------------------------------------------------------------------------------------------------------------------------------------------------
PER EVENTUALI USI POSTO IL CODICE FATTO FINO AD ADESSO:
Dim Tipo As Integer
Dim strSQl As String
Dim dbmio As Database
Dim rcdprevsopr, rcdpat, rcdofferte, rcdfatture, rcdbolle, rcdlettere,
rcdfax As Recordset
Tipo = [Forms]![Scheda tecnica].[Tipo]
DoCmd.Hourglass (True)
Dim strFinalDoc, Path As String
Dim appexcel, fs, msoSortbyFileName, msoSortOrderAscending, i As
Variant
Dim univoco As String
   On Error Resume Next
   Path = CurrentProject.Path & "\Scheda tecnica\Scheda_tecnica_nr_"
   univoco = Me!Id
   strFinalDoc = Path & univoco & ".xls"
Set fs = Application.FileSearch
With fs
    .newsearch
    .LookIn = Chr(34) & CurrentProject.Path & "\Scheda tecnica\" &
Chr(34)
    .FileName = "*.*"
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            If .FoundFiles(i) = Path & univoco & ".xls" Then
                MsgBox "Il documento è già stato creato! clicca apri
scheda"
                DoCmd.Hourglass (False)
                Exit Sub
            End If
        Next i
        GoTo 11
    Else
11
DoCmd.Hourglass (False)
DoCmd.SetWarnings (False)
strSQl = "SELECT TestatePreventivi.NrRA, TestatePreventivi.[Idprev-
sopr], TestatePreventivi.[Dataprev-sopr] INTO T_rcdprevsopr FROM
TestatePreventivi WHERE (((TestatePreventivi.NrRA)=[Forms]![Scheda
tecnica]![commessa])) ORDER BY TestatePreventivi.[idprev-sopr],
TestatePreventivi.[DataPrev-sopr];"
DoCmd.RunSQL strSQl
strSQl = "SELECT TestatePAT.NrRA, TestatePAT.IdPAT, TestatePAT.DataPAT
INTO T_rcdpat FROM TestatePAT WHERE (((TestatePAT.NrRA)=[Forms]!
[Scheda tecnica]![commessa])) ORDER BY TestatePAT.IdPAT,
TestatePAT.DataPAT;"
DoCmd.RunSQL strSQl
strSQl = "SELECT Testateofferte.NrRA, Testateofferte.Idofferta,
Testateofferte.Dataofferta INTO T_rcdofferte FROM Testateofferte WHERE
(((Testateofferte.NrRA)=[Forms]![Scheda tecnica]![commessa])) ORDER BY
Testateofferte.Idofferta, Testateofferte.Dataofferta;"
DoCmd.RunSQL strSQl
strSQl = "SELECT Testatefatture.NrRA, Testatefatture.Idfattura,
Testatefatture.Datafattura INTO T_rcdfatture FROM Testatefatture WHERE
(((Testatefatture.NrRA)=[Forms]![Scheda tecnica]![commessa])) ORDER BY
Testatefatture.Idfattura, Testatefatture.Datafattura;"
DoCmd.RunSQL strSQl
strSQl = "SELECT Testatebolle.NrRA, Testatebolle.Idbolla,
Testatebolle.Databolla INTO T_rcdbolle FROM Testatebolle WHERE
(((Testatebolle.NrRA)=[Forms]![Scheda tecnica]![commessa])) ORDER BY
Testatebolle.Idbolla, Testatebolle.Databolla;"
DoCmd.RunSQL strSQl
strSQl = "SELECT Testatelettere.NrRA, Testatelettere.Idlettera,
Testatelettere.Datalettera INTO T_rcdlettere FROM Testatelettere WHERE
(((Testatelettere.NrRA)=[Forms]![Scheda tecnica]![commessa])) ORDER BY
Testatelettere.Idlettera, Testatelettere.Datalettera;"
DoCmd.RunSQL strSQl
strSQl = "SELECT Testatefax.NrRA, Testatefax.nostroriferimento,
Testatefax.Datafax INTO T_rcdfax FROM Testatefax WHERE
(((Testatefax.NrRA)=[Forms]![Scheda tecnica]![commessa])) ORDER BY
Testatefax.nostroriferimento, Testatefax.datafax;"
DoCmd.RunSQL strSQl
DoCmd.SetWarnings (True)
Set dbmio = CurrentDb
Set rcdprevsopr = dbmio.OpenRecordset("T_rcdprevsopr")
Set rcdpat = dbmio.OpenRecordset("T_rcdpat")
Set rcdofferte = dbmio.OpenRecordset("T_rcdofferte")
Set rcdfatture = dbmio.OpenRecordset("T_rcdfatture")
Set rcdbolle = dbmio.OpenRecordset("T_rcdbolle")
Set rcdlettere = dbmio.OpenRecordset("T_rcdlettere")
Set rcdfax = dbmio.OpenRecordset("T_rcdfax")
Dim xlApp As Excel.Application     '<---- riferimento all'applicazione
Excel
Dim xlBook As Excel.Workbook       '<---- riferimento al Workbook
Dim xlSheet As Excel.Worksheet     '<---- riferimento al Worksheet
Dim percorso As String
'poi crei un'oggetto Applicazione Excel, assegnandola alla variabile
che la identifica:
Set xlApp = CreateObject("Excel.Application")
'poi associ ai riferimenti del workbook il il File Excel che vuoi
aprire:
Select Case Tipo
    Case 1
        Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path &
"\Scheda tecnica\Vuoto.xlt")
    Case 2
        Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path &
"\Scheda tecnica\Excel Vuoto.xlt")
End Select
'e infine definisci il foglio di lavoro:
Set xlSheet = xlBook.Worksheets("INTESTAZIONE")
'per rendere visibile l'applicazione Excel, che di default rimane
"nascosta", rilevabile solo attraverso il Task Manager:
'xlApp.Visible=True, e per nasconderla ovviamente xlApp.Visible=False
xlApp.Visible = True
xlSheet.Activate    '<--- attiva il foglio di lavoro
On Error Resume Next
xlSheet.Range("AO7").Value = [Forms]![Scheda tecnica].[RA].Column(1)
xlSheet.Range("BH7").Value = [Forms]![Scheda tecnica].[M_commessa]!
Descrizione
xlSheet.Range("AO10").Value = [Forms]![Scheda tecnica].[M_commessa]!
[ex-ra]
xlSheet.Range("BH10").Value = [Forms]![Scheda tecnica].[M_commessa]!
[anno]
xlSheet.Range("BH13").Value = [Forms]![Scheda tecnica]![Id]
xlSheet.Range("AO13").Value = [Forms]![Scheda tecnica].[M_commessa]!
[CodStato] & " - " & [Forms]![Scheda tecnica].[M_commessa]!
CodStato.Column(1)
xlSheet.Range("AO16").Value = [Forms]![Scheda tecnica].[M_commessa]!
Note
xlSheet.Range("AO19").Value = [Forms]![Scheda tecnica].[M_commessa]!
[CodiceCoordinatore] & " - " & [Forms]![Scheda tecnica].[M_commessa]!
[CodiceCoordinatore].Column(1)
xlSheet.Range("BH19").Value = [Forms]![Scheda tecnica].[M_commessa]!
[CodiceRichiedente] & " - " & [Forms]![Scheda tecnica].[M_commessa]!
CodiceRichiedente.Column(1)
xlSheet.Range("AO22").Value = [Forms]![Scheda tecnica].[M_commessa]!
[cc_società] & " - " & [Forms]![Scheda tecnica].[M_commessa]!
[cc_società].Column(1)
xlSheet.Range("BH22").Value = [Forms]![Scheda tecnica].[M_commessa]!
area & " - " & [Forms]![Scheda tecnica].[M_commessa]!area.Column(1)
xlSheet.Range("AO25").Value = [Forms]![Scheda tecnica].[M_commessa]!
CodSettore & " - " & [Forms]![Scheda tecnica].[M_commessa]!
CodSettore.Column(1)
xlSheet.Range("BH25").Value = [Forms]![Scheda tecnica].[M_commessa]!
Prodotto & " - " & [Forms]![Scheda tecnica].[M_commessa]!
Prodotto.Column(1)
If IsNull([Forms]![Scheda tecnica].[RA].Column(14)) = True Then GoTo 1
If IsNull([Forms]![Scheda tecnica].[RA].Column(13)) = True Then
    xlSheet.Range("BH33").Value = "n°" & [Forms]![Scheda tecnica].
[RA].Column(14)
    GoTo 1
Else
    xlSheet.Range("BH33").Value = "n°" & [Forms]![Scheda tecnica].
[RA].Column(14) & " del " & [Forms]![Scheda tecnica].[RA].Column(13)
End If
1
rcdprevsopr.MoveLast
rcdprevsopr.MoveFirst
Do Until rcdprevsopr.EOF
        xlSheet.Range("AO29").Value = "n°" & rcdprevsopr("IdPREV-
SOPR") & " del " & rcdprevsopr("DataPREV-SOPR")
        rcdprevsopr.MoveNext
        xlSheet.Range("AO30").Value = "n°" & rcdprevsopr("IdPREV-
SOPR") & " del " & rcdprevsopr("DataPREV-SOPR")
        rcdprevsopr.MoveNext
        xlSheet.Range("AX29").Value = "n°" & rcdprevsopr("IdPREV-
SOPR") & " del " & rcdprevsopr("DataPREV-SOPR")
        rcdprevsopr.MoveNext
        xlSheet.Range("AX30").Value = "n°" & rcdprevsopr("IdPREV-
SOPR") & " del " & rcdprevsopr("DataPREV-SOPR")
        Exit Do
Loop
Set rcdprevsopr = Nothing
rcdprevsopr.Close
rcdpat.MoveLast
rcdpat.MoveFirst
Do Until rcdpat.EOF
        xlSheet.Range("BH29").Value = "n°" & rcdpat("IdPAT") & " del "
& rcdpat("DataPAT")
        rcdpat.MoveNext
        xlSheet.Range("BH30").Value = "n°" & rcdpat("IdPAT") & " del "
& rcdpat("DataPAT")
        rcdpat.MoveNext
        xlSheet.Range("BQ29").Value = "n°" & rcdpat("IdPAT") & " del "
& rcdpat("DataPAT")
        rcdpat.MoveNext
        xlSheet.Range("BQ30").Value = "n°" & rcdpat("IdPAT") & " del "
& rcdpat("DataPAT")
        Exit Do
Loop
Set rcdpat = Nothing
rcdpat.Close
rcdofferte.MoveLast
rcdofferte.MoveFirst
Do Until rcdofferte.EOF
        xlSheet.Range("AO33").Value = "n°" & rcdofferte("IdOFFERTA") &
" del " & rcdofferte("DataOFFERTA")
        rcdofferte.MoveNext
        xlSheet.Range("AO34").Value = "n°" & rcdofferte("IdOFFERTA") &
" del " & rcdofferte("DataOFFERTA")
        rcdofferte.MoveNext
        xlSheet.Range("AX33").Value = "n°" & rcdofferte("IdOFFERTA") &
" del " & rcdofferte("DataOFFERTA")
        rcdofferte.MoveNext
        xlSheet.Range("AX34").Value = "n°" & rcdofferte("IdOFFERTA") &
" del " & rcdofferte("DataOFFERTA")
        Exit Do
Loop
Set rcdofferte = Nothing
rcdofferte.Close
rcdfatture.MoveLast
rcdfatture.MoveFirst
Do Until rcdfatture.EOF
        xlSheet.Range("AO37").Value = "n°" & rcdfatture("IdFATTURA") &
" del " & rcdfatture("DataFATTURA")
        rcdfatture.MoveNext
        xlSheet.Range("AO38").Value = "n°" & rcdfatture("IdFATTURA") &
" del " & rcdfatture("DataFATTURA")
        rcdfatture.MoveNext
        xlSheet.Range("AX37").Value = "n°" & rcdfatture("IdFATTURA") &
" del " & rcdfatture("DataFATTURA")
        rcdfatture.MoveNext
        xlSheet.Range("AX38").Value = "n°" & rcdfatture("IdFATTURA") &
" del " & rcdfatture("DataFATTURA")
        Exit Do
Loop
Set rcdfatture = Nothing
rcdfatture.Close
rcdbolle.MoveLast
rcdbolle.MoveFirst
Do Until rcdbolle.EOF
        xlSheet.Range("BH37").Value = "n°" & rcdbolle("IdBOLLA") & "
del " & rcdbolle("DataBOLLA")
        rcdbolle.MoveNext
        xlSheet.Range("BH38").Value = "n°" & rcdbolle("IdBOLLA") & "
del " & rcdbolle("DataBOLLA")
        rcdbolle.MoveNext
        xlSheet.Range("BQ37").Value = "n°" & rcdbolle("IdBOLLA") & "
del " & rcdbolle("DataBOLLA")
        rcdbolle.MoveNext
        xlSheet.Range("BQ38").Value = "n°" & rcdbolle("IdBOLLA") & "
del " & rcdbolle("DataBOLLA")
        Exit Do
Loop
Set rcdbolle = Nothing
rcdbolle.Close
rcdlettere.MoveLast
rcdlettere.MoveFirst
Do Until rcdlettere.EOF
        xlSheet.Range("AO41").Value = "n°" & rcdlettere("IdLETTERA") &
" del " & rcdlettere("DataLETTERA")
        rcdlettere.MoveNext
        xlSheet.Range("AO42").Value = "n°" & rcdlettere("IdLETTERA") &
" del " & rcdlettere("DataLETTERA")
        rcdlettere.MoveNext
        xlSheet.Range("AX41").Value = "n°" & rcdlettere("IdLETTERA") &
" del " & rcdlettere("DataLETTERA")
        rcdlettere.MoveNext
        xlSheet.Range("AX42").Value = "n°" & rcdlettere("IdLETTERA") &
" del " & rcdlettere("DataLETTERA")
        Exit Do
Loop
Set rcdlettere = Nothing
rcdlettere.Close
rcdfax.MoveLast
rcdfax.MoveFirst
Do Until rcdfax.EOF
        xlSheet.Range("BH41").Value = "n°" &
rcdfax("nostroriferimento") & " del " & rcdfax("Datafax")
        rcdfax.MoveNext
        xlSheet.Range("BH42").Value = "n°" &
rcdfax("nostroriferimento") & " del " & rcdfax("Datafax")
        rcdfax.MoveNext
        xlSheet.Range("BQ41").Value = "n°" &
rcdfax("nostroriferimento") & " del " & rcdfax("Datafax")
        rcdfax.MoveNext
        xlSheet.Range("BQ42").Value = "n°" &
rcdfax("nostroriferimento") & " del " & rcdfax("Datafax")
        Exit Do
Loop
Set rcdfax = Nothing
rcdfax.Close
'xlSheet.Range("AO29").Value = [Forms]![Scheda tecnica].[M_idprevsopr]!
[IDPREV-SOPR] & " del " & Format([Forms]![Scheda tecnica].
[M_idprevsopr]![DATAprev-sopr], "short date")
'xlSheet.Range("BH29").Value = [Forms]![SCHEDA TECNICA].[M_idpat]!
IDPAT & " del " & [Forms]![SCHEDA TECNICA].[M_idpat]!DATAPAT
'xlSheet.Range("AO33").Value = [Forms]![Scheda tecnica].[m_idofford]!
IDOFFERTA & " del " & [Forms]![Scheda tecnica].[m_idofford]!
DATAOFFERTA
'xlSheet.Range("AO37").Value = [Forms]![Scheda tecnica].[M_idfattura]!
IDFATTURA & " del " & [Forms]![Scheda tecnica].[M_idfattura]!
DATAFATTURA
'xlSheet.Range("BH37").Value = [Forms]![Scheda tecnica].[m_idbolla]!
IDBOLLA & " del " & [Forms]![Scheda tecnica].[m_idbolla]!DATABOLLA
'xlSheet.Range("AO41").Value = [Forms]![Scheda tecnica].[m_idlettere]!
IdLettera & " del " & [Forms]![Scheda tecnica].[m_idlettere]!
DataLettera
'xlSheet.Range("BH41").Value = [Forms]![Scheda tecnica].[m_idfax]!
NOSTRORIF & " del " & [Forms]![Scheda tecnica].[m_idfax]!DATAFAX
Select Case Tipo
Case 1
    Set xlSheet = xlBook.Worksheets("SCHEDA")
    xlSheet.Activate
    xlSheet.Range("A1").Value = "RA: " & [Forms]![Scheda tecnica].
[RA].Column(1) & "        DESCRIZIONE: " & [Forms]![Scheda tecnica].
[M_commessa]!Descrizione & "        STATO: " & [Forms]![Scheda
tecnica].[M_commessa]![CodStato] & " - " & [Forms]![Scheda tecnica].
[M_commessa]!CodStato.Column(1)
    xlSheet.Range("A2").Value = "    SCHEDA TECNICA N°: " & [Forms]!
[Scheda tecnica]![Id] & "                    SOCIETA': " & [Forms]!
[Scheda tecnica].[M_commessa]![cc_società] & " - " & [Forms]![Scheda
tecnica].[M_commessa]![cc_società].Column(1) & "       RICHIEDENTE: "
& [Forms]![Scheda tecnica].[M_commessa]![CodiceRichiedente] & " - " &
[Forms]![Scheda tecnica].[M_commessa]!CodiceRichiedente.Column(1) &
"        AREA: " & [Forms]![Scheda tecnica].[M_commessa]!area & " - "
& [Forms]![Scheda tecnica].[M_commessa]!area.Column(1) & ""
    xlSheet.Range("A3").Value = "
LEGENDA:                                     / = NON PREVISTO;      0
= DA FARE;    1 = IN CORSO;   2 = FATTO;      S = SOSPESO;    A =
ANNULLATO."
    xlSheet.OLEObjects("CheckBox1").Object.Value = 1
    xlBook.Sheets("Scheda").name = "Scheda"
    Range("B9").Select
    Me.data_aggiornamento = xlSheet.Range("T5").Value
    Me.TotAV = xlSheet.Range("S36").Value
    Me.TotPrev = xlSheet.Range("C36").Value
Case 2
    Set xlSheet = xlBook.Worksheets("INTESTAZIONE")
    Me.data_aggiornamento = xlSheet.Range("AX44").Value
End Select
percorso = "file:" & CurrentProject.Path & "\Scheda tecnica
\Scheda_tecnica_nr_" & [Forms]![Scheda tecnica].[Id] & ".xls"
xlBook.SaveAs FileName:=percorso, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'xlBook.Close (False) '<--- chiudi il foglio di lavoro salvando (true)
o non salvando (False)
'xlBook.Close
'xlSheet
'xlApp.Quit                                '<--- chiudi l'applicazione
excel
'annienta le variabili utilizzate.
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
        Exit Sub
    End If
    .newsearch
End With


title: collegarsi a mdb da excel

author: Popi - TheBadHabits

text:
On 1 Mar, 10:28, emailcasa <
emailc...@gmail.com
> wrote:
>
> ho creato una routine in access che mi apre un modello excel, lo
> compila con dati provenienti da access e lo salva con un determinato
> nome, alla riapertura del file (sempre da access recupera i dati di
> alcune celle e li salva in una tabella)
> Il problema è che non voglio aspettare di riaprirlo per recuperare i
> dati, ma vorrei che sull'evento chiusura di excel si collegasse ad
> access ed sportasse alcuni dati.
Ciao.
Cioè in pratica hai bisogno di scriverti un po' di codice all'interno
del foglio xls perché sull'evento chiusura dello workbook venga
avviata una applicazione access che faccia tutti gli aggiornamenti del
caso.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim appAggiornamento As Access.Application
    Dim rsDati As DAO.Recordset
    Set appAggiornamento = CreateObject("Access.Application")
    Set rsDati =
appAggiornamento.CurrentDb.OpenRecordset("TabellaDaAggiornare")
    'qua metti il codice che effettuerà l'aggiornamento dei dati
    rsDati.Close
    Set rsDati = Nothing
    appAggiornamento.Quit acQuitSaveNone
    Set appAggiornamento = Nothing
End Sub
HTH
Popi


title: collegarsi a mdb da excel

text:

La routine da errore forse perchè il database access è un file già
esistente e non da creare; ho porvato allora a scrivere il seguente
codice:
Private Sub Workbook_BeforeClose(ByRef Cancel As Boolean)
    Dim rsDati As DAO.Recordset
    Dim sql as string
        sql = "SELECT [T_temp].* FROM t_temp"
        Set rsDati = OpenDatabase("\\server\Programmi\Tecnici\scheda
tecnica.mdb").OpenRecordset(sql, DAO.dbOpenSnapshot,
DAO.dbFailOnError)
        rsDati.AddNew
        rsDati![oreav] = Range("D12").value
        rsDati![orecs] = Range("E12").value
        rsDati.Update
        rsDati.Close
        Set rsDati= Nothing
End Sub
ma mi da il seguente errore "Operazione non supportata per questo
oggetto"
sulla riga "rsDati.AddNew"
attendendo un suggerimento ringrazio per l'aiuto
ciao
Andrea


title: collegarsi a mdb da excel

text:
On 1 Mar, 11:45, emailcasa <
emailc...@gmail.com
> wrote:
> On 1 Mar, 10:37, Popi - TheBadHabits <
rlu...@yahoo.com
> wrote:
>
> > Cioè in pratica hai bisogno di scriverti un po' di codice all'interno
> > del foglio xls perché sull'evento chiusura dello workbook venga
> > avviata una applicazione access che faccia tutti gli aggiornamenti del
> > caso.
>
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> >     Dim appAggiornamento As Access.Application
> >     Dim rsDati As DAO.Recordset
>
> >     Set appAggiornamento = CreateObject("Access.Application")
> >     Set rsDati =
> > appAggiornamento.CurrentDb.OpenRecordset("TabellaDaAggiornare")
>
> >     'qua metti il codice che effettuerà l'aggiornamento dei dati
>
> >     rsDati.Close
> >     Set rsDati = Nothing
>
> >     appAggiornamento.Quit acQuitSaveNone
> >     Set appAggiornamento = Nothing
>
> > End Sub
>
> > HTH
> > Popi
>
> La routine da errore forse perchè il database access è un file già
> esistente e non da creare; ho porvato allora a scrivere il seguente
> codice:
*MUMBLE*
Ma ... se il db non esistesse ... cosa aggiorneresti???
> Private Sub Workbook_BeforeClose(ByRef Cancel As Boolean)
>
>     Dim rsDati As DAO.Recordset
>     Dim sql as string
>
>         sql = "SELECT [T_temp].* FROM t_temp"
>
>         Set rsDati = OpenDatabase("\\server\Programmi\Tecnici\scheda
> tecnica.mdb").OpenRecordset(sql, DAO.dbOpenSnapshot,
> DAO.dbFailOnError)
>         rsDati.AddNew
>         rsDati![oreav] = Range("D12").value
>         rsDati![orecs] = Range("E12").value
>         rsDati.Update
>         rsDati.Close
>         Set rsDati= Nothing
>
> End Sub
>
> ma mi da il seguente errore "Operazione non supportata per questo
> oggetto"
> sulla riga "rsDati.AddNew"
>
> attendendo un suggerimento ringrazio per l'aiuto
Un openRecordset all'interno di un openDatabase mi sembra una cosa
"poco pulita" cmq il suggerimento è solo uno: guardati l'help di
openRecordset, in special modo la parte relativa alle diverse modalità
di apertura (snapshot, per intenderci).
HTH
Popi


title: collegarsi a mdb da excel

text:

> Popi- Nascondi testo citato
>
> - Mostra testo citato -- Nascondi testo citato
>
> - Mostra testo citato -
TUTTO OK GRAZIE
Private Sub Workbook_BeforeClose(ByRef Cancel As Boolean)
If datagg = "0.00.00 " Then Exit Sub
    Sheets("Scheda").Select
    Range("T5").Select
    ActiveCell.FormulaR1C1 = datagg
    Range("F2").Select
Dim objDaoDbs As Object
Set objDaoDbs = CreateObject("DAO.DBEngine.36").OpenDatabase("\\server
\Programmi\Tecnici\scheda tecnica.mdb").OpenRecordset("T_temp")
objDaoDbs.AddNew
objDaoDbs![dataagg] = Range("T5")
objDaoDbs![orepr] = Range("C36")
objDaoDbs![oreav] = Range("S36")
    Sheets("intestazione").Select
objDaoDbs![idscheda] = Range("BH13")
objDaoDbs.Update
objDaoDbs.Close
Set objDaoDbs = Nothing
Set objDaoDbe = Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
datagg = Date
End Sub


title: GENERATORE DI ESPRESSIONI!!!

author: Paolo Perego

text:
Ciao, qualcuno sa dirmi come funziona questo maledetto Generatore di
espressioni. Anche per un semplice IIf  mi da errori nella formulazione!!
Please  AIUTO!!


title: GENERATORE DI ESPRESSIONI!!!

author: Roberto dal portatile

text:
"Paolo Perego" <
paolo....@arosoft.it
> ha scritto nel messaggio
news:8u5qac$suf$1...@nslave2.tin.it...
> Ciao, qualcuno sa dirmi come funziona questo maledetto Generatore di
> espressioni. Anche per un semplice IIf  mi da errori nella formulazione!!
>
> Please  AIUTO!!
>
>
A97 o A2000?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: GENERATORE DI ESPRESSIONI!!!

text:
"Paolo Perego" <
paolo....@arosoft.it
> ha scritto nel messaggio
news:8u5qac$suf$1...@nslave2.tin.it...
> Ciao, qualcuno sa dirmi come funziona questo maledetto Generatore di
> espressioni. Anche per un semplice IIf  mi da errori nella formulazione!!
>
> Please  AIUTO!!
>
>
Magari se ci invii l'esempio... Comunque un errore che si presenta spesso e
volentieri è la virgola al posto del punto-e-virgola:
- iif(espressione,vero,falso)
- iif(espressione;vero;falso)
Guarda tu...
Ciao.


title: Report e margini DIMENTICATI!!

author: Gilmour

text:
Salve
ho un problema con i report. Devo impostare tutti i margini a 0, in
quanto sto stampando su cartoncino... la prima pagina viene stampata
correttamente, le altre (ho una pagina per ogni record) hanno come
valore dei margini gli stessi che aveva precedentemente. Il fatto che
access si "dimentica" il margine che ho impostato, succede anche
quando chiudo il report e lo riapro.
Avete idea di come posso risolvere?
Grazie
Gil


title: Report e margini DIMENTICATI!!

author: MA

text:

Se hai A2k č un bug conosciuto. Va via usando service pack1 e nelle opzioni
togli la spunta a correzione nome automatica.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Report e margini DIMENTICATI!!

text:
Era un luminoso pomeriggio di aprile, e i due giovani
massimilia...@kksrl.com
 (MA) e Piero si incontrarono nella
radura di Sherwood (it.comp.appl.access), dicendo:
>Se hai A2k è un bug conosciuto. Va via usando service pack1 e nelle opzioni
>togli la spunta a correzione nome automatica.
>ciao MAssimiliano
Non dipende da questo, l'opzione è gia disattivata :(((


title: Report e margini DIMENTICATI!!

text:
Era un luminoso pomeriggio di aprile, e i due giovani
massimilia...@kksrl.com
 (MA) e Piero si incontrarono nella
radura di Sherwood (it.comp.appl.access), dicendo:
Risolto, credo si trattasse solo ti togliere l'intestazione. Perň non
capisco, perché con la prima pagina non avevo problemi?


title: info controllo casella di riepilogo

author: Marcello Merola

text:
Salve, come posso passare dei valori ad una casella di riepilogo non
collegata a nessuna tabella / query
grazie Marceme.


title: info controllo casella di riepilogo

author: Sib

text:
"Marcello Merola" <
m-m-m-...@libero.it
> ha scritto nel messaggio
> Salve, come posso passare dei valori ad una casella di riepilogo non
> collegata a nessuna tabella / query
Premi F1 mentre sei sulla proprieta' RowSource (Origine Riga)
Sib


title: info controllo casella di riepilogo

text:
> Salve, come posso passare dei valori ad una casella di riepilogo non
> collegata a nessuna tabella / query
> grazie Marceme.
Invece di usare come "Tpo origine riga" una tabella/query, scegli "elenco
valori" e li specifichi nel rigo Origine riga" intervallandoli con il ;
pippo;pluto;etc.
MAssimiliano