Discussion :

[alu1308]

Bonjour,

Je viens vers vous car j'ai un petit soucis.
J'ai créé un formulaire de saisie avec 8 champs. Sur le formulaire, j'ai un code VBA pour qu'à l'ouverture, celui-ci apparaisse vide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

J'ai aussi créé un bouton New Record pour permettre de saisir un enregistrement supplémentaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub NewRec_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

Jusqu'à auj, ces codes fonctionnaient très bien.

Cependant, la base que je réalise est depuis auj mise à disposition pour test. Comme les champs qui sont présents dans le formulaire ne doivent pas être vides, j'ai donc utilisé le Null Interdit (Required = Yes) pour tous les champs.

Une fois ce choix effectué, en testant la base (via un Runtime), j'obtiens ce message d'erreur : "Cette application a été arrêtée à cause d'une erreur d'exécution. Elle ne peut continuer et va être fermée".
On doit cliquer sur OK pour continuer, et une fois le clic effectué, un autre message d'erreur : "Vous devez entrer une valeur dans le champ "T_Weeklys...". Et la en cliquant sur OK toute la base se ferme.

J'ai donc fait un essai en repassant les champs que j'avais rendu obligatoire en non obligatoire. Et là le bug disparaît.

Avez vous déjà eu un problème de ce type?
Existe-t-il une autre solution pour interdire de passer à l'enregistrement suivant si tous les champs n'ont pas été saisis?

Merci d'avance pour vos réponses!

Bonne journée

[alu1308]

Bonjour,

J'ai trouvé la solution à mon problème.

J'ai simplement modifié le code du bouton Nouvel enregistrement de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnNewRecord_Click()
    On Error GoTo Err_btnNewRecord_Click
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_btnNewRecord_Click:
    Exit Sub
 
Err_btnNewRecord_Click:
    MsgBox "Please, complete all fields "
    Resume Exit_btnNewRecord_Click
End Sub