Newsgroup: it.comp.appl.access
Titolo: aiuto non so come fare

ciao a tutti. sono un medico e vorrei creare un database dei miei assistiti
mediante access. in teoria vorrei farne uno molto semplice, ma access
proprio non lo so usare.
vorrei poter creare una semplice lista di contatti(pazienti) e poter
immettere ogni qual volta vengono a visita il referto, in modo tale da
archiviare la storia clinica, che posso richiamare in qualsisi momento essi
ritornano leggendo quando sono venuti e come stavano in pecedenza.
vorrei anche inserire per ognuno di loro l'anamnesi, cioč la storia clinica
prima di essersi rivolti a me.
mi sembra semplice, ma dopo aver fatto una creazione guidata di elenco
contatti non so piů come procedere.
vi chiedo gentilmente una mano. ciao e grazie a tutti!


Ma scusa non esiste già un programma che viene dato a voi medici che fa
tutto questo? Si chiama Iatros o qualcosa del genere..
AEOM


Io creerei due tabelle.
La prima chiamata Anagrafica che abbia una struttura simile:
IDPaziente        Contatore e chiave primaria
Cognome           Testo
Nome                Testo
Anamnesi            Memo
Ecc. ecc.
La seconda chiamata Contatti che abbia una struttura simile:
IDContatto        Contatore e chiave primaria
IDPaziente         Numerico
DataContatto     Data/ora
Referto               Memo
ecc. ecc.
Metti le due tabelle in relazione uno-a-molti in base ai campi IDPaziente;
aggiungi alla relazione l'integrità referenziale con l'opzione Elimina
record correlati a catena.
Creati una query chiamata Query1 che abbia il seguente codice SQL:
SELECT Anagrafica.IDPaziente, Anagrafica.Cognome, Anagrafica.Nome
FROM Anagrafica
ORDER BY Anagrafica.Cognome, Anagrafica.Nome;
Creati una maschera chiamata Anagrafica con visualizzazione a Maschera
singola che abbia come origine record la tabella Anagrafica.
Nella maschera Anagrafica inserisci una sottomaschera con visualizzazione a
Maschere continue che abbia come origine record la tabella Contatti.
Nell'intestazione (non nel corpo) della maschera Anagrafica inserisci una
casella combinata chiamata CercaCliente; detta combo deve avere 3 colonne di
cui la prima non visibile; come origine riga della casella combinata scrivi
Query1.
A fronte dell'evento "Dopo aggiornamento" della casella combinata
CercaClienti genera il seguente codice VBA:
Private Sub CercaClienti_AfterUpdate()
Dim Criteri As String
Criteri = "IDPaziente=" & CercaClienti
Me.Filter = Criteri
Me.FilterOn = True
End Sub
A fronte dell'evento "Dopo inserimento" della maschera Anagrafica genera
questo codice VBA:
Private Sub Form_AfterInsert()
Me.Requery
End Sub
A questo punto apri la maschera Anagrafica, e se il paziente è un vecchio
paziente ricercane con la casella combinata il suo cognome e nome: nel corpo
della maschera principale ti compariranno i suoi dati anagrafici e la sua
anamnesi, invece nella sottomaschera ti compariranno tutte le sue visite
precedenti con tanto di data e referto; dopo il nuovo contatto registra
nella sottomaschera un nuovo record con la data e il referto della visita
appena conclusa.
Se invece il paziente è nuovo, aggiungi un nuovo record nella maschera
principale dove registrerai i dati anagrafici del nuovo paziente, mentre
nella nella sottomaschera registrerai la data ed il referto della prima
visita.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------