Discussion :

[trouvaille]

Bonjour,

J'aimerai remplir une zone de texte, effectuer un enter et lancer via procédure événementielle un insert into puis videz la case, mais je bloque...

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
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub Code_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Mat As String
Dim resultat As Integer
Dim base As Database
Dim requete As String
 
 
 
 
    If IsNull(Me.CodeBarre) Then
   MsgBox "Veuillez scanner un Matériel"
   Else
    Mat = Me.Code.Value
 
   If KeyCode = 13 Then
 
 
        If Me.TypeMvt = "OUTMA" Then
        resultat = InputBox("Saisie de la quantité : ", "Quantité", "1")
        Else
        resultat = 1
        End If
 
 
 
Set base = Application.CurrentDb
requete = "INSERT INTO T_Materiel_Tempo (Materiel, Qte) VALUES ('" & Mat & "', " & resultat & ")"
base.Execute requete
 
 
 
Me.Code = ""
Me.Code.SetFocus
End If
End If
End Sub

[Pierre Fauconnier]

Salut.

Tu dois utiliser l'événement Private Sub Texte0_AfterUpdate().

Cela dit, pas certain que ce soit top de tout réaliser dans l'événement (voir mon billet générique vba sur ce sujet). Outre ce que j'y dis et pour coller à Access, je dirais que les événements sur formulaire et l'injection dans la base ne font pas partie des mêmes couches de responsabilité. Tu devrais, sur l'événement AfterUpdate, appeler une procédure spécifique qui reçoit les données et qui a la responsabilité de les injecter dans la base.

Ce découplage des responsabilités va te permettre de tester proprement ton code, de le maintenir et de le faire évoluer en minimisant les modifications à y apporter

Pas top non plus de récréer la requête par concaténation. Ici, c'est du codebarre donc a priori, tu n'auras pas de problème, mais perso, je préfère utiliser une requête d'injection paramétrée. Ca évite les problèmes pour l'injection des dates, des valeurs décimales, des textes contenant certains caractères tels que l'apostrophe et autres.


Pour finir, DAO est un peu dépassé, à mon avis, et perso, je m'orientes systématiquement vers ADODB pour réaliser ce type d'actions sur la base.

[trouvaille]

Merci de la réponse.

Mon soucis et que ma zone texte est lue via un scanner (douchette), il est paramétré (et ne peux le changer) de tel sorte qu'il lit, puis fait enter

donc je cherche le code d'une procédure qui une fois dans la zone de texte et après scanning(lecture, écriture et enter), s'exécute un insert into dans une table temporaire puis efface la données scannée de la zone texte

Cela me paraît tout bête, mas j'y arrive pas

Merci pour ce petit bout de code...

[Pierre Fauconnier]

Ca n'empêche pas que l'événement AfterUpdate est levé au moment où la douchette envoie l'Enter? Me trompé-je? As-tu essayé de déplacer ton code sur l'événement Code_AfterUpdate?

[trouvaille]

Dans l’événement after update comment lui signaler d'exécuter l'insert into après ENTER

[Pierre Fauconnier]

Tu n'étais pas très loin avec ton code. Par contre, tu n'as pas besoin de tester que tu as pressé Enter, AfterUpdate le sous-entend...

J'ai reconstiuté une base qui ressemble à la tienne. Voici un code qui fonctionne chez moi à la validation du codebarre. A toi à tester que ton codebarre enclenche bien le code donné ci-dessous.

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
Private Sub Code_AfterUpdate()
Dim Mat As String
Dim resultat As Integer
Dim base As Database
Dim requete As String
 
  If IsNull(Me.Code) Then
    MsgBox "Veuillez scanner un Matériel"
  Else
    Mat = Me.Code.Value
    If Me.TypeMvt = "OUTMA" Then
      resultat = InputBox("Saisie de la quantité : ", "Quantité", "1")
    Else
      resultat = 1
    End If
    Set base = Application.CurrentDb
    requete = "INSERT INTO T_Materiel_Tempo (Materiel, Qte) VALUES ('" & Mat & "', " & resultat & ")"
    base.Execute requete
  End If
  Me.Code = ""
  Me.Code.SetFocus
End Sub

Cela étant, je me pose une question existentielle: Access sait réaliser cela sans la moindre ligne de code => c'est sa raison d'être et sa force! Pourquoi passes-tu par du VBA alors que Access fait cela tout seul en 2 minutes de mise en place?

[trouvaille]

Super, merci. Cela fonctionne

Pour la question, simplement parce que je ne sais pas la faire, suis débutant très motivé, mais débutant...

Soif d'apprendre et de tout comprendre mais des fois des choses me dépassent

Si vous auriez l'amabilité de m'en expliquer un peu plus sur Access fait cela tout seul...

[Pierre Fauconnier]

Le principe d'Access, c'est de créer tes tables, puis de créer tes formulaires sur base de tes tables. Ca se fait en quelques clics. Tu as alors un formulaire lié à ta table et tu y saisis tes données...

Création de la table




Création du formulaire sur base de la table (qui doit être sélectionnée dans le panneau de navigation et fermée)




Le formulaire est créé (en mode table (beerk) ou en mode formulaire selon les options de ton Access). Tu peux passer en modification pour l'adapter (la clé primaire n'a a priori pas besoin d'être sur le formulaire, tu peux la supprimer, par exemple)




En mode formulaire, tu peux saisir des données, les modifier, rechercher, en ajouter (astérisque sur la barre de déplacement en bas du formulaire)




Par la suite, tu pourras mettre du code pour vérifier que les saisies sont correctes, qu'on a mis MvtOut dans le contrôle ad hoc (textbox ou combobox), etc, et décider de valider un autre contrôle, d'en verrouiller, de choisir une valeur par défaut, etc...

L'injection des données, nouvelles ou mises à jour, ainsi que la récupération des données est gérée par le formulaire. Dans ton cas particulier ou tu ne veux peut-être permettre que l'ajout de données, tu peux modifier les propriétés du formulaire (passer en mode création) et définir que le formulaire n'accepte que l'ajout

[trouvaille]

Je ne pense pas pouvoir cela directement sous access...

je dois scanner des articles qui se mettent dans une base tempo (contrôle avant finalisation de la transaction), les enregistrements prendront non seulement les codes articles, mais qui à pris, quand et pour quel usage.

une fois le matériel scanné, validation, vidange de la table tempo et inscription dans table mouvement..

j'ai quand même besoin de codage....non?