Access - saving data

1

I have the VBA code below that saves a new post. Closing the Form, even if I have typed any name, it is not saved. But I noticed that Access automatically generates a new primary key, ie it skips a primary key that will no longer be used. Example: if I had the primary key 9, when I close the form, Access will skip the primary key 10, and when I reopen the form the next primary key will be 11. Is it normal or is it avoided?

Option Compare Database

Private Sub Form_Load()
    DoCmd.GoToRecord , , acNewRec
    Me.NomeGrupo.SetFocus
End Sub


Private Sub btSalvar_Click()
    Me.NomeGrupo.SetFocus
    If Me.NomeGrupo.Text = Empty Then
        MsgBox "Operação cancelada!" & vbNewLine & vbNewLine & _
        "O campo Nome do grupo está vazio!", vbInformation, " CADASTRO DE GRUPOS"
        Exit Sub
    End If
    If (Not IsNull(DLookup("[NomeGrupo]", "tabGrupos", "[NomeGrupo] ='" & Me!NomeGrupo & "'"))) Then
        MsgBox "Operação cancelada!" & vbNewLine & vbNewLine & _
        "O grupo " & Me.NomeGrupo.Text & " já está cadastrado no sistema!", vbInformation, "CADASTRO DE GRUPO"
        Cancel = True 'cancela o evento.
        Me!NomeGrupo.Undo 'desfaz a digitação.
    Else
        DoCmd.GoToRecord , , acNewRec
        MsgBox "Cadastro realizado com sucesso!", vbInformation, " CADASTRO DE GRUPOS"
    End If

End Sub

Private Sub btFechar_Click()
    Me.Undo
    DoCmd.Close acForm, "FormGrupos"
End Sub
    
asked by anonymous 22.08.2018 / 02:48

0 answers