Newsgroup: it.comp.appl.access
Titolo: Assegnazione delle proprietà SourceObject  e LinkChildFields in VBA (Access97)

Buonasera.
Ho una maschera di Access97 che contiene due sottomaschere che hanno
dimensioni e contenuto diverso a seconda che nella maschera sia stata
selezionata la visualizzazione dei dati per DataConsegna o per Prodotto.
Per impostare le sottomaschere utilizzo la seguente subroutine
*****************************************************
Private Sub opzSelezione_AfterUpdate()
    Me!sfrmSelezione.Visible = False
    Me!DescrDatoSelez.Visible = False
    Me!sfrmDettaglioSel.Visible = False
    Select Case Me!opzSelezione
        Case 1  '*** Data consegna
            'Sotto maschera Selezione
            With Me!sfrmSelezione
                .Width = 1700
                .Height = 5490
                .top = 113
                .left = 56
                .SourceObject = "Sk_ProdInCons_SelDate"
            End With
            'Descrizione Dato Selezionato
            With Me!DescrDatoSelez
                .Width = 9291
                .Height = 288
                .top = 113
                .left = 1984
            End With
            'Sotto maschera Dettaglio Selezione
            With Me!sfrmDettaglioSel
                .Width = 9306
                .Height = 4994
                .top = 623
                .left = 1979
                .SourceObject = "Sk_ProdInCons_DateDett"
                .LinkChildFields = "DataPrevArrivo"
            End With
        Case 2  '*** Prodotto
            'Sotto maschera Selezione
            With Me!sfrmSelezione
                .Width = 4535
                .Height = 5490
                .top = 113
                .left = 56
                .SourceObject = "Sk_ProdInCons_SelProd"
            End With
            'Descrizione Dato Selezionato
            With Me!DescrDatoSelez
                .Width = 6591
                .Height = 288
                .top = 113
                .left = 4694
            End With
            'Sotto maschera Dettaglio Selezione
            With Me!sfrmDettaglioSel
                .Width = 6591
                .Height = 4994
                .top = 623
                .left = 4699
                .SourceObject = "Sk_ProdInCons_ProdDett"
                .LinkChildFields = "Prodotto"
            End With
    End Select
    Me!sfrmSelezione.Visible = True
    Me!DescrDatoSelez.Visible = True
    Me!sfrmDettaglioSel.Visible = True
    Me!sfrmSelezione.SetFocus
End Sub
******************************************************
All'apertura è prevista la visualizzazione dei dati per DataConsegna ed è
tutto regolare, ma appena seleziono la visualizzazione per Prodotto, mi
viene emessa la seguente segnalazione d'errore:
Errore run-time '2101'.
Impostazione non valida per questa proprietà.
La proprietà in questione è : .LinkChildFields = "Prodotto"
La msgbox di segnalazione dell'errore mi consente di eseguire il debug e fin
che ripeto l'esecuzione della stessa istruzione, viene sempre emessa la
segnalazione d'errore, mentre se rieseguo l'istruzione precedente
".SourceObject = "Sk_ProdInCons_ProdDett"", il programma prosegue ed emette
la sottomaschera prevista con tutti i dati corretti.
La cosa strana e che non so spiegarmi è perchè ogni tanto il programma
lavora regolarmente.
Cosa sbaglio?
Grazie
Ciao
Eugenio

 Eugenio
Dai un'occhiata a questo link:
http://www.donkarl.com/it/
Sezione Maschere
4.8 Cambiare una sottomaschera 
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Avevo già provato con questa soluzione, ma il problema non si risolve.
Tra le altre cose non posso nemmeno impostare il valore a Null, ma con "".
Grazie
Ciao
Eugenio