author: Marco Pizzamiglio

text:
leonardo esposito ha scritto:

I pulsanti di chiusura (X) delle maschere li puoi togliere in un attimo
dalle proprietà, quello di Access un po' meno facilmente, in ogni caso
l'utente può sempre usare Alt-F4 per chiudere tutto.
Sfruttando gli eventi delle maschere puoi bloccare ogni tentativo di
chiusura (tranne il kill del processo MSAccess.exe) che non passi
attraverso il tuo pulsante. Riporto un esempio. La maschera si chiude solo
se il pulsante ha dato il consenso impostando il valore di una variabile.
Per i report non saprei, non si può applicare lo stesso sistema dato che
non ci sono eventi che consentano di annullare la chiusura.
Ciao.
-Marco-
Private Chiudi As Boolean
Private Sub Form_Open(Cancel As Integer)
    Chiudi = False
End Sub
Private Sub BtnChiudi_Click()
    Chiudi = True
    DoCmd.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Cancel = Not Chiudi
End Sub
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Codice Fiscale

author: Mauro

text:
Carissimi del NG, ho un problemino semplice semplice, mi sono
scaricato dal sitocomune l'applicazione del codice fiscale, se pero'
lo inserisco, aggiungendolo al mio database, come provo ad eseguire
una maschera del codice fiscale mi restituisce un errore "Tipo
definito dall'utente non definito" e non vado avanti, se lo uso da
solo va bene, chi mi sa dire come potrei fare ?
Grazie


title: Codice Fiscale

author: SunRex

text:
"Mauro" <
mauro...@libero.it
> ha scritto nel messaggio
news:dadb67f6.03091...@posting.google.com...

Controlla nei riferimenti se ti manca qualche libreira tipo quella di dao.
SunRex


title: problemi con maschere e sottomaschere

author: Michele

text:
Ciao,
Ho un DB con una tabella Prodotti che include i seguenti campi:
Categoria, Prodotto, Dettaglio Prodotto, Codice Prodotto.
Come posso fare per impostare una Tabella Ordini che
mi permetta di selezionare automaticamente i vari Campi
secondo una "gerarchia ad Albero"  permetterndomi di inserire  poi le
quantità e ottenere il report relativo?
Il problema nasce dal particolare che i record sono circa 800 mentre le
categorie sono 10 quindi, mi sembra assurdo che per organizzare un'ordine ci
si deve scorrere tutti i reord!
Grazie
Mik


title: problemi con maschere e sottomaschere

author: Nicola Ardito

text:
"Michele" <
michele....@tin.it
> ha scritto nel messaggio
news:6c8nc.164179$hc5.7...@news3.tin.it...

Dovresti creare sulla maschera due combobox : una per la categoria e la
seconda per i prodotti.
Dopo aver selezionato la categoria la combo dei prodotti dovra contenere
solo quelli corrispondenti (Metodo Requery).
Esistono  decine di post al riguardo.
Ciao Nicola


title: problemi con maschere e sottomaschere

text:
"Nicola Ardito" <
nicolanosp...@tin.it
> ha scritto nel messaggio
news:PP8nc.221349$rM4.9...@news4.tin.it...

Grazie Nicola
Mi documento al riguardo (Metodo Requery e utilizzo delle ComboBox)
Era comunque indispensabile che qualcuno mi fornisse una strada!
Ciao e grazie ancora!
Mik


title: problemi con maschere e sottomaschere

text:
[cut]
> Ciao e grazie ancora!
> Mik
Prego spero che tu risolva.
Ciao Nicola


title: ADOBD apertura tabella e aggiornamento

author: Simone

text:
Prima di perderci ancora tempo (ci sono già stato un paio d'ore) chiedo qui
se qualcuno mi sa indicare come (con ADODB) fare a:
1. creare una connessione al Database corrente
2. creare un recordset che contenga tutta un tabella locale (Es. TblPippo)
3. scorrere tutti i record della tabella modificando un campo (semplicemente
inserendoci il risultato di un operazione tra un paio di campi del record
stesso)
4. chiudere tutto
Lo voglio fare con ODEDB perché l'applicazione gia' usa connessioni ADODB
verso un database informix in rete... vorrei rendere tutto "uniforme".
Principalmente ho problemi con la stringa di connessione (quale ci vuole?) e
su come fare per aggiornare i campi... visto che il database a cui sono
collegato lo utilizzo solo per "leggere" dei dati.
Grazie.
Simone.


title: avvisi di msaccess

author: unknown

text:
Ciao a tutti (a Gugge di più :) )
Volevo sapere se c'è un modo per evitare che vengano visualizzati i messaggi
di avviso quando ad esempio viene attivata una query di accodamento oppure i
dati in una tabella stanno per essere cancellati
Ciao e grazie :)


title: avvisi di msaccess

author: Antonio Biso

text:
"unknown" <
vito....@tin.it
> ha scritto nel messaggio
news:OMyU9.30930$AA2.1...@news2.tin.it...

Docmd.setwarnings false
.....
Docmd.setwarnings true
Antonio


title: avvisi di msaccess

author: Ronny

text:

Da STRUMENTI\OPZIONI\MODIFICA-TROVA\Spuntare le caselle su Richiesta
Conferma
Ciao
--------------------------------
Inviato via
http://usenet.libero.it


title: Calcolo giorni

text:
Sto cercando di creare un piccolo db per un amico e che deve fatturare a
giorni,ma dal primo del mese si deve azzerare turro. Mi spiego, forse,
meglio: se al al 27 del mese io do dieci mele, quindi devo fatturare 10
fino alla fine del mese, e al 10 nel mese successivo me ne restituisce 6
e quindi devo fatturare 10 dal primo del mese fino al 6 e poi 4 dal
giorno successivo. Il mio problema ï¿œ che non riesco a capire come poter
fare il calcolo sul cambio del mese.
Spero che possa avere degli ottimi consigli come li date sempre
maurizio
--
       maurizio56
browser: FireFox 3.5.7
mailreader: ThunderBird 3.0


title: Calcolo giorni

author: Roberto da Parma

text:
"maurizio56" <
cal...@libero.it
> ha scritto nel messaggio
news:4b54bb19$0$815$4faf...@reader5.news.tin.it...

Scusa Maurizio ma non ho capito una mazza...puoi spiegarti un po' meglio?
Ciao
--
Roberto da Parma


title: Calcolo giorni

author: MA

text:
"Roberto da Parma" <
arisi....@tin.it
> ha scritto nel messaggio
news:hk2pim$gqv$1...@tdi.cu.mi.it...
> Scusa Maurizio ma non ho capito una mazza...puoi spiegarti un po' meglio?
>
> Ciao
>
> --
> Roberto da Parma
Guarda che se uno scapolone come te no capisce una mazza di calcolo dei
giorni... puï¿œ essere pericoloso!!!


title: Maschera & struttura a Schede

text:
Salve ho un problemino semplice semplice ma che non so risolvere.
Ho una maschera che contiene una struttura a schede di 3 schede.
Sulla maschera (fuori dalle schede) c'e' un pulsante di comando che deve far
partire codice diverso aseconda della scheda che è selezionata.
Problema: quale e' la proprieta' da verificare per sapere quale e' in quel
momento la scheda selezionata?
Ho cercato per mezz'ora e non ho trovato niente.
Aiutatemi per favore!
Simone


title: Filtro su maschera e risultato nullo

author: Ami

text:
Buonasera a tutti,
sto cercando di applicare un filtro alla maschera principale del mio database,
ma sto avendo qualche difficolta'.
Come mi hanno consigliato un paio di settimane fa Sandro e Gaspare (ancora
grazie per l'aiuto sull'altro problema!) mi sono studiata la proprieta'
recordset, ho capito come funziona, ma ho ancora qualche difficolta'
nell'applicazione pratica...
Questo è il codice che uso per filtrare la maschera:
  Private Sub Filtro_AfterUpdate()
    Me.FilterOn = False 	'annulla eventuali filtri precedenti
    If Me.Dirty Then	'salva il record se hai fatto modifiche
    Me.Dirty = False
    End If
    Dim rs As Object
    Set rs = Me.RecordsetClone 	'memorizza il record corrente
    Me.Filter = "[Title] Like " & Chr(34) & "*" & Me![Filtro] & "*" & Chr(34)
    Me.FilterOn = True
    If Me.RecordsetClone.EOF Then	'se nessun record corrisponde
    MsgBox "Non ci sono risultati utili"
    DoCmd.RunCommand acCmdUndo	'annulla il filtro
    DoCmd.ShowAllRecords
End If
End Sub
Cosi' com'e' funziona perfettamente, ma quando vado a togliere il filtro - nel
caso il risultato della ricerca sia nullo - mi restituisce sempre il primo
record.
Se cambio il codice in questo modo:
da
    DoCmd.RunCommand acCmdUndo
    DoCmd.ShowAllRecords
a
Me.filter = ""
Me.filter = vbnullstring
Mi restitutisce un nuovo record e non riesco a vedere gli altri records senza
aprire e chiudere la maschera.
Ho provato con bookmark, ma mi da' errore...
Come posso fare per ritornare all'ultimo record usato prima di applicare il
filtro, invece che al primo?
Molte grazie in anticipo
Erika
--
Per rispondermi... Togli "nospam"
To send me an email... take out "nospam"


title: Filtro su maschera e risultato nullo

author: ALESSANDRO Baraldi

text:
"Ami" <
ts...@libero.it
> ha scritto nel messaggio
news:4ltid15clkju4b6k7...@4ax.com...
>
> Buonasera a tutti,
>
> sto cercando di applicare un filtro alla maschera principale del mio
database,
> ma sto avendo qualche difficolta'.
>
> Come mi hanno consigliato un paio di settimane fa Sandro e Gaspare (ancora
> grazie per l'aiuto sull'altro problema!) mi sono studiata la proprieta'
> recordset, ho capito come funziona, ma ho ancora qualche difficolta'
> nell'applicazione pratica...
>
> Questo č il codice che uso per filtrare la maschera:

Io dopo il Test che fai del RecordsetClone farei cosě:
If Me.RecordsetClone.EOF
Me.FilterOn=Not(Me.RecordsetClone.EOF)
Ma per memorizzare il Record prima di tutto l'ambaradan
devi memorizzare il BookMark del RecordsetClone
Dim varBook    as Variant
varBook=Me.RecordsetClone.Bookmark
'quě metti tutti i controlli e se EOF per ripristinare
Me.Bookmark=varBook
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Filtro su maschera e risultato nullo

text:
On Sun, 17 Jul 2005 11:28:21 +0200, "ALESSANDRO Baraldi"
<
NoSpam...@libero.it
> wrote:
>> Come posso fare per ritornare all'ultimo record usato prima di applicare
>il
>> filtro, invece che al primo?
>>
>> Molte grazie in anticipo
>>
>
>Io dopo il Test che fai del RecordsetClone farei cosě:
>
>If Me.RecordsetClone.EOF
>Me.FilterOn=Not(Me.RecordsetClone.EOF)
>
>Ma per memorizzare il Record prima di tutto l'ambaradan
>devi memorizzare il BookMark del RecordsetClone
>
>Dim varBook    as Variant
>
>varBook=Me.RecordsetClone.Bookmark
>'quě metti tutti i controlli e se EOF per ripristinare
>Me.Bookmark=varBook
Grazie per l'aiuto!
Se modifico come suggerisci tu, mi riporta all'ultimo record, invece che al
primo, ma cmq non al precedente. Boh...
Grazie comunque!!



title: Filtro su maschera e risultato nullo

author: Enrico T.S.

text:
"Ami" <
ts...@libero.it
> ha scritto nel messaggio
news:4ltid15clkju4b6k7...@4ax.com...
>

io la cambierei cosi:
Private Sub Filtro_AfterUpdate()
Dim OldFiltro as string
Dim RecordCorrente as Variant
    Oldfiltro=Me.Filter
     Me.FilterOn = False 'annulla eventuali filtri precedenti
   If Me.Dirty Then 'salva il record se hai fatto modifiche
     Me.Dirty = False
   End If
     Dim rs As Object
    RecordCorrente=Me.recordsetclone.bookmark
     Me.Filter = "[Title] Like " & Chr(34) & "*" & Me![Filtro] & "*" &
Chr(34)
     Me.FilterOn = True
 If Me.RecordsetClone.EOF Then 'se nessun record corrisponde
     MsgBox "Non ci sono risultati utili"
     DoCmd.RunCommand acCmdremoveFilterSort
     Me.Filter=OldFiltro
     Me.FilterOn = True
     Me.RecordsetClone.Bookmark=RecordCorrente
 End If
 End Sub
Prova e fai sapere
bye :o)


title: Filtro su maschera e risultato nullo

text:
On Wed, 20 Jul 2005 11:19:04 GMT, "Enrico T.S." <
TOGLIBar...@inwind.it
>
wrote:
>io la cambierei cosi:
>
>Private Sub Filtro_AfterUpdate()
>Dim OldFiltro as string
>Dim RecordCorrente as Variant
>
>    Oldfiltro=Me.Filter
>     Me.FilterOn = False 'annulla eventuali filtri precedenti
>   If Me.Dirty Then 'salva il record se hai fatto modifiche
>     Me.Dirty = False
>   End If
>     Dim rs As Object
>    RecordCorrente=Me.recordsetclone.bookmark
>     Me.Filter = "[Title] Like " & Chr(34) & "*" & Me![Filtro] & "*" &
>Chr(34)
>     Me.FilterOn = True
> If Me.RecordsetClone.EOF Then 'se nessun record corrisponde
>     MsgBox "Non ci sono risultati utili"
>     DoCmd.RunCommand acCmdremoveFilterSort
>     Me.Filter=OldFiltro
>     Me.FilterOn = True
>     Me.RecordsetClone.Bookmark=RecordCorrente
> End If
> End Sub
>
>Prova e fai sapere
>bye :o)
Provato e... non funge. Mi restituisce il solito record nullo, nemmeno il primo.
Bah ^_^
Grazie, comunque!!



title: Report con didascalia

author: Mirko

text:
Salve Ng, forse sarà un problema sciocco che magari tutti sanno....ma io ci
sto sbattendo la testa da un bel pezzo.
Vorrei creare una stampa (ad es. x ordine alfabetico) e vorrei mettere una
lettera (ad es. la A) prima del primo record che inizia per A, poi un'altra
letera (ad es. B) prima del primo record che comincia per B e così
Io ho sempre utilizzato questo codice su una etichetta:
=Left$([Ragionesociale];1)
ma i risultati che ho ottenuto sono la presenza di questa lettera solo ad
inizio pagina anche se a metà doveva cambiare oppure, caso opposto, la
lettera cambia ma è presente su tutti i record
Dove sbaglio ?


title: Report con didascalia

author: Fabio Montagner

text:
Devi crearti una sezione con la lettera iniziale.
Mirko wrote in message <10pmcta$hld$
1...@fe2.cs.interbusiness.it
>...



title: richiesta login e password di accesso

author: vendo e scambio a Milano

text:
rieccomi qui....
dopo aver letto sia sul sito comune che che su altri siti non ho ancora
capito come fare per proteggere un DB con nikname e password per ogni
singolo utente
1°  problema : il DB viene creato e modificato da un altro computer ( in
poche parole lo faccio a casa) mentre viene utilizzato su di 1 pc in sede
( è un associazione di croce rossa)
2° problema: Devo fare in modo che chi accede al DB inserisca nik e password
ed abbia la possibilita di usare solo determinate maschere o tabelle
grazie a tutti per l'aiuto


title: Recordset da query restituisce un solo record

author: Davide

text:
Salve a tutti.

Voglio creare un recordset basato sui dati di una query.
Ho inserito il seguente codice ma non funziona: il recordset creato sembra
avere un solo record (rs.recordcount=1)
La query č una semplice query di selezione, restituisce piů di un record e
funziona perfettamente.

Sub Function MiaFunzione (NomeQuery as String)
   Dim dbase As DAO.Database
   Dim rs As DAO.Recordset

   Set dbase = CurrentDb
   Set rs = dbase.OpenRecordset(NomeQuery, dbOpenDynaset)
   ...
End Function

Se metto il nome di una tabella questo codice funziona perfettamente
Dove sbaglio?

Davide


author: Karl Donaubauer

text:
Davide wrote:
> Voglio creare un recordset basato sui dati di una query.
> Ho inserito il seguente codice ma non funziona: il recordset creato
> sembra avere un solo record (rs.recordcount=1)
> La query è una semplice query di selezione, restituisce più di un
> record e funziona perfettamente.
>
> Sub Function MiaFunzione (NomeQuery as String)
>   Dim dbase As DAO.Database
>   Dim rs As DAO.Recordset
>
>   Set dbase = CurrentDb
>   Set rs = dbase.OpenRecordset(NomeQuery, dbOpenDynaset)
>   ...
> End Function
>
> Se metto il nome di una tabella questo codice funziona perfettamente
> ...

Hai fatto un

rs.MoveLast

prima del RecordCount?

v.a. Contare i record
http://www.donkarl.com/it?FAQ6.17

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


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:9p063m...@mid.individual.net...
> Davide wrote:
>> Voglio creare un recordset basato sui dati di una query.
>> Ho inserito il seguente codice ma non funziona: il recordset creato
>> sembra avere un solo record (rs.recordcount=1)
>> La query č una semplice query di selezione, restituisce piů di un
>> record e funziona perfettamente.
>>
>> Sub Function MiaFunzione (NomeQuery as String)
>>   Dim dbase As DAO.Database
>>   Dim rs As DAO.Recordset
>>
>>   Set dbase = CurrentDb
>>   Set rs = dbase.OpenRecordset(NomeQuery, dbOpenDynaset)
>>   ...
>> End Function
>>
>> Se metto il nome di una tabella questo codice funziona perfettamente
>> ...
>
> Hai fatto un
>
> rs.MoveLast
>
> prima del RecordCount?
>
> v.a. Contare i record
>
http://www.donkarl.com/it?FAQ6.17

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

>

Ho inserito rs.MoveLast e ora funziona!
Usando recordset da tabella o = Form.Recordset non mi era mai capitato di
dover inserire rs.MoveLast.
Grazie Karl.


title: filtrare una selezione

author: Lenny

text:
ho bisogno di fare una stampa tale per cui,
oggi ho i primi 25 risultati,
domani i secondi 25
dopodomani gli altri ancora.
come posso fare?
grazie.


title: filtrare una selezione

author: Paolo Mazzanti

text:
"Lenny" <
luca...@tiscalinet.it
> ha scritto nel messaggio
news:9u29a2$fov$1...@pegasus.tiscalinet.it...

Intuitivamente, aggiungerei un campo che mi conferma la verifica effettuata
dei primi 25.
Per cui se fltri quelli NON verificati, ti rimangono sempre i primi 25.
Non so in quale contesto sei, ma supponiamo che tu prenda 25 persone a
colloquio al giorno, una volta effettuato il colloquio, non hai più bisogno
di vedere i 25 del giorno prima, ad esempio.
Ciao
Paolo Mazzanti


title: Impostare la stampante da procedura

author: Giancarlo Santarini

text:
Dispongo di due stampanti: una deskjet (predefinita a livello sistema win98)
ed una ad aghi.
Desidererei potere utilizzare la stampante ad aghi solo in qualche
occasione, magari richiamando un report da qualche maschera, senza
modificare la stampante di default di win98.
Come posso fare?
Grazie a tutti!


title: Impostare la stampante da procedura

author: AntoGal

text:
"Giancarlo Santarini" <
san...@libero.it
> scrisse...
> Dispongo di due stampanti: una deskjet (predefinita a livello sistema
win98)
> ed una ad aghi.
> Desidererei potere utilizzare la stampante ad aghi solo in qualche
> occasione, magari richiamando un report da qualche maschera, senza
> modificare la stampante di default di win98.
Se sono sempre gli stessi report a dover essere stampati con quella ad aghi,
puoi direttamente impostarla una volta per tutte da "File -> Imposta Pagina"
del Report in modalità design.
Se invece vorresti avere la possibilità di cambiare la stampante al volo da
codice, dovresti dare un'occhiata al Sito Comune:
General, "Gestire la stampante predefinita"
mi sembra che ci sia anche qualcos'altro.
Se ti è utile posso inviarti un MDB che presenta una form con l'elenco delle
stampanti e ti permette di scegliere quale deve essere quella predefinita
(questa soluzione utilizza pesantemente le API). Eventualmente, dai
un'occhiata sull'help a prtDevMode.
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)

www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


title: Access e palmari

author: Ferrari Rino

text:
Salve a tutti ce qualcuno che abbia sviluppato qualche programma per
palmare, da collegare con un db access?
Se si che ,programma a  usato?
Dove poter reperire una Demo?
Grazie .


title: casella di testo...

author: donato

text:
Scusa Antonio se riposto il quesito. Sono stato lontano da casa e non ho
potuto rispondere prima.
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:7ZBh9.4531$Hc7....@twister1.libero.it...
> "donato" <
ato...@infinito.it
> ha scritto nel messaggio
> news:am6h6s$mpk$1...@serv1.albacom.net...
> >
> > > A parte che ti manca il ramo else della iif, quello con "-"
> > > A parte che non hai scritto iif ma if
> > > A parte queste cose sicuramente errate, prova a verificare che i nomi
> dei
> > > campi coinvolti siano giusti. Se neanche questo va, sostituisci vero
> > con -1
> > >
> > > >
> > > > Provando ad inserirla sull'evento click mi ridà l'errore precedente.
> > >
> > > Su clic non c'entra niente!!!
> > >
> > > Antonio
> > >
> > >
> >
> > Ho provato ad inserire la stringa che mi hai proposto:
> > =if([ISCRITTO NURSIND]=vero;[SiglaProvincia] & [id])
> >
> > ed ho provato a riscriverla specificando il percorso:
> > =IIf([Forms]![dati COLLEGIO IPASVI]![ISCRITTO
> > NURSIND]=Vero;[Forms]![Segreteria Provinciale]![SiglaProvincia] &
> [id];"-")
>
> NO!
> Devi scrivere direttamente il nome del campo, non un riferimento alla form
> =IIf([ISCRITTO NURSIND]=Vero;[SiglaProvincia] & [id];"-")
>
> >
> > La [SiglaProvincia] si trova su una maschera diversa mentre [ISCRITTO
> > NURSIND] e [id] sono sulla stessa maschera del controllo che voglio
> creare.
>
> Ah...
> Allora diventa così
> =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> Provinciale]![SiglaProvincia] & [id];"-")
>
> Antonio
>
>
FINALMENTE FUNZIONA!!!
anche se non ho ancora capito qual'era il problema.
In fondo, scritto come me l'avevi postato all'inizio
=iif([Associato]=true;[SiglaProvincia] & [IDCONT];"-")
e come me l'hai postato ora
=IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
Provinciale]![SiglaProvincia] & [id];"-")
cambiano due cose:
1. iif con IIf
è importante?
2. il percorso della maschera.
Ho provato a ciudere la maschera e mi sono reso conto che deve restare
aperta altrimenti non funziona.
Non potrei fare riferimento alla tabella invece? Perchè la maschera d'avvio
serve solo per l'inizializzazione del database e poi la faccio chiudere. So
che potrei nasconderla, ma sarebbe meglio pescare il valore della
SiglaProvincia nella tabella (che fra l'altro, contiene solo il record della
provincia di appartenenza.
Altro piccolo problema:
Il database contiene 5400 record.
Pescando l'id tra i primi record mi risultano numeri di tessera con soli 3
caratteri.
Per es. BG1
oppure BG12
oppure BG123
mentre vanno bene le quattro cifre dopo la provincia.
Come potrei fare a realizzare
BG0001
BG0012
BG0123
?
Comunque ti ringrazio infinitamente per l'aiuto
anche se so che a volte le parole non sono sufficienti
per esprimere la gratitudine.
Ciao
Donato
ps. porta pazienza, avrai capito che non sono un professionista, anche se
uso access dalla versione 2.0
solo che non lo uso quotidianamente, bensì solo per risolvere dei problemi.
Un fai da te, per intenderci.


title: casella di testo...

author: Antonio Biso

text:
"donato" <
ato...@infinito.it
> ha scritto nel messaggio
news:amreqt$e43$1...@serv1.albacom.net...
> Scusa Antonio se riposto il quesito. Sono stato lontano da casa e non ho
> potuto rispondere prima.
> FINALMENTE FUNZIONA!!!
> anche se non ho ancora capito qual'era il problema.
> In fondo, scritto come me l'avevi postato all'inizio
>
> =iif([Associato]=true;[SiglaProvincia] & [IDCONT];"-")
>
> e come me l'hai postato ora
>
> =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> Provinciale]![SiglaProvincia] & [id];"-")
>
> cambiano due cose:
> 1. iif con IIf
>
> è importante?
NO!
>
> 2. il percorso della maschera.
Certo, il problerma era lì
> Ho provato a ciudere la maschera e mi sono reso conto che deve restare
> aperta altrimenti non funziona.
E' chiaro: il riferimento alle maschere funziona solo se sono aperte. Però
puoi nasconderla se non ti va di lasciarla aperta, mettendo la proprietà
visible a false.
> Non potrei fare riferimento alla tabella invece? Perchè la maschera
d'avvio
> serve solo per l'inizializzazione del database e poi la faccio chiudere.
So
> che potrei nasconderla, ma sarebbe meglio pescare il valore della
> SiglaProvincia nella tabella (che fra l'altro, contiene solo il record
della
> provincia di appartenenza.
Sì, ma mi pare di ricordare che tu la provincia la selezioni nella maschera
no?
Potresti fare una cosa caso mai.
Metti un controllo nascosto nella maschera principale, quando aggiorni la
provincia nell'altra maschera, scrivi nel controllo nascosto il valore
scelto e poi usa quello nell'espressione =iif ecc.
> Altro piccolo problema:
> Il database contiene 5400 record.
> Pescando l'id tra i primi record mi risultano numeri di tessera con soli 3
> caratteri.
> Per es. BG1
> oppure BG12
> oppure BG123
> mentre vanno bene le quattro cifre dopo la provincia.
>
> Come potrei fare a realizzare
> BG0001
> BG0012
> BG0123
data x la variabile in cui c'è il numero, la concatenazione sarà
Provincia & right("000" & x, 4)
> Comunque ti ringrazio infinitamente per l'aiuto
> anche se so che a volte le parole non sono sufficienti
> per esprimere la gratitudine.
Figurati, prego
> ps. porta pazienza, avrai capito che non sono un professionista, anche se
> uso access dalla versione 2.0
> solo che non lo uso quotidianamente, bensì solo per risolvere dei
problemi.
> Un fai da te, per intenderci.
Già che mi quoti bene, sei un grande!
Heh eheh e
Antonio


title: casella di testo...

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:andk9.8198$Eu.1...@twister1.libero.it...

Questa è la stringa origine dati:
=IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
Provinciale]![SiglaProvincia] & [id];"-")
mi potresti scrivere la sintassi corretta in base alla concatenazione che mi
hai proposto?
Tanta grazie


title: casella di testo...

text:
"donato" <
ato...@infinito.it
> ha scritto nel messaggio
news:amrv2r$puc$1...@serv1.albacom.net...
>
> > Gią che mi quoti bene, sei un grande!
> > Heh eheh e
> >
> > Antonio
Sapevo che non dovevo dirlo, visto che non mi hai sfrondato tutto il
resto...
Sigh
> Questa č la stringa origine dati:
> =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> Provinciale]![SiglaProvincia] & [id];"-")
>
> mi potresti scrivere la sintassi corretta in base alla concatenazione che
mi
> hai proposto?
=IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
Provinciale]![SiglaProvincia] & right("000" & [id];4);"-")
Antonio


title: casella di testo...

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:BIfk9.8549$e31.1...@twister2.libero.it...
> "donato" <
ato...@infinito.it
> ha scritto nel messaggio
> news:amrv2r$puc$1...@serv1.albacom.net...
> >
> > > Già che mi quoti bene, sei un grande!
> > > Heh eheh e
> > >
> > > Antonio
>
> Sapevo che non dovevo dirlo, visto che non mi hai sfrondato tutto il
> resto...
> Sigh
>
> > Questa è la stringa origine dati:
> > =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> > Provinciale]![SiglaProvincia] & [id];"-")
> >
> > mi potresti scrivere la sintassi corretta in base alla concatenazione
che
> mi
> > hai proposto?
>
> =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> Provinciale]![SiglaProvincia] & right("000" & [id];4);"-")
>
> Antonio
>
>
Sei GRANDE ANTONIO
Mi è funzionato al primo colpo
Non ti sentire obbligato (lo sono già io per te)
se ne hai voglia, mi puoi spiegare in particolare la sintassi?
Così un'altra volta so far da me.
Grazie


title: casella di testo...

text:
"donato" <
ato...@infinito.it
> ha scritto nel messaggio
news:amt2vo$q29$1...@serv1.albacom.net...
>
> > > Questa è la stringa origine dati:
> > > =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> > > Provinciale]![SiglaProvincia] & [id];"-")
> > >
> > > mi potresti scrivere la sintassi corretta in base alla concatenazione
> che
> > mi
> > > hai proposto?
> >
> > =IIf([ISCRITTO NURSIND]=Vero;[Forms]![Segreteria
> > Provinciale]![SiglaProvincia] & right("000" & [id];4);"-")
> >
> > Antonio
> >
> >
>
> Sei GRANDE ANTONIO
> Mi è funzionato al primo colpo
>
> Non ti sentire obbligato (lo sono già io per te)
> se ne hai voglia, mi puoi spiegare in particolare la sintassi?
> Così un'altra volta so far da me.
Ma la sintassi della right?
Io te la spiego (visto che ho un po' di tempo) però per queste cose c'è
l'help, che non è male!
Comunque
"000" & ID ti restituisce una stringa ottenuta come concatenazione della
stringa con i 3 caratteri 0 e quanto contenuto in ID. Se ID è numerico non
importa perchè ci pensa lui a convertirla in caratteri.
Alla stringa risultante applichiamo la funzione right
La funzione right prende come parametri una stringa e un intero n e
restituisce gli n caratteri più a destra dela stringa.
il trucco pertanto è che, qualunque sia la lunghezza di ID, prima viene
preso tutto ID e poi, per arrivare a 4 caratteri, una serie di 0 messi prima
dell'Id stesso.
Antonio


title: casella di testo...

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:cECk9.13752$e31.2...@twister2.libero.it...

Grazie della spiegazione.
L'help il più delle volte è più astruso di quanto si possa immaginare.
Ma probabilmente è colpa dell'ignoranza di noi improvvisatori.
Ciao


title: Aggiunta colonne

author: Greg

text:
Ciao a tutti,
vorrei aggiungere una colonna dove memorizzare numeri che abbiano
massimo 3 cifre nella parte intera e una cifra nella parte decimale.
Sto provando varie query non riuscire a raggiungere il risultato
voluto, per esempio una ï¿œ questa:
DB.Execute "ALTER TABLE [Clienti] ADD COLUMN [pUtile] Decimal(3,1)",
dbFailOnError

Grazie per ogni info/aiuto

--
Greg


title: Aggiunta colonne

text:
Greg wrote:
> vorrei aggiungere una colonna dove memorizzare numeri che abbiano
> massimo 3 cifre nella parte intera e una cifra nella parte decimale.
> Sto provando varie query non riuscire a raggiungere il risultato
> voluto, per esempio una � questa:
> DB.Execute "ALTER TABLE [Clienti] ADD COLUMN [pUtile] Decimal(3,1)",
> dbFailOnError

Vedi:

https://groups.google.com/forum/#!original/microsoft.public.it.office.access/hm6Q9UVuQM4/12x36HBzhqEJ

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


title: Aggiunta colonne

text:
Il 02/05/14 19.00.35 Karl Donaubauer ha scritto:

> Vedi:

>
https://groups.google.com/forum/#!original/microsoft.public.it.office.access/hm6Q9UVuQM4/12x36HBzhqEJ

Grazie Karl, semopre prezioso :)

--
Greg


title: [VBA] Esecuzione query da codice

author: Lawrence Oluyede

text:
Dopo un sacco di modifiche...la mia ultima idea per
l'inserimento è stata quella di fare tutto da codice
ma come si fa ad eseguire una query di accodamento da
codice?
ps. ho già creato la query..devo solo eseguirla
--
Lawrence Oluyede
rhy...@myself.com


title: [VBA] Esecuzione query da codice

text:
Lawrence Oluyede <
rhy...@myself.com
> wrote:
[..cut..]
mi sono dimenticato di aggiungere che la query è creata
interamente via codice...in base a dei parametri ricavati da
una maschera
--
Lawrence Oluyede
rhy...@myself.com


title: [VBA] Esecuzione query da codice

author: Massimo Tin

text:
Lawrence Oluyede <
rhy...@myself.com
> wrote in message
psr5cu429g4noa9ap...@4ax.com...

docmd.openquery "nomedellaquery"
o c'è qualcosa ke nn ho capito..?
Ciao Max


title: [VBA] Esecuzione query da codice

text:
"Massimo Tin" <
max...@tin.it
> wrote:
>o c'è qualcosa ke nn ho capito..?
cosi apre una query creata in Access
io creo una query nel codice nel seguente modo:
    Dim today As Date
    Dim money As Currency
    Dim materiale As String
    Dim nazione As String
    Dim query As String
    Dim dbs As Database
    Dim qdf As QueryDef
    Dim rst As Recordset
    Set dbs = CurrentDb

    today = Date
    money = txtMoney.Text
    materiale = ccMateriale.Text
    nazione = ccNazione.Text

    query = ""
    query = query + "INSERT INTO Vendita ( Data, Importo,
CodiceMateriale, CodiceNazione ) "
    query = query + "VALUES (" + Date + ", [inserisci
importo in €], ("
    query = query + "SELECT Materiale.ID FROM materiale "
    query = query + "WHERE Materiale.Descrizione = " +
materiale + " ), "
    query = query + "SELECT Nazione.ID FROM nazione "
    query = query + "WHERE Nazione.Nome = " + nazione + " )"
    query = query + " ) "

--
Lawrence Oluyede
rhy...@myself.com


title: [VBA] Esecuzione query da codice

author: OndaMax

text:
"Lawrence Oluyede" ha scritto nel messaggio ...
> cosi apre una query creata in Access
> io creo una query nel codice nel seguente modo:
DoCmd.RunSql (QuerySql)
QuerySql corrisponde alla tua variabile "query" ...
Marco


title: [VBA] Esecuzione query da codice

text:
"OndaMax" <
ond...@liberox.it
> wrote:
>QuerySql corrisponde alla tua variabile "query" ...
grazie mille...
ora però quando clicco mi dà quest errore:
"Impossibile fare riferimento ad una proprietà o ad un
metodo per un controllo a meno che non abbia lo stato
attivo."
Che significa?
--
Lawrence Oluyede
rhy...@myself.com


title: [VBA] Esecuzione query da codice

text:
Il 22 Apr 2002, 15:12, Lawrence Oluyede ha scritto:
>ora però quando
clicco mi dà quest errore:
>"Impossibile fare riferimento ad una
proprietà o ad un
>metodo per un controllo a meno che non abbia lo stato
>attivo."
>Che significa?
.
Non so, ma non sembra dipendere
dall'Sql.
Direi che c'è qualcosa che non gli piace su un controllo di
maschera. Dove ti si blocca il codice ?
.
Marco
--------------------------------
Inviato via
http://usenet.iol.it


title: [VBA] Esecuzione query da codice

text:
ond...@liberox.it
 (OndaMax) wrote:
>Dove ti si blocca il codice ?
non si blocca...da quell'errore..
il codice incriminato è questo:
    Dim today As Date	' per la data odierna
    Dim money As Currency ' per l'importo
    Dim materiale As String ' per il materiale
    Dim nazione As String ' per la nazione
    Dim query As String 	'per la query

    today = Date	' leggo la data odierna
    money = txtMoney.Text  ' ricavo da una textbox
    materiale = ccMateriale.Text  ' ricavo da una listbox
    nazione = ccNazione.Text ' ricavo da una listbox

    query = ""
    query = query + "INSERT INTO Vendita ( Data, Importo,
CodiceMateriale, CodiceNazione ) "
    query = query + "VALUES (" + today + ", money, ("
    query = query + "SELECT Materiale.ID FROM materiale "
    query = query + "WHERE Materiale.Descrizione = " +
materiale + " ), "
    query = query + "SELECT Nazione.ID FROM nazione "
    query = query + "WHERE Nazione.Nome = " + nazione + " )"
    query = query + " ) "
' la query soprastante inserisce i dati calcolati nella
tabella Vendita

    DoCmd.RunSQL query 'eseguo la query
grazie mille in anticipo....
--
Lawrence Oluyede
rhy...@myself.com


title: [VBA] Esecuzione query da codice

text:
"Lawrence Oluyede" ha scritto nel messaggio ...
> il codice incriminato è questo:
>
>     Dim today As Date ' per la data odierna
>     Dim money As Currency ' per l'importo
>     Dim materiale As String ' per il materiale
>     Dim nazione As String ' per la nazione
>     Dim query As String 'per la query
>
>     today = Date ' leggo la data odierna
>     money = txtMoney.Text  ' ricavo da una textbox
>     materiale = ccMateriale.Text  ' ricavo da una listbox
>     nazione = ccNazione.Text ' ricavo da una listbox
Ho paura che la proprietà Text ti stia creando dei problemi, dato che
funziona solo se il controllo è attivo (ho anche dei dubbi che sia
applicabile sulle listbox). Fai riferimento direttamente ai valori dei
controlli togliendo il Text; anche sulle listbox dovrebbe essere OK se il
valore Descrizione è quello associato al controllo.
today = Date    ' leggo la data odierna
money = txtMoney    ' ricavo da una textbox
materiale = ccMateriale     ' ricavo da una listbox
nazione = ccNazione     ' ricavo da una listbox
Per semplificare suggerirei addirittura di rinunciare alle variabili di cui
sopra per passare all'Sql direttamente i valori dei controlli di maschera.
Sul codice query Sql non mi pronuncio perchè so troppo poco riguardo alla
tua struttura dati (formati campi tabelle, ID numerico o alfanumerico,
ecc.). Però intravedo già possibili fonti di errore. Ad esempio nella
gestione della data che sarebbe da gestire col format(today, "mm/dd/yy") e
da racchiudere con #. Oppure con alcune variabili stringa in cui mancano gli
apici.
Inoltre trovo un po' complicato l'annidamento di Sql per estrarre gli ID
Materiali e Nazione ... in fondo quell'ID potresti già organizzarlo in
listbox e catturarlo con la proprietà Column [ccMateriale.Column(0)].
Suggerimento ... metti uno Stop prima dell'esecuzione dell'Sql e controlla
dalla finestra immediata la sintassi della query che hai costruito. Con un
po' di pazienza dovresti poterla correggere.
Altrimenti, riposta per chiarimenti  ...
Marco


title: SHIFT+INVIO

text:
Qual'è il modo per disabilitare la possibilità di entrare nel db con
SHIFT+INVIO ?
Si può impostare un altro tasto al posto dello SHIFT ?
Grazie.
U.J.


title: Impostare una tabella "Archivio"

author: Michele

text:
Un saluto al NG.
Sono nuovamente a chiedere alcuni "consigli".
In un DB dove alcuni dati sono soggetti a variazioni
(Es: aggiornamento su Tabella Indirizzi)
cosa dovrei fare per conservare (o copiare) il veccio record in una
tabella "Archivio" lasciando il record aggiornato nella Tabella "Indirizzi!?
Ho letto qualcosa su Query di Accodamento e/o Aggiornamento ma,
non "afferro" il concetto o meglio, non capisco (se queste sono le
soluzioni),
come metterle in pratica.
Forse, mi lascio ingannare dal fatto che quando digito la variazione in un
campo,
ho gi� perso il precedente!?!
Un grazie anticipato per la ...pazienza!
Michele


title: Impostare una tabella "Archivio"

author: Vladimiro Leone

text:

Ciao Michele, una volta creata la Tabella Archivio (vuota), puoi
inserire un pulsante a fianco del record della maschera (origine
record tabella Indirizzi) in modo da avere un pulsante per ogni record
ed inserisci la seguente routine:
Dim ss As DAO.Recordset
Set ss = CurrentDb.OpenRecordset("Archivio")
ss.AddNew
ss!Campo1 = Me.Campo1
ss!Campo2 = Me.Campo2
ecc...
ss.Update
ss.Close
Set ss = Nothing
In questo modo potrai archiviare i vecchi dati prima di modificarli.
Ciao Vladimiro.


title: Impostare una tabella "Archivio"

text:
"Vladimiro Leone" <
vlad...@alice.it
> ha scritto nel messaggio
news:79e49684-37f5-42f8...@p8g2000yqb.googlegroups.com...
> On 8 Gen, 23:49, "Michele" <
michele...@email.it
> wrote:
>> Un saluto al NG.
CUT
> Ciao Michele, una volta creata la Tabella Archivio (vuota), puoi
> inserire un pulsante a fianco del record della maschera (origine
> record tabella Indirizzi) in modo da avere un pulsante per ogni record
> ed inserisci la seguente routine:
>
> Dim ss As DAO.Recordset
> Set ss = CurrentDb.OpenRecordset("Archivio")
> ss.AddNew
> ss!Campo1 = Me.Campo1
> ss!Campo2 = Me.Campo2
> ecc...
> ss.Update
> ss.Close
> Set ss = Nothing
>
> In questo modo potrai archiviare i vecchi dati prima di modificarli.
> Ciao Vladimiro.
Grazie Vladimiro,
funziona che � un piacere!!!!!
Pertanto, ora posso sperimantare ...pseudo-alternative.
In pratica vorrei vedere se, per migliorare la funzionalita�,
sarebbe opportuno che,
dopo aver "copiato il file in archivio", (utilizzando il tuo suggerimento),
appaia,
dopo una qualsiasi modifica,
un MsgBox con l'avviso di
confermare o meno la modifica e quindi,
su Yes o No,
riprendersi i dati dall'archivio o,
tenersi i dati Modificati!
...La strada � lunga ma,
...lascia ben sperare!
Un Caro saluto e grazie ancora!
Ciao
Michele


title: Impostare una tabella "Archivio"

text:
On 10 Gen, 16:12, "Michele" <
michele...@email.it
> wrote:
> "Vladimiro Leone" <
vladil...@alice.it
> ha scritto nel messaggionews:79e49684-37f5-42f8...@p8g2000yqb.googlegroups.com...
>
> > On 8 Gen, 23:49, "Michele" <
michele...@email.it
> wrote:
> >> Un saluto al NG.
>
> CUT
>
>
>
>
>
> > Ciao Michele, una volta creata la Tabella Archivio (vuota), puoi
> > inserire un pulsante a fianco del record della maschera (origine
> > record tabella Indirizzi) in modo da avere un pulsante per ogni record
> > ed inserisci la seguente routine:
>
> > Dim ss As DAO.Recordset
> > Set ss = CurrentDb.OpenRecordset("Archivio")
> > ss.AddNew
> > ss!Campo1 = Me.Campo1
> > ss!Campo2 = Me.Campo2
> > ecc...
> > ss.Update
> > ss.Close
> > Set ss = Nothing
>
> > In questo modo potrai archiviare i vecchi dati prima di modificarli.
> > Ciao Vladimiro.
>
> Grazie Vladimiro,
> funziona che è un piacere!!!!!
> Pertanto, ora posso sperimantare ...pseudo-alternative.
>
> In pratica vorrei vedere se, per migliorare la funzionalitaà,
> sarebbe opportuno che,
> dopo aver "copiato il file in archivio", (utilizzando il tuo suggerimento),
> appaia,
> dopo una qualsiasi modifica,
> un MsgBox con l'avviso di
> confermare o meno la modifica e quindi,
> su Yes o No,
> riprendersi i dati dall'archivio o,
> tenersi i dati Modificati!
>
> ...La strada è lunga ma,
> ...lascia ben sperare!
>
> Un Caro saluto e grazie ancora!
> Ciao
> Michele- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Michele,
basta inserire su Prima di aggiornare della maschera il seguente
codice:
 If MsgBox("Confermare i dati modificati?", vbQuestion + vbCritical +
vbYesNo) = vbNo Then
    Cancel = True
    Me.Undo
    Exit Sub
    End If
Cioè se si sceglie no, tutto ritorna come prima, altrimenti i dati
restano modificati.
Adesso il problema e capire cosa ci vuoi fare con i dati inseriti in
Archivio; eliminarli o lasciarli comunque?
Fammi sapere.
Ciao Vladimiro.


title: Impostare una tabella "Archivio"

text:
"Vladimiro Leone" <
vlad...@alice.it
> ha scritto nel messaggio
news:bc9705af-b799-4016...@o28g2000yqh.googlegroups.com...
On 10 Gen, 16:12, "Michele" <
michele...@email.it
> wrote:
> "Vladimiro Leone" <
vladil...@alice.it
> ha scritto nel
> messaggionews:79e49684-37f5-42f8...@p8g2000yqb.googlegroups.com...
>
> > On 8 Gen, 23:49, "Michele" <
michele...@email.it
> wrote:
> >> Un saluto al NG.
>
> CUT
>
>
>
>
>
> > Ciao Michele, una volta creata la Tabella Archivio (vuota), puoi
> > inserire un pulsante a fianco del record della maschera (origine
> > record tabella Indirizzi) in modo da avere un pulsante per ogni record
> > ed inserisci la seguente routine:
>
> > Dim ss As DAO.Recordset
> > Set ss = CurrentDb.OpenRecordset("Archivio")
> > ss.AddNew
> > ss!Campo1 = Me.Campo1
> > ss!Campo2 = Me.Campo2
> > ecc...
> > ss.Update
> > ss.Close
> > Set ss = Nothing
>
> > In questo modo potrai archiviare i vecchi dati prima di modificarli.
> > Ciao Vladimiro.
>
> Grazie Vladimiro,
> funziona che � un piacere!!!!!
> Pertanto, ora posso sperimantare ...pseudo-alternative.
>
> In pratica vorrei vedere se, per migliorare la funzionalita�,
> sarebbe opportuno che,
> dopo aver "copiato il file in archivio", (utilizzando il tuo
> suggerimento),
> appaia,
> dopo una qualsiasi modifica,
> un MsgBox con l'avviso di
> confermare o meno la modifica e quindi,
> su Yes o No,
> riprendersi i dati dall'archivio o,
> tenersi i dati Modificati!
>
> ...La strada � lunga ma,
> ...lascia ben sperare!
>
> Un Caro saluto e grazie ancora!
> Ciao
> Michele- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Michele,
basta inserire su Prima di aggiornare della maschera il seguente
codice:
 If MsgBox("Confermare i dati modificati?", vbQuestion + vbCritical +
vbYesNo) = vbNo Then
    Cancel = True
    Me.Undo
    Exit Sub
    End If
Cio� se si sceglie no, tutto ritorna come prima, altrimenti i dati
restano modificati.
Adesso il problema e capire cosa ci vuoi fare con i dati inseriti in
Archivio; eliminarli o lasciarli comunque?
Fammi sapere.
Ciao Vladimiro.
...Semplicemente "PERFETTO" !!!
l'unico accorgimento che ho aggiunto, � stato
quello di:
1)  impostare la Maschera per impedirne le modifiche
2) Inserire nel codice del Pulsante (...che copia il record in archivio)
    Me.AllowEdits = True
3) Aggiungere Me.AllowEdits = False nel codice del Msgbox
    per ripristinare la condizione standard della Maschera.
Per quanto attiene i Record "Archiviati",
� bene che restino archiviati ....a prescindere!!!
In questo modo si avranno sempre tracce di chi e quando qualcuno
compie azioni sul record.
Un'ultima cosa,
(solo per curiosit�)
premesso che la Maschera � gi� "Filtrata",
quindi ...solo un record presente per la modifica,
il MsgBox, compare solo se faccio click sulla "matita" che
solitamente avvisa che staimo "intervenendo" sui campi del record.
In Breve, il "Prima di aggiornare" non � scontato ma,
� vincolato al click sulla matita a differenza di una "Maschera Continua",
dove, il MsgBox appare quando si passa su un altro Record!
Comunque, cos� mi st� benissimo,
metter� una Descrizione che invita l'utilizzatore a fare il click
sulla "Matita" !!!
Anche se, chiudendo la Maschera, il MsgBox si "attiva"
Vladimiro, che dirti,
Grazie di tutto!
Probabilmente per te o per gli altri amici del NG
sono soluzioni "Sempliciotte" ma io, purtroppo,
"bazzico" principalmente su Excel e,
premesso che non sono una "Celebrit�" in VBA, non conosco
i termini proprietari di Access che per�, grazie a Voi, sto ...imparando,
(es: stLinkCriteria, DoCmd stDocName etc etc etc)
Ciao,
Michele


title: Impostare una tabella "Archivio"

text:
On 10 Gen, 20:36, "Michele" <
michele...@email.it
> wrote:
> "Vladimiro Leone" <
vladil...@alice.it
> ha scritto nel messaggionews:bc9705af-b799-4016...@o28g2000yqh.googlegroups.com...

Sia una maschera singola che una maschera continua, salvano le
modifiche apportate solo all'uscita dal record. C'è però una
possibilità di salvare il record prima di passare al nuovo record:
metodo Refresh e metodo Requery, entrambi salvano immediatamente le
modifiche apportate. Nel tuo caso è meglio usare il metodo Refresh in
quanto il metodo Requery, se non si interviene con altro codice, ti
porterebbe al primo record della tabella.
Ad es. dopo Aggiornamento o Uscita dall'ultima casella di testo dove
in genere apporti le modifiche inserisci Me.Refresh e vedrai apparire
l'MsgBox.
>
> Comunque, cos mi st benissimo,
> metter una Descrizione che invita l'utilizzatore a fare il click
> sulla "Matita" !!!
> Anche se, chiudendo la Maschera, il MsgBox si "attiva"
>
> Vladimiro, che dirti,
> Grazie di tutto!
> Probabilmente per te o per gli altri amici del NG
> sono soluzioni "Sempliciotte" ma io, purtroppo,
> "bazzico" principalmente su Excel e,
> premesso che non sono una "Celebrit " in VBA, non conosco
> i termini proprietari di Access che per , grazie a Voi, sto ...imparando,
> (es: stLinkCriteria, DoCmd stDocName etc etc etc)
> Ciao,
> Michele- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Vladimiro.


title: MI5 Persecution: who knows about it?

text:
-=-=-=-=-=-=-=-=-=-=-=-=-
-= who knows about it? =-
-=-=-=-=-=-=-=-=-=-=-=-=-
Many people know, both in the establishment and media, and among the
general public. Despite an absence of its target from the UK for more than
two years, the echoes of paranoia can still be heard loud and clear from
across the water. When it started in 1990, the only people who knew were
those in BBC television who were spying on my home, and a few radio
broadcasters. There were a few cases of public harassment, but very little
compared to the situation that developed a couple of years later.
The list today includes BBC TV staff (newsreaders such as Martyn Lewis,
Michael Buerk, Nicholas Witchell), people from radio stations such as
Chris Tarrant of Capital and Radio 1 DJs, people in the print media, but
also many people in the general public. All united in a conspiracy which
breaks the laws which the UK does have regarding harassment, and all
completely uncaring for any semblance of decency or elementary respect
for individual rights.
The British police (obviously) do know the nature of the harassment and in
all probability the identity of those behind it. Some time ago I made a
complaint to my local police station in London, without positive result.
The UK police are failing in their duty to see the law enforced in not
checking the abuse.
2
--
Posted via a free Usenet account from
http://www.teranews.com


title: Selezione campo tabella da codice

text:
Devo selezionare un campo di una tabella non presente nella maschera
tramite il codice vba. Praticamente tramite un evento Click se il campo
o la tabella è vuota, mi deve comparire il messaggio di errore da me
descritto. Sapete come si fa????? Grazie


title: Selezione campo tabella da codice

author: ciroteo da newsland

text:
sarà l'arrivo della primavera ma non ho capito cosa chiedi ...
puoi spiegare con più precisione?
gdra...@gmail.com
 ha scritto:

--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Selezione campo tabella da codice

text:
Praticamente devo creare una stampa che mi avvia una stampa unione con
una tabella la quale verrà compilata da una query di accodamento.
Quindi se  a questa tabella non dovesse essere accodato nessun valore
nei vari campi la stampa non dovrà avvenire visualizzando così un
messaggio da me compilato. Praticamente non so come definire nel codice
vba la tabella in esame. Grazie.


title: Report (come raggruppare su più pagine)

author: Max

text:
Ciao a tutti,
    voglio fare un report che data una query (lista di prodotti e relativi
fornitori) questo mi faccia tante pagine in cui
in alto scrive il nome del fornitore  e di questo la sua lista dei prodotti.
Ho provato un po' a giocare con i raggruppamenti ma non me lo fa su piů
pagine.
Io ho provato a raggruppare per IDFornitore l'intero report ma non funziona,
riesco a raggruppare solo il corpo del report.
Non si puň fare o c'č un modo per fare su piů pagine i diversi fornitori?
grazie
M.


title: Report (come raggruppare su più pagine)

author: Salvatore

text:
"Max" <
chid...@free.it
> ha scritto nel messaggio
news:brkkou$4ed$1...@news.flashnet.it...
> Ciao a tutti,
>     voglio fare un report che data una query (lista di prodotti e relativi
> fornitori) questo mi faccia tante pagine in cui
> in alto scrive il nome del fornitore  e di questo la sua lista dei
prodotti.
> Ho provato un po' a giocare con i raggruppamenti ma non me lo fa su più
> pagine.
> Io ho provato a raggruppare per IDFornitore l'intero report ma non
funziona,
> riesco a raggruppare solo il corpo del report.
> Non si può fare o c'è un modo per fare su più pagine i diversi fornitori?
> grazie
> M.
>
>
Nell'intestazione di pagina inserisci il nome del fornitore.
Aggiungi sul report un'intestazione di gruppo basata su IDFornitore.
Nel corpo aggiungi i controlli legati ai prodotti.
Sulle proprietà dell'intestazione di gruppo appena creata, cerca la voce
"Interruzione di pagina" e settala a "Prima di sezione".
Ciao
Salvatore


title: [Re-Post] Errore A97 solo su alcuni pc (Me.Recordset)

text:
Salve a tutto il NG. Ripropongo un quesito che ho postato stamani senza
esito, sperando in una miglior fortuna.
In un database di Access 97 ho una form con il seguente codice:
Private Sub Form_Load()
    LoadQuestion
End Sub
' execute the query at the source of the form, fill the question label,
' randomize the answers, and store the correct one in a module-level
variable
Private Sub LoadQuestion()
    Dim op(1 To 3) As String ' , op2 As String, op3 As String
    Dim randomArr(0 To 3) As String
    Dim i As Integer, rc As Long
    ' clear all the labels
    lblText.Caption = ""
    lbl1.Caption = ""
    lbl2.Caption = ""
    lbl3.Caption = ""
    lbl4.Caption = ""
    ' initialize the system randomizer, in order to randomly
    ' execute the query
    Randomize
    ' load the recordset from the query
    Me.Recordset.Requery
    Me.Recordset.MoveFirst
    (... il codice continua...)
Il problema è che appena il codice arriva alla riga Me.Recordset.Requery si
blocca e appare l'errore "Impossibile trovare il metodo o il membro dei
dati". Sembra che l'oggetto Recordset non faccia parte dell'insieme delle
proprietà dell'oggetto Me.
La cosa strana però è che questo db si blocca su alcuni pc, mentre su altri
gira normalmente, e io non sono riuscito a capire da cosa dipende. Perfino i
sistemi operativi sono diversi, ma gira e si blocca indifferentemente su
Win98se e su WinXP.
Nella finestra Riferimenti ci sono le seguenti righe:
Visual Basic for Application
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library
Microsoft Visual Basic for Application Extensibility 5.3
Naturalmente mi sono accertato che i riferimenti siano gli stessi anche
sulle macchine dove il db si blocca, ma sembra che questa impostazione sia
ininfluente.
Devo dare questo file a una persona sulla cui macchina non gira, e non
riesco a venirne a capo. Nemmeno su Google ho trovato qualcosa di utile.
Come si fa a far riconoscere ad Access l'oggetto Me.Recordset? Dovrebbe
dipendere da DAO, ma allora perché su altre macchine gira?
Chi mi può aiutare?
Grazie per l'attenzione.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Roberto da casa

text:
"A97" <
nos...@lochiedi.it
> ha scritto nel messaggio
news:82Z190Z206Z25Y1...@usenet.libero.it...

Ho risposto al tuo precedente messagio.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Taglia e incolla un record

author: Metz

text:
Ho una tabella tNomi con una serie di nominativi e relativi indirizzi, ogni
volta che contatto un nominativo vorrei tagliarlo e incollarlo nella tabella
tContattati. Mi piacerebbe poter premere un pulsante nella maschera mNomi
(appoggiata su tNomi) per farlo in modo automatico.
Qualcuno ha qualche idea?
Grazie Metz


title: Taglia e incolla un record

author: Carlo Costarella

text:
"Metz" <
metz...@tin.it
> ha scritto nel messaggio
news:Slz5f.21848$Pe2.4...@twister2.libero.it...

La via più semplice una query di accodamento.
Quella più difficile, tutto da codice.
Ciao, Carlo


title: Taglia e incolla un record

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:435726dd$0$13346$4faf...@reader2.news.tin.it...

Alla query di accodamento ci avevo pensato seguita da una di eliminazione ma
come faccio ad accodare il solo record che sto visualizzando tenendo conto
che nella query di accodamento non posso inserire l'ID causa ID uguali su
entrambe le tabelle?
Grazie Metz.


title: Taglia e incolla un record

text:
"Metz" <
metz...@tin.it
> ha scritto nel messaggio
news:vLS5f.588$65.1...@twister1.libero.it...

Nei criteri della query di accodamento metterai l'id che hai a video, dunque
un solo record.
L'id della tabella di arrivo sarà un contatore o un numerico con duplicati
possibili, visto che devi anche tenere conto di quante volte c'è stato
contatto.
Ciao, Carlo


title: Taglia e incolla un record

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:4359000a$0$20499$4faf...@reader4.news.tin.it...

Ho capito eseguo 2 query una di accodamento e l'altra di eliminazione con
critrio Where dell'ID che sto trattando!
Era più facile di quello che pensassi!!
Grazie mille per l'aiuto..


title: Variare in automatico tabella collegata

author: Dott. Monti

text:
Avrei questa esigenza:
Ho una tabella collegata ad un file dbf
L'utente dovrebbe poter variare tale collegamento (senza cancellare il
collegamento esistente e crearne uno nuovo, tasto destro collega tabella
ecc...)
Utente dovrebbe cliccare su bottone (che io ho creato in apposita maschera)
e per magia... la tabella collegata si collega ad altro dbf avente stesso
nome ma locato in altra directory.
In poche parole, la mia tabella collegata si chiama CLIENTI ed ha i seguenti
parametri "di collegamento"
dBase III;HDR=NO;IMEX=2;DATABASE=C:\DIR1\DIR2\DIR3\X1;TABLE=CLIENTI#DBF
io dovrei riuscire a fargli cambiare ultimo livello di directory, nel mio
esempio X1, inserendo (esempio) X2 o X3 ecc...
in X2, X3, X4 ecc.  esiste sempre un file DBF chiamato CLIENTI.DBF,  quindi
basterebbe variare tale parametro che la mia tabella CLIENTI si trova ad
essere collegata ad altro file
Grazie per una eventuale dritta (non sono il massimo in programmazione
quindi se mi potete inviare del codice)


title: Variare in automatico tabella collegata

author: ALESSANDRO Baraldi

text:
"Dott. Monti" <
monti...@aliceposta.it
> ha scritto nel messaggio
news:NcOmd.352211$35.15...@news4.tin.it...
>
> Avrei questa esigenza:
>
> Ho una tabella collegata ad un file dbf
> L'utente dovrebbe poter variare tale collegamento (senza cancellare il
> collegamento esistente e crearne uno nuovo, tasto destro collega tabella
> ecc...)
Non è possibile, altrimenti la Tabella non si Collega alla nuova FONTE DATI.
Eventualmente puoi memorizzarlo per poi ripristinarlo, anche se secondo me
non serve,
sarà sempre l'utente a voler RICAMBIARE nuovamente la FONTE........
> Utente dovrebbe cliccare su bottone (che io ho creato in apposita
maschera)
> e per magia... la tabella collegata si collega ad altro dbf avente stesso
> nome ma locato in altra directory.
Per magia non succede mai nulla, a parte a JUCAS CASELLA...., ma porta
sfiga..!
Se vai Sul Sito Comune trovi 4/5 esempi di come farlo.
> In poche parole, la mia tabella collegata si chiama CLIENTI ed ha i
seguenti
> parametri "di collegamento"
>
> dBase III;HDR=NO;IMEX=2;DATABASE=C:\DIR1\DIR2\DIR3\X1;TABLE=CLIENTI#DBF
>
>
> io dovrei riuscire a fargli cambiare ultimo livello di directory, nel mio
> esempio X1, inserendo (esempio) X2 o X3 ecc...
>
> in X2, X3, X4 ecc.  esiste sempre un file DBF chiamato CLIENTI.DBF,
quindi
> basterebbe variare tale parametro che la mia tabella CLIENTI si trova ad
> essere collegata ad altro file
>
> Grazie per una eventuale dritta (non sono il massimo in programmazione
> quindi se mi potete inviare del codice)
Io credo che un minimo di sforzo tu lo debba fare.....!
La struttura ad Albero di una risorsa Mappata non è altro che una STRINGA,
quindi se devi spostarti da una Directory ad una Sub non devi fare altro che
prendere la DIR & "NomeSUB\" e sei nella Sub....!
Ripeto che nel SC trovi alcuni esempi che senza grossi sforzi si riescono a
gestire......!
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Access 97 su Office 2000

author: GIGIGNO

text:
Da: "GIGIGNO" <
gco...@tin.it
>
Oggetto: Installazione Access 97
Data: martedě 6 novembre 2001 15.35
Posso installare A97...
dopo aver installato A2000....
...in maniera da poterli utilizzare entrambi!!!!
Grazie e Ciao


title: Access 97 su Office 2000

author: stwe

text:
"GIGIGNO" <
gco...@tin.it
> ha scritto nel messaggio
news:ib6G7.20901$zl4.6...@news2.tin.it...

si, basta che utilizzi una directory diversa
by
stwe


title: Corsi Mondadori - MS Access 2000

author: Enzo Laperchia

text:
Ciao a tutti,
vorrei chiedervi un consiglio.
Ho una discreta conoscenza di Access e ho visto che sul suo
sito la Mondadori ha due corsi dedicati ad Access:
1. Access 2000 VBA Programming
2. Client/Server Applications with Access 2000
Al di la' dei costi (Lit. 1.800.000 cad.) che sarebbero
sostenuti dalla mia societa', volevo sapere se qualcuno di
voi li aveva gia' frequentati, se ne valgono la pena e
qualsiasi altra considerazione vogliate fare.
Dando un'occhiata al programma dei 2 corsi reputo piu'
interessante il secondo del primo (da quello che ho potuto
vedere potrebbero essere considerati come consecutivi),
pero' non e' detto che anche dal primo non si possa
apprendere qualche spunto e/o suggerimento.
Vi riporto anche i link nel caso vogliate dargli
un'occhiata:
1.
http://education.mondadori.it/Corsi/SchedaCorso.asp?CodiceCo
rso=MIE3350&VersioneCorso=2000
2.
http://education.mondadori.it/Corsi/SchedaCorso.asp?CodiceCo
rso=MIE3360&VersioneCorso=2000
Vi ringrazio fin da ora per tutti i commenti che vorrete
fare
ciao e buona giornata
Enzo Laperchia
UR SpA


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Ciao, ho bisogno di sapere come fare per avviare una maschera facendo
doppio click su una casella combinata.
Mi spiego meglio.
Ho una maschera "OrdineCliente" nella quale è presente una casella
combinata collegata alla maschera "AnagraficaClienti" vorrei poter
fare in modo che, dovendo inserire un ordine di un nuovo cliente,
facendo doppio click sulla casella combianata si apra la maschera
"AnagraficaClienti" per poterla aggiornare.
Nelle proprietà della casella combianata ho impostato [Routine evento]
su NON IN ELENCO, SU CLICK e SU DOPPIO CLICK, cos'altro bisogna fare?
(ps: non so assolutamente nulla sul linguaccio SQL)
Grazie mielle
Myc


title: DOPPIO CLICK SU CASELLA COMBINATA

author: Samantha Cicch

text:

Ciao
io faccio così
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_Comando9_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MSC_VIEWDIST"
    stLinkCriteria = "[dist_id]=" & Me![dist_id]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando9_Click:
    Exit Sub
Err_Comando9_Click:
    MsgBox Err.Description
    Resume Exit_Comando9_Click
End Sub
Dim stDocName As String
Dim stLinkCriteria As String
Queste due sono le variabili, di tipo testo=stringa dove stDocName
credo sia Standard document name, cioè dentro la quale poi tu salvi il
nome della maschera da aprire
il stLinkcriteria è sempre di tipo testo e dove gli passi il filtro x
il record che ti apre.
stDocName = "MSC_VIEWDIST" -> dichiaro il nome della maschera da
aprire tra apici
stLinkCriteria = "[dist_id]=" & Me![dist_id]
Gli passa il filtro, dove il campo dist_id (mio campo contatore) è
uguale al controllo che c'è sulla maschera Me![nomecontrollo]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Infine Esegue il comando di apertura di una form=maschera che si
chiama stDocName, con il filtro stlinkcriteria
Questo è VBA visual basic for application credo, ma non sicuramente
SQL
Se vuoi vedere SQL vai in una query e vai in visualizza SQL
Ciao e buon lavoro
Samantha


title: DOPPIO CLICK SU CASELLA COMBINATA

text:

Cmq, il mio è un doppio click sul lato sx della maschera, che è in
modalità maschere continue.
Non credo sia possibile fare doppio click su casella combinata... o
forse sono io ignurant
:) ciau
Samantha


title: DOPPIO CLICK SU CASELLA COMBINATA

author: Antonio Biso

text:
<
m...@hotmail.it
> ha scritto nel messaggio
news:1172139118.7...@v33g2000cwv.googlegroups.com...
Ciao, ho bisogno di sapere come fare per avviare una maschera facendo
doppio click su una casella combinata.
Mi spiego meglio.
Ho una maschera "OrdineCliente" nella quale è presente una casella
combinata collegata alla maschera "AnagraficaClienti" vorrei poter
fare in modo che, dovendo inserire un ordine di un nuovo cliente,
facendo doppio click sulla casella combianata si apra la maschera
"AnagraficaClienti" per poterla aggiornare.
Nelle proprietà della casella combianata ho impostato [Routine evento]
su NON IN ELENCO, SU CLICK e SU DOPPIO CLICK, cos'altro bisogna fare?
Insomma, tutto un po' a casaccio.
Intanto il doppio clic su una combo secondo me non ha senso.
Detto questo, il tuo problema si raffigura solo nel caso di non in elenco.
questo è un esempio
    Response = acDataErrContinue
    msg = "Categoria non presente in archivio!@Si vuole inserire nel sistema
"
    msg = msg & "la nuova Categoria " & NewData & "?@"
    risposta = FormattedMsgBox(msg, vbInformation + vbYesNo, "Conferma
operazione!")
    If risposta = vbYes Then
         DoCmd.OpenForm "Nuova Categoria",,,,,,NewData
    Else
        Categoria.Undo
    End If
su apertura della maschera nuova categoria ho messo che nel controllo
categoria venga messo direttamente il valore me.openargs che è il newdata
passato come parametro
(ps: non so assolutamente nulla sul linguaccio SQL)
Il linguaccio è quello che sta nel boccuccio?
E l'SQL non c'entra niente con il codice
Antonio


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172140089.8...@k78g2000cwa.googlegroups.com...


GGGGGGGGGGRRRRRRRRRRRRRRRR
IL QUOTING!!!!!
Antonio


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
On 22 Feb, 11:39, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172140089.8...@k78g2000cwa.googlegroups.com...
> On 22 Feb, 11:26, "Samantha Cicch" <
samantha.ci...@gmail.com
> wrote:
>
> > On 22 Feb, 11:11,
m...@hotmail.it
 wrote:
>
> > Ciao e buon lavoro
> > Samantha
>
> Cmq, il mio è un doppio click sul lato sx della maschera, che è in
> modalità maschere continue.
>
> GGGGGGGGGGRRRRRRRRRRRRRRRR
>
> IL QUOTING!!!!!
>
> Antonio
ma come,
scrivo sempre sotto il testo che viene quotato!?!?!?!
ok cercherò di sfoltire ;)
Ciao
Samantha


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172140936....@v33g2000cwv.googlegroups.com...

> GGGGGGGGGGRRRRRRRRRRRRRRRR
>
> IL QUOTING!!!!!
>
> Antonio


Umpf
Snort
Antonio


title: DOPPIO CLICK SU CASELLA COMBINATA

text:

> Samantha- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Ciao Samantha,
grazie mille...io sono totalmente ignurant ed infatti non ne capisco
nulla nemmeno di linguaggio VBA, cmq appena posso prova a vedere se
riesco con le indicazioni che mi hai dato.
Intanto grazie.
Myc


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Grazie Antonio,
si, l'hai detto tutto un pò a casaccio...
cmq si, non capisco nulla nemmemo di VBA (che era quello che
intendevo) e di conseguenza no ho capito nulla delle tue indicazioni,
cmq ora provo a vedere cosa riesco a combinare, eventualmente se non
ti spiace ti disturberò ancora  ;o)
grazie
Myc


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
HEEEELP!!! allora..chiedo un'ulteriore cortesia.
La maschera nella quale sto lavorando si chiama "Sottomaschera ordini"
all'interno di questa maschera c'è una casella combinata che ho
chiamato "CCProdotto"
io vorrei fare in modo che cliccando due volte sulla combo
"CCProdotto" si apra la maschera "PRODOTTI"
Qualcuno potrebbe scrivermi in VBA i comandi per fare
quest'operazione?
Grazie mille
Miki Ignurant  ;o(


title: DOPPIO CLICK SU CASELLA COMBINATA

author: sv

text:
m...@hotmail.it
 ha scritto:

Se usi l'autocomposizione vedrai che ti da' del bel codice già pronto.
Se poi trasferisci questo codice sull'evento che più ti serve... il gioco
è fatto....
Ti consiglio inoltre di studiarti un pò i database che la MS ci mette a
disposizione... Northwind, Orders.. e quelli che si creano con
l'autocomposizione...
e poi..
http://www.sitocomune.com
http://www.accessgroup.it
http://www.alessandrobaraldi.it
http://www.donkarl.com/it
.
.
Sarebbe un ottimo inizio..
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: DOPPIO CLICK SU CASELLA COMBINATA

text:

Devi prenderti il testo che ho scritto io
te lo copi e incolli su word
cambi con le tue variabili
vai nella tua maschera e su CCPRODOTTO tasto dx, proprietà, scheda
eventi, fai click su doppioclick, freccia verso il basso [routine
eventi]
e cambi da
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_CBODATA_DblClick
    Dim stDocName As String
    stDocName = "nomedellatuaMaschera"
    DoCmd.OpenForm stDocName, , ,
Exit_CBODATA_DblClick:
    Exit Sub
Err_Comand_CBODATA_DblClick:
    MsgBox Err.Description
    Resume Exit_CBODATA_DblClick
End Sub
IO è da poco che ci lavoro, un mesetto, ma devi cimentarti, e alla
fine impari
Ciao
Samantha


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Grazie mille sv, seguirò il tuo consiglio.
Miki


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Grazie Samantha,
davvero gentile!
Miki


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Ciao Samantha,
grandioso!! con le tue indicazio hanno funzionato, ora ti chiedo
un'altra cosa che pensavo accadesse in automatico ed invece non è
così.
Cliccando due volte sulla Combo si apre la maschera e io inserisco il
nuovo prodotto poi però il prodotto non si aggiunge in automatico
nell'elenco a tendina della combo, devo prima chiudere perchè questo
accada, sai come fare per evitare di dover prima chiudere la maschera?
Miki moltograta


title: DOPPIO CLICK SU CASELLA COMBINATA

text:

:) Devi fare un requery
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_CBODATA_DblClick
    Dim stDocName As String
    stDocName = "nomedellatuaMaschera"
    DoCmd.OpenForm stDocName, , ,
 >>>> a questo punto devi inserire ME!Requery
Exit_CBODATA_DblClick:
    Exit Sub
Err_Comand_CBODATA_DblClick:
    MsgBox Err.Description
    Resume Exit_CBODATA_DblClick
End Sub
E' un F9 e obbliga l'aggiornamento o il requery
prova e fammi sapere se funzia :)
wledonne


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
Grazieeeeeeeeeeeeeee! funziona!! sono molto contenta, grazie
davvero!!!!!
e....
wledonne per sempre e da sempre ***
Miki gasatissima


title: DOPPIO CLICK SU CASELLA COMBINATA

text:
<
m...@hotmail.it
> ha scritto nel messaggio
news:1172160534.5...@p10g2000cwp.googlegroups.com...

Quoto...
*NOD*
Antonio


title: Creation Date di una tabella

author: SiculoDoc

text:
Ciao
Ho una tabella che si chiama sempre allo stesso modo e che di volta in volta
contiene i dati aggiornati, frutto di una estrazione dati che faccio
manualmente da un'altra fonte.
Vorrei sapere come posso estrarre la data di creazione  della tabella in
modo da utilizzare il valore in una query di selezione.
Grazie


title: Creation Date di una tabella

author: Michele (Giò)

text:
"SiculoDoc" <
giovanni...@tele2.it
> ha scritto nel messaggio
news:E1aRh.181$5Y2...@nntpserver.swip.net...

Inserisci questa funzione in un modulo standard
----------------------------
Function DataCreazioneTbl(Tblname As String) As Date
DataCreazioneTbl = CurrentDb.TableDefs(Tblname).DateCreated
End Function
---------------------------
restituisce la data di creazione della tabella passando il nome tabella come variabile.
Saluti


title: Creation Date di una tabella

text:
Michele (Giò)" <
joyl...@alice.it
> ha scritto nel messaggio
news:46153bd6$0$4788$4faf...@reader4.news.tin.it...

Ho provato. Grazie
Ho notato che la funzione mi chiede il nome della tabella. Sapendo che si
chiama sempre Sheet1, posso fare in modo
che non mi venga richesto il nome?
Quale è l'istruzione corretta per dire TBlname=Sheet1?
Grazie


title: Creation Date di una tabella

text:
"SiculoDoc" <
giovanni...@tele2.it
> ha scritto nel messaggio
news:5ccRh.219$5Y2...@nntpserver.swip.net...
> Ho provato. Grazie
> Ho notato che la funzione mi chiede il nome della tabella. Sapendo che si chiama sempre Sheet1,
> posso fare in modo
> che non mi venga richesto il nome?
> Quale č l'istruzione corretta per dire TBlname=Sheet1?
Allora scrivila cosě, naturalmente sostituisci "NomeTabella" con il nome della tua tabella
--------------------
Function DataCreazioneTbl() As Date
DataCreazioneTbl = CurrentDb.TableDefs![NomeTabella].DateCreated
End Function
----------------------
Saluti
Michele(Giň)


title: ucci ucci sento odor di radonucci

author: Alessia

text:
Hei ragazzi...sbaglio o sento che qualcuno mi stà chiamando???
Quando sento odor di festa...dimentico tutto e ricompaio...ma ho chiesto il
permesso però......
Baci a tutti i "vecchiardi"...e un saluto ai "giovani"...
Alessia alias la Topona...


title: ucci ucci sento odor di radonucci

text:
"Alessia" <
les...@libero.it
> ha scritto nel messaggio
news:ar3mmc$mpl$1...@lacerta.tiscalinet.it...

Dato che, visto il periodo e il luogo, salto anche questo raduno,
io farei il bis della volta scorsa: niente raduno e pizza tete-a-tete
tra noi due (...e stavolta paghi tu! ;P).
---
leo_duca


title: ucci ucci sento odor di radonucci

author: Federico Luciani

text:

eila!
all'ora di cena, tornano tutti a casa... ;)
che fine hai fatto?
vieni sempre da queste parti?
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: ucci ucci sento odor di radonucci

text:
>
>Dato che, visto il periodo e il luogo, salto anche questo raduno,
>io farei il bis della volta scorsa: niente raduno e pizza tete-a-tete
>tra noi due (...e stavolta paghi tu! ;P).
>---
>leo_duca
Eccolo qua, ed io che pensavo tu fossi cambiato....mmmmh...
Stanno ancora tutti aspettando la vera storia della tua mancata
partecipazione al raduno....;-)
Ale


title: ucci ucci sento odor di radonucci

text:
>
>eila!
>all'ora di cena, tornano tutti a casa... ;)
Sì Sì Sì Sì......il tam tam della foresta....
>che fine hai fatto?
>vieni sempre da queste parti?
>
Certamente.....mercoledì siamo a Prosecco in birreria...solita
formazione...suonano i Bandomat....fammi sapere se passate....
Ale....


title: ucci ucci sento odor di radonucci

text:
Alessia wrote:
> >che fine hai fatto?
> >vieni sempre da queste parti?
>
> Certamente.....mercoledì siamo a Prosecco in birreria...solita
> formazione...suonano i Bandomat....fammi sapere se passate....
il solito mercoledi, con i Bandomat ;-)
al momento non so,
se passo da quelle parti, ti avviso



title: ucci ucci sento odor di radonucci

text:
> Eccolo qua, ed io che pensavo tu fossi cambiato....mmmmh...
> Stanno ancora tutti aspettando la vera storia della tua mancata
> partecipazione al raduno....;-)
> Ale
Niente pizza!  :)
---
leo_duca


title: ucci ucci sento odor di radonucci

text:
>il solito mercoledi, con i Bandomat ;-)
>
>al momento non so,
>se passo da quelle parti, ti avviso
Bravooo...chiamalo solito...io ci sarò...questo ed anche il prossimo...fammi
un fischio...
A.


title: ucci ucci sento odor di radonucci

text:
>
>Niente pizza!  :)
>---
>leo_duca
>
Cambia cambia discorso.....;-)
A...


title: ucci ucci sento odor di radonucci

author: Luciano (DOC)

text:
Alessia ha scritto nel messaggio ...
>Certamente.....mercoledě siamo a Prosecco in birreria...solita
>formazione...suonano i Bandomat....fammi sapere se passate....
Topona's style forever!:-)
Piacere di rileggerti!
Saluti.
Luciano


title: ucci ucci sento odor di radonucci

text:
Luciano (DOC) ha scritto nel messaggio ...
>
>Alessia ha scritto nel messaggio ...
>
>>Certamente.....mercoledì siamo a Prosecco in birreria...solita
>>formazione...suonano i Bandomat....fammi sapere se passate....
>
>
>Topona's style forever!:-)
>Piacere di rileggerti!
>Saluti.
>
>Luciano
>
Ciao Luciano, che piacere sentirti...speriamo di rivederci presto
Avete notizie di Lbo???
Ale


title: ucci ucci sento odor di radonucci

text:

solito, nel senso che stanno li tutti i mercoledi ;)



title: Inserire un controllo image come sfondo ad un report

author: Francesco

text:
E' possibile inserire come sfondo un controllo image per inserire un
timbro di pagato trasversalmente al report fattura ?; o c'è
un'alternativa al mio problema ?
Le vacanze sono finite. Al lavoro. Grazie


author: MA

text:
"Francesco" <
francov...@tin.it
> ha scritto
nel messaggio
news:79217c6f.0408...@posting.google.com...

Metti il controllo immagine e richiama la
proprietà .picture quando serve
MAssimiliano


text:
"Francesco" <
francov...@tin.it
> ha scritto nel messaggio
news:79217c6f.0408...@posting.google.com...

No, direi che è un'ottima Soluzione.
Fai in modo di leggere un campo Boolean su Apertura del Report
e condizioni la visualizzazione del "PAGATO" a quello.
Tieni conto che:
Il controllo immagine converrebbe salvarlo come BMP fuori
dal Database, quindi per visualizzarlo dovrai fare una cosa simile:
If me.ctlFlagPagato then
    Me.NomeCtlImmagine.Picture=CurrentProject.Pat & "\NomeFile.BMP"
Else
    Me.NomeCtlImmagine.Picture=vbnullstring
End if
L'immagine in BMP dovrai farla a SFONDO bianco o in ogni caso
uguale al colore di stampa in quanto non hai disponibile la trasparenza.
Metti la scritta "PAGATO" in diagonale nella BMP sempre per il fatto
che non riusciresti a girarla, se non con grosse difficoltà di
programmazione.
Per ultimo imposta la visualizzazione del controllo come BackGround
rispetto a tutto il resto per evitare che copra il Documento-
Ti consiglio un Colore Grigio molto chiaro come scritta PAGATO.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: casella di testo che si aggiorna solo con debug

author: Giuseppe

text:
Buon pomeriggio.
Con il seguente codice
Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
Ottengo il numero dell'ultima pagina di una sottomaschera che mi visualizza 14 record per ogni pagina.
Su apertura form principale la sottomaschera è vuota.
Appena eseguo il primo filtro (IdAzienda), la sottomaschera si popola di 48 record ma la casella di testo non associata me.txtUltimaPagina anzichè avere valore 4 ha valore 0.
Se eseguo la routine passo a passo con il debug, invece visualizza correttamente 4.
Ad ogni successivo clic sui pulsanti avanti o indietro il numero di pagina si aggiorna correttamente anche senza debug.
Ho provato in tutti i modi ma non riesco a risolvere.
Grazie
Giuseppe


author: Michele

text:

Arrotonda_Eccesso dove si trova? nel recordsource?
1) perché non lo fai da codice?
2) forse con refresh risolvi


author: Phoenix Coop

text:

Ciao Michele.
Arrotonda_Eccesso è una funzione che ho messo in un modulo.
Ho aggiuntoil me.refresh  dopo
        Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
 ma la casella di testo, solo la prima volta mi mostra 0 , poi se clicco i pulsanti pg.avant o pg. indietro che richiamano la sub dove c'è sempre la riga
 Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
mi dà il risultato corretto.
Con il debug funziona anche la prima volta.
Grazie.
Giuseppe


text:

Nessuna idea?
Io continuo a provare e spostare la riga, ma niente.
Succede anche se vado in modifica di un record.
Quando torna visibile la maschera ha di nuovo 0 come ultiima pagina e non quella corretta.
Buona domenica a tutti.
Giuseppe


text:

Ho risolto inserendo la funzione Timer
Nella routine corrente ho inserito
    Me.TimerInterval = 10
e successivamente
Private Sub Form_Timer()
    Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
End Sub
La casella di testo prima va su 0 e dopo sul numero di pagina corretto.
E' lento e brutto da vedere ma funziona.
Qualsiasi valore indico come intervallo del timer sembra non cambiare la tempistica.
Suggerimenti?
Giuseppe


text:

Devi trovare il giusto evento per far scattare il calcolo facendo varie prove oppure più semplicemente calcola tutto tramite codice.


text:

In effetti Michele, oltre a non piacermi ed esser macchinosa, la soluzone con il timer sembra non funzionare sempre.
Spero di aver trovato la soluzione definitiva.
Sfruttando la query filtrata per l'esportazione in excel, ho calcolato il numero dell'ultima pagina, così:
Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT Count(qsmRiepSociFiltrata.IdSocio) AS ConteggioDiIdSocio FROM qsmRiepSociFiltrata")
    Me.txtUltimaPagina = Arrotonda_Eccesso(rs!ConteggioDiIdSocio / 14, 1)
Grazie ancora.
Giuseppe.


text:

Buongiorno a tutti.
Ripropongo il quesito.
Avevo trovato una soluzione, secondo me macchinosa, con la creazione di una query che mostra i record filtrati nella sottomaschera e su questa query facevo il conteggio dei record presenti nella subform.
Con l'aggiunta di subfiltri anche la query non va più bene.
Possibile che in Vba la riga
Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio / 14, 1)
funzioni solo facendo il debug passo a passo, mentre se tolgo il punto di interruzione mi restituisce 0?
Ho provato a fare requerery della subform con Me!smRiepSoci.Form.Requery
con il refresh della form con me.Form.Refresh
ma il risultato è sempre 0.
Grazie.


author: Ammammata

text:
Il giorno Thu 22 Jul 2021 12:28:39p, *Phoenix Coop* ha inviato su
it.comp.appl.access il messaggio
news:9950af86-7e44-4b89...@googlegroups.com
. Vediamo
cosa ha scritto:

> Possibile che in Vba la riga
> Me.txtUltimaPagina = Arrotonda_Eccesso(Form_smRiepSoci.txtConteggio /
> 14, 1) funzioni solo facendo il debug passo a passo, mentre se tolgo
> il punto di interruzione mi restituisce 0?
>

questa delle cose che funzionano se le esegui passo passo mentre non vanno
se lasci andare il codice è uno dei misteri di cui non mi capacito neppure
io, essendoci in mezzo proprio in questi giorni :(

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


title: HELP - Spero di farmi capire

text:
Ciao a tutti, ecco il problemino:
ho 3 tabelle ed in ogni tabella ho il campo "matricola": vorrei che
inserendo il numero della matricola nella tabella "generale", mi andasse a
finire anche nei campi "matricola" delle altre due tabelle.
Grazie e saluti


title: HELP - Spero di farmi capire

author: sib

text:
Linux-74 <
linu...@yahoo.com
> wrote in message
W11M5.72870$3K3.2...@news.infostrada.it...

Ci sono circa quattordici sistemi per farlo, tutto dipende da cosa devi fare
e da come sono strutturate le tabelle.
Eccoti un sistema:
Dim rst as Recordset
Set rst = CurrentDB.Openrecordset ("TuaTabella2",dbOpenDynaset)
rst.addnew
rst!Matricola=TuaMatricola
rst.update
Da ripetere per ogni tabella. oppure puoi usare una query di accodamento.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: HELP - Spero di farmi capire

author: Roberto da casa

text:
"Linux-74" <
linu...@yahoo.com
> ha scritto nel messaggio
news:W11M5.72870$3K3.2...@news.infostrada.it...

Sono d'accordo con Sib che molto dipende dalla struttura delle tabelle e da
come esse sono in relazione tra di loro.
Puoi anche crearti una maschera principale che abbia come origine record la
tabella principale e che inoltre contenga due sottomaschere che abbiano come
origine record le altre due tabelle.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: altezza righe di un report

author: mario rossi

text:
buongiorno a tutti,

ho un report con un sottoreport voci e dovrei cliccando un pulsante

ricevere l'altezza attuale fra una riga e l'altra in cm (suppongo sia l'altezza del corpo del sottoreport)

e poi settare un valore diverso di altezza riga con un altro pulsante

sapete indicarmi la retta via?

grazie a tutti.


title: altezza righe di un report

text:

volevo dire che dovrei settare un altezza diversa dell'altezza del corpo del sottoreport

è possibile?


title: altezza righe di un report

text:

sono riuscito in questo modo:

    DoCmd.OpenReport "sottoreportvoci", acViewDesign, , , acHidden
    Reports![sottoreportvoci].Report.Section(acDetail).Height = miovalore
    DoCmd.Close acReport, "sottoreportvoci", acSaveYes


title: altezza righe di un report

author: Simone Calligaris

text:
> sono riuscito in questo modo:
>
> DoCmd.OpenReport "sottoreportvoci", acViewDesign, , , acHidden
> Reports![sottoreportvoci].Report.Section(acDetail).Height = miovalore
> DoCmd.Close acReport, "sottoreportvoci", acSaveYes

Tieni conto che tale soluzione non funziona se poi creerai il file .Accde

Saluti


title: altezza righe di un report

text:
> > DoCmd.OpenReport "sottoreportvoci", acViewDesign, , , acHidden
> > Reports![sottoreportvoci].Report.Section(acDetail).Height = miovalore
> > DoCmd.Close acReport, "sottoreportvoci", acSaveYes

> Tieni conto che tale soluzione non funziona se poi creerai il file .Accde
>
> Saluti

P:S:  Ad ogni modo, a meno che non sia cambiato qualcosa in recenti versioni, su evento "apertura" del sottoreport puoi personalizzare a Runtime il .Height del Corpo.


title: altezza righe di un report

text:

Infatti ho il seguente problema:
al cliente ho installato ovviamente il file ACCDE e mi esce il messaggio che con quel formato non è possibile aprire in struttura il report quindi non posso usare la mia soluzione

avevo anche provato ad assegnare su formattazione del sottoreport qualcosa tipo me.section(AcDetail).height=300
ma mi è uscito un messaggio che la proprietà era in sola lettura

qualcuno sa come posso fare a riuscire a cambiare l'altezza a runtime in modo che tale funzionalità funzioni anche con il formato accde?

grazie.


title: altezza righe di un report

text:
Il giorno venerdì 9 settembre 2022 alle 11:43:13 UTC+2 Simone Calligaris ha scritto:

Stavo pensando per esempio ad avere il report in un db esterno ma immagino che questa soluzione mostrerebbe un altra sessione di access che si apre quando richiamo il report esterno al db principale.


title: altezza righe di un report

text:
Il giorno venerdì 9 settembre 2022 alle 11:43:13 UTC+2 Simone Calligaris ha scritto:

fonte:
https://support.microsoft.com/it-it/office/propriet%C3%A0-height-12010a9c-4009-4398-9e6c-fc65a74283be

cito:
Per le sezioni dei report, non è possibile usare una macro o il codice VBA per impostare la proprietà Height quando si stampa o si visualizza l'anteprima di un report. Per i controlli dei report, è possibile impostare la proprietà Height quando si stampa o si visualizza l'anteprima di un report solo usando una macro o una routine evento specificata nell'impostazione della proprietà evento OnFormat di una sezione.


title: altezza righe di un report

text:
> avevo anche provato ad assegnare su formattazione del sottoreport qualcosa tipo me.section(AcDetail).height=300
> ma mi è uscito un messaggio che la proprietà era in sola lettura
>
> qualcuno sa come posso fare a riuscire a cambiare l'altezza a runtime in modo che tale funzionalità funzioni anche con il formato accde?

Ma non te l'avevo già scritto?
Evento open sottoreport: puoi impostare a codice il .height del corpo.

Saluti


title: altezza righe di un report

text:

Pardon mi era sfuggito, ora provo grazie.


title: altezza righe di un report

text:
Se quanto suggerito da Simone non funziona metti un controllo nascosto ed usalo per ridimensionare la Sezione come ti serve.

@Alex


title: altezza righe di un report

text:
Il giorno venerdì 9 settembre 2022 alle 17:45:24 UTC+2 @Alex ha scritto:
> Se quanto suggerito da Simone non funziona metti un controllo nascosto ed usalo per ridimensionare la Sezione come ti serve.
>
> @Alex

grazie per il consiglio, quanto suggerito da Simone funziona che è una meraviglia, non capisco perché allora Microsoft come da mia citazione messaggio precedente scriva che non si può a runtime, forse ho capito male io.

ho un altro problemino, se cambio altezza corpo vorrei che i campi qta prezzounitario e totale fossero perfettamente al centro rispetto all'altezza del corpo
ovviamente non la descrizione che partirà da metà e poi si estende

ho fatto così ma qualcosa non torna non è perfettamente centrato

Me.Qta.TopMargin = ((Me.Section(acDetail).Height - Me.Qta.Height) / 2)

ovvero se il corpo è alto 1500 twip e la casella di testo qta è alta 50 twip il marginetop sarà
(1500-50)/2 =725

forse però è più corretto sottrarre metà dell'altezza di qta?


title: altezza righe di un report

text:

confermo funziona anche con accde grazie., su open però imposta un valore unico per tutti, sai se è possibile farlo anche per ogni singola riga?
esempio 3 righe

1 riga alta 1000 twip
1 riga alta 500 twip
1 riga alta 1300 twip


title: altezza righe di un report

text:
> > Evento open sottoreport: puoi impostare a codice il .height del corpo.

> confermo funziona anche con accde grazie., su open però imposta un valore unico per tutti, sai se è possibile farlo anche per ogni singola riga?
> esempio 3 righe

> 1 riga alta 1000 twip
> 1 riga alta 500 twip
> 1 riga alta 1300 twip

Quanto chiedi, a meno che non sia cambiato qualcosa in recenti versioni, non è fattibile.
Utilizzando un oggetto nascosto (nella Sezione) da ridimensionare a Runtime, puoi aumentare anche su evento "formattazione" la dimensione della sezione Corpo, però poi vale per tutte le Righe.

Saluti


title: altezza righe di un report

text:

Sei certo di questa affermazione...?
L'evento Format della Sezione si verifica quando viene generata la Sezione Stessa, ogni volta che viene generata, e,  secondo me se tu modifichi la proprietà Height della Sezione, questa a Runtime cambia per OGNI sezione in modo indipendente.

Magari verificalo anche tu, io una prova veloce l'ho fatta e mi pare cos'.

@Alex


title: altezza righe di un report

text:
> Sei certo di questa affermazione...?
> L'evento Format della Sezione si verifica quando viene generata la Sezione Stessa, ogni volta che viene generata, e, secondo me se tu modifichi la proprietà Height della Sezione, questa a Runtime cambia per OGNI sezione in modo indipendente.
>
> Magari verificalo anche tu, io una prova veloce l'ho fatta e mi pare cos'.

Probabilmente ricordo male, ora non ho proprio tempo per testare la cosa: mi fido di quanto scrivi ;-)

Saluti

P:S: Quindi, è realizzabile la richiesta di tmtu?  (altezza differente della sezione corpo per "ogni" riga)  ... sicuro?


title: altezza righe di un report

text:

Bella questa "...mi fido di quanto scrivi", ma chiedi se sono sicuro...! ;-)
Che devo dire...? Fate voi.

@Alex


title: altezza righe di un report

text:
> Bella questa "...mi fido di quanto scrivi", ma chiedi se sono sicuro...! ;-)

Beh, senti: se ti va di provare facci sapere, altrimenti resteremo nel dubbio.

Saluti


title: altezza righe di un report

text:

Ma hai letto quello che avevo scritto...?
Mi sa di no...

@Alex


title: altezza righe di un report

text:
> > > Magari verificalo anche tu, io una prova veloce l'ho fatta e mi pare cos'.

Allora, ora la prova l'ho fatta pure io: non ricordavo affatto che la proprietà .Height del Corpo fosse modificabile a Runtime su eventi diversi da "Apertura".
E invece funziona senza problemi "su formattazione" anche con versioni antiche di Access (perlomeno dalla 2003).

Quindi, in definitiva, è possibile alzare e abbassare il corpo di un Report "riga per riga".

Saluti


title: altezza righe di un report

text:

opperbacco, veramente?

a questo punto potrei mettere un campo altezza nella tabella fatturevoci e dare ad ogni riga l'altezza che voglio?

mi pareva di aver provato e mi aveva dato un messaggio tipo "proprietà di sola lettura" mettendo su formattazione questo codice
me.section(acdetail).height=500

mi mandi l'istruzione che hai usato su formattazione per avere righe di altezza diversa?


title: altezza righe di un report

text:
> a questo punto potrei mettere un campo altezza nella tabella fatturevoci e dare ad ogni riga l'altezza che voglio?
>
> mi pareva di aver provato e mi aveva dato un messaggio tipo "proprietà di sola lettura" mettendo su formattazione questo codice
> me.section(acdetail).height=500
>
> mi mandi l'istruzione che hai usato su formattazione per avere righe di altezza diversa?

Mah, "su formattazione" della sezione ho semplicemente forzato il  me.<NomeSezione>.Height=<Valore>
Ma è la stessa cosa che hai fatto tu: strano che non ti vada...

Che versione di Access utilizzi?

Saluti


title: altezza righe di un report

text:

Oggi riprovo poi ti aggiorno


title: altezza righe di un report

text:

niente da fare ho aggiunto un campo altezza alla tabella voci del report
ho messo valori diversi tipo una riga alta 0,82 cm un altra altra 4,00 cm che poi moltiplico per 567 che sono i twip di un centimetro
in formattazione report voci ho messo

    Me.Section(acDetail).Height = Me.AltezzaRiga * 567

se eseguo il debug vedo scorrere i vari valori 0,82 per la prima riga e 4 per la seconda ma poi in anteprima sono tutte alte 4 cm
un aiuto?


title: altezza righe di un report

text:
> niente da fare ho aggiunto un campo altezza alla tabella voci del report
> ho messo valori diversi tipo una riga alta 0,82 cm un altra altra 4,00 cm che poi moltiplico per 567 che sono i twip di un centimetro
> in formattazione report voci ho messo
>
> Me.Section(acDetail).Height = Me.AltezzaRiga * 567
>
> se eseguo il debug vedo scorrere i vari valori 0,82 per la prima riga e 4 per la seconda ma poi in anteprima sono tutte alte 4 cm
> un aiuto?

Strano, che versione di Access?

Saluti


title: altezza righe di un report

text:

Sicuro che sei in ANTEPRIMA w non in modalità  LAYOUT...?

@Alex


title: condizioni

author: Luciano

text:
ciao
ho una macro Autoexec che come azione ha Apriquery. Tutte le volte che apro
il Db naturalmente la macro apre la query. Vorrei però, visto che è una
query che contiene dati solo in determinate condizioni (eventuali compleanni
di clienti), fare in modo che la macro apra la query "Compleanni" solo se
contiene record, altrimenti no.
Come si può fare?
grazie


title: condizioni

author: Antonio Biso

text:
"Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
news:amzfc.6385$l27....@news.edisontel.com...
La risposta c'è, ma il tuo subject non è significativo del problema.
Riprova!
Antonio


title: condizioni

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:qnzfc.4334$Qc.1...@twister1.libero.it...

Ho una query che con questo SQL
SELECT RESIDENTI.Nome AS Espr1, RESIDENTI.Cognome AS Espr2,
RESIDENTI.DataDiNascita AS Espr3
FROM RESIDENTI
WHERE (((Format([DataDiNascita],'mmdd')) Between Format(Date(),'mmdd') And
Format(Date()+2,'mmdd')));
quando la eseguo mi mostra se ci sono dei Residenti che 2 giorni dopo
compiranno gli anni. Se nessuno dei clienti nel database compie gli anni
dopodomani la query non mostra record. Ma la macro Apryquery autoexec apre
lo stesso.Vorrei fare in modo che la macro apra la query "Compleanni" solo
se contiene record, altrimenti no.
mi sembra più chiaro
grazie


title: condizioni

text:
"Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
news:sRzfc.6394$l27...@news.edisontel.com...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:qnzfc.4334$Qc.1...@twister1.libero.it...
> > "Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
> > news:amzfc.6385$l27....@news.edisontel.com...
> >
> > La risposta c'č, ma il tuo subject non č significativo del problema.
> > Riprova!
> >
> > Antonio
> >
Il subject č il titolo del post, non il contenuto.
A me bastava la prima descrizione del problema, ma il subject non andava
bene.
Replica a questo post, stesso thread, ma cambiando il subject e mettendo il
testo che vuoi, il primo o il secondo
Antonio


title: condizioni

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:_fAfc.127772$Kc3.4...@twister2.libero.it...

> Ho una query che con questo SQL
SELECT RESIDENTI.Nome AS Espr1, RESIDENTI.Cognome AS Espr2,
RESIDENTI.DataDiNascita AS Espr3
FROM RESIDENTI
WHERE (((Format([DataDiNascita],'mmdd')) Between Format(Date(),'mmdd') And
Format(Date()+2,'mmdd')));
quando la eseguo mi mostra se ci sono dei Residenti che 2 giorni dopo
compiranno gli anni. Se nessuno dei clienti nel database compie gli anni
dopodomani la query non mostra record. Ma la macro Apryquery autoexec apre
lo stesso.Vorrei fare in modo che la macro apra la query "Compleanni" solo
se contiene record, altrimenti no.
mi sembra piů chiaro
grazie


title: condizioni

text:
"Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
news:ytAfc.6406$l27....@news.edisontel.com...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> >
> > Il subject è il titolo del post, non il contenuto.
> > A me bastava la prima descrizione del problema, ma il subject non andava
> > bene.
> > Replica a questo post, stesso thread, ma cambiando il subject e mettendo
> il
> > testo che vuoi, il primo o il secondo
> >
> > Antonio
Mah... si poteva fare meglio tipo:
"Eseguire query solo se restituisce dati"
comunque, premiamo la buona volontà
> >
> > Ho una query che con questo SQL
>
> SELECT RESIDENTI.Nome AS Espr1, RESIDENTI.Cognome AS Espr2,
> RESIDENTI.DataDiNascita AS Espr3
> FROM RESIDENTI
> WHERE (((Format([DataDiNascita],'mmdd')) Between Format(Date(),'mmdd') And
> Format(Date()+2,'mmdd')));
>
> quando la eseguo mi mostra se ci sono dei Residenti che 2 giorni dopo
> compiranno gli anni. Se nessuno dei clienti nel database compie gli anni
> dopodomani la query non mostra record. Ma la macro Apryquery autoexec apre
> lo stesso.Vorrei fare in modo che la macro apra la query "Compleanni" solo
> se contiene record, altrimenti no.
Nella condizioni della macro metti dcount("*";"compleanni") > 0
Antonio


title: condizioni

author: namor

text:
Antonio Biso ha scritto:
> "Luciano" <
l...@luckymain.org
> ha scritto nel messaggio
[cut]
> Replica a questo post, stesso thread, ma cambiando il subject e mettendo
> il testo che vuoi, il primo o il secondo
> Antonio
Ciò perchè se qualcuno dovesse in futuro avere lo stesso problema e fare
una ricerca nei post vecchi per vedere se era già stata proposta una
soluzione, sarà assai difficile che trovi un post con un oggetto così
generico.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: evento su scaricamento

author: Franco

text:
ho inserito su scaricamento questo codice:
If IsNull(Me!DATA) Then
    If MsgBox("Normalmente devi iserire la Data;" & _
                " Vuoi chiudere la maschera ugualmente?", _
                    vbYesNoCancel, "Mancano dati") <> vbYes Then

        Cancel = True
    End If
End If

ora vorrei che se nel controllo CboCliente  non ci fosse il cliente inserito
la maschera si chiuda senza la domanda.
Come devo fare?

ho provato con:
if IsNull(Me!DATA)  and isNull(me!CboCliente) Then
ecc.
ma non funziona
Grazie


title: evento su scaricamento

author: Karl Donaubauer

text:

Prova con il contrario:

if IsNull(Me!DATA) and Not isNull(me!CboCliente) Then

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


title: evento su scaricamento

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:9p51ff...@mid.individual.net...

grazie Karl
appare la finestra comunque


title: evento su scaricamento

text:
Franco wrote:
> "Karl Donaubauer ha scritto ...
>>> ho inserito su scaricamento questo codice:
>>> If IsNull(Me!DATA) Then
>>>    If MsgBox("Normalmente devi iserire la Data;" & _
>>>                " Vuoi chiudere la maschera ugualmente?", _
>>>                    vbYesNoCancel, "Mancano dati") <> vbYes Then
>>>
>>>        Cancel = True
>>>    End If
>>> End If
>>>
>>> ora vorrei che se nel controllo CboCliente  non ci fosse il
>>> cliente inserito la maschera si chiuda senza la domanda.
>>> Come devo fare?
>>>
>>> ho provato con:
>>> if IsNull(Me!DATA)  and isNull(me!CboCliente) Then
>>> ecc.
>>> ma non funziona
>>
>> Prova con il contrario:
>>
>> if IsNull(Me!DATA) and Not isNull(me!CboCliente) Then
>> ...
> appare la finestra comunque

Prova se la tua combo è veramente vuota p.e. con

MsgBox "Null: " & IsNull(Me!DATA)

prima dell'altro codice.



title: evento su scaricamento

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:9p53ii...@mid.individual.net...

ho inserito sull'evento su scaricamento il solo codice
MsgBox "Null: " & IsNull(Me!CboCliente)
e in effetti ho null: Falso
sebbene la combo sia vuota

com è possibile?


title: evento su scaricamento

author: Alessandro Cara

text:
Il 04/02/2012 17.29, Franco ha scritto:
[cut]
> ho inserito sull'evento su scaricamento il solo codice
> MsgBox "Null: "&  IsNull(Me!CboCliente)
> e in effetti ho null: Falso
> sebbene la combo sia vuota
>
> com è possibile?
Perche' "empty" (vuoto) e "null" (sconosciuto) sono due cose diverse.

--

ac (x=y-1)