Sincronizzazione sottomaschere

Question

Ciao a tutti,

so che è un problema piuttosto comune, ma pur leggendo diverse soluzioni non riesco a venirne a capo, spero mi possiate aiutare.

Io ho una maschera principale, "Persone", in cui inserisco due sottomaschere, "contatti" (con i dettagli dei contatti avuti con la persona, persone e contatti sono archiviati in due tabelle differenti).

Le due sottomaschere fanno riferimento esattamente alla stessa cosa, ma la prima visualizza i contatti in formato "Foglio Dati" mentre la seconda in formato "Maschera singola": sostanzialmente ciò che vorrei fare è la visualizzazione "Dividi Maschera" nella sottomaschera, che a quanto so non è possibile fare in automatico.

Ciò che vorrei fare è una sincronizzazione tra le due: cliccando una riga della tabella vorrei che fosse visualizzato il record relativo nella maschera singola.

Si può fare?

Grazie,

Raul

Answer 1

Ciao Raul,

si può fare impostando lo stesso recordset alle due sottomaschere.

In apertura della maschera principale inserisci il codice:

Set Me.Sm_Lista.Form.Recordset = Me.Sm_Singola.Form.Recordset

Qualcosa tipo questo: SottoMaschereSincronizzate.mdb

Ciao

Giorgio Rancati

Answer 2

Grazie mille ad entrambi!

Ho seguito il consiglio di Giorgio, e funziona alla grande.

Anziché in apertura l'ho messo su current, altrimenti non funzionava correttamente passando da un record di persone all'altro... ma così facendo è perfetto!

Buona giornata,

Raul

Answer 3

Ciao Giorgio,

molto interessante. Un'unico oggetto recordset in comune alle due form, quindi lo stesso bookMark.

;-)

Giorgio Rancati

Answer 4

Ciao Giorgio,

molto interessante. Un'unico oggetto recordset in comune alle due form, quindi lo stesso bookMark.

Ciao Mimmo

Answer 5

Ciao Raul,

ho tre maschere, la main Form0, la foglio dati Form1 e la singola Form2.

sulla maschera Form0 ho creato una text box denominata wTbNum.

Nel foglio dati sull'evento "Su Corrente" imposto il controllo sulla Form0 all'Id del record corrente:

Private Sub Form_Current()

    Me.Parent.wTbNum = tbNum

    Forms.form0.form2.Requery

End Sub

Nell'origine dati della maschera singola Form2, imposto una query che presenta una condizione sul controllo della Form0:

SELECT Tb1.*

FROM Tb1

WHERE (((Tb1.tbNum)=[forms].[form0].[wTbNum]));

Ciao Mimmo