Discussion :

[Alain7751]

Bonjour,

Il y a des albums ; chaque album possèdent plusieurs folios dont le nombre peut varier d'un album à l'autre.

Je veux enregistrer un nouvel album dans la table Tb_Album. Je lui donne un titre, j'indique le numéro du premier folio ainsi que le numéro du dernier folio. A partir de cet instant, je veux créer dans la table Tb_Folio tous les folios de cet album (ici je le déclenche par le clic sur un bouton du formulaire Fm_Album mais peu importe la façon de déclencher).

Nota : je vous épargne les autres champs de chacune des tables



Pour créer ces folios depuis le formulaire de la table TB_Album :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub creernumfolio()
For compteur = FolA - 1 To FolZ - 1
NumFol = compteur + 1
INSERT INTO Tb_Folio ( CodeAlbum,NumFolio)value (CodAlbum,NumFol)
Next compteur
End Sub
 
Private Sub Commande10_Click()
creernumfolio
End Sub

et là ... problème ! (enfin ... pour moi)
La ligne INSERT etc devient toute rouge (de colère) et m'indique :

erreur de compilation ! attendu : fin d'instruction (en surlignant en bleu Tb_Folio)

Est-ce ce mélange de VBA/SQL ou carrément une erreur de conception ???

J'espère avec impatience vos lumières !! et merci par avance à tous ceux qui ont pris le temps de lire jusqu'au bout ...

[Jean-Philippe André]

Bonjour,
des pistes issues de la que je t'encourage à consulter aussi souvent que possible :
http://access.developpez.com/faq/?page=SQL#qryActions
http://access.developpez.com/faq/?page=SQL#Recordset