Solved

runtime error 424

Posted on 2001-08-10
8
258 Views
Last Modified: 2008-03-03
What is run time error 424 object required mean?
I type this code to event on click
   Private Sub Invoice_No_Enter()
Dim FindInvoiceNo As Integer
FindInvoiceNo = Text1.Value
Me.RecordsetClone.FindFirst "[invoiceNo] = " & FindInvoiceNo
Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub

When I run it show the message above and I press debug  It has yellow highlight on line 3

This code i want to move record in form by follow what I put in textbox. Ex If I type 131 into textbox which is name invoice no, the record in form should change too.
But the problem is nothing change accept subform.  The subform change to detail of  invoice no 131 but name and address and so on still not change

Could help me.  I am not good about code   could tell me detail step by step     THANK YOU
0
Comment
Question by:ftmkay
8 Comments
 
LVL 6

Expert Comment

by:devtha
ID: 6372722
Is there a text1 on the form. If so just use text1
0
 
LVL 12

Expert Comment

by:Paurths
ID: 6372734
hi ftmkay ,

try this

Private Sub Invoice_No_Enter()
Dim FindInvoiceNo As Integer
FindInvoiceNo = me.Text1
Me.RecordsetClone.FindFirst "[invoiceNo] = " & FindInvoiceNo
Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub
0
 
LVL 6

Expert Comment

by:devtha
ID: 6372742
if you use me then type me!text1
0
Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

 
LVL 6

Expert Comment

by:PsychoDazey
ID: 6372800

Private Sub Invoice_No_Enter()
Dim FindInvoiceNo As String
FindInvoiceNo = Me.[Text1].Value
Me.RecordsetClone.FindFirst "[invoiceNo] = " & FindInvoiceNo
Me.Bookmark = Me.RecordsetClone.Bookmark
0
 
LVL 6

Expert Comment

by:devtha
ID: 6372812
:-)
0
 
LVL 44

Expert Comment

by:Arthur_Wood
ID: 6372882
I have never seen anyone use the RecordSetClone property of a form in that manner.  Usually a local recordset object is created, and then set equal to the Form's recordsetClone, like this


Private Sub Invoice_No_Enter()

Dim rsLocal as Recordset
Dim FindInvoiceNo As Integer

FindInvoiceNo = Text1.Value
Set rsLocal = Me.RecordSetClone
rsLocal.FindFirst "[invoiceNo] = " & FindInvoiceNo
Me.Bookmark = rsLocal.Bookmark

End Sub
0
 
LVL 54

Expert Comment

by:nico5038
ID: 6994532
for ftmkay

It's time to clean up this TA, so I will leave a recommendation in Community Support that this question is:
 - PAQ'd and pts removed
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
 
LVL 5

Accepted Solution

by:
Netminder earned 0 total points
ID: 7014586
Per recommendation, points NOT refunded and question closed by
Netminder
CS Moderator
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question