Access et Visual Basic

gilles -  
freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Sur access, j'ai un formulaire qui possede deux champs textes "Texte0" et "Texte1".
Quand je change quelque chose dans le champ "Texte0", je veux qu'il m'affiche un résultat dans "Texte1" .

Mais mon code sous Visual basic ne marche pas :

Private Sub Texte0_AfterUpdate()
Me.texte1 = select jour from saisie1 where id = 90
End Sub

Comment résoudre mon problème ?

Merci d'avance
Configuration: Windows XP
Firefox 2.0.0.4

5 réponses

  1. freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   165
     
    Bonjour
    Change le AfterUpdate par un LostFocus
    0
  2. freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   165
     
    tu veux exécuter une requete et afficher le résultat dans la zone de texte, ou juste afficher la requete dans la zone de texte??
    0
    1. gilles
       
      je veux afficher son résultat ...
      0
  3. freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   165
     
    Alors dans ce cas, il faudrait pluto mettre ceci

    Private Sub Texte0_LostFocus() 
    Me.texte1.Value = DLookUp("[jour]","[saisie1]", "[id]=90")
    End Sub 


    Je ne vois pas l'utilité du id=90 mais bon...c'est toi qui vois après
    Sinon, il se peut que tu aie a changer le nom des champs entre [] pour qu'il correspondent à ceux de ta table, sinon il va te sortir une jolie erreur
    Le champs texte1 ne sera modifié que lorsque tu cliquera dessus, ou sur un autre controle (autre que texte0)
    0
    1. gilles
       
      Merci beaucoup, ca marche :)
      seulement maintenant comment faire pour qu'au lieu du id=90, la condition id doit etre egal à la valeur de texte0 ?
      0
  4. freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   165
     
    Private Sub Texte0_LostFocus() 
    Me.texte1.Value = DLookUp("[jour]","[saisie1]", "[id]='" & Texte0.Value &"'")
    End Sub 

    Voili voilou
    0
    1. gilles
       
      merci beaucoup
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. freto Messages postés 1543 Date d'inscription   Statut Membre Dernière intervention   165
     
    Pb résolu???
    0