Newsgroup: it.comp.appl.access
Titolo: aggiorna Tabella

Salve a tutti
Vorrei un consiglio per risolvere il mio problema
Ho due maschere (con relative tabelle), la prima si chiama ARCHIVIO e la
seconda AGENDA.
Nella maschera ARCHIVIO inserisco la data del giorno e successivamente altre
informazioni.
La maschera AGENDA contiene soltanto il campo data (gg/mm/aa)
Quale è il codice che alla chiusura della maschera ARCHIVIO va a leggere
tutti i record contenuti nella tabella della maschera AGENDA e, se la data
inserita nella maschera ARCHIVIO non è presente nella tabella della maschera
AGENDA la inserisce altrimenti ignora la funzione
IN BREVE: ARCHIVIO la data può essere ad esempio (12/12/04). Su chiusura
della maschera ARCHIVIO voglio inserire il codice che legge tutti i record
(campo data) della tabella AGENDA.; se la data 12/12/04 non esiste viene
automaticamente inserito in un nuovo record, se esiste non fa nulla
Grazie anticipatamente a chi mi vorrà aiutare.
Gigi

[CUT]
Ciao,
puoi spiegare meglio la logica del tuo discorso (l'obiettivo da 
raggiungere...) al di là della sequenza delle operazioni da effettuare? A 
pelle mi sembra un tantino "tortuoso" il procedimento... 


Ñiao,
inserisci questo codice sull'evento "Su Chiusura" della maschera ARCHIVIO,
dovrebbe funzionare:
Dim crit As String
Dim rst As Recordset
Set dba = CurrentDb()
Set rst = CurrentDb.OpenRecordset("AGENDA")
crit = "[CAMPODATAAGENDA] = '" & Me.CAMPODATAARCHIVIO & "'"
rst.FindFirst (crit)
If rst.NoMatch Then
    DoCmd.Close
    Exit Sub
Else
    rst.AddNew
    rst!CAMPODATAAGENDA = Me.CAMPODATAARCHIVIO
    rst.Update
End If
Dove CAMPODATAAGENDA e CAMPODATAARCHIVIO sono rispettivamente il campo data
da aggiornare nella tabella AGENDA e il campo data presente nella form
ARCHIVIO al momento dell'evento chiusura.
Fammi sapere se funziona.
Leonardo
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

[CUT]
Ciao,
se ti può servire mi è arrivata stamane questa email
----
Mi spiego
Visito un paziente e inserisco i dati, attraverso la maschera archivio,
nella tabella ARCHIVIO che risulta composta dai seguenti campi:
cognome, nome, esame obiettivo, ecc. + campo DATA
In realtà esiste una terza tabella FOLLOW-UP che utilizzo per le visite di
controllo anch'essa composta da un campo DATA
La tabella AGENDA funge da contenitore delle date inserite nelle tabelle
sopra menzionate.
In buona sostanza, se inserisco la data nella tabella ARCHIVIO alla chiusura
della maschera il CODICE APPROPRIATO (che non sia macro o query) deve
leggere tutti i record della tabella AGENDA, capire se quella data esiste
quindi; se non esiste, inserire un nuovo record scrivendoci dentro quella
data, altrimenti non eseguire alcuna funzione.
Pur essendo diverse le visite effettuate in una giornata una volta inserita
la data di quel giorno non voglio che la stessa venga inserita in
continuazione.
CONCLUDENDO
ARCHIVIO   data del giorno 26/08/05   ---------à codice     ------à AGENDA
  a.. Non esiste la data 26/08/05 in agenda allora viene inserita
  b.. Esiste la data 26/08/05 in agenda  allora exit sub
Grazie
---
Buona giornata :-) 


Ciao,
il codice che ti ho inviato fa esattamente quello che mi dici. Lo hai
inserito nell'evento Su Chiusura della form ARCHIVIO ? In poche parole il
codice cerca (FindFirst.....) il primo record che corrisponde al criterio
(crit) ossia il primo record della tabella AGENDA con il campo Data uguale
al campo data della form ARCHIVIO che stai chiudendo. Se trova il record,
chiude la form ARCHIVIO senza fare niente, altrimenti aggiunge un record
alla tabella AGENDA (addnew).


[CUT]
A Leoną -> a me non serve quel codice: siccome hai proposto tu la soluzione 
ti ho passato delle informazioni che il soggetto mi ha mandato stamane 
tranite email e che magari potevano ritornarti utili giacchč non sono 
entrato neanche nel merito del discorso ! ;-)
Buona giornata  :-) 


 Si scusami hai ragione; solo dopo aver inviato il messaggio, mi sono accorto
della cosa e mi sarei voluto tagliare le mani :-). mi devi capire, lavoro in
Kazakhstan, dalle 7 della mattina alle 7 di sera per 28 giorni quindi a
quest'ora (qui siamo 3 ore avanti) sono gia' un po scoppiato e pensa che
sono solo alla prima settimana !!
Ciao


[CUT]
Tranquillo hombre -> niente scuse quando interagisci con me ! ;-)
Resisti con il lavoro....prima o poi ci si abitua a tutto quanto..."chi la 
dura la vince" ! :-)

 Gigi
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------