Mise a jour d'une table en vba (access) Résolu/Fermé

Question

Bonjour, J'ai un problème avec ma requète sql pouvez vous m'aider c'est pour mon stage de bts ig 1er année.
Voici le code:
Private Sub CmdEnreg_Click()
    Dim db As dao.Database
    On Error GoTo Err_CmdEnreg_Click
    If CmdEntrée.InSelection = True Then
        Set db = DBEngine.OpenDatabase("C:\Documents and Settings\Romain\Bureau\Goubard\stock.mdb")
        db.Execute "update TblStock set QuantitéActuel=QuantitéActuel+"&txtEntréePdts&" Where N°Produit=(select N°Produit from TblProduit where LibProduit="&txtNomProduitE&");"
        Debug.Print "records affected= " & db.RecordsAffected
        db.Close
        DoCmd.GoToRecord , , acNewRec
    End If
End Sub

ffmanfan · Accepted Answer

Bonjour,
C koi en faite ton CInt?

sinon esaye " & CInt(txtID) & ".

ptite · Answer

hey!
moi aussi chui en bts ig 1er année! a toulouse.
bref pour ta requête, je comprend rien a ton code car j'ai jamais voulu utiliser database machin.
désolé.ce message ne te sert a rien...

ffmanfan · Answer

pour les mots qui sont entre les & c'est parce que ce sont des zones de textes d'un formulaire.
Je saisie dans ces zones de texte et ensuite je souhaite mettre a jour une table.(gestion de stock entré)

ffmanfan · Answer

pb réglé

Dim db As Database
Dim req As string

Set db = CurrentDb
req = "select N°Produit from TblProduit where LibProduit=" & txtNomProduitE & ";"
db.Execute "update TblStock set QuantitéActuel=QuantitéActuel+" & txtEntréePdts & " Where N°Produit=" & req & ";"

C beaucoup plus simple comme ça.

kamal1983 · Answer

Bonjour a toutes et a tous,

je suis content que le probléme soit résolu, et ca me donne espoire pour trouver la réponse pour mon probléme


en effet,j'ai une fonction qui fait  le lien entre vba et la table"stock" d'access,la voici :


fpubDBConnect
           vpubDBRecordset.Open ("SELECT * FROM stock WHERE ID =" & CInt(txtID)), vpubDBConnection, adOpenDynamic, adLockOptimistic
        With vpubDBRecordset
     
            
            
            
            
        End With
        vpubDBRecordset.Close



je veux en effet créer une commande vb qui fera le tri pour la table "stock" par ordre decroissant de la valeur du champ 1. est ce que qulqu'un sait comment résoudre ce gros probléme , je ne sais pas si il existe une solution ou pas pour ce probléme, mais moi je compte sur vos talents les amis !

merci pour votre réponse

Ben · Answer

Bonjour à tous,

Je viens à vous car je suis débutant en MS Access et le language VB et je developpe une appli' de gestion des utilisateurs pour sécuriser une base de données en attribuant différents droits (Insert/Update/Delete) pour chacun des forms selon le user..

J'ai jusqu'ici réussis, à récupérer le nom du user logué, son ID et lui attribuer des droits sur le form en cours...

Je cherche maintenant à créer un écran de saisie pour l'admin qui lui servirait à mettre à jour la table que j'ai créée servant à assigner des droit spécifique selon le user logué...

Ma question ? Comment créer cette écran de saisie afin d'updater ma table de mapping ? Des idées ????

Merci d'avance !!!

Mise a jour d'une table en vba (access)

6 réponses

Discussions similaires