Test for the existence of a record in a table

  • Thread starter Thread starter Damien McBain
  • Start date Start date
D

Damien McBain

Hi L&G,

How do I (with VBA) test for the existence of a certain value (or text) in a
prescribed field in a table? Like:

If (ThisText exists anywhere in ThisField of ThisTable) Then
do something
Else
do another thing
End IF

Any help appreciated.

Damo
 
Here's an example using the Categories table from the Northwind sample
database ...

Public Sub DoesItExist()

Dim rst As ADODB.Recordset
Dim boolFound As Boolean

Set rst = New ADODB.Recordset
With rst
.ActiveConnection = CurrentProject.Connection
.Open "SELECT Count(*) AS TheCount FROM Categories WHERE
CategoryName = 'Confections'"
boolFound = .Fields("TheCount") <> 0
.Close
End With
If boolFound Then
MsgBox "Found it"
Else
MsgBox "Didn't find it"
End If

End Sub

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
 
Back
Top