INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

97 and 2000

Runtime Error with MS Access 2000 Runtime not with Full Version by Petercl
Posted: 27 Jun 01

The AfterUpdate event of a TextBox causes MS Access 2000 Runtime to crash, but running the same database from MS Access 2000 full version does not.

The AfterUpdate event contains the following code;

Private Sub TenderDue_AfterUpdate()
Dim SearchString, SearchChar As String
Dim Mypos, MyNumber As Integer

    ' Tender Valid is a combo box value list
    ' First 2 or 3 digits are a number
    SearchString = Me.[TendValid]
    ' Set Variable to Space
    SearchChar = " "
    ' Set Design Due date to Tender due date less 7 days
    Me.[Design_Due] = Me.[TenderDue] - 7
    'Locate position of space in Tender Valid
    Mypos = InStr(1, SearchString, SearchChar, vbTextCompare)
    'Extract Number from String  
    MyNumber = Mid(SearchString, 1, Mypos - 1)
    ' Set Date of Validity to Tender Due + number of Days
    Me.[ValidDate] = Me.[TenderDue] + MyNumber

End Sub

It would appear that at the time the Runtime User triggered the AfterUpdate event the Design_Due control was locked. This seems to be ignored by the Full Version but causes the Runtime version to crash. If anyone can confirm this of course.


Regards
Peter



Back to Microsoft: Access Other topics FAQ Index
Back to Microsoft: Access Other topics Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close