No. No records are being added. I'd like to, but don't know how.
Private Sub Combo27_NotInList(NewData As String, Response As Integer)
MsgBox "Please Select A Patient From The List ", vbOKOnly, "Patient Not Listed"
Response = acDataErrContinue
End Sub
Below is what gives me the error when the user types something in that's not in the list then backspaces or clears the combo box and tries to leave the combobox. It gives me the "invalid use of null" error
Private Sub Combo27_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PtKey] = " & Str(Me![Combo27])
Me.Bookmark = rs.Bookmark
End Sub
What am I doing wrong?