Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Mis estimados amigos, hoy estoy solicitando su apoyo y pedirles porfavor darme una mano con lo siguiente:
estoy teniendo un incoveniente con la siguiente expresion en access para darle un valor al campo de mi tabla:
este es mi expresion:
SiInm([campo1] > 0,Silnm( [campo2] < [campo1],"texto1","texto2"),"texto3")
lo que yo necesito es segun dos campos ej campo1 y campo2 se escriba en el campo3 un texto, maso menos lo que quise poner es lo siguiente
(si campo1 > 0, ejecuto nuevamente si y pongo si (campo2 < campo1, escribo "texto1", sino "texto2"),"texto3")
expresion1 : (si campo1 > 0
valor verdadero: si (campo2 < campo1, escribo "texto1"
valor falso:"texto1", sino "texto2")
valor falso expresion1: ,"texto3").
Espero se entienda y puedan ayudarme.
Saludos.