IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Inputbox, utiliser le résultat pour modifier un champ


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Par défaut Inputbox, utiliser le résultat pour modifier un champ
    Hello,
    Comme le titre l'indique je souhait créer une inputbox qui en fonction de la réponse de l'utilisateur modifie un autre champ.
    Voici mon code qui ne fonctionne pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
     Dim resultat As String
    resultat = InputBox("Quel coefficient souhaitez vous appliquer pour votre prix de vente? ?", " Variation du prix de vente", "1.3")
    If IsNumeric(resultat) > 1.2 Then
    Me.Texte130.Value = IsNumeric(resultat) * Me.Texte122.Value
    Else
    MsgBox "veuillez saisir un coef supérieur "
    End If
    Me.Texte130.Requery
    End Sub
    texte 130 étant le champs a modifier.
    Dans l'attente d'une réponse.
    cordialement

  2. #2
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Par défaut
    Bonjour,

    Pas ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox "veuillez saisir un coef supérieur "
    Plutôt comme ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      Me.Texte130 = InputBox("veuillez saisir un coef supérieur ")

  3. #3
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Par défaut
    Merci, Claude de m'accorder de ton temps.
    Cependant ça résout pas du tout mon problème
    en gros j'ai texte 130 qui un champs calculer (1.2 * prix de revient)
    et je souhaite (dans la mesure du possible) que
    inputbox : quel nouveau coef ? si la réponse est supérieur à 1.2 alors
    me.texte130.value = "réponse de linputbox" (exemple 1.4) * prix de revient

  4. #4
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 127
    Par défaut
    Bonjour,

    isnumeric renvoie un booleen ! S'il est true il faut alors utiliser val(resultat) ou 1*resultat.

  5. #5
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Par défaut
    Alors, plus de message d'erreur du style "incompatibilité de type" et le code fonctionne dans le sens ou le else marche .
    Cependant pas de changement concernant le champ...

  6. #6
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Par défaut
    Montre ton formulaire avec le nom des contrôles et leur source, on gagnera du temps !
    Essaie de donner à tes objets, contrôles... des noms explicites (Coeff, PrixRevient...) sans utiliser d'espaces, caractères spéciaux... Ça facilite la compréhension et ça allège la syntaxe.

  7. #7
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Par défaut
    J'ai oublié de préciser que c'était un état put être ça qui bloque...
    prixdevente source de donnée = prixrevient*1.2
    Code bouton inputbox :
    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
     
    Private Sub inputcoef_Click()
     
     Dim resultat As String
     
    resultat = InputBox("Quel coefficient souhaitez vous appliquer pour votre prix de vente? ?", " Variation du prix de vente", Val(1.3))
    If Val(resultat) > 1.2 Then
     
     
    Dim prixrevient, prixvente As Double
     
    prixvente= Me.prixvente.Value
    prixrevient = Me.prixrevient.Value
    prixvente = Val(resultat) *prixrevient
     
    Else
    MsgBox ("yes")
     
    End If
    Me.prixvente.Requery
    End Sub

  8. #8
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Par défaut
    désolé du double post cependant personnes n'aurait une petite idée?

Discussions similaires

  1. [ACCESS 2000] Problème pour modifier un champ d'une table
    Par DeFCrew dans le forum VBA Access
    Réponses: 4
    Dernier message: 21/08/2008, 14h25
  2. utiliser as childcmd pour lier deux champs
    Par BOMBARDIER dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 02/02/2007, 17h44
  3. [MySQL] Erreur pour modifier des champs
    Par kevinf dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 12/11/2006, 21h47
  4. Probleme de requete UPDATE pour modifier de champs ds DBGRID
    Par cmoimeme dans le forum Bases de données
    Réponses: 26
    Dernier message: 06/12/2005, 12h56
  5. Réponses: 8
    Dernier message: 23/03/2005, 19h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo