Discussion :

[doryan]

Bonjour à tous,

Grosse alerte, je dois présenter ça lundi...

J'ai un formulaire sous access incluant 2 zones de texte ( [texte0] et [texte2]), une liste déroulante [modifiable5] et un bouton de validation.

J'aimerai que lors du clic sur la validation la table BOISSON se mette à jour

Voici le 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
Private Sub Commande8_Click()
 Dim r As String
 Dim N As Variant
 Dim m As Variant
 Dim T As Single
 
 N = [Texte0]
 m = [Modifiable5]
 T = [Texte2]
 
 
 r = " INSERT INTO BOISSON ( NomB , mesure, Tva )" & _
     " VALUES(N, m, T)"
 
 
      DoCmd.RunSQL r
 
 
End Sub

Et quand je valide il me demande de donner une valeur manuellement à N, m et T!!!

Je suis vraiment pas doué, je sais!

PS: désolé si un post semblable existe déjà mais j'ai beaucoup de mal à transposer les infos pour mon application...

[Tofalu]

Bonjour

Erreur classique, d'où l'intéret du tutoriel de Cafeine sur le debogage des requêtes en VBA ...

Il faut concatener les valeurs et non les placer directement dans la chaine de caractères. En tenant compte de leur type :

Code :

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

1
2
r = " INSERT INTO BOISSON ( NomB , mesure, Tva )" & _
     " VALUES(" & chr(34) & N & chr(34) & "," & ...

Sachant que Chr(34) correspond à des guillemets pour dire au moteur de base de données que c'est du texte et non un nombre

[doryan]

Merci beaucoup

[doryan]

Re au secours!!

Cette fois, je cherche à attribuer la valeur d'une donnée stockée dans une table à une variable dans une requête VBA

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
 
 
Private Sub Commande10_Click()
 
Dim sql2 As String
Dim PU As Variant
 
sql2 = " select prix " & _
        " from boisson " & _
        " where [NomB] = [BC] "
 
 
 
DoCmd.RunSQL sql2
 
 
PU = sql2
 
 
End Sub

Encore une fois, il doit bien y avoir la réponse quelque part dans ce forum ARCHI complet, mais ou???????

[philben]

bonjour,

Une solution avec la fonction de domaine DLookUp :

Code :

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

1
2
 
PU = DLookup("prix", "boisson", "NomB = '" & [BC] & "'")

Voir aide d'access pour plus d'infos.

Philippe

[doryan]

Ca c'est tres tres bien!!!

Du coup, le code au complet

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
 
 
Private Sub Commande10_Click()
Dim sql As String
Dim sql2 As String
Dim PU As Single
Dim cb As Variant
 
 
 
sql = " update boisson " & _
      " set stock = Stock - Qc " & _
      " where [NomB] = [BC] "
 
DoCmd.RunSQL sql
 
PU = DLookup("prix", "boisson", "NomB = '" & [BC] & "'")
 
cb = DLookup("codeb", "boisson", "NomB = '" & [BC] & "'")
 
sql2 = " INSERT INTO consommer ( date_conso, quantite, prix_unitaire, codeB  )" & _
       " VALUES ( DC, QC, PU, cb ) "
 
DoCmd.RunSQL sql2
 
 
End Sub

quand je le lance il me demande les valeurs de PU et cb (alors que dans le mode débogage il trouve ces valeurs quand je les sélectionne...)


erreur d'exécution '3021'
erreur réservée

[Tofalu]

J'adore ...

Où comment faire faire son boulot à d'autres.

Le prochain coup, commence par lire les ressources mises à ta disposition avant de poster. Et surtout applique les réponses données