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
Partager