Error trapping for string ID tag

[DanEaton]

I have two tables that deal with product categories and sub-categories. Foolishly (because I learned from some terrible "for dummies" book) I made both the category, and sub-category ID's 2 & 3 letter strings (auto-filled on a form). I had also used this technique for the supplier ID, but had to change it to autonumber because the data became overwhelming. I would love to change the product ID's as well, but doing so would mean that I would have to re-enter ginormous amounts of data. (unless you could recommend some other way)

The problem I am having of course is that, with my auto-fill feature, which was originally meant to speed up data entry, I am receiving a message everytime a duplicate key is submitted. Oddly enough, the first message that I get says : "you can't go to the end of a recordset", if i simply try to close the form, i get the "duplicate key values..". I wan't to trap these error messages so that I can input my own. I fear that others will be freaked out by these warnings. How can I trap these warnings? Thanks. Dan Eaton
deaton@caemachinery.com

 

[GHolden]

To trap errors use the on error and test the error number.

eg. In the following when an error occurs processing moves to the ErrorHandler, depending on what the error number is you can take various actions...

Public Sub mDoSomething()
On Error GoTo ErrorHandler
'do whatever

Exit Sub

ErrorHandler:

Select Case Err.Number

Case Is = 61 'disk full
'do whatever
Case Is = 5 'Invalid procedure call or argument
'do whatever
Case Is = 7 'Out of memory
'do whatever
Case Else
MsgBox Err.Description
End Select

End Sub

 

[DanEaton]

Thanks, I've heard of this before, but I don't understand how to find out which error corresponds to what number... Dan Eaton
deaton@caemachinery.com

 

[DanEaton]

Also, in terms of the actual problem itself: the fact that I keep auto-filling to duplicates. Do you think it would be possible to simply change every product Input Mask, and the auto-fill expression to 5 letters? Would this be wise considering how far I am? At least this way, the errors would be less prominent. Dan Eaton
deaton@caemachinery.com

 

[GHolden]

These are Access 97 trapable error numbers

3 Return without GoSub
5 Invalid procedure call
6 Overflow
7 Out of memory
9 Subscript out of range
10 This array is fixed or temporarily locked
11 Division by zero
13 Type mismatch
14 Out of string space
16 Expression too complex
17 Can't perform requested operation
18 User interrupt occurred
20 Resume without error
28 Out of stack space
35 Sub, Function, or Property not defined
47 Too many DLL application clients
48 Error in loading DLL
49 Bad DLL calling convention
51 Internal error
52 Bad file name or number
53 File not found
54 Bad file mode
55 File already open
57 Device I/O error
58 File already exists
59 Bad record length
61 Disk full
62 Input past end of file
63 Bad record number
67 Too many files
68 Device unavailable
70 Permission denied
71 Disk not ready
74 Can't rename with different drive
75 Path/File access error
76 Path not found
91 Object variable or With block variable not set
92 For loop not initialized
93 Invalid pattern string
94 Invalid use of Null
97 Can't call Friend procedure on an object that is not an instance of the defining class
298 System DLL could not be loaded
320 Can't use character device names in specified file names
321 Invalid file format
322 Can’t create necessary temporary file
325 Invalid format in resource file
327 Data value named not found
328 Illegal parameter; can't write arrays
335 Could not access system registry
336 ActiveX component not correctly registered
337 ActiveX component not found
338 ActiveX component did not run correctly
360 Object already loaded
361 Can't load or unload this object
363 ActiveX control specified not found
364 Object was unloaded
365 Unable to unload within this context
368 The specified file is out of date. This program requires a later version
371 The specified object can't be used as an owner form for Show
380 Invalid property value
381 Invalid property-array index
382 Property Set can't be executed at run time
383 Property Set can't be used with a read-only property
385 Need property-array index
387 Property Set not permitted
393 Property Get can't be executed at run time
394 Property Get can't be executed on write-only property
400 Form already displayed; can't show modally
402 Code must close topmost modal form first
419 Permission to use object denied
422 Property not found
423 Property or method not found
424 Object required
425 Invalid object use
429 ActiveX component can't create object or return reference to this object
430 Class doesn't support Automation
432 File name or class name not found during Automation operation
438 Object doesn't support this property or method
440 Automation error
442 Connection to type library or object library for remote process has been lost
443 Automation object doesn't have a default value
445 Object doesn't support this action
446 Object doesn't support named arguments
447 Object doesn't support current locale setting
448 Named argument not found
449 Argument not optional or invalid property assignment
450 Wrong number of arguments or invalid property assignment
451 Object not a collection
452 Invalid ordinal
453 Specified DLL function not found
454 Code resource not found
455 Code resource lock error
457 This key is already associated with an element of this collection
458 Variable uses a type not supported in Visual Basic
459 This component doesn't support events
460 Invalid Clipboard format
461 Specified format doesn't match format of data
480 Can't create AutoRedraw image
481 Invalid picture
482 Printer error
483 Printer driver does not support specified property
484 Problem getting printer information from the system. Make sure the printer is set up correctly
485 Invalid picture type
486 Can't print form image to this type of printer
520 Can't empty Clipboard
521 Can't open Clipboard
735 Can't save file to TEMP directory
744 Search text not found
746 Replacements too long
31001 Out of memory
31004 No object
31018 Class is not set
31027 Unable to activate object
31032 Unable to create embedded object
31036 Error saving to file
31037 Error loading from file