[Resolvido]Fonte Tachada no Acess 2010

Bom dia a todos

estou me matando ja faz alguns dias atras dessa informação(Fonte tachada).

pelo excel eu consegui fazer pelo vba usando a função

Strikethrough = True

mas no access nao funciona. O access fala que este metodo não foi encontrado. eu usei o pesquisador de objetos do access e ele achou essa função na biblioteca stdole na classe stdfont membro strikethrough, mas nao tem nenhum exemplo de como usa-la.

então vcs podem me ajudar a deixar a fonte tachada?

grato

Da ajuda do Access... Referência do Desenvolvedor:

Exemplo do objeto Font e das 
propriedades Bold, Italic, Size, StrikeThrough, Underline e Weight

O exemplo a seguir demonstra um objeto Font e as propriedades 
Bold, Italic, Size, StrikeThrough, Underline 
e Weight relacionadas a fontes. Você pode manipular as propriedades de 
fonte de um objeto diretamente ou utilizando um alias, conforme mostra, também, 
este exemplo.

Para utilizar este exemplo, copie esse código de exemplo na parte de 
Declarações de um formulário. Certifique-se de que o formulário contenha: 


Um Label denominado Label1.
Quatro controles ToggleButton denominados ToggleButton1, 
ToggleButton2, ToggleButton3 e ToggleButton4.
Um segundo Label e um TextBox denominados Label2 e 
TextBox1, respectivamente.

Dim MyFont As StdFont

Private Sub ToggleButton1_Click()
   If ToggleButton1.Value = True Then
       MyFont.Bold = True           
         'Using MyFont alias to control font
       ToggleButton1.Caption = "Bold On"
       MyFont.Size = 22             
         'Increase the font size
   Else
       MyFont.Bold = False
       ToggleButton1.Caption = "Bold Off"
       MyFont.Size = 8              
         'Return font size to initial size
   End If
 
   TextBox1.Text = Str(MyFont.Weight)
    'Bold and Weight are related
End Sub

Private Sub ToggleButton2_Click()
   If ToggleButton2.Value = True Then
       Label1.Font.Italic = True           
         'Using Label1.Font directly
       ToggleButton2.Caption = "Italic On"
   Else
       Label1.Font.Italic = False
       ToggleButton2.Caption = "Italic Off"
   End If
End Sub

Private Sub ToggleButton3_Click()
   If ToggleButton3.Value = True Then
  Label1.Font.Strikethrough = True
  'Using Label1.Font directly
       ToggleButton3.Caption = "StrikeThrough On"
   Else
       Label1.Font.Strikethrough = False
       ToggleButton3.Caption = "StrikeThrough Off"
   End If
End Sub

Private Sub ToggleButton4_Click()
   If ToggleButton4.Value = True Then
       MyFont.Underline = True           
         'Using MyFont alias for Label1.Font
       ToggleButton4.Caption = "Underline On"
   Else
       Label1.Font.Underline = False
       ToggleButton4.Caption = "Underline Off"
   End If
End Sub

Private Sub UserForm_Initialize()
   Set MyFont = Label1.Font
  
   ToggleButton1.Value = True
   ToggleButton1.Caption = "Bold On"
  
   Label1.AutoSize = True        'Set size of Label1
   Label1.AutoSize = False
      
   ToggleButton2.Value = False
   ToggleButton2.Caption = "Italic Off"
  
   ToggleButton3.Value = False
   ToggleButton3.Caption = "StrikeThrough Off"
      
   ToggleButton4.Value = False
   ToggleButton4.Caption = "Underline Off"
  
   Label2.Caption = "Font Weight"
   TextBox1.Text = Str(Label1.Font.Weight)
   TextBox1.Enabled = False
End Sub

Cumprimentos.