Control to VBA code

[Thompyt]

IsComp: DLookUp("Action_Complete","[Change Request]","CR_No = " & [CR_No] & " AND Sub_No<>0")

SDate: DLookUp("[Date_Closed]","[Change Request]","CR_No= " & [CR_No] & " AND Sub_No=0")

Same: DLookUp("[Status 1]","[Switching]","CR_No = " & [CR_No])

Question 1: Is there a way to combine the first 2 lines of "Control" code? Would this speed up the database?



Question 2. Would it be quicker for the database to do this in VBA?

[InsuranceGuy]

1. You are returning different values with different logic. If you want to combine them into a single text box, just concatenate your outputs using the ampersand operator.
2. Domain functions (D*) are notoriously slow. Using Recordset searches in VBA can be faster, but it's fairly complex. Given the nature of your questions, I wouldn't recommend taking that on until you get more experience under your belt.

Jeff

[Thompyt]

Its not to combine into a single text box.

I use these to compare a status to determine the output with:

CR_Numberz: IIf([SUB_No]=0,Format([Change Request].[CR_No],"#"),Format([Sub_No]*0.01,"    " & " .00"))
CR_Numberz1: IIf(([IsComp] And [Action_Complete]=False) Or [Same]<>[Final_Vote] Or ([Sdate]<>[Date_Closed]),IIf([CR_No] & Trim([CR_Numberz])=[CR_No] & [CR_No],[CR_No],[CR_No] & Trim([CR_Numberz])),[CR_Numberz])
CR_Numbers: IIf([IsComp]=-1 And [Same]=[Final_Vote],[CR_Numberz],[CR_Numberz1])

Where CR_Numbers is the final output. I couldn't see where you the need if all the CR_Numbers have an action_complete and the vote is all the same to be a different format.

Previously it would look like

159
.01
159.02 (Different Date where Action_Complete=True) but the final vote ended up the same as the rest.
.03

now I get

159
.01
.02
.03