Simple error handling --> AfterUpdate

PNY

Hi all,

I have a form that uses the code listed below on the after update of a combo box and list box to search for a selected Name.

(code for afterupdate for combo box)
(code for afterupdate for list box)
How would I add the ability to display an error message if the user tries to search for a Name that doesn't exist in the records?

May 26 '08 #1

ADezii

Hi all,

I have a form that uses the code listed below on the after update of a combo box and list box to search for a selected Name.

(code for afterupdate for combo box)

Expand|Select|Wrap|Line Numbers

1. Private Sub Combo73_AfterUpdate()
2.   ' Find the record that matches the control.
3.     Me.RecordsetClone.FindFirst "[Name] = '" & Me![Combo73] & "'"
4.     Me.Bookmark = Me.RecordsetClone.Bookmark
5. End Sub

(code for afterupdate for list box)

Expand|Select|Wrap|Line Numbers

1. Private Sub List75_AfterUpdate()
2.     ' Find the record that matches the control.
3.     Me.RecordsetClone.FindFirst "[Name] = '" & Me![List75] & "'"
4.     Me.Bookmark = Me.RecordsetClone.Bookmark
5. End Sub

How would I add the ability to display an error message if the user tries to search for a Name that doesn't exist in the records?

May 27 '08 #2

PNY

Expand|Select|Wrap|Line Numbers

1. Private Sub Combo73_AfterUpdate()
2. Dim strCriteria As String
3. Dim rst As DAO.Recordset
4.  
5. Set rst = Me.RecordsetClone
6.  
7. strCriteria = "[Name] = '" & Me![Combo73] & "'"
8.  
9. rst.FindFirst strCriteria
10.  
11. If rst.NoMatch Then
12.   MsgBox "A Name of [" & UCase$(Me![Combo73]) & "] was not found in " & _
13.          "the Database!", vbExclamation, "Name not Found"
14. Else
15.   Me.Bookmark = rst.Bookmark
16. End If
17. End Sub

Thanks ADezzi, it works like a charm! I tested it to see what would happen if the field was NULL and I get a runtime error ... How do I fix that?

May 27 '08 #3

ADezii

Thanks ADezzi, it works like a charm! I tested it to see what would happen if the field was NULL and I get a runtime error ... How do I fix that?

Just add Line #5

May 28 '08 #4

PNY

Just add Line #5

Expand|Select|Wrap|Line Numbers

1. Private Sub Combo73_AfterUpdate()
2. Dim strCriteria As String
3. Dim rst As DAO.Recordset
4.  
5. If IsNull(Me![Combo73]) Then Exit Sub
6.  
7. Set rst = Me.RecordsetClone
8.  
9. strCriteria = "[LastName] = '" & Me![Combo73] & "'"
10.  
11. rst.FindFirst strCriteria
12.  
13. If rst.NoMatch Then
14.   MsgBox "A Name of [" & UCase$(Me![Combo73]) & "] was not found in " & _
15.          "the Database!", vbExclamation, "Name not Found"
16. Else
17.   Me.Bookmark = rst.Bookmark
18. End If
19. End Sub

Thanks so much for the help, ADezzi!!!

May 28 '08 #5

ADezii

Thanks so much for the help, ADezzi!!!

Anytime, that's why we are all here.

May 28 '08 #6

PNY

Anytime, that's why we are all here.

Hi Again,

I'm trying to do more error handling etc, and i'm wondering: Can there be a way to add a line in the above code to open a form if the Name is found? Does this make sense:

Jun 5 '08 #7

ADezii

Jun 5 '08 #8