CODE
Set rst = Me.RecordsetClone
intTempArray(1) = cboContactsByName
rst.FindFirst "IDNbr = " & intTempArray(1)
If rst.NoMatch Then
MsgBox "Record not found"
Else
Me.Bookmark = rst.Bookmark
cbocontacttype = rst!ContactType
If IsNull(cbocasecategory) Or (cbocasecategory) Like "" Then
cbocasetype.RowSource = "SELECT tblCaseType.IDNbr, tblCaseType.TypeID, tblCaseType.CaseType " _
& "FROM tblCaseType " _
& "ORDER BY tblCaseType.CaseType;"
Else
cbocasetype.RowSource = "SELECT tblCaseType.IDNbr, tblCaseType.TypeID, tblCaseType.CaseType " _
& "FROM tblCaseType " _
& "Where (((tblCaseType.TypeID) Like " & (cbocasecategory) & ")) " _
& "ORDER BY tblCaseType.CaseType;"
End If
cbocasetype = rst!CaseType **** >>This line causes error (Update or CancelUpdate Without AddNew Or Edit)
cmdSave.Caption = "Update"
cboContactsByCaseNbr = cboContactsByName
End If
rst.Close
intTempArray(1) = cboContactsByName
rst.FindFirst "IDNbr = " & intTempArray(1)
If rst.NoMatch Then
MsgBox "Record not found"
Else
Me.Bookmark = rst.Bookmark
cbocontacttype = rst!ContactType
If IsNull(cbocasecategory) Or (cbocasecategory) Like "" Then
cbocasetype.RowSource = "SELECT tblCaseType.IDNbr, tblCaseType.TypeID, tblCaseType.CaseType " _
& "FROM tblCaseType " _
& "ORDER BY tblCaseType.CaseType;"
Else
cbocasetype.RowSource = "SELECT tblCaseType.IDNbr, tblCaseType.TypeID, tblCaseType.CaseType " _
& "FROM tblCaseType " _
& "Where (((tblCaseType.TypeID) Like " & (cbocasecategory) & ")) " _
& "ORDER BY tblCaseType.CaseType;"
End If
cbocasetype = rst!CaseType **** >>This line causes error (Update or CancelUpdate Without AddNew Or Edit)
cmdSave.Caption = "Update"
cboContactsByCaseNbr = cboContactsByName
End If
rst.Close
The error I noted above happens if I select the same name from the combobox twice even after saving changes. The Help file says this error will occur because of the bookmark property being set. How do I get around this. Thanks in advance
ike