neveryona
07-14-2002, 01:59 AM
I keep running into the same error message "Can't do this operation when the object is closed. It doesn't always do it either. What am I doing wrong. Here is an example of my code.
If fraBooks.Visible Then
If optName.Value = True Then
With debookInfo.rscomAuthor
.Filter = ""
.Requery
Do While Not .EOF
cboName.AddItem .Fields("LastName") ' & ", " & .Fields("FirstName")
.MoveNext
Loop
End With
Else
If optBookNo.Enabled = True Then
With debookInfo.rscmdBookNo
.Requery
cboName.DataMember = "cmdbookno" '
.Filter = "" '
Do While Not .EOF
cboName.AddItem .Fields("BookIDSubID")
.MoveNext
Loop
End With
Else
If optISBN.Value = True Then
With debookInfo.rscmdISBN
.Open
cboName.DataMember = "cmdISBN"
Do While Not .EOF
cboName.AddItem .Fields("ISBN")
.MoveNext
Loop
End With
End If
If fraBooks.Visible Then
If optName.Value = True Then
With debookInfo.rscomAuthor
.Filter = ""
.Requery
Do While Not .EOF
cboName.AddItem .Fields("LastName") ' & ", " & .Fields("FirstName")
.MoveNext
Loop
End With
Else
If optBookNo.Enabled = True Then
With debookInfo.rscmdBookNo
.Requery
cboName.DataMember = "cmdbookno" '
.Filter = "" '
Do While Not .EOF
cboName.AddItem .Fields("BookIDSubID")
.MoveNext
Loop
End With
Else
If optISBN.Value = True Then
With debookInfo.rscmdISBN
.Open
cboName.DataMember = "cmdISBN"
Do While Not .EOF
cboName.AddItem .Fields("ISBN")
.MoveNext
Loop
End With
End If