HP3000-L Archives

October 2009, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Visual Basic Help - HP3000 Cobol Programmers
From:
Captain Greb <[log in to unmask]>
Reply To:
Captain Greb <[log in to unmask]>
Date:
Sun, 25 Oct 2009 12:06:12 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (17 lines) 
On Fri, 23 Oct 2009 16:29:55 -0400, Dave Vogt <[log in to unmask]> 
wrote:

>Everything is good up until the .Find strCriteria.  It is failing there because it 
>never hits the MsgBox ("I found: " & .RecordCount) part of the logic.  It just 
>exits the subroutine without displaying a error message.

Put an "On error goto 0" line just before the .find.
That should cancel any inherited error handling for the sub.

.find does a serial search of the recordset.
Use .movefirst to start at the beginning.

If orderid is an index, what I really think you want to be using is .seek
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2