Forum des développeurs  

Le forum de référence en programmation et développement. Articles, cours et tutoriels du débutant au chef de projet et DBA confirmé.
Précédent   Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > VBA Access

VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.

Réponse
 
Outils de la discussion
Vieux 06/10/2008, 17h28   #1 (permalink)
Invité régulier
 
Date d'inscription: novembre 2005
Messages: 16
Par défaut Récupérer une valeur inputbox

Bonjour,

Je souhaite faire des logs sur ma base, j'utilise pour se faire la fonction suivante:
Code :
    Dim chEntree As String
             
    chEntree = InputBox(Prompt:="Identifiez-vous, svp")
    
    If chEntree = Empty Then
        MsgBox Prompt:="Vous ne vous êtes pas identifiez"
    End If
    MsgBox "Bonjour " & chEntree
        
    DoCmd.RunSQL "INSERT INTO log (usr_log, date_log, form_log, action_log, log, temp) VALUES (chEntree, menu_date, 'Form_menu', 'Ouverture', 'identification',1);"
 
Mon problème c'est qu'au moment d'exécuter la requête SQL, celle-ci me redemande ma variable "chEntree".
Comment faire pour utiliser la valeur entrée via l'inputbox ?

Merci pour votre aide
Spacio est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 06/10/2008, 17h31   #2 (permalink)
Expert Confirmé Sénior
 
Avatar de jpcheck
 
Date d'inscription: juillet 2007
Localisation: RP
Âge: 24
Messages: 2 915
Envoyer un message via MSN à jpcheck
Par défaut

salut,
il faut que tu y mettes la valeur, pas l'intitulé

Code :
DoCmd.RunSQL "INSERT INTO log (usr_log, date_log, form_log, action_log, log, temp) VALUES ('" & chEntree & "',  menu_date, 'Form_menu', 'Ouverture', 'identification',1);"
__________________
Piou-Piou
Poussin Developpeur

Pas de question technique par MP, je ne réponds pas

Mon perso ? Une vraie brute
jpcheck est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 07/10/2008, 08h51   #3 (permalink)
Invité régulier
 
Date d'inscription: novembre 2005
Messages: 16
Par défaut

Merci beaucoup, et pourtant j'avais également essayé:
Code :
DoCmd.RunSQL "INSERT INTO log (usr_log, date_log, form_log, action_log, log, temp) VALUES (" & chEntree & ",  menu_date, 'Form_menu', 'Ouverture', 'identification',1);"
A deux apostrophes près
Spacio est déconnecté   Envoyer un message privé Réponse avec citation
Réponse

Précédent   Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > VBA Access

 
Offres d' emploi informatique sur Lesjeudis.com


Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non
Navigation rapide


Fuseau horaire GMT +1. Il est actuellement 23h03.


Publiez vos articles, tutoriels et cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter
Copyright 2000-2008 www.developpez.com - Legal informations