Leer Formulario y Subformularioy guardar

[IngSerrano]

Hola, creo que este seria tu codigo, debes desactivar los botones de dezplamamiento y crear tu propio boton

Private Sub CmdSiguienteRegistro_Click()
If IsNull(Form.Subformulario!Texto1) = True Or IsNull(Form.Subformulario!Toggle1) Or (Form.Subformulario!Precio = 0) Then
Dim Rta As VbMsgBoxResult
Rta = MsgBox("Por favor complete los campos, de lo contrario el registro actual se borrará, ¿desea completarlos ahora?", vbYesNo)
If Rta = vbYes Then
Exit Sub
Else
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdRecordsGoToFirst
End If
Else
DoCmd.RunCommand acCmdRecordsGoToNext
End If
End Sub

Espero te sirva