I think I now understand how to use this forum. I hope I am following the rules now. I am a college student working on a database project that requires some VBA coding for the Event Procedures and various other VBA coding. I have not had a VBA class but still need to get this project done. There are only a few things I need help with to complete it.
What I need to do is to view a current record and capture the data in some fields to be used as data in the new record (all viewable in the current form). I have code that works in another dtabase I use for other purposes that I did not create. This code works fine in that database, but not in my new database.
There are two stages to this. First is to use a Find drop dowm list to view current records so that the user can select from that list of current records; Select and view in the current form any particular record. The first problem is that I can view the list but no record in that list can be slected to view in the form. Here's the code:
Private Sub Combo89_AfterUp date()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Cl one
rs.FindFirst "[Request_ID] = " & Str(Nz(Me![Combo89], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Why can't I select from this list to view the records in the current form?
What I need to do is to view a current record and capture the data in some fields to be used as data in the new record (all viewable in the current form). I have code that works in another dtabase I use for other purposes that I did not create. This code works fine in that database, but not in my new database.
There are two stages to this. First is to use a Find drop dowm list to view current records so that the user can select from that list of current records; Select and view in the current form any particular record. The first problem is that I can view the list but no record in that list can be slected to view in the form. Here's the code:
Private Sub Combo89_AfterUp date()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Cl one
rs.FindFirst "[Request_ID] = " & Str(Nz(Me![Combo89], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Why can't I select from this list to view the records in the current form?
Comment