Probleme avec un module VBA

**shuin** · 23/05/2007, 21h05

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