Aprire maschera popup sull'id della maschera principale.

Question

Buongiorno,

chiedo cortesemente aiuto per risolvere un problema relativo all’apertura di una maschera popup “sincronizzata” con l’id della maschera principale.

Dunque, in un db ho tre tabelle: “TblRegistro” – “TblVenditori” - “TblVenditoriDelegati”, una maschera principale “FrmPratiche” con origine record la tabella “TblRegistro ed una sottomaschera “SottomascheraTblVenditori” con origine record la tabella “TblVenditori. Nella sottomaschera vi è la casella combinata “CboTipologiaVendita” con due valori “Vendita diretta” e “Vendita delegata”.

Infine, una maschera “FrmVenditoriDelegati” con origine record “Query1” con i dati delle tre tabelle.

Vorrei fare in modo che, quando nella casella combinata inserisco il testo “Vendita delegata”, si apra la maschera popup “FrmVenditoriDelegati” sullo stesso IdRegistro della maschera principale.

Ho provato ad inserire sull’evento clik della casella combinata il seguente codice:

Private Sub CboTipologiaVendita_Click()

If CboTipologiaVendita.Text = "Vendita delegata" Then

On Error GoTo Err_CboTipologiaVendita_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "FrmVenditoriDelegati"

                  stLinkCriteria = "[IdRegistro]=" & Me![IdRegistro]

                  DoCmd.OpenForm stDocName, , , stLinkCriteria

     DoCmd.OpenForm FormName:="FrmVenditoriDelegati", _

                View:=acNormal, _

                filtername:=Null, _

                whereCondition:="IdRegistro=" & Me.IdRegistro

Exit_CboTipologiaVendita_Click:

    Exit Sub

Err_CboTipologiaVendita_Click:

    MsgBox Err.Description

    Resume Exit_CboTipologiaVendita_Click

End If

End Sub

In queste condizioni la maschera si apre su “NuovoRecord” e non riesco a risolvere il problema.

Ringrazio e saluto.

Abitante

Answer 1

Intanto il modo di comunicare non è certo questo e tanto per precisare vedi che avevo ragione in quanto hai scritto:

"Vorrei fare in modo che, quando nella casella combinata inserisco il testo “Vendita delegata”, si apra la maschera popup “FrmVenditoriDelegati” sullo stesso IdRegistro della maschera principale."

ora dici

"Ho risolto semplicemente cambiando l'origine record della maschera "FrmVenditoriDelegati" con TblRegistro."

come avrebbe uno ipotizzare che il problema fosse quest'ultimo da quello che avevi scritto precedentemente?

CA' NISCIUN E' FESS! e di che cosa?

Answer 2

Corretto, era il collegamento al file allegato alla risposta.

Answer 3

e di che cosa?

Answer 4

Ho risolto semplicemente cambiando l'origine record della maschera "FrmVenditoriDelegati" con TblRegistro.

ma per essere sicuri di ciò che fai bisognerebbe vedere il file.

"GIUVINO' CA' NISCIUN E' FESS!"

Answer 5

Intanto potresti provare così:

Private Sub CboTipologiaVendita_Click()

If CboTipologiaVendita = "Vendita delegata" Then

On Error GoTo Err_CboTipologiaVendita_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "FrmVenditoriDelegati"

        stLinkCriteria = "IdRegistro = " & Me.IdRegistro

        DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit sub

Err_CboTipologiaVendita_Click:

MsgBox Err.Description

End Sub

ma per essere sicuri di ciò che fai bisognerebbe vedere il file.