Hi Ken,
There is a combo box wizard that will write the code for you. I just did this and the resulting code is:
Private Sub Combo10_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo10], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Regards,
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of kenaf42@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, January 9, 2019 12:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Help with VBA code for ID control
Sent: Wednesday, January 9, 2019 12:55 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Help with VBA code for ID control
__._,_.___
Posted by: Duane Hookom <duanehookom@hotmail.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
SPONSORED LINKS
.
__,_._,___
Tidak ada komentar:
Posting Komentar