Discussion :

[shuin]

Bonjour
Je vien de faire ce programme en VBA sur acces mais il y’a un petit problème.
Est-ce que vous pouvez m’aider à le résoudre ?
Svp j’en ai besoin pour demain
Merci d’avance
Il y’a ce message qui s’affiche :

Voila le programme:

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
 
Sub Mise_a_jour_places_dispo()
 
Dim nbre_places_max As Integer 'nombre de palces maxi'
Dim nbre_places_disp As Integer 'nombre de places disponibles'
Dim bd As Database
Dim rqpr1 As String
Dim Tabrqpr1 As Recordset
 
Set bd = CurrentDb()
 
'mise a jour des places disponibles'
MsgBox ("Saisissez le nombre de places")
nbre_places_disp = InputBox("Combien de places voulez vous ?")
 
rqpr1 = "SELECT UPDATE SEJOURS.code_sejour, nbre_places_max, nbre_places_disp" & _
"FROM SEJOURS" & _
"ORDER BY nbre_places_disp"
 
MsgBox rqpr1
 
 
Set Tabrqpr1 = bd.OpenRecordset(rqpr1)
 
nbre_places_disp = nbre_places_max - nbre_places_disp
 
MsgBox ("Le nombre de place disponible est de" & nbre_places_disp)
 
 
End Sub

[Dolphy35]

Salut et bienvenue sur les Forums Office,

un peu de lecture
Le Langage SQL appliqué à Access par Alexandre le Grand

tu as une erreur dans ta chaîne SQL tu ne pas faire un SELECT et UPDATE en même temps

Dolphy

[shuin]

Merci Dolphy
ce qui est en rouge c'est ce qui est faux ?

[juliojc13]

Non c'est juste ce qui est entre guillemets... c'est le code couleur du VBA Access...

[shuin]

ah ok , merci juliojc13

[juliojc13]

Et au final, tu as réglé ton problème de syntaxe?

[shuin]

Non parce que je ne vois pas ou est l'erreur ?

[tazmania]

Je pense que cela doit venir du

SELECT UPDATE

, il serait plus judicieux de mettre soit select soit update mais d'après ta requête je pencherais plus vers un SELECT

[juliojc13]

Qu'est ce que tu veux faire au juste avec cette ligne de code?

Code :

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

1
2
3
rqpr1 = "SELECT UPDATE SEJOURS.code_sejour, nbre_places_max, nbre_places_disp" & _
"FROM SEJOURS" & _
"ORDER BY nbre_places_disp"

[shuin]

Je suis un peu desordonné, enfin ce programme vba que j'ai fais devra normalement me permettre de mettre à jour le nombre de places disponibles pour chaque séjour en tenant compte des inscriptions effectuées, je ne suis meme pas sure qu'il faut mettre une requette sql dans ce programme la,
svp aidez moi je n'en est besoin pour demain matin. Merci

[tazmania]

Je te conseille donc de revoir la syntaxe SQL de la requête UPDATE, ici :

http://baptiste-wicht.developpez.com.../sql/debutant/