imam ovo:
Code:
If txtIme.Text = "Unesi ime..." Or txtIme.Text = "" Then
MsgBox(" Unesite kriterij! ", MsgBoxStyle.OkOnly, "Upozorenje ...")
Else
Me.KolegeTableAdapter_Kriteriji.FillByKriterijiIme(Me.StudosPlaner_DBDataSet.Kolege_Kriterij, txtIme.Text)
End If
If txtIme.Text = "Unesi ime..." Or txtIme.Text = "" Then
MsgBox(" Unesite kriterij! ", MsgBoxStyle.OkOnly, "Upozorenje ...")
Else
Me.KolegeTableAdapter_Kriteriji.FillByKriterijiIme(Me.StudosPlaner_DBDataSet.Kolege_Kriterij, txtIme.Text)
End If
Htio bih da mi ispiše poruku
Code:
MsgBox(" Zapis nije pronađen u bazi! ", MsgBoxStyle.OkOnly, "Upozorenje ...")
MsgBox(" Zapis nije pronađen u bazi! ", MsgBoxStyle.OkOnly, "Upozorenje ...")
ako u bazi ništa ne nađe!
--------------
Carpe Diem!
Carpe Diem!