Holly_Associated
Registered User.
- Local time
- Today, 23:24
- Joined
- Mar 21, 2013
- Messages
- 53
Hi Experts!
I have a form which is for searching for and then viewing a record based on a text box and pressing enter. This is working fine. My ID field is 4 digits and when I change the 4 digits and press enter it shows me the details for the record in all of the other boxes:
Private Sub txtJobID_AfterUpdate()
If (txtJobID & vbNullString) = vbNullString Then Exit Sub
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[JobID]=""" & txtJobID & """"
If rs.NoMatch Then
MsgBox "Sorry, no such record '" & txtJobID & "' was found.", _
vbOKOnly + vbInformation
Else
Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close
txtGoTo = Null
End Sub
My question is, as this is not a data entry / additions / deletions form (I have editing and filters to yes though) How do I get it to load empty? Not on a new or blank record but empty until I have typed my 4 digits.
Just to clarify, my txtJobID box is empty on load but all of the other fields show the first record.
Any help much appreciated
I have a form which is for searching for and then viewing a record based on a text box and pressing enter. This is working fine. My ID field is 4 digits and when I change the 4 digits and press enter it shows me the details for the record in all of the other boxes:
Private Sub txtJobID_AfterUpdate()
If (txtJobID & vbNullString) = vbNullString Then Exit Sub
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[JobID]=""" & txtJobID & """"
If rs.NoMatch Then
MsgBox "Sorry, no such record '" & txtJobID & "' was found.", _
vbOKOnly + vbInformation
Else
Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close
txtGoTo = Null
End Sub
My question is, as this is not a data entry / additions / deletions form (I have editing and filters to yes though) How do I get it to load empty? Not on a new or blank record but empty until I have typed my 4 digits.
Just to clarify, my txtJobID box is empty on load but all of the other fields show the first record.
Any help much appreciated