Access - GRABAR UN DATO EN UN CAMPO DE UNA TABLA

Sub MAXIMA()

MAXIMAS = DMax("Numero", "PROVEDORES")  ' claro numero asi se llama el campo de la tabla proveedores, y proveedores es la tabla

DoCmd.GoToRecord , , acNewRec    ' agrego uno nuevo

If IsNull(MAXIMAS) Then  ' pregunto si es nulo o vacio  entocoes ponle uno

Me.Numero.Value = 1

Else

Me.Numero.Value = MAXIMAS + 1  ' y si noo  entices saca el maximo y agregale mas uno

End If

End Sub

'codigo para llevar a un nuevo recordset   *

'*******************************************

On Error Resume Next

Dim Ok As String

Ok = MsgBox("Desea Crear un Nuevo Registro?", vbYesNo, "Security Question")

If Ok = vbYes Then

 'Me.NewRecord

 DoCmd.GoToRecord acDataForm, "FrmEstudiantes", acNewRec

Me.txtoperacion = Nz(DMax("N_OPER", "REGISTRO_ALUMNOS"), 0) + 1

else

docmd.cancelevent

me.undo

end if