Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Buongiorno Ragazzi Buon Natale a tutti.......
vorrei un aiuto in merito alla creazione di una casella combinata per la ricerca di nome cognome riferita alla sottomaschera, come dovrei impostare il codice vba?
nella casella combinata ho impostato la query con id e cognome nome con la seguente espressione unione - CognomeNome: [Dipendente].[Cognome] & " " & [Nome] .
su Evento cosa dovrei impostare?
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(22.400000000000002, 40%, 12%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EDL%3C/text%3E%3C/svg%3E)
Certo, in tal caso la parte di codice dopo la else lo imposti nell'evento su click del pulsante.
Mimmo
mi sono dimenticato che all'interno della sottomaschera su origine Record è inserita una query
Buongiorno Mimmo mi segnala errore nel codice...
Scusa l'evento è dopo aggiornamento come vedi dal codice.
Mimmo
Ciao Alessandro,
immagino che la combo sia nella maschera principale quindi sull'evento "su Click" potresti impostare:
Private Sub cboCognomeNome_AfterUpdate()
If Len(cboCognomeNome & "") > 0 Then
Me.frm2.Form.Filter = "Id = " & cboCognomeNome
Me.frm2.Form.FilterOn = True
Else
Me.frm2.Form.Filter = ""
Me.frm2.Form.FilterOn = False
End If
End Sub
Ciao Mimmo