Probleme avec un module VBA

Marsh Posté le 23-05-2007 à 21:06:23

Bonjour
Je vien de faire ce programme en VBA sur acces mais il ya un petit problème.
Est-ce que vous pouvez maider à le résoudre ?
Svp jen ai besoin pour demain
Merci davance
Il ya ce message qui saffiche :

Voila le programme:

Code :

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

Message édité par shuin le 23-05-2007 à 22:46:43

Reply

Marsh Posté le 23-05-2007 à 21:06:23

Reply

Marsh Posté le 23-05-2007 à 22:08:13

L'erreur est classique. Des morceaux de chaines de caractères sont concaténés mais il manque des espaces entre eux, ce qui fait que, par exemple "FROM" se retrouve collé à "disp" pour former "...dispFROM...", et il en est de même pour "...SEJOURSORDER....".

Edit : En plus il y a à la fois SELECT et UPDATE !

Message édité par olivthill le 23-05-2007 à 22:09:50

Reply

Marsh Posté le 23-05-2007 à 23:16:11

Est que vous pouvez corriger ma requete svp ?

Reply

Marsh Posté le 24-05-2007 à 07:54:19

Elle doit faire quoi ta requete ?

Reply

Marsh Posté le 24-05-2007 à 09:22:26

La syntaxe d'une requete UPDATE doit être de la forme :
UPDATE <table> SET <champ1> = <valeur1>, <champ2> = <valeur2>

Message cité 1 fois

Reply

Marsh Posté le 25-05-2007 à 00:36:31

tegu a écrit :

La syntaxe d'une requete UPDATE doit être de la forme :
UPDATE <table> SET <champ1> = <valeur1>, <champ2> = <valeur2>

Est ce qu'il faut faire comme sa ?

UPDATE SEJOURS SET code_sejour, nbre_places_max, nbre_places_disp

Message édité par shuin le 25-05-2007 à 00:42:49

Reply

Marsh Posté le 25-05-2007 à 16:28:09

Il te manque les valeurs.
Quand tu fais une requete UPDATE tu remplaces la valeur existante par une nouvelle :
À titre d'exemple :
UPDATE SEJOURS SET code_sejour=25, nbre_places_max=20, nbre_places_disp=500

Bien sûr si un champ est de type caractère alors il faut mettre des guillemets à tes valeurs.
Tu peux aussi utiliser un calcul basé sur d'autres champs pour la mise à jour.
Exemple au hasard (avec age comme champ existant bien sûr):
UPDATE SEJOURS SET nbre_places_max = age * 10, nbre_places_disp = 20

Message cité 1 fois
Message édité par tegu le 25-05-2007 à 16:28:44

Reply

Marsh Posté le 26-05-2007 à 00:19:37

tegu a écrit :

Il te manque les valeurs.
Quand tu fais une requete UPDATE tu remplaces la valeur existante par une nouvelle :
À titre d'exemple :
UPDATE SEJOURS SET code_sejour=25, nbre_places_max=20, nbre_places_disp=500

Bien sûr si un champ est de type caractère alors il faut mettre des guillemets à tes valeurs.
Tu peux aussi utiliser un calcul basé sur d'autres champs pour la mise à jour.
Exemple au hasard (avec age comme champ existant bien sûr):
UPDATE SEJOURS SET nbre_places_max = age * 10, nbre_places_disp = 20

Ah ok merci Maitre

Reply

Probleme avec un module VBA

Sujets relatifs:

Leave a Replay