Buonasera, ho problemi con la sintassi in Vba per aprire una maschera e filtrare la relativa sottomaschera. L'evento click è associato ad un ID di una sottomaschera

Question

L'evento click è sul campo IDRegistro della subFrmRiepilogo della FrmHome.

Con essso vorrei aprire FrmRegistroNave e filtrare la relativa sottomaschera FrmRegistropopup filtrata su IDRegistro.

Grazie mille

Answer 1

Ciao

Sono Abdal e sarei felice di aiutarti con la tua domanda.

Ecco un codice VBA che è possibile utilizzare per aprire il modulo "FrmRegistroNave" e filtrare la sua sottomaschera "FrmRegistropopup" in base al valore di "IDRegistro" dal campo "RegisterID" della sottomaschera "FrmHome":

Sub privato RegisterID_Click() Dim frm As Form Dim subfrm As SubForm

Open the "FrmRegistroNave" form DoCmd.OpenForm "FrmRegistroNave", acNormal, , , acFormEdit

Get a reference to the form and subform objects Set frm = Forms("FrmRegistroNave") Set subfrm = frm("FrmRegistropopup"). Modulo

Filter the subform based on the value of "IDRegistro" from the "FrmHome" subform's "RegisterID" field subfrm. Filter = "IDRegistro = " & Me.RegisterID.Value subfrm. FilterOn = True Fine sub

In questo codice, l'evento RegisterID_Click() viene attivato quando l'utente fa clic sul campo "RegisterID" nella sottomaschera "FrmHome". Apre il form "FrmRegistroNave" utilizzando il metodo DoCmd.OpenForm.

Dopo aver aperto il modulo, il codice ottiene un riferimento alla sottomaschera "FrmRegistropopup" utilizzando il set subfrm = frm("FrmRegistropopup"). Dichiarazione del modulo. Quindi filtra la sottomaschera in base al valore di "IDRegistro" dal campo "RegisterID" della sottomaschera "FrmHome" utilizzando il subfrm. Filtro e subfrm. Istruzioni FilterOn.

Si noti che questo codice presuppone che il form "FrmRegistroNave" e la relativa sottomaschera "FrmRegistropopup" esistano già e siano denominati correttamente. Se è necessario creare questi form o sottomaschere, è necessario farlo prima di usare questo codice.

Spero che questa informazione aiuti.

Saluti

Abdal

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.