T
Tom Ventouris
The code below hould go to the record which matches the value in the ComboBox.
I get Error :"Data Type Mismatch in Criteria Expression"
The ComboBox Row Source is the same as the [ProgrammeNumber]
I Have also tried copying [ProgrammeNumber], and changing this to a Combo
Box - same error.
Similar code works for other fields in the same form. This code worked
before conversion from A2003. I have decompiled and compiled.
Any suggestions?
Private Sub Combo461_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ProgrammeNumber] = '" & Me![Combo461] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.Requery "list412"
End Sub
I get Error :"Data Type Mismatch in Criteria Expression"
The ComboBox Row Source is the same as the [ProgrammeNumber]
I Have also tried copying [ProgrammeNumber], and changing this to a Combo
Box - same error.
Similar code works for other fields in the same form. This code worked
before conversion from A2003. I have decompiled and compiled.
Any suggestions?
Private Sub Combo461_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ProgrammeNumber] = '" & Me![Combo461] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.Requery "list412"
End Sub