Bonjour
Je suis un peu néophyte et j'aurai besoin d'aide.
Je voudrai créer et mettre à jour des champs dans un sous-formulaire à partir d'une valeur définie dans un champ du formulaire principal. Concrètement mon formulaire s'appelle "Dposition", mon sous formulaire : "D_position_debit". Mon formulaire principal contient un champ : texte11 qui reçoit une valeur (1 à 6). Je voudrai après avoir cliqué sur un bouton créer autant de ligne que la valeur saisie (1 à 6) dans mon sous-formualire en insérant dans un champ nommé position un numéro de 1 à la valeur saisie.
J'ai écrit le code suivant mais cela ne fonctionne pas
Private Sub Commande10_Click()
On Error GoTo Err_Commande10_Click
Dim nbe As Byte
nbe = Texte11
Form! [Dposition]![D_position_debit]
For i = 1 To nbe
DoCmd.GoToRecord , , acNewRec
Position = i
Next
Exit_Commande10_Click:
Exit Sub
Err_Commande10_Click:
MsgBox Err.Description
Resume Exit_Commande10_Click
End Sub
Merci par avance pour votre aide
Partager