Discussion :

[johnburton54]

Code :

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

1
2
3
4
5
6
7
8
Private Sub SSCC_Click()
 
    Set etiquette = CodeDb.OpenRecordset("Etiquette")
 
    SSCC = etiquette("code application") & etiquette("code pays") & etiquette("CNUF") & etiquette("lieu de production") = Val(SSCC)
 
 
End Sub

voila j'ai déjà crée une variable etiquette et je lui ai associé les enregistrements de la table Etiquette.
ensuite, j'ai concatener de la sorte car la valeur va vers une zone texte (sscc) d'un formulaire

si quelqu'un peut m'expliquer pourquoi sa ne marche pas...

merci d'avance

[pc75]

Bonjour,

C'est quoi ça en fin de ligne ?

Code :

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

1
2
 
= Val(SSCC)

[johnburton54]

val(sscc)

C'est l'endroit ou va la valeur sscc ( la zone texte s'appelle sscc).

[johnburton54]

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
16
17
18
19
20
21
Private Sub bouton_visualiser_étiquette_Click()
 
  'importe les données d'un fichier texte vers une table
   DoCmd.TransferText acImportDelim, , "étiquette", "C:\Documents and Settings\invité\Mes documents\Projet Traçabilité - BURTON\application pour étiquettes", True
 
    Set etiquette = CodeDb.OpenRecordset("étiquette")
 
    Count.Value = Val(etiquette("Count")) ' qualiticatif incorrect
 
    EAN.Value = Val(etiquette("EAN")) 'objet requis
 
    SSCC.Value = Val(etiquette("code application") & etiquette("code pays") & etiquette("CNUF"))
 
    Application.Echo False
    DoCmd.Minimize
    DoCmd.OpenForm "Etiquette"
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
    Application.Echo True
 
End Sub

Dans mes commentaire sont compris mes problèmes.

[Invité]

Bonjour

Montre-nous comment tu as déclaré tes variables et tes objets, et où.

Starec

[davidou2001]

Tu ne peux pas ecrire comme ca en fin de ligne = VAL(...) Si tu as une affectation a faire, fait la avant puis effectue ta concatenation