Create an If statement based on a different query

[Kate123]

Hi

I am trying to write some code for after update on a form. I have created a serparate query (Query2) which differs from the one that the form is based on (Query1) and I want to use this to create an if statement.

I don't know how to write this in VBA.

In simple terms it would read.

If Query2.Expr1>0 Then msgbox "text" Else DoCmd.Close

Can anyone help me with correct code???

 

[jdraw]

Hi

I am trying to write some code for after update on a form. I have created a serparate query (Query2) which differs from the one that the form is based on (Query1) and I want to use this to create an if statement.

I don't know how to write this in VBA.

In simple terms it would read.

If Query2.Expr1>0 Then msgbox "text" Else DoCmd.Close

Can anyone help me with correct code???

Off the top of my head, not tested:

In your AfterUpdate event

Docmd.openquery "Query2"
if query2!expr1 > 0 then
 msgbox "text"
else
 Docmd.Close
End if

 

[Kate123]

That does not work. It does not recognise: If Query2!Expr1 > 0 Then

 

[chergh]

dim rs as recordset

set rs = currentdb.openrecordset(query2)

if rs!expr1 > 0 then
 msgbox "text"
else
 Docmd.Close
End if