Wanneer je een zoekactie doet en je geen resultaten hebt in uw DBGrid dan zou hij een MsgBox moeten te voorschijnhalen met "code bestaat niet", maar hoe kun je dit met code verkrijgen. Momenteel heb ik deze code, maar blijkbaar lukt dit niet. Heeft iemand nog een ander idee?
code:
1
2
3
4
5
6
7
8
| FrmMaten.Data1.RecordSource = "Select * from Matenbalk_Maten2 Where Code like '" & Text2.Text & "'"
FrmMaten.Data1.Refresh
If FrmMaten.Data1.Recordset Is Nothing Then '==> dit gaat blijkbaar niet
MsgBox "Code bestaat niet!"
Text2.Text = ""
Text1.Text = ""
Text2.SetFocus
Else '..... |
[ Voor 10% gewijzigd door Verwijderd op 02-07-2004 09:15 ]