Cannot update error

G

gdonald20

Hi

I was wondering if anyone could help i have picked this database up from a
designer who has now left the company. The code is a couple of years old.

On click of a button it open a recordset which is a query loops until it
finds the required people and then trys to update one field in the query. I
then get the error message "Cannot update database or object is read only".
But this isn't the case.

If i open the query and manually do want the code is trying to do i works
perfectly and accepts the changes. This problem is driving me bananas and i
can't fix it.

Would appreciate any help i have posted the code below sorry for the length.

Private Sub btnAccept_Click()
On Error GoTo Err_btnAccept_Click

Dim db As Database
Dim rstProspects As Recordset
Dim HEIGHT_MAX, HEIGHT_MIN As Integer

Dim txtB_Got As Boolean
Dim txtB_Mind As String

DoCmd.Echo False
DoCmd.SetWarnings False

DoCmd.OpenQuery "qryDelete_Not_On_Hold"
DoCmd.OpenQuery "qryNot_On_Hold_1"
DoCmd.OpenQuery "qryNot_On_Hold_2"

DoCmd.SetWarnings True
DoCmd.Echo True

Me.Visible = False

If IsNull(txtAGE_MIN) Then

txtAGE_MIN = 18

End If

If IsNull(txtAGE_MAX) Then

txtAGE_MAX = 99

End If

If IsNull(txtHEIGHT_MIN) Then

HEIGHT_MIN = 48
txtHEIGHT_MIN = 48

Else

HEIGHT_MIN = txtHEIGHT_MIN

End If

If IsNull(txtHEIGHT_MAX) Then

HEIGHT_MAX = 99
txtHEIGHT_MAX = 99

Else

HEIGHT_MAX = txtHEIGHT_MAX

End If

If IsNull(txtSINGLE) Then

txtSINGLE = "Don't Care"

End If

If IsNull(txtSEPARATED) Then

txtSEPARATED = "Don't Care"

End If

If IsNull(txtDIVORCED) Then

txtDIVORCED = "Don't Care"

End If

If IsNull(txtWIDOWED) Then

txtWIDOWED = "Don't Care"

End If

' Matching Process

Set db = CurrentDb()

Set rstProspects = db.OpenRecordset("qryMembers_Matching")

With rstProspects

.MoveFirst

Do Until .EOF

'If Nz(!OWN_DEPENDANTS, 0) = 0 Then

'txtB_Got = False

'Else

'txtB_Got = True

'End If

'txtB_Mind = !IDEAL_CHILDREN





If !SEX = txtOpposite_Sex Then

If txtSINGLE = "Don't Care" Or _
(txtSINGLE = "Must be" And !MARITAL_STATUS = "Single") Or _
(txtSINGLE = "Must not be" And !MARITAL_STATUS <> "Single")
Then

If txtSEPARATED = "Don't Care" Or _
(txtSEPARATED = "Must be" And !MARITAL_STATUS = "Separated")
Or _
(txtSEPARATED = "Must not be" And !MARITAL_STATUS <>
"Separated") Then

If txtDIVORCED = "Don't Care" Or _
(txtDIVORCED = "Must be" And !MARITAL_STATUS = "Divorced") Or _
(txtDIVORCED = "Must not be" And !MARITAL_STATUS <>
"Divorced") Then

If txtWIDOWED = "Don't Care" Or _
(txtWIDOWED = "Must be" And !MARITAL_STATUS = "Widowed") Or _
(txtWIDOWED = "Must not be" And !MARITAL_STATUS <> "Widowed")
Then

If !DOB > DateAdd("yyyy", -(txtAGE_MAX + 1), Date) Then


If !DOB <= DateAdd("yyyy", -txtAGE_MIN, Date) Then


If !Total_Height_Inches <= HEIGHT_MAX Then

If !Total_Height_Inches >= HEIGHT_MIN Then

If DCount("[CLIENT_A]", "MATCH_HISTORY", _
"[CLIENT_A] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_B] = " & !MEMBER_NO) = 0 Then


If DCount("[CLIENT_A]", "qryAll_B_Matched", _
"[CLIENT_B] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_A] = " & !MEMBER_NO) = 0 Then

If (txtA_Smoker = False And !SMOKER = False) Or _
(txtA_Smoker = True And !IDEAL_SMOKING <> "Never") Or _
(txtA_Ideal_Smoker = True And !SMOKER = False) Or _
(txtA_Ideal_Smoker = False And !SMOKER = True) Then

If (txtA_Got = False And txtA_Mind <> "Yes") Or _
(Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN <> "Yes") Or _
(txtA_Got = False And txtA_Mind = "Yes" And _
Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN = "Yes") Or _
(txtA_Got = True And txtA_Mind = "No" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe") Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe" And _
txtA_Got = True And txtA_Mind = "No") Then

.Edit

!PICKED = True

.Update

End If ' Children

End If ' Smoker

End If ' Client B No Match

End If ' Client A No Match

End If ' Minimum Height

End If ' Maximum Height

End If ' Minimum Age

End If ' Maximum Age

End If ' Widowed

End If ' Divorced

End If ' Separated

End If ' Single

End If ' Opposite sex

.MoveNext

Loop

.Close

End With

Forms!frmIntroductions!fsubMatching_Prospects.Requery
Forms!frmIntroductions!pgProspects.SetFocus

Exit_btnAccept_Click:
Exit Sub

Err_btnAccept_Click:
MsgBox Err.DESCRIPTION
Resume Exit_btnAccept_Click

End Sub
 
A

Alex Dybenko

Hi,
quite difficult to say without looking at all queries...

make sure that you can update values in qryMembers_Matching

and open it as dynaset:

Set rstProspects = db.OpenRecordset("qryMembers_Matching", dbopendynaset)

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



gdonald20 said:
Hi

I was wondering if anyone could help i have picked this database up from a
designer who has now left the company. The code is a couple of years old.

On click of a button it open a recordset which is a query loops until it
finds the required people and then trys to update one field in the query.
I
then get the error message "Cannot update database or object is read
only".
But this isn't the case.

If i open the query and manually do want the code is trying to do i works
perfectly and accepts the changes. This problem is driving me bananas and
i
can't fix it.

Would appreciate any help i have posted the code below sorry for the
length.

Private Sub btnAccept_Click()
On Error GoTo Err_btnAccept_Click

Dim db As Database
Dim rstProspects As Recordset
Dim HEIGHT_MAX, HEIGHT_MIN As Integer

Dim txtB_Got As Boolean
Dim txtB_Mind As String

DoCmd.Echo False
DoCmd.SetWarnings False

DoCmd.OpenQuery "qryDelete_Not_On_Hold"
DoCmd.OpenQuery "qryNot_On_Hold_1"
DoCmd.OpenQuery "qryNot_On_Hold_2"

DoCmd.SetWarnings True
DoCmd.Echo True

Me.Visible = False

If IsNull(txtAGE_MIN) Then

txtAGE_MIN = 18

End If

If IsNull(txtAGE_MAX) Then

txtAGE_MAX = 99

End If

If IsNull(txtHEIGHT_MIN) Then

HEIGHT_MIN = 48
txtHEIGHT_MIN = 48

Else

HEIGHT_MIN = txtHEIGHT_MIN

End If

If IsNull(txtHEIGHT_MAX) Then

HEIGHT_MAX = 99
txtHEIGHT_MAX = 99

Else

HEIGHT_MAX = txtHEIGHT_MAX

End If

If IsNull(txtSINGLE) Then

txtSINGLE = "Don't Care"

End If

If IsNull(txtSEPARATED) Then

txtSEPARATED = "Don't Care"

End If

If IsNull(txtDIVORCED) Then

txtDIVORCED = "Don't Care"

End If

If IsNull(txtWIDOWED) Then

txtWIDOWED = "Don't Care"

End If

' Matching Process

Set db = CurrentDb()

Set rstProspects = db.OpenRecordset("qryMembers_Matching")

With rstProspects

.MoveFirst

Do Until .EOF

'If Nz(!OWN_DEPENDANTS, 0) = 0 Then

'txtB_Got = False

'Else

'txtB_Got = True

'End If

'txtB_Mind = !IDEAL_CHILDREN





If !SEX = txtOpposite_Sex Then

If txtSINGLE = "Don't Care" Or _
(txtSINGLE = "Must be" And !MARITAL_STATUS = "Single") Or _
(txtSINGLE = "Must not be" And !MARITAL_STATUS <> "Single")
Then

If txtSEPARATED = "Don't Care" Or _
(txtSEPARATED = "Must be" And !MARITAL_STATUS = "Separated")
Or _
(txtSEPARATED = "Must not be" And !MARITAL_STATUS <>
"Separated") Then

If txtDIVORCED = "Don't Care" Or _
(txtDIVORCED = "Must be" And !MARITAL_STATUS = "Divorced")
Or _
(txtDIVORCED = "Must not be" And !MARITAL_STATUS <>
"Divorced") Then

If txtWIDOWED = "Don't Care" Or _
(txtWIDOWED = "Must be" And !MARITAL_STATUS = "Widowed") Or
_
(txtWIDOWED = "Must not be" And !MARITAL_STATUS <>
"Widowed")
Then

If !DOB > DateAdd("yyyy", -(txtAGE_MAX + 1), Date) Then


If !DOB <= DateAdd("yyyy", -txtAGE_MIN, Date) Then


If !Total_Height_Inches <= HEIGHT_MAX Then

If !Total_Height_Inches >= HEIGHT_MIN Then

If DCount("[CLIENT_A]", "MATCH_HISTORY", _
"[CLIENT_A] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_B] = " & !MEMBER_NO) = 0 Then


If DCount("[CLIENT_A]", "qryAll_B_Matched", _
"[CLIENT_B] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_A] = " & !MEMBER_NO) = 0 Then

If (txtA_Smoker = False And !SMOKER = False) Or _
(txtA_Smoker = True And !IDEAL_SMOKING <> "Never") Or _
(txtA_Ideal_Smoker = True And !SMOKER = False) Or _
(txtA_Ideal_Smoker = False And !SMOKER = True) Then

If (txtA_Got = False And txtA_Mind <> "Yes") Or _
(Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN <> "Yes") Or
_
(txtA_Got = False And txtA_Mind = "Yes" And _
Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN = "Yes") Or
_
(txtA_Got = True And txtA_Mind = "No" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe")
Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe"
And _
txtA_Got = True And txtA_Mind = "No") Then

.Edit

!PICKED = True

.Update

End If ' Children

End If ' Smoker

End If ' Client B No Match

End If ' Client A No Match

End If ' Minimum Height

End If ' Maximum Height

End If ' Minimum Age

End If ' Maximum Age

End If ' Widowed

End If ' Divorced

End If ' Separated

End If ' Single

End If ' Opposite sex

.MoveNext

Loop

.Close

End With

Forms!frmIntroductions!fsubMatching_Prospects.Requery
Forms!frmIntroductions!pgProspects.SetFocus

Exit_btnAccept_Click:
Exit Sub

Err_btnAccept_Click:
MsgBox Err.DESCRIPTION
Resume Exit_btnAccept_Click

End Sub
Click to expand...
 
G

gdonald20

Thanks for the reply.

I will try that when i get back to the office.

Gillian

Alex Dybenko said:
Hi,
quite difficult to say without looking at all queries...

make sure that you can update values in qryMembers_Matching

and open it as dynaset:

Set rstProspects = db.OpenRecordset("qryMembers_Matching", dbopendynaset)

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



gdonald20 said:
Hi

I was wondering if anyone could help i have picked this database up from a
designer who has now left the company. The code is a couple of years old.

On click of a button it open a recordset which is a query loops until it
finds the required people and then trys to update one field in the query.
I
then get the error message "Cannot update database or object is read
only".
But this isn't the case.

If i open the query and manually do want the code is trying to do i works
perfectly and accepts the changes. This problem is driving me bananas and
i
can't fix it.

Would appreciate any help i have posted the code below sorry for the
length.

Private Sub btnAccept_Click()
On Error GoTo Err_btnAccept_Click

Dim db As Database
Dim rstProspects As Recordset
Dim HEIGHT_MAX, HEIGHT_MIN As Integer

Dim txtB_Got As Boolean
Dim txtB_Mind As String

DoCmd.Echo False
DoCmd.SetWarnings False

DoCmd.OpenQuery "qryDelete_Not_On_Hold"
DoCmd.OpenQuery "qryNot_On_Hold_1"
DoCmd.OpenQuery "qryNot_On_Hold_2"

DoCmd.SetWarnings True
DoCmd.Echo True

Me.Visible = False

If IsNull(txtAGE_MIN) Then

txtAGE_MIN = 18

End If

If IsNull(txtAGE_MAX) Then

txtAGE_MAX = 99

End If

If IsNull(txtHEIGHT_MIN) Then

HEIGHT_MIN = 48
txtHEIGHT_MIN = 48

Else

HEIGHT_MIN = txtHEIGHT_MIN

End If

If IsNull(txtHEIGHT_MAX) Then

HEIGHT_MAX = 99
txtHEIGHT_MAX = 99

Else

HEIGHT_MAX = txtHEIGHT_MAX

End If

If IsNull(txtSINGLE) Then

txtSINGLE = "Don't Care"

End If

If IsNull(txtSEPARATED) Then

txtSEPARATED = "Don't Care"

End If

If IsNull(txtDIVORCED) Then

txtDIVORCED = "Don't Care"

End If

If IsNull(txtWIDOWED) Then

txtWIDOWED = "Don't Care"

End If

' Matching Process

Set db = CurrentDb()

Set rstProspects = db.OpenRecordset("qryMembers_Matching")

With rstProspects

.MoveFirst

Do Until .EOF

'If Nz(!OWN_DEPENDANTS, 0) = 0 Then

'txtB_Got = False

'Else

'txtB_Got = True

'End If

'txtB_Mind = !IDEAL_CHILDREN





If !SEX = txtOpposite_Sex Then

If txtSINGLE = "Don't Care" Or _
(txtSINGLE = "Must be" And !MARITAL_STATUS = "Single") Or _
(txtSINGLE = "Must not be" And !MARITAL_STATUS <> "Single")
Then

If txtSEPARATED = "Don't Care" Or _
(txtSEPARATED = "Must be" And !MARITAL_STATUS = "Separated")
Or _
(txtSEPARATED = "Must not be" And !MARITAL_STATUS <>
"Separated") Then

If txtDIVORCED = "Don't Care" Or _
(txtDIVORCED = "Must be" And !MARITAL_STATUS = "Divorced")
Or _
(txtDIVORCED = "Must not be" And !MARITAL_STATUS <>
"Divorced") Then

If txtWIDOWED = "Don't Care" Or _
(txtWIDOWED = "Must be" And !MARITAL_STATUS = "Widowed") Or
_
(txtWIDOWED = "Must not be" And !MARITAL_STATUS <>
"Widowed")
Then

If !DOB > DateAdd("yyyy", -(txtAGE_MAX + 1), Date) Then


If !DOB <= DateAdd("yyyy", -txtAGE_MIN, Date) Then


If !Total_Height_Inches <= HEIGHT_MAX Then

If !Total_Height_Inches >= HEIGHT_MIN Then

If DCount("[CLIENT_A]", "MATCH_HISTORY", _
"[CLIENT_A] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_B] = " & !MEMBER_NO) = 0 Then


If DCount("[CLIENT_A]", "qryAll_B_Matched", _
"[CLIENT_B] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_A] = " & !MEMBER_NO) = 0 Then

If (txtA_Smoker = False And !SMOKER = False) Or _
(txtA_Smoker = True And !IDEAL_SMOKING <> "Never") Or _
(txtA_Ideal_Smoker = True And !SMOKER = False) Or _
(txtA_Ideal_Smoker = False And !SMOKER = True) Then

If (txtA_Got = False And txtA_Mind <> "Yes") Or _
(Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN <> "Yes") Or
_
(txtA_Got = False And txtA_Mind = "Yes" And _
Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN = "Yes") Or
_
(txtA_Got = True And txtA_Mind = "No" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe")
Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe"
And _
txtA_Got = True And txtA_Mind = "No") Then

.Edit

!PICKED = True

.Update

End If ' Children

End If ' Smoker

End If ' Client B No Match

End If ' Client A No Match

End If ' Minimum Height

End If ' Maximum Height

End If ' Minimum Age

End If ' Maximum Age

End If ' Widowed

End If ' Divorced

End If ' Separated

End If ' Single

End If ' Opposite sex

.MoveNext

Loop

.Close

End With

Forms!frmIntroductions!fsubMatching_Prospects.Requery
Forms!frmIntroductions!pgProspects.SetFocus

Exit_btnAccept_Click:
Exit Sub

Err_btnAccept_Click:
MsgBox Err.DESCRIPTION
Resume Exit_btnAccept_Click

End Sub
Click to expand...
Click to expand...
 
G

gdonald20

Hi

I tried adding the line dbopendynaset to the code and it still gives me the
horrible "cannot update" error.

I have checked qryMembers_Matching again and i can add i new record to it
and change the records already there so i really don't understand why it
fails.

Gillian

gdonald20 said:
Thanks for the reply.

I will try that when i get back to the office.

Gillian

Alex Dybenko said:
Hi,
quite difficult to say without looking at all queries...

make sure that you can update values in qryMembers_Matching

and open it as dynaset:

Set rstProspects = db.OpenRecordset("qryMembers_Matching", dbopendynaset)

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



gdonald20 said:
Hi

I was wondering if anyone could help i have picked this database up from a
designer who has now left the company. The code is a couple of years old.

On click of a button it open a recordset which is a query loops until it
finds the required people and then trys to update one field in the query.
I
then get the error message "Cannot update database or object is read
only".
But this isn't the case.

If i open the query and manually do want the code is trying to do i works
perfectly and accepts the changes. This problem is driving me bananas and
i
can't fix it.

Would appreciate any help i have posted the code below sorry for the
length.

Private Sub btnAccept_Click()
On Error GoTo Err_btnAccept_Click

Dim db As Database
Dim rstProspects As Recordset
Dim HEIGHT_MAX, HEIGHT_MIN As Integer

Dim txtB_Got As Boolean
Dim txtB_Mind As String

DoCmd.Echo False
DoCmd.SetWarnings False

DoCmd.OpenQuery "qryDelete_Not_On_Hold"
DoCmd.OpenQuery "qryNot_On_Hold_1"
DoCmd.OpenQuery "qryNot_On_Hold_2"

DoCmd.SetWarnings True
DoCmd.Echo True

Me.Visible = False

If IsNull(txtAGE_MIN) Then

txtAGE_MIN = 18

End If

If IsNull(txtAGE_MAX) Then

txtAGE_MAX = 99

End If

If IsNull(txtHEIGHT_MIN) Then

HEIGHT_MIN = 48
txtHEIGHT_MIN = 48

Else

HEIGHT_MIN = txtHEIGHT_MIN

End If

If IsNull(txtHEIGHT_MAX) Then

HEIGHT_MAX = 99
txtHEIGHT_MAX = 99

Else

HEIGHT_MAX = txtHEIGHT_MAX

End If

If IsNull(txtSINGLE) Then

txtSINGLE = "Don't Care"

End If

If IsNull(txtSEPARATED) Then

txtSEPARATED = "Don't Care"

End If

If IsNull(txtDIVORCED) Then

txtDIVORCED = "Don't Care"

End If

If IsNull(txtWIDOWED) Then

txtWIDOWED = "Don't Care"

End If

' Matching Process

Set db = CurrentDb()

Set rstProspects = db.OpenRecordset("qryMembers_Matching")

With rstProspects

.MoveFirst

Do Until .EOF

'If Nz(!OWN_DEPENDANTS, 0) = 0 Then

'txtB_Got = False

'Else

'txtB_Got = True

'End If

'txtB_Mind = !IDEAL_CHILDREN





If !SEX = txtOpposite_Sex Then

If txtSINGLE = "Don't Care" Or _
(txtSINGLE = "Must be" And !MARITAL_STATUS = "Single") Or _
(txtSINGLE = "Must not be" And !MARITAL_STATUS <> "Single")
Then

If txtSEPARATED = "Don't Care" Or _
(txtSEPARATED = "Must be" And !MARITAL_STATUS = "Separated")
Or _
(txtSEPARATED = "Must not be" And !MARITAL_STATUS <>
"Separated") Then

If txtDIVORCED = "Don't Care" Or _
(txtDIVORCED = "Must be" And !MARITAL_STATUS = "Divorced")
Or _
(txtDIVORCED = "Must not be" And !MARITAL_STATUS <>
"Divorced") Then

If txtWIDOWED = "Don't Care" Or _
(txtWIDOWED = "Must be" And !MARITAL_STATUS = "Widowed") Or
_
(txtWIDOWED = "Must not be" And !MARITAL_STATUS <>
"Widowed")
Then

If !DOB > DateAdd("yyyy", -(txtAGE_MAX + 1), Date) Then


If !DOB <= DateAdd("yyyy", -txtAGE_MIN, Date) Then


If !Total_Height_Inches <= HEIGHT_MAX Then

If !Total_Height_Inches >= HEIGHT_MIN Then

If DCount("[CLIENT_A]", "MATCH_HISTORY", _
"[CLIENT_A] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_B] = " & !MEMBER_NO) = 0 Then


If DCount("[CLIENT_A]", "qryAll_B_Matched", _
"[CLIENT_B] = " & txtINTRO_OCC_NO & " AND " & _
"[CLIENT_A] = " & !MEMBER_NO) = 0 Then

If (txtA_Smoker = False And !SMOKER = False) Or _
(txtA_Smoker = True And !IDEAL_SMOKING <> "Never") Or _
(txtA_Ideal_Smoker = True And !SMOKER = False) Or _
(txtA_Ideal_Smoker = False And !SMOKER = True) Then

If (txtA_Got = False And txtA_Mind <> "Yes") Or _
(Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN <> "Yes") Or
_
(txtA_Got = False And txtA_Mind = "Yes" And _
Nz(!OWN_DEPENDANTS, 0) = 0 And !IDEAL_CHILDREN = "Yes") Or
_
(txtA_Got = True And txtA_Mind = "No" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe")
Or _
(txtA_Got = True And txtA_Mind = "Maybe" And _
Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "No") Or _
(Nz(!OWN_DEPENDANTS, 0) > 0 And !IDEAL_CHILDREN = "Maybe"
And _
txtA_Got = True And txtA_Mind = "No") Then

.Edit

!PICKED = True

.Update

End If ' Children

End If ' Smoker

End If ' Client B No Match

End If ' Client A No Match

End If ' Minimum Height

End If ' Maximum Height

End If ' Minimum Age

End If ' Maximum Age

End If ' Widowed

End If ' Divorced

End If ' Separated

End If ' Single

End If ' Opposite sex

.MoveNext

Loop

.Close

End With

Forms!frmIntroductions!fsubMatching_Prospects.Requery
Forms!frmIntroductions!pgProspects.SetFocus

Exit_btnAccept_Click:
Exit Sub

Err_btnAccept_Click:
MsgBox Err.DESCRIPTION
Resume Exit_btnAccept_Click

End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Update or CancelUpdate without AddNew or Edit. (Error 3020) 0

Top