aprire maschere differenti con un solo pulsante creato in una maschera continua

Question

ho una maschera continua "frm_anagrafico", che riporta i dati "nome " e "classificazione", ho inserito un pulsante che mi apre un altra maschera con la condizione where legata al nome. ho la necessita di inserire ( credo con un codice VBA " non ho idea di come scriverlo " ) la condizione del pulsante che mi apra maschere differenti a seconda di quello che è scritto nella combobox " classificazione", oppure potrei aprire una sola maschera, nella quale tramite una scheda composta da due pagine che al momento dell'apertura mi visualizza solo la pagina in base alla "classificazione".spero di essermi spiegato

Answer 1

Posta il link ad un file di esempio per rendere più semplice aiutarti.

Answer 2

Ciao

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

Ecco un esempio di codice VBA che apre maschere diverse a seconda del valore nella "classificazione" della casella combinata:

Sub privato cmdOpenForm_Click() Dim frmName As String

Seleziona Maiuscole e minuscole.classificazione.Valore Caso "A" frmName = "frm_A_Mask" Caso "B" frmName = "frm_B_Mask" Caso "C" frmName = "frm_C_Mask" Caso Else MsgBox "Valore di classificazione non valido." Esci Sub Fine selezione

DoCmd.OpenForm frmName, acNormal, , "name = '" & Me.name.Value & "'" Fine sub

Ed ecco un esempio di codice che apre una singola maschera con un controllo tab basato sul valore nella casella combinata "classification":

Sub privato cmdOpenForm_Click() Dim frmName As String

frmName = "frm_SingleMask"

DoCmd.OpenForm frmName, acNormal, , "name = '" & Me.name.Value & "'"

Seleziona Maiuscole e minuscole.classificazione.Valore Caso "A" Moduli(frmName). Pagina1.Visibile = Vero Moduli(frmName). Pagina2.Visibile = Falso Caso "B" Moduli(frmName). Pagina1.Visibile = Falso Moduli(frmName). Pagina2.Visibile = Vero Caso "C" Moduli(frmName). Pagina1.Visibile = Falso Moduli(frmName). Pagina2.Visibile = Falso Caso Else MsgBox "Valore di classificazione non valido." Esci Sub Fine selezione Fine sub

Nota: sostituisci frm_A_Mask, frm_B_Mask, frm_C_Mask e frm_SingleMask con i nomi effettivi delle maschere.

Spero che questa informazione aiuti.

Saluti

Abdal

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