Discussion :

[portecd]

Bonjour,

lorsque je souhaite ouvrir ma form j'aimearis qu'elle active un module qui contient uenre quête sql. Seulement cela ne fonctionne pas. Je pense que le code de mon évènement form_load est juste puisque quand je l'appelle via un call il fonctionne.
Je ne comprends pas et pense que c'est un conflit entre mon modul et mon évènement from_load.

Si qq1 pouvait m'aider ce serait sympa ! merci d'avance

mes codes:

mon module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function sqlClaims() As String
 
    sqlClaims = "SELECT  Claims.idclaims, Claims.NrDossier, Claims.DateCreation, Origine.Origine, StatutClaims.Statut, TypeClaims.TypeClaims FROM ((Claims LEFT JOIN Origine ON Claims.IdOrigine = Origine.idOrigine) LEFT JOIN StatutClaims ON Claims.IdStatutClaims = StatutClaims.IdSatut) LEFT JOIN TypeClaims ON Claims.idTypeClaims = TypeClaims.idTypeClaims"
 
End Function

et mon évènement form_load :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load()
       Me.lstResultsClaims.RowSource = sqlClaims() & " where IdStatutClaims not like'" & 4 & "';"
    Me.lstResultsClaims.Requery
End Sub

merci

[philben]

bonjour,

ça vient peut être que d'après votre code IdStatutClaims est de type string alors qu'il est probablement de type numérique.
Si c'est le cas essayer cette clause Where :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
... & " where IdStatutClaims <>" & 4 & ";"

Vérifier aussi que la propriété rowsourcetype de <lstResultsClaims> est bien mise sur "Table/requete".

Philippe

[portecd]

merci pour votre aide.

Malheureusement ce n'est à priori pas ça.

En plus quand j'appelle la procédure la requête fonctionne bien. Ce n'est qu'au moment où la page se charge que la requête ne marche pas !??!

ma liste déroulante est connectée à une requête dont la traduction sql est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT Claims.idclaims, Claims.NrDossier, Claims.DateCreation, Origine.Origine, StatutClaims.Statut, TypeClaims.TypeClaims FROM ((Claims LEFT JOIN Origine ON Claims.IdOrigine=Origine.idOrigine) LEFT JOIN StatutClaims ON Claims.IdStatutClaims=StatutClaims.IdSatut) LEFT JOIN TypeClaims ON Claims.idTypeClaims=TypeClaims.idTypeClaims WHERE (((Claims.IdStatutClaims)<>4));

je ne comprends vraiment pas

[portecd]

oups je viens de trouver mon erreur !

j'avais un setfocus qui me faisant arriver sur un champ texte actualisait ma liste sans la condition souhaitée !

désolé pour le dérangement et merci à ceux qui m'ont aidé !