[access] - Mostrare pulsante se la mail esiste.

[nicola75ss]

Buongiorno.

Problema della domenica.

Nella mia tabella ho un campo in cui viene riportato l'indirizzo mail. Ho inserito un pulsante che una volta che viene cliccato apre il client di posta elettronico predefinito e inserisce automaticamente l'indirizzo mail della casella di testo.

La sub è questa e funziona

Private Sub mandamail_Click()
On Error GoTo Err_mandamail_Click

    Dim stDocName As String

    stDocName = "Empty_Report"
   ' DoCmd.SendObject acReport, stDocName
    DoCmd.SendObject acSendNoObject, stDocName, acFormatXLS, Me.mail, , , "", , True
Exit_mandamail_Click:
    Exit Sub

Err_mandamail_Click:
    MsgBox Err.Description
    Resume Exit_mandamail_Click
    
End Sub

anche se magari c'è del codice superfluo ma non saprei dove mettere le mani.
Ovviamente se l'utente non ha un indirizzo mail vorrei che il pulsante non venisse visualizzato visto che cliccandolo appare il messaggio "Tipo di dati dell'espressione errato per uno degli argomenti".
Ho provato a fare un if e a impostare la proprietà visible del pulsante a false ma non riesco a farla funzionare.

Come posso risolvere? Grazie e buona domenica a tutti.

[nicola75ss]

Dovrei esserci riuscito.
All'evento su corrente della maschera ho associato questa sub

Private Sub Form_Current()
If mail <> "" Or Not IsNull(mail) Then
Me!mandamail.Visible = True
Else
Me!mandamail.Visible = False
End If
End Sub

e poi all'evento dopo aggiornamento della casella di testo praticamente lo stesso codice più il refresh.

Private Sub mail_AfterUpdate()
If mail <> "" Or Not IsNull(mail) Then
Me!mandamail.Visible = True
Else
Me!mandamail.Visible = False
End If
Me.Refresh
End Sub

Per quel che riguarda il codice di apertura del client di posta lo posso lasciare così oppure devo tagliare qualcosa?