Discussion :

[tAKAmAkA]

Bonjour à tous,

Peut-être suis en train de payer un manque de rigeur, et mon ignorance mais je ne sais pas d'où vient mon pb: deux codes analogues dans deux formulaires analogues, l'un est ok, l'autre non.

Dans les deux cas donc j'ai un formulaire et son sousformulaire(continu)
J'ai un bouton ajouter dans l'entête du sous formulaire qui me le passe en
autorisation d'ajout. Dans la ligne qui aparait après clic du bouton je souhaite comme valeur par défaut le champ cle de mon formulaire principal (à l'utilisateur de lui ajouter un caractère) :
Si mon MagasinID est 11 mon EpiID que je veux créer prend la valeur par def 11 et l'utilisateur ajoute A pour faire 11A.

Au niveau de mon magasin et de ses Epis associés, ça marche.
Au niveau de mon Epi et de ses Travées associées ça ne marche pas, j'ai #Nom*? dans le champ clé.

J'ai comparé les deux modules ainsi que les tables et les propriétés des formulaires et tout est identique.
Voici le code du module qui concerne l'ajout d'une travée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdAjouter_Click()
On Error GoTo err_exit
 
If Me("cmdAjouter").Caption = "Ajouter" Then
    AllowAdditions = True
    Me.txtTraveeID.DefaultValue = Me.Parent.EpiID.Value
    Me("cmdAjouter").Caption = "Ajout"
Else
    AllowAdditions = False
    Me("cmdAjouter").Caption = "Ajouter"
End If
 
err_exit: Exit Sub
End Sub

J'ai essayé le point et le point d'exlamation, je fais peut-être un mélange entre les contrôle et leurs valeurs (txtEpiID et EpiID) bref je suis un peu paumé.

Merci de votre attention.

[helas]

txtTraveeID attend du texte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cmdAjouter_Click()
On Error GoTo err_exit
 
If Me("cmdAjouter").Caption = "Ajouter" Then
    AllowAdditions = True
    Me.txtTraveeID.DefaultValue = Chr$(34) & Me.Parent.EpiID.Value & Chr$(34) 
    Me("cmdAjouter").Caption = "Ajout"
Else
    AllowAdditions = False
    Me("cmdAjouter").Caption = "Ajouter"
End If
 
err_exit: Exit Sub
End Sub

[tAKAmAkA]

Merci helas,

C'était bien un défaut de rigueur, mais quand même... Access aurait pu me jeter depuis le début, non?
Access est trop tolérant.

Cordialement