author: Lorenzo Coronati

text:
Scrisse
rinal...@virgilio.it
 (rinaldo):
>Desidero pertanto che l'eventuale modifica di un valore preesistente
>in ATTIVITA'.Descrizione sia soggetta a verifica dell'esistenza di
>record correlati (nella tabella CALENDARIO, ma eventualmente anche in
>altre tabelle), affinché la modifica sia fattibile ma in modo
>consapevole rispetto alle eventuali conseguenze sui medesimi record
>correlati.
cioe' vuoi gestire il caso in cui si modifichi la
descrizione di un'attivita' di cui esiste un record
correlato in calendario?
in caso di adp e ss/msde puoi provare con i trigger
in caso di mdb devi gestire il tutto dalle form con vba
gudlac!
--
lorenzo coronati
---


title: modifica valore di un campo non direttamente referenziante

author: Emyr

text:


dovresti fare tu i controlli sugli eventi beforeupdate tramite DAO o
ADO via codice....
Saluti.
Emanuele.


author: rinaldo

text:
>Rinaldo:
>Cerco di spiegare il quesito con un semplice esempio:
>Ho una tabella ATTIVITA' composta dai seguenti campi:
> - ID (chiave primaria): tipo contatore
> - Descrizione: tipo testo
> - altri campi a seguire...;
>
>Ho un'altra tabella CALENDARIO composta, tra gli altri, dal campo
>ID_Attivitą (tipo long) che č una chiave esterna, referenziata
dall'ID
>di ATTIVITA';
>in altri termini ho applicata l'integritą referenziale tra
>ATTIVITA'.ID e CALENDARIO.ID_Attivitą con una relazione uno a molti.
>Preciso che non posso assegnare al campo ATTIVITA'.Descrizione la
>proprietą chiave primaria, perché non mi garantirebbe l'univocitą del
>record.
>Desidero pertanto che l'eventuale modifica di un valore preesistente
>in ATTIVITA'.Descrizione sia soggetta a verifica dell'esistenza di
>record correlati (nella tabella CALENDARIO, ma eventualmente anche in
>altre tabelle), affinché la modifica sia fattibile ma in modo
>consapevole rispetto alle eventuali conseguenze sui medesimi record
>correlati.
>Come si puņ fare? Bisogna ricorrere al codice e nel caso, potrei
avere
>qualche dritta?
>Grazie anticipatamente al NG che costituisce per me un nuovo
>importante riferimento e scusatemi qualora il problema fosse gią
stato
>affrontato. Ho provato a cercare anche nel sito comune, ma non sono
>riuscito a trovare precedenti.
>Con sincera gratitudine. Rinaldo
>
> > Lorenzo Coronati:
> > cioe' vuoi gestire il caso in cui si modifichi la
> > descrizione di un'attivita' di cui esiste un record
> > correlato in calendario?
Sģ
> > in caso di adp e ss/msde puoi provare con i trigger
> > in caso di mdb devi gestire il tutto dalle form con vba
Scusate, non ho precisato il contesto: trattasi di Access 2000
> > Emyr:
> > dovresti fare tu i controlli sugli eventi beforeupdate tramite DAO o
> > ADO via codice....
> > Saluti.
> > Emanuele.
Grazie ragazzi! Ma se non chiedo troppo, come devo fare?
Costruirmi delle query che contino gli eventuali record correlati in
tutte le possibili tabelle o cos'altro?
Non chiedo il codice VBA, ma se possibile, soltanto una indicazione di
massima. Sono soltanto un autodidatta che affronta Access quando
riesce a ritagliarsi un pņ di tempo.
Colgo l'occasione per ringraziare, anche se molto tardivamente,
Maurizio Borrelli della sua ultima risposta ad un altro mio precedente
quesito.
E spero prima o poi di poter essere anch'io di aiuto a qualcuno.
Ciao a tutti. Rinaldo


author: Maurizio Borrelli

text:
> "rinaldo" news:987c8e18.02100...@posting.google.com...:
    :-)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Query di riepilogo.

author: Vincenzo

text:
Ho necessità di costruire una query di riepilogo di due tabelle in una delle
quali c'è il campo data. Il riepilogo deve però avvenire tra il 20 del mese
e il 19 del mese successivo. Comunico che da poco utilizzo Access per cui,
per favore, spiegazioni il + chiaro possibile. Grazie mille.


title: conferma variazione dati e qualche altra domanda

text:
Salve a tutto l'NG.
In premessa riporto le caratteristiche tecniche del mio pc:
P 3 550 win 98 SE Access 97
e vengo subito al problema:
sul sito comune ho trovato le istruzioni da passare nella istruzione prima
aggiornamento per fare in modo che compilando attraverso una maschera, si
abbia la possibilità di confermare o annullare i dati inseriti (per questo
grazie al Sig. Luciani). Il mio problema è questo. La  maschera nella quale
ho scritto il codice trovato sul sito comune sulla proprietà prima di
aggiornamento ha come origine dati una query e questa a sua volta contiene
un criterio del tipo like!form!nome maschera.
In altri termini per agevolare il lavoro ho una mascherina con una combo
dove posso selezionare un valore e questo filtra la query cui è agganciata
la maschera.
Chiedo scusa per il bisticcio di parole ma spero di essere stato chiaro.
Ebbene il problema è proprio questo: dopo l'inserimento dei dati un msg box
mi chiede se voglio confermare (e in questo caso passo al record successivo
e il record lavorato viene appunto confermato)se non voglio confermare e
qui, comtro ogni aspettativa (nonostante la presenza dell'istruzione
docmd.runcommand accmdundo) passo ugualmente al record successivo e il
precedente resta confermato. Se infine clicco annulla allora resto sulla
maschera che stavo lavorando ma mi trovo comunque i dati alterati.
Ho fatto una prova ed ho eliminato il criterio nella query, o per meglio
dire ho evitato di agganciare il criterio della query al valore della combo
box presente in una second maschera. In questo caso l'istruzione passata
alla proprietò prima di aggiornamento funziona egregiamente.
Ebbene, poichè invece ho bisogno di filtrare la mia query (origine dati
della maschera dati) per il valore espresso dalla combo box, cosa posso
modificare nel codice per ottenere il risukltato corretto?
Altro domanda:
ho un report agganicato ad una query che contiene i dati dei clienti alle
arie date. Se volessi fare in modo che ogni volta il report contenesse
sempre ad esempio 12 righe corrispondenti agli ultimidodici mesi, che
istruzione si deve escogitare?
ringrazio anticipatamente tutti per la disponibilità senza trovata sul NG
A presto
Antonio


author: Federico Luciani

text:

la funzione trovata sul SC, e' indipendente dall'origine dati.
ho fatto una prova e funziona correttamente:
Private Sub Combo_AfterUpdate()
    Me.Requery
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "I dati sono cambiati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub
> Altro domanda:
> ho un report agganicato ad una query che contiene i dati dei clienti alle
> arie date. Se volessi fare in modo che ogni volta il report contenesse
> sempre ad esempio 12 righe corrispondenti agli ultimidodici mesi, che
> istruzione si deve escogitare?
>
> ringrazio anticipatamente tutti per la disponibilità senza trovata sul NG
>
> A presto
>
> Antonio
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


author: Antonio

text:
Il 14 Nov 2002, 09:39, Federico Luciani <
fluc...@sitocomune.com
> ha
scritto:
> la funzione trovata sul SC, e' indipendente dall'origine dati.
>
> ho fatto una prova e funziona correttamente:
>
> Private Sub Combo_AfterUpdate()
> Me.Requery
> End Sub
>
> Private Sub Form_BeforeUpdate(Cancel As Integer)
> Dim retValue As Integer
> Dim strTtl As String
> Dim strMsg As String
> strTtl = "Salvare il record?"
> strMsg = "I dati sono cambiati." & vbCrLf & _
> "Vuoi salvare le modifiche?"
> retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
> Select Case retValue
> Case vbYes
> 'non fare nulla
> Case vbNo
> DoCmd.RunCommand acCmdUndo
> Case vbCancel
> Cancel = True
> End Select
> End Sub
>
Ringrazio per la sollecitudine della risposta ma sicuramente mi sfugge
qualcosa, e purtroppo non funziona.
Sento quindi la necessità di meglio precisare i termini della questione:
Devo modificare dei dati in una tabella attraverso una maschera. Poichè
questi dati si riferiscono, ad esempio, a diverse città, ho una tabella
città in base alla quale in una maschera (MascheraA) ho creato una combo
[ora, secondo le istruzioni che mi ha fornito, nell'evento dopo
aggiornamento di questa combo ho scritto
Private Sub CasellaCombinata7.AfterUpdate()
      Me.Requery
End Sub
e spero di aver capito bene...]
Orbene, dopo aver selezionatop una città attraverso questa combo, con un
bottone con un'istruzione open.form faccio aprire una seconda maschera
(MascheraB) la cui origine dati è una query in cui per il campo città ho
indicato il seguente criterio:
Like
IIF([Forms]![MascheraA!]![CasellaCombinata7]="Tutti";"*";([Forms]![MascheraA!]![CasellaCombinata7])
Nella MascheraB, dunque, nell'evento prima di aggiornare ho annotato il noto
codice trovato sul SC.
Ebbenem come dicevo, deve esserci sicuramente qualcosa che mi sfugge visto
che non funge il comando docmd.runcommand accmdundo. Infatti se scelgo di
non confermare i dati, come prima mi trovo direttamente al record successivo
e trovo confermate irrimediabilmente le variazioni che avevo apportato e che
invece non volevo confermare.
Dove sbaglio?
Ringrazio anticipatamente per la consueta disponibilita' e porgo cordiali
saluti.
Antonio
(chiedo scusa se ho cambiato l'email - le sto rispondendo dall'ufficio)
--------------------------------
Inviato via
http://usenet.libero.it


text:
Antonio wrote:
> Devo modificare dei dati in una tabella attraverso una maschera. Poichè
> questi dati si riferiscono, ad esempio, a diverse città, ho una tabella
> città in base alla quale in una maschera (MascheraA) ho creato una combo
> [ora, secondo le istruzioni che mi ha fornito, nell'evento dopo
> aggiornamento di questa combo ho scritto
a meno che non sia cambiato qualcosa nell'ultimo anno, qui non siamo
molto formali, puoi darmi traquillamente del tu. grazie ;-)
> Private Sub CasellaCombinata7.AfterUpdate()
>       Me.Requery
> End Sub
> e spero di aver capito bene...]
> Orbene, dopo aver selezionatop una città attraverso questa combo, con un
> bottone con un'istruzione open.form faccio aprire una seconda maschera
> (MascheraB) la cui origine dati è una query in cui per il campo città ho
> indicato il seguente criterio:
> Like
> IIF([Forms]![MascheraA!]![CasellaCombinata7]="Tutti";"*";([Forms]![MascheraA!]![CasellaCombinata7])
oops! usi due form, quindi il Me.Requery non serve a nulla.
avevo frainteso e pensavo che la combo si trovasse sulla stessa form
> Nella MascheraB, dunque, nell'evento prima di aggiornare ho annotato il noto
> codice trovato sul SC.
tanto per essere sicuri, stiamo parlando dell'evento BeforeUpdate
della Form
> Ebbenem come dicevo, deve esserci sicuramente qualcosa che mi sfugge visto
> che non funge il comando docmd.runcommand accmdundo. Infatti se scelgo di
> non confermare i dati, come prima mi trovo direttamente al record successivo
> e trovo confermate irrimediabilmente le variazioni che avevo apportato e che
> invece non volevo confermare.
> Dove sbaglio?
veramente non saprei, ho riverificato il codice e funziona
perfettamente!
l'unica cosa che mi sento di dirti e di provare a creare un pulsante
che esegua solo:
docmd.runcommand accmdundo
fai delle modifiche ai dati poi cliccalo e vedi se annulla le
modifiche o genera qualche errore.
come ultima risorsa :)
inviami, in privato, un mdb contenente le due form e qualche dato
ci do uno sguardo



title: Evitare l'Error dividendo per 0

author: Luigi

text:
Buongiorno
avete un sistema semplice per evitare l'errore quando si divide un numero
per 0 ?
se A = 2 e B = 0
quando faccio [A]/[B] naturalmente esce #Error. Solo che questo mi comporta
problemi in calcoli successivi.
Grazie per l'aiuto
Luigi


title: Evitare l'Error dividendo per 0

author: Antonio Biso

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:2GOSa.191916$Ny5.5...@twister2.libero.it...
> Buongiorno
> avete un sistema semplice per evitare l'errore quando si divide un numero
> per 0 ?
>
> se A = 2 e B = 0
>
> quando faccio [A]/[B] naturalmente esce #Error. Solo che questo mi
comporta
> problemi in calcoli successivi.
E cosa ti dovrebbe restituire secondo te in quel caso?
Antonio


title: Evitare l'Error dividendo per 0

author: Sergio MAZZA

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:2GOSa.191916$Ny5.5...@twister2.libero.it...

If A > 0 And B > 0 then
     A/B
end if
Ciao.
--
Sergio MAZZA


title: Evitare l'Error dividendo per 0

author: Lenny

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:2GOSa.191916$Ny5.5...@twister2.libero.it...

puoi usare una condizione:
se B = 0 allora RISULTATO = 0
in codice: iif(b=0;risultato = 0; a/b)
ovviamente una divisione per 0 non ha risultato (sarebbe un valore infinito
nel calcolo dei limiti)
e quindi sarai tu a dare un valore al risultato a seconda di quello che
vuoi.
a volte mi è capitato di mettere 1 oppure 0
oppure in alcune stampe addirittura una stringa " / "
ciao
Lenny


title: Evitare l'Error dividendo per 0

author: aXa

text:
e se hai pure numeri negativi
IF   A<> 0  b<>0
then A/B
end IF
aXa
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:2GOSa.191916$Ny5.5...@twister2.libero.it...



title: Evitare l'Error dividendo per 0

text:
> If A > 0 And B > 0 then
>      A/B
> end if
scusa ma non sono d'accordo.
una divisione non ha risultato solo se il divisore (B) è uguale a zero.
quindi
if B<>0 then
    A/B
end if
ovviamente se come immagino il risultato della divisione finisce in una
variabile C,
sarà necessario passare un valore a C che solitamente è 0 anche se non
sarebbe
corretto matematicamente parlando
if B<>0 then
    C = A/B
else
    C = 0
end if
quindi.
ciao


title: Evitare l'Error dividendo per 0

text:
"Lenny" <luca...@QUESTOLOTOGLItiscali.it> ha scritto nel messaggio
news:_ROSa.1545$w8....@news.edisontel.com...

Non ho capito; non sei daccordo sul fatto che effettuo il test su entrambi
gli oparatori? E che cambia?
Lo so benissimo che potevo fare il test solo su B ma per non sapere né
leggere né scrivere...
Ciao.
--
Sergio MAZZA


title: Evitare l'Error dividendo per 0

text:
> Lo so benissimo che potevo fare il test solo su B ma per non sapere né
> leggere né scrivere...
beh,
era richiesto solo il modo di evitare l'errore di divisione per zero e
l'unica
condizione necessaria per farlo è che B<>0
ciao
Lenny


title: Evitare l'Error dividendo per 0

text:
"Lenny" <luca...@QUESTOLOTOGLItiscali.it> ha scritto nel messaggio
news:COOSa.1544$w8....@news.edisontel.com...

Grazie cosi va benissimo.
Luigi


title: Evitare l'Error dividendo per 0

author: Sib

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
> avete un sistema semplice per evitare l'errore quando si divide un numero
> per 0 ?
>
> se A = 2 e B = 0
>
> quando faccio [A]/[B] naturalmente esce #Error. Solo che questo mi
comporta
> problemi in calcoli successivi.
Perdonami se entro nel merito, ma quali sono i calcoli successivi (nel senso
di: "cosa vai a calcolare")?
Sib


title: intervallo in ore e minuti

author: cirinx

text:
Ciao a tutti
vi sottopongo il seguente problema:
ho un intervallo di tempo espresso in ore  e centesimi di ore anziche in
minuti.
Mi spiego meglio,
questo intervallo l'ho ottenuto attraverso l'operazione Datediff(ora
uscita - ora entrata)
chiedo a qualcuno se cortesemente può indicarmi come
visualizzare l'intervallo di tempo ottenuto in ore-minuti
anzichè ore-centesimi di ore, così come mi viene restituito da Datediff


title: intervallo in ore e minuti

author: Alessandro Baraldi

text:

Scusa ma se ti fai restituire la differenza in Minuti invece che in
ore, quindi
ricavi il numero di ore..?
minuti= Datediff("nn",[ora uscita] , [ora entrata])  ' vado a memoria
' si usa il Back_Slash per ottenere solo la parte intera
Ora=Minuti \ 60
minutiResidui=minuti- ora*60
Mi pare più comodo...
@Alex


title: Visualizzare record

author: Franco Mura

text:
Ciao a tutti
ho una maschera che mi visualizza i record dei miei documenti fiscali(
fatture e ricevute), ora vorrei riuscire a creare un controllo di ricerca
multiplo sulla maschera che in base al n° e al tipo di documento che
inserisco mi visualizzi in questa stessa msk il record richiesto. E'
possibile??
ciao e grazie a tutti


title: Visualizzare record

author: Roberto da casa

text:
"Franco Mura" <
is....@tiscalinet.it
> ha scritto nel messaggio
news:KVkq8.52168$S52.1...@news2.tin.it...

Sia le fatture che le ricevute sono contenute in un'unica tabella?
Quale è la struttura della/e tabella/e?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Visualizzare record

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Y9Gq8.111871$%g7.36...@twister2.libero.it...

Si, sia le fatture che le ricevute sono contenute in un' unica tabella, con
TipoDocumento e NumDocumento
CIao e grazie


title: Visualizzare record

text:
"Franco Mura" <
is....@tiscalinet.it
> ha scritto nel messaggio
news:olTq8.48242$pT1.1...@news1.tin.it...

Se TipoDocumento è di tipo testo e NumDocumento è di tipo numerico.
Nell'intestazione (nell'intestazione e non nel corpo) della tua maschera
inserisci due caselle di testo non associate chiamate rispettivamente
CercaTipo e CercaNumero, nelle quali andrai a digitare il tipo ed il n° del
documento che desideri visualizzare.
A fronte dell'evento "Dopo aggiornamento" del controllo CercaNumero genera
il seguente codice VBA:
Private Sub CercaNumero_AfterUpdate()
Me.Filter = "TipoDocumento=" & Chr$(34) _
& Me!CercaTipo & Chr$(34) _
& "And NumDocumento=" & Me!CercaNumero
Me.FilterOn = True
End Sub



title: Visualizzare record

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:szYq8.118873$1S3.3...@twister1.libero.it...

Grazie tante Roberto e' esatto!!!!!
CIao


title: una semplice maschera di login, non so dove sia l'errore

author: Lomba

text:
ciao a tutti. mi chiedevo se mi potevate aiutare. io devo creare una maschera di login semplicissima. ho visto la faq "semplice maschera di login" (sezione general) sul sito comune ma access 2016 non mi fa aprire il file... allora ho provato a cercare qui ma c'è qualcosa che mi sfugge... vediamo:
ho creato una tabella UTENTI con i seguenti campi:
Id_utente
nome_utente
acronimo

poi ho creato una maschera con due controlli: una casella combinata (di seguito Casellacombinata2) che mostra nome_utente
una casella di testo (chiamata di seguito "testo5") che serve per scrivere acronimo (che è poi la password...)
ora se sul click di un pulsante (comando4) io metto la seguente istruzione non va... io vorrei confrontare se acronimo (associato a nome utente della casella combinata) corrisponde a quanto scritto nel Testo5 (che faccio scrivere all'utente) ...
ve la copio...

Private Sub Comando4_Click()
If IsNull(Me.Testo5) Then
MsgBox "non hai compilato la password", , "Inserimento necessario"
Me.Testo5.SetFocus

Dim varPWD

varPWD = DLookup("[acronimo]", "Utenti", "[nome_utente]=" & Chr(34) & Me.CasellaCombinata2.Column(1) & Chr(34))
'la colonna 1 mostra i nomi, la colonna 0 è l'id...
MsgBox varPWD 'NON ME LA MOSTRA......

If Me.Testo5 = varPWD Then 'DoCmd.OpenForm "inizio"
ElseIf IsNull(varPWD) Then
MsgBox "Nome Utente o Password Errato o mancante !", vbCritical, "Login - Errore"
Me.Testo5.SetFocus
Else
Exit Sub
End If
End If

end sub

BOh, c'è qualcosa che non quadra...
il passo successivo sarebbe poi implementare la gestione dei tempi di accesso e relativa permanenza nel database, dopo inserimento della password (Acronimo), ma se mi apre la maschera INIZIO, poi vedo come fare... per il momento non capisco cosa ci sia che non va
uso access 2016 ultimissima versione
un grazie a tutti coloro che vorranno darmi dritte!!
Luca.


text:

Non vedo anomalie particolari nel recupero della PWD... salvo che non la trova..., e questo è l'unico motivo per cui non la Mostra...!

Suggerisco una verifica diretta con una Query da QBE dopo aver fatto un Debug.print della stringa WHERE:

Debug.print "[nome_utente]=" & Chr(34) & Me.CasellaCombinata2.Column(1) & Chr(34)

Copi quanto emerge nella Finestra Immediata(CTRL+G) e lo incolli nel predicato SQL in QBE:
SELECT * FROM Utenti WHERE [----> INCOLLA <----]

Verifica come mai non trova nulla.

Ora ti pongo un quesito...
Invece di farti sparare in chiaro la PWD al Client... non conviene che crei un CRITERIO DOPPIO User AND Pwd sulla DlookUp...?

Questione di sicurezza secondo me...

@Alex


author: Stefano

text:

Prova in questo modo, dovrebbe funzionare.

Private Sub Comando4_Click()
Dim varPWD AS String

If IsNull(Me.Testo5) Then
	MsgBox "non hai compilato la password", , "Inserimento necessario"
	Me.Testo5.SetFocus
endif

varPWD = DLookup("[acronimo]", "Utenti", "[nome_utente]= '" &
Me.CasellaCombinata2.Column(1) & "'"
'la colonna 1 mostra i nomi, la colonna 0 è l'id...
'MsgBox varPWD "NON ME LA MOSTRA......"

If Me.Testo5 = varPWD Then
	DoCmd.OpenForm "inizio"
ElseIf IsNull(varPWD) or varPWD <> me.testo5 Then
	MsgBox "Nome Utente o Password Errato o mancante !", vbCritical, "Login
- Errore"
	Me.Testo5.SetFocus
End If
end sub

Io comunque, utilizzerei un sistema di criptazione e decriptazione della
tabella utenti per non lasciarla in chiaro dopo di che, metterei un
contatore di errori in modo tale che al terzo tentativo errato di
inserimento password, chiude il programma e magari ti invia un'email di
alert che qualcuno ha tentato di accedere al programma.

Ciao.
Stefano

---
Questa email Ã¨ stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


text:

grazie a tutti e due!! mitici!!
per la questione del contatore sui tentativi, come si fa?


title: immagine che cambia su maschera record continui

author: mario rossi

text:
riesco a vedere un immagine diversa per ogni record elencato in una maschera record continui sapete se si riesce ad ottenere la stessa cosa con il colore di sfondo della textbox in modo da non usare immagini esterne già pronte ed avere così a disposizione un numero infinito di colori con il codice

rgb(0,0,0)

Grazie.


author: Silvio Berruti

text:

Guarda Mario, non ho capito cosa vorresti ottenere...
Puoi darci qualche dettaglio in più?


text:
Il giorno mercoledì 29 marzo 2023 alle 15:53:02 UTC+2 mario rossi ha scritto:

Usa come sfondo una textbox gestendo la formattazione condizionale.
@Alex


text:

Hai un esempio?

spiego meglio la mia problematica anche per Silvio
ho una tabella con 3 nomi
mario colore 8454016, pietro colore 16763904, giulio colore 16764057
nella maschera continua dovrei gestire la formattazione condizionale di una textbox e vedere i 3 nomi e a fianco una textbox con colore come sfondo i 3 rispettivi colori

Grazie.


text:

Ma i valori di questa tabella sono fissi oppure possono cambiare?
Se sono fissi potresti usare la formattazione condizionale come suggerito da @Alex.
Vai a vedere
https://support.microsoft.com/it-it/office/evidenziare-i-dati-con-la-formattazione-condizionale-7f7c0bd4-7c37-421d-adad-a260125c8129?ns=msaccess&version=16&syslcid=1040&uilcid=1040&appver=zac160&helpid=29084&ui=it-it&rs=it-it&ad=it

Ciao


text:

i colori associati alle persone possono cambiare tramite un controllo pick color che fa impostare il colore preferito RGB
se cambiano i colori non si può fare con formattazione?


author: BFS

text:

la formattazione condizionale puoi aggiungerla anche da vba quindi nulla
vieta di fare quello che chiedi

esempio
https://www.access-programmers.co.uk/forums/threads/conditional-formatting-using-vba.301613/

BFS


text:

ok non ci capisco nulla, in pratica ho una form record continui
una textbox "nome" testo,  textbox "codicecolore" numerico, una textbox non associata che vorrei assumesse il colore di sfondo con codice contenuto nel campo codice numerico
suppongo debba inserire un codice su evento "su corrente"  ma cosa e come devo aggiungerlo?


title: Oggetto Microsoft Graph 2000

author: George®

text:
Buongiorno.
Sto cercando di inserire in un report di Access 2000 un grafico.
Esso è associato a una query con tre campi: giorno/euro/euro_ap.
Ho inserito l'oggetto grafico e ho indicato come tipo origine riga
"Tabella/visualizzazione/stored procedure" e come origine la query.
Tutto bene, se non fosse che la prima riga dei risultati della query viene
presa come legenda per le serie.
Mi spiego...
Invece di trovarmi un grafico in cui le serie si chiamano rispettivamente
euro ed euro_ap mi trovo un grafico in cui le serie si chiamano 0 e 140.000
che sono i due valori corrispondenti al giorno 1; infatti il grafico
comincia dal giorno 2.
Ho aperto il grafico e per formattarlo ho fatto un copia incolla dei dati
risultato della query nel foglio di lavoro del grafico, e in questo modo
esso appare corretto: parte dal giorno 1 e le serie si chiamano come
dovrebbero chiamarsi.
Dove sbaglio?
Grazie per i suggerimenti.
Giorgio


title: Maschere cancellate che ricompaiono

author: Carlo Ve

text:
Mi capita  che dopo aver eliminato da un db una maschera  questa riappare
se richiamata  da un menu di scelta rapida
Ho provato a chiudere e riaprire il db ma idem con patate
compattando il db invece tutto va a posto e la maschera sparisce
definitivamente
Brava gente avete per caso una spiegazione sensata per tutto cio' ?
Saluti
Carlo Ve


title: Maschere cancellate che ricompaiono

author: Federico Luciani

text:

So che access elimina definitivamente gli oggetti solo con
la compattazione.
Quando vengono eliminati, credo vengano rinominati e
lasciati li, ma il fatto che tu riesca ad aprirli mi sembra
alquanto strano!
--
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Maschere cancellate che ricompaiono

author: Lorenzo Coronati

text:
Scrisse "Carlo Ve" <
Car...@mail.dex-net.com
>:
>Brava gente avete per caso una spiegazione sensata per tutto cio' ?
Cosa ti fa pensare che ci debba essere una spiegazione
sensata? ;-)
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Maschere cancellate che ricompaiono

text:
Federico Luciani ha scritto nel messaggio
<
38EA2518...@paperino.libero.it
>...
>Carlo Ve wrote:
>> Mi capita  che dopo aver eliminato da un db una maschera  questa riappare
>> se richiamata  da un menu di scelta rapida
>> Ho provato a chiudere e riaprire il db ma idem con patate
>> compattando il db invece tutto va a posto e la maschera sparisce
>> definitivamente
>> Brava gente avete per caso una spiegazione sensata per tutto cio' ?
>> Saluti
>> Carlo Ve
>
>So che access elimina definitivamente gli oggetti solo con
>la compattazione.
>Quando vengono eliminati, credo vengano rinominati e
>lasciati li, ma il fatto che tu riesca ad aprirli mi sembra
>alquanto strano!
Anche a  me semba strano tutto cio',   infatti quando e' successo la prima
volta e non ho dato molta importanza,  ma poi ho visto che succede ancora e
abbastanza casualmente casualmente.
Carlo Ve


title: Maschere cancellate che ricompaiono

text:
Lorenzo Coronati ha scritto nel messaggio
<
38e9a3de...@news.libero.it
>...
>Scrisse "Carlo Ve" <
Car...@mail.dex-net.com
>:
>>Brava gente avete per caso una spiegazione sensata per tutto cio' ?
>
>Cosa ti fa pensare che ci debba essere una spiegazione
>sensata? ;-)
Già forse ho messo una parola di troppo ....
Carlo Ve


title: Maschere cancellate che ricompaiono

author: Stefano Bettini

text:
Carlo Ve <
Car...@mail.dex-net.com
> wrote in message
8cekup$6ir$1...@serv1.iunet.it...
>
> >So che access elimina definitivamente gli oggetti solo con
> >la compattazione.
> >Quando vengono eliminati, credo vengano rinominati e
> >lasciati li, ma il fatto che tu riesca ad aprirli mi sembra
> >alquanto strano!
>
> Anche a  me semba strano tutto cio',
Come giustamente asserisce Fede, access rinomina gli oggetti cancellati
perciň il comportamento anomalo che segnali sarebbe possibile solo
se aprissi le finestre passando per la MSysObject (x ID piuttosto che per
nome perciň...); comunque la cosa potrebbe capitare solo in presenza
di sistemi **molto** strani di esecuzione della OpenForm, prova a postare
un pezzetto del codice incriminato.
>infatti quando e' successo la prima
> volta e non ho dato molta importanza......
Scusami, ma č il peggior  comportamento possibile x uno che voglia
sviluppare in modo +o- professionale; i programmi non vanno bene o
male a seconda del tempo e della luna...
Bye, Ste


title: Maschere cancellate che ricompaiono

text:
>> >So che access elimina definitivamente gli oggetti solo con
>> >la compattazione.
>> >Quando vengono eliminati, credo vengano rinominati e
>> >lasciati li, ma il fatto che tu riesca ad aprirli mi sembra
>> >alquanto strano!
>>
>> Anche a  me semba strano tutto cio',
>
>Come giustamente asserisce Fede, access rinomina gli oggetti cancellati
>perciò il comportamento anomalo che segnali sarebbe possibile solo
>se aprissi le finestre passando per la MSysObject (x ID piuttosto che per
>nome perciò...); comunque la cosa potrebbe capitare solo in presenza
>di sistemi **molto** strani di esecuzione della OpenForm, prova a postare
>un pezzetto del codice incriminato.
In questo caso non c'era prorio codice,  la maschera veniva aperta
direttamente
da un menu di scelta rapida. E' successo che ad un certo punto la maschera
non era piu' necessaria
ed è stata cancellata dal db tralasciando pero' di cancellare anche il
collegamento dal menu di scelta rapida. Quando involontariamente sono andato
a selezionre dal menu l'opzione che apriva la maschera
mi è ricomparsa tutta intera anche se mi sembra fosse sparito il codice sia
della maschera
che di tutti gli oggetti che conteneva.
>>infatti quando e' successo la prima
>> volta e non ho dato molta importanza......
>
>Scusami, ma è il peggior  comportamento possibile x uno che voglia
>sviluppare in modo +o- professionale; i programmi non vanno bene o
>male a seconda del tempo e della luna...
Sono anche d'accordo, ma considerando che quello  non rappresentava un
problema vincolante per la continuazione dello sviluppo del prg ho preferito
non dedicare tempo alla ricerca di spiegazioni.
Vedendo che il fatto si ripresentava  pur continuando a non esserre un
problema ne per lo sviluppo ne per l'utente,  spinto dalla curiosità ho
voluto chiedere in giro se qualcuno avesse una spiegazione a quello che
considero un comportamento strano
By
Carlo Ve


title: creazione automatica record

author: alee

text:
salve
ho una tabella "appuntamenti" con campo "DATA" e campo "ORA".
Vorrei creare in automatico un bel po di record che mi serviranno per i
giorni a venire, con gia impostati i campi data e ora(ogni 30 min c'è un
appuntamento).
ho pensato di fare un ciclo in vb, ma non saprei come fare ad incrementare
ad ogni iterazione la data..e allo stesso tempo come incrementare l'ora di
30 minuti
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: creazione automatica record

text:
"alee" <
o...@ooo.com
> wrote in message news:bin5nc$vk9$
1...@news.newsland.it
> ho una tabella "appuntamenti" con campo "DATA" e campo "ORA".
>
> Vorrei creare in automatico un bel po di record che mi serviranno per i
> giorni a venire, con gia impostati i campi data e ora(ogni 30 min c'č un
> appuntamento).
> ho pensato di fare un ciclo in vb, ma non saprei come fare ad incrementare
> ad ogni iterazione la data..e allo stesso tempo come incrementare l'ora di
> 30 minuti
>
> ciao
Prova a guardare DateAdd(...F1).
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: creazione automatica record

author: marco

text:
"alee" <
o...@ooo.com
> ha scritto nel messaggio
news:bin5nc$vk9$1...@news.newsland.it...

>dividi i due cicli.
Prima crei un numero di  record data pari al numro degli appuntamenti
giornalieri (es. 12) alla fine del ciclo avrai
contatore    data    ora    appuntamento
1                29/08/2003
2                29/08/2003
3                29/08/2003
4                29/08/2003
5                29/08/2003
...
12               29/08/2003
poi crei un recordset che ti estrae tutti i campi data e, per ogni record
effettui l'update con intervalli di mezzora
Ciao


title: creazione automatica record

author: Alberto S.

text:
On Fri, 29 Aug 2003 11:17:04 +0200,
o...@ooo.com
 (alee) wrote:
>salve
>
>ho una tabella "appuntamenti" con campo "DATA" e campo "ORA".
>
>Vorrei creare in automatico un bel po di record che mi serviranno per i
>giorni a venire, con gia impostati i campi data e ora(ogni 30 min c'è un
>appuntamento).
>
>
>ho pensato di fare un ciclo in vb, ma non saprei come fare ad incrementare
>ad ogni iterazione la data..e allo stesso tempo come incrementare l'ora di
>30 minuti
>
>ciao
Oltre a quanto ti hanno suggerito Marco e Alessandro, prova a
considerare che, lavorando un po' di grafica e di codice, potresti
avere nella maschera e nel report l'effetto voluto (ogni giorno 48
sezioni da 30' ciascuna) ma fisicamente generare i record solo per gli
appuntamenti effettivamente fissati.
Ciao
--
Alberto
No alle guerre


title: Applicare Ciclo for a Query filtrata (come usare recordsetcon Parametri +ciclofor)

author: Samantha Cicch

text:
Buonasera NG
ho una maschera, che presenta prodotti filtrati x cliente. In una
casella combo non associata, seleziono una data.
Su click della COMBO eseguo questo evento
Private Sub CBODATA_AfterUpdate()
Me![datafly] = Me!CBODATA
End Sub
Logicamente lo fa solo sul primo record, non su tutti. Come fare x
applicarlo a tutti?
Ho trovato un post del 2001 di Roberto, che ho modificato così
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfMio As QueryDef
Set dbMio = CurrentDb
Set qdfMio = dbMio.QueryDefs("q_smcstfly")
qdfMio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]")
=
Me![CBOCLIENTE]
Set rstMio = qdfMio.OpenRecordset()
Dim i
 for i = 0
.. però qui mi perdo
come cavolo devo dirgli che Me![datafly] = Me!CBODATA?
Devo inizializzare i=0 ?
Grazie per eventuali suggerimenti
Samantha


author: Marco Antonioli

text:
"Samantha Cicch" <
samanth...@gmail.com
> wrote in message
news:1171991396....@p10g2000cwp.googlegroups.com
> Buonasera NG
>
> ho una maschera, che presenta prodotti filtrati x cliente. In una
> casella combo non associata, seleziono una data.
> Su click della COMBO eseguo questo evento
> Private Sub CBODATA_AfterUpdate()
> Me![datafly] = Me!CBODATA
> End Sub
>
> Logicamente lo fa solo sul primo record, non su tutti. Come fare x
> applicarlo a tutti?
>
Ciao
Vedo che insisti.
Bene bene.
Se ho capito il problema ti serve una query che aggiorni la data nei
records relativi al cliente filtrato rendendola uguale alla selezione
di CBODATA.
Poi riesequi la query sulla maschera.
Ovviamente questa è una (di n) possibilità .....
Ciao
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Antonio Biso

text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1171991396....@p10g2000cwp.googlegroups.com...
Buonasera NG
ho una maschera, che presenta prodotti filtrati x cliente. In una
casella combo non associata, seleziono una data.
Su click della COMBO eseguo questo evento
Private Sub CBODATA_AfterUpdate()
Me![datafly] = Me!CBODATA
End Sub
Logicamente lo fa solo sul primo record, non su tutti. Come fare x
applicarlo a tutti?
set rst = me.recordsetclone
rst.movefirst
do until rst.eof
  rst.fields("data") = CBODATA
next
set rst = nothing
me.requery
Antonio


text:
> set rst = me.recordsetclone
> rst.movefirst
> do until rst.eof
>   rst.fields("data") = CBODATA
> next
> set rst = nothing
> me.requery
>
> Antonio
Interessante.
Mi sono reso conto che utilizzavo recordsetclone da bestia.
Grazie



text:

Buongiorno A tutti,
è da stamattina che ci lavoro
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfMio As QueryDef
Set dbMio = CurrentDb
Set qdfMio = dbMio.QueryDefs("q_smcstfly")
qdfMio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]")
= Me![CBOCLIENTE]
Set rstMio = qdfMio.OpenRecordset()
set rst = me.recordsetclone *1
rst.movefirst
do until rst.eof
  rst.edit
  rst.fields("data") = Me!CBODATA
  rst.update
 Loop
rstMio.Close
rst.Close
set rst = nothing
set rstMio = nothing
me.requery
*1 il me.recordsetclone è come avessi scritto set rst = rstMio ?
*2 ma cosa faccio con questo me. requery?
Ora mi si è imballato tutto...  ho la combo data che continua a
lampeggiare... mi sa che devo chiudere di brutto il db. sgrunt


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172048481.5...@h3g2000cwc.googlegroups.com...
On 21 Feb, 09:04, "Marco Antonioli" <
i...@echovr.it
> wrote:
> > set rst = me.recordsetclone
> > rst.movefirst
> > do until rst.eof
> >   rst.fields("data") = CBODATA
> > next
> > set rst = nothing
> > me.requery
>
> > Antonio
>
> Interessante.
> Mi sono reso conto che utilizzavo recordsetclone da bestia.
> Grazie
> Ciao
> MArco
-->Prego
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
Buongiorno A tutti,
è da stamattina che ci lavoro
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfMio As QueryDef
Set dbMio = CurrentDb
Set qdfMio = dbMio.QueryDefs("q_smcstfly")
qdfMio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]")
= Me![CBOCLIENTE]
Set rstMio = qdfMio.OpenRecordset()
set rst = me.recordsetclone *1
rst.movefirst
do until rst.eof
  rst.edit
  rst.fields("data") = Me!CBODATA
  rst.update
 Loop
rstMio.Close
rst.Close
set rst = nothing
set rstMio = nothing
-->Se fai il set a nothing il close è superfluo
me.requery
*1 il me.recordsetclone è come avessi scritto set rst = rstMio ?
-->Ah l'help...
il metodo recordsetclone restituisce un recordset corrispondente ai dati
attualmente restituiti dalla recordsource della form, eventualmente anche
con i filtri in quel momento applicati
openrecordset restituisce un recordset corrispondente a quello della
tabella/query/stringa sql contenuta nel suo parametro
il recordset può essere assegnato ad una variabile di tipo recordset per
passarci insieme tante ore liete, financo al petting spinto
*2 ma cosa faccio con questo me. requery?
-->Dopo aver cambiato i dati con l'aggiornamento del recordset vai a fare un
refresh dei controlli. Forse è pleonastico, non ho fatto prove, ma male non
fa
Antonio
P.S.
Continua a usare una formattazione dei messaggi così scrausa che non riesco
a quotarti con le freccette eh...


text:
On 21 Feb, 10:11, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172048481.5...@h3g2000cwc.googlegroups.com...
> On 21 Feb, 09:04, "Marco Antonioli" <
i...@echovr.it
> wrote:
Signori,
Private Sub CBODATA_AfterUpdate()
Me![datafly] = Me!CBODATA
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfMio As QueryDef
Set dbMio = CurrentDb
Set qdfMio = dbMio.QueryDefs("q_smcstfly")
qdfMio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Set rstMio = qdfMio.OpenRecordset()
Set rst = Me.RecordsetClone
rst.MoveFirst
Do While Not rst.EOF
  rst.Edit
  rst.Fields("cstmp_data") = Me!CBODATA
  rst.Update
  rst.MoveNext
  Loop
rstMio.Close
rst.Close
Set rst = Nothing
Set rstMio = Nothing
End Sub
Il me.requery non faceva altro che modificare di nuovo il recordset.
Compariva un messaggio in cui ACCESS mi diceva:
Cara Samantha, per me c'è qualcosa che non va nel tuo codice, perchè
C'è un altro somaro ke sta tentando di modificare gli stessi record.
Ora, perchè volete fare in due la stessa cosa?
"Durante la corrente sessione di modifica il record è stato modificato
da un altro utente. Salvando le proprie modifiche si sovrascriveranno
i cambiamenti dell'altro utente. Copiando le proprie..."
Tolto il me.requery va che è una meraviglia :D
Grazie mille x l'aiuto :)
Samantha
>
> Antonio
>
> P.S.
> Continua a usare una formattazione dei messaggi così scrausa che non riesco
> a quotarti con le freccette eh...
Pensati, x fino i messaggi hanno paura a farsi quotare da te!  ;D


text:
On 21 Feb, 10:21, "Samantha Cicch" <
samantha.ci...@gmail.com
> wrote:
> On 21 Feb, 10:11, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
>
> > "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172048481.5...@h3g2000cwc.googlegroups.com...
> > On 21 Feb, 09:04, "Marco Antonioli" <
i...@echovr.it
> wrote:
>
> Il me.requery non faceva altro che modificare di nuovo il recordset.
> Compariva un messaggio in cui ACCESS mi diceva:
>
> Cara Samantha, per me c'è qualcosa che non va nel tuo codice, perchè
> C'è un altro somaro ke sta tentando di modificare gli stessi record.
> Ora, perchè volete fare in due la stessa cosa?
>
> "Durante la corrente sessione di modifica il record è stato modificato
> da un altro utente. Salvando le proprie modifiche si sovrascriveranno
> i cambiamenti dell'altro utente. Copiando le proprie..."
>
> Tolto il me.requery va che è una meraviglia :D
Non è il me.requery il problema. Quando cambio cliente in CBOCLIENTE
mi da lo stesso problema...


text:

Ciao,
dopo la finestra di messaggio
"Modifica contemporenae di record: durante la corrente sessione di
modifica il record è stato modificato da un altro utente. Salvando le
proprie modifiche si sovrascriveranno i cambiamenti dell'altro utente.
Salva il record? Copia negli appunti? Non salvare le modifiche
Se salvo è ok
ma se scelgo : non salvare le modifiche:
Errore di runtime '3197':
Il modulo di gestione di database Microsoft Jet ha interrotto
l'elaborazione. Un altro utente sta tentando contemporaneamente di
modificare gli stessi dati.
Se gli faccio ?
Il modulo di gestione di database Microsoft Jet ha interrotto
l'elaborazione. Un altro utente sta tentando contemporaneamente di
modificare gli stessi dati. (3197).
Questo errore può verificarsi in un ambiente multiutente.
Un altro utente ha modificato i dati che si sta cercando di
aggiornare. Questo errore può verificarsi quando più utenti aprono una
tabella o creano un Recordset utilizzando il blocco ottimistico. Nel
tempo intercorso tra l'utilizzo del metodo Edit e il metodo Update, un
altro utente ha modificato gli stessi dati.
Per sovrascrivere le modifiche dell'altro utente con le proprie,
rieseguire il metodo Update.
Siccome la parola OTTIMISTICO è in blu, se la clicco mi dice
Ottimistico
Tipo di blocco in cui la pagina di dati che contiene uno o più record,
incluso il record che si sta modificando, non è disponibile ad altri
utenti, solo nella fase in cui il record viene aggiornato mediante il
metodo Update, mentre è disponibile nel periodo che intercorre tra
l'utilizzo dei metodi Edit e Update. Il blocco ottimistico viene
utilizzato quando si accede ai database ODBC o quando la proprietà
LockEdits dell'oggetto Recordset è impostata su False.
Ora ho sbagliato il codice. Forse è in sola lettura? Forse devo
chiudere l'originale dopo il clone?
Adesso provo


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172050068....@v33g2000cwv.googlegroups.com...


Dove sono le scuse?
Antonio


text:
"Samantha Cicch" <
samanth...@gmail.com
> ha scritto nel messaggio
news:1172049670.2...@l53g2000cwa.googlegroups.com...

> P.S.
> Continua a usare una formattazione dei messaggi cosě scrausa che non
riesco
> a quotarti con le freccette eh...
Pensati, x fino i messaggi hanno paura a farsi quotare da te!  ;D
Pensa, sei la sola che ha questa paura.
XXXfobica?
Antonio


text:
On 21 Feb, 11:26, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:
> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel messaggionews:1172049670.2...@l53g2000cwa.googlegroups.com...
> On 21 Feb, 10:11, "Antonio Biso" <c...@NOSPAMetruria.net> wrote:> "Samantha Cicch" <
samantha.ci...@gmail.com
> ha scritto nel
>
> messaggionews:1172048481.5...@h3g2000cwc.googlegroups.com...
>
>
>
> > On 21 Feb, 09:04, "Marco Antonioli" <
i...@echovr.it
> wrote:
> > P.S.
> > Continua a usare una formattazione dei messaggi così scrausa che non
> riesco
> > a quotarti con le freccette eh...
>
> Pensati, x fino i messaggi hanno paura a farsi quotare da te!  ;D
>
> Pensa, sei la sola che ha questa paura.
>
> XXXfobica?
>
> Antonio
Pensa, che ti devo pure rispondere -->  :D GHE GO TROVA EL CAO!!!!
Fare il refresh della query
Private Sub CBODATA_AfterUpdate()
Me![datafly] = Me!CBODATA
Dim dbMio As Database
Dim rstMio As Recordset
Dim qdfMio As QueryDef
Set dbMio = CurrentDb
Set qdfMio = dbMio.QueryDefs("q_smcstfly")
qdfMio.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Me.Refresh
Set rstMio = qdfMio.OpenRecordset()
Set rst = Me.RecordsetClone
rstMio.Close
rst.MoveFirst
Do Until rst.EOF
  rst.Edit
  rst.Fields("cstmp_data") = Me!CBODATA
  rst.Update
  rst.MoveNext
  Loop
rst.Close
Set rst = Nothing
Me.Requery
End Sub
Un sentito grazie va al messaggio di SERGIO MAZZA del 11/12/2003, che
mi ha dato l'illuminazione: post " lock ...a causa di violazioni di
condivisione" e il suggerimento era:
Forse, prima di aprire la form B non hai aggiornato i valori del
record in
A; prima di aprire B fai un Me.Refresh...
*****************************************************************
Grazie Antonio e Marco!!!!
Samantha
p.s.: l'unica fobia è cadere in aereo mentre è in volo... eppure volo
lo stesso!


title: Filtri multipli su maschera

author: pang

text:
Salve ragazzi, vorrei capire come filtrare diversi campi da una maschera con
un tasto.
Ad esempio, ho una tabella chiamata 'tabella1'
che contiene i seguenti campi
Nome
Cognome
Città
Ed una maschera per implementare tale tabella chiamata maschera1.
Su tale tabella vorrei inserire tre caselle di testo non associate chiamate
filtronome
filtrocognome
filtrocittà
poi inserendo su filtronome CLA
su filtrocognome RO
e su filtrocitta CO
e cliccando su un tasto chiamato ad esempio FILTRA
mi deve filtrare tutti i record che hanno il campo nome che inizia con CLA
*AND* il cognome che inizia con RO *AND* la citta che inizia con CO
Grazie per gli eventuali aiuti, pang


title: Filtri multipli su maschera

author: Roberto da casa

text:
"pang" <
pangN...@email.it
> ha scritto nel messaggio
news:Hgmkd.149430$b5.73...@news3.tin.it...

A fronte dell'evento "Su clic" del pulsante FILTRA genera il seguente codice
VBA:
Private Sub FILTRA_Click()
Me.Filter = "Nome Like " & Chr$(34) & Me!filtronome & "*" & _
Chr$(34) & " AND Cognome Like " & Chr$(34) & Me!filtrocognome & _
"*" & Chr$(34) & " AND Città Like " & Chr$(34) & _
Me!filtrocittà & "*" & Chr$(34)
Me.FilterOn = True
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Filtri multipli su maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:D4nkd.26364$Es2.5...@twister2.libero.it...
> A fronte dell'evento "Su clic" del pulsante FILTRA genera il seguente
codice
> VBA:
Grazie, lo provo quanto prima.
pang.


title: [Accessgroup] La Tombola completa è online

author: MA

text:
Preparate castagne, vino e frutta secca... questo Natale si gioca con la
tombola di sv
Salvino ha finito la sua epica fatica e devo dire č venuta bene
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


author: sv

text:
MA ha scritto:
> Preparate castagne, vino e frutta secca... questo Natale si gioca con la
> tombola di sv
> Salvino ha finito la sua epica fatica e devo dire č venuta bene
Che si fa per gli amici... :-)))
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Marco

text:
"sv"  wrote
>
>> Preparate castagne, vino e frutta secca... questo Natale si gioca con la
>> tombola di sv
>
>> Salvino ha finito la sua epica fatica e devo dire è venuta bene
>
> Che si fa per gli amici... :-)))
E' la prima volta che vedo questo db.
molto carino, però non vedo il file leggimi.txt ed i più ho degli errori di
run-time tipo 2450, 2505.
forse ne ho fatto un uso impropio.
>
> --
> sv
>
>
>
ciao


text:
Marco ha scritto:
> "sv"  wrote
> >
> >> Preparate castagne, vino e frutta secca... questo Natale si gioca con la
> >> tombola di sv
> >
> >> Salvino ha finito la sua epica fatica e devo dire è venuta bene
> >
> > Che si fa per gli amici... :-)))
> E' la prima volta che vedo questo db.
> molto carino, però non vedo il file leggimi.txt ed i più ho degli errori di
> run-time tipo 2450, 2505.
Risolto. Rieffettua il download.
> forse ne ho fatto un uso impropio.
> >
--
sv



author: Sergio MAZZA

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:ejkul3$iq3$1...@tdi.cu.mi.it...
>
> E' la prima volta che vedo questo db.
> molto carino, però non vedo il file leggimi.txt ed i più ho degli errori
> di run-time tipo 2450, 2505.
> forse ne ho fatto un uso impropio.
E' una Tombola non il Mercante in fiera; quindi non cercare la Gatta!
> ciao
Ciao.
--
Sergio MAZZA


author: luk

text:
"sv" <
sal...@accessgroup.it
> ha scritto nel messaggio
news:ejrmsd$4j6$1...@news.newsland.it...
> > >> Preparate castagne, vino e frutta secca... questo Natale si gioca con
la
> > >> tombola di sv
Bene. A quando una versione on line??? cosě si gioca direttamente
dall'ufficio.....  :-))
ciao
Luca


author: Alessandro Baraldi

text:
Sergio MAZZA ha scritto:

Ennnnnnoooooo.... io cercavo proprio la GATTA NERA....!!!!!
Dai Salvino vedi di implementarla nel Download...
@Alex


author: Carlo Costarella

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ejklnp$7q0$1...@tdi.cu.mi.it...
> Preparate castagne, vino e frutta secca... questo Natale si gioca con la
> tombola di sv
>
> Salvino ha finito la sua epica fatica e devo dire è venuta bene
>
Così, per gioco solo piccole modifiche alla grafica...
http://www.frantoiogestione.com/Tombola.zip
Ciao, Carlo


text:
MA wrote:
> Preparate castagne, vino e frutta secca... questo Natale si gioca con
> la tombola di sv
>
> Salvino ha finito la sua epica fatica e devo dire è venuta bene
>
Presto online i wave dei numeri in napoletano
Se sv vorrà metterà online quelli in siciliano e si aspettano quelli nelle
altre lingue
Sarebbe simpatico averli anche in crucco



author: miciomao

text: Belissima complimenti


title: visualizzare in un report un campo di tipo rtf

author: ]SiLVieTTa[

text:
ho un campo del tipo:
{\rtf\ansi \deff0{\fonttbl{\f0\froman Times New
Roman;}}{\colortbl;\red0\green0\blue0;}\deftab1134{\pard\qj \sl240 \plain \f0
\fs24 \b \ul \cf1 Cod. 28.05.015///
03.12.06.048
 CINTO ERNIARIO SU MISURA PER
ADULTI\plain \f0 \fs24 \cf1 . Possono essere fornit
i esclusivamente ad invalidi non operabili. SCROTALE PER ERNIA INCONTENIBILE E
SOSPENSORIO PER ERNIA VOLUMINOSA.}}
come posso fare per visualizzarlo in un report?
forse un controllo Rich Text Box ?
dov'č?


text:
Thread ricco mi ci ficco: Il Mon, 15 Mar 2004 11:43:42 GMT, "]SiLVieTTa["
<
silviaTOGLIQ...@studiomarketing.it
> dopo averci riflettuto a lungo, ha
scritto:
>come posso fare per visualizzarlo in un report?
>forse un controllo Rich Text Box ?
>dov'č?
ops scusate il re-post


title: Creare tabelle con proprietà in VBA

author: Carlo

text:
Voglio creare una procedura in VBA per creare le tabelle e le relative
maschere partendo da un grande elenco di variabili con annesse
proprietà (creato in Excel).
Sono riuscito a creare una tabella tramite "Microsoft DAO 3.6 Object
Library" con i nomi dei campi, il tipo di dato e la dimensione tramite
questa funzione:
[cite]
Function CreaTabella()
On Error GoTo ErrHandler
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
  Set db = Application.CurrentDb
  Set tdf = db.CreateTableDef("Tabella1")
  With tdf
    Set fld = .CreateField("ID", dbLong)
      fld.Attributes = fld.Attributes Or dbAutoIncrField
    .Fields.Append fld
    .Fields.Append .CreateField("Data", dbDate)
    .Fields.Append .CreateField("Settimana", dbInteger)
    .Fields.Append .CreateField("Nome", dbText, 30)
    .Fields.Append .CreateField("Commessa", dbText, 15)
    .Fields.Append .CreateField("Attivita", dbText, 5)
    .Fields.Append .CreateField("Ore", dbSingle)
    .Fields.Append .CreateField("Trasferta", dbText, 5)
    .Fields.Append .CreateField("Pranzo", dbInteger)
    .Fields.Append .CreateField("PSRic", dbInteger)
    .Fields.Append .CreateField("PCRic", dbInteger)
    .Fields.Append .CreateField("KM", dbInteger)
    .Fields.Append .CreateField("KMP", dbInteger)
    .Fields.Append .CreateField("AutoTipo", dbText, 25)
    .Fields.Append .CreateField("AutoKMinit", dbInteger)
    .Fields.Append .CreateField("AutoKMfine", dbInteger)
    Set idx = .CreateIndex
    With idx
      .Name = "PrimaryKey"
      .Primary = True
      .Unique = True
      .Fields.Append .CreateField("ID", dbAutoIncrField)
    End With
    .Indexes.Append idx
  End With
  ' Accoda un nuovo oggetto TableDef al database
  db.TableDefs.Append tdf
ExitHere:
    Set fld = Nothing
    Set idx = Nothing
    Set tdf = Nothing
    Set db = Nothing
    Exit Function
ErrHandler:
    MsgBox Err.Number & " " & Err.Description
    Resume ExitHere
End Function
[/cite]
Vorrei però aggiungere, sempre in VBA, le altre proprietà dei campi:
  Formato
  Maschera di input
  Etichetta
  Valore predefinito
  Valido se
  Messaggio errore
  Richiesto
  Indicizzato
Ho visto una cosa simile scritta da Federico Luciani in questo post
http://groups.google.it/group/it.comp.appl.access/msg/9cf7248479901658?hl=it
ma non ho capito come integrarla nella creazione della tabella.
  Dim dbs As Database
  Dim tdf As TableDef
  Dim prp As Property
  Set dbs = currentdb
  Set tdf = dbs.TableDefs("tblTimeStamp")
  Set fld = tdf.Fields("DataOper")
  Set prp = fld.CreateProperty("Format", 10, "dd/mm/yyyy")
  fld.Properties.Append prp
  Set prp = fld.CreateProperty("InputMask", 10,
"99/99/00;0;_")
  fld.Properties.Append prp


title: Creare tabelle con proprietà in VBA

text:

> Ho visto una cosa simile scritta da Federico Luciani in questo posthttp://
groups.google.it/group/it.comp.appl.access/msg/9cf724847990165.
..
> ma non ho capito come integrarla nella creazione della tabella.
>
>   Dim dbs As Database
>   Dim tdf As TableDef
>   Dim prp As Property
>   Set dbs = currentdb
>   Set tdf = dbs.TableDefs("tblTimeStamp")
>   Set fld = tdf.Fields("DataOper")
>   Set prp = fld.CreateProperty("Format", 10, "dd/mm/yyyy")
>   fld.Properties.Append prp
>   Set prp = fld.CreateProperty("InputMask", 10,
> "99/99/00;0;_")
>   fld.Properties.Append prp
Dimenticavo: che riferimenti ci vogliono per fare funzionare il tutto?
Tra l'altro alcuni esempi della guida di Access non mi girano.
Probabilmente ho qualche libreria o riferimento disabilitati. Qualcuno
sa dirmi quali sono i riferimenti standard da attivare?


title: M`I'5`Persecution  - MI5  W ant Me to Se nd Y ou these  Faxes

text:
MI5 Want Me. to Send You these Faxes
MI5 seem to Want to Spin this Business. out for as Long as Possible
The MI5 persecution has now been going on, starting from June 1990,. for
well over. nine years. If I knew how to put an end to it then I would do
so. Of course MI5 have indicated how they wish to finish the matter,. by
finishing. me off; they indicated this very clearly years ago when they
were shouting "suicide" at. me.
But. a deeper truth is that the MI5 agents carrying out the persecution
rely on. it for their income and their livelihood. They have absolutely no
interest in anything other than. spinning out the whole business, because
that is how they will maximise their earnings. from their employer for the
"work". they do against me.
A vital. part of the fantasy structure MI5 have created about me is that I
am somehow. a worthwhile target. If you bother to read these faxes, if you
browse my website, or perhaps read my posts. on the uk.misc newsgroup, you
will have by. now twigged that I am a totally insignificant person who in a
proper dictatorship like East Germany would not merit five minutes. of
Stasi time. But Britain is improper in. the methods of its corruption, and
the Security Service seeks to present me. as being a an evil fascist, an
evil communist, an evil something-else, and even a. "national institution".
It occurs to me that to some extent I am. playing into their hands, into
their scheme of. things, by writing these articles and sending these
faxes. By doing these. things, I elevate my profile, and fuel MI5s paranoid
obsession with me. But to stop sending. faxes would be to give up the only
hope I have of seeing their campaign "outed". and justice done. Certainly
there is no point going to the police again; and as remarked in. a previous
article, the Security. Service Tribunal routinely whitewashes every
complaint. that is placed before it.
So although. MI5 seems to want me to continue sending these faxes, doing
this is the. only real chance of getting this business out into the
open. And so Ill continue trying to kick down their. house of cards. At
least my situation is less. serious than that of some other victims of the
secret services; unlike Shayler I am not broke and exiled;. unlike Fayed I
have not lost a son to. the posited activities of the secret services. All
I have lost is some of my health, some of my life, and some of my. possible
career.
MI5s Abuse of me is. without Cause or Reason
It constantly puzzles me that MI5 refuse to leave me. alone, wherever I go
and whatever I do, or rather, whatever I dont do, since. Im not a very
socially or otherwise active. person. When I am in England, they chase me
all over the place, and once theyve found me, they pay people to. shout
rude words at me. When I am in Europe, they again chase me all over. the
place, and as usual pay people to shout obscenities at me. When I. am in
Canada or visiting the States, they faithfully. chase me all over the
place, and when they find me, pay people to. shout obscenities at me.
It is hard to avoid the conclusion that these MI5 operatives who. chase me
are total lunatics. You will. remember from a previous articles the
assessment "MI5 Agents are Clinical Psychopaths". They have tried to. blame
me for what. they do and what they say; yet their lies have been
wafer-thin, and are clearly seen to. be oiled by the money which they
acquire from the Government, and ultimately from. the taxpayer.
They have tried various lies to put the blame. on me; "we have to abuse him
because hes a nutter", as if there werent many. tens of thousands of other
people with schizophrenia in the United. Kingdom. Their choice of abuse
words is telling; subconsciously perhaps they realise that. it is they who
are the "nutters", and they try to project their own illness onto. their
target.
MI5. Operatives have Nothing Else to Do With Their Time
Ive seen the same "Alan Holdsworth" person three or four. times over a
period of several years. I saw him at the Civic Hospital in Ottawa. in the
Emergency Ward, where he falsely declared his name. to be "Tad"; at Ottawa
airport in summer. 1998; and on board another flight in 1995.
So what we see from the above paragraph is,. the same people are delegated
to watch me for many years. Without me, they wouldnt. have a job. They
literally have nothing else to do with their time, except indulge. their
voyeurism against me. With this observation, we come to. the core of MI5s
campaign against me; these people. are not fit for any job other than the
exercise of voyeurism against me, and if. sanity were to land on MI5 then
they would. be out of a job. If sanity were truly to land then these people
and their employers would be. prosecuted for offences under the Protection
from. Harassment legislation, which they are clearly breaking.
It is one of the ironies of their campaign. that MI5 have been trying to
make me an object. of ridicule for completely trivial things I have done,
while MI5 themselves have simply. not mentioned how ridiculous is their own
behaviour. and that of broadcast media journalists, in spying on me while
they. read the news for example. If the whole truth of this business is
ever exposed, and despite all my efforts it still seems there is. a block
on its exposure in Britain, then the rights and wrongs will be. clear to
all, and no amount of MI5 lies will be able to change that. MI5. presumably
do realise just how damaging such a revelation would. be both to
themselves, and to broadcast media such as the BBC and ITN, because. there
has not been even the slightest chink in the armour, despite four and. a
half years of my complaints on internet newsgroups and by. fax to
politicians. and the media.
MI5s Final Kick in the Teeth. to the British State
For someone like myself born in the late sixties. it seems peculiar to
think that Great Britain. once used to have a say in the destiny of foreign
peoples in far-off sections of. the globe. Modern Britons tacitly accept
the lowering of their country to a third-rate power reliant on the. United
States. for what little say it has in the world. A third-rate power, now
"reverse-colonised" by third world peoples it once ruled and riven. with
internal problems so severe the government. hardly dares acknowledge them.
To. this third-rate power the MI5 secret police are delivering the final
kick in the teeth through. a campaign of persecution which is guaranteed to
hold the state up to ridicule throughout the world when. it is finally
exposed. As a "thought experiment" suppose the French or. the Spanish
security service had done to one of their own born citizens what MI5. has
done in this country. Suppose say the Spanish. had planted hidden cameras
in his home, for the perverted pleasure of their state. television
newscasters, just as hidden cameras have been placed in my home. for the
perverted pleasure of Martyn. Lewis, Nicholas Witchell et al. Suppose the
Spanish service had for nine years been trying to. force suicide on their
target; at times, so blatantly that. they shouted the word "suicide".
Now suppose they. were caught.
Of. course, as long as MI5 arent caught, theyre laughing. The psychopathic
security service. agents gets their kicks from shouting abuse at me; the
newscasters, Lewis, Witchell etc get their jollies, "it was. so funny", we
were watching this bloke and he couldnt. do anything about it.
But once theyre caught, the sky falls in. Of course,. the
"patriotic" MI5-funded media in Britain will try to put. the best spin on
the MI5/media activities; it was the targets fault, of course.. But most of
the world bears. no allegiance to Britain. If this business is ever exposed
then a weakened Britain will become the laughing-stock. of the world. And I
promise you, the security services persecution of me will. be exposed. MI5
has delivered a final kick in the teeth to the British state,. and I will
do everything I can to ensure the. world hears about what they have done.
Metropolitan Police Refuse to Investigate. the MI5 persecution
I have on a couple of occasions tried to. motivate the police to
investigate MI5s actions. against me. On each occasion they have refused to
do. so. In 1995 I went to my local police station and spoke to an officer
there; he. refused to accept my complaint, and seemed interested only in
seeing. me leave the station as quickly as possible.
Earlier this. year I had some communications with Det.Sgt.Richards of
Charing Cross police.. Again I asked him to deal with MI5s actions against
me. Unfortunately DS Richards conformed to the negative stereotype of. the
bigoted, ignorant "copper"; he said,. "I have read your various bits on the
internet. I'm afraid there is no substance or credence to. it. It's an
absolute load of rubbish. I. don't investigate rubbish. I can't be more
blunt or to the point than. that."
You have to wonder at. the state of law enforcement in Britain. If the
victim of a. murder is black, as happened in the Lawrence case, the police
deliberately botch the investigation. If the victim of. a crime is mentally
ill, and. the perpetrators are the secret services, as in my case, then the
police refuse to even begin. to investigate the crimes
committed. Politically. Britain is a third-rate country, but from the point
of. view of obtaining justice, Britain ranks down there with third-world
countries. You almost feel that MI5 and their media buddies would not. even
have. any shame if their activities against me were exposed; after all, why
should they? they have the money, they have the control,. OK so perhaps
theyve broken a few dozen laws, but doesnt the fact that the police. are
too corrupt to investigate these crimes, doesnt that prove that in fact. no
crimes have been. committed?
I should say again what I have said. earlier in this article. My losses
over. the last nine years have not been as great as those of other victims
of British Secret Police malefaction. Fayed lost his. son to their
murderous. activities; in my occasional communications with former MI5/MI6
employees I have been informed that a. "permanent solution" is not uncommon
for opponents of the British secret police. I have lost health. and
financially, but am obviously well enough to. keep fighting my case. Others
have lost much more than I. If the joke. which is British "law
enforcement" refuses to enforce laws against the security services. then
that is something that. is recognised in other countries and Britains stock
correspondingly falls. Not that it has very far. to fall; the days when
England had any say in the world are long. gone.
MI5. Want These Faxes to Continue
Before the. holiday, I said that if MI5s harassment of me stopped, then I
would cease my complaints. They have known very well. that if they
continued to harass me then. I would resume the fax campaign in the
autumn. Yet they have not stopped persecuting me.. Recently a woman outside
my domicile screamed. her head off with abuse in the direction of my
window; and on Saturday 2 October, when I. was shopping at a nearby
supermarket, a. man shouted the particularly vile sexual swear word which I
have heard many times before over. the last few years.
MI5s attitude shows complete arrogance. Yet it. also shows that they want
the faxes to continue and deliberately try. to provoke me into sending
further faxes. The reasons for. this are given in the first paragraphs of
this article; the MI5 operatives who persecute me have nothing. else to do
with their time; to make their campaign,. against an apparently unreacting
target, have. some value, they have to force me to react in some way
against their actions; and by reacting in this way,. by bringing their
campaign to the. attention of British politicians, I play into their hands,
by giving their. campaign the attention and importance which they feel it
deserves.
In the short term, by sending these faxes, perhaps I am doing. something
they want. me to do, but in the longer term it is undoubtedly more in my
interest than theirs for their activities to be. exposed. If their
operatives truly do wish to see these faxes continued then they. are
committing a serious mistake, because it significantly. increases the risk
if M.P.s (some of whom. already know about MI5s activities against me) are
advised of. my side of the story.
I. will continue to monitor and record the secret services activities
against me over the. next few weeks. If they diminish and cease, as I hope
they will, then I may be able to call a halt to these. faxes; but that it
something which is entirely up to them;. recently their continued
harassment makes clear that they do wish the faxes to. continue, and in all
sincerity I do think they. will continue their activities and make it
impossible for me to cease these faxes. It may. trouble you to receive
these articles, but it troubles me much more to be on the receiving end. of
a national persecution campaign; and while Britain does not. have free
speech provisions as does Canada. in the Charter of Rights and Freedoms,
and the US in the first amendment to the constitution, in practice I. do
not think anyone is going to try to have me locked up. for speaking the
truth. I still cherish the hope that the veracity I express. will be shown
for what it is, and that the truth will prevail and make me. free.
Removing. the Mask of Anonymity from the MI5 Operatives
Undoubtedly one factor encouraging the MI5. agents actions against me has
been the fact that they can shelter. behind a mask of anonymity while they
carry out their abuse. This is both a. sign of their realisation that their
actions. are criminal; for crimes are harder to pin down and make a
coherent complaint about when their perpetrators are unknown; and it. is a
sign of their cowardice,. since they lack the backbone to say things to my
face themselves;. instead they almost always rely on third parties to carry
out. the actual acts of abuse.
On a few occasions I. have seen the perpetrators, but on each occasion they
have managed to preserve their. anonymity. They travelled on the same
British Airways flight as me in 1994; but BA have ever. since refused to
give. up the passenger list for the flight, and the police and lawyers have
proved useless in obtaining their identities from the list. Also one. of
them followed me. into A&E department of Ottawas Civic Hospital a couple of
years ago, and gave his name. as (if I heard correctly) "Alan
Holdsworth"; but the doctor refused to give out his. identity when I later
tried to. speak to him.
If only we knew the identities of the individual operatives, then. it would
be. possible to find out the identity of their employing organisation. But
I think we know the latter already, since I have. been accusing them on
internet newsgroups for four and a. half years now, and they have never
denied my guess.. Indeed, when I was travelling in January 1996 back to
Ottawa, two. youths on the (British Airways again, unfortunately) flight
made a lot of noise at me, one of. them saying to the other that I "didnt
know who we are".. That is a wafer-thin denial; I had been saying for a
year that they were MI5, so a. stronger denial would be necessary if my
guess were truly mistaken.. I think the lukewarm denial was worse than no
denial. at all, since it confirmed my guess that the employing agency was
indeed. MI5.
Conclusion
It has been suggested to. me that by sending these faxes I could be making
trouble for myself; but I dont think so. My psychiatrist knows. what I am
doing; indeed I have given him a. couple of these articles for him to cast
an eye. over.
I dont want to have to send faxes. for the next year, or the year after
that. But. that is entirely up to MI5. If they continue to persecute me
then I am forced into. defending myself. The ball is in their court, and it
is entirely up to them what they do.. If as I suspect it is their intention
that these faxes continue, if that is what they insist. will happen then so
be. it.
10200
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDem


title: Che strumento per copiare 'oggetti' db da un db ad un altro?

author: RobertoA

text:
Capita abbastanza spesso di lavorare con db diversi
Sql Server, Postgresql, Firebird, Db2, ecc..
Sarebbe molto utile uno strumento che permettesse di 'copiare' un
oggetto da un db ad un altro
Dove per 'oggetto' intendo una tabella, una stored procedure, un
trigger, ecc..
Questo perche'a volte su un db c'e' qualche tabella che interessa (coi
dati dentro intendo) e bisogna portarle dentro altro db
Ovviamente i linguaggi diversi (parlo delle stored procedure) usati da
db diversi sara' difficile 'convertirli' ma chissa' magari qualcuno ce
l'ha fatta
Conoscete qualche prodotto che faccia questa cosa?


author: Karl Donaubauer

text:
Salve,

RobertoA:

Per le tabelle puoi provare DBeaver (
https://dbeaver.io/
):

https://github.com/dbeaver/dbeaver/wiki/Data-migration

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

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


title: Indirizzo IP

author: Apollo

text:
C'č qualcuno che mi puņ aiutare?
Ho realizzato un'applicazione che gira in rete e mi servirebbe sapere chi si
collega al database che IP ha,
č possibile?
Resto in attesa aiutatemi.
Grazie


title: Indirizzo IP

author: MegaMax

text:
"Apollo" <
gmi...@libero.it
> ha scritto nel messaggio
news:cX7P8.25417$j65.6...@twister1.libero.it...
> C'è qualcuno che mi può aiutare?
> Ho realizzato un'applicazione che gira in rete e mi servirebbe sapere chi
si
> collega al database che IP ha,
> è possibile?
è possibile, ma non è facile.
Se cerchi nell'msdn, da qualche parte esiste una pagina che parla del
formato del file di locking di Jet (i file .ldb)
Quindi puoi interpretare il file LDB per vedere i nomi dei PC collegati, e
da li risali all'IP (usi il DNS della rete).
Comunque ti serve un programma che sia sempre in funzione, e che possa
accedere al file LDB che si crea quandoi qualcuno accede al db.
Ciao, Max


title: problema su aggiornamento di un controllo in maschera continua

text:
"durante la corrente sessione di modifica il record è stato modificato da un
altro utente. Salvando le proprie modifiche si sovrascriveranno i cambiamenti
dell'altro utente" ecc.. so che lo conoscete bene.
ho provato a cercare negli archivi del ng soluzioni date ad altri, ma non ho
trovato niente che mi potesse aiutare.
effettivamente il msg mi risulta strano... non riesco a capirne l'origine.
si verifica solo in un caso.
ho un campo dove inserisco una data. (data1)
su dopo aggiornamento apro con ado la stessa tabella, con un filtro e delle
condizioni.
calcolo la data di un altro campo e vado a stamparla in un altro controllo
(datascadenza)
prima di fare ciò, la copio nel campo datascadenza anche degli altri record
filtrati.
solo a questo punto copio la data nel controllo del record dell'evento con:
Me.DataScadenza = DataScadenza
tutto funziona
ma.....
siccome mi trovo in una per me ormai famosa ed odiata modalità maschera
continua, quando dopo il CORRETTO aggiornamento del campo e del controllo
datascadenza, mi sposto su un altro record, oppure clicco sul pulsante salva, mi
viene restituito l'errore che ho copiato a inizio mail.
da cosa può dipendere?
forse dal fatto che le tabelle non sono incluse nel db, ma collegate?
però modifiche su altri campi non danno errore...
forse dipende dal tipo di lock usato nell'aprire il recordset?
ma sulla tabella le modifiche mi sembra avvengano senza problemi e inoltre ho
provato anche con altri tipi di lock...
l'applicazione andrà in rete, ma finora si trova tutta sul mio pc, aperta solo
da me....
Ciao
Silvia.
 --
www.silvietta.it
...everyone's invited!
Prima di offendere qualcuno contate fino a dieci: vi verranno in mente molti piu' insulti!


text:
Ho provato a mettere maschera singola, ma stavolta sembra essere innocente.
cmq copio il codice, magari potesse aiutarvi ad aiutarmi.
nel controllo Data1 inserisco/modifico una data
il campo DataScadenza della tabella corsi deve essere aggiornato aggiungendo 90
giorni alla data1, in determinati record filtrati.
a questo punto deve/dovrebbe essere copiato il risultato anche nei relativi
controlli datascadenza.
Private Sub Data1_AfterUpdate()
    Form_Current 'calcola e stampa correttamente altri campi
    If Not Me.Data1 = "" Then
        Dim objRS As Recordset
        Dim sql As String
        Dim DataScadenza As Date
        Set objRS = New ADODB.Recordset
        sql = "SELECT DataScadenza, edizione FROM Corsi WHERE " & _
            "CodiceCorso='" & Me.CodiceCorso & "' ORDER BY Edizione desc"
        objRS.Open sql, CurrentProject.Connection, 3, 3
        If Not objRS.EOF Then
            'se l'edizione dove ho fatto modifiche è l'ultima edizione
disponibile
            If Me.Edizione = objRS("edizione") Then
               DataScadenza = DateAdd("d", 90, Me.Data1)
               While Not objRS.EOF
                   objRS("DataScadenza") = DataScadenza
                   objRS.Update
                   objRS.MoveNext
               Wend
            End If
        Else
            MsgBox "Si è verificato un errore"
        End If
        objRS.Close
        Set objRS = Nothing
        Me.DataScadenza = DataScadenza
      '  DoCmd.Requery "DataScadenza"
      '  Me.Requery

       ' Me.Refresh
     '   Dim ctlCombo As Control
    ' Return Control object pointing to a combo box.
   ' Set ctlCombo = Forms!m_corsi!DataScadenza
    ' Requery source of data for list box.
    'ctlCombo.Requery
    End If
End Sub
ho lasciato anche alcune prove che avevo fatto....



author: namor

text:
]SiLVieTTa[ ha scritto:

Quando modfichi data1 lasci in sospeso le modifiche sul record. Se nel
frattempo lo modifichi anche con ADO direttamente sulla tabella, quando
cerchi di salvarlo ti dà quell'avviso.
Per risolvere puoi fare un SaveRecord prima di modificare la tabella con
ADO, o spostare il codice da data1_afterupdate a form_afterupdate.
Namor
--
Aiuta chi ne ha bisogno, non ti costa niente:
www.shopmon.it
  -
www.porloschicos.com
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
]SiLVieTTa[ ha scritto:

Perchè invece che fare il lavoro con ADO non lo fai con una query UPDATE
visto che in definitiva si tratta di aggiornare il valore di un campo su
alcuni record, individuati da un certo criterio?



title: Come si sommano le colonne e le righe in una query a campi incrociati?

author: Joyce

text:
Ho una query a campi incrociati.
Vorrei che nell'ultima riga comparissero i totali delle colonne e che in una
nuova colonna apparissero le somme dei valori sulle righe.
Come si fa?


text:
"Joyce" <
liap...@uni.de
> ha scritto nel messaggio
news:qALM6.4375$jp1.4...@news.infostrada.it...

Riassumendo ti dico come ho fatto io...
Chiamiamo A i dati che usi normalmente per la cross-query...
Ora usi A per la cross query...
Invece potresti usare A un una query a parte per calcolare i totali delle
colonne (con opportuni ragruppamenti) ed ottieni i dati B; e poi usi sempre
A in una'altra query a parte per calcolare i totali delle righe (con altri
opportuni ragruppamenti) ed ottieni i dati C.
A questo punto fai una queri con 2 union che unisce i dati A, B, e C; ed usi
l'uscita di quest'ultima query come sorgente dati per la cross-query.
Sperando che quanto ho detto si capisca... così facendo c'è un problema, che
le  righe/colonne dei totali non saranno ai bordi della maschera, ma saranno
dove saranno... per risolvere questo problema io ho aggiunto dei campi
fittizzi per l'ordinamento, ad esempio avevo usato un campo numerico
contenente sempre 1 per i dati A, e sempre 2 per i dati B, ed ordinavo prima
per questo campo numerico, e poi per il nome della riga.... così i totali
venivano in fondo :-)
Chissà se ho scritto qualcosa di comprensibile....
Ciao, Max


text:
> Riassumendo ti dico come ho fatto io...
> Chiamiamo A i dati che usi normalmente per la cross-query...
>
> Ora usi A per la cross query...
>
[...]
>
> Chissà se ho scritto qualcosa di comprensibile....
>
> Ciao, Max
mmm... dunque...
ho capito d'idea di fondo delle due query che unisco per ottenere quelo che
cerco...
ma i passaggi sono poco chiari!!
comunque smanetterò!
Qualcun altro conosce un'altra strada?
Grazie


author: Roberto da casa

text:
"Joyce" <
liap...@uni.de
> ha scritto nel messaggio
news:sRNM6.6856$jp1.4...@news.infostrada.it...

Quanto ai totali di riga, se tu lo chiedi nel wizard, te li crea
automaticamente l'autocomposizione query a campi incrociati.
Per i totali di colonna è sufficiente fare una query di raggruppamento
basata sulla query a campi incrociati.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Controllo per codice HTML

text:
Salve,
non sono molto pratico di MS Access.
volevo chiedervi solo se esiste un controllo da associare ad un campo memo
che mi permette di "renderizzare" il codice HTML contenuto nel campo.
Resto in attesa.
Saluti,
Giovanni


title: Controllo per codice HTML

author: Cinzia

text:
"S.C.A.I." <
scail...@tiscali.it
> ha scritto nel messaggio
news:437cb404$0$8485$5fc...@news.tiscali.it...

Ciao SCAI,
puoi usare il controllo WebBrowser.
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
---------------------------------------


title: Controllo per codice HTML

text:
> Ciao SCAI,
>
> puoi usare il controllo WebBrowser.
Ti ringrazio, ma come faccio a collegarlo?
Non trovo nulla.
Giovanni


title: Controllo per codice HTML

text:
"S.C.A.I." <
scail...@tiscali.it
> ha scritto nel messaggio
news:437de2fe$0$8499$5fc...@news.tiscali.it...

Ciao Giovanni,
per prima cosa devi inserire tra i riferimenti  in VB - Strumenti -
Riferimenti  Microsoft HTML Object Library e Microsoft Internet Controls.
Aggiungere il controllo WebBrowser alla tua maschera e un controllo testo
invisibile  che avrà come origine il campo che contiene il codice HTML che
vuoi visualizzare.
Sul caricamento della maschera, istruisci il Webbrowser ad andarsi a leggere
un file HTML vuoto che avrai opportunamente messo da qualche parte sul tuo
HD
Private sub Form_Load()
    me.Webbrowser1.Navigate File://C:\Prova\Prova.htm
end sub
A questo punto dobbiamo "imbrogliare" il WebBrowser e fargli caricare i dati
che sono nel controllo invisibile  che chiameremo testoHTML, per fare questo
sfruttiamo l'evento Document_Complete del WebBrowser  e scriviamo:
Private sub WebBrowser1_DocumentComplete(ByVal pDisp as Object, URL as
Variant)
Dim x as MSHTM.HTMLDocument
Set x=Me.WebBrowser1.Object.Document
x.Body.innerHtml = me.testoHTML.value
end sub
e a questo punto  dovresti vedere il tuo contenuto HTML
Saluti
-



title: info su query

author: default

text:
Ho creato una maschera associta ad una query. Se il risultato dell query
è nullo vorrei far apparire un messaggio che mi informa che , per
esempi, quel nome non è presente nel database...
Grazie


title: info su query

author: Roberto dal portatile

text:
"default" <
pa...@aruba.it
> wrote in message
news:397C0C44...@aruba.it...

Un modo potrebbe essere quello di usare la funzione DLookup, i cui criteri
debbono essere in sintonia con quelli della tua query; se la ricerca della
DLookup dà esito negativo, adopera un MsgBox per segnalarlo.
Oppure, se l'esito della selezione lo visualizzi in una maschera, analizza
un controllo della maschera che dovrebbe essere comunque significativo nel
caso in cui la ricerca è andata a buon fine; se detto controllo ha valore
Null, "ariadopera" il MsgBox di avviso.
Roberto


title: info su query

author: lbo dal portatile

text:
>Ho creato una maschera associta ad una query. Se il risultato dell query
>è nullo vorrei far apparire un messaggio che mi informa che , per
>esempi, quel nome non è presente nel database...
prova testando il .recordsetclone della maschera:
dim rst as recordset
set rst=me.recordsetclone
if rst.bof and rst.eof then
	msgbox "Non ce n'e'!"
end if
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Menù a pop-up

author: Alberto

text:
Ciao a tutta la lista.
Dove posso trovare, in Access 2000, l'editor del menù pop-up per
modificare/personalizzare i menù a tendina?
Grazie a chi vorrà rispondermi
Alberto


title: Menù a pop-up

author: Fabio Effe

text:
Alberto <
al...@freemail.it
> wrote in message 83aidb$621$1...@pinco.nettuno.it...
> Ciao a tutta la lista.
> Dove posso trovare, in Access 2000, l'editor del menů pop-up per
> modificare/personalizzare i menů a tendina?
>
*Mi sembra* (non ho adesso AC2000 per verificare) che sia dove č sempre
stato... pulsante destro sulla barra dei menu ecc ecc ecc.
Se intendi che non trovi piů in fondo alla lista la vose Menů di scelta
rapida... controlla in ordine alfabetico e la troverai al centro della lista
Fabio


title: Menù a pop-up

text:
Mi spiace ma non la trovo proprio do ve tu mi dici.
In Access 2.0 era in FILE-AGGIUNTE-MENU BUILDER......
Alberto
Fabio Effe <
fabio...@usa.net
> wrote in message
83alad$42b$1...@serv1.iunet.it...
>
> Alberto <
al...@freemail.it
> wrote in message
83aidb$621$1...@pinco.nettuno.it...
> > Ciao a tutta la lista.
> > Dove posso trovare, in Access 2000, l'editor del menù pop-up per
> > modificare/personalizzare i menù a tendina?
> >
>
> *Mi sembra* (non ho adesso AC2000 per verificare) che sia dove è sempre
> stato... pulsante destro sulla barra dei menu ecc ecc ecc.
>
> Se intendi che non trovi più in fondo alla lista la vose Menù di scelta



title: Menù a pop-up

text:
Ciao omonimo
Quello che devi fare è:
Cliccare sulla barra menu col tasto di destra
Scegliere Personalizza
Creare una nuova barra
Andare sulle sue proprietà
Scegliere il tipo Barra menu e confermare
Scegliere la pagina Comandi e scorrerla fino al fondo dove trovi [Nuovo
menu]
Trascinalo sulla tua barra per i menu che ti servono.
Poi se vuoi utilizzare delle funzioni tue prendi dalla categoria [File] la
voce [Aggiuntivo]
Con il tasto di destra clicca sul comando appena posizionato e definisci
l'icona ....
Se vuoi agganciare una funzione Scegli [Proprietà] e nella voce azione metti
=NomeFunzione()
Ciao Alberto
Alberto <
al...@freemail.it
> wrote in message 83aidb$621$1...@pinco.nettuno.it...
> Ciao a tutta la lista.
> Dove posso trovare, in Access 2000, l'editor del menù pop-up per
> modificare/personalizzare i menù a tendina?
>



title: Menù a pop-up

text:
Per inserire un menu di scelta rapida devi:
cliccare col tasto destro su una barra
evidenziare la barra [Menu di scelta rapida]
scegliere la pagina Comandi e scorrerla fino al fondo dove trovi [Nuovo
menu]
lo aggiungi alla voce [Personalizzato]


title: totali mensili

author: F. Canova

text:
Ciao a tutti,
ho un database dove ho i seguenti campi:
[data] [nominativo] [carico] [scarico]
ho creato una query che mi permetta di avere i totali ed i netti suddivisi
per mese:
Campo:    [mese]:mid([data];4;2)    [carico]    [scarico]
[netto]:[carico]-[scarico]
Tabella:
Formula:    Raggruppamento            Somma    Somma    Somma
Ordinamento:    crescente
e tutto funziona, tranne per il fatoo che vorrei visualizzare proprio il
mese (gennaio, febbraio, ...), anziché il numero del mese (01, 02, ...).
Come posso fare?
Grazie in anticipo, Fabio.


title: totali mensili

author: Gaspare

text:
[CUT]
Ciao,
 perchè non ti crei una function che sostituisce il nr 01 -02 etc..con i
nomi dei mesi?


title: totali mensili

author: Marco

text:
"F. Canova" <
f.ca...@fabiocanova.it
> wrote in message
news:dekooc$87g$1...@area.cu.mi.it...

Prova
format ([data];"mmmm")
ciao


title: totali mensili

author: Sergio MAZZA

text:
"F. Canova" <
f.ca...@fabiocanova.it
> ha scritto nel messaggio news:dekooc$87g$1...@area.cu.mi.it...

Ehilà!
Prova con la funzione Choose;
es.
Choose(val([mese]),"Gennaio","Febbraio","Marzo"...)
Ciao.
--
Sergio MAZZA


title: totali mensili

text:
[CUT]
Ciao Sergio,
you are the best ! ;-)


title: totali mensili

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio news:hSmPe.103394$fm.68...@news4.tin.it...
> [CUT]
>
>
> Ciao Sergio,
> you are the best ! ;-)
Ciao Gaspare, you are the bell?
Ciao.
--
Sergio MAZZA


title: totali mensili

author: MA

text:

Questa liason ci sta sfuggendo di mano..
dopo la combine Mario-Ciroteo... che sucederà al Cisa2?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: totali mensili

text:
[CUT]
>> Come posso fare?
>>
>> Grazie in anticipo, Fabio.
> Prova
> format ([data];"mmmm")
>
Già provato, ma non c'è verso di farglielo piacere, né dalla struttura della
macro, né nelle proprietà del campo in maschera. Continua imperterrito a
restituirmi i valori numerici.
Grazie lo stesso.
Fabio


title: totali mensili

author: Leonardo

text:

Ciao,
riguarda la sintassi perche' devi usare 3 m (mmm) e non 4 (mmmm).; se tu
inserisci ([mese] = format([data],"mmm") funziona al 100%, ne faccio uso
giornaliero.

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


title: totali mensili

text:
{CUT]
> Ciao Gaspare, you are the bell?
Eh no...questa proprio te la potevi risparmiare -> quando al mattino mi
guardo allo specchio ho un'attimo di paura...poi pian piano essendo da solo
capisco che sono io e non č lo specchio che mi fa i dispetti ! ;-)


title: totali mensili

text:
"F. Canova" <
f.ca...@fabiocanova.it
> wrote in message
news:demm3a$pg7$1...@area.cu.mi.it...

Non in tutte le versioni funziona:
=MonthName(Month([campodata])
ciao


title: totali mensili

text:
[CUT]
> Ciao,
> riguarda la sintassi perche' devi usare 3 m (mmm) e non 4 (mmmm).; se tu
> inserisci ([mese] = format([data],"mmm") funziona al 100%, ne faccio uso
> giornaliero.
In realtà viene utilizzato nells truttura della query, quindi è qualcosa
tipo:
MESE: Format([Data];"aa mmmm")
Raggruppamento
ed effettivamente sembra funzionare. Asino io che non so scrivere le formule
nella griglia.
Problemino ulteriore: non me li ordina per data crescente, ma, impostando il
formato "aa mmmm", me lo ordina prima per anno (avendo messo aa davanti),
poi in ordine ALFABETICO i mesi!!
Come posso fare per ordinarli in ordine cronologico?
P.S.
"mmmm" mi restituisce il moe completo del mese, altrimenti, con "mmm" mi
restituisce soltanto i primi 3 caratteri (gen, feb, mar, ...).


title: totali mensili

text:
"Marco" <
marco.w-no-...@email.it
> ha scritto nel messaggio
news:xDBPe.83399$2U1.4...@news3.tin.it...

Sembra non gradire molto ...


title: totali mensili

text:
"Gaspare" <
in...@studioieducation.com
> ha scritto nel messaggio news:JuBPe.83372$2U1.4...@news3.tin.it...
>
> Eh no...questa proprio te la potevi risparmiare -> quando al mattino mi guardo allo specchio ho un'attimo di paura...poi pian
> piano essendo da solo capisco che sono io e non è lo specchio che mi fa i dispetti ! ;-)
Specchiati con la carta d'identità!
Ciao.
--
Sergio MAZZA


title: totali mensili

author: TheMax

text:
F. Canova wrote:
> Problemino ulteriore: non me li ordina per data crescente, ma,
> impostando il formato "aa mmmm", me lo ordina prima per anno (avendo
> messo aa davanti), poi in ordine ALFABETICO i mesi!!
> Come posso fare per ordinarli in ordine cronologico?
Io metterei un altra volta il campo data, lo metti non selezionato ma
ordinato. Togli l'ordinamento dal campo che usa la funzione format e il
gioco è fatto.
Ciao,
Massimo


title: totali mensili

text:
[CUT]
> Specchiati con la carta d'identitŕ!
in effetti potrebbe essere un'idea...lasciamo perdere la patente la cui foto
risale ad un ventennio fŕ...potrei iniziare a buttar giů qualche lagrimuccia
! ;-)
Ciao e buona giornata :-)


title: totali mensili

text:
"TheMax" <
massimo...@accessgroup.it
> ha scritto nel messaggio
news:demv0g$5am$1...@area.cu.mi.it...

No, perché in questo modo riaggreghereppe per i singoli giorni ...
Anche togliendo la spunta sulla visualizzazione, comunque nella riga formula
deve rimanere "Raggruppa". Non è possibile mettere "Dove", perché và in
errore.
Fabio


title: totali mensili

text:
"F. Canova" <
f.ca...@fabiocanova.it
> ha scritto nel messaggio
news:dekooc$87g$1...@area.cu.mi.it...

Alla fine me la sono cavata con una soluzione, frose non troppo elegante, ma
comunque che mi permette di ottenere quello che desidero:
ho creato un bel report con raggruppamento per [data], raggruppato secondo:
Mese, intervallo: 1.
Nell'intestazione di gruppo ci ho piazzato un bel campo non legato con:
=Format([Data];"mmmm")
e di fianco un altro con:
=Format([Data];"aaaa")
così ho tutto ordinato cronologicamente per anno e mese.
di seguito ho fatto calcolare i totali dei chili e le medie che mi
interessano.
Nel piè di report i totali e le medie complessive, tutto pronto per una
bella stampa dopo averne preso visione in preview.
Magari non molto elegante, certamente scandalosa per un programmatore SQL,
ma efficace per i miei scopi.
Grazie lo stesso a tutti quanti, siete stato comunque di grande aiuto.
Fabio.


title: totali mensili

text:


Ah...
in che ordine li vorresti invece?
Tipo Anno e mese
Potrebbe funzionare con due campi fatti così
Year([data])
Mounth([data])
Ordini prima per anno poi per mese.
> Fabio
Ciao,
Massimo


title: totali mensili

text:
[omiss]
> Year([data])
> Mounth([data])
>
> Ordini prima per anno poi per mese.
>
Il problema è che a me serve il mese scritto in lettere ed in questo modo
ordina per ordine alfabetico, non in ordine cronologico.
Fabio


title: totali mensili

text:

Non devi per forza usare lo stesso campo
fatti la query con il mese testuale come ti serve aggiungi il campo
calcolato come numero e ordina per quello



title: totali mensili

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:4BGQe.34348$TR5....@news.edisontel.com...
> F. Canova wrote:
>> [omiss]
>>> Year([data])
>>> Mounth([data])
>>>
>>> Ordini prima per anno poi per mese.
>>>
>> Il problema è che a me serve il mese scritto in lettere ed in questo
>> modo ordina per ordine alfabetico, non in ordine cronologico.
>> Fabio
> Non devi per forza usare lo stesso campo
> fatti la query con il mese testuale come ti serve aggiungi il campo
> calcolato come numero e ordina per quello
Dato che prima raggruppo per anno/mese e poi riutilizzo il campo [Data] per
effettuare il riordino, impostando quest'ultimo come campo calcolato mi dà
errore.
Grazie, Fabio.


title: input mask con caratteri alfabetici fissi obbligatori

author: Giuseppe

text:
Buon pomeriggio.
In una casella di testo, devo inserire quattro caratteri, i primi due di tipo alfabetico e gli altri due numerici.
Ho impostato la maschera di input così:
>LL00;;_
devo costringere però ad usare come prime due lettere delle lettere fisse.
Come modifico la maschera di input? Dove trovo i codici corrispondenti alle lettere da far inserire?
Grazie
Giuseppe


author: Alex

text:
Con la Inputmask non puoi indicare quali caratteri ma il tipo di
 caratteri.
Puoi agire in 2 modi...
Intercettare il KeyPress o KeyDown e, leggendo a quale carattere
 ti trovi rendere nulla la digitazione se non jn relazione alla
 logica di cui necesiti... controllando il KeyCode o KeyAcscii a
 seconda...
Fai attenzione a leggere correttamente la proprietą TEXT del
 controllo e prevedi i caratteri Back e cancel...
Esempio qui trovi come consentire solo lettere... e su quella
 logica con poche modifiche ottieni quello che hai
 chiesto:
https://stackoverflow.com/questions/35935020/only-allow-letters-in

-textbox-for-ms-access

Altrimenti puoi usare il ValidationRoule anche da maschera
 proprietą in quel caso puoi sfruttare il Patern del LIKE per
 validare, ma in questo caso la validazione avviene solo
 dopo...
Qui trovi alcuni esempi:
http://allenbrowne.com/ValidationRule.html

--
@Alex

----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html


title: Compiare un campo su tanti campi

author: Santilli Marco

text:
Due due maschere e 2 tabelle:
Maschera1 collegata con la tabella1
Maschera2 collegata con la tabella2
Ecco quel che voglio
Io vorrei al premere di un pulsante che poi deciderò io dove metterlo
copiare un CAMPO della maschera2 a tutti i campi presenti nella maschera1
Maschera2:
Campo1
Campo2
Campo3
Maschera1
Campo1
Campo2
Campo3
Campo4
In pratica voglia copiare il Campo1 della maschera2 ( che contiene un solo
record ) a tutti i record della Maschera1 al campo1.
Penso che si potrebbe fare con una query di aggiornamento ma non ci riesco
P.S.: Ho creato anche un file per lavorarci, se qualcuno pensa di essere in
grado glielo posso spedire
Ciao e grazieeeeeeeee


title: Compiare un campo su tanti campi

text: Si posso allegare dei file???? Non penso!!!!!!!


title: Compiare un campo su tanti campi

text:
"Santilli Marco" <
marco.s...@libero.it
> ha scritto nel messaggio
news:b6h4am$lcd$1...@grillo.cs.interbusiness.it...

Ho l'impressione che fai un po' confusione tra campi (in tabella) e
controlli (su maschere, report etc.etc.); spiegati meglio tenendo presente
che:
- le maschere (form) "contengono" controlli (caselle di testo, checkbox etc.
etc.);
- le tabelle "contengono" campi e record.
Ciao.
--
Sergio MAZZA


title: ocx per CAP

author: donato

text:
Qualcuno me lo puň fornire?
Grazie


title: ocx per CAP

author: Gianluca

text:
donato wrote:
> Qualcuno me lo puň fornire?
> Grazie
Non afferro che cosa tu voglia, ma se vai sul sito delle poste trovi dei
file con tutti i Cap per localitŕ, toponimo etc... Con un minimo di
rielaborazione avrai tutte le tabelle che ti servono (se ti servono!)


title: VBA: sintassi per aggiungere *

author: sd

text:
Salve a tutti,
volevo chiedervi che sintassi devo usare per aggiungere
l'asterisco davanti e dietro al controllo "nominativo"....
stň impazzendo con la SINTASSI....
where = where & " and [cognome1] & ' ' & [nome1] like '  & " & Me!nominativo
& "'"
in parole povere vorrei che se nominativo = marco
la where diventasse *marco*....
grazie
sdamy


title: VBA: sintassi per aggiungere *

author: Paolo Beltrame

text:
where = where & " and [cognome1] & ' ' & [nome1] like ' *" & " &
Me!nominativo & "*'"
    Paolo
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:9tbd74$948$1...@lacerta.tiscalinet.it...



title: VBA: sintassi per aggiungere *

text:
Scusa, ho lasciato qualche carattere di troppo, questo e` giusto:
where = where & " and [cognome1] & ' ' & [nome1] like ' *" & Me!nominativo &
"*'"
"Paolo Beltrame" <
ita...@italpro.net
> ha scritto nel messaggio
news:9tbdud$8l8$1...@fe1.cs.interbusiness.it...



title: VBA: sintassi per aggiungere *

author: Roberto dal portatile

text:
"Paolo Beltrame" <
ita...@italpro.net
> ha scritto nel messaggio
news:9tbeal$4tm$1...@fe2.cs.interbusiness.it...

Ciao Paolo,
anche a te un ben tornato nel NG.
Roberto


title: VBA: sintassi per aggiungere *

text:
Ciao Roberto,
ho sempre sbirciato di tanto in tanto.
E` da un po' che non leggo Federico, l'avevo
sentito al telefono una ventina di giorni orsono.
Cerchero` di contattarlo al fine di formare una
spedizione al raduno dal nord est.
    Paolo



title: VBA: sintassi per aggiungere *

author: Antonio Biso

text:
Paolo Beltrame <
ita...@italpro.net
> wrote in message
9tbeal$4tm$1...@fe2.cs.interbusiness.it...
> Scusa, ho lasciato qualche carattere di troppo, questo e` giusto:
> where = where & " and [cognome1] & ' ' & [nome1] like ' *" & Me!nominativo
&
> "*'"
Hai anche scritto scorrettamente PRIMA del quoting!!!
Antonio


title: VBA: sintassi per aggiungere *

text:
"Paolo Beltrame" <
ita...@italpro.net
> ha scritto nel messaggio
news:9td3k9$8ak$1...@fe1.cs.interbusiness.it...
> Ciao Roberto,
>
> ho sempre sbirciato di tanto in tanto.
> E` da un po' che non leggo Federico, l'avevo
> sentito al telefono una ventina di giorni orsono.
> Cerchero` di contattarlo al fine di formare una
> spedizione al raduno dal nord est.
E' il minimo che possiate fare per farvi perdonare questo periodo di
"latitanza". :)
A presto.
Roberto


title: VBA: sintassi per aggiungere *

text:
"Paolo Beltrame" <
ita...@italpro.net
> ha scritto nel messaggio
news:9tbeal$4tm$1...@fe2.cs.interbusiness.it...

GRAZIE ora ci provo
ciao ciao
sdamy