contador resuelto pero
Publicado por salva (56 intervenciones) el 25/02/2008 14:21:32
haber he solucionado gracias a este foro el problema con el contador con esto
Private Sub Form_Current()
If Me.RecordsetClone.RecordCount = 0 Then
id = "001" & "-" & Format(Date, "yyyy")
ElseIf Me.RecordsetClone.RecordCount > 0 And IsNull(id) Then
id = Format(Left(DMax("id", "Tabla1"), 3) + 1, "000") & "-" & Format(Date, "yyyy")
End If
End Sub
el problema es que cuando relleno un registro y voy al siguiente pero quiero salir sin rellenar éste, al tener un campo requerido me da el mensaje "no puede contener un valor null", como podria solucionar para que no me de este mensaje. gracias
Private Sub Form_Current()
If Me.RecordsetClone.RecordCount = 0 Then
id = "001" & "-" & Format(Date, "yyyy")
ElseIf Me.RecordsetClone.RecordCount > 0 And IsNull(id) Then
id = Format(Left(DMax("id", "Tabla1"), 3) + 1, "000") & "-" & Format(Date, "yyyy")
End If
End Sub
el problema es que cuando relleno un registro y voy al siguiente pero quiero salir sin rellenar éste, al tener un campo requerido me da el mensaje "no puede contener un valor null", como podria solucionar para que no me de este mensaje. gracias
Valora esta pregunta
0