AccessTr.neT

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

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

iyi çalışmalar)