Dim TablaAlbCabecera AS DAO.Recordset, SerieNumero As DAO.Recordset
--------------------------------------------------------------------
Set TablaAlbCabecera = CurrentDb.OpenRecordset("AlbaranCabecera", dbOpenDynaset)
If TablaAlbCabecera.RecordCount = 0 And Not IsNull(IdAlbaran) Then MsgBox "No hay ningún Albarán para modificar.", vbCritical, "Modificar Albarán": Retorno = "Si": Exit Sub
If TablaAlbCabecera.RecordCount > 0 And Not IsNull(IdAlbaran) Then PriNum = DMin("IdAlbaran", "AlbaranCabecera", "Serie='" & ComboSerie & "'"): UltNum = DMax("IdAlbaran", "AlbaranesCabecera", "Serie='" & ComboSerie & "'")
If IdAlbaran < PriNum Or IdAlbaran > UltNum Then MsgBox "El número de Albarán debe estar comprendido entre " & ComboSerie & PriNum & " y " & ComboSerie & UltNum & ".", vbCritical, "Modificar Albarán": Retorno = "Si": Exit Sub
If IsNull(IdAlbaran) Then
Set SerieNumero = CurrentDb.OpenRecordset("NumeradoresSeries", dbOpenDynaset)
SerieNumero.FindFirst "TxtSerie='" & ComboSerie & "'"
If Not SerieNumero.NoMatch Then
IdAlbaran = SerieNumero!UltNroAlbaran + 1
Else
MsgBox "La Serie indicada no tiene Numerador.", vbCritical, "Series"
End If
Else
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)