text:
> > >>> bella procedurina x natale ... come stai? fidanzata? le famose
> > >>> foto????
> > >>
> > >> A questo punto devo pensare i ritratti... visti i tempi.
> > >> MAssimiliano
> > >>
> > >>
> > >
> > > se proprio deve farmi un ritratto, almeno che mi faccia più bello ...
> > > visto che si chiama piùbelli lui....
> > >
> > > battuta gelida come il freddo di oggi ... brrrrrrrr........
> > >
> > >
> >
> > questa proprio!!!
> >
> > MA pensaci tu.... :D
> >
> troppo semplice...
> non mi piace infierire, lui ha già i suoi problemi non capendo nulla di
> calcio...
> MAssmiliano
vabbè se non capisco di calcio ... allora mi rifarò col vino ... torno
giusto giusto ora da un pranzo aziendale di natale è il secondo in tre
gioni... dico io ma come si fa? con questo ritmo non arrivo a domenica ...
mannaggia al cannonau! ........


title: [SIAL]: Feliz Navidad y Bueno Ano Nuevo.

author: TANNHAUSER

text:
[CUT]
> vabbè se non capisco di calcio ... allora mi rifarò col vino ... torno
> giusto giusto ora da un pranzo aziendale di natale è il secondo in tre
> gioni... dico io ma come si fa? con questo ritmo non arrivo a domenica ...
> mannaggia al cannonau! ........
L'importante è che di calcio ci capisca Moggi; tutti gli altri sono i
soliti 60 milioni di commissari tecnici da bar-spiaggia-campagna acquisti
:).
Di vino è già più difficile trovare qualcuno che, a parte quelle sagome da
Zelig dei sommelier di Gusto del TG5, ci capisca veramente qualcosa al di
là del colore (bianco o rosso, intendevo).



author: Rita

text:

> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
>
Ti auguro un felice Natale ed un 2005 sotto i migliori auspici.
Per fortuna che io non ti ho mai 'aiutato' altrimenti ti buttavi sotto un
Eurostar in corsa!
Ahaha, era solo un modo per esprimere un sentito grazie, unitamente agli
auguri di buone feste, a tutte le persone nel NG che ci aiutano a risolvere
i problemi.
MI associo a te.
Ciao Rita


title: Eliminare filtro nella sottomaschera

author: Andrea

text:
Ho una maschera con varie pagine una per l'anagrafica, un'altra dove ho il
problema con una sottomaschera dove eseguo vengono visualizzati i vari
record agganciati alla persona dell'anagrafica. e fin qui tutto bene.
Il problema sussiste quando eseguo un filtro nella sottomaschera e fin li
funziona ma se voglio tornare a vedere tutti i record di quella persona non
posso rivederli
Ho provato con
        DoCmd.ShowAllRecords
ma questo mi azzerrra il filtro che seleziona la maschera principale
Allora ho provato con
    Me.Requery
questo per vedere se funziona nella query e non si muove
Come posso fare per eliminare il filtro solo nella sottomaschera e non anche
nella maschera principale
Grazie


title: Eliminare filtro nella sottomaschera

author: PBsoft

text:
> Ho provato con
> DoCmd.ShowAllRecords
> ma questo mi azzerrra il filtro che seleziona la maschera principale
Ma il codice suddetto dove si trova? Nella form principale o nella sottoform?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: Eliminare filtro nella sottomaschera

author: Alessandro Baraldi

text:
Devi usare le proprietà FilterOn e Filter ....!
Prova con FilterOn=False
La proprietà è ovviamente di maschera, quindi se la chiami dalla
Parent
sarà:
Me!NomeSubForm.Form.FilterOn=False
Ciao
@Alex


title: Eliminare filtro nella sottomaschera

author: Simone Calligaris

text:
"PBsoft"
> > Ho provato con
> > DoCmd.ShowAllRecords
> > ma questo mi azzerrra il filtro che seleziona la maschera principale
> Ma il codice suddetto dove si trova? Nella form principale o nella
sottoform?
Temo si tratti di un bug storico di Access: se rimuovi un filtro in una
SubForm elimina anche (eventuali) filtri nella Form principale...
Ciao, Simone


title: Eliminare filtro nella sottomaschera

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1148114656.0...@i40g2000cwc.googlegroups.com...

Prova con FilterOn=False

Me!NomeSubForm.Form.FilterOn=False
Ciao
@Alex
Grazie a quanti mi hanno risposto
Il comando dia del filtro che il togli filtro è sulla sottoform
Comunque dal consiglio di Alex ho messo
      Me.FilterOn = False
e ho risolto il tutto
Di nuovo grazie dell'attenzione


title: ciclo for che scorre tutte le tabelle e le svuota

text:
sapete come posso fare? da codice vba?
grazie


author: Alessandro Cara

text:
Simba883 wrote:
> sapete come posso fare? da codice vba?
>
> grazie
>
>
Set rst = CurrentDb.OpenRecordset("select name from msysobjects where
type = 6 or (type=1 and flags =0)")
Do Until rst.EOF
    sSQL = "delete from " & rst.Fields(0)
    docmd.runsql
loop
--
a.cara
n.b. e' DAO


text:
Alessandro Cara wrote:

> n.b. e' DAO
urca!  manca la rst.movenext (ovviamente dopo la docmd)
 > --
 > a.cara
 >
 >


author: Alessandro Cappelli

text:
Proporrei:
Sub DeleteAllRecsInEveryTables()
Dim tabledefTabella As Object
Dim strSql As String
For Each tabledefTabella In CurrentDb.TableDefs
    If Left(tabledefTabella.Name, 4) <> "MSys" Then
        strSql = "DELETE FROM [" & tabledefTabella.Name & _
            "] WHERE [" & tabledefTabella.Name & "].[ID] Like '*';" 'ID è un
campo qualsiasi della tabella
        docmd.setwarnings false  ' solo se non vuoi che ti avvisi dela
cancellazione dei records
        DoCmd.RunSQL strSql
        docmd.setwarnings true
    End If
Next
End Sub
Occhio comunque a sta routine se ti scappa un F5 mentre il cursore è fra le
righe della stesaa routine e l'azione SetWarnings è settata a False azzerri
tutte le tabelle senza distinzione di sorta...
"Simba883" <
simb...@libero.it
> wrote in message
news:c1j0a3$k37$1...@lacerta.tiscalinet.it...



text:
> > n.b. e' DAO
> urca!  manca la rst.movenext (ovviamente dopo la docmd)
ok grazie mille


title: aiuto su query

author: AlexTD

text:
salve
ho una query che raggruppa i dati fattura con le relative righe del tipo

select .... from fatture inner join righefattura on fatture.idfattura
=righefattura.idfattura

avrei bisogno che la query però mi restituisse solo UNA riga per SINGOLA
fattura, quella con valore più alto.

in pratica se ho una fattura con 5 righe deve restituirmi solo la quinta
riga.
questo ovviamente per tutte le fatture

qualche idea?

grazie
Alex


title: aiuto su query

author: pfm

text:

come prima risposta ti direi prova a creare una query di raggruppamento del risultato che hai mettendo nFattura + data + max riga fattura


title: aiuto su query

text:
Il giorno giovedì 3 marzo 2016 08:37:51 UTC+1, AlexTD ha scritto:

Se le righe sono numerate (e penso lo saranno : dovrebbe esserci un campo
che numera le righe nel loro ordine per cui l' ultima è quella col numero
piu'  grande)  allora  puoi costruire una sub query piu' o meno di questo
tipo :

select ... from fatture left join on
(fatture.idfattura = select id_fattura from
righefattura where max(righe_fattura.numerazione)


title: filtrare record con casella combinata??

author: Cicas

text:
Ciao a tutti, ho una serie di record in una maschera "ricetta" e vorrei
filtrarli tramite una casella combinata di valori di una sua
sottomaschera....
in pratica io ho un tot di record "ricetta" e chiaramente ogni ricetta ha i
suoi ingredienti che io inserisco tramite una sottomaschera basata sulla
tabella "ingredienti", vorrei creare una maschera dove inserendo (tramite
casella combinata) ad esempio 2 ingredienti mi mostrasse tutte le ricette
che contengono quei due ingredienti
Ciao
Cicas
P.S. ho provato a guardare l'esempio su Sito Comune ed č proprio quello che
mi serve, perň per un principiante non č cosě facile riprodurlo nel proprio
DB


title: Inet e Gestione Errori

author: nutraf

text:
Salve a tutti,
sto utilizzando Inet per download di un file via FTP. di seguito il
codice:
On Error GoTo GestErr
lblstatus.Caption = ""
downloadfile = True
With Inet1
.Protocol = icFTP
.URL = "
ftp://server
"
.UserName = "username"
.Password = "password"
.Execute .URL, "SIZE invio/prova.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
dimensione = Inet1.GetChunk(1024)
ProgressBar1.Value = 0
ProgressBar1.Max = dimensione
.Execute .URL, "GET invio/prova.txt C:\prova.txt"
Do While Inet1.StillExecuting
DoEvents
ProgressBar1.Value = FileLen("C:\prova.txt")
perc = RoundN((ProgressBar1.Value / dimensione) * 100, 0)
Testo1 = perc & "%"
Loop
z = (.ResponseCode = 0)
.Execute .URL, "CLOSE"
.Execute .URL, "QUIT"
End With
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Cancel
GestErrEsci:
Exit Sub
GestErr:
Select Case Err
                Case icNameNotResolved, icCannotConnect,
icConnectFailed, icInternetDisconnected
                    MsgBox "Problema durante la connessione...",
vbCritical + vbOKOnly
                Case icInetTimeout, icTimeout
                    MsgBox "Timeout....", vbExclamation
                Case icUrlOpenFailed, icInvalidURL, icRequestFailed
                    MsgBox "Indirizzo non valido...", vbCritical +
vbOKOnly
                Case Else
                    MsgBox "FTP Errore " & Err & " : " & Error$ & "",
vbCritical + vbOKOnly, "Attenzione"
End Select
Resume GestErrEsci
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
        Case icResolvingHost
            lblstatus.Caption = lblstatus.Caption & "Risolvo indirizzo
IP Host" & vbCr & vbLf
        Case icHostResolved
            lblstatus.Caption = lblstatus.Caption & "indizzo IP Host
risolto" & vbCr & vbLf
        Case icConnecting
            lblstatus.Caption = lblstatus.Caption & "Connessione ..."
& vbCr & vbLf
        Case icConnected
            lblstatus.Caption = lblstatus.Caption & "Connesso" & vbCr
& vbLf
        Case icRequesting
            lblstatus.Caption = lblstatus.Caption & "Richiesta in
Corso ..." & vbCr & vbLf
        Case icRequestSent
            lblstatus.Caption = lblstatus.Caption & "Richiesta
Inviata" & vbCr & vbLf
        Case icReceivingResponse
            lblstatus.Caption = lblstatus.Caption & "Ricezione
risposta..." & vbCr & vbLf
        Case icResponseReceived
            lblstatus.Caption = lblstatus.Caption & "Risposta
Ricevuta" & vbCr & vbLf
        Case icDisconnecting
            lblstatus.Caption = lblstatus.Caption &
"Disconnessione ..." & vbCr & vbLf
        Case icDisconnected
            lblstatus.Caption = lblstatus.Caption & "Disconnesso" &
vbCr & vbLf
        Case icError
            lblstatus.Caption = lblstatus.Caption & "Errore " &
Inet1.ResponseCode & ":" & Inet1.ResponseInfo & vbCr & vbLf
        Case icResponseCompleted
            lblstatus.Caption = lblstatus.Caption & "Operazione
Completata - Dati ricevuti" & vbCr & vbLf
    End Select
    Debug.Print Inet1.ResponseCode & ":" & Inet1.ResponseInfo
End Sub
Non so se questa è la soluzione migliore per gestire gli errori con
Inet...ovvero ho notato che se mi loggo ad esempio con una password
errata lo statechanged non mi ritorna subito IcError (valore 11) ma
prima mi ritorna 0 e solo successivamanete Inet1.ResponseInfo mi da
Password Errata. Pero' intanto il codice mi è andato in errore.....
E' quindi corretto gestire al di fuori dell'evento StateChanged gli
errori?
Come posso disconnettere il controllo in caso di errore?
Esiste un modo per mostrare a video un log tipo client FTP
(chesso'...Filezilla.) che mi mostri tutti i comandi ricevuti e le
risposte del server?
Se uso con VBA Inet1.cancel mi ritorna errore di Property non
valida...sapete perchè?
Thanks
Bye
Rob


title: Inet e Gestione Errori

author: ALESSANDRO Baraldi

text:



.Execute .URL, "SIZE invio/prova.txt"


Do While Inet1.StillExecuting
DoEvents


Exit Sub
GestErr:

End Select
Resume GestErrEsci

Non so se questa č la soluzione migliore per gestire gli errori con
Inet...ovvero ho notato che se mi loggo ad esempio con una password
errata lo statechanged non mi ritorna subito IcError (valore 11) ma
prima mi ritorna 0 e solo successivamanete Inet1.ResponseInfo mi da
Password Errata. Pero' intanto il codice mi č andato in errore.....
E' quindi corretto gestire al di fuori dell'evento StateChanged gli
errori?
Come posso disconnettere il controllo in caso di errore?
Esiste un modo per mostrare a video un log tipo client FTP
(chesso'...Filezilla.) che mi mostri tutti i comandi ricevuti e le
risposte del server?
Se uso con VBA Inet1.cancel mi ritorna errore di Property non
valida...sapete perchč?
Thanks
Bye
Rob
Non userei INET nemmeno se fosse nativo...!(ovviamente č mia opinione)
Per quello che  hai fatto tu io uso questo Codice:
http://vbnet.mvps.org/code/internet/ftpdownloadcallback.htm
Funziona bene e non devo preoccuparmi di controlli OCX esterni.
Non spaventarti per le dimensioni del codice.... alla fine č piů semplice di
quello che sembra.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: totale di anni,mesi e giorni

author: rino

text:
ciao a tutti
avevo chiesto  il totale di anni,mesi e giorni
ma nessuna aiuto concreto
riprovo
spiegandomi meglio
      dataInizio      dataFine                     anni   mesi     giorni
1) 01/01/2000 - 31/12/2000 -              anni 1 mesi 0 giorni 0
2) 01/07/2001 - 31/12/2001 -              anni 0 mesi 6 giorni 0
3) 01/01/2002 - 31/12/2002 -              anni 1 mesi 0 giorni 0
4) 01/05/2003 - 31/12/2003 -              anni 0 mesi 8 giorni 0
 ecc
il totale  deve dare                               anni  3 mesi 2  giorni 0
grazie
Rino


title: totale di anni,mesi e giorni

author: Stefano Ferrari

text:
rino ha scritto:
>       dataInizio      dataFine                     anni   mesi     giorni
> 1) 01/01/2000 - 31/12/2000 -              anni 1 mesi 0 giorni 0
> 2) 01/07/2001 - 31/12/2001 -              anni 0 mesi 6 giorni 0
> 3) 01/01/2002 - 31/12/2002 -              anni 1 mesi 0 giorni 0
> 4) 01/05/2003 - 31/12/2003 -              anni 0 mesi 8 giorni 0
>  ecc
> il totale  deve dare                               anni  3 mesi 2  giorni 0
Non vorrei dire una corbelleria, ma scritto così non ha -secondo me-
molto senso, a meno che non ti accontenti di un dato approssimato.
Mi spiego,
il totale di anni, mesi, giorni, ha senso se il l'intervallo tra le date
è continuo e non frutto di 4 (o N) intervalli separati.
In quest'ultimo caso puoi fare così:
Ti trasporti tutti gli intervallli in giorni
1) 365 giorni
2) 184 giorni
3) 365 giorni
4) 245 giorni
totale:
1159 giorni
1159 /365 = 3 anni resto 1159 - 365*3 = 64giorni
a questo punto di quanti giorni vuoi considerare il mese?
30?
31?
1 da 30 e 1 da 31?
in ogni caso
ti avanzeranno sempre da 2 a 4 giorni
e quindi il conto è "impreciso"
a meno che non sia fuorviante la tua indicazione dei giorni, nel senso
che l'hai indicato ma non li devi considerare.
Allora così le cose cambiano, e puoi fare così:
Ti trasporti tutti gli intervallli in mesi:
1) 12
2)  6
3) 12
4)  8
totale:
38 mesi
38/12= 3 anni, resto 38-36= 2 mesi
che è il risultato che volevi tu.
Cerca la funzione DateDiff.
ciao
stefano


title: totale di anni,mesi e giorni

text:
"Stefano Ferrari" <
ferra...@tiskali.it
> ha scritto nel messaggio
news:47a9f790$0$31746$5fc...@news.tiscali.it...
> rino ha scritto:
>>       dataInizio      dataFine                     anni   mesi     giorni
>> 1) 01/01/2000 - 31/12/2000 -              anni 1 mesi 0 giorni 0
>> 2) 01/07/2001 - 31/12/2001 -              anni 0 mesi 6 giorni 0
>> 3) 01/01/2002 - 31/12/2002 -              anni 1 mesi 0 giorni 0
>> 4) 01/05/2003 - 31/12/2003 -              anni 0 mesi 8 giorni 0
>>  ecc
>> il totale  deve dare                               anni  3 mesi 2  giorni
>> 0
>
> Non vorrei dire una corbelleria, ma scritto cosě non ha -secondo me- molto
> senso, a meno che non ti accontenti di un dato approssimato.
> Mi spiego,
> il totale di anni, mesi, giorni, ha senso se il l'intervallo tra le date č
> continuo e non frutto di 4 (o N) intervalli separati.
>
> In quest'ultimo caso puoi fare cosě:
> Ti trasporti tutti gli intervallli in giorni
> 1) 365 giorni
> 2) 184 giorni
> 3) 365 giorni
> 4) 245 giorni
>
> totale:
> 1159 giorni
> 1159 /365 = 3 anni resto 1159 - 365*3 = 64giorni
> a questo punto di quanti giorni vuoi considerare il mese?
> 30?
> 31?
> 1 da 30 e 1 da 31?
> in ogni caso
> ti avanzeranno sempre da 2 a 4 giorni
>
> e quindi il conto č "impreciso"
>
> a meno che non sia fuorviante la tua indicazione dei giorni, nel senso che
> l'hai indicato ma non li devi considerare.
> Allora cosě le cose cambiano, e puoi fare cosě:
> Ti trasporti tutti gli intervallli in mesi:
> 1) 12
> 2)  6
> 3) 12
> 4)  8
>
> totale:
> 38 mesi
> 38/12= 3 anni, resto 38-36= 2 mesi
> che č il risultato che volevi tu.
>
> Cerca la funzione DateDiff.
>
> ciao
> stefano
stefano intanto ti ringrazio di avermi giŕ dato qualche elemento.
preciso meglio io voglio avere in una maschera che si riferisce a una
tabella, con 4 campi di questo tipo
1) (campo dataIniziale   es. 03/01/2005 )  - 1 campo dataFinale 31/11/2008)
risultato in 3 campi diversi cioč: (3 anni in un campo) (10 mesi in un
campo) e (28 giorni in un campo)
cosě altri.
alla fine vorrei la somma in 3 campi diversi degli anni mesi e giorni
posso provare con la tua risoluzione per quello che cerco?
grazie
rino


title: totale di anni,mesi e giorni

author: Marco

text:
Li per li, ti direi di "nidificare" la funzione DateDiff utlizzando come
variabili il risultato di alte DateDiff.
Mi pare l'unica soluzione.
"rino" <
gensi...@alice.it
> ha scritto nel messaggio
news:47aa0257$0$37205$4faf...@reader3.news.tin.it...



title: domanda impegnativa...per i miei standard

author: Davide Lo Vetro

text:
--
****************************************************
Davide Lo Vetro
DolceVitaFilm/Videotech
Via Forcella 13, 20144, Milano
T. 02/89401601 - F. 02/89401583
****************************************************
Devo archiviare dati riguardanti dei D1 (videocassette digitali, NDR).
Ho tre tipi di D1:
-D1 flint
-D1 paintbox
-D1 softimage DS
ciascun tipo ha una numerazione progressiva: 1,2,3,etc. etc.
I campi della TABELLA sono:
ID CASSETTA - SOGGETTO - DESCRIZIONE - DATA - TIMECODE IN.
Come mi conviene operare per ottenere alla fine un database in cui poi
potere avviare una (o piu') query che trovi un record su un qualsiasi
D1. Fare una tabella per ogni singolo D1 e poi usare le relazioni?
Oppure dopo aver inserito i dati fare un' accodamento?
Forse le mie domande sono banali, ma sono un neofita di Access e non
possiedo conoscenze di VB o simili.
Grazie un saluto a tutti
--
Posted from
ro...@rizla.energy.it
 [212.51.128.1]
via Mailgate.ORG Server -
http://www.mailgate.org


author: Antonio Biso

text:
Davide Lo Vetro ha scritto nel messaggio
<
388EEA4A...@dolcevitafilm.com
>...
>
>--
>****************************************************
>Davide Lo Vetro
>DolceVitaFilm/Videotech
>Via Forcella 13, 20144, Milano
>T. 02/89401601 - F. 02/89401583
>****************************************************
>Devo archiviare dati riguardanti dei D1 (videocassette digitali, NDR).
>Ho tre tipi di D1:
>-D1 flint
>-D1 paintbox
>-D1 softimage DS
>ciascun tipo ha una numerazione progressiva: 1,2,3,etc. etc.
>I campi della TABELLA sono:
>ID CASSETTA - SOGGETTO - DESCRIZIONE - DATA - TIMECODE IN.
>Come mi conviene operare per ottenere alla fine un database in cui poi
>potere avviare una (o piu') query che trovi un record su un qualsiasi
>D1. Fare una tabella per ogni singolo D1 e poi usare le relazioni?
>Oppure dopo aver inserito i dati fare un' accodamento?
Se le informazioni sui vari D1 sono le stesse a prescindere dal tipo. metti
un campo che distingua la tipologia di D1 e che accetti solo F S P
Poi se devi filtrare per tipologia lo farai con quel campo
Antonio


title: sendkeys

author: Femto

text:
Ciao Ng, come si può gestire in problema generato dall’utilizzo
dell’istruzione SendKeys "{F9}" ?
In particolare quando clicco su un record vuoto, di una sottomaschera
che ha come origine riga una query? ho provato con error resume ma
niente di buono, qualche suggerimento?
Grazie anticipatamente
Femto


title: sendkeys

author: Pablitomf

text:
Femto ha scritto:

> Grazie anticipatamente
> Femto
Ma che vuoi gestire? che ti serve fare?... SendKeys con l'F9 non fa altro
che salvare tutto e fare il requery del DB... a te che serve?
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: sendkeys

author: Carlo Costarella

text:
"Femto" <
fem...@virgilio.it
> ha scritto nel messaggio
news:zBlpd.216057$b5.10...@news3.tin.it...

Dicci qualcosa di più sul messaggio di errore e del perchè usi SendKeys
"{F9}".
Per fare un requey della maschera ti basta me.requery.
Mi pare che anche in SendKeys dovresti usare maiuscolo F9 cioè
SendKeys "+{F9}"
Ciao, Carlo


title: sendkeys

text:
"Femto" <
fem...@virgilio.it
> ha scritto nel messaggio
news:zBlpd.216057$b5.10...@news3.tin.it...

Può darsi che usi SendKeys "{F9}" per fare un recalc dei controlli
calcolati; in questo caso è importante conoscere il messaggio di errore.
Ciao, Carlo


title: Numerazione fattura

author: nuotatore

text:
ho un problema: in una maschera devo inserire i numeri di fattura. oviamente
volevo agire sul valore predefinito (permettendo così un'eventuale modifica)
sul sito ho trovato un esempio che calzava a pennello. lo ho trasportato
sulla mia applicazione, ma mi da errore? a che cosa può essere dovuto? al
posto di [contatore] ho messo il mio id e al posto di [mia tabella] il nome
della mia tabella. dove può essere l'errore?
--
___________________________________
Mauro Gallo
www.maurogallo.com
alf...@libero.it


title: Numerazione fattura

text:
l'esempio riportato è il seguente:
="E" & Format(Date();"aa") & "/" &
Format(IIf(IsNull(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") &
"/????'"));1;Right(DMax("MioContatore";"MiaTabella";"MioContatore like '?" &
Format(Date();"aa") & "/????'");4)+1);"0000")
L'effetto finale è quello di ottenere una numerazione del tipo:
 E99/0001
Dove:
 E = Riferimento arbitrario
 99 = Ultime due cifre dell'anno
 / = Separatore
 0001 = Contatore



title: Numerazione fattura

text:
chiedo scusa se pongo 2 volte la stessa domanda, ma il mio quesito è
importante e penso che sia piuttosto comune tra gli utilizzatori di access.
vi ringrazio se vorrete aiutarmi.
come posso numerare automaticamente il numero delle fatture?



title: Numerazione fattura

author: Sergio MAZZA

text:
"nuotatore" <
alf...@libero.it
> ha scritto nel messaggio
news:_1%N5.12130$BF.4...@news.infostrada.it...

Se non invii il tipo di errore che ti presenta e l'esempio del tuo codice
rimaneggiato a tue esigenze potresti aspettare parecchio tempo.
Mettiti nei panni di chi potrebbe risponderti e vedi se con le tue
indicazioni si può solo abbozzare una soluzione...
Ciao.


title: Numerazione fattura

author: Sib

text:
"nuotatore" <
alf...@libero.it
> ha scritto nel messaggio
news:xyUN5.8618$BF.2...@news.infostrada.it...
> ho un problema: in una maschera devo inserire i numeri di fattura.
oviamente
> volevo agire sul valore predefinito (permettendo cosě un'eventuale
modifica)
> sul sito ho trovato un esempio che calzava a pennello. lo ho trasportato
> sulla mia applicazione, ma mi da errore? a che cosa puň essere dovuto? al
> posto di [contatore] ho messo il mio id e al posto di [mia tabella] il
nome
> della mia tabella. dove puň essere l'errore?
Penso che tu possa avere due tipi di problemi:
prima di tutto la mia formula prevede che il campo sia in formato testo,
quindi se hai messo formati diversi ti da errore,
secondo la formula va messa nella proprieta' valore predefinito della
maschera e non della tabella (come spiegato sul sito comune) perche'
altrimenti ti da l'errore "DMax funzione non riconosciuta" o qualcosa del
genere.
Comunque quando poni una domanda come questa, devi sempre spiegare l'errore
che ti da e dove te lo da, altrimenti si puo' solo immaginare:
Ciao, Sib


title: Criteri Query key Insensitive

author: Alessandro Fusari

text:
Ciao a tutti !!!
... possibile con Access 97 che esegue una query via ODBC rendere i
criteri della
query Key Insensitive ?
Grazie dell' attenzione !!!
--
*  Sgt. Pepper's Lonly Hearts Club Band * We Hope You Have Enjoy The
Show  *
# Il prezzo dei CD musicali è ingiusto ! Ingrassano le
multinazionali,     #
# svuotano i nostri portafogli e uccidono la diffusione della musica.
Non  #
# comprate CD a prezzo pieno. Comprate offerte , CD usati e scaricate
MP3. #
*         I Know It' s only Rock' n' Roll , But I Like It
!                *


title: Criteri Query key Insensitive

author: Lorenzo Coronati

text:
Scrisse Alessandro Fusari <
alessand...@siber.it
>:
>... possibile con Access 97 che esegue una query via ODBC rendere i
>criteri della
>query Key Insensitive ?
Eeeh?
--
Lorenzo Coronati
--
<<Io studio ing gestionale e dei non laureati
che mi sputano in faccia mi faccio beffe.>>
(Andrea "Mr Bad Guy", 10/07/2000)
--


title: Criteri Query key Insensitive

author: Silvio Berruti

text:
"Lorenzo Coronati" <
lore...@tin.ton.tan.it
> ha scritto nel messaggio
news:39a40207...@news.libero.it...
> >query Key Insensitive ?
>
> Eeeh?
>
Oh... Lorenzo.. che sei sordo!
;-)))
Silvio


title: Criteri Query key Insensitive

text:
Scrisse "Silvio Berruti" <
s...@gma.it
>:
>> >query Key Insensitive ?
>>
>> Eeeh?
>>
>Oh... Lorenzo.. che sei sordo!
No, e' che i don't conosc english very well...



title: Criteri Query key Insensitive

text:
>
> No, e' che i don't conosc english very well...
>
Allora mettila cosě : Ho preparato una query che pesca delle
informazioni
da un fonte ODBC , un DB Server Postgres ... un 10K record di tabella .
Purtroppo gli inserimente nella tabella sono stati fatti da piů persone
per cui
ti ritrovi ad esempio LOVE , Love , love , LoVe , ecc. io nella select
ci vorrei
mettere solo "love" e vorrei vedermi restituire tutte le combinazioni
tra maiuscole
e minuscole  ... sapete se č possibile ?
> <<Io studio ing gestionale e dei non laureati
> che mi sputano in faccia mi faccio beffe.>>
> (Andrea "Mr Bad Guy", 10/07/2000)
... allora non hai ancora cominciato a lavorare .
--
*  Sgt. Pepper's Lonly Hearts Club Band * We Hope You Have Enjoy The
Show  *
# Il prezzo dei CD musicali č ingiusto ! Ingrassano le



title: Criteri Query key Insensitive

text:
Scrisse Alessandro Fusari <
alessand...@siber.it
>:
>Purtroppo gli inserimente nella tabella sono stati fatti da più persone
>per cui
>ti ritrovi ad esempio LOVE , Love , love , LoVe , ecc. io nella select
>ci vorrei
>mettere solo "love" e vorrei vedermi restituire tutte le combinazioni
>tra maiuscole
>e minuscole  ... sapete se è possibile ?
Premesso che non ho mai provato a lavorare con server case
sensitive, se nella query puoi usare funzioni, prova una
cosa del tipo where lcase(campo)="love"
>> <<Io studio ing gestionale e dei non laureati
>> che mi sputano in faccia mi faccio beffe.>>
>> (Andrea "Mr Bad Guy", 10/07/2000)
>
>... allora non hai ancora cominciato a lavorare .
Fermo!
Non vorrai mica insinuarmi il dubbio che qualcuno pensi che
queste mirabili citazioni di alcuni luminari del ng siano in
qualche modo da me condivise, eh?
Vabbe'...
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono
convinti che noi poveri principianti (nel senso
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--


title: Domanda

author: Marina F.

text:
In un programma che gira su access ho notato che in una maschera di gestione
ordini passando con il mause sui controlli espressi in lire automaticamente
apriva una piccola maschera che convertiva il valore in euro.Su che evento
bisogna associare l'azione? e come faccio a fare un riferimento in quanto i
controlli sono diversi ad esempio prezzo articolo, importo, totale.
Grazie a tutti
--


title: Domanda


title: Domanda

author: Roberto dal portatile

text:
"Marina F." <
tecn...@libero.it
> ha scritto nel messaggio
news:_tvL7.158746$sq5.7...@news.infostrada.it...

Sull'help prova a dare uno sguardo a: Evento MouseSpostato.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Domanda

author: Alex

text:
"Marina F." <
tecn...@libero.it
> wrote in message
news:_tvL7.158746$sq5.7...@news.infostrada.it...

Su evento "Su Mouse Spostato" puoi modificare la proprietà "ControlTipText"
del Controllo in questione e passare così il Testo da visualizzare:
Es.:
Private Sub TuatxtBox_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   dim Eurovalore as long
   Eurovalore=Me.TuatxtBox*1936,27
   Me.TuatxtBox.ControlTipText=cstr(Eurovalore)
End Sub
Dovrebbe essere l'effetto a cui ti riferivi.
Ciao @Alex
--
Posted from  [62.98.12.66]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Domanda

text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:f89126a102eed9dcfc...@mygate.mailgate.org...

>E' proprio quello che mi serviva, anzi molto di più in effetti non avevo
mai usato il ControlTipText in certe situazioni è veramente utile.
Solo una cosa, c'è la possibilità di diminuire il tempo di attesa  per la
visualizzazione del ControlTipText  e i controlli calcolati nelle maschere.
Grazie 1000
Marina


title: Visualizzare legami tra record stile relazioni

author: Andrea

text:
Ciao a tutti, il problema è il seguente in un form ho 2 sottomaschere
che hanno origini dati diverse posizionate in senso verticale. ho la
necessità di creare una sorta di relazione tra la Sottomaschera A e
quella B sia a livello di record che a livello visivo come quando in
Access si creano le Relazioni deve funzionare alla stessa maniera in
modo tale che visivamente vedo come sono collegati i record.
In alternativa sul click su un determinato record visualizzare la
singola relazione con l'altro record.
Secondo voi è un'assurdità o si può fare?
Grazie a tutti
Andrea
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: MA

text:
"Andrea" <
andrea.di...@tin.it
> ha scritto
nel messaggio
news:b8ba174804e82e34cba...@mygate.mailgate.org...

Cosa devi controllare?
spiega cosa vuoi non come (per quello ci facciamo
venire un'idea)
Massimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message news:<07Bac.2791$
l27....@news.edisontel.com
>...

Nella SM di sinistra (A), ho 3 campi: CodiceA, descrizione, Importo, in
quella di destra (B) ho 3 campi: CodiceB, descrizione, CodicePDC.
Quello che a me occorre è il creare un codice univoco derivante dall'unione
del CodiceA con il CodiceB.
esempio:
CodiceA=123
CodiceB=WS451
Codice derivato=123WS451
e da qui il problema di creare un rapprensetazione grafica più o meno chiara
in considerazione del fatto che le righe possono essere moooolte.
Grazie


author: Akira

text:
 scritto:

>Grazie a tutti
>Andrea

Nella SM di sinistra (A), ho 3 campi: CodiceA, descrizione, Importo, in



title: immagini

author: Carlo

text:
Facendo un collegamento ipertestuale ad una immagine, mi viene visualizzata
in una pagina htm.
E' possibile modificare i parametri di questa pagina, ad esempio colore di
sfondo o centratura immagine?
Grazie
Carlo


title: immagini

author: Cinzia

text:
"Carlo" <
carlone...@virgilio.it
> ha scritto nel messaggio
news:uZaJd.447790$b5.21...@news3.tin.it...

Ciao Carlo,
l'immagine ti viene visualizzata in una pagina htm, perchè l'estensione del
file immagine è associata al Browser predefinito (IE)
Trattandosi di una immagine visualizzata nel browser, non puoi impostare un
colore di sfondo o la centratura, lo potresti fare se visualizzassi
effettivamente un HTM.
Saluti
Cinzia


title: Importazione di file testo?

author: Felice Musicco

text:
Ho importato un file *.txt. Un campo nel database origine (oracle) numerico
viene trasformato automaticamente (dalla stampa su file) in testo in quanto
i numeri vengono trasformati come ad esempio
123  000  300.00
i doppi spazi tra le migliaia e i punti invece della virgole fanno si che
access non interpreti il campo come numerico o valuta ma bensì come testo.
Tramite query posso eliminare detti doppi spazi e trasformare i punti in
virgole? Ho infatti necessità di manipolare i dati con access in formato
numerico.
grazie in anticipo per l'aiuto
---------------------------------------------------------------
Felice Musicco
Roma
+39 06 5417582
03683389075
email:
fmu...@micanet.it
pwp:
www.geocities.com/area51/shire/6356
----------------------------------------------------------------------


title: Importazione di file testo?

author: lbo dal portatile

text:
>123  000  300.00
>Tramite query posso eliminare detti doppi spazi e trasformare i punti in
>virgole? Ho infatti necessità di manipolare i dati con access in formato
per gli spazi ci dovrebbe essere qualcosa sul sito comune.
quello che ti consiglierei e' di scrivere una funzione alla quale dai
in input il campo e che faccia le due operazioni necessarie, togliere
gli spazi e sostituire la virgola:
function adatta(s as string) as double
dim ss as string
dim i as integer
dim appo as string
for i=1 to len(s)
	ss=trim(mid(s,i,1))
	if ss="." then
		ss=","
	end if
	appo=appo & ss
next i
adatta=cdbl(appo)
end function
la richiamerai dentro una query.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: doppio contatore  parte 3

author: luigi onofrio

text:
> riassumo cosa mi serve:
> avendo in una tabella "TABELLA2" un campo "SI_NO" i cui valori
> possono
> essere a scelta SI o NO, devo in un altro campo "NUMERO" di tipo
> > testo
> avere in automatico una numerazione incrementale sia per i
> valori SI
> che
> per i NO del campo "SI_NO"
> e quindi nel campo "numero" possono esserci 1,1,2,2,3,3,ecc e
> non
> devono
> esserci più di due numeri uguali.
cut
> invece
> di una funzione IIf, visto che usi VBA, è meglio una If ... Else ...
> End If.
> >
> > > > > la formula si può usare o si deve cambiare?
> >
> > > > Il problema non è cambiare la formula, ma è dove scriverla.
> >
> > > > Comunque devi togliermi una curiosità: se dopo che hai assegnato il
> valore
> > > > al campo [numero] qualcuno cambia il valore del campo si_NO cosa
> succede?
> >
> > > devo fare in modo che il campo SI_NO venga bloccato dopo il salvataggio
> > > del record (magari facendo un doppio passaggio,lanciando un messaggio di
> > > avvertimento se si è sicuri del salvataggio) e il numero non
> modificabile
> > > dopo il salvataggio.
> > > Ma qua la cosa per me si fa impossibile, devo solo sperare nella grazia
> di
> > > ....... :-==))
> > > che ne dici?
> > pensando ancora all'argomento, siccome è un applicativo nuovo, posso anche
> > sostituire il campo SI_NO in altro formato tipo testo o numerico e usare
> > dei pulsanti di comando per il si o il no. Insomma potrei gestire la cosa
> > nel modo migliore.
> Decidi tu come impostare i termini del problema, poi magari insieme viediamo
> le soluzioni, se dovessi avere difficoltà a trovarle da solo.
io Avrei pensato:
impostare il campo SI_NO a numerico con valori predefiniti vuoto(default),
0 (NO),1 (SI), non modificabili direttamente .
fare su una maschera due pulsanti di comando di cui uno assegni il numero
0 al campo SI_NO e incrementare il numero contatore al campo "NUMERO" ai
valori 0 del campo SI_NO se questo campo è vuoto, l'altro assegna il
numero 1 al campo SI_NO e incrementare un numero di contatore ai valori 1
del campo SI_NO sempre se questo è vuoto. Tutti e due non devono
funzionare se il valore del campo SI_NO è assegnato, cioè vi sia 1 o
0,(quindi disabilitati per le modifiche).
il Campo "NUMERO" non deve avere più di 2 valori uguali).
A questo punto non capisco più niente! come proseguire?
penso, evento su clik dei singoli pulsanti inserire:
if SI_NO = 0 , then numero = conta parziale valore 1 di SI_NO + 1 , else
non fare nulla
if SI_NO = 1 , then numero = conta parziale valore 1 di SI_NO + 1 , else
non fare nulla
naturalmente non so comporre il giusto codice
sono completamente bloccato.
SOS
spero di avermi fatto capire!
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Formato dati

author: Zappus

text:
Devo caricare dati esterni provenienti da un file.txt.
Essi sono rappresentati in questo modo:
........(per maggior chiarezza.... sono dati provenienti da un dispositivo
hardware che serve a prendere tempi in gare sportive; tramite Windows
Hyperterminal riesco a collegarlo al PC e con una serie di comandi i tempi
di gara mi vengono rappresentati in questo modo....
000-01234587-999
000-01324466-999
....sottoforma di file di testo).
Immaginiamo che ognuna delle righe sia un record composto da tre
campi(separati dal trattino)
1° campo: n° concorrente;
2° campo: tempo impiegato(hh.mm.ss,cc);
3° campo: n° gara.
Il primo e il terzo campo possono anche non interessarmi, il secondo è
importantissimo...
Con la funzione carica dati esterni Importa dati vado direttamente a crearmi
la tabella in Access e effettivamente ottengo i miei tre campi...
Dov'è il problema???
Mentre per il 1° e il 3° il formato numerico o di testo mi vanno bene, per
il 2° il numerico o il testo non mi permettono (o non sono capace) di
rappresentare il dato in questo modo: 01.23.45,87 (hh.mm.ss,centesimi).
Come devo fare secondo voi per poter fare in modo che poi questi dati
possano essere stampati con un report.
Vi straringranzio finora per l'aiuto.
Luca.


title: Formato dati

author: Maurizio Borrelli

text:
> "Zappus" [...]:
> Devo caricare dati esterni provenienti da un file.txt.
> Essi sono rappresentati in questo modo:
> ........(per maggior chiarezza.... sono dati provenienti da un dispositivo
> hardware che serve a prendere tempi in gare sportive; tramite Windows
> Hyperterminal riesco a collegarlo al PC e con una serie di comandi i tempi
> di gara mi vengono rappresentati in questo modo....
> 000-01234587-999
> 000-01324466-999
> ....sottoforma di file di testo).
[...]
> Dov'è il problema???
> Mentre per il 1° e il 3° il formato numerico o di testo mi vanno bene, per
> il 2° il numerico o il testo non mi permettono (o non sono capace) di
> rappresentare il dato in questo modo: 01.23.45,87 (hh.mm.ss,centesimi).
> Come devo fare secondo voi per poter fare in modo che poi questi dati
> possano essere stampati con un report.
    Debug.Print Format$(1234587, "00\.00\.00\,00")
OUTPUT:
    01.23.45,87
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


title: Formato dati

text:
Maurizio Borrelli <
maurizio...@freepass.it
> wrote in message
ajvosh$1doqtf$1...@ID-52090.news.dfncis.de...
> > "Zappus" [...]:
> > Devo caricare dati esterni provenienti da un file.txt.
> > Essi sono rappresentati in questo modo:
>
>     Debug.Print Format$(1234587, "00\.00\.00\,00")
>
> OUTPUT:
>
>     01.23.45,87
>
> --
> Ciao.
> Maurizio
> --------
> ?SPQR(C)
>  X
> --------
> Grazie molto
Visto che sei cosě gentile posso aprofittare??
se devo sommare due tempi come posso fare
es. 01.34.44,00 +
       00.59.34,00
il totale dovrebbe essere:
02.34.18,00
invece mi viene:
01.93.78,00
Grazie ancora
>


title: Formato dati

text:
> "Zappus" [...]:
> > Maurizio Borrelli [...]:
> > > "Zappus" [...]:
> > > Devo caricare dati esterni provenienti da un file.txt.
> > > Essi sono rappresentati in questo modo:
> >     Debug.Print Format$(1234587, "00\.00\.00\,00")
> > OUTPUT:
> >     01.23.45,87
> > Grazie molto
> Visto che sei cosě gentile posso aprofittare??
> se devo sommare due tempi come posso fare
> es. 01.34.44,00 +
>        00.59.34,00
> il totale dovrebbe essere:
> 02.34.18,00
> invece mi viene:
> 01.93.78,00
    Perche' le operazioni le devi fare passando attraverso la conversione in
centesimi di secondo.
    Ti faccio un esempio, che e' anche qualcosina piu' di un esempio:
Public Sub Test()
  Dim lTimeAsLong   As Long
  Dim lTimeAsLong1  As Long
  Dim lTimeAsLong2  As Long
  lTimeAsLong = 11042308
  lTimeAsLong1 = 1344400
  lTimeAsLong2 = 593400
  Debug.Print "Conversione da Long a Centesimi di secondo"
  Debug.Print "e riconversione per verifica:"
  Debug.Print
  Debug.Print _
      FormatLongAsCSec(lTimeAsLong) _
    , CSecFromLong(lTimeAsLong) _
    , FormatLongAsCSec(LongFromCSec(CSecFromLong(lTimeAsLong)))
  Debug.Print
  Debug.Print
  Debug.Print "Somma:"
  Debug.Print
  lTimeAsLong _
    = LongFromCSec( _
          CSecFromLong(lTimeAsLong1) _
        + CSecFromLong(lTimeAsLong2))
  Debug.Print FormatLongAsCSec(lTimeAsLong1); " + ";
  Debug.Print FormatLongAsCSec(lTimeAsLong2); " = ";
  Debug.Print FormatLongAsCSec(lTimeAsLong)
End Sub
Public Function CSecFromLong( _
  ByVal TimeAsLong As Long _
) As Long
  Const c_sFormat = "00000000"
  Dim sTimeAsLong As String
  sTimeAsLong = Format$(TimeAsLong, c_sFormat)
  CSecFromLong _
    = CLng(Mid$(sTimeAsLong, 1, 2)) * 360000 _
    + CLng(Mid$(sTimeAsLong, 3, 2)) * 6000& _
    + CLng(Mid$(sTimeAsLong, 5, 2)) * 100& _
    + CLng(Mid$(sTimeAsLong, 7, 2))
End Function
Public Function FormatLongAsCSec( _
  ByVal TimeAsLong As Long _
) As String
  Const c_sFormat = "00\.00\.00\,00"
  FormatLongAsCSec = Format$(TimeAsLong, c_sFormat)
End Function
Public Function LongFromCSec( _
  ByVal TimeAsCSec As Long _
) As Long
  Const c_sFormat = "00"
  Dim lHH   As Long
  Dim lMM   As Long
  Dim lSS   As Long
  Dim lCC   As Long
  lCC = TimeAsCSec
  lHH = lCC \ 360000
  lCC = lCC - lHH * 360000
  lMM = lCC \ 6000&
  lCC = lCC - lMM * 6000&
  lSS = lCC \ 100&
  lCC = lCC - lSS * 100&
  LongFromCSec _
    = CLng( _
          Format$(lHH, c_sFormat) _
        & Format$(lMM, c_sFormat) _
        & Format$(lSS, c_sFormat) _
        & Format$(lCC, c_sFormat))
End Function
OUTPUT:
Conversione da Long a Centesimi di secondo
e riconversione per verifica:
11.04.23,08    3986308      11.04.23,08
Somma:
01.34.44,00 + 00.59.34,00 = 02.34.18,00



title: Conferma Cancellazione ( aiuto ! )

author: Peo

text:
Repubblica di San Marino, 04 gennaio 2002
Ciao a tutti e buon anno.
Come va con l'Euro?
Ho un problema che per molti di voi è di certo una cavolata, ma per me no.
Come posso inserire un messaggio di conferma prima di eliminare un record?
Sono nella maschera con i dati, posizionato sul record da cancellare,
cliccando sul pulsante cmdElimina eseguo la seguente routine evento:
Private Sub cmdElimina_Click()
On Error GoTo Err_cmdElimina_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_cmdElimina_Click:
    Exit Sub
Err_cmdElimina_Click:
    MsgBox Err.Description
    Resume Exit_cmdElimina_Click
End Sub
Chi mi dice come devo modificare questa parte di codice?
Grazie 1000, anzi 2002.
Peo
www.studiopasquali.it


title: Conferma Cancellazione ( aiuto ! )

author: SimonenomiS

text:
"Peo" <
moto...@libero.it
> wrote in news:3c35f9d6$
1...@news.omniway.sm
:
> Come posso inserire un messaggio di conferma prima di eliminare un
> record? Sono nella maschera con i dati, posizionato sul record da
> cancellare, cliccando sul pulsante cmdElimina eseguo la seguente
> routine evento:
>
>
> Private Sub cmdElimina_Click()
> On Error GoTo Err_cmdElimina_Click
>
>
>     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
>     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>
> Exit_cmdElimina_Click:
>     Exit Sub
>
> Err_cmdElimina_Click:
>     MsgBox Err.Description
>     Resume Exit_cmdElimina_Click
>
> End Sub
>
>
  Puoi farlo in pių modi. Ad esempio inserendo le righe di codice:
    	Dim lR As Long
    	lR = MsgBox("Vui davvero eliminare il record?", _
         	vbQuestion Or vbYesNo, "Attenzione!")
    	If lR = vbNo Then Exit Sub
prima dei DoCmd, oppure, piu' elegantemente, andando a gestire l'evento
BeforeDelConfirm (descritto nell'help in linea) della form.
  Ciao
-----------
http://digilander.iol.it/SimonenomiS/


title: Conferma Cancellazione ( aiuto ! )

text:
"SimonenomiS" <Si...@nomiS.it> ha scritto nel messaggio
news:Xns918CE7F46D28D...@193.70.192.102...
> "Peo" <
moto...@libero.it
> wrote in news:3c35f9d6$
1...@news.omniway.sm
:
>
> > Come posso inserire un messaggio di conferma prima di eliminare un
> > record? Sono nella maschera con i dati, posizionato sul record da
> > cancellare, cliccando sul pulsante cmdElimina eseguo la seguente
> > routine evento:
> >
> >
> > Private Sub cmdElimina_Click()
> > On Error GoTo Err_cmdElimina_Click
> >
> >
> >     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
> >     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
> >
> > Exit_cmdElimina_Click:
> >     Exit Sub
> >
> > Err_cmdElimina_Click:
> >     MsgBox Err.Description
> >     Resume Exit_cmdElimina_Click
> >
> > End Sub
> >
> >
>   Puoi farlo in più modi. Ad esempio inserendo le righe di codice:
>
>     Dim lR As Long
>     lR = MsgBox("Vui davvero eliminare il record?", _
>          vbQuestion Or vbYesNo, "Attenzione!")
>     If lR = vbNo Then Exit Sub
>
> prima dei DoCmd, oppure, piu' elegantemente, andando a gestire l'evento
> BeforeDelConfirm (descritto nell'help in linea) della form.
>
>   Ciao
>
> -----------
>
http://digilander.iol.it/SimonenomiS/
Oppure (meno elegante ma semplice) spuntando la casella
Opzioni-Modifica/trova-ModificaRecord
Paolo


title: Conferma Cancellazione ( aiuto ! )

author: Emyr

text:
On Fri, 04 Jan 2002 21:47:48 GMT, SimonenomiS <Si...@nomiS.it> wrote:
>"Peo" <
moto...@libero.it
> wrote in news:3c35f9d6$
1...@news.omniway.sm
:
>
>> Come posso inserire un messaggio di conferma prima di eliminare un
>> record? Sono nella maschera con i dati, posizionato sul record da
>> cancellare, cliccando sul pulsante cmdElimina eseguo la seguente
>> routine evento:
>>
>>
>> Private Sub cmdElimina_Click()
>> On Error GoTo Err_cmdElimina_Click
>>
>>
>>     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
>>     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>>
>> Exit_cmdElimina_Click:
>>     Exit Sub
>>
>> Err_cmdElimina_Click:
>>     MsgBox Err.Description
>>     Resume Exit_cmdElimina_Click
>>
>> End Sub
>>
>>
>  Puoi farlo in più modi. Ad esempio inserendo le righe di codice:
>
>    	Dim lR As Long
>    	lR = MsgBox("Vui davvero eliminare il record?", _
>         	vbQuestion Or vbYesNo, "Attenzione!")
>    	If lR = vbNo Then Exit Sub
>
>prima dei DoCmd, oppure, piu' elegantemente, andando a gestire l'evento
>BeforeDelConfirm (descritto nell'help in linea) della form.
>
>  Ciao
>
>-----------
>
http://digilander.iol.it/SimonenomiS/
forse è più efficiente così
    	If MsgBox("Vui davvero eliminare il record?",  vbQuestion Or
vbYesNo, "Attenzione!") = vbNo Then Exit Sub
Saluti.
Emanuele.


title: Conferma Cancellazione ( aiuto ! )

author: Antonio Biso

text:
Peo <
moto...@libero.it
> wrote in message 3c35f9d6$1...@news.omniway.sm...
> Repubblica di San Marino, 04 gennaio 2002
Ehem. Peoooo?
Non č una lettera dove si deve mettere l'intestazione luogo e data...
E poi, caso mai, mancava il < lě >...
Antonio


title: Conferma Cancellazione ( aiuto ! )

text:
scusa, sono un pň pollo...
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:J0AZ7.14096$SE3.5...@twister1.libero.it...



title: Conferma Cancellazione ( aiuto ! )

text:
Peo <
moto...@libero.it
> wrote in message 3c37...@news.omniway.sm...
> scusa, sono un pò pollo...
Già...
oltre al fatto che po va con l'apostrofo, non l'accento, e che si scrive
DOPO il quoting!!!
Antonio


title: Conferma Cancellazione ( aiuto ! )

text:
Carlo Filippini <carlo.f...@NOSPAMtiscalinet.it> wrote in message
vf7f3uk0skimav2u4...@4ax.com...
> On Sat, 05 Jan 2002 09:51:37 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
>
> > Non č una lettera dove si deve mettere l'intestazione luogo e data...
> > E poi, caso mai, mancava il < lě >...
>
> Non credo che li voglia l'accento. In questo caso significa il e non
> lě inteso come in quel luogo.
Uh?
Oh, non si finisce mai di imparare...
Certo che ... non te la sei fatta sfuggire... chi di spada ferisce...
Antonio


title: Somma di data now() +10

author: Pino

text:
Ho un campo data in una querry dove immetto la data e vorrei sostituirlo con
data di oggi + 10 gg come posso fare. Grazie.


title: Somma di data now() +10

author: Carlo Costarella

text:
"Pino" <
pi...@serenacom.net
> ha scritto nel messaggio
news:b9h6ku$7fu$1...@lacerta.tiscalinet.it...
> Ho un campo data in una querry dove immetto la data e vorrei sostituirlo
con
> data di oggi + 10 gg come posso fare. Grazie.
>
>
Normalmente le query prelevano i dati da una tabella. Non capisco bene cosa
vuol dire "...dove immetto la data".
Usi un criterio?
Esiste un campo data che deve essere impostato a Data + 10 gg?
Se è così aggiungi una nuova colonna che chiamerai per esempio "NuovaData".
NuovaData: [TuoCampoData] + 10
oppure:
NuovaData: Format([TuoCampoData];"gg/mm/aaaa") + 10
Ciao, Carlo


title: Somma di data now() +10

author: Karl Donaubauer

text:
Carlo Costarella ha scritto:
...
> NuovaData: Format([TuoCampoData];"gg/mm/aaaa") + 10
?
NuovaData: Format([TuoCampoData] + 10;"gg/mm/aaaa")
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Somma di data now() +10

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:b9iacs$jgpd2$2...@ID-46617.news.dfncis.de...

Uso un report basato su una querry che ha un campo ad immissione manuale su
richiesta e vorrei che per default fosse inserito dataoggi + 10 gg salvo
diversamente. Grazie.


title: Somma di data now() +10

text:
"Pino" <
pi...@serenacom.net
> ha scritto nel messaggio
news:b9ojt6$oik$1...@lacerta.tiscalinet.it...

Basta sostituire [TuoCampoData] con Date, senza le quadre e, se lo usi nel
codice senza le parentesi (). Se lo usi nella query devi aggiungere le
parentesi () dopo Date.
Sia nella query che nel valore preefinito di un controllo nel report:
TuoCampo = InputBox("Immetti la data.";"Data di lavoro";Format(Date() +
10;"gg/mm/aaaa"))
Nel codice del report: TuoCampo = InputBox("Immetti la data.","Data di
lavoro",Format(Date + 10;"dd/mm/yyyy"))
Ciao, Carlo


title: Somma di data now() +10

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:vc0wa.85801$3M4.2...@news1.tin.it...

Grazie mille Carlo!
Mi funziona a dovere la Tua dritta.


title: rilevazione suoni

author: laura

text:
Sapete se esiste qulche funzione per rilevare rumori ambientali
con il microfono del pc per utilizzare un rumore come segnale
d'inizio di una sequenza di operazioni invece che premere un
tasto?
Vorrei creare per un'amica con un bambino piccolo una routine
che "rilevi" il pianto del bambino e attivi di conseguenza il
play di una canzone, solo che con i suoni non ho mai lavorato...
grazie
ciao Laura
--
Postato da Virgilio Newsgroup: scopri i nuovi gruppi
Eros, foto e video a
http://newsgroup.eros.virgilio.it


title: rilevazione suoni

author: Sergio MAZZA

text:
"laura" <
gattoga...@virgilio.it
> ha scritto nel messaggio news:4032199.1151699270431.JavaMail.newsgroup@sc-ng-1...
> Sapete se esiste qulche funzione per rilevare rumori ambientali
> con il microfono del pc per utilizzare un rumore come segnale
> d'inizio di una sequenza di operazioni invece che premere un
> tasto?
> Vorrei creare per un'amica con un bambino piccolo una routine
> che "rilevi" il pianto del bambino e attivi di conseguenza il
> play di una canzone, solo che con i suoni non ho mai lavorato...
> grazie
> ciao Laura
> --
Su access non credo.
Dovresti cercare lo strumento che ti permette di acquisire il suono e vedere se chi lo produce mette a disposizione delle librerie
che permettono un controllo sul suono acquisito...
Ciao.
--
Sergio MAZZA


title: Dividere/duplicare record con criteri

text:
Ciao A tutti, data una tab origine:
id	Num	stringa
1	1247	AB/CC/DD/
2	1248	BB/ZZ/
Al cambio del campo Num, vorrei creare tanti record secondo quante
volte compare nel campo stringa il carattere / e creare una sequenza
numerica.
Per ottenere:
id	Num	stringa	SEQ
1	1247	AB	1
2	1247	CC	2
3	1247	DD	3
4	1248	BB	1
5	1248	ZZ	2
E' possibile? Sicuramente c'entrano recordset e cicli vero?
Grazie


title: Dividere/duplicare record con criteri

author: 'Roccia' Max

text:
On 27 Nov, 11:50,
dottcefal...@iol.it
 wrote:
> Al cambio del campo Num, vorrei creare tanti record secondo quante
> volte compare nel campo stringa il carattere / e creare una sequenza
> numerica.
>
> Per ottenere:
> id      Num     stringa SEQ
> 1       1247    AB      1
> 2       1247    CC      2
> 3       1247    DD      3
> 4       1248    BB      1
> 5       1248    ZZ      2
>
> E' possibile? Sicuramente c'entrano recordset e cicli vero?
Direi che non hai molta scelta...
due recordset, uno coi dati da leggere e uno coi dati da scrivere,
utilizzi un contatore per ricordarti a che punto della riga sei
arrivato e fai un utilizzo intensivo della funzione instr per trovare
i / nella stringa.
Quando hai finito una stringa passi al record successivo.
Questo potrebbe aiutarti... scritto di getto, ha sicuramente bisogno
di qualche aggiustatina qui e la'
cnt=1
strIn=RS_IN!Stringa
Do
   cnt=instr(cnt,strIn,"/") 'trova il primo / dopo il cnt-esimo
carattere
   if instr(cnt+1,strin,"/") then  'se ci sono altri /...
      strOut=mid(strIn,cnt+1,instr(cnt+1,strIn,"/"))   '... prendi il
testo in mezzo
     else
      strOut=mid(strIn,cnt+1)  ' altrimenti prendi fino in fondo
     endif
   RS_Out.addnew
   RS_Out!Stringa=strOut
   RS_Out.refresh
   loop while instr(cnt+1,strin,"/")>0
cia'
Max


title: Dividere/duplicare record con criteri

text:

Grazie Max per l'indicazione, posso provarlo soltanto ora.


title: Dividere/duplicare record con criteri

text:

> Grazie Max per l'indicazione, posso provarlo soltanto ora.- Nascondi testo citato
>
> - Mostra testo citato -
Non funziona! Per due righe nella tabella di origine, nella tabella di
destinazione mi ha creato milioni di record e non estra niente.
Posto il codice
Private Sub Comando0_Click()
Dim RS_IN As Recordset
Dim RS_Out As Recordset
Dim cnt As Integer
Set RS_IN = CurrentDb.OpenRecordset("TabIN", dbOpenDynaset)
Set RS_Out = CurrentDb.OpenRecordset("TabOUT", dbOpenDynaset)
cnt = 1
strin = RS_IN!Stringa
Do
   cnt = InStr(cnt, strin, "/") 'trova il primo / dopo il cnt-esimo
carattere
   If InStr(cnt + 1, strin, "/") Then 'se ci sono altri /...
      strOut = Mid(strin, cnt + 1, InStr(cnt + 1, strin, "/")) '...
prendi il testo in mezzo
     Else
      strOut = Mid(strin, cnt + 1) ' altrimenti prendi fino in fondo
     End If
   RS_Out.AddNew
   RS_Out!Stringa = strOut
   RS_Out.Update
   Loop While InStr(cnt + 1, strin, "/") > 0
    RS_IN.Close
    RS_Out.Close
    Set RS_IN = Nothing
    Set RS_Out = Nothing
End Sub


title: Dividere/duplicare record con criteri

text:
On 28 Nov, 14:23,
dottcefal...@iol.it
 wrote:
> Non funziona! Per due righe nella tabella di origine, nella tabella di
> destinazione mi ha creato milioni di record e non estra niente.
Bella forza, non gli hai detto di andare al primo record di RS_In
(RS_In.Movefirst), di passare al record successivo quando ha finito di
smandruppare la stringa (RS_In.movenext) ne' di finirla li' quando
finisce il recordset (loop until RS_In.EOF) ...
cia'
Max


title: Dividere/duplicare record con criteri

text:

dove dovrei inserirlo?


title: Dividere/duplicare record con criteri

text:
Set RS_IN = CurrentDb.OpenRecordset("TabIN", dbOpenDynaset)
Set RS_Out = CurrentDb.OpenRecordset("TabOUT", dbOpenDynaset)
cnt = 1
RS_In.movefirst
Do
  strin = RS_IN!Stringa
  Do
     cnt = InStr(cnt, strin, "/")
     If InStr(cnt + 1, strin, "/") Then
        strOut = Mid(strin, cnt + 1, InStr(cnt + 1, strin, "/"))
       Else
        strOut = Mid(strin, cnt + 1)
       End If
     RS_Out.AddNew
     RS_Out!Stringa = strOut
     RS_Out.Update
     Loop While InStr(cnt + 1, strin, "/") > 0
  RS_In.movenext
  Loop until RS_In.EOF
cia'
Max


title: Dividere/duplicare record con criteri

author: CIDI

text:
"'Roccia' Max" <
roccia...@email.it
> ha scritto nel messaggio
news:a209416f-764a-43cd...@g38g2000yqd.googlegroups.com...

Ciao Max
abbi pazienza, non volermene ...almeno una riga di quoting?
magari, potevi lasciare soltanto la domanda e si capiva
dove andava messo ....
:<))
buon WE
Daniele


title: Dividere/duplicare record con criteri

text:
On 29 Nov, 14:28, "CIDI" <
dadonz...@spamtin.it
> wrote:
> "'Roccia' Max" <
rocciamax...@email.it
> ha scritto nel messaggionews:a209416f-764a-43cd...@g38g2000yqd.googlegroups.com...

> Daniele- Nascondi testo citato
>
> - Mostra testo citato -
Grazie max! Ma per due record della TabIN ci mette dieci minuti e poi
s'inchioda tutto


title: Dividere/duplicare record con criteri

text:
On 1 Dic, 13:29,
dottcefal...@iol.it
 wrote:
> Grazie max! Ma per due record della TabIN ci mette dieci minuti e poi
> s'inchioda tutto- Nascondi testo citato
Non volermene, ma almeno un minimo di debug? Riguardando con
attenzione il codice, c'e' un errore grosso come una casa (anzi, due),
vale a dire il ciclo si ripete all'infinito perche' la scansione della
stringa non supera mai il primo /...
Prova cosi'
Set RS_IN = CurrentDb.OpenRecordset("TabIN", dbOpenDynaset)
Set RS_Out = CurrentDb.OpenRecordset("TabOUT", dbOpenDynaset)
cnt = 1
RS_In.movefirst
Do
  strin = RS_IN!Stringa
  Do
     cnt = InStr(cnt, strin, "/")
     If InStr(cnt + 1, strin, "/") Then
        strOut = Mid(strin, cnt + 1, InStr(cnt + 1, strin, "/")-cnt
+1)
       Else
        strOut = Mid(strin, cnt + 1)
       End If
     RS_Out.AddNew
     RS_Out!Stringa = strOut
     RS_Out.Update
     cnt=cnt+1
     Loop While InStr(cnt, strin, "/") > 0 and cnt<len(strin)
  RS_In.movenext
  Loop until RS_In.EOF
No, non l'ho provato....
cia'
Max


title: Dividere/duplicare record con criteri

text:

Questo è quello che ottengo:
ID	Num	stringa
1		CC/D
2		DD/
3
4		BB/Z
5		ZZ/
6
Partendo da:
ID	Num	stringa
1	1247	AB/CC/DD/
2	1248	BB/ZZ/
E' un passo avanti, ma...Grazie e scusami


title: Dividere/duplicare record con criteri

author: Alessandro Cara

text:
dottce...@iol.it
 ha scritto:

Dim aStr as variant, vItem as variant, i as long
aStr = split(stringa,"/")
for for i = 0 to ubound(aStr)
    ........qui scrivi il record come: id=id,Num=num, stringa=aStr(i),
seq=i+1
next


title: Dividere/duplicare record con criteri

text:
Alessandro Cara ha scritto:

ovviamente manca la do while sul Rs_in
do until rs_in!eof
   for i = 0 to ubound(aStr)
     .....qui scrivi il RS_out come:id=id,Num=num,stringa=aStr(i),seq=i+1
   next
   rs_in.movenext
loop
....e la specifica di scrittura su RS_out
--
ac


title: Dividere/duplicare record con criteri

text:
On 2 Dic, 13:43, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
> Alessandro Cara ha scritto:
>
>
>
> >
dottcefal...@iol.it
 ha scritto:

> ac- Nascondi testo citato
>
> - Mostra testo citato -
Grazie Alessandro, puoi gentilmente spiegarmi che significa:



title: Dividere/duplicare record con criteri

text:
On 2 Dic, 13:43, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
> Alessandro Cara ha scritto:
>
>
>
> >
dottcefal...@iol.it
 ha scritto:

> ac- Nascondi testo citato
>
> - Mostra testo citato -
Grazie Alessandro, ma che significa



title: Dividere/duplicare record con criteri

text:
On 2 Dic, 13:43, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
> Alessandro Cara ha scritto:
>
>
>
> >
dottcefal...@iol.it
 ha scritto:

> ac- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Alessandro, ma che significa:
qui scrivi il record come: id=id,Num=num, stringa=aStr(i),
Grazie ancora


title: Dividere/duplicare record con criteri

text:

> Grazie ancora- Nascondi testo citato
>
> - Mostra testo citato -
Perdonate la ripetizione, ma si era inchiodato il browser


title: Dividere/duplicare record con criteri

text:
dottce...@iol.it
 ha scritto:
[cut]
>>> next
>> ovviamente manca la do while sul Rs_in
>>
>> do until rs_in!eof
>>    for i = 0 to ubound(aStr)
>>      .....qui scrivi il RS_out come:id=id,Num=num,stringa=aStr(i),seq=i+1
>>    next
>>    rs_in.movenext
>> loop
>>
>> ....e la specifica di scrittura su RS_out
>> --
>> ac- Nascondi testo citato
>>
>> - Mostra testo citato -
>
> Grazie Alessandro, puoi gentilmente spiegarmi che significa:
> qui scrivi il record come: id=id,Num=num, stringa=aStr(i),
>
questa e' la routine completa:
Dim aStr as variant,i as long
Dim RS_IN as variant, RS_OUT as variant
Set RS_IN = CurrentDb.OpenRecordset("TabIN", dbOpenDynaset)
Set RS_Out = CurrentDb.OpenRecordset("TabOUT", dbOpenDynaset)
do until rs_in!eof
   aStr = split(rs_in!stringa,"/")
   for i = 0 to ubound(aStr)
	rs_out.addnew
	rs_out!str = aStr(i)
	rs_out!seq = i+1
	rs_out!doc = rs_in!documento
         rs_out.update
   next
   rs_in.movenext
loop
i nomi dei campi ed i nomi delle tabelle dovresti saperli tu. Certamente
io non li conosco.
E sono *stringa* *str* *seq* *doc* *documento*
--
ac


title: Dividere/duplicare record con criteri

text:
On 2 Dic, 16:35, Alessandro Cara <
a...@ay-1asistemi.it
> wrote:
>
dottcefal...@iol.it
 ha scritto:

Eccezionale! Bellissimo funziona, grazie di cuore


title: stampa report da record maschera

author: BB

text:
mi sono posto questa domanda:
Si puo' stampare un report con dati singoli di un record su maschera?
Mi spiego meglio: ho una maschera dove aggiungo dei record con dati vari
specifici,
da questa maschera, ho un pulsante per stampare un report contenente i dati
del record  immesso inteso per solo un record alla volta,
è possibile stampare questo report rifacendomi al record visualizzato al
momento sulla maschera e non creando una query ove chiede con una casella il
record da stampare?
Si?
come?
quale è la formula da inserire e dove?


title: stampa report da record maschera

text:
"BB" <
onofrio...@tin.it
> ha scritto nel messaggio
news:b3ke95$p99$1...@fata.cs.interbusiness.it...

Controlla nell'help il metodo OpenReport...
Ciao.
--
Sergio MAZZA


title: Filtro su campo con val(nz([campo]))

author: Panathos

text:
Buongiorno a tutti/e,
La situazione è questa: campo [simplo] che contiene null oppure -1.
Tramite nz([simplo];0) ottengo quindi i soli valori 0 e 1. Fin qui
tutto bene; infatti se metto 0 oppure 1 come filtro è tutto OK; se
metto <=0 vedo tutte le righe.
Il problema nasce quando voglio fare un iif come questo:
iif([forms]![maschera]![scelta]="tutto";<=0)
La condizione dovrebbe mostrarmi sia 0 che -1; invece Access si ostina
a mostrarmi soltanto i valori -1. (ovviamente il campo nella maschera
è impostato con stringa "tutto").
Ho provato stupidamente a mettere <1 come condizione, ma con lo stesso
risultato. Ho anche provato a fare simpli: val(nz([simplo];0)), per
forzare la lettura a valore numerico ma niente da fare.
Dov'è l'inghippo stavolta?
Grazie,
Panathos


title: Filtro su campo con val(nz([campo]))

author: MA

text:

or is null
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Filtro su campo con val(nz([campo]))

text:
Panathos wrote:
> La situazione è questa: campo [simplo] che contiene null oppure -1.
> Tramite nz([simplo];0) ottengo quindi i soli valori 0 e 1. Fin qui
> tutto bene; infatti se metto 0 oppure 1 come filtro è tutto OK; se
> metto <=0 vedo tutte le righe.
>
> Il problema nasce quando voglio fare un iif come questo:
>
> iif([forms]![maschera]![scelta]="tutto";<=0)
>
> La condizione dovrebbe mostrarmi sia 0 che -1; invece Access si ostina
> a mostrarmi soltanto i valori -1. (ovviamente il campo nella maschera
> è impostato con stringa "tutto").
> ...
www.donkarl.com/it
 FAQ 3.14 Criterio che restituirà tutti i record
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla CISA2, la seconda
Conferenza Italiana per Sviluppatori di Access, Paola, 17+18/6/2006


title: Filtro su campo con val(nz([campo]))

text:
MA ha scritto:
> > iif([forms]![maschera]![scelta]="tutto";<=0)
> > Dov'è l'inghippo stavolta?
> or is null
Grazie, ma se intendevi
iif([campo]="tutto";<=0 or is null)
non funziona, lo 0 continua a non uscire.
ciao,
Panathos


title: Filtro su campo con val(nz([campo]))

text:
Panathos wrote:
> MA ha scritto:
>
>>> iif([forms]![maschera]![scelta]="tutto";<=0)
>
>>> Dov'è l'inghippo stavolta?
>
>> or is null
>
> Grazie, ma se intendevi
>
 iif(nz([campo],0)="tutto";<=0 or is null)
>
> non funziona, lo 0 continua a non uscire.
>
> ciao,
> Panathos
--



title: Filtro su campo con val(nz([campo]))

text:
Karl Donaubauer ha scritto:
> > iif([forms]![maschera]![scelta]="tutto";<=0)
>
www.donkarl.com/it
 FAQ 3.14 Criterio che restituirà tutti i record
Ho letto ma non è il mio caso: non ho il problema di matchare il campo
di una maschera; piuttosto quello di far funzionare l'iif tra valori
che SONO -1 e 0. Ispirato dal tuo sito ho provato anche questo:
iif([forms]![maschera]![scelta]="tutto";like "*")
e anche così continuo a vedere nella colonna soltanto i -1; gli 0 non
ci sono. E non capisco perché, val(nz([campo];0)) toglie null ed
imposta valori numerici... perché se inserisco <0 nel filtro della
query vedo sia -1 che 0, mentre se faccio lo stesso filtro tramite
iif([condizione]="vero";<0) Access non matcha gli 0?
Non riesco ad arrivarci. Ora proverò ad usare delle stringhe, in un
nuovo campo, per vedere se almeno il like "*" potrà funzionare, ma è
un maledetto accrocchione. Comunque grazie lo stesso.
ciao,
Panathos


title: Filtro su campo con val(nz([campo]))

text:
Panathos wrote:
> Buongiorno a tutti/e,
Buongiorno a te. Sono curioso
>
> La situazione è questa: campo [simplo] che contiene null oppure -1.
> Tramite nz([simplo];0) ottengo quindi i soli valori 0 e 1. Fin qui
> tutto bene; infatti se metto 0 oppure 1 come filtro è tutto OK; se
> metto <=0 vedo tutte le righe.
>
> Il problema nasce quando voglio fare un iif come questo:
>
> iif([forms]![maschera]![scelta]="tutto";<=0)
questa iif che significato vuole avere? Oltretutto dovrebbe andare in
errore  <=0 e' il valore restituito per vero. Messo cosi' sembrerebbe
una stringa ma non e' delimitata.Manca il terzo operando (non mi sembra
che sia opzionale)
>
> La condizione dovrebbe mostrarmi sia 0 che -1; invece Access si ostina
> a mostrarmi soltanto i valori -1. (ovviamente il campo nella maschera
> è impostato con stringa "tutto").
perche' dovrebbe mostrarti sia 0 che -1
Personalmente l'avrei scritta cosi'
me.filter = iif([forms]![maschera]![scelta]="tutto",""," simplo = " &
[forms]![maschera]![scelta])



title: Filtro su campo con val(nz([campo]))

text:
Alessandro Cara ha scritto:
> Buongiorno a te. Sono curioso
Ben venga la curiosità, io sto cercando di imparare.
> > Il problema nasce quando voglio fare un iif come questo:
> >
> > iif([forms]![maschera]![scelta]="tutto";<=0)
> questa iif che significato vuole avere?
Dovrebbe dire: "se il valore nella maschera è "tutto", mostrami tutti
i numeri minori o uguali a 0. Quindi siccome nel campo (tramite
val(nz())) ho solo 0 oppure -1, dovrei vedere tutti i valori presenti.
> Oltretutto dovrebbe andare in errore  <=0 e' il valore restituito per vero.
No no, invece siccome il valore nella maschera è matchato
correttamente, l'iif restituisce la parte vera.
> Messo cosi' sembrerebbe una stringa ma non e' delimitata.
Ma scusa, io non voglio fare un match letterale; ma solo un confronto
numerico... quindi non ho messo le virgolette.
> Manca il terzo operando (non mi sembra che sia opzionale)
Lo è, o quantomeno Access non dice niente se manca. Se viene matchata
la condizione false non fa nulla.
> Personalmente l'avrei scritta cosi'
>
> me.filter = iif([forms]![maschera]![scelta]="tutto",""," simplo = " &
> [forms]![maschera]![scelta])
me.filter presuppone che sia scritta via codice... io volevo metterla
nella query, via QBF (o QBE, come si chiama il costruttore di query).
Inoltre così facendo hai "demandato" a due campi su una maschera il
match... che ci scriveresti in quei campi? Perché il mio problema non
sta nel match del campo sulla maschera, ma nel fatto che non riesco ad
estrarre sia -1 che 0.
(poi ho risolto con l'accroccone: un altro campo con scritte due
stringhe differenti a seconda se quel campo è 0 oppure -1; e su questo
campo faccio un like "*")
ciao,
Panathos


title: Filtro su campo con val(nz([campo]))

text:
Panathos wrote:
[cut]
>
> me.filter presuppone che sia scritta via codice... io volevo metterla
> nella query, via QBF (o QBE, come si chiama il costruttore di query).
Piu' o meno la cosa la avevo capita (c'e' il ";" come separatore)
> Inoltre così facendo hai "demandato" a due campi su una maschera il
> match... che ci scriveresti in quei campi? Perché il mio problema non
> sta nel match del campo sulla maschera, ma nel fatto che non riesco ad
> estrarre sia -1 che 0.
Non ho demandato a 2 campi (sarebbe meglio dire controlli) ma a uno
solo. Ed e' il controllo che "evidentemente" hai sul tuo form, controllo
che si chiama "scelta" in un form aperto che si chiama "maschera" o che
ti verrebbe richiesto come parametro da fornire se la form non e' aperta.
Per scrupolo ho utilizzato la tua iif in una query e "regolarmente" mi
da errore di sintassi. Puoi, per favore, riportare l'intera query?
(menu Visualizza-->SQL a partire dal QBE) copi e incolli la stringa sql.
Poiche' anch'io sono qui per imparare e poiche' non mi torna la sintassi
di quella iif, che dici funzionante, vorrei capire un po' meglio.
Nel frattempo ho verificato che effettivamente, se non metti il terzo
parametro, la query viene eseguita (con il secondo parametro
virgolettato altrimenti c'e' errore di sintassi). Per false la iif
ritorna pero' "null"
questa e' un query che "funziona"  (l'ho fatta su una  tabella di test)
SELECT Questionario.Nome, Questionario.Idprod,testsino
FROM Questionario
WHERE
IIf([forms]![maschera]![scelta]="tutto",-1,nz(testsino,0)=[forms]![maschera]![scelta])
in cui se fornisci "tutto" restituisce tutti i records
se scrivi 0  restituisce quelli a 0 o a "null"
se scrivi -1 restituisce i -1
il mio testsisno sostituisce il tuo simplo
--
ac


title: Filtro su campo con val(nz([campo]))

text:
Alessandro Cara ha scritto:
> da errore di sintassi. Puoi, per favore, riportare l'intera query?
Certo che sì, ci mancherebbe... però ne riparliamo lunedì. Qui c'è
qualcosa che continua a non tornarmi e voglio sviscerare bene
l'argomento. Intanto grazie.
ciao,
Panathos


title: Aiuto

author: Glauco

text:
Questo è il codice per il pulsante che come vedete apre l'esplora risorse di
windows.
Questo è stato scritto dalla creazione guidata pulsante tranne la stringa
"stAddress" che la ho aggiunta io, come posso fare ad accedere alla cartella
specificata dalla mia variabile?
Private Sub explorer_Click()
On Error GoTo Err_explorer_Click
    Dim stAppName As String
    Dim stAddress As String                <--   si riferisce a un campo
definito nella mia maschera che contiene tipo "c:\windows\...."
    stAppName = "C:\WINDOWS\explorer.exe"
    stAddress = Me.Cartella_server.Value
    Call Shell(stAppName, 1)
Exit_explorer_Click:
    Exit Sub
Err_explorer_Click:
    MsgBox Err.Description
    Resume Exit_explorer_Click
End Sub


title: Aiuto

author: Esteban

text:
"Glauco" <
sur...@inwind.it
> wrote in message
news:9egbhi$ovv$1...@serv1.albacom.net...
> Questo è il codice per il pulsante che come vedete apre l'esplora risorse di
> windows.
> Questo è stato scritto dalla creazione guidata pulsante tranne la stringa
> "stAddress" che la ho aggiunta io, come posso fare ad accedere alla cartella
> specificata dalla mia variabile?
stAppName = "C:\WINDOWS\explorer.exe /e, "
stAddress = Me.Cartella_server.Value
Call Shell(stAppName & stAddress, 1)
Ciao!
Esteban
Hosted by
www.seber.it


title: Aiuto

text: Grazie tante


title: Aiuto

author: De Nes Michele

text:
ho un problema: ho creato un gruppo di opzioni, con 2 opzioni, SI e NO. Le
opzioni sono due interruttori. All'interrutore SI è associata una macro che
apre una nuova maschera, mentre all'interruttore NO non è associato nella
proprietà  'SuAttivato' nessuna macro, evento, ecc.
Il problema è questo: ogni qualvolta che clicco sulla cornice del gruppo la
macro associata all'interruttore SI si attiva, e questo non va bene, poichè
la macro si deve attivare soltanto quando clicco sull'interruttore SI. Come
posso risolvere questo mio dilemma??? grazie sin da ora!! ciao
--
Posted from
IDENT:ro...@nameserver.ifc.cnr.it
 [131.114.209.127]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: DLookup

author: montanaro

text:
Buongiorno, io ho cercato nei vecchi post sull'argomento e nel sito della
microsoft, ma nn ho trovato quello che cerco. Vorrei imparare ad usare
DLookup, con all'interno una espressione, ieri ci ho provato senza
riuscirci, e con l'aiuto di Mazza ho risolto in altro modo.
Dove altro posso cercare? (ho access 2002)
Grazie
montanaro
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: DLookup

author: Pablitomf (Maurizio Facciuti)

text:
"montanaro" <
mo...@naro.it
> ha scritto nel messaggio
news:82Z88Z48Z250Y1...@usenet.libero.it...

Poni il problema concreto e vediamo cos'è che non va.


title: DLookup

text:
                    Il 22 Set 2005, 10:56, "Pablitomf \(Maurizio Facciuti\)"
<
maurizio...@accessgroup.it
> ha scritto:
>
> "montanaro" <
mo...@naro.it
> ha scritto nel messaggio
 >
> > Buongiorno, io ho cercato nei vecchi post sull'argomento e nel sito
della
> > microsoft, ma nn ho trovato quello che cerco. Vorrei imparare ad usare
> > DLookup, con all'interno una espressione, ieri ci ho provato senza
> > riuscirci, e con l'aiuto di Mazza ho risolto in altro modo.
> > Dove altro posso cercare? (ho access 2002)
> > Grazie
> > montanaro
> >
> Poni il problema concreto e vediamo cos'è che non va.
>
Ok, hai ragione.
DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
f_docrig è una tabella,
datadoc è una colonna della tabella che nn ho in nessuna colonna della query
(contiene date dal 2002 fino ad oggi, 4 o 5 date diverse per ogni mese).
Devo raggruppare le date per mese, ad esempio: 31/08/2005 , 30/09/2005 ecc.
Volevo usare DLookup, soprattutto per imparare il suo funzionamento, non
sono riuscito ad inserirlo nella formula.
Montanaro



title: DLookup

text:
"montanaro" <
mo...@naro.it
> ha scritto nel messaggio news:82Z88Z48Z250Y1...@usenet.libero.it...
>
> Buongiorno, io ho cercato nei vecchi post sull'argomento e nel sito della
> microsoft, ma nn ho trovato quello che cerco. Vorrei imparare ad usare
> DLookup, con all'interno una espressione, ieri ci ho provato senza
> riuscirci, e con l'aiuto di Mazza ho risolto in altro modo.
> Dove altro posso cercare? (ho access 2002)
> Grazie
> montanaro
Aridaje co' sto' Mazza!
NONEEEE; MA = MAssimiliano (la sua firma è MA) la mia è quella in fondo al messaggio!
Di' la verità, sei in combutta con Gaspare eh?
Ciao.
--
Sergio MAZZA


title: DLookup

text:
"montanaro" <
mo...@naro.it
> ha scritto nel messaggio news:82Z88Z48Z250Y1...@usenet.libero.it...
> Ok, hai ragione.
> DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
> f_docrig è una tabella,
> datadoc è una colonna della tabella che nn ho in nessuna colonna della query
> (contiene date dal 2002 fino ad oggi, 4 o 5 date diverse per ogni mese).
> Devo raggruppare le date per mese, ad esempio: 31/08/2005 , 30/09/2005 ecc.
> Volevo usare DLookup, soprattutto per imparare il suo funzionamento, non
> sono riuscito ad inserirlo nella formula.
> Montanaro
Rispondi io così voglio vedere se dici che ti ha risposto MA.
Traduci "...datadoc è una colonna della tabella che nn ho in nessuna colonna della query..."
Cchevvordì?
Abbiamo capito che hai una tabella "f_docrig" ma il campo che contiene la data dalla quale estrarre il mese (e anno) come caspita si
chiama?
Ciao.
--
Sergio MAZZA


title: DLookup

text:

          AZZ!!!!!!!!!! dopo sta figura devo cambiare nick!
Ma come faccio con 'sto DLookup????????????????????????????????????
voglio saperloooooooooooooo



title: DLookup

text:
"montanaro" <
trading...@yahoo.it
> ha scritto nel messaggio news:82Z88Z48Z250Y1...@usenet.libero.it...
>          AZZ!!!!!!!!!! dopo sta figura devo cambiare nick!
> Ma come faccio con 'sto DLookup????????????????????????????????????
> voglio saperloooooooooooooo
Ma forse nun centra na' ceppa il dlookup!!!
Il DLookup serve per cercare dati all'interno di una tabella/query in base a dei criteri; quello che dici di voler fare tu:
raggruppare in base al mese di una fantomatica data non serveeeeeee...
Ciao.
--
Sergio MAZZA


title: DLookup

text:
PARAMETERS [data_inizio_gg/mm/aaaa] Text ( 255 ), [data_fine_gg/mm/aaaa]
Text ( 255 );
SELECT f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion,
f_magart.unmisura, Sum(f_docrig.quantita) AS SommaDiquantita,
Sum(f_docrig.prezzotot) AS SommaDiprezzotot, f_magart.cpvend,
f_magart.gruppo
FROM f_docrig INNER JOIN f_magart ON f_docrig.codicearti = f_magart.codice
WHERE (((f_docrig.tipodoc) Like "FT" Or (f_docrig.tipodoc) Like "NV"))
GROUP BY f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion,
f_magart.unmisura, f_magart.cpvend, f_magart.gruppo
ORDER BY f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion DESC;
Ricomincio da capo: premetto che la query è costruita usando visual.
struttura e non sql, nn ne sono capace.
Subito dopo Select c'è f_docrig.datadoc. Per raggruppare le righe e ottenere
1 riga x ogni mese coincidente con l'ultimo giorno del mese stesso, faccio:
DateSerial(Year([f_docrig]![datadoc]);Month([f_docrig]![datadoc])+1;1)-1
ma a questo punto mi da "errore di compilazione".
Quindi secondo me devo inserire DLookup nella formula, ma nn so come si usa.
Ne sto dicendo tante di stupidate? Di pastasciutta ne devo mangiare ancora
tanta (azz! son pieno!)?
Grazie
montanaro



title: DLookup

text:
>e con l'aiuto di Mazza ho risolto in altro modo.
Di Mazza? Ma non ti aveva aiutato MA?
> Ok, hai ragione.
;-)
> DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
> f_docrig è una tabella,
> datadoc è una colonna della tabella che nn ho in nessuna colonna della
> query
> (contiene date dal 2002 fino ad oggi, 4 o 5 date diverse per ogni mese).
e allora?
> Devo raggruppare le date per mese, ad esempio: 31/08/2005 , 30/09/2005
> ecc.
> Volevo usare DLookup, soprattutto per imparare il suo funzionamento, non
> sono riuscito ad inserirlo nella formula.
ma a che ti serve scusa il Dlookup in questa questione? Praticamente
nulla...



title: DLookup

text:
cut
>
> > DateSerial(Year(f_docrig!datadoc);Month(f_docrig!datadoc)+1;1)-1
> > f_docrig è una tabella,
> > datadoc è una colonna della tabella che nn ho in nessuna colonna della
> > query
> > (contiene date dal 2002 fino ad oggi, 4 o 5 date diverse per ogni mese).
>
> > Devo raggruppare le date per mese, ad esempio: 31/08/2005 , 30/09/2005
> > ecc.
> > Volevo usare DLookup, soprattutto per imparare il suo funzionamento, non
> > sono riuscito ad inserirlo nella formula.
>
> ma a che ti serve scusa il Dlookup in questa questione? Praticamente
> nulla...
>
Ok, va bene. Ma xkè da errore di compilazione?
montanaro



title: DLookup

text:
"montanaro" <
trading...@yahoo.it
> ha scritto nel messaggio news:82Z88Z48Z250Y1...@usenet.libero.it...
> PARAMETERS [data_inizio_gg/mm/aaaa] Text ( 255 ), [data_fine_gg/mm/aaaa]
> Text ( 255 );
Perché in formato testo? Non sono date?
> SELECT f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion,
> f_magart.unmisura, Sum(f_docrig.quantita) AS SommaDiquantita,
> Sum(f_docrig.prezzotot) AS SommaDiprezzotot, f_magart.cpvend,
> f_magart.gruppo
>
> FROM f_docrig INNER JOIN f_magart ON f_docrig.codicearti = f_magart.codice
> WHERE (((f_docrig.tipodoc) Like "FT" Or (f_docrig.tipodoc) Like "NV"))
> GROUP BY f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion,
> f_magart.unmisura, f_magart.cpvend, f_magart.gruppo
> ORDER BY f_docrig.datadoc, f_docrig.codicearti, f_magart.descrizion DESC;
>
> Ricomincio da capo: premetto che la query è costruita usando visual.
> struttura e non sql, nn ne sono capace.
Questo non significa nulla; approfondisci il tema e inizia a leggere SQL.
> Subito dopo Select c'è f_docrig.datadoc. Per raggruppare le righe e ottenere
Subito dopo che? Il primo tempo?
> 1 riga x ogni mese coincidente con l'ultimo giorno del mese stesso, faccio:
> DateSerial(Year([f_docrig]![datadoc]);Month([f_docrig]![datadoc])+1;1)-1
> ma a questo punto mi da "errore di compilazione".
Magari sarà perché utilizzi il punto esclamativo invece del punto;
DateSerial(Year([f_docrig].[datadoc]);Month([f_docrig].[datadoc])+1;1)-1
> Quindi secondo me devo inserire DLookup nella formula, ma nn so come si usa.
E probabilmente non sai a cosa serve.
Secondo me invece dovresti leggerti l'help in linea sulla funzione DLookup prima di decidere se ti serve o no.
> Ne sto dicendo tante di stupidate? Di pastasciutta ne devo mangiare ancora
> tanta (azz! son pieno!)?
Facciamo che, lasci perdere la pastasciutta e ti butti un po' acqua fresca in viso, tiri il freno a mano e tirando il fiato fai un
po' di chiarezza su quello che vuoi ottenere descrivendo bene (senza tralasciare nulla) quello che hai.
> Grazie
> montanaro
Ah! Mi raccomando non sono MAssimiliano!
Ciao.
--
Sergio MAZZA


title: DLookup

text:

Grazie Mario...
Lui ha sempre voluto più bene a m... uguale
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: DLookup

text:
>> Aridaje co' sto' Mazza!
>>
>> NONEEEE; MA = MAssimiliano (la sua firma è MA) la mia è quella in
>> fondo al messaggio!
>>
>> Di' la verità, sei in combutta con Gaspare eh?
>>
>> Ciao.
>
> Grazie Mario...
> Lui ha sempre voluto più bene a m... uguale
>
Azz... è chi si' il Signore di Frittole? :-D


title: DLookup

text:
> > PARAMETERS [data_inizio_gg/mm/aaaa] Text ( 255 ), [data_fine_gg/mm/aaaa]
> > Text ( 255 );
> > Perché in formato testo? Non sono date?
                                   ok, corretto.
(cut)
> > Ricomincio da capo: premetto che la query è costruita usando
visualizzazione
> > struttura e non sql, nn ne sono capace.
>
> Questo non significa nulla; approfondisci il tema e inizia a leggere SQL.
                              Suggerimenti? Comprare un libro o provare "pasticciando" come ho fatto fino
ad ora?
(cut)
> Magari sarà perché utilizzi il punto esclamativo invece del punto;
> DateSerial(Year([f_docrig].[datadoc]);Month([f_docrig].[datadoc])+1;1)-1
                                   come dicevo l'ho fatta in visualizzazione struttura, ed il "!" l'ha messo il
programma quando ho visualizzato l'sql.
>
> > Grazie
> > montanaro
>
> Ah! Mi raccomando non sono MAssimiliano!
                    (questo non lo taglio, nn si sa mai..la memoria.....)
>
> Sergio MAZZA
>
          Per il momento ho risolto in altro modo, ma accetto volentieri suggerimenti
su come studiare meglio l'sql. Ringrazio in anticipo.
Ciao



title: DLookup

text:
"montanaro" <
trading...@yahoo.it
> ha scritto nel messaggio news:82Z88Z48Z250Y1...@usenet.libero.it...
> Suggerimenti? Comprare un libro o provare "pasticciando" come ho fatto fino
> ad ora?
Un libro su SQL sicuramente aiuta a capire a cosa serve;
> come dicevo l'ho fatta in visualizzazione struttura, ed il "!" l'ha messo il
> programma quando ho visualizzato l'sql.
Lui (access) cerca di interpretare quello che vorresti fare, ma non è detto che ci riesca; quindi sta a te magari modificare
l'istruzione o scriverla direttamente tu.
> (questo non lo taglio, nn si sa mai..la memoria.....)
Un tatuaggio nooo?
> Per il momento ho risolto in altro modo, ma accetto volentieri suggerimenti
> su come studiare meglio l'sql. Ringrazio in anticipo.
(Io cerco di interpretare) Mi sembra che hai delle lacune non solo in SQL ma anche nell'utilizzo di Access o sbaglio?
In entrambi i casi un manuale (sul sito comune trovi delle recensioni) può funzionare come riferimento base per capire come e quando
utilizzare certe funzionalità.
Poi qui nell'NG otterrai suggerimenti per migliorare o approfondire parecchi temi; un  suggerimento, prima di scrivere codice o
disegnare tabelle/form, scrivi qui descrivendo quello che hai e che vorresti ottenere. Ma questo prima di farlo non dopo perché
potrebbe essere molto impegnativo per te disfare il lavoro già fatto.
> Ciao
> montanaro
Ciao e buon lavoro.
--
Sergio MAZZA


title: DLookup

text:
cut
> (Io cerco di interpretare) Mi sembra che hai delle lacune non solo in SQL
ma anche nell'utilizzo di Access o sbaglio?
>
    Sbagli! io SONO una lacuna!
eheh
grazie x le indicazioni..........tornerò + agguerrito di prima



title: Generazione password in query

author: gege

text:
Risolto il problema della conversione in MD5 delle password, bastava
utilizzare come funzione md5(stringa), dopo aver importato il modulo
opportuno.
Mi rimane il problema della generazione random delle password.
Ho trovato diversi codici, ad esempio il codice che contiene la funzione
passw():
Ma inserita in una query  come espressione  password: passw(), mi genera per
tutti i record la stessa stringa.
Qualcuno mi sa dire come fare in modo per avere una stringa diversa per ogni
record?
Siete a conoscenza di qualche codice con generazione delle strighe più
complesse?
Grazie
codice generazione password
Public Function passw()
Dim ChooseType As Integer
Dim UpperLower As Integer
Dim pwStore As String
Dim pwLength As Integer
Dim pw As String
passw = " "
'Length of password'
pwLength = 8
For I = 1 To pwLength
ChooseType = Round(Rnd)
If ChooseType = 1 Then
'Number'
pwStore = Chr(Int((57 - 48 + 1) * Rnd + 48))
Else
'Alphabet'
UpperLower = Round(Rnd)
If UpperLower = 1 Then
'Upper Case'
pwStore = UCase$(Chr(Int((90 - 65 + 1) * Rnd + 65)))
Else
'Lower Case'
pwStore = LCase$(Chr(Int((90 - 65 + 1) * Rnd + 65)))
End If
End If
pw = pw & pwStore
passw = pw
Next I
End Function


title: Generazione password in query

text:
"gege" <
gian...@libero.it
> ha scritto nel messaggio news:cepa96$b7b$1...@lacerta.tiscalinet.it...
> Risolto il problema della conversione in MD5 delle password, bastava
> utilizzare come funzione md5(stringa), dopo aver importato il modulo
> opportuno.
> Mi rimane il problema della generazione random delle password.
> Ho trovato diversi codici, ad esempio il codice che contiene la funzione
> passw():
> Ma inserita in una query  come espressione  password: passw(), mi genera per
> tutti i record la stessa stringa.
> Qualcuno mi sa dire come fare in modo per avere una stringa diversa per ogni
> record?
> Siete a conoscenza di qualche codice con generazione delle strighe piů

Mhmm.... (la butto lě) Se gli passi l'id del record?
Ciao.
--
Sergio MAZZA


title: Generazione password in query

author: neofita

text:
Prova inserendo l'istruzione "Randomize" nel punto che ti indico.
Ciao.
>
> codice generazione password
>
> Public Function passw()
> Dim ChooseType As Integer
> Dim UpperLower As Integer
> Dim pwStore As String
> Dim pwLength As Integer
> Dim pw As String
> passw = " "
> 'Length of password'
> pwLength = 8
>
> For I = 1 To pwLength
<--------------------------- Randomize



title: Generazione password in query

text:
Non funziona, continua a restituire la stessa stringa su tutti i record.
"neofita" <
pao...@lycos.it
> ha scritto nel messaggio
news:ceq46j$mla$1...@lacerta.tiscalinet.it...



title: Generazione password in query

text:
> Mhmm.... (la butto lě) Se gli passi l'id del record?
> Ciao.
> Sergio MAZZA
A dire il vero non saprei come fare, la funzione non prevede il passaggio di
parametri, come mi consigli di procedere?
Grazie


title: Generazione password in query

text:
Ok funziona.
Sono riuscito a far passare ID del record, facendo alcune modifiche al
codice, le password generate adesso sono diverse, ma in alcuni casi mancano
di alcuni elementi (numeri, Caratteri minuscoli o maiuscoli) che invece
devono esserci, perché le password generate mi servono per creare degli
account x windows 2003 server con complessità password attiva.
Ho sbagliato ad aggiungere qualcosa o dovevo modificarlo in altro modo il
codice.
Il nuovo codice é:
Public Function passw(c)
Dim ChooseType As Integer
Dim UpperLower As Integer
Dim pwStore As String
Dim pwLength As Integer
Dim pw As String
passw = " "
'Length of password'
pwLength = 8
For I = 1 To pwLength
ChooseType = Round(Rnd)
If ChooseType = 1 Then
'Number'
pwStore = Chr(Int((57 - 48 + 1) * Rnd + 48))
Else
'Alphabet'
UpperLower = Round(Rnd)
If UpperLower = 1 Then
'Upper Case'
pwStore = UCase$(Chr(Int((90 - 65 + 1 + s) * Rnd + 65)))
Else
'Lower Case'
pwStore = LCase$(Chr(Int((90 - 65 + 1 + s) * Rnd + 65)))



title: Generazione password in query

text:
Non ero andato a fondo nella tua Function...
a) metti Randomize prima dell'istruzione For
b) passa come parametro alla Function un campo qualsiasi della qwery anche
se non ci fai nessun calcolo
e vedrai che stavolta funziona.
Randomize va messo se non vuoi avere sempre la stessa serie di psw.
Ciao.


title: Generazione password in query

text:
"gege" <
gian...@libero.it
> ha scritto nel messaggio
news:ceqspq$eaq$1...@lacerta.tiscalinet.it...
> Ok funziona.
> Sono riuscito a far passare ID del record, facendo alcune modifiche al
> codice, le password generate adesso sono diverse, ma in alcuni casi
mancano
> di alcuni elementi (numeri, Caratteri minuscoli o maiuscoli) che invece
> devono esserci
vuoi dire che le psw devono contenere almeno un numero, almeno un carattere
minuscolo e almeno un carattere maiuscolo?


title: Re: UPDATE tabella esistente comandi DAO

text:
Salve,

emib...@gmail.com
:
> devo aggiungere una nuova riga su una tabella da vba, lo faccio in questo modo e funziona.
>
> Dim db As DAO.Database
> Dim rst As DAO.Recordset
> Set db = CurrentDb
> Set rst = DBEngine(0)(0).OpenRecordset("Select * FROM [TABELLA MACCHINARI]")
>
> rst.AddNew
> rst![ID MATRICE] = Forms![MATRICE x costruzione Query NEW]![id ordine]
> rst!DESCRIZIONE = Forms![MATRICE x costruzione Query NEW]![DESCRIZIONE]
> rst!MACCHINARIO = 21
> rst!OPERATORE = 8
> srt!OrderNum = [TABELLA MACCHINARI]![id tabella] '>>>>non funziona!
> rst.Update
> rst.Close
>
> devo però fare in modo che il campo "OrderNUM" abbia lo stesso ID progressivo univoco della riga appena creata sulla tabella.
> ...

Se capisco bene, si tratta di un tentativo di attacco alla
normalizzazione della tabella. Non dovresti farlo. Se la tabella ha già
il valore una volta in un campo, questo è sufficiente e non deve essere
duplicato in un altro campo.

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


title: collegamento tabelle in access 97

author: arturo

text:
salve
utilizzo due data base access 97 : in uno tengo le tabelle con i dati,
nell'altro la strutturadel database e vi collego le tabelle dei dati.
mi capita poi spesso di cambiare computer per vari motivi ed ogni
volta mi tocca ricreare il collegamento.
Esiste un sistema per dare un collegamento  relativo del tipo che se
metto i due file sempre nella stessa cartella (ma con configurazioni
diverse, per esempio C:\documenti una volta e d:\database\arturo
l'altra) il collegamento rimanga funzionante?
grazie
ciao arturo


title: collegamento tabelle in access 97

text:
On Fri, 1 Oct 2004 00:10:16 +0200, "ALESSANDRO Baraldi"
<
ik2...@libero.it
> wrote:
>"arturo" <
chis...@libero.it
> ha scritto nel messaggio
>news:qunnl0d1pph2qrha4...@4ax.com...

>Sul SitoComune ci sono almeno 4 sistemi di RELINK
>il più pratico è quello di Antonio Biso.
>
>Ciao
Grazie


title: collegamento tabelle in access 97

author: Sergio

text:
"arturo" <
chis...@libero.it
> ha scritto nel messaggio
news:qunnl0d1pph2qrha4...@4ax.com...

io ti consiglio questo metodo (consigliatomi a suo tempo da un amico di
questo ng)
fai puntare le tabelle collegate ad un percorso fittizio del tipo o:
(senz'altro non avrai un disco di nome o)
prima di aprire access lancia un breve programma batch con l'istruzione
subst o: c:\documenti
nell'altro computer l'istruzione sarà
subst o: d:\database\arturo
vedrai che il sistema funziona ed è facilmente trasportabile
ciao sergio


title: Qry con criterio da combo + itemdata(0)

author: Nao

text:
Ciao ng, prima di tutto, auguri e grazie per l'auito che date a noi
inesperti programmatori.
Sto diventando matto con questa cosa.
Ho una query che pesca dalla tabella "T_anagrafica", dovrei applicare un
criterio = all'unico valore che ho nella mia combobox nella mia form, la
combo č un controllo nascosto .
Il mio problema č che non riesco a dire alla mia query di usare il 1° dato
che c'č nella lista della combo, in parole povere l' itemdata(0).
come devo fare?
grazie ed ancora auguroni a tutti
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Qry con criterio da combo + itemdata(0)

author: Karl Donaubauer

text:
Nao wrote:
> ...
> Ho una query che pesca dalla tabella "T_anagrafica", dovrei applicare
> un criterio = all'unico valore che ho nella mia combobox nella mia
> form, la combo è un controllo nascosto .
> Il mio problema è che non riesco a dire alla mia query di usare il 1°
> dato che c'è nella lista della combo, in parole povere l' itemdata(0).
> come devo fare?
Nella query come criterio usa:
Eval("[Forms]![NomeMaschera]![NomeCombo].Itemdata(0)")
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Interfaccia per importare un file

author: effesse

text:
Dunque il problema che mi tormenta è il seguente:
devo importare una tabella in access da un'altro mdb o da un file xls.
Come faccio ad aprire l'importa file da una form magari aprendo anche
uno pseudogestione risorse per selezionare il file?
p.s. Ho provato a scrivere una macro con l'invia testo ma non funziona
(il db va in loop) e oltretutto confido nel fatto che mi suggerirete una
sol molto piu' elegante.
Grazie a tutti,
effesse
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Interfaccia per importare un file

author: Paolo opg

text:
"effesse" <
frequ...@email.it
> wrote in message
news:8c79642065c4683148b...@mygate.mailgate.org...
> Dunque il problema che mi tormenta è il seguente:
> devo importare una tabella in access da un'altro mdb o da un file xls.
> Come faccio ad aprire l'importa file da una form magari aprendo anche
> uno pseudogestione risorse per selezionare il file?
>
> p.s. Ho provato a scrivere una macro con l'invia testo ma non funziona
> (il db va in loop) e oltretutto confido nel fatto che mi suggerirete una
> sol molto piu' elegante.
>
sul sitocomune c'è scritto come usare i common dialog per richiamare le
finestre standard di windows per la selezione dei files.


title: Interfaccia per importare un file

author: Emyr

text:


vedi qualche thread sopra che ho postato il codice per farlo
Saluti.
Emanuele.


title: Interfaccia per importare un file

author: Filippo Inzaghi

text:
....
> vedi qualche thread sopra che ho postato il codice per farlo
>
> Saluti.
> Emanuele.
what's thread ?
Potresti essere più esplicito?
Grazie anticipatamente,
un Neofita



title: Interfaccia per importare un file

text:
On Mon, 22 Apr 2002 06:41:32 +0000 (UTC), "Filippo Inzaghi"
<
frequ...@email.it
> wrote:
>....
>> vedi qualche thread sopra che ho postato il codice per farlo
>>
>> Saluti.
>> Emanuele.
>
>what's thread ?
è un insieme di messaggi del NG relativi ad un oggetto in particolare
>Potresti essere più esplicito?
usa questo in un modulo, devi adattarlo
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
Public Function cmdlg_file()
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String

   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Immagini (*.wmf,*.bmp,*.jpg,*.tif)" & Chr(0) &
"*.wmf;*.bmp;*.jpg;*.tif" & Chr(0)
   OpenFile.hwndOwner = Application.hWndAccessApp
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)

   If lReturn = 0 Then
      cmdlg_file = ""

   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      Forms![tbl_Marca]![tbl_DESCRIZIONE Sottomaschera]!Immagine =
cmdlg_file
   End If
End Function
Saluti.
Emanuele.


title: Documentazione automatica del codice (?)

author: andRea

text:
Sapete se esiste uno strumento che consenta di generare
automaticamente la documentazione del codice scritto in VBA? Per
capirci uno strumento tipo Javadoc per Java
andRea
(Grazie George, leggo lo standard che mi hai consigliato e vedo quanto
lavoro mi costerebbe adattare il codice con copia-incolla-sostituisci)


title: R: Query

author: sib

text:
Gigi Petrone <
Gin...@tiscalinet.it
> wrote in message
8sfu3u$amn$1...@pegasus.tiscalinet.it...
> Tramite una query, visualizzo i dati di alcune tabelle, è possibile
> aggiornare quest'ultimi dalla query.
> Come faccio.
Usa la query come useresti una tabella.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Re: Somma logica di caselle di controllo

author: giorgio rancati

text:
"ziobill" <
dimaio....@gmail.com
> ha scritto nel messaggio
news:625842b4-19f6-4798...@v38g2000yqb.googlegroups.com...
>Buonasera a todos
Buenas noches
>Passo subito al problemuccio.
>in una maschera di tipo: maschera continua, ho un casella di controllo
>(vero o falso).
>Nel piè pagina di questa pagina vorrei fare una somma logica del
>controllo.
>Mi spiego meglio, vorrei che la somma fosse:
>- Vero se tutti i record sono Veri,
>- Falso se tutti sono Falsi
>- Falso se non tutto sono Falsi.
ovvero:
Vero se tutti i record sono Veri
Falso in tutti gli altri casi
metti nell'origine controllo della casella di controllo posta a piè pagina
di pagina
----
=(Somma(Abs([NomeCampo]))=Conteggio(*))
----
Ciao
Giorgio


author: ziobill

text:
On 25 Mar, 00:03, "giorgio rancati"
<
giorgio_No_Spalmer_ranc...@tiscali.it
> wrote:
> "ziobill" <
dimaio.raffa...@gmail.com
> ha scritto nel messaggionews:625842b4-19f6-4798...@v38g2000yqb.googlegroups.com...

Ero convinto che esistesse una soluzione più elegante di quella che mi
sono inventato.
 E' tu, Grande Giorgio, sei la prova vivente che la mia convinzione
era fondata :-)))
Grazie Giorgiooooo