or put your second if on the one line - but makes it even harder to read
Code:
Private Sub txt_LdgAccID05_AfterUpdate()
If DLookup("Check11", "t01CombinedEntity", "CmbEntID =" & DLookup("CmbEntID", "t01CombinedEntity", "EntTpe_ID01 =" & 11)) And Form_f02Journal.txt_DocDate05 >= DLookup("StartDate70", "T01BusinessInfo") Then
If Not IsNull([Forms]![f02Journal]![txt_DocDate05]) Or Not IsNull(Me!VatCodePurchases05) Then Me!Vat05 = DLookup("VatRate01", "t02VatRate", "VatCode01='" & Me!VatCodePurchases05 & "' And #" & Format(Form_f02Journal.txt_DocDate05, "yyyy/mm/dd") & "# Between [StartDate11] And [EndDate13]")
End If
End Sub
edit: or use the underscore line break char
Code:
Private Sub txt_LdgAccID05_AfterUpdate()
If DLookup("Check11", "t01CombinedEntity", "CmbEntID =" & DLookup("CmbEntID", "t01CombinedEntity", "EntTpe_ID01 =" & 11)) _
And Form_f02Journal.txt_DocDate05 >= DLookup("StartDate70", "T01BusinessInfo") Then
If Not IsNull([Forms]![f02Journal]![txt_DocDate05]) _
Or Not IsNull(Me!VatCodePurchases05) Then _
Me!Vat05 = DLookup("VatRate01", "t02VatRate", "VatCode01='" & Me!VatCodePurchases05 & "' And #" & _
Format(Form_f02Journal.txt_DocDate05, "yyyy/mm/dd") & "# Between [StartDate11] And [EndDate13]")
End If
End Sub