ACCESS In base ad un valore saltare a un campo

[Francesco53]

Buona sera a tutti, proseguo con l'apprendimento di Access è chiedo un aiuto:
una Tabella ha i campi ID_Parentela e Parentela, un'altra ha i relativi dati Anagrafici,
e si chiama Anagrafica. Nella maschera relativa alla tabella Tabella Anagrafica, quando
inserisco tramite combobox l'ID_Parentela, vorrei che in base al valore scelto, andasse
ad un campo specifico:
Es.: i campi coniugato, figli della Maschera Anagrafica, se l'ID_ es(1 Padre, 2 Figlio) fosse
1 (Coniugato),andasse al campo figli, invece se il campo è 2 (figlio), andasse ad un altro
campo es. Età. In poche parole il cursore salta al campo interessato in base all'ID scelto.
Spero di essere stato chiaro, ringrazio chi può aiutarmi.
Francesco

[Flash30005]

Non è facile interpretare il quesito, si semplificherebbe se inviassi il database-test.

Ciao

[Francesco53]

Buona sera Flask, ti invio file esempio, molto semplice.
Nella maschera ho inserito il testo con la mia richiesta, spero sia comprensibile
quello che mi interessa apprendere.
http://www.megaupload.com/?d=55KZA01X
Grazie
Francesco

[Flash30005]

Vai in struttura della maschera, seleziona il la CasellaCombinata di "Coniugato" e con tasto destro proprietà
su Tab Evento azione Dopo Aggiornamento clicca sui "..."
scegli Generatore di codice
all'interno del codice inserisci queste righe di codice

Codice: Seleziona tutto

Private Sub CasellaCombinata2_AfterUpdate()  '<<<< esistente
If Me.CasellaCombinata2 <> 2 Then
Me.Moglie.Visible = False
Else
Me.Moglie.Visible = True
End If
End Sub   <<<< esistente


Stessa cosa per "NumFigli" nel codice inserirai

Codice: Seleziona tutto

Private Sub CasellaCombinata5_AfterUpdate()  '<<<< esistente
If Me.CasellaCombinata5 = 1 Then
Me.NomeFiglio.Visible = False
Else
Me.NomeFiglio.Visible = True
End If
End Sub  '<<<<< esistente


Per avere la maschera corretta anche all'apertura ripeti i codici singoli all'interno del Form_Load

Codice: Seleziona tutto

Private Sub Form_Load()  '<<<< esistente
If Me.CasellaCombinata2 <> 2 Then
Me.Moglie.Visible = False
Else
Me.Moglie.Visible = True
End If
If Me.CasellaCombinata5 = 1 Then
Me.NomeFiglio.Visible = False
Else
Me.NomeFiglio.Visible = True
End If
End Sub '<<<< esistente


In verità dopo aver inserito il codice nel form_load
basterebbe richiamare il Form_load in ogni routine delle due caselle combinate

Codice: Seleziona tutto

Private Sub CasellaCombinata2_AfterUpdate()
Call Form_Load
End Sub

Private Sub CasellaCombinata5_AfterUpdate()
Call Form_Load
End Sub

Fai sapere se tutto ok altrimenti ti invio il file

ciao

[Francesco53]

Buona sera Flask,
ti ringrazio per le tue spiegazioni, le ho provate e vanno bene, ma la cosa che mi fà più piacere
è aver appreso qualcosa di nuovo.
Grazie
Francesco

[Flash30005]

Siamo qui per questo...
Soprattutto perché chi impara poi, in futuro, insegni

Ciao