Discussion :

[sergoid]

Bonjour à tous,

J'ai fais une base qui est accessible à plusieurs utilisateurs sur plusieurs PC. Suivant les PC l'affichage dans une zone de liste est différent. Je m'explique, je récupère mes données en utilisant un openrecordset et les données sont décalées de 1 ou 2 colonnes.
J'ai rien compris .
Alors j'ai utilisé une requête Access et je n'ai plus eu de problème.

Connaissez-vous ce phénomène ?
Je suis vraiment embêté car il faut que je passe par un openrecordset pour manipuler les données avant de les afficher

[loufab]

Je ne comprend pas ton problème de décalage. as-tu un exemple concret (copie d'écran ?)

L'accés direct à une table dans un environnement multi-utilisateur c'est assez moyen... Il vaut mieux utiliser des requêtes.

Tu peux faire un openrecordset sur une requête.

As-tu séparé la partie applicative des données et surtout as-tu livré une application par poste ?

[sergoid]

l'affichage est dans les photos jointes.

et voici mon 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
   Dim varTableau As Variant
    Dim intLignes As Integer
    Dim sql As String
    Dim rsTech As Recordset
    Dim dbTech As Database
 
    sql = "SELECT Tech.N°_Tech, Tech.Nom, Tech.Prenom "
    sql = sql & "FROM Tech WHERE N°_Tech = " & ÉtiquetteTechCA2.Caption & " "
 
    Set dbTech = CurrentDb()
    Set rsTech = dbTech.OpenRecordset(sql)
 
    If Not rsTech.EOF Then
        varTableau = rsTech.GetRows(1000)
        intLignes = UBound(varTableau, 2)
        ListeTechCA2.RowSource = ""
        ListeTechCA2.AddItem Item:="N°;Nom;Prénom", Index:=0
        For i = 0 To intLignes
            ListeTechCA2.AddItem Item:=varTableau(0, i) & ";" & varTableau(1, i) & ";" & varTableau(2, i)
        Next i
    Else
        MsgBox "Problème pour lister tous les techniciens", vbExclamation, "Connexion impossible"
    End If
 
    rsTech.Close
    dbTech.Close
    Set rsTech = Nothing
    Set dbTech = Nothing

[loufab]

Ce type de décalage se produit lorsque la propriété Nombre de colonnes est incorrecte.
Essaye dans ton code de la fixer à 3 (puisque tu as 3 champs par ligne).

Il y a une question que je me pose.

Poursquoi passer par un tableau ? Pourquoi ne pas affecter directement ta variable sql à la propritiété RowSource du controle ? Des problèmes de performances ?

[sergoid]

j'ai bien 3 comme nombre de colonnes.

je passe pas un tableau car j'ai lu ça dans la faq. j'ai aucune idée de la performance de mon application

par contre un utilisateur m'a indiqué qu'il y a un effet avec les options régionales du PC, on a joué avec les séparateur de liste, symbole décimal etc... et maintenant ça affiche bien. bizarre car ces paramètres ne jouent qu'avec les openrecordset et non les requêtes access