Merhaba,

Formda metin kutularının Görünür özelliklerini Hayır olarak belirlemişsiniz. Ancak görünmesi veya görünmemesi için kod eklenmemiş.

ToplamHesapla kodunu aşağıdaki ile değiştirerek deneyiniz.

Sub ToplamHesapla()



If Me.Blok_Tartim = "-1" Then

    Me.mtn_gtoplam = Me.Metin419 + Me.Metin579

    Me.mtn_gtoplam.Visible = True

    Me.Metin576.Visible = True

    Me.Metin578.Visible = True

    Me.Metin579.Visible = True

Else

    Me.mtn_gtoplam = Me.Metin419

    Me.mtn_gtoplam.Visible = False

    Me.Metin576.Visible = False

    Me.Metin578.Visible = False

    Me.Metin579.Visible = False

End If



End Sub

Mail ile ilgili olarak, mail eki olan formdaki sorguda Blok_Tartim_Hizmeti, Blok_Tartim_Birim, Blok_Tartim_Birim_T ve Blok_Tartim alanları eksik. Ayrıaca üstte belirtilen kodun Mail_ Blok_Yük isimli forma da eklenmesi ve formun geçerli olduğunda olayında bu kodun çalışmasının sağlanması gerekli.