Probleme avec un module VBA
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 : http://www.enregistrersous.com/image...0523211139.jpg
Voila le programme:
Code:
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 |
