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?
1 respuesta
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
