Buongiorno, per velocizzare il lavoro ho creato un piccolo database con Access che mi permette di registrare tutte le attività di segreteria. Lavoro sul database a casa mia ed è estremamente semplice e serve allo scopo. L'unico problema è la ricerca di nomi con apostrofo o accentati.
In sostanza ho creato una solo tabella e tramite query dalla tabella estraggo i campi che mi interessano e sulla base delle nuove query creo le maschere. Sarà ridondante, ma funziona allo scopo.
Ho creato una maschera con ul pulsante che esegue questo script;
Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "000RIEPILOGO_msk"
stLinkCriteria = "[dipendente]=" & "'" & Me![dipendente] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando9_Click:
Exit Sub
Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click
End Sub
Funnziona per tutti i cognomi ma per quelli in oggetto mi da ; errore di sintassi operatore mancante.
Su questo forun ho trovato il suggerimento di usare Replace.Ho modificato lo script in questo modo:
Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "000RIEPILOGO_msk"
stLinkCriteria = "[Cognome]=" & " ' " & Replace([cognome], "'", "''") & " ' "
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando9_Click:
Exit Sub
Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click
End Sub
Mi apre la maschera ma vuota.
La casella combinata ha origine in una query.
Ecco la maschera:
Spero di aver fatto tutto giusto, è la prima volta che posto.