Maschera per inserimento nuovo record

Ho una semplice maschera per inserire 1 nuovo record.
La apro da VBA con:
DoCmd.OpenForm "MioForm", acNormal, , , acFormAdd, acDialog

Il mio problema è che ho notato che il record non viene creato fin tanto che non riempio almeno un campo.
Se chiudo subito la finestra nella tabella corrispondente non vedo nessun nuovo record.
Nel momento che iniizio a scrivere un campo noto invece che il campo contenente la chiave primaria si popola da solo e capisco che il record è stato creato.

Io vorrei invece che non appena il form appare, il campo contenente la chiave primaria sia già popolato. E quindi se chiudo anche subito
il form un nuovo record nella tabella mi appaia, anche con tutti i campi vuoti o ai loro valori di default.

Come posso fare? Grazie.

Se devi solo generare RECORDS impeganti non è la strada giusta...!
A che pro aprire una maschera per nulla...?
Si usa un Recordset e si genera su esso un ADDNEW...UPDATE.

In questo modo se devi generarne N puoi farlo, il tutto in modo Batch.

Il fatto è che quello che mi è stato richiesto di fare è che non deve succedere che:
- l'utente clicca su "Nuovo"
- appare la maschera di inserimento senza nessun identificativo
- l'utente decide di non compilarla e la chiude
- non viene creato nessun record

Si vuole invece che:
- l'utente clicca su "Nuovo"
- appare la maschera di inserimento con già presente l'identificativo
- l'utente decide di non compilarla e la chiude
- sul database rimane comunque traccia dell'operazione dell'utente

Questo è quello che mi è stato chiesto di fare e non posso decidere io di farlo altrimenti.
Grazie se mi puoi aiutare su questo.

PS: posso sempre creare un nuovo record da VBA e poi aprire il nuovo record con DoCmd.OpenForm e il filtro finale.
Mi chiedevo se c'era un flag da qualche parte nel form per dargli quel comportamento.

Puoi fare una cosa simile, simulare l'inserimento...:

Option Compare Database
Option Explicit

Private Sub Form_Load()
    If Me.DataEntry = True Then
        Me.CampoTesto = "A"
        DoCmd.RunCommand acCmdSaveRecord
        Me.CampoTesto = ""
    End If
End Sub