Newsgroup: it.comp.appl.access
Titolo: Bottone inserimento data + X giorni

Buongiorno,
vorrei sapere come e cosa associare ad un pulsante da premere perché
inserisca in un campo la data odierna +X giorni.
Dico X giorni perché alla fine creerò tre pulsanti, +1, +7 e + 30
giorni e penso che, spiegata una volta, la modalità si la stessa.
Il campo in origine non contiene valori. La formula so che dovrebbe
essere qualcosa Date()+X ma non riesco associare e far funzionare
questo con il pulsante.
Ringrazio sin da ora e porgo i miei
Migliori saluti.
Davide

Ablasorix ha scritto:

Sotto l'evento click del pulsante:
Me.MiaData=DateAdd("d",1,Date()) '1 giorno in più
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sv
La tabella di origine è Nominativi ed il campo [Prossimo richiamo]
Inserendo, come detto, sotto l'evento click del pulsante Nominativi.
[Prossimo richiamo]=DateAdd("d",1,Date()) ottengo come risultato:
Microsoft Access: Impossibile trovare l'oggetto 'Nominativi'.
Forse perchè la mschera prende i dati da una query? anche inserendo
[Query Nominati].[Prossimo richiamo]=DateAdd("d",1,Date())  ottengo lo
stesso messaggio: Impossibile trovare l'oggetto Query Nominativi.
Dove sbaglio?
Davide

 Davide
ma hai una query Nominativi o solo la tabella Nominativi?
La query è aggiornabile?
-- 
-=-=-==--==-=-=-
sottOFFICEale          - il mio blog
barbera del monferrato - il mio vino
carmen                 - la mia donna
non necessariamente nel giusto ordine

 Davide
ho riletto la tua domanda a freddo ed ecco i dubbi:
 >>La tabella di origine è Nominativi
 >>anche inserendo  [Query Nominati]
non capisco i nomi esatti dei tuoi oggetti ....
---=-=-==--==-=-=-


Ablasorix ha scritto:


Ma il nome del pulsante qual'è?


 non capisco i nomi esatti dei tuoi oggetti ....
La maschera si appoggia alla [Query nominativi] che seleziona solo le
telefonate che devo fare. Non so risponderti se sia o no modificabile,
anche se penso di sì perché, a volte, cambio il valore di altri campi
e effettua le modifiche alla tabella Nominativi.


L'ho chiamato ccDomani (se +1) sarà ccSettimana (se +7) e ccMese (se
+30).

Ablasorix ha scritto:


Se il campo da valorizzare è [Prossimo richiamo] metterai sotto l'evento
"Su click" del tuo pulsante ccDomani
Me![Prossimo richiamo]=DateAdd("d",1,Date())
etc..



Dopo anche aver copiato ed incollato quanto da te suggerito, ottengo
sempre il messaggio: Impossibile trovare l'oggetto 'Nominativi'.
Richiedo: dove sbaglio?
Davide

 Davide
Fai un debug del codice di questa tua maschera e vedi se si interrompe da
qualche parte. Posta inoltre il codice che hai sotto l'evento click del
pulsante.



Non so fare il debug. Ma, dalla domanda, non è devo creare un modulo?
io l'ho inserito come espressione...
Il codice che ho sotto l'evento click è Me![Prossimo richiamo]=DateAdd
("d",1,Date())
Scusate la mia inesperienza mentre io vi ringrazio

 Scusate la mia inesperienza mentre io vi ringrazio
In effetti... se creavo una routine evento era meglio :D grazie
ancora. Ora funzionano tutti e tre i pulsanti

Ablasorix ha scritto:


Mi sembra ovvio..:-))
Perchè non leggi qualcosa.. A parte l'Help, su Accessgroup abbiamo:
http://www.accessgroup.it/HomeArgomenti.asp?ID=99&Oggetto2=Traduzioni%20:%20MS%20Access%202000.
..
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 ancora. Ora funzionano tutti e tre i pulsanti
Ho esultato troppo presto, visto che non mi ha salvato il valore. Che
succede?
Nella mia inesperienza credo sia perché "aggiorna" una query e non la
tabella madre?
Davide

Ablasorix ha scritto:


Se la query non è aggiornabile il valore nella maschera non lo puoi
salvare.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


>>>>>>>> Davide
Credo che tu non legga bene le risposte o le soluzioni che cerchiamo di 
proporti.
1) usi la [QueryNominati] e invece ottieni un errore  Impossibile 
trovare l'oggetto Query Nominativi. Ti rendi conto che i due nomi non 
SONO UGUALI !!!!!!!!!
Se rileggi le tre righe di sopra e ti rendi conto della prima 
incongruenza poi si puo proseguire.
2) Una query è aggiornabile o no ? Se una query è 'lineare', non 
risultato di query di raggruppamento, e se punta solo a queries lineari 
o tabelle, allora è aggiornabile. La controprova la puoi ottenere 'al 
volo' creando una maschera immediata che poggia sulla query. Non 
preoccuparti della formattazione, lascia tutti i campi e prova a fare 
una variazione da questa maschera, se i campi coinvolti vengono salvati 
nelle tabelle corrispondenti allora la query è aggiornabile.
3) FARE IL DEBUG !
che termine terribile (per noi italiani) ma è l'unico possibile per chi 
stende almeno una riga di codice VBA. Purtroppo siamo umani e come tali 
sbagliamo almeno un carattere su dieci digitati alla tastiera ! Quindi 
il DEBUG è l'unico metodo per trovare errori logici o di digitazione.
Entri nell'ambiente VBA con CTRL+11. Posizioni il cursore in una linea 
di codice (già scritto). Premi F9 e ti ritrovi la riga colorata di rosso.
Se questa riga viene coinvolta da una procedura o macro, se cioè il 
programma usa questa riga, allora ti ritroverai con il codice arrestato 
all'altezza di quella riga(prima che essa venga interpretata ed 
eseguita). A questo punto la magia è possibile: passo il cursore del 
mouse su una variabile e ti compare il suo valore (nel ballon giallo) 
oppure premi MAIUSC+F9 per osservare costantemente il valore assunto da 
quella variabile. O ancora premi CTRL+G e ti si apre la finestra 
IMMEDIATA. Qui puoi scrivere ?nomeDellaVariabile e il programma ti 
scrive il valore assunto in quel preciso punto (una riga prima della tua 
riga di interruzione o Breakpoint).
4) Leggere la guida di Access o VBA non è cosa da tutti, a volta le 
informazioni sono criptiche  e sembrano scritte per addetti ai lavori. 
Ma se vuoi programmare devi diventare un addetto ai lavori. Semmai il 
livello delle tue conoscenze sarà basso all'inizio e crescerà man mano 
che vorrai allargare gli argomenti della tua conoscenza.
IvanDaBologna
