F
Frank Situmorang
Hello,
Here is my VBA of combo in order to jump directly to the decision number,
but let me explain first my forms structure,
I have the form of decision of Minutes of Meeting of our church board, the
field here is Meeting date
In the middle of this form I have the subform of MOM ( Minutes of Meeting)
which is linked to the Meeting date Form by Meeting Date ID. In the sub form
I have the field of Decesion NO ( No_Kep) and the “ Subject†and the
Decision. Subform format view is continues form…in order to accommodate so
many decision for one Meeting date.
Using the below VBA it works to bring me to the records set only, but not
exactly bring me to the decision No.( No_Kep) itself. I have to scroll down
the scrollbar if the decision number is below or hidden by the footer of the
main form.
Can anyone help me how can we make it, even to highlight the decision
number? ( No_ Kep) being jumped to.
Here is my VBA:
Private Sub Combo20_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[No_KEP] = '" & Me![Combo20] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Thanks for any help
Frank
Here is my VBA of combo in order to jump directly to the decision number,
but let me explain first my forms structure,
I have the form of decision of Minutes of Meeting of our church board, the
field here is Meeting date
In the middle of this form I have the subform of MOM ( Minutes of Meeting)
which is linked to the Meeting date Form by Meeting Date ID. In the sub form
I have the field of Decesion NO ( No_Kep) and the “ Subject†and the
Decision. Subform format view is continues form…in order to accommodate so
many decision for one Meeting date.
Using the below VBA it works to bring me to the records set only, but not
exactly bring me to the decision No.( No_Kep) itself. I have to scroll down
the scrollbar if the decision number is below or hidden by the footer of the
main form.
Can anyone help me how can we make it, even to highlight the decision
number? ( No_ Kep) being jumped to.
Here is my VBA:
Private Sub Combo20_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[No_KEP] = '" & Me![Combo20] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Thanks for any help
Frank