Need VB Code example

[ETID]

Hi,

Im in need of some VBA code fof MS Access,

I need to findfirst record in a table from a string created from user input, then branch to sub if true or branch to alt sub if false.

Thanks in advance

 

[Databaseguy]

This is for 97 (DAO)

im dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim strInput As String
Set dbs = CurrentDb
strInput = Me.txtInput
strSQL = "SELECT * FROM [YourTable] WHERE [YourField] = " & strInput
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveLast
If rst.RecordCount > 0 Then
    'do somethng
Else
    'Do something else
End If
Set rst = Nothing
Set dbs = Nothing

Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy