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