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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)