title: Creazione automatica record

text:
"Catlory" <
cat...@libero.it
> ha scritto nel messaggio
news:1120144096.0...@g43g2000cwa.googlegroups.com...
Per i mutui la data di fine c'è mentre x il mio stipendio spero sia un
po' in là!Hai un'idea da dove posso partire o dove posso trovare delle
"ispirazioni"?grazie
Scherzi a parte, ti spiego... se hai una singola scadenza (Es. Scadenza in
data 15/12/05), con un operazione di apertura recordset e aggiunta record
singolo, risolvi la questione... ma se le scadenze iniziano ad avere una
cadenza (giornaliera, settimanale, mensile, etc...) la cosa cambia, perchè,
il sistema dovrebbe aggiungere n record, e non più uno. La cosa in se e per
se non si differenzia molto dalla scadenza singola se non fosse per il,
quanti record l'automazione dovrà inserire? Nel senso... 10, 15, 100 record
di scadenze? Ecco perchè ti consiglio di decidere prima questo prima di
passare all'azione... ti consiglio di farlo a scadenza o di data o di numero
di scadenze.


title: Creazione automatica record

author: Catlory

text:
Direi che per gli stipendi metterò un campo numero occorrenze
aggiornabile..e anche per le alte cose.Per i recordset trovo del codice
sul sito comune?grazie mille x i consigli.Buona serata


title: Creazione automatica record

author: Pablitomf (Maurizio Facciuti)

text:
"Catlory" <
cat...@libero.it
> ha scritto nel messaggio
news:1120148544.8...@g14g2000cwa.googlegroups.com...
Direi che per gli stipendi metterò un campo numero occorrenze
aggiornabile..e anche per le alte cose.Per i recordset trovo del codice
sul sito comune?grazie mille x i consigli.Buona serata
Posta la struttura della tua tabella... domani gli do uno sguardo...


title: Creazione automatica record

text:
Ho la classica tabella coi dati dei dipendenti(nome,cognome,ecc) in
relazione (1-n) con dei pagamenti mensili che variano di mese in mese e
vengono inseriti a mano da una maschera.Nella tabella stipendi
ho:idPagamento,mese,anno,lordo,netto,totale trattenute.Devo mettere
tutti gli stipendi nella tabella della banca ogni 15 del mese(x fare
stime di entrate ed uscite) e non so dove mettere mano(nonstante la
laurea in ing.informatica!)Grazie x l'aiuto


title: Creazione automatica record

author: Sergio MAZZA

text:
"Catlory" <
cat...@libero.it
> ha scritto nel messaggio news:1120143477.6...@g14g2000cwa.googlegroups.com...

[risposta]
Tenendo presente quello che ti ha detto Pablitomf riguardo all'analisi, puoi ispirarti all'help in linea studiando le query di
accodamento, le funzioni di manipolazione delle date (Date, DateDiff, CDate, Year, Month, Day etc. etc.)...
Ciao.
--
Sergio MAZZA


title: Creazione automatica record

text:
"Catlory" <
cat...@libero.it
> ha scritto nel messaggio
news:1120202452.7...@g44g2000cwa.googlegroups.com...
> Ho la classica tabella coi dati dei dipendenti(nome,cognome,ecc) in
> relazione (1-n) con dei pagamenti mensili che variano di mese in mese e
> vengono inseriti a mano da una maschera.
Ing.Informatico... in italiano è preferibile (diciamo corretto) "con i" al
posto di "coi"... ;-)
> Nella tabella stipendi
> ho:idPagamento,mese,anno,lordo,netto,totale trattenute.Devo mettere
> tutti gli stipendi nella tabella della banca ogni 15 del mese(x fare
> stime di entrate ed uscite) e non so dove mettere mano(nonstante la
> laurea in ing.informatica!)
Azz... stiamo a posto! :-D
Senti, o me la spieghi per bene, o desisti nel chiedere aiuto... Questa
Tabella della banca è una terza tabella? ...poi parli di "tutti gli
stipendi... ogni 15 del mese"... ma tutti quali? tutti tutti, o gli ultimi
inseriti?... o mi chiarisci il tutto (significa proprio tutto) o non posso
aiutarti.
>Grazie x l'aiuto


title: caratteri ascii particolari

author: facso

text:
Salve a tutti!!!
Vorrei inserire i seguenti caratteri in una etichetta da codice:
→ con valore decimale 26 ed esadecimale 1AH
► con valore decimale 16 ed esadecimale 10H
Il problema è che entrambi sono codici ascii di controllo. Come si fa
ad inserirli in una etichetta come simboli? Il comando dovrebbe essere
Etichetta.Caption = ...cosa? Vanno usate le funzioni Chr ed Hex? In che
modo?
Grazie...


title: caratteri ascii particolari

author: Cinzia

text:
--
"facso" <-
fac...@libero.it
> ha scritto nel messaggio
news:1158221321.5...@m73g2000cwd.googlegroups.com...
Salve a tutti!!!
Vorrei inserire i seguenti caratteri in una etichetta da codice:
? con valore decimale 26 ed esadecimale 1AH
? con valore decimale 16 ed esadecimale 10H
Il problema è che entrambi sono codici ascii di controllo. Come si fa
ad inserirli in una etichetta come simboli? Il comando dovrebbe essere
Etichetta.Caption = ...cosa? Vanno usate le funzioni Chr ed Hex? In che
modo?
Ciao facso,
Etichetta.Caption = Chr$(26)  & "Quello che vuoi tu"
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


title: caratteri ascii particolari

text:
> Etichetta.Caption = Chr$(26)  & "Quello che vuoi tu"
Ti ringrazio Cinzia, ma "Quello che voglio io" non riesco ad
ottenerlo... ;-)
Ciò che non riesco a fare è inserire il simbolo attraverso la
combinazione di tasti Alt-26. Probabilmente perché i primi 32 codici
ascii sono di controllo...


title: caratteri ascii particolari

author: Paolo Dal Bosco

text:
"facso" <-
fac...@libero.it
> ha scritto nel messaggio
news:1158229582.0...@k70g2000cwa.googlegroups.com...
> Etichetta.Caption = Chr$(26)  & "Quello che vuoi tu"
Ti ringrazio Cinzia, ma "Quello che voglio io" non riesco ad
ottenerlo... ;-)
Ciň che non riesco a fare č inserire il simbolo attraverso la
combinazione di tasti Alt-26. Probabilmente perché i primi 32 codici
ascii sono di controllo...
------------------------------
non gettare la spugna!
prova cosě:
Dim a As String
a = Chr(31)
Me.Etichetta1.Caption = a
Ciao
Paolo


title: caratteri ascii particolari

text:
> non gettare la spugna!
> prova così:
>
> Dim a As String
> a = Chr(31)
> Me.Etichetta1.Caption = a
Non getto la spugna, ma anche così non funge...


title: caratteri ascii particolari

text:
"facso" <-
fac...@libero.it
> ha scritto nel messaggio
news:1158238777.4...@e3g2000cwe.googlegroups.com...
> non gettare la spugna!
> prova cosě:
>
> Dim a As String
> a = Chr(31)
> Me.Etichetta1.Caption = a
Non getto la spugna, ma anche cosě non funge...
-----------------------------------------------
allora il decimale 16 corrisponde a: ^P
e       il  decimale 26                   a: ^Z
utilizzi solo questi due valori decimali?
Ciao
Paolo


title: caratteri ascii particolari

author: giorgio rancati

text:
"facso" <-
fac...@libero.it
> ha scritto nel messaggio
news:1158221321.5...@m73g2000cwd.googlegroups.com...
Salve a tutti!!!
>Vorrei inserire i seguenti caratteri in una etichetta da codice:
>? con valore decimale 26 ed esadecimale 1AH
>? con valore decimale 16 ed esadecimale 10H
>Il problema è che entrambi sono codici ascii di controllo. Come si fa
>ad inserirli in una etichetta come simboli? Il comando dovrebbe essere
>Etichetta.Caption = ...cosa? Vanno usate le funzioni Chr ed Hex? In che
>modo?
Ciao facso, bisogna usare i caratteri unicode.
esempio
----
 Me.Etichetta1.Caption = ChrW(&H2192)
 Me.Etichetta2.Caption = ChrW(&H25BA)
----
>Grazie...
prego
ciao
--
Giorgio Rancati
[Office Access MVP]


title: caratteri ascii particolari

text:
> Ciao facso, bisogna usare i caratteri unicode.
> esempio
> ----
>  Me.Etichetta1.Caption = ChrW(&H2192)
>  Me.Etichetta2.Caption = ChrW(&H25BA)
> ----
>
> >Grazie...
> prego
> ciao
> --
> Giorgio Rancati
> [Office Access MVP]
Bisognava proprio usare i caratteri unicode!!!
Ringrazio Giorgio e tutti per la collaborazione...


title: Snapshot Errore di run time con Access 2000

author: Pabel

text:
Ciao a tutti, vi spiego il mio problema
Volevo con un pulsante all'interno della maschera fatture poter creare un
file "snapshot" della fattura in questione, premetto che non so usare il
vba, ma scopiazzando qua e la qualcosa riesco a fare, il codice sottostante,
funziona perfettamente con Access XP, mentre se lo uso con Access 2000 mi da
il seguente errore nel punto con *
Errore di run time 2282
I formati che consentono di inviare i dati ad un file in formato di
microsoft excel ecc. ecc. sono mancanti nel registro di configurazione di
windows.
Private Sub Comando549_Click()
 With CodeContextObject
        If (.pagato = False) Then
        Beep
        MsgBox "TI RICORDO CHE QUESTA FATTURA NON E' REGISTRATA", vbOKOnly,
""
        End If
'Crea le variabili
        Dim DirBackup As String
        Dim DataF As String
        Dim NomeFile As String
        Dim StringaF As String
'Creazione path (percorso) di backup
        DirBackup = "C:\programmi\eurofatture\Backup\"
        DataF = (Year([data fattura]))
        NomeFile = " Fattura N° " & [Numero fattura] & "-" & DataF & ".snp"
        StringaF = DirBackup & NomeFile
        DoCmd.OpenReport "fattura", acViewPreview, "", "[ID
fattura]=[Forms]![fatture]![ID fattura]"
        *DoCmd.OutputTo acReport, "Fattura", "Formatosnapshot(*.snp)",
StringaF, False
    End With
End Sub
Un sentito grazie a tutti quelli che mi possono aiutare.
Pabel


title: vedere solo form

author: Lenny

text:
è possibile aprire un db access senza la finestra intera del programma
access (XP)?
grazie.
Lenny


title: vedere solo form

author: Karl Donaubauer

text:
Lenny ha scritto:
> è possibile aprire un db access senza la finestra intera del programma
> access (XP)?
http://groups.google.com/groups?&selm=a5lqik$8fdsg$1...@ID-46617.news.dfncis.de
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: vedere solo form

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:bjms80$l0cgm$1...@ID-46617.news.uni-berlin.de...

mille grazie.
sarebbe possibile magari avere una icona nella task bar quando riduce a
icona?
Lenny


title: Per Roberto a proposito di WinMe+ Access97

text:
Ciao Roberto,
 scusami se affronto questo argomento con due giorni di ritardo rispetto
alla tua richiesta di verifica.
In una delle partizioni del mio PC (PIII 500 Mhz 128 MB RAM) ho installato
WinMe e Access97 ho provato ad eseguire il codice che hai postato e mi dà lo
stesso errore che dà a te e cioè " Errore di run-time 5 Chiamata di Routine
o argomento non validi" e nei dettagli spiega che si è verificato un errore
nel file della guida per cui consiglia di aggiornare la guida stessa.
Purtroppo non ho una preparazione sufficiente per poter esprimere delle
opinioni in merito, e quindi , a parte riferirti i risultati di questa
verifica, l'unica cosa che posso fare è cercare qualche notizia in rete.
Appena torno a casa mi ci dedico.
Per il momento ti saluto e ringrazio Te come tutto il ng per l'aiuto che ci
date.
Ciao da Michele
P.S.
Io invece ho un altro problema con Win2k e Access2k, ogni volta che cerco di
consultare la guida in linea di VBA su alcuni metodi o proprietà(non su
tutti) mi dà un messaggio di errore nel file della guida e che Access
provvederà a riparare tale errore con l'uso del CD di installazione.
Preciso che ho installato Office2k con l'opzione di esecuzione completa dal
PC locale, l'ho disinstallato e reinstallato decine di volte ormai (anche il
SO Win2k) ma sempre con lo stesso risultato.
Pensi che debba installare qualche patch o aggiornamento per O2k in W2k?
Cia ancora e grazie.


author: Roberto da casa

text:
"imi.electrics" <
imi.el...@libero.it
> ha scritto nel messaggio
news:OmY46.238415$hk4.11...@news.infostrada.it...
> Ciao Roberto,
>  scusami se affronto questo argomento con due giorni di ritardo rispetto
> alla tua richiesta di verifica.
> In una delle partizioni del mio PC (PIII 500 Mhz 128 MB RAM) ho installato
> WinMe e Access97 ho provato ad eseguire il codice che hai postato e mi dà
lo
> stesso errore che dà a te e cioè " Errore di run-time 5 Chiamata di
Routine
> o argomento non validi" e nei dettagli spiega che si è verificato un
errore
> nel file della guida per cui consiglia di aggiornare la guida stessa.
> Purtroppo non ho una preparazione sufficiente per poter esprimere delle
> opinioni in merito, e quindi , a parte riferirti i risultati di questa
> verifica, l'unica cosa che posso fare è cercare qualche notizia in rete.
> Appena torno a casa mi ci dedico.
Ti ringrazio moltissimo per la tua premura. Quello che tu dici mi fa
ipotizzare che qualche release di W Me potrebbe essere bacata, quindi mi
resta la speranza che prima o poi arriverà una patch.
Se ne avrai, gradirò sicuramente avere notizie sulle tue ricerche in rete.
> Per il momento ti saluto e ringrazio Te come tutto il ng per l'aiuto che
ci
> date.
Un grazie a te.
> Ciao da Michele
> P.S.
>
> Io invece ho un altro problema con Win2k e Access2k, ogni volta che cerco
di
> consultare la guida in linea di VBA su alcuni metodi o proprietà(non su
> tutti) mi dà un messaggio di errore nel file della guida e che Access
> provvederà a riparare tale errore con l'uso del CD di installazione.
> Preciso che ho installato Office2k con l'opzione di esecuzione completa
dal
> PC locale, l'ho disinstallato e reinstallato decine di volte ormai (anche
il
> SO Win2k) ma sempre con lo stesso risultato.
> Pensi che debba installare qualche patch o aggiornamento per O2k in W2k?
> Cia ancora e grazie.
>
Se con Access un pò me la cavo con i SO sono una frana; mi dispiace di non
poterti date neppure un parere.
Ciao.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: PrtDevMode

author: Roland Mayr - Chipware

text:
Ciao Sergio,
scusa se ti scrivo direttamento, ma non riesco a rispondere al newsgroup:
ho sempre questo problema con il PrtDevMode. Riesco a cambiare qualche
impostazione eccetto il tipo di stampante. Ho letto da qualche parte che
viene ricavato il nome della stampante dal file system.ini che però non
viene più utilizzato il WinXp. Forse per questo motivo non riesco a estrarre
il nome della stampante. Forse mi potresti dare una dritta o un esempio per
questa funzione.
saluti e grazie
roland


title: PrtDevMode

text:
"Roland Mayr - Chipware" <
info.c...@tin.it
> ha scritto nel messaggio
news:capvpi$6b8$1...@newsreader.mailgate.org...
> Ciao Sergio,
>
> scusa se ti scrivo direttamento, ma non riesco a rispondere al newsgroup:
>
> ho sempre questo problema con il PrtDevMode. Riesco a cambiare qualche
> impostazione eccetto il tipo di stampante. Ho letto da qualche parte che
> viene ricavato il nome della stampante dal file system.ini che perň non
> viene piů utilizzato il WinXp. Forse per questo motivo non riesco a
estrarre
> il nome della stampante. Forse mi potresti dare una dritta o un esempio
per
> questa funzione.
>
> saluti e grazie
> roland
>
Dal file .ini non credo, forse dal registry sě.
Se cercavi nel link che ti avevo indicato c'č anche un esempio con script
WSH:
'----- imposta stampante predefinita ---
Dim WshNet As Object
Set WshNet = CreateObject("Wscript.Network")
WshNet.SetDefaultPrinter "HP LaserJet 4100 PCL 6" '<-- stringa in pannello
di controllo - stampanti
Set WshNet = Nothing
Ciao.
--
Sergio MAZZA


title: query

author: TT

text:
Ciao a tutti
Io devo mostrare in una maschera delle statistiche.
Quindi per ogni nome presente nella tabella nomi devo mostrare
i vari stati delle telefonate per es.
            occupati        liberi    telefonate_prese
lavoro_svolto (rispetto alla media)
gianni       3                 3
               -25%
manuela   4                               222
+85%
e via discorrendo.
Io conosco tutti i dati, so se la telefonata è libera perchè c'è una L se la
chiamata è libera .....
Il problema è:
Come fare a mostrare tutto in una maschera e poi in un report?
Incasinandomi un po' ho fatto 3 query; una per sapere le tel libere, una per
sapere le occupate
una per le tel prese e poi facendo un right join ho "tirato fuori" i dati
che mi servivano.
Per il calcolo della percentuale devo utilizzare un'altra query con avg! Ma
mi sembra una stupidaggine.
Chi mi può dare una mano con questo bruttissimo problema?
Grazie
TT


title: Aggiornamento di una tabella

author: Santilli Marco

text:
Devo, per mezzo di una query aggiornate tutti i valori di una tabella di un
determinato campo.... il valore che dovrò essere sostituito a quello già
esistente dovrà essere preso da un campo in una maschera già aperta
Quindi in query sarà: [Forms]![Maschera]![Nome]
Però poi non riesco a far si che tutti i campi vengono aggiornati con quel
nome che ha preso dalla maschera
Spero che di essere stato chiaro
Ciao e grazieeeeeeeeee


title: Aggiornamento di una tabella

author: Emyr

text:


tutti i campi o tutti i recors?
posta la stringa sql
Saluti.
Emanuele.


title: Aggiornamento di una tabella

text:
"> >Devo, per mezzo di una query aggiornate tutti i valori di una tabella di
un
> >determinato campo.... il valore che dovrò essere sostituito a quello già
> >esistente dovrà essere preso da un campo in una maschera già aperta
> >
> >Quindi in query sarà: [Forms]![Maschera]![Nome]
> >
> >Però poi non riesco a far si che tutti i campi vengono aggiornati con
quel
> >nome che ha preso dalla maschera
> >
> >
> >Spero che di essere stato chiaro
> >
> >Ciao e grazieeeeeeeeee
> >
>
>
> tutti i campi o tutti i recors?
> posta la stringa sql
> Saluti.
> Emanuele.
Tutti i record
Quindi in tutti i record al campo NOME dovrà contenere lo stesso NOME preso
dalla maschera
Ciao e grazieeeeeeeeeeeee


title: Aggiornamento di una tabella

text:


currentdb.execute("UPDATE NOMETABELLA SET nome=""" &
forms!nomemaschera!nomecontrollo & """")
a memoria...
Saluti.
Emanuele.


title: Aggiornamento di una tabella

text:
> currentdb.execute("UPDATE NOMETABELLA SET nome=""" &
> forms!nomemaschera!nomecontrollo & """")
>
>
> a memoria...
> Saluti.
> Emanuele.
Ci siamo quasi.....
mi dici dove lo devo scrivere, nella query, nella spazio "CRITERI"
copio tutto uguale cambiando solo NOMETABELLA - nome
nomemaschera  - nomecontrollo
Fammi sapere cosi posso terminare il lavoretto che ho iniziato


title: Aggiornamento di una tabella

text:


veramente quello che ti ho postato è codice da inserire in un modulo
altrimenti fai una query di aggiornamento dove su aggiorna del campo
nome metti forms!nomecampo
Saluti.
Emanuele.


title: Aggiornamento di una tabella

text:
> veramente quello che ti ho postato è codice da inserire in un modulo
> altrimenti fai una query di aggiornamento dove su aggiorna del campo
> nome metti forms!nomecampo
> Saluti.
> Emanuele.
Ok ci provo
Ciao e grazieeeeeeeeeeeeeeee


title: msgbox sottomaschera

author: Robibg

text:
ho impostato un msgbox su una sottomaschera con 2 campi
nel caso il primo campo sia vuoto esce un messagio di avviso, dopo che
clicco ok pero' il cursore si sposta sul secondo campo, io invece
voglio che rimango su primo campo finche' non viene inserito qualcosa.
Il max sarebbe aggiungere anche un opzione esci dalla sottomaschera.
grazie dell'aiuto


title: msgbox sottomaschera

author: VedoTondo

text:
"Robibg" <
rob...@gmail.com
> ha scritto nel messaggio
news:1164988641....@80g2000cwy.googlegroups.com...

tuocomando.setfocus
--
Saluti Andrea
Cat. Principiante - Access 2003 - Windows XP


title: msgbox sottomaschera

text:
VedoTondo ha scritto:

ho impostato l'evento su exit del primo campo non con un comando


title: msgbox sottomaschera

text:
"Robibg" <
rob...@gmail.com
> ha scritto nel messaggio
news:1164990760.4...@n67g2000cwd.googlegroups.com...
>> tuocomando.setfocus
> ho impostato l'evento su exit del primo campo non con un comando
Scusa intendevo che nell'evento che tu usi devi indirizzare il setfocus
all'oggetto che ti interessa.
Se è una textbox dovrai scrivere tuatextbox.setfocus dove textbox è il nome
della textbox che vuoi venga puntata.



title: testo verticale

text:
E' possibile impostare l'etichetta di un bottone scritta in modo
verticale?
Per esempio
P
R
O
V
A
Grazie a tutti


title: testo verticale

author: MA

text:

No
ma puoi attaccare un'etichetta stretta
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


title: testo verticale

author: PBsoft

text:
> No
> ma puoi attaccare un'etichetta stretta
Ni.
Se utilizzi un'etichetta stretta, allora devi anche ricorrere ad un carattere
monotype o all'allineamento al centro, altrimenti i caratteri non si troveranno
esattamente uno sopra l'altro.
Rischi inoltre che, per caratteri "stretti" come la "i" e la "l", questi
vengano affiancati ad un altro carattere.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: testo verticale

author: Mattia

text:
<
brena.c...@gmail.com
> ha scritto nel messaggio
news:1184839338.4...@n2g2000hse.googlegroups.com...

P ctrl+invio R ctrl+invio O ctrl+invio etc etc
ciao


title: testo verticale

text:
E' possibile modificare l'etichetta di un bottone mettendolo in
verticale, del tipo:
P
R
O
V
A
GRazie a tutti


title: testo verticale

text:
E' possibile modificare l'etichetta di un bottone,mettendo il testo in
verticale?del tipo:
P
R
O
V
A
grazie a tutti


testo verticale


title: testo verticale

author: NSantini

text:
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea355243318...@news.tin.it...
>> No
>> ma puoi attaccare un'etichetta stretta
>
> Ni.
>
> Se utilizzi un'etichetta stretta, allora devi anche ricorrere ad un
> carattere monotype o all'allineamento al centro, altrimenti i caratteri
> non si troveranno esattamente uno sopra l'altro.
> Rischi inoltre che, per caratteri "stretti" come la "i" e la "l", questi
> vengano affiancati ad un altro carattere.
e se dopo ogni lettra inserisce un "a capo"? In pratica è come scrivere in
una etichetta più righe. Il problema è come inserire gli a capo?
Sparo così e poi vado a verificare: a fine riga digito Alt+Enter o da codice
costruire la stringa tipo "P" & chr(13) & "R" & chr(13) ecc. e inserirla
nella proprietà Caption dell'etichetta
Potrebbe essere un'idea?
NSantini


title: testo verticale

text:
E' possibile modificare l'etichetta di un bottone,mettendo il testo in
verticale?
grazie a tutti


title: testo verticale

author: Ammammata

text:
cri...@vodafone.it
 wrote in
news:1184852304.3...@e9g2000prf.googlegroups.com
:
> E' possibile modificare l'etichetta di un bottone,mettendo il testo in
> verticale?
>
>
e con questo siamo a 7-sette-7
io direi di cominciare a controllare il metodo che usi per postare :)
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


title: testo verticale

text:
> e con questo siamo a 7-sette-7
> io direi di cominciare a controllare il metodo che usi per postare :)
Forse vuole fare tanti post consecutivi, leggendo il cui contenuto di seguito
(quindi in verticale) arrivi a formare l'intero corpo del messaggio. :-)



title: testo verticale

author: Ivan da casa

text:
"PBsoft" <info[REMOVE]@
pbsoft.it
> ha scritto nel messaggio
news:875ea355244ba8...@news.tin.it...

B  V
u   o
o   l
n   e
     v
G  o
i
o   R
r     i
n    n
o    g
      r
A   a
      z
T    i
u    a
t     r
t     v
i     i .
IvanDaBologna


title: testo verticale

text:

o
a
i
c
Funziona anche al contrario



title: testo verticale

text:
[cut]
o
a
i
c
Funziona anche al contrario
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007
  L
LOL
  L
.. e verso i 4 punti cardinali!
IvanDB (DaBologna)


title: verificare se esiste il controllo

author: Franco dellavalle

text:
ciao a tutti
vorrei verificare in una
function pubblica MiaFunctionProva(frm As Form)
ecc. ecc.
se esiste un controllo.

Ho provato anche con
Public Function EsisteOggetto(OggSTR As String, Optional IngType As AcObjectType = acForm) As Boolean

Ma anche se esiste (Il controllo) non me lo rileva.

Grazie.


title: verificare se esiste il controllo

text:

ciao Alex

Public Function EsisteOggetto1(OggSTR As String, Optional IngType As AcObjectType = acForm) As Boolean

 ' da richimare con p.e.: If EsisteOggetto(“Anagrafe”,  acTable) = True Then

  Dim Tipo As AccessObject
  On Error Resume Next
  Select Case IngType
    Case acDataAccessPage
      Set Tipo = CurrentProject.AllDataAccessPages(OggSTR)
    Case acForm
      Set Tipo = CurrentProject.AllForms(OggSTR)
    Case acMacro
      Set Tipo = CurrentProject.AllMacros(OggSTR)
    Case acModule
      Set Tipo = CurrentProject.AllModules(OggSTR)
    Case acReport
      Set Tipo = CurrentProject.AlIReports(OggSTR)
    Case acStoredProcedure
      Set Tipo = CurrentData.AllStoredProcedures(OggSTR)
    Case acDiagram
      Set Tipo = CurrentData.AllDatabaseDiagrams(OggSTR)
    Case acServerView
      Set Tipo = CurrentData.AllViews(OggSTR)
    Case acQuery
      Set Tipo = CurrentData.AllQueries(OggSTR)
    Case acTable
      Set Tipo = CurrentData.AllTables(OggSTR)
    Case Else
       Err.Raise 1
  End Select
  EsisteOggetto1 = (Err.Number = 0)
  Err.Clear

End Function

========================
Function fctMEmail(frm As Form)

ecc. ecc.

  If EsisteOggetto("IdFor") = True Then
    If Not IsNull(frm!IdFor) Then
      IdVar = "," & frm!IdFor

    End If

  End If
  IdVar = Nz(frm!IdCli, 0) & IdVar

  strSQL = "SELECT TbEmail.Email, TbxEmail." & strForm & " As Doc, " & Opzione & " As A" _
    & " FROM TbEmail" _
    & " INNER JOIN TbxEmail ON TbEmail.IdEmail = TbxEmail.IdEmail" _
    & " WHERE TbEmail.IdCli IN(" & IdVar & ")" _
    & " ORDER BY TbEmail.Email;"

  Debug.Print strSQL

  DBEngine(0)(0).QueryDefs("QryEmail").Sql = strSQL


title: verificare se esiste il controllo

text:
Quella Funzione l'ho scritta io, in un mio progetto... ma come vedi non scende a livello di Controllo, ma sono gli OGGETTI DEL DATABASE, quindi puoi testare se esiste una FORM un REPORT ecc...

Se vuoi controllare esista un controllo in una Maschera... devi usare un'altro metodo...

Esempio questo ad esempio:
Function ControlExists(ControlName As String, FormCheck As Form) As Boolean
   Dim strTest As String
   On Error Resume Next
   strTest = FormCheck(ControlName).Name
   ControlExists = (Err.Number = 0)
End Function

@Alex


title: verificare se esiste il controllo

text:

fantastico
grazie


title: una stampante che stampa una email - sarà possibile?

text:
alcuni programma tipo winfax o simili aggiungono una stampante alle
stampanti di sistema, secondo voi è possibile aggiungere una stampante
virtuale che però stampi un report come una email? vi dico questo perchè da
dentro access non è possibile in quanto gli elementi grafici non li
gestisce.
secondo voi è possibile? Grazie a tutti.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:bvouto$v6v$1...@lacerta.tiscalinet.it...

O snp o pdf. Cmq come allegati
MAssimiliano


title: Collegamento Tb

author: Warrant

text:
Ciao, ho due TB
Tb_Ordine            Tb_dettaglio_ordine
id_ordine                id_dettaglio
data                         id_ordine
........                        quantità
                               prezzo
                                 .............
Ho collegato le tue tb con una relazione 1 a molti
su ognuna delle due tb ho creato la relativa query. Ho creato una maschera
con sottomaschera per entrare i dati in tb, le maschere le ho basate sulle
query. Ma quando cerco di inserire i dati nella maschera dettaglio ordini
non mi fa accedere
dove ho sbagliato?


title: Collegamento Tb

author: Paolo P

text:
"Warrant" <
webm...@cedsrl.it
> ha scritto nel messaggio
news:yNne8.11417$_u5.4...@news1.tin.it...

Perchè non hai basato le maschere direttamente sulle tabelle?
PAolo


title: Collegamento Tb

text:
perchč soprattuto per la sottomaschera ho bisogno di inserire piů articoli
contemporaneamente


title: Collegamento Tb

text:
"Warrant" <
webm...@cedsrl.it
> ha scritto nel messaggio
news:6moe8.12867$Ns4.5...@news2.tin.it...
> perchè soprattuto per la sottomaschera ho bisogno di inserire più articoli
> contemporaneamente
>
Dunque : tabella - tabella dettagli (collegate uno a molti con integrità
referenziale)
                form  - subform (visualizzazione a maschere continue)
(collegate campimaster-campisecondari)
Secondo me le query non ti servono. Se la query della tabella dettagli l'hai
basata su entrambe le tabelle non ti fa accedere per quel motivo: non puoi
inserire un record dalla parte molti se non ce n'è uno dalla parte uno
Fammi sapere
Paolo


title: Collegamento Tb

author: Alessandro

text:
"Warrant" <
webm...@cedsrl.it
> wrote in message
news:6moe8.12867$Ns4.5...@news2.tin.it...
> perchč soprattuto per la sottomaschera ho bisogno di inserire piů articoli
> contemporaneamente
E questo che vuol dire....!!!
Elimina le QUERY e vai direttamente sulle TABELLE.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Collegamento Tb

text:
stasera ci provo domani vi faccio sapere.
Grazie a tutti.


title: problemi con query

text:
SELECT Scadenziario.contatore, Scadenziario.Fattura,
Scadenziario.Datafattura, Scadenziario.Datscadenza, Scadenziario.Ragione,
Scadenziario.PartitaIva, Scadenziario.CodiceFiscale,
Scadenziario.Tipopagamento, Scadenziario.Ivavalore, Scadenziario.Imponibile,
Scadenziario.Iva, Scadenziario.Totale, Scadenziario.rata,
Scadenziario.TipoFattura, Scadenziario.Categoria, Scadenziario.pagata,
Scadenziario.EsportataRiba, Month([datscadenza]) AS Mese,
Year([datscadenza]) AS Anno
FROM Scadenziario
WHERE (((Scadenziario.TipoFattura)<>"Nota di credito") AND
((Scadenziario.EsportataRiba)="No") AND
((Month([datscadenza]))=[forms]![esportariba]![mese]) AND
((Year([datscadenza]))=[forms]![esportariba]![anno]));
non riesco a creare un recordset della query qui sotto, ho provato anche con
l'esempio di query parametrica del sito comune ma nulla di fatto.
sapreste aiutarmi? devo creare un recordset che rispetta le seguenti
condizioni
TipoFattura<>"Nota di credito"
EsportataRiba="No"
Mese=[forms]![esportariba]![mese]
Anno=[forms]![esportariba]![anno]
Grazie a tutti.


title: problemi con query

author: Roberto da casa

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3ia41$74f$1...@lacerta.tiscalinet.it...

Prova ad impostare i parametri della QueryDef cosě:
qdf.Parameters![forms]![esportariba]![mese]  = [forms]![esportariba]![mese]
qdf.Parameters![forms]![esportariba]![anno] = [forms]![esportariba]![anno]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: problemi con query

text:
> > TipoFattura<>"Nota di credito"
> > EsportataRiba="No"
> > Mese=[forms]![esportariba]![mese]
> > Anno=[forms]![esportariba]![anno]
> >
> > Grazie a tutti.
>
> Prova ad impostare i parametri della QueryDef cosě:
>
> qdf.Parameters![forms]![esportariba]![mese]  =
[forms]![esportariba]![mese]
> qdf.Parameters![forms]![esportariba]![anno] = [forms]![esportariba]![anno]
>
> --
> Roberto
>
    e questi come li imposto?
TipoFattura<>"Nota di credito"
EsportataRiba="No"
Grazie.


title: problemi con query

text:
> > ((Year([datscadenza]))=[forms]![esportariba]![anno]));
> >
> > non riesco a creare un recordset della query qui sotto, ho provato anche
> con
> > l'esempio di query parametrica del sito comune ma nulla di fatto.
di solito per gestire una query parametrica creo una form e la apro ridotta
a icona
scorrendo poi i record della form, cosa che però è poco elegante visto che
si vede questa form comparire e poi scomparire.
nessuno di voi sa dirmi come posso gestire un recordset impostando i criteri
seguenti:



title: problemi con query

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3kl02$7dv$1...@lacerta.tiscalinet.it...

Io te lo ho detto, che poi è quello che è scritto sul Sito Comune: casa è
che non va?
Ma la soluzione del Sito Comune integrata con quanto ti ho detto nel
messaggio precedente la hai provata?



title: problemi con query

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3j5l1$om9$1...@lacerta.tiscalinet.it...
> > > TipoFattura<>"Nota di credito"
> > > EsportataRiba="No"
> > > Mese=[forms]![esportariba]![mese]
> > > Anno=[forms]![esportariba]![anno]
> > >
> > > Grazie a tutti.
> >
> > Prova ad impostare i parametri della QueryDef così:
> >
> > qdf.Parameters![forms]![esportariba]![mese]  =
> [forms]![esportariba]![mese]
> > qdf.Parameters![forms]![esportariba]![anno] =
[forms]![esportariba]![anno]
> >
> > --
> > Roberto
> >
>
>     e questi come li imposto?
>
> TipoFattura<>"Nota di credito"
> EsportataRiba="No"
>
> Grazie.
Uomo di poca fede!!!
Quelle sono costanti e non parametri variabili, quindi sono già inglobate
nella query.
Perché non provi prima di fare altre domande.



title: problemi con query

text:
>
> Ma la soluzione del Sito Comune integrata con quanto ti ho detto nel
> messaggio precedente la hai provata?
>
> --
> Roberto
>
Adesso la provo, Grazie.


title: problemi con query

text:
> Uomo di poca fede!!!
> Quelle sono costanti e non parametri variabili, quindi sono già inglobate
> nella query.
> Perché non provi prima di fare altre domande.
questo è il codice mi da errore
"elemento non trovato in questo insieme" alla riga con i segni >>
   Dim dbs As Database
   Dim qdf As QueryDef
   Dim rst As Recordset
   Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs("scadenziarioriba")
>>   qdf.Parameters![Forms]![EsportaRiba]![mese] =
[Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms]![EsportaRiba]![anno] =
[Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
   '...
   rst.Close
   qdf.Close
   Set dbs = Nothing
boooooooooo! sai dirmi cosa non và?


title: problemi con query

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3l9ub$k0g$1...@lacerta.tiscalinet.it...

Prova così:
  Dim dbs As Database
   Dim qdf As QueryDef
   Dim rst As Recordset
   Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs("scadenziarioriba")
   qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
--



title: problemi con query

text:
> Prova così:
>    qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
>    qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
>    Set rst = qdf.OpenRecordset
>
> --
> Roberto
Provato non và nemmeno cosi, stesso errore, la query è cosi:
SELECT Scadenziario.contatore, Scadenziario.Fattura,
Scadenziario.Datafattura, Scadenziario.Datscadenza, Scadenziario.Ragione,
Scadenziario.PartitaIva, Scadenziario.CodiceFiscale,
Scadenziario.Tipopagamento, Scadenziario.Ivavalore, Scadenziario.Imponibile,
Scadenziario.Iva, Scadenziario.Totale, Scadenziario.rata,
Scadenziario.TipoFattura, Scadenziario.Categoria, Scadenziario.pagata,
Scadenziario.EsportataRiba, Month([datscadenza]) AS Mese,
Year([datscadenza]) AS Anno
FROM Scadenziario
WHERE (((Scadenziario.TipoFattura)<>"Nota di credito") AND
((Scadenziario.EsportataRiba)="No"));
Helpatemi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!


title: problemi con query

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3lpcd$vae$1...@lacerta.tiscalinet.it...

Ma questa non è una query parametrica: dove sono i parametri? E' solo una
banale query di selezione; su di essa un recorset va aperto come se fosse
una tabella.
Che fai cambi le carte in tavola?
Comunque l'ultima soluzione che ti ho postato per scrupolo l'ho provata e a
me funziona, naturalmente a condizione che la query sia parametrica e i due
parametri siano Forms!EsportaRiba!mese e Forms!EsportaRiba!anno.



title: problemi con query

text:
una tabella.
> Che fai cambi le carte in tavola?
> Comunque l'ultima soluzione che ti ho postato per scrupolo l'ho provata e
a
> me funziona, naturalmente a condizione che la query sia parametrica e i
due
> parametri siano Forms!EsportaRiba!mese e Forms!EsportaRiba!anno.
>
> --
> Roberto
>
> ---------------------------------------------
non cambio la carte in tavola la query che ho postato è quella da cui poi
devo definire il recordset secondo quanto tu mi hai detto con:
forse mi sono sbagliato a dire parametrica volevo dire di selezione con i
campi
<>"Nota di credito" e Esportata="No"
questo codice io lo provato
  Dim dbs As Database
   Dim qdf As QueryDef
   Dim rst As Recordset
   Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs("scadenziarioriba")
   qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
e ame dice elemento non trovato nell'insieme.
prova a fare una query come quella che ti postato e poi a creare il
recordset come dici tu.
Grazie in anticipo.


title: problemi con query

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b3m4io$6jp$1...@lacerta.tiscalinet.it...
> una tabella.
> > Che fai cambi le carte in tavola?
> > Comunque l'ultima soluzione che ti ho postato per scrupolo l'ho provata
e
> a
> > me funziona, naturalmente a condizione che la query sia parametrica e i
> due
> > parametri siano Forms!EsportaRiba!mese e Forms!EsportaRiba!anno.
> >
> > --
> > Roberto
> >
> > ---------------------------------------------
>
> non cambio la carte in tavola
Non cambi le carte in tavola?!?
Ti sembra che il codice SQL dwlla query che hai postato nel tuo messaggio
del 27/2/2003 alle ore 20:36 sia uguale a quello postato con il tuo
messaggio del 26/2/2003 alle ore 12:57.
Di due l'una: o tu hai cambiato la query o io ho le traveggole.
Visto che io non ho le traveggole ...
> la query che ho postato è quella da cui poi
> devo definire il recordset secondo quanto tu mi hai detto con:
>
> forse mi sono sbagliato a dire parametrica volevo dire di selezione con i
> campi
> <>"Nota di credito" e Esportata="No"
>
> questo codice io lo provato
>
>   Dim dbs As Database
>    Dim qdf As QueryDef
>    Dim rst As Recordset
>
>    Set dbs = CurrentDb
>    Set qdf = dbs.QueryDefs("scadenziarioriba")
>    qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
>    qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
>    Set rst = qdf.OpenRecordset
>
>
> e ame dice elemento non trovato nell'insieme.
> prova a fare una query come quella che ti postato e poi a creare il
> recordset come dici tu.
>
> Grazie in anticipo.
Scusa Simba883, ma se la query non è parametrica (ovvero è quella che hai
postato nel tuo messaggio del 27/2/2003 ore 20:36) non puoi aprilra
impostando i parametri della relativa QueryDef: se i parametri non ci sono
giustamente ti viene restituito un errore dove si evidenzia che quei
parametri non esistono.
A mio avviso il recordset su quella query va aperto in maniera normalissima,
tipo:
Dim rst As DAO.Recordset
Set rst = CurrentDB.OpenRecordset("NomeQuery")
come se fosse un atabella.



title: problemi con query

text:
ore dove si evidenzia che quei
> parametri non esistono.
> A mio avviso il recordset su quella query va aperto in maniera
normalissima,
> tipo:
>
> Dim rst As DAO.Recordset
> Set rst = CurrentDB.OpenRecordset("NomeQuery")
>
> come se fosse un atabella.
>
> --
> Roberto
>
> ---------------------------------------------
pensavo che impostando da codice VBA
questi parametri
  qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
dovessi toglierli dalla query e lasciare solo quelli <>"nota di credito" e
esportata="No"
ho sbagliato io ora riprovo a mettere tali campi e ti faccio sapere.
provo e ti faccio sapere, intanto grazie.


title: problemi con query

text:
Come disse un tale nel NG non ricordo dove, sei proprio il cacio sui
maccheroni complimenti funziona. yahoooooooooooooooooooooooo!!!!!!!


title: La casella combinata non fa vedere i record, ma li seleziona

text:
Buongiorno a tutti,
ho un problema alquanto strano su Access 2003. Ho una applicazione un
po' complessa con molte caselle combinate che prendono record da varie
query: funzionano tutte bene tranne una.
Nelle caselle combinate che prendono i dati dall'elenco degli utenti
(più caselle sparse per l'applicazione, ma tutte dalla stessa query)
quando la apro ho tutti i campi vuoti, ma se clicco su una delle
righe, il nome che non mi visualizza nella parte bassa, me lo riporta
come selezionato correttamente nella casella. Non mi è quindi
possibile cercare il valore.
Lo fa solo sul mio PC, su altri va benissimo. Ho provato a rifare la
query e non cambia nulla, a creare nuove caselle combinate e non
cambia nulla, a rifare la tabella e non cambia nulla.
Se apro la query in visualizzazione dati vedo l'elenco correttamente.
Sul mio PC ho Office 2007 e Access 2003 per compatibilità con i
clienti che hanno ancora quella versione. Ho provato a reinstallare
tutti i due pacchetti Office, prima 2007 e poi 2003 e viceversa, ma
non sono riuscito a cavare un ragno dal buco.
Qualcuno ha idea di come posso fare?
Grazie!


author: Karl Donaubauer

text:

> ...
L'SP3 per Office 2003 ha un bug di questo tipo.
Se l'SP è installato devi installare anche il rispettivo Hotfix.
Il link trovi qui:
www.donkarl.com/it?FAQ9.1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 16 Apr, 11:27, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>
Francesco.Tu...@gmail.com
 wrote:
> > ho un problema alquanto strano su Access 2003. Ho una applicazione un
> > po' complessa con molte caselle combinate che prendono record da varie
> > query: funzionano tutte bene tranne una.
>
> > Nelle caselle combinate che prendono i dati dall'elenco degli utenti
> > (pi� caselle sparse per l'applicazione, ma tutte dalla stessa query)
> > quando la apro ho tutti i campi vuoti, ma se clicco su una delle
> > righe, il nome che non mi visualizza nella parte bassa, me lo riporta
> > come selezionato correttamente nella casella. Non mi � quindi
> > possibile cercare il valore.
>
> > Lo fa solo sul mio PC, su altri va benissimo. Ho provato a rifare la
> > query e non cambia nulla, a creare nuove caselle combinate e non
> > cambia nulla, a rifare la tabella e non cambia nulla.
>
> > Se apro la query in visualizzazione dati vedo l'elenco correttamente.
>
> > Sul mio PC ho Office 2007 e Access 2003 per compatibilit� con i
> > clienti che hanno ancora quella versione. Ho provato a reinstallare
> > tutti i due pacchetti Office, prima 2007 e poi 2003 e viceversa, ma
> > non sono riuscito a cavare un ragno dal buco.
> > ...
>
> L'SP3 per Office 2003 ha un bug di questo tipo.
> Se l'SP � installato devi installare anche il rispettivo Hotfix.
> Il link trovi qui:
www.donkarl.com/it?FAQ9.1
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grazie!!
Funziona!
Buona giornata!


title: Codice sconosciuto per evitare un altra query

text:
Buongiorno a tutti e soprattutto ai miei (soliti) salvatori.
Ho una maschera continua che filtra dati da una query di origine con diversi criteri di questo tipo:

Like "*" & [forms]![maschera]![SceltaFiltro]

quindi se non seleziono nulla nelle suddette combo della intestazione maschera i dati rimangono integrali, se seleziono un filtro questo, con un me.requery dopo aggiornamento, mi aggiorna la maschera.
Fin qui tutto bene.

Vorrei anche poter selezionare un numero progressivo di partenza tra quelli filtrati.
In pratica nell'intestazione una combo mi legge i [progr] dei record man mano che risultano filtrati dalle altre combo.
Non so però che criterio dare alla query, cioè ad una istruzione simile a quella sopra indicata, per filtrare i progr uguali e maggiori a quello indicato.
in pratica il criterio :

Like "*" & [forms]![maschera]![ProgrDesiderato]
mi deve filtrare i progr maggiori e uguali al ProgrDesiderato.

grazie a chiunque mi possa aiutare.


author: Pablitomf

text:
> grazie a chiunque mi possa aiutare.

io ringrazierei piuttosto chi sara' ingrado di capire cosa hai chiesto!

Non ho capito nulla di nulla... ma sara' un mio limite di certo ;)

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


author: Bruno Campanini

text:
Pablitomf was thinking very hard :
>> grazie a chiunque mi possa aiutare.
>
> io ringrazierei piuttosto chi sara' ingrado di capire cosa hai chiesto!
>
> Non ho capito nulla di nulla... ma sara' un mio limite di certo ;)

Il problema non è quasi mai che cosa rispondere, almeno per chi da
parecchi anni sta sbattendo la testa contro Access...

Il problema grosso è capire la domanda!

Per l'OP:
1 - nei Criteria di quale campo della query stai ponendo quel
    Like "*" & ...
2 - qual è il DataType di tale campo (Testo, Numero...)?

Bruno


text:
chiedo scusa a entrabi e cerco di essere più chiaro.

I miei record sono contraddistinti in tabella da un campo numerico progressivo [Progr].
Ho una maschera continua, con origine dati in una query, che ha diverse combo in intestazione.
Esempio se la combo SceltaAutoMoto viene selezionata la maschera verrà filtrata dal seguente criterio della query:

Like "*" & [forms]![maschera]![SceltaAutoMoto]
se non viene selezionato nulla il "*" mi consente di leggere tutti i dati.
 -----

il mio problema nasce quando devo poter filtrare dati superiori ad un certo numero ad esempio a 12.345.
Fisicamente mi vengono portate delle cartelline, con quel numero ed io filtro a partire dalla prima.
Premesso che il 12345 lo posso scrivere tramite una combo(che attinge dalla query medesima), ho provato a modificare l'istruzione del criterio sulla query, senza successo.

Riassumendo il campo cui faccio riferimento è il progressivo [Progr] formato numerico,nessun decimale.
Mi servirebbe averlo sempre disponibile "*"(se non agisco sulla combo) oppure superiore a un certo numero (12345) se aziono un evento.

Mi scuso ancora per la forma e le evidenti lacune di linguaggio


text:
ignazio.pilone <
ignazio...@gmail.com
> ha scritto:

Igna', giocati il jolly, gira la ruota, o comprati una vocale, perche' almeno
in questo post, ti sei capito da solo, sia nella prima parte che in quella in
cui hai sperato di essere piu' chiaro :D

ti servono due filtri? e fanne due aggiungendo un "AND" tra un like e un'altro...



text:
> Igna', giocati il jolly, gira la ruota, o comprati una vocale, perche'
almeno
> in questo post, ti sei capito da solo, sia nella prima parte che in
quella in
> cui hai sperato di essere piu' chiaro :D
>
> ti servono due filtri? e fanne due aggiungendo un "AND" tra un like e
un'altro...

o un "OR" o un quel che ti pare... devi solo capire quanti filtri ti
servono, e
in base alle condizioni che li scaturiscono te li costruisci con i suffissi
adatti (Like, *, <, >, <>, =, ecc...)



text:
ignazio.pilone formulated the question :

Se ho ben capito:

1 - Togli quel Like "*" etc dai Criteria della query.
    Se non ti serve per altri scopi togli anche la query
    e utilizza direttamente la tabella.
2 - In AfterUpdate della combo poni:
        FilterOn = True
        Filter = "[Progr] >=" & [SceltaAutoMoto]
3 - Metti un Button sulla scheda, in OnClick del quale:
        FilterOn = False
        Filter = ""
    per eliminare il filtro.

Dimmi se ci ho azzeccato.
Bruno


title: errore DoCmd.RunSQL

author: al

text:
Ho provato questa porzione di codice ma ho l'errore:
Un'azione EseguiSQL richiede un argomento costituito da un'istruzione SQL.
Sub Comando0_Click()
  DoCmd.RunSQL "SELECT * FROM [tabella];"
End Sub


title: errore DoCmd.RunSQL

text:
"al" <
als...@libero.it
> ha scritto nel messaggio
news:ae0664b0.03032...@posting.google.com...

Con RunSQL puoi eseguire solo una query di comando (query di accodamento,
query di eliminazione, query di aggiornamento ecc.); a te ti dà giustamente
errore in quanto cerchi di eseguire RunSQL su una striga SQL che rappresenta
una query di selezione e non di comando.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Posizionamento su record corretto + verifica esistenza record

text:
Salve,
Ho una maschera (tabulare) con una serie di richieste di interventi su
impianti dei clienti.
Su ogni riga ho messo un pulsante che consente di aprire una maschera
che indica i lavori necessari da fare a fronte di quell'intervento con
il seg. codice (su click):
(La maschera di "di origine " è [Chiamate - calendario] la maschera
che la procedura apre è [Segnalazioni lavori - nuova da chiamate])
Dim rst As DAO.Recordset
Dim stLinkCriteria As String
Set rst = CurrentDb.OpenRecordset("Segnalazioni lavori")
    rst.AddNew
    rst.Fields("COD_IMP").Value = [Forms]![Chiamate -
calendario]![COD_IMP]
    rst.Update
    DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate"
    Set rst = Nothing
End If
Il tutto funziona ma ho 2 problemi che non riesco a risolvere:
1) se faccio "n" volte click sul pulsante la procedura ovviamente mi
crea "n" record per quell'intervento:
come posso verificare che per quella data e per quell'impianto
([COD_IMP]) non ci sia già un record e eventualmente aprirlo
direttamente?
2) all'apertura della maschera non riesco a posizionarmi sul record
corrispondente alla maschera tabulare di origine (non riesco a
scrivere correttamente la where sul cmd openform che indichi due
condizioni: la data - corrispondente alla data della maschera"origine"
- e il codice dell'impianto)
Spero di essere stato chiaro e non troppo prolisso.
Grazie
Sandro


text:


Chiedo scusa, mi sono "impicciato" con il copia-incolla:
il codice completo è il seguente
Dim rst As DAO.Recordset
Dim stLinkCriteria As String
Set rst = CurrentDb.OpenRecordset("Segnalazioni lavori")
    rst.AddNew
    rst.Fields("COD_IMP").Value = [Forms]![Chiamate -
calendario]![COD_IMP]
    rst.Fields("Data").Value = [Forms]![Chiamate - calendario]![Data
richiesta intervento]
    rst.Update
    DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate", acNormal
    'DoCmd.GoToRecord , , acLast
    Set rst = Nothing
End If
(nel record che creo mi riporto la data indicata nella maschera
"origine")


author: Sergio MAZZA

text:
<
md3...@mclink.it
> ha scritto nel messaggio
news:jboga3dmmafd51rr7...@4ax.com...
> Salve,
>
> Ho una maschera (tabulare) con una serie di richieste di interventi su
> impianti dei clienti.
>
> Su ogni riga ho messo un pulsante che consente di aprire una maschera
> che indica i lavori necessari da fare a fronte di quell'intervento con
> il seg. codice (su click):
>
> (La maschera di "di origine " è [Chiamate - calendario] la maschera
> che la procedura apre è [Segnalazioni lavori - nuova da chiamate])
>
> Dim rst As DAO.Recordset
> Dim stLinkCriteria As String
> Set rst = CurrentDb.OpenRecordset("Segnalazioni lavori")
>    rst.AddNew
>    rst.Fields("COD_IMP").Value = [Forms]![Chiamate -
> calendario]![COD_IMP]
>    rst.Update
>    DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate"
>    Set rst = Nothing
> End If
>
> Il tutto funziona ma ho 2 problemi che non riesco a risolvere:
>
> 1) se faccio "n" volte click sul pulsante la procedura ovviamente mi
> crea "n" record per quell'intervento:
> come posso verificare che per quella data e per quell'impianto
> ([COD_IMP]) non ci sia già un record e eventualmente aprirlo
> direttamente?
If DCount("*","Segnalazioni lavori","[nomeCampoData]=#" & me!campoData & "#
And [cod_imp]=" & me![cod_imp])>0 then
    msgbox "ci sono"
else
    msgbox "non ci sono"
endif
> 2) all'apertura della maschera non riesco a posizionarmi sul record
> corrispondente alla maschera tabulare di origine (non riesco a
> scrivere correttamente la where sul cmd openform che indichi due
> condizioni: la data - corrispondente alla data della maschera"origine"
> - e il codice dell'impianto)
Sfrutta il parametro CondizioneWhere del metodo OpenForm;
es.
DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate",,,"[campoData]=#" &
me!campoData & "# And [cod_imp]=" & me![cod_imp]
> Spero di essere stato chiaro e non troppo prolisso.
>
> Grazie
> Sandro
Ciao.
--
Sergio MAZZA


author: VT @ Work

text:
On Thu, 26 Jul 2007 11:51:51 +0200, "Sergio MAZZA"
<
sergi...@tiscali.it
> wrote:
 (...)
Mi permetto di perfezionare i suggerimenti di Sergio al fine di
evitare problemi derivanti dal formato di memorizzazione delle date:
If DCount("*","Segnalazioni lavori","[nomeCampoData]=#" &
Format$(me!campoData;"mm-dd-yyyy") & "#
And [cod_imp]=" & me![cod_imp])>0 then
    msgbox "ci sono"
else
    msgbox "non ci sono"
endif
DoCmd.OpenForm "Segnalazioni lavori - nuova da
chiamate",,,"[campoData]=#" &
Format$(me!campoData,"mm-dd-yyyy") & "# And [cod_imp]=" & me![cod_imp]
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

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

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

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


text:
"VT @ Work" <V...@Work.it> ha scritto nel messaggio
news:46a8736d...@firewall.regione.toscana.it...

Grazie Vincenzo; non mi ricordo mai se serve o no...
Ciao.
--
Sergio MAZZA


text: Grazie infinite a Sergio e Vincenzo...


text:
On Thu, 26 Jul 2007 12:19:41 +0200, "Sergio MAZZA"
<
sergi...@tiscali.it
> wrote:
 (...)
>
>Grazie Vincenzo; non mi ricordo mai se serve o no...
Io non mi pongo più il problema e forzo sempre il formato americano:
se non serviva ci metterà un femtosecondo in più, se serviva mi
restituirà i record che volevo ...
>
>Ciao.
>--
>Sergio MAZZA



title: Cambiare con VBA lo spessore bordo di una linea (Proprietà BorderWidth)

author: Bruno - S95

text:
Access 2003
Ciao, sto utilizzando la seguente routine  inserita nella sezione corpo del
report, evento stampa. Funziona perfettamente, l'unica cosa e che chea le
linee con spessore sottile; ho provato ad aggiungere
la proprietà BorderWidth (Spessore bordo) dopo il Me.ForeColor = 0 ma non
succede nulla, ho cercato in rete e nell'aiuto di access, ma pur avendo
trovato l'argomento che parla di espressione , non sono riuscito a capirci
nulla. Qualcuno sa aggiungere una riga di codice per poter rendere lo
spessore della linea disegnata nel report più spessa (impostazione proprietà
spessore linea a 2).
Mille grazie, Bruno
P.S... Sono proprio negato o è normale? Sto leggendo/Studiando VBA ma ci
capisco sempre meno; non riesco a scrivere due righe di codice di sana
pianta, mi sa che ci vuole un corso, cosa ne dite.
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 1
    Me.ForeColor = 0
    'Repeat the following line of code for each vertical line
    '1 * 1440 represents 1 inch.
    Me.Line (0 * 1440, 0)-(0 * 1440, 14400)
    Me.Line (1 * 1440, 0)-(1 * 1440, 14400)
    Me.Line (1.6 * 1440, 0)-(1.6 * 1440, 14400)
    Me.Line (2.2 * 1440, 0)-(2.2 * 1440, 14400)
    Me.Line (2.78 * 1440, 0)-(2.78 * 1440, 14400)
    Me.Line (4.3 * 1440, 0)-(4.3 * 1440, 14400)
    Me.Line (6.45 * 1440, 0)-(6.45 * 1440, 14400)
    Me.Line (8.41 * 1440, 0)-(8.41 * 1440, 14400)
    Me.Line (9 * 1440, 0)-(9 * 1440, 14400)
    Me.Line (9.59 * 1440, 0)-(9.59 * 1440, 14400)
    Me.Line (10.18 * 1440, 0)-(10.18 * 1440, 14400)
    'The 14400 is an arbitrary number to increase the line
    'to the max of a section.
End Sub


author: Carlo Costarella

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:497afdb3$0$1122$4faf...@reader2.news.tin.it...

Prima delle istruzioni Me.Line scrivi:
Me.DrawStyle = 0
Me.DrawWidth = 32
dove 32 sono i pixel di spessore della linea, che normalmente è impostata a
1 pixel.
Mi permetto un suggerimento: dai più spesso un'occhiata alla guida...quasi
sempre risolvi.
Ciao, Carlo


text:
Bruno - S95 ha scritto:

Se non sbaglio ForeColor è il colore Primo Piano, cioè del carattere contenuto nella casella. Il BorderWidth regola lo spessore del bordo....ma di che colore è il bordo? e lo SpecialEffect? xchè combinazioni di questi 3 valori danno risultati 'imprevisti'.....
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:glf4an$f13$1...@tdi.cu.mi.it...

----------------
Grazie per l'aiuto Carlo, ed anche per il consiglio.
Ovviamente mi sento un pocchino imarazzato nel dover sempre chiedere; mi sa
proprio che sono negatuccio visto che non so neanche cercare nell'Help,
Salvo quanto presente nel sito comune, ho cercato sia facendo F1 nell'evento
stampa della sezione corpo del report, come scritto nel primo post, poi dopo
aver navigato nell'help alla ricerca del lato oscuro  ho cercato anche in
rete e in particolare  nel sito di supporto della Microsoft e su
http://msdn.microsoft.com/en-us/library/aa223977(office.11).aspx
.
Mi pare, salvo minor attenzione da parte mia, di non aver trovato nulla di
chiaro come da te rappresentato (aiuto per cui ti ringrazio tantissimo).
Per evitare di farmi venire i complessi, per cortesia mi puoi indicare in
quale punto della quida hai trovato in maniera cos' chiara (magari con
qualche esempio), diversamente sono punto e a capo.
Grazie ancora a te e a tutti coloro che danno supporto a chi ne sa poco come
me.
Mi chiedevo... la maggior parte di voi sono dei professionisti nel campo o
semplicemente appassionati, anche perchè ho visto rari vostro post di
richiesta d'aiuto e se qualche volta ci sono, mi ci son perso nel capire.
Ciao, Bruno


text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:glf4gd$6of$1...@news.nonsolonews.it...

------------
Ciao, mi sa che anche tu ci capisci quanto me, forse ci capiamo a vicenda;
gli altri parlano una lingua spaziale.
Hai ragione... nell'esempio che ho trovato, BorderColor non era inserita
come riga di codice, probabilmente non è necessario se non vuoi un colore
diverso dal nero che sicuramente, visto che funziona, lo da di default.
A proposito, quanto indicatomi gentilmente da Carlo costarella funziona alla
grande, ma tu di che effetti speciali stai parlando, per quanto riguarda le
tre combinazioni. Che mostro esce fuori dal tuo PC.
Ciao, Bruno


text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto
cut
> Grazie per l'aiuto Carlo, ed anche per il consiglio.
> Ovviamente mi sento un pocchino imarazzato nel dover sempre chiedere; mi
> sa proprio che sono negatuccio visto che non so neanche cercare nell'Help,
> Salvo quanto presente nel sito comune, ho cercato sia facendo F1
> nell'evento stampa della sezione corpo del report, come scritto nel primo
> post, poi dopo aver navigato nell'help alla ricerca del lato oscuro  ho
> cercato anche in rete e in particolare  nel sito di supporto della
> Microsoft e su
>
http://msdn.microsoft.com/en-us/library/aa223977(office.11).aspx
.
> Mi pare, salvo minor attenzione da parte mia, di non aver trovato nulla di
> chiaro come da te rappresentato (aiuto per cui ti ringrazio tantissimo).
> Per evitare di farmi venire i complessi, per cortesia mi puoi indicare in
> quale punto della quida hai trovato in maniera cos' chiara (magari con
> qualche esempio), diversamente sono punto e a capo.
> Grazie ancora a te e a tutti coloro che danno supporto a chi ne sa poco
> come me.
La prima cosa da cercare nell'help, nel tuo caso, è "Line" visto che di
questo si parla.
In Access, se non erro a partire dalla versione 2000, ci sono due guide
distinte: una per il VBA e una per tutto il resto.
Quella per VBA, come l'altra, è sensibile al contesto per cui se apri un
modulo, evidenzi una parola e premi F1, il motore di help si posiziona
sull'argomento.
Se ora apri il report indicato, in struttura e poi apri il modulo ed
evidenzi la parola "Line", premendo F1 otterrai la guida per il "Metodo
Line".
Lì potrai trovare anche DrawStyle e DrawWidth. Non sempre l'esempio fornito
dalla guida si adatta al caso specifico ma tutte le proprietà di un metodo
sono sottolineate in modo che cliccandoci si viene portati al nuovo
argomento per approfondirlo.
In generale posso dirti che nella guida quasi sempre l'argomento è trattato
in modo completo e comunque sufficente per ottenere delle risposte.
> Mi chiedevo... la maggior parte di voi sono dei professionisti nel campo o
> semplicemente appassionati, anche perchè ho visto rari vostro post di
> richiesta d'aiuto e se qualche volta ci sono, mi ci son perso nel capire.
Come dicono dalla mie parti "nessuno nasce imparato". Se vai a rileggerti lo
storico del NG troverai molte richieste di spiegazioni fatte da me...è
chiaro che più passa il tempo e più si diviene ferrati
sull'argomento...esattamente quello che succederà a te.
> Ciao, Bruno
Ciao, Carlo


text:
Bruno - S95 ha scritto:
>
>"Fair87" <roby.ces@gmail,com > ha scritto nel messaggio
>news:glf4gd$6of$1...@news.nonsolonews,it ...
>> Bruno - S95 ha scritto:
>>>Access 2003
>>>
>>>Ciao, sto utilizzando la seguente routine  inserita nella sezione corpo
>>>del
>>>report, evento stampa. Funziona perfettamente, l'unica cosa e che chea le
>>>linee con spessore sottile; ho provato ad aggiungere
>>>la proprietą BorderWidth (Spessore bordo) dopo il Me.ForeColor = 0 ma non
>>>succede nulla, ho cercato in rete e nell'aiuto di access, ma pur avendo
>>>trovato l'argomento che parla di espressione , non sono riuscito a capirci
>>>nulla. Qualcuno sa aggiungere una riga di codice per poter rendere lo
>>>spessore della linea disegnata nel report pił spessa (impostazione
>>>proprietą
>>>spessore linea a 2).
>>>Mille grazie, Bruno
>>>
>>>P.S... Sono proprio negato o č normale? Sto leggendo/Studiando VBA ma ci
>>>capisco sempre meno; non riesco a scrivere due righe di codice di sana
>>>pianta, mi sa che ci vuole un corso, cosa ne dite.
>>>
>>>
>>>
>>>Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
>>>Me.ScaleMode = 1
>>>    Me.ForeColor = 0
>>>
>>>    'Repeat the following line of code for each vertical line
>>>    '1 * 1440 represents 1 inch.
>>>
>>>    Me.Line (0 * 1440, 0)-(0 * 1440, 14400)
>>>    Me.Line (1 * 1440, 0)-(1 * 1440, 14400)
>>>    Me.Line (1.6 * 1440, 0)-(1.6 * 1440, 14400)
>>>    Me.Line (2.2 * 1440, 0)-(2.2 * 1440, 14400)
>>>    Me.Line (2.78 * 1440, 0)-(2.78 * 1440, 14400)
>>>    Me.Line (4.3 * 1440, 0)-(4.3 * 1440, 14400)
>>>    Me.Line (6.45 * 1440, 0)-(6.45 * 1440, 14400)
>>>    Me.Line (8.41 * 1440, 0)-(8.41 * 1440, 14400)
>>>    Me.Line (9 * 1440, 0)-(9 * 1440, 14400)
>>>    Me.Line (9.59 * 1440, 0)-(9.59 * 1440, 14400)
>>>    Me.Line (10.18 * 1440, 0)-(10.18 * 1440, 14400)
>>>
>>>
>>>    'The 14400 is an arbitrary number to increase the line
>>>    'to the max of a section.
>>>End Sub
>>>
>>>
>> Se non sbaglio ForeColor č il colore Primo Piano, cioč del carattere
>> contenuto nella casella. Il BorderWidth regola lo spessore del bordo....ma
>> di che colore č il bordo? e lo SpecialEffect? xchč combinazioni di questi
>> 3 valori danno risultati 'imprevisti'.....
>>
>> --
>> Questo articolo e` stato inviato dal sito web  http :// www .nonsolonews,it
>------------
>Ciao, mi sa che anche tu ci capisci quanto me, forse ci capiamo a vicenda;
>gli altri parlano una lingua spaziale.
>Hai ragione... nell'esempio che ho trovato, BorderColor non era inserita
>come riga di codice, probabilmente non č necessario se non vuoi un colore
>diverso dal nero che sicuramente, visto che funziona, lo da di default.
>A proposito, quanto indicatomi gentilmente da Carlo costarella funziona alla
>grande, ma tu di che effetti speciali stai parlando, per quanto riguarda le
>tre combinazioni. Che mostro esce fuori dal tuo PC.
>Ciao, Bruno
>
>
In veritą cercavo solo la via + semplice......se i parametri che setti per un controllo sono 'contraddittori' Access fa quello che puņ.....a suo tempo mi ero impelagato anche io su queste formattazioni, ma basta capire la logica che le governa e sta tranquillo che problemi del genere non li avrai +....SpecialEffect č una proprietą per governare l'aspetto della casella (incassato, piatto....) e influisce sulle altre proprietą. Non č questione di mostri......anche se non ho capito xchč, se sei all'inizio, vuoi a tutti i costi disegnare da codice una linea...



text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:glfn87$h97$1...@news.nonsolonews.it...
> Bruno - S95 ha scritto:
>>
>>"Fair87" <roby.ces@gmail,com > ha scritto nel messaggio
>>news:glf4gd$6of$1...@news.nonsolonews,it ...
>>> Bruno - S95 ha scritto:
>>>>Access 2003
>>>>
>>>>Ciao, sto utilizzando la seguente routine  inserita nella sezione corpo
>>>>del
>>>>report, evento stampa. Funziona perfettamente, l'unica cosa e che chea
>>>>le
>>>>linee con spessore sottile; ho provato ad aggiungere
>>>>la proprietà BorderWidth (Spessore bordo) dopo il Me.ForeColor = 0 ma
>>>>non
>>>>succede nulla, ho cercato in rete e nell'aiuto di access, ma pur avendo
>>>>trovato l'argomento che parla di espressione , non sono riuscito a
>>>>capirci
>>>>nulla. Qualcuno sa aggiungere una riga di codice per poter rendere lo
>>>>spessore della linea disegnata nel report più spessa (impostazione
>>>>proprietà
>>>>spessore linea a 2).
>>>>Mille grazie, Bruno
>>>>
>>>>P.S... Sono proprio negato o è normale? Sto leggendo/Studiando VBA ma ci
>>>>capisco sempre meno; non riesco a scrivere due righe di codice di sana
>>>>pianta, mi sa che ci vuole un corso, cosa ne dite.
>>>>
>>>>
>>>>
>>>>Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
>>>>Me.ScaleMode = 1
>>>>    Me.ForeColor = 0
>>>>
>>>>    'Repeat the following line of code for each vertical line
>>>>    '1 * 1440 represents 1 inch.
>>>>
>>>>    Me.Line (0 * 1440, 0)-(0 * 1440, 14400)
>>>>    Me.Line (1 * 1440, 0)-(1 * 1440, 14400)
>>>>    Me.Line (1.6 * 1440, 0)-(1.6 * 1440, 14400)
>>>>    Me.Line (2.2 * 1440, 0)-(2.2 * 1440, 14400)
>>>>    Me.Line (2.78 * 1440, 0)-(2.78 * 1440, 14400)
>>>>    Me.Line (4.3 * 1440, 0)-(4.3 * 1440, 14400)
>>>>    Me.Line (6.45 * 1440, 0)-(6.45 * 1440, 14400)
>>>>    Me.Line (8.41 * 1440, 0)-(8.41 * 1440, 14400)
>>>>    Me.Line (9 * 1440, 0)-(9 * 1440, 14400)
>>>>    Me.Line (9.59 * 1440, 0)-(9.59 * 1440, 14400)
>>>>    Me.Line (10.18 * 1440, 0)-(10.18 * 1440, 14400)
>>>>
>>>>
>>>>    'The 14400 is an arbitrary number to increase the line
>>>>    'to the max of a section.
>>>>End Sub
>>>>
>>>>
>>> Se non sbaglio ForeColor è il colore Primo Piano, cioè del carattere
>>> contenuto nella casella. Il BorderWidth regola lo spessore del
>>> bordo....ma
>>> di che colore è il bordo? e lo SpecialEffect? xchè combinazioni di
>>> questi
>>> 3 valori danno risultati 'imprevisti'.....
>>>
>>> --
>>> Questo articolo e` stato inviato dal sito web  http :// www
>>> .nonsolonews,it
>>------------
>>Ciao, mi sa che anche tu ci capisci quanto me, forse ci capiamo a vicenda;
>>gli altri parlano una lingua spaziale.
>>Hai ragione... nell'esempio che ho trovato, BorderColor non era inserita
>>come riga di codice, probabilmente non è necessario se non vuoi un colore
>>diverso dal nero che sicuramente, visto che funziona, lo da di default.
>>A proposito, quanto indicatomi gentilmente da Carlo costarella funziona
>>alla
>>grande, ma tu di che effetti speciali stai parlando, per quanto riguarda
>>le
>>tre combinazioni. Che mostro esce fuori dal tuo PC.
>>Ciao, Bruno
>>
>>
> In verità cercavo solo la via + semplice......se i parametri che setti per
> un controllo sono 'contraddittori' Access fa quello che può.....a suo
> tempo mi ero impelagato anche io su queste formattazioni, ma basta capire
> la logica che le governa e sta tranquillo che problemi del genere non li
> avrai +....SpecialEffect è una proprietà per governare l'aspetto della
> casella (incassato, piatto....) e influisce sulle altre proprietà. Non è
> questione di mostri......anche se non ho capito xchè, se sei all'inizio,
> vuoi a tutti i costi disegnare da codice una linea...
>
> --
No, ho solo avuto la necessità di cheare delle linee verticali alte quanto
il corpo, in quanto in un sottoreport, come nel mio caso, possono esserci 1
come 2 o più record. Avevo quindi la necessità di incorniciare (tipo
stampato) tutti i campi del report principale e sottoreport. Con il codice
di cui sopra è andata alla grande.
Ciao, Bruno


text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:glfj0v$rq3$1...@tdi.cu.mi.it...

-----------
Carlo, grazie per le parole "esattamente quello che succederà a te." mi ha
fatto molto piacere leggerle.
Hai scritto persino troppo per spiegarmi qualcosa sulla guida. Per una
questione di puntiglio voglio fare di nuovo la ricerca per vedere cosa
trovo.
Ancora mille grazie di cuore.
Bruno


text:
Bruno - S95 ha scritto:
>
>"Fair87" <roby.ces@gmail,com > ha scritto nel messaggio
>news:glfn87$h97$1...@news.nonsolonews,it ...

Benissimo allora!! L'importante è che funzioni :-)
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


text:
[CUT]
>>>
>>> --
>>
>>No, ho solo avuto la necessità di cheare delle linee verticali alte quanto
>>il corpo, in quanto in un sottoreport, come nel mio caso, possono esserci
>>1
>>come 2 o più record. Avevo quindi la necessità di incorniciare (tipo
>>stampato) tutti i campi del report principale e sottoreport. Con il codice
>>di cui sopra è andata alla grande.
>>Ciao, Bruno
>>
>>
> Benissimo allora!! L'importante è che funzioni :-)
>
> -------
Grazie e scusa se ho pensato che fossi al mio livello di conoscenza di
programmazione; ho male interpretato quanto hai scritto.
Il codice in questione, con l'aggiunta di Carlo Costarella funziona alla
grande, purtroppo per me in quanto non ci sono riuscito, ho cercato a far
riferimento al nome di una linea da me creata per aumentarne lo spessore in
punti a mio piacimento, ma non ci sono riuscito affatto, pur avendo
nuovamente navigato nell'help come consigliato da Carlo. Per me o per lo
meno per una persona al mio livello l'help non sempre aiuta a capire con
facilità, anche per mancanza di esempi, infatti in "Line e  BorderWidth "
non riesco a capire come fare riferimento a quell'oggetto (linea) per
poterne aumentare lo spessore a mio piacimento, amio piacimento perchè 1 pt
è poco e 2 pt sono tanti per quello che serve a me.
Mille grazie, Bruno


text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:497c4a1b$0$1110$4faf...@reader3.news.tin.it...
> [CUT]
> Per me o per lo meno per una persona al mio livello l'help non sempre
> aiuta a capire con facilitą, anche per mancanza di esempi, infatti in
> "Line e  BorderWidth " non riesco a capire come fare riferimento a
> quell'oggetto (linea) per poterne aumentare lo spessore a mio piacimento,
> amio piacimento perchč 1 pt č poco e 2 pt sono tanti per quello che serve
> a me.
>
> Mille grazie, Bruno
>
Puoi impostare lo spessore a tuo piacimento tra 1 e 32767.
Me.DrawWidth = 1.5 non da errori ma non so se corretto.
Line non č un oggetto ma un metodo...come ben documentato nella guida:
"Il metodo Line consente di disegnare linee e rettangoli per un oggetto
Report quando si verifica l'evento Stampa".
L'oggetto č il report.
Tradotto significa che quando scrivi Me.DrawWidth il "Me" č riferito
all'oggetto Report e DrawWidth ad una sua proprietą
Il controllo (oggetto) Linea a cui applicare la proprietą BorderWidth č
un'altra cosa. Questo oggetto č per esempio una linea che tracci in un
report usando il controllo Linea che trovi nella casella degli strumenti.
Ciao, Carlo


text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:glhlqm$o12$1...@tdi.cu.mi.it...
>
> "Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
> news:497c4a1b$0$1110$4faf...@reader3.news.tin.it...
>> [CUT]
>> Per me o per lo meno per una persona al mio livello l'help non sempre
>> aiuta a capire con facilità, anche per mancanza di esempi, infatti in
>> "Line e  BorderWidth " non riesco a capire come fare riferimento a
>> quell'oggetto (linea) per poterne aumentare lo spessore a mio piacimento,
>> amio piacimento perchè 1 pt è poco e 2 pt sono tanti per quello che serve
>> a me.
>>
>> Mille grazie, Bruno
>>
>
> Puoi impostare lo spessore a tuo piacimento tra 1 e 32767.
> Me.DrawWidth = 1.5 non da errori ma non so se corretto.
> Line non è un oggetto ma un metodo...come ben documentato nella guida:
> "Il metodo Line consente di disegnare linee e rettangoli per un oggetto
> Report quando si verifica l'evento Stampa".
> L'oggetto è il report.
> Tradotto significa che quando scrivi Me.DrawWidth il "Me" è riferito
> all'oggetto Report e DrawWidth ad una sua proprietà
> Il controllo (oggetto) Linea a cui applicare la proprietà BorderWidth è
> un'altra cosa. Questo oggetto è per esempio una linea che tracci in un
> report usando il controllo Linea che trovi nella casella degli strumenti.
>
> Ciao, Carlo
-----------
Carletto, Carletto; che santa pazienza che hai, sia tu che gli altri con le
tue capacità (spero di farne parte anche io un giorno a venire).
Ora mi è più chiaro il tutto; sono riuscito a utilizzare BorderWidth con la
seguente sintassi "Me.MiaLinea.BorderWidth = 3"  ............e vai alla
grande.
Mille grazie e buona continuazione della domenica
    Bruno


text:
Bruno - S95 ha scritto:

Ti assicuro che le mie conoscenze in fatto di Access e VBA non sono ASSOLUTAMENTE in grado di competere con i mostri sacri ed i senior del NG!!!!!!! Spero solo di poter dare il mio contributo ogni tanto (e anche un sacco di 'pataccate'!!!).....La mia riflessione riguardo a disegnare una line da codice erano solo riferite al fatto che a volte si può ottenere il risultato con minor sforzo.....per esempio se devo avere una linea verticale a fianco del record (un qualsivoglia numero), a volte, ma solo a volte, la disegno con la 'linea' del menu e stringo il corpo fino a farlo alto come la linea......all'aumentare dei record ho una linea verticale....cmq imparare ad usare l'help, internet ed il NG non è immediato.....a volte se uno non sa cosa cercare l'help può essere alquanto ostico!!!! Cmq persisti e non scoraggiarti!!! Qua tu, come me, troverai sempre un valido aiuto....



text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:gli9lr$fhk$1...@news.nonsolonews.it...

Mille grazie e alla prossima.
Bruno


title: nascondere pulsanti se controllo non ha valori

author: Alberto Luzi

text:
Salve
Utilizzando la proprietà tag del controllo,
volevo nascondere i pulsanti se il controllo =null.
Ho provato così ma non va bene;

  For Each ctl In Me
     If ctl.Tag = "Ct" Is Null Then
       If ctl.Tag = "Pl" Then
         ctl.Visible = False
       End If
     End If
  Next ctl

grazie


text:

Sei certo che quella verifica che fai sulla proprietà TAG possa dare risultati ...?
Hai imparato a fare DEBUG per capire riga per riga cosa accade...?

Questo controllo cosa dovrebbe fare secondo te...?
---->  If ctl.Tag = "Ct" Is Null Then

La sintassi è ovviamente ERRATA ma non capisco la logica... oltetutto se TAG="Ct" poi non potrà essere "PI".... insomma metti ordine poi vediamo.

@Alex


text:

grazie Alex

mi da subito l'errore: necessario oggetto,
la mia intenzione è quella di:
If ctl.Tag = "Ct" Is Null Then
è come dire, se il controllo con tag "Ct" è nullo, cioè senza valori,
il pulsante con tag "Pl" non deve essere visibile


text:
> mi da subito l'errore: necessario oggetto,
> la mia intenzione è quella di:
> If ctl.Tag = "Ct" Is Null Then
> è come dire, se il controllo con tag "Ct" è nullo, cioè senza valori,
> il pulsante con tag "Pl" non deve essere visibile

Si ma non funzionerà mai... perchè la collection control che stai ciclando non ha riferimenti fissi, ed una volta passato il controllo poi non torna indietro...!
Se hai già passato il ctl.Tag="PI" non lo trovi più... e l'indicizzazione nella collection control non può essere l'elemento che condiziona il codice.

Il tuo codice per come lo hai pensato è poco proponibile... al di la dell'errore tecnico che ti ho evidenziato... (dove hai trovato IS NULL...?)
Esiste la Funzione IsNull(expression) ma non si confronta un valore con IS NULL per determinare se è NULL...
Leggi questo:
http://allenbrowne.com/casu-12.html

Se vuoi controllare il contenuto del controllo in relazione alla proprietà TAG si scrive così:
 If ctl.Tag = "Ct" AND IsNull(ctl.Value) Then
    ' ma a questo punto ctl.TAG non varrà MAI "PI" quindi non potrà MAI funzionare...!
End if

A questo punto dal momento che la tua logica non è applicabile, anzi è fortemente errata di base, serve capire un po meglio tutto.

Che rapporto esiste tra il controllo con Tag="Ct" e "PI"...?
Di quanti controlli stiamo parlando...?
Perchè vuoi Ciclare la collection per fare questa cosa...?

@Alex


text:

ciao Alex e grazie

ho creato una maschera per l'anagrafica
dove ho p.e.
nome
indirizzo
Cap
città
telefono
cellulare
ecc.

per 6 controlli ho inserito un pulsante a fianco,
per visualizzare o meno i relativi dati sul report.
Ora, volevo visualizzare i pulsanti, solo dove i controlli hanno un valore.


text:
> ho creato una maschera per l'anagrafica
> dove ho p.e.
> nome
> indirizzo
> Cap
> città
> telefono
> cellulare
> ecc.
>
> per 6 controlli ho inserito un pulsante a fianco,
> per visualizzare o meno i relativi dati sul report.
> Ora, volevo visualizzare i pulsanti, solo dove i controlli hanno un valore.

In questi casi serve qualche malizia.
I Button li devi chiamare con lo stesso nome del controllo legato aggiungendo un suffisso distintivo...
Es. Se la txtbox si chiama "Cap" il button puoi chiamarlo "btn_Cap"
In questo modo assegni la proprietà TAG solo alle textbox o controllo associato che sia Sao sempre come accedere al suo button.
Ipotizziamo quindi che Tag="X" sulle textbox

Quindi:
Dim Ctl as Access.Control
For each ctl in Me.Controls
    IF ctl.TAG="X" then
        Me.Controls("btn_" &
ctl.name
).Visible=Len(ctl.value & vbNullstring)>0
    End If
Next

Ragionarci su ma cerca di capirlo altrimenti i passi avanti sono zero.

@Alex


text:

La storia è tutta qui:
===============================
Private Sub Command88_Click()
' Definisce il Tag di Command89e lo mostra
Controls("Command89").Tag = "Vaffanculo"
MsgBox Controls("Command89").Tag

' Elimina il Tag di Command89
Controls("Command89").Tag = vbNullString

' Se il Tag di command89 è vbNullString... lo rende invisibile
If Controls("Command89").Tag = vbNullString Then
    Controls("Command89").Visible = False
End If

End Sub
===============================

Il For Each lo puoi usare per la majonese.

Bruno


text:

grazie a tutti


title: formattazione campi query

author: Antonio

text:
salve a tutti, ho creato una maschera basandomi su una query...

La query esegue delle somme e sottrazioni; i risultati sono mostrati in una maschera continua. Avevo pensato di formattare un campo in modo che il campo C diventi rosso se è minore del 20% di B.

Qui viene il bello! La formattazione da risultati... bizzarri! In alcuni casi il campo B = 2000 e C = 70 ma C non diventa rosso! In altri si.... un caos!

Ho provato anche ad inserire, nelle sottrazioni il Format( xxx; "Standard"), senza risultati!
Cosa sbaglio?


title: formattazione campi query

text:

Per farlo diventare rosso devi usare la Formattazione Condizionale...
non Format.

@Alex


title: formattazione campi query

text:
il format mi serviva per una questione ben precisa: dalla query esce fuori un risultato del tipo: 1589

il campo nella maschera, relativo a quel risultato, non riesce a formattarlo in nessun modo! l'unico è stato quello di inserire Format( xxxx , "Standard") nella query!
Ma anche in questo modo... la formattazione da i numeri!

veniamo alla formattazione cond.: nella query ci sono 2 somme, A e B.

Volevo fare in modo che la somma B fosse di colore rosso se è circa il 20% di A! Ma non c'è verso!

Siamo al paradosso che se A = 2560 e B = 70 ....  B resta di colore nero! mentre A = 1200 e B = 800 con B rosso!

Non so che pensare!


title: formattazione campi query

text:

Il problema è che tu non hai chiaro e non hai chiarito il TIPO di
campi che usi.
Innanzitutto FORMAT converte il dato in STRINGA, quindi applicare una
Percentuale è utopistico.
L'applicazione del 20% oltretutto è solo VISUALE tutti quelli che
trattano NUMERI sanno che il 20% in realtà è [Numero*0.2]....
Se persisti con ipotizzare che sia Access a non capire nulla... credo
tu possa aver preso la strada sbagliata.
@Alex


title: formattazione campi query

text:
Alex... è OVVIO che il 20% è SOLO visuale!

Se non interpreto male la tua richiesta, il campo della tabella di origine è un campo di tipo Precisione Singola..


title: formattazione campi query

text:
On 19 Set, 07:39, Antonio <
ant...@gmail.com
> wrote:
> Alex... è OVVIO che il 20% è SOLO visuale!
>
> Se non interpreto male la tua richiesta, il campo della tabella di origine è un campo di tipo Precisione Singola..
Sul tipo di precisione devi avere tu il metro, ma non hai capito
nonostante te lo abbia detto, che la funzione FORMAT converte in
stringa, e se pensi di applicare
il Calcolo della % ad una stringa... è ovvio sucedano cose strane.
@Alex


title: formattazione campi query

text:
... si che l'ho capito!

Ho notato che lo stesso problema viene generato dalla funzione Nz(somma, 0)

così ho optato per inserire nella query un
iif(isnull(somma);0;somma)

e sembra andare, che ne pensi?


title: creare newsletter html da access

text:
ho imparato a mandare email e quindi anche allegati da access utzzando il
controllo winsock preso dall'esempio presente sul sito comune.
sapete dirmi come potrei creare a livello di codice vba delle newsletter
html come quelle che arrivano dalle grosse aziende nelle cnostre caselle di
posta?
ovvero non vorrei dover allegare il file html altrimenti un utente dovrebbe
aprirlo ma vorrei che la newsletter sia subito leggibile in formato html e
con grafica.
attendo vostri aiuti, Grazie.


title: creare newsletter html da access

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b5t1nf$hlf$1...@lacerta.tiscalinet.it...

Attenzione che alcuni (compreso il sottoscritto) per colpa di script
"maliziosi" non visualizza mail in formato HTML ma solo in formato testo...
Ciao.
--
Sergio MAZZA


title: Estrazione in base a al mese

author: Tillo

text:
Salve
Dovrei impostare una query che possiede un campo "data inserimento" (insieme
ad altri) che mi estragga tutti i record appartenenti ad un mese da me
prescelto in una maschera con una casella combinata contenente tutti i mesi
come elenco valori.
Come devo specificare i criteri delle query per ottenere quel risultato?
Grazie 1K per l'help


title: Estrazione in base a al mese

author: Fabio Montagner

text:

Usando la funzione month() che ti restituisce il numero del mese e nella
combo metti i numeri dall'1 al 12
where month(tuadata) = valore.tuacombo


title: Estrazione in base a al mese

text:
"Tillo" <
re...@libero.it
> ha scritto nel messaggio
news:51lu7.6786$0Y2.1...@news.infostrada.it...

Innanzitutto devi usare un trucchetto perchè Access non associa a Gennaio=1,
quindi dovrai crearti
una Bella Tabellina a 2 Campi, N_Mese(Numerico non contatore) e Mese (Testo
20 caratteri).
Da questa tabella prenderà i dati la Combo, nascondendo il Campo Principale
(Numerico) e visualizzando solo
il Nome del Mese.
Ora nella Qry basterà confrontare Month(TuaData)=Forms!TuaForm.TuaCombo
Et voilà......
@Alex.


title: Estrazione in base a al mese

author: Silvio Berruti

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:9pdbl7$1eo$1...@nreada.inwind.it...
>
> "Tillo" <
re...@libero.it
> ha scritto nel messaggio
> news:51lu7.6786$0Y2.1...@news.infostrada.it...
> > Salve
> >
> > Dovrei impostare una query che possiede un campo "data inserimento"
> (insieme
> > ad altri) che mi estragga tutti i record appartenenti ad un mese da me
> > prescelto in una maschera con una casella combinata contenente tutti i
> mesi
> > come elenco valori.
> > Come devo specificare i criteri delle query per ottenere quel risultato?
> >
> > Grazie 1K per l'help
> >
> Innanzitutto devi usare un trucchetto perchč Access non associa a
Gennaio=1,
> quindi dovrai crearti
> una Bella Tabellina a 2 Campi, N_Mese(Numerico non contatore) e Mese
(Testo
> 20 caratteri).
Forse la tabellina non č cosě indispensabile: prova a vedere la differenza
tra Format(Date, "mm") e Format(Date, "mmmm")
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Estrazione in base a al mese

author: Salvatore

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:b3Du7.13219$0Y2.2...@news.infostrada.it...

Forse č meglio con Format(Date, "mm aa") e Format(Date, "mmmm aaaa"), cosě č
possibile ordinare date su diversi anni


title: Estrazione in base a al mese

author: Roberto dal portatile

text:
"Salvatore" <
sal...@tiscalinet.it
> ha scritto nel messaggio
news:9pfe4v$671$1...@pegasus.tiscalinet.it...
>
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
> news:b3Du7.13219$0Y2.2...@news.infostrada.it...
> >
> > "@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
> > news:9pdbl7$1eo$1...@nreada.inwind.it...
> > >
> > > "Tillo" <
re...@libero.it
> ha scritto nel messaggio
> > > news:51lu7.6786$0Y2.1...@news.infostrada.it...
> > > > Salve
> > > >
> > > > Dovrei impostare una query che possiede un campo "data inserimento"
> > > (insieme
> > > > ad altri) che mi estragga tutti i record appartenenti ad un mese da
me
> > > > prescelto in una maschera con una casella combinata contenente tutti
i
> > > mesi
> > > > come elenco valori.
> > > > Come devo specificare i criteri delle query per ottenere quel
> risultato?
> > > >
> > > > Grazie 1K per l'help
> > > >
> > > Innanzitutto devi usare un trucchetto perchè Access non associa a
> > Gennaio=1,
> > > quindi dovrai crearti
> > > una Bella Tabellina a 2 Campi, N_Mese(Numerico non contatore) e Mese
> > (Testo
> > > 20 caratteri).
> >
> > Forse la tabellina non è così indispensabile: prova a vedere la
differenza
> > tra Format(Date, "mm") e Format(Date, "mmmm")
> >
> > --
> >
> > Silvio
> >
> >
> > il sito comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> >
> >
> >
> Forse è meglio con Format(Date, "mm aa") e Format(Date, "mmmm aaaa"), così
è
> possibile ordinare date su diversi anni
>
Beh, se il campo si chiama Data1 (è un po' difficile che si chiami Date),
penso che l'ordinamente vada fatto su:
Pippo: Year(Data1)*100 + Month(Data1)
altrimenti Agosto 2001 verrà prima di Novembre 1999.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Estrazione in base a al mese

author: Alex

text:
"Silvio Berruti" <
sber...@libero.it
> wrote in message
news:b3Du7.13219$0Y2.2...@news.infostrada.it...
>
> "@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
> news:9pdbl7$1eo$1...@nreada.inwind.it...
> > Innanzitutto devi usare un trucchetto perchč Access non associa a
> Gennaio=1,
> > quindi dovrai crearti
> > una Bella Tabellina a 2 Campi, N_Mese(Numerico non contatore) e Mese
> (Testo
> > 20 caratteri).
> Forse la tabellina non č cosě indispensabile: prova a vedere la differenza
> tra Format(Date, "mm") e Format(Date, "mmmm")
> Silvio
OOOPS...!, ottusamente non ci avevo nemmeno pensato......!
Mi hai illuminato Silvio.
Grazie @Alex
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Report selettivo dei campi

author: SaMa

text:
Help!!!
Partendo da una query contenente vari record con campi numerici vorrei
creare un report in cui vengono stampati, per ogni record, solo i campi (e
relative etichette) contenenti valori maggiori di zero.
Esempio CAMPO0= Tizio CAMPO1= 12 CAMPO2= 0 CAMPO3=  4 CAMPO5= 0 CAMPO6=
1....ECC. e via dicendo per gli altri record dove in CAMPO0 ho altri nomi
Sul Report vorrei avere:
Tizio: CAMPO1 = 12 CAMPO3= 4 CAMPO6= 1
Ho dato un'occhiata sul sito comune, ma sono troppo principiante per una
ricerca ad hoc.
C'è qualcuno che può aiutarmi o indirizzarmi per risolvere questo mio
problema?
Grazie
elgr...@freemail.it


title: Report selettivo dei campi

author: Luigi

text:
Nei criteri della Query su cui è basta il report potresti mettere
IsNotNull...
"SaMa" <
save...@inwind.it
> ha scritto nel messaggio
news:Qy6j8.836$%g7.1...@twister2.libero.it...



title: Report selettivo dei campi

author: Antonio Biso

text:
Luigi <
luigia...@tiscali.it
> wrote in message
90aj8.2561$%g7.7...@twister2.libero.it...
> Nei criteri della Query su cui è basta il report potresti mettere
> IsNotNull...
Invece tu potresti scrivere DOPO il quoting!!!
Antonio


title: Aiuto!!

author: simone

text:
Ho due quesiti da porvi e spero che qualcuno mi possa aiutare:
1) Quando in VBA sotto Access 2000 uso OpenRecordset per aprire vuna
tabella come faccio a dargli il WhereIs. Non mi riconosce la tabella.
2) Come posso condividere una maschera i un database in rete tra piu'
utenti?
3) come posso applicare delle restrizioni di protezione ad un database in
modo che ad esempio un determinatop utente non possa accedere a una
maschera ben determinata?
Se potete aiutarmi per favore scrivete a:
simo...@freemail.it
Grazie molte


title: Aiuto!!

author: Ditta Cerri

text:
simone scrive:
> Ho due quesiti da porvi e spero che qualcuno mi possa aiutare:
>
> 1) Quando in VBA sotto Access 2000 uso OpenRecordset per aprire vuna
> tabella come faccio a dargli il WhereIs. Non mi riconosce la tabella.
Non aprire la tabella, usa una SQL
> 2) Come posso condividere una maschera i un database in rete tra piu'
> utenti?
Quando condividi un database, di default tutti gli oggetti del database sono
condivisi (i db sono condivisi di default)
> 3) come posso applicare delle restrizioni di protezione ad un database in
> modo che ad esempio un determinatop utente non possa accedere a una
> maschera ben determinata?
Vai sul sito comune e cerca informazioni sulla protezione a livello utente
> Se potete aiutarmi per favore scrivete a:
>
>
simo...@freemail.it
Ti giustifico perchè forse è la prima volta che scrivi, in un NG non è
educato chiedere risposte per posta elettronica. Le risposte devono essere a
disposizione di tutti. (infatti se tu avessi letto le risposte date agli
altri prima di postare la tua domanda avresti fatto meno domande)
Ciao, Sib


title: Aiuto!!

author: Lbo dall'ufficio

text:
>> 1) Quando in VBA sotto Access 2000 uso OpenRecordset per aprire vuna
>> tabella come faccio a dargli il WhereIs. Non mi riconosce la tabella.
>
>Non aprire la tabella, usa una SQL
cos'e' il whereis?
-----------------------------------
Per favore, accodate due zeri al mio stipendio.  E' per renderlo Y2K-compliant.
-----------------------------------
togliete NOSPAM per rispondermi.
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: Aiuto!!

author: sib

text:
Lbo dall'ufficio Chiede:
> >> 1) Quando in VBA sotto Access 2000 uso OpenRecordset per aprire vuna
> >> tabella come faccio a dargli il WhereIs. Non mi riconosce la tabella.
> >
> >Non aprire la tabella, usa una SQL
>
> cos'e' il whereis?
Io non ho voluto entrare in cotali dettagli, stendevo un velo...
Ciao, Sib


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

author: ndb

text:
In una maschera dove addebito codice conto, descrizione ed importo, ho una
sottomaschera a maschere continue che riepiloga i dati inputati.
Ora grazie all'aiuto del n.g sono riuscito ad inserire un tasto che mi
faccia "entrare " nella sottomaschera.
Il cursore si posizione su codice conto.
Vorrei far si che premendo invio sul codice conto, questo , con la relativa
descrizione ed importo si riporti automaticamente nella maschera principale
al fine di poterlo poi modificare (negli stessi campi che uso per
l'imputazione)  come posso fare?
Grazie in anticipo
ndb


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

author: Alessandro Cara

text:

sempre sul solito keydown (del controllo "codiceconto") per enter
non fai altro che prelevare i .Value che ti interessano e li porti in
parent.controllo e poi, magari, fai anche il setfocus su form principale
--
ac
y-1=x


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:
>>
> sempre sul solito keydown (del controllo "codiceconto") per enter
> non fai altro che prelevare i .Value che ti interessano e li porti in
> parent.controllo e poi, magari, fai anche il setfocus su form principale
>
si chiaro ma come lo faccio?
cosa scrivo?


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

author: geppo

text:

Private sub codiceconto_keydown(KeyCode as integer, shift as integer)
if keycode = vbkeyreturn then
parent.NomeTuoControllo = codiceconto
ecc..
end if
end sub
--
Ciao
Geppo


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:

non sono stato chiaro o vuoi il codice? Propendo per la seconda
questo e' il codice che ti aveva postato geppo con le correzioni
"
delle proprieta' della form principale (*sottomaschera*)precisamente
nella scheda evento
imposta la proprieta "Anteprima Tasti = Si".
Fatto questo nell'evento keydown della form scrivi:
private sub form_keydown(Keycode as integer, shift as integer)
if keycode = vbkeyf7 (*vbkeyreturn*) then
   parent.Nomecontrollo = me.nomecontrollo
   parent.setfocus
   parent.nomecontrollo.setfocus
end if
end sub
"
--
ac
y-1=x


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:
Grazie infinite per tutti gli aiuti.
Mi scuso se non sono chiaro e lineare nelle risposte.
Avevo bisogno del codice.
Ora ci lavoro ed al limite..... ri-domando.
Grazie ancora.
ndb


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:
Per la precisione:
> questo e' il codice che ti aveva postato geppo con le correzioni
> "
In questo caso la proprieta' "Anteprima Tasti" puo' anche rimanere settata a
no, in quanto l'evento si deve scatenare solo sulla textbox codiceconto
della subform
 ;-)
> delle proprieta' della form principale (*sottomaschera*)precisamente
> nella scheda evento
> imposta la proprieta "Anteprima Tasti = Si".
>
> Fatto questo nell'evento keydown della form scrivi:
>
private sub codiceconto_keydown(Keycode as integer, shift as integer)
> if keycode = vbkeyf7 (*vbkeyreturn*) then
>   parent.Nomecontrollo = me.nomecontrollo
>   parent.setfocus
>   parent.nomecontrollo.setfocus
> end if
>
> end sub
--
Ciao
Geppo


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:
Funziona quasi tutto.
Solo che:
Quando mi trovo in un campo della sottomaschera e batto l'invio, mi riporta
nella maschera i dati della riga successiva.
Se modifico il dato riportato , viene considerato un nuovo dato e quindi
aggiunge una riga alla sottomaschera e non modifica quella che ho
selezionato


title: ESPORTARE I DATI DA UNA SOTTOMASCHERA

text:

Questo fa capire che la marchera principale è associata alla stessa tabella
giusto?
Allora modifica l'evento keydown in modo tale da non copiare i dati dalla
subform alla form principale, ma filtrando quest'ultima::
private sub Codiceconto_keydown(keycode as integer, shift as integer)
if keycode = vbkeyreturn then
Parent.Filter = "id=" & Me![id]
Parent.FilterOn = True



title: problemi confronto

author: Mike Dens

text:
ciao a
tutti.la
 cosa sta diventando diffcile e vi chiedo aiuto. Dunque
ho una tab con 1 campo in cui è memeorizzato un solo record ( una parola
). da una maschera quando si digita una parola, vorrei che tramite una
routine si confrontasse la parola digitata con quella presente in tab 1
e quindi se sono uguali si aprisse un'altra maschera.
.....ci sto provando usando i recordset, i
tabledif.ma
 non ci sto a
capitr più niente...è così difficile????
P.S. Nella maschera la parola inserita non è associata ma è una
variabile, che io ho chiamato strvar; quindi quando clicco il tasto ok
dovrei aver un confronto tra strvar e il valore contenuto nel campo
parola della tab1...
ciao e grazie
mike
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: problemi confronto

author: bauhausk

text:
non è difficile fai così:
Dim dbs As Database
Dim parola As Recordset
Set dbs = CurrentDb
Set parola = dbs.OpenRecordset("NomeTabella")
parola.MoveFirst
parola.Edit
If Form![NomeCampo] = parola!NomeCampo then
'Istruzioni per aprire la maschera con eventuali clausole
parola.Close
exit sub
else
parola.Close
exit sub
end if
Se nella tua tabella c'è più di un record devi utilizzare un ciclio Do Loop
per  trovare quello che ti interessa.
andrea
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:3181dcb95ae70bd9d4...@mygate.mailgate.org...



title: problemi confronto

author: The-real-Isaac

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:3181dcb95ae70bd9d4...@mygate.mailgate.org...
> ciao a
tutti.la
 cosa sta diventando diffcile e vi chiedo aiuto. Dunque
> ho una tab con 1 campo in cui č memeorizzato un solo record ( una parola
> ). da una maschera quando si digita una parola, vorrei che tramite una
> routine si confrontasse la parola digitata con quella presente in tab 1
> e quindi se sono uguali si aprisse un'altra maschera.
> .....ci sto provando usando i recordset, i
tabledif.ma
 non ci sto a
> capitr piů niente...č cosě difficile????
> P.S. Nella maschera la parola inserita non č associata ma č una
> variabile, che io ho chiamato strvar; quindi quando clicco il tasto ok
> dovrei aver un confronto tra strvar e il valore contenuto nel campo
> parola della tab1...
> ciao e grazie
> mike
>
Private Sub strvar_AfterUpdate
    If Me.strvar = DLookUp("NomeCampo","NomeTabella") Then
        ...
    End If
End Sub
Ciao
--
Alberto


title: totale condizionato in sottoreport

text:
ho una maschera dati, controllo campi punti1 e punti2
ho una sottomaschera abbinata ad una tabella titoli in cui vi sono i
controlli titoli, punti,tottitoli ,tipo e totpunti
nella maschera dati, vorroi far in modo che a punti1 mi calcola il totale
dei punti totpunti appartenenti ad un valore della categoria Tipo e a
punti2 mi calcola il totale dei punti totpunti appartenenti ad un altro
valore della categoria Tipo
es:
titolo   punti   totpunti   tipo
titolo1    5       10        A
titolo2    3       6         A
titolo3    2       4         B
titolo4    4       8         B
totale
punti1 = 16    (10+6)
punti2 = 12    (4+8)
come fò?
mica devo creare prima una query?
grazie
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: totale condizionato in sottoreport

author: Cinzia

text:
"luigi.onofrio" <
onofrio...@tin.it
> ha scritto nel messaggio
news:f732dr$pk7$1...@news.newsland.it...
> ho una maschera dati, controllo campi punti1 e punti2
> ho una sottomaschera abbinata ad una tabella titoli in cui vi sono i
> controlli titoli, punti,tottitoli ,tipo e totpunti
> nella maschera dati, vorroi far in modo che a punti1 mi calcola il
> totale
> dei punti totpunti appartenenti ad un valore della categoria Tipo e
> a
> punti2 mi calcola il totale dei punti totpunti appartenenti ad un
> altro
> valore della categoria Tipo
> es:
> titolo   punti   totpunti   tipo
> titolo1    5       10        A
> titolo2    3       6         A
> titolo3    2       4         B
> titolo4    4       8         B
>
> totale
> punti1 = 16    (10+6)
> punti2 = 12    (4+8)
>
>
> come fò?
>
> mica devo creare prima una query?
>
> grazie
> luigi
>
> --
Ciao Luigi,
nel piè di pagina della sottomaschera metti due controlli che come
origine record avranno:
Controllo1 = Somma(iif( tipo="A"; totPunti; 0))
Controllo2 = Somma(iif( tipo="B"; totPunti; 0))
Nella maschera principale  metti 2 caselle che hanno come origine dati
le due casella che stanno nel piè di pagina della sottomaschera.
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
---------------------------------------->