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 :

Code qui ne fonctionne pas


Sujet :

VBA Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    167
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mars 2007
    Messages : 167
    Points : 79
    Points
    79
    Par défaut Code qui ne fonctionne pas
    Bonjour,

    J'aimerais trouver l'erreur de programmation dans ce code.
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    Private Function basOrderby(col As String, xorder As String) As Integer
    Dim strSQL As String
     
    'Clear captions from command buttons
    ClearCaptions
     
    'Set row source for list box
        strSQL = "SELECT DISTINCTROW ID_Proprietaire, Prenom, Nom, Date_naissance, [Téléphone (maison)]"
        strSQL = strSQL & "FROM Proprietaire"
        strSQL = strSQL & "ORDER BY  " & col & " " & xorder
        Me!lstSearch.RowSource = strSQL
        Me!lstSearch.Requery
     
    End Function
     
    Sub ClearCaptions()
     
    'Clear captions of asc and desc symbols
     
        Me!cmdOrderFNameDesc.Caption = "Trie par prénom"
        Me!cmdOrderFName.Caption = "Trie par prénom"
        Me!cmdOrderLNameDesc.Caption = "Trie par nom"
        Me!cmdOrderLName.Caption = "Trie par nom"
        Me!cmdOrderRegionDesc.Caption = "Trie par ville/village"
        Me!cmdOrderRegion.Caption = "Trie par ville/village"
     
    End Sub
     
    Private Sub cmdOrderFName_Click()
    'Set First Name order in ascending order and apply captions
    Dim response As Integer
        response = basOrderby("Prenom", "asc")
        Me!cmdOrderFNameDesc.Visible = True
        Me!cmdOrderFNameDesc.Caption = "v Trie par prénom v"
        Me!cmdOrderFNameDesc.SetFocus
        Me!cmdOrderFName.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
     
    Private Sub cmdOrderFNameDesc_Click()
    'Set First Name order in descending order and apply captions
    Dim response As Integer
        response = basOrderby("Prenom", "DESC")
        Me!cmdOrderFName.Visible = True
        Me!cmdOrderFName.Caption = "^ Trie par prénom ^"
        Me!cmdOrderFName.SetFocus
        Me!cmdOrderFNameDesc.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
     
    Private Sub cmdOrderLName_Click()
    'Set Last Name order in ascending order and apply captions
    Dim response As Integer
        response = basOrderby("Nom", "asc")
        Me!cmdOrderLNameDesc.Visible = True
        Me!cmdOrderLNameDesc.Caption = "v Trie par nom v"
        Me!cmdOrderLNameDesc.SetFocus
        Me!cmdOrderLName.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
     
    Private Sub cmdOrderLNameDesc_Click()
    'Set Last Name order in descending order and apply captions
    Dim response As Integer
        response = basOrderby("Nom", "DESC")
        Me!cmdOrderLName.Visible = True
        Me!cmdOrderLName.Caption = "^ Trie par nom ^"
        Me!cmdOrderLName.SetFocus
        Me!cmdOrderLNameDesc.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
     
    Private Sub cmdOrderRegion_Click()
    'Set Region order in ascending order and apply captions
    Dim response As Integer
        response = basOrderby("strRegion", "asc")
        Me!cmdOrderRegionDesc.Visible = True
        Me!cmdOrderRegionDesc.Caption = "v Trie par ville/village v"
        Me!cmdOrderRegionDesc.SetFocus
        Me!cmdOrderRegion.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
     
    Private Sub cmdOrderRegionDesc_Click()
    'Set Region order in descending order and apply captions
    Dim response As Integer
        response = basOrderby("strRegion", "DESC")
        Me!cmdOrderRegion.Visible = True
        Me!cmdOrderRegion.Caption = "^ Trie par ville/village ^"
        Me!cmdOrderRegion.SetFocus
        Me!cmdOrderRegionDesc.Visible = False
        Me!lstSearch.SetFocus
     
    End Sub
    Les Sub " cmdOrder... " sont destinés à des boutons qui permet de trier une liste d'info par order ascendant et descendant. Sauf que dans le code que j'ai inclus ne fonctionne pas comme je voudrais. Si je clique sur l'un des boutons, l'information dans la liste (lstSearch) disparait completement.

    Est-ce que quelqu'un aurait un idée pour pourait être le problème ?

    merci.

  2. #2
    Membre chevronné
    Avatar de Demco
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    1 396
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 396
    Points : 2 228
    Points
    2 228
    Par défaut
    Dans un premier temps je te conseillerais la lecture du tuto sur le debuggage des requêtes SQL écrites par VBA. Ton ORDER BY ne semble pas correcte à première vue.
    J'aime les gâteaux.

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    167
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Mars 2007
    Messages : 167
    Points : 79
    Points
    79
    Par défaut
    Citation Envoyé par Demco
    Dans un premier temps je te conseillerais la lecture du tuto sur le debuggage des requêtes SQL écrites par VBA. Ton ORDER BY ne semble pas correcte à première vue.
    Merci pour ton information. J'ai trouver la source de mon erreur à l'aide du tutorial. tu avais bien raison mon ORDER BY n'était pas bien écrit.

    un gros merci.

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Un petit clic sur le bouton Résolu?

    Merci
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Problème avec code qui ne fonctionne pas
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/04/2009, 17h41
  2. Réponses: 10
    Dernier message: 30/03/2007, 18h30
  3. [Language] Code qui ne fonctionne pas
    Par kevinf dans le forum Langage
    Réponses: 2
    Dernier message: 21/11/2006, 22h08
  4. Code qui ne fonctionne pas
    Par maxti dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 22/10/2006, 12h45
  5. Code qui ne fonctionne pas sur Mac
    Par malbaladejo dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 14/01/2005, 12h08

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