author: Dario Fantoni

text:
"nwrr" <
nwrrAN...@lycos.it
> ha scritto nel messaggio news:3C29C826...@lycos.it...

Ciao,
intendevi qualcosa del genere... ???
Se proprio vuoi eliminare completamente le funzioni DatePart... DateAdd... etc.. devi usare un po'
di api...
che si sa.. con api...
Buone Feste
Dario
----------------------------------------------------------------------------------------------------
----------------------------------
'Dichiarazioni delle costanti e delle strutture necessarie
Option Explicit
Type Orologio
    Ora As Integer
    Minu As Byte
    Sec As Double
End Type
Type Calendario
    Anno As Integer
    Mese As Integer
    Giorno As Integer
    Settim As Integer
    OraGiorno As Orologio
End Type
'Giorni nei mesi
Private Function GiorniMese(Index As Integer) As Integer
    Static giorni(12) As Integer
    giorni(0) = 0
    giorni(1) = 31
    giorni(2) = 28
    giorni(3) = 31
    giorni(4) = 30
    giorni(5) = 31
    giorni(6) = 30
    giorni(7) = 31
    giorni(8) = 31
    giorni(9) = 30
    giorni(10) = 31
    giorni(11) = 30
    giorni(12) = 31
    GiorniMese = giorni(Index)
End Function
'Somma tra Ore in sesagesimale
Private Function SumOre(Add1 As Orologio, Add2 As Orologio) As Orologio
    Dim Res As Orologio
    Res.Ora = Add1.Ora + Add2.Ora
    Res.Minu = Add1.Minu + Add2.Minu
    If Res.Minu >= 60 Then
        Res.Ora = Res.Ora + Int(Res.Minu / 60)
        Res.Minu = Res.Minu Mod 60
    End If
    Res.Sec = Add1.Sec + Add2.Sec
    If Res.Sec >= 60 Then
        Res.Minu = Res.Minu + Int(Res.Sec / 60)
        Res.Sec = Res.Sec - Int(Res.Sec / 60)
    End If
    SumOre = Res
End Function
'Differenza tra Ore in sesagesimale
Private Function DifOre(Dif1 As Orologio, Dif2 As Orologio) As Orologio
    Dim Res As Orologio
    If Dif2.Sec > Dif1.Sec Then
        Dif1.Sec = Dif1.Sec + 60
        Dif1.Minu = Dif1.Minu - 1
    End If
    If Dif2.Minu > Dif1.Minu Then
        Dif1.Minu = Dif1.Minu + 60
        Dif1.Ora = Dif1.Ora - 1
    End If
    Res.Sec = Dif1.Sec - Dif2.Sec
    Res.Minu = Dif1.Minu - Dif2.Minu
    Res.Ora = Dif1.Ora - Dif2.Ora
    DifOre = Res
End Function
Private Function DateToCalendario(ByVal DataRif As Date) As Calendario
    Dim Res As Calendario
    Res.Anno = DatePart("yyyy", DataRif)
    Res.Mese = DatePart("m", DataRif)
    Res.Giorno = DatePart("d", DataRif)
    Res.Settim = Weekday(DataRif) - 1
    Res.OraGiorno.Sec = DatePart("s", DataRif)
    Res.OraGiorno.Minu = DatePart("n", DataRif)
    Res.OraGiorno.Ora = DatePart("h", DataRif)
    DateToCalendario = Res
End Function
Private Function CalendarioToDate(DataRif As Calendario) As Date
    Dim Res As Date
    Res = DateSerial(DataRif.Anno, DataRif.Mese, DataRif.Giorno)
    Res = DateAdd("s", DataRif.OraGiorno.Sec, Res)
    Res = DateAdd("n", DataRif.OraGiorno.Minu, Res)
    Res = DateAdd("h", DataRif.OraGiorno.Ora, Res)
    CalendarioToDate = Res
End Function
'Funzione che ritorna la posizione nella settimana di un giorno di data indicata.
'Il calcolo è basato sulla Congruenza di Zeller
Private Function NumGiorno(ByVal Giorno As Integer, ByVal Mese As Integer, ByVal Anno As Integer) As
Integer
    Dim Index As Integer
    If (Anno < 90) Then
        Anno = Anno + 2000
    ElseIf (Anno < 100) Then
        Anno = Anno + 1900
    End If
    If (Mese > 2) Then
        Mese = Mese - 2
    Else
        Mese = Mese + 10
        Anno = Anno - 1
    End If
    Index = ((13 * Mese - 1) / 5) + Giorno + (Anno Mod 100) + ((Anno Mod 100) / 4) + ((Anno / 100) /
4) - 2 * (Anno / 100) + 77
    Index = Index - 7 * Int(Index / 7)
    NumGiorno = Index
End Function
'Verifica se l'anno considerato è bisestile
Private Function Bisesto(ByVal Anno As Integer) As Integer
    If (Anno Mod 4 = 0) And (Anno Mod 100 <> 0) Or (Anno Mod 400 = 0) Then
        Bisesto = 1
    Else
        Bisesto = 0
    End If
End Function
'Modifica la data passata come argomento al fine di renderla formalmente corretta
'restituisce vero in caso di successo, falso altrimenti.
Private Function AggiustaData(DataRif As Calendario) As Boolean
On Error GoTo AggData_Err
    If DataRif.OraGiorno.Sec > 60 Then
        DataRif.OraGiorno.Minu = DataRif.OraGiorno.Minu + Int(DataRif.OraGiorno.Sec / 60)
        DataRif.OraGiorno.Sec = -Int(DataRif.OraGiorno.Sec / 60) * 60 + DataRif.OraGiorno.Sec
    End If
    If DataRif.OraGiorno.Minu > 60 Then
        DataRif.OraGiorno.Ora = DataRif.OraGiorno.Ora + Int(DataRif.OraGiorno.Minu / 60)
        DataRif.OraGiorno.Minu = -Int(DataRif.OraGiorno.Minu / 60) * 60 + DataRif.OraGiorno.Minu
    End If
    If DataRif.OraGiorno.Ora > 24 Then
        DataRif.Giorno = DataRif.Giorno + Int(DataRif.OraGiorno.Ora / 24)
        DataRif.OraGiorno.Ora = -Int(DataRif.OraGiorno.Ora / 24) * 24 + DataRif.OraGiorno.Ora
    End If
    If DataRif.Giorno > (GiorniMese(DataRif.Mese) + IIf(DataRif.Mese = 2, Bisesto(DataRif.Anno), 0))
Then
        DataRif.Giorno = DataRif.Giorno - GiorniMese(DataRif.Mese)
        DataRif.Mese = DataRif.Mese + 1
    End If
    If DataRif.Mese > 12 Then
        DataRif.Mese = DataRif.Mese - 12
        DataRif.Anno = DataRif.Anno + 1
    End If
    DataRif.Settim = NumGiorno(DataRif.Giorno, DataRif.Mese, DataRif.Anno)
    AggiustaData = True
    Exit Function
AggData_Err:
    AggiustaData = False
End Function
'Determina il numero giuliano per data. Il conteggio include anche il giorno
Private Function Juliano(ByVal Giorno As Integer, ByVal Mese As Integer, ByVal Anno As Integer) As
Integer
    Static SGiorni(13) As Integer
    Dim TotGiorni As Integer
    SGiorni(0) = 0
    SGiorni(1) = 31
    SGiorni(2) = 59
    SGiorni(3) = 90
    SGiorni(4) = 120
    SGiorni(5) = 151
    SGiorni(6) = 181
    SGiorni(7) = 212
    SGiorni(8) = 243
    SGiorni(9) = 273
    SGiorni(10) = 304
    SGiorni(11) = 334
    SGiorni(12) = 365
    TotGiorni = SGiorni(Mese - 1) + Giorno
    If (Mese > 2) Then
        TotGiorni = TotGiorni + Bisesto(Anno)
    End If
    Juliano = TotGiorni
End Function
Private Function OreCmp(Ora1 As Orologio, Criterio As String, Ora2 As Orologio) As Boolean
    On Error GoTo OreCmp_Err
    Dim Local1 As Double
    Dim Local2 As Double
    Local1 = OraToSecondi(Ora1)
    Local2 = OraToSecondi(Ora2)
    Select Case Criterio
        Case "<"
            OreCmp = (Local1 < Local2)
        Case "=<"
            OreCmp = (Local1 <= Local2)
        Case "<="
            OreCmp = (Local1 <= Local2)
        Case ">"
            OreCmp = (Local1 > Local2)
        Case "=>"
            OreCmp = (Local1 >= Local2)
        Case ">="
            OreCmp = (Local1 >= Local2)
        Case "="
            OreCmp = (Local1 = Local2)
        Case "<>"
            OreCmp = (Local1 <> Local2)
        Case "!="
            OreCmp = (Local1 <> Local2)
    End Select
    Exit Function
OreCmp_Err:
    MsgBox Err.Description & " : " & Str(Err.Number), vbOKOnly, "Errore Interno"
    Resume Next
End Function
Private Function SecondiToOra(ByVal NumSecondi As Double) As Orologio
    Dim Comodo As Orologio
    Comodo.Ora = Int(NumSecondi / 3600&)
    NumSecondi = NumSecondi - Comodo.Ora * 3600&
    Comodo.Minu = Int(NumSecondi / 60)
    NumSecondi = NumSecondi - Comodo.Minu * 60&
    Comodo.Sec = Int(NumSecondi)
    SecondiToOra = Comodo
End Function
Private Function OraToSecondi(Comodo As Orologio) As Double
    OraToSecondi = Comodo.Ora * 3600& + Comodo.Minu * 60& + Comodo.Sec
End Function
'Questa funzione verifica se il dato Ora è compreso nei limiti prefissati.
'Se appartiene all'intervallo viene restituito ndEntro.
'Se è < di Limite Inferiore viene restituito ndBasso.
'Se è > al Limite Superiore viene restituito ndAlto.
Private Function IsBetween(Ora As Orologio, LimInf As Orologio, LimSup As Orologio) As Integer
    If OreCmp(Ora, "<", LimInf) Then
        IsBetween = ndBasso
        Exit Function
    End If
    If OreCmp(Ora, ">", LimSup) Then
        IsBetween = ndAlto
        Exit Function
    End If
    If OreCmp(Ora, "<=", LimSup) And OreCmp(Ora, ">=", LimInf) Then
        IsBetween = ndEntro
        Exit Function
    End If
End Function
Private Function InitOra(Ore As Integer, Minuti As Byte, Secondi As Double) As Orologio
    Dim Locale As Orologio
    Locale.Ora = Ore
    Locale.Minu = Minuti
    Locale.Sec = Secondi
    If (Locale.Sec > 60) Then
        Locale.Minu = Locale.Minu + Int(Locale.Sec / 60)
        Locale.Sec = Locale.Sec - Int(Locale.Sec / 60) * 60
    End If
    If (Locale.Minu > 60) Then
        Locale.Ora = Locale.Ora + Int(Locale.Minu / 60)
        Locale.Minu = Locale.Minu - Int(Locale.Minu / 60)
    End If
    InitOra = Locale
End Function


title: auguri ed info funzione datediff personalizzata

author: nwrr

text: grazie gli darň un'occhiata con calma


text:
>
> Ciao,
> intendevi qualcosa del genere... ???
> Se proprio vuoi eliminare completamente le funzioni DatePart... DateAdd... etc.. devi usare un po'
> di api...
> che si sa.. con api...
nel senso che sono toste o in che senso?
a proposito ho postato anche riguardo al modo di "automatizzare
il salvataggio di pag internet" per poi salvarle su word: il post è più sotto
stessa data di questo
non so se le api possano anche servire
grazie per info
>
> Buone Feste
altrettanto


author: Antonio Biso

text:
nwrr <
nwrrAN...@lycos.it
> wrote in message 3C29C826...@lycos.it...
> > Che intendi per svincolarsi dalle funzioni del pc?
> > Intendi di access?
> >
> > Antonio
>
> esatto quelle di access.
> cioč con datediff e dateadd io basta che uso le 2 funzioni ed ho il
risultato
> mentre con del codice mio dovrei elaborare ipotizzo un ciclo che mi va a
> contare tutti
> i giorni mese per mese tenendo conto degli anni bisestili, insomma
abbastanza
> complicato.
Ma perchč fare questo?
> a proposito come č andata a finire la storia del clone?
Deve essere crepato dalla rabbia
Antonio


author: Emyr

text:
On Thu, 27 Dec 2001 10:54:37 +0100, "Dario Fantoni" <
dari...@tin.it
>
wrote:
>
>"nwrr" <
nwrrAN...@lycos.it
> ha scritto nel messaggio news:3C29C826...@lycos.it...
CUT
>Ciao,
>intendevi qualcosa del genere... ???
>Se proprio vuoi eliminare completamente le funzioni DatePart... DateAdd... etc.. devi usare un po'
>di api...
>che si sa.. con api...
>
>Buone Feste
>Dario
>----------------------------------------------------------------------------------------------------
>----------------------------------
>'Dichiarazioni delle costanti e delle strutture necessarie
>Option Explicit
>
complimenti!
alla faccia dell'aiutino!
Saluti.
Emanuele.


text:
> Ma perchè fare questo?
mi serviva giusto a fini tranquilizzanti, nel senso che volevo una ulteriore
verifica
su alcune scadenze che devono essere assolutamente rispettate rispetto a delle
date
di partenza; quindi volevo aggiungere una ulteriore verifica
> > a proposito come è andata a finire la storia del clone?
>
> Deve essere crepato dalla rabbia
..... o, hai fatto tu una spedizione punitiva , molto
punitiva...................
A memoria (ripeto è un annetto e mezzo che non frequento più
il news) se non ricordo male, eri uno tostarello, per lo meno nelle risposte;
poi si sa, se tanto mi da tanto ........
Comunque mi ha fatto piacere rileggerti,
tra l'altro in passato mi hai anche chiarito alcune cose.
Volevo, visto che sei di 'passaggio' sul mio post farti ulteriori 2 domandine
già postate
Oggetto:  codice access rotellina mouse e bloccare
quando sono dentro ad un modulo di una form e sto lavorando sul codice
è possibile bloccarne una parte in modo che non posso modificarlo
cioè ce l'ho solo in lettura?
mi hanno risposto di no, ma esiste qualche utility che lo può fare
come mai a differenza di word dentro ai moduli del codice di access
non mi funziona la rotellina di scorrimento?
qui non ho avuto risposta
ciao
>
>
> Antonio


text:
On Wed, 02 Jan 2002 00:58:27 GMT, nwrr <
nwrrAN...@lycos.it
> wrote:
>> Ma perchè fare questo?
>
>mi serviva giusto a fini tranquilizzanti, nel senso che volevo una ulteriore
>verifica
>su alcune scadenze che devono essere assolutamente rispettate rispetto a delle
>date
>di partenza; quindi volevo aggiungere una ulteriore verifica
>
>> > a proposito come è andata a finire la storia del clone?
>>
>> Deve essere crepato dalla rabbia
>
>..... o, hai fatto tu una spedizione punitiva , molto
>punitiva...................
>A memoria (ripeto è un annetto e mezzo che non frequento più
>il news) se non ricordo male, eri uno tostarello, per lo meno nelle risposte;
>poi si sa, se tanto mi da tanto ........
>Comunque mi ha fatto piacere rileggerti,
>tra l'altro in passato mi hai anche chiarito alcune cose.
>Volevo, visto che sei di 'passaggio' sul mio post farti ulteriori 2 domandine
>già postate
>
>Oggetto:  codice access rotellina mouse e bloccare
>
>quando sono dentro ad un modulo di una form e sto lavorando sul codice
>è possibile bloccarne una parte in modo che non posso modificarlo
>cioè ce l'ho solo in lettura?
>mi hanno risposto di no, ma esiste qualche utility che lo può fare
penso di no
>
>
>
>come mai a differenza di word dentro ai moduli del codice di access
>non mi funziona la rotellina di scorrimento?
>qui non ho avuto risposta
>
>
>ciao
>
perchè l'editor non lo prevede!?
Saluti.
Emanuele.


title: Query di accodamento

author: Teo

text:
Eseguo una query di accodamento da una tabella di appoggio ad un altra, nel
db ci sono dei vincoli di integrità referenziale. Il problema sta nel fatto
che se non sono rispettati questi vincoli non tutte le tuple verranno
accodate(GIUSTO), ma verranno aggiunte solo le tuple che rispettano questi
vincoli.
Allora in access2000 funzionava, ma in 97 basta che ci sia una tupla che non
rispetta questi vincoli la query mi da errore dicendomi che non verranno
aggiunti tutte le tuple. Perchè?
In teoria non mi dovrebbe aggiungere solo le tuple sbagliate!!
Matteo


title: Re: Troppo difficile questa query

author: radicale 001

text:
On 3 Lug, 21:21, ugo conte <
ugo.cont...@gmail.com
> wrote:
> buona sera a tutti
buona sera.
> Se nella maschera cambio cliente
E come cambi cliente ? Con le funzioni standard di
maschera Access o con funzioni scritte da te ?
> dopo aver già inserito il DDT con i suoi dettagli;
Cos' e' il DDT ?
> il ddt giustamente sparisce dalla sottomaschera perchè
> di altro cliente, metre i dettagli rimangono.
Quali dettagli ?
> Come posso fare affinchè ddt e relativi dattagli vengano eliminati
> contemporaneamente?
In che senso eliminati ?
> ho provato con questa espressione:
> Espr1: IIf([TbTestata_Fattura].[IdCliente]<>[QDescrizione_DDT].
> [IdCliente];-1)
Dove e' scritta questa espressione ? In qualche evento maschera ?
Che evento ?
> ma non va bene, perchè mi seleziona solo il record del ddt
> mentre a me servono anche i records dei dettagli dove
> in pratica hanno lo stesso numeroDDT.
Boh.
Vorrei tanto aiutarti, ma francamente non capisco nulla.
Sembra un discorso di Andreotti ai tempi del suo massimo
splendore :-)))


title: Re: Troppo difficile questa query

text:
"radicale 001" <
radica...@gmail.com
> ha scritto nel messaggio
news:c1f00fa1-2559-497c...@d22g2000yqn.googlegroups.com...
On 3 Lug, 21:21, ugo conte <
ugo.cont...@gmail.com
> wrote:
> dopo aver già inserito il DDT con i suoi dettagli;
Cos' e' il DDT ?
mamma mia che ignoranza!!!
e non solo informatica...
bah
Antonio


title: Re: Troppo difficile questa query

author: radicale 004

text:
On 3 Lug, 21:44, ugo conte <
ugo.cont...@gmail.com
> wrote:
> Da casella combinata
Aspetta ...
Affrontiamo il problema alla radice.
(se hai tempo).
Correggimi se sbaglio, ho bisogno
di capire l' architettura della cosa :
1)
tu hai una maschera con dentro
un insieme di dati.
2)
Da casella combinata selezioni un certo
ddt. Questo *fatto*, mi sembra di capire,
e' quello scatenante per caricare i dati
di *quel* ddt in maschera. Giusto ?
Domanda : immagino che i dati vengano
inseriti in maschera tramite una tua routine
che hai scritto nell' evento AfterUpdate()
della casella combinata. Giusto ?
Se cosi' e' :
Come funziona, cosa fa questa routine ?
Attendo.


title: Re: Troppo difficile questa query

text:
On 4 Lug, 00:13, "Antonio Biso" <
ab...@libero.it
> wrote:
> "radicale 001" <
radicale....@gmail.com
> ha scritto nel messaggionews:c1f00fa1-2559-497c...@d22g2000yqn.googlegroups.com...
> On 3 Lug, 21:21, ugo conte <
ugo.cont...@gmail.com
> wrote:
>
> > dopo aver già inserito il DDT con i suoi dettagli;
>
> Cos' e' il DDT ?
>
> mamma mia che ignoranza!!!
>
> e non solo informatica...
>
> bah
>
> Antonio
Sta zitto, imbecille.


title: Re: Troppo difficile questa query

author: BFS

text:
Il 04/07/2011 00:13, Antonio Biso ha scritto:
> "radicale 001"<
radica...@gmail.com
>  ha scritto nel messaggio
> news:c1f00fa1-2559-497c...@d22g2000yqn.googlegroups.com...
> On 3 Lug, 21:21, ugo conte<
ugo.cont...@gmail.com
>  wrote:
>
>> dopo aver giï¿œ inserito il DDT con i suoi dettagli;
>
> Cos' e' il DDT ?
>
>
> mamma mia che ignoranza!!!
>
> e non solo informatica...
>
> bah
>
>
> Antonio
>
>
para-diclorodifeniltricloroetano ?


title: Re: Troppo difficile questa query

text:
On 4 Lug, 10:42, ugo conte <
ugo.cont...@gmail.com
> wrote:

> non sono daccordo.
> Antonio non merita questo.-
primo
Con me si comporta male e da tempo, e quindi
io mi comporto male con lui.
Punto.
secondo
non credo sia un problema tuo.


title: Re: Troppo difficile questa query

text:
On 4 Lug, 12:43, ugo conte <
ugo.cont...@gmail.com
> wrote:
> > > non sono daccordo.
> > > Antonio non merita questo.-
>
> > primo
> > Con me si comporta male e da tempo, e quindi
> > io mi comporto male con lui.
> > Punto.
>
> > secondo
> > non credo sia un problema tuo.
>
> Sei un tipo strano.
> Vero?
> Insulti Antonio in un mio thread e questo non te lo permetto.
Oh questa poi ... E' il massimo. Incredibile.
Lui insulta ME (e pesantemente) in questo stesso
"tuo" 3d.
Cos' e', hai un particolare filtro che ti fa vedere
gli insulti che scrivo io ma non quelli che scrive
lui ?
(oltretutto mi stavo facendo in 4 per aiutarti).
Allora perche' a lui glielo permetti e a me no ?
Chi vuoi prendere in giro ?
Comunque io chiudo qui. Spero ti aiuti il tuo
idolo Antonio a risolvere il tuo problema.
E' piu' bravo di me, vedrai che risolvi.


title: Re: Troppo difficile questa query

text:
"radicale 004" <
radica...@gmail.com
> ha scritto nel messaggio
news:1ee84c99-15f1-406e...@a31g2000vbt.googlegroups.com...
> On 4 Lug, 12:43, ugo conte <
ugo.cont...@gmail.com
> wrote:
>
> Lui insulta ME (e pesantemente) in questo stesso
> "tuo" 3d.
Ugo, lascia perdere, perch� penso sia un caso patologico
io sottolineo solo la sua ignoranza (che non � un insulto, � mancanza di
conoscenza) e lo definisce insulto pesante
lui invece mi da dell'imbecille e va tutto bene
ti rendi conto?
quando uno � un cafone maleducato, non puoi ragionarci, pu� solo stare in
mezzo ai buzzurri e non in un consesso civile come questo
grazie comunque
Antonio


title: Re: Troppo difficile questa query

text:
"BFS" <B...@BFSBFS.it> ha scritto nel messaggio
news:4e117fe8$0$15665$4faf...@reader2.news.tin.it...
> Il 04/07/2011 00:13, Antonio Biso ha scritto:
>> "radicale 001"<
radica...@gmail.com
>  ha scritto nel messaggio
>> news:c1f00fa1-2559-497c...@d22g2000yqn.googlegroups.com...
>> On 3 Lug, 21:21, ugo conte<
ugo.cont...@gmail.com
>  wrote:
>>
>>> dopo aver gi� inserito il DDT con i suoi dettagli;
>>
>> Cos' e' il DDT ?
>>
>>
>> mamma mia che ignoranza!!!
>>
>> e non solo informatica...
>>
>> bah
>>
>>
>> Antonio
>>
>
> para-diclorodifeniltricloroetano ?
ROTFL
Antonio


title: Re: Troppo difficile questa query

author: RobertoA

text:
"ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
news:ae6b7eb8-34eb-4e24...@n28g2000vbs.googlegroups.com...

> Certo confermo
>>
>> E' piu' bravo di me, vedrai che risolvi.
>
> questo sicuramente.
>
> Ma non te la prendere.
Il problema sembra nascere dal fatto che tu colleghi le righe del corpo con
il cliente della testata
Messa cosi, se cambi cliente e' normale perdere le righe
Ma supponiamo per un attimo che le righe del corpo siano collegate con una
valore che chiameremo ID_TESTATA giusto per dire un nome a caso
Quando crei un nuovo documento il programma ti crea un nuovo record nella
tabella TESTATEDOCUMENTI
Se inserisci delle righe articoli allora il programma inserira' dei nuovi
record nella tabella RIGHEDOCUMENTI, che ovviamente avranno un campo
ID_TESTATA_DOCUMENTO per sapere a che testata 'attaccarsi'
Se la vedi cosi, allora il cliente della testata lo puoi cambiare quante
volte vuoi, le righe rimarranno al loro posto, come deve essere
Poi quando vuoi cancellare un documento, la procedura di cancellazione
dovra' eseguire due eliminazioni, prima tutte le righe documenti che hanno
ID_TESTATA_DCUMENTO uguale al documento corrente e poi la riga testata del
docmento corrente
Spero di aver capito quello che chiedevi, e di averti proposto una soluzione
al problema
Per quanto riguarda i vari radicali liberi in circolazione, mi spiace
moltissimo che dopo qualche battuta la conversazione assuma toni esasperati
fino allo scontro verbale
Sembra manifesta la buona volonta' del radicale di turno ad offrire il suo
aiuto, come e' evidente anche il suo atteggiamento un po' eccessivamente
permaloso rispetto alle battute degli altri frequentatori
Vedo pero' anche molto astio ingiustificato degli altri nei suoi confronti
Come volersi buttare nella rissa a colpi di parole prima, di parolacce poi,
di insulti alla fine
Personalmente, quando possibile,  tendo sempre a smorzare i tentativi di
aggressione verbale anche a costo di apparire 'el mona de turno'
Inviterei quindi i frequentatori del ng ad accogliere con meno evidente
fastidio le posizioni altrui, ed inviterei tutti i radicali liberi in
circolazione a cercare di sopportare con un briciolo in piu' di umilta' i
consigli dei colleghi nel ng
Ciao
RobertoA


title: Re: Troppo difficile questa query

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4e186265$1...@newsgate.x-privat.org...
> "ugo conte" <
ugo.c...@gmail.com
> ha scritto nel messaggio
> news:ae6b7eb8-34eb-4e24...@n28g2000vbs.googlegroups.com...
>> On 4 Lug, 13:17, radicale 004 <
radicale....@gmail.com
> wrote:
> Vedo pero' anche molto astio ingiustificato degli altri nei suoi confronti
Roberto,
nel momento in cui si abbandona la schermaglia verbale anche caustica ma
civile e invece si utilizzano termini beceri da bettola di periferia, non
credo che si possa parlare di ingiustificato...
Antonio


title: Aiuto arrotondamento

author: Gian Luca

text:
Ho trovato la funzione di Karl, ma come cavolo si fa ad applicarla ad una
casella di testo che ha come origine controllo un'espressionedel tipo
=([Imptotale]*[Sconto]/100)  ??????????
Grazie e ciao


title: Aiuto arrotondamento

text:
Gian Luca <
g_bas...@libero.it
> wrote in message
GJ318.33880$cU4.1...@twister1.libero.it...
> Ho trovato la funzione di Karl, ma come cavolo si fa ad applicarla ad una
> casella di testo che ha come origine controllo un'espressionedel tipo
> =([Imptotale]*[Sconto]/100)  ??????????
La si trasforma in =fctround([Imptotale]*[Sconto]/100)
Antonio


title: Aiuto arrotondamento

text:
On Wed, 16 Jan 2002 00:23:02 GMT, "Gian Luca" <
g_bas...@libero.it
>
wrote:

=fctround([Imptotale]*[Sconto]/100)
Saluti.
Emanuele.


title: Aiuto arrotondamento

text:
Emyr <
fan...@lavoro.com
> wrote in message
6gca4us9850r9l0la...@4ax.com...

tsk tsk tsk
9 minutini di ritardo...
Eh eh he
Antonio


title: Aiuto arrotondamento

text:
On Wed, 16 Jan 2002 09:24:55 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

ho tre scusanti:
1.       non sono sempre connesso, ma solo di tanto in tanto
2.       devo pur far finta di lavorare
3.       avevo la febbre a 37,3	adesso a 38,8
Saluti.
Emanuele.


title: Aiuto arrotondamento

text:
Emyr <
fan...@lavoro.com
> wrote in message
n6lb4uk9utmfsuu60...@4ax.com...

Hai dimenticato l'unghia incarnita...
Antonio


title: Aiuto arrotondamento

text:
On Wed, 16 Jan 2002 22:54:03 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

no quelle non ce le ho da un paio d'anni
Saluti.
Emanuele.


title: proprietà files

author: Giovo

text:
Salve a tutti.
Utilizzando la funzione lookin posso leggere il nome di tuti i files
contenuti in una certa cartella e trasciverne i nomi in una tabella del mio
database.
Domanda: esiste un modo per sapere oltre al nome dei file trovati anche le
loro proprietà (esempio l'autore o la data di creazione?).
Cercando di essere più chiaro: ho una cartella che contiene circa 4.000 file
MP3 e vorrei poter avere in un database (per ogni file mp3) autore, titolo
canzone, titolo album ecc.
Titolo albun e canzone li ricavo dal nome del file ma avrei bisogno di
accedere alle proprietà del file per ricavarne almeno l'autore.
Grazie


title: proprietà files

author: Carlo Costarella

text:
"Giovo" <
g...@gio.it
> ha scritto nel messaggio
news:zhtxa.10042$lK4.2...@twister1.libero.it...
> Salve a tutti.
> Utilizzando la funzione lookin posso leggere il nome di tuti i files
> contenuti in una certa cartella e trasciverne i nomi in una tabella del
mio
> database.
> Domanda: esiste un modo per sapere oltre al nome dei file trovati anche le
> loro proprietā (esempio l'autore o la data di creazione?).
>
> Cercando di essere pių chiaro: ho una cartella che contiene circa 4.000
file
> MP3 e vorrei poter avere in un database (per ogni file mp3) autore, titolo
> canzone, titolo album ecc.
> Titolo albun e canzone li ricavo dal nome del file ma avrei bisogno di
> accedere alle proprietā del file per ricavarne almeno l'autore.
>
> Grazie
>
>
Prova con questo:
Dim FileObj, Dato1, Dato2
  Set FileObj = CreateObject"Scripting.FileSystemObject")
  Set Dato1 = FileObj.GetFile("c:\windows\leggimi.txt")
  Dato2 = UCase("c:\windows\leggimi.txt") & vbCrLf
  Dato2 = Dato2 & "Data di creazione: " & Dato1.DateCreated & vbCrLf
  Dato2 = Dato2 & "Ultimo accesso: " & Dato1.DateLastAccessed & vbCrLf
  Dato2 = Dato2 & "Ultima modifica: " & Dato1.DateLastModified & vbCrLf
  Dato2 = Dato2 & "Dimensione: " & Dato1.Size & vbCrLf
Debug.Print Dato2
Ciao, Carlo


title: proprietà files

text:
Grazie, funziona benissimo anche se sembra proprio che oltre alle 4
informazini base (data creazione autore ecc.) non sia proprio possibile
accere al resto (tanto per capirci per i file mp3 ci sono molte altre
informazioni tipo artista traccia anno ecc.).
In effetti avrei la pretesa di realizzare qualcosa tipo quello che fa il
catalogo di Windows media player che riesce a catalogare i file estraendo
tutte le informazioni.
Grazie per l'aiuto.
Ciao
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:g7uxa.110050$3M4.2...@news1.tin.it...



title: DataBase Access enorme

author: Fabio Civ

text:
Sapete perchč un data base access usato in rete diventa enorme agni volta
che si utilizzi?
Premetto che non vengono salvate immagini.
Ciao :-)


title: DataBase Access enorme

text:
"Fabio Civ" <
massi...@virgilio.it
> ha scritto nel messaggio
news:at4r9a$j9b$1...@newsreader.mailgate.org...
> Sapete perchč un data base access usato in rete diventa enorme agni volta
> che si utilizzi?
Massiccio uso di tabelle temporanee ?
Hai provato ad usarlo non in rete per vedere se ha lo stesso comportamento?
Antonio


title: DataBase Access enorme

author: oizirbaF

text:


E' maschio ?
E che siti frequenta ? se sono quelli porno , ho capito tutto.
p.s. scusate non ce l'ho fatta a resistere.
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)


title: query di eliminazione.....

author: Norica UD

text:
Ho un problema che mi sta facendo impazzire:
Ho 2 tabelle
CORRENTE
STORICO
che hanno un campo in comune chiamato NSPED
Voglio eliminare i records della tabella INSERT che hanno in comune con la
tabella STORICO lo stesso valore nel campo NSPED.
Caspita, con l'autocomposizione query faccio cosě: inserisco le due tabelle,
metto giů il campo NSPED dalla tabella INSERT e sui criteri ci scrivo
"=[Storico].[NSped]"; in strumenti seleziono queri di eliminazione e lancio
la query.
MI dice :"SPECIFICARE LA TABELLA DA CUI ELIMINARE I RECORDS"
COSAA ???
in sql sarebbe cosě:
DELETE Insert.NSped
FROM [Insert], Storico
WHERE (((Insert.NSped)=[Storico].[NSped]));
HEEEEELP !!!!
GRAZIE.
--
Posted from
smtp3.libero.it
 [193.70.192.53]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: query di eliminazione.....

author: Roberto dal portatile

text:
""Norica UD"" <
nor...@libero.it
> ha scritto nel messaggio
news:000501c0d23a$4a48e040$3200000a@server...
> Ho un problema che mi sta facendo impazzire:
> Ho 2 tabelle
> CORRENTE
> STORICO
> che hanno un campo in comune chiamato NSPED
>
> Voglio eliminare i records della tabella INSERT che hanno in comune con la
> tabella STORICO lo stesso valore nel campo NSPED.
> Caspita, con l'autocomposizione query faccio cosě: inserisco le due
tabelle,
> metto giů il campo NSPED dalla tabella INSERT e sui criteri ci scrivo
> "=[Storico].[NSped]"; in strumenti seleziono queri di eliminazione e
lancio
> la query.
> MI dice :"SPECIFICARE LA TABELLA DA CUI ELIMINARE I RECORDS"
> COSAA ???
> in sql sarebbe cosě:
> DELETE Insert.NSped
> FROM [Insert], Storico
> WHERE (((Insert.NSped)=[Storico].[NSped]));
>
> HEEEEELP !!!!
> GRAZIE.
>
Fermo restando che non ho ben capito se le tabelle sono due (CORRENTE e
STORICO) o sono tre (CORRENTE, STORICO e INSERT) nel qual caso non ho capito
che funzione abbia la tabella CORRENTE.
Se il tuo problema č quello di eliminare dalla tabella INSERT tutti quei
record che hanno nel campo NSPED lo stesso valore contenuto anche nel campo
NSPED di almeno un record della tabella STORICO, ed inoltre il campo NSPED č
di tipo numerico, prova con una query di eliminazione che abbia il seguente
codice SQL:
DELETE INSERT.*
FROM [INSERT]
WHERE (((DCount("[NSPED]","STORICO","NSPED=" & [NSPED]))>0));
Se poi il campo NSPED e di tipo testo:
DELETE INSERT.*
FROM [INSERT]
WHERE (((DCount("[NSPED]","STORICO","NSPED=" & Chr$(34) & [NSPED] &
Chr$(34)))>0));
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Cercasi programmatore per lavoro

author: Vale

text:
sono un'artigiono della zona di Bologna e uso un db per la fatturazione
fatto in casa, vorrei migliorarlo un pò c'è qualcuno disponibile? non gratis
naturalmente.
Ciao
Vale.
Risposte in e-mail.


title: SAP R/3 ed Access

author: Marks

text:
Nessuno può aiutarmi???
Vorrei, tramite access... interagire con le transazioni/tabelle su SAP!
Come poter fare?
Qualche codice di esempio???
Grazie e buon weekend!
marks


title: SAP R/3 ed Access

author: MA

text:
Marks wrote:
> Nessuno puņ aiutarmi???

Al cisa2 si parlerą anche di questo.
Per ora puoi vedere se Roberto La Forgia  sta lurkando il NG
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: SAP R/3 ed Access

author: Roberto La Forgia

text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:duscgi$e01$
1...@area.cu.mi.it
> Marks wrote:
> > Nessuno può aiutarmi???
> > Vorrei, tramite access... interagire con le transazioni/tabelle su
> > SAP!
> >
> > Come poter fare?
> > Qualche codice di esempio???
> >
> >
> > Grazie e buon weekend!
> > marks
> Al cisa2 si parlerà anche di questo.
> Per ora puoi vedere se Roberto La Forgia  sta lurkando il NG
Sto qui, MA :-)
devo dire che mi occupo di SAP Business One che sarebbe
l' "entry level" degli ERP di SAP.
SAP/R3 è il più grosso (grande);
lo usano grosse aziende come  FinMeccanica, FimnCantieri, Oto Melara ecc
Prova a vedere sul sito
Http://sdn.sap.com
 se ci sia qualcosa (la
registrazione è gratuita)
Ciao,
Roberto
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: SAP R/3 ed Access

text:
"Marks" <
mom...@gmail.com
> wrote in message
news:1142006464.9...@z34g2000cwc.googlegroups.com
> Nessuno puņ aiutarmi???

C'č un documento al seguente indirizzo che forse fa al caso tuo:
https://www.sdn.sap.com/irj/sdn/developerareas/webservices0
dal titolo: Integrate Microsoft Office and SAP Applications
Penso di leggero anch'io ...



title: SAP R/3 ed Access

text:
Che dire...
grazie mille... ci darò sicuramente una "vista" :-)
Ciao,
Marks


title: comprimere BE protetto da password.

text:
Ciao a tutti,
Ho fatto le ricerche più svariate senza però trarne niente quindi siete la mia ultima spiaggia...
ho necessità di inviare ad alcuni agenti un BE protetto da password (che però occupa ben 25mb) in formato rar autoestraente.
Il problema è che per l'appunto pare che i db protetti (access 2007) non possono essere compressi e qui iniziano le difficoltà...
Leggendo qua e la ho letto che è un problema di access 2007 in quanto ciò non accade con la versione 2003.
Sapreste dirmi se la versione 2013 fa lo stesso problema o se eventualmente ci sono altre soluzioni per ottenere ciò che voglio in spazi più ristretti?

grazie!

Nickbi


title: dove sono le immagini usate per pulsanti access?

author: albertolino

text:
Ciao,
sapreste indicarmi dove si trova la cartella con le varie immagini che
access utilizza nella creazione dei pulsanti?
(volevo utilizzarne alcune come elementi puramente grafici ma non le trovo
grazie
uso access2003 su xp.
ciao
buona giornata
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"albertolino"  ha scritto nel messaggio
news:j49qrd$anj$1...@news.newsland.it...
Ciao,
sapreste indicarmi dove si trova la cartella con le varie immagini che
access utilizza nella creazione dei pulsanti?
(volevo utilizzarne alcune come elementi puramente grafici ma non le trovo
grazie
uso access2003 su xp.
ciao
buona giornata
__________Risposta:
nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi come
pulsante
MA


author: Pablitomf

text:
> nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
> Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi
come
> pulsante
> MA

Ahhhh questi corsi di cucina che sono stato ingrado di fare! :D

--
--------------------------------
Pablitomf

Napoli sempre nel "Q"uore!


text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:
> > nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
> > Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi
> come
> > pulsante
> > MA
>
> Ahhhh questi corsi di cucina che sono stato ingrado di fare! :D
stati*



author: Alessandro Cara

text:
Il 08/09/2011 9.42, MA ha scritto:
[cut]
> __________Risposta:
> nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
> Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi
> come pulsante
> MA
system32?
che strano io le trovavo qui:
Declare Function GetIcons Lib "msaccess.exe" Alias "#60" _
     (ByVal lngBmp As Long, ByVal fLarge As Long, bytBuf() As Byte) As Long
P.S.
[Accessgroup.it]
  9 	Compilare le imputbox di una pagina web 	Sergio Mazza 	511
imputbox "nun se po' vede". Fortuna che Sergio e' sparito dal ng.
--
ac (x=y-1)


text:
MA ha scritto:

> "albertolino"  ha scritto nel messaggio
> news:j49qrd$anj$1...@news.newsland.it...

>
> __________Risposta:
> nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
> Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi come
> pulsante
> MA

non mi sono stato spiegato :-)

a me basterebbe piazzare il binocolino (ad esempio) di fianco ad un campo
testo. non deve fare assolutamente nulla.
tra l'altro avevo provato ad inserire un'immaginetta e ho notato che il
file si � ingrandito di molto (molto + del peso della stessa) quindi...
preferirei (se naturalmente fosse possibile) utilizzare le immagini che
suppongo siano gi� nell'access...



text:
Pablitomf ha scritto:

> > nella SHELL System32. Ma sei sicuro? sono bruttarelle forte!!!.
> > Usa una immagine tua come sfondo, poi ci metti una label sopra e la usi
> come
> > pulsante
> > MA

> Ahhhh questi corsi di cucina che sono stato ingrado di fare! :D

ho fame.



title: FAQ?

author: Martino Merzek

text:
Dove posso trovare i faq di questo ng DA SCARICARE e leggermeli con calma?
Grazie
    Martino


title: FAQ?

author: Oscar Manfredini

text:
"Martino Merzek" <
> Dove posso trovare i faq di questo ng DA SCARICARE e leggermeli con calma?
> Grazie
www.sitocomune.com


title: R: DISCOGRAFIA

author: Luciano (DOC)

text:
pomodorostudio <
pomodorostu...@tin.it
> wrote in message
rMsZ5.566$yy4....@twister1.tin.it...
> Contattaci subito.:Pomodoro studio casella postale 51 - 01015 - Sutri
(VT) -
A Sutri c'e' un'ottima sagra del fagiolo....'sto pomodoro e' la prima volta
che lo sento.
Ma il vino e' buono almeno?:-))
Saluti.
Luciano
(DOC)


title: R: DISCOGRAFIA

text:
"Luciano (DOC)" ha scritto:
>[cut]
> A Sutri c'e' un'ottima sagra del fagiolo....'sto pomodoro e' la prima volta
> che lo sento.
> Ma il vino e' buono almeno?:-))
Ma porca miseria Luciano [DOC], a proposito da che vigna vieni? ;=D, si
parla di Sutri che ha due splendidi resti etruschi (Mitreo e Anfiteatro,
e lo dice uno che non ama particolarmete i "serci" vecchi) e mi parli
"de facioli"?
a.cara


title: R: DISCOGRAFIA

text:
Alessandro Cara <
al...@blunet.it
> wrote in message
3A36AB50...@blunet.it...
> Ma porca miseria Luciano [DOC], a proposito da che vigna vieni? ;=D, si
> parla di Sutri che ha due splendidi resti etruschi (Mitreo e Anfiteatro,
> e lo dice uno che non ama particolarmete i "serci" vecchi) e mi parli
> "de facioli"?
Aho', e io mi ricordo una bella Sagra del Fagiolo vissuta in prima persona
una quindicina di anni fa'...Del resto il fagiolo ha la sua
importanza...:.-))
Saluti.
Luciano
(DOC)


title: Variabile da passare a query

author: Maurizio

text:
Cortesemente ragazzi, sono bloccato, potreste aiutarmi? Grazie
Come devo fare per poter passare una variabile ad una query? Per esempio, ho
una tabella con il campo ID_codice e da una maschera attraverso un bottone
vorrei poter passare il dato ID_codice ad una query che mi filtri solo i
dati che mi interessino relativi a quel ID_codice


title: Variabile da passare a query

author: oliones

text:
Maurizio <
maur...@marchetti.dnet.it
> wrote in message
9lomq6$18r$1...@serv1.iunet.it...

1 pazienza e fede
2 ti ha risposto Silvio Berruti sul post precedente
3 per errore ti ho risposto anche io privatamente :-(


title: progressivare secondo alcune condizioni

author: Marco

text:
Ciao a tutti è la prima volta che scrivo al NG e spero possiate
aiutarmi a risolvere il mio problema:
ho la seguente tabella (collegata, fa parte di un programma di
gestione presenze)
codice   data        causale  valore
118      01/01/03      3        60
118      01/01/03      4        30
118      02/01/03      3        30
117      01/01/03      3        60
117      01/01/03      4        30
117      02/01/03      3        30
e vorrei crearne un'altra uguale con l'aggiunta di un particolare
campo progressivo:
codice   data        causale  valore  progress
118      01/01/03      3        60        1
118      01/01/03      4        30        2
118      02/01/03      3        30        1
117      01/01/03      3        60        1
117      01/01/03      4        30        2
117      02/01/03      3        30        1
ovvero creare un campo progressivo che riparta da 1 ogni volta che
cambia la data o che cambi il codice.
Come fare? Grazie per il vostro aiuto.


title: progressivare secondo alcune condizioni

author: Antonio Biso

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
> Ciao a tutti č la prima volta che scrivo al NG e spero possiate

Devi farlo scrivendo del codice.
Preparati una query sulla tabella che ordini per codice quindi per data.
Poi ti prepari una tabella vuota uguale alla tua, ma con quel campo in piů.
Poi da codice apri due recordset, uno sulla query e uno sulla tabella vuota
Ti fai un ciclo su tutto il recordset della query e, utilizzando delle
variabili d'appoggio, verifichi se il valore del codice o della data č
cambiato rispetto al precedente.
Se non č cambiato incrementi un contatore altrimenti ricominci da 1.
Inoltre, per ogni record scrivi nell'altro recordset, tramite addnew, gli
stessi dati piů il valore del contatore.
Antonio


title: progressivare secondo alcune condizioni

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
> Ciao a tutti è la prima volta che scrivo al NG e spero possiate
Veramente è la seconda, con lo stesso quesito.
Perchè non provi a leggere prima le risposte, invece di continuare a postare
le domande'
Antonio


title: progressivare secondo alcune condizioni

text:
Marco wrote:
>
> Ciao a tutti č la prima volta che scrivo al NG e spero possiate

1) copia della tabella origine
2) aggiunta nuovo campo (ha da esse a null inizialmente)
3) update tabella set progress = nz(dmax("progress","tabella","CODICE =
" & CODICE & " and data = "  & data),0)+1
temo pero' che la soluzione di Biso sia piu' performante
Questa l'ho provata, i risultati ci sono, continuo a essere scettico,
continuero' a farmi i miei bei recordset cosi' come suggerisce Antonio
--
a.cara
Togli qualcosa dall'email


title: progressivare secondo alcune condizioni

text:
Antonio, ho seguito il tuo consiglio e sto scrivendo al NG. Puoi o
potete fornirmi una falsa riga da seguire per la scrittura del codice
necessario alla risoluzione del mio problema? Grazie di tutto. Ciao.
mcor...@parker.com
 (Marco) wrote in message news:<
d4311add.03020...@posting.google.com
>...



title: progressivare secondo alcune condizioni

text:

ua.....ua...ua...ua...
ma allora te li cerchi. Pure questo si chiama marco.
Ti vogliono bene, pero'.



title: progressivare secondo alcune condizioni

author: Roberto da casa

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...

Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID                Contatore e chiave primaria
codice          Numerico
data              Data/ora
causale         Numerico
valore           Numerico
Creati una query che abbia il seguente codice SQL:
SELECT Tabella1.*, DCount("*", "Tabella1", "codice=" & [codice] & " AND
data= #" & Format([data], "mm/dd/yyyy") & "# AND ID < =" & [ID]) AS progress
FROM Tabella1
ORDER BY Tabella1.codice, Tabella1.data, Tabella1.ID;
Se invece il campo codice fosse di tipo Testo, prova con:
SELECT Tabella1.*, DCount("*", "Tabella1", "codice='" & [codice] & "' AND
data= #" & Format([data], "mm/dd/yyyy") & "# AND ID < =" & [ID]) AS progress
FROM Tabella1
ORDER BY Tabella1.codice, Tabella1.data, Tabella1.ID;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: progressivare secondo alcune condizioni

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E4103EC...@blunet.it...
[CUT]
> 1) copia della tabella origine
> 2) aggiunta nuovo campo (ha da esse a null inizialmente)
> 3) update tabella set progress = nz(dmax("progress","tabella","CODICE =
> " & CODICE & " and data = "  & data),0)+1
> temo pero' che la soluzione di Biso sia piu' performante
> Questa l'ho provata, i risultati ci sono, continuo a essere scettico,
> continuero' a farmi i miei bei recordset cosi' come suggerisce Antonio
>
> --
> a.cara
Naturalmente ho postato quella query a Marco solo per farti piacere e per
permetterti quindi di bestemmiare in piena libertà! :-))



title: progressivare secondo alcune condizioni

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
>
mcor...@parker.com
 (Marco) wrote in message
news:<
d4311add.03020...@posting.google.com
>...
> > Ciao a tutti č la prima volta che scrivo al NG e spero possiate
> > aiutarmi a risolvere il mio problema:
> > ho la seguente tabella (collegata, fa parte di un programma di
> > gestione presenze)
> >
> > codice   data        causale  valore
> > 118      01/01/03      3        60
> > 118      01/01/03      4        30
> > 118      02/01/03      3        30
> > 117      01/01/03      3        60
> > 117      01/01/03      4        30
> > 117      02/01/03      3        30
> >
> > e vorrei crearne un'altra uguale con l'aggiunta di un particolare
> > campo progressivo:
> >
> > codice   data        causale  valore  progress
> > 118      01/01/03      3        60        1
> > 118      01/01/03      4        30        2
> > 118      02/01/03      3        30        1
> > 117      01/01/03      3        60        1
> > 117      01/01/03      4        30        2
> > 117      02/01/03      3        30        1
> >
> > ovvero creare un campo progressivo che riparta da 1 ogni volta che
> > cambia la data o che cambi il codice.
> >
> > Come fare? Grazie per il vostro aiuto.
> Antonio, ho seguito il tuo consiglio e sto scrivendo al NG. Puoi o
> potete fornirmi una falsa riga da seguire per la scrittura del codice
> necessario alla risoluzione del mio problema? Grazie di tutto. Ciao.
Magari se replicavi al vecchio thread con la mia risposta era meglio...
dim rst1 as recordset, rst2 as recordset
dim oldcod as string, olddata as string
dim i  as integer, cod as integer
set rst1 = currentdb.openrecordset("Queryordinata")
set rst2 = currentdb.openrecordset("Nuovatab")
oldcod = "W JUVE"
oldData = "01-01-01"
rst1.movefirst
do until rst1.EOF
  newcod = rst1.fields("cod")
  newData = rst1.fields("data")
  if newcod <> oldcod or newdata <> olddata then
    cont = 1
  else
    cont = cont + 1
  end if
  rst2.addnew
  for i = 0 to rst1.fields.count - 1
    rst2.fields(i) = rst1.fields(i)
  next i
  rst2.fields("prog") = cont
  rst2.update
  rst1.movenext
  oldcod = newcod
  olddata = newdata
loop
set rst1 = nothing
set rst2 = nothing
Buttata giů ad occhio senza testarla...
Antonio


title: progressivare secondo alcune condizioni

text:

uhmmm.... dobbiamo sperare che abbia l'id.
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------



title: progressivare secondo alcune condizioni

text:
Roberto da casa wrote:
[cut]
>
> Naturalmente ho postato quella query a Marco solo per farti piacere e per
> permetterti quindi di bestemmiare in piena libertà! :-))
>
sarebbe cmq molto "dura". Dovrei fare il fioretto sul fioretto.
L'innominabile sta facendo di tutto per farmelo rompere



title: progressivare secondo alcune condizioni

text:
Marco wrote:
>
> Antonio, ho seguito il tuo consiglio e sto scrivendo al NG. Puoi o
> potete fornirmi una falsa riga da seguire per la scrittura del codice
> necessario alla risoluzione del mio problema? Grazie di tutto. Ciao.
marco! il codice del Biso non e' buono.
Contiene un errore fondamentale.



title: progressivare secondo alcune condizioni

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E4160BE...@blunet.it...
> Marco wrote:
> >
> > Antonio, ho seguito il tuo consiglio e sto scrivendo al NG. Puoi o
> > potete fornirmi una falsa riga da seguire per la scrittura del codice
> > necessario alla risoluzione del mio problema? Grazie di tutto. Ciao.
>
> marco! il codice del Biso non e' buono.
> Contiene un errore fondamentale.
Stai parlando della Juve, o di qualcosa di serio?!?
Antonio


title: progressivare secondo alcune condizioni

text:

ovviamente, la prima che hai detto



title: progressivare secondo alcune condizioni

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E415F2F...@blunet.it...
[CUT]
> uhmmm.... dobbiamo sperare che abbia l'id.
Se ce lo ha bene, in caso contrario si crea comunque un campo calcolato in
cui si determina un valore univoco e si adopera quello (al limite un campo
progressivo che parte da 1).
> a.cara
> Togli qualcosa dall'email
--



title: progressivare secondo alcune condizioni

text:
Ciao Antonio, grazie per il codice che mi hai mandato. Quando provo ad
eseguirlo perň viene visualizzato un messaggio bloccante "errore di
run time 13: tipo non corrispondente" ed il debug evidenzia la linea
"Set rst1 = CurrentDb.OpenRecordset("Queryordinata")". Premetto che
prima di lanciare il codice ho creato i due oggetti a cui tu fai
riferimento ("queryordinata" e "nuovatabella"). Che faccio? Grazie e
ciao.
P.S. Ieri effettivamente ho fatto un pň di casino con i post,
rimandando lo stesso 2 volte!!
"Antonio Biso" <
ch...@etruria.net
> wrote in message news:<38d0a.85665$
YG2.2...@twister1.libero.it
>...



title: progressivare secondo alcune condizioni

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
> Ciao Antonio, grazie per il codice che mi hai mandato. Quando provo ad
PRIMO: scrivi correttamente DOPO il quoting
> eseguirlo però viene visualizzato un messaggio bloccante "errore di
> run time 13: tipo non corrispondente" ed il debug evidenzia la linea
> "Set rst1 = CurrentDb.OpenRecordset("Queryordinata")". Premetto che
> prima di lanciare il codice ho creato i due oggetti a cui tu fai
> riferimento ("queryordinata" e "nuovatabella"). Che faccio? Grazie e
> ciao.
Tu hai definito rst1 come recordset?
Il problema però può essere che usi A2000 e quindi ci sono le librerie ADO
che io non conosco e non uso e non so la sintassi.
Deve essere solo lì il problema.
Lancia un thread sulla sintassi DAO/ADO caso mai...
o guardati l'help sulla dichiarazione e l'uso dei recordset
Antonio


title: progressivare secondo alcune condizioni

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
> Ciao Antonio, grazie per il codice che mi hai mandato. Quando provo ad
> eseguirlo perň viene visualizzato un messaggio bloccante "errore di
> run time 13: tipo non corrispondente" ed il debug evidenzia la linea
> "Set rst1 = CurrentDb.OpenRecordset("Queryordinata")". Premetto che
> prima di lanciare il codice ho creato i due oggetti a cui tu fai
> riferimento ("queryordinata" e "nuovatabella"). Che faccio? Grazie e
> ciao.
>
Nel codice VBA che ti ha postato Antonio, sostituisci questa riga:
dim rst1 as recordset, rst2 as recordset
 con:
dim rst1 as DAO.recordset, rst2 as DAO.recordset
e poi aggiungi al tuo database i riferimenti alla libreria Microsoft DAO.



title: progressivare secondo alcune condizioni

text:
FUNZIONA!!!! Grazie Roberto e grazie Antonio! Farň tesoro dei
suggerimenti che dispensate quotidianamente sul NG quindi........mi
metterň a studiare qualche manuale di codice per Access.
Ciao e grazie ancora.
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<xGu0a.88454$
YG2.2...@twister1.libero.it
>...



title: progressivare secondo alcune condizioni

author: IppoSoft

text:
On Wed, 05 Feb 2003 18:57:03 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:
>oldcod = "W JUVE"
Bel colpo, Biso
>oldData = "01-01-01"
>
>rst1.movefirst
>do until rst1.EOF
>  newcod = rst1.fields("cod")
>  newData = rst1.fields("data")
>  if newcod <> oldcod or newdata <> olddata then
>    cont = 1
>  else
>    cont = cont + 1
>  end if
>  rst2.addnew
>  for i = 0 to rst1.fields.count - 1
>    rst2.fields(i) = rst1.fields(i)
>  next i
>  rst2.fields("prog") = cont
>  rst2.update
>  rst1.movenext
>  oldcod = newcod
>  olddata = newdata
>loop
>
>set rst1 = nothing
>set rst2 = nothing
>
>Buttata giů ad occhio senza testarla...
>
>Antonio
>
Una domandina un po' OT:
ma dove č possibile leggere e imparare bene la sintassi di questi
comandi relativi ai recordset?
Per esempio vedo che rst.fields accetta sia un parametro stringa es:
("cod") che un parametro numerico (i).
Mi piacerebbe inparerne di piů
Grazie
Filippo


title: progressivare secondo alcune condizioni

text:
"IppoSoft" <
ma...@studiovinciguerra.it
> ha scritto nel messaggio
news:mv674v0qfb1hkrcs2...@4ax.com...
> On Wed, 05 Feb 2003 18:57:03 GMT, "Antonio Biso" <
ch...@etruria.net
>
> wrote:
>
>
> >oldcod = "W JUVE"
>
> Bel colpo, Biso
Ehe eh ee
> >Buttata giù ad occhio senza testarla...
> >
> >Antonio
> >
>
>
> Una domandina un po' OT:
> ma dove è possibile leggere e imparare bene la sintassi di questi
> comandi relativi ai recordset?
> Per esempio vedo che rst.fields accetta sia un parametro stringa es:
> ("cod") che un parametro numerico (i).
> Mi piacerebbe inparerne di più
Io ho imparato queste cose facendo le prove e spulciando pesantemente l'help
on line.
Ovviamente la parte di algoritmo è un retaggio dell'università, quando ti
insegnavano 'ste cose, i cicli ecc., ma nulla che con l'esperienza non si
possa imparare.
Però va "perso" (e sottolineo le virgolette) del tempo con l'help!!!
Antonio


title: progressivare secondo alcune condizioni

text:
"Marco" <
mcor...@parker.com
> ha scritto nel messaggio
news:d4311add.03020...@posting.google.com...
> FUNZIONA!!!! Grazie Roberto e grazie Antonio! Farò tesoro dei
> suggerimenti che dispensate quotidianamente sul NG quindi........mi
> metterò a studiare qualche manuale di codice per Access.
Se poi studiassi anche il post "istruzioni per l'uso" di Roberto, dove trovi
anche che si scrive DOPO il quoting, sarebbe anche meglio!!!
Antonio


title: ocx per planning

author: Thomas

text:
salve
qualcuno conosce qualche buon ocx free o a pagamento per poter gestire
pianificazini di lavori tenendo conto di disponibilità di macchinari e
operatori?
ciao, T.


title: ocx per planning

author: Alessandro Baraldi

text:

Io realizzai qualche cosa di simile con codice VBA partendo da un Demo
del SC sul Planning:
Sezione REPORTS
4.5 Rappresentazione, su Report, di periodi temporali mediante
segmenti.
Chiaramente ho rielaborato in modo massiccio il demo, ma offriva
notevoli spunti di base per ottenere in modo nativo un risultato
discreto senza alcun componente
esterno.
Il tutto era rivolto alla generazione i diagrammi di GANTT per
attività di Manutenzione programmata di macchinari rivolta ad impianti
industriali.
Hai pensato in alternativa di usare PROJECT che tramite OLE è
completamente programmabile via VBA....?
@Alex


title: ocx per planning

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:537b489e-4853-41d7...@l64g2000hse.googlegroups.com...




@Alex
----
preferirei fare tutto a manina...ma non ho tempo purtroppo. per questo
cercavo qualcosa di pronto tipo ocx almeno per togliermi di mezzo la
gestione dei controlli sulle sovrapposizioni dei periodi, slittamenti,
blocchi macchina etc
do una occhiata a project
grazie, ciao


title: ocx per planning

text:
....
> preferirei fare tutto a manina...ma non ho tempo purtroppo. per questo
> cercavo qualcosa di pronto tipo ocx almeno per togliermi di mezzo la
> gestione dei controlli sulle sovrapposizioni dei periodi, slittamenti,
> blocchi macchina etc
Beh sinceramente dubito ci possa essere un controllo che ti possa
evitare quello che hai appena detto...
Di solito la verifica delle sovrapposizioni la si fà nelle query con
SubQuery ad esclusione di periodi ... in quanto ho forti perplessità
che un OCX esterno sia così complesso da addirittura restituire
proprietà/Eventi in caso di sovrapposizioni o altre condizioni...!
Ritengo improbabile la cosa, invece sarà quasi certo che l'OCX o
chicchessia
ti permetta di disegnare o tracciare tutto quello che tu gli dici di
tracciare...(quindi previo controlli).
> do una occhiata a project
>
> grazie, ciao
Ciao
@Alex


title: ocx per planning

author: merco

text:
ci sono anche cose di questo tipo
http://www.netronic.com/products-for-developers/gantt-charts.html
http://www.softscout.com/software/Productivity-and-Desktop-Publishing/RegNow/Software/RSGantt.html
e poi a memoria un GanttOCX


title: ocx per planning

text:
On 8 Mag, 16:54, merco <
d.merca...@gmail.com
> wrote:
> ci sono anche cose di questo tipohttp://
www.netronic.com/products-for-developers/gantt-charts.htmlhttp://www.softscout.com/software/Productivity-and-Desktop-Publishing.
..
> e poi a memoria un GanttOCX
Nessuno dei quali è espressamente dichiarato supportato da Access... e
purtroppo è un requisito fondamentale in quanto molti OCX ottimi
funzionanti in VB6 ... poi con Access generano molti problemi o bugs
non risolvibili, oltre che a non esporre regolarmente Proprietà/Metodi/
Eventi.
Non confondiamo gli OCX standard sviluppati per/con NET come fossero
OCX fruibili da tutti gli applicativi.
Tutta la suite Office per queste cose ha forti limiti.
@Alex


title: non ripetere campi non chiave primaria

author: marco

text:
ciao a tutti,
in un db ho la necessitą di non ripetere 3 campi non chiave primaria.
ho una tabella padre con6 campi...una chiave primaria - 2 normali - 3 che
non devono mai essere uguali in combinazione (non li posso mettere come
chiave primari altrimenti le relazioni vanno a farsi friggere)!
č possibile?
grazie a tutti!
Marco


title: non ripetere campi non chiave primaria

text:
"marco" <
gro...@katamail.com
> ha scritto nel messaggio
news:b3Y9g.11649$bH.1...@tornado.fastwebnet.it...
> ciao a tutti,
> in un db ho la necessità di non ripetere 3 campi non chiave primaria.
> ho una tabella padre con6 campi...una chiave primaria - 2 normali - 3 che
> non devono mai essere uguali in combinazione (non li posso mettere come
> chiave primari altrimenti le relazioni vanno a farsi friggere)!
> è possibile?
Apri la struttura della tua tabella e dichiarati un indice che risulti
dall'insieme di quei tre campi, quindi imposta a Si la proprietà Univoco di
quell'indice.
>
> grazie a tutti!
Prego
> Marco
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: non ripetere campi non chiave primaria

text:
>> ciao a tutti,
>> in un db ho la necessità di non ripetere 3 campi non chiave primaria.
>> ho una tabella padre con6 campi...una chiave primaria - 2 normali - 3 che
>> non devono mai essere uguali in combinazione (non li posso mettere come
>> chiave primari altrimenti le relazioni vanno a farsi friggere)!
>> è possibile?
>
> Apri la struttura della tua tabella e dichiarati un indice che risulti
> dall'insieme di quei tre campi, quindi imposta a Si la proprietà Univoco
> di
> quell'indice.
scusami tanto, ma sono un po' intero con access...come posso fare a
"dichiarare un indice che risulti dall'insieme di quei 3 campi"?
grazie mille



title: non ripetere campi non chiave primaria

text:
"marco" <
gro...@katamail.com
> ha scritto nel messaggio
news:iNY9g.11766$bH....@tornado.fastwebnet.it...
> >> ciao a tutti,
> >> in un db ho la necessità di non ripetere 3 campi non chiave primaria.
> >> ho una tabella padre con6 campi...una chiave primaria - 2 normali - 3
che
> >> non devono mai essere uguali in combinazione (non li posso mettere come
> >> chiave primari altrimenti le relazioni vanno a farsi friggere)!
> >> è possibile?
> >
> > Apri la struttura della tua tabella e dichiarati un indice che risulti
> > dall'insieme di quei tre campi, quindi imposta a Si la proprietà Univoco
> > di
> > quell'indice.
>
> scusami tanto, ma sono un po' intero con access...come posso fare a
> "dichiarare un indice che risulti dall'insieme di quei 3 campi"?
Apri la struttura della tabella e dal menu Visualizza seleziona il comando
Indici.
Nella finestra di dialogo che si apre, in una riga vuota digita il nome
dell'indice e nella stessa riga digita o seleziona il nome del primo campo;
nella seconda colonna delle due righe successive digita o seleziona il nome
degli altri due campi; sposta il mouse sul nome dell'indice e imposta a Si
la Proprietà indice Univoco.
>
> grazie mille
Prego.
Comunque se vuoi programmare Access penso che tu debba studiare almeno i
suoi fondamentali.



title: Maschere in Word

author: PRISCO

text:
Salve,
il mio obbiettivo sarebbe quello di inserire in un documento Word
l'immagine completa di una maschera crata con access.
Ho provato ad esportarla con snapshot viewer ma č ben poco gestibile.
Altri suggerimenti?
Stefano Priolo


title: Maschere in Word

author: Novalgina

text:
rendi la maschera pop up (momentaneamente)
quindi fai ALT STAMP
E incolla in word
:)
PRISCO <
pri...@tiscalinet.it
> wrote in message
395ad43...@news.tin.it...



title: Maschere in Word

author: Basjlico

text:
On Tue, 27 Jun 2000 16:20:42 GMT,
pri...@tiscalinet.it
 (PRISCO) wrote:
>Salve,
>il mio obbiettivo sarebbe quello di inserire in un documento Word
>l'immagine completa di una maschera crata con access.
>Ho provato ad esportarla con snapshot viewer ma č ben poco gestibile.
>Altri suggerimenti?
>
>Stefano Priolo
Puoi usare il tasto STAMP che ti incolla il contenuto dello schermo
negli appunti, oppure usare un applicativo tipo Paint Shop Pro che
abbia una funzione di cattura schermo.
Ciao


title: Maschere in Word

text:
Il giorno Tue, 27 Jun 2000 19:34:38 GMT, Basjlico <
basj...@tin.it
> ha
dato fiato alle trombe :
>Puoi usare il tasto STAMP che ti incolla il contenuto dello schermo
>negli appunti, oppure usare un applicativo tipo Paint Shop Pro che
>abbia una funzione di cattura schermo.
Grazie mille, problema risolto!
In effetti non ci avevo proprio pensato
Stefano Priolo
ICQ Uin 21971095


title: Ambiente Multiutente - Database danneggiato

author: alb

text:
Lavoro in una società dove gestico un piccolo DataBase in Access dove la
Grandezza delle Tabelle 12.000 Kb, mentre l'applicativo vero e proprio dove
ho allegato le tabelle è circa 1800 Kb. Malgrado avessi + volte creato un
nuovo db importando gli oggetti (sia tabelle che applicativo) per ripulire
il tutto ogni 2 settimane capita che il database inchiodi riportando il
MSG.: Database danneggiato vuoi recuperare ?
Mi piacerebbe sapere fino a quanti utenti access riesce a gestire in
ambiente multiutente.
grazie


author: ALESSANDRO Baraldi

text:
"alb" <
dona...@yhaoo.it
> ha scritto nel messaggio
news:brfv9n$djg$1...@lacerta.tiscalinet.it...

Il limite dichiarato da MS è di 255, ma non ti consiglio di superare la 10,
Quando lavori con 10 utenti perchè il DB risponda deve essere strutturato
veramente bene sfruttando al massimo l'ottimizzazione delle ricerche grazie
all'utilizzo di QRY parametriche appoggiate a campi INDICIZZATI.
Questo ti permette di ridurre in modo considerevole il traffico di dati in
rete.
Se non strutturi bene la gestione di scambio dati riduci in modo drastico le
prestazioni e anche 3 utenti possono essere troppi.
Ciao.
@Alex


author: sv

text:
ALESSANDRO Baraldi ha scritto:


> Ciao.
> @Alex
A parte le prestazioni, in ambiente multiutente, si è constatato che le
applicazioni si danneggiano quando l'hardware di rete non è ottimale. Vedi
schede Realtek. Ci sarebbe da controllare anche questo.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:brha63$2pa$1...@news.newsland.it...

> rgrds
> SC
Si deve dare per scontato con applicazioni un pò tirate che la rete vada.
Nel caso di un SERVER vero e proprio questo problema è intercettabile
e non provoca nulla, ma Access lavorando con Linked Table è un problema.
Potresti farlo lavorare con Recordset Disconnessi, ma è una follia.
In pratica nel Client ti carichi il Recordset in una TempTable e se nel
caricamento
hai errore te ne accorgi.
Se hai errore in un UPDATE te ne accorgi.......!!!!
E' un pò una scocciatura, ma al di là di appesantire il Client alleggerisci
il Server
poichè fatta l'interrogazione e ricevuti i dati lo hai liberato.
Questo è molto valido se molti client hanno l'accesso in ReadONly.
Se li tieni sempre connessi inzuppano la rete, se invece conuna Routine gli
rinnovi
il Recordset ogni X Tempo hai una gestione del Server molto meno pesante.
Addirittura potresti gestire gli aggiornamenti delle TempTable
Locali(Client) in modo
da non intralciare gli altri Client, basterebbe un Flag......!
L'applicazione si complica, ma queste sono valutazioni da fare....!
@Alex.


text:
ALESSANDRO Baraldi ha scritto:




> @Alex.
Sono perfettamente d'accordo.
Ora ti dico una cosa che forse non ti potrà piacere ma che va avanti nella
mia azienda da anni. Devi tener presente che in azienda abbiamo due reti
interconnesse con una dorsale in fibra ottica in due uffici distanti tra
di loro circa 700 mt. Come avrei potuto fare per aggiornare gli
applicativi? Spostarmi da PC a PC e fare il maratoneta?? Io l'ho risolto
posizionando tutto su i due server. Ogni Utente ha la sua cartella con la
sua applicazione. Dal mio posto controllo tutta la rete, aggiorno i
client, controllo le tabelle, backup etc. senza perdere tempo oltre quello
necessario. Non ho SQL, ma non ho mai avuto un database corrotto. Non ci
sono mai rallentamenti. La rete però è con la R maiuscola i server sono al
top, l'hub (non posso fare pubblicità) è quanto di meglio ci possa essere.
Sono convinto, pertanto, che l'hardware estremamente importante in queste
cose.



text:
"sv" <
salv...@nospbox.enel.it
> ha scritto nel messaggio
news:brhc73$9vv$1...@news.newsland.it...
[CUT]
>
> Sono perfettamente d'accordo.
> Ora ti dico una cosa che forse non ti potrà piacere ma che va avanti nella
> mia azienda da anni. Devi tener presente che in azienda abbiamo due reti
> interconnesse con una dorsale in fibra ottica in due uffici distanti tra
> di loro circa 700 mt. Come avrei potuto fare per aggiornare gli
> applicativi? Spostarmi da PC a PC e fare il maratoneta?? Io l'ho risolto
> posizionando tutto su i due server. Ogni Utente ha la sua cartella con la
> sua applicazione. Dal mio posto controllo tutta la rete, aggiorno i
> client, controllo le tabelle, backup etc. senza perdere tempo oltre quello
> necessario. Non ho SQL, ma non ho mai avuto un database corrotto. Non ci
> sono mai rallentamenti. La rete però è con la R maiuscola i server sono al
> top, l'hub (non posso fare pubblicità) è quanto di meglio ci possa essere.
> Sono convinto, pertanto, che l'hardware estremamente importante in queste
> cose.
> rgrds
> SC
Secondo me ci sono molti modi per gestire lae applicazionin rete.
Io quando aggiorno il CLIENT risdistribuisco via Posta il LINK
è solo da Clickkare disinstalla il Vecchio ed installa il nuovo.
Ma non è la soluzione ideale.
Tieni conto che ogni azienda ha lacune dovute spesso al Budget.
Da me e ti assicuro che è un'azienda grossa a livello Nazionale
si va ancora con SERVER SQL 6, gira tutto con Access97, ma và.
La rete è una ONE delle più grosse in Italia.
Quello che ritengo migliore è sviluppare applicazioni o in PHP o ASP
in quel modo se aggiorni il ServerWeb hai aggiornato tutto in un solo colpo.
Come DB puoi smpre usare Access(Sempre con le limitazioni del caso).
Non devi girare come un matto a destra e sinistra il ServerWeb lo tieni
comodo.
Poi si fa di necessità virtù e ci si arrangia con i propri mezzi......!
Ciao.
@Alex.


text:
ALESSANDRO Baraldi ha scritto:
<cut>
> Secondo me ci sono molti modi per gestire lae applicazionin rete.
> Io quando aggiorno il CLIENT risdistribuisco via Posta il LINK
> è solo da Clickkare disinstalla il Vecchio ed installa il nuovo.
> Ma non è la soluzione ideale.
Ci sono colleghi a cui debbo ancora spiegare il Copia/Incolla...
> Tieni conto che ogni azienda ha lacune dovute spesso al Budget.
> Da me e ti assicuro che è un'azienda grossa a livello Nazionale
> si va ancora con SERVER SQL 6, gira tutto con Access97, ma và.
> La rete è una ONE delle più grosse in Italia.
> Quello che ritengo migliore è sviluppare applicazioni o in PHP o ASP
> in quel modo se aggiorni il ServerWeb hai aggiornato tutto in un solo colpo.
> Come DB puoi smpre usare Access(Sempre con le limitazioni del caso).
> Non devi girare come un matto a destra e sinistra il ServerWeb lo tieni
> comodo.
> Poi si fa di necessità virtù e ci si arrangia con i propri mezzi......!
Se sapessi che lotte per avere certe cose!!!
> Ciao.
> @Alex.



title: query su relazione 1 a n

author: vedoNero

text:
ho una relazione 1:n (per esempio studenti - esami: uno studente da più
esami)
studenti (idS, nome)
esami (idE, idS_FK, materia, voto, data)
supponiamo che lo studente s1 abbia dato gli esami e1, e2, e3
supponiamo che lo studente s2 abbia dato gli esami e1, e2
supponiamo che lo studente s3 abbia dato gli esami e1
devo fare una query per sapere chi ha superato gli esami e1, e2 (che
quindi mi dovrebbe restituire gli studenti s1 e s2)
NON CI RIESCO: perchè scrivendo:
SELECT studenti.nome, esami.materia
FROM studenti INNER JOIN esami ON
studenti.id
 = esami.idS_FK
WHERE (((esami.materia)="e1" And (esami.materia)="e2"));
non restuisce nulla (giustamente) dato che i 2 esami sono su record
DIVERSI della tabella esami e quindi la condizione AND non è mai vera
Problema: come potrei fare? E' il database progettato male?
P.S.: utilizzo MySql
grazie
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: query su relazione 1 a n

author: Geppo Beach

text:
Ciao "vedoNero" <
lui...@tiscali.it
> ha scritto nel messaggio
news:i2bec0$v7r$1...@news.newsland.it...
> ho una relazione 1:n (per esempio studenti - esami: uno studente da più
> esami)
>
> studenti (idS, nome)
> esami (idE, idS_FK, materia, voto, data)
>
> supponiamo che lo studente s1 abbia dato gli esami e1, e2, e3
> supponiamo che lo studente s2 abbia dato gli esami e1, e2
> supponiamo che lo studente s3 abbia dato gli esami e1
>
> devo fare una query per sapere chi ha superato gli esami e1, e2 (che
> quindi mi dovrebbe restituire gli studenti s1 e s2)
>
> NON CI RIESCO: perchè scrivendo:
>
> SELECT studenti.nome, esami.materia
> FROM studenti INNER JOIN esami ON
studenti.id
 = esami.idS_FK
> WHERE (((esami.materia)="e1" And (esami.materia)="e2"));
>
> non restuisce nulla (giustamente) dato che i 2 esami sono su record
> DIVERSI della tabella esami e quindi la condizione AND non è mai vera
e se usi l'operatore "or" invece di "and"?
> Problema: come potrei fare? E' il database progettato male?
>
> P.S.: utilizzo MySql
>
> grazie
> ciao
--
Ciao
Geppo


title: query su relazione 1 a n

text:
Geppo Beach ha scritto:
> Ciao "vedoNero" <
lui...@tiscali.it
> ha scritto nel messaggio
> news:i2bec0$v7r$1...@news.newsland.it...
> > ho una relazione 1:n (per esempio studenti - esami: uno studente da più
> > esami)
> >
> > studenti (idS, nome)
> > esami (idE, idS_FK, materia, voto, data)
> >
> > supponiamo che lo studente s1 abbia dato gli esami e1, e2, e3
> > supponiamo che lo studente s2 abbia dato gli esami e1, e2
> > supponiamo che lo studente s3 abbia dato gli esami e1
> >
> > devo fare una query per sapere chi ha superato gli esami e1, e2 (che
> > quindi mi dovrebbe restituire gli studenti s1 e s2)
> >
> > NON CI RIESCO: perchè scrivendo:
> >
> > SELECT studenti.nome, esami.materia
> > FROM studenti INNER JOIN esami ON
studenti.id
 = esami.idS_FK
> > WHERE (((esami.materia)="e1" And (esami.materia)="e2"));
> >
> > non restuisce nulla (giustamente) dato che i 2 esami sono su record
> > DIVERSI della tabella esami e quindi la condizione AND non è mai vera
> e se usi l'operatore "or" invece di "and"?
non posso dato che mi visualizerebbe anche chi ha superato solo e1 oppure
solo e2, vorrei visualizzare solo chi li ha superati entrambi.
> > Problema: come potrei fare? E' il database progettato male?
> >
> > P.S.: utilizzo MySql
> >
> > grazie
> > ciao
--



title: query su relazione 1 a n

author: Karl Donaubauer

text:
vedoNero wrote:
> ho una relazione 1:n (per esempio studenti - esami: uno studente da
> più esami)
>
> studenti (idS, nome)
> esami (idE, idS_FK, materia, voto, data)
>
> supponiamo che lo studente s1 abbia dato gli esami e1, e2, e3
> supponiamo che lo studente s2 abbia dato gli esami e1, e2
> supponiamo che lo studente s3 abbia dato gli esami e1
>
> devo fare una query per sapere chi ha superato gli esami e1, e2 (che
> quindi mi dovrebbe restituire gli studenti s1 e s2)
>
> NON CI RIESCO: perchè scrivendo:
>
> SELECT studenti.nome, esami.materia
> FROM studenti INNER JOIN esami ON
studenti.id
 = esami.idS_FK
> WHERE (((esami.materia)="e1" And (esami.materia)="e2"));
>
> non restuisce nulla (giustamente) dato che i 2 esami sono su record
> DIVERSI della tabella esami e quindi la condizione AND non è mai
> vera
>
> Problema: come potrei fare? E' il database progettato male?
>
> P.S.: utilizzo MySql
Ci sono diversi varianti. Puoi provare qual'è la meno lenta di p.e.
SELECT T1.nome, T2.materia
FROM studenti AS T1
    INNER JOIN esami AS T2 ON T1.idS = T2.idS_FK
WHERE EXISTS
(
SELECT idS_FK
FROM esami
WHERE idS_FK = T1.idS AND materia In ("e1","e2")
GROUP BY idS_FK
HAVING Count(idS_FK)>1
)
SELECT T1.nome, T2.materia
FROM studenti AS T1
    INNER JOIN esami AS T2 ON T1.idS = T2.idS_FK
WHERE T1.idS IN
    (SELECT idS_FK FROM esami WHERE materia ="e1")
AND T1.idS IN
    (SELECT idS_FK FROM esami WHERE materia ="e2")
Certo nella query principale puoi sempre aggiungere
T2.materia In ("e1","e2")
per solo avere risultati con queste due materie anche per s1.
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: query su relazione 1 a n

text:
Karl Donaubauer ha scritto:





ora provo 1.000 grazie



title: Scelta Campo per query

author: marco esus

text:
Ciao ragazzi e da tanto che non vi scrivo.
Potreste aiutarmi :
Ho sviluppato una query che scarica,attraverso maschera "CommMarket", la
quantità di prodotti dall'esistenza di magazzino "Articoli".
Ora però avendo introdotto un altro "magazzino" [esist_mag2] ho la
necessita di far digitare all'utente il nome del magazzino dal quale vuole
scaricare il prodotto cioè se da [esist_mag1] o [esist_mag2] per ogni
record della Maschera" CommMarket".
Come posso fare?
Questa è la query che esegue lo scarico da [esist_mag1]
UPDATE ARTICOLI INNER JOIN RigheLavorMarket ON
ARTICOLI.ID
 =
RigheLavorMarket.Descrizione SET ARTICOLI.ESIST_MAG1 =
[esist_mag1]-[righelavormarket].[Qscar], RigheLavorMarket.Q1 = False
WHERE (((RigheLavorMarket.Q1)=True) AND
((RigheLavorMarket.Descrizione)=[articoli].[ID]));
Grazie, mi siete mancati parecchio.Saluti Marco
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Scelta Campo per query

text:
[marco Cut...]
Ragazzi?



title: Unire ad una lettera word dati di Access

author: michele

text:
Salve, avrei la necessità di riportare in una lettera tipo di word i dati
elaborati da una query di access2000.
La difficoltà stà nel fatto che alcune informazioni legate ad un record sono
del tipo uno a molti es:
				Spett.le michele
Documenti richiesti
documento 1
documento 2
documento 3
       Si richiede , pertanto, ....... ecc..
Non credo che con la classica stampa unione si riesca ad ottenere qualcosa
se si come dovrei fare?
grazie mille
michele
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: CIDI

text:
"michele" <
mi...@inwind.it
> ha scritto nel messaggio
news:93Z42Z99Z104Y1...@usenet.libero.it...
> Salve, avrei la necessità di riportare in una lettera tipo di word i dati
> elaborati da una query di access2000.
> La difficoltà stà nel fatto che alcune informazioni legate ad un record
> sono
> del tipo uno a molti es:
>
> Spett.le michele
>
> Documenti richiesti
>
> documento 1
> documento 2
> documento 3
>
>       Si richiede , pertanto, ....... ecc..
>
>
> Non credo che con la classica stampa unione si riesca ad ottenere qualcosa
> se si come dovrei fare?
> grazie mille
>
> michele
>
qua ci trovi un esempio:
www.sitocomune.com
6.137 Esempio di automazione per l'invio e la formattazione di dati da
Access a Word usando i bookmarks
ciao
Daniele


title: Operare su Word da Access

text:
Ho scritto un programma in ACCESS e ora vorrei produrre delle stampe in
Word, però nella guida non riesco a trovare riferimenti per usare VBA di
Word, qualcuno saprebbe indicarmi dove posso trovare delle indicazioni su
come stampare da Access in Word?
Ciao e grazie
--
"Stupido è chi lo stupido fà signore!"


title: Operare su Word da Access

author: Emyr

text:
On Thu, 31 Jan 2002 15:43:58 GMT, "Kenshiro2000"
<
kenshi...@libero.it
> wrote:
>Ho scritto un programma in ACCESS e ora vorrei produrre delle stampe in
>Word, però nella guida non riesco a trovare riferimenti per usare VBA di
>Word, qualcuno saprebbe indicarmi dove posso trovare delle indicazioni su
>come stampare da Access in Word?
>
>Ciao e grazie
esempio....
Private Sub perizia_Click()
If IsNull(Me.posizione) Or Me.posizione = "" Then
    Me.posizione.SetFocus
    MsgBox ("Specifica il percorso dove registrare la Perizia")
    Exit Sub
End If
Dim trovato, nomefile
trovato = ""
nomefile = Me.posizione & Me.numero.Value & Me.compagnia.[Column](1) &
".doc"
trovato = Dir(nomefile)
If trovato = "" Then
If IsNull(Me!numero) Or Me.numero = "" Then
    Exit Sub
End If
Dim acapp As Word.Application
Dim doc As Word.Document
Set acapp = New Word.Application
Set doc = acapp.Documents.Add
Dim db As Database
Set db = CurrentDb()
Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT sinistro.*,
compagnia.descrizionecompagnia FROM sinistro LEFT JOIN compagnia ON
sinistro.compagnia = compagnia.compagnia where numero = " & Me.numero)
If rs.EOF Then
    rs.Close
    Set db = Nothing
    Exit Sub
End If
With acapp.Selection.Font
    .Bold = True
    .Name = "Tahoma"
    .Size = 14
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    ' un pollice equivale a 72 punti un pollice a 2.54 cm un cm a 28
punti
    Dim a
    For a = 1 To 17
        acapp.Selection.ParagraphFormat.TabStops.Add Position:=a *
28.35
    Next
    acapp.Selection.TypeText ("LI.DA.V.")
    .Bold = False
    .Size = 11
    acapp.Selection.TypeText (" - Perizie Assicurative" & vbCrLf)
    .Bold = True
    .Size = 12
    acapp.Selection.TypeText ("GESTIONE E LIQUIDAZIONE DANNI" &
vbCrLf)
    .Bold = False
    .Size = 11.5
    acapp.Selection.TypeText ("Sede di: 31021 MOGLIANO
V.TO
 (TV) Via
XXIV Maggio, 29" & vbCrLf & "Tel. 041/5906510 r.a. Fax-Modem
041/5934119" & vbCrLf & "Sito WEB
www.lidav.it
 E-Mail
li...@lidav.com
"
& vbCrLf & vbCrLf & vbCrLf)
    .Bold = True
    .Size = 12
    .Name = "Times new roman"
    acapp.Selection.TypeText ("All'Agenzia di" & vbTab & vbTab &
vbTab)
    .Bold = False
    acapp.Selection.TypeText (rs![agenzia] & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("COMPAGNIA" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![descrizionecompagnia] & vbCrLf &
vbCrLf)
    acapp.Selection.TypeText ("POLIZZA N.°" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![Polizza] & vbTab & vbTab & vbTab &
vbTab & vbTab & "RAMO " & rs![ramo] & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("SINISTRO N.°" & vbTab & vbTab & ":" &
vbTab)
    acapp.Selection.TypeText (rs![sinistroagenzia] & vbTab & vbTab &
"DEL            " & "RAMO    ES." & rs![annoriferimento] & vbCrLf &
vbCrLf)
    acapp.Selection.TypeText ("DITTA ASSICURATA" & vbTab & ":" &
vbTab)
    .Bold = True
    acapp.Selection.TypeText (rs![assicurato] & vbCrLf & vbCrLf)
    .Bold = False
    acapp.Selection.TypeText ("In relazione al Vs. incarico del " &
rs![dataincarico] & ", si allega copia dell'atto di liquidazione
amichevole sottoscritto per:" & vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("£. " & rs![liquidato] & "      " &
vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("autorizzandovene il pagamento." &
vbCrLf & vbCrLf)
    acapp.Selection.TypeText ("Padova, lì " & vbCrLf & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    acapp.Selection.TypeText ("p. LIDAV s.a.s. " & vbCrLf)
    acapp.Selection.TypeText ("p.i. CARLOT " & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    acapp.Selection.InsertBreak wdPageBreak
    .Bold = True
    .Name = "Lucida sans"
    .Size = 12
    acapp.Selection.TypeText ("LI.DA.V." & vbCrLf)
    .Bold = False
    .Size = 9
    acapp.Selection.TypeText ("Perizie Assicurative" & vbCrLf)
    acapp.Selection.TypeText ("GESTIONE E LIQUIDAZIONE DANNI" & vbCrLf
& vbCrLf)
    .Size = 8
    .Color = wdColorBrightGreen
    acapp.Selection.TypeText ("Sede operativa di" & vbCrLf)
    acapp.Selection.TypeText ("Via XXIV Maggio, 29" & vbCrLf)
    acapp.Selection.TypeText ("31021 Mogliano Veneto (TV)" & vbCrLf)
    acapp.Selection.TypeText ("tel 041.5906510 r.a." & vbCrLf)
    acapp.Selection.TypeText ("fax 041.5934119-5906619" & vbCrLf)
    acapp.Selection.TypeText ("E-mail
li...@lidav.com
" & vbCrLf)
    acapp.Selection.TypeText ("
http://www.lidav.it
" & vbCrLf)
    acapp.Selection.TypeText ("P.I. 03096270271" & vbCrLf)
    .Color = wdAuto
    .Name = "arial"
    .Size = 12
    acapp.Selection.TypeText (vbCrLf & vbCrLf)
    .Bold = True
    .Name = "courier"
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    acapp.Selection.TypeText ("RELAZIONE DI PERIZIA DANNI - ")
    .Underline = wdUnderlineWords
    acapp.Selection.TypeText ("FURTO INCENDIO" & vbCrLf)
    .Underline = wdUnderlineNone
    .Bold = False
    acapp.Selection.TypeText (vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment =
wdAlignParagraphJustify
    acapp.Selection.TypeText ("Agenzia" & vbTab & vbTab & vbTab &
rs![agenzia] & vbCrLf)
    acapp.Selection.TypeText ("Compagnia" & vbTab & vbTab &
rs![descrizionecompagnia] & vbCrLf)
    acapp.Selection.TypeText ("Polizza n." & vbTab & vbTab &
rs![Polizza] & vbCrLf)
    acapp.Selection.TypeText ("Mod. Polizza" & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Sin. n." & vbTab & vbTab & vbTab &
rs![sinistroagenzia] & vbCrLf)
    acapp.Selection.TypeText ("del" & vbTab & vbTab & vbTab & vbTab &
vbCrLf)
    acapp.Selection.TypeText ("Premio pagato" & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Denunciato" & vbTab & vbTab & vbCrLf)
    acapp.Selection.TypeText ("Liquidato" & vbTab & vbTab &
rs![liquidato] & vbCrLf)
    acapp.Selection.TypeText ("Accertato" & vbTab & vbTab & vbCrLf &
vbCrLf)
    .Name = "garamond"
    acapp.Selection.TypeText ("CONTRAENTE / ASSICURATO: ")
    .Bold = True
    acapp.Selection.TypeText (rs![assicurato] & vbCrLf)
    .Bold = False
    .Name = "courier"
    acapp.Selection.TypeText (vbCrLf & vbCrLf)
    acapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    acapp.Selection.TypeText ("p. LIDAV s.a.s. " & vbCrLf)
    acapp.Selection.TypeText ("p.i. CARLOT " & vbCrLf)

End With
doc.SaveAs nomefile
rs.Close
Set db = Nothing
doc.Close
Set doc = Nothing
acapp.Quit
Set acapp = Nothing
End If
Set acapp = New Word.Application
Set doc = acapp.Documents.Open(nomefile)
acapp.Visible = True
End Sub
Saluti.
Emanuele.


title: problema grafici in un report

author: Picone

text:
Ciao a tutti,
non riesco a venire a capo del seguente problema:
Ho realizzato un report contenente un grafico che varia dinamicamente a
seconda di un dato campo di una query (un esempio simile si trova nel
database Northwind, report "Vendite per categoria").
Il problema è che, passando da visualizzazione struttura a quella anteprima,
riesco a ottenere i grafici sulle pagine del report solo la prima volta. Le
volte successive Access mi dà due messaggi di errore: il primo è
"Impossibile usare il campo incrociato di una colonna non fissa come
sottoquery" e il secondo è "Errore durante l'invio di dati al server OLE"
(segue una sfilza di spiegazioni che non riesco a decifrare).
Da cosa possono dipendere questi errori?
Come faccio a ottenere un report del genere perfettamente funzionante? Vi
sarei grato se poteste darmi qualche dritta in merito.


title: eliminazione degli zeri in un campo testo

author: Giancarlo

text:
Ciao a tutti. In accessXP ho una tabella con un campo [dato1] di tipo testo
che può contenere i seg. valori:
00123444
00011223
00000011
01AAA21
vuoto
.....
Come faccio a trasformare
00123444 , 00011223 e 00000011
in
123444 , 11223 e 11, rispettivamente?
Per ora sono riuscito, tramite query ad estrarre tutti questi valori,
scrivendo LIKE "########", ma poi?
Grazie a tutti.
Giancarlo


author: MA

text:
"Giancarlo" <
thi...@libero.it
> ha scritto nel messaggio
news:422df036$1...@x-privat.org...

CInt(Tuocampo)
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:KjmXd.4286$tY2....@news.edisontel.com...

Mi restituisce tutti #Errore
Giancarlo


text:
"Giancarlo" <
thi...@libero.it
> ha scritto nel messaggio
news:422e1...@x-privat.org...

ho risolto almeno in parte con  Clng.
Come gestisco tutti gli altri #Errore che risultano con i valori
alfanumerici?
>
> Giancarlo
>
>


text:
"Giancarlo" <
thi...@libero.it
> ha scritto nel messaggio
news:422e18df$1...@x-privat.org...

No, no, tutto ok. ho risolto.
Graazie.
Giancarlo


title: Copia delle chiavi macnanti fra i due DB

author: F. Canova

text:
Ciao a tutti.
Ho due copie dello stesso DB, che però, per qualche arcano motivo, non hanno
una tabella sincroniccata "a macchia di leopardo", nel senso che sono stati
saltati alcuni record a casaccio.
Ora ho sottomano le due copie del DB e vorrei sare com faccio ad estrarre
dalla tabella completa i record mancanti nell'altra.
Io ho provato a creare una query di selezione basata sulle due tabelle (SG e
SG_completa), collegando i due campi chiave (nop) ed inserendo come criterio
di selezione:
campo: nop
tabella: sg_completa
critoerio: not [sg].[nop]
Non mi restituisce nessun valore.
Se tolgo il "not", mi restituisce, correnttamente, tutti i record che sono
sia nella prima che nella seconda, uindi non capisco perché la negazione non
mi restituisca la selezione inversa.
Qualcuno sarebbe così gentile da spiegarmi perché??
Grazie, Fabio.


author: Il Gatto

text:
"F. Canova" <
fa...@fabiocanova.it
> ha scritto nel messaggio
news:ctav2i$sd4$1...@atlantis.cu.mi.it...
> Ciao a tutti.
> Ho due copie dello stesso DB, che però, per qualche arcano motivo, non
> hanno una tabella sincroniccata "a macchia di leopardo", nel senso che
> sono stati saltati alcuni record a casaccio.
> Ora ho sottomano le due copie del DB e vorrei sare com faccio ad estrarre
> dalla tabella completa i record mancanti nell'altra.
Per sapere quali indici mancano in quella incompleta usi qualcosa di simile:
SELECT SG_Completa.Nop FROM SG_Completa WHERE SG_Completa.Nop NOT IN (SELECT
SG.Nop FROM SG)
Se poi vuoi anche completarla con i record mancanti:
INSERT INTO SG (*) SELECT (*) FROM SG_Completa WHERE SG_Completa.Nop NOT IN
(SELECT SG.Nop FROM SG)
che pretende che le due tabelle siano identiche come struttura, sennò al
posto degli * ti smazzi i campi corrispondenti uno a uno.
IG


text:
"Il Gatto" <
no...@nowhere.no
> ha scritto nel messaggio
news:N18Kd.13729$2h5....@tornado.fastwebnet.it...

Grazie mille, sei stato veramente una manna dal cielo!!
Fabio.


title: riferimenti non attivi

author: pizario

text:
sempre per quei problemi relativi a Dao ed a Ado, che sono molto simpatici,
apro un modulo (non di classe) per andare sui riferimenti e questi li trovo
non attivi e di conseguenze non posso modificarli. non mi era mai successo.
sapete darmi qualche suggerimento in merito? sto trascurando qualche cosa
persa nei meandri della mia memoria?
grazie in anticipo di eventuali aiuti o suggerimenti.
mario

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: riferimenti non attivi

text:
"pizario" <
map...@libero.it
> ha scritto nel
messaggio
news:80Z205Z49Z170Y1...@usenet.libero.it...
> sempre per quei problemi relativi a Dao ed a
Ado, che sono molto simpatici,
> apro un modulo (non di classe) per andare sui
riferimenti e questi li trovo
> non attivi e di conseguenze non posso
modificarli. non mi era mai successo.
> sapete darmi qualche suggerimento in merito? sto
trascurando qualche cosa
> persa nei meandri della mia memoria?
> grazie in anticipo di eventuali aiuti o
suggerimenti.
>
> mario
>
Apri un modulo nuovo.
MAssimiliano


title: riferimenti non attivi

text:

grazie amico mio ma, ho gia' provato questa strada. cmq grazie della
risposta.
ciao mario



title: riferimenti non attivi

text:

Prova ad importare tutto in un nuovo db.
MAssimiliano


title: riferimenti non attivi

text:

caro massimiliano non vorrei avvilirti come lo sono io ma questo problema mi
e' venuto fuori proprio perche' per eliminare altri problemi ho creato un
nuovo Db e ci ho importato tutto del vecchio DB :-(((((
sei un amico e ti ringrazio dell'interessamento; non sono un grande
informatico ma ormai anche grazie a queste news ho una piccola dimestichezza
delle cose piu' semplici e quindi se mi puoi e vuoi ancora aiutare
veramente, bisogna che mi dai un'idea anche semplice ma ancora poco
conosciuta.
cmq ti ringrazio ancora della tua cortesia.



title: [SC Sez. Tabelle  1.9] Esempio di come aggiornare la base dati dal FE

author: Visir

text:
Facendo riferimento all'esempio elaborato da Enrico Oemi riportato in
oggetto.
Ho difficoltà a creare un nuovo campo con la funzione:
Function aggiungiCampo(tabella As String, campo As String, tipo As Integer,
_
    Optional dimensioni As Long, Optional incrementa As Boolean = False, _
    Optional default As Variant, Optional descr As String) As Boolean
    Dim tdef As DAO.TableDef, fld As DAO.Field
    Dim prp As DAO.Property
    Set tdef = dbs.TableDefs(tabella)
    Set fld = tdef.CreateField(campo, tipo, dimensioni)
    If fld.Type = dbLong And incrementa = True Then fld.Attributes =
dbAutoIncrField
    If Not IsNull(dimensioni) Then fld.Size = dimensioni
    If Not IsMissing(default) Then fld.DefaultValue = default
    On Error Resume Next
    tdef.Fields.Append fld
    If Not IsMissing(descr) Then
        Set prp = fld.CreateProperty("description", dbText)
        prp.Value = descr
        fld.Properties.Append prp
    End If
    If Err Then
        aggiungiCampo = False
    Else
        aggiungiCampo = True
    End If
End Function
Il problema è che per il parametro tipo ho passato l'enumerazione di Type
dbText come previsto dall'Help per CreateField
ApriBE(CurrentProject.Path & "\Data\dati1.mdb")
AggiungiCampo "TabEntrate", "Scrittura", dbText, 7, False,"Entrata","Nota:")
Chiudi
ma al posto di creare un campo di testo di dimensione 7 crea un campo
oggetto OLE senza valore predefinito e senza descrizione...
HTH
Luca


author: Roberto da casa

text:
"Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
news:E7xof.87046$65.25...@twister1.libero.it...

Innanzitutto nella FAQ di cui sopra non esiste né la funzione ApriBE e
neppure Chiudi, ma esistono le funzioni REL_apriBE e REL_Chiudi.
Inoltre non è quello il modo per richiamare la funzione aggiungiCampo.
Io ho provato ad inserire in un modulo standard di un database di prova
tutto quanto pubblicato nella FAQ 1.9 del Sito Comune ed ho ottenuto senza p
roblemi quello che tu vuoi realizzare usando il seguente codice VBA:
Dim Pippo As Variant
REL_ApriBE ("C:\Roberto\Prove Access\Prove\Visir.mdb")
Pippo = aggiungiCampo("Tabella1", "Scrittura", dbText, 7, False, "Entrata",
"Nota:")
REL_Chiudi
Io uso Access 97: naturalmente se tu usi una versione di Access successiva,
come chiaramente indicato in calce alla FAQ, devi aggiungere al tuo database
i riferimenti allla libreria Microsoft DAO 3.6 Object Library.
>
> HTH
> Luca
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:ZAxof.4705$eD5....@twister2.libero.it...
>
>> ApriBE(CurrentProject.Path & "\Data\dati1.mdb")
>> AggiungiCampo "TabEntrate", "Scrittura", dbText, 7,
> False,"Entrata","Nota:")
>> Chiudi
>>
>
> Innanzitutto nella FAQ di cui sopra non esiste né la funzione ApriBE e
> neppure Chiudi, ma esistono le funzioni REL_apriBE e REL_Chiudi.
Mi sono permesso di rinominare le funzioni ApriBE e Chiudi ma la sostanza
non cambia...
> Inoltre non è quello il modo per richiamare la funzione aggiungiCampo.
> Io ho provato ad inserire in un modulo standard di un database di prova
> tutto quanto pubblicato nella FAQ 1.9 del Sito Comune ed ho ottenuto senza
> p
> roblemi quello che tu vuoi realizzare usando il seguente codice VBA:
>
> Dim Pippo As Variant
> REL_ApriBE ("C:\Roberto\Prove Access\Prove\Visir.mdb")
> Pippo = aggiungiCampo("Tabella1", "Scrittura", dbText, 7, False,
> "Entrata",
> "Nota:")
> REL_Chiudi
Questa è un'osservazione interessante:
Facciamo l'esempio di MsgBox (che è una fuznione)
la posso passare come
MsgBox "Ciao" ...
oppure
MsgRisultato = MsgBox("Ciao", ...) se mi interessa recuperarne il valore
Quindi perchè non passare aggiungicampo senza parentesi?
Se sbaglio in questo ragionamento per favore aiutatemi a capire bene.
> Io uso Access 97: naturalmente se tu usi una versione di Access
> successiva,
> come chiaramente indicato in calce alla FAQ, devi aggiungere al tuo
> database
> i riferimenti allla libreria Microsoft DAO 3.6 Object Library.
>
Access 2003 ma il database è in formato 2k
Senza non mi avrebbe aperto neanche il db...
> --
> Roberto
Grazie.
Comunque adesso riprovo come hai fatto tu.
Luca


text:
"Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
news:a0zof.87270$65.25...@twister1.libero.it...

Hai ragione tu funziona anche scrivendo:
REL_ApriBE ("C:\Roberto\Prove Access\Prove\Visir.mdb")
aggiungiCampo "Tabella1", "Scrittura", dbText, 7, False, "Entrata", "Nota:"
REL_Chiudi
Quindi delle mie osservazione resta valido solo quelle a richiamare con il
giusto nome le funzioni REL_ApriBE e REL_Chiudi.
>
> > Io uso Access 97: naturalmente se tu usi una versione di Access
> > successiva,
> > come chiaramente indicato in calce alla FAQ, devi aggiungere al tuo
> > database
> > i riferimenti allla libreria Microsoft DAO 3.6 Object Library.
> >
>
> Access 2003 ma il database è in formato 2k
> Senza non mi avrebbe aperto neanche il db...
Senza che cosa?
Sicuramente ti avrebbe aperto bormalmente il database anche senza aggiungere
i riferimenti alla libreria Microsoft DAO 3.6 Object Library, ma è
innegabile che le funzioni pubblicate nella FAQ 1.9 del Sito Comune non
avrebbero funzionato correttamente.
Comunque che sistema operativo usi; te lo chiedo in quanto per una triste
esperienza Access 2003 + librerie DAO in ambiente Windows 2000 crea
inspiegabilmente delle segnalazione di errore a torto, bloccando
l'esecuzione dell'applicativo. Si è parlato di questo problema su questo NG
in settembre, ma non si è riusciti a trovare una soluzione.
>
> Grazie.
> Comunque adesso riprovo come hai fatto tu.
>
> Luca
--



text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:KaAof.5010$eD5....@twister2.libero.it...
>
> "Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
> news:a0zof.87270$65.25...@twister1.libero.it...
>>
>> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
>> news:ZAxof.4705$eD5....@twister2.libero.it...
>> >
[CUT]...
>
> Senza che cosa?
> Sicuramente ti avrebbe aperto bormalmente il database anche senza
> aggiungere
> i riferimenti alla libreria Microsoft DAO 3.6 Object Library, ma è
> innegabile che le funzioni pubblicate nella FAQ 1.9 del Sito Comune non
> avrebbero funzionato correttamente.
Le DAO 3.6 sono al 4° posto nei riferimenti
> Comunque che sistema operativo usi; te lo chiedo in quanto per una triste
> esperienza Access 2003 + librerie DAO in ambiente Windows 2000 crea
> inspiegabilmente delle segnalazione di errore a torto, bloccando
> l'esecuzione dell'applicativo. Si è parlato di questo problema su questo
> NG
> in settembre, ma non si è riusciti a trovare una soluzione.
>
Ho modificato la funzione REL_ApriBE in questo modo perchè il mio database
ha una password
Ed ho evitato di dichiarare la varibile MiaAreaLavoro (Dim MiaAreaLavoro As
DAO.Workspace)
tanto la recupero da DBEngine
Public Function REL_ApriBE(nomeBE As String)
    Set DbsP = DBEngine.Workspaces(0).Databases(0)
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(nomeBE, False, False,
";PWD=visir")
End Function
Ora il problema è sempre lo stessto anche utilizzando il modulo copiato
aggiungendo solo l'aggiunta del parametro per la password mi crea sempre un
campo oggetto ole...
Ho anche provato così
Dim b As Boolean
'il variant mi è sembrato eccessivo...
REL_ApriBE(CurrentProject.Path & "\Data\dati1.mdb")
b = aggiungiCampo("TabEntrate", "Scrittura", dbText, 7) 'togliendo gli
argomenti facoltativi...
REL_Chiudi
Stesso risultato TabEntrate.[Scrittura] --> OGGETTO OLE
Arrrggg
Questi sono i veri misteri della vita.(Sarà il solito guasto del tipo: - ma
l'hai attacata la spina?)
Luca


text:
Dimenticavo: WinXP Pro SP2
Access 2003 SP1
FE: mdb Access 2k
BE: mdb Access 2k
"Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
news:rRAof.5070$eD5....@twister2.libero.it...



text:
"Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
news:rRAof.5070$eD5....@twister2.libero.it...
>
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> news:KaAof.5010$eD5....@twister2.libero.it...
> >
> > "Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
> > news:a0zof.87270$65.25...@twister1.libero.it...
> >>
> >> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> >> news:ZAxof.4705$eD5....@twister2.libero.it...
> >> >
> [CUT]...
> >
> > Senza che cosa?
> > Sicuramente ti avrebbe aperto bormalmente il database anche senza
> > aggiungere
> > i riferimenti alla libreria Microsoft DAO 3.6 Object Library, ma è
> > innegabile che le funzioni pubblicate nella FAQ 1.9 del Sito Comune non
> > avrebbero funzionato correttamente.
>
> Le DAO 3.6 sono al 4° posto nei riferimenti
Se puoi spingila ancora più in alto: devono comunque trovarsi prima degli
eventuali riferimenti ADO, altrimenti è come se non li avessi aggiunti; anzi
se non usi la libreria ADO, per tranquillità elimina i riferimenti a tale
libreria.

E' sicuramente possibile, ma per quanto mi riguarda non ho altri
suggerimenti da darti oltre a quello di sistemare correttamente i
riferimenti.



title: ridimensionamento controlli in base a risoluzione video ci sono novità?

text:
ultimamente qualcuno ha scoperto un modo semplice per poter ridimensionare
all'apertura del db tutti i controlli e le form del db in base alla
risoluzione video impostata in quel momento?
Grazie.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cmvnon$9la$1...@lacerta.tiscalinet.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Alberto Marchi intitolata "Ridimensionamento automatico dei controlli di una
maschera".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------