Colgo l'occasione per ringraziare te e tutti i membri di questo forum sempre pronti a dare una mano a noi principianti, condividendo le proprie conoscenze per la comunità e credimi non è da tutti.
Mi dà un errore di comunicazione con il server OLE o con il controllo ActiveX: l'espressione non corrisponde al nome di una Routine Evento ....
nel codice mi segna in rosso ed andandolo a riscriverlo mi dice: Errore di compilazione: Previsto numero di riga oppure etichetta oppure istruzione oppure fine istruzione.
Cosa sbaglio:
Quindi inserisci una LABEL chiamata [ckLabel]
credo intendessi strLabel , giusto?
La stessa cosa la devi richiamare su Current di Maschera
Private Sub Form_Current()
CheckAttachments()
End Sub
CheckAttachments() sempre preceduto dal simbolo "=", o volutamente così?
La funzione invece la puoi scrivere così, poi se non hai bisogno di discriminare le 4 casistiche semplificalo):
Public Function CheckAttachments()
Dim strLabel As String
If Me!ChkAllegatoA.Value Then strLabel = strLabel & "Allegato A e " &
If Me!ChkAllegatoB.Value Then strLabel = strLabel & "Allegato B e " &
If Me!ChkAllegatoC.Value Then strLabel = strLabel & "Allegato C e " &
If Me!ChkAllegatoD.Value Then strLabel = strLabel & "Allegato D e " &
If Len(strLabel)>0 Then strLabel=Mid$(strLabel,1,Len(strLabel-3))
Me!ckLabel.Caption=strLabel
End Function
Questa funzione devo scriverla, in qualche evento particolare o in qualsiasi posto in quanto indipendente anche di seguito all'inserimento in Current di Maschera?