title: Ho bisogno di una mano

author: LaLo

text:
"Glauco" <
sur...@inwind.it
> ha scritto nel messaggio
news:9i224u$s43$1...@serv1.albacom.net...

Dovrebbe esserci qualcosa sul sito comune, ma non ricordo con esattezza.
Comunque ti posto il codice che utilizzo io:
Option Compare Database
Option Explicit
' Struttura utilizzata per la chiamata alle API
Private Type typFolder
    lngOwner As Long
    lngRoot As Long
    strDisplayName As String
    strTitle As String
    lngFlags As Long
    lngfn As Long
    lngParam As Long
    lngImage As Long
End Type
' Dichiarazione delle API utilizzate
Private Declare Function SHBrowseForFolder Lib "Shell32" (ptypBrowseInfo As
typFolder) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal plngPid As
Long, ByVal pstrPath As String) As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(pstrDialogTitle As String) As String
    ' Ritorna il nome della directory selezionata dal Common Dialog Box di
Windows
    On Error GoTo BrowseFolder_Err
    Dim typBI As typFolder          ' Struttura per chiamata API
    Dim lngList As Long             ' Numero della directory selezionata
    Dim strPath As String           ' Variabile contenente la directory
selezionata
    With typBI
        ' Assegnazione dell'owner
        .lngOwner = hWndAccessApp
        ' Titolo della finestra
        .strTitle = pstrDialogTitle
        ' Flag delle cartelle da visualizzare
        .lngFlags = BIF_RETURNONLYFSDIRS
    End With
    ' Chiamata alla funzione API per visualizzare la Common Dialog Box
    lngList = SHBrowseForFolder(typBI)
    ' Impostazione stringa per lettura nome directory selezionata
    strPath = String$(512, vbNullChar)
    ' Chiamata API per leggere il nome della directory selezionata
    Call SHGetPathFromIDList(lngList, strPath)
    ' Assegnazione al nome della funzione
    BrowseFolder = left$(strPath, InStr(strPath, vbNullChar) - 1)
BrowseFolder_Exit:
    Exit Function
BrowseFolder_Err:
    ' Condizione di errore
    MsgBox Err.Number & " " & Err.Description, vbOKOnly + vbCritical
    BrowseFolder = ""
    Resume BrowseFolder_Exit
End Function
Copia e incolla in un modulo, poi chiama la funzione BrowseFolder con il
titolo da visualizzare.
HTH
LaLo


title: Ho bisogno di una mano

author: lucianab64 on libero

text:
Glauco <
sur...@inwind.it
> wrote in message 9i224u$s43$1...@serv1.albacom.net...



title: valore predefinito nella combo

author: Ryc

text:
ciao,
è possibile avere come valore predefinito nella proprietà della combo
sempre l'ultimo inserimento effettuato nella combo stessa?
cioè se p.e. ho nella combo una serie di numeri
1-125353
2-565256
3-125223
vorrei che il numero alla posizione 3 sia quello predefinito
se poi ne aggiungo un'altro automaticamente
dovrà essere quello predefinito e così via.
Per avere questa situazione cosa devo
mettere in valore predefinito della proprietà della combo?
Grazie


title: valore predefinito nella combo

author: Karl Donaubauer

text:

Se si tratta sempre dell'ultima riga nell'elenco della combo:
[NomeCombo].[Itemdata]([NomeCombo].[ListCount]-1)
v.a.
http://www.donkarl.com/it?FAQ4.12
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: valore predefinito nella combo

text:

ciao Karl e grazie
l'ho inserito nel valore predefinito della combo "cmbIce"
ma non mi funziona
[cmbIce].[Itemdata]([cmbIce].[ListCount]-1)
dove sbaglio?


title: valore predefinito nella combo

text:

grazie Karl
ora funziona,
ho trovato dove sbagliavo.


title: asterischi su password

author: Enrico

text:
Ho utilizzato la forma per immissione di una password su un pulsante ma la
password e' perfettamente visibile: come faccio a nasconderla mentre la
scrivo ??
Grazie a chiunque mi possa aiutare....
Ghiro degli Abeti


title: asterischi su password

author: Roberto dal portatile

text:
"Enrico" <
end...@tin.it
> ha scritto nel messaggio
news:J9Fb6.34281$lV5.4...@twister1.tin.it...

Nella proprietą Maschera di input del tuo controllo scrivi (o seleziona)
Password.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: asterischi su password

text:
Roberto dal portatile ha scritto:
> "Enrico" <
end...@tin.it
> ha scritto:
> > Ho utilizzato la forma per immissione di una password su un pulsante ma
la
> > password e' perfettamente visibile: come faccio a nasconderla mentre la
> > scrivo ??
>
> Nella proprietą Maschera di input del tuo controllo scrivi (o seleziona)
> Password.
E stai attento che <F7> fa visibile il testo.
--
HTH
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: asterischi su password

author: Roberto da casa

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:94npv6$dsl8c$1...@ID-46617.news.dfncis.de...
[OK]
> > Nella proprietą Maschera di input del tuo controllo scrivi (o seleziona)
> > Password.
>
> E stai attento che <F7> fa visibile il testo.
>
> --
OK



title: report con valore zerro

author: Caterina Antinori

text:
Chiedo aiuto per un problema di report:
Voglio fare in modo che se  una casella di testo di un report  non contiene
alcun valore il titolo della corrispondente etichetta appaia colorata in un
dato colore.
Quale è il codice?
Grazie!


title: report con valore zerro

author: 'Roccia' Max

text:
On 15 Mar, 21:00, "Caterina Antinori" <
p...@microsoft.com
> wrote:
> Voglio fare in modo che se  una casella di testo di un report  non contiene
> alcun valore il titolo della corrispondente etichetta appaia colorata in un
> dato colore.
> Quale è il codice?
Devi eliminare l'etichetta e sostituirla con una casella di testo, e
su questa puoi utilizzare la formattazione condizionale.
cia'
Max


title: report con valore zerro

author: ciroteo ®

text:
"Caterina Antinori" <
pr...@microsoft.com
> ha scritto nel messaggio
news:45f9a5cd$0$17954$4faf...@reader1.news.tin.it...

da verificare ... vista l'ora ...
if me.caselladitesto="" or len (me.caselladitesto)=0 then
me.etichetta.forecolor = 255
else
me.etichetta.forecolor = 111
end if


title: report con valore zerro

text:
"ciroteo ®" <ciroteo(nospam)@
libero.it
> ha scritto nel messaggio
news:45f9d355$0$810$4faf...@reader5.news.tin.it...

scusa ovviamente l'evento è su formattazione della sezione report
corrispondente.
non su apertura.


title: report con valore zerro

text:
grazie,
ho provato con if isnull e va bene comunque. Sapete dirmi come farli
diventare anche in grassetto e/o corsivo?
Buona giornata a tutti.


title: report con valore zerro

author: Alessandro Baraldi

text:
On 15 Mar, 21:00, "Caterina Antinori" <
p...@microsoft.com
> wrote:

Se sei parente degli Omonimi mastri vinai.... in cambio di una misera
bottiglia
riserva ti aiuto....!
;-)
Grassetto Proprietà FontBold
Corsivo     Proprietà FontItalic
@Alex


title: report con valore zerro

text:
On 16 Mar, 09:06, "Caterina Antinori" <
p...@microsoft.com
> wrote:
> ho provato con if isnull e va bene comunque. Sapete dirmi come farli
> diventare anche in grassetto e/o corsivo?
controllo.font.bold=true
controllo.font.italic=true
cia'
Max


title: (post lungo) aggiornamento recordset mentre lo si sta leggengo

text:
ciao a tutti
come si fa a far si che mentre sto scorrendo un recordset di tabella, i
record che vado ad aggiungere non finiscano in fondo rispetto al cursore che
ho aperto ?
mi spiego
ho realizzato del codice VBA per allineare due tabelle; o meglio possiedo la
tabella A che contiene un elenco di record con cui devo aggiornare la
tabella B (già popolata dall'utente) andando a:
1) inserire in B quello che manca rispetto al nuovo elenco completo di A
2) cancellare in B quello che c'è in più rispetto al nuovo elenco di A
Non sustituisco B direttamente con A perchè ovviamente la parte "dati" del
record contiene dei valori digitati dall'utente;
Lo so che potrei portare prima in A (a paritò di chiave) tutti i dati
digitati dall'utente in B per poi sostituire integralmente la tabella B con
la A, ma questa soluzione non mi piace e vorrei capire se è possibile fare
altro.
Il problema che incontro è il seguente:
al termine dell'allineamento (scorrimento accademico di due elenchi
sequenziali senza accessi random) il risultato è nullo per i nuovi valori
inquanto tutti i nuovi record di A che a mano a mano vado ad inserire in B,
finiscono in fondo e quindi continuando ad elaborare prima vengono inseriti
in B questi nuovi record di A, ma poi vengono cancellati perchè
l'ordinamento dei record è avvenuto solo all'apertura del recordset e quindi
poi coninuando a scorrere B mi trovo delle chiavi di valore più basso
rispetto ad A (sono a fine file di A e in B trovo i nuovi record) e quindi
vengono cancellati
es:
valori recordset A prima di iniziare ad elaborare: 1, 3, 15, 30
valori recordset B prima di iniziare ad elaborare   1, 2, 5, 15, 30
durante l'elabborazione viene cancellato in B il 2 e il 5 ed aggiunto il 3;
ma il 3 viene aggiunto alla fine per cui continuando ad elaborare poi mi
trovo A=finefile e B=3 e quindi il programma mi va a camcellare il 3
avrei bosogno invece che (come per gli indexed) il 3 vada subito al suo
posto che quindi ingnorerei visto che lo vado ad inserire quando mi trovo
con  A=3 e B=5
grazie


author: SR

text:
"Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:tjWJb.47621$_P.20...@news4.tin.it...
> 1) inserire in B quello che manca rispetto al nuovo elenco completo di A
> 2) cancellare in B quello che c'č in piů rispetto al nuovo elenco di A
> Non sustituisco B direttamente con A perchč ovviamente la parte "dati" del
> record contiene dei valori digitati dall'utente;
Scusa, so che non č una risposta diretta, ma fare due query no? Sono piů
veloci e ci metti meno.


text:
"Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:tjWJb.47621$_P.20...@news4.tin.it...

Apri i due recordset e scorrili una prima volta per camcellare solamente i
record del file B che non hanno corrispondenza nel file A, ma non inserire
in B i record di A che non trovano corrispondenza; a questo chiudi e riapri
i due recordset, riscorrili da capo e questa volta effettua in B
l'inserimento dei record A che non esistono in B.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
>
> Apri i due recordset e scorrili una prima volta per camcellare solamente i
> record del file B che non hanno corrispondenza nel file A, ma non inserire
> in B i record di A che non trovano corrispondenza; a questo chiudi e
riapri
> i due recordset, riscorrili da capo e questa volta effettua in B
> l'inserimento dei record A che non esistono in B.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
il problema resta perchè è proprio inserendo un record in B, che questo va
in fondo
di fatto aggiungendo un record è come se invalidassi la "order by" che ho
nella direttiva di OpenRecordset
perchè i nuovi record vanno in fondo e li incontrerò (quindi è come se il
recordset diventasse disordinato)
teoricamente dovrei ciudere e riaprire il recordset ad ogni inserimento
questi sono i cursori:
Set rstA = CurrentDb.OpenRecordset("select * from [strutture campi
allineamento] order by id_struttura, campo, [tipo campo]")
Set rstB = CurrentDb.OpenRecordset("select * from [strutture campi] order by
id_struttura, campo, [tipo campo] ", , dbDenyWrite)
questo è la pseudo di quello che faccio (abbinamento di due sequenziali)
Do
    If  KA > KB Then 'campo obsoleto da cancellare
          'cancello record B
          'se B non è già a fine file lo rileggo (a fine file metto HIGH in
chiave)
   Else
          If KA < KB Then 'nuovo campo da aggiungere
                 'inserisco record B
                 'se A non è già a fine file lo rileggo (a fine file metto
HIGH in chiave)
          Else
                 If  A <> fineFile Then  'sono uguali e non è fine file
                       'faccio solo dei controlli e delle modifiche
                        'se A non è già a fine file lo rileggo (a fine file
metto HIGH in chiave)
                        'se B non è già a fine file lo rileggo (a fine file
metto HIGH in chiave)
                 End-If
           End-If
   End-If
   If KA = HIGHvalue AND KB = HIGHvalue Then Exit DO
Loop
Al momento mi salvo il valore della prima chiave inserita in B e quando lo
incontrerò considero fine file di B
Ma non mi piace, dovrei (come da teoria e prendendo anche spunto da quello
che dici te) creare un terzo file/tabella ad hoc che contenga solo i record
da inserire in B.
Quindi con l'abbinamento sequenziale faccio le cancellaizoni e le modifiche
direttamente in B e scriverò un file contenente solo i nuovi record.
Poi farò una upload in B dei nuovi record dal nuovo file. Così lo
scorrimento gira una una sola volta e le insert posso farle con una l'upload
esterna senza singole insert (che non è male).
Ciao Grazie dello spunto
PS ho imparato che non si scorre un recordset e contemporaneamente ci si
fanno delle insert


text:
"SR" <
ste...@despammed.com
> ha scritto nel messaggio
news:qYWJb.21577$Jw2....@tornado.fastwebnet.it...
>
> "Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
> news:tjWJb.47621$_P.20...@news4.tin.it...
> > 1) inserire in B quello che manca rispetto al nuovo elenco completo di A
> > 2) cancellare in B quello che c'è in più rispetto al nuovo elenco di A
> > Non sustituisco B direttamente con A perchè ovviamente la parte "dati"
del
> > record contiene dei valori digitati dall'utente;
>
> Scusa, so che non è una risposta diretta, ma fare due query no? Sono più
> veloci e ci metti meno.
>
comunque devo scorrermeli perchè ci devo fare dei ragionamenti (e modificare
i record uquali..avvertire l'utente con un report)
però effettivamente posso fare una Query per l'Iinsert che è quella che mi
da i problemi (Insert in B di select A where non In B...)
comunque era anche per sentire qualche altra esperienza in merito
ciao grazie


text:
"Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:7%XJb.39201$VW.18...@news3.tin.it...
>
> "SR" <
ste...@despammed.com
> ha scritto nel messaggio
> news:qYWJb.21577$Jw2....@tornado.fastwebnet.it...
> >
> > "Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
> > news:tjWJb.47621$_P.20...@news4.tin.it...
> > > 1) inserire in B quello che manca rispetto al nuovo elenco completo di
A
> > > 2) cancellare in B quello che c'è in più rispetto al nuovo elenco di A
> > > Non sustituisco B direttamente con A perchè ovviamente la parte "dati"
> del
> > > record contiene dei valori digitati dall'utente;
> >
> > Scusa, so che non è una risposta diretta, ma fare due query no? Sono più
> > veloci e ci metti meno.
> >
> comunque devo scorrermeli perchè ci devo fare dei ragionamenti (e
modificare
> i record uquali..avvertire l'utente con un report)
Forse i ragionamenti li puoi fare da query, utilizzando iif, switch e choose
Inserendo un campo timestamp con la data di modifica record, hai poi un
criterio per il report


text:
"SR" <
ste...@despammed.com
> ha scritto nel messaggio
news:GY_Jb.21909$Jw2...@tornado.fastwebnet.it...

 giusto grazie
mi sta più simpatico fare coding in vba piuttosto che nelle query
comunque ho risolto, con il vba ho fatto delete e changhe
poi le insert massive le ho fatte con una query di inserimento (che è anche
meglio inserire molti record via query piuttosto che con tante insert)


text:
"Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:bWXJb.39179$VW.18...@news3.tin.it...

A quanto pare non sono riuscito a spiegarmi bene; il mio suggerimento era
quello di aprire e chiudere i recordset due volte: la prima volta è per
eliminare i record di B che non esitono in A e la seconda volta per inserire
in B i record di A che non esistono in B. Poiché i record dei due recordset
li scorri logicamente e non fisicamente (non a caso hai usato la clausola
ORDER BY), non ha alcuna importanza se *fisicamente* i nuovi record verranno
inseriti in coda, in quanto poi, quando riaprirai i recordset, verranno
letti nell'ordine logico che tu hai stabolito con le ORDER BY. Anche se
l'inserimento lo effettuerai con delle query di inserimento, i nuovi record
inseriti verranno accodati in fondo alla tabella B e poi te li ritroverai al
loro posto *logico* per effetto dell'ordinamento che hai stabilito con le
ORDER BY al momento della riapertura del recordset B. Quindi, fermo restando
che puoi risolvere il problema come meglio desideri, la mia soluzione
dovrebbe comunque funzionare.
Inoltre non vedo proprio quale sia il problema a scorrere un recordset e
contemporaneamente inserire in esso nuovi record; eventualmente il problema
è quello di mantenere in un determinato ordine logico i nuovi record, ed è
per questo che ti suggerivo di dividere le cancellazioni dagli inserimenti,
riaprendo ogni volta i due recordset.



text:
si ora ho capito cosa volevi dire
si certo funziona
comunque ho preso la strada di cancellare via Vba o modificare mentre socco
il recordset
e poi mandare in eseguzione una query di inserimento
questa la preferisco perchè se i record da inserire sono molti forse la
query fa prima delle singole insert
grazie


author: Antonio Biso

text:
"Luciano996" <
lucia...@tiscali.it
> ha scritto nel messaggio
news:QSiKb.44725$VW.20...@news3.tin.it...
> si ora ho capito cosa volevi dire
> si certo funziona
Non funziona niente, perchč non hai lasciato parte del quoting e quindi non
si capisce nulla!!!
Antonio


title: operatore like in una sub

author: Sgnapolo

text:
Ho una semplice istruzione SQL in una sub che utilizza l'operatore like, ma
non estrae i dati.
Ho scritto qualcosa che non va?
Premetto che se copio il codice cosě com'č in una query, i dati vengono
estratti correttamente.
Private Sub localita()
.......
SQL = "select * from localita where localita.paese Like '" & me.paese & " *'
"
....
End Sub
me.paese puň contenere anche una sola lettera (per esempio una B) cosicchč
dovrebbe estrarre tutti i paesi che iniziano per B, me non c'č verso!!!
L' SQL ottenuto č (select * from localita where localita.paese Like 'B*' ")
Grazie dell'aiuto


title: operatore like in una sub

author: Alex NSB

text:
> SQL = "select * from localita where localita.paese Like '" & me.paese
> & " *' "
> L' SQL ottenuto č (select * from localita where localita.paese Like
> 'B*' ")
Sicuro? A me pare ci sia uno spazio davanti a *...
HTH.
Alessandro


title: operatore like in una sub

text:
Hai ragione, ma è un errore che ho fatto scrivendo sul ng. Per la cronaca
comunque ho risolto creando una query a parte, ma non capisco perchè
scrivendo l'SQL direttamente nel codice, questo non funziona. Mah!!
Grazie ancora
"Alex NSB" <
ale...@tin.it
> ha scritto nel messaggio
news:cv2j5q$r5e$1...@newsread.albacom.net...
>> SQL = "select * from localita where localita.paese Like '" & me.paese
>> & " *' "
>
>> L' SQL ottenuto è (select * from localita where localita.paese Like



title: R: Dile mdb --->Exe

author: SimonenomiS

text:
Carlo Casciaro <
ccas...@hotmail.com
> wrote in message
8606cj$8qo$1...@pegasus.tiscalinet.it...
> Esiste la possibilità di convertire in eseguibile un database access????
  Schhhh! Piano piano, non farti sentire... (il Biso e' sempre vigile...)
> Non dovrebbe essere difficile visto che utilizza un'interfaccia e un
> linguaggio vicino a VB.
  Ma scherzi??? Lo dico per il tuo bene... fatti un salto nell'area FAQ del
Sito Comune di it.comp.database.access
(
http://members.xoom.it/it_db_access
 ), lì c'e' la risposta alla tua
domanda. Corri pero', che LBO, Bettini e Biso potrebbero essere già svegli!
  In bocca al lupo!
    :-DDDDDDD
PS: ovviamente sto' scherzando, non te la prendere. E' solo che questa
domanda e' diventata (ma lo era fin dai tempi di ICDA) un tormentone: e'
stata posta almeno 6 volte negli ultimi 11 giorni!


title: Grafico statistico

author: il barbi

text:
Mi interessa visualizzare un grafico statistico costruito in
base a un vettore di interi calcolati con una routine VBA, o
magari in base a una tabella in cui metto questi interi.
C'e' qc di gia' pronto, magari un controllo ActiveX? O
magari posso passare il vettore in un foglio Excel e
inserire nella mia maschera un grafico di Excel?
il barbi


title: Grafico statistico

author: Sergio MAZZA

text:
"il barbi" <
ilb...@tin.it
> ha scritto nel messaggio
news:eLQNb.126551$_P.45...@news4.tin.it...

Io ti consiglio:"...O magari posso passare il vettore in un foglio Excel e
inserire nella mia maschera un grafico di Excel"; prepari tutto su excel
(dati collegati ad access e grafico) e copi/incolli (speciale) il
collegamento sulla form...
Ciao.
--
Sergio MAZZA


title: Qry a campi incrociati

author: FredBusca

text:
Buonasera, ho realizzato una maschera per il riepilogo dei pagamenti,
con origine record una query a campi incrociati:
PARAMETERS [Forms]![ProspettoQuote]![SiNo] Text ( 255 );
TRANSFORM Sum(DatiRicevuteEmesse.ImportoIncasso) AS
SommaDiImportoIncasso
SELECT [Cognome] & " " & [Nome] AS CognoNome,
DatiRicevuteEmesse.Interno, Year([DataRicevuta]) AS AnnoData,
Sum(DatiRicevuteEmesse.ImportoIncasso) AS [Totale di ImportoIncasso]
FROM DatiRicevuteEmesse
GROUP BY [Cognome] & " " & [Nome], DatiRicevuteEmesse.Scala,
DatiRicevuteEmesse.Interno, Year([DataRicevuta]),
DatiRicevuteEmesse.IncassatoSiNo
ORDER BY DatiRicevuteEmesse.MeseComp DESC
PIVOT DatiRicevuteEmesse.MeseComp;

Come si può notare ho inserito dei parametri per far si che i dati
vengano filtrati in base all'esito di una casella di riapilogo, ma ciò
non avviene, infatti mi fa vedere tutti i dati senza tener conto del
filtro.
Ho preso spunto dal sito sito di Karl e ho letto i post precedenti in
merito, teoricamente dovrebbe funzionare, ma di fatto non
funziona....mi aiutate a trovare l'errore? Grazie


title: Qry a campi incrociati

text:
FredBusca wrote:
> ... una query a campi incrociati:
> PARAMETERS [Forms]![ProspettoQuote]![SiNo] Text ( 255 );
> TRANSFORM Sum(DatiRicevuteEmesse.ImportoIncasso) AS
> SommaDiImportoIncasso
> SELECT [Cognome] & " " & [Nome] AS CognoNome,
> DatiRicevuteEmesse.Interno, Year([DataRicevuta]) AS AnnoData,
> Sum(DatiRicevuteEmesse.ImportoIncasso) AS [Totale di ImportoIncasso]
> FROM DatiRicevuteEmesse
> GROUP BY [Cognome] & " " & [Nome], DatiRicevuteEmesse.Scala,
> DatiRicevuteEmesse.Interno, Year([DataRicevuta]),
> DatiRicevuteEmesse.IncassatoSiNo
> ORDER BY DatiRicevuteEmesse.MeseComp DESC
> PIVOT DatiRicevuteEmesse.MeseComp;
>
> Come si può notare ho inserito dei parametri per far si che i dati
> vengano filtrati in base all'esito di una casella di riapilogo, ma ciò
> non avviene, infatti mi fa vedere tutti i dati senza tener conto del
> filtro.
> ...

Devi usare il parametro come criterio, cioè manca la sezione WHERE
per filtrare i dati. Se p.e. il valore del parametro corrisponde al campo
[IncassatoSiNo] sarebbe:

...
FROM DatiRicevuteEmesse
WHERE [IncassatoSiNo] = [Forms]![ProspettoQuote]![SiNo]
GROUP BY [Cognome] & " " & [Nome], DatiRicevuteEmesse.Scala,
...

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


title: Qry a campi incrociati

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

l'ho fatto, ma non ottengo nulla nel senso che pur eseguendo un
"me.requery" dopo l'aggiornamento della casella di riepilogo, non mi
restituisce nessun dato.


title: Qry a campi incrociati

text:
FredBusca wrote:

> l'ho fatto, ma non ottengo nulla nel senso che pur eseguendo un
> "me.requery" dopo l'aggiornamento della casella di riepilogo, non mi
> restituisce nessun dato.

Bene, almeno si cambia qualcosa, no? ;-)

Controlla se il valore e tipo di dati di [Forms]![ProspettoQuote]![SiNo]
corrisponde al tipo di dati del campo che filtri.
Puoi anche fare una prova con un valore fisso nella query invece del
parametro.



title: Qry a campi incrociati

text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Bene, almeno si cambia qualcosa, no? ;-)
>Si giusto!

Controlla se il valore e tipo di dati di [Forms]![ProspettoQuote]!
[SiNo]
 corrisponde al tipo di dati del campo che filtri.
>Si corrisponde

 Puoi anche fare una prova con un valore fisso nella query invece del
 parametro.
>col valore fisso nella qry funziona.


title: Qry a campi incrociati

text:
FredBusca wrote:
> Karl Donaubauer wrote:
>>>>> ...
>>>> FROM DatiRicevuteEmesse
>>>> WHERE [IncassatoSiNo] = [Forms]![ProspettoQuote]![SiNo]
>>>> GROUP BY [Cognome] & " " & [Nome], DatiRicevuteEmesse.Scala,
>>> ...
>>> l'ho fatto, ma non ottengo nulla nel senso che pur eseguendo un
>>> "me.requery" dopo l'aggiornamento della casella di riepilogo, non mi
>>> restituisce nessun dato.
>> ...
>
> Controlla se il valore e tipo di dati di [Forms]![ProspettoQuote]!
> [SiNo] corrisponde al tipo di dati del campo che filtri.
>> Si corrisponde
>
>  Puoi anche fare una prova con un valore fisso nella query invece del
>  parametro.
>> col valore fisso nella qry funziona.

È un po' difficile aiutarti se non riveli i dettagli concreti come p.e.
di quale tipo di dati si tratta, con quale valore fisso l'hai provato,
quale valore si trova nel controllo [SiNo], quale tipo di controllo è,
cosa ti dà

MsgBox  [Forms]![ProspettoQuote]![SiNo]

prima del Requery ecc.



title: Qry a campi incrociati

text:
>di quale tipo di dati si tratta?
testo
> con quale valore fisso l'hai provato?
sia con Si che con No ed in entrambi i casi funziona
> quale valore si trova nel controllo [SiNo]?
Si - No
quale tipo di controllo è?
Casella combinata
> cosa ti dà
> MsgBox  [Forms]![ProspettoQuote]![SiNo]?
ecco in questo caso funziona, infatti se nella casella "SiNo" imputo
si mi da il messaggio "Si" se imputo no mi da il messaggio "No"
Spero di essere riuscito a darti qualche informazione più precisa.


title: Qry a campi incrociati

text:
On 14 Feb, 19:17, FredBusca <
alfonso.gal...@libero.it
> wrote:

Ti spiego come è fatta la maschera "ProspettoQuote" magari può essere
un ulteriore aiuto:
1) Maschera continua
2) Campi: Cognome, Interno, Gennaio, Febbraio.....Novembre, Dicembre.
Nei campi tipo Testo con il nome dei mesi, imputando "Si" dalla
casella combinata "SiNo" viene visualizzato l'importo pagato da ogni
utente per ogni mese, imputando "No" mi visualizza ciò che avrebbe
dovuto pagare e che non ha pagato sempre riferito ad ogni mese. In
pratica la casella "SiNo" risponde all'interrogazione pagato SiNo?
3) Se riesco a risolvere, in un secondo momento, aggiungerò
l'interrogazione oltre che per mese anche per anno.
ma per il momento vediamo di risolvero prima questo problema.


title: Qry a campi incrociati

text:
On 14 Feb, 20:04, FredBusca <
alfonso.gal...@libero.it
> wrote:
> On 14 Feb, 19:17, FredBusca <
alfonso.gal...@libero.it
> wrote:
>
Ancora un'altra cosa quando inserisco il parametro [Forms]!
[ProspettoQuote]![SiNo] nella query,
in modalità struttura, in tutte le caselle di testo della maschera
esce il classico triangolino verde in alto a sinistra
per avvertire che c'è un errore nell'origine controllo delle caselle.
Immagino che questo sia il motivo per cui poi in modalità maschera non
mi da dati.


title: Qry a campi incrociati

text:

Se salvi la query e aprila dalla finestra di database o
dal riquadro di spostamento (dipende della tua versione
sconosciuta di Access) qual'è il risultato?
Anche così non corrisponde al testo nella combo?

In questo caso copia/incolla il tuo enunciato SQL attuale
e l'origine riga della combo.



title: Qry a campi incrociati

text:
la ver. di Access è la  2003
se salvo la query funziona perfettamente, infatti richiama la finestra
di dialogo e mi chiede di inserire Si o No dopodiche visualizza i dati
in modo corretto. La stessa query eseguita all'interno della maschera
non funziona.
questo significa che dipende dalla maschera?
Ecco il codice:
PARAMETERS [Forms]![ProspettoQuote]![SiNo] Text ( 255 );
TRANSFORM Sum(DatiRicevuteEmesse.ImportoIncasso) AS
SommaDiImportoIncasso SELECT [Cognome] & " " & [Nome] AS CognoNome,
DatiRicevuteEmesse.Interno, Year([DataRicevuta]) AS AnnoData,
Sum(DatiRicevuteEmesse.ImportoIncasso) AS [Totale di ImportoIncasso]
FROM DatiRicevuteEmesse WHERE (((Year([DataRicevuta]))=2012) And
((DatiRicevuteEmesse.IncassatoSiNo)=Forms!ProspettoQuote!SiNo)) GROUP
BY [Cognome] & " " & [Nome], DatiRicevuteEmesse.Scala,



title: Qry a campi incrociati

text:

Ciao Karl, se faccio riferimanto alla mia maschera ossia:
[Forms]![ProspettoQuote]![SiNo]  non funziona
se invece invento il nome della maschera es:
[Forms]![ProspettoQuo]![SiNo]
allora visualizza la finestra di dialogo e mi chiede di inserire si o
no, ma
non fa riferimento alla mia casella combinata "SiNo"
forse perchè non riconoscendo la maschera la bypassa?
che manicomio!!!


title: Qry a campi incrociati

text:
FredBusca wrote:
> ...
> Ciao Karl, se faccio riferimanto alla mia maschera ossia:
> [Forms]![ProspettoQuote]![SiNo]  non funziona
> se invece invento il nome della maschera es:
> [Forms]![ProspettoQuo]![SiNo]
> allora visualizza la finestra di dialogo e mi chiede di inserire si
> o no, ma
> non fa riferimento alla mia casella combinata "SiNo"
> forse perchè non riconoscendo la maschera la bypassa?

Il problema puo essere il valore della combo.
Per questo ho già chiesto:

> ...copia/incolla ... l'origine riga della combo.

Puoi anche creare una semplice query come

SELECT IncassatoSiNo, Forms!ProspettoQuote!SiNo,
IncassatoSiNo=Forms!ProspettoQuote!SiNo
FROM DatiRicevuteEmesse

per vedere cosa veramente viene dalla combo.



title: Qry a campi incrociati

text:
>

 ...copia/incolla ... l'origine riga della combo.
Tipo origine riga: elenco valori
Origine riga: Si;No

> Puoi anche creare una semplice query come
>

> per vedere cosa veramente viene dalla combo.
con quel codice la combo risponde


title: Qry a campi incrociati

text:

Un'altro sospetto sulla tua situazione... invece del

Me.Requery

prova con

Me.RecordSource = Me.RecordSource



title: Qry a campi incrociati

text:

Si funziona!!!

Approfitto della tua disponibilità per chiederti un'altra cosa sempre
a proposito di questa query:
in questa maschera ci sono dei campi testo prestabiliti con il nome
dei mesi da gennaio a dicembre
in modo da visualizzare cio che ogni utente ha pagato o non ha pagato
mese per mese
il problema è che quando un derminato mese non è avvenuto nessun
pagamento, la casella di testo
segnala l'errore e viene visualizzato - #Nome? - perchè non viene
riconoscita l'origine controllo
c'è un modo per toglere quest'errore e magari visualizzare 0 o niente?
Grazie Karl


title: Qry a campi incrociati

text:
FredBusca wrote:
> ...
> in questa maschera ci sono dei campi testo prestabiliti con il nome
> dei mesi da gennaio a dicembre
> in modo da visualizzare cio che ogni utente ha pagato o non ha pagato
> mese per mese
> il problema è che quando un derminato mese non è avvenuto nessun
> pagamento, la casella di testo
> segnala l'errore e viene visualizzato - #Nome? - perchè non viene
> riconoscita l'origine controllo
> c'è un modo per toglere quest'errore e magari visualizzare 0 o niente?

Vedi:

 #Errore per riferimento ad oggetti vuoti

http://www.donkarl.com/it?FAQ2.16

Poi devi ancora rinominare le caselle (p.e. gennaio --> txtGennaio ...
dicembre --> txtDicembre). Altrimenti c'è un conflitto se il nome del
controllo corrisponde ad un campo nell'origine ma ha un espressione
come origine controllo.



title: Qry a campi incrociati

text:

Karl, non funziona ho messo questo codice:
=IIf(IsError([MeseGennaio]);Null;([MeseGennaio]))
ti ricordo che il nome controllo è MeseGennaio mentre l'origine
controllo è Gennaio
l'effetto è che le caselle testo escono tutte vuote anche là dove ci
sono dei dati


title: Qry a campi incrociati

text:
FredBusca wrote:
> Karl Donaubauer wrote:
>> ...
>> #Errore per riferimento ad oggetti vuoti
>>
http://www.donkarl.com/it?FAQ2.16

>>
>> Poi devi ancora rinominare le caselle (p.e. gennaio --> txtGennaio
>> ... dicembre --> txtDicembre). Altrimenti c'è un conflitto se il
>> nome del controllo corrisponde ad un campo nell'origine ma ha un
>> espressione come origine controllo.
> ...
> Karl, non funziona ho messo questo codice:
> =IIf(IsError([MeseGennaio]);Null;([MeseGennaio]))
> ti ricordo che il nome controllo è MeseGennaio mentre l'origine
> controllo è Gennaio
> ...

Nell'espressione devi usare il nome dall'origine dati:

=IIf(IsError([Gennaio]);Null;([Gennaio]))



title: Qry a campi incrociati

text:

ho provato anche in questo modo, ma mi ridà l'errore #Nome?
quando non trova dati inerenti al mese di gennaio


title: Qry a campi incrociati

author: Popi - TheBadHabits

text:
Ciao Fred.

Se l'origine dati dei campi proviene dalla query a campi incrociati puoi specificare nell'intestazione delle colonne (proprietà ColumnHeadings) i nomi dei campi da generare: "Gennaio";"Febbraio"; ... ;"Dicembre".

HTH
Popi


title: Qry a campi incrociati

text:
"Popi - TheBadHabits" <
rlu...@yahoo.com
> ha scritto nel messaggio
news:17012384.1984.1329470889904.JavaMail.geo-discussion-forums@ynjc20...
Ciao Fred.

Se l'origine dati dei campi proviene dalla query a campi incrociati puoi
specificare nell'intestazione delle colonne (proprietą ColumnHeadings) i
nomi dei campi da generare: "Gennaio";"Febbraio"; ... ;"Dicembre".

HTH
Popi

Si funziona...Grazie


title: Informazioni su RotateLabelVer2.ocx

author: Davide

text:
Buongiorno a tutti,
Utilizzando RotateLabelVer2.ocx di Stephen Lebans,che permette di
ruotare il testo in un report di 180 gradi,non riesco con varie
funzioni ad eliminare spazi bianchi causati da campi che non
presentano nessun dato.
Per esempio con una sola casella di testo di un report e possibile
nella proprietà controllo dati con la funzione fixline creare un
espressione con tutti i campi di una tabella, che permette di
eliminare linee bianche tra gli indirizzi,anche nel caso di campi che
non presentano alcun dato.
E' possibile avere qualche suggerimento per ottenere la stessa cosa
con l'ocx RotateLabelVer2?
Un ringraziamento a tutti.
Davide


title: Informazioni su RotateLabelVer2.ocx

author: MA

text:

Vedi se ho capito
tu hai
Indirizzo
cap
città
prov
Può succedere che tu non abbia cap
Se fai
Indirizzo & vbNewLine & cap vbNewline & città & vbnewline & prov
ti risulta
Indirizzo
città
prov
Quello spazio è brutto e tu non vuoi
Se è così
fai
(Indirizzo + vbNewLine) & (cap + vbnewline) & (città & vbNewLine) & prov
poi questo controllo lo dai in pasto all'ocx di Lebans
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Informazioni su RotateLabelVer2.ocx

text:

Ciao MA
Il problema e proprio eliminare quei spazi bianchi che si possono
presentare alla presenza di un campo vuoto.
Ho seguito il tuo suggerimento ,nell'origine controllo dell'ocr ho
scritto la tua formula,
ma appare una maschera che dice: immissione valore parametro.
Come dicevo nel primo messaggio con una normale casella di testo ci
sono più soluzioni (esempio fixline),
ma sembra che non funzionano con questo ocr.
Qualche altro suggerimento che possa funzionare?
Un saluto e un ringraziamento
Davide


title: PWD e CODICE

author: mauro

text:
Mi avete sempre aiutato e questa volta spero farete altrettanto, sto
ripostatndo perchč proprio ne ho bisogno.
Ho una procedura che funziona perfettamente, ora vorrei compilare il codice
e mettere una pwd al codice ed al file .mdb, ho provato, perň alla
esecuzione del codice il sistema mi da un errore di RUN TIME, mi potete
aiutare dicendomi come procedere per proteggere il file ?  Da tenere
presente che gira tutto sotto una rete lan.
Grazie a tutti coloro che vogliano aiutarmi.
Ciao


title: PWD e CODICE

author: Emyr

text:
On Tue, 11 Mar 2003 20:55:36 GMT, "mauro" <
maur...@email.it
> wrote:
>Mi avete sempre aiutato e questa volta spero farete altrettanto, sto
>ripostatndo perchè proprio ne ho bisogno.
>
>Ho una procedura che funziona perfettamente, ora vorrei compilare il codice
>e mettere una pwd al codice ed al file .mdb, ho provato, però alla
>esecuzione del codice il sistema mi da un errore di RUN TIME, mi potete
>aiutare dicendomi come procedere per proteggere il file ?  Da tenere
>presente che gira tutto sotto una rete lan.
>
>Grazie a tutti coloro che vogliano aiutarmi.
>
>Ciao
>
vedi su
sitocomune.com
 protezione utente e crea un .mde
strumenti utilità crea mde
Saluti.
Emanuele.


title: PWD e CODICE

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:ph7u6vg3k853en8ik...@4ax.com...

Ho ce3rcato ma non trovo quello che mi occorre...


title: PWD e CODICE

text:


strumenti utilità database crea copia file mde
vedi anche strumenti protezione
ed infine alt+F11 strumenti proprietà protezione
Saluti.
Emanuele.


title: Barra dei menu

author: Giorgio M

text:
Salve,
Ho bisogno ancora di un aiuto in merito alla barra dei menu.
Ho creato una barra degli strumenti personalizzata che mi visualizza solo
i comandi che mi ineteressano
Ma quando avvio il mio db (e nelle opzioni avvio ho disabilitato tutte le
visualizzazioni) mi visualizza sempre una barra con scritto "file"
"modifica" "inserisci" "record" "finestra".
Come posso fare per non visualizzare niente ma solo la mia barra
personalizzata?
Grazie
Ciao
Giorgio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Barra dei menu

text:
"Giorgio M" <
giorg...@tiscalinet.it
> ha scritto nel messaggio
news:cv4q4b$d4c$1...@news.newsland.it...
> Salve,
>
> Ho bisogno ancora di un aiuto in merito alla barra dei menu.
>
>
> Ho creato una barra degli strumenti personalizzata che mi visualizza solo
> i comandi che mi ineteressano
>
> Ma quando avvio il mio db (e nelle opzioni avvio ho disabilitato tutte le
> visualizzazioni) mi visualizza sempre una barra con scritto "file"
> "modifica" "inserisci" "record" "finestra".
>
> Come posso fare per non visualizzare niente ma solo la mia barra
> personalizzata?
>
> Grazie
> Ciao
> Giorgio
devi settare la tua barra come barra menu
e selezionarla nelle pro della maschera come barra menu
MAssimiliano


title: Barra dei menu

author: sv

text:
MA ha scritto:


Oltre al suggerimento di Massimiliano potresti, nella finestra di dialogo
Avvio (Strumenti -->Avvio), scegliere dalla casella "Barra menu", la tua
Barra menu personalizzata. Essa sarà caricata all'avvio della tua
applicazione.
--
rgrds
SC



title: Barra dei menu

author: Alxx

text:
Ciao a tutti,
mi e' venuto in testa di disattivare tutte le barre e rimanere
solo con quella dei menu, tra l'altro con solo l'essenziale
per operare sui record e niente piu'; nessuna possibilita'
di agire sugli oggetti, di modificare la struttura ecc... ecc....
Non che sia un problema, anzi, ma mi chiedo:
1)c'e' la possibilita', in questa situazione, di riattivare tutto?
2)se non ci fosse (ma sicuramente c'e'), non e' questo uno
dei migliori metodi di protezione del database?
grazie
Alxx


title: Barra dei menu

text:
"Alxx" <
Al...@freemail.it
> ha scritto nel messaggio
news:37p8o7F...@individual.net...
> Ciao a tutti,
> mi e' venuto in testa di disattivare tutte le barre e rimanere
> solo con quella dei menu, tra l'altro con solo l'essenziale
> per operare sui record e niente piu'; nessuna possibilita'
> di agire sugli oggetti, di modificare la struttura ecc... ecc....
> Non che sia un problema, anzi, ma mi chiedo:
> 1)c'e' la possibilita', in questa situazione, di riattivare tutto?
Riabiliti il tasto shift (se l'hai inabilitato) e apri il db tenedolo
premuto.
> 2)se non ci fosse (ma sicuramente c'e'), non e' questo uno
> dei migliori metodi di protezione del database?
Assolutamente no. Importa tutto in un nuovo db e vedi cosa succede.
MAssimiliano


title: L'operazione open report è stata annullata! come non vederla?

author: Napoleone

text:
Come da oggetto,
come fare per non visualizzare il messaggio:
L'operazione open report č stata annullata
per l'appunto, quando annullo l'apertura del report.
Ciao
Napoleone


author: MC

text:
Prova su formattazioen report ad inserire qualcosa tipo
on error resume next ...  (non so se funziona, è solo un tentativo che
rapidamente puoi fare).
Saluti,
--
MC


text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:yS2Fe.15955$a5.2...@twister2.libero.it...
> Come da oggetto,
> come fare per non visualizzare il messaggio:
> L'operazione open report è stata annullata
> per l'appunto, quando annullo l'apertura del report.
>
> Ciao
> Napoleone
>
>
Intercetta l'errore 2501 sull'evento che usi per aprire il report
If Err.Number = 2501 Then
    Exit Sub
End If
Saluti
Davide


text:
"MC" <
mauro.c...@gmail.com
> ha scritto nel messaggio
news:1122288138.6...@g47g2000cwa.googlegroups.com...


Ciao MC,
credo in questo modo, andrebbe intercettato l'errore, ma non conosco il
codice!
Grazie lostesso
Napoleone


text:
"Davide" <
davide.di...@libero.it
> ha scritto nel messaggio
news:dt3Fe.5338$fm.6...@news4.tin.it...

Ciao Davide, hai intercettato il mio pensiero; ma mi visualizza ugualmente
il messaggio:
L'operazione open report è stata annullata.
Ciao
Napoleone


text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:bA3Fe.14774$B6.4...@twister1.libero.it...

Se ad esempio apri il report con un pulsante in 1 maschera, dovresti
inserire il codice che ti ho detto dopo l'etichetta di errore.
A inizio maschera metti
On error goto err
...
...
err:
 If Err.Number = 2501 Then
 Exit Sub
 End If
Naturalmente devi lasciare il codice che hai nell'evento su report vuoto
msgbox " Avviso..."
docmd.cancelevent
fammi sapere..
Ciao
Davide


text:
CUT
..........
Riepilogando:
dalla Mia Maschera, clicco sul MioBottone ed apro il report.
.....
L'evento su errore, va nel Report?
Napoleone


text:
"Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
news:WI3Fe.14791$B6.4...@twister1.libero.it...

In effetti non mi sono spiegato molto bene!  l'evento và nella maschera ,
nel codice del bottone, comunque quando si presenta l'errore se clicchi su
debug viene visualizzato il codice dove dovrai intercettare l'errore che
appunto dovrebbe essere quello che ti ho detto..
Ciao
Davide


text:
"Davide" <
davide.di...@libero.it
> ha scritto nel messaggio
news:Br5Fe.5295$2U1.5...@news3.tin.it...
>
> "Napoleone" <
napole...@libero.it
> ha scritto nel messaggio
> news:WI3Fe.14791$B6.4...@twister1.libero.it...
>> CUT
>> ..........
>> Riepilogando:
>> dalla Mia Maschera, clicco sul MioBottone ed apro il report.
>>
>> .....
>>
>> L'evento su errore, va nel Report?
>>
>> Napoleone
>>
>
> In effetti non mi sono spiegato molto bene!  l'evento và nella maschera ,
> nel codice del bottone,
quindi inserisco:
If Err.Number = 2501 Then
    Exit Sub
End If
>comunque quando si presenta l'errore se clicchi su debug viene visualizzato
>il codice dove dovrai intercettare l'errore che appunto dovrebbe essere
>quello che ti ho detto..
>
> Ciao
> Davide
>
ed in ogni modo, dopo tutte le prove che ho fatto, non m isegnala errori,
ma mi restituisce sempre il messaggio.
Ciao e Grazie
Napoleone


text:
CUT
..
Ciao Davide, Ciao MC
Grazie al Vostro ed altri contributi, la question è stata risolta cosi:
................
Private Sub repmeseantep_Click()
On Error GoTo Err_repmeseantep_Click
    Dim stDocName As String
    stDocName = "R20_Collaboratori_Mese"
    DoCmd.OpenReport stDocName, acPreview
Exit_repmeseantep_Click:
    Exit Sub
Err_repmeseantep_Click:
    If Err.Number <> 2501 Then
        MsgBox Err.Description
    End If
    Resume Exit_repmeseantep_Click
End Sub
..........................
Buona Notte
Napoleone


title: Eseguire macro da tastiera

author: Fabio

text:
Salve,
vorrei eseguire una macro con un comando, sequenza di tasti, dalla tastiera,
dalla guida e nei siti ho trovato l'istruzione: RunMacro dell'oggetto DoCmd.
Ma non so come usarla.
Qualcuno puň aiutarmi?
Grazie Fabio


title: Eseguire macro da tastiera

author: Alessandro Baraldi

text:
"Fabio" <
fab...@libero.it
> wrote in message
news:vyvvf.31816$
eD5.5...@twister2.libero.it
> Salve,
>
>
>
> vorrei eseguire una macro con un comando, sequenza di tasti, dalla tastiera,
> dalla guida e nei siti ho trovato l'istruzione: RunMacro dell'oggetto DoCmd.
> Ma non so come usarla.
>
> Qualcuno puņ aiutarmi?
>
> Grazie Fabio
Dai un'occhiata alla Macro speciale AutoKeys, puoi comporre una
sequenza di tasti, č ben spiegata nell'Help.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: creare un "link" ad una maschera

text:
Ciao a tutti
Sono un novizio , si per quanto riguarda Access che per i Newsgroup.
Avrei le seguenti necessità,
Ho realizzato un DB con access  2003 che utilizzo per la contabilità della
mia attività artigianale, diciamo che dovrei affinare alcune cosucce e
realizzare qualche automazione.
principalmente sto cercando la possibilità di passare , facendo doppio clic
su un determinato campo, ad un'altra maschera , ( sino a questo momento
chiusa) ma soprattutto al record corrispondente al n° su cui ho fatto doppio
clic.
Cerco di spiegarmi meglio.
Ho una maschera denominata "elenco fatture" e in questa maschera ho un campo
contenente i numeri delle fatture emesse. vorrei che facendo doppio clic su
uno di  questi numeri, mi si aprisse la maschera " fatture " al record
corrispondente al n° su cui ho cliccato.
Un altra cosa
qualc'uno mi sa spiegare come mai  nono riesco a realizzare un campo che mi
calcoli la fine del mese relativa alla data inserita in un determinato campo
denominato  "miaData"
DateSerial(Year([miaData]),Month([miaData])+1,1)-1
 il risultato è sempre  #Nome?
Un ringraziamento a chi mi puo' dare una mano
Ciao
Giacomo


title: creare un "link" ad una maschera

author: IgnazioC

text:

puoi utilizzare il parametro "where" del'oggetto docmd.openform
dalla guida (in ita..)
docmd.OpenForm(NomeMaschera, Visualizzazione, NomeFiltro,
CondizioneWHERE, ModalitàDati, ModalitàFinestra, ArgomentiApertura)


title: creare un "link" ad una maschera

author: CIDI

text:
<
giac...@alice.it
> ha scritto nel messaggio
news:47b60789$0$17951$4faf...@reader1.news.tin.it...
> Ciao a tutti
> Sono un novizio , si per quanto riguarda Access che per i Newsgroup.
>
> Avrei le seguenti necessità,
> Ho realizzato un DB con access  2003 che utilizzo per la contabilità
> della mia attività artigianale, diciamo che dovrei affinare alcune
> cosucce e realizzare qualche automazione.
> principalmente sto cercando la possibilità di passare , facendo doppio
> clic su un determinato campo, ad un'altra maschera , ( sino a questo
> momento chiusa) ma soprattutto al record corrispondente al n° su cui
> ho fatto doppio clic.
> Cerco di spiegarmi meglio.
> Ho una maschera denominata "elenco fatture" e in questa maschera ho un
> campo contenente i numeri delle fatture emesse. vorrei che facendo
> doppio clic su uno di  questi numeri, mi si aprisse la maschera "
> fatture " al record corrispondente al n° su cui ho cliccato.
>
si può fare pure con l'autocomposizione di un pulsante.
su evento doppio clic del controllo numerofattura:
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "fatture"
    stLinkCriteria = "[NumeroFattura]=" & "'" & Me!NumeroFattura & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
> Un altra cosa
> qualc'uno mi sa spiegare come mai  nono riesco a realizzare un campo
> che mi calcoli la fine del mese relativa alla data inserita in un
> determinato campo denominato  "miaData"
> DateSerial(Year([miaData]),Month([miaData])+1,1)-1
> il risultato è sempre  #Nome?
>
prova con:
=DateSerial(Year(Date());Month([miadata])+1;0)
> Un ringraziamento a chi mi puo' dare una mano
>
> Ciao
> Giacomo
ciao Giacomo
la prossima volta posta un quesito alla volta.
le regole del NG se non le conosci sono sul sito comune.
www.sitocomune.com
Daniele


title: Ciclo su IIf

text:
Salve a tutto il n.g.
Per conteggiarmi le discipline in un torneo di calcio uso questo
sistema a dir la verità un pò arronzato.
Premetto:
prima ammonizione: 1 equivale ad Ammonito
seconda ammonizione: 2 equivale a Diffidato
terza ammonizione: equivale ad espulsione
Poi ricomincia, per cui 4 vale a prima ammonizione, 5 vale a
seconda ammonizione(diffida), 6 vale a terza ammonizione(espulsione)
e
cosi via.
Per il momento, tramite query, ho risolto in questo modo, considerando
che un giocatore difficilmente arriva a prendere 15 ammonizioni:
Penalizzazione: IIf([n_penalizzazioni]=1 Or [n_penalizzazioni]=4 Or
[n_penalizzazioni]=7 Or [n_penalizzazioni]=10 Or
[n_penalizzazioni]=13;"Ammonito";IIf([n_Penalizzazioni]=2 Or
[n_Penalizzazioni]=5 Or [n_Penalizzazioni]=8 Or [n_Penalizzazioni]=11
Or [n_Penalizzazioni]=14;"Diffidato";IIf([n_penalizzazioni]=3 Or
[n_Penalizzazioni]=6 Or [n_Penalizzazioni]=9 Or [n_Penalizzazioni]=12
Or [n_Penalizzazioni]=15;"Espulso";0)))
ma va da se che simili scorciatoie non vanno bene.
Allora ho cercato di risolvere con un ciclo For Next ... ma non ci
sono riuscito.
Mi potete aiutare?
Grazie, Vladimiro.


title: Ciclo su IIf

text:
vlad...@alice.it
 wrote:
> Salve a tutto il n.g.
> Per conteggiarmi le discipline in un torneo di calcio uso questo
> sistema a dir la veritą un pņ arronzato.
> Premetto:
> prima ammonizione: 1 equivale ad Ammonito
> seconda ammonizione: 2 equivale a Diffidato
> terza ammonizione: equivale ad espulsione
> Poi ricomincia, per cui 4 vale a prima ammonizione, 5 vale a
> seconda ammonizione(diffida), 6 vale a terza ammonizione(espulsione)
> e
> cosi via.
> Per il momento, tramite query, ho risolto in questo modo, considerando
> che un giocatore difficilmente arriva a prendere 15 ammonizioni:
>
> Penalizzazione: IIf([n_penalizzazioni]=1 Or [n_penalizzazioni]=4 Or
> [n_penalizzazioni]=7 Or [n_penalizzazioni]=10 Or
> [n_penalizzazioni]=13;"Ammonito";IIf([n_Penalizzazioni]=2 Or
> [n_Penalizzazioni]=5 Or [n_Penalizzazioni]=8 Or [n_Penalizzazioni]=11
> Or [n_Penalizzazioni]=14;"Diffidato";IIf([n_penalizzazioni]=3 Or
> [n_Penalizzazioni]=6 Or [n_Penalizzazioni]=9 Or [n_Penalizzazioni]=12
> Or [n_Penalizzazioni]=15;"Espulso";0)))
>
> ma va da se che simili scorciatoie non vanno bene.
> Allora ho cercato di risolvere con un ciclo For Next ... ma non ci
> sono riuscito.
> Mi potete aiutare?
> Grazie, Vladimiro.
Secondo me dovresti creare una funzione, in un modulo, dove gli passi i
paramentri e lģ fai i test che vuoi restituendo la stringa giusta:
es.
Penalizzazione: cheHaiCombinato([n_penalizzazioni])
(in un modulo)
Function cheHaiCombinato(nPenalizzazioni as integer) as string
dim risultato as string
risultato = ""
select case nPenalizzazioni
    case 1,4,7,10,13
        risultato = "Ammonito"
    case 2,...
        risultato = "..."
    case else
end select
cheHaiCombinato = risultato
end function
Ciao.
--
Sergio MAZZA


title: Ciclo su IIf

author: NSantini

text:
<
vlad...@alice.it
> ha scritto nel messaggio
news:e141c615-cf80-4270...@v4g2000hsf.googlegroups.com...



potresti usare la funzione Switch così risparmi qualche passaggio di IIF
Penalizzazione: Switch (([n_penalizzazioni]=1 Or [n_penalizzazioni]=4 Or
[n_penalizzazioni]=7 Or [n_penalizzazioni]=10 Or
[n_penalizzazioni]=13);"Ammonito";([n_Penalizzazioni]=2 Or
[n_Penalizzazioni]=5 Or [n_Penalizzazioni]=8 Or [n_Penalizzazioni]=11
Or [n_Penalizzazioni]=14);"Diffidato";([n_penalizzazioni]=3 Or
[n_Penalizzazioni]=6 Or [n_Penalizzazioni]=9 Or [n_Penalizzazioni]=12
Or [n_Penalizzazioni]=15);"Espulso")


title: Ciclo su IIf

text:
On 8 Dic, 11:08, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
>
vladil...@alice.it
 wrote:
> > Salve a tutto il n.g.
> > Per conteggiarmi le discipline in un torneo di calcio uso questo
> > sistema a dir la verità un pò arronzato.
> > Premetto:
> > prima ammonizione: 1 equivale ad Ammonito
> > seconda ammonizione: 2 equivale a Diffidato
> > terza ammonizione: equivale ad espulsione
> > Poi ricomincia, per cui 4 vale a prima ammonizione, 5 vale a
> > seconda ammonizione(diffida), 6 vale a terza ammonizione(espulsione)
> > e
> > cosi via.
> > Per il momento, tramite query, ho risolto in questo modo, considerando
> > che un giocatore difficilmente arriva a prendere 15 ammonizioni:
>
> > Penalizzazione: IIf([n_penalizzazioni]=1 Or [n_penalizzazioni]=4 Or
> > [n_penalizzazioni]=7 Or [n_penalizzazioni]=10 Or
> > [n_penalizzazioni]=13;"Ammonito";IIf([n_Penalizzazioni]=2 Or
> > [n_Penalizzazioni]=5 Or [n_Penalizzazioni]=8 Or [n_Penalizzazioni]=11
> > Or [n_Penalizzazioni]=14;"Diffidato";IIf([n_penalizzazioni]=3 Or
> > [n_Penalizzazioni]=6 Or [n_Penalizzazioni]=9 Or [n_Penalizzazioni]=12
> > Or [n_Penalizzazioni]=15;"Espulso";0)))
>
> > ma va da se che simili scorciatoie non vanno bene.
> > Allora ho cercato di risolvere con un ciclo For Next ... ma non ci
> > sono riuscito.
> > Mi potete aiutare?
> > Grazie, Vladimiro.
>
> Secondo me dovresti creare una funzione, in un modulo, dove gli passi i
> paramentri e lì fai i test che vuoi restituendo la stringa giusta:
> es.
> Penalizzazione: cheHaiCombinato([n_penalizzazioni])
>
> (in un modulo)
> Function cheHaiCombinato(nPenalizzazioni as integer) as string
> dim risultato as string
> risultato = ""
> select case nPenalizzazioni
>     case 1,4,7,10,13
>         risultato = "Ammonito"
>     case 2,...
>         risultato = "..."
>     case else
> end select
> cheHaiCombinato = risultato
> end function
Questo va bene, solo che avrei preferito non dare un termine esatto di
ammonizioni, perciò pensavo ad un ciclo in cui nPenalizzazioni venisse
passata (forse non è il termine esatto) in una variabile long o
integer.
Function Ammonito
Dim n As Long
For nPenalizzazioni = 1 to n Step 3
Function Diffidato
For nPenalizzazioni = 2 To n Step 3
For nPenalizzazioni = 3 To Step 3
Spero di essermi fatto capire.
Comunque grazie per la risposta, è già tanto.
>
> Ciao.
> --
> Sergio MAZZA- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Ciao Vladimiro.


title: Ciclo su IIf

author: Alessandro Cara

text:
Sergio MAZZA wrote:
>
vlad...@alice.it
 wrote:
>> Salve a tutto il n.g.
>> Per conteggiarmi le discipline in un torneo di calcio uso questo
>> sistema a dir la verità un pò arronzato.
>> Premetto:
>> prima ammonizione: 1 equivale ad Ammonito
>> seconda ammonizione: 2 equivale a Diffidato
>> terza ammonizione: equivale ad espulsione
>> Poi ricomincia, per cui 4 vale a prima ammonizione, 5 vale a
>> seconda ammonizione(diffida), 6 vale a terza ammonizione(espulsione)
>> e
>> cosi via.
>> Per il momento, tramite query, ho risolto in questo modo, considerando
>> che un giocatore difficilmente arriva a prendere 15 ammonizioni:
>>
>> Penalizzazione: IIf([n_penalizzazioni]=1 Or [n_penalizzazioni]=4 Or
>> [n_penalizzazioni]=7 Or [n_penalizzazioni]=10 Or
>> [n_penalizzazioni]=13;"Ammonito";IIf([n_Penalizzazioni]=2 Or
>> [n_Penalizzazioni]=5 Or [n_Penalizzazioni]=8 Or [n_Penalizzazioni]=11
>> Or [n_Penalizzazioni]=14;"Diffidato";IIf([n_penalizzazioni]=3 Or
>> [n_Penalizzazioni]=6 Or [n_Penalizzazioni]=9 Or [n_Penalizzazioni]=12
>> Or [n_Penalizzazioni]=15;"Espulso";0)))
>>
>> ma va da se che simili scorciatoie non vanno bene.
>> Allora ho cercato di risolvere con un ciclo For Next ... ma non ci
>> sono riuscito.
>> Mi potete aiutare?
>> Grazie, Vladimiro.
>
> Secondo me dovresti creare una funzione, in un modulo, dove gli passi i
> paramentri e lì fai i test che vuoi restituendo la stringa giusta:
> es.
> Penalizzazione: cheHaiCombinato([n_penalizzazioni])
>
> (in un modulo)
> Function cheHaiCombinato(nPenalizzazioni as integer) as string
> dim risultato as string
> risultato = ""
> select case nPenalizzazioni
>     case 1,4,7,10,13
>         risultato = "Ammonito"
>     case 2,...
>         risultato = "..."
>     case else
> end select
> cheHaiCombinato = risultato
> end function
>
> Ciao.
uhmmmm..... funzione o meno pensi che questa attaglierebbe?
if nPenalizzazioni <> 0 then
	x = nPenalizzazioni mod 3
	select case x
	   case 0: Msgbox "te sei fatto risbatte fori"
	   case 1: msgbox "beccate sto cartellino"
	   case 2: msgbox "alla prossima stai fermo almeno un giro"
	end select
end if
--
ac
y-1=x


title: Ciclo su IIf

author: Sergio MAZZA

text:
Alessandro Cara wrote:
> uhmmmm..... funzione o meno pensi che questa attaglierebbe?
No; anzi, vedo dalla sua risposta alla mia che tu hai interpretato quello
che chiedeva lui...
> if nPenalizzazioni <> 0 then
> x = nPenalizzazioni mod 3
> select case x
>    case 0: Msgbox "te sei fatto risbatte fori"
>    case 1: msgbox "beccate sto cartellino"
>    case 2: msgbox "alla prossima stai fermo almeno un giro"
> end select
> end if
>
>
> --
> ac
> y-1=x
Ciao.
--
Sergio MAZZA


title: Ciclo su IIf

text:
vlad...@alice.it
 wrote:
> Questo va bene, solo che avrei preferito non dare un termine esatto di
> ammonizioni, perciò pensavo ad un ciclo in cui nPenalizzazioni venisse
> passata (forse non è il termine esatto) in una variabile long o
> integer.
> Function Ammonito
> Dim n As Long
> For nPenalizzazioni = 1 to n Step 3
> Function Diffidato
> For nPenalizzazioni = 2 To n Step 3
> For nPenalizzazioni = 3 To Step 3
> Spero di essermi fatto capire.
> Comunque grazie per la risposta, è già tanto.
>
> Ciao Vladimiro.
Sì, non avevo capito che nPenalizzazioni è il numero progressivo delle
penalizzazioni; il la interpretavo come una specie di codifica.
Alessandro ha la soluzione...
Ciao.
--
Sergio MAZZA


title: Ciclo su IIf

text:
Sergio MAZZA wrote:
> Alessandro Cara wrote:
>> uhmmmm..... funzione o meno pensi che questa attaglierebbe?
>
> No; anzi, vedo dalla sua risposta alla mia che tu hai interpretato quello
> che chiedeva lui...
Sto a bara'. Ero in anticipo. La questione la avevo letta in anteprima.
Ciao Sergio. Buone giornate.
--
ac
y-1=x


title: Ciclo su IIf

text:
Alessandro Cara wrote:
> Sto a bara'. Ero in anticipo. La questione la avevo letta in
> anteprima.
Nel senso che eravate d'accordo te e Vlady? Ehee bravi!!!
> Ciao Sergio. Buone giornate.
Anche a te; tempo permettendo...



title: Ciclo su IIf

text:

Non ho parole.
Un saluto a te e Alessandro
Vladimiro.


title: Ciclo su IIf

text:
On 8 Dic, 12:06, "NSantini" <
nsant...@tiscali.it
> wrote:
> <
vladil...@alice.it
> ha scritto nel messaggionews:e141c615-cf80-4270...@v4g2000hsf.googlegroups.com...

Scusa per non averti risposto, ma avrai certamente capito che cercavo
qualcosa di diverso anche rispetto alla tua soluzione.
Comunque grazie.
Ciao Vladimiro.