Buscar 2 campos en una tabla antes de cargarlos (acces)

[charly163]

Debo ser medio bobo pero no funca con las ultimas modificaciones, ya no salen errores pero ahora no entra al if

Código:

Dim ValorA, ValorB, ValorC, ValorD As Variant

Dim aver As Variant

aver = condicion

ValorA = monto.Value
ValorC = factura.Value

If IsNull(ValorA) Then Exit Sub

   ValorA = Replace(ValorA, ",", ".")
   condicion = printf("[monto]={0} And [factura]='{1}'", ValorA, ValorC)
  
    ValorB = DLookup("[monto]", "factura", condicion)

If ValorB = ValorA Then

MsgBox aver, vbInformation
MsgBox "El valor introducido ya existe, consulte por esta factura ", vbInformation, "AVISO"

Me.monto.SetFocus
Me.factura.SetFocus
End If

resubo todo el codigo