eğer textbox boş ise msgbox yazdırma

[hsyn000]

Merhabalar,

Bir problem ile karşı karşıyayım .

Ekteki dosyada bir ağırlık hesanı yaparken ürünlerin adetlerini girmeden işlem yapılmasın msgbox da lütfen adetleri girin gibi bir uyarı yazısı çıksın işlem yapılmasın ve aynı zamanda seçilen malzemedeye birşey yazmasın istiyorum.

Çok basit bir işlem belki ama çok yol denedim bir türlü sonuç alamadım.
.Aynı zamanda adetler girilmediği zaman Resimdeki gibi seçilen malzemeye bişey getirmesin.(Not normalde malzeme cinsini diğer bilgileri girildiği zaman seçilen malzemeyi gösteriyor)


Denemiş olduğum kodlar aşağıdaki gibidir.

If Empty = SacAdet_txt Then
MsgBox "Adet değer girilmedi."

If ComboBox1.Value = "Sac" Then
Sac_kg_lbl = Format((SacEn_txt.Value * SacBoy_txt.Value * SacKalinlik_txt.Value) * SacAdet_txt.Value * 7.85 / 1000000, "#,##0.00"" KG")
ElseIf SacAdet.txt.Value = "" Then
MsgBox" Adet değer girilmedi."
End If

 

[Korhan Ayhan]

Ben "Sac" için örnek kodu paylaşıyorum. Siz diğerleri için bakarak kendiniz uyarlarsınız.

If ComboBox1.Value = "Sac" Then
    If SacAdet_txt <> "" Then
        Sac_kg_lbl = Format((SacEn_txt.Value * SacBoy_txt.Value * SacKalinlik_txt.Value) * SacAdet_txt.Value * 7.85 / 1000000, "#,##0.00"" KG")
    Else
        MsgBox "Lütfen adet değerini giriniz...", vbCritical
        SacAdet_txt.SetFocus
        Exit Sub
    End If
End If

 

[hsyn000]

Çok teşekkürler. Halloldu.