Programming Help

Web Development

What's Here?

Members: 109,297
Replies: 413,800
Topics: 62,904
Snippets: 2,286
Tutorials: 607
Total Online: 1,211
Members: 49
Guests: 1,162

Visual Basic

Welcome to Dream.In.Code
	Getting VB Help is Easy! Join 109,297 VB Programmers for FREE! Ask your question and get quick answers from experts. There are 1,211 online right now! We've got more than 500 tutorials and 2,000 snippets. Join and find out why Dream.In.Code is the #1 programming help community on the internet! Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert Register to Make This Box Go Away!

Run time error 424 problem

Run time error 424 problem

Options

lan55_hilario

6 Aug, 2008 - 05:37 PM

Post #1

New D.I.C Head

Joined: 6 Aug, 2008
Posts: 1


'Run time error 424
object required'

Public Function Record_Exist(inField$, inTable$, record As String) As Boolean

    sql "SELECT " & inField & " AS fld FROM " & inTable & " WHERE LOWER(" & inField & ") = LOWER('" & clss.Replace_Char(record) & "') LIMIT 1"
    
    If rs.EOF Then
        Record_Exist = False
    Else
        Record_Exist = True
    End If

End Function

Mod Edit: Please use code tags when posting your code. Code tags are used like so =>

Thanks,
PsychoCoder

This Post Was Helpful! ^New!

Register for Free to Make This Ad Go Away!

PsychoCoder	6 Aug, 2008 - 06:09 PM Post #2
DIC.Rules == true; Joined: 26 Jul, 2007 Posts: 7,238 Thanked 52 times Dream Kudos: 7775 Expert In: VB, VB.Net, C#, SQL, ASP, ASP.Net, Web Development, HTML, CSS, Win32 API, Javascript, mySQL, J#, GDI My Contributions	You're not opening the Recordset anywhere. Also, in this line vb sql "SELECT " & inField & " AS fld FROM " & inTable & " WHERE LOWER('" & inField & "') = LOWER('" & clss.Replace_Char(record) & "') LIMIT 1" Is sql a String variable? If so it should look like vb Set sql = "SELECT " & inField & " AS fld FROM " & inTable & " WHERE LOWER(" & inField & ") = LOWER('" & clss.Replace_Char(record) & "') LIMIT 1"
	This Post Was Helpful! ^New!