Probleme avec un module VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme avec un module VBA

shuin

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

Publicité

olivthill

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

shuin

Est que vous pouvez corriger ma requete svp ?

Paul Hood

Elle doit faire quoi ta requete ?

tegu

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

Message cité 1 fois

shuin

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

tegu

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

shuin

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Probleme avec un module VBA

Sujets relatifs
Unrecognized attribute 'requirePermission' - problème avec machine.con	Probleme avec Opera
[Résolu]Problème d'affichage avec FCKEditor	problème de date
[RESOLU] Problème unlink	Problème de requete, COUNT, GROUP BY etc.
Problème de type ambigu dans global.asax...	[ Resolu] Problème de lien !
[vba] problème Replace / concaténation	[Problème résolu] Lancer un module VBA par VB
Plus de sujets relatifs à : Probleme avec un module VBA

Page générée en 0.036 secondes