Home‎ > ‎

Simular Campo Autonumerico

Simplemente eso como simular un campo autonumerico como el predeterminado de Access
 
el codigo:
 
Option Compare Database
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 If DataErr = 3022 Then
   Response = True
    MsgBox "Lamentablemente el Registro,  " _
    & vbCrLf & " Numero  " & Me.NumerodeRegistro _
    & vbCrLf & " Ha sido ingresado, " & vbCrLf & _
    " El Numero que le corresponde es " & vbCrLf & _
    " este = " & _
    Nz(DMax("[NumerodeRegistro]", "TablaCualquiera"), 0) + 1, _
    vbCritical + vbOKOnly, "E R R O R  . . ."
    Me.NumerodeRegistro = Nz(DMax("[NumerodeRegistro]", "TablaCualquiera"), 0) + 1
  End If
End Sub
Private Sub Form_Current()
  If NewRecord Then
    On Error Resume Next
    Me!NumerodeRegistro.DefaultValue = _
    Nz(DMax("[NumerodeRegistro]", _
    "TablaCualquiera"), 0) + 1
  End If
End Sub
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  18 kb v. 1 26 may. 2009 17:25 Jefferson Jimenez
Comments