Skip to main content

AccessTr.neT


Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma

Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma

#7
If txtYil.Value = "" Then
MsgBox ("Yıl'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox1.Value = "" Then
MsgBox ("Aylar'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox2.Value = "" Then
MsgBox ("Tablo'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox3.Value = "" Then
MsgBox ("Grafik Seç'i Boş Geçemessiniz")
Exit Sub
End If

Bunu yaptım ama aynı hatayı alıyorum
Cevapla
#8
Sorun Çözüldü 

Private Sub CommandButton1_Click()
If txtYil.Value = "" Then
MsgBox ("Yıl'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox1.ListIndex = -1 Then
MsgBox ("Ay Seçimi Yapılmadı")
Exit Sub
End If
If ListBox2.ListIndex = -1 Then
MsgBox ("Tablo Seçimi Yapılmadı")
Exit Sub
End If
If ListBox3.ListIndex = -1 Then
MsgBox ("Grafik  Seçimi Yapılmadı")
Exit Sub
End If
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)

End Sub
Cevapla
#9
iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task