IF se requiere un objeto error
If (Me.FolioSind Is Null And Me.NASINDICATO = Not Null Or Me.SNTE = Not Null Or Me.SITEM = Not Null) Then
FolioSind = Nz(DLookup("Max(FolioSind)", "FILIACIONESNI") + 1)
Else
If (Me.FolioSind Is Not Null And Me.NASINDICATO = Null And Me.SNTE = Null And Me.SITEM = Null) Then
Me.FolioSind = Null
End If
End Iftengo el siguiente codigo de validacion
Pero me da error se requiere un objeto
¿Q puede ser?
Respuesta de Jacinto Trillo Jareño
Ignoro la causa, pero quizás comenzaría por quitar el = y poner algo así como >>
If (Me.FolioSind Is Null And Me.NASINDICATO Not IsNull Or Me.SNTE Not IsNull Or Me.SITEM Not IsNull) Then
FolioSind = Nz(DLookup("Max(FolioSind)", "FILIACIONESNI") + 1)
Else
If (Me.FolioSind Not IsNull And Me.NASINDICATO Is Null And Me.SNTE Is Null And Me.SITEM Is Null) Then
Me.FolioSind = Null
End If
End IfUn saludo >> Jacinto
O quizá mejor:
If (IsNull(Me.FolioSind) And Not IsNull(Me.NASINDICATO) Or Not IsNull(Me.SNTE) Or Not IsNUll(Me.SITEM)) Then
FolioSind = Nz(DLookup("Max(FolioSind)", "FILIACIONESNI") + 1)
Else
If (Not IsNull(Me.FolioSind) And IsNull(Me.NASINDICATO) And IsNull(Me.SNTE) And IsNull(Me.SITEM)) Then
Me.FolioSind = Null
End If
End IfCiertamente voy un poco a ciegas por no entender exactamente lo que buscas. Solo he dado una ojeada a la "construcción". Un saludo y disculpa la prisa. Jacinto
