Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2019
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Industrie

    Informations forums :
    Inscription : février 2019
    Messages : 23
    Points : 22
    Points
    22

    Par défaut Access réglage masque de saisie impression étiquette

    Bonjour à tous,

    J'aimerais avoir quelques indications concernant les masques de saisies, malheureusement je n'arrive pas à régler ce paramètre et donc tout les caractères s'imprime en étant coller
    Mon but es assez simple, c'est de crée un espace entre les différent champs lors du remplissage du formulaire, il s'agit d’étiquette de cadastrage (logistique)
    Mentionnant la référence, le N° Lot l'emplacement ect..

    Disons que ma pièce es stocké à l'emplacement RG20 Colonne 20 Niveau 10 Position 07 Profondeur 09
    Sur mon étiquette je souhaite que l'opérateur qui indique ces informations ai l'obligation de bien remplir tous les champs en respectant l'exemple ci-dessus,
    Voici à quoi ressemble mon formulaire, mon masque de saisie et le résultat décevant,
    Et voici à quoi devrait ressembler l'étiquette " RG20 C 20 Niv 10 Pos 07 Prf 09"
    avec les espaces entre chaque champs bien sur.

    Nom : test.PNG
Affichages : 51
Taille : 38,9 Ko

    Et voila tout se colle comme ont peut le voir sur la photo
    Et meme les mentions voulu ne sont pas la... RG ..C..N..P..P..

    Nom : resul.PNG
Affichages : 49
Taille : 14,0 Ko

  2. #2
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    novembre 2013
    Messages
    655
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : novembre 2013
    Messages : 655
    Points : 986
    Points
    986

    Par défaut Masque de saisie

    Vous pouvez vous-inspirer de ce code:

    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
    22
    23
    24
    25
    26
    Sub transformtxt()
     
        'A1 contient "RG20 Colonne 20 Niveau 10 Position 07 Profondeur 09"
        'A2 va contenir "RG20 C 20 Niv 10 Pos 07 Prf 09"
        myLbl = Sheets("sheet1").Range("A1")
        vect = Split(myLbl, " ")
     
        Debug.Print myLbl
        For j = LBound(vect) To UBound(vect)
            Select Case vect(j)
                Case "Colonne": vect(j) = "C"
                Case "Niveau": vect(j) = "Niv"
                Case "Position": vect(j) = "Pos"
                Case "Profondeur": vect(j) = "Prf"
            End Select
        Next j
     
        NewLbl = vect(0) & " "
        For j = 1 To UBound(vect)
            NewLbl = NewLbl & vect(j) & " "
        Next j
     
        Debug.Print Trim(NewLbl)
        Sheets("sheet1").Range("A2") = Trim(NewLbl)
     
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Impression étiquette Excel/Access
    Par Parigoo dans le forum Excel
    Réponses: 12
    Dernier message: 26/04/2019, 23h19
  2. Réponses: 4
    Dernier message: 01/02/2015, 02h09
  3. [AC-2003] masque de saisie dans une requete access
    Par facteur dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 14/03/2012, 12h18
  4. ASp + Access et masque de saisie
    Par richard_sraing dans le forum ASP
    Réponses: 10
    Dernier message: 30/04/2010, 18h50
  5. masque de saisie Access
    Par kernel57 dans le forum Access
    Réponses: 4
    Dernier message: 14/06/2006, 12h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo